diff --git a/code/RDGW150914.nb b/code/RDGW150914.nb
index e4cfaeea002a2c810810e76a9d5301928f62fd31..e978b0e228a7791c66dcd994ee29e90b7e6d152e 100644
--- a/code/RDGW150914.nb
+++ b/code/RDGW150914.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   7273949,     134244]
-NotebookOptionsPosition[   7214970,     133346]
-NotebookOutlinePosition[   7215363,     133362]
-CellTagsIndexPosition[   7215320,     133359]
+NotebookDataLength[   7670023,     141498]
+NotebookOptionsPosition[   7607166,     140545]
+NotebookOutlinePosition[   7607559,     140561]
+CellTagsIndexPosition[   7607516,     140558]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -46,6 +46,58 @@ X. Jimenez, S. Bhagwat. Notebook used to generate the results of arxiv: \
 
 Cell[CellGroupData[{
 
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Omega]lmn", "[", 
+   RowBox[{"4", ",", "3", ",", "0", ",", "0.25", ",", "0", ",", "0", ",", 
+    RowBox[{
+    "\"\<ModesFile\>\"", "\[Rule]", 
+     "\"\</Users/xisco/git/rdstackingproject/\>\""}]}], "]"}], "[", 
+  RowBox[{"[", "2", "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.8012812474102917`*^9, 3.80128133329056*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"aff2bd91-9233-4b17-9c2d-1d359f1227dc"],
+
+Cell[BoxData["11.098203022830312`"], "Output",
+ CellChangeTimes->{{3.801281307670529*^9, 3.801281333689967*^9}, {
+  3.8012856001769257`*^9, 3.80128562209466*^9}},
+ CellLabel->"Out[24]=",ExpressionUUID->"e0420043-efea-46ab-8c21-ba609df22d3e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Omega]lmn", "[", 
+   RowBox[{"2", ",", 
+    RowBox[{"-", "2"}], ",", "0", ",", "0.25", ",", "0", ",", "0", ",", 
+    RowBox[{
+    "\"\<ModesFile\>\"", "\[Rule]", 
+     "\"\</Users/xisco/git/rdstackingproject/\>\""}]}], "]"}], "[", 
+  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Omega]lmn", "[", 
+   RowBox[{"2", ",", "2", ",", "0", ",", "0.25", ",", "0", ",", "0", ",", 
+    RowBox[{
+    "\"\<ModesFile\>\"", "\[Rule]", 
+     "\"\</Users/xisco/git/rdstackingproject/\>\""}]}], "]"}], "[", 
+  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.801285605884923*^9, 3.801285630096052*^9}, {
+  3.8012859055244493`*^9, 3.801285916533882*^9}},
+ CellLabel->"In[61]:=",ExpressionUUID->"0998a16a-d39f-45e5-bad5-fa2fcab2df41"],
+
+Cell[BoxData["0.32654042035168435`"], "Output",
+ CellChangeTimes->{{3.801285609301552*^9, 3.801285630881678*^9}, {
+  3.8012859039760103`*^9, 3.801285938470776*^9}},
+ CellLabel->"Out[61]=",ExpressionUUID->"16327f89-73d3-4101-923b-ad73e18a4cbc"],
+
+Cell[BoxData["0.5534519800949247`"], "Output",
+ CellChangeTimes->{{3.801285609301552*^9, 3.801285630881678*^9}, {
+  3.8012859039760103`*^9, 3.801285938577454*^9}},
+ CellLabel->"Out[62]=",ExpressionUUID->"99b5fa78-4739-4d8c-ab7e-4ff6a2a49fa7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
 Cell["Setup", "Section",
  CellChangeTimes->{{3.717145376675954*^9, 3.7171453778419027`*^9}, {
   3.725360092733674*^9, 
@@ -59,18 +111,6 @@ Cell["Load package", "Subsection",
   3.7991198361011353`*^9}},ExpressionUUID->"43942484-b301-4fc3-8d9b-\
 c3772441b7fa"],
 
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"NotebookDirectory", "[", "]"}]], "Input",
- CellLabel->"In[1]:=",ExpressionUUID->"434d697a-deb0-4a5c-aa7e-519de6be803e"],
-
-Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
- CellChangeTimes->{3.800779653178803*^9, 3.800798370542808*^9, 
-  3.80087728310767*^9},
- CellLabel->"Out[1]=",ExpressionUUID->"307b11be-c4c5-4b92-ba92-0cbd27bd321c"]
-}, Open  ]],
-
 Cell[BoxData[{
  RowBox[{
   RowBox[{
@@ -79,7 +119,7 @@ Cell[BoxData[{
  RowBox[{"<<", "RDown.m"}]}], "Code",
  CellChangeTimes->{{3.799119881021441*^9, 3.799119911381034*^9}, {
   3.80077965736977*^9, 3.800779661525262*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"c0db8e74-dd80-42af-a468-91ff88fda5e0"]
+ CellLabel->"In[59]:=",ExpressionUUID->"c0db8e74-dd80-42af-a468-91ff88fda5e0"]
 }, Closed]],
 
 Cell[CellGroupData[{
@@ -142,8 +182,9 @@ Cell[BoxData["\<\"~/SVN/PhenomHM/bin/\"\>"], "Output",
    3.800768545847682*^9, {3.8007686026266613`*^9, 3.800768629157496*^9}, {
    3.800768661872264*^9, 3.800768687327259*^9}, {3.8007688098161287`*^9, 
    3.800768830637623*^9}, 3.800768867738014*^9, 3.8007800646040297`*^9, 
-   3.800798370623711*^9, 3.800877288176547*^9},
- CellLabel->"Out[4]=",ExpressionUUID->"76752981-fe0f-4f3b-b209-b08d89edde3e"],
+   3.800798370623711*^9, 3.800877288176547*^9, 3.801281244894533*^9, 
+   3.801285594323536*^9},
+ CellLabel->"Out[4]=",ExpressionUUID->"b22470eb-02d0-49a0-9ebe-2d5ee277609d"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
  CellChangeTimes->{
@@ -163,8 +204,9 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
    3.800768545847682*^9, {3.8007686026266613`*^9, 3.800768629157496*^9}, {
    3.800768661872264*^9, 3.800768687327259*^9}, {3.8007688098161287`*^9, 
    3.800768830637623*^9}, 3.800768867738014*^9, 3.8007800646040297`*^9, 
-   3.800798370623711*^9, 3.8008772882342567`*^9},
- CellLabel->"Out[5]=",ExpressionUUID->"5e8def03-68d7-46ee-a5f2-f2e515f338b8"],
+   3.800798370623711*^9, 3.800877288176547*^9, 3.801281244894533*^9, 
+   3.801285594367681*^9},
+ CellLabel->"Out[5]=",ExpressionUUID->"d929953a-9f0f-4469-b929-6c7a91065822"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject\"\>"], "Output",
  CellChangeTimes->{
@@ -184,8 +226,9 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject\"\>"], "Output",
    3.800768545847682*^9, {3.8007686026266613`*^9, 3.800768629157496*^9}, {
    3.800768661872264*^9, 3.800768687327259*^9}, {3.8007688098161287`*^9, 
    3.800768830637623*^9}, 3.800768867738014*^9, 3.8007800646040297`*^9, 
-   3.800798370623711*^9, 3.80087728823481*^9},
- CellLabel->"Out[6]=",ExpressionUUID->"3a3b599b-a18f-4743-be5b-070c446f1783"],
+   3.800798370623711*^9, 3.800877288176547*^9, 3.801281244894533*^9, 
+   3.801285594369738*^9},
+ CellLabel->"Out[6]=",ExpressionUUID->"34857bb2-81d5-4976-8427-725e823a2e23"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
  CellChangeTimes->{
@@ -205,8 +248,9 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
    3.800768545847682*^9, {3.8007686026266613`*^9, 3.800768629157496*^9}, {
    3.800768661872264*^9, 3.800768687327259*^9}, {3.8007688098161287`*^9, 
    3.800768830637623*^9}, 3.800768867738014*^9, 3.8007800646040297`*^9, 
-   3.800798370623711*^9, 3.800877288235284*^9},
- CellLabel->"Out[7]=",ExpressionUUID->"7f978119-fafd-4f93-a323-67205e29759c"],
+   3.800798370623711*^9, 3.800877288176547*^9, 3.801281244894533*^9, 
+   3.8012855943720284`*^9},
+ CellLabel->"Out[7]=",ExpressionUUID->"8bf4bc2d-6b61-4b29-af72-feec007fcbf1"],
 
 Cell[BoxData["False"], "Output",
  CellChangeTimes->{
@@ -226,8 +270,9 @@ Cell[BoxData["False"], "Output",
    3.800768545847682*^9, {3.8007686026266613`*^9, 3.800768629157496*^9}, {
    3.800768661872264*^9, 3.800768687327259*^9}, {3.8007688098161287`*^9, 
    3.800768830637623*^9}, 3.800768867738014*^9, 3.8007800646040297`*^9, 
-   3.800798370623711*^9, 3.8008772882357492`*^9},
- CellLabel->"Out[9]=",ExpressionUUID->"22a4b0bf-1ce7-481e-b930-a9d812921560"]
+   3.800798370623711*^9, 3.800877288176547*^9, 3.801281244894533*^9, 
+   3.8012855943743057`*^9},
+ CellLabel->"Out[9]=",ExpressionUUID->"1c611b57-a301-4628-85a1-1e165c627a85"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -280,8 +325,8 @@ Cell[BoxData[
    3.800089495187615*^9, 3.800089595616612*^9, 3.800148380233251*^9, 
    3.800539327345366*^9, 3.800610134971425*^9, 3.800705385664913*^9, 
    3.80070556987372*^9, 3.800768504913447*^9, 3.800798370679039*^9, 
-   3.8008772883571987`*^9},
- CellLabel->"Out[10]=",ExpressionUUID->"6076304b-3db0-4ad7-bb05-2b71dd87838b"],
+   3.8008772883571987`*^9, 3.801281244944542*^9, 3.801285594509903*^9},
+ CellLabel->"Out[10]=",ExpressionUUID->"82aa4ab5-c4b4-4e57-a259-ab5cdf2b9b98"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1000,8 +1045,8 @@ Cell[BoxData[
    3.800089495187615*^9, 3.800089595616612*^9, 3.800148380233251*^9, 
    3.800539327345366*^9, 3.800610134971425*^9, 3.800705385664913*^9, 
    3.80070556987372*^9, 3.800768504913447*^9, 3.800798370679039*^9, 
-   3.800877288412117*^9},
- CellLabel->"Out[11]=",ExpressionUUID->"58038b39-53a9-43fb-96d8-c52587d51343"]
+   3.8008772883571987`*^9, 3.801281244944542*^9, 3.801285594517131*^9},
+ CellLabel->"Out[11]=",ExpressionUUID->"3221535c-1aee-45db-91d1-bb38d6706e7a"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1087,10 +1132,10 @@ Cell[BoxData[
    3.800539327409664*^9, 3.800610135027302*^9, {3.800705393026619*^9, 
    3.80070542349475*^9}, 3.800705453698702*^9, 3.800705571388936*^9, 
    3.8007685050157413`*^9, 3.800768554107126*^9, 3.800798370780326*^9, 
-   3.800877288446906*^9},
+   3.800877288446906*^9, 3.80128124512236*^9, 3.801285594545373*^9},
  CellLabel->
-  "Out[15]//TableForm=",ExpressionUUID->"08ba37ac-13f8-453d-b1c1-\
-9ba4ce8997e8"]
+  "Out[15]//TableForm=",ExpressionUUID->"8bce7a46-c6ef-4298-855e-\
+3b538151156c"]
 }, Open  ]]
 }, Closed]],
 
@@ -1162,8 +1207,9 @@ Cell[BoxData[
    3.800089495286881*^9, 3.8000895957875338`*^9, 3.800148405131915*^9, 
    3.8005393274512577`*^9, 3.800610135067175*^9, {3.8007055927643967`*^9, 
    3.800705597451972*^9}, 3.8007685050277653`*^9, 3.80076873618252*^9, 
-   3.800798370791799*^9, 3.800877288496365*^9},
- CellLabel->"Out[17]=",ExpressionUUID->"ed4cd045-457c-429b-8540-025fee9c877a"]
+   3.800798370791799*^9, 3.800877288496365*^9, 3.801281245175295*^9, 
+   3.801285597577703*^9},
+ CellLabel->"Out[17]=",ExpressionUUID->"55a63f6a-4da5-4a76-a415-fb26540298ad"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1231,8 +1277,9 @@ Cell[BoxData[
    3.800089595851823*^9, 3.800148405206428*^9, 3.800539327493127*^9, 
    3.800610135108379*^9, 3.8007055994616632`*^9, 3.8007685050622683`*^9, 
    3.800768736245232*^9, {3.800768841340745*^9, 3.800768873828692*^9}, 
-   3.800798370835478*^9, 3.800877288561569*^9},
- CellLabel->"Out[19]=",ExpressionUUID->"f31553ef-f019-4035-9d1f-d587221007ce"]
+   3.800798370835478*^9, 3.800877288561569*^9, 3.801281245216522*^9, 
+   3.801285597638463*^9},
+ CellLabel->"Out[19]=",ExpressionUUID->"a10e722b-41cf-422e-a5ab-5d30498c2450"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1263,1053 +1310,2492 @@ Cell["Function for spheroidal", "Subsubsection",
   3.800768223783148*^9}},ExpressionUUID->"75f4f4c2-1d45-4fea-8f7c-\
 c032cd62cda3"],
 
-Cell[BoxData[
- RowBox[{
-  RowBox[{"spheroidalKerr", "[", 
-   RowBox[{"s_", ",", "l_", ",", "m_", ",", "a_"}], "]"}], ":=", 
-  RowBox[{"Block", "[", 
-   RowBox[{
-    RowBox[{"{", 
-     RowBox[{
-     "\[Chi]", ",", "\[Alpha]\[Theta]", ",", "\[Beta]\[Theta]", ",", 
-      "\[Gamma]\[Theta]", ",", "\[Alpha]r", ",", "\[Beta]r", ",", "\[Gamma]r",
-       ",", "A", ",", "A0", ",", "\[Omega]", ",", "\[Omega]0", ",", 
-      RowBox[{"N", "=", "100"}], ",", "n", ",", "f\[Theta]", ",", "fr", ",", 
-      "y", ",", "x", ",", "c", ",", "slm", ",", "ap", ",", "ap0", ",", "j", 
-      ",", "z", ",", "Eq\[Theta]", ",", "Eqr", ",", "\[Delta]z", ",", "\n", 
-      "zmax", ",", "c0", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "b",
-       ",", "nit", ",", "jump", ",", "na", ",", "\[Delta]a", ",", "k", ",", 
-      "km", ",", "kp"}], "}"}], ",", "\n", "\n", 
-    RowBox[{
-     RowBox[{"\[Omega]0", " ", "=", " ", 
-      RowBox[{"2", "*", 
-       RowBox[{"(", 
-        RowBox[{"0.37", " ", "-", 
-         RowBox[{"0.08", " ", "I"}]}], ")"}]}]}], ";", "\n", 
-     RowBox[{"c", " ", "=", " ", 
-      RowBox[{"\[Chi]", " ", "\[Omega]"}]}], ";", "\n", "\n", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"km", ",", "kp"}], "}"}], " ", "=", " ", 
-      RowBox[{
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"Abs", "[", 
-          RowBox[{"m", "-", "s"}], "]"}], ",", 
-         RowBox[{"Abs", "[", 
-          RowBox[{"m", "+", "s"}], "]"}]}], "}"}], "/", "2"}]}], ";", "\n", 
-     "\n", 
-     RowBox[{"\[Alpha]\[Theta]", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"-", "2"}], 
-         RowBox[{"(", 
-          RowBox[{"p", "+", "1"}], ")"}], 
-         RowBox[{"(", 
-          RowBox[{"p", "+", 
-           RowBox[{"2", " ", "km"}], "+", "1"}], ")"}]}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", 
-     RowBox[{"\[Beta]\[Theta]", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"p", 
-          RowBox[{"(", 
-           RowBox[{"p", "-", "1"}], ")"}]}], "+", 
-         RowBox[{"2", "p", 
-          RowBox[{"(", 
-           RowBox[{"km", "+", "kp", "+", "1", "-", 
-            RowBox[{"2", "c"}]}], ")"}]}], "-", 
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"2", "c", 
-            RowBox[{"(", 
-             RowBox[{
-              RowBox[{"2", " ", "km"}], "+", "s", "+", "1"}], ")"}]}], "-", 
-           RowBox[{
-            RowBox[{"(", 
-             RowBox[{"km", "+", "kp"}], ")"}], 
-            RowBox[{"(", 
-             RowBox[{"km", "+", "kp", "+", "1"}], ")"}]}]}], ")"}], "-", 
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"c", "^", "2"}], "+", 
-           RowBox[{"s", 
-            RowBox[{"(", 
-             RowBox[{"s", "+", "1"}], ")"}]}], "+", "A"}], ")"}]}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", 
-     RowBox[{"\[Gamma]\[Theta]", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{"2", "c", 
-         RowBox[{"(", 
-          RowBox[{"p", "+", "km", "+", "kp", "+", "s"}], ")"}]}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"b", " ", "=", " ", 
-      RowBox[{"Sqrt", "[", 
-       RowBox[{"1", "-", 
-        RowBox[{"4", " ", 
-         RowBox[{"\[Chi]", "^", "2"}]}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"c0", " ", "=", " ", 
-      RowBox[{"1", "-", "s", "-", 
-       RowBox[{"I", " ", "\[Omega]"}], " ", "-", 
-       RowBox[{"2", " ", 
-        RowBox[{"I", "/", "b"}], 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"\[Omega]", "/", "2"}], " ", "-", " ", 
-          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
-     RowBox[{"c1", " ", "=", " ", 
-      RowBox[{
-       RowBox[{"-", "4"}], "+", 
-       RowBox[{"2", "I", " ", "\[Omega]", 
-        RowBox[{"(", 
-         RowBox[{"2", "+", "b"}], ")"}]}], "+", 
-       RowBox[{"4", 
-        RowBox[{"I", "/", "b"}], 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"\[Omega]", "/", "2"}], "-", 
-          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
-     RowBox[{"c2", " ", "=", " ", 
-      RowBox[{"s", "+", "3", "-", 
-       RowBox[{"3", " ", "I", " ", "\[Omega]"}], "-", 
-       RowBox[{"2", 
-        RowBox[{"I", "/", "b"}], 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"\[Omega]", "/", "2"}], "-", 
-          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
-     RowBox[{"c3", " ", "=", " ", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"\[Omega]", "^", "2"}], " ", 
-        RowBox[{"(", 
-         RowBox[{"4.", "+", 
-          RowBox[{"2", "b"}], "-", 
-          RowBox[{"\[Chi]", "^", "2"}]}], ")"}]}], "-", 
-       RowBox[{"2", "\[Chi]", " ", "m", " ", "\[Omega]"}], "-", "s", "-", "1",
-        "+", 
-       RowBox[{
-        RowBox[{"(", 
-         RowBox[{"2", "+", "b"}], ")"}], "I", " ", "\[Omega]"}], "-", " ", 
-       "A", "+", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"4", "\[Omega]"}], "+", 
-           RowBox[{"2", "I"}]}], ")"}], "/", "b"}], 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"\[Omega]", "/", "2"}], "-", 
-          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
-     RowBox[{"c4", " ", "=", " ", 
-      RowBox[{"s", "+", "1", "-", 
-       RowBox[{"2", 
-        RowBox[{"\[Omega]", "^", "2"}]}], "-", 
-       RowBox[{
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"2", "s"}], "+", "3"}], ")"}], "I", " ", "\[Omega]"}], "-", 
-       
-       RowBox[{
-        RowBox[{
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"4", "\[Omega]"}], "+", 
-           RowBox[{"2", "I"}]}], ")"}], "/", "b"}], 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"\[Omega]", "/", "2"}], "-", 
-          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", "\n", 
-     RowBox[{"\[Alpha]r", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"p", "^", "2"}], "+", 
-         RowBox[{
-          RowBox[{"(", 
-           RowBox[{"c0", "+", "1"}], ")"}], "p"}], "+", "c0"}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"\[Beta]r", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{
-          RowBox[{"-", "2"}], " ", 
-          RowBox[{"p", "^", "2"}]}], "+", 
-         RowBox[{
-          RowBox[{"(", 
-           RowBox[{"c1", "+", "2"}], ")"}], "p"}], "+", "c3"}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"\[Gamma]r", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"p", "^", "2"}], "+", 
-         RowBox[{
-          RowBox[{"(", 
-           RowBox[{"c2", "-", "3"}], ")"}], "p"}], "+", "c4", "-", "c2", "+", 
-         "2"}], ",", 
-        RowBox[{"{", 
-         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n",
-      "\n", 
-     RowBox[{
-      RowBox[{"f\[Theta]", "[", 
-       RowBox[{"y_", ",", 
-        RowBox[{"{", 
-         RowBox[{
-         "\[Alpha]\[Theta]_", ",", "\[Gamma]\[Theta]_", ",", 
-          "\[Beta]\[Theta]_"}], "}"}]}], "]"}], ":=", 
-      RowBox[{"\[Gamma]\[Theta]", "/", 
-       RowBox[{"(", 
-        RowBox[{"\[Beta]\[Theta]", "-", 
-         RowBox[{"\[Alpha]\[Theta]", " ", "y"}]}], ")"}]}]}], ";", "\n", 
-     RowBox[{
-      RowBox[{"Eq\[Theta]", "[", 
-       RowBox[{"\[Chi]_", ",", "A_", ",", "\[Omega]_"}], "]"}], "=", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"\[Beta]\[Theta]", "[", 
-         RowBox[{"[", "1", "]"}], "]"}], "/", 
-        RowBox[{"\[Alpha]\[Theta]", "[", 
-         RowBox[{"[", "1", "]"}], "]"}]}], "-", 
-       RowBox[{"Fold", "[", 
-        RowBox[{"f\[Theta]", ",", 
-         RowBox[{
-          RowBox[{"Last", "@", "\[Gamma]\[Theta]"}], "/", 
-          RowBox[{"Last", "@", "\[Beta]\[Theta]"}]}], ",", 
-         RowBox[{"Reverse", "@", 
-          RowBox[{"Most", "@", 
-           RowBox[{"Transpose", "@", 
-            RowBox[{"{", 
-             RowBox[{
-              RowBox[{"\[Alpha]\[Theta]", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
-              RowBox[{"\[Gamma]\[Theta]", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
-              RowBox[{"\[Beta]\[Theta]", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}]}]}]}]}], 
-        "]"}]}]}], ";", "\n", "\n", "\n", "\n", 
-     RowBox[{
-      RowBox[{"fr", "[", 
-       RowBox[{"y_", ",", 
-        RowBox[{"{", 
-         RowBox[{"\[Alpha]r_", ",", "\[Gamma]r_", ",", "\[Beta]r_"}], "}"}]}],
-        "]"}], ":=", " ", 
-      RowBox[{"\[Gamma]r", "/", 
-       RowBox[{"(", 
-        RowBox[{"\[Beta]r", "-", 
-         RowBox[{"\[Alpha]r", " ", "y"}]}], ")"}]}]}], ";", "\n", 
-     RowBox[{
-      RowBox[{"Eqr", "[", 
-       RowBox[{"\[Chi]_", ",", "A_", ",", "\[Omega]_"}], "]"}], "=", 
-      RowBox[{
-       RowBox[{
-        RowBox[{"\[Beta]r", "[", 
-         RowBox[{"[", "1", "]"}], "]"}], "/", 
-        RowBox[{"\[Alpha]r", "[", 
-         RowBox[{"[", "1", "]"}], "]"}]}], "-", 
-       RowBox[{"Fold", "[", 
-        RowBox[{"fr", ",", 
-         RowBox[{
-          RowBox[{"Last", "@", "\[Gamma]r"}], "/", 
-          RowBox[{"Last", "@", "\[Beta]r"}]}], ",", 
-         RowBox[{"Reverse", "@", 
-          RowBox[{"Most", "@", 
-           RowBox[{"Transpose", "@", 
-            RowBox[{"{", 
-             RowBox[{
-              RowBox[{"\[Alpha]r", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
-              RowBox[{"\[Gamma]r", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
-              RowBox[{"\[Beta]r", "[", 
-               RowBox[{"[", 
-                RowBox[{"2", ";;", 
-                 RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}]}]}]}]}], 
-        "]"}]}]}], ";", "\n", "\n", 
-     RowBox[{"For", "[", 
-      RowBox[{
-       RowBox[{"j", "=", "2"}], ",", 
-       RowBox[{"j", "<=", "l"}], ",", 
-       RowBox[{"j", "++"}], ",", "\n", " ", 
-       RowBox[{
-        RowBox[{"A0", " ", "=", " ", 
-         RowBox[{
-          RowBox[{"j", 
-           RowBox[{"(", 
-            RowBox[{"j", "+", "1"}], ")"}]}], "-", 
-          RowBox[{"s", 
-           RowBox[{"(", 
-            RowBox[{"s", "+", "1"}], ")"}]}]}]}], ";", "\n", " ", 
-        RowBox[{"\[Omega]0", " ", "=", " ", 
-         RowBox[{
-          RowBox[{"FindRoot", "[", 
-           RowBox[{
-            RowBox[{"Eqr", "[", 
-             RowBox[{"0", ",", "A0", ",", "\[Omega]"}], "]"}], ",", 
-            RowBox[{"{", 
-             RowBox[{"\[Omega]", ",", 
-              RowBox[{"\[Omega]0", "/", "2"}], ",", 
-              RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}], "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "\n", "\n", 
-      "]"}], ";", "\n", "\n", 
-     RowBox[{"If", "[", 
-      RowBox[{
-       RowBox[{"a", "==", "0"}], ",", "\n", "\n", " ", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"{", 
-          RowBox[{"A", ",", "\[Omega]"}], "}"}], " ", "=", " ", 
-         RowBox[{"x", " ", "=", " ", 
-          RowBox[{"{", 
-           RowBox[{"A0", ",", "\[Omega]0"}], "}"}]}]}], ";", "\n", "\n", " ", 
-        
-        RowBox[{"Goto", "[", "jump", "]"}]}]}], "\n", "\n", "]"}], ";", "\n", 
-     "\n", 
-     RowBox[{"na", " ", "=", " ", "40"}], ";", "\n", 
-     RowBox[{"\[Delta]a", " ", "=", " ", 
-      RowBox[{
-       RowBox[{"a", "/", "2"}], "/", "na"}]}], ";", "\n", "\n", 
-     RowBox[{"For", "[", 
-      RowBox[{
-       RowBox[{"j", "=", "1"}], ",", 
-       RowBox[{"j", "<=", "na"}], ",", 
-       RowBox[{
-        RowBox[{"j", "++"}], ";", "\t", "\n", "  ", 
-        RowBox[{"\[Omega]0", " ", "=", " ", 
-         RowBox[{
-          RowBox[{"FindRoot", "[", 
-           RowBox[{
-            RowBox[{"Eqr", "[", 
-             RowBox[{
-              RowBox[{"j", " ", "\[Delta]a"}], ",", "A0", ",", "\[Omega]"}], 
-             "]"}], ",", 
-            RowBox[{"{", 
-             RowBox[{"\[Omega]", ",", "\[Omega]0", ",", 
-              RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}], "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "  ", 
-        RowBox[{"A0", " ", "=", " ", 
-         RowBox[{
-          RowBox[{"FindRoot", "[", 
-           RowBox[{
-            RowBox[{"Eq\[Theta]", "[", 
-             RowBox[{
-              RowBox[{"j", " ", "\[Delta]a"}], ",", "A", ",", "\[Omega]0"}], 
-             "]"}], ",", 
-            RowBox[{"{", 
-             RowBox[{"A", ",", "A0", ",", 
-              RowBox[{"2", "A0"}]}], "}"}]}], "]"}], "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "\n", "]"}], ";",
-      "\n", "\n", 
-     RowBox[{"nit", " ", "=", " ", "10"}], ";", "\n", 
-     RowBox[{"x", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{
-        RowBox[{"{", 
-         RowBox[{"0", ",", "0"}], "}"}], ",", 
-        RowBox[{"{", 
-         RowBox[{"j", ",", "1", ",", "nit"}], "}"}]}], "]"}]}], ";", "\n", 
-     "\n", 
-     RowBox[{
-      RowBox[{"x", "[", 
-       RowBox[{"[", 
-        RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "=", " ", "A0"}], ";", 
-     "\n", 
-     RowBox[{
-      RowBox[{"x", "[", 
-       RowBox[{"[", 
-        RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "=", " ", "\[Omega]0"}], 
-     ";", "\n", "\n", 
-     RowBox[{"For", "[", 
-      RowBox[{
-       RowBox[{"j", "=", "2"}], ",", 
-       RowBox[{"j", "<=", "nit"}], ",", 
-       RowBox[{"j", "++"}], ",", "\n", "\t", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
-         RowBox[{
-          RowBox[{"FindRoot", "[", 
-           RowBox[{
-            RowBox[{"Eqr", "[", 
-             RowBox[{
-              RowBox[{"a", "/", "2"}], ",", "A0", ",", "\[Omega]"}], "]"}], 
-            ",", 
-            RowBox[{"{", 
-             RowBox[{"\[Omega]", ",", "\[Omega]0", ",", 
-              RowBox[{"2", "\[Omega]0"}]}], "}"}], ",", 
-            RowBox[{"PrecisionGoal", "->", "8"}], ",", 
-            RowBox[{"AccuracyGoal", "->", "8"}]}], "]"}], "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
-        RowBox[{"\[Omega]0", " ", "=", " ", 
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
-        "\t", 
-        RowBox[{
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "1"}], "]"}], "]"}], " ", "=", " ", 
-         RowBox[{
-          RowBox[{"FindRoot", "[", 
-           RowBox[{
-            RowBox[{"Eq\[Theta]", "[", 
-             RowBox[{
-              RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]0"}], "]"}], 
-            ",", 
-            RowBox[{"{", 
-             RowBox[{"A", ",", "A0", ",", 
-              RowBox[{"2", "A0"}]}], "}"}], ",", 
-            RowBox[{"PrecisionGoal", "->", "8"}], ",", 
-            RowBox[{"AccuracyGoal", "->", "8"}]}], "]"}], "[", 
-          RowBox[{"[", 
-           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
-        RowBox[{"A0", " ", "=", " ", 
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
-        "\t", 
-        RowBox[{"\[Omega]0", " ", "=", " ", 
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
-        RowBox[{"A0", " ", "=", " ", 
-         RowBox[{"x", "[", 
-          RowBox[{"[", 
-           RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ";"}]}], "\n", "\n", 
-      "]"}], ";", "\n", "\n", 
-     RowBox[{"A", " ", "=", " ", 
-      RowBox[{"x", "[", 
-       RowBox[{"[", 
-        RowBox[{"nit", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
-     RowBox[{"\[Omega]", " ", "=", " ", 
-      RowBox[{"x", "[", 
-       RowBox[{"[", 
-        RowBox[{"nit", ",", "2"}], "]"}], "]"}]}], ";", "\n", 
-     RowBox[{"Label", "[", "jump", "]"}], ";", "\n", "\n", 
-     RowBox[{"If", "[", 
-      RowBox[{
-       RowBox[{
-        RowBox[{
-         RowBox[{"Abs", "[", 
-          RowBox[{"Eqr", "[", 
-           RowBox[{
-            RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]"}], "]"}], 
-          "]"}], " ", ">", " ", 
-         RowBox[{"10", "^", 
-          RowBox[{"-", "8"}]}]}], " ", "\[Or]", " ", 
-        RowBox[{
-         RowBox[{"Abs", "[", 
-          RowBox[{"Eq\[Theta]", "[", 
-           RowBox[{
-            RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]"}], "]"}], 
-          "]"}], " ", ">", " ", 
-         RowBox[{"10", "^", 
-          RowBox[{"-", "8"}]}]}]}], ",", " ", 
-       RowBox[{"Print", "[", "\"\<Root search failed\>\"", "]"}]}], "]"}], 
-     ";", "\n", "\n", 
-     RowBox[{"Print", "[", 
-      RowBox[{
-      "\"\<\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(lm\\)]\\) = \>\"", ",", 
-       RowBox[{"\[Omega]", "/", "2"}], ",", 
-       "\"\< - \\!\\(\\*SubscriptBox[\\(A\\), \\(lm\\)]\\) = \>\"", ",", 
-       "A"}], "]"}], ";", "\n", "\n", 
-     RowBox[{"\[Chi]", " ", "=", " ", 
-      RowBox[{"a", "/", "2"}]}], ";", "\n", "\n", 
-     RowBox[{"ap", " ", "=", " ", 
-      RowBox[{"Table", "[", 
-       RowBox[{"0", ",", 
-        RowBox[{"{", 
-         RowBox[{"j", ",", "1", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"ap0", " ", "=", " ", "1"}], ";", "\n", 
-     RowBox[{
-      RowBox[{"ap", "[", 
-       RowBox[{"[", "1", "]"}], "]"}], "=", 
-      RowBox[{"-", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"(", 
-          RowBox[{"ap0", " ", 
-           RowBox[{"\[Beta]\[Theta]", "[", 
-            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
-         RowBox[{"\[Alpha]\[Theta]", "[", 
-          RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
-     RowBox[{
-      RowBox[{"ap", "[", 
-       RowBox[{"[", "2", "]"}], "]"}], "=", 
-      RowBox[{
-       RowBox[{"-", 
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"\[Beta]\[Theta]", "[", 
-             RowBox[{"[", "2", "]"}], "]"}], 
-            RowBox[{"ap", "[", 
-             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
-          RowBox[{"\[Alpha]\[Theta]", "[", 
-           RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "-", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"\[Gamma]\[Theta]", "[", 
-          RowBox[{"[", "2", "]"}], "]"}], "/", 
-         RowBox[{"\[Alpha]\[Theta]", "[", 
-          RowBox[{"[", "2", "]"}], "]"}]}], " ", "ap0"}]}]}], ";", "\n", "\n", 
-     RowBox[{"For", "[", 
-      RowBox[{
-       RowBox[{"j", "=", "3"}], ",", 
-       RowBox[{"j", "<=", "N"}], ",", 
-       RowBox[{"j", "++"}], ",", "\n", "\t", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"ap", "[", 
-          RowBox[{"[", "j", "]"}], "]"}], "=", 
-         RowBox[{
-          RowBox[{"-", 
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{"(", 
-              RowBox[{
-               RowBox[{"\[Beta]\[Theta]", "[", 
-                RowBox[{"[", "j", "]"}], "]"}], 
-               RowBox[{"ap", "[", 
-                RowBox[{"[", 
-                 RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}], "/", 
-             RowBox[{"\[Alpha]\[Theta]", "[", 
-              RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}], "-", 
-          RowBox[{
-           RowBox[{
-            RowBox[{"\[Gamma]\[Theta]", "[", 
-             RowBox[{"[", "j", "]"}], "]"}], "/", 
-            RowBox[{"\[Alpha]\[Theta]", "[", 
-             RowBox[{"[", "j", "]"}], "]"}]}], " ", 
-           RowBox[{"ap", "[", 
-            RowBox[{"[", 
-             RowBox[{"j", "-", "2"}], "]"}], "]"}]}]}]}], ";"}]}], "\n", 
-      "]"}], ";", "\n", "\n", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"zmax", ",", "\[Delta]z"}], "}"}], " ", "=", " ", 
-      RowBox[{"{", 
-       RowBox[{"1", ",", "0.001"}], "}"}]}], ";", "\n", "\n", 
-     RowBox[{"slm", " ", "=", " ", 
-      RowBox[{"Interpolation", "[", 
-       RowBox[{
-        RowBox[{"Join", "[", 
-         RowBox[{
-          RowBox[{"{", 
-           RowBox[{"{", 
-            RowBox[{
-             RowBox[{"-", "1"}], ",", "0"}], "}"}], "}"}], ",", 
-          RowBox[{"Table", "[", 
-           RowBox[{
-            RowBox[{"{", 
-             RowBox[{"z", ",", 
-              RowBox[{
-               RowBox[{"Exp", "[", 
-                RowBox[{"\[Chi]", " ", "\[Omega]", " ", "z"}], "]"}], 
-               RowBox[{
-                RowBox[{"(", 
-                 RowBox[{"1", "+", "z"}], ")"}], "^", "km"}], " ", 
-               RowBox[{
-                RowBox[{"(", 
-                 RowBox[{"1", "-", "z"}], ")"}], "^", "kp"}], " ", 
-               RowBox[{"(", 
-                RowBox[{"ap0", "+", 
-                 RowBox[{
-                  SubsuperscriptBox["\[Sum]", 
-                   RowBox[{"p", "=", "1"}], 
-                   RowBox[{"p", "=", "N"}]], 
-                  RowBox[{
-                   SuperscriptBox[
-                    RowBox[{"(", 
-                    RowBox[{"1", "+", "z"}], ")"}], "p"], 
-                   RowBox[{"ap", "[", 
-                    RowBox[{"[", "p", "]"}], "]"}]}]}]}], ")"}]}]}], "}"}], 
-            ",", 
-            RowBox[{"{", 
-             RowBox[{"z", ",", 
-              RowBox[{
-               RowBox[{"-", "zmax"}], "+", "\[Delta]z"}], ",", 
-              RowBox[{"zmax", "-", "\[Delta]z"}], ",", "\[Delta]z"}], "}"}]}],
-            "]"}], ",", 
-          RowBox[{"{", 
-           RowBox[{"{", 
-            RowBox[{"1", ",", "0"}], "}"}], "}"}]}], "]"}], ",", 
-        RowBox[{"InterpolationOrder", "->", "1"}]}], "]"}]}], ";", "\n", "\n", 
-     RowBox[{"Return", "[", 
-      RowBox[{"{", 
-       RowBox[{
-        RowBox[{"\[Omega]", "/", "2"}], ",", "A", ",", "slm"}], "}"}], "]"}], 
-     ";"}]}], "\n", "\n", "]"}]}]], "Code",
- CellChangeTimes->{{3.800609954997334*^9, 3.800609955096204*^9}, {
-  3.8006129595182*^9, 3.800612968958662*^9}, {3.800613001048279*^9, 
-  3.800613001327029*^9}, {3.800613056344836*^9, 3.8006130605527678`*^9}, {
-  3.800622761472427*^9, 3.8006227881895447`*^9}, {3.800622834381419*^9, 
-  3.800622837241871*^9}, {3.800622869346333*^9, 3.800622871784247*^9}, {
-  3.800683121425983*^9, 3.800683187396463*^9}, {3.800683389207118*^9, 
-  3.800683389458261*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"5a9f05b6-09a5-4d65-885d-d0bddc799238"]
-}, Closed]],
-
-Cell[CellGroupData[{
-
-Cell["Tests", "Subsubsection",
- CellChangeTimes->{{3.800768232063011*^9, 
-  3.800768232689954*^9}},ExpressionUUID->"2ca398aa-46d6-4829-ae43-\
-f97a51bae77e"],
-
 Cell[CellGroupData[{
 
-Cell[BoxData[
- RowBox[{"Vl", "=", 
-  RowBox[{
-   RowBox[{"(", 
-    RowBox[{"1", "-", 
-     RowBox[{"2", "/", "r"}]}], ")"}], 
-   FractionBox[
-    RowBox[{
-     RowBox[{"2", " ", 
-      RowBox[{"n", "^", "2"}], 
-      RowBox[{"(", 
-       RowBox[{"n", "+", "1"}], ")"}], 
-      RowBox[{"r", "^", "3"}]}], "+", 
-     RowBox[{"6", 
-      RowBox[{"n", "^", "2"}], " ", 
-      RowBox[{"r", "^", "2"}]}], "+", 
-     RowBox[{"18", " ", "n", " ", "r"}], " ", "+", "18"}], 
-    RowBox[{
-     RowBox[{"r", "^", "3"}], 
-     RowBox[{
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"n", " ", "r"}], " ", "+", "3"}], ")"}], "^", 
-      "2"}]}]]}]}]], "Input",
- CellChangeTimes->{{3.800878075488574*^9, 3.800878129589302*^9}},
- CellLabel->"In[56]:=",ExpressionUUID->"cd4b5c8b-1306-47aa-bc1e-5ff2bf2d8734"],
-
-Cell[BoxData[
- FractionBox[
+Cell[BoxData[{
+ RowBox[{"spheroidalKerr", "[", 
   RowBox[{
-   RowBox[{"(", 
-    RowBox[{"1", "-", 
-     FractionBox["2", "r"]}], ")"}], " ", 
-   RowBox[{"(", 
-    RowBox[{"18", "+", 
-     RowBox[{"18", " ", "n", " ", "r"}], "+", 
-     RowBox[{"6", " ", 
-      SuperscriptBox["n", "2"], " ", 
-      SuperscriptBox["r", "2"]}], "+", 
-     RowBox[{"2", " ", 
-      SuperscriptBox["n", "2"], " ", 
-      RowBox[{"(", 
-       RowBox[{"1", "+", "n"}], ")"}], " ", 
-      SuperscriptBox["r", "3"]}]}], ")"}]}], 
+   RowBox[{"-", "2"}], ",", "2", ",", 
+   RowBox[{"-", "2"}], ",", "0.7"}], "]"}], "\[IndentingNewLine]", 
+ RowBox[{"spheroidalKerr", "[", 
   RowBox[{
-   SuperscriptBox["r", "3"], " ", 
-   SuperscriptBox[
-    RowBox[{"(", 
-     RowBox[{"3", "+", 
-      RowBox[{"n", " ", "r"}]}], ")"}], "2"]}]]], "Output",
- CellChangeTimes->{{3.800878117838331*^9, 3.80087812992142*^9}},
- CellLabel->"Out[56]=",ExpressionUUID->"b8a9496d-16f4-4a7c-943d-6ee6206d86e1"]
-}, Open  ]],
-
-Cell[CellGroupData[{
+   RowBox[{"-", "2"}], ",", "2", ",", "2", ",", "0.7"}], "]"}]}], "Input",
+ CellChangeTimes->{{3.8012859685565*^9, 3.801286001906954*^9}},
+ CellLabel->"In[81]:=",ExpressionUUID->"e18f13bb-2435-4bb8-bd08-177c06415b58"],
 
 Cell[BoxData[
- RowBox[{"Vllr", "=", 
+ InterpretationBox[
   RowBox[{
-   RowBox[{"Vl", "/.", 
-    RowBox[{"n", "\[Rule]", "0."}]}], "/.", 
-   RowBox[{"r", "\[Rule]", "2.6"}]}]}]], "Input",
- CellChangeTimes->{{3.800878139214225*^9, 3.800878147642581*^9}, {
-  3.800878378552998*^9, 3.80087842935605*^9}, {3.800878473983798*^9, 
-  3.8008784782135353`*^9}},
- CellLabel->"In[70]:=",ExpressionUUID->"da9f8949-b1b3-43e9-9c57-cd1d59522241"],
-
-Cell[BoxData["0.02625958474843318`"], "Output",
- CellChangeTimes->{{3.800878141684196*^9, 3.800878148222644*^9}, {
-   3.80087838190257*^9, 3.800878429698842*^9}, 3.800878478779622*^9},
- CellLabel->"Out[70]=",ExpressionUUID->"f67796a4-ebef-424d-9fd1-308e78e5c59a"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Plot", "[", 
-  RowBox[{"Vllr", ",", 
-   RowBox[{"{", 
-    RowBox[{"r", ",", "2", ",", "10"}], "}"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.800878432735684*^9, 3.8008784422629642`*^9}},
- CellLabel->"In[69]:=",ExpressionUUID->"3b295aac-7ebc-46fc-9219-661b1f89fb19"],
-
-Cell[BoxData[
- GraphicsBox[{{{}, {}, 
-    TagBox[
-     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[CompressedData["
-1:eJwVlXk4Vd/3x+9wzr3iU2m4hsxd9a0PMjaq1tJARZMhddUVUpF5LkVEkWS6
-rntPk1LGooQmIdFAhlCRNPBJQoaSBsXv/P44z35ez97P2muv9V7vo+Xsbe3K
-YjAY7+nv/9emis88esEPej92VHy2W5nEeRPMIRmonObhWMgwgS1W9W3/yDJQ
-NC/4ZsSn1VD/qvCc8kwGptgJOa+KbeDpQOgc43kM1KtTtveydYEK1SkL925h
-oLzpvTUXJH4Q7sxI87Bj4E6TiZtdOf6wMvvrTz8BA3WYhDjgdgCUGr8qDd/D
-wKysf26J6oLg1ob0NdIQBq5WPbz4UOshyA8xsn2WzsD9hTayhGkEeJZplzRd
-YWDf4JUS34II0CUUldpyGZh/ucG6aHYk5CaMtX8sYuDbnx68h+QxuJJZ5TLx
-hIGZR2IDt5RFwdmWbf5GwwxUW7E932XsBMQahCZLzJhYqqG/l1ESDwEzY+fJ
-WTDxwO08y3r50yD8KS47YsXEv/HnRSL302BSUdjrbM/E4xmDB2aqJMDbzb2r
-9DyZ6CxkrZ6xJBGMvHd8eyBhIj8yT2gXlASqNvtiTc4z0Zy/Jlb+bBJwFwdq
-ZGUw0XT3qhLBgyR4M55oeSqficWZ9a7psslw/PSTjG1VTMxlx2dPkSTD62uL
-bfsGmfjB5VGa4EIKVCWt7d31nYkDBopXIspSoCDQ5mjjbyZmUL4PLDpSIGqF
-99VikoWsseyWImURLKjLJI6qsDDW2DlD57QIjvXzimdasHBRyCxq095U8Grk
-W56wYiHRJ7u1MTwVthcZfvi1lYVNH2/Wj0tSYcHhjZPf7WTh0qSc1a41qdAq
-F+2a48fCAemlfM/5YtDVGeGtPM/CxM5smNEmhvAzG8xsM1g4WtBwybFfDE1y
-Fz3cs1kYZxaf6zkhhpD+jQ/FhSxkLAt93aidBg+vZfkMPmKh6g3ztkqPNBAY
-ONSmD9L56Cab1wynwbX0G6MlIyzMmh/j6MOUAGOazOy6XyyMyr+68728BDKH
-i0J+sdkYtuJon4a+BIYLp8y1VmJj3Pojwf+6SSBmYeVRthkbh7bcedjULIH2
-K0pXlc3Z+CNBb+6m9xJYoOD9St+SjUcaMZXql0DLqMqCnXZsbJ483SybkILG
-7cD2Ijc2OpWfNLpkJAW/ec84tV5sVDpV5nJjhRSqJLONPvizMbk+tk20Tgru
-BxtiJoexcbG2rPrrXVIoWTZ/0d5kNv5d1Z29/7gUJuWFOx1OY+OLaN0M7UQp
-7FR5eSr5LBu7Gxw7b0mlwPwT2VWWyca87zPSXa9Kwer+m0TFe2yM5xKMngYp
-dEFi35MuNk7UunBeTKXA5EtNXHUPG4sVz26VVaTgOEXqVn5hozCtJVtNnYJ/
-vx/yuPeDjY4DBTnvdCjwyXX9ck2OQBn3OIW2tRRU2qfH58oTmPyl9hPHioIZ
-ZLteFo9AaytqGs+aghLHLV7pGgSaqcfFNu+i4O9M08FkYwLfunlefu9PwabK
-wISEJQSiukyr0kEK0r2v659aQWCvvvCkcRgFa2rm+ERbEMh7GOk/LYaCk+Hy
-w8EOBDau7fQLoih4o2uZFLCbwP+tO3Lv6XkK9F5HG/q6EriJWBXNzKCg0WTM
-192bzs/OI0UjjwLF3o9fdx4jcML+HKjepWB/mmbKjhgCNefGLaPuU3B3jYPx
-tngCv/g+SBuvoEB4odF/cxqBhUFGu0MfU3DdSm6m1VkCQ2UbV4hqKGD+Xlu0
-7iKB+74dcRbVUXDZ9t6IWR59v9ml3ZbNFIwyR0UrrxP4fUNpNuslBRYFBgtN
-iwm8yzDgXWqloHdSZqBJOYFFI+7GVAcFhuWJo3ObCexQXLItsJuCSI9aMb+V
-QPOKHan+PRS0KHMWa3YQqF06dM6hl4KQgNBg5U8Ebpz84cXnLxTUaJUoKvQT
-eL96t1viIAUqDUO3pg8T2Ol5+bTWMAVl8/f+lBsjcNucVdbECAXyr9IlMgwS
-Z1aFb932nQKnqPYlJEkiLNpwOWWUgkJDhTamLIkbwniHSn9QQLzbcnB8Colv
-rw4zn/+kYNupOOWxGSQqlca5P/9FQfbSR3d+KJFYtX9B5/3fFPzuZghG1EhM
-mPRQLB6jwFJk+ntoNolr9zQVO/yh4Mm7pPod80hcoZ4sVflLgblOz6VKPRIt
-A4zfV9H8MGhlsI4xiUMNgkr7cQqwUmQpWkJifZpOSAvNZZP7NP6uIPHn7vVL
-TScoMN1hNuK6msSFam3LT9F8+3Lak/p19H3mkXce07xo6MvZxZtIXMrx+fiF
-5puma3zTbUh8vtN6dJxmgxPU2kk7SBw3c9Qaozm/aUjZT0hiZLXNmU6addQt
-Bl67kHhLJ1BSTHO227nK1W4knuUmWwXQPLf4m/iqF4mftrL71GnOYGw4wAsg
-8eqRa5nFdL6aVukQdpB+TyyzcAnN59NGZ3wKI7FNfnxlNv1elS6rns1RJDJt
-DcIJmiULMkpvx5JoYV6csZGul8KhX4laCST2JS/rOEbXM6V6s+tJEYkmlyYc
-suh6y0/LXPpNSqL3mZebb9P9kMu27qy6TNfrfLdNBt2/mG/ZJXq5JH69mPvg
-CN1fDkycFBeQWO4vcTSn+894mWe8/y6J4Q+iOi99pSBMiyXzvJzEJItarcW0
-fsY8tr9ZWk3i1MS6tXdpfY2yyWi5RjoeLu+P76fAf7PDjoAXJPbfr61+S+tz
-iLqh1/GaxLRvQiONzxT0GQpf5n8kMXT7FS/vjxS8d7z1P+sxEoWdHqQ1rX9h
-3uQ/dxkclHsbIafdTkH7qEsjn8NBgxGDwW56Xl7Gyx/8Ls/Bx14tX6CFgtp7
-bjWSuRzsXyEvu5qex3XcivNMXQ5GH7c2S6fn9ZG1gr+7IQdt5y08OVhFQcXn
-SpXlyzl4PTLqvz3ltD8pqnq+28pBw9Vdhfk3af/xr5869wgHF+smeHRIaT+0
-9DxoFMnBw9XRp7PEFBzg/9O18gQHO/8IvPel0HpqXl9in8TByot/Xjw5RUGd
-UfXO2CscnO5wn+SF0/ofvpfTX0fvVzwv6XGiwNYnZ/VNdS7a/3Nis5YWBcvW
-rbtWzufi0ae5/zSpUqCh+Unh2Twu2o0ePhCqRPtDg3bvf0ZcbNjlL7xN+3WE
-fnqiggUXe18cWtXxVwr5A+KOg95crE3aVdXVKgUZz6hgrOBiwk/7RqeTUlDu
-Wsm7U81F+aCVrh1RUvh3x69Cw1ouRiS8HLQOl8LGtV4Ds19yMcPpvIlugBSS
-1ba7kv1cPGMdKJHS/x+1eh2bGkUZzHodoeKjLwUj/eYFtt4yeLDumPnxBgns
-Gtbq3qc+CTvK1bKuExLYU1wfrxski8VjUjzjKIawlPMnXpbIobT0gaZhkwii
-/9jFxE+fjGeqi/9qGqTAhXCD9vn2UzDbY9y8sCwJDqyatc8ldSqeUt5/ceJA
-Ikx78v2PbbA8uurzVeINTsOPMe9Bd6Vp+KysQN+xNw5svu9y5T6ehidO2h7y
-yImFmNPNwX5+09Hf9vvXrZkn4HGRwHjL9Bk4P9Qo2HQoGg6n2/kVlc/A3K5H
-G60hCkyVnQVxTjOROHhvv2tDJPjYd1b3yPOwJXNWi+OeCAhb2Fs38z4Pg3Oj
-nWI1j4I4nR1+c5cC3kirvWanHAbazxNvtsopolph7Mm7o6FQelo/ySdfETXs
-/73N1z4Eev12cq82KuEk2+0h1eEhMHPqkEzVbyXM+717k1lHEJDlZwr4Z5XR
-RMZ7rigoEDxM7rVNspyFc1x6jphOC4Cr653Ty0ZnYWPq0k/8Bj8Y7Zsl3y1W
-wdR4B97IHV8osbFgi9aoosP6TL0dl33g6LroC0XdqphgaKB+080bZndsaM2I
-VsPHeZtu5Rd7guniKJGykTq6VSnPaxs/ALvUG34xm9VxQeEcuaZIdxitie/0
-idDAM3V1MWqEG1ix9JfNn66JOr31h3pv7QPZQcFWprMmqogPBred2AvHyjD3
-7G1NjMia6ge2rhBhW2DvO0kLvZM6nLet2wPL6l6ZT3LSwmc1vTeMl7rAO96a
-KJlbWthzMWjTG3SGSXOWKphxZ2P0sxLlD/ucYECh5/Ny4Ww8oWBuJ4zbDdsb
-NKb7FcxGToB6wUWRIxTYn4mZMjEbx56Y7hcYCOFBZSN62fHx85yLel1VO2H7
-yOmN3Ew+8mKDB5qjHeBR/SoD7yw+XiqJmud51AFMckanv8rmIz9d7yk31AGm
-CoWtmXl8xObjy8186POP9VzMb/BxZUjd2yqBAyw88ywkupSPQ18Hr00xcIDp
-q2Qvs5v5uD4j2CmnXQBHVcuOH2jhY7uZT4rXSwEMjPq6Nb/go27DD7WFzwXw
-NK9tQUYrH920/y579Ig+z8u5s+otH7c86ov5eUMAgz0WDRGf+dgyeQnvXIwA
-dj4cu/G5l84/Z+q54GMCqDlXINraz0ejY/lBNmECyLRWFGgN8vGbOFVtaoAA
-hKXd/1WM8NEg1GGB2FEAz8TU43mjfBQali0JFQhgme+m3MQffCTDU5Kc7ATA
-m1vivfs3HzOODegaWQogkuFu/WSMjxsG071UzQUw9FptocFfPp5z0PjLNaPj
-Fz9XlIzz8U00o3XElI6fEP17YoKP1dbt452LBPB/VqxDTg==
-       "]]},
-     Annotation[#, "Charting`Private`Tag$11489#1"]& ]}, {}},
-  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
-  Axes->{True, True},
-  AxesLabel->{None, None},
-  AxesOrigin->{2., 0},
-  DisplayFunction->Identity,
-  Frame->{{False, False}, {False, False}},
-  FrameLabel->{{None, None}, {None, None}},
-  FrameTicks->{{Automatic, 
-     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
-     Charting`ScaledFrameTicks[{Identity, Identity}]}},
-  GridLines->{None, None},
-  GridLinesStyle->Directive[
-    GrayLevel[0.5, 0.4]],
-  ImagePadding->All,
-  Method->{
-   "DefaultBoundaryStyle" -> Automatic, 
-    "DefaultGraphicsInteraction" -> {
-     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-      "Effects" -> {
-       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-        "Droplines" -> {
-         "freeformCursorMode" -> True, 
-          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
-    AbsolutePointSize[6], "ScalingFunctions" -> None, 
-    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-        (Identity[#]& )[
-         Part[#, 1]], 
-        (Identity[#]& )[
-         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-        (Identity[#]& )[
-         Part[#, 1]], 
-        (Identity[#]& )[
-         Part[#, 2]]}& )}},
-  PlotRange->{{2, 10}, {0., 0.026367172035489276`}},
-  PlotRangeClipping->True,
-  PlotRangePadding->{{
-     Scaled[0.02], 
-     Scaled[0.02]}, {
-     Scaled[0.05], 
-     Scaled[0.05]}},
-  Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{3.800878442726296*^9},
- CellLabel->"Out[69]=",ExpressionUUID->"279cf07d-d3c6-4a42-a666-dfb5663eb19f"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"3", "+", 
-  RowBox[{"2", 
-   RowBox[{"Log", "[", 
-    RowBox[{
-     RowBox[{"3", "/", "2"}], "-", "1."}], "]"}]}]}]], "Input",
- CellChangeTimes->{{3.8008782912470827`*^9, 3.800878299207439*^9}},
- CellLabel->"In[62]:=",ExpressionUUID->"68acbf1d-d2de-474d-a48b-2bdf32179122"],
-
-Cell[BoxData["1.6137056388801094`"], "Output",
- CellChangeTimes->{3.800878299711512*^9},
- CellLabel->"Out[62]=",ExpressionUUID->"ca36e157-11cf-4330-88e6-4f89132f9eda"]
-}, Open  ]],
-
-Cell[CellGroupData[{
+   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(lm\\)]\\) = \"\>", 
+    "\[InvisibleSpace]", "0.3098081302182765`"}], "\[VeryThinSpace]", "-", 
+   RowBox[{
+    RowBox[{"0.08871719040412329`", " ", "\[ImaginaryI]"}], 
+    "\[InvisibleSpace]", "\<\" - \\!\\(\\*SubscriptBox[\\(A\\), \\(lm\\)]\\) \
+= \"\>", "\[InvisibleSpace]", "4.547011639440802`"}], "\[VeryThinSpace]", "-", 
+   RowBox[{"0.14630289536133967`", " ", "\[ImaginaryI]"}]}],
+  SequenceForm["\!\(\*SubscriptBox[\(\[Omega]\), \(lm\)]\) = ", 
+   Complex[0.3098081302182765, -0.08871719040412329], 
+   " - \!\(\*SubscriptBox[\(A\), \(lm\)]\) = ", 
+   Complex[4.547011639440802, -0.14630289536133967`]],
+  Editable->False]], "Print",
+ CellChangeTimes->{{3.801285974653591*^9, 3.801286002793817*^9}, 
+   3.801288629832247*^9},
+ CellLabel->
+  "During evaluation of \
+In[81]:=",ExpressionUUID->"a044a2d0-5342-4108-92cf-94818d577a15"],
 
 Cell[BoxData[
- RowBox[{"Vllr", "/.", 
-  RowBox[{"n", "\[Rule]", "0."}]}]], "Input",
- CellChangeTimes->{{3.800878240003408*^9, 3.8008782451325397`*^9}},
- CellLabel->"In[61]:=",ExpressionUUID->"2ee83ec4-bcfb-48ce-91dc-fdb359a19aca"],
-
-Cell[BoxData["0.024691358024691357`"], "Output",
- CellChangeTimes->{{3.800878242917289*^9, 3.8008782455448303`*^9}},
- CellLabel->"Out[61]=",ExpressionUUID->"6fd6d1cc-f543-485f-b17c-9e10f93bac3d"]
-}, Open  ]],
-
-Cell[CellGroupData[{
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000838`*^-273\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{\\\"1.6169697561639987`*^-34\\\", \\\"-\\\", \
+RowBox[{\\\"3.687864453117477`*^-36\\\", \\\" \\\", \
+\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,81,10,
+   19657010523013437385,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.80128600283525*^9, 3.801288629909569*^9},
+ CellLabel->
+  "During evaluation of \
+In[81]:=",ExpressionUUID->"063c35d4-cfc0-4894-93e4-36557f9af7a3"],
 
 Cell[BoxData[
- RowBox[{"Plot", "[", 
-  RowBox[{"Vllr", ",", 
-   RowBox[{"{", 
-    RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.80087815243039*^9, 3.800878163114365*^9}},
- CellLabel->"In[59]:=",ExpressionUUID->"f044848d-2bd1-4d5c-8222-26afed934cbb"],
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000849`*^-276\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{\\\"8.34217936790973`*^-35\\\", \\\"-\\\", \
+RowBox[{\\\"1.8954845679326004`*^-36\\\", \\\" \\\", \
+\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,81,11,
+   19657010523013437385,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.80128600283525*^9, 3.801288629915085*^9},
+ CellLabel->
+  "During evaluation of \
+In[81]:=",ExpressionUUID->"27351a83-9f9e-46ec-904b-eabd51385f97"],
 
 Cell[BoxData[
- GraphicsBox[{{{}, {}, 
-    TagBox[
-     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
-      1.], LineBox[CompressedData["
-1:eJwVjmk41AkcgF0dy2TTiTKGv4dMKpXu4/cTWy2lRZNnqcWUo01qZGqiIjrY
-Vili3EeOiiGibTRuYmZQjFDkmKF/OTbSpJHY9sP7vF/eD68B85SDh4qSktLh
-H/zvpEvM2WuP3dhpPejtWLA3DmoktH1OtONQOTRK8g/HwczzslAa7Tz0mWl0
-U1lxkFQRoT+LFg538pefU8THgc8O9skJ/TjQPvyXmuRTHEi+eUeP6j8AT5ab
-8rrCeDhbRzX/WPAQfk/O1g4Vx4NuVKt4xCoXijEhmDYQD0w6qg555YNXxPrS
-7ToJwMnV4H9qL4SMN6wJ6ZUEmNMpNRnR5wNrW22H+fFE6KgoZQ+/58O4+5kS
-2bVEeJjFrR4qKAHOhJtFW0Yi2PnZuQ5aCSDDSIU415cIMT+VxJBe5bBxnWfL
-3SNJsCCxXmWsvQqMGbz9xW7JkCZKYQ3pC6GDWS4y35MKn7nF9J6/hRB7+fj2
-z86psNtLLGtRCCFhBW9Ti28qDKtOMEokIihe05raFZMKm3fYbQ2/3gBKj+V2
-xPtUeJk/pWLy8QVQVp8SbbuVBkEiM5u1rhKI5kqd+kfSIS8/vNNn9RsYvKRa
-W9+XCV7QHDfsJ4Mq0dtvo6M54DtgKivK+wD1PhyBAb0A1A2umPRsHgXHmLHv
-ZH0R3Jwvpqe5jQOH/joCdz0FZufBctWGL5DmeFT4dakAWLVXmKdMJkFT09fa
-/305FJymOGr/+h2cttGqn5ZXQlrgiUFzJyXUN0xNsSyuhpCUKfvPw8q4xzBt
-TuONWlCS9KIgQBVt0J9Z51wHxv6enIP0WdihkAbFOQihXx57SKN0Nv78TkPQ
-bCoGm4E/L95hzcV/9nLCokwbwa4/ciWVqo62wW3DtbQXMFjNDK7naaDIxcLa
-IfAlrNZq07NynYdV/UnBHgHNoA5y965xTeRWWjjle7fAnhHnCUPGfDQup/67
-8IQEOqqOKTubaWF6dI9wxLsVisNq/qDJtXAua1Kjh/EKPGexe5uaFmDNxfOi
-vkNtcNQvsJgSvxDnOogXj+5uhzVeK5v2uS/CrN4LW13WdcCLBWYa7C2L8Sl/
-i7dk7Wt4lheSYKa6BAVnCI4N7Q0EKtN/a3i7BCPn6rk0GnaCelfAXt+ipciX
-WjzMpHXBQJZBdMoFbUxo3ZnrP+8tRK/QUeMzdHBRz3TPfs1uiIz3rHOn6WKM
-cre97nQ3OEcfaaKQukjplBMbPvTAV+tMRUrZMpwMmbxv5t8LsoFdnKrry9G4
-4MmBjUO9kL5j7bJGdz00KvOLtvbpA95VtpbXKiqGj2pxhP19cJ1x1FZVTsXz
-eg3icWcpbOhKe3C9UR8VU7p3DTulwDVN4DXa0vBZ8ueXzx1kEFQRwbXl0/Dy
-Hl7oqVYZ7F/GyBQZGWA2TlNKHfvB0rfORSvcADNSj5sGifohZTnTqEFugIKK
-D3m/2A6AUXV2jJ2LIdZdfOsWXD0Akauq6C1lhrheu1zHdcs78BxXaxbSCfQ5
-7bZpF/8dMAs+0cJvEXjrUZGCa06CT4jjlM1tAt8FqHfy1pHAdixqp0QRGK/s
-J6iyICFMzr4ZGUOg5qqzQcObScjbovgWm0TgF2eH2WhJgqJypi0rh0ArLcZS
-0p6EyBZKRE0dgVTG4d0bzpAQf++k9zUhgbnZ3aY2bBLu+TdZ7RX/6FX85rme
-I+HJkshJcROBN/ni1rBAErqcF3pLXhHoEWtzrCuUBBOZjpVURqB8P+taaDQJ
-5kUB1IwBAl/fUT7BjSFh69VOhQf54ycs/QCPS8I+k6RHHwYJPHpmiU57Igl+
-J2jUsTECC3Nqc+mZJFzYfllROE5gY/+b25BNwtV50lZ/OYEhGUrnDj4ggZt/
-78bXrwQmp1+0vMQjIT1YzatkkkB2W6txVD4JOfYeuy5MEdgcuJ1yv4CEIsPn
-ejunCfSOKBoTPCahbNxYMTND4KzZO9qbi0n4D2+M0Ow=
-       "]]},
-     Annotation[#, "Charting`Private`Tag$10020#1"]& ]}, {}},
-  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
-  Axes->{True, True},
-  AxesLabel->{None, None},
-  AxesOrigin->{0, 0},
-  DisplayFunction->Identity,
-  Frame->{{False, False}, {False, False}},
-  FrameLabel->{{None, None}, {None, None}},
-  FrameTicks->{{Automatic, 
-     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
-     Charting`ScaledFrameTicks[{Identity, Identity}]}},
-  GridLines->{None, None},
-  GridLinesStyle->Directive[
-    GrayLevel[0.5, 0.4]],
-  ImagePadding->All,
-  Method->{
-   "DefaultBoundaryStyle" -> Automatic, 
-    "DefaultGraphicsInteraction" -> {
-     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-      "Effects" -> {
-       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-        "Droplines" -> {
-         "freeformCursorMode" -> True, 
-          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
-    AbsolutePointSize[6], "ScalingFunctions" -> None, 
-    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-        (Identity[#]& )[
-         Part[#, 1]], 
-        (Identity[#]& )[
-         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-        (Identity[#]& )[
-         Part[#, 1]], 
-        (Identity[#]& )[
-         Part[#, 2]]}& )}},
-  PlotRange->{{0, 10}, {0., 0.740944786441276}},
-  PlotRangeClipping->True,
-  PlotRangePadding->{{
-     Scaled[0.02], 
-     Scaled[0.02]}, {
-     Scaled[0.05], 
-     Scaled[0.05]}},
-  Ticks->{Automatic, Automatic}]], "Output",
- CellChangeTimes->{3.800878163718293*^9},
- CellLabel->"Out[59]=",ExpressionUUID->"02d579a7-66e5-451d-b917-2e89aaf3c6a9"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{"\[Omega]lmn", "[", 
-  RowBox[{"2", ",", "2", ",", "0", ",", "0.00001", ",", "0", ",", "0", ",", 
-   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
-    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], 
-  "]"}], "\[IndentingNewLine]", 
- RowBox[{"\[Omega]lmn", "[", 
-  RowBox[{"2", ",", "2", ",", "1", ",", "0.00001", ",", "0", ",", "0", ",", 
-   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
-    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], 
-  "]"}], "\[IndentingNewLine]", 
- RowBox[{"\[Omega]lmn", "[", 
-  RowBox[{"2", ",", "2", ",", "2", ",", "0.00001", ",", "0", ",", "0", ",", 
-   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
-    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], "]"}]}], "Input",
- CellChangeTimes->{{3.800877316603387*^9, 3.800877330120776*^9}, {
-  3.800877474496874*^9, 3.800877574092745*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"a051c92c-2689-4af5-ac2a-bb7930918669"],
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000858`*^-279\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{\\\"4.30245658147574`*^-35\\\", \\\"-\\\", \
+RowBox[{\\\"9.739850735212415`*^-37\\\", \\\" \\\", \
+\\\"\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,81,12,
+   19657010523013437385,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.80128600283525*^9, 3.801288629920412*^9},
+ CellLabel->
+  "During evaluation of \
+In[81]:=",ExpressionUUID->"e0900f19-310f-4263-ae75-1a149a8f5587"],
 
 Cell[BoxData[
  TemplateBox[{
-  "Power","infy",
-   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
-encountered.\"",2,51,16,19654334673154004631,"Local"},
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,81,13,19657010523013437385,"Local"},
   "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8008775544023657`*^9, 3.8008775744610662`*^9}},
+ CellChangeTimes->{3.80128600283525*^9, 3.801288629930285*^9},
  CellLabel->
   "During evaluation of \
-In[51]:=",ExpressionUUID->"7c156739-5647-4b6f-bb7b-74d021f416a0"],
+In[81]:=",ExpressionUUID->"7f8ef753-56d7-49e5-91f7-096e5f29f610"],
 
 Cell[BoxData[
  RowBox[{"{", 
-  RowBox[{"0.37367818683109905`", ",", "11.240720774051653`"}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.800877508075778*^9, 3.8008775744676867`*^9}},
- CellLabel->"Out[51]=",ExpressionUUID->"0b05619a-b0e5-499e-a6bd-773863ce6ffa"],
-
-Cell[BoxData[
- TemplateBox[{
-  "Power","infy",
-   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
-encountered.\"",2,52,17,19654334673154004631,"Local"},
-  "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8008775544023657`*^9, 3.8008775745734386`*^9}},
- CellLabel->
-  "During evaluation of \
-In[51]:=",ExpressionUUID->"121faec0-b835-4e7e-8509-b495eb391f11"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"0.3467183895610203`", ",", "3.6507756584862947`"}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.800877508075778*^9, 3.800877574579023*^9}},
- CellLabel->"Out[52]=",ExpressionUUID->"0e4bc2eb-5c72-40bf-aba4-9d06bce23259"],
-
-Cell[BoxData[
- TemplateBox[{
-  "Power","infy",
-   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
-encountered.\"",2,53,18,19654334673154004631,"Local"},
-  "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.8008775544023657`*^9, 3.800877574682644*^9}},
- CellLabel->
-  "During evaluation of \
-In[51]:=",ExpressionUUID->"a42277ad-c1ce-4a94-8434-0722a63f702c"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"0.3010622306972642`", ",", "2.0908472581849438`"}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.800877508075778*^9, 3.800877574689953*^9}},
- CellLabel->"Out[53]=",ExpressionUUID->"1509f6e1-c308-47d1-a545-1184f918097a"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"sol", "=", 
-  RowBox[{"spheroidalKerr", "[", 
-   RowBox[{
-    RowBox[{"-", "2"}], ",", "2", ",", "2", ",", "0.7"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.800612976439578*^9, 3.800612982771328*^9}, {
-  3.800613080202582*^9, 3.800613081067361*^9}, {3.80062279542039*^9, 
-  3.800622796229005*^9}, {3.8006233981535788`*^9, 3.800623404001408*^9}, {
-  3.800624103886628*^9, 3.8006241045474367`*^9}},
- CellLabel->"In[24]:=",ExpressionUUID->"0fa7ad36-8965-4464-bd1e-81f1aaf3b037"],
+  RowBox[{
+   RowBox[{"0.3098081302182765`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.08871719040412329`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"4.547011639440802`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.14630289536133967`", " ", "\[ImaginaryI]"}]}], ",", 
+   InterpretationBox[
+    RowBox[{
+     TagBox["InterpolatingFunction",
+      "SummaryHead"], "[", 
+     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+      "Ready"}, 
+      TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+              PaneBox[
+               ButtonBox[
+                DynamicBox[
+                 FEPrivate`FrontEndResource[
+                 "FEBitmaps", "SquarePlusIconMedium"]], 
+                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
+                 Evaluator -> Automatic, Method -> "Preemptive"], 
+               Alignment -> {Center, Center}, ImageSize -> 
+               Dynamic[{
+                 Automatic, 
+                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])}]], 
+              GraphicsBox[{{
+                 GrayLevel[0.6], 
+                 AbsolutePointSize[5], 
+                 PointBox[{1, 1}], 
+                 PointBox[{2, 4}], 
+                 PointBox[{3, 2}], 
+                 PointBox[{4, 3}]}, {{}, {}, {
+                  AbsoluteThickness[1], 
+                  Opacity[1.], 
+                  LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                   "]]}}}, AspectRatio -> 1, Axes -> 
+               False, Background -> GrayLevel[0.93], Frame -> True, 
+               FrameStyle -> Directive[
+                 GrayLevel[0.7], 
+                 Thickness[Tiny]], FrameTicks -> None, 
+               ImageSize -> {Automatic, 
+                 Dynamic[
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+              GridBox[{{
+                 RowBox[{
+                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{
+                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+               GridBoxAlignment -> {
+                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+               False, GridBoxItemSize -> {
+                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+               GridBoxSpacings -> {
+                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+               BaseStyle -> {
+                ShowStringCharacters -> False, NumberMarks -> False, 
+                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+            GridBoxItemSize -> {
+             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+            BaselinePosition -> {1, 1}], True -> GridBox[{{
+              PaneBox[
+               ButtonBox[
+                DynamicBox[
+                 FEPrivate`FrontEndResource[
+                 "FEBitmaps", "SquareMinusIconMedium"]], 
+                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                None, Evaluator -> Automatic, Method -> "Preemptive"], 
+               Alignment -> {Center, Center}, ImageSize -> 
+               Dynamic[{
+                 Automatic, 
+                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])}]], 
+              GraphicsBox[{{
+                 GrayLevel[0.6], 
+                 AbsolutePointSize[5], 
+                 PointBox[{1, 1}], 
+                 PointBox[{2, 4}], 
+                 PointBox[{3, 2}], 
+                 PointBox[{4, 3}]}, {{}, {}, {
+                  AbsoluteThickness[1], 
+                  Opacity[1.], 
+                  LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                   "]]}}}, AspectRatio -> 1, Axes -> 
+               False, Background -> GrayLevel[0.93], Frame -> True, 
+               FrameStyle -> Directive[
+                 GrayLevel[0.7], 
+                 Thickness[Tiny]], FrameTicks -> None, 
+               ImageSize -> {Automatic, 
+                 Dynamic[
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+              GridBox[{{
+                 RowBox[{
+                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{
+                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["1", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["False", "SummaryItem"]}]}}, 
+               GridBoxAlignment -> {
+                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+               False, GridBoxItemSize -> {
+                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+               GridBoxSpacings -> {
+                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+               BaseStyle -> {
+                ShowStringCharacters -> False, NumberMarks -> False, 
+                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+            GridBoxItemSize -> {
+             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+            BaselinePosition -> {1, 1}]}, 
+         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+       "SummaryPanel"],
+      DynamicModuleValues:>{}], "]"}],
+    InterpolatingFunction[{{-1., 1.}}, {
+     5, 15, 0, {2001}, {2}, 0, 0, 0, 0, Automatic, {}, {}, 
+      False}, CompressedData["
+1:eJw12wu8XFV1x/FIKVJLKbXUUktttNRSn2hRUdF/rKigqFGopZbalKKllGpq
+qaWW2qCoqFSjoqKghvdTDBAgQGDdvN/Jfd+ZO487jzPnnDnnzDlRUVHBNrPX
+r/fz4cMnyeQ89l7ftfdes/L8Cz7y3g8esWzZsmcc/m/qmcv4OWQv/uxz6gd+
+Wtn7jn3pfd+uKrvia2/+wiVJZXef+P4LX79U2cJNq9/wrIXKjggfrGz8qdt2
+VHbeazfs+tjjlX1qYs8Nb3mwsnve1v348fdUdvhi5/RvqexIv6C9vHXSUVd8
+rbLx1d79P5V9On/Pxud9urL1H73oy6PLK2v87BMXb7q0sqPCjSt7xdHjO1d2
+/pe2/Pjk8ysLj3dOZeG276gsXO7NlYWPvb6yPws/lX3gkbOOOeLFlX3uTasG
+ky+obPx0331uZYdv+o0PP7uyZ4UXqexV4YOVjT/V+Flph1/2F3f8oLQHf/T0
+7GXD0sZv8bZuaceEFy7tNeGCpV1w3PiNSxtf7VMTpR1+icNvUlr/luu2LV9f
+Wnjb20oLw/Ld0sLrfqO08BpfKi083mdLC7f9RGnhch8rLXzsw6V9KPyUdnhQ
+9KoPlLbp0q+ecOT7Shs/3fQ7S3t2GOjS3hBepLSLwgdLG3/q2JeWdvhlDw91
+acMXjkewtOPDhJS2IrxwaReHC5b29fH0/mJkYdp+NLJiPB35yMIw90f252Fg
+RhaGZXpk145fd8/IwmtsGVk5frxHRhZue9/IzggDOLKPhAcc2be+Of4Z2fbl
+YYbt0OFZe83nRvb7IRBG9tYw0CP7l/AiI7t+2/iDI9v5jvFIj+yH0+88PNQj
++4MQMCM7M0zIyP41vPDIvjMOg9eMbPd4el8+sifG0/bCkf1hCKyRvT1M3Mj+
+LQzMyNaNh+Woke0dv+7Thf1k/Bo/Luz54fEKOztMcGH/HgawsBvHH5stbP++
+8U9hT54znuHC/igEamHvCoFQ2H+EgS7s5jGPmwo7OA776wr7+Ticv1rYH4eA
+LmxlCJjC/jNMSGG3jsPlo4VNjcPg4sKeGk/vBYX9SQj8wt4bAquw/xoP81mF
+3T4evjcVNjMeltcW9svx676isD8NQAo7NwRgYf8dJriwO8eXO66wufHHji7M
+nRc4z3Ge4zzHeY7zHOc5znOc5zjPcZ7jPMd5jvMc5znOc5znOM9xnuM8x3mO
+8xznOc5znOc4z3Ge4zzHeY7zHOc5znOcZzjPcJ7hPMN5hvMM5xnOM5xnOM9w
+nuE8w3mG8wznGc4znGc4z3Ce4TzDeWZpcJ7hPLM3hhfJcJ7ZNQFchvPMsuA8
+w3mG8wznGc6HOB/ifIjzIc6HOB/ifIjzIc6HOB/ifGjhYzcMcT60wPfLQ5wP
+LXC7YojzoQUeq4c4H1oI51VDnA8thN+7hzgf4nyI8yHOhzgf4nyI8yHOhzgf
+4jzFeYrzFOcpzlOcpzhPcZ7iPMV5ivMU5ynOU5ynOE9xnuI8xXmK8xTnKc5T
+nKc4T3Ge4jzFeYrzFOcpzlOcpzhPcZ7iPMF5gvME5wnOE5wnOE9wnuA8wXmC
+8wTnCc4TnCc4T3Ce4DzBeYLzBOcJzhOcJzhPcJ7gPMF5gvME5wnOE5wnOE9w
+HuM8xnmM8xjnMc5jnMc4j3EeWxScxziP7XXhxjHOY1sbgMQ4jy0OzmOcx3Z6
+eMAY57F9JTiPcR7jPMZ5jPMY5zHOY5zHOI9xHuM8xnmM8wHOBzgf4HyA8wHO
+Bzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgfWAgXDXA+
+sDC9Lx/gfGBhOp43wPnAwvAdO8D5wMLrPh3hPDLfbkQ4jyxcrhXhPLLAfF+E
+88gCy00RziOcRziPcB7hPMJ5hPMI5xHOI5xHOI9wHuE8wnmE8wjnEc4jnEc4
+j3Ae4TzCeYTzCOd9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5
+H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5D+c9nPdw3sN5
+D+c9nPdw3sN5j/W8h/Mezns47+G8h/Mezns47+G8h/Mezns47+G8h/Mezns4
+7+G8h/Mezns47+G8h/Mezrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs4
+7+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/MOzjs4
+7+C8g/MOzjs47+C8g/MOzjsWGN3dwXkH5x2cd3DewXkH5x2cd3DewXkH5x2c
+d3DewXkH5x2cd3DewXkH5x2cd3DewXkH30u4XsLzEo6X8LuE2yW8LuF0CZ9L
+uFzC4xIOl/C3hLslvC3hrI2vNq7aeGrjqI2fNm7aeGnjpI2PNi7aeGjjoE38
+t4n7NvHeJs5bxHeLuG4Rzy3iuEX8tojbFvHaIk5bxGeLuGwRjy3isEX8tYi7
+FvHWJM6axFeTuGoST03iqGkhbV7XtJDevtC0EPUfb1pIFxc3LbB+f9MCv7Oa
+Fpi8tmkhnE9uWgi7E5oWwuPopr0oJM6GrQn5vGHzIY837CVh4hr2yTAwDauF
+GzfsZSGxNuzKkJ8bthjycsNOCRPcsM+EAWxYMzxgw14Z8m7Drgr5tmHtkGcb
+9uoQCA27Ogz0ovXCiyzaaSGPLtoXQ/5cZH+0SL5cJE8ukh8XyYuL5MNF8uAi
++W+RvLdIvlskzy2S3+rktTr5rE4eq5O/6uStOvmqTp6qk5/q5KU6+ahOHqqT
+f+rknTr5pk6eqZNfauSVGvmkRh6pkT9q5I0a+aJGnqiRH2rkhRr5oEYeqOG/
+hvsa3ms4r+F8AecLOF/A+QLOF3C+gPMFnC/gfAHnCzhfwPkCzhdwvoDzBZzP
+43we5/M4n8f5PM7ncT6P83mcz+N8HufzOJ/H+TzO53E+j/N5nM/hfA7nczif
+w/kczudwPofzOZzP4XwO53M4n8P5HM7ncD6H81mcz+J8FuezOJ/F+SzOZ3E+
+i/NZnM/ifBbnszifxfkszmdxPovzGZzP4HwG5zM4n8H5DM5ncD6D8xmcz+B8
+BuczOJ/B+QzOZ+zUEAgz9nkfaJxP43wa59M4n8b5NM6ncT6N82mcT+N8GufT
+OJ/G+TTOp3E+hfMpnE/hfArnUzifwvkUzqdwPoXzKZxP4XwK51M4n8L5FM6n
+cD6J80mcT+J8EueTOJ/E+STOJ3E+ifNJnE/ifBLnkzifxPkkzifxfRDXB/F8
+EMcH8XsQtwfxehCnB/B5AJcH8HgAhwfwdwB3B/B2AGf78bUfV/vxtB9H+/Gz
+Hzf78bIfJ/vwsQ8X+/CwDwf7iP99xP0+4n0fcb6X+N5LXO8lnvcSx3uJ373E
+7V7ida91QpzusatDfO6x08LA7LEo3HiPrQ1xuMdOD/G3x9IQd3vsmhBvu21F
+GMDdVoQH3G3XhrjabWeEeNpth0Ic7bbrQ/zstjPDQO+2J8KL7LJ1IU522dme
+GO3JEBe77OYQD7tsZZiQXfZUeOFddnuY9112bkicO21ZmLaddnfI4zvtvDBx
+O+3IkLd32vqQr3fa+SGx7rSjQ37eaRtCXt5hq8Jtd9gxfpCzjSH/7rALQ97d
+YceFfLvDNoU8u8MuCoGww44PeXW7TYR8ut0uCXl0u50Q8ud22xby5na7NATM
+dlse8uR22xfy4za7LOTFbXZSyIfbbDLkwW12eQisbXZyyHvbbDbku222JuS5
+bfaSkN+2Wi3kta12ZQjArXZKyGNbrRny11a7KuStrXZqyFdbrRPy1Fb2IVvI
+S1vIR1vIQ1vIP1vIO1vIN1vIM1vIL5vJK5vJJ5vJI5vJH5vJG5vJF5vJE5vJ
+DxPkhQnywQR5YAL/E7ifwPsEzifwbbg2PBuOH8fv47h9HK+P4/QxfD6Gy8fw
++BgON+FvE+424W0Tzh7F16O4ehRPj+LoEfw8gptH8PIITh7Gx8O4eBgPD+Ng
+I/G/kbjfSLxvJM4fIr4fIq4fIp4fIo4fJH4fJG4fJF4fJE4fID4fsNVhYB6w
+XSEeN9jy8Lob7LIQfxtsMsTdBjs5xNv9tiZc7n6rhfi6304JcXW/XRXi6T7r
+hDi6z04L8XOfrfWBtjTEy722IsTJvXZtiI977VCIi3vtzBAP621dmJD19mSY
+//W20gsJtjJM4/dtWZjn79v6MCz32Kowr/fYceE237OJMI/fs9Vh/u625WHe
+7rbJMF932ZowT3fZKWF+7rROmJc7bW2YjztsRZiHO+xQGP/bbV0Y99ttZRjv
+22xZGOfbbH0Y31ttVRjXW+24MJ632EQYx5ttdRi/m+2UMG43WSeM1022NozT
+jbYijM+NdiiMyw22LozHDbYyjMM6WxYWtnW2yr8IsYnwvt+x5b6g2Zrwftdb
+xzdOtiJ87Fu2LrzHN21ZOPhea6t8AbOJ8Lxft+VeeLI14fmu4bm+yvN8hef4
+Mvdfy32/yP2u5j6f5/pXcd3PcL0ruc4n+ftr+HuX8/nL+Nyl/Plqfv8ifr2K
+/6+0//8GnV9r2V3hz8Xntcb/vrie1vj1xf20wu8vnkcT/nziebXCn1+8jyb8
+/cT7arm/vxgPrfLxEeOldT5+YjzV8fEV463lPv5iPrTc50fMl1b5/In51Dqf
+XzHfOhTif52IB631+BDxolM8fkQ8adLjS8SbiD9NejyK+NRqj1cRvzrO41nE
+t9Z7vIv410r3IHzokHsRfrTWPQlfOsW9CX+adI/Cp1a7V+FXx7ln4VvnuXfh
+X7d7PhD5QU96vhD5Q2d6PhH5Rdd6vhH5R6nnI5GfdJrnK5G/dJXnM5HfVPN8
+J/KfTvZ8KPKjLvN8KfKndnk+FflVJ3i+FflXF3k+FvlZGz1fi/ytoz2fi/yu
+8zzfi/yv2309EOuDnvT1QqwfOtPXE7G+6Fpfb8T6o9TXI7E+6TRfr8T6pat8
+PRPrm2q+3on1Tyf7eijWR13m66VYP7XL11OxvuoEX2/F+quLfD0W67M2+not
+lmUd6eu5WN91t6/3Yv3Xub4fEPsDPeX7BbF/0M2+nxD7C53t+w2x/9ATvh8R
++xNd7/sVsX/RGb6fEfsbFb7fEfsfXeP7IbE/0um+XxL7J0W+nxL7K13t+y2x
+/9Kpvh8T+zPN+n5N7N90ue/nxP5OJ/l+T+z/tM/3g2J/qEt9vyj2jzrR95Ni
+fyn2mzrR959iP6ptvj8V+1Vd4vtXsZ/V8b6/FftdbfL9r9gP60LfH4v9so7x
+/bPYT2uD76/Fflvn+/5b7Md1pO/PxX5dd/v+Xeznda7v78V+X0/5/l+cB3Sz
+nw/EeUFn+/lBnCf0hJ8vxHlD1/v5Q5xHdIafT8R5RYWfX8R5Rtf4+Uacd3S6
+n3/EeUiRn4/EeUlX+/lJnKd0qp+vxHlLTT9/ifOYrvTzmTiv6SV+fhPnOc36
++U6c93S5n//EeVAn+flQnBe1z8+P4jypS/18Kc6bOtHPn+I8qm1+PhXnVV3i
+51dxntXxfr4V511t8vOvOA/rQj8fi/OyjvHzszhPa4Ofr8V5W+f7+Vucx3WE
+n8/FeV3v8/O7OM/rTj/fi/O+funnf1EP0Hu9PiDqBbrV6weinqCfe31B1Bv0
+Lq8/iHqEbvT6hKhX6CdevxD1DL3d6xui3qHveP1D1EP0Q6+PiHqJ3ur1E1FP
+0be8viLqLSq9/iLqMXqj12dEvUZf8fqNqOco9vqOqPfodV7/EfUgfdHrQ6Je
+pJ7Xj0Q9Sa/2+pKoN4n6k7zuPCPqU/q816tE/Uptr2eJ+pZe6fUuUf/SZ7we
+JupjWvR6maif6WVeTxP1NX3S622i/qZ5r8eJ+pxe5PU6Ub/TJ7yeJ+p7mvZ6
+n6j/6YVeDxT1QX3c64WifqgDXk8U9UW9wOuNov6oj3k9UtQntcfrlaJ+qed5
+PVPUN/VRr3eK+qd2eD1U1Ef1XK+XivqpPuz1VFFf1Ravt4r6q57j9VhRn9XF
+Xq8V9Vs97vVcUd/Vs73eK+q/+pDXg0V9WI94vVjUj3Ws15NFfVkXeL1Z1J/1
+oNejRX1az/J6tahf6wNezxb1bd3n9W5R/9ZRXg8X9XG93+vlon6ue7yeLurr
+OK/hvIbzGs5rOK/hvIbzGs5rOK/hvIbzGs5rOK/hvIbzGs5rOK/jvI7zOs7r
+OK/jvI7zOs7rOK/jvI7zOs7rOK/jvI7zOs4P/75/34LzRZwv4nwR54s4X8T5
+Is4Xcb6I80WcL+J8EeeLOF/E+SLOGzhv4LyB8wbOGzhv4LyB8wbOGzhv4LyB
+8wbOGzhv4LyB8wbOmzhv4ryJ8ybOmzhv4ryJ8ybOmzhv4ryJ8ybOmzhv4ryJ
+8ybOWzhv4byF8xbOWzhv4byF8xbOWzhv4byF8xbOWzhv4byF8zbO2zhv47yN
+8zbO2zhv47yN8zbO2zhv47yN8zbO2zhv47yN8yWcL+F8CedLOF/C+RLOl3C+
+hPMlnC/hfAnnSzhfwvkSzpf0DP/+XHyfrrv8+3Xxfbv+wr9/F9/H63/9+3nx
+fb3u8O/vxff5Ose/3xff9+tp//5f9APoNu8PEP0Ceo/3D4h+Av3C+wtEv4Fu
+8f4Ded9RR+/2/gR5/2FHP/P+BXl/Ykc3eX+DvH+xo3d6/4O8v7Gjn3p/hLz/
+saMbvH9C3h/Z1Tu8v0LeP9nVj73/Qt5f2dW3vT9D3n/Z1du8f0Peh93VD7y/
+Q96n3dV13v8h7+Pu6i3eHyLv8+6q8v4ReR94V15m6Mr7xLt6s/ef6Pe8H0V+
+LOxqq/eryLe1Xf2z97PI00VXv+v9LvL24q42ez+Mvub9Mfon75eRvH9Gv+P9
+NPK++J7M+23kffM9/aP348j76nv6be/Xkffd9/SY9/PI+3V7+gfv95H38/b0
+W94PJO/37elR7xeS9wP39EHvJ5KXTXr6Te83Ev1Hetj7kUR/kv7e+5VE/5J+
+w/uZRH+THvJ+J9H/pL/zfijRH6Vf934p0T+lB7yfSvRX6W+930r0X+nXvB9L
+9Gfpfu/XEv1b+hvv5xL9XXqm93uJ/i/d6/1goj9Mf+39YqJ/TL/q/WSiv0zf
+934z0X+mv/J+NNGfpl/xfjXRv6bveT+b6G/TX3q/m+h/w3mE8wjnEc4jnEc4
+j3Ae4TzCeYTzCOcRziOcRziPcB7hPMJ5hPMI5xHOI5xHOI9wHuE8wnmE8wjn
+Ec4jnEc4j3Ae4TzC+QDnA5wPcD7A+QDnA33X+y1xPtBZ3o+J8wHOBzgf4HyA
+8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBziPcR7j
+PMZ5jPMY5zHOY5zHOI9xHuM8xnmM8xjnMc5jnMc4j3Ee4zzGeYzzGOcxzmOc
+xziPcR7jPMZ5jPMY5zHOY5wnOE9wnuA8wXmC8wTnCc4TnCc4T3Ce4DzBeYLz
+BOcJzhOcJzhPcJ7gPMF5gvME5wnOE5wnOE9wnuA8wXmC8wTnCc5TnKc4T3Ge
+4jzFeYrzFOcpzlOcpzhPcZ7iPMV5ivMU5ynOU5ynOE9xnuI8xXmK8xTnKc5T
+nKc4T3Ge4jzFeYrzFOcpzoc4H+J8iPMhzoc4H+J8iPMhzoc4H+pH/u8vcD7E
++RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcZ7h
+PMN5hvMM5xnOM5xnOM9wnuE8w3mG8wznGc4znGc4z3Ce4TzDeYbzDOcZzjOc
+ZzjPcJ7hPMN5hvMM5xnOM5xnOM9xnuM8x3mO8xznOc5znOc4z3Ge4zzHeY7z
+HOc5znOc5zjPcZ7jPMd5jvMc5znOc5znOM9xnuM8x3mO8xznOc5znBc4L3Be
+4LzAeYHzAucFzgucFzgvcF7gvMB5gfMC5wXOC5wXOC9wXuC8wHmB8wLnBc4L
+nBc4L3Be4LzAeYHzAucFzgucj3A+wvkI5yOcj3A+wvkI5yOcj3A+wvkI5yN9
+2/+9Jc5HOB/hfITzEc5HOB/hfITzEc5HOB/hfITzEc5HOB/hfITzEc5HOB/h
+vMR5ifMS5yXOS5yXOC9xXuK8xHmJ8xLnJc5LnJc4L3Fe4rzEeYnzEuclzkuc
+lzgvcV7ivMR5ifMS5yXOS5yXOC9xXuG8wnmF8wrnFc4rnFc4r3Be4bzCeYXz
+CucVziucVzivcF7hvMJ5hfMK5xXOK5xXOK9wXuG8wnmF8wrnFc4rnFfi35/r
+/wAod6QK
+     "], {Developer`PackedArrayForm, CompressedData["
+1:eJwd2VMMIEyvANB/bdu2bdu2bdu2bdu2bdu27W/v2dvkJE36PDOdNkHDdhXb
+Bvjf//53Mdj//j/+5QEJRGCCEJR/5eCEICShCE0YwhKO8EQgIpGITBSiEo3o
+xCAmsYhNHOISj/gkICGJSEwSkpKM5KQgJalITRrSko70ZCAjmchMFrKSjezk
+ICe5yE0e8pKP/BSgIIUoTBGKUozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSg
+JrWoTR3qUo/6NKAhjWhME5rSjOa0oCWtaE0b2tKO9nSgI53oTBe60o3u9KAn
+vehNH/rSj/4MYCCDGMwQhjKM4YxgJKMYzRjGMo7xTGAik5jMFKYyjenMYCaz
+mM0c5jKP+SxgIYtYzBKWsozlrGAlq1jNGtayjvVsYCOb2MwWtrKN7exgJ7vY
+zR72so/9HOAghzjMEY5yjOOc4CSnOM0ZznKO81zgIpe4zBWuco3r3OAmt7jN
+He5yj/s84CGPeMwTnvKM57zgJa94zRve8o73fOAjn/jMF77yje/84Ce/+M0f
+/uMv/w5/AAISiMAEISjBCE4IQhKK0IQhLOEITwQiEonIRCEq0YhODGISi9jE
+IS7xiE8CEpKIxCQhKclITgpSkorUpCEt6UhPBjKSicxkISvZyE4OcpKL3OQh
+L/nITwEKUojCFKEoxShOCUpSitKUoSzlKE8FKlKJylShKtWoTg1qUova1KEu
+9ahPAxrSiMY0oSnNaE4LWtKK1rTh3wXejvZ0oCOd6EwXutKN7vSgJ73oTR/6
+0o/+DGAggxjMEIYyjOGMYCSjGM0YxjKO8UxgIpOYzBSmMo3pzGAms5jNHOYy
+j/ksYCGLWMwSlrKM5axgJatYzRrWso71bGAjm9jMFrayje3sYCe72M0e9rKP
+/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN69zgJre4zR3uco/7
+POAhj3jME57yjOe84CWveM0b3vKO93zgI5/4zBe+8o3v/OAnv/jNH/7jL/8e
+/gAEJBCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGf
+BCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8C
+FKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0
+pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxk
+EIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQR
+i1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCH
+OcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95
+wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5w3/85V/TH4CABCIw
+QQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJ
+SEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOAghSiMEUo
+SjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CGNKIxTWhK
+M5rTgpa0ojVtaEs72tOBjnSiM13oSje604Oe9KI3fehLP/ozgIEMYjBDGMow
+hjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nMYjZzmMs85rOAhSxiMUtYyjKW
+s4KVrGI1a1jLOtazgY1sYjNb2Mo2trODnexiN3vYyz72c4CDHOIwRzjKMY5z
+gpOc4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLPe7zgIc84jFPeMoznvOC
+l7ziNW94yzve84GPfOIzX/jKN77zg5/84jd/+I+//PvwByAggQhMEIISjOCE
+ICShCE0YwhKO8EQgIpGITBSiEo3oxCAmsYhNHOISj/gkICGJSEwSkpKM5KQg
+JalITRrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUoTBGKUozilKAk
+pShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTR3qUo/6NKAhjWhME5rSjOa0oCWt
+aE0b2tKO9nSgI53oTBe60o3u9KAnvehNH/rSj/4MYCCDGMwQhjKM4YxgJKMY
+zRjGMo7xTGAik5jMFKYyjenMYCazmM0c5jKP+SxgIYtYzBKWsozlrGAlq1jN
+GtayjvVsYCOb2MwWtrKN7exgJ7vYzR72so/9HOAghzjMEY5yjOOc4CSnOM0Z
+znKO81zgIpe4zBWuco3r3OAmt7jNHe5yj/s84CGPeMwTnvKM57zgJa94zRve
+8o73fOAjn/jMF77yje/84Ce/+M0f/uMv/4Z9AQhIIAIThKAEIzghCEkoQhOG
+sIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4JSEgiEpOEpCQjOSlISSpSk4a0
+pCM9GchIJjKThaxkIzs5yEkucpOHvOQjPwUoSCEKU4SiFKM4JShJKUpThrKU
+ozwVqEglKlOFqlSjOjWoSS1qU4e61KM+DWhIIxrThKY0ozktaEkrWtOGtrSj
+PR3oSCc604WudKM7PehJL3rTh770oz8DGMggBjOEoQxjOCMYyShGM4axjGM8
+E5jIJCYzhalMYzozmMksZjOHucxjPgtYyCIWs4SlLGM5K1jJKlazhrWsYz0b
+2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
+yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
+Jz7zha984zs/+MkvfvOH//jLv0F/AAISiMAEISjBCE4IQhKK0IQhLOEITwQi
+EonIRCEq0YhODGISi9jEIS7xiE8CEpKIxCQhKclITgpSkorUpCEt6UhPBjKS
+icxkISvZyE4OcpKL3OQhL/nITwEKUojCFKEoxShOCUpSitKUoSzlKE8FKlKJ
+ylShKtWoTg1qUova1KEu9ahPAxrSiMY0oSnNaE4LWtKK1rShLe1oTwc60onO
+dKEr3ehOD3rSi970oS/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclM
+YSrTmM4MZjKL2cxhLvOYzwIWsojFLGEpy1jOClayitWsYS3rWM8GNrKJzWxh
+K9vYzg52sovd7GEv+9jPAQ5yiMMc4SjHOM4JTnKK05zhLOc4zwUuconLXOEq
+17jODW5yi9vc4S73uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7yic984Svf
++M4PfvKL3/zhP/7yb8kXgIAEIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhK
+NKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2
+spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWq
+U4Oa1KI2dahLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rT
+g570ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjOD
+mcxiNnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od
+7GI3e9jLPvZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4H/AywZ77E=
+      "], {
+       Complex[0., 0.], 
+       Complex[3.2111843476133393`, 0.19955667769228816`], 
+       Complex[3.208424650369166, 0.19926411263821905`], 
+       Complex[3.205665726826891, 0.19897179629147355`], 
+       Complex[3.2029075774614895`, 0.19867972861408592`], 
+       Complex[3.200150202748108, 0.19838790956801605`], 
+       Complex[3.197393603162065, 0.19809633911514973`], 
+       Complex[3.1946377791788594`, 0.1978050172172988], 
+       Complex[3.191882731274161, 0.19751394383620077`], 
+       Complex[3.1891284599238148`, 0.197223118933519], 
+       Complex[3.186374965603838, 0.19693254247084244`], 
+       Complex[3.1836222487904267`, 0.19664221440968585`], 
+       Complex[3.1808703099599502`, 0.1963521347114897], 
+       Complex[3.178119149588951, 0.19606230333761995`], 
+       Complex[3.1753687681541485`, 0.19577272024936818`], 
+       Complex[3.1726191661324337`, 0.1954833854079515], 
+       Complex[3.1698703440008775`, 0.19519429877451258`], 
+       Complex[3.167122302236722, 0.1949054603101194], 
+       Complex[3.164375041317384, 0.19461686997576558`], 
+       Complex[3.1616285617204563`, 0.1943285277323699], 
+       Complex[3.1588828639237088`, 0.19404043354077663`], 
+       Complex[3.1561379484050844`, 0.19375258736175527`], 
+       Complex[3.1533938156427, 0.19346498915600052`], 
+       Complex[3.1506504661148504`, 0.1931776388841325], 
+       Complex[3.147907900300004, 0.19289053650669638`], 
+       Complex[3.1451661186768054`, 0.19260368198416247`], 
+       Complex[3.1424251217240733`, 0.19231707527692615`], 
+       Complex[3.1396849099208026`, 0.192030716345308], 
+       Complex[3.1369454837461657`, 0.1917446051495536], 
+       Complex[3.1342068436795056`, 0.1914587416498333], 
+       Complex[3.131468990200345, 0.19117312580624266`], 
+       Complex[3.128731923788381, 0.19088775757880205`], 
+       Complex[3.1259956449234862`, 0.19060263692745674`], 
+       Complex[3.1232601540857092`, 0.19031776381207674`], 
+       Complex[3.120525451755271, 0.1900331381924569], 
+       Complex[3.1177915384125754`, 0.1897487600283169], 
+       Complex[3.1150584145381965`, 0.189464629279301], 
+       Complex[3.112326080612886, 0.18918074590497827`], 
+       Complex[3.109594537117571, 0.18889710986484223`], 
+       Complex[3.106863784533354, 0.18861372111831115`], 
+       Complex[3.1041338233415163`, 0.1883305796247279], 
+       Complex[3.101404654023512, 0.1880476853433596], 
+       Complex[3.098676277060973, 0.18776503823339802`], 
+       Complex[3.0959486929357065`, 0.18748263825395944`], 
+       Complex[3.093221902129697, 0.18720048536408446`], 
+       Complex[3.0904959051251044`, 0.18691857952273794`], 
+       Complex[3.0877707024042658`, 0.1866369206888092], 
+       Complex[3.085046294449693, 0.18635550882111168`], 
+       Complex[3.0823226817440754`, 0.18607434387838326`], 
+       Complex[3.079599864770279, 0.18579342581928587`], 
+       Complex[3.0768778440113453`, 0.18551275460240563`], 
+       Complex[3.074156619950493, 0.18523233018625274`], 
+       Complex[3.0714361930711185`, 0.18495215252926162`], 
+       Complex[3.0687165638567926`, 0.18467222158979055`], 
+       Complex[3.065997732791264, 0.18439253732612187`], 
+       Complex[3.0632797003584566`, 0.18411309969646186`], 
+       Complex[3.060562467042475, 0.18383390865894092`], 
+       Complex[3.0578460333275954`, 0.18355496417161296`], 
+       Complex[3.0551303996982755`, 0.18327626619245604`], 
+       Complex[3.052415566639146, 0.18299781467937187`], 
+       Complex[3.0497015346350187`, 0.18271960959018602`], 
+       Complex[3.0469883041708785`, 0.1824416508826477], 
+       Complex[3.044275875731889, 0.18216393851442964`], 
+       Complex[3.0415642498033915`, 0.18188647244312867`], 
+       Complex[3.038853426870904, 0.18160925262626468`], 
+       Complex[3.0361434074201203`, 0.18133227902128154`], 
+       Complex[3.0334341919369137`, 0.18105555158554637`], 
+       Complex[3.030725780907334, 0.18077907027634998`], 
+       Complex[3.0280181748176065`, 0.1805028350509064], 
+       Complex[3.025311374154137, 0.18022684586635326`], 
+       Complex[3.022605379403507, 0.1799511026797514], 
+       Complex[3.0199001910524754`, 0.1796756054480851], 
+       Complex[3.0171958095879785`, 0.17940035412826183`], 
+       Complex[3.0144922354971313`, 0.17912534867711236`], 
+       Complex[3.011789469267226, 0.17885058905139065`], 
+       Complex[3.0090875113857307`, 0.17857607520777372`], 
+       Complex[3.006386362340293, 0.1783018071028618], 
+       Complex[3.00368602261874, 0.17802778469317831`], 
+       Complex[3.000986492709072, 0.17775400793516952`], 
+       Complex[2.99828777309947, 0.17748047678520473`], 
+       Complex[2.9955898642782945`, 0.17720719119957634`], 
+       Complex[2.9928927667340806`, 0.1769341511344995], 
+       Complex[2.990196480955544, 0.17666135654611234`], 
+       Complex[2.987501007431575, 0.1763888073904757], 
+       Complex[2.984806346651246, 0.1761165036235734], 
+       Complex[2.9821124991038066`, 0.17584444520131198`], 
+       Complex[2.9794194652786823`, 0.1755726320795206], 
+       Complex[2.9767272456654794`, 0.1753010642139511], 
+       Complex[2.97403584075398, 0.1750297415602781], 
+       Complex[2.971345251034148, 0.17475866407409874`], 
+       Complex[2.968655476996122, 0.17448783171093257`], 
+       Complex[2.9659665191302222`, 0.17421724442622188`], 
+       Complex[2.9632783779269443`, 0.17394690217533132`], 
+       Complex[2.9605910538769655`, 0.1736768049135481], 
+       Complex[2.957904547471139, 0.17340695259608158`], 
+       Complex[2.9552188592004978`, 0.17313734517806362`], 
+       Complex[2.9525339895562532`, 0.17286798261454844`], 
+       Complex[2.9498499390297965`, 0.17259886486051262`], 
+       Complex[2.9471667081126975`, 0.1723299918708547], 
+       Complex[2.944484297296701, 0.17206136360039556`], 
+       Complex[2.9418027070737365`, 0.17179298000387827`], 
+       Complex[2.9391219379359086`, 0.17152484103596802`], 
+       Complex[2.936441990375501, 0.1712569466512519], 
+       Complex[2.9337628648849785`, 0.1709892968042393], 
+       Complex[2.931084561956984, 0.17072189144936128`], 
+       Complex[2.9284070820843384`, 0.17045473054097127`], 
+       Complex[2.9257304257600434`, 0.17018781403334424`], 
+       Complex[2.9230545934772767`, 0.16992114188067703`], 
+       Complex[2.9203795857294006`, 0.16965471403708862`], 
+       Complex[2.9177054030099523`, 0.16938853045661956`], 
+       Complex[2.9150320458126506`, 0.16912259109323222`], 
+       Complex[2.9123595146313916`, 0.1688568959008105], 
+       Complex[2.9096878099602517`, 0.1685914448331602], 
+       Complex[2.907016932293489, 0.1683262378440087], 
+       Complex[2.904346882125538, 0.16806127488700487`], 
+       Complex[2.9016776599510146`, 0.16779655591571913`], 
+       Complex[2.8990092662647124`, 0.16753208088364352`], 
+       Complex[2.8963417015616075`, 0.16726784974419137`], 
+       Complex[2.8936749663368544`, 0.16700386245069768`], 
+       Complex[2.8910090610857857`, 0.1667401189564186], 
+       Complex[2.888343986303916, 0.16647661921453163`], 
+       Complex[2.88567974248694, 0.1662133631781358], 
+       Complex[2.8830163301307308`, 0.16595035080025114`], 
+       Complex[2.880353749731341, 0.165687582033819], 
+       Complex[2.877692001785006, 0.16542505683170192`], 
+       Complex[2.8750310867881383`, 0.1651627751466836], 
+       Complex[2.8723710052373326`, 0.1649007369314688], 
+       Complex[2.869711757629362, 0.1646389421386833], 
+       Complex[2.8670533444611803`, 0.16437739072087393`], 
+       Complex[2.864395766229924, 0.16411608263050853`], 
+       Complex[2.8617390234329063`, 0.16385501781997583`], 
+       Complex[2.859083116567622, 0.16359419624158542`], 
+       Complex[2.8564280461317466`, 0.16333361784756775`], 
+       Complex[2.8537738126231367`, 0.16307328259007423`], 
+       Complex[2.8511204165398283`, 0.16281319042117678`], 
+       Complex[2.8484678583800385`, 0.16255334129286833`], 
+       Complex[2.8458161386421637`, 0.1622937351570622], 
+       Complex[2.8431652578247846`, 0.16203437196559262`], 
+       Complex[2.8405152164266583`, 0.16177525167021423`], 
+       Complex[2.837866014946723, 0.16151637422260226`], 
+       Complex[2.835217653884101, 0.16125773957435266`], 
+       Complex[2.832570133738093, 0.16099934767698162`], 
+       Complex[2.829923455008181, 0.16074119848192595`], 
+       Complex[2.827277618194027, 0.16048329194054264`], 
+       Complex[2.8246326237954755`, 0.16022562800410925`], 
+       Complex[2.821988472312552, 0.1599682066238236], 
+       Complex[2.819345164245463, 0.15971102775080373`], 
+       Complex[2.8167027000945932`, 0.1594540913360879], 
+       Complex[2.8140610803605126`, 0.15919739733063468`], 
+       Complex[2.81142030554397, 0.15894094568532274`], 
+       Complex[2.8087803761458976`, 0.1586847363509508], 
+       Complex[2.8061412926674056`, 0.15842876927823768`], 
+       Complex[2.8035030556097866`, 0.15817304441782218`], 
+       Complex[2.8008656654745185`, 0.15791756172026328`], 
+       Complex[2.7982291227632565`, 0.15766232113603976`], 
+       Complex[2.7955934279778356`, 0.15740732261555018`], 
+       Complex[2.7929585816202778`, 0.15715256610911316`], 
+       Complex[2.7903245841927835`, 0.15689805156696715`], 
+       Complex[2.787691436197736, 0.1566437789392703], 
+       Complex[2.7850591381376972`, 0.1563897481761004], 
+       Complex[2.7824276905154135`, 0.15613595922745507`], 
+       Complex[2.7797970938338157`, 0.15588241204325165`], 
+       Complex[2.77716734859601, 0.15562910657332701`], 
+       Complex[2.774538455305289, 0.15537604276743744`], 
+       Complex[2.7719104144651268`, 0.15512322057525904`], 
+       Complex[2.7692832265791782`, 0.15487063994638725`], 
+       Complex[2.7666568921512806`, 0.15461830083033695`], 
+       Complex[2.7640314116854525`, 0.15436620317654243`], 
+       Complex[2.7614067856858964`, 0.15411434693435735`], 
+       Complex[2.758783014656997, 0.15386273205305484`], 
+       Complex[2.7561600991033193`, 0.15361135848182714`], 
+       Complex[2.753538039529611, 0.15336022616978567`], 
+       Complex[2.7509168364408043`, 0.1531093350659613], 
+       Complex[2.7482964903420117`, 0.15285868511930384`], 
+       Complex[2.7456770017385277`, 0.1526082762786823], 
+       Complex[2.743058371135831, 0.15235810849288467`], 
+       Complex[2.7404405990395806`, 0.1521081817106182], 
+       Complex[2.7378236859556226`, 0.15185849588050895`], 
+       Complex[2.73520763238998, 0.15160905095110194`], 
+       Complex[2.7325924388488607`, 0.1513598468708611], 
+       Complex[2.7299781058386574`, 0.1511108835881693], 
+       Complex[2.7273646338659425`, 0.1508621610513281], 
+       Complex[2.724752023437473, 0.1506136792085581], 
+       Complex[2.722140275060188, 0.15036543800799823`], 
+       Complex[2.7195293892412113`, 0.1501174373977066], 
+       Complex[2.7169193664878453`, 0.14986967732565956`], 
+       Complex[2.7143102073075798`, 0.14962215773975235`], 
+       Complex[2.711701912208086, 0.14937487858779858`], 
+       Complex[2.7090944816972184`, 0.14912783981753058`], 
+       Complex[2.7064879162830158`, 0.14888104137659905`], 
+       Complex[2.7038822164736955`, 0.14863448321257322`], 
+       Complex[2.701277382777665, 0.14838816527294063`], 
+       Complex[2.698673415703509, 0.14814208750510724`], 
+       Complex[2.696070315759999, 0.1478962498563973], 
+       Complex[2.6934680834560902`, 0.14765065227405347`], 
+       Complex[2.690866719300918, 0.1474052947052364], 
+       Complex[2.688266223803805, 0.14716017709702514`], 
+       Complex[2.6856665974742535`, 0.14691529939641687`], 
+       Complex[2.6830678408219537`, 0.14667066155032682`], 
+       Complex[2.6804699543567767`, 0.1464262635055883], 
+       Complex[2.6778729385887776`, 0.14618210520895267`], 
+       Complex[2.6752767940281954`, 0.1459381866070893], 
+       Complex[2.6726815211854533`, 0.14569450764658542`], 
+       Complex[2.670087120571157, 0.14545106827394622`], 
+       Complex[2.667493592696099, 0.14520786843559486`], 
+       Complex[2.664900938071252, 0.14496490807787207`], 
+       Complex[2.6623091572077753`, 0.14472218714703658`], 
+       Complex[2.659718250617011, 0.14447970558926468`], 
+       Complex[2.657128218810487, 0.14423746335065055`], 
+       Complex[2.6545390622999117`, 0.14399546037720573`], 
+       Complex[2.6519507815971823`, 0.1437536966148598], 
+       Complex[2.649363377214377, 0.14351217200945943`], 
+       Complex[2.6467768496637576`, 0.14327088650676909`], 
+       Complex[2.6441911994577736`, 0.14302984005247063`], 
+       Complex[2.641606427109058, 0.14278903259216352`], 
+       Complex[2.639022533130424, 0.14254846407136434`], 
+       Complex[2.6364395180348748`, 0.14230813443550722`], 
+       Complex[2.6338573823355964`, 0.14206804362994357`], 
+       Complex[2.631276126545957, 0.141828191599942], 
+       Complex[2.628695751179513, 0.14158857829068847`], 
+       Complex[2.6261162567500014`, 0.14134920364728593`], 
+       Complex[2.6235376437713485`, 0.14111006761475467`], 
+       Complex[2.6209599127576624`, 0.14087117013803205`], 
+       Complex[2.618383064223236, 0.14063251116197237`], 
+       Complex[2.6158070986825472`, 0.14039409063134695`], 
+       Complex[2.613232016650261, 0.14015590849084425`], 
+       Complex[2.6106578186412253`, 0.13991796468506953`], 
+       Complex[2.608084505170473, 0.13968025915854493`], 
+       Complex[2.605512076753221, 0.13944279185570949`], 
+       Complex[2.6029405339048743`, 0.139205562720919], 
+       Complex[2.6003698771410226`, 0.13896857169844612`], 
+       Complex[2.597800106977438, 0.13873181873248006`], 
+       Complex[2.5952312239300794`, 0.1384953037671268], 
+       Complex[2.5926632285150917`, 0.13825902674640894`], 
+       Complex[2.5900961212488047`, 0.13802298761426574`], 
+       Complex[2.5875299026477334`, 0.13778718631455286`], 
+       Complex[2.584964573228578, 0.13755162279104258`], 
+       Complex[2.5824001335082247`, 0.13731629698742356`], 
+       Complex[2.5798365840037447`, 0.137081208847301], 
+       Complex[2.577273925232397, 0.13684635831419636`], 
+       Complex[2.574712157711621, 0.13661174533154744`], 
+       Complex[2.572151281959048, 0.13637736984270843`], 
+       Complex[2.569591298492491, 0.13614323179094967`], 
+       Complex[2.5670322078299512`, 0.13590933111945774`], 
+       Complex[2.5644740104896138`, 0.1356756677713354], 
+       Complex[2.561916706989849, 0.13544224168960145`], 
+       Complex[2.5593602978492167`, 0.1352090528171909], 
+       Complex[2.5568047835864602`, 0.13497610109695474`], 
+       Complex[2.5542501647205076`, 0.1347433864716598], 
+       Complex[2.551696441770476, 0.13451090888398912`], 
+       Complex[2.549143615255668, 0.13427866827654153`], 
+       Complex[2.54659168569557, 0.13404666459183165`], 
+       Complex[2.544040653609857, 0.13381489777228994`], 
+       Complex[2.54149051951839, 0.1335833677602628], 
+       Complex[2.5389412839412167`, 0.13335207449801217`], 
+       Complex[2.53639294739857, 0.13312101792771588`], 
+       Complex[2.533845510410867, 0.13289019799146706`], 
+       Complex[2.531298973498717, 0.1326596146312748], 
+       Complex[2.5287533371829123`, 0.13242926778906366`], 
+       Complex[2.526208601984432, 0.13219915740667368`], 
+       Complex[2.523664768424441, 0.13196928342586028`], 
+       Complex[2.521121837024293, 0.13173964578829445`], 
+       Complex[2.5185798083055286`, 0.13151024443556264`], 
+       Complex[2.516038682789872, 0.13128107930916644`], 
+       Complex[2.5134984609992364`, 0.13105215035052284`], 
+       Complex[2.510959143455722, 0.13082345750096414`], 
+       Complex[2.508420730681616, 0.13059500070173782`], 
+       Complex[2.505883223199392, 0.13036677989400655`], 
+       Complex[2.503346621531711, 0.130138795018848], 
+       Complex[2.5008109262014195`, 0.12991104601725517`], 
+       Complex[2.4982761377315548`, 0.12968353283013595`], 
+       Complex[2.4957422566453373`, 0.12945625539831324`], 
+       Complex[2.493209283466176, 0.1292292136625249], 
+       Complex[2.490677218717669, 0.12900240756342374`], 
+       Complex[2.4881460629236, 0.1287758370415775], 
+       Complex[2.4856158166079396`, 0.1285495020374686], 
+       Complex[2.4830864802948467`, 0.12832340249149427`], 
+       Complex[2.480558054508667, 0.1280975383439667], 
+       Complex[2.478030539773937, 0.12787190953511252`], 
+       Complex[2.4755039366153753`, 0.12764651600507312`], 
+       Complex[2.472978245557891, 0.12742135769390447`], 
+       Complex[2.470453467126582, 0.12719643454157725`], 
+       Complex[2.467929601846731, 0.12697174648797646`], 
+       Complex[2.4654066502438114`, 0.12674729347290165`], 
+       Complex[2.4628846128434825`, 0.1265230754360669], 
+       Complex[2.460363490171592, 0.12629909231710057`], 
+       Complex[2.457843282754177, 0.12607534405554557`], 
+       Complex[2.455323991117459, 0.1258518305908588], 
+       Complex[2.45280561578785, 0.12562855186241165`], 
+       Complex[2.4502881572919506`, 0.12540550780948972`], 
+       Complex[2.4477716161565484`, 0.12518269837129273`], 
+       Complex[2.44525599290862, 0.1249601234869346], 
+       Complex[2.4427412880753288`, 0.12473778309544321`], 
+       Complex[2.4402275021840283`, 0.12451567713576067`], 
+       Complex[2.4377146357622568`, 0.12429380554674294`], 
+       Complex[2.435202689337746, 0.12407216826716007`], 
+       Complex[2.432691663438412, 0.12385076523569587`], 
+       Complex[2.4301815585923623`, 0.12362959639094818`], 
+       Complex[2.42767237532789, 0.12340866167142857`], 
+       Complex[2.4251641141734788`, 0.1231879610155625], 
+       Complex[2.4226567756578, 0.12296749436168901`], 
+       Complex[2.4201503603097154`, 0.12274726164806099`], 
+       Complex[2.417644868658272, 0.12252726281284493`], 
+       Complex[2.415140301232709, 0.12230749779412098`], 
+       Complex[2.412636658562453, 0.12208796652988269`], 
+       Complex[2.4101339411771194`, 0.12186866895803733`], 
+       Complex[2.4076321496065116`, 0.12164960501640554`], 
+       Complex[2.4051312843806256`, 0.12143077464272156`], 
+       Complex[2.402631346029641, 0.12121217777463267`], 
+       Complex[2.400132335083931, 0.12099381434969994`], 
+       Complex[2.397634252074054, 0.12077568430539733`], 
+       Complex[2.395137097530764, 0.12055778757911251`], 
+       Complex[2.3926408719849945`, 0.12034012410814586`], 
+       Complex[2.3901455759678782`, 0.12012269382971141`], 
+       Complex[2.387651210010731, 0.11990549668093592`], 
+       Complex[2.385157774645059, 0.11968853259885959`], 
+       Complex[2.382665270402559, 0.11947180152043532`], 
+       Complex[2.3801736978151173`, 0.11925530338252935`], 
+       Complex[2.3776830574148082`, 0.11903903812192054`], 
+       Complex[2.3751933497338977`, 0.11882300567530095`], 
+       Complex[2.3727045753048395`, 0.1186072059792753], 
+       Complex[2.3702167346602785`, 0.11839163897036134`], 
+       Complex[2.3677298283330463`, 0.11817630458498928`], 
+       Complex[2.365243856856169, 0.11796120275950239`], 
+       Complex[2.3627588207628594`, 0.11774633343015645`], 
+       Complex[2.3602747205865193`, 0.11753169653311996`], 
+       Complex[2.3577915568607435`, 0.11731729200447397`], 
+       Complex[2.355309330119314, 0.11710311978021208`], 
+       Complex[2.3528280408962043`, 0.11688917979624047`], 
+       Complex[2.3503476897255777`, 0.1166754719883778], 
+       Complex[2.3478682771417874`, 0.11646199629235499`], 
+       Complex[2.3453898036793768`, 0.11624875264381557`], 
+       Complex[2.3429122698730795`, 0.1160357409783152], 
+       Complex[2.3404356762578193`, 0.11582296123132205`], 
+       Complex[2.3379600233687112`, 0.11561041333821634`], 
+       Complex[2.3354853117410594`, 0.11539809723429062`], 
+       Complex[2.333011541910358, 0.11518601285474943`], 
+       Complex[2.3305387144122935`, 0.11497416013470975`], 
+       Complex[2.3280668297827414`, 0.1147625390092002], 
+       Complex[2.3255958885577686`, 0.11455114941316184`], 
+       Complex[2.323125891273632, 0.11433999128144744`], 
+       Complex[2.320656838466779, 0.11412906454882185`], 
+       Complex[2.3181887306738487`, 0.11391836914996169`], 
+       Complex[2.315721568431671, 0.11370790501945563`], 
+       Complex[2.3132553522772654`, 0.11349767209180386`], 
+       Complex[2.3107900827478423`, 0.1132876703014186], 
+       Complex[2.308325760380803, 0.11307789958262356`], 
+       Complex[2.305862385713743, 0.11286835986965442`], 
+       Complex[2.3033999592844427`, 0.11265905109665812`], 
+       Complex[2.3009384816308813`, 0.1124499731976935], 
+       Complex[2.2984779532912203`, 0.11224112610673068`], 
+       Complex[2.2960183748038197`, 0.11203250975765153`], 
+       Complex[2.293559746707227, 0.11182412408424913`], 
+       Complex[2.291102069540183, 0.1116159690202282], 
+       Complex[2.2886453438416163`, 0.11140804449920454`], 
+       Complex[2.2861895701506514`, 0.11120035045470551`], 
+       Complex[2.2837347490066024`, 0.11099288682016967`], 
+       Complex[2.2812808809489717`, 0.11078565352894672`], 
+       Complex[2.2788279665174596`, 0.11057865051429762`], 
+       Complex[2.2763760062519527`, 0.11037187770939458`], 
+       Complex[2.2739250006925307`, 0.11016533504732065`], 
+       Complex[2.2714749503794653`, 0.10995902246107003`], 
+       Complex[2.269025855853221, 0.10975293988354808`], 
+       Complex[2.266577717654451, 0.10954708724757085`], 
+       Complex[2.264130536324004, 0.1093414644858656], 
+       Complex[2.2616843124029185`, 0.10913607153107019`], 
+       Complex[2.2592390464324237`, 0.1089309083157334], 
+       Complex[2.256794738953945, 0.10872597477231488`], 
+       Complex[2.254351390509095, 0.10852127083318495`], 
+       Complex[2.2519090016396803`, 0.1083167964306245], 
+       Complex[2.2494675728877014`, 0.10811255149682526`], 
+       Complex[2.2470271047953485`, 0.1079085359638895], 
+       Complex[2.244587597905006, 0.10770474976383002`], 
+       Complex[2.2421490527592467`, 0.10750119282857004`], 
+       Complex[2.239711469900842, 0.1072978650899434], 
+       Complex[2.2372748498727497`, 0.1070947664796943], 
+       Complex[2.234839193218124, 0.10689189692947729`], 
+       Complex[2.2324045004803095`, 0.10668925637085733`], 
+       Complex[2.2299707722028432`, 0.10648684473530948`], 
+       Complex[2.2275380089294576`, 0.10628466195421937`], 
+       Complex[2.2251062112040745`, 0.10608270795888246`], 
+       Complex[2.2226753795708074`, 0.10588098268050457`], 
+       Complex[2.220245514573968, 0.10567948605020161`], 
+       Complex[2.2178166167580553`, 0.10547821799899951`], 
+       Complex[2.215388686667765, 0.10527717845783426`], 
+       Complex[2.212961724847982, 0.10507636735755169`], 
+       Complex[2.2105357318437866`, 0.10487578462890773`], 
+       Complex[2.208110708200454, 0.10467543020256814`], 
+       Complex[2.2056866544634466`, 0.1044753040091085], 
+       Complex[2.2032635711784243`, 0.10427540597901402`], 
+       Complex[2.20084145889124, 0.10407573604267993`], 
+       Complex[2.198420318147939, 0.10387629413041108`], 
+       Complex[2.1960001494947603`, 0.10367708017242185`], 
+       Complex[2.1935809534781328`, 0.10347809409883627`], 
+       Complex[2.1911627306446833`, 0.10327933583968801`], 
+       Complex[2.1887454815412317`, 0.10308080532492028`], 
+       Complex[2.186329206714788, 0.10288250248438564`], 
+       Complex[2.1839139067125584`, 0.10268442724784613`], 
+       Complex[2.1814995820819405`, 0.1024865795449732], 
+       Complex[2.1790862333705303`, 0.10228895930534766`], 
+       Complex[2.176673861126111, 0.10209156645845957`], 
+       Complex[2.1742624658966623`, 0.10189440093370816`], 
+       Complex[2.1718520482303587`, 0.10169746266040194`], 
+       Complex[2.1694426086755687`, 0.1015007515677587], 
+       Complex[2.167034147780853, 0.10130426758490517`], 
+       Complex[2.1646266660949647`, 0.10110801064087716`], 
+       Complex[2.1622201641668553`, 0.10091198066461947`], 
+       Complex[2.159814642545668, 0.10071617758498605`], 
+       Complex[2.1574101017807394`, 0.10052060133073965`], 
+       Complex[2.155006542421599, 0.10032525183055183`], 
+       Complex[2.1526039650179754`, 0.10013012901300315`], 
+       Complex[2.150202370119787, 0.0999352328065829], 
+       Complex[2.1478017582771476`, 0.0997405631396891], 
+       Complex[2.145402130040364, 0.0995461199406284], 
+       Complex[2.1430034859599405`, 0.09935190313761622], 
+       Complex[2.1406058265865746`, 0.0991579126587766], 
+       Complex[2.1382091524711564`, 0.09896414843214205], 
+       Complex[2.1358134641647712`, 0.09877061038565361], 
+       Complex[2.133418762218702, 0.09857729844716094], 
+       Complex[2.131025047184422, 0.09838421254442185], 
+       Complex[2.128632319613602, 0.09819135260510284], 
+       Complex[2.126240580058105, 0.09799871855677848], 
+       Complex[2.123849829069992, 0.0978063103269319], 
+       Complex[2.1214600672015163`, 0.09761412784295416], 
+       Complex[2.1190712950051265`, 0.09742217103214476], 
+       Complex[2.116683513033468, 0.0972304398217113], 
+       Complex[2.1142967218393784`, 0.09703893413876946], 
+       Complex[2.1119109219758907`, 0.09684765391034289], 
+       Complex[2.109526113996236, 0.09665659906336345], 
+       Complex[2.107142298453837, 0.09646576952467084], 
+       Complex[2.1047594759023127`, 0.09627516522101273], 
+       Complex[2.1023776468954782`, 0.0960847860790446], 
+       Complex[2.0999968119873444`, 0.09589463202532988], 
+       Complex[2.0976169717321147`, 0.09570470298633961], 
+       Complex[2.0952381266841895`, 0.0955149988884528], 
+       Complex[2.0928602773981653`, 0.09532551965795595], 
+       Complex[2.0904834244288346`, 0.09513626522104335], 
+       Complex[2.0881075683311816`, 0.09494723550381674], 
+       Complex[2.0857327096603915`, 0.09475843043228567], 
+       Complex[2.08335884897184, 0.09456984993236683], 
+       Complex[2.080985986821103, 0.09438149392988474], 
+       Complex[2.0786141237639493`, 0.0941933623505711], 
+       Complex[2.0762432603563443`, 0.09400545512006511], 
+       Complex[2.0738733971544487`, 0.09381777216391322], 
+       Complex[2.0715045347146206`, 0.09363031340756922], 
+       Complex[2.069136673593411, 0.09344307877639402], 
+       Complex[2.0667698143475723`, 0.09325606819565592], 
+       Complex[2.0644039575340463`, 0.09306928159053011], 
+       Complex[2.062039103709976, 0.09288271888609914], 
+       Complex[2.0596752534326987`, 0.09269638000735235], 
+       Complex[2.0573124072597473`, 0.09251026487918632], 
+       Complex[2.0549505657488503`, 0.09232437342640433], 
+       Complex[2.052589729457937, 0.09213870557371688], 
+       Complex[2.0502298989451266`, 0.09195326124574103], 
+       Complex[2.0478710747687403`, 0.09176804036700087], 
+       Complex[2.0455132574872925`, 0.09158304286192719], 
+       Complex[2.043156447659495, 0.09139826865485748], 
+       Complex[2.0408006458442554`, 0.0912137176700359], 
+       Complex[2.0384458526006806`, 0.09102938983161335], 
+       Complex[2.0360920684880703`, 0.0908452850636471], 
+       Complex[2.0337392940659247`, 0.09066140329010128], 
+       Complex[2.031387529893937, 0.09047774443484621], 
+       Complex[2.0290367765320005`, 0.09029430842165885], 
+       Complex[2.026687034540203, 0.0901110951742224], 
+       Complex[2.0243383044788317`, 0.0899281046161266], 
+       Complex[2.021990586908368, 0.08974533667086734], 
+       Complex[2.019643882389493, 0.08956279126184691], 
+       Complex[2.017298191483081, 0.08938046831237359], 
+       Complex[2.014953514750209, 0.0891983677456621], 
+       Complex[2.0126098527521457`, 0.08901648948483308], 
+       Complex[2.010267206050361, 0.0888348334529134], 
+       Complex[2.0079255752065195`, 0.08865339957283583], 
+       Complex[2.005584960782486, 0.08847218776743918], 
+       Complex[2.003245363340319, 0.08829119795946819], 
+       Complex[2.0009067834422765`, 0.0881104300715735], 
+       Complex[1.9985692216508137`, 0.08792988402631151], 
+       Complex[1.9962326785285844`, 0.08774955974614454], 
+       Complex[1.9938971546384388`, 0.08756945715344061], 
+       Complex[1.9915626505434247`, 0.08738957617047344], 
+       Complex[1.989229166806787, 0.08720991671942228], 
+       Complex[1.986896703991971, 0.08703047872237227], 
+       Complex[1.984565262662617, 0.08685126210131386], 
+       Complex[1.982234843382564, 0.08667226677814312], 
+       Complex[1.9799054467158486`, 0.08649349267466151], 
+       Complex[1.9775770732267075`, 0.08631493971257607], 
+       Complex[1.975249723479573, 0.08613660781349906], 
+       Complex[1.972923398039075, 0.08595849689894813], 
+       Complex[1.9705980974700437`, 0.08578060689034621], 
+       Complex[1.9682738223375067`, 0.0856029377090215], 
+       Complex[1.9659505732066893`, 0.08542548927620724], 
+       Complex[1.963628350643015, 0.08524826151304199], 
+       Complex[1.9613071552121062`, 0.08507125434056932], 
+       Complex[1.9589869874797845`, 0.08489446767973788], 
+       Complex[1.9566678480120674`, 0.08471790145140123], 
+       Complex[1.9543497373751726`, 0.08454155557631798], 
+       Complex[1.9520326561355157`, 0.0843654299751516], 
+       Complex[1.9497166048597125`, 0.08418952456847048], 
+       Complex[1.9474015841145746`, 0.0840138392767477], 
+       Complex[1.945087594467115, 0.08383837402036122], 
+       Complex[1.9427746364845437`, 0.08366312871959367], 
+       Complex[1.940462710734271, 0.08348810329463233], 
+       Complex[1.9381518177839043`, 0.08331329766556916], 
+       Complex[1.935841958201249, 0.08313871175240058], 
+       Complex[1.933533132554314, 0.0829643454750277], 
+       Complex[1.931225341411303, 0.08279019875325602], 
+       Complex[1.9289185853406206`, 0.0826162715067955], 
+       Complex[1.9266128649108683`, 0.0824425636552604], 
+       Complex[1.9243081806908504`, 0.08226907511816947], 
+       Complex[1.9220045332495677`, 0.08209580581494563], 
+       Complex[1.9197019231562211`, 0.08192275566491612], 
+       Complex[1.9174003509802091`, 0.0817499245873123], 
+       Complex[1.9150998172911327`, 0.08157731250126979], 
+       Complex[1.9128003226587913`, 0.08140491932582822], 
+       Complex[1.9105018676531818`, 0.08123274497993133], 
+       Complex[1.908204452844502, 0.0810607893824268], 
+       Complex[1.9059080788031495`, 0.08088905245206637], 
+       Complex[1.9036127460997225`, 0.08071753410750566], 
+       Complex[1.9013184553050162`, 0.0805462342673041], 
+       Complex[1.899025206990027, 0.080375152849925], 
+       Complex[1.8967330017259512`, 0.08020428977373538], 
+       Complex[1.8944418400841856`, 0.08003364495700613], 
+       Complex[1.8921517226363254`, 0.07986321831791163], 
+       Complex[1.8898626499541658`, 0.07969300977452996], 
+       Complex[1.8875746226097032`, 0.07952301924484287], 
+       Complex[1.8852876411751336`, 0.07935324664673553], 
+       Complex[1.8830017062228523`, 0.07918369189799664], 
+       Complex[1.8807168183254555`, 0.07901435491631834], 
+       Complex[1.8784329780557392`, 0.07884523561929616], 
+       Complex[1.8761501859867, 0.07867633392442897], 
+       Complex[1.8738684426915353`, 0.07850764974911899], 
+       Complex[1.8715877487436408`, 0.07833918301067155], 
+       Complex[1.869308104716615, 0.07817093362629535], 
+       Complex[1.8670295111842559`, 0.07800290151310216], 
+       Complex[1.8647519687205614`, 0.07783508658810684], 
+       Complex[1.8624754778997303`, 0.07766748876822732], 
+       Complex[1.8602000392961622`, 0.07750010797028455], 
+       Complex[1.857925653484459, 0.07733294411100251], 
+       Complex[1.8556523210394198`, 0.07716599710700799], 
+       Complex[1.853380042536047, 0.07699926687483065], 
+       Complex[1.8511088185495423`, 0.07683275333090304], 
+       Complex[1.8488386496553104`, 0.0766664563915605], 
+       Complex[1.846569536428956, 0.07650037597304102], 
+       Complex[1.8443014794462826`, 0.07633451199148522], 
+       Complex[1.8420344792832979`, 0.07616886436293649], 
+       Complex[1.839768536516209, 0.07600343300334074], 
+       Complex[1.8375036517214243`, 0.07583821782854637], 
+       Complex[1.8352398254755526`, 0.07567321875430429], 
+       Complex[1.8329770583554075`, 0.0755084356962679], 
+       Complex[1.8307153509379988`, 0.07534386856999292], 
+       Complex[1.8284547038005419`, 0.07517951729093747], 
+       Complex[1.8261951175204503`, 0.07501538177446186], 
+       Complex[1.8239365926753406`, 0.07485146193582876], 
+       Complex[1.821679129843032, 0.074687757690203], 
+       Complex[1.8194227296015433`, 0.07452426895265157], 
+       Complex[1.817167392529095, 0.07436099563814347], 
+       Complex[1.8149131192041101`, 0.07419793766154985], 
+       Complex[1.8126599102052146`, 0.0740350949376439], 
+       Complex[1.810407766111233, 0.07387246738110068], 
+       Complex[1.8081566875011936`, 0.07371005490649715], 
+       Complex[1.8059066749543264`, 0.07354785742831219], 
+       Complex[1.803657729050064, 0.07338587486092649], 
+       Complex[1.8014098503680396`, 0.07322410711862246], 
+       Complex[1.7991630394880884`, 0.07306255411558422], 
+       Complex[1.7969172969902494`, 0.07290121576589764], 
+       Complex[1.7946726234547627`, 0.07274009198355018], 
+       Complex[1.7924290194620696`, 0.07257918268243078], 
+       Complex[1.7901864855928145`, 0.07241848777632999], 
+       Complex[1.7879450224278453`, 0.07225800717893983], 
+       Complex[1.7857046305482105`, 0.07209774080385377], 
+       Complex[1.7834653105351614`, 0.07193768856456656], 
+       Complex[1.781227062970152, 0.07177785037447437], 
+       Complex[1.7789898884348385`, 0.07161822614687462], 
+       Complex[1.7767537875110808`, 0.07145881579496598], 
+       Complex[1.7745187607809403`, 0.07129961923184831], 
+       Complex[1.7722848088266798`, 0.07114063637052251], 
+       Complex[1.7700519322307673`, 0.07098186712389071], 
+       Complex[1.7678201315758726`, 0.07082331140475599], 
+       Complex[1.7655894074448688`, 0.0706649691258225], 
+       Complex[1.7633597604208298`, 0.0705068401996952], 
+       Complex[1.7611311910870344`, 0.07034892453888009], 
+       Complex[1.7589037000269645`, 0.0701912220557839], 
+       Complex[1.7566772878243044`, 0.07003373266271425], 
+       Complex[1.7544519550629414`, 0.06987645627187944], 
+       Complex[1.7522277023269648`, 0.06971939279538847], 
+       Complex[1.7500045302006695`, 0.06956254214525107], 
+       Complex[1.7477824392685528`, 0.06940590423337749], 
+       Complex[1.7455614301153148`, 0.0692494789715786], 
+       Complex[1.7433415033258575`, 0.06909326627156566], 
+       Complex[1.7411226594852895`, 0.06893726604495054], 
+       Complex[1.738904899178921, 0.06878147820324543], 
+       Complex[1.7366882229922658`, 0.06862590265786286], 
+       Complex[1.7344726315110406`, 0.06847053932011574], 
+       Complex[1.7322581253211673`, 0.06831538810121718], 
+       Complex[1.7300447050087706`, 0.06816044891228057], 
+       Complex[1.7278323711601797`, 0.0680057216643194], 
+       Complex[1.725621124361925, 0.06785120626824728], 
+       Complex[1.7234109652007439`, 0.06769690263487792], 
+       Complex[1.7212018942635763`, 0.06754281067492508], 
+       Complex[1.7189939121375652`, 0.06738893029900238], 
+       Complex[1.716787019410059, 0.06723526141762344], 
+       Complex[1.7145812166686094`, 0.06708180394120175], 
+       Complex[1.7123765045009731`, 0.06692855778005063], 
+       Complex[1.7101728834951095`, 0.06677552284438315], 
+       Complex[1.707970354239182, 0.06662269904431205], 
+       Complex[1.70576891732156, 0.06647008628984985], 
+       Complex[1.7035685733308172`, 0.06631768449090866], 
+       Complex[1.7013693228557298`, 0.06616549355730016], 
+       Complex[1.6991711664852787`, 0.0660135133987355], 
+       Complex[1.6969741048086509`, 0.06586174392482542], 
+       Complex[1.6947781384152365`, 0.06571018504508004], 
+       Complex[1.6925832678946315`, 0.06555883666890885], 
+       Complex[1.6903894938366342`, 0.06540769870562066], 
+       Complex[1.6881968168312498`, 0.06525677106442361], 
+       Complex[1.6860052374686871`, 0.06510605365442507], 
+       Complex[1.6838147563393608`, 0.06495554638463155], 
+       Complex[1.6816253740338882`, 0.06480524916394872], 
+       Complex[1.6794370911430936`, 0.06465516190118133], 
+       Complex[1.6772499082580055`, 0.0645052845050332], 
+       Complex[1.6750638259698578`, 0.06435561688410714], 
+       Complex[1.6728788448700878`, 0.0642061589469048], 
+       Complex[1.6706949655503405`, 0.06405691060182686], 
+       Complex[1.668512188602464, 0.06390787175717277], 
+       Complex[1.6663305146185128`, 0.06375904232114078], 
+       Complex[1.6641499441907452`, 0.06361042220182786], 
+       Complex[1.6619704779116264`, 0.06346201130722967], 
+       Complex[1.6597921163738267`, 0.06331380954524062], 
+       Complex[1.6576148601702205`, 0.06316581682365358], 
+       Complex[1.6554387098938887`, 0.06301803305015997], 
+       Complex[1.6532636661381177`, 0.06287045813234982], 
+       Complex[1.6510897294964004`, 0.06272309197771153], 
+       Complex[1.6489169005624333`, 0.06257593449363191], 
+       Complex[1.6467451799301196`, 0.06242898558739608], 
+       Complex[1.6445745681935682`, 0.06228224516618751], 
+       Complex[1.6424050659470941`, 0.062135713137087906`], 
+       Complex[1.6402366737852183`, 0.06198938940707717], 
+       Complex[1.6380693923026657`, 0.06184327388303331], 
+       Complex[1.6359032220943697`, 0.061697366471732504`], 
+       Complex[1.633738163755469, 0.06155166707984898], 
+       Complex[1.6315742178813077`, 0.061406175613954894`], 
+       Complex[1.6294113850674359`, 0.061260891980520385`], 
+       Complex[1.627249665909611, 0.06111581608591351], 
+       Complex[1.6250890610037956`, 0.06097094783640024], 
+       Complex[1.6229295709461595`, 0.06082628713814421], 
+       Complex[1.6207711963330764`, 0.06068183389720684], 
+       Complex[1.6186139377611297`, 0.06053758801954738], 
+       Complex[1.616457795827108, 0.06039354941102264], 
+       Complex[1.6143027711280054`, 0.06024971797738697], 
+       Complex[1.6121488642610229`, 0.06010609362429238], 
+       Complex[1.6099960758235692`, 0.05996267625728834], 
+       Complex[1.6078444064132584`, 0.05981946578182178], 
+       Complex[1.6056938566279124`, 0.05967646210323706], 
+       Complex[1.6035444270655574`, 0.0595336651267758], 
+       Complex[1.60139611832443, 0.05939107475757705], 
+       Complex[1.5992489310029723`, 0.059248690900677047`], 
+       Complex[1.5971028656998316`, 0.059106513461009244`], 
+       Complex[1.5949579230138626`, 0.0589645423434042], 
+       Complex[1.5928141035441297`, 0.05882277745258971], 
+       Complex[1.590671407889902, 0.0586812186931905], 
+       Complex[1.5885298366506564`, 0.05853986596972835], 
+       Complex[1.586389390426076, 0.058398719186621977`], 
+       Complex[1.5842500698160524`, 0.05825777824818701], 
+       Complex[1.5821118754206844`, 0.05811704305863598], 
+       Complex[1.5799748078402778`, 0.05797651352207816], 
+       Complex[1.5778388676753448`, 0.05783618954251957], 
+       Complex[1.5757040555266066`, 0.05769607102386299], 
+       Complex[1.5735703719949923`, 0.05755615786990786], 
+       Complex[1.5714378176816366`, 0.057416449984350165`], 
+       Complex[1.5693063931878823`, 0.057276947270782474`], 
+       Complex[1.5671760991152812`, 0.05713764963269387], 
+       Complex[1.565046936065592, 0.05699855697346991], 
+       Complex[1.5629189046407812`, 0.05685966919639248], 
+       Complex[1.5607920054430218`, 0.0567209862046399], 
+       Complex[1.558666239074697, 0.056582507901286765`], 
+       Complex[1.556541606138397, 0.05644423418930393], 
+       Complex[1.55441810723692, 0.056306164971558464`], 
+       Complex[1.5522957429732713`, 0.056168300150813505`], 
+       Complex[1.5501745139506653`, 0.05603063962972842], 
+       Complex[1.5480544207725246`, 0.05589318331085855], 
+       Complex[1.5459354640424798`, 0.05575593109665528], 
+       Complex[1.543817644364369, 0.055618882889465884`], 
+       Complex[1.54170096234224, 0.05548203859153363], 
+       Complex[1.5395854185803481`, 0.05534539810499758], 
+       Complex[1.5374710136831575`, 0.0552089613318926], 
+       Complex[1.5353577482553395`, 0.055072728174149266`], 
+       Complex[1.5332456229017752`, 0.05493669853359396], 
+       Complex[1.5311346382275552`, 0.05480087231194864], 
+       Complex[1.5290247948379767`, 0.054665249410830896`], 
+       Complex[1.5269160933385464`, 0.05452982973175381], 
+       Complex[1.5248085343349798`, 0.05439461317612599], 
+       Complex[1.5227021184332012`, 0.054259599645251566`], 
+       Complex[1.5205968462393444`, 0.05412478904032998], 
+       Complex[1.51849271835975, 0.05399018126245601], 
+       Complex[1.5163897354009703`, 0.0538557762126198], 
+       Complex[1.5142878979697652`, 0.05372157379170671], 
+       Complex[1.5121872066731032`, 0.05358757390049726], 
+       Complex[1.5100876621181623`, 0.05345377643966713], 
+       Complex[1.50798926491233, 0.05332018130978715], 
+       Complex[1.5058920156632043`, 0.05318678841132314], 
+       Complex[1.5037959149785896`, 0.05305359764463592], 
+       Complex[1.5017009634665006`, 0.05292060890998123], 
+       Complex[1.4996071617351627`, 0.05278782210750973], 
+       Complex[1.4975145103930108`, 0.05265523713726698], 
+       Complex[1.4954230100486867`, 0.052522853899193186`], 
+       Complex[1.493332661311044, 0.05239067229312339], 
+       Complex[1.4912434647891455`, 0.05225869221878732], 
+       Complex[1.489155421092264, 0.052126913575809314`], 
+       Complex[1.4870685308298817`, 0.051995336263708336`], 
+       Complex[1.4849827946116894`, 0.051863960181897845`], 
+       Complex[1.4828982130475885`, 0.05173278522968572], 
+       Complex[1.4808147867476917`, 0.05160181130627446], 
+       Complex[1.47873251632232, 0.051471038310760775`], 
+       Complex[1.476651402382005, 0.05134046614213578], 
+       Complex[1.474571445537487, 0.05121009469928486], 
+       Complex[1.4724926463997186`, 0.0510799238809876], 
+       Complex[1.470415005579862, 0.050949953585917876`], 
+       Complex[1.4683385236892879`, 0.050820183712643525`], 
+       Complex[1.4662632013395789`, 0.05069061415962657], 
+       Complex[1.464189039142527, 0.05056124482522302], 
+       Complex[1.4621160377101365`, 0.050432075607682925`], 
+       Complex[1.4600441976546192`, 0.05030310640515012], 
+       Complex[1.4579735195883994`, 0.05017433711566248], 
+       Complex[1.4559040041241105`, 0.05004576763715156], 
+       Complex[1.4538356518745987`, 0.049917397867442814`], 
+       Complex[1.4517684634529187`, 0.049789227704255284`], 
+       Complex[1.4497024394723368`, 0.049661257045201766`], 
+       Complex[1.4476375805463293`, 0.04953348578778863], 
+       Complex[1.4455738872885846`, 0.04940591382941586], 
+       Complex[1.4435113603130014`, 0.0492785410673769], 
+       Complex[1.4414500002336883`, 0.04915136739885869], 
+       Complex[1.4393898076649654`, 0.04902439272094157], 
+       Complex[1.4373307832213658`, 0.048897616930599255`], 
+       Complex[1.4352729275176312`, 0.048771039924698764`], 
+       Complex[1.4332162411687148`, 0.048644661600000326`], 
+       Complex[1.4311607247897808`, 0.04851848185315746], 
+       Complex[1.4291063789962075`, 0.04839250058071679], 
+       Complex[1.4270532044035804`, 0.04826671767911804], 
+       Complex[1.425001201627698, 0.04814113304469399], 
+       Complex[1.4229503712845717`, 0.04801574657367047], 
+       Complex[1.420900713990422, 0.04789055816216618], 
+       Complex[1.418852230361682, 0.04776556770619278], 
+       Complex[1.416804921014996, 0.04764077510165472], 
+       Complex[1.414758786567221, 0.04751618024434931], 
+       Complex[1.4127138276354245`, 0.04739178302996656], 
+       Complex[1.4106700448368867`, 0.04726758335408918], 
+       Complex[1.4086274387890978`, 0.04714358111219252], 
+       Complex[1.406586010109761, 0.047019776199644515`], 
+       Complex[1.404545759416793, 0.046896168511705694`], 
+       Complex[1.4025066873283194`, 0.046772757943528975`], 
+       Complex[1.4004687944626795`, 0.04664954439015975], 
+       Complex[1.398432081438424, 0.04652652774653582], 
+       Complex[1.3963965488743175`, 0.04640370790748731], 
+       Complex[1.3943621973893345`, 0.04628108476773658], 
+       Complex[1.3923290276026616`, 0.046158658221898276`], 
+       Complex[1.3902970401337, 0.04603642816447915], 
+       Complex[1.3882662356020616`, 0.04591439448987818], 
+       Complex[1.386236614627571, 0.04579255709238632], 
+       Complex[1.3842081778302646`, 0.045670915866186546`], 
+       Complex[1.3821809258303916`, 0.04554947070535389], 
+       Complex[1.3801548592484156`, 0.04542822150385525], 
+       Complex[1.3781299787050105`, 0.045307168155549325`], 
+       Complex[1.3761062848210628`, 0.04518631055418673], 
+       Complex[1.3740837782176725`, 0.045065648593409786`], 
+       Complex[1.372062459516154, 0.044945182166752536`], 
+       Complex[1.3700423293380317`, 0.0448249111676407], 
+       Complex[1.368023388305043, 0.04470483548939154], 
+       Complex[1.3660056370391407`, 0.04458495502521394], 
+       Complex[1.3639890761624893`, 0.04446526966820824], 
+       Complex[1.361973706297466, 0.0443457793113663], 
+       Complex[1.35995952806666, 0.04422648384757126], 
+       Complex[1.3579465420928765`, 0.04410738316959767], 
+       Complex[1.3559347489991316`, 0.04398847717011142], 
+       Complex[1.3539241494086558`, 0.043869765741669585`], 
+       Complex[1.3519147439448922`, 0.043751248776720396`], 
+       Complex[1.349906533231497, 0.04363292616760329], 
+       Complex[1.347899517892342, 0.04351479780654878], 
+       Complex[1.3458936985515095`, 0.04339686358567836], 
+       Complex[1.3438890758332969`, 0.043279123397004564`], 
+       Complex[1.3418856503622152`, 0.04316157713243078], 
+       Complex[1.3398834227629886`, 0.043044224683751395`], 
+       Complex[1.3378823936605564`, 0.042927065942651506`], 
+       Complex[1.3358825636800686`, 0.042810100800707004`], 
+       Complex[1.3338839334468917`, 0.04269332914938451], 
+       Complex[1.3318865035866059`, 0.04257675088004135], 
+       Complex[1.3298902747250045`, 0.042460365883925405`], 
+       Complex[1.327895247488094, 0.04234417405217518], 
+       Complex[1.3259014225020966`, 0.042228175275819596`], 
+       Complex[1.3239088003934478`, 0.04211236944577814], 
+       Complex[1.3219173817887975`, 0.04199675645286067], 
+       Complex[1.3199271673150088`, 0.04188133618776732], 
+       Complex[1.3179381575991604`, 0.04176610854108863], 
+       Complex[1.315950353268545, 0.041651073403305316`], 
+       Complex[1.3139637549506693`, 0.04153623066478836], 
+       Complex[1.3119783632732533`, 0.04142158021579878], 
+       Complex[1.309994178864234, 0.041307121946487786`], 
+       Complex[1.3080112023517618`, 0.04119285574689663], 
+       Complex[1.306029434364201, 0.04107878150695644], 
+       Complex[1.30404887553013, 0.040964899116488374`], 
+       Complex[1.3020695264783442`, 0.04085120846520342], 
+       Complex[1.3000913878378526`, 0.04073770944270247], 
+       Complex[1.2981144602378785`, 0.0406244019384761], 
+       Complex[1.2961387443078591`, 0.04051128584190464], 
+       Complex[1.2941642406774496`, 0.04039836104225808], 
+       Complex[1.2921909499765178`, 0.0402856274286961], 
+       Complex[1.2902188728351474`, 0.04017308489026783], 
+       Complex[1.2882480098836355`, 0.040060733315912], 
+       Complex[1.286278361752497, 0.03994857259445673], 
+       Complex[1.2843099290724607`, 0.03983660261461961], 
+       Complex[1.2823427124744702`, 0.03972482326500758], 
+       Complex[1.2803767125896848`, 0.03961323443411682], 
+       Complex[1.2784119300494792`, 0.039501836010332796`], 
+       Complex[1.2764483654854437`, 0.03939062788193023], 
+       Complex[1.274486019529384, 0.03927960993707284], 
+       Complex[1.2725248928133204`, 0.039168782063813544`], 
+       Complex[1.2705649859694903`, 0.0390581441500943], 
+       Complex[1.2686062996303458`, 0.038947696083746], 
+       Complex[1.2666488344285545`, 0.038837437752488504`], 
+       Complex[1.2646925909970004`, 0.03872736904393051], 
+       Complex[1.2627375699687828`, 0.03861748984556957], 
+       Complex[1.2607837719772177`, 0.038507800044791984`], 
+       Complex[1.258831197655836, 0.03839829952887282], 
+       Complex[1.256879847638384, 0.03828898818497577], 
+       Complex[1.2549297225588258`, 0.03817986590015313], 
+       Complex[1.2529808230513413`, 0.03807093256134582], 
+       Complex[1.2510331497503246`, 0.037962188055383164`], 
+       Complex[1.2490867032903876`, 0.03785363226898302], 
+       Complex[1.2471414843063586`, 0.037745265088751624`], 
+       Complex[1.245197493433282, 0.03763708640118357], 
+       Complex[1.243254731306418, 0.037529096092661716`], 
+       Complex[1.2413131985612427`, 0.03742129404945718], 
+       Complex[1.2393728958334502`, 0.03731368015772924], 
+       Complex[1.2374338237589508`, 0.03720625430352541], 
+       Complex[1.2354959829738703`, 0.03709901637278113], 
+       Complex[1.2335593741145516`, 0.036991966251319994`], 
+       Complex[1.2316239978175547`, 0.03688510382485349], 
+       Complex[1.2296898547196569`, 0.036778428978981106`], 
+       Complex[1.2277569454578503`, 0.03667194159919012], 
+       Complex[1.2258252706693458`, 0.03656564157085567], 
+       Complex[1.22389483099157, 0.03645952877924063], 
+       Complex[1.2219656270621666`, 0.03635360310949558], 
+       Complex[1.220037659518998, 0.036247864446658826`], 
+       Complex[1.218110929000141, 0.03614231267565619], 
+       Complex[1.2161854361438909`, 0.03603694768130106], 
+       Complex[1.21426118158876, 0.035931769348294305`], 
+       Complex[1.212338165973479, 0.03582677756122434], 
+       Complex[1.210416389936995, 0.03572197220456683], 
+       Complex[1.2084958541184703`, 0.03561735316268483], 
+       Complex[1.2065765591572881`, 0.03551292031982867], 
+       Complex[1.2046585056930477`, 0.03540867356013593], 
+       Complex[1.2027416943655656`, 0.03530461276763136], 
+       Complex[1.2008261258148751`, 0.03520073782622676], 
+       Complex[1.198911800681229, 0.03509704861972109], 
+       Complex[1.1969987196050969`, 0.034993545031800286`], 
+       Complex[1.1950868832271668`, 0.034890226946037245`], 
+       Complex[1.1931762921883415`, 0.03478709424589173], 
+       Complex[1.191266947129746, 0.0346841468147104], 
+       Complex[1.1893588486927211`, 0.034581384535726734`], 
+       Complex[1.1874519975188247`, 0.03447880729206089], 
+       Complex[1.1855463942498339`, 0.03437641496671972], 
+       Complex[1.183642039527744, 0.0342742074425968], 
+       Complex[1.1817389339947684`, 0.0341721846024722], 
+       Complex[1.1798370782933376`, 0.03407034632901255], 
+       Complex[1.177936473066101, 0.033968692504770914`], 
+       Complex[1.1760371189559273`, 0.033867223012186885`], 
+       Complex[1.1741390166059025`, 0.0337659377335863], 
+       Complex[1.1722421666593303`, 0.03366483655118138], 
+       Complex[1.1703465697597344`, 0.03356391934707058], 
+       Complex[1.1684522265508561`, 0.03346318600323857], 
+       Complex[1.1665591376766562`, 0.0333626364015562], 
+       Complex[1.1646673037813131`, 0.033262270423780355`], 
+       Complex[1.1627767255092236`, 0.033162087951553974`], 
+       Complex[1.160887403505005, 0.03306208886640605], 
+       Complex[1.1589993384134918`, 0.03296227304975146], 
+       Complex[1.1571125308797379`, 0.032862640382890954`], 
+       Complex[1.1552269815490162`, 0.03276319074701113], 
+       Complex[1.153342691066818, 0.03266392402318438], 
+       Complex[1.1514596600788554`, 0.03256484009236878], 
+       Complex[1.149577889231057, 0.03246593883540809], 
+       Complex[1.147697379169572, 0.032367220133031616`], 
+       Complex[1.1458181305407689`, 0.03226868386585433], 
+       Complex[1.143940143991236, 0.03217032991437667], 
+       Complex[1.142063420167779, 0.03207215815898447], 
+       Complex[1.140187959717424, 0.031974168479949], 
+       Complex[1.1383137632874172`, 0.031876360757426885`], 
+       Complex[1.1364408315252235`, 0.031778734871460025`], 
+       Complex[1.1345691650785277`, 0.03168129070197552], 
+       Complex[1.1326987645952329`, 0.03158402812878564], 
+       Complex[1.1308296307234633`, 0.03148694703158784], 
+       Complex[1.128961764111564, 0.03139004728996463], 
+       Complex[1.127095165408097, 0.031293328783383506`], 
+       Complex[1.1252298352618448`, 0.031196791391196903`], 
+       Complex[1.1233657743218113`, 0.031100434992642194`], 
+       Complex[1.1215029832372194`, 0.031004259466841624`], 
+       Complex[1.1196414626575122`, 0.03090826469280222], 
+       Complex[1.1177812132323515`, 0.030812450549415695`], 
+       Complex[1.115922235611621, 0.030716816915458505`], 
+       Complex[1.1140645304454244`, 0.03062136366959177], 
+       Complex[1.1122080983840845`, 0.030526090690361128`], 
+       Complex[1.1103529400781447`, 0.030430997856196733`], 
+       Complex[1.1084990561783692`, 0.03033608504541327], 
+       Complex[1.1066464473357425`, 0.03024135213620978], 
+       Complex[1.10479511420147, 0.030146799006669722`], 
+       Complex[1.1029450574269755`, 0.03005242553476077], 
+       Complex[1.1010962776639055`, 0.029958231598334974`], 
+       Complex[1.0992487755641271`, 0.02986421707512847], 
+       Complex[1.0974025517797272`, 0.02977038184276157], 
+       Complex[1.0955576069630122`, 0.029676725778738724`], 
+       Complex[1.0937139417665114`, 0.029583248760448315`], 
+       Complex[1.0918715568429753`, 0.029489950665162804`], 
+       Complex[1.0900304528453733`, 0.02939683137003852], 
+       Complex[1.0881906304268965`, 0.029303890752115654`], 
+       Complex[1.0863520902409567`, 0.02921112868831822], 
+       Complex[1.0845148329411884`, 0.02911854505545404], 
+       Complex[1.0826788591814454`, 0.029026139730214555`], 
+       Complex[1.0808441696158027`, 0.02893391258917489], 
+       Complex[1.0790107648985576`, 0.028841863508793787`], 
+       Complex[1.0771786456842285`, 0.028749992365413524`], 
+       Complex[1.0753478126275542`, 0.02865829903525981], 
+       Complex[1.073518266383496, 0.028566783394441825`], 
+       Complex[1.0716900076072349`, 0.02847544531895212], 
+       Complex[1.0698630369541766`, 0.028384284684666587`], 
+       Complex[1.0680373550799451`, 0.028293301367344332`], 
+       Complex[1.0662129626403876`, 0.0282024952426277], 
+       Complex[1.0643898602915722`, 0.02811186618604218], 
+       Complex[1.0625680486897904`, 0.028021414072996378`], 
+       Complex[1.0607475284915537`, 0.027931138778781936`], 
+       Complex[1.0589283003535954`, 0.027841040178573438`], 
+       Complex[1.0571103649328724`, 0.027751118147428464`], 
+       Complex[1.0552937228865624`, 0.02766137256028747], 
+       Complex[1.053478374872065, 0.027571803291973705`], 
+       Complex[1.0516643215470018`, 0.027482410217193158`], 
+       Complex[1.0498515635692172`, 0.02739319321053461], 
+       Complex[1.048040101596778, 0.027304152146469477`], 
+       Complex[1.046229936287972, 0.02721528689935169], 
+       Complex[1.0444210683013095`, 0.027126597343417852`], 
+       Complex[1.0426134982955246`, 0.02703808335278699], 
+       Complex[1.040807226929573, 0.026949744801460587`], 
+       Complex[1.039002254862632, 0.02686158156332247], 
+       Complex[1.0371985827541017`, 0.02677359351213882], 
+       Complex[1.0353962112636066`, 0.02668578052155812], 
+       Complex[1.033595141050992, 0.026598142465111028`], 
+       Complex[1.031795372776326, 0.026510679216210344`], 
+       Complex[1.0299969070999, 0.026423390648151027`], 
+       Complex[1.0281997446822275`, 0.026336276634110027`], 
+       Complex[1.026403886184047, 0.02624933704714636], 
+       Complex[1.024609332266317, 0.0261625717602009], 
+       Complex[1.02281608359022, 0.026075980646096446`], 
+       Complex[1.0210241408171628`, 0.02598956357753762], 
+       Complex[1.019233504608774, 0.02590332042711083], 
+       Complex[1.0174441756269061`, 0.02581725106728415], 
+       Complex[1.0156561545336336`, 0.025731355370407348`], 
+       Complex[1.013869441991255, 0.025645633208711806`], 
+       Complex[1.0120840386622938`, 0.025560084454310465`], 
+       Complex[1.010299945209494, 0.02547470897919769], 
+       Complex[1.008517162295824, 0.02538950665524935], 
+       Complex[1.0067356905844762`, 0.025304477354222685`], 
+       Complex[1.0049555307388676`, 0.025219620947756247`], 
+       Complex[1.0031766834226363`, 0.02513493730736987], 
+       Complex[1.0013991492996455`, 0.025050426304464565`], 
+       Complex[0.9996229290339819, 0.024966087810322557`], 
+       Complex[0.9978480232899566, 0.024881921696107152`], 
+       Complex[0.9960744327321038, 0.0247979278328627], 
+       Complex[0.9943021580251815, 0.024714106091514525`], 
+       Complex[0.9925311998341716, 0.024630456342868912`], 
+       Complex[0.9907615588242807, 0.024546978457613014`], 
+       Complex[0.9889932356609397, 0.02446367230631483], 
+       Complex[0.987226231009802, 0.024380537759423084`], 
+       Complex[0.9854605455367464, 0.02429757468726726], 
+       Complex[0.9836961799078758, 0.024214782960057437`], 
+       Complex[0.9819331347895183, 0.02413216244788437], 
+       Complex[0.980171410848224, 0.0240497130207193], 
+       Complex[0.9784110087507689, 0.02396743454841397], 
+       Complex[0.9766519291641541, 0.023885326900700565`], 
+       Complex[0.974894172755604, 0.023803389947191646`], 
+       Complex[0.9731377401925682, 0.023721623557380077`], 
+       Complex[0.97138263214272, 0.02364002760063899], 
+       Complex[0.9696288492739591, 0.023558601946221745`], 
+       Complex[0.9678763922544088, 0.023477346463261845`], 
+       Complex[0.9661252617524176, 0.023396261020772868`], 
+       Complex[0.964375458436558, 0.023315345487648444`], 
+       Complex[0.9626269829756284, 0.023234599732662176`], 
+       Complex[0.9608798360386525, 0.023154023624467647`], 
+       Complex[0.959134018294878, 0.023073617031598218`], 
+       Complex[0.9573895304137774, 0.022993379822467134`], 
+       Complex[0.9556463730650497, 0.022913311865367405`], 
+       Complex[0.953904546918619, 0.02283341302847166], 
+       Complex[0.9521640526446336, 0.022753683179832278`], 
+       Complex[0.9504248909134674, 0.022674122187381136`], 
+       Complex[0.94868706239572, 0.02259472991892971], 
+       Complex[0.9469505677622169, 0.02251550624216892], 
+       Complex[0.9452154076840086, 0.02243645102466912], 
+       Complex[0.94348158283237, 0.022357564133880004`], 
+       Complex[0.9417490938788037, 0.022278845437130594`], 
+       Complex[0.9400179414950374, 0.022200294801629168`], 
+       Complex[0.9382881263530233, 0.022121912094463177`], 
+       Complex[0.9365596491249399, 0.02204369718259919], 
+       Complex[0.9348325104831927, 0.02196564993288292], 
+       Complex[0.9331067111004127, 0.021887770212039085`], 
+       Complex[0.9313822516494551, 0.021810057886671314`], 
+       Complex[0.9296591328034026, 0.021732512823262204`], 
+       Complex[0.9279373552355644, 0.02165513488817319], 
+       Complex[0.9262169196194755, 0.021577923947644517`], 
+       Complex[0.9244978266288959, 0.021500879867795135`], 
+       Complex[0.9227800769378128, 0.02142400251462272], 
+       Complex[0.9210636712204405, 0.02134729175400357], 
+       Complex[0.9193486101512176, 0.0212707474516925], 
+       Complex[0.9176348944048117, 0.021194369473322917`], 
+       Complex[0.9159225246561138, 0.02111815768440664], 
+       Complex[0.9142115015802449, 0.021042111950333925`], 
+       Complex[0.9125018258525495, 0.020966232136373296`], 
+       Complex[0.9107934981486006, 0.020890518107671664`], 
+       Complex[0.9090865191441969, 0.02081496972925408], 
+       Complex[0.907380889515365, 0.020739586866023844`], 
+       Complex[0.9056766099383566, 0.0206643693827623], 
+       Complex[0.9039736810896525, 0.02058931714412892], 
+       Complex[0.9022721036459586, 0.020514430014661127`], 
+       Complex[0.9005718782842081, 0.02043970785877435], 
+       Complex[0.8988730056815623, 0.020365150540761805`], 
+       Complex[0.8971754865154083, 0.020290757924794664`], 
+       Complex[0.895479321463361, 0.02021652987492176], 
+       Complex[0.8937845112032629, 0.020142466255069755`], 
+       Complex[0.8920910564131826, 0.020068566929042846`], 
+       Complex[0.8903989577714181, 0.019994831760522976`], 
+       Complex[0.8887082159564919, 0.01992126061306948], 
+       Complex[0.8870188316471562, 0.019847853350119318`], 
+       Complex[0.88533080552239, 0.019774609834986797`], 
+       Complex[0.8836441382614003, 0.019701529930863652`], 
+       Complex[0.8819588305436209, 0.019628613500818907`], 
+       Complex[0.8802748830487137, 0.01955586040779884], 
+       Complex[0.8785922964565686, 0.019483270514626946`], 
+       Complex[0.8769110714473023, 0.019410843684003854`], 
+       Complex[0.8752312087012614, 0.019338579778507333`], 
+       Complex[0.8735527088990178, 0.019266478660592116`], 
+       Complex[0.8718755727213736, 0.019194540192589957`], 
+       Complex[0.8701998008493573, 0.019122764236709458`], 
+       Complex[0.8685253939642273, 0.019051150655036216`], 
+       Complex[0.8668523527474679, 0.018979699309532486`], 
+       Complex[0.8651806778807937, 0.01890841006203734], 
+       Complex[0.8635103700461457, 0.018837282774266516`], 
+       Complex[0.8618414299256952, 0.01876631730781245], 
+       Complex[0.8601738582018398, 0.018695513524144024`], 
+       Complex[0.8585076555572074, 0.01862487128460676], 
+       Complex[0.8568428226746528, 0.01855439045042252], 
+       Complex[0.855179360237261, 0.018484070882689704`], 
+       Complex[0.8535172689283438, 0.018413912442382933`], 
+       Complex[0.8518565494314433, 0.018343914990353174`], 
+       Complex[0.8501972024303293, 0.018274078387327593`], 
+       Complex[0.8485392286090008, 0.018204402493909595`], 
+       Complex[0.8468826286516848, 0.018134887170578574`], 
+       Complex[0.8452274032428391, 0.018065532277690102`], 
+       Complex[0.8435735530671487, 0.01799633767547567], 
+       Complex[0.8419210788095285, 0.017927303224042755`], 
+       Complex[0.8402699811551216, 0.01785842878337467], 
+       Complex[0.838620260789302, 0.0177897142133306], 
+       Complex[0.83697191839767, 0.017721159373645462`], 
+       Complex[0.8353249546660585, 0.01765276412392992], 
+       Complex[0.8336793702805271, 0.017584528323670218`], 
+       Complex[0.8320351659273661, 0.01751645183222829], 
+       Complex[0.8303923422930944, 0.017448534508841516`], 
+       Complex[0.8287509000644617, 0.01738077621262281], 
+       Complex[0.8271108399284454, 0.017313176802560476`], 
+       Complex[0.8254721625722543, 0.017245736137518192`], 
+       Complex[0.8238348686833254, 0.017178454076234962`], 
+       Complex[0.8221989589493267, 0.017111330477324993`], 
+       Complex[0.8205644340581546, 0.017044365199277677`], 
+       Complex[0.8189312946979365, 0.0169775581004576], 
+       Complex[0.8172995415570292, 0.01691090903910436], 
+       Complex[0.8156691753240194, 0.016844417873332594`], 
+       Complex[0.8140401966877236, 0.01677808446113188], 
+       Complex[0.8124126063371897, 0.01671190866036673], 
+       Complex[0.8107864049616934, 0.016645890328776423`], 
+       Complex[0.8091615932507426, 0.016580029323975107`], 
+       Complex[0.8075381718940737, 0.016514325503451575`], 
+       Complex[0.8059161415816564, 0.01644877872456936], 
+       Complex[0.8042955030036867, 0.01638338884456653], 
+       Complex[0.8026762568505943, 0.016318155720555793`], 
+       Complex[0.8010584038130374, 0.01625307920952422], 
+       Complex[0.7994419445819063, 0.016188159168333445`], 
+       Complex[0.7978268798483199, 0.016123395453719394`], 
+       Complex[0.79621321030363, 0.01605878792229234], 
+       Complex[0.7946009366394171, 0.015994336430536812`], 
+       Complex[0.7929900595474944, 0.01593004083481152], 
+       Complex[0.791380579719904, 0.015865900991349338`], 
+       Complex[0.78977249784892, 0.01580191675625723], 
+       Complex[0.7881658146270473, 0.015738087985516142`], 
+       Complex[0.7865605307470219, 0.015674414534981036`], 
+       Complex[0.7849566469018102, 0.01561089626038075], 
+       Complex[0.783354163784611, 0.01554753301731799], 
+       Complex[0.7817530820888522, 0.01548432466126924], 
+       Complex[0.7801534025081951, 0.015421271047584726`], 
+       Complex[0.7785551257365313, 0.015358372031488331`], 
+       Complex[0.7769582524679838, 0.01529562746807758], 
+       Complex[0.7753627833969067, 0.015233037212323525`], 
+       Complex[0.7737687192178861, 0.015170601119070749`], 
+       Complex[0.7721760606257395, 0.015108319043037237`], 
+       Complex[0.7705848083155158, 0.01504619083881439], 
+       Complex[0.7689949629824958, 0.014984216360866925`], 
+       Complex[0.767406525322192, 0.014922395463532813`], 
+       Complex[0.7658194960303476, 0.01486072800102322], 
+       Complex[0.7642338758029399, 0.014799213827422485`], 
+       Complex[0.7626496653361756, 0.014737852796687993`], 
+       Complex[0.761066865326495, 0.014676644762650244`], 
+       Complex[0.7594854764705695, 0.01461558957901258], 
+       Complex[0.7579054994653034, 0.014554687099351375`], 
+       Complex[0.7563269350078317, 0.014493937177115796`], 
+       Complex[0.7547497837955234, 0.01443333966562782], 
+       Complex[0.7531740465259779, 0.014372894418082111`], 
+       Complex[0.7515997238970289, 0.014312601287546134`], 
+       Complex[0.7500268166067402, 0.014252460126959798`], 
+       Complex[0.7484553253534099, 0.014192470789135742`], 
+       Complex[0.7468852508355673, 0.014132633126758953`], 
+       Complex[0.7453165937519752, 0.014072946992387], 
+       Complex[0.7437493548016282, 0.014013412238449721`], 
+       Complex[0.7421835346837539, 0.013954028717249326`], 
+       Complex[0.7406191340978123, 0.013894796280960272`], 
+       Complex[0.7390561537434966, 0.013835714781629276`], 
+       Complex[0.7374945943207327, 0.013776784071175108`], 
+       Complex[0.7359344565296791, 0.013718004001388718`], 
+       Complex[0.7343757410707276, 0.013659374423932981`], 
+       Complex[0.7328184486445027, 0.013600895190342844`], 
+       Complex[0.7312625799518618, 0.013542566152025103`], 
+       Complex[0.7297081356938965, 0.01348438716025842], 
+       Complex[0.7281551165719294, 0.013426358066193222`], 
+       Complex[0.7266035232875192, 0.013368478720851732`], 
+       Complex[0.7250533565424552, 0.013310748975127795`], 
+       Complex[0.7235046170387618, 0.01325316867978687], 
+       Complex[0.7219573054786959, 0.01319573768546597], 
+       Complex[0.7204114225647484, 0.013138455842673626`], 
+       Complex[0.7188669689996433, 0.01308132300178981], 
+       Complex[0.7173239454863387, 0.013024339013065813`], 
+       Complex[0.7157823527280255, 0.01296750372662429], 
+       Complex[0.7142421914281294, 0.01291081699245918], 
+       Complex[0.7127034622903085, 0.012854278660435543`], 
+       Complex[0.7111661660184564, 0.012797888580289633`], 
+       Complex[0.7096303033166991, 0.012741646601628777`], 
+       Complex[0.7080958748893975, 0.012685552573931301`], 
+       Complex[0.7065628814411454, 0.012629606346546505`], 
+       Complex[0.7050313236767722, 0.012573807768694606`], 
+       Complex[0.7035012023013401, 0.012518156689466632`], 
+       Complex[0.7019725180201464, 0.012462652957824404`], 
+       Complex[0.7004452715387212, 0.012407296422600465`], 
+       Complex[0.6989194635628309, 0.012352086932498037`], 
+       Complex[0.6973950947984745, 0.012297024336090909`], 
+       Complex[0.6958721659518867, 0.012242108481823452`], 
+       Complex[0.6943506777295357, 0.012187339218010487`], 
+       Complex[0.6928306308381251, 0.012132716392837308`], 
+       Complex[0.6913120259845917, 0.012078239854359482`], 
+       Complex[0.6897948638761088, 0.012023909450502995`], 
+       Complex[0.6882791452200826, 0.011969725029064002`], 
+       Complex[0.6867648707241562, 0.011915686437708867`], 
+       Complex[0.6852520410962046, 0.011861793523974047`], 
+       Complex[0.683740657044341, 0.011808046135266134`], 
+       Complex[0.6822307192769103, 0.011754444118861668`], 
+       Complex[0.6807222285024951, 0.011700987321907148`], 
+       Complex[0.6792151854299113, 0.011647675591418945`], 
+       Complex[0.677709590768211, 0.011594508774283308`], 
+       Complex[0.6762054452266811, 0.011541486717256213`], 
+       Complex[0.6747027495148431, 0.011488609266963316`], 
+       Complex[0.6732015043424548, 0.01143587626989998], 
+       Complex[0.6717017104195087, 0.011383287572431093`], 
+       Complex[0.6702033684562332, 0.011330843020791136`], 
+       Complex[0.6687064791630914, 0.011278542461083996`], 
+       Complex[0.6672110432507832, 0.011226385739283022`], 
+       Complex[0.6657170614302428, 0.01117437270123083], 
+       Complex[0.664224534412641, 0.011122503192639403`], 
+       Complex[0.6627334629093831, 0.011070777059089912`], 
+       Complex[0.661243847632112, 0.01101919414603271], 
+       Complex[0.6597556892927047, 0.01096775429878721], 
+       Complex[0.6582689886032755, 0.01091645736254196], 
+       Complex[0.6567837462761733, 0.010865303182354388`], 
+       Complex[0.6552999630239841, 0.010814291603150932`], 
+       Complex[0.6538176395595291, 0.010763422469726839`], 
+       Complex[0.6523367765958665, 0.010712695626746194`], 
+       Complex[0.6508573748462899, 0.010662110918741814`], 
+       Complex[0.64937943502433, 0.010611668190115206`], 
+       Complex[0.6479029578437528, 0.010561367285136479`], 
+       Complex[0.6464279440185619, 0.010511208047944347`], 
+       Complex[0.6449543942629954, 0.010461190322545978`], 
+       Complex[0.6434823092915304, 0.010411313952817025`], 
+       Complex[0.6420116898188782, 0.010361578782501504`], 
+       Complex[0.6405425365599886, 0.010311984655211753`], 
+       Complex[0.6390748502300464, 0.010262531414428358`], 
+       Complex[0.6376086315444749, 0.010213218903500151`], 
+       Complex[0.6361438812189325, 0.010164046965644057`], 
+       Complex[0.6346805999693151, 0.010115015443945087`], 
+       Complex[0.6332187885117561, 0.01006612418135629], 
+       Complex[0.6317584475626251, 0.010017373020698696`], 
+       Complex[0.630299577838529, 0.009968761804661157], 
+       Complex[0.6288421800563117, 0.009920290375800452], 
+       Complex[0.6273862549330539, 0.009871958576541062], 
+       Complex[0.6259318031860746, 0.009823766249175227], 
+       Complex[0.6244788255329285, 0.009775713235862826], 
+       Complex[0.6230273226914096, 0.009727799378631375], 
+       Complex[0.621577295379547, 0.009680024519375838], 
+       Complex[0.6201287443156094, 0.009632388499858742], 
+       Complex[0.6186816702181013, 0.009584891161709961], 
+       Complex[0.6172360738057657, 0.00953753234642677], 
+       Complex[0.6157919557975827, 0.009490311895373704], 
+       Complex[0.614349316912771, 0.009443229649782545], 
+       Complex[0.6129081578707857, 0.00939628545075222], 
+       Complex[0.6114684793913209, 0.009349479139248797], 
+       Complex[0.6100302821943078, 0.009302810556105382], 
+       Complex[0.6085935669999157, 0.009256279542022043], 
+       Complex[0.6071583345285521, 0.009209885937565799], 
+       Complex[0.6057245855008624, 0.00916362958317055], 
+       Complex[0.60429232063773, 0.009117510319136955], 
+       Complex[0.602861540660277, 0.00907152798563246], 
+       Complex[0.6014322462898624, 0.009025682422691144], 
+       Complex[0.6000044382480851, 0.008979973470213768], 
+       Complex[0.5985781172567813, 0.008934400967967594], 
+       Complex[0.5971532840380259, 0.00888896475558644], 
+       Complex[0.5957299393141323, 0.0088436646725705], 
+       Complex[0.5943080838076525, 0.008798500558286395], 
+       Complex[0.5928877182413763, 0.008753472251967018], 
+       Complex[0.5914688433383338, 0.008708579592711591], 
+       Complex[0.5900514598217917, 0.008663822419485422], 
+       Complex[0.5886355684152574, 0.008619200571120034], 
+       Complex[0.5872211698424757, 0.00857471388631301], 
+       Complex[0.5858082648274315, 0.008530362203627899], 
+       Complex[0.5843968540943473, 0.008486145361494222], 
+       Complex[0.5829869383676858, 0.008442063198207426], 
+       Complex[0.5815785183721474, 0.008398115551928707], 
+       Complex[0.5801715948326736, 0.008354302260685098], 
+       Complex[0.5787661684744428, 0.008310623162369276], 
+       Complex[0.577362240022875, 0.008267078094739613], 
+       Complex[0.5759598102036269, 0.008223666895420003], 
+       Complex[0.5745588797425971, 0.008180389401899923], 
+       Complex[0.5731594493659213, 0.008137245451534231], 
+       Complex[0.571761519799977, 0.008094234881543271], 
+       Complex[0.5703650917713794, 0.008051357529012634], 
+       Complex[0.5689701660069844, 0.008008613230893226], 
+       Complex[0.5675767432338866, 0.007966001824001194], 
+       Complex[0.5661848241794212, 0.007923523145017767], 
+       Complex[0.5647944095711627, 0.007881177030489305], 
+       Complex[0.5634055001369256, 0.007838963316827183], 
+       Complex[0.562018096604764, 0.007796881840307733], 
+       Complex[0.5606321997029731, 0.007754932437072225], 
+       Complex[0.5592478101600861, 0.007713114943126714], 
+       Complex[0.5578649287048785, 0.007671429194342079], 
+       Complex[0.5564835560663638, 0.007629875026453894], 
+       Complex[0.5551036929737978, 0.007588452275062416], 
+       Complex[0.5537253401566746, 0.00754716077563245], 
+       Complex[0.5523484983447305, 0.007506000363493387], 
+       Complex[0.5509731682679405, 0.007464970873839034], 
+       Complex[0.5495993506565214, 0.007424072141727659], 
+       Complex[0.5482270462409292, 0.007383304002081847], 
+       Complex[0.5468562557518619, 0.007342666289688467], 
+       Complex[0.5454869799202567, 0.0073021588391986095`], 
+       Complex[0.5441192194772931, 0.007261781485127555], 
+       Complex[0.542752975154389, 0.0072215340618546515`], 
+       Complex[0.5413882476832061, 0.007181416403623301], 
+       Complex[0.5400250377956441, 0.007141428344540863], 
+       Complex[0.5386633462238456, 0.007101569718578643], 
+       Complex[0.5373031737001933, 0.007061840359571763], 
+       Complex[0.5359445209573116, 0.007022240101219145], 
+       Complex[0.5345873887280645, 0.0069827687770834465`], 
+       Complex[0.5332317777455594, 0.006943426220591001], 
+       Complex[0.531877688743143, 0.006904212265031689], 
+       Complex[0.5305251224544044, 0.0068651267435590295`], 
+       Complex[0.5291740796131733, 0.006826169489189897], 
+       Complex[0.5278245609535221, 0.006787340334804701], 
+       Complex[0.5264765672097624, 0.006748639113147109], 
+       Complex[0.52513009911645, 0.006710065656824166], 
+       Complex[0.5237851574083802, 0.00667161979830605], 
+       Complex[0.5224417428205912, 0.006633301369926219], 
+       Complex[0.5210998560883621, 0.006595110203881134], 
+       Complex[0.5197594979472144, 0.006557046132230366], 
+       Complex[0.5184206691329111, 0.006519108986896418], 
+       Complex[0.5170833703814572, 0.006481298599664752], 
+       Complex[0.5157476024290997, 0.006443614802183667], 
+       Complex[0.5144133660123273, 0.006406057425964257], 
+       Complex[0.513080661867871, 0.00636862630238033], 
+       Complex[0.5117494907327048, 0.0063313212626684105`], 
+       Complex[0.5104198533440427, 0.006294142137927556], 
+       Complex[0.5090917504393434, 0.0062570887591194505`], 
+       Complex[0.5077651827563062, 0.006220160957068165], 
+       Complex[0.5064401510328741, 0.006183358562460297], 
+       Complex[0.5051166560072308, 0.006146681405844694], 
+       Complex[0.5037946984178049, 0.006110129317632596], 
+       Complex[0.502474279003265, 0.006073702128097361], 
+       Complex[0.5011553985025243, 0.006037399667374621], 
+       Complex[0.4998380576547373, 0.006001221765462051], 
+       Complex[0.4985222571993029, 0.005965168252219398], 
+       Complex[0.4972079978758609, 0.00592923895736836], 
+       Complex[0.4958952804242949, 0.005893433710492571], 
+       Complex[0.49458410558473204`, 0.005857752341037517], 
+       Complex[0.4932744740975407, 0.005822194678310482], 
+       Complex[0.49196638670333476`, 0.005786760551480467], 
+       Complex[0.49065984414296865`, 0.005751449789578145], 
+       Complex[0.4893548471575417, 0.005716262221495794], 
+       Complex[0.4880513964883959, 0.005681197675987215], 
+       Complex[0.4867494928771168, 0.0056462559816677], 
+       Complex[0.4854491370655326, 0.005611436967013966], 
+       Complex[0.4841503297957159, 0.005576740460364077], 
+       Complex[0.4828530718099816, 0.005542166289917336], 
+       Complex[0.4815573638508896, 0.0055077142837343645`], 
+       Complex[0.48026320666124184`, 0.005473384269736864], 
+       Complex[0.4789706009840854, 0.005439176075707673], 
+       Complex[0.47767954756270986`, 0.005405089529290686], 
+       Complex[0.4763900471406495, 0.0053711244579907075`], 
+       Complex[0.4751021004616814, 0.00533728068917351], 
+       Complex[0.47381570826982783`, 0.005303558050065688], 
+       Complex[0.4725308713093537, 0.005269956367754625], 
+       Complex[0.4712475903247693, 0.005236475469188422], 
+       Complex[0.46996586606082785`, 0.005203115181175845], 
+       Complex[0.4686856992625274, 0.005169875330386247], 
+       Complex[0.4674070906751097, 0.0051367557433495085`], 
+       Complex[0.4661300410440615, 0.005103756246455997], 
+       Complex[0.4648545511151131, 0.00507087666595646], 
+       Complex[0.46358062163423963`, 0.0050381168279620085`], 
+       Complex[0.46230825334766035`, 0.0050054765584440185`], 
+       Complex[0.46103744700184, 0.0049729556832340815`], 
+       Complex[0.459768203343486, 0.0049405540280239215`], 
+       Complex[0.45850052311955264`, 0.0049082714183654175`], 
+       Complex[0.45723440707723684`, 0.00487610767967038], 
+       Complex[0.45596985596398215`, 0.004844062637210664], 
+       Complex[0.4547068705274753, 0.004812136116117954], 
+       Complex[0.4534454515156493, 0.004780327941383805], 
+       Complex[0.452185599676681, 0.004748637937859554], 
+       Complex[0.45092731575899303`, 0.004717065930256233], 
+       Complex[0.4496706005112524, 0.004685611743144474], 
+       Complex[0.44841545468237193`, 0.004654275200954561], 
+       Complex[0.4471618790215089, 0.004623056127976257], 
+       Complex[0.4459098742780668, 0.004591954348358768], 
+       Complex[0.44465944120169326`, 0.004560969686110724], 
+       Complex[0.4434105805422824, 0.0045301019651000415`], 
+       Complex[0.44216329304997287`, 0.004499351009053921], 
+       Complex[0.44091757947514965`, 0.004468716641558755], 
+       Complex[0.4396734405684422, 0.004438198686060062], 
+       Complex[0.43843087708072687`, 0.0044077969658624806`], 
+       Complex[0.4371898897631245, 0.00437751130412958], 
+       Complex[0.4359504793670028, 0.004347341523883918], 
+       Complex[0.43471264664397397`, 0.004317287448006911], 
+       Complex[0.43347639234589747`, 0.004287348899238843], 
+       Complex[0.43224171722487753`, 0.00425752570017866], 
+       Complex[0.4310086220332651, 0.0042278176732840796`], 
+       Complex[0.42977710752365667`, 0.004198224640871372], 
+       Complex[0.42854717444889556`, 0.0041687464251154455`], 
+       Complex[0.42731882356207007`, 0.0041393828480496345`], 
+       Complex[0.4260920556165162, 0.004110133731565751], 
+       Complex[0.4248668713658149, 0.004080998897413925], 
+       Complex[0.42364327156379444`, 0.0040519781672026575`], 
+       Complex[0.42242125696452865`, 0.004023071362398637], 
+       Complex[0.42120082832233896`, 0.003994278304326733], 
+       Complex[0.4199819863917922, 0.003965598814169956], 
+       Complex[0.4187647319277025, 0.003937032712969343], 
+       Complex[0.41754906568513006`, 0.00390857982162391], 
+       Complex[0.416334988419383, 0.003880239960890602], 
+       Complex[0.4151225008860144, 0.003852012951384206], 
+       Complex[0.413911603840826, 0.0038238986135773322`], 
+       Complex[0.412702298039865, 0.0037958967678002747`], 
+       Complex[0.4114945842394269, 0.003768007234241014], 
+       Complex[0.41028846319605267`, 0.0037402298329451238`], 
+       Complex[0.40908393566653206`, 0.003712564383815722], 
+       Complex[0.4078810024079006, 0.0036850107066133814`], 
+       Complex[0.406679664177442, 0.00365756862095608], 
+       Complex[0.4054799217326865, 0.0036302379463191373`], 
+       Complex[0.40428177583141217`, 0.0036030185020351664`], 
+       Complex[0.4030852272316442, 0.003575910107293972], 
+       Complex[0.40189027669165556`, 0.0035489125811425104`], 
+       Complex[0.40069692496996623`, 0.0035220257424848113`], 
+       Complex[0.39950517282534453`, 0.003495249410081962], 
+       Complex[0.3983150210168055, 0.0034685834025519474`], 
+       Complex[0.397126470303613, 0.0034420275383697015`], 
+       Complex[0.3959395214452774, 0.0034155816358669173`], 
+       Complex[0.39475417520155803`, 0.003389245513232107], 
+       Complex[0.39357043233246125`, 0.0033630189885104494`], 
+       Complex[0.3923882935982422, 0.003336901879603756], 
+       Complex[0.3912077597594029, 0.003310894004270414], 
+       Complex[0.39002883157669505`, 0.0032849951801253094`], 
+       Complex[0.38885150981111677`, 0.0032592052246397316`], 
+       Complex[0.38767579522391593`, 0.0032335239551414176`], 
+       Complex[0.3865016885765871, 0.0032079511888143328`], 
+       Complex[0.3853291906308748, 0.003182486742698741], 
+       Complex[0.38415830214877056`, 0.0031571304336910633`], 
+       Complex[0.3829890238925154, 0.0031318820785438233`], 
+       Complex[0.38182135662459815`, 0.003106741493865601], 
+       Complex[0.38065530110775664`, 0.0030817084961209627`], 
+       Complex[0.37949085810497685`, 0.0030567829016303963`], 
+       Complex[0.3783280283794943, 0.003031964526570261], 
+       Complex[0.37716681269479213`, 0.00300725318697264], 
+       Complex[0.3760072118146036, 0.002982648698725422], 
+       Complex[0.3748492265029095, 0.0029581508775720997`], 
+       Complex[0.3736928575239409, 0.002933759539111777], 
+       Complex[0.3725381056421765, 0.0029094744987990927`], 
+       Complex[0.3713849716223457, 0.002885295571944139], 
+       Complex[0.37023345622942505`, 0.0028612225737124197`], 
+       Complex[0.3690835602286423, 0.0028372553191247513`], 
+       Complex[0.367935284385473, 0.0028133936230572334`], 
+       Complex[0.3667886294656429, 0.002789637300241175], 
+       Complex[0.3656435962351265, 0.0027659861652630045`], 
+       Complex[0.3645001854601483, 0.002742440032564252], 
+       Complex[0.36335839790718144`, 0.00271899871644141], 
+       Complex[0.36221823434295003`, 0.0026956620310459797`], 
+       Complex[0.3610796955344265, 0.0026724297903842602`], 
+       Complex[0.35994278224883364`, 0.002649301808317437], 
+       Complex[0.3588074952536435, 0.002626277898561376], 
+       Complex[0.3576738353165789, 0.0026033578746866987`], 
+       Complex[0.3565418032056114, 0.0025805415501185744`], 
+       Complex[0.3554113996889632, 0.002557828738136765], 
+       Complex[0.354282625535106, 0.0025352192518754892`], 
+       Complex[0.35315548151276266`, 0.0025127129043234168`], 
+       Complex[0.3520299683909044, 0.0024903095083235374`], 
+       Complex[0.35090608693875447`, 0.0024680088765731724`], 
+       Complex[0.3497838379257848, 0.0024458108216238172`], 
+       Complex[0.34866322212171896`, 0.002423715155881181], 
+       Complex[0.34754424029652986`, 0.0024017216916050067`], 
+       Complex[0.3464268932204416, 0.0023798302409090994`], 
+       Complex[0.34531118166392805`, 0.002358040615761234], 
+       Complex[0.34419710639771467`, 0.002336352627983056], 
+       Complex[0.34308466819277644`, 0.002314766089250051], 
+       Complex[0.34197386782033945`, 0.002293280811091475], 
+       Complex[0.3408647060518811, 0.0022718966048902774`], 
+       Complex[0.3397571836591283, 0.002250613281883033], 
+       Complex[0.3386513014140607, 0.0022294306531599004`], 
+       Complex[0.337547060088907, 0.002208348529664537], 
+       Complex[0.33644446045614806`, 0.0021873667221940247`], 
+       Complex[0.3353435032885153, 0.0021664850413988107`], 
+       Complex[0.33424418935899186`, 0.0021457032977826914`], 
+       Complex[0.3331465194408111, 0.0021250213017026363`], 
+       Complex[0.3320504943074587, 0.002104438863368842], 
+       Complex[0.33095611473267056`, 0.002083955792844561], 
+       Complex[0.3298633814904351, 0.0020635719000461593`], 
+       Complex[0.3287722953549909, 0.002043286994742901], 
+       Complex[0.3276828571008296, 0.0020231008865570083`], 
+       Complex[0.3265950675026928, 0.002003013384963512], 
+       Complex[0.32550892733557507`, 0.001983024299290266], 
+       Complex[0.32442443737472154`, 0.0019631334387177866`], 
+       Complex[0.32334159839563015`, 0.001943340612279269], 
+       Complex[0.3222604111740494, 0.0019236456288604774`], 
+       Complex[0.3211808764859811, 0.00190404829719968], 
+       Complex[0.32010299510767776`, 0.001884548425887601], 
+       Complex[0.3190267678156449, 0.0018651458233673469`], 
+       Complex[0.31795219538663905`, 0.0018458402979343157`], 
+       Complex[0.3168792785976699, 0.0018266316577361923`], 
+       Complex[0.31580801822599835`, 0.0018075197107728126`], 
+       Complex[0.3147384150491388, 0.001788504264896169], 
+       Complex[0.3136704698448566, 0.0017695851278102248`], 
+       Complex[0.3126041833911703, 0.0017507621070710182`], 
+       Complex[0.31153955646635056`, 0.0017320350100864437`], 
+       Complex[0.31047658984892107`, 0.0017134036441162643`], 
+       Complex[0.309415284317657, 0.00169486781627203], 
+       Complex[0.30835564065158755`, 0.0016764273335170086`], 
+       Complex[0.3072976596299933, 0.0016580820026661173`], 
+       Complex[0.3062413420324087, 0.0016398316303858698`], 
+       Complex[0.30518668863861986`, 0.0016216760231942684`], 
+       Complex[0.3041337002286671, 0.0016036149874607986`], 
+       Complex[0.30308237758284223`, 0.0015856483294063046`], 
+       Complex[0.3020327214816916, 0.0015677758551029802`], 
+       Complex[0.30098473270601295`, 0.0015499973704742615`], 
+       Complex[0.2999384120368589, 0.0015323126812947438`], 
+       Complex[0.2988937602555337, 0.0015147215931901898`], 
+       Complex[0.297850778143596, 0.0014972239116373687`], 
+       Complex[0.296809466482857, 0.0014798194419640594`], 
+       Complex[0.29576982605538193`, 0.0014625079893489674`], 
+       Complex[0.29473185764348886`, 0.0014452893588216397`], 
+       Complex[0.2936955620297498, 0.001428163355262406], 
+       Complex[0.29266093999698983`, 0.0014111297834023123`], 
+       Complex[0.29162799232828845`, 0.0013941884478230766`], 
+       Complex[0.29059671980697804`, 0.001377339152956996], 
+       Complex[0.28956712321664546`, 0.0013605817030868782`], 
+       Complex[0.28853920334113065`, 0.001343915902345982], 
+       Complex[0.2875129609645281, 0.0013273415547179652`], 
+       Complex[0.28648839687118566`, 0.0013108584640367845`], 
+       Complex[0.28546551184570584`, 0.0012944664339866723`], 
+       Complex[0.28444430667294457`, 0.001278165268102028], 
+       Complex[0.2834247821380125, 0.0012619547697673688`], 
+       Complex[0.282406939026274, 0.0012458347422172836`], 
+       Complex[0.2813907781233479, 0.0012298049885363146`], 
+       Complex[0.28037630021510734`, 0.0012138653116589501`], 
+       Complex[0.27936350608768007`, 0.0011980155143694934`], 
+       Complex[0.27835239652744775`, 0.0011822553993020742`], 
+       Complex[0.2773429723210472, 0.0011665847689405102`], 
+       Complex[0.2763352342553693, 0.001151003425618257], 
+       Complex[0.27532918311755994`, 0.0011355111715183799`], 
+       Complex[0.2743248196950193, 0.0011201078086734515`], 
+       Complex[0.27332214477540295`, 0.0011047931389654795`], 
+       Complex[0.2723211591466205, 0.001089566964125847], 
+       Complex[0.2713218635968372, 0.0010744290857352783`], 
+       Complex[0.2703242589144726, 0.0010593793052237153`], 
+       Complex[0.2693283458882019, 0.0010444174238702971`], 
+       Complex[0.2683341253069549, 0.0010295432428032505`], 
+       Complex[0.2673415979599168, 0.0010147565629998728`], 
+       Complex[0.2663507646365278, 0.001000057185286415], 
+       Complex[0.26536162612648373`, 0.0009854449103380604], 
+       Complex[0.2643741832197352, 0.0009709195386787932], 
+       Complex[0.2633884367064889, 0.0009564808706814306], 
+       Complex[0.26240438737720634`, 0.0009421287065674508], 
+       Complex[0.2614220360226051, 0.0009278628464069738], 
+       Complex[0.26044138343365786`, 0.0009136830901187096], 
+       Complex[0.2594624304015934, 0.0008995892374698763], 
+       Complex[0.2584851777178957, 0.0008855810880760914], 
+       Complex[0.2575096261743052, 0.000871658441401392], 
+       Complex[0.25653577656281723`, 0.0008578210967580685], 
+       Complex[0.25556362967568425`, 0.0008440688533066787], 
+       Complex[0.25459318630541355`, 0.0008304015100559347], 
+       Complex[0.2536244472447694, 0.0008168188658626476], 
+       Complex[0.25265741328677116`, 0.0008033207194316529], 
+       Complex[0.25169208522469516`, 0.0007899068693157712], 
+       Complex[0.25072846385207365`, 0.0007765771139156838], 
+       Complex[0.2497665499626953, 0.0007633312514799253], 
+       Complex[0.24880634435060484`, 0.000750169080104785], 
+       Complex[0.2478478478101037, 0.0007370903977342467], 
+       Complex[0.2468910611357496, 0.0007240950021599043], 
+       Complex[0.24593598512235706`, 0.000711182691020917], 
+       Complex[0.24498262056499684`, 0.000698353261803941], 
+       Complex[0.24403096825899676`, 0.0006856065118430411], 
+       Complex[0.24308102899994077`, 0.000672942238319648], 
+       Complex[0.24213280358367045`, 0.0006603602382624484], 
+       Complex[0.24118629280628343`, 0.0006478603085473718], 
+       Complex[0.24024149746413498`, 0.000635442245897502], 
+       Complex[0.23929841835383658`, 0.0006231058468829853], 
+       Complex[0.2383570562722576, 0.0006108509079209698], 
+       Complex[0.2374174120165236, 0.0005986772252755792], 
+       Complex[0.23647948638401853`, 0.000586584595057808], 
+       Complex[0.23554328017238202`, 0.0005745728132254295], 
+       Complex[0.23460879417951247`, 0.0005626416755829863], 
+       Complex[0.23367602920356464`, 0.0005507909777816827], 
+       Complex[0.23274498604295144`, 0.0005390205153193413], 
+       Complex[0.23181566549634253`, 0.0005273300835402835], 
+       Complex[0.23088806836266587`, 0.0005157194776353397], 
+       Complex[0.22996219544110638`, 0.0005041884926417122], 
+       Complex[0.2290380475311074, 0.0004927369234429529], 
+       Complex[0.22811562543236913`, 0.00048136456476886164`], 
+       Complex[0.22719492994485044`, 0.00047007121119543513`], 
+       Complex[0.2262759618687673, 0.0004588566571448009], 
+       Complex[0.22535872200459445`, 0.00044772069688513595`], 
+       Complex[0.2244432111530637, 0.00043666312453061965`], 
+       Complex[0.22352943011516596`, 0.0004256837340413412], 
+       Complex[0.22261737969214918`, 0.00041478231922324315`], 
+       Complex[0.22170706068552046`, 0.00040395867372805365`], 
+       Complex[0.22079847389704443`, 0.00039321259105321634`], 
+       Complex[0.21989162012874464`, 0.0003825438645418261], 
+       Complex[0.21898650018290242`, 0.0003719522873825293], 
+       Complex[0.21808311486205834`, 0.0003614376526095255], 
+       Complex[0.21718146496901053`, 0.000350999753102421], 
+       Complex[0.21628155130681648`, 0.0003406383815862191], 
+       Complex[0.21538337467879184`, 0.0003303533306311954], 
+       Complex[0.2144869358885114, 0.00032014439265288467`], 
+       Complex[0.2135922357398083, 0.0003100113599119863], 
+       Complex[0.21269927503677447`, 0.00029995402451428194`], 
+       Complex[0.21180805458376145`, 0.0002899721784106069], 
+       Complex[0.2109185751853787, 0.00028006561339673046`], 
+       Complex[0.21003083764649574`, 0.0002702341211133245], 
+       Complex[0.2091448427722402, 0.0002604774930458926], 
+       Complex[0.20826059136799985`, 0.00025079552052467095`], 
+       Complex[0.20737808423942072`, 0.0002411879947245999], 
+       Complex[0.20649732219240896`, 0.00023165470666522674`], 
+       Complex[0.20561830603312928`, 0.00022219544721063973`], 
+       Complex[0.20474103656800655`, 0.00021281000706942828`], 
+       Complex[0.20386551460372446`, 0.00020349817679454676`], 
+       Complex[0.20299174094722683`, 0.0001942597467833448], 
+       Complex[0.20211971640571644`, 0.00018509450727740087`], 
+       Complex[0.20124944178665655`, 0.00017600224836249526`], 
+       Complex[0.2003809178977692, 0.000166982759968585], 
+       Complex[0.19951414554703714`, 0.00015803583186964603`], 
+       Complex[0.19864912554270198`, 0.0001491612536836549], 
+       Complex[0.19778585869326656`, 0.00014035881487253678`], 
+       Complex[0.19692434580749227`, 0.00013162830474203538`], 
+       Complex[0.19606458769440172`, 0.00012296951244175017`], 
+       Complex[0.19520658516327677`, 0.00011438222696490575`], 
+       Complex[0.19435033902366014`, 0.00010586623714844198`], 
+       Complex[0.1934958500853543, 0.0000974213316728631], 
+       Complex[0.19264311915842244`, 0.00008904729906216661], 
+       Complex[0.19179214705318762`, 0.00008074392768382156], 
+       Complex[0.19094293458023387`, 0.00007251100574863934], 
+       Complex[0.19009548255040523`, 0.00006434832131072682], 
+       Complex[0.18924979177480686`, 0.000056255662267470745`], 
+       Complex[0.18840586306480386`, 0.00004823281635937902], 
+       Complex[0.18756369723202268`, 0.00004027957117005987], 
+       Complex[0.18672329508834995`, 0.000032395714126152476`], 
+       Complex[0.18588465744593377`, 0.000024581032497260173`], 
+       Complex[0.18504778511718242`, 0.000016835313395860245`], 
+       Complex[0.1842126789147657, 9.158343777232805*^-6], 
+       Complex[0.18337933965161407`, 1.5499104394330401`*^-6], 
+       Complex[0.18254776814091933`, -5.99019997682762*^-6], 
+       Complex[0.1817179651961341, -0.000013462200988219666`], 
+       Complex[0.18088993163097258`, -0.00002086630626888051], 
+       Complex[0.18006366825940984`, -0.000028202729650493412`], 
+       Complex[0.17923917589568278`, -0.00003547168512232218], 
+       Complex[0.17841645535428904`, -0.00004267338683130225], 
+       Complex[0.17759550744998856`, -0.00004980804908211959], 
+       Complex[0.17677633299780193`, -0.000056875886337293124`], 
+       Complex[0.17595893281301211`, -0.00006387711321715738], 
+       Complex[0.17514330771116307`, -0.0000708119445000828], 
+       Complex[0.17432945850806109`, -0.00007768059512238811], 
+       Complex[0.1735173860197736, -0.00008448328017851905], 
+       Complex[0.1727070910626306, -0.0000912202149210865], 
+       Complex[0.17189857445322332`, -0.0000978916147609055], 
+       Complex[0.17109183700840547`, -0.00010449769526709417`], 
+       Complex[0.1702868795452925, -0.00011103867216717429`], 
+       Complex[0.16948370288126227`, -0.00011751476134706697`], 
+       Complex[0.16868230783395435`, -0.0001239261788512202], 
+       Complex[0.1678826952212712, -0.00013027314088267725`], 
+       Complex[0.16708486586137677`, -0.00013655586380310197`], 
+       Complex[0.16628882057269825`, -0.00014277456413288887`], 
+       Complex[0.16549456017392447`, -0.00014892945855124375`], 
+       Complex[0.16470208548400758`, -0.00015502076389619767`], 
+       Complex[0.16391139732216126`, -0.00016104869716473437`], 
+       Complex[0.16312249650786292`, -0.00016701347551283888`], 
+       Complex[0.16233538386085172`, -0.00017291531625556172`], 
+       Complex[0.1615500602011303, -0.0001787544368670761], 
+       Complex[0.1607665263489636, -0.00018453105498081584`], 
+       Complex[0.15998478312487982`, -0.000190245388389439], 
+       Complex[0.15920483134966973`, -0.00019589765504499437`], 
+       Complex[0.1584266718443876, -0.00020148807305893617`], 
+       Complex[0.1576503054303503, -0.00020701686070221693`], 
+       Complex[0.15687573292913823`, -0.00021248423640534385`], 
+       Complex[0.1561029551625946, -0.00021789041875846897`], 
+       Complex[0.15533197295282639`, -0.00022323562651144734`], 
+       Complex[0.1545627871222034, -0.000228520078573902], 
+       Complex[0.15379539849335924`, -0.00023374399401528915`], 
+       Complex[0.15302980788919068`, -0.00023890759206501334`], 
+       Complex[0.15226601613285842`, -0.00024401109211244325`], 
+       Complex[0.15150402404778618`, -0.0002490547137069827], 
+       Complex[0.15074383245766204`, -0.00025403867655820946`], 
+       Complex[0.14998544218643708`, -0.00025896320053586924`], 
+       Complex[0.14922885405832692`, -0.0002638285056699675], 
+       Complex[0.14847406889781029`, -0.00026863481215088584`], 
+       Complex[0.14772108752963053`, -0.0002733823403293697], 
+       Complex[0.1469699107787943, -0.000278071310716662], 
+       Complex[0.146220539470573, -0.00028270194398458213`], 
+       Complex[0.14547297443050147`, -0.00028727446096553626`], 
+       Complex[0.14472721648437942`, -0.00029178908265263537`], 
+       Complex[0.14398326645827011`, -0.00029624603019976024`], 
+       Complex[0.1432411251785018, -0.0003006455249216118], 
+       Complex[0.14250079347166644`, -0.00030498778829381526`], 
+       Complex[0.1417622721646211, -0.00030927304195293645`], 
+       Complex[0.14102556208448672`, -0.0003135015076966242], 
+       Complex[0.14029066405864943`, -0.0003176734074836398], 
+       Complex[0.13955757891475928`, -0.00032178896343390724`], 
+       Complex[0.1388263074807319, -0.00032584839782863473`], 
+       Complex[0.13809685058474683`, -0.0003298519331103589], 
+       Complex[0.1373692090552491, -0.0003337997918829959], 
+       Complex[0.13664338372094814`, -0.00033769219691196645`], 
+       Complex[0.13591937541081886`, -0.0003415293711242027], 
+       Complex[0.1351971849541005, -0.0003453115376082774], 
+       Complex[0.13447681318029828`, -0.0003490389196144344], 
+       Complex[0.13375826091918167`, -0.00035271174055469257`], 
+       Complex[0.1330415290007861, -0.0003563302240028503], 
+       Complex[0.13232661825541178`, -0.00035989459369468405`], 
+       Complex[0.1316135295136248, -0.0003634050735278633], 
+       Complex[0.13090226360625587`, -0.0003668618875621319], 
+       Complex[0.1301928213644021, -0.00037026526001937305`], 
+       Complex[0.12948520361942545`, -0.00037361541528360513`], 
+       Complex[0.12877941120295397`, -0.000376912577901135], 
+       Complex[0.1280754449468809, -0.00038015697258058593`], 
+       Complex[0.1273733056833658, -0.0003833488241929703], 
+       Complex[0.12667299424483355`, -0.00038648835777179997`], 
+       Complex[0.12597451146397526`, -0.0003895757985130782], 
+       Complex[0.12527785817374762`, -0.0003926113717754847], 
+       Complex[0.12458303520737385`, -0.00039559530308033025`], 
+       Complex[0.12389004339834257`, -0.00039852781811169306`], 
+       Complex[0.12319888358040923`, -0.0004014091427164985], 
+       Complex[0.12250955658759483`, -0.00040423950290455115`], 
+       Complex[0.12182206325418728`, -0.00040701912484864076`], 
+       Complex[0.12113640441474015`, -0.0004097482348845768], 
+       Complex[0.12045258090407415`, -0.0004124270595113099], 
+       Complex[0.11977059355727572`, -0.0004150558253909406], 
+       Complex[0.11909044320969846`, -0.00041763475934886943`], 
+       Complex[0.118412130696962, -0.0004201640883737959], 
+       Complex[0.11773565685495332`, -0.00042264403961782184`], 
+       Complex[0.11706102251982527`, -0.0004250748403965207], 
+       Complex[0.1163882285279983, -0.00042745671818904176`], 
+       Complex[0.11571727571615907`, -0.0004297899006380857], 
+       Complex[0.1150481649212618, -0.0004320746155501119], 
+       Complex[0.11438089698052697`, -0.00043431109089527367`], 
+       Complex[0.11371547273144288`, -0.00043649955480761556`], 
+       Complex[0.11305189301176437`, -0.00043864023558503554`], 
+       Complex[0.11239015865951356`, -0.0004407333616894401], 
+       Complex[0.11173027051298022`, -0.00044277916174676173`], 
+       Complex[0.11107222941072085`, -0.0004447778645470602], 
+       Complex[0.11041603619155992`, -0.00044672969904458425`], 
+       Complex[0.10976169169458878`, -0.0004486348943578593], 
+       Complex[0.10910919675916686`, -0.00045049367976972374`], 
+       Complex[0.1084585522249206, -0.0004523062847274287], 
+       Complex[0.10780975893174462`, -0.0004540729388427152], 
+       Complex[0.10716281771980077`, -0.0004557938718918672], 
+       Complex[0.10651772942951913`, -0.00045746931381580175`], 
+       Complex[0.10587449490159721`, -0.0004590994947201079], 
+       Complex[0.10523311497700082`, -0.0004606846448751605], 
+       Complex[0.10459359049696329`, -0.0004622249947161816], 
+       Complex[0.10395592230298654`, -0.00046372077484329536`], 
+       Complex[0.10332011123683998`, -0.00046517221602161273`], 
+       Complex[0.10268615814056187`, -0.00046657954918129154`], 
+       Complex[0.10205406385645799`, -0.00046794300541762616`], 
+       Complex[0.10142382922710305`, -0.0004692628159911256], 
+       Complex[0.1007954550953397, -0.00047053921232755643`], 
+       Complex[0.10016894230427939`, -0.00047177242601803386`], 
+       Complex[0.09954429169730154, -0.0004729626888190985], 
+       Complex[0.09892150411805485, -0.00047411023265277923`], 
+       Complex[0.09830058041045592, -0.00047521528960666306`], 
+       Complex[0.09768152141869071, -0.00047627809193399005`], 
+       Complex[0.09706432798721332, -0.0004772988720536859], 
+       Complex[0.09644900096074734, -0.00047827786255046946`], 
+       Complex[0.09583554118428456, -0.0004792152961749273], 
+       Complex[0.09522394950308635, -0.000480111405843542], 
+       Complex[0.09461422676268266, -0.0004809664246388347], 
+       Complex[0.0940063738088729, -0.0004817805858093561], 
+       Complex[0.09340039148772526, -0.0004825541227698269], 
+       Complex[0.09279628064557754, -0.0004832872691011838], 
+       Complex[0.09219404212903645, -0.0004839802585506546], 
+       Complex[0.0915936767849785, -0.00048463332503182605`], 
+       Complex[0.09099518546054912, -0.0004852467026247114], 
+       Complex[0.09039856900316376, -0.00048582062557584555`], 
+       Complex[0.08980382826050688, -0.0004863553282983507], 
+       Complex[0.08921096408053313, -0.00048685104537197956`], 
+       Complex[0.08861997731146627, -0.00048730801154324], 
+       Complex[0.08803086880180043, -0.0004877264617254213], 
+       Complex[0.08744363940029891, -0.00048810663099868763`], 
+       Complex[0.08685828995599555, -0.0004884487546101546], 
+       Complex[0.08627482131819357, -0.000488753067973957], 
+       Complex[0.08569323433646668, -0.0004890198066713255], 
+       Complex[0.0851135298606582, -0.0004892492064506372], 
+       Complex[0.0845357087408822, -0.0004894415032275323], 
+       Complex[0.08395977182752234, -0.0004895969330849519], 
+       Complex[0.08338571997123309, -0.0004897157322732164], 
+       Complex[0.0828135540229388, -0.0004897981372101014], 
+       Complex[0.08224327483383478, -0.0004898443844809329], 
+       Complex[0.08167488325538627, -0.0004898547108386289], 
+       Complex[0.08110838013932954, -0.0004898293532037759], 
+       Complex[0.08054376633767102, -0.000489768548664725], 
+       Complex[0.07998104270268834, -0.0004896725344776471], 
+       Complex[0.07942021008692932, -0.000489541548066606], 
+       Complex[0.07886126934321318, -0.0004893758270236442], 
+       Complex[0.0783042213246294, -0.0004891756091088429], 
+       Complex[0.07774906688453906, -0.0004889411322503978], 
+       Complex[0.07719580687657365, -0.0004886726345446979], 
+       Complex[0.07664444215463632, -0.0004883703542564047], 
+       Complex[0.07609497357290075, -0.0004880345298185107], 
+       Complex[0.07554740198581247, -0.0004876653998324102], 
+       Complex[0.07500172824808773, -0.0004872632030680007], 
+       Complex[0.07445795321471461, -0.00048682817846372505`], 
+       Complex[0.07391607774095217, -0.00048636056512666066`], 
+       Complex[0.0733761026823314, -0.00048586060233260075`], 
+       Complex[0.07283802889465436, -0.0004853285295261002], 
+       Complex[0.07230185723399522, -0.00048476458632057884`], 
+       Complex[0.07176758855669933, -0.00048416901249837517`], 
+       Complex[0.0712352237193843, -0.00048354204801084747`], 
+       Complex[0.07070476357893903, -0.0004828839329783963], 
+       Complex[0.07017620899252484, -0.0004821949076905937], 
+       Complex[0.06964956081757451, -0.0004814752126062272], 
+       Complex[0.06912481991179326, -0.0004807250883533771], 
+       Complex[0.06860198713315799, -0.0004799447757294971], 
+       Complex[0.06808106333991817, -0.0004791345157014815], 
+       Complex[0.06756204939059506, -0.000478294549405739], 
+       Complex[0.06704494614398264, -0.0004774251181482794], 
+       Complex[0.06652975445914679, -0.00047652646340476477`], 
+       Complex[0.06601647519542624, -0.0004755988268206018], 
+       Complex[0.0655051092124318, -0.0004746424502110125], 
+       Complex[0.06499565737004723, -0.0004736575755611024], 
+       Complex[0.06448812052842853, -0.00047264444502593747`], 
+       Complex[0.06398249954800476, -0.0004716033009306191], 
+       Complex[0.06347879528947731, -0.0004705343857703604], 
+       Complex[0.06297700861382087, -0.0004694379422105631], 
+       Complex[0.062477140382282526`, -0.00046831421308686895`], 
+       Complex[0.061979191456382775`, -0.0004671634414052687], 
+       Complex[0.0614831626979147, -0.0004659858703421507], 
+       Complex[0.06098905496894491, -0.0004647817432443836], 
+       Complex[0.06049686913181275, -0.0004635513036293981], 
+       Complex[0.060006606049131175`, -0.0004622947951852421], 
+       Complex[0.059518266583786054`, -0.0004610124617706749], 
+       Complex[0.059031851598936994`, -0.00045970454741522775`], 
+       Complex[0.05854736195801662, -0.00045837129631928547`], 
+       Complex[0.058064798524731474`, -0.00045701295285416983`], 
+       Complex[0.05758416216306122, -0.00045562976156218087`], 
+       Complex[0.05710545373725962, -0.00045422196715671223`], 
+       Complex[0.056628674111853614`, -0.00045278981452230235`], 
+       Complex[0.05615382415164441, -0.00045133354871471076`], 
+       Complex[0.05568090472170659, -0.0004498534149609936], 
+       Complex[0.05520991668738903, -0.00044834965865959064`], 
+       Complex[0.0547408609143142, -0.0004468225253803789], 
+       Complex[0.05427373826837897, -0.0004452722608647673], 
+       Complex[0.05380854961575389, -0.000443699111025746], 
+       Complex[0.05334529582288414, -0.00044210332194799095`], 
+       Complex[0.05288397775648867, -0.0004404851398879298], 
+       Complex[0.05242459628356114, -0.00043884481127379063`], 
+       Complex[0.0519671522713692, -0.0004371825827057135], 
+       Complex[0.05151164658745533, -0.0004354987009558054], 
+       Complex[0.0510580800996361, -0.00043379341296821304`], 
+       Complex[0.05060645367600304, -0.0004320669658592173], 
+       Complex[0.05015676818492192, -0.00043031960691727314`], 
+       Complex[0.04970902449503364, -0.00042855158360312774`], 
+       Complex[0.049263223475253456`, -0.00042676314354985964`], 
+       Complex[0.04881936599477185, -0.0004249545345629709], 
+       Complex[0.048377452923053836`, -0.0004231260046204579], 
+       Complex[0.047937485129839766`, -0.00042127780187288196`], 
+       Complex[0.047499463485144645`, -0.0004194101746434662], 
+       Complex[0.04706338885925905, -0.00041752337142813385`], 
+       Complex[0.04662926212274821, -0.00041561764089561074`], 
+       Complex[0.04619708414645315, -0.00041369323188749675`], 
+       Complex[0.04576685580148967, -0.00041175039341832917`], 
+       Complex[0.04533857795924941, -0.00040978937467567376`], 
+       Complex[0.04491225149139911, -0.0004078104250201833], 
+       Complex[0.04448787726988128, -0.00040581379398569044`], 
+       Complex[0.04406545616691389, -0.0004037997312792644], 
+       Complex[0.04364498905499044, -0.00040176848678130173`], 
+       Complex[0.043226476806880444`, -0.0003997203105455948], 
+       Complex[0.04280992029562891, -0.00039765545279940454`], 
+       Complex[0.04239532039455696, -0.0003955741639435405], 
+       Complex[0.04198267797726136, -0.0003934766945524371], 
+       Complex[0.041571993917615145`, -0.00039136329537422165`], 
+       Complex[0.04116326908976712, -0.0003892342173308001], 
+       Complex[0.04075650436814254, -0.00038708971151792137`], 
+       Complex[0.04035170062744251, -0.0003849300292052605], 
+       Complex[0.039948858742644706`, -0.00038275542183649827`], 
+       Complex[0.03954797958900279, -0.00038056614102937626`], 
+       Complex[0.03914906404204722, -0.0003783624385758008], 
+       Complex[0.03875211297758451, -0.00037614456644189265`], 
+       Complex[0.03835712727169808, -0.00037391277676808747`], 
+       Complex[0.037964107800747555`, -0.000371667321869183], 
+       Complex[0.03757305544136966, -0.00036940845423443966`], 
+       Complex[0.0371839710704774, -0.00036713642652764665`], 
+       Complex[0.03679685556526097, -0.0003648514915871898], 
+       Complex[0.03641170980318711, -0.0003625539024261408], 
+       Complex[0.036028534661999796`, -0.0003602439122323256], 
+       Complex[0.03564733101971969, -0.0003579217743683984], 
+       Complex[0.035268099754644816`, -0.0003555877423719262], 
+       Complex[0.03489084174535005, -0.0003532420699554502], 
+       Complex[0.034515557870687774`, -0.000350885011006578], 
+       Complex[0.034142249009787295`, -0.00034851681958804836`], 
+       Complex[0.03377091604205562, -0.00034613774993780657`], 
+       Complex[0.0334015598471768, -0.00034374805646909075`], 
+       Complex[0.03303418130511266, -0.00034134799377049394`], 
+       Complex[0.03266878129610228, -0.0003389378166060487], 
+       Complex[0.03230536070066267, -0.0003365177799153072], 
+       Complex[0.03194392039958812, -0.00033408813881340106`], 
+       Complex[0.03158446127395103, -0.0003316491485911364], 
+       Complex[0.03122698420510126, -0.00032920106471505113`], 
+       Complex[0.030871490074666847`, -0.0003267441428275095], 
+       Complex[0.03051797976455347, -0.00032427863874676176`], 
+       Complex[0.030166454156945095`, -0.0003218048084670335], 
+       Complex[0.029816914134303422`, -0.00031932290815858883`], 
+       Complex[0.02946936057936864, -0.0003168331941678219], 
+       Complex[0.029123794375158777`, -0.00031433592301731276`], 
+       Complex[0.028780216404970447`, -0.00031183135140592675`], 
+       Complex[0.028438627552378266`, -0.0003093197362088662], 
+       Complex[0.028099028701235575`, -0.00030680133447777056`], 
+       Complex[0.027761420735673815`, -0.00030427640344076867`], 
+       Complex[0.027425804540103266`, -0.00030174520050257913`], 
+       Complex[0.02709218099921253, -0.0002992079832445653], 
+       Complex[0.026760550997969063`, -0.0002966650094248253], 
+       Complex[0.026430915421618816`, -0.0002941165369782562], 
+       Complex[0.026103275155686757`, -0.00029156282401664527`], 
+       Complex[0.025777631085976416`, -0.0002890041288287318], 
+       Complex[0.025453984098570488`, -0.00028644070988029235`], 
+       Complex[0.025132335079830374`, -0.0002838728258142103], 
+       Complex[0.024812684916396748`, -0.00028130073545055696`], 
+       Complex[0.024495034495189087`, -0.0002787246977866678], 
+       Complex[0.024179384703406304`, -0.00027614497199721327`], 
+       Complex[0.023865736428526237`, -0.000273561817434279], 
+       Complex[0.023554090558306255`, -0.0002709754936274436], 
+       Complex[0.023244447980782783`, -0.0002683862602838466], 
+       Complex[0.0229368095842719, -0.0002657943772882772], 
+       Complex[0.022631176257368848`, -0.00026320010470323783`], 
+       Complex[0.0223275488889487, -0.0002606037027690311], 
+       Complex[0.02202592836816572, -0.00025800543190382277`], 
+       Complex[0.02172631558445414, -0.0002554055527037286], 
+       Complex[0.02142871142752757, -0.00025280432594288913`], 
+       Complex[0.021133116787379596`, -0.0002502020125735424], 
+       Complex[0.020839532554283384`, -0.0002475988737261003], 
+       Complex[0.020547959618792157`, -0.00024499517070922217`], 
+       Complex[0.0202583988717388, -0.0002423911650099005], 
+       Complex[0.01997085120423639, -0.0002397871182935233], 
+       Complex[0.01968531750767776, -0.00023718329240395963`], 
+       Complex[0.019401798673736082`, -0.00023457994936363182`], 
+       Complex[0.019120295594364355`, -0.00023197735137359446`], 
+       Complex[0.018840809161795997`, -0.00022937576081359927`], 
+       Complex[0.018563340268544386`, -0.00022677544024218648`], 
+       Complex[0.01828788980740343, -0.00022417665239675086`], 
+       Complex[0.01801445867144708, -0.00022157966019361848`], 
+       Complex[0.017743047754029892`, -0.00021898472672812112`], 
+       Complex[0.01747365794878659, -0.0002163921152746771], 
+       Complex[0.017206290149632614`, -0.00021380208928686135`], 
+       Complex[0.016940945250763607`, -0.0002112149123974816], 
+       Complex[0.016677624146656043`, -0.00020863084841865815`], 
+       Complex[0.01641632773206671, -0.00020605016134189085`], 
+       Complex[0.016157056902033274`, -0.0002034731153381426], 
+       Complex[0.015899812551873827`, -0.00020089997475790952`], 
+       Complex[0.015644595577187406`, -0.0001983310041312968], 
+       Complex[0.01539140687385356, -0.0001957664681680951], 
+       Complex[0.015140247338032835`, -0.0001932066317578547], 
+       Complex[0.01489111786616639, -0.00019065175996996046`], 
+       Complex[0.01464401935497645, -0.00018810211805370418`], 
+       Complex[0.0143989527014659, -0.00018555797143836328`], 
+       Complex[0.014155918802918784`, -0.00018301958573327208`], 
+       Complex[0.013914918556899851`, -0.00018048722672789786`], 
+       Complex[0.013675952861255062`, -0.0001779611603919144], 
+       Complex[0.013439022614111172`, -0.0001754416528752771], 
+       Complex[0.013204128713876172`, -0.000172928970508298], 
+       Complex[0.012971272059238913`, -0.00017042337980171455`], 
+       Complex[0.012740453549169521`, -0.00016792514744677091`], 
+       Complex[0.012511674082919037`, -0.00016543454031528817`], 
+       Complex[0.012284934560019823`, -0.00016295182545973642`], 
+       Complex[0.012060235880285186`, -0.00016047727011330966`], 
+       Complex[0.011837578943809796`, -0.00015801114169000261`], 
+       Complex[0.01161696465096929, -0.00015555370778468026`], 
+       Complex[0.01139839390242071, -0.00015310523617315054`], 
+       Complex[0.011181867599102101`, -0.0001506659948122402], 
+       Complex[0.010967386642232914`, -0.00014823625183986704`], 
+       Complex[0.010754951933313628`, -0.00014581627557511194`], 
+       Complex[0.010544564374126167`, -0.00014340633451829225`], 
+       Complex[0.01033622486673348, -0.00014100669735103352`], 
+       Complex[0.01012993431347995, -0.00013861763293634462`], 
+       Complex[0.009925693616991046, -0.00013623941031868698`], 
+       Complex[0.009723503680173644, -0.00013387229872405016`], 
+       Complex[0.0095233654062157, -0.0001315165675600205], 
+       Complex[0.009325279698586588, -0.00012917248641585534`], 
+       Complex[0.009129247461036766, -0.00012684032506255605`], 
+       Complex[0.008935269597598097, -0.00012452035345293785`], 
+       Complex[0.008743347012583513, -0.00012221284172170158`], 
+       Complex[0.008553480610587355, -0.00011991806018550941`], 
+       Complex[0.008365671296485019, -0.00011763627934304979`], 
+       Complex[0.008179919975433273, -0.0001153677698751162], 
+       Complex[0.007996227552869961, -0.00011311280264467204`], 
+       Complex[0.007814594934514262, -0.00011087164869693001`], 
+       Complex[0.007635023026366406, -0.00010864457925941477`], 
+       Complex[0.007457512734707972, -0.00010643186574204341`], 
+       Complex[0.0072820649661015395`, -0.00010423377973718792`], 
+       Complex[0.0071086806273910385`, -0.00010205059301975625`], 
+       Complex[0.006937360625701393, -0.00009988257754725669], 
+       Complex[0.006768105868438833, -0.00009773000545987255], 
+       Complex[0.006600917263290644, -0.00009559314908053578], 
+       Complex[0.006435795718225252, -0.000093472280914994], 
+       Complex[0.006272742141492342, -0.00009136767365188993], 
+       Complex[0.006111757441622611, -0.0000892796001628266], 
+       Complex[0.005952842527428051, -0.00008720833350244611], 
+       Complex[0.00579599830800169, -0.00008515414690849816], 
+       Complex[0.0056412256927178646`, -0.0000831173138019176], 
+       Complex[0.005488525591231982, -0.00008109810778689517], 
+       Complex[0.005337898913480808, -0.00007909680265095312], 
+       Complex[0.00518934656968223, -0.00007711367236502023], 
+       Complex[0.005042869470335555, -0.00007514899108350886], 
+       Complex[0.004898468526221313, -0.00007320303314438682], 
+       Complex[0.004756144648401549, -0.00007127607306926082], 
+       Complex[0.004615898748219649, -0.00006936838556344797], 
+       Complex[0.004477731737300659, -0.00006748024551606017], 
+       Complex[0.004341644527551141, -0.00006561192800008], 
+       Complex[0.0042076380311595095`, -0.00006376370827244513], 
+       Complex[0.004075713160595911, -0.00006193586177412829], 
+       Complex[0.003945870828612607, -0.00006012866413022353], 
+       Complex[0.0038181119482438857`, -0.00005834239115002938], 
+       Complex[0.003692437432806478, -0.00005657731882713948], 
+       Complex[0.0035688481958995174`, -0.00005483372333952804], 
+       Complex[0.0034473451514049945`, -0.00005311188104964462], 
+       Complex[0.003327929213487787, -0.00005141206850450532], 
+       Complex[0.00321060129659615, -0.00004973456243579139], 
+       Complex[0.00309536231546181, -0.00004807963975994543], 
+       Complex[0.002982213185100529, -0.00004644757757827592], 
+       Complex[0.0028711548208122735`, -0.00004483865317705959], 
+       Complex[0.0027621881381818367`, -0.00004325314402765349], 
+       Complex[0.0026553140530791125`, -0.000041691327786603976`], 
+       Complex[0.0025505334816597986`, -0.00004015348229576614], 
+       Complex[0.0024478473403657707`, -0.000038639885582422384`], 
+       Complex[0.0023472565459258937`, -0.00003715081585941088], 
+       Complex[0.002248762015356516, -0.00003568655152525363], 
+       Complex[0.0021523646659623893`, -0.000034247371164296535`], 
+       Complex[0.0020580654153373157`, -0.00003283355354684923], 
+       Complex[0.0019658651813652048`, -0.0000314453776293368], 
+       Complex[0.0018757648822208758`, -0.00003008312255445419], 
+       Complex[0.0017877654363712798`, -0.000028747067651332752`], 
+       Complex[0.0017018677625764938`, -0.000027437492435709968`], 
+       Complex[0.001618072779891125, -0.00002615467661011286], 
+       Complex[0.0015363814076655195`, -0.0000248989000640469], 
+       Complex[0.0014567945655473919`, -0.00002367044287419864], 
+       Complex[0.0013793131734832758`, -0.000022469585304646057`], 
+       Complex[0.0013039381517204044`, -0.000021296607807083683`], 
+       Complex[0.0012306704208084514`, -0.000020151791021057633`], 
+       Complex[0.0011595109016016953`, -0.000019035415774217108`], 
+       Complex[0.0010904605152610902`, -0.000017947763082577483`], 
+       Complex[0.0010235201832567646`, -0.00001688911415080208], 
+       Complex[0.0009586908273704634, -0.000015859750372497365`], 
+       Complex[0.000895973369698433, -0.000014859953330530052`], 
+       Complex[0.0008353687326542875, -0.000013890004797359183`], 
+       Complex[0.0007768778389723365, -0.000012950186735392763`], 
+       Complex[0.0007205016117109379, -0.000012040781297362825`], 
+       Complex[0.0006662409742563288, -0.000011162070826727529`], 
+       Complex[0.0006140968503265359, -0.00001031433785809529], 
+       Complex[0.0005640701639757818, -9.497865117678464*^-6], 
+       Complex[0.0005161618395990274, -8.712935523773579*^-6], 
+       Complex[0.00047037280193703895`, -7.959832187274745*^-6], 
+       Complex[0.0004267039760816488, -7.2388384122172*^-6], 
+       Complex[0.00038515628748157386`, -6.5502376963587506`*^-6], 
+       Complex[0.0003457306619484948, -5.894313731796105*^-6], 
+       Complex[0.00030842802566372963`, -5.271350405623531*^-6], 
+       Complex[0.0002732493051852413, -4.681631800631926*^-6], 
+       Complex[0.0002401954274552872, -4.125442196055621*^-6], 
+       Complex[0.00020926731980847778`, -3.603066068365567*^-6], 
+       Complex[0.00018046590998053324`, -3.114788092116339*^-6], 
+       Complex[0.00015379212611753767`, -2.660893140846259*^-6], 
+       Complex[0.0001292468967859506, -2.241666288038261*^-6], 
+       Complex[0.00010683115098321452`, -1.857392808141582*^-6], 
+       Complex[0.00008654581814919056, -1.5083581776617162`*^-6], 
+       Complex[0.00006839182817829733, -1.194848076320056*^-6], 
+       Complex[0.00005237011143256052, -9.171483882903941*^-7], 
+       Complex[0.00003848159875548324, -6.755452035148157*^-7], 
+       Complex[0.000026727221486922248`, -4.703248191063023*^-7], 
+       Complex[0.000017107911478915775`, -3.01773740841634*^-7], 
+       Complex[9.62460111262513*^-6, -1.7017868475207976`*^-7], 
+       Complex[4.2782233163734274`*^-6, -7.582657881662882*^-8], 
+       Complex[1.0697115849210886`*^-6, -1.900456476551045*^-8], 
+       Complex[0., 0.]}}, {Automatic}],
+    Editable->False,
+    SelectWithContents->True,
+    Selectable->False]}], "}"}]], "Output",
+ CellChangeTimes->{{3.801285975131383*^9, 3.801286003084347*^9}, 
+   3.801288630186921*^9},
+ CellLabel->"Out[81]=",ExpressionUUID->"e6eb28e8-ccc1-4db0-b94e-b5fd4f5150bb"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2326,12 +3812,11 @@ Cell[BoxData[
    " - \!\(\*SubscriptBox[\(A\), \(lm\)]\) = ", 
    Complex[2.903166981558038, 0.1831582525322828]],
   Editable->False]], "Print",
- CellChangeTimes->{{3.8006234044950542`*^9, 3.800623455166892*^9}, 
-   3.800624105616715*^9, 3.800626000556699*^9, 3.800768507165544*^9, 
-   3.800798373715023*^9, 3.800877292244137*^9},
+ CellChangeTimes->{{3.801285974653591*^9, 3.801286002793817*^9}, 
+   3.801288630998231*^9},
  CellLabel->
   "During evaluation of \
-In[24]:=",ExpressionUUID->"670f9995-cba0-4d39-acbc-5184a6677a1f"],
+In[81]:=",ExpressionUUID->"76bb0ad2-2858-40c3-bed4-f2dd2d013945"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -2340,14 +3825,13 @@ Cell[BoxData[
 \\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1.769417779760764`*^-40\\\"}], \
 \\\"+\\\", RowBox[{\\\"6.448433038945409`*^-41\\\", \\\" \\\", \\\"\
 \[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
-normalized machine number; precision may be lost.\"",2,24,5,
-   19654334673154004631,"Local"},
+normalized machine number; precision may be lost.\"",2,82,14,
+   19657010523013437385,"Local"},
   "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
-  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292254963*^9},
+ CellChangeTimes->{3.80128600283525*^9, 3.801288631063176*^9},
  CellLabel->
   "During evaluation of \
-In[24]:=",ExpressionUUID->"0d6dfd0d-81cc-406d-aadb-9896bf7c4f47"],
+In[81]:=",ExpressionUUID->"f430961e-b717-46cd-bf43-562dc97388a5"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -2356,14 +3840,13 @@ Cell[BoxData[
 \\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"8.750091040803137`*^-41\\\"}], \
 \\\"+\\\", RowBox[{\\\"3.1889008626043945`*^-41\\\", \\\" \\\", \\\"\
 \[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
-normalized machine number; precision may be lost.\"",2,24,6,
-   19654334673154004631,"Local"},
+normalized machine number; precision may be lost.\"",2,82,15,
+   19657010523013437385,"Local"},
   "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
-  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292260281*^9},
+ CellChangeTimes->{3.80128600283525*^9, 3.801288631070874*^9},
  CellLabel->
   "During evaluation of \
-In[24]:=",ExpressionUUID->"90bb7289-ef97-4f44-9bf2-2a012d4c9844"],
+In[81]:=",ExpressionUUID->"3c1a9214-b58b-4bb4-a145-c681046e91dc"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -2372,27 +3855,3595 @@ Cell[BoxData[
 \\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"4.3275985028317676`*^-41\\\"}], \
 \\\"+\\\", RowBox[{\\\"1.5771752222839382`*^-41\\\", \\\" \\\", \\\"\
 \[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
-normalized machine number; precision may be lost.\"",2,24,7,
-   19654334673154004631,"Local"},
+normalized machine number; precision may be lost.\"",2,82,16,
+   19657010523013437385,"Local"},
   "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
-  3.800768507200674*^9, 3.800798373746801*^9, 3.8008772922648573`*^9},
+ CellChangeTimes->{3.80128600283525*^9, 3.801288631080598*^9},
  CellLabel->
   "During evaluation of \
-In[24]:=",ExpressionUUID->"cabc8de3-a243-4ceb-9b1b-52d4d387aba0"],
+In[81]:=",ExpressionUUID->"6ccbd0c6-8da7-4529-98e0-a541e263c354"],
 
 Cell[BoxData[
  TemplateBox[{
   "General","stop",
    "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
 \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
-during this calculation.\"",2,24,8,19654334673154004631,"Local"},
+during this calculation.\"",2,82,17,19657010523013437385,"Local"},
   "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
-  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292269236*^9},
+ CellChangeTimes->{3.80128600283525*^9, 3.801288631087243*^9},
  CellLabel->
   "During evaluation of \
-In[24]:=",ExpressionUUID->"72ae2856-cc81-4134-bdaa-066db609cc5b"],
+In[81]:=",ExpressionUUID->"e2fded50-fcd2-4930-bae0-49f99f7ae2c6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"0.5326002437522133`", "\[VeryThinSpace]", "-", 
+    RowBox[{"0.08079287309515215`", " ", "\[ImaginaryI]"}]}], ",", 
+   RowBox[{"2.903166981558038`", "\[VeryThinSpace]", "+", 
+    RowBox[{"0.1831582525322828`", " ", "\[ImaginaryI]"}]}], ",", 
+   InterpretationBox[
+    RowBox[{
+     TagBox["InterpolatingFunction",
+      "SummaryHead"], "[", 
+     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
+      "Ready"}, 
+      TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
+              PaneBox[
+               ButtonBox[
+                DynamicBox[
+                 FEPrivate`FrontEndResource[
+                 "FEBitmaps", "SquarePlusIconMedium"]], 
+                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
+                 Evaluator -> Automatic, Method -> "Preemptive"], 
+               Alignment -> {Center, Center}, ImageSize -> 
+               Dynamic[{
+                 Automatic, 
+                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])}]], 
+              GraphicsBox[{{
+                 GrayLevel[0.6], 
+                 AbsolutePointSize[5], 
+                 PointBox[{1, 1}], 
+                 PointBox[{2, 4}], 
+                 PointBox[{3, 2}], 
+                 PointBox[{4, 3}]}, {{}, {}, {
+                  AbsoluteThickness[1], 
+                  Opacity[1.], 
+                  LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                   "]]}}}, AspectRatio -> 1, Axes -> 
+               False, Background -> GrayLevel[0.93], Frame -> True, 
+               FrameStyle -> Directive[
+                 GrayLevel[0.7], 
+                 Thickness[Tiny]], FrameTicks -> None, 
+               ImageSize -> {Automatic, 
+                 Dynamic[
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+              GridBox[{{
+                 RowBox[{
+                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{
+                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
+               GridBoxAlignment -> {
+                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+               False, GridBoxItemSize -> {
+                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+               GridBoxSpacings -> {
+                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+               BaseStyle -> {
+                ShowStringCharacters -> False, NumberMarks -> False, 
+                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+            GridBoxItemSize -> {
+             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+            BaselinePosition -> {1, 1}], True -> GridBox[{{
+              PaneBox[
+               ButtonBox[
+                DynamicBox[
+                 FEPrivate`FrontEndResource[
+                 "FEBitmaps", "SquareMinusIconMedium"]], 
+                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
+                None, Evaluator -> Automatic, Method -> "Preemptive"], 
+               Alignment -> {Center, Center}, ImageSize -> 
+               Dynamic[{
+                 Automatic, 
+                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])}]], 
+              GraphicsBox[{{
+                 GrayLevel[0.6], 
+                 AbsolutePointSize[5], 
+                 PointBox[{1, 1}], 
+                 PointBox[{2, 4}], 
+                 PointBox[{3, 2}], 
+                 PointBox[{4, 3}]}, {{}, {}, {
+                  AbsoluteThickness[1], 
+                  Opacity[1.], 
+                  LineBox[CompressedData["
+1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5
+3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d
+cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA
+QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k
+wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86
+ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm
+/j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc
+klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA
+42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M
+IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK
+7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH
+QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp
+CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82
+7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7
+/z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd
+q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A
+vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ
+shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn
+q5SZmRFAL++xNeOlE0Dwt3AR
+                   "]]}}}, AspectRatio -> 1, Axes -> 
+               False, Background -> GrayLevel[0.93], Frame -> True, 
+               FrameStyle -> Directive[
+                 GrayLevel[0.7], 
+                 Thickness[Tiny]], FrameTicks -> None, 
+               ImageSize -> {Automatic, 
+                 Dynamic[
+                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                   Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], 
+              GridBox[{{
+                 RowBox[{
+                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox[
+                    RowBox[{"{", 
+                    RowBox[{"{", 
+                    RowBox[{
+                    RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], "}"}], 
+                    "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["1", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
+                 RowBox[{
+                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
+                   "\[InvisibleSpace]", 
+                   TagBox["False", "SummaryItem"]}]}}, 
+               GridBoxAlignment -> {
+                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
+               False, GridBoxItemSize -> {
+                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+               GridBoxSpacings -> {
+                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
+               BaseStyle -> {
+                ShowStringCharacters -> False, NumberMarks -> False, 
+                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
+            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
+            GridBoxItemSize -> {
+             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+            BaselinePosition -> {1, 1}]}, 
+         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
+       "SummaryPanel"],
+      DynamicModuleValues:>{}], "]"}],
+    InterpolatingFunction[{{-1., 1.}}, {
+     5, 15, 0, {2001}, {2}, 0, 0, 0, 0, Automatic, {}, {}, 
+      False}, CompressedData["
+1:eJw12wu8XFV1x/FIKVJLKbXUUktttNRSn2hRUdF/rKigqFGopZbalKKllGpq
+qaWW2qCoqFSjoqKghvdTDBAgQGDdvN/Jfd+ZO487jzPnnDnnzDlRUVHBNrPX
+r/fz4cMnyeQ89l7ftfdes/L8Cz7y3g8esWzZsmcc/m/qmcv4OWQv/uxz6gd+
+Wtn7jn3pfd+uKrvia2/+wiVJZXef+P4LX79U2cJNq9/wrIXKjggfrGz8qdt2
+VHbeazfs+tjjlX1qYs8Nb3mwsnve1v348fdUdvhi5/RvqexIv6C9vHXSUVd8
+rbLx1d79P5V9On/Pxud9urL1H73oy6PLK2v87BMXb7q0sqPCjSt7xdHjO1d2
+/pe2/Pjk8ysLj3dOZeG276gsXO7NlYWPvb6yPws/lX3gkbOOOeLFlX3uTasG
+ky+obPx0331uZYdv+o0PP7uyZ4UXqexV4YOVjT/V+Flph1/2F3f8oLQHf/T0
+7GXD0sZv8bZuaceEFy7tNeGCpV1w3PiNSxtf7VMTpR1+icNvUlr/luu2LV9f
+Wnjb20oLw/Ld0sLrfqO08BpfKi083mdLC7f9RGnhch8rLXzsw6V9KPyUdnhQ
+9KoPlLbp0q+ecOT7Shs/3fQ7S3t2GOjS3hBepLSLwgdLG3/q2JeWdvhlDw91
+acMXjkewtOPDhJS2IrxwaReHC5b29fH0/mJkYdp+NLJiPB35yMIw90f252Fg
+RhaGZXpk145fd8/IwmtsGVk5frxHRhZue9/IzggDOLKPhAcc2be+Of4Z2fbl
+YYbt0OFZe83nRvb7IRBG9tYw0CP7l/AiI7t+2/iDI9v5jvFIj+yH0+88PNQj
++4MQMCM7M0zIyP41vPDIvjMOg9eMbPd4el8+sifG0/bCkf1hCKyRvT1M3Mj+
+LQzMyNaNh+Woke0dv+7Thf1k/Bo/Luz54fEKOztMcGH/HgawsBvHH5stbP++
+8U9hT54znuHC/igEamHvCoFQ2H+EgS7s5jGPmwo7OA776wr7+Ticv1rYH4eA
+LmxlCJjC/jNMSGG3jsPlo4VNjcPg4sKeGk/vBYX9SQj8wt4bAquw/xoP81mF
+3T4evjcVNjMeltcW9svx676isD8NQAo7NwRgYf8dJriwO8eXO66wufHHji7M
+nRc4z3Ge4zzHeY7zHOc5znOc5zjPcZ7jPMd5jvMc5znOc5znOM9xnuM8x3mO
+8xznOc5znOc4z3Ge4zzHeY7zHOc5znOcZzjPcJ7hPMN5hvMM5xnOM5xnOM9w
+nuE8w3mG8wznGc4znGc4z3Ce4TzDeWZpcJ7hPLM3hhfJcJ7ZNQFchvPMsuA8
+w3mG8wznGc6HOB/ifIjzIc6HOB/ifIjzIc6HOB/ifGjhYzcMcT60wPfLQ5wP
+LXC7YojzoQUeq4c4H1oI51VDnA8thN+7hzgf4nyI8yHOhzgf4nyI8yHOhzgf
+4jzFeYrzFOcpzlOcpzhPcZ7iPMV5ivMU5ynOU5ynOE9xnuI8xXmK8xTnKc5T
+nKc4T3Ge4jzFeYrzFOcpzlOcpzhPcZ7iPMF5gvME5wnOE5wnOE9wnuA8wXmC
+8wTnCc4TnCc4T3Ce4DzBeYLzBOcJzhOcJzhPcJ7gPMF5gvME5wnOE5wnOE9w
+HuM8xnmM8xjnMc5jnMc4j3EeWxScxziP7XXhxjHOY1sbgMQ4jy0OzmOcx3Z6
+eMAY57F9JTiPcR7jPMZ5jPMY5zHOY5zHOI9xHuM8xnmM8wHOBzgf4HyA8wHO
+Bzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgfWAgXDXA+
+sDC9Lx/gfGBhOp43wPnAwvAdO8D5wMLrPh3hPDLfbkQ4jyxcrhXhPLLAfF+E
+88gCy00RziOcRziPcB7hPMJ5hPMI5xHOI5xHOI9wHuE8wnmE8wjnEc4jnEc4
+j3Ae4TzCeYTzCOd9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5
+H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5H+d9nPdx3sd5D+c9nPdw3sN5
+D+c9nPdw3sN5j/W8h/Mezns47+G8h/Mezns47+G8h/Mezns47+G8h/Mezns4
+7+G8h/Mezns47+G8h/Mezrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs4
+7+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/Muzrs47+K8i/MOzjs4
+7+C8g/MOzjs47+C8g/MOzjsWGN3dwXkH5x2cd3DewXkH5x2cd3DewXkH5x2c
+d3DewXkH5x2cd3DewXkH5x2cd3DewXkH30u4XsLzEo6X8LuE2yW8LuF0CZ9L
+uFzC4xIOl/C3hLslvC3hrI2vNq7aeGrjqI2fNm7aeGnjpI2PNi7aeGjjoE38
+t4n7NvHeJs5bxHeLuG4Rzy3iuEX8tojbFvHaIk5bxGeLuGwRjy3isEX8tYi7
+FvHWJM6axFeTuGoST03iqGkhbV7XtJDevtC0EPUfb1pIFxc3LbB+f9MCv7Oa
+Fpi8tmkhnE9uWgi7E5oWwuPopr0oJM6GrQn5vGHzIY837CVh4hr2yTAwDauF
+GzfsZSGxNuzKkJ8bthjycsNOCRPcsM+EAWxYMzxgw14Z8m7Drgr5tmHtkGcb
+9uoQCA27Ogz0ovXCiyzaaSGPLtoXQ/5cZH+0SL5cJE8ukh8XyYuL5MNF8uAi
++W+RvLdIvlskzy2S3+rktTr5rE4eq5O/6uStOvmqTp6qk5/q5KU6+ahOHqqT
+f+rknTr5pk6eqZNfauSVGvmkRh6pkT9q5I0a+aJGnqiRH2rkhRr5oEYeqOG/
+hvsa3ms4r+F8AecLOF/A+QLOF3C+gPMFnC/gfAHnCzhfwPkCzhdwvoDzBZzP
+43we5/M4n8f5PM7ncT6P83mcz+N8HufzOJ/H+TzO53E+j/N5nM/hfA7nczif
+w/kczudwPofzOZzP4XwO53M4n8P5HM7ncD6H81mcz+J8FuezOJ/F+SzOZ3E+
+i/NZnM/ifBbnszifxfkszmdxPovzGZzP4HwG5zM4n8H5DM5ncD6D8xmcz+B8
+BuczOJ/B+QzOZ+zUEAgz9nkfaJxP43wa59M4n8b5NM6ncT6N82mcT+N8GufT
+OJ/G+TTOp3E+hfMpnE/hfArnUzifwvkUzqdwPoXzKZxP4XwK51M4n8L5FM6n
+cD6J80mcT+J8EueTOJ/E+STOJ3E+ifNJnE/ifBLnkzifxPkkzifxfRDXB/F8
+EMcH8XsQtwfxehCnB/B5AJcH8HgAhwfwdwB3B/B2AGf78bUfV/vxtB9H+/Gz
+Hzf78bIfJ/vwsQ8X+/CwDwf7iP99xP0+4n0fcb6X+N5LXO8lnvcSx3uJ373E
+7V7ida91QpzusatDfO6x08LA7LEo3HiPrQ1xuMdOD/G3x9IQd3vsmhBvu21F
+GMDdVoQH3G3XhrjabWeEeNpth0Ic7bbrQ/zstjPDQO+2J8KL7LJ1IU522dme
+GO3JEBe77OYQD7tsZZiQXfZUeOFddnuY9112bkicO21ZmLaddnfI4zvtvDBx
+O+3IkLd32vqQr3fa+SGx7rSjQ37eaRtCXt5hq8Jtd9gxfpCzjSH/7rALQ97d
+YceFfLvDNoU8u8MuCoGww44PeXW7TYR8ut0uCXl0u50Q8ud22xby5na7NATM
+dlse8uR22xfy4za7LOTFbXZSyIfbbDLkwW12eQisbXZyyHvbbDbku222JuS5
+bfaSkN+2Wi3kta12ZQjArXZKyGNbrRny11a7KuStrXZqyFdbrRPy1Fb2IVvI
+S1vIR1vIQ1vIP1vIO1vIN1vIM1vIL5vJK5vJJ5vJI5vJH5vJG5vJF5vJE5vJ
+DxPkhQnywQR5YAL/E7ifwPsEzifwbbg2PBuOH8fv47h9HK+P4/QxfD6Gy8fw
++BgON+FvE+424W0Tzh7F16O4ehRPj+LoEfw8gptH8PIITh7Gx8O4eBgPD+Ng
+I/G/kbjfSLxvJM4fIr4fIq4fIp4fIo4fJH4fJG4fJF4fJE4fID4fsNVhYB6w
+XSEeN9jy8Lob7LIQfxtsMsTdBjs5xNv9tiZc7n6rhfi6304JcXW/XRXi6T7r
+hDi6z04L8XOfrfWBtjTEy722IsTJvXZtiI977VCIi3vtzBAP621dmJD19mSY
+//W20gsJtjJM4/dtWZjn79v6MCz32Kowr/fYceE237OJMI/fs9Vh/u625WHe
+7rbJMF932ZowT3fZKWF+7rROmJc7bW2YjztsRZiHO+xQGP/bbV0Y99ttZRjv
+22xZGOfbbH0Y31ttVRjXW+24MJ632EQYx5ttdRi/m+2UMG43WSeM1022NozT
+jbYijM+NdiiMyw22LozHDbYyjMM6WxYWtnW2yr8IsYnwvt+x5b6g2Zrwftdb
+xzdOtiJ87Fu2LrzHN21ZOPhea6t8AbOJ8Lxft+VeeLI14fmu4bm+yvN8hef4
+Mvdfy32/yP2u5j6f5/pXcd3PcL0ruc4n+ftr+HuX8/nL+Nyl/Plqfv8ifr2K
+/6+0//8GnV9r2V3hz8Xntcb/vrie1vj1xf20wu8vnkcT/nziebXCn1+8jyb8
+/cT7arm/vxgPrfLxEeOldT5+YjzV8fEV463lPv5iPrTc50fMl1b5/In51Dqf
+XzHfOhTif52IB631+BDxolM8fkQ8adLjS8SbiD9NejyK+NRqj1cRvzrO41nE
+t9Z7vIv410r3IHzokHsRfrTWPQlfOsW9CX+adI/Cp1a7V+FXx7ln4VvnuXfh
+X7d7PhD5QU96vhD5Q2d6PhH5Rdd6vhH5R6nnI5GfdJrnK5G/dJXnM5HfVPN8
+J/KfTvZ8KPKjLvN8KfKndnk+FflVJ3i+FflXF3k+FvlZGz1fi/ytoz2fi/yu
+8zzfi/yv2309EOuDnvT1QqwfOtPXE7G+6Fpfb8T6o9TXI7E+6TRfr8T6pat8
+PRPrm2q+3on1Tyf7eijWR13m66VYP7XL11OxvuoEX2/F+quLfD0W67M2+not
+lmUd6eu5WN91t6/3Yv3Xub4fEPsDPeX7BbF/0M2+nxD7C53t+w2x/9ATvh8R
++xNd7/sVsX/RGb6fEfsbFb7fEfsfXeP7IbE/0um+XxL7J0W+nxL7K13t+y2x
+/9Kpvh8T+zPN+n5N7N90ue/nxP5OJ/l+T+z/tM/3g2J/qEt9vyj2jzrR95Ni
+fyn2mzrR959iP6ptvj8V+1Vd4vtXsZ/V8b6/FftdbfL9r9gP60LfH4v9so7x
+/bPYT2uD76/Fflvn+/5b7Md1pO/PxX5dd/v+Xeznda7v78V+X0/5/l+cB3Sz
+nw/EeUFn+/lBnCf0hJ8vxHlD1/v5Q5xHdIafT8R5RYWfX8R5Rtf4+Uacd3S6
+n3/EeUiRn4/EeUlX+/lJnKd0qp+vxHlLTT9/ifOYrvTzmTiv6SV+fhPnOc36
++U6c93S5n//EeVAn+flQnBe1z8+P4jypS/18Kc6bOtHPn+I8qm1+PhXnVV3i
+51dxntXxfr4V511t8vOvOA/rQj8fi/OyjvHzszhPa4Ofr8V5W+f7+Vucx3WE
+n8/FeV3v8/O7OM/rTj/fi/O+funnf1EP0Hu9PiDqBbrV6weinqCfe31B1Bv0
+Lq8/iHqEbvT6hKhX6CdevxD1DL3d6xui3qHveP1D1EP0Q6+PiHqJ3ur1E1FP
+0be8viLqLSq9/iLqMXqj12dEvUZf8fqNqOco9vqOqPfodV7/EfUgfdHrQ6Je
+pJ7Xj0Q9Sa/2+pKoN4n6k7zuPCPqU/q816tE/Uptr2eJ+pZe6fUuUf/SZ7we
+JupjWvR6maif6WVeTxP1NX3S622i/qZ5r8eJ+pxe5PU6Ub/TJ7yeJ+p7mvZ6
+n6j/6YVeDxT1QX3c64WifqgDXk8U9UW9wOuNov6oj3k9UtQntcfrlaJ+qed5
+PVPUN/VRr3eK+qd2eD1U1Ef1XK+XivqpPuz1VFFf1Ravt4r6q57j9VhRn9XF
+Xq8V9Vs97vVcUd/Vs73eK+q/+pDXg0V9WI94vVjUj3Ws15NFfVkXeL1Z1J/1
+oNejRX1az/J6tahf6wNezxb1bd3n9W5R/9ZRXg8X9XG93+vlon6ue7yeLurr
+OK/hvIbzGs5rOK/hvIbzGs5rOK/hvIbzGs5rOK/hvIbzGs5rOK/jvI7zOs7r
+OK/jvI7zOs7rOK/jvI7zOs7rOK/jvI7zOs4P/75/34LzRZwv4nwR54s4X8T5
+Is4Xcb6I80WcL+J8EeeLOF/E+SLOGzhv4LyB8wbOGzhv4LyB8wbOGzhv4LyB
+8wbOGzhv4LyB8wbOmzhv4ryJ8ybOmzhv4ryJ8ybOmzhv4ryJ8ybOmzhv4ryJ
+8ybOWzhv4byF8xbOWzhv4byF8xbOWzhv4byF8xbOWzhv4byF8zbO2zhv47yN
+8zbO2zhv47yN8zbO2zhv47yN8zbO2zhv47yN8yWcL+F8CedLOF/C+RLOl3C+
+hPMlnC/hfAnnSzhfwvkSzpf0DP/+XHyfrrv8+3Xxfbv+wr9/F9/H63/9+3nx
+fb3u8O/vxff5Ose/3xff9+tp//5f9APoNu8PEP0Ceo/3D4h+Av3C+wtEv4Fu
+8f4Ded9RR+/2/gR5/2FHP/P+BXl/Ykc3eX+DvH+xo3d6/4O8v7Gjn3p/hLz/
+saMbvH9C3h/Z1Tu8v0LeP9nVj73/Qt5f2dW3vT9D3n/Z1du8f0Peh93VD7y/
+Q96n3dV13v8h7+Pu6i3eHyLv8+6q8v4ReR94V15m6Mr7xLt6s/ef6Pe8H0V+
+LOxqq/eryLe1Xf2z97PI00VXv+v9LvL24q42ez+Mvub9Mfon75eRvH9Gv+P9
+NPK++J7M+23kffM9/aP348j76nv6be/Xkffd9/SY9/PI+3V7+gfv95H38/b0
+W94PJO/37elR7xeS9wP39EHvJ5KXTXr6Te83Ev1Hetj7kUR/kv7e+5VE/5J+
+w/uZRH+THvJ+J9H/pL/zfijRH6Vf934p0T+lB7yfSvRX6W+930r0X+nXvB9L
+9Gfpfu/XEv1b+hvv5xL9XXqm93uJ/i/d6/1goj9Mf+39YqJ/TL/q/WSiv0zf
+934z0X+mv/J+NNGfpl/xfjXRv6bveT+b6G/TX3q/m+h/w3mE8wjnEc4jnEc4
+j3Ae4TzCeYTzCOcRziOcRziPcB7hPMJ5hPMI5xHOI5xHOI9wHuE8wnmE8wjn
+Ec4jnEc4j3Ae4TzC+QDnA5wPcD7A+QDnA33X+y1xPtBZ3o+J8wHOBzgf4HyA
+8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBzgf4HyA8wHOBziPcR7j
+PMZ5jPMY5zHOY5zHOI9xHuM8xnmM8xjnMc5jnMc4j3Ee4zzGeYzzGOcxzmOc
+xziPcR7jPMZ5jPMY5zHOY5wnOE9wnuA8wXmC8wTnCc4TnCc4T3Ce4DzBeYLz
+BOcJzhOcJzhPcJ7gPMF5gvME5wnOE5wnOE9wnuA8wXmC8wTnCc5TnKc4T3Ge
+4jzFeYrzFOcpzlOcpzhPcZ7iPMV5ivMU5ynOU5ynOE9xnuI8xXmK8xTnKc5T
+nKc4T3Ge4jzFeYrzFOcpzoc4H+J8iPMhzoc4H+J8iPMhzoc4H+pH/u8vcD7E
++RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcT7E+RDnQ5wPcZ7h
+PMN5hvMM5xnOM5xnOM9wnuE8w3mG8wznGc4znGc4z3Ce4TzDeYbzDOcZzjOc
+ZzjPcJ7hPMN5hvMM5xnOM5xnOM9xnuM8x3mO8xznOc5znOc4z3Ge4zzHeY7z
+HOc5znOc5zjPcZ7jPMd5jvMc5znOc5znOM9xnuM8x3mO8xznOc5znBc4L3Be
+4LzAeYHzAucFzgucFzgvcF7gvMB5gfMC5wXOC5wXOC9wXuC8wHmB8wLnBc4L
+nBc4L3Be4LzAeYHzAucFzgucj3A+wvkI5yOcj3A+wvkI5yOcj3A+wvkI5yN9
+2/+9Jc5HOB/hfITzEc5HOB/hfITzEc5HOB/hfITzEc5HOB/hfITzEc5HOB/h
+vMR5ifMS5yXOS5yXOC9xXuK8xHmJ8xLnJc5LnJc4L3Fe4rzEeYnzEuclzkuc
+lzgvcV7ivMR5ifMS5yXOS5yXOC9xXuG8wnmF8wrnFc4rnFc4r3Be4bzCeYXz
+CucVziucVzivcF7hvMJ5hfMK5xXOK5xXOK9wXuG8wnmF8wrnFc4rnFfi35/r
+/wAod6QK
+     "], {Developer`PackedArrayForm, CompressedData["
+1:eJwd2VMMIEyvANB/bdu2bdu2bdu2bdu2bdu27W/v2dvkJE36PDOdNkHDdhXb
+Bvjf//53Mdj//j/+5QEJRGCCEJR/5eCEICShCE0YwhKO8EQgIpGITBSiEo3o
+xCAmsYhNHOISj/gkICGJSEwSkpKM5KQgJalITRrSko70ZCAjmchMFrKSjezk
+ICe5yE0e8pKP/BSgIIUoTBGKUozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSg
+JrWoTR3qUo/6NKAhjWhME5rSjOa0oCWtaE0b2tKO9nSgI53oTBe60o3u9KAn
+vehNH/rSj/4MYCCDGMwQhjKM4YxgJKMYzRjGMo7xTGAik5jMFKYyjenMYCaz
+mM0c5jKP+SxgIYtYzBKWsozlrGAlq1jNGtayjvVsYCOb2MwWtrKN7exgJ7vY
+zR72so/9HOAghzjMEY5yjOOc4CSnOM0ZznKO81zgIpe4zBWuco3r3OAmt7jN
+He5yj/s84CGPeMwTnvKM57zgJa94zRve8o73fOAjn/jMF77yje/84Ce/+M0f
+/uMv/w5/AAISiMAEISjBCE4IQhKK0IQhLOEITwQiEonIRCEq0YhODGISi9jE
+IS7xiE8CEpKIxCQhKclITgpSkorUpCEt6UhPBjKSicxkISvZyE4OcpKL3OQh
+L/nITwEKUojCFKEoxShOCUpSitKUoSzlKE8FKlKJylShKtWoTg1qUova1KEu
+9ahPAxrSiMY0oSnNaE4LWtKK1rTh3wXejvZ0oCOd6EwXutKN7vSgJ73oTR/6
+0o/+DGAggxjMEIYyjOGMYCSjGM0YxjKO8UxgIpOYzBSmMo3pzGAms5jNHOYy
+j/ksYCGLWMwSlrKM5axgJatYzRrWso71bGAjm9jMFrayje3sYCe72M0e9rKP
+/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc4CKXuMwVrnKN69zgJre4zR3uco/7
+POAhj3jME57yjOe84CWveM0b3vKO93zgI5/4zBe+8o3v/OAnv/jNH/7jL/8e
+/gAEJBCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGf
+BCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8C
+FKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepRnwY0
+pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxk
+EIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQR
+i1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCH
+OcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95
+wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5w3/85V/TH4CABCIw
+QQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJ
+SEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOAghSiMEUo
+SjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CGNKIxTWhK
+M5rTgpa0ojVtaEs72tOBjnSiM13oSje604Oe9KI3fehLP/ozgIEMYjBDGMow
+hjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nMYjZzmMs85rOAhSxiMUtYyjKW
+s4KVrGI1a1jLOtazgY1sYjNb2Mo2trODnexiN3vYyz72c4CDHOIwRzjKMY5z
+gpOc4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLPe7zgIc84jFPeMoznvOC
+l7ziNW94yzve84GPfOIzX/jKN77zg5/84jd/+I+//PvwByAggQhMEIISjOCE
+ICShCE0YwhKO8EQgIpGITBSiEo3oxCAmsYhNHOISj/gkICGJSEwSkpKM5KQg
+JalITRrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUoTBGKUozilKAk
+pShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTR3qUo/6NKAhjWhME5rSjOa0oCWt
+aE0b2tKO9nSgI53oTBe60o3u9KAnvehNH/rSj/4MYCCDGMwQhjKM4YxgJKMY
+zRjGMo7xTGAik5jMFKYyjenMYCazmM0c5jKP+SxgIYtYzBKWsozlrGAlq1jN
+GtayjvVsYCOb2MwWtrKN7exgJ7vYzR72so/9HOAghzjMEY5yjOOc4CSnOM0Z
+znKO81zgIpe4zBWuco3r3OAmt7jNHe5yj/s84CGPeMwTnvKM57zgJa94zRve
+8o73fOAjn/jMF77yje/84Ce/+M0f/uMv/4Z9AQhIIAIThKAEIzghCEkoQhOG
+sIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4JSEgiEpOEpCQjOSlISSpSk4a0
+pCM9GchIJjKThaxkIzs5yEkucpOHvOQjPwUoSCEKU4SiFKM4JShJKUpThrKU
+ozwVqEglKlOFqlSjOjWoSS1qU4e61KM+DWhIIxrThKY0ozktaEkrWtOGtrSj
+PR3oSCc604WudKM7PehJL3rTh770oz8DGMggBjOEoQxjOCMYyShGM4axjGM8
+E5jIJCYzhalMYzozmMksZjOHucxjPgtYyCIWs4SlLGM5K1jJKlazhrWsYz0b
+2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zjPBe4
+yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9H/jI
+Jz7zha984zs/+MkvfvOH//jLv0F/AAISiMAEISjBCE4IQhKK0IQhLOEITwQi
+EonIRCEq0YhODGISi9jEIS7xiE8CEpKIxCQhKclITgpSkorUpCEt6UhPBjKS
+icxkISvZyE4OcpKL3OQhL/nITwEKUojCFKEoxShOCUpSitKUoSzlKE8FKlKJ
+ylShKtWoTg1qUova1KEu9ahPAxrSiMY0oSnNaE4LWtKK1rShLe1oTwc60onO
+dKEr3ehOD3rSi970oS/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclM
+YSrTmM4MZjKL2cxhLvOYzwIWsojFLGEpy1jOClayitWsYS3rWM8GNrKJzWxh
+K9vYzg52sovd7GEv+9jPAQ5yiMMc4SjHOM4JTnKK05zhLOc4zwUuconLXOEq
+17jODW5yi9vc4S73uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7yic984Svf
++M4PfvKL3/zhP/7yb8kXgIAEIjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhK
+NKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2
+spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWq
+U4Oa1KI2dahLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIzXehKN7rT
+g570ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjOD
+mcxiNnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od
+7GI3e9jLPvZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4H/AywZ77E=
+      "], {
+       Complex[0., 0.], 
+       Complex[6.878579414571214*^-7, 3.891800124666593*^-8], 
+       Complex[2.752112349855369*^-6, 1.5560911357367526`*^-7], 
+       Complex[6.193784542081835*^-6, 3.499788909218787*^-7], 
+       Complex[0.000011013896423048626`, 6.219327418843559*^-7], 
+       Complex[0.000017213470485979592`, 9.713759295877485*^-7], 
+       Complex[0.000024793529812697235`, 1.3982135715735152`*^-6], 
+       Complex[0.000033755098073909695`, 1.9023506396791105`*^-6], 
+       Complex[0.0000440991995294979, 2.4836919599190877`*^-6], 
+       Complex[0.0000558268590288028, 3.14214221236612*^-6], 
+       Complex[0.00006893910201091279, 3.877605931031952*^-6], 
+       Complex[0.00008343695450495123, 4.689987503748262*^-6], 
+       Complex[0.00009932144313036403, 5.579191172047465*^-6], 
+       Complex[0.00011659359509720757`, 6.545121031043417*^-6], 
+       Complex[0.0001352544382064364, 7.587681029312058*^-6], 
+       Complex[0.00015530500085019145`, 8.706774968771973*^-6], 
+       Complex[0.00017674631201208813`, 9.902306504564873*^-6], 
+       Complex[0.00019957940126750443`, 0.00001117417914493599], 
+       Complex[0.00022380529878386984`, 0.000012522296251114428`], 
+       Complex[0.0002494250353209533, 0.000013946561037193389`], 
+       Complex[0.0002764396422311523, 0.000015446876570010355`], 
+       Complex[0.00030485015145978125`, 0.000017023145769027182`], 
+       Complex[0.0003346575955453612, 0.000018675271406210118`], 
+       Complex[0.00036586300761990803`, 0.00002040315610590974], 
+       Complex[0.0003984674214092219, 0.00002220670234474081], 
+       Complex[0.000432471871233177, 0.00002408581245146206], 
+       Complex[0.0004678773920060103, 0.000026040388606855914`], 
+       Complex[0.0005046850192366119, 0.00002807033284360807], 
+       Complex[0.0005428957890288138, 0.000030175547046187095`], 
+       Complex[0.0005825107380816808, 0.0000323559329507239], 
+       Complex[0.0006235309036897996, 0.00003461139214489106], 
+       Complex[0.0006659573237435693, 0.000036941826067782237`], 
+       Complex[0.0007097910367294916, 0.00003934713600979132], 
+       Complex[0.0007550330817304607, 0.00004182722311249161], 
+       Complex[0.0008016844984260548, 0.000044381988368514975`], 
+       Complex[0.0008497463270928256, 0.000047011332621430705`], 
+       Complex[0.0008992196086045892, 0.000049715156565624554`], 
+       Complex[0.0009501053844327185, 0.00005249336074617759], 
+       Complex[0.001002404696646432, 0.000055345845558744854`], 
+       Complex[0.0010561185879130852`, 0.000058272511249434084`], 
+       Complex[0.0011112481014984646`, 0.00006127325791468448], 
+       Complex[0.001167794281267075, 0.00006434798550114496], 
+       Complex[0.0012257581716824343`, 0.00006749659380555284], 
+       Complex[0.0012851408178073634`, 0.0000707189824746121], 
+       Complex[0.001345943265304279, 0.00007401505100487169], 
+       Complex[0.0014081665604354842`, 0.00007738469874260379], 
+       Complex[0.0014718117500634618`, 0.00008082782488368184], 
+       Complex[0.0015368798816511662`, 0.00008434432847345874], 
+       Complex[0.0016033720032623143`, 0.00008793410840664473], 
+       Complex[0.0016712891635616812`, 0.00009159706342718534], 
+       Complex[0.0017406324118153882`, 0.00009533309212813909], 
+       Complex[0.0018114027978912007`, 0.00009914209295155549], 
+       Complex[0.0018836013722588149`, 0.00010302396418835236`], 
+       Complex[0.001957229185990157, 0.00010697860397819374`], 
+       Complex[0.002032287290759673, 0.00011100591030936719`], 
+       Complex[0.00210877673884462, 0.00011510578101866118`], 
+       Complex[0.002186698583125365, 0.00011927811379124272`], 
+       Complex[0.002266053877085673, 0.0001235228061605343], 
+       Complex[0.0023468436748130027`, 0.00012783975550809118`], 
+       Complex[0.0024290690309988023`, 0.00013222885906347863`], 
+       Complex[0.0025127310009387996`, 0.0001366900139041488], 
+       Complex[0.00259783064053329, 0.00014122311695531718`], 
+       Complex[0.0026843690062874734`, 0.00014582806498984207`], 
+       Complex[0.002772347155311649, 0.00015050475462809578`], 
+       Complex[0.002861766145321651, 0.00015525308233784894`], 
+       Complex[0.0029526270346389876`, 0.0001600729444341388], 
+       Complex[0.003044930882191294, 0.00016496423707915443`], 
+       Complex[0.0031386787475124684`, 0.00016992685628210453`], 
+       Complex[0.0032338716907431234`, 0.00017496069789910213`], 
+       Complex[0.003330510772630725, 0.0001800656576330328], 
+       Complex[0.003428597054530047, 0.00018524163103343923`], 
+       Complex[0.003528131598403306, 0.00019048851349638853`], 
+       Complex[0.0036291154668206147`, 0.00019580620026435754`], 
+       Complex[0.003731549722960119, 0.00020119458642609946`], 
+       Complex[0.0038354354306084472`, 0.00020665356691652848`], 
+       Complex[0.003940773654160892, 0.0002121830365165894], 
+       Complex[0.004047565458621753, 0.0002177828898531358], 
+       Complex[0.004155811909604632, 0.00022345302139880583`], 
+       Complex[0.004265514073332719, 0.00022919332547189706`], 
+       Complex[0.004376673016639098, 0.00023500369623624274`], 
+       Complex[0.004489289806967038, 0.0002408840277010865], 
+       Complex[0.0046033655123702884`, 0.0002468342137209583], 
+       Complex[0.004718901201513381, 0.00025285414799554914`], 
+       Complex[0.0048358979436719214`, 0.000258943724069587], 
+       Complex[0.004954356808732892, 0.00026510283533271096`], 
+       Complex[0.0050742788671949415`, 0.00027133137501934715`], 
+       Complex[0.005195665190168692, 0.0002776292362085831], 
+       Complex[0.005318516849377025, 0.000283996311824043], 
+       Complex[0.005442834917155385, 0.000290432494633762], 
+       Complex[0.005568620466452083, 0.00029693767725006136`], 
+       Complex[0.005695874570828583, 0.000303511752129423], 
+       Complex[0.005824598304459806, 0.0003101546115723639], 
+       Complex[0.005954792742134427, 0.00031686614772331065`], 
+       Complex[0.006086458959255176, 0.0003236462525704736], 
+       Complex[0.00621959803183913, 0.00033049481794572154`], 
+       Complex[0.006354211036518019, 0.00033741173552445566`], 
+       Complex[0.006490299050538516, 0.00034439689682548384`], 
+       Complex[0.006627863151762546, 0.00035145019321089466`], 
+       Complex[0.006766904418667576, 0.0003585715158859309], 
+       Complex[0.0069074239303469195`, 0.0003657607558988646], 
+       Complex[0.007049422766510031, 0.00037301780414086946`], 
+       Complex[0.007192902007482811, 0.00038034255134589574`], 
+       Complex[0.007337862734207901, 0.00038773488809054304`], 
+       Complex[0.007484306028244977, 0.0003951947047939346], 
+       Complex[0.007632232971771074, 0.0004027218917175902], 
+       Complex[0.007781644647580853, 0.00041031633896529976`], 
+       Complex[0.007932542139086915, 0.0004179779364829968], 
+       Complex[0.008084926530320115, 0.0004257065740586318], 
+       Complex[0.00823879890592984, 0.0004335021413220445], 
+       Complex[0.00839416035118432, 0.00044136452774483825`], 
+       Complex[0.008551011951970932, 0.00044929362264025215`], 
+       Complex[0.00870935479479649, 0.00045728931516303417`], 
+       Complex[0.008869189966787549, 0.0004653514943093138], 
+       Complex[0.009030518555690715, 0.0004734800489164753], 
+       Complex[0.009193341649872943, 0.00048167486766303015`], 
+       Complex[0.009357660338321824, 0.0004899358390684891], 
+       Complex[0.009523475710645901, 0.0004982628514932355], 
+       Complex[0.009690788857074972, 0.000506655793138397], 
+       Complex[0.009859600868460376, 0.0005151145520457189], 
+       Complex[0.01002991283627531, 0.000523639016097435], 
+       Complex[0.010201725852615128`, 0.0005322290730161409], 
+       Complex[0.010375041010197626`, 0.0005408846103646654], 
+       Complex[0.010549859402363382`, 0.0005496055155459435], 
+       Complex[0.01072618212307601, 0.000558391675802887], 
+       Complex[0.010904010266922502`, 0.0005672429782182571], 
+       Complex[0.011083344929113514`, 0.0005761593097145363], 
+       Complex[0.011264187205483661`, 0.0005851405570537998], 
+       Complex[0.011446538192491838`, 0.0005941866068375868], 
+       Complex[0.011630398987221506`, 0.0006032973455067731], 
+       Complex[0.011815770687381013`, 0.0006124726593414408], 
+       Complex[0.01200265439130387, 0.0006217124344607514], 
+       Complex[0.012191051197949089`, 0.000631016556822816], 
+       Complex[0.012380962206901455`, 0.000640384912224567], 
+       Complex[0.012572388518371856`, 0.000649817386301629], 
+       Complex[0.012765331233197553`, 0.0006593138645281892], 
+       Complex[0.012959791452842517`, 0.0006688742322168698], 
+       Complex[0.013155770279397731`, 0.0006784983745185975], 
+       Complex[0.013353268815581463`, 0.0006881861764224751], 
+       Complex[0.013552288164739607`, 0.0006979375227556516], 
+       Complex[0.013752829430845954`, 0.000707752298183193], 
+       Complex[0.01395489371850253, 0.0007176303872079533], 
+       Complex[0.014158482132939873`, 0.0007275716741704445], 
+       Complex[0.014363595780017356`, 0.0007375760432487063], 
+       Complex[0.01457023576622348, 0.0007476433784581775], 
+       Complex[0.014778403198676186`, 0.0007577735636515664], 
+       Complex[0.014988099185123158`, 0.0007679664825187192], 
+       Complex[0.015199324833942124`, 0.0007782220185864918], 
+       Complex[0.01541208125414117, 0.0007885400552186183], 
+       Complex[0.01562636955535904, 0.0007989204756155822], 
+       Complex[0.015842190847865447`, 0.0008093631628144855], 
+       Complex[0.016059546242561368`, 0.000819867999688918], 
+       Complex[0.016278436850979364`, 0.0008304348689488276], 
+       Complex[0.016498863785283865`, 0.00084106365314039], 
+       Complex[0.016720828158271514`, 0.0008517542346458764], 
+       Complex[0.016944331083371417`, 0.0008625064956835257], 
+       Complex[0.017169373674645515`, 0.000873320318307411], 
+       Complex[0.017395957046788833`, 0.0008841955844073105], 
+       Complex[0.017624082315129828`, 0.0008951321757085763], 
+       Complex[0.01785375059563068, 0.0009061299737720029], 
+       Complex[0.018084963004887572`, 0.0009171888599936958], 
+       Complex[0.018317720660131057`, 0.0009283087156049429], 
+       Complex[0.018552024679226307`, 0.0009394894216720788], 
+       Complex[0.01878787618067347, 0.0009507308590963581], 
+       Complex[0.019025276283607933`, 0.0009620329086138214], 
+       Complex[0.01926422610780066, 0.0009733954507951634], 
+       Complex[0.019504726773658478`, 0.0009848183660456037], 
+       Complex[0.019746779402224413`, 0.0009963015346047524], 
+       Complex[0.019990385115177974`, 0.0010078448365464807`], 
+       Complex[0.020235545034835458`, 0.0010194481517787873`], 
+       Complex[0.0204822602841503, 0.001031111360043668], 
+       Complex[0.020730531986713305`, 0.0010428343409169816`], 
+       Complex[0.020980361266753064`, 0.001054616973808321], 
+       Complex[0.021231749249136136`, 0.0010664591379608778`], 
+       Complex[0.02148469705936748, 0.0010783607124513124`], 
+       Complex[0.021739205823590662`, 0.001090321576189619], 
+       Complex[0.02199527666858825, 0.001102341607918997], 
+       Complex[0.022252910721782038`, 0.0011144206862157156`], 
+       Complex[0.022512109111233424`, 0.0011265586894889813`], 
+       Complex[0.022772872965643686`, 0.0011387554959808052`], 
+       Complex[0.02303520341435438, 0.0011510109837658768`], 
+       Complex[0.023299101587347402`, 0.0011633250307514153`], 
+       Complex[0.023564568615245668`, 0.0011756975146770571`], 
+       Complex[0.02383160562931301, 0.0011881283131147027`], 
+       Complex[0.024100213761454933`, 0.0012006173034684025`], 
+       Complex[0.024370394144218453`, 0.001213164362974206], 
+       Complex[0.024642147910792892`, 0.001225769368700045], 
+       Complex[0.02491547619500969, 0.0012384321975455832`], 
+       Complex[0.02519038013134322, 0.001251152726242102], 
+       Complex[0.025466860854910615`, 0.0012639308313523456`], 
+       Complex[0.025744919501472542`, 0.0012767663892704105`], 
+       Complex[0.026024557207433036`, 0.0012896592762215871`], 
+       Complex[0.02630577510984033, 0.0013026093682622514`], 
+       Complex[0.026588574346386635`, 0.0013156165412797057`], 
+       Complex[0.02687295605540896, 0.0013286806709920697`], 
+       Complex[0.027158921375888916`, 0.001341801632948122], 
+       Complex[0.02744647144745356, 0.00135497930252719], 
+       Complex[0.027735607410375174`, 0.0013682135549389915`], 
+       Complex[0.028026330405572106`, 0.0013815042652235254`], 
+       Complex[0.02831864157460854, 0.0013948513082509117`], 
+       Complex[0.028612542059695358`, 0.001408254558721282], 
+       Complex[0.02890803300368991, 0.0014217138911646213`], 
+       Complex[0.02920511555009686, 0.0014352291799406567`], 
+       Complex[0.029503790843067975`, 0.0014488002992386988`], 
+       Complex[0.02980406002740296, 0.0014624271230775305`], 
+       Complex[0.030105924248549246`, 0.0014761095253052494`], 
+       Complex[0.030409384652602824`, 0.0014898473795991547`], 
+       Complex[0.030714442386308046`, 0.0015036405594655916`], 
+       Complex[0.03102109859705846, 0.0015174889382398354`], 
+       Complex[0.03132935443289659, 0.0015313923890859363`], 
+       Complex[0.03163921104251478, 0.0015453507849966072`], 
+       Complex[0.03195066957525496, 0.0015593639987930609`], 
+       Complex[0.03226373118110953, 0.001573431903124902], 
+       Complex[0.032578397010721204`, 0.0015875543704699736`], 
+       Complex[0.03289466821538359, 0.0016017312731342254`], 
+       Complex[0.033212545947041386`, 0.0016159624832515816`], 
+       Complex[0.033532031358290755`, 0.001630247872783801], 
+       Complex[0.03385312560237961, 0.0016445873135203428`], 
+       Complex[0.03417582983320795, 0.001658980677078233], 
+       Complex[0.03450014520532816, 0.001673427834901922], 
+       Complex[0.03482607287394533, 0.0016879286582631551`], 
+       Complex[0.035153613994917544`, 0.0017024830182608326`], 
+       Complex[0.03548276972475626, 0.0017170907858208725`], 
+       Complex[0.035813541220626584`, 0.0017317518316960778`], 
+       Complex[0.03614592964034756, 0.0017464660264659977`], 
+       Complex[0.036479936142392526`, 0.0017612332405367891`], 
+       Complex[0.03681556188588945, 0.001776053344141084], 
+       Complex[0.037152808030621175`, 0.0017909262073378491`], 
+       Complex[0.03749167573702581, 0.0018058517000122522`], 
+       Complex[0.03783216616619699, 0.001820829691875521], 
+       Complex[0.038174280479884214`, 0.0018358600524648108`], 
+       Complex[0.03851801984049318, 0.0018509426511430624`], 
+       Complex[0.0388633854110861, 0.0018660773570988707`], 
+       Complex[0.03921037835538195, 0.0018812640393463408`], 
+       Complex[0.039558999837756875`, 0.0018965025667249554`], 
+       Complex[0.03990925102324448, 0.0019117928078994362`], 
+       Complex[0.040261133077536135`, 0.0019271346313596053`], 
+       Complex[0.04061464716698127, 0.0019425279054202476`], 
+       Complex[0.040969794458587755`, 0.001957972498220974], 
+       Complex[0.04132657612002216, 0.0019734682777260842`], 
+       Complex[0.04168499331961009, 0.001989015111724426], 
+       Complex[0.042045047226336556`, 0.0020046128678292583`], 
+       Complex[0.042406739009846164`, 0.002020261413478115], 
+       Complex[0.04277006984044361, 0.002035960615932666], 
+       Complex[0.04313504088909383, 0.002051710342278576], 
+       Complex[0.043501653327422445`, 0.002067510459425371], 
+       Complex[0.04386990832771599, 0.002083360834106294], 
+       Complex[0.0442398070629223, 0.0020992613328781723`], 
+       Complex[0.044611350706650794`, 0.0021152118221212765`], 
+       Complex[0.044984540433172765`, 0.0021312121680391763`], 
+       Complex[0.045359377417421805`, 0.0021472622366586146`], 
+       Complex[0.045735862834994, 0.002163361893829355], 
+       Complex[0.046113997862148336`, 0.0021795110052240515`], 
+       Complex[0.04649378367580696, 0.002195709436338103], 
+       Complex[0.04687522145355556, 0.002211957052489523], 
+       Complex[0.04725831237364366, 0.0022282537188187904`], 
+       Complex[0.04764305761498486, 0.0022445993002887152`], 
+       Complex[0.04802945835715733, 0.0022609936616843013`], 
+       Complex[0.04841751578040396, 0.002277436667612602], 
+       Complex[0.0488072310656328, 0.0022939281825025823`], 
+       Complex[0.0491986053944173, 0.0023104680706049797`], 
+       Complex[0.04959163994899667, 0.0023270561959921657`], 
+       Complex[0.049986335912276206`, 0.0023436924225580034`], 
+       Complex[0.05038269446782763, 0.0023603766140177073`], 
+       Complex[0.05078071679988928, 0.002377108633907705], 
+       Complex[0.05118040409336666, 0.0023938883455854984`], 
+       Complex[0.05158175753383257, 0.0024107156122295183`], 
+       Complex[0.0519847783075275, 0.0024275902968389895`], 
+       Complex[0.05238946760135993, 0.002444512262233786], 
+       Complex[0.05279582660290672, 0.0024614813710542964`], 
+       Complex[0.053203856500413316`, 0.0024784974857612755`], 
+       Complex[0.053613558482794206`, 0.0024955604686357096`], 
+       Complex[0.05402493373963311, 0.0025126701817786735`], 
+       Complex[0.05443798346118341, 0.0025298264871111893`], 
+       Complex[0.05485270883836842, 0.002547029246374087], 
+       Complex[0.0552691110627817, 0.0025642783211278614`], 
+       Complex[0.0556871913266874, 0.002581573572752531], 
+       Complex[0.05610695082302062, 0.0025989148624475005`], 
+       Complex[0.056528390745387666`, 0.002616302051231416], 
+       Complex[0.056951512288066386`, 0.002633734999942021], 
+       Complex[0.05737631664600654, 0.002651213569236023], 
+       Complex[0.057802805014830066`, 0.002668737619588944], 
+       Complex[0.05823097859083149, 0.002686307011294983], 
+       Complex[0.05866083857097812, 0.0027039216044668713`], 
+       Complex[0.05909238615291049, 0.002721581259035737], 
+       Complex[0.05952562253494262, 0.002739285834750954], 
+       Complex[0.05996054891606235, 0.0027570351911800073`], 
+       Complex[0.060397166495931694`, 0.002774829187708344], 
+       Complex[0.06083547647488714, 0.002792667683539241], 
+       Complex[0.061275480053939964`, 0.0028105505376936524`], 
+       Complex[0.061717178434776615`, 0.0028284776090100735`], 
+       Complex[0.06216057281975889, 0.002846448756144394], 
+       Complex[0.06260566441192444, 0.00286446383756976], 
+       Complex[0.0630524544149872, 0.002882522711576434], 
+       Complex[0.06350094403333709, 0.002900625236271632], 
+       Complex[0.06395113447204127, 0.002918771269579416], 
+       Complex[0.06440302693684356, 0.002936960669240509], 
+       Complex[0.0648566226341656, 0.0029551932928121973`], 
+       Complex[0.06531192277110635, 0.00297346899766814], 
+       Complex[0.06576892855544328, 0.002991787640998271], 
+       Complex[0.06622764119563174, 0.003010149079808618], 
+       Complex[0.06668806190080635, 0.0030285531709211898`], 
+       Complex[0.06715019188078021, 0.0030469997709738016`], 
+       Complex[0.0676140323460463, 0.003065488736419967], 
+       Complex[0.06807958450777686, 0.003084019923528718], 
+       Complex[0.06854684957782457, 0.003102593188384495], 
+       Complex[0.06901582876872203, 0.0031212083868869716`], 
+       Complex[0.06948652329368298, 0.0031398653747509394`], 
+       Complex[0.06995893436660167, 0.0031585640075061376`], 
+       Complex[0.07043306320205418, 0.003177304140497137], 
+       Complex[0.07090891101529781, 0.003196085628883163], 
+       Complex[0.07138647902227227, 0.003214908327637984], 
+       Complex[0.07186576843959915, 0.0032337720915497376`], 
+       Complex[0.07234678048458314, 0.003252676775220818], 
+       Complex[0.07282951637521147, 0.0032716222330676924`], 
+       Complex[0.07331397733015514, 0.003290608319320798], 
+       Complex[0.07380016456876826, 0.0033096348880243594`], 
+       Complex[0.07428807931108948, 0.003328701793036277], 
+       Complex[0.07477772277784112, 0.003347808888027948], 
+       Complex[0.07526909619043073, 0.0033669560264841603`], 
+       Complex[0.07576220077095032, 0.0033861430617029066`], 
+       Complex[0.07625703774217761, 0.0034053698467952772`], 
+       Complex[0.07675360832757548, 0.003424636234685278], 
+       Complex[0.07725191375129323, 0.0034439420781097233`], 
+       Complex[0.07775195523816594, 0.003463287229618053], 
+       Complex[0.07825373401371581, 0.0034826715415722195`], 
+       Complex[0.07875725130415144, 0.003502094866146511], 
+       Complex[0.07926250833636922, 0.003521557055327442], 
+       Complex[0.07976950633795263, 0.003541057960913566], 
+       Complex[0.08027824653717354, 0.0035605974345153707`], 
+       Complex[0.08078873016299169, 0.0035801753275550956`], 
+       Complex[0.08130095844505573, 0.003599791491266614], 
+       Complex[0.08181493261370289, 0.0036194457766952643`], 
+       Complex[0.08233065389996004, 0.0036391380346977283`], 
+       Complex[0.08284812353554324, 0.0036588681159418564`], 
+       Complex[0.08336734275285887, 0.003678635870906549], 
+       Complex[0.08388831278500306, 0.0036984411498815813`], 
+       Complex[0.08441103486576311, 0.0037182838029674904`], 
+       Complex[0.0849355102296166, 0.0037381636800753893`], 
+       Complex[0.08546174011173298, 0.0037580806309268603`], 
+       Complex[0.08598972574797267, 0.0037780345050537696`], 
+       Complex[0.08651946837488854, 0.003798025151798158], 
+       Complex[0.08705096922972526, 0.003818052420312054], 
+       Complex[0.08758422955042044, 0.00383811615955737], 
+       Complex[0.08811925057560423, 0.003858216218305707], 
+       Complex[0.08865603354460043, 0.0038783524451382555`], 
+       Complex[0.08919457969742597, 0.0038985246884456074`], 
+       Complex[0.08973489027479215, 0.0039187327964276385`], 
+       Complex[0.09027696651810402, 0.003938976617093334], 
+       Complex[0.09082080966946172, 0.003959255998260672], 
+       Complex[0.09136642097165974, 0.0039795707875564384`], 
+       Complex[0.09191380166818842, 0.003999920832416119], 
+       Complex[0.0924629530032331, 0.00402030598008371], 
+       Complex[0.09301387622167549, 0.004040726077611611], 
+       Complex[0.09356657256909315, 0.004061180971860439], 
+       Complex[0.0941210432917606, 0.004081670509498911], 
+       Complex[0.09467728963664905, 0.004102194537003673], 
+       Complex[0.09523531285142696, 0.004122752900659167], 
+       Complex[0.09579511418446043, 0.00414334544655747], 
+       Complex[0.09635669488481352, 0.004163972020598157], 
+       Complex[0.09692005620224843, 0.0041846324684881395`], 
+       Complex[0.09748519938722608, 0.004205326635741526], 
+       Complex[0.09805212569090618, 0.004226054367679473], 
+       Complex[0.09862083636514785, 0.004246815509430029], 
+       Complex[0.09919133266250968, 0.004267609905927992], 
+       Complex[0.0997636158362503, 0.004288437401914757], 
+       Complex[0.10033768714032851`, 0.004309297841938162], 
+       Complex[0.10091354782940384`, 0.004330191070352352], 
+       Complex[0.10149119915883667`, 0.004351116931317616], 
+       Complex[0.10207064238468863`, 0.00437207526880024], 
+       Complex[0.10265187876372313`, 0.004393065926572365], 
+       Complex[0.10323490955340535`, 0.004414088748211828], 
+       Complex[0.10381973601190289`, 0.004435143577102014], 
+       Complex[0.10440635939808589`, 0.004456230256431711], 
+       Complex[0.10499478097152756`, 0.004477348629194955], 
+       Complex[0.10558500199250431`, 0.004498498538190877], 
+       Complex[0.10617702372199626`, 0.004519679826023565], 
+       Complex[0.1067708474216875, 0.004540892335101895], 
+       Complex[0.10736647435396643`, 0.0045621359076393996`], 
+       Complex[0.1079639057819261, 0.004583410385654102], 
+       Complex[0.10856314296936452`, 0.004604715610968372], 
+       Complex[0.10916418718078516`, 0.004626051425208779], 
+       Complex[0.10976703968139705`, 0.004647417669805935], 
+       Complex[0.11037170173711523`, 0.004668814185994339], 
+       Complex[0.11097817461456119`, 0.004690240814812244], 
+       Complex[0.11158645958106296`, 0.004711697397101483], 
+       Complex[0.11219655790465573`, 0.0047331837735073296`], 
+       Complex[0.11280847085408205`, 0.004754699784478358], 
+       Complex[0.1134221996987921, 0.004776245270266262], 
+       Complex[0.11403774570894414`, 0.004797820070925731], 
+       Complex[0.11465511015540482`, 0.004819424026314286], 
+       Complex[0.11527429430974954`, 0.004841056976092126], 
+       Complex[0.11589529944426276`, 0.004862718759721985], 
+       Complex[0.11651812683193838`, 0.004884409216468969], 
+       Complex[0.11714277774647992`, 0.004906128185400415], 
+       Complex[0.11776925346230116`, 0.004927875505385729], 
+       Complex[0.11839755525452621`, 0.00494965101509624], 
+       Complex[0.11902768439898995`, 0.004971454553005044], 
+       Complex[0.11965964217223841`, 0.004993285957386858], 
+       Complex[0.12029342985152906`, 0.005015145066317856], 
+       Complex[0.12092904871483119`, 0.005037031717675529], 
+       Complex[0.1215665000408262, 0.005058945749138524], 
+       Complex[0.12220578510890788`, 0.005080886998186489], 
+       Complex[0.12284690519918308`, 0.005102855302099934], 
+       Complex[0.12348986159247152`, 0.005124850497960057], 
+       Complex[0.1241346555703067, 0.0051468724226486125`], 
+       Complex[0.12478128841493571`, 0.005168920912847743], 
+       Complex[0.12542976140932002`, 0.005190995805039828], 
+       Complex[0.1260800758371356, 0.00521309693550734], 
+       Complex[0.1267322329827732, 0.005235224140332679], 
+       Complex[0.12738623413133884`, 0.0052573772553980245`], 
+       Complex[0.12804208056865415`, 0.005279556116385184], 
+       Complex[0.12869977358125662`, 0.005301760558775434], 
+       Complex[0.12935931445639995`, 0.005323990417849372], 
+       Complex[0.13002070448205455`, 0.005346245528686754], 
+       Complex[0.1306839449469076, 0.005368525726166348], 
+       Complex[0.13134903714036367`, 0.005390830844965777], 
+       Complex[0.132015982352545, 0.005413160719561372], 
+       Complex[0.1326847818742916, 0.005435515184227994], 
+       Complex[0.13335543699716193`, 0.005457894073038909], 
+       Complex[0.13402794901343323`, 0.0054802972198656225`], 
+       Complex[0.13470231921610132`, 0.005502724458377709], 
+       Complex[0.135378548898882, 0.005525175622042688], 
+       Complex[0.13605663935621007`, 0.005547650544125836], 
+       Complex[0.136736591883241, 0.005570149057690062], 
+       Complex[0.13741840777585, 0.005592670995595724], 
+       Complex[0.1381020883306336, 0.005615216190500502], 
+       Complex[0.13878763484490894`, 0.005637784474859213], 
+       Complex[0.13947504861671503`, 0.005660375680923692], 
+       Complex[0.14016433094481207`, 0.005682989640742588], 
+       Complex[0.14085548312868296`, 0.005705626186161264], 
+       Complex[0.1415485064685326, 0.005728285148821591], 
+       Complex[0.14224340226528898`, 0.005750966360161832], 
+       Complex[0.14294017182060298`, 0.005773669651416455], 
+       Complex[0.14363881643684928`, 0.005796394853616006], 
+       Complex[0.14433933741712604`, 0.005819141797586915], 
+       Complex[0.1450417360652561, 0.0058419103139513906`], 
+       Complex[0.14574601368578616`, 0.005864700233127209], 
+       Complex[0.1464521715839885, 0.005887511385327606], 
+       Complex[0.14716021106586002`, 0.005910343600561085], 
+       Complex[0.14787013343812372`, 0.005933196708631282], 
+       Complex[0.14858194000822808`, 0.005956070539136794], 
+       Complex[0.14929563208434826`, 0.005978964921471041], 
+       Complex[0.15001121097538553`, 0.006001879684822081], 
+       Complex[0.15072867799096884`, 0.006024814658172492], 
+       Complex[0.15144803444145355`, 0.006047769670299165], 
+       Complex[0.15216928163792365`, 0.006070744549773205], 
+       Complex[0.15289242089219027`, 0.006093739124959714], 
+       Complex[0.15361745351679357`, 0.006116753224017689], 
+       Complex[0.1543443808250019, 0.006139786674899819], 
+       Complex[0.15507320413081316`, 0.0061628393053523595`], 
+       Complex[0.15580392474895416`, 0.006185910942914952], 
+       Complex[0.15653654399488198`, 0.006209001414920487], 
+       Complex[0.1572710631847833, 0.006232110548494929], 
+       Complex[0.15800748363557568`, 0.006255238170557169], 
+       Complex[0.1587458066649071, 0.006278384107818854], 
+       Complex[0.15948603359115712`, 0.006301548186784256], 
+       Complex[0.16022816573343637`, 0.006324730233750075], 
+       Complex[0.16097220441158777`, 0.006347930074805316], 
+       Complex[0.16171815094618597`, 0.006371147535831104], 
+       Complex[0.1624660066585387, 0.0063943824425005515`], 
+       Complex[0.163215772870686, 0.006417634620278567], 
+       Complex[0.16396745090540185`, 0.006440903894421737], 
+       Complex[0.16472104208619318`, 0.00646419008997812], 
+       Complex[0.1654765477373014, 0.006487493031787137], 
+       Complex[0.16623396918370179`, 0.006510812544479367], 
+       Complex[0.16699330775110485`, 0.006534148452476428], 
+       Complex[0.16775456476595535`, 0.006557500579990778], 
+       Complex[0.16851774155543423`, 0.0065808687510255995`], 
+       Complex[0.1692828394474574, 0.006604252789374591], 
+       Complex[0.1700498597706775, 0.00662765251862186], 
+       Complex[0.17081880385448306`, 0.006651067762141716], 
+       Complex[0.17158967302899977`, 0.0066744983430985436`], 
+       Complex[0.17236246862509005`, 0.00669794408444662], 
+       Complex[0.17313719197435445`, 0.006721404808929984], 
+       Complex[0.1739138444091305, 0.006744880339082229], 
+       Complex[0.17469242726249465`, 0.006768370497226402], 
+       Complex[0.17547294186826137`, 0.00679187510547479], 
+       Complex[0.17625538956098458`, 0.0068153939857288], 
+       Complex[0.1770397716759567, 0.006838926959678762], 
+       Complex[0.17782608954921048`, 0.006862473848803808], 
+       Complex[0.17861434451751806`, 0.006886034474371671], 
+       Complex[0.17940453791839234`, 0.006909608657438564], 
+       Complex[0.1801966710900866, 0.006933196218848986], 
+       Complex[0.18099074537159512`, 0.006956796979235577], 
+       Complex[0.1817867621026538, 0.006980410759018954], 
+       Complex[0.18258472262374004`, 0.0070040373784075564`], 
+       Complex[0.18338462827607324`, 0.00702767665739747], 
+       Complex[0.1841864804016155, 0.0070513284157722785`], 
+       Complex[0.18499028034307166`, 0.0070749924731028984`], 
+       Complex[0.18579602944388943`, 0.007098668648747418], 
+       Complex[0.18660372904826036`, 0.007122356761850928], 
+       Complex[0.18741338050111964`, 0.007146056631345375], 
+       Complex[0.1882249851481468, 0.007169768075949389], 
+       Complex[0.18903854433576578`, 0.007193490914168114], 
+       Complex[0.18985405941114564`, 0.007217224964293073], 
+       Complex[0.19067153172220053`, 0.007240970044401969], 
+       Complex[0.19149096261759033`, 0.007264725972358561], 
+       Complex[0.192312353446721, 0.0072884925658124695`], 
+       Complex[0.19313570555974463`, 0.00731226964219903], 
+       Complex[0.19396102030756016`, 0.007336057018739128], 
+       Complex[0.19478829904181358`, 0.007359854512439043], 
+       Complex[0.19561754311489826`, 0.007383661940090268], 
+       Complex[0.1964487538799554, 0.007407479118269365], 
+       Complex[0.19728193269087427`, 0.007431305863337789], 
+       Complex[0.19811708090229266`, 0.007455141991441737], 
+       Complex[0.19895419986959723`, 0.007478987318511974], 
+       Complex[0.19979329094892376`, 0.007502841660263672], 
+       Complex[0.20063435549715766`, 0.007526704832196254], 
+       Complex[0.20147739487193436`, 0.007550576649593223], 
+       Complex[0.2023224104316393, 0.007574456927521999], 
+       Complex[0.20316940353540885`, 0.007598345480833759], 
+       Complex[0.20401837554313026`, 0.0076222421241632695`], 
+       Complex[0.20486932781544198`, 0.0076461466719287274`], 
+       Complex[0.20572226171373448`, 0.007670058938331589], 
+       Complex[0.20657717860015012`, 0.007693978737356411], 
+       Complex[0.2074340798375836, 0.007717905882770685], 
+       Complex[0.20829296678968265`, 0.007741840188124677], 
+       Complex[0.209153840820848, 0.007765781466751255], 
+       Complex[0.21001670329623393`, 0.007789729531765729], 
+       Complex[0.21088155558174848`, 0.007813684196065688], 
+       Complex[0.21174839904405418`, 0.007837645272330837], 
+       Complex[0.21261723505056787`, 0.007861612573022817], 
+       Complex[0.21348806496946154`, 0.007885585910385066], 
+       Complex[0.21436089016966248`, 0.007909565096442632], 
+       Complex[0.21523571202085348`, 0.007933549943002017], 
+       Complex[0.21611253189347343`, 0.007957540261651007], 
+       Complex[0.21699135115871787`, 0.007981535863758521], 
+       Complex[0.21787217118853872`, 0.008005536560474423], 
+       Complex[0.21875499335564524`, 0.008029542162729376], 
+       Complex[0.2196398190335041, 0.00805355248123466], 
+       Complex[0.22052664959633989`, 0.008077567326482026], 
+       Complex[0.2214154864191353, 0.008101586508743513], 
+       Complex[0.22230633087763155`, 0.008125609838071287], 
+       Complex[0.22319918434832897`, 0.00814963712429748], 
+       Complex[0.22409404820848694`, 0.008173668177034014], 
+       Complex[0.22499092383612473`, 0.008197702805672448], 
+       Complex[0.2258898126100215, 0.0082217408193838], 
+       Complex[0.22679071590971675`, 0.008245782027118382], 
+       Complex[0.22769363511551083`, 0.008269826237605648], 
+       Complex[0.22859857160846497`, 0.008293873259353999], 
+       Complex[0.22950552677040217`, 0.008317922900650643], 
+       Complex[0.23041450198390714`, 0.008341974969561423], 
+       Complex[0.2313254986323266, 0.008366029273930629], 
+       Complex[0.23223851809977017`, 0.008390085621380865], 
+       Complex[0.23315356177111007`, 0.008414143819312853], 
+       Complex[0.2340706310319819, 0.008438203674905272], 
+       Complex[0.23498972726878506`, 0.008462264995114613], 
+       Complex[0.2359108518686827, 0.008486327586674974], 
+       Complex[0.23683400621960263`, 0.008510391256097925], 
+       Complex[0.23775919171023713`, 0.008534455809672315], 
+       Complex[0.23868640973004385`, 0.008558521053464135], 
+       Complex[0.2396156616692457, 0.008582586793316313], 
+       Complex[0.24054694891883138`, 0.008606652834848575], 
+       Complex[0.24148027287055612`, 0.008630718983457264], 
+       Complex[0.24241563491694149`, 0.008654785044315175], 
+       Complex[0.24335303645127593`, 0.00867885082237138], 
+       Complex[0.24429247886761524`, 0.008702916122351072], 
+       Complex[0.24523396356078284`, 0.008726980748755388], 
+       Complex[0.24617749192637045`, 0.008751044505861245], 
+       Complex[0.2471230653607379, 0.00877510719772116], 
+       Complex[0.2480706852610137, 0.008799168628163101], 
+       Complex[0.2490203530250959, 0.008823228600790298], 
+       Complex[0.24997207005165162`, 0.008847286918981085], 
+       Complex[0.25092583774011806`, 0.008871343385888728], 
+       Complex[0.25188165749070257`, 0.008895397804441258], 
+       Complex[0.25283953070438325`, 0.0089194499773413], 
+       Complex[0.25379945878290894`, 0.008943499707065896], 
+       Complex[0.25476144312880006`, 0.008967546795866355], 
+       Complex[0.2557254851453484, 0.008991591045768063], 
+       Complex[0.2566915862366181, 0.009015632258570322], 
+       Complex[0.2576597478074456, 0.009039670235846177], 
+       Complex[0.2586299712634403, 0.009063704778942253], 
+       Complex[0.2596022580109846, 0.00908773568897858], 
+       Complex[0.26057660945723443`, 0.009111762766848415], 
+       Complex[0.2615530270101197, 0.009135785813218087], 
+       Complex[0.2625315120783447, 0.009159804628526821], 
+       Complex[0.26351206607138816`, 0.009183819012986559], 
+       Complex[0.2644946903995039, 0.0092078287665818], 
+       Complex[0.2654793864737212, 0.009231833689069418], 
+       Complex[0.26646615570584514`, 0.009255833579978511], 
+       Complex[0.26745499950845675`, 0.00927982823861021], 
+       Complex[0.2684459192949135, 0.009303817464037509], 
+       Complex[0.26943891647935014`, 0.009327801055105112], 
+       Complex[0.2704339924766781, 0.00935177881042924], 
+       Complex[0.2714311487025869, 0.009375750528397475], 
+       Complex[0.27243038657354357`, 0.009399716007168582], 
+       Complex[0.27343170750679396`, 0.009423675044672335], 
+       Complex[0.2744351129203622, 0.00944762743860935], 
+       Complex[0.27544060423305194`, 0.009471572986450915], 
+       Complex[0.27644818286444595`, 0.009495511485438809], 
+       Complex[0.2774578502349069, 0.00951944273258514], 
+       Complex[0.2784696077655777, 0.009543366524672164], 
+       Complex[0.2794834568783819, 0.009567282658252123], 
+       Complex[0.280499398996024, 0.009591190929647065], 
+       Complex[0.2815174355419896, 0.009615091134948671], 
+       Complex[0.282537567940546, 0.009638983070018085], 
+       Complex[0.28355979761674305`, 0.009662866530485743], 
+       Complex[0.2845841259964125, 0.009686741311751198], 
+       Complex[0.28561055450616896`, 0.009710607208982947], 
+       Complex[0.2866390845734104, 0.009734464017118258], 
+       Complex[0.2876697176263184, 0.009758311530862998], 
+       Complex[0.28870245509385817`, 0.009782149544691464], 
+       Complex[0.28973729840577944`, 0.00980597785284619], 
+       Complex[0.2907742489926166, 0.009829796249337806], 
+       Complex[0.291813308285689, 0.009853604527944836], 
+       Complex[0.2928544777171013, 0.00987740248221354], 
+       Complex[0.29389775871974433`, 0.009901189905457733], 
+       Complex[0.29494315272729477`, 0.009924966590758613], 
+       Complex[0.29599066117421585`, 0.009948732330964586], 
+       Complex[0.2970402854957578, 0.009972486918691102], 
+       Complex[0.2980920271279582, 0.009996230146320466], 
+       Complex[0.2991458875076421, 0.010019961806001662`], 
+       Complex[0.3002018680724226, 0.010043681689650204`], 
+       Complex[0.3012599702607015, 0.010067389588947933`], 
+       Complex[0.3023201955116693, 0.010091085295342857`], 
+       Complex[0.3033825452653051, 0.010114768600048962`], 
+       Complex[0.3044470209623785, 0.010138439294046071`], 
+       Complex[0.30551362404444826`, 0.010162097168079622`], 
+       Complex[0.3065823559538636, 0.010185742012660532`], 
+       Complex[0.3076532181337646, 0.010209373618064994`], 
+       Complex[0.3087262120280822, 0.010232991774334331`], 
+       Complex[0.309801339081539, 0.010256596271274794`], 
+       Complex[0.310878600739649, 0.010280186898457394`], 
+       Complex[0.3119579984487187, 0.010303763445217731`], 
+       Complex[0.3130395336558469, 0.010327325700655822`], 
+       Complex[0.31412320780892566`, 0.010350873453635915`], 
+       Complex[0.31520902235664, 0.010374406492786314`], 
+       Complex[0.31629697874846885`, 0.010397924606499218`], 
+       Complex[0.3173870784346849, 0.010421427582930515`], 
+       Complex[0.3184793228663556, 0.010444915209999642`], 
+       Complex[0.3195737134953433, 0.01046838727538938], 
+       Complex[0.3206702517743049, 0.010491843566545695`], 
+       Complex[0.3217689391566937, 0.010515283870677548`], 
+       Complex[0.3228697770967583, 0.010538707974756728`], 
+       Complex[0.32397276704954403`, 0.010562115665517676`], 
+       Complex[0.32507791047089263`, 0.010585506729457293`], 
+       Complex[0.326185208817443, 0.010608880952834791`], 
+       Complex[0.3272946635466317, 0.01063223812167148], 
+       Complex[0.32840627611669293`, 0.010655578021750628`], 
+       Complex[0.3295200479866591, 0.010678900438617252`], 
+       Complex[0.3306359806163615, 0.010702205157577964`], 
+       Complex[0.33175407546642977`, 0.010725491963700772`], 
+       Complex[0.33287433399829375`, 0.010748760641814924`], 
+       Complex[0.33399675767418224`, 0.010772010976510718`], 
+       Complex[0.3351213479571248, 0.010795242752139323`], 
+       Complex[0.336248106310951, 0.010818455752812605`], 
+       Complex[0.3373770342002914, 0.010841649762402948`], 
+       Complex[0.338508133090578, 0.010864824564543076`], 
+       Complex[0.3396414044480443, 0.010887979942625877`], 
+       Complex[0.3407768497397261, 0.010911115679804219`], 
+       Complex[0.341914470433461, 0.01093423155899077], 
+       Complex[0.34305426799788985`, 0.010957327362857833`], 
+       Complex[0.3441962439024567, 0.010980402873837156`], 
+       Complex[0.3453403996174087, 0.011003457874119747`], 
+       Complex[0.3464867366137976, 0.011026492145655716`], 
+       Complex[0.34763525636347886`, 0.011049505470154066`], 
+       Complex[0.3487859603391128, 0.011072497629082549`], 
+       Complex[0.3499388500141651, 0.011095468403667453`], 
+       Complex[0.35109392686290647`, 0.011118417574893444`], 
+       Complex[0.3522511923604138, 0.01114134492350339], 
+       Complex[0.35341064798257, 0.011164250229998151`], 
+       Complex[0.35457229520606454`, 0.01118713327463644], 
+       Complex[0.35573613550839417`, 0.011209993837434607`], 
+       Complex[0.35690217036786276`, 0.011232831698166492`], 
+       Complex[0.3580704012635819, 0.011255646636363206`], 
+       Complex[0.3592408296754715, 0.011278438431312994`], 
+       Complex[0.36041345708426004`, 0.011301206862061021`], 
+       Complex[0.3615882849714843, 0.011323951707409206`], 
+       Complex[0.3627653148194915, 0.011346672745916043`], 
+       Complex[0.3639445481114371, 0.011369369755896409`], 
+       Complex[0.3651259863312882, 0.011392042515421403`], 
+       Complex[0.3663096309638208, 0.011414690802318135`], 
+       Complex[0.36749548349462274`, 0.011437314394169583`], 
+       Complex[0.368683545410093, 0.011459913068314386`], 
+       Complex[0.36987381819744153`, 0.011482486601846649`], 
+       Complex[0.3710663033446909, 0.011505034771615814`], 
+       Complex[0.3722610023406757, 0.011527557354226418`], 
+       Complex[0.3734579166750435, 0.011550054126037958`], 
+       Complex[0.3746570478382549, 0.011572524863164674`], 
+       Complex[0.3758583973215839, 0.011594969341475397`], 
+       Complex[0.3770619666171187, 0.011617387336593355`], 
+       Complex[0.37826775721776146`, 0.011639778623895976`], 
+       Complex[0.3794757706172293, 0.011662142978514733`], 
+       Complex[0.38068600831005434`, 0.011684480175334938`], 
+       Complex[0.381898471791584, 0.011706789988995579`], 
+       Complex[0.38311316255798195`, 0.011729072193889129`], 
+       Complex[0.38433008210622743`, 0.011751326564161349`], 
+       Complex[0.3855492319341171, 0.01177355287371114], 
+       Complex[0.38677061354026376`, 0.011795750896190324`], 
+       Complex[0.38799422842409836`, 0.011817920405003481`], 
+       Complex[0.3892200780858693, 0.011840061173307763`], 
+       Complex[0.3904481640266431, 0.011862172974012711`], 
+       Complex[0.391678487748305, 0.01188425557978006], 
+       Complex[0.3929110507535589, 0.01190630876302359], 
+       Complex[0.39414585454592854`, 0.011928332295908882`], 
+       Complex[0.3953829006297569, 0.011950325950353204`], 
+       Complex[0.39662219051020725`, 0.01197228949802528], 
+       Complex[0.39786372569326334`, 0.011994222710345118`], 
+       Complex[0.3991075076857299, 0.012016125358483828`], 
+       Complex[0.40035353799523293`, 0.012037997213363452`], 
+       Complex[0.40160181813021995`, 0.012059838045656746`], 
+       Complex[0.4028523495999605, 0.01208164762578703], 
+       Complex[0.404105133914547, 0.012103425723927981`], 
+       Complex[0.40536017258489426`, 0.012125172110003468`], 
+       Complex[0.4066174671227404, 0.012146886553687345`], 
+       Complex[0.40787701904064716`, 0.012168568824403274`], 
+       Complex[0.4091388298520006, 0.012190218691324563`], 
+       Complex[0.4104029010710109, 0.012211835923373946`], 
+       Complex[0.41166923421271295`, 0.01223342028922342], 
+       Complex[0.4129378307929669, 0.012254971557294044`], 
+       Complex[0.4142086923284588, 0.012276489495755775`], 
+       Complex[0.4154818203367, 0.012297973872527266`], 
+       Complex[0.41675721633602864`, 0.012319424455275688`], 
+       Complex[0.41803488184560983`, 0.01234084101141653], 
+       Complex[0.41931481838543533`, 0.012362223308113443`], 
+       Complex[0.42059702747632466`, 0.012383571112278023`], 
+       Complex[0.42188151063992546`, 0.012404884190569643`], 
+       Complex[0.423168269398713, 0.012426162309395255`], 
+       Complex[0.42445730527599224`, 0.012447405234909226`], 
+       Complex[0.42574861979589634`, 0.012468612733013116`], 
+       Complex[0.42704221448338864`, 0.012489784569355528`], 
+       Complex[0.42833809086426194`, 0.012510920509331898`], 
+       Complex[0.42963625046513937`, 0.012532020318084314`], 
+       Complex[0.430936694813475, 0.012553083760501342`], 
+       Complex[0.4322394254375537, 0.012574110601217811`], 
+       Complex[0.4335444438664919, 0.012595100604614655`], 
+       Complex[0.4348517516302378, 0.01261605353481871], 
+       Complex[0.4361613502595719, 0.012636969155702529`], 
+       Complex[0.4374732412861077, 0.012657847230884207`], 
+       Complex[0.438787426242291, 0.01267868752372716], 
+       Complex[0.44010390666140164`, 0.012699489797339984`], 
+       Complex[0.44142268407755314`, 0.012720253814576234`], 
+       Complex[0.442743760025693, 0.012740979338034232`], 
+       Complex[0.4440671360416037, 0.012761666130056918`], 
+       Complex[0.4453928136619025, 0.012782313952731616`], 
+       Complex[0.446720794424042, 0.012802922567889875`], 
+       Complex[0.4480510798663108, 0.012823491737107272`], 
+       Complex[0.44938367152783393`, 0.012844021221703226`], 
+       Complex[0.45071857094857226`, 0.012864510782740797`], 
+       Complex[0.45205577966932425`, 0.012884960181026516`], 
+       Complex[0.45339529923172583`, 0.012905369177110187`], 
+       Complex[0.4547371311782503, 0.0129257375312847], 
+       Complex[0.45608127705220913`, 0.012946065003585824`], 
+       Complex[0.45742773839775314`, 0.01296635135379207], 
+       Complex[0.45877651675987097`, 0.01298659634142443], 
+       Complex[0.4601276136843916, 0.013006799725746244`], 
+       Complex[0.4614810307179832, 0.013026961265762985`], 
+       Complex[0.4628367694081544, 0.013047080720222079`], 
+       Complex[0.4641948313032541, 0.013067157847612709`], 
+       Complex[0.4655552179524728, 0.013087192406165626`], 
+       Complex[0.46691793090584144`, 0.013107184153852956`], 
+       Complex[0.4682829717142335, 0.01312713284838803], 
+       Complex[0.4696503419293642, 0.013147038247225164`], 
+       Complex[0.47102004310379153`, 0.013166900107559491`], 
+       Complex[0.4723920767909163, 0.01318671818632676], 
+       Complex[0.4737664445449826, 0.013206492240203142`], 
+       Complex[0.47514314792107865`, 0.013226222025605066`], 
+       Complex[0.4765221884751362, 0.01324590729868898], 
+       Complex[0.4779035677639321, 0.01326554781535121], 
+       Complex[0.4792872873450882, 0.013285143331227735`], 
+       Complex[0.48067334877707113`, 0.01330469360169402], 
+       Complex[0.4820617536191935, 0.013324198381864796`], 
+       Complex[0.48345250343161467`, 0.013343657426593904`], 
+       Complex[0.48484559977533975`, 0.01336307049047407], 
+       Complex[0.4862410442122209, 0.013382437327836734`], 
+       Complex[0.4876388383049583, 0.013401757692751856`], 
+       Complex[0.4890389836170991, 0.013421031339027719`], 
+       Complex[0.49044148171303903`, 0.013440258020210736`], 
+       Complex[0.49184633415802215`, 0.013459437489585259`], 
+       Complex[0.4932535425181419, 0.013478569500173405`], 
+       Complex[0.4946631083603405, 0.013497653804734826`], 
+       Complex[0.49607503325241037`, 0.013516690155766557`], 
+       Complex[0.4974893187629939, 0.013535678305502787`], 
+       Complex[0.4989059664615839, 0.013554618005914697`], 
+       Complex[0.5003249779185246, 0.013573509008710249`], 
+       Complex[0.5017463547050112, 0.013592351065334005`], 
+       Complex[0.5031700983930905, 0.013611143926966916`], 
+       Complex[0.5045962105556624, 0.013629887344526151`], 
+       Complex[0.506024692766478, 0.013648581068664886`], 
+       Complex[0.5074555466001426, 0.013667224849772123`], 
+       Complex[0.5088887736321146, 0.013685818437972494`], 
+       Complex[0.5103243754387053, 0.013704361583126056`], 
+       Complex[0.5117623535970814, 0.013722854034828109`], 
+       Complex[0.5132027096852637, 0.013741295542409007`], 
+       Complex[0.5146454452821277, 0.013759685854933945`], 
+       Complex[0.5160905619674045, 0.01377802472120278], 
+       Complex[0.5175380613216817, 0.013796311889749842`], 
+       Complex[0.5189879449264019, 0.013814547108843724`], 
+       Complex[0.5204402143638649, 0.013832730126487084`], 
+       Complex[0.5218948712172279, 0.013850860690416484`], 
+       Complex[0.5233519170705049, 0.013868938548102155`], 
+       Complex[0.524811353508568, 0.013886963446747823`], 
+       Complex[0.5262731821171476, 0.013904935133290514`], 
+       Complex[0.5277374044828326, 0.013922853354400352`], 
+       Complex[0.5292040221930712, 0.013940717856480375`], 
+       Complex[0.5306730368361704, 0.01395852838566632], 
+       Complex[0.5321444500012981, 0.013976284687826454`], 
+       Complex[0.5336182632784815, 0.013993986508561351`], 
+       Complex[0.5350944782586089, 0.014011633593203718`], 
+       Complex[0.5365730965334299, 0.014029225686818195`], 
+       Complex[0.5380541196955549, 0.014046762534201142`], 
+       Complex[0.5395375493384571, 0.01406424387988047], 
+       Complex[0.5410233870564712, 0.014081669468115423`], 
+       Complex[0.5425116344447949, 0.014099039042896392`], 
+       Complex[0.5440022930994892, 0.01411635234794472], 
+       Complex[0.5454953646174785, 0.014133609126712502`], 
+       Complex[0.546990850596551, 0.014150809122382379`], 
+       Complex[0.5484887526353591, 0.014167952077867366`], 
+       Complex[0.5499890723334205, 0.01418503773581063], 
+       Complex[0.5514918112911176, 0.014202065838585312`], 
+       Complex[0.5529969711096986, 0.014219036128294307`], 
+       Complex[0.5545045533912774, 0.014235948346770094`], 
+       Complex[0.5560145597388345, 0.01425280223557452], 
+       Complex[0.5575269917562172, 0.014269597535998619`], 
+       Complex[0.5590418510481401, 0.014286333989062386`], 
+       Complex[0.5605591392201849, 0.014303011335514607`], 
+       Complex[0.5620788578788016, 0.014319629315832654`], 
+       Complex[0.5636010086313092, 0.014336187670222288`], 
+       Complex[0.5651255930858945, 0.014352686138617439`], 
+       Complex[0.5666526128516143, 0.014369124460680047`], 
+       Complex[0.5681820695383951, 0.014385502375799834`], 
+       Complex[0.5697139647570327, 0.014401819623094116`], 
+       Complex[0.5712483001191941, 0.014418075941407602`], 
+       Complex[0.572785077237417, 0.014434271069312204`], 
+       Complex[0.5743242977251107, 0.014450404745106817`], 
+       Complex[0.5758659631965551, 0.014466476706817149`], 
+       Complex[0.5774100752669037, 0.014482486692195496`], 
+       Complex[0.5789566355521816, 0.014498434438720568`], 
+       Complex[0.580505645669287, 0.01451431968359725], 
+       Complex[0.5820571072359919, 0.014530142163756464`], 
+       Complex[0.5836110218709414, 0.014545901615854905`], 
+       Complex[0.5851673911936552, 0.01456159777627488], 
+       Complex[0.5867262168245276, 0.014577230381124105`], 
+       Complex[0.5882875003848276, 0.01459279916623548], 
+       Complex[0.5898512434967, 0.014608303867166939`], 
+       Complex[0.5914174477831654, 0.014623744219201193`], 
+       Complex[0.5929861148681204, 0.014639119957345563`], 
+       Complex[0.5945572463763382, 0.014654430816331776`], 
+       Complex[0.5961308439334696, 0.01466967653061576], 
+       Complex[0.5977069091660422, 0.014684856834377428`], 
+       Complex[0.5992854437014622, 0.01469997146152052], 
+       Complex[0.6008664491680135, 0.014715020145672365`], 
+       Complex[0.6024499271948593, 0.014730002620183693`], 
+       Complex[0.6040358794120413, 0.014744918618128412`], 
+       Complex[0.6056243074504812, 0.01475976787230346], 
+       Complex[0.6072152129419808, 0.014774550115228543`], 
+       Complex[0.6088085975192218, 0.014789265079145976`], 
+       Complex[0.610404462815767, 0.014803912496020463`], 
+       Complex[0.6120028104660608, 0.01481849209753889], 
+       Complex[0.6136036421054283, 0.014833003615110144`], 
+       Complex[0.6152069593700773, 0.014847446779864893`], 
+       Complex[0.6168127638970984, 0.014861821322655396`], 
+       Complex[0.6184210573244641, 0.014876126974055279`], 
+       Complex[0.620031841291031, 0.014890363464359367`], 
+       Complex[0.6216451174365389, 0.014904530523583454`], 
+       Complex[0.6232608874016123, 0.014918627881464107`], 
+       Complex[0.62487915282776, 0.014932655267458472`], 
+       Complex[0.6264999153573755, 0.014946612410744065`], 
+       Complex[0.6281231766337377, 0.014960499040218563`], 
+       Complex[0.6297489383010119, 0.014974314884499606`], 
+       Complex[0.6313772020042488, 0.014988059671924611`], 
+       Complex[0.6330079693893866, 0.01500173313055053], 
+       Complex[0.6346412421032497, 0.015015334988153682`], 
+       Complex[0.6362770217935507, 0.015028864972229543`], 
+       Complex[0.6379153101088895, 0.01504232280999252], 
+       Complex[0.6395561086987547, 0.015055708228375776`], 
+       Complex[0.6411994192135235, 0.015069020954031002`], 
+       Complex[0.642845243304462, 0.01508226071332823], 
+       Complex[0.6444935826237267, 0.015095427232355638`], 
+       Complex[0.6461444388243631, 0.015108520236919304`], 
+       Complex[0.6477978135603073, 0.015121539452543045`], 
+       Complex[0.6494537084863868, 0.015134484604468194`], 
+       Complex[0.6511121252583199, 0.015147355417653396`], 
+       Complex[0.6527730655327165, 0.015160151616774399`], 
+       Complex[0.6544365309670789, 0.015172872926223862`], 
+       Complex[0.6561025232198016, 0.015185519070111144`], 
+       Complex[0.6577710439501719, 0.015198089772262086`], 
+       Complex[0.6594420948183711, 0.015210584756218833`], 
+       Complex[0.661115677485474, 0.015223003745239602`], 
+       Complex[0.6627917936134488, 0.015235346462298491`], 
+       Complex[0.6644704448651594, 0.01524761263008527], 
+       Complex[0.666151632904364, 0.015259801971005163`], 
+       Complex[0.6678353593957169, 0.015271914207178683`], 
+       Complex[0.6695216260047676, 0.015283949060441358`], 
+       Complex[0.6712104343979625, 0.015295906252343595`], 
+       Complex[0.672901786242644, 0.015307785504150429`], 
+       Complex[0.6745956832070522, 0.015319586536841331`], 
+       Complex[0.6762921269603248, 0.015331309071110005`], 
+       Complex[0.677991119172497, 0.01534295282736417], 
+       Complex[0.6796926615145029, 0.01535451752572537], 
+       Complex[0.6813967556581753, 0.015366002886028747`], 
+       Complex[0.6831034032762459, 0.015377408627822843`], 
+       Complex[0.6848126060423466, 0.0153887344703694], 
+       Complex[0.686524365631009, 0.015399980132643157`], 
+       Complex[0.6882386837176656, 0.015411145333331608`], 
+       Complex[0.6899555619786493, 0.015422229790834838`], 
+       Complex[0.691675002091195, 0.015433233223265293`], 
+       Complex[0.6933970057334389, 0.01544415534844756], 
+       Complex[0.6951215745844196, 0.01545499588391819], 
+       Complex[0.6968487103240785, 0.015465754546925477`], 
+       Complex[0.6985784146332598, 0.01547643105442923], 
+       Complex[0.7003106891937113, 0.015487025123100606`], 
+       Complex[0.7020455356880849, 0.015497536469321855`], 
+       Complex[0.7037829557999365, 0.015507964809186143`], 
+       Complex[0.7055229512137272, 0.015518309858497337`], 
+       Complex[0.7072655236148228, 0.015528571332769778`], 
+       Complex[0.7090106746894947, 0.015538748947228117`], 
+       Complex[0.7107584061249214, 0.015548842416807047`], 
+       Complex[0.7125087196091865, 0.015558851456151141`], 
+       Complex[0.7142616168312813, 0.01556877577961461], 
+       Complex[0.7160170994811041, 0.015578615101261125`], 
+       Complex[0.7177751692494609, 0.015588369134863578`], 
+       Complex[0.7195358278280668, 0.015598037593903899`], 
+       Complex[0.721299076909544, 0.015607620191572809`], 
+       Complex[0.7230649181874247, 0.01561711664076966], 
+       Complex[0.7248333533561505, 0.01562652665410218], 
+       Complex[0.7266043841110725, 0.015635849943886282`], 
+       Complex[0.7283780121484529, 0.01564508622214587], 
+       Complex[0.7301542391654635, 0.01565423520061258], 
+       Complex[0.7319330668601882, 0.01566329659072564], 
+       Complex[0.7337144969316222, 0.015672270103631585`], 
+       Complex[0.7354985310796726, 0.015681155450184104`], 
+       Complex[0.7372851710051591, 0.015689952340943784`], 
+       Complex[0.7390744184098147, 0.015698660486177955`], 
+       Complex[0.7408662749962849, 0.015707279595860407`], 
+       Complex[0.7426607424681293, 0.015715809379671243`], 
+       Complex[0.7444578225298218, 0.015724249546996624`], 
+       Complex[0.746257516886751, 0.015732599806928583`], 
+       Complex[0.7480598272452202, 0.015740859868264803`], 
+       Complex[0.7498647553124486, 0.015749029439508413`], 
+       Complex[0.7516723027965709, 0.01575710822886776], 
+       Complex[0.7534824714066383, 0.0157650959442562], 
+       Complex[0.7552952628526186, 0.015772992293291915`], 
+       Complex[0.7571106788453971, 0.01578079698329766], 
+       Complex[0.7589287210967766, 0.015788509721300577`], 
+       Complex[0.7607493913194776, 0.015796130214031954`], 
+       Complex[0.7625726912271397, 0.01580365816792707], 
+       Complex[0.7643986225343211, 0.01581109328912491], 
+       Complex[0.7662271869564989, 0.015818435283467998`], 
+       Complex[0.7680583862100713, 0.015825683856502168`], 
+       Complex[0.7698922220123553, 0.015832838713476363`], 
+       Complex[0.771728696081589, 0.015839899559342407`], 
+       Complex[0.773567810136932, 0.0158468660987548], 
+       Complex[0.7754095658984649, 0.015853738036070496`], 
+       Complex[0.7772539650871908, 0.015860515075348698`], 
+       Complex[0.7791010094250341, 0.015867196920350643`], 
+       Complex[0.7809507006348432, 0.015873783274539387`], 
+       Complex[0.7828030404403893, 0.015880273841079588`], 
+       Complex[0.7846580305663672, 0.015886668322837288`], 
+       Complex[0.7865156727383956, 0.01589296642237972], 
+       Complex[0.7883759686830184, 0.01589916784197505], 
+       Complex[0.7902389201277039, 0.01590527228359222], 
+       Complex[0.7921045288008458, 0.015911279448900684`], 
+       Complex[0.7939727964317643, 0.015917189039270203`], 
+       Complex[0.7958437247507051, 0.01592300075577068], 
+       Complex[0.7977173154888408, 0.015928714299171844`], 
+       Complex[0.799593570378272, 0.015934329369943153`], 
+       Complex[0.8014724911520255, 0.015939845668253474`], 
+       Complex[0.8033540795440568, 0.01594526289397093], 
+       Complex[0.8052383372892504, 0.015950580746662682`], 
+       Complex[0.807125266123419, 0.015955798925594674`], 
+       Complex[0.8090148677833044, 0.015960917129731446`], 
+       Complex[0.8109071440065793, 0.01596593505773593], 
+       Complex[0.8128020965318452, 0.01597085240796919], 
+       Complex[0.8146997270986355, 0.015975668878490265`], 
+       Complex[0.8166000374474139, 0.01598038416705589], 
+       Complex[0.8185030293195759, 0.015984997971120324`], 
+       Complex[0.8204087044574486, 0.01598950998783511], 
+       Complex[0.822317064604292, 0.015993919914048867`], 
+       Complex[0.8242281115042986, 0.015998227446307096`], 
+       Complex[0.8261418469025945, 0.01600243228085189], 
+       Complex[0.8280582725452392, 0.016006534113621823`], 
+       Complex[0.8299773901792262, 0.016010532640251627`], 
+       Complex[0.8318992015524841, 0.01601442755607205], 
+       Complex[0.8338237084138762, 0.016018218556109597`], 
+       Complex[0.8357509125132011, 0.01602190533508635], 
+       Complex[0.8376808156011937, 0.016025487587419673`], 
+       Complex[0.8396134194295249, 0.016028965007222118`], 
+       Complex[0.8415487257508023, 0.01603233728830108], 
+       Complex[0.8434867363185714, 0.016035604124158647`], 
+       Complex[0.8454274528873146, 0.016038765207991388`], 
+       Complex[0.8473708772124526, 0.016041820232690088`], 
+       Complex[0.849317011050345, 0.01604476889083958], 
+       Complex[0.8512658561582899, 0.01604761087471849], 
+       Complex[0.8532174142945248, 0.016050345876299017`], 
+       Complex[0.8551716872182274, 0.016052973587246756`], 
+       Complex[0.857128676689516, 0.016055493698920426`], 
+       Complex[0.8590883844694488, 0.016057905902371692`], 
+       Complex[0.8610508123200258, 0.016060209888344914`], 
+       Complex[0.863015962004188, 0.016062405347276938`], 
+       Complex[0.8649838352858191, 0.016064491969296883`], 
+       Complex[0.8669544339297451, 0.016066469444225923`], 
+       Complex[0.8689277597017352, 0.016068337461577067`], 
+       Complex[0.8709038143685014, 0.016070095710554906`], 
+       Complex[0.8728825996977, 0.016071743880055445`], 
+       Complex[0.8748641174579314, 0.016073281658665846`], 
+       Complex[0.8768483694187403, 0.01607470873466422], 
+       Complex[0.8788353573506179, 0.016076024796019394`], 
+       Complex[0.8808250830249996, 0.01607722953039072], 
+       Complex[0.8828175482142673, 0.016078322625127817`], 
+       Complex[0.8848127546917498, 0.016079303767270365`], 
+       Complex[0.886810704231722, 0.016080172643547906`], 
+       Complex[0.8888113986094078, 0.016080928940379585`], 
+       Complex[0.8908148396009758, 0.01608157234387395], 
+       Complex[0.8928210289835468, 0.016082102539828703`], 
+       Complex[0.8948299685351869, 0.01608251921373056], 
+       Complex[0.8968416600349147, 0.016082822050754928`], 
+       Complex[0.8988561052626949, 0.016083010735765707`], 
+       Complex[0.9008733059994442, 0.01608308495331512], 
+       Complex[0.9028932640270293, 0.016083044387643426`], 
+       Complex[0.9049159811282697, 0.01608288872267879], 
+       Complex[0.9069414590869321, 0.016082617642036907`], 
+       Complex[0.908969699687739, 0.016082230829020924`], 
+       Complex[0.9110007047163637, 0.01608172796662119], 
+       Complex[0.9130344759594324, 0.01608110873751494], 
+       Complex[0.9150710152045229, 0.016080372824066172`], 
+       Complex[0.9171103242401699, 0.01607951990832539], 
+       Complex[0.9191524048558589, 0.016078549672029385`], 
+       Complex[0.9211972588420327, 0.016077461796601], 
+       Complex[0.9232448879900861, 0.016076255963148878`], 
+       Complex[0.9252952940923711, 0.016074931852467327`], 
+       Complex[0.927348478942196, 0.016073489145036028`], 
+       Complex[0.9294044443338254, 0.016071927521019814`], 
+       Complex[0.9314631920624781, 0.01607024666026844], 
+       Complex[0.9335247239243326, 0.0160684462423164], 
+       Complex[0.935589041716525, 0.016066525946382686`], 
+       Complex[0.9376561472371482, 0.016064485451370514`], 
+       Complex[0.9397260422852557, 0.016062324435867206`], 
+       Complex[0.9417987286608565, 0.016060042578143804`], 
+       Complex[0.943874208164923, 0.016057639556155003`], 
+       Complex[0.9459524825993836, 0.016055115047538874`], 
+       Complex[0.948033553767132, 0.01605246872961662], 
+       Complex[0.9501174234720172, 0.01604970027939229], 
+       Complex[0.9522040935188529, 0.016046809373552698`], 
+       Complex[0.9542935657134137, 0.016043795688467102`], 
+       Complex[0.9563858418624374, 0.01604065890018699], 
+       Complex[0.9584809237736207, 0.01603739868444584], 
+       Complex[0.9605788132556273, 0.016034014716658933`], 
+       Complex[0.9626795121180831, 0.01603050667192313], 
+       Complex[0.9647830221715782, 0.016026874225016592`], 
+       Complex[0.9668893452276652, 0.016023117050398578`], 
+       Complex[0.9689984830988638, 0.01601923482220924], 
+       Complex[0.9711104375986584, 0.016015227214269383`], 
+       Complex[0.9732252105415, 0.01601109390008025], 
+       Complex[0.9753428037428026, 0.01600683455282324], 
+       Complex[0.9774632190189505, 0.016002448845359726`], 
+       Complex[0.979586458187293, 0.015997936450230888`], 
+       Complex[0.981712523066149, 0.01599329703965736], 
+       Complex[0.9838414154748021, 0.015988530285539055`], 
+       Complex[0.9859731372335072, 0.015983635859454955`], 
+       Complex[0.9881076901634868, 0.015978613432662915`], 
+       Complex[0.9902450760869341, 0.01597346267609935], 
+       Complex[0.9923852968270102, 0.01596818326037904], 
+       Complex[0.9945283542078477, 0.01596277485579495], 
+       Complex[0.9966742500545497, 0.015957237132317954`], 
+       Complex[0.9988229861931918, 0.015951569759596575`], 
+       Complex[1.0009745644508175`, 0.015945772406956847`], 
+       Complex[1.0031289866554467`, 0.015939844743401987`], 
+       Complex[1.0052862546360684`, 0.01593378643761225], 
+       Complex[1.0074463702226486`, 0.01592759715794466], 
+       Complex[1.009609335246122, 0.01592127657243279], 
+       Complex[1.0117751515384004`, 0.015914824348786473`], 
+       Complex[1.0139438209323688`, 0.01590824015439171], 
+       Complex[1.0161153452618892`, 0.015901523656310278`], 
+       Complex[1.018289726361794, 0.015894674521279628`], 
+       Complex[1.0204669660678964`, 0.01588769241571259], 
+       Complex[1.0226470662169833`, 0.015880577005697175`], 
+       Complex[1.024830028646819, 0.01587332795699628], 
+       Complex[1.0270158551961444`, 0.01586594493504759], 
+       Complex[1.0292045477046776`, 0.015858427604963143`], 
+       Complex[1.0313961080131162`, 0.015850775631529333`], 
+       Complex[1.0335905379631354`, 0.015842988679206495`], 
+       Complex[1.0357878393973887`, 0.01583506641212879], 
+       Complex[1.0379880141595095`, 0.015827008494103862`], 
+       Complex[1.0401910640941123`, 0.015818814588612784`], 
+       Complex[1.0423969910467905`, 0.015810484358809614`], 
+       Complex[1.0446057968641178`, 0.01580201746752127], 
+       Complex[1.0468174833936503`, 0.015793413577247346`], 
+       Complex[1.049032052483925, 0.015784672350159807`], 
+       Complex[1.0512495059844627`, 0.015775793448102787`], 
+       Complex[1.0534698457457645`, 0.0157667765325923], 
+       Complex[1.0556930736193157`, 0.015757621264816085`], 
+       Complex[1.057919191457585, 0.015748327305633372`], 
+       Complex[1.060148201114026, 0.01573889431557458], 
+       Complex[1.0623801044430743`, 0.01572932195484112], 
+       Complex[1.0646149033001533`, 0.015719609883305237`], 
+       Complex[1.0668525995416696`, 0.015709757760509594`], 
+       Complex[1.0690931950250178`, 0.01569976524566728], 
+       Complex[1.0713366916085756`, 0.015689631997661317`], 
+       Complex[1.0735830911517101`, 0.015679357675044647`], 
+       Complex[1.075832395514775, 0.015668941936039814`], 
+       Complex[1.0780846065591119`, 0.015658384438538668`], 
+       Complex[1.0803397261470493`, 0.015647684840102226`], 
+       Complex[1.0825977561419047`, 0.015636842797960383`], 
+       Complex[1.084858698407986, 0.015625857969011753`], 
+       Complex[1.0871225548105903`, 0.015614730009823295`], 
+       Complex[1.0893893272160022`, 0.015603458576630213`], 
+       Complex[1.0916590174914993`, 0.015592043325335647`], 
+       Complex[1.0939316275053497`, 0.01558048391151048], 
+       Complex[1.0962071591268132`, 0.015568779990393088`], 
+       Complex[1.0984856142261392`, 0.015556931216889062`], 
+       Complex[1.1007669946745722`, 0.015544937245571051`], 
+       Complex[1.1030513023443473`, 0.015532797730678484`], 
+       Complex[1.1053385391086954`, 0.01552051232611735], 
+       Complex[1.1076287068418376`, 0.015508080685459894`], 
+       Complex[1.1099218074189918`, 0.015495502461944494`], 
+       Complex[1.1122178427163698`, 0.015482777308475394`], 
+       Complex[1.1145168146111788`, 0.01546990487762235], 
+       Complex[1.1168187249816195`, 0.015456884821620555`], 
+       Complex[1.1191235757068918`, 0.015443716792370337`], 
+       Complex[1.1214313686671902`, 0.015430400441436908`], 
+       Complex[1.1237421057437065`, 0.015416935420050128`], 
+       Complex[1.1260557888186293`, 0.015403321379104318`], 
+       Complex[1.128372419775146, 0.015389557969157924`], 
+       Complex[1.1306920004974415`, 0.015375644840433397`], 
+       Complex[1.1330145328707015`, 0.0153615816428169], 
+       Complex[1.1353400187811078`, 0.015347368025858045`], 
+       Complex[1.1376684601158435`, 0.015333003638769698`], 
+       Complex[1.1399998587630928`, 0.015318488130427714`], 
+       Complex[1.1423342166120403`, 0.015303821149370744`], 
+       Complex[1.1446715355528694`, 0.015289002343799905`], 
+       Complex[1.1470118174767676`, 0.015274031361578642`], 
+       Complex[1.149355064275924, 0.015258907850232489`], 
+       Complex[1.151701277843531, 0.015243631456948707`], 
+       Complex[1.1540504600737809`, 0.01522820182857621], 
+       Complex[1.1564026128618723`, 0.01521261861162513], 
+       Complex[1.1587577381040075`, 0.015196881452266872`], 
+       Complex[1.1611158376973931`, 0.015180989996333542`], 
+       Complex[1.1634769135402387`, 0.015164943889317932`], 
+       Complex[1.1658409675317614`, 0.01514874277637321], 
+       Complex[1.1682080015721836`, 0.015132386302312669`], 
+       Complex[1.1705780175627345`, 0.015115874111609523`], 
+       Complex[1.172951017405648, 0.015099205848396632`], 
+       Complex[1.1753270030041676`, 0.015082381156466247`], 
+       Complex[1.1777059762625426`, 0.015065399679269878`], 
+       Complex[1.1800879390860335`, 0.015048261059917939`], 
+       Complex[1.182472893380904, 0.015030964941179508`], 
+       Complex[1.1848608410544326`, 0.015013510965482141`], 
+       Complex[1.1872517840149046`, 0.014995898774911686`], 
+       Complex[1.1896457241716165`, 0.014978128011211888`], 
+       Complex[1.1920426634348722`, 0.014960198315784256`], 
+       Complex[1.1944426037159905`, 0.01494210932968778], 
+       Complex[1.1968455469273, 0.01492386069363876], 
+       Complex[1.1992514949821422`, 0.01490545204801048], 
+       Complex[1.2016604497948684`, 0.014886883032832999`], 
+       Complex[1.2040724132808458`, 0.014868153287792897`], 
+       Complex[1.2064873873564521`, 0.01484926245223309], 
+       Complex[1.2089053739390834`, 0.014830210165152518`], 
+       Complex[1.2113263749471448`, 0.014810996065205912`], 
+       Complex[1.2137503923000583`, 0.014791619790703578`], 
+       Complex[1.2161774279182624`, 0.014772080979611189`], 
+       Complex[1.2186074837232104`, 0.014752379269549462`], 
+       Complex[1.2210405616373703`, 0.014732514297793962`], 
+       Complex[1.223476663584229, 0.014712485701274834`], 
+       Complex[1.225915791488289, 0.014692293116576629`], 
+       Complex[1.2283579472750716`, 0.014671936179937973`], 
+       Complex[1.2308031328711169`, 0.014651414527251333`], 
+       Complex[1.2332513502039795`, 0.014630727794062904`], 
+       Complex[1.2357026012022372`, 0.014609875615572091`], 
+       Complex[1.2381568877954858`, 0.014588857626631648`], 
+       Complex[1.2406142119143422`, 0.014567673461747074`], 
+       Complex[1.2430745754904413`, 0.014546322755076588`], 
+       Complex[1.245537980456441, 0.014524805140430771`], 
+       Complex[1.2480044287460197`, 0.014503120251272419`], 
+       Complex[1.2504739222938792`, 0.014481267720716211`], 
+       Complex[1.2529464630357408`, 0.014459247181528509`], 
+       Complex[1.2554220529083506`, 0.014437058266127132`], 
+       Complex[1.2579006938494786`, 0.014414700606581074`], 
+       Complex[1.2603823877979181`, 0.014392173834610233`], 
+       Complex[1.2628671366934847`, 0.014369477581585272`], 
+       Complex[1.2653549424770207`, 0.014346611478527223`], 
+       Complex[1.2678458070903942`, 0.014323575156107413`], 
+       Complex[1.2703397324764982`, 0.01430036824464711], 
+       Complex[1.27283672057925, 0.014276990374117213`], 
+       Complex[1.2753367733435965`, 0.014253441174138194`], 
+       Complex[1.2778398927155108`, 0.014229720273979733`], 
+       Complex[1.2803460806419933`, 0.014205827302560436`], 
+       Complex[1.2828553390710717`, 0.014181761888447709`], 
+       Complex[1.285367669951804, 0.014157523659857353`], 
+       Complex[1.287883075234276, 0.014133112244653521`], 
+       Complex[1.2904015568696037`, 0.01410852727034833], 
+       Complex[1.2929231168099324`, 0.01408376836410154], 
+       Complex[1.2954477570084386`, 0.014058835152720545`], 
+       Complex[1.2979754794193288`, 0.014033727262659954`], 
+       Complex[1.3005062859978438`, 0.014008444320021341`], 
+       Complex[1.3030401787002515`, 0.01398298595055308], 
+       Complex[1.305577159483856, 0.013957351779650027`], 
+       Complex[1.308117230306993, 0.01393154143235334], 
+       Complex[1.3106603931290335`, 0.013905554533350168`], 
+       Complex[1.3132066499103778`, 0.013879390706973442`], 
+       Complex[1.3157560026124648`, 0.01385304957720156], 
+       Complex[1.318308453197766, 0.013826530767658317`], 
+       Complex[1.3208640036297912`, 0.013799833901612383`], 
+       Complex[1.3234226558730808`, 0.013772958601977327`], 
+       Complex[1.325984411893216, 0.013745904491311162`], 
+       Complex[1.3285492736568123`, 0.013718671191816202`], 
+       Complex[1.3311172431315255`, 0.013691258325338837`], 
+       Complex[1.333688322286044, 0.013663665513369182`], 
+       Complex[1.336262513090099, 0.013635892377040895`], 
+       Complex[1.3388398175144578`, 0.013607938537130925`], 
+       Complex[1.341420237530929, 0.013579803614059291`], 
+       Complex[1.3440037751123581`, 0.013551487227888698`], 
+       Complex[1.3465904322326332`, 0.013522988998324454`], 
+       Complex[1.3491802108666808`, 0.013494308544714166`], 
+       Complex[1.3517731129904724`, 0.013465445486047464`], 
+       Complex[1.3543691405810152`, 0.013436399440955694`], 
+       Complex[1.3569682956163633`, 0.013407170027711801`], 
+       Complex[1.3595705800756117`, 0.013377756864230029`], 
+       Complex[1.362175995938899, 0.0133481595680656], 
+       Complex[1.3647845451874052`, 0.013318377756414534`], 
+       Complex[1.3673962298033566`, 0.013288411046113374`], 
+       Complex[1.3700110517700235`, 0.013258259053638997`], 
+       Complex[1.3726290130717218`, 0.013227921395108255`], 
+       Complex[1.3752501156938104`, 0.01319739768627775], 
+       Complex[1.3778743616226965`, 0.013166687542543635`], 
+       Complex[1.380501752845833, 0.013135790578941417`], 
+       Complex[1.3831322913517206`, 0.013104706410145474`], 
+       Complex[1.3857659791299046`, 0.0130734346504691], 
+       Complex[1.3884028181709818`, 0.013041974913863982`], 
+       Complex[1.3910428104665948`, 0.013010326813920146`], 
+       Complex[1.3936859580094378`, 0.012978489963865636`], 
+       Complex[1.3963322627932504`, 0.01294646397656619], 
+       Complex[1.3989817268128248`, 0.012914248464525088`], 
+       Complex[1.4016343520640033`, 0.01288184303988291], 
+       Complex[1.4042901405436796`, 0.012849247314417181`], 
+       Complex[1.4069490942497962`, 0.012816460899542168`], 
+       Complex[1.409611215181349, 0.012783483406308645`], 
+       Complex[1.4122765053383877`, 0.012750314445403678`], 
+       Complex[1.4149449667220129`, 0.012716953627150224`], 
+       Complex[1.4176166013343776`, 0.012683400561507054`], 
+       Complex[1.4202914111786906`, 0.012649654858068352`], 
+       Complex[1.4229693982592149`, 0.01261571612606363], 
+       Complex[1.4256505645812667`, 0.012581583974357245`], 
+       Complex[1.428334912151218, 0.01254725801144833], 
+       Complex[1.4310224429764977`, 0.012512737845470481`], 
+       Complex[1.4337131590655892`, 0.01247802308419154], 
+       Complex[1.436407062428035, 0.01244311333501322], 
+       Complex[1.4391041550744306`, 0.012408008204970962`], 
+       Complex[1.4418044390164328`, 0.012372707300733643`], 
+       Complex[1.444507916266756, 0.012337210228603405`], 
+       Complex[1.447214588839174, 0.012301516594515213`], 
+       Complex[1.4499244587485158`, 0.012265626004036738`], 
+       Complex[1.4526375280106745`, 0.012229538062368095`], 
+       Complex[1.4553537986426013`, 0.012193252374341552`], 
+       Complex[1.4580732726623098`, 0.012156768544421277`], 
+       Complex[1.4607959520888716`, 0.012120086176703123`], 
+       Complex[1.4635218389424225`, 0.012083204874914249`], 
+       Complex[1.4662509352441588`, 0.012046124242413046`], 
+       Complex[1.4689832430163416`, 0.012008843882188758`], 
+       Complex[1.4717187642822926`, 0.011971363396861247`], 
+       Complex[1.4744575010663985`, 0.011933682388680682`], 
+       Complex[1.4771994553941101`, 0.011895800459527504`], 
+       Complex[1.4799446292919427`, 0.011857717210911868`], 
+       Complex[1.4826930247874757`, 0.01181943224397352], 
+       Complex[1.4854446439093552`, 0.01178094515948162], 
+       Complex[1.4881994886872933`, 0.011742255557834376`], 
+       Complex[1.490957561152069, 0.011703363039058844`], 
+       Complex[1.4937188633355265`, 0.011664267202810556`], 
+       Complex[1.4964833972705793`, 0.01162496764837342], 
+       Complex[1.4992511649912084`, 0.011585463974659434`], 
+       Complex[1.5020221685324648`, 0.011545755780208295`], 
+       Complex[1.5047964099304652`, 0.011505842663187257`], 
+       Complex[1.5075738912223986`, 0.011465724221390871`], 
+       Complex[1.5103546144465232`, 0.011425400052240662`], 
+       Complex[1.5131385816421696`, 0.01138486975278499], 
+       Complex[1.5159257948497347`, 0.011344132919698598`], 
+       Complex[1.5187162561106908`, 0.011303189149282512`], 
+       Complex[1.5215099674675827`, 0.011262038037463767`], 
+       Complex[1.5243069309640256`, 0.011220679179795062`], 
+       Complex[1.5271071486447076`, 0.011179112171454564`], 
+       Complex[1.529910622555392, 0.011137336607245616`], 
+       Complex[1.532717354742915, 0.0110953520815966], 
+       Complex[1.5355273472551887`, 0.0110531581885604], 
+       Complex[1.5383406021411976`, 0.011010754521814433`], 
+       Complex[1.5411571214510036`, 0.010968140674660287`], 
+       Complex[1.543976907235745, 0.010925316240023356`], 
+       Complex[1.5467999615476367`, 0.010882280810452689`], 
+       Complex[1.5496262864399668`, 0.010839033978120732`], 
+       Complex[1.552455883967106, 0.010795575334823011`], 
+       Complex[1.5552887561845015`, 0.010751904471977967`], 
+       Complex[1.5581249051486779`, 0.010708020980626544`], 
+       Complex[1.560964332917238, 0.010663924451432005`], 
+       Complex[1.5638070415488676`, 0.01061961447467977], 
+       Complex[1.5666530331033286`, 0.010575090640276893`], 
+       Complex[1.5695023096414673`, 0.010530352537752207`], 
+       Complex[1.5723548732252077`, 0.010485399756255575`], 
+       Complex[1.5752107259175563`, 0.010440231884558029`], 
+       Complex[1.5780698697826023`, 0.010394848511051248`], 
+       Complex[1.5809323068855168`, 0.010349249223747449`], 
+       Complex[1.5837980392925552`, 0.010303433610279161`], 
+       Complex[1.5866670690710536`, 0.010257401257898664`], 
+       Complex[1.5895393982894361`, 0.010211151753478118`], 
+       Complex[1.592415029017207, 0.010164684683509055`], 
+       Complex[1.5952939633249599`, 0.010117999634102134`], 
+       Complex[1.5981762032843698`, 0.010071096190986978`], 
+       Complex[1.601061750968201, 0.010023973939511824`], 
+       Complex[1.603950608450303, 0.009976632464643281], 
+       Complex[1.6068427778056136`, 0.009929071350966125], 
+       Complex[1.6097382611101545`, 0.009881290182682866], 
+       Complex[1.61263706044104, 0.009833288543613695], 
+       Complex[1.6155391778764698`, 0.009785066017196125], 
+       Complex[1.6184446154957357`, 0.009736622186484686], 
+       Complex[1.6213533753792153`, 0.009687956634150709], 
+       Complex[1.624265459608379, 0.009639068942481989], 
+       Complex[1.6271808702657868`, 0.009589958693382708], 
+       Complex[1.6300996094350915`, 0.009540625468372931], 
+       Complex[1.6330216792010335`, 0.009491068848588476], 
+       Complex[1.6359470816494492`, 0.009441288414780664], 
+       Complex[1.6388758188672652`, 0.009391283747315952], 
+       Complex[1.6418078929425055`, 0.009341054426175756], 
+       Complex[1.6447433059642804`, 0.009290600030956168], 
+       Complex[1.6476820600228002`, 0.00923992014086764], 
+       Complex[1.6506241572093678`, 0.009189014334734784], 
+       Complex[1.653569599616383, 0.00913788219099607], 
+       Complex[1.656518389337337, 0.009086523287703544], 
+       Complex[1.6594705284668219`, 0.009034937202522571], 
+       Complex[1.6624260191005238`, 0.008983123512731634], 
+       Complex[1.6653848633352275`, 0.008931081795221948], 
+       Complex[1.6683470632688127`, 0.00887881162649731], 
+       Complex[1.6713126210002607`, 0.0088263125826737], 
+       Complex[1.6742815386296495`, 0.008773584239479177], 
+       Complex[1.6772538182581587`, 0.008720626172253422], 
+       Complex[1.6802294619880636`, 0.008667437955947679], 
+       Complex[1.6832084719227418`, 0.008614019165124293], 
+       Complex[1.6861908501666727`, 0.008560369373956562], 
+       Complex[1.6891765988254375`, 0.008506488156228446], 
+       Complex[1.6921657200057136`, 0.008452375085334213], 
+       Complex[1.6951582158152891`, 0.00839802973427832], 
+       Complex[1.6981540883630477`, 0.008343451675675025], 
+       Complex[1.701153339758981, 0.008288640481748218], 
+       Complex[1.704155972114181, 0.00823359572433098], 
+       Complex[1.707161987540847, 0.008178316974865457], 
+       Complex[1.7101713881522809`, 0.008122803804402653], 
+       Complex[1.7131841760628923`, 0.008067055783601979], 
+       Complex[1.7162003533881933`, 0.008011072482731078], 
+       Complex[1.7192199222448046`, 0.007954853471665517], 
+       Complex[1.7222428847504545`, 0.007898398319888603], 
+       Complex[1.725269243023977, 0.007841706596491055], 
+       Complex[1.7282989991853144`, 0.007784777870170671], 
+       Complex[1.7313321553555179`, 0.007727611709232134], 
+       Complex[1.7343687136567474`, 0.007670207681586785], 
+       Complex[1.7374086762122727`, 0.007612565354752215], 
+       Complex[1.740452045146472, 0.00755468429585212], 
+       Complex[1.7434988225848356`, 0.00749656407161594], 
+       Complex[1.7465490106539636`, 0.007438204248378648], 
+       Complex[1.7496026114815701`, 0.007379604392080456], 
+       Complex[1.7526596271964776`, 0.007320764068266553], 
+       Complex[1.7557200599286225`, 0.0072616828420868015`], 
+       Complex[1.7587839118090556`, 0.007202360278295496], 
+       Complex[1.7618511849699412`, 0.007142795941251091], 
+       Complex[1.7649218815445549`, 0.007082989394915903], 
+       Complex[1.7679960036672893`, 0.007022940202855821], 
+       Complex[1.7710735534736515`, 0.006962647928240133], 
+       Complex[1.7741545331002664`, 0.006902112133841169], 
+       Complex[1.7772389446848689`, 0.006841332382034], 
+       Complex[1.7803267903663178`, 0.006780308234796195], 
+       Complex[1.783418072284584, 0.006719039253707697], 
+       Complex[1.7865127925807591`, 0.006657524999950239], 
+       Complex[1.7896109533970512`, 0.006595765034307345], 
+       Complex[1.792712556876787, 0.006533758917163894], 
+       Complex[1.7958176051644137`, 0.006471506208505999], 
+       Complex[1.7989261004055002`, 0.0064090064679205305`], 
+       Complex[1.802038044746728, 0.006346259254594991], 
+       Complex[1.8051534403359077`, 0.006283264127317188], 
+       Complex[1.808272289321968, 0.006220020644475056], 
+       Complex[1.8113945938549598`, 0.006156528364056189], 
+       Complex[1.8145203560860546`, 0.006092786843647717], 
+       Complex[1.8176495781675484`, 0.006028795640435902], 
+       Complex[1.8207822622528602`, 0.005964554311206155], 
+       Complex[1.8239184104965356`, 0.0059000624123423315`], 
+       Complex[1.8270580250542392`, 0.005835319499826776], 
+       Complex[1.8302011080827651`, 0.005770325129239917], 
+       Complex[1.8333476617400302`, 0.005705078855760028], 
+       Complex[1.8364976881850803`, 0.005639580234162944], 
+       Complex[1.839651189578083, 0.005573828818821805], 
+       Complex[1.842808168080338, 0.005507824163706668], 
+       Complex[1.8459686258542694`, 0.005441565822384448], 
+       Complex[1.8491325650634318`, 0.005375053348018431], 
+       Complex[1.8522999878725048`, 0.0053082862933680475`], 
+       Complex[1.8554708964473, 0.005241264210788701], 
+       Complex[1.8586452929547583`, 0.005173986652231351], 
+       Complex[1.8618231795629516`, 0.005106453169242346], 
+       Complex[1.8650045584410784`, 0.005038663312963029], 
+       Complex[1.868189431759473, 0.004970616634129593], 
+       Complex[1.8713778016895992`, 0.004902312683072778], 
+       Complex[1.8745696704040549`, 0.0048337510097174324`], 
+       Complex[1.8777650400765664`, 0.004764931163582398], 
+       Complex[1.8809639128819993`, 0.004695852693780214], 
+       Complex[1.8841662909963481`, 0.004626515149016783], 
+       Complex[1.8873721765967457`, 0.0045569180775911974`], 
+       Complex[1.8905815718614563`, 0.004487061027395239], 
+       Complex[1.8937944789698804`, 0.004416943545913321], 
+       Complex[1.897010900102556, 0.004346565180222195], 
+       Complex[1.9002308374411583`, 0.004275925476990537], 
+       Complex[1.9034542931684932`, 0.004205023982478656], 
+       Complex[1.906681269468512, 0.004133860242538451], 
+       Complex[1.9099117685263, 0.004062433802612897], 
+       Complex[1.9131457925280826`, 0.00399074420773584], 
+       Complex[1.9163833436612223`, 0.003918791002531709], 
+       Complex[1.9196244241142215`, 0.0038465737312152817`], 
+       Complex[1.9228690360767242`, 0.003774091937591359], 
+       Complex[1.9261171817395164`, 0.0037013451650544857`], 
+       Complex[1.929368863294521, 0.0036283329565886258`], 
+       Complex[1.932624082934805, 0.0035550548547669814`], 
+       Complex[1.9358828428545776`, 0.003481510401751667], 
+       Complex[1.9391451452491926`, 0.0034076991392933756`], 
+       Complex[1.942410992315143, 0.0033336206087312206`], 
+       Complex[1.9456803862500676`, 0.0032592743509922556`], 
+       Complex[1.948953329252751, 0.003184659906591482], 
+       Complex[1.952229823523122, 0.003109776815631196], 
+       Complex[1.9555098712622543`, 0.0030346246178009975`], 
+       Complex[1.958793474672365, 0.002959202852377482], 
+       Complex[1.9620806359568226`, 0.002883511058223806], 
+       Complex[1.9653713573201388`, 0.0028075487737895047`], 
+       Complex[1.9686656409679768`, 0.0027313155371102085`], 
+       Complex[1.9719634891071411`, 0.0026548108858073446`], 
+       Complex[1.975264903945592, 0.002578034357087776], 
+       Complex[1.9785698876924351`, 0.0025009854877437523`], 
+       Complex[1.9818784425579277`, 0.0024236638141523215`], 
+       Complex[1.9851905707534727`, 0.002346068872275321], 
+       Complex[1.98850627449163, 0.0022682001976587415`], 
+       Complex[1.9918255559861056`, 0.0021900573254329814`], 
+       Complex[1.9951484174517633`, 0.002111639790312002], 
+       Complex[1.9984748611046104`, 0.002032947126593375], 
+       Complex[2.0018048891618148`, 0.0019539788681578463`], 
+       Complex[2.0051385038416942`, 0.0018747345484693007`], 
+       Complex[2.0084757073637216`, 0.0017952137005739985`], 
+       Complex[2.0118165019485232`, 0.0017154158571008465`], 
+       Complex[2.0151608898178806`, 0.0016353405502606902`], 
+       Complex[2.018508873194732, 0.0015549873118462856`], 
+       Complex[2.02186045430317, 0.001474355673231835], 
+       Complex[2.025215635368444, 0.001393445165372785], 
+       Complex[2.028574418616962, 0.0013122553188055774`], 
+       Complex[2.031936806276287, 0.0012307856636473505`], 
+       Complex[2.035302800575145, 0.0011490357295955017`], 
+       Complex[2.0386724037434143`, 0.0010670050459275562`], 
+       Complex[2.042045618012136, 0.000984693141500917], 
+       Complex[2.0454224456135126`, 0.0009020995447524827], 
+       Complex[2.0488028887809038`, 0.0008192237836983432], 
+       Complex[2.0521869497488296`, 0.0007360653859335362], 
+       Complex[2.055574630752975, 0.0006526238786317487], 
+       Complex[2.0589659340301845`, 0.0005688987885451302], 
+       Complex[2.062360861818467, 0.00048488964200375795`], 
+       Complex[2.0657594163569897`, 0.0004005959649155816], 
+       Complex[2.069161599886088, 0.0003160172827660901], 
+       Complex[2.0725674146472612`, 0.0002311531206178538], 
+       Complex[2.075976862883172, 0.00014600300311055914`], 
+       Complex[2.0793899468376447`, 0.000060566454460363184`], 
+       Complex[2.082806668755676, -0.000025157001540154766`], 
+       Complex[2.086227030883424, -0.0001111678415223194], 
+       Complex[2.0896510354682167`, -0.00019746654254179652`], 
+       Complex[2.093078684758545, -0.0002840535820786694], 
+       Complex[2.096509981004073, -0.0003709294380379591], 
+       Complex[2.099944926455629, -0.0004580945887495552], 
+       Complex[2.1033835233652134`, -0.0005455495129690138], 
+       Complex[2.106825773985993, -0.0006332946898774186], 
+       Complex[2.1102716805723056`, -0.0007213305990818111], 
+       Complex[2.1137212453796606`, -0.0008096577206155378], 
+       Complex[2.11717447066474, -0.0008982765349384858], 
+       Complex[2.12063135868539, -0.000987187522937416], 
+       Complex[2.124091911700639, -0.0010763911659262063`], 
+       Complex[2.12755613197068, -0.0011658879456461074`], 
+       Complex[2.131024021756886, -0.0012556783442661673`], 
+       Complex[2.1344955833217965`, -0.001345762844383376], 
+       Complex[2.13797081892913, -0.0014361419290230548`], 
+       Complex[2.141449730843779, -0.001526816081639168], 
+       Complex[2.1449323213318143`, -0.0016177857861144965`], 
+       Complex[2.1484185926604744`, -0.0017090515267609435`], 
+       Complex[2.151908547098183, -0.00180061378832002], 
+       Complex[2.155402186914536, -0.0018924730559629482`], 
+       Complex[2.158899514380308, -0.0019846298152909544`], 
+       Complex[2.1624005317674517`, -0.0020770845523356424`], 
+       Complex[2.165905241349099, -0.002169837753559216], 
+       Complex[2.1694136453995614`, -0.0022628899058549645`], 
+       Complex[2.1729257461943283`, -0.0023562414965472567`], 
+       Complex[2.17644154601007, -0.0024498930133918934`], 
+       Complex[2.179961047124639, -0.0025438449445768715`], 
+       Complex[2.1834842518170667`, -0.00263809777872185], 
+       Complex[2.18701116236757, -0.0027326520048791617`], 
+       Complex[2.190541781057543, -0.002827508112533683], 
+       Complex[2.19407611016957, -0.0029226665916035274`], 
+       Complex[2.1976141519874095`, -0.003018127932439746], 
+       Complex[2.2011559087960153`, -0.0031138926258272165`], 
+       Complex[2.204701382881515, -0.003209961162984741], 
+       Complex[2.2082505765312286`, -0.003306334035565045], 
+       Complex[2.2118034920336593`, -0.0034030117356554784`], 
+       Complex[2.215360131678497, -0.00349999475577821], 
+       Complex[2.2189204977566166`, -0.0035972835888902904`], 
+       Complex[2.222484592560083, -0.0036948787283843584`], 
+       Complex[2.226052418382147, -0.003792780668088469], 
+       Complex[2.229623977517252, -0.0038909899022668074`], 
+       Complex[2.233199272261022, -0.003989506925619661], 
+       Complex[2.2367783049102794`, -0.004088332233283941], 
+       Complex[2.2403610777630325`, -0.004187466320833319], 
+       Complex[2.2439475931184814`, -0.004286909684278743], 
+       Complex[2.2475378532770143`, -0.004386662820068478], 
+       Complex[2.2511318605402155`, -0.0044867262250885415`], 
+       Complex[2.2547296172108595`, -0.0045871003966629215`], 
+       Complex[2.2583311255929144`, -0.004687785832554074], 
+       Complex[2.26193638799154, -0.004788783030962959], 
+       Complex[2.2655454067130907`, -0.004890092490529477], 
+       Complex[2.2691581840651183`, -0.004991714710332731], 
+       Complex[2.272774722356367, -0.005093650189891427], 
+       Complex[2.276395023896774, -0.005195899429163972], 
+       Complex[2.280019090997477, -0.005298462928548978], 
+       Complex[2.2836469259708094`, -0.005401341188885335], 
+       Complex[2.2872785311303026`, -0.005504534711452874], 
+       Complex[2.2909139087906807`, -0.005608043997972184], 
+       Complex[2.294553061267874, -0.005711869550605396], 
+       Complex[2.2981959908790044`, -0.005816011871955941], 
+       Complex[2.3018426999424, -0.005920471465069563], 
+       Complex[2.305493190777581, -0.0060252488334338605`], 
+       Complex[2.3091474657052764`, -0.006130344480979176], 
+       Complex[2.3128055270474106`, -0.0062357589120784485`], 
+       Complex[2.3164673771271125`, -0.006341492631547978], 
+       Complex[2.3201330182687117`, -0.006447546144647258], 
+       Complex[2.3238024527977403`, -0.006553919957079671], 
+       Complex[2.327475683040936, -0.006660614574992417], 
+       Complex[2.3311527113262396`, -0.006767630504977223], 
+       Complex[2.334833539982793, -0.006874968254070198], 
+       Complex[2.338518171340947, -0.006982628329752605], 
+       Complex[2.342206607732257, -0.007090611239950716], 
+       Complex[2.3458988514894847`, -0.007198917493036479], 
+       Complex[2.3495949049465965`, -0.007307547597827611], 
+       Complex[2.353294770438768, -0.007416502063587918], 
+       Complex[2.356998450302381, -0.007525781400027694], 
+       Complex[2.36070594687503, -0.007635386117303841], 
+       Complex[2.364417262495512, -0.0077453167260205374`], 
+       Complex[2.368132399503835, -0.00785557373722895], 
+       Complex[2.3718513602412212`, -0.007966157662428267], 
+       Complex[2.3755741470501013`, -0.008077069013565336], 
+       Complex[2.3793007622741125`, -0.008188308303035255], 
+       Complex[2.3830312082581098`, -0.008299876043681986], 
+       Complex[2.386765487348157, -0.008411772748797924], 
+       Complex[2.390503601891534, -0.008523998932124854], 
+       Complex[2.39424555423673, -0.00863655510785398], 
+       Complex[2.397991346733449, -0.008749441790626297], 
+       Complex[2.40174098173261, -0.008862659495532832], 
+       Complex[2.4054944615863496`, -0.008976208738114971], 
+       Complex[2.409251788648018, -0.009090090034364853], 
+       Complex[2.4130129652721775`, -0.009204303900725574], 
+       Complex[2.4167779938146143`, -0.009318850854091412], 
+       Complex[2.4205468766323257`, -0.00943373141180838], 
+       Complex[2.4243196160835314`, -0.009548946091674379], 
+       Complex[2.428096214527665, -0.00966449541193945], 
+       Complex[2.4318766743253826`, -0.009780379891306146], 
+       Complex[2.4356609978385593`, -0.00989660004892988], 
+       Complex[2.43944918743029, -0.010013156404419243`], 
+       Complex[2.4432412454648875`, -0.01013004947783612], 
+       Complex[2.447037174307888, -0.01024727978969625], 
+       Complex[2.4508369763260514`, -0.010364847860969362`], 
+       Complex[2.4546406538873575`, -0.010482754213079593`], 
+       Complex[2.4584482093610083`, -0.010600999367905595`], 
+       Complex[2.46225964511743, -0.010719583847781225`], 
+       Complex[2.466074963528274, -0.010838508175495434`], 
+       Complex[2.469894166966416, -0.010957772874292768`], 
+       Complex[2.473717257805953, -0.011077378467873697`], 
+       Complex[2.477544238422212, -0.011197325480395023`], 
+       Complex[2.481375111191746, -0.011317614436469725`], 
+       Complex[2.4852098784923338`, -0.011438245861167914`], 
+       Complex[2.48904854270298, -0.011559220280016658`], 
+       Complex[2.4928911062039187`, -0.0116805382190006], 
+       Complex[2.4967375713766113`, -0.011802200204561866`], 
+       Complex[2.5005879406037534`, -0.011924206763601009`], 
+       Complex[2.5044422162692617`, -0.0120465584234766], 
+       Complex[2.5083004007582885`, -0.012169255712006152`], 
+       Complex[2.512162496457216, -0.012292299157465755`], 
+       Complex[2.516028505753658, -0.012415689288591353`], 
+       Complex[2.519898431036458, -0.01253942663457805], 
+       Complex[2.523772274695695, -0.01266351172508104], 
+       Complex[2.5276500391226784`, -0.012787945090215663`], 
+       Complex[2.531531726709954, -0.012912727260557783`], 
+       Complex[2.5354173398512976`, -0.013037858767144278`], 
+       Complex[2.539306880941724, -0.013163340141473107`], 
+       Complex[2.5432003523774793`, -0.01328917191550344], 
+       Complex[2.547097756556052, -0.013415354621656564`], 
+       Complex[2.5509990958761564`, -0.013541888792815676`], 
+       Complex[2.5549043727377527`, -0.013668774962326491`], 
+       Complex[2.5588135895420367`, -0.013796013663997242`], 
+       Complex[2.562726748691441, -0.01392360543209939], 
+       Complex[2.566643852589636, -0.01405155080136769], 
+       Complex[2.570564903641533, -0.014179850307000336`], 
+       Complex[2.574489904253282, -0.01430850448465977], 
+       Complex[2.578418856832277, -0.01443751387047261], 
+       Complex[2.582351763787146, -0.014566879001029959`], 
+       Complex[2.5862886275277654`, -0.01469660041338798], 
+       Complex[2.5902294504652494`, -0.01482667864506794], 
+       Complex[2.594174235011959, -0.014957114234056684`], 
+       Complex[2.598122983581491, -0.015087907718806817`], 
+       Complex[2.6020756985886933`, -0.015219059638237248`], 
+       Complex[2.6060323824496545`, -0.015350570531733235`], 
+       Complex[2.609993037581713, -0.015482440939146858`], 
+       Complex[2.6139576664034436`, -0.015614671400797253`], 
+       Complex[2.617926271334675, -0.015747262457471156`], 
+       Complex[2.6218988547964797`, -0.01588021465042269], 
+       Complex[2.6258754192111797`, -0.01601352852137436], 
+       Complex[2.6298559670023387`, -0.016147204612516924`], 
+       Complex[2.633840500594777, -0.016281243466509637`], 
+       Complex[2.6378290224145564`, -0.016415645626480943`], 
+       Complex[2.6418215348889955`, -0.016550411636028536`], 
+       Complex[2.645818040446655, -0.016685542039219722`], 
+       Complex[2.649818541517352, -0.01682103738059186], 
+       Complex[2.653823040532154, -0.016956898205152296`], 
+       Complex[2.65783153992338, -0.01709312505837919], 
+       Complex[2.661844042124599, -0.01722971848622147], 
+       Complex[2.665860549570634, -0.01736667903509942], 
+       Complex[2.669881064697565, -0.017504007251904513`], 
+       Complex[2.673905589942724, -0.017641703684000476`], 
+       Complex[2.677934127744693, -0.01777976887922289], 
+       Complex[2.681966680543316, -0.017918203385880044`], 
+       Complex[2.6860032507796916`, -0.018057007752752693`], 
+       Complex[2.6900438408961724`, -0.018196182529095065`], 
+       Complex[2.6940884533363687`, -0.018335728264634546`], 
+       Complex[2.698137090545148, -0.01847564550957244], 
+       Complex[2.7021897549686376`, -0.018615934814583998`], 
+       Complex[2.7062464490542233`, -0.01875659673081896], 
+       Complex[2.7103071752505485`, -0.01889763180990167], 
+       Complex[2.7143719360075167`, -0.019039040603931606`], 
+       Complex[2.7184407337762937`, -0.019180823665483404`], 
+       Complex[2.722513571009307, -0.01932298154760763], 
+       Complex[2.726590450160241, -0.019465514803830505`], 
+       Complex[2.7306713736840456`, -0.01960842398815489], 
+       Complex[2.7347563440369345`, -0.019751709655060026`], 
+       Complex[2.7388453636763836`, -0.019895372359502117`], 
+       Complex[2.74293843506113, -0.020039412656914737`], 
+       Complex[2.74703556065118, -0.02018383110320905], 
+       Complex[2.751136742907802, -0.02032862825477401], 
+       Complex[2.7552419842935327`, -0.020473804668476772`], 
+       Complex[2.7593512872721697`, -0.020619360901663192`], 
+       Complex[2.7634646543087826`, -0.020765297512157874`], 
+       Complex[2.7675820878697066`, -0.020911615058264693`], 
+       Complex[2.7717035904225473`, -0.021058314098767003`], 
+       Complex[2.7758291644361726`, -0.021205395192927898`], 
+       Complex[2.7799588123807246`, -0.021352858900490698`], 
+       Complex[2.7840925367276155`, -0.02150070578167923], 
+       Complex[2.7882303399495267`, -0.02164893639719824], 
+       Complex[2.792372224520408, -0.0217975513082332], 
+       Complex[2.796518192915483, -0.02194655107645145], 
+       Complex[2.8006682476112483`, -0.022095936264001845`], 
+       Complex[2.804822391085473, -0.022245707433515463`], 
+       Complex[2.808980625817196, -0.022395865148105792`], 
+       Complex[2.8131429542867328`, -0.022546409971368878`], 
+       Complex[2.8173093789756747`, -0.022697342467384002`], 
+       Complex[2.8214799023668853`, -0.022848663200713895`], 
+       Complex[2.8256545269445037`, -0.02300037273640479], 
+       Complex[2.8298332551939476`, -0.023152471639987043`], 
+       Complex[2.8340160896019078`, -0.02330496047747549], 
+       Complex[2.8382030326563585`, -0.023457839815369516`], 
+       Complex[2.8423940868465434`, -0.023611110220653472`], 
+       Complex[2.8465892546629905`, -0.02376477226079736], 
+       Complex[2.8507885385975067`, -0.02391882650375618], 
+       Complex[2.8549919411431786`, -0.02407327351797163], 
+       Complex[2.859199464794368, -0.024228113872371393`], 
+       Complex[2.863411112046723, -0.02438334813636979], 
+       Complex[2.8676268853971725`, -0.02453897687986821], 
+       Complex[2.871846787343926, -0.024695000673255252`], 
+       Complex[2.876070820386475, -0.024851420087406983`], 
+       Complex[2.8802989870255953`, -0.025008235693687764`], 
+       Complex[2.8845312897633457`, -0.025165448063949852`], 
+       Complex[2.888767731103074, -0.02532305777053448], 
+       Complex[2.8930083135494016`, -0.025481065386271373`], 
+       Complex[2.8972530396082488`, -0.02563947148447994], 
+       Complex[2.9015019117868133`, -0.025798276638968873`], 
+       Complex[2.905754932593584, -0.02595748142403695], 
+       Complex[2.9100121045383323`, -0.026117086414472926`], 
+       Complex[2.9142734301321216`, -0.02627709218555653], 
+       Complex[2.9185389118873024`, -0.02643749931305793], 
+       Complex[2.9228085523175156`, -0.02659830837323876], 
+       Complex[2.9270823539376907`, -0.026759519942852347`], 
+       Complex[2.931360319264045, -0.02692113459914358], 
+       Complex[2.9356424508140906`, -0.027083152919849696`], 
+       Complex[2.9399287511066303`, -0.027245575483200557`], 
+       Complex[2.944219222661757, -0.027408402867918708`], 
+       Complex[2.948513868000856, -0.0275716356532201], 
+       Complex[2.9528126896466085`, -0.02773527441881392], 
+       Complex[2.957115690122987, -0.027899319744903547`], 
+       Complex[2.9614228719552607`, -0.028063772212186366`], 
+       Complex[2.9657342376699907`, -0.028228632401854206`], 
+       Complex[2.9700497897950364`, -0.028393900895593946`], 
+       Complex[2.9743695308595535`, -0.028559578275587444`], 
+       Complex[2.978693463393992, -0.02872566512451219], 
+       Complex[2.9830215899300994`, -0.02889216202554161], 
+       Complex[2.9873539130009257`, -0.029059069562344927`], 
+       Complex[2.991690435140812, -0.02922638831908833], 
+       Complex[2.9960311588854065`, -0.02939411888043457], 
+       Complex[3.000376086771649, -0.029562261831543507`], 
+       Complex[3.0047252213377877`, -0.029730817758072847`], 
+       Complex[3.009078565123365, -0.0298997872461777], 
+       Complex[3.0134361206692306`, -0.03006917088251168], 
+       Complex[3.0177978905175307`, -0.030238969254226658`], 
+       Complex[3.022163877211716, -0.030409182948973615`], 
+       Complex[3.0265340832965455`, -0.03057981255490226], 
+       Complex[3.0309085113180756`, -0.030750858660662295`], 
+       Complex[3.0352871638236674`, -0.030922321855402918`], 
+       Complex[3.0396700433619928`, -0.03109420272877364], 
+       Complex[3.0440571524830227`, -0.031266501870924404`], 
+       Complex[3.0484484937380407`, -0.031439219872506016`], 
+       Complex[3.052844069679631, -0.031612357324670395`], 
+       Complex[3.057243882861689, -0.03178591481907109], 
+       Complex[3.0616479358394177`, -0.03195989294786347], 
+       Complex[3.066056231169329, -0.03213429230370489], 
+       Complex[3.0704687714092422`, -0.03230911347975539], 
+       Complex[3.0748855591182886`, -0.032484357069677755`], 
+       Complex[3.0793065968569087`, -0.032660023667638025`], 
+       Complex[3.0837318871868553`, -0.0328361138683059], 
+       Complex[3.0881614326711917`, -0.033012628266854444`], 
+       Complex[3.0925952358742927`, -0.03318956745896148], 
+       Complex[3.097033299361847, -0.03336693204080883], 
+       Complex[3.1014756257008607`, -0.03354472260908374], 
+       Complex[3.105922217459645, -0.033722939760978135`], 
+       Complex[3.110373077207834, -0.03390158409418974], 
+       Complex[3.1148282075163727`, -0.034080656206922244`], 
+       Complex[3.1192876109575254`, -0.03426015669788526], 
+       Complex[3.1237512901048663`, -0.03444008616629493], 
+       Complex[3.128219247533294, -0.03462044521187482], 
+       Complex[3.132691485819021, -0.03480123443485493], 
+       Complex[3.137168007539582, -0.03498245443597349], 
+       Complex[3.1416488152738222`, -0.03516410581647629], 
+       Complex[3.146133911601914, -0.03534618917811741], 
+       Complex[3.1506232991053476`, -0.035528705123159574`], 
+       Complex[3.155116980366935, -0.03571165425437417], 
+       Complex[3.1596149579708057`, -0.035895037175042194`], 
+       Complex[3.164117234502415, -0.03607885448895404], 
+       Complex[3.168623812548538, -0.03626310680041013], 
+       Complex[3.1731346946972763`, -0.036447794714220855`], 
+       Complex[3.1776498835380513`, -0.03663291883570777], 
+       Complex[3.182169381661611, -0.03681847977070274], 
+       Complex[3.186693191660027, -0.037004478125549606`], 
+       Complex[3.1912213161267005`, -0.03719091450710314], 
+       Complex[3.19575375765635, -0.037377789522730534`], 
+       Complex[3.200290518845032, -0.03756510378031133], 
+       Complex[3.204831602290119, -0.03775285788823739], 
+       Complex[3.209377010590323, -0.03794105245541382], 
+       Complex[3.2139267463456758`, -0.03812968809125894], 
+       Complex[3.218480812157538, -0.038318765405704946`], 
+       Complex[3.2230392106286083`, -0.03850828500919781], 
+       Complex[3.2276019443629083`, -0.038698247512698056`], 
+       Complex[3.232169015965793, -0.03888865352768073], 
+       Complex[3.2367404280439485`, -0.03907950366613608], 
+       Complex[3.2413161832053934`, -0.039270798540569696`], 
+       Complex[3.245896284059481, -0.03946253876400296], 
+       Complex[3.250480733216892, -0.03965472494997313], 
+       Complex[3.2550695332896495`, -0.03984735771253409], 
+       Complex[3.2596626868911054`, -0.04004043766625634], 
+       Complex[3.2642601966359495`, -0.0402339654262277], 
+       Complex[3.2688620651402043`, -0.040427941608053214`], 
+       Complex[3.273468295021232, -0.040622366827855805`], 
+       Complex[3.27807888889773, -0.04081724170227642], 
+       Complex[3.2826938493897373`, -0.04101256684847494], 
+       Complex[3.2873131791186236`, -0.04120834288412949], 
+       Complex[3.2919368807071043`, -0.0414045704274377], 
+       Complex[3.29656495677923, -0.04160125009711639], 
+       Complex[3.3011974099603965`, -0.041798382512402754`], 
+       Complex[3.3058342428773346`, -0.041995968293053854`], 
+       Complex[3.3104754581581193`, -0.04219400805934746], 
+       Complex[3.315121058432168, -0.04239250243208201], 
+       Complex[3.3197710463302412`, -0.04259145203257747], 
+       Complex[3.324425424484437, -0.042790857482675054`], 
+       Complex[3.3290841955282056`, -0.04299071940473852], 
+       Complex[3.333747362096336, -0.04319103842165288], 
+       Complex[3.338414926824965, -0.04339181515682704], 
+       Complex[3.343086892351572, -0.04359305023419194], 
+       Complex[3.3477632613149853`, -0.043794744278202236`], 
+       Complex[3.3524440363553794`, -0.04399689791383618], 
+       Complex[3.357129220114277, -0.04419951176659613], 
+       Complex[3.3618188152345474`, -0.04440258646250854], 
+       Complex[3.3665128243604086`, -0.04460612262812498], 
+       Complex[3.371211250137429, -0.04481012089052182], 
+       Complex[3.3759140952125293`, -0.04501458187730087], 
+       Complex[3.3806213622339722`, -0.045219506216589614`], 
+       Complex[3.3853330538513817`, -0.045424894537041946`], 
+       Complex[3.3900491727157283`, -0.045630747467838045`], 
+       Complex[3.3947697214793364`, -0.04583706563868502], 
+       Complex[3.39949470279588, -0.046043849679816534`], 
+       Complex[3.4042241193203933`, -0.0462511002219948], 
+       Complex[3.4089579737092572`, -0.04645881789650905], 
+       Complex[3.413696268620218, -0.04666700333517708], 
+       Complex[3.418439006712363, -0.04687565717034502], 
+       Complex[3.423186190646147, -0.04708478003488831], 
+       Complex[3.427937823083379, -0.04729437256221132], 
+       Complex[3.432693906687224, -0.04750443538624817], 
+       Complex[3.4374544441222024`, -0.0477149691414627], 
+       Complex[3.4422194380541984`, -0.04792597446284935], 
+       Complex[3.4469888911504527`, -0.04813745198593315], 
+       Complex[3.451762806079568, -0.04834940234677022], 
+       Complex[3.4565411855115014`, -0.048561826181947765`], 
+       Complex[3.461324032117579, -0.04877472412858512], 
+       Complex[3.4661113485704833`, -0.048988096824333124`], 
+       Complex[3.470903137544262, -0.04920194490737584], 
+       Complex[3.475699401714324, -0.0494162690164293], 
+       Complex[3.4805001437574394`, -0.04963106979074319], 
+       Complex[3.485305366351748, -0.0498463478701006], 
+       Complex[3.4901150721767524`, -0.050062103894818175`], 
+       Complex[3.494929263913317, -0.05027833850574709], 
+       Complex[3.499747944243677, -0.050495052344272956`], 
+       Complex[3.5045711158514314`, -0.0507122460523161], 
+       Complex[3.5093987814215484`, -0.05092992027233245], 
+       Complex[3.5142309436403636`, -0.05114807564731316], 
+       Complex[3.5190676051955774`, -0.05136671282078574], 
+       Complex[3.5239087687762662`, -0.05158583243681367], 
+       Complex[3.528754437072871, -0.0518054351399973], 
+       Complex[3.5336046127772063`, -0.05202552157547409], 
+       Complex[3.5384592985824526`, -0.052246092388918405`], 
+       Complex[3.5433184971831686`, -0.05246714822654308], 
+       Complex[3.5481822112752806`, -0.052688689735098396`], 
+       Complex[3.553050443556092, -0.05291071756187346], 
+       Complex[3.557923196724274, -0.05313323235469594], 
+       Complex[3.5628004734798755`, -0.05335623476193305], 
+       Complex[3.5676822765243212`, -0.05357972543249105], 
+       Complex[3.572568608560409, -0.053803705015816466`], 
+       Complex[3.5774594722923143`, -0.054028174161895676`], 
+       Complex[3.582354870425586, -0.05425313352125603], 
+       Complex[3.587254805667157, -0.054478583744965614`], 
+       Complex[3.592159280725331, -0.05470452548463385], 
+       Complex[3.5970682983097917`, -0.05493095939241183], 
+       Complex[3.6019818611316063`, -0.05515788612099275], 
+       Complex[3.606899971903215, -0.05538530632361198], 
+       Complex[3.611822633338449, -0.05561322065404774], 
+       Complex[3.616749848152507, -0.05584162976662166], 
+       Complex[3.6216816190619787`, -0.056070534316198156`], 
+       Complex[3.6266179487848333`, -0.05629993495818626], 
+       Complex[3.631558840040428, -0.05652983234853845], 
+       Complex[3.63650429554949, -0.05676022714375199], 
+       Complex[3.641454318034145, -0.056991120000869436`], 
+       Complex[3.646408910217896, -0.05722251157747775], 
+       Complex[3.651368074825637, -0.05745440253171058], 
+       Complex[3.6563318145836403`, -0.057686793522246566`], 
+       Complex[3.66130013221957, -0.057919685208311145`], 
+       Complex[3.6662730304624773`, -0.05815307824967654], 
+       Complex[3.6712505120428034`, -0.0583869733066619], 
+       Complex[3.6762325796923716`, -0.058621371040133735`], 
+       Complex[3.6812192361443996`, -0.05885627211150636], 
+       Complex[3.6862104841334933`, -0.05909167718274212], 
+       Complex[3.691206326395654, -0.059327586916352315`], 
+       Complex[3.6962067656682636`, -0.05956400197539659], 
+       Complex[3.7012118046901032`, -0.05980092302348411], 
+       Complex[3.706221446201347, -0.06003835072477334], 
+       Complex[3.711235692943561, -0.06027628574397313], 
+       Complex[3.716254547659701, -0.06051472874634242], 
+       Complex[3.7212780130941217`, -0.060753680397690565`], 
+       Complex[3.7263060919925706`, -0.060993141364378584`], 
+       Complex[3.731338787102195, -0.06123311231331813], 
+       Complex[3.7363761011715297`, -0.061473593911973226`], 
+       Complex[3.7414180369505132`, -0.06171458682836005], 
+       Complex[3.7464645971904833`, -0.06195609173104656], 
+       Complex[3.7515157846441696`, -0.06219810928915458], 
+       Complex[3.7565716020657005`, -0.06244064017235826], 
+       Complex[3.7616320522106115`, -0.0626836850508859], 
+       Complex[3.7666971378358314`, -0.0629272445955197], 
+       Complex[3.771766861699691, -0.06317131947759565], 
+       Complex[3.776841226561923, -0.06341591036900537], 
+       Complex[3.7819202351836614`, -0.0636610179421948], 
+       Complex[3.787003890327444, -0.06390664287016534], 
+       Complex[3.792092194757214, -0.06415278582647453], 
+       Complex[3.7971851512383115`, -0.06439944748523566], 
+       Complex[3.802282762537485, -0.06464662852111895], 
+       Complex[3.807385031422891, -0.06489432960935124], 
+       Complex[3.8124919606640906`, -0.06514255142571665], 
+       Complex[3.817603553032044, -0.0653912946465568], 
+       Complex[3.8227198112991285`, -0.06564055994877169], 
+       Complex[3.8278407382391237`, -0.06589034800981913], 
+       Complex[3.832966336627221, -0.0661406595077164], 
+       Complex[3.8380966092400146`, -0.06639149512103878], 
+       Complex[3.8432315588555146`, -0.066642855528922], 
+       Complex[3.848371188253138, -0.06689474141106125], 
+       Complex[3.8535155002137165`, -0.06714715344771166], 
+       Complex[3.858664497519485, -0.06740009231968928], 
+       Complex[3.8638181829540996`, -0.06765355870837124], 
+       Complex[3.8689765593026277`, -0.06790755329569526], 
+       Complex[3.874139629351545, -0.0681620767641613], 
+       Complex[3.879307395888743, -0.06841712979683148], 
+       Complex[3.8844798617035337`, -0.06867271307732968], 
+       Complex[3.889657029586637, -0.06892882728984309], 
+       Complex[3.894838902330197, -0.0691854731191222], 
+       Complex[3.9000254827277607`, -0.06944265125048024], 
+       Complex[3.9052167735743084`, -0.06970036236979514], 
+       Complex[3.9104127776662287`, -0.06995860716350882], 
+       Complex[3.915613497801335, -0.07021738631862744], 
+       Complex[3.920818936778849, -0.07047670052272281], 
+       Complex[3.9260290973994216`, -0.07073655046393156], 
+       Complex[3.9312439824651277`, -0.07099693683095654], 
+       Complex[3.9364635947794557`, -0.07125786031306629], 
+       Complex[3.941687937147315, -0.07151932160009608], 
+       Complex[3.9469170123750423`, -0.07178132138244814], 
+       Complex[3.952150823270394, -0.0720438603510917], 
+       Complex[3.9573893726425573`, -0.07230693919756356], 
+       Complex[3.9626326633021307`, -0.07257055861396872], 
+       Complex[3.967880698061152, -0.07283471929298063], 
+       Complex[3.9731334797330766`, -0.07309942192784105], 
+       Complex[3.9783910111327874`, -0.07336466721236115], 
+       Complex[3.9836532950765924`, -0.07363045584092132], 
+       Complex[3.9889203343822324`, -0.07389678850847226], 
+       Complex[3.9941921318688736`, -0.07416366591053444], 
+       Complex[3.999468690357113, -0.07443108874319918], 
+       Complex[4.004750012668971, -0.07469905770312849], 
+       Complex[4.010036101627907, -0.07496757348755631], 
+       Complex[4.015326960058806, -0.07523663679428758], 
+       Complex[4.020622590787987, -0.07550624832169989], 
+       Complex[4.025922996643194, -0.07577640876874289], 
+       Complex[4.031228180453616, -0.07604711883493936], 
+       Complex[4.036538145049867, -0.0763183792203854], 
+       Complex[4.041852893263998, -0.07659019062575018], 
+       Complex[4.047172427929494, -0.07686255375227749], 
+       Complex[4.052496751881276, -0.07713546930178511], 
+       Complex[4.0578258679556996`, -0.07740893797666554], 
+       Complex[4.06315977899056, -0.07768296047988679], 
+       Complex[4.068498487825086, -0.0779575375149916], 
+       Complex[4.073841997299949, -0.07823266978609927], 
+       Complex[4.079190310257254, -0.07850835799790512], 
+       Complex[4.084543429540553, -0.07878460285568098], 
+       Complex[4.089901357994827, -0.07906140506527559], 
+       Complex[4.095264098466508, -0.07933876533311582], 
+       Complex[4.1006316538034655`, -0.07961668436620503], 
+       Complex[4.106004026855009, -0.07989516287212556], 
+       Complex[4.111381220471891, -0.08017420155903837], 
+       Complex[4.11676323750631, -0.08045380113568285], 
+       Complex[4.122150080811908, -0.08073396231137772], 
+       Complex[4.12754175324377, -0.08101468579602161], 
+       Complex[4.132938257658426, -0.08129597230009325], 
+       Complex[4.138339596913855, -0.0815778225346512], 
+       Complex[4.143745773869477, -0.08186023721133534], 
+       Complex[4.149156791386166, -0.0821432170423666], 
+       Complex[4.154572652326241, -0.08242676274054753], 
+       Complex[4.159993359553465, -0.08271087501926205], 
+       Complex[4.165418915933058, -0.08299555459247748], 
+       Complex[4.170849324331685, -0.08328080217474296], 
+       Complex[4.176284587617461, -0.08356661848119079], 
+       Complex[4.1817247086599565`, -0.08385300422753711], 
+       Complex[4.187169690330189, -0.0841399601300816], 
+       Complex[4.192619535500632, -0.08442748690570823], 
+       Complex[4.198074247045211, -0.0847155852718855], 
+       Complex[4.203533827839303, -0.08500425594666722], 
+       Complex[4.2089982807597455`, -0.08529349964869226], 
+       Complex[4.2144676086848225`, -0.08558331709718542], 
+       Complex[4.219941814494283, -0.08587370901195723], 
+       Complex[4.225420901069325, -0.0861646761134055], 
+       Complex[4.230904871292606, -0.0864562191225142], 
+       Complex[4.2363937280482435`, -0.08674833876085483], 
+       Complex[4.241887474221812, -0.08704103575058691], 
+       Complex[4.247386112700343, -0.08733431081445761], 
+       Complex[4.252889646372332, -0.0876281646758024], 
+       Complex[4.258398078127729, -0.08792259805854633], 
+       Complex[4.263911410857954, -0.08821761168720288], 
+       Complex[4.269429647455878, -0.08851320628687548], 
+       Complex[4.274952790815841, -0.0888093825832574], 
+       Complex[4.280480843833645, -0.08910614130263225], 
+       Complex[4.286013809406557, -0.08940348317187483], 
+       Complex[4.291551690433306, -0.08970140891845077], 
+       Complex[4.297094489814086, -0.08999991927041678], 
+       Complex[4.302642210450555, -0.09029901495642209], 
+       Complex[4.3081948552458496`, -0.09059869670570839], 
+       Complex[4.31375242710455, -0.09089896524810917], 
+       Complex[4.319314928932729, -0.09119982131405188], 
+       Complex[4.324882363637912, -0.09150126563455699], 
+       Complex[4.3304547341291, -0.09180329894123879], 
+       Complex[4.336032043316758, -0.09210592196630624], 
+       Complex[4.341614294112828, -0.0924091354425624], 
+       Complex[4.34720148943072, -0.09271294010340539], 
+       Complex[4.352793632185317, -0.09301733668282913], 
+       Complex[4.3583907252929714`, -0.09332232591542308], 
+       Complex[4.3639927716715095`, -0.09362790853637293], 
+       Complex[4.369599774240233, -0.09393408528146047], 
+       Complex[4.375211735919922, -0.09424085688706543], 
+       Complex[4.380828659632819, -0.09454822409016403], 
+       Complex[4.386450548302652, -0.09485618762833062], 
+       Complex[4.392077404854627, -0.0951647482397373], 
+       Complex[4.397709232215422, -0.09547390666315525], 
+       Complex[4.403346033313191, -0.09578366363795393], 
+       Complex[4.408987811077574, -0.0960940199041031], 
+       Complex[4.41463456843968, -0.09640497620217053], 
+       Complex[4.42028630833211, -0.09671653327332572], 
+       Complex[4.425943033688931, -0.0970286918593378], 
+       Complex[4.431604747445704, -0.09734145270257691], 
+       Complex[4.437271452539463, -0.09765481654601443], 
+       Complex[4.442943151908729, -0.09796878413322338], 
+       Complex[4.4486198484935064`, -0.09828335620837891], 
+       Complex[4.4543015452352765`, -0.09859853351625841], 
+       Complex[4.459988245077015, -0.09891431680224241], 
+       Complex[4.465679950963176, -0.099230706812314], 
+       Complex[4.4713766658397, -0.09954770429306059], 
+       Complex[4.477078392654014, -0.0998653099916732], 
+       Complex[4.482785134355035, -0.10018352465594738`], 
+       Complex[4.488496893893166, -0.10050234903428312`], 
+       Complex[4.494213674220297, -0.1008217838756861], 
+       Complex[4.499935478289806, -0.10114182992976717`], 
+       Complex[4.505662309056564, -0.10146248794674345`], 
+       Complex[4.511394169476937, -0.10178375867743816`], 
+       Complex[4.517131062508766, -0.102105642873281], 
+       Complex[4.522872991111401, -0.10242814128630973`], 
+       Complex[4.528619958245675, -0.10275125466916854`], 
+       Complex[4.534371966873921, -0.1030749837751104], 
+       Complex[4.540129019959954, -0.10339932935799598`], 
+       Complex[4.5458911204690935`, -0.10372429217229512`], 
+       Complex[4.5516582713681535`, -0.10404987297308652`], 
+       Complex[4.557430475625441, -0.10437607251605846`], 
+       Complex[4.563207736210759, -0.10470289155750878`], 
+       Complex[4.568990056095408, -0.1050303308543466], 
+       Complex[4.574777438252187, -0.10535839116409038`], 
+       Complex[4.5805698856553985`, -0.10568707324487076`], 
+       Complex[4.586367401280832, -0.10601637785542922`], 
+       Complex[0., 0.]}}, {Automatic}],
+    Editable->False,
+    SelectWithContents->True,
+    Selectable->False]}], "}"}]], "Output",
+ CellChangeTimes->{{3.801285975131383*^9, 3.801286003084347*^9}, 
+   3.80128863135975*^9},
+ CellLabel->"Out[82]=",ExpressionUUID->"cafe8472-8b86-447c-94ad-69b326fabce4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{"\[Omega]lmn", "[", 
+    RowBox[{"2", ",", "2", ",", "6", ",", "0.25", ",", "0.1", ",", "0", ",", 
+     RowBox[{
+     "\"\<ModesFile\>\"", "\[Rule]", 
+      "\"\</Users/xisco/git/rdstackingproject/\>\""}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}], 
+  RowBox[{"(", 
+   RowBox[{"1", "-", 
+    RowBox[{"EradUIB2017", "[", 
+     RowBox[{"0.25", ",", "0.1", ",", "0"}], "]"}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.8012865049962187`*^9, 3.801286556083001*^9}},
+ CellLabel->"In[80]:=",ExpressionUUID->"6171f008-71e2-4026-ab03-e055fc371f11"],
+
+Cell[BoxData["0.4249023962`"], "Output",
+ CellChangeTimes->{{3.801286503019456*^9, 3.801286559116253*^9}},
+ CellLabel->"Out[80]=",ExpressionUUID->"c2b0c393-7062-4a0b-8bec-e620fcc8b90a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalSpinUIB2017", "[", 
+  RowBox[{"0.25", ",", "0.1", ",", "0"}], "]"}]], "Input",
+ CellChangeTimes->{{3.801286532329033*^9, 3.801286543307819*^9}},
+ CellLabel->"In[76]:=",ExpressionUUID->"3db404e8-ef79-4871-a67e-242233a15c50"],
+
+Cell[BoxData["0.7015819297544486`"], "Output",
+ CellChangeTimes->{{3.801286538106061*^9, 3.801286543604547*^9}},
+ CellLabel->"Out[76]=",ExpressionUUID->"e99ab75b-f7f0-4656-88d7-b3cfc9627b46"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{"EradUIB2017", "[", "0.2", "]"}]], "Input",
+ CellChangeTimes->{{3.801286249749757*^9, 
+  3.801286256934442*^9}},ExpressionUUID->"14ef66aa-62d5-4fbe-b96d-\
+f928d7adc1f4"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"spheroidalKerr", "[", 
+   RowBox[{"s_", ",", "l_", ",", "m_", ",", "a_"}], "]"}], ":=", 
+  RowBox[{"Block", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "\[Chi]", ",", "\[Alpha]\[Theta]", ",", "\[Beta]\[Theta]", ",", 
+      "\[Gamma]\[Theta]", ",", "\[Alpha]r", ",", "\[Beta]r", ",", "\[Gamma]r",
+       ",", "A", ",", "A0", ",", "\[Omega]", ",", "\[Omega]0", ",", 
+      RowBox[{"N", "=", "100"}], ",", "n", ",", "f\[Theta]", ",", "fr", ",", 
+      "y", ",", "x", ",", "c", ",", "slm", ",", "ap", ",", "ap0", ",", "j", 
+      ",", "z", ",", "Eq\[Theta]", ",", "Eqr", ",", "\[Delta]z", ",", "\n", 
+      "zmax", ",", "c0", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "b",
+       ",", "nit", ",", "jump", ",", "na", ",", "\[Delta]a", ",", "k", ",", 
+      "km", ",", "kp"}], "}"}], ",", "\n", "\n", 
+    RowBox[{
+     RowBox[{"\[Omega]0", " ", "=", " ", 
+      RowBox[{"2", "*", 
+       RowBox[{"(", 
+        RowBox[{"0.37", " ", "-", 
+         RowBox[{"0.08", " ", "I"}]}], ")"}]}]}], ";", "\n", 
+     RowBox[{"c", " ", "=", " ", 
+      RowBox[{"\[Chi]", " ", "\[Omega]"}]}], ";", "\n", "\n", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"km", ",", "kp"}], "}"}], " ", "=", " ", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"Abs", "[", 
+          RowBox[{"m", "-", "s"}], "]"}], ",", 
+         RowBox[{"Abs", "[", 
+          RowBox[{"m", "+", "s"}], "]"}]}], "}"}], "/", "2"}]}], ";", "\n", 
+     "\n", 
+     RowBox[{"\[Alpha]\[Theta]", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "2"}], 
+         RowBox[{"(", 
+          RowBox[{"p", "+", "1"}], ")"}], 
+         RowBox[{"(", 
+          RowBox[{"p", "+", 
+           RowBox[{"2", " ", "km"}], "+", "1"}], ")"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Beta]\[Theta]", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", 
+          RowBox[{"(", 
+           RowBox[{"p", "-", "1"}], ")"}]}], "+", 
+         RowBox[{"2", "p", 
+          RowBox[{"(", 
+           RowBox[{"km", "+", "kp", "+", "1", "-", 
+            RowBox[{"2", "c"}]}], ")"}]}], "-", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"2", "c", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"2", " ", "km"}], "+", "s", "+", "1"}], ")"}]}], "-", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"km", "+", "kp"}], ")"}], 
+            RowBox[{"(", 
+             RowBox[{"km", "+", "kp", "+", "1"}], ")"}]}]}], ")"}], "-", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"c", "^", "2"}], "+", 
+           RowBox[{"s", 
+            RowBox[{"(", 
+             RowBox[{"s", "+", "1"}], ")"}]}], "+", "A"}], ")"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Gamma]\[Theta]", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{"2", "c", 
+         RowBox[{"(", 
+          RowBox[{"p", "+", "km", "+", "kp", "+", "s"}], ")"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"b", " ", "=", " ", 
+      RowBox[{"Sqrt", "[", 
+       RowBox[{"1", "-", 
+        RowBox[{"4", " ", 
+         RowBox[{"\[Chi]", "^", "2"}]}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"c0", " ", "=", " ", 
+      RowBox[{"1", "-", "s", "-", 
+       RowBox[{"I", " ", "\[Omega]"}], " ", "-", 
+       RowBox[{"2", " ", 
+        RowBox[{"I", "/", "b"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Omega]", "/", "2"}], " ", "-", " ", 
+          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
+     RowBox[{"c1", " ", "=", " ", 
+      RowBox[{
+       RowBox[{"-", "4"}], "+", 
+       RowBox[{"2", "I", " ", "\[Omega]", 
+        RowBox[{"(", 
+         RowBox[{"2", "+", "b"}], ")"}]}], "+", 
+       RowBox[{"4", 
+        RowBox[{"I", "/", "b"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Omega]", "/", "2"}], "-", 
+          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
+     RowBox[{"c2", " ", "=", " ", 
+      RowBox[{"s", "+", "3", "-", 
+       RowBox[{"3", " ", "I", " ", "\[Omega]"}], "-", 
+       RowBox[{"2", 
+        RowBox[{"I", "/", "b"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Omega]", "/", "2"}], "-", 
+          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
+     RowBox[{"c3", " ", "=", " ", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Omega]", "^", "2"}], " ", 
+        RowBox[{"(", 
+         RowBox[{"4.", "+", 
+          RowBox[{"2", "b"}], "-", 
+          RowBox[{"\[Chi]", "^", "2"}]}], ")"}]}], "-", 
+       RowBox[{"2", "\[Chi]", " ", "m", " ", "\[Omega]"}], "-", "s", "-", "1",
+        "+", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"2", "+", "b"}], ")"}], "I", " ", "\[Omega]"}], "-", " ", 
+       "A", "+", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", "\[Omega]"}], "+", 
+           RowBox[{"2", "I"}]}], ")"}], "/", "b"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Omega]", "/", "2"}], "-", 
+          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", 
+     RowBox[{"c4", " ", "=", " ", 
+      RowBox[{"s", "+", "1", "-", 
+       RowBox[{"2", 
+        RowBox[{"\[Omega]", "^", "2"}]}], "-", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"2", "s"}], "+", "3"}], ")"}], "I", " ", "\[Omega]"}], "-", 
+       
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"4", "\[Omega]"}], "+", 
+           RowBox[{"2", "I"}]}], ")"}], "/", "b"}], 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"\[Omega]", "/", "2"}], "-", 
+          RowBox[{"\[Chi]", " ", "m"}]}], ")"}]}]}]}], ";", "\n", "\n", 
+     RowBox[{"\[Alpha]r", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "^", "2"}], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"c0", "+", "1"}], ")"}], "p"}], "+", "c0"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"\[Beta]r", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "2"}], " ", 
+          RowBox[{"p", "^", "2"}]}], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"c1", "+", "2"}], ")"}], "p"}], "+", "c3"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"\[Gamma]r", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"p", "^", "2"}], "+", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"c2", "-", "3"}], ")"}], "p"}], "+", "c4", "-", "c2", "+", 
+         "2"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"p", ",", "0", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n",
+      "\n", 
+     RowBox[{
+      RowBox[{"f\[Theta]", "[", 
+       RowBox[{"y_", ",", 
+        RowBox[{"{", 
+         RowBox[{
+         "\[Alpha]\[Theta]_", ",", "\[Gamma]\[Theta]_", ",", 
+          "\[Beta]\[Theta]_"}], "}"}]}], "]"}], ":=", 
+      RowBox[{"\[Gamma]\[Theta]", "/", 
+       RowBox[{"(", 
+        RowBox[{"\[Beta]\[Theta]", "-", 
+         RowBox[{"\[Alpha]\[Theta]", " ", "y"}]}], ")"}]}]}], ";", "\n", 
+     RowBox[{
+      RowBox[{"Eq\[Theta]", "[", 
+       RowBox[{"\[Chi]_", ",", "A_", ",", "\[Omega]_"}], "]"}], "=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Beta]\[Theta]", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "/", 
+        RowBox[{"\[Alpha]\[Theta]", "[", 
+         RowBox[{"[", "1", "]"}], "]"}]}], "-", 
+       RowBox[{"Fold", "[", 
+        RowBox[{"f\[Theta]", ",", 
+         RowBox[{
+          RowBox[{"Last", "@", "\[Gamma]\[Theta]"}], "/", 
+          RowBox[{"Last", "@", "\[Beta]\[Theta]"}]}], ",", 
+         RowBox[{"Reverse", "@", 
+          RowBox[{"Most", "@", 
+           RowBox[{"Transpose", "@", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"\[Alpha]\[Theta]", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
+              RowBox[{"\[Gamma]\[Theta]", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
+              RowBox[{"\[Beta]\[Theta]", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}]}]}]}]}], 
+        "]"}]}]}], ";", "\n", "\n", "\n", "\n", 
+     RowBox[{
+      RowBox[{"fr", "[", 
+       RowBox[{"y_", ",", 
+        RowBox[{"{", 
+         RowBox[{"\[Alpha]r_", ",", "\[Gamma]r_", ",", "\[Beta]r_"}], "}"}]}],
+        "]"}], ":=", " ", 
+      RowBox[{"\[Gamma]r", "/", 
+       RowBox[{"(", 
+        RowBox[{"\[Beta]r", "-", 
+         RowBox[{"\[Alpha]r", " ", "y"}]}], ")"}]}]}], ";", "\n", 
+     RowBox[{
+      RowBox[{"Eqr", "[", 
+       RowBox[{"\[Chi]_", ",", "A_", ",", "\[Omega]_"}], "]"}], "=", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"\[Beta]r", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "/", 
+        RowBox[{"\[Alpha]r", "[", 
+         RowBox[{"[", "1", "]"}], "]"}]}], "-", 
+       RowBox[{"Fold", "[", 
+        RowBox[{"fr", ",", 
+         RowBox[{
+          RowBox[{"Last", "@", "\[Gamma]r"}], "/", 
+          RowBox[{"Last", "@", "\[Beta]r"}]}], ",", 
+         RowBox[{"Reverse", "@", 
+          RowBox[{"Most", "@", 
+           RowBox[{"Transpose", "@", 
+            RowBox[{"{", 
+             RowBox[{
+              RowBox[{"\[Alpha]r", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
+              RowBox[{"\[Gamma]r", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
+              RowBox[{"\[Beta]r", "[", 
+               RowBox[{"[", 
+                RowBox[{"2", ";;", 
+                 RowBox[{"-", "1"}]}], "]"}], "]"}]}], "}"}]}]}]}]}], 
+        "]"}]}]}], ";", "\n", "\n", 
+     RowBox[{"For", "[", 
+      RowBox[{
+       RowBox[{"j", "=", "2"}], ",", 
+       RowBox[{"j", "<=", "l"}], ",", 
+       RowBox[{"j", "++"}], ",", "\n", " ", 
+       RowBox[{
+        RowBox[{"A0", " ", "=", " ", 
+         RowBox[{
+          RowBox[{"j", 
+           RowBox[{"(", 
+            RowBox[{"j", "+", "1"}], ")"}]}], "-", 
+          RowBox[{"s", 
+           RowBox[{"(", 
+            RowBox[{"s", "+", "1"}], ")"}]}]}]}], ";", "\n", " ", 
+        RowBox[{"\[Omega]0", " ", "=", " ", 
+         RowBox[{
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{"Eqr", "[", 
+             RowBox[{"0", ",", "A0", ",", "\[Omega]"}], "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Omega]", ",", 
+              RowBox[{"\[Omega]0", "/", "2"}], ",", 
+              RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "\n", "\n", 
+      "]"}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{"a", "==", "0"}], ",", "\n", "\n", " ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{"A", ",", "\[Omega]"}], "}"}], " ", "=", " ", 
+         RowBox[{"x", " ", "=", " ", 
+          RowBox[{"{", 
+           RowBox[{"A0", ",", "\[Omega]0"}], "}"}]}]}], ";", "\n", "\n", " ", 
+        
+        RowBox[{"Goto", "[", "jump", "]"}]}]}], "\n", "\n", "]"}], ";", "\n", 
+     "\n", 
+     RowBox[{"na", " ", "=", " ", "40"}], ";", "\n", 
+     RowBox[{"\[Delta]a", " ", "=", " ", 
+      RowBox[{
+       RowBox[{"a", "/", "2"}], "/", "na"}]}], ";", "\n", "\n", 
+     RowBox[{"For", "[", 
+      RowBox[{
+       RowBox[{"j", "=", "1"}], ",", 
+       RowBox[{"j", "<=", "na"}], ",", 
+       RowBox[{
+        RowBox[{"j", "++"}], ";", "\t", "\n", "  ", 
+        RowBox[{"\[Omega]0", " ", "=", " ", 
+         RowBox[{
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{"Eqr", "[", 
+             RowBox[{
+              RowBox[{"j", " ", "\[Delta]a"}], ",", "A0", ",", "\[Omega]"}], 
+             "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Omega]", ",", "\[Omega]0", ",", 
+              RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "  ", 
+        RowBox[{"A0", " ", "=", " ", 
+         RowBox[{
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{"Eq\[Theta]", "[", 
+             RowBox[{
+              RowBox[{"j", " ", "\[Delta]a"}], ",", "A", ",", "\[Omega]0"}], 
+             "]"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"A", ",", "A0", ",", 
+              RowBox[{"2", "A0"}]}], "}"}]}], "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "\n", "]"}], ";",
+      "\n", "\n", 
+     RowBox[{"nit", " ", "=", " ", "10"}], ";", "\n", 
+     RowBox[{"x", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"0", ",", "0"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"j", ",", "1", ",", "nit"}], "}"}]}], "]"}]}], ";", "\n", 
+     "\n", 
+     RowBox[{
+      RowBox[{"x", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "=", " ", "A0"}], ";", 
+     "\n", 
+     RowBox[{
+      RowBox[{"x", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "=", " ", "\[Omega]0"}], 
+     ";", "\n", "\n", 
+     RowBox[{"For", "[", 
+      RowBox[{
+       RowBox[{"j", "=", "2"}], ",", 
+       RowBox[{"j", "<=", "nit"}], ",", 
+       RowBox[{"j", "++"}], ",", "\n", "\t", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
+         RowBox[{
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{"Eqr", "[", 
+             RowBox[{
+              RowBox[{"a", "/", "2"}], ",", "A0", ",", "\[Omega]"}], "]"}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"\[Omega]", ",", "\[Omega]0", ",", 
+              RowBox[{"2", "\[Omega]0"}]}], "}"}], ",", 
+            RowBox[{"PrecisionGoal", "->", "8"}], ",", 
+            RowBox[{"AccuracyGoal", "->", "8"}]}], "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
+        RowBox[{"\[Omega]0", " ", "=", " ", 
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
+        "\t", 
+        RowBox[{
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "1"}], "]"}], "]"}], " ", "=", " ", 
+         RowBox[{
+          RowBox[{"FindRoot", "[", 
+           RowBox[{
+            RowBox[{"Eq\[Theta]", "[", 
+             RowBox[{
+              RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]0"}], "]"}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"A", ",", "A0", ",", 
+              RowBox[{"2", "A0"}]}], "}"}], ",", 
+            RowBox[{"PrecisionGoal", "->", "8"}], ",", 
+            RowBox[{"AccuracyGoal", "->", "8"}]}], "]"}], "[", 
+          RowBox[{"[", 
+           RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
+        RowBox[{"A0", " ", "=", " ", 
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
+        "\t", 
+        RowBox[{"\[Omega]0", " ", "=", " ", 
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ";", "\n", "\t", 
+        RowBox[{"A0", " ", "=", " ", 
+         RowBox[{"x", "[", 
+          RowBox[{"[", 
+           RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ";"}]}], "\n", "\n", 
+      "]"}], ";", "\n", "\n", 
+     RowBox[{"A", " ", "=", " ", 
+      RowBox[{"x", "[", 
+       RowBox[{"[", 
+        RowBox[{"nit", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"\[Omega]", " ", "=", " ", 
+      RowBox[{"x", "[", 
+       RowBox[{"[", 
+        RowBox[{"nit", ",", "2"}], "]"}], "]"}]}], ";", "\n", 
+     RowBox[{"Label", "[", "jump", "]"}], ";", "\n", "\n", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{
+         RowBox[{"Abs", "[", 
+          RowBox[{"Eqr", "[", 
+           RowBox[{
+            RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]"}], "]"}], 
+          "]"}], " ", ">", " ", 
+         RowBox[{"10", "^", 
+          RowBox[{"-", "8"}]}]}], " ", "\[Or]", " ", 
+        RowBox[{
+         RowBox[{"Abs", "[", 
+          RowBox[{"Eq\[Theta]", "[", 
+           RowBox[{
+            RowBox[{"a", "/", "2"}], ",", "A", ",", "\[Omega]"}], "]"}], 
+          "]"}], " ", ">", " ", 
+         RowBox[{"10", "^", 
+          RowBox[{"-", "8"}]}]}]}], ",", " ", 
+       RowBox[{"Print", "[", "\"\<Root search failed\>\"", "]"}]}], "]"}], 
+     ";", "\n", "\n", 
+     RowBox[{"Print", "[", 
+      RowBox[{
+      "\"\<\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(lm\\)]\\) = \>\"", ",", 
+       RowBox[{"\[Omega]", "/", "2"}], ",", 
+       "\"\< - \\!\\(\\*SubscriptBox[\\(A\\), \\(lm\\)]\\) = \>\"", ",", 
+       "A"}], "]"}], ";", "\n", "\n", 
+     RowBox[{"\[Chi]", " ", "=", " ", 
+      RowBox[{"a", "/", "2"}]}], ";", "\n", "\n", 
+     RowBox[{"ap", " ", "=", " ", 
+      RowBox[{"Table", "[", 
+       RowBox[{"0", ",", 
+        RowBox[{"{", 
+         RowBox[{"j", ",", "1", ",", "N"}], "}"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"ap0", " ", "=", " ", "1"}], ";", "\n", 
+     RowBox[{
+      RowBox[{"ap", "[", 
+       RowBox[{"[", "1", "]"}], "]"}], "=", 
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"ap0", " ", 
+           RowBox[{"\[Beta]\[Theta]", "[", 
+            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
+         RowBox[{"\[Alpha]\[Theta]", "[", 
+          RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
+     RowBox[{
+      RowBox[{"ap", "[", 
+       RowBox[{"[", "2", "]"}], "]"}], "=", 
+      RowBox[{
+       RowBox[{"-", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"\[Beta]\[Theta]", "[", 
+             RowBox[{"[", "2", "]"}], "]"}], 
+            RowBox[{"ap", "[", 
+             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
+          RowBox[{"\[Alpha]\[Theta]", "[", 
+           RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "-", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"\[Gamma]\[Theta]", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "/", 
+         RowBox[{"\[Alpha]\[Theta]", "[", 
+          RowBox[{"[", "2", "]"}], "]"}]}], " ", "ap0"}]}]}], ";", "\n", "\n", 
+     RowBox[{"For", "[", 
+      RowBox[{
+       RowBox[{"j", "=", "3"}], ",", 
+       RowBox[{"j", "<=", "N"}], ",", 
+       RowBox[{"j", "++"}], ",", "\n", "\t", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"ap", "[", 
+          RowBox[{"[", "j", "]"}], "]"}], "=", 
+         RowBox[{
+          RowBox[{"-", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"\[Beta]\[Theta]", "[", 
+                RowBox[{"[", "j", "]"}], "]"}], 
+               RowBox[{"ap", "[", 
+                RowBox[{"[", 
+                 RowBox[{"j", "-", "1"}], "]"}], "]"}]}], ")"}], "/", 
+             RowBox[{"\[Alpha]\[Theta]", "[", 
+              RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}], "-", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"\[Gamma]\[Theta]", "[", 
+             RowBox[{"[", "j", "]"}], "]"}], "/", 
+            RowBox[{"\[Alpha]\[Theta]", "[", 
+             RowBox[{"[", "j", "]"}], "]"}]}], " ", 
+           RowBox[{"ap", "[", 
+            RowBox[{"[", 
+             RowBox[{"j", "-", "2"}], "]"}], "]"}]}]}]}], ";"}]}], "\n", 
+      "]"}], ";", "\n", "\n", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"zmax", ",", "\[Delta]z"}], "}"}], " ", "=", " ", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "0.001"}], "}"}]}], ";", "\n", "\n", 
+     RowBox[{"slm", " ", "=", " ", 
+      RowBox[{"Interpolation", "[", 
+       RowBox[{
+        RowBox[{"Join", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"-", "1"}], ",", "0"}], "}"}], "}"}], ",", 
+          RowBox[{"Table", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"z", ",", 
+              RowBox[{
+               RowBox[{"Exp", "[", 
+                RowBox[{"\[Chi]", " ", "\[Omega]", " ", "z"}], "]"}], 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"1", "+", "z"}], ")"}], "^", "km"}], " ", 
+               RowBox[{
+                RowBox[{"(", 
+                 RowBox[{"1", "-", "z"}], ")"}], "^", "kp"}], " ", 
+               RowBox[{"(", 
+                RowBox[{"ap0", "+", 
+                 RowBox[{
+                  SubsuperscriptBox["\[Sum]", 
+                   RowBox[{"p", "=", "1"}], 
+                   RowBox[{"p", "=", "N"}]], 
+                  RowBox[{
+                   SuperscriptBox[
+                    RowBox[{"(", 
+                    RowBox[{"1", "+", "z"}], ")"}], "p"], 
+                   RowBox[{"ap", "[", 
+                    RowBox[{"[", "p", "]"}], "]"}]}]}]}], ")"}]}]}], "}"}], 
+            ",", 
+            RowBox[{"{", 
+             RowBox[{"z", ",", 
+              RowBox[{
+               RowBox[{"-", "zmax"}], "+", "\[Delta]z"}], ",", 
+              RowBox[{"zmax", "-", "\[Delta]z"}], ",", "\[Delta]z"}], "}"}]}],
+            "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"{", 
+            RowBox[{"1", ",", "0"}], "}"}], "}"}]}], "]"}], ",", 
+        RowBox[{"InterpolationOrder", "->", "1"}]}], "]"}]}], ";", "\n", "\n", 
+     RowBox[{"Return", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"\[Omega]", "/", "2"}], ",", "A", ",", "slm"}], "}"}], "]"}], 
+     ";"}]}], "\n", "\n", "]"}]}]], "Code",
+ CellChangeTimes->{{3.800609954997334*^9, 3.800609955096204*^9}, {
+  3.8006129595182*^9, 3.800612968958662*^9}, {3.800613001048279*^9, 
+  3.800613001327029*^9}, {3.800613056344836*^9, 3.8006130605527678`*^9}, {
+  3.800622761472427*^9, 3.8006227881895447`*^9}, {3.800622834381419*^9, 
+  3.800622837241871*^9}, {3.800622869346333*^9, 3.800622871784247*^9}, {
+  3.800683121425983*^9, 3.800683187396463*^9}, {3.800683389207118*^9, 
+  3.800683389458261*^9}},
+ CellLabel->"In[63]:=",ExpressionUUID->"5a9f05b6-09a5-4d65-885d-d0bddc799238"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Tests", "Subsubsection",
+ CellChangeTimes->{{3.800768232063011*^9, 
+  3.800768232689954*^9}},ExpressionUUID->"2ca398aa-46d6-4829-ae43-\
+f97a51bae77e"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Vl", "=", 
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     RowBox[{"2", "/", "r"}]}], ")"}], 
+   FractionBox[
+    RowBox[{
+     RowBox[{"2", " ", 
+      RowBox[{"n", "^", "2"}], 
+      RowBox[{"(", 
+       RowBox[{"n", "+", "1"}], ")"}], 
+      RowBox[{"r", "^", "3"}]}], "+", 
+     RowBox[{"6", 
+      RowBox[{"n", "^", "2"}], " ", 
+      RowBox[{"r", "^", "2"}]}], "+", 
+     RowBox[{"18", " ", "n", " ", "r"}], " ", "+", "18"}], 
+    RowBox[{
+     RowBox[{"r", "^", "3"}], 
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"n", " ", "r"}], " ", "+", "3"}], ")"}], "^", 
+      "2"}]}]]}]}]], "Input",
+ CellChangeTimes->{{3.800878075488574*^9, 3.800878129589302*^9}},
+ CellLabel->"In[56]:=",ExpressionUUID->"cd4b5c8b-1306-47aa-bc1e-5ff2bf2d8734"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     FractionBox["2", "r"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{"18", "+", 
+     RowBox[{"18", " ", "n", " ", "r"}], "+", 
+     RowBox[{"6", " ", 
+      SuperscriptBox["n", "2"], " ", 
+      SuperscriptBox["r", "2"]}], "+", 
+     RowBox[{"2", " ", 
+      SuperscriptBox["n", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{"1", "+", "n"}], ")"}], " ", 
+      SuperscriptBox["r", "3"]}]}], ")"}]}], 
+  RowBox[{
+   SuperscriptBox["r", "3"], " ", 
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{"3", "+", 
+      RowBox[{"n", " ", "r"}]}], ")"}], "2"]}]]], "Output",
+ CellChangeTimes->{{3.800878117838331*^9, 3.80087812992142*^9}},
+ CellLabel->"Out[56]=",ExpressionUUID->"b8a9496d-16f4-4a7c-943d-6ee6206d86e1"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Vllr", "=", 
+  RowBox[{
+   RowBox[{"Vl", "/.", 
+    RowBox[{"n", "\[Rule]", "0."}]}], "/.", 
+   RowBox[{"r", "\[Rule]", "2.6"}]}]}]], "Input",
+ CellChangeTimes->{{3.800878139214225*^9, 3.800878147642581*^9}, {
+  3.800878378552998*^9, 3.80087842935605*^9}, {3.800878473983798*^9, 
+  3.8008784782135353`*^9}},
+ CellLabel->"In[70]:=",ExpressionUUID->"da9f8949-b1b3-43e9-9c57-cd1d59522241"],
+
+Cell[BoxData["0.02625958474843318`"], "Output",
+ CellChangeTimes->{{3.800878141684196*^9, 3.800878148222644*^9}, {
+   3.80087838190257*^9, 3.800878429698842*^9}, 3.800878478779622*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"f67796a4-ebef-424d-9fd1-308e78e5c59a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{"Vllr", ",", 
+   RowBox[{"{", 
+    RowBox[{"r", ",", "2", ",", "10"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.800878432735684*^9, 3.8008784422629642`*^9}},
+ CellLabel->"In[69]:=",ExpressionUUID->"3b295aac-7ebc-46fc-9219-661b1f89fb19"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVlXk4Vd/3x+9wzr3iU2m4hsxd9a0PMjaq1tJARZMhddUVUpF5LkVEkWS6
+rntPk1LGooQmIdFAhlCRNPBJQoaSBsXv/P44z35ez97P2muv9V7vo+Xsbe3K
+YjAY7+nv/9emis88esEPej92VHy2W5nEeRPMIRmonObhWMgwgS1W9W3/yDJQ
+NC/4ZsSn1VD/qvCc8kwGptgJOa+KbeDpQOgc43kM1KtTtveydYEK1SkL925h
+oLzpvTUXJH4Q7sxI87Bj4E6TiZtdOf6wMvvrTz8BA3WYhDjgdgCUGr8qDd/D
+wKysf26J6oLg1ob0NdIQBq5WPbz4UOshyA8xsn2WzsD9hTayhGkEeJZplzRd
+YWDf4JUS34II0CUUldpyGZh/ucG6aHYk5CaMtX8sYuDbnx68h+QxuJJZ5TLx
+hIGZR2IDt5RFwdmWbf5GwwxUW7E932XsBMQahCZLzJhYqqG/l1ESDwEzY+fJ
+WTDxwO08y3r50yD8KS47YsXEv/HnRSL302BSUdjrbM/E4xmDB2aqJMDbzb2r
+9DyZ6CxkrZ6xJBGMvHd8eyBhIj8yT2gXlASqNvtiTc4z0Zy/Jlb+bBJwFwdq
+ZGUw0XT3qhLBgyR4M55oeSqficWZ9a7psslw/PSTjG1VTMxlx2dPkSTD62uL
+bfsGmfjB5VGa4EIKVCWt7d31nYkDBopXIspSoCDQ5mjjbyZmUL4PLDpSIGqF
+99VikoWsseyWImURLKjLJI6qsDDW2DlD57QIjvXzimdasHBRyCxq095U8Grk
+W56wYiHRJ7u1MTwVthcZfvi1lYVNH2/Wj0tSYcHhjZPf7WTh0qSc1a41qdAq
+F+2a48fCAemlfM/5YtDVGeGtPM/CxM5smNEmhvAzG8xsM1g4WtBwybFfDE1y
+Fz3cs1kYZxaf6zkhhpD+jQ/FhSxkLAt93aidBg+vZfkMPmKh6g3ztkqPNBAY
+ONSmD9L56Cab1wynwbX0G6MlIyzMmh/j6MOUAGOazOy6XyyMyr+68728BDKH
+i0J+sdkYtuJon4a+BIYLp8y1VmJj3Pojwf+6SSBmYeVRthkbh7bcedjULIH2
+K0pXlc3Z+CNBb+6m9xJYoOD9St+SjUcaMZXql0DLqMqCnXZsbJ483SybkILG
+7cD2Ijc2OpWfNLpkJAW/ec84tV5sVDpV5nJjhRSqJLONPvizMbk+tk20Tgru
+BxtiJoexcbG2rPrrXVIoWTZ/0d5kNv5d1Z29/7gUJuWFOx1OY+OLaN0M7UQp
+7FR5eSr5LBu7Gxw7b0mlwPwT2VWWyca87zPSXa9Kwer+m0TFe2yM5xKMngYp
+dEFi35MuNk7UunBeTKXA5EtNXHUPG4sVz26VVaTgOEXqVn5hozCtJVtNnYJ/
+vx/yuPeDjY4DBTnvdCjwyXX9ck2OQBn3OIW2tRRU2qfH58oTmPyl9hPHioIZ
+ZLteFo9AaytqGs+aghLHLV7pGgSaqcfFNu+i4O9M08FkYwLfunlefu9PwabK
+wISEJQSiukyr0kEK0r2v659aQWCvvvCkcRgFa2rm+ERbEMh7GOk/LYaCk+Hy
+w8EOBDau7fQLoih4o2uZFLCbwP+tO3Lv6XkK9F5HG/q6EriJWBXNzKCg0WTM
+192bzs/OI0UjjwLF3o9fdx4jcML+HKjepWB/mmbKjhgCNefGLaPuU3B3jYPx
+tngCv/g+SBuvoEB4odF/cxqBhUFGu0MfU3DdSm6m1VkCQ2UbV4hqKGD+Xlu0
+7iKB+74dcRbVUXDZ9t6IWR59v9ml3ZbNFIwyR0UrrxP4fUNpNuslBRYFBgtN
+iwm8yzDgXWqloHdSZqBJOYFFI+7GVAcFhuWJo3ObCexQXLItsJuCSI9aMb+V
+QPOKHan+PRS0KHMWa3YQqF06dM6hl4KQgNBg5U8Ebpz84cXnLxTUaJUoKvQT
+eL96t1viIAUqDUO3pg8T2Ol5+bTWMAVl8/f+lBsjcNucVdbECAXyr9IlMgwS
+Z1aFb932nQKnqPYlJEkiLNpwOWWUgkJDhTamLIkbwniHSn9QQLzbcnB8Colv
+rw4zn/+kYNupOOWxGSQqlca5P/9FQfbSR3d+KJFYtX9B5/3fFPzuZghG1EhM
+mPRQLB6jwFJk+ntoNolr9zQVO/yh4Mm7pPod80hcoZ4sVflLgblOz6VKPRIt
+A4zfV9H8MGhlsI4xiUMNgkr7cQqwUmQpWkJifZpOSAvNZZP7NP6uIPHn7vVL
+TScoMN1hNuK6msSFam3LT9F8+3Lak/p19H3mkXce07xo6MvZxZtIXMrx+fiF
+5puma3zTbUh8vtN6dJxmgxPU2kk7SBw3c9Qaozm/aUjZT0hiZLXNmU6addQt
+Bl67kHhLJ1BSTHO227nK1W4knuUmWwXQPLf4m/iqF4mftrL71GnOYGw4wAsg
+8eqRa5nFdL6aVukQdpB+TyyzcAnN59NGZ3wKI7FNfnxlNv1elS6rns1RJDJt
+DcIJmiULMkpvx5JoYV6csZGul8KhX4laCST2JS/rOEbXM6V6s+tJEYkmlyYc
+suh6y0/LXPpNSqL3mZebb9P9kMu27qy6TNfrfLdNBt2/mG/ZJXq5JH69mPvg
+CN1fDkycFBeQWO4vcTSn+894mWe8/y6J4Q+iOi99pSBMiyXzvJzEJItarcW0
+fsY8tr9ZWk3i1MS6tXdpfY2yyWi5RjoeLu+P76fAf7PDjoAXJPbfr61+S+tz
+iLqh1/GaxLRvQiONzxT0GQpf5n8kMXT7FS/vjxS8d7z1P+sxEoWdHqQ1rX9h
+3uQ/dxkclHsbIafdTkH7qEsjn8NBgxGDwW56Xl7Gyx/8Ls/Bx14tX6CFgtp7
+bjWSuRzsXyEvu5qex3XcivNMXQ5GH7c2S6fn9ZG1gr+7IQdt5y08OVhFQcXn
+SpXlyzl4PTLqvz3ltD8pqnq+28pBw9Vdhfk3af/xr5869wgHF+smeHRIaT+0
+9DxoFMnBw9XRp7PEFBzg/9O18gQHO/8IvPel0HpqXl9in8TByot/Xjw5RUGd
+UfXO2CscnO5wn+SF0/ofvpfTX0fvVzwv6XGiwNYnZ/VNdS7a/3Nis5YWBcvW
+rbtWzufi0ae5/zSpUqCh+Unh2Twu2o0ePhCqRPtDg3bvf0ZcbNjlL7xN+3WE
+fnqiggUXe18cWtXxVwr5A+KOg95crE3aVdXVKgUZz6hgrOBiwk/7RqeTUlDu
+Wsm7U81F+aCVrh1RUvh3x69Cw1ouRiS8HLQOl8LGtV4Ds19yMcPpvIlugBSS
+1ba7kv1cPGMdKJHS/x+1eh2bGkUZzHodoeKjLwUj/eYFtt4yeLDumPnxBgns
+Gtbq3qc+CTvK1bKuExLYU1wfrxski8VjUjzjKIawlPMnXpbIobT0gaZhkwii
+/9jFxE+fjGeqi/9qGqTAhXCD9vn2UzDbY9y8sCwJDqyatc8ldSqeUt5/ceJA
+Ikx78v2PbbA8uurzVeINTsOPMe9Bd6Vp+KysQN+xNw5svu9y5T6ehidO2h7y
+yImFmNPNwX5+09Hf9vvXrZkn4HGRwHjL9Bk4P9Qo2HQoGg6n2/kVlc/A3K5H
+G60hCkyVnQVxTjOROHhvv2tDJPjYd1b3yPOwJXNWi+OeCAhb2Fs38z4Pg3Oj
+nWI1j4I4nR1+c5cC3kirvWanHAbazxNvtsopolph7Mm7o6FQelo/ySdfETXs
+/73N1z4Eev12cq82KuEk2+0h1eEhMHPqkEzVbyXM+717k1lHEJDlZwr4Z5XR
+RMZ7rigoEDxM7rVNspyFc1x6jphOC4Cr653Ty0ZnYWPq0k/8Bj8Y7Zsl3y1W
+wdR4B97IHV8osbFgi9aoosP6TL0dl33g6LroC0XdqphgaKB+080bZndsaM2I
+VsPHeZtu5Rd7guniKJGykTq6VSnPaxs/ALvUG34xm9VxQeEcuaZIdxitie/0
+idDAM3V1MWqEG1ix9JfNn66JOr31h3pv7QPZQcFWprMmqogPBred2AvHyjD3
+7G1NjMia6ge2rhBhW2DvO0kLvZM6nLet2wPL6l6ZT3LSwmc1vTeMl7rAO96a
+KJlbWthzMWjTG3SGSXOWKphxZ2P0sxLlD/ucYECh5/Ny4Ww8oWBuJ4zbDdsb
+NKb7FcxGToB6wUWRIxTYn4mZMjEbx56Y7hcYCOFBZSN62fHx85yLel1VO2H7
+yOmN3Ew+8mKDB5qjHeBR/SoD7yw+XiqJmud51AFMckanv8rmIz9d7yk31AGm
+CoWtmXl8xObjy8186POP9VzMb/BxZUjd2yqBAyw88ywkupSPQ18Hr00xcIDp
+q2Qvs5v5uD4j2CmnXQBHVcuOH2jhY7uZT4rXSwEMjPq6Nb/go27DD7WFzwXw
+NK9tQUYrH920/y579Ig+z8u5s+otH7c86ov5eUMAgz0WDRGf+dgyeQnvXIwA
+dj4cu/G5l84/Z+q54GMCqDlXINraz0ejY/lBNmECyLRWFGgN8vGbOFVtaoAA
+hKXd/1WM8NEg1GGB2FEAz8TU43mjfBQali0JFQhgme+m3MQffCTDU5Kc7ATA
+m1vivfs3HzOODegaWQogkuFu/WSMjxsG071UzQUw9FptocFfPp5z0PjLNaPj
+Fz9XlIzz8U00o3XElI6fEP17YoKP1dbt452LBPB/VqxDTg==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$11489#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{2., 0},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{2, 10}, {0., 0.026367172035489276`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{3.800878442726296*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"279cf07d-d3c6-4a42-a666-dfb5663eb19f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"3", "+", 
+  RowBox[{"2", 
+   RowBox[{"Log", "[", 
+    RowBox[{
+     RowBox[{"3", "/", "2"}], "-", "1."}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.8008782912470827`*^9, 3.800878299207439*^9}},
+ CellLabel->"In[62]:=",ExpressionUUID->"68acbf1d-d2de-474d-a48b-2bdf32179122"],
+
+Cell[BoxData["1.6137056388801094`"], "Output",
+ CellChangeTimes->{3.800878299711512*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"ca36e157-11cf-4330-88e6-4f89132f9eda"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Vllr", "/.", 
+  RowBox[{"n", "\[Rule]", "0."}]}]], "Input",
+ CellChangeTimes->{{3.800878240003408*^9, 3.8008782451325397`*^9}},
+ CellLabel->"In[61]:=",ExpressionUUID->"2ee83ec4-bcfb-48ce-91dc-fdb359a19aca"],
+
+Cell[BoxData["0.024691358024691357`"], "Output",
+ CellChangeTimes->{{3.800878242917289*^9, 3.8008782455448303`*^9}},
+ CellLabel->"Out[61]=",ExpressionUUID->"6fd6d1cc-f543-485f-b17c-9e10f93bac3d"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{"Vllr", ",", 
+   RowBox[{"{", 
+    RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.80087815243039*^9, 3.800878163114365*^9}},
+ CellLabel->"In[59]:=",ExpressionUUID->"f044848d-2bd1-4d5c-8222-26afed934cbb"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVjmk41AkcgF0dy2TTiTKGv4dMKpXu4/cTWy2lRZNnqcWUo01qZGqiIjrY
+Vili3EeOiiGibTRuYmZQjFDkmKF/OTbSpJHY9sP7vF/eD68B85SDh4qSktLh
+H/zvpEvM2WuP3dhpPejtWLA3DmoktH1OtONQOTRK8g/HwczzslAa7Tz0mWl0
+U1lxkFQRoT+LFg538pefU8THgc8O9skJ/TjQPvyXmuRTHEi+eUeP6j8AT5ab
+8rrCeDhbRzX/WPAQfk/O1g4Vx4NuVKt4xCoXijEhmDYQD0w6qg555YNXxPrS
+7ToJwMnV4H9qL4SMN6wJ6ZUEmNMpNRnR5wNrW22H+fFE6KgoZQ+/58O4+5kS
+2bVEeJjFrR4qKAHOhJtFW0Yi2PnZuQ5aCSDDSIU415cIMT+VxJBe5bBxnWfL
+3SNJsCCxXmWsvQqMGbz9xW7JkCZKYQ3pC6GDWS4y35MKn7nF9J6/hRB7+fj2
+z86psNtLLGtRCCFhBW9Ti28qDKtOMEokIihe05raFZMKm3fYbQ2/3gBKj+V2
+xPtUeJk/pWLy8QVQVp8SbbuVBkEiM5u1rhKI5kqd+kfSIS8/vNNn9RsYvKRa
+W9+XCV7QHDfsJ4Mq0dtvo6M54DtgKivK+wD1PhyBAb0A1A2umPRsHgXHmLHv
+ZH0R3Jwvpqe5jQOH/joCdz0FZufBctWGL5DmeFT4dakAWLVXmKdMJkFT09fa
+/305FJymOGr/+h2cttGqn5ZXQlrgiUFzJyXUN0xNsSyuhpCUKfvPw8q4xzBt
+TuONWlCS9KIgQBVt0J9Z51wHxv6enIP0WdihkAbFOQihXx57SKN0Nv78TkPQ
+bCoGm4E/L95hzcV/9nLCokwbwa4/ciWVqo62wW3DtbQXMFjNDK7naaDIxcLa
+IfAlrNZq07NynYdV/UnBHgHNoA5y965xTeRWWjjle7fAnhHnCUPGfDQup/67
+8IQEOqqOKTubaWF6dI9wxLsVisNq/qDJtXAua1Kjh/EKPGexe5uaFmDNxfOi
+vkNtcNQvsJgSvxDnOogXj+5uhzVeK5v2uS/CrN4LW13WdcCLBWYa7C2L8Sl/
+i7dk7Wt4lheSYKa6BAVnCI4N7Q0EKtN/a3i7BCPn6rk0GnaCelfAXt+ipciX
+WjzMpHXBQJZBdMoFbUxo3ZnrP+8tRK/QUeMzdHBRz3TPfs1uiIz3rHOn6WKM
+cre97nQ3OEcfaaKQukjplBMbPvTAV+tMRUrZMpwMmbxv5t8LsoFdnKrry9G4
+4MmBjUO9kL5j7bJGdz00KvOLtvbpA95VtpbXKiqGj2pxhP19cJ1x1FZVTsXz
+eg3icWcpbOhKe3C9UR8VU7p3DTulwDVN4DXa0vBZ8ueXzx1kEFQRwbXl0/Dy
+Hl7oqVYZ7F/GyBQZGWA2TlNKHfvB0rfORSvcADNSj5sGifohZTnTqEFugIKK
+D3m/2A6AUXV2jJ2LIdZdfOsWXD0Akauq6C1lhrheu1zHdcs78BxXaxbSCfQ5
+7bZpF/8dMAs+0cJvEXjrUZGCa06CT4jjlM1tAt8FqHfy1pHAdixqp0QRGK/s
+J6iyICFMzr4ZGUOg5qqzQcObScjbovgWm0TgF2eH2WhJgqJypi0rh0ArLcZS
+0p6EyBZKRE0dgVTG4d0bzpAQf++k9zUhgbnZ3aY2bBLu+TdZ7RX/6FX85rme
+I+HJkshJcROBN/ni1rBAErqcF3pLXhHoEWtzrCuUBBOZjpVURqB8P+taaDQJ
+5kUB1IwBAl/fUT7BjSFh69VOhQf54ycs/QCPS8I+k6RHHwYJPHpmiU57Igl+
+J2jUsTECC3Nqc+mZJFzYfllROE5gY/+b25BNwtV50lZ/OYEhGUrnDj4ggZt/
+78bXrwQmp1+0vMQjIT1YzatkkkB2W6txVD4JOfYeuy5MEdgcuJ1yv4CEIsPn
+ejunCfSOKBoTPCahbNxYMTND4KzZO9qbi0n4D2+M0Ow=
+       "]]},
+     Annotation[#, "Charting`Private`Tag$10020#1"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+     Charting`ScaledFrameTicks[{Identity, Identity}]}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0, 10}, {0., 0.740944786441276}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{3.800878163718293*^9},
+ CellLabel->"Out[59]=",ExpressionUUID->"02d579a7-66e5-451d-b917-2e89aaf3c6a9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"\[Omega]lmn", "[", 
+  RowBox[{"2", ",", "2", ",", "0", ",", "0.00001", ",", "0", ",", "0", ",", 
+   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
+    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"\[Omega]lmn", "[", 
+  RowBox[{"2", ",", "2", ",", "1", ",", "0.00001", ",", "0", ",", "0", ",", 
+   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
+    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], 
+  "]"}], "\[IndentingNewLine]", 
+ RowBox[{"\[Omega]lmn", "[", 
+  RowBox[{"2", ",", "2", ",", "2", ",", "0.00001", ",", "0", ",", "0", ",", 
+   RowBox[{"\"\<ModesFile\>\"", "\[Rule]", 
+    RowBox[{"modedir", "<>", "\"\</\>\""}]}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.800877316603387*^9, 3.800877330120776*^9}, {
+  3.800877474496874*^9, 3.800877574092745*^9}},
+ CellLabel->"In[51]:=",ExpressionUUID->"a051c92c-2689-4af5-ac2a-bb7930918669"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,51,16,19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8008775544023657`*^9, 3.8008775744610662`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[51]:=",ExpressionUUID->"7c156739-5647-4b6f-bb7b-74d021f416a0"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.37367818683109905`", ",", "11.240720774051653`"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.800877508075778*^9, 3.8008775744676867`*^9}},
+ CellLabel->"Out[51]=",ExpressionUUID->"0b05619a-b0e5-499e-a6bd-773863ce6ffa"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,52,17,19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8008775544023657`*^9, 3.8008775745734386`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[51]:=",ExpressionUUID->"121faec0-b835-4e7e-8509-b495eb391f11"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.3467183895610203`", ",", "3.6507756584862947`"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.800877508075778*^9, 3.800877574579023*^9}},
+ CellLabel->"Out[52]=",ExpressionUUID->"0e4bc2eb-5c72-40bf-aba4-9d06bce23259"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,53,18,19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.8008775544023657`*^9, 3.800877574682644*^9}},
+ CellLabel->
+  "During evaluation of \
+In[51]:=",ExpressionUUID->"a42277ad-c1ce-4a94-8434-0722a63f702c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.3010622306972642`", ",", "2.0908472581849438`"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.800877508075778*^9, 3.800877574689953*^9}},
+ CellLabel->"Out[53]=",ExpressionUUID->"1509f6e1-c308-47d1-a545-1184f918097a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol", "=", 
+  RowBox[{"spheroidalKerr", "[", 
+   RowBox[{
+    RowBox[{"-", "2"}], ",", "2", ",", "2", ",", "0.7"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.800612976439578*^9, 3.800612982771328*^9}, {
+  3.800613080202582*^9, 3.800613081067361*^9}, {3.80062279542039*^9, 
+  3.800622796229005*^9}, {3.8006233981535788`*^9, 3.800623404001408*^9}, {
+  3.800624103886628*^9, 3.8006241045474367`*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"0fa7ad36-8965-4464-bd1e-81f1aaf3b037"],
+
+Cell[BoxData[
+ InterpretationBox[
+  RowBox[{
+   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(lm\\)]\\) = \"\>", 
+    "\[InvisibleSpace]", "0.5326002437522133`"}], "\[VeryThinSpace]", "-", 
+   RowBox[{
+    RowBox[{"0.08079287309515215`", " ", "\[ImaginaryI]"}], 
+    "\[InvisibleSpace]", "\<\" - \\!\\(\\*SubscriptBox[\\(A\\), \\(lm\\)]\\) \
+= \"\>", "\[InvisibleSpace]", "2.903166981558038`"}], "\[VeryThinSpace]", "+", 
+   RowBox[{"0.1831582525322828`", " ", "\[ImaginaryI]"}]}],
+  SequenceForm["\!\(\*SubscriptBox[\(\[Omega]\), \(lm\)]\) = ", 
+   Complex[0.5326002437522133, -0.08079287309515215], 
+   " - \!\(\*SubscriptBox[\(A\), \(lm\)]\) = ", 
+   Complex[2.903166981558038, 0.1831582525322828]],
+  Editable->False]], "Print",
+ CellChangeTimes->{{3.8006234044950542`*^9, 3.800623455166892*^9}, 
+   3.800624105616715*^9, 3.800626000556699*^9, 3.800768507165544*^9, 
+   3.800798373715023*^9, 3.800877292244137*^9},
+ CellLabel->
+  "During evaluation of \
+In[24]:=",ExpressionUUID->"670f9995-cba0-4d39-acbc-5184a6677a1f"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000828`*^-270\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1.769417779760764`*^-40\\\"}], \
+\\\"+\\\", RowBox[{\\\"6.448433038945409`*^-41\\\", \\\" \\\", \\\"\
+\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,24,5,
+   19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
+  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292254963*^9},
+ CellLabel->
+  "During evaluation of \
+In[24]:=",ExpressionUUID->"0d6dfd0d-81cc-406d-aadb-9896bf7c4f47"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000838`*^-273\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"8.750091040803137`*^-41\\\"}], \
+\\\"+\\\", RowBox[{\\\"3.1889008626043945`*^-41\\\", \\\" \\\", \\\"\
+\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,24,6,
+   19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
+  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292260281*^9},
+ CellLabel->
+  "During evaluation of \
+In[24]:=",ExpressionUUID->"90bb7289-ef97-4f44-9bf2-2a012d4c9844"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","munfl",
+   "\"\\!\\(\\*RowBox[{\\\"1.0000000000000849`*^-276\\\", \\\" \\\", RowBox[{\
+\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"4.3275985028317676`*^-41\\\"}], \
+\\\"+\\\", RowBox[{\\\"1.5771752222839382`*^-41\\\", \\\" \\\", \\\"\
+\[ImaginaryI]\\\"}]}], \\\")\\\"}]}]\\) is too small to represent as a \
+normalized machine number; precision may be lost.\"",2,24,7,
+   19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
+  3.800768507200674*^9, 3.800798373746801*^9, 3.8008772922648573`*^9},
+ CellLabel->
+  "During evaluation of \
+In[24]:=",ExpressionUUID->"cabc8de3-a243-4ceb-9b1b-52d4d387aba0"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "General","stop",
+   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
+\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
+during this calculation.\"",2,24,8,19654334673154004631,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.800624105659297*^9, 3.800626000573827*^9, 
+  3.800768507200674*^9, 3.800798373746801*^9, 3.800877292269236*^9},
+ CellLabel->
+  "During evaluation of \
+In[24]:=",ExpressionUUID->"72ae2856-cc81-4134-bdaa-066db609cc5b"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -14858,8 +19909,7 @@ Cell[BoxData[
    3.717233966560224*^9, 3.717233966743574*^9}, 3.762057923479889*^9, {
    3.762681745081925*^9, 3.7626817794296007`*^9}, {3.7991133898969717`*^9, 
    3.799113390253549*^9}, {3.799113545789241*^9, 3.799113608581436*^9}},
- CellLabel->
-  "In[207]:=",ExpressionUUID->"a1ce5dea-991d-4bfa-af6c-f4c821a4459b"],
+ CellLabel->"In[83]:=",ExpressionUUID->"a1ce5dea-991d-4bfa-af6c-f4c821a4459b"],
 
 Cell[CellGroupData[{
 
@@ -14920,10 +19970,10 @@ eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}\"\>"]\
    3.799122302388196*^9}, 3.800074674708877*^9, 3.8000888759988127`*^9, 
    3.800148382551621*^9, {3.8005393284332943`*^9, 3.800539346246027*^9}, 
    3.800610204438002*^9, 3.800768510798962*^9, 3.800768556883909*^9, 
-   3.800798395077629*^9, 3.800836721420125*^9},
+   3.800798395077629*^9, 3.800836721420125*^9, 3.8012893065987864`*^9},
  CellLabel->
   "During evaluation of \
-In[207]:=",ExpressionUUID->"59876aa2-1d1d-4b71-a79d-2b58ca0835cd"],
+In[83]:=",ExpressionUUID->"4c35abbf-e312-4aad-87f0-a54c1335158b"],
 
 Cell[BoxData["\<\"Take care! Some of the sxs file names are not consistent \
 with the metadata files\"\>"], "Print",
@@ -14979,10 +20029,10 @@ with the metadata files\"\>"], "Print",
    3.799122302388196*^9}, 3.800074674708877*^9, 3.8000888759988127`*^9, 
    3.800148382551621*^9, {3.8005393284332943`*^9, 3.800539346246027*^9}, 
    3.800610204438002*^9, 3.800768510798962*^9, 3.800768556883909*^9, 
-   3.800798395077629*^9, 3.800836721422453*^9},
+   3.800798395077629*^9, 3.800836721420125*^9, 3.801289306603396*^9},
  CellLabel->
   "During evaluation of \
-In[207]:=",ExpressionUUID->"929176bb-f1a7-4f63-bc78-5f87a0db20f2"],
+In[83]:=",ExpressionUUID->"871c2c3b-00c4-4a97-bda3-f26f1b4bb55a"],
 
 Cell[BoxData["\<\"The spin definition is consitent with 'initial-spin' values \
 and not relaxed ones\"\>"], "Print",
@@ -15038,10 +20088,10 @@ and not relaxed ones\"\>"], "Print",
    3.799122302388196*^9}, 3.800074674708877*^9, 3.8000888759988127`*^9, 
    3.800148382551621*^9, {3.8005393284332943`*^9, 3.800539346246027*^9}, 
    3.800610204438002*^9, 3.800768510798962*^9, 3.800768556883909*^9, 
-   3.800798395077629*^9, 3.800836721425997*^9},
+   3.800798395077629*^9, 3.800836721420125*^9, 3.801289306607574*^9},
  CellLabel->
   "During evaluation of \
-In[207]:=",ExpressionUUID->"202da3c8-c6b4-499c-b09a-57d9076ea9ef"],
+In[83]:=",ExpressionUUID->"8f5dd36a-1646-49dd-9183-a6ddf9ae8daa"],
 
 Cell[BoxData["\<\"The mass definition is consitent with 'initial-mass' values \
 and not relaxed ones\"\>"], "Print",
@@ -15097,10 +20147,10 @@ and not relaxed ones\"\>"], "Print",
    3.799122302388196*^9}, 3.800074674708877*^9, 3.8000888759988127`*^9, 
    3.800148382551621*^9, {3.8005393284332943`*^9, 3.800539346246027*^9}, 
    3.800610204438002*^9, 3.800768510798962*^9, 3.800768556883909*^9, 
-   3.800798395077629*^9, 3.800836721427616*^9},
+   3.800798395077629*^9, 3.800836721420125*^9, 3.801289306609487*^9},
  CellLabel->
   "During evaluation of \
-In[207]:=",ExpressionUUID->"d9b72d93-0d54-407a-a489-8505647b0eb4"]
+In[83]:=",ExpressionUUID->"59709701-856c-4244-918d-13245b058ba3"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -15174,9 +20224,9 @@ Cell[BoxData[
    3.7991222752168427`*^9, 3.799122302495413*^9}, 3.8000746749992437`*^9, 
    3.800088876294077*^9, 3.800148382767583*^9, {3.800539328605701*^9, 
    3.8005393463625402`*^9}, 3.800610204606415*^9, 3.800768510807893*^9, 
-   3.800768557054263*^9, 3.8007983952296457`*^9, 3.800836721589457*^9},
- CellLabel->
-  "Out[207]=",ExpressionUUID->"efea6634-f9b2-4950-bfc0-729e632ffd47"],
+   3.800768557054263*^9, 3.8007983952296457`*^9, 3.800836721589457*^9, 
+   3.801289306841797*^9},
+ CellLabel->"Out[83]=",ExpressionUUID->"a3dda332-4b67-4a72-96e5-974c26a9f99c"],
 
 Cell[BoxData["\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.\
 440\"\>"], "Output",
@@ -15243,9 +20293,9 @@ Cell[BoxData["\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.\
    3.7991222752168427`*^9, 3.799122302495413*^9}, 3.8000746749992437`*^9, 
    3.800088876294077*^9, 3.800148382767583*^9, {3.800539328605701*^9, 
    3.8005393463625402`*^9}, 3.800610204606415*^9, 3.800768510807893*^9, 
-   3.800768557054263*^9, 3.8007983952296457`*^9, 3.800836721592676*^9},
- CellLabel->
-  "Out[209]=",ExpressionUUID->"d9f7edaa-cf40-49da-b123-5b790cfd81b4"],
+   3.800768557054263*^9, 3.8007983952296457`*^9, 3.800836721589457*^9, 
+   3.801289306846085*^9},
+ CellLabel->"Out[85]=",ExpressionUUID->"c0222b21-24bd-4ef3-815a-f78e750465ea"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -15314,9 +20364,9 @@ Cell[BoxData[
    3.7991222752168427`*^9, 3.799122302495413*^9}, 3.8000746749992437`*^9, 
    3.800088876294077*^9, 3.800148382767583*^9, {3.800539328605701*^9, 
    3.8005393463625402`*^9}, 3.800610204606415*^9, 3.800768510807893*^9, 
-   3.800768557054263*^9, 3.8007983952296457`*^9, 3.80083672159478*^9},
- CellLabel->
-  "Out[210]=",ExpressionUUID->"1ff02d09-e5e3-46dd-9ef0-b76c27be74f5"]
+   3.800768557054263*^9, 3.8007983952296457`*^9, 3.800836721589457*^9, 
+   3.8012893068486853`*^9},
+ CellLabel->"Out[86]=",ExpressionUUID->"4d0fc939-d19f-4f6e-89dd-4849969a7884"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -15355,8 +20405,7 @@ Cell[BoxData[{
    3.772430670003887*^9}, {3.772885188569561*^9, 3.772885188844552*^9}, {
    3.77294957315034*^9, 3.772949625242341*^9}, {3.780998797734757*^9, 
    3.780998797920843*^9}, {3.7991136519052963`*^9, 3.799113707640517*^9}},
- CellLabel->
-  "In[211]:=",ExpressionUUID->"3de2d281-4289-4288-856e-5351261e9140"],
+ CellLabel->"In[87]:=",ExpressionUUID->"3de2d281-4289-4288-856e-5351261e9140"],
 
 Cell[BoxData[
  RowBox[{"{", \
@@ -15430,9 +20479,8 @@ rhOverM_Asymptotic_GeometricUnits_CoM.h5\"\>", "}"}]], "Output",
    3.8000746751750097`*^9, 3.800088876448193*^9, 3.800148382940559*^9, {
    3.8005393286214533`*^9, 3.800539348433199*^9}, 3.8006102046741123`*^9, 
    3.8007685109300833`*^9, 3.8007685576592083`*^9, 3.800798395327581*^9, 
-   3.8008367217300673`*^9},
- CellLabel->
-  "Out[211]=",ExpressionUUID->"6c49a5f5-495f-4589-b400-ce54743df9ea"],
+   3.8008367217300673`*^9, 3.801289306918448*^9},
+ CellLabel->"Out[87]=",ExpressionUUID->"8bcb756f-6539-469e-a672-c192d8212f90"],
 
 Cell[BoxData["\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.\
 440/Lev6/metadata.txt\"\>"], "Output",
@@ -15504,9 +20552,8 @@ Cell[BoxData["\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.\
    3.8000746751750097`*^9, 3.800088876448193*^9, 3.800148382940559*^9, {
    3.8005393286214533`*^9, 3.800539348433199*^9}, 3.8006102046741123`*^9, 
    3.8007685109300833`*^9, 3.8007685576592083`*^9, 3.800798395327581*^9, 
-   3.8008367217331543`*^9},
- CellLabel->
-  "Out[212]=",ExpressionUUID->"16f8f4e1-2de2-4a57-8db3-4846f1907820"]
+   3.8008367217300673`*^9, 3.801289306922079*^9},
+ CellLabel->"Out[88]=",ExpressionUUID->"d09c29e1-e6c7-4195-b960-10caeafeec41"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -15600,8 +20647,7 @@ Cell[BoxData[{
    3.7800242983466043`*^9}, {3.7800243862787457`*^9, 3.780024392075529*^9}, {
    3.7850570816980143`*^9, 3.7850570936459417`*^9}, {3.7850571258554573`*^9, 
    3.785057158276864*^9}},
- CellLabel->
-  "In[214]:=",ExpressionUUID->"4b2d97a3-fa2c-4c79-bbd1-06a34727f138"],
+ CellLabel->"In[90]:=",ExpressionUUID->"4b2d97a3-fa2c-4c79-bbd1-06a34727f138"],
 
 Cell[CellGroupData[{
 
@@ -15676,10 +20722,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306970142*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"1ddd49bd-960e-4de1-8f85-d1796dce4b42"],
+In[90]:=",ExpressionUUID->"0838d304-eda1-4b5e-a858-ee5ab2b62970"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -15752,10 +20799,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721748475*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306972089*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"50d076cb-ffd6-437c-8996-d1a34c8ac043"],
+In[90]:=",ExpressionUUID->"5ca56804-ee25-474c-bd77-fe3780e7d903"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -15828,10 +20876,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721753628*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.8012893069779377`*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"5264296a-c5fe-46dd-a529-259a2abe3b0f"],
+In[90]:=",ExpressionUUID->"8d3337b3-4378-4b88-8cd5-0ed7fab9a3e7"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -15905,10 +20954,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721754961*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.8012893069795103`*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"b5864146-fcc4-470c-bad3-cc27dacbaae6"],
+In[90]:=",ExpressionUUID->"1749f6bf-b1a5-4510-b440-e6222842de8c"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -15981,10 +21031,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721756319*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306980685*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"0e6b7a58-285d-4079-9f1e-341744a9a654"],
+In[90]:=",ExpressionUUID->"51827c3b-b2a3-49ce-bd64-6d97e0812fd1"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -16058,10 +21109,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.8008367217576647`*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306981865*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"39447650-8cc3-4f16-b3c8-bcfebdccd198"],
+In[90]:=",ExpressionUUID->"afb9a4b0-2849-497b-aca3-467d285c2f2c"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -16134,10 +21186,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721759079*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306983076*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"7f1ff608-ccea-4ab1-9e70-a093dc244068"],
+In[90]:=",ExpressionUUID->"4f563f60-7fb3-43e0-98e2-ed509b5add35"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -16210,10 +21263,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721760435*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306984337*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"522f7e3d-078b-4854-bdab-9c17625b1c23"],
+In[90]:=",ExpressionUUID->"32577c33-170d-4b30-94d0-d7dea9d4218b"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -16286,10 +21340,11 @@ Cell[BoxData[
    3.7991222754707747`*^9, 3.799122302610426*^9}, 3.800074675182968*^9, 
    3.8000888764634867`*^9, 3.8001483829496517`*^9, {3.800539328667665*^9, 
    3.80053935006597*^9}, 3.8006102047411127`*^9, 3.800768511041994*^9, 
-   3.8007685584485817`*^9, 3.800798395343419*^9, 3.800836721761736*^9},
+   3.8007685584485817`*^9, 3.800798395343419*^9, 3.80083672174466*^9, 
+   3.801289306985629*^9},
  CellLabel->
   "During evaluation of \
-In[214]:=",ExpressionUUID->"abef30c8-4dc9-4628-87bf-31af14203679"]
+In[90]:=",ExpressionUUID->"c1257c5e-026c-45a4-a50a-e24235db0f3a"]
 }, Open  ]]
 }, Open  ]],
 
@@ -16316,8 +21371,7 @@ Cell[BoxData[
   3.773653259449843*^9}, {3.7736533620280743`*^9, 3.773653364920361*^9}, {
   3.773986356744377*^9, 3.7739863583243027`*^9}, {3.7991140470420923`*^9, 
   3.7991140508638773`*^9}},
- CellLabel->
-  "In[223]:=",ExpressionUUID->"1690f4ac-5369-4645-bcb5-0e7d841c2bd8"],
+ CellLabel->"In[99]:=",ExpressionUUID->"1690f4ac-5369-4645-bcb5-0e7d841c2bd8"],
 
 Cell[CellGroupData[{
 
@@ -16339,7 +21393,7 @@ Cell[BoxData[
   3.800539743559784*^9, 3.800539805114546*^9}, {3.800540058023601*^9, 
   3.8005400582653646`*^9}},
  CellLabel->
-  "In[224]:=",ExpressionUUID->"5671d6e7-9457-4b54-bf4b-1cd5b0dc7914"],
+  "In[100]:=",ExpressionUUID->"5671d6e7-9457-4b54-bf4b-1cd5b0dc7914"],
 
 Cell[BoxData[
  GraphicsBox[{{}, {{{}, {}, 
@@ -18225,9 +23279,10 @@ z06r7jU//B+M8/yE
  CellChangeTimes->{{3.800539368455718*^9, 3.800539399885253*^9}, {
    3.800539758113948*^9, 3.8005398068218193`*^9}, {3.8005400587940207`*^9, 
    3.800540079779191*^9}, 3.8006102057257357`*^9, 3.8007685115361767`*^9, 
-   3.800768560149877*^9, 3.800798396177833*^9, 3.800836722640359*^9},
+   3.800768560149877*^9, 3.800798396177833*^9, 3.800836722640359*^9, 
+   3.801289308424006*^9},
  CellLabel->
-  "Out[224]=",ExpressionUUID->"06d6107a-f1cf-4677-921e-5aad6bf25ea5"]
+  "Out[100]=",ExpressionUUID->"e779ebd0-4d2b-4ffb-81a7-39dd85184c25"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -18273,7 +23328,7 @@ Cell[BoxData[
   3.800539986614387*^9, 3.800539988493115*^9}, {3.8005400257376757`*^9, 
   3.800540160899103*^9}, {3.800540238280608*^9, 3.800540282386424*^9}},
  CellLabel->
-  "In[225]:=",ExpressionUUID->"0ce718bc-4413-44c9-b750-dda072088dd3"],
+  "In[101]:=",ExpressionUUID->"0ce718bc-4413-44c9-b750-dda072088dd3"],
 
 Cell[BoxData[
  GraphicsBox[{{}, {{{}, {}, 
@@ -21024,11 +26079,11 @@ HhlJmggd+5cgRoer8ZoxUt0XyARGQ3NfcTr8naW5Nm8dTf4PFgtp0Q==
    3.800539989642495*^9, {3.800540027442864*^9, 3.8005401253138123`*^9}, 
    3.800540161922206*^9, {3.800540225812039*^9, 3.8005402830853243`*^9}, 
    3.800610205935973*^9, 3.8007685118856583`*^9, 3.800768561188869*^9, 
-   3.8007983963543053`*^9, 3.800836722850709*^9},
+   3.8007983963543053`*^9, 3.800836722850709*^9, 3.8012893086133204`*^9},
  CellLabel->
-  "Out[225]=",ExpressionUUID->"e0e25515-3ac4-4e44-9c87-b8f67f726c7b"]
+  "Out[101]=",ExpressionUUID->"26185b65-e79a-412f-b7fd-28dd3b6288aa"]
 }, Open  ]]
-}, Closed]],
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -21101,7 +26156,7 @@ Cell[BoxData[{
    3.799114060064929*^9, 3.79911406538628*^9}, 3.7991151368119593`*^9, 
    3.800836727429167*^9},
  CellLabel->
-  "In[553]:=",ExpressionUUID->"2a12f703-67b6-47a6-aae2-afc2767467e6"],
+  "In[102]:=",ExpressionUUID->"2a12f703-67b6-47a6-aae2-afc2767467e6"],
 
 Cell[BoxData["3692.632566631851`"], "Output",
  CellChangeTimes->{
@@ -21138,9 +26193,9 @@ Cell[BoxData["3692.632566631851`"], "Output",
    3.8000888828548727`*^9, {3.800148386513494*^9, 3.80014840971856*^9}, 
    3.800610214479116*^9, 3.8007685662791643`*^9, 3.800768703379178*^9, 
    3.80078270231458*^9, 3.8007983987313538`*^9, 3.8008367302442083`*^9, 
-   3.800863801874867*^9},
+   3.800863801874867*^9, 3.80128931405587*^9},
  CellLabel->
-  "Out[554]=",ExpressionUUID->"987543e7-a454-4c9c-80b3-5b2c20daaf2c"]
+  "Out[103]=",ExpressionUUID->"6fa066d1-5d0e-4a2c-96b9-39d77373e41a"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -21250,11 +26305,11 @@ Cell[BoxData[
   3.799118294601678*^9, 3.799118373145268*^9}, {3.799121446017521*^9, 
   3.799121446693618*^9}, {3.799121649131525*^9, 3.799121665558511*^9}},
  CellLabel->
-  "In[557]:=",ExpressionUUID->"a89003ba-a43b-4259-bba9-63e0a493b6e1"],
+  "In[106]:=",ExpressionUUID->"a89003ba-a43b-4259-bba9-63e0a493b6e1"],
 
 Cell[BoxData[
  RowBox[{"{", 
-  RowBox[{"1.52853`", ",", "Null"}], "}"}]], "Output",
+  RowBox[{"1.552135`", ",", "Null"}], "}"}]], "Output",
  CellChangeTimes->{{3.799118374898045*^9, 3.79911838487215*^9}, 
    3.7991214408227*^9, {3.799121668264289*^9, 3.799121694969323*^9}, {
    3.799121972940412*^9, 3.799121977516094*^9}, 3.799122307509296*^9, 
@@ -21262,9 +26317,9 @@ Cell[BoxData[
    3.8000889918375883`*^9}, 3.8000890335329*^9, {3.800148400749227*^9, 
    3.800148411749407*^9}, 3.800148866674171*^9, 3.800610217823154*^9, 
    3.800768881613962*^9, 3.800782705032302*^9, 3.800798401050765*^9, 
-   3.800836732839816*^9, 3.800863803492679*^9},
+   3.800836732839816*^9, 3.800863803492679*^9, 3.801289320280258*^9},
  CellLabel->
-  "Out[557]=",ExpressionUUID->"c3a7f632-116f-4e37-8123-7cf3761a8c9f"]
+  "Out[106]=",ExpressionUUID->"899a8600-cb73-4d36-92b2-424b97b44e54"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -21333,7 +26388,8 @@ Cell[BoxData[
    3.773462933678555*^9}, {3.778391188518272*^9, 3.7783911948689833`*^9}, 
    3.778391800015448*^9, {3.778935310835972*^9, 3.7789353109917316`*^9}, 
    3.785049017415954*^9, 3.799114701289795*^9, {3.799114852707039*^9, 
-   3.799114852906251*^9}, 3.799115140715918*^9, 3.799121699707715*^9},
+   3.799114852906251*^9}, 3.799115140715918*^9, 3.799121699707715*^9, 
+   3.801289327946663*^9},
  CellLabel->
   "In[558]:=",ExpressionUUID->"ceedd337-cf2b-442b-8193-d737c8c98f68"],
 
@@ -23742,7 +28798,7 @@ qeH0rj95CtyPRjV8/hDl3zcB9188eCiafAqX+pG/0fyNHg==
  CellLabel->
   "Out[700]=",ExpressionUUID->"7f0ae77c-21eb-4ada-821f-3abc906e6d29"]
 }, Open  ]]
-}, Closed]],
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -128430,7 +133486,810 @@ Cell[BoxData[
                     GrayLevel[0]]], 
                     PointSize[0.25666666666666665`], 
                     AbsoluteThickness[1.6], 
-                    RGBColor[1., 0.71, 0.]], FontSize -> 18, Plain, 
+                    RGBColor[1., 0.71, 0.]], FontSize -> 18, Plain, 
+                    StripOnInput -> False], TraditionalForm], 
+                    NCache[
+                    Scaled[{
+                    Rational[1, 2], 
+                    Rational[1, 2]}], 
+                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
+                    ImageSize -> {18, 18}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.23333333333333334`] -> 
+                    Baseline)], #4}}, 
+                 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", FontSize -> 12, 
+          GrayLevel[0], FontWeight -> Bold, FontFamily -> "Arial"}, 
+         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
+      
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0., 0.62, 0.53], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0., 0.41333333333333333`, 0.3533333333333334], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.`", ",", "0.62`", ",", "0.53`"}], "]"}], 
+                    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., 0.62, 0.53]; 
+                    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., 0.62, 0.53], Editable -> False, Selectable -> 
+                    False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[1., 0., 0.38], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.6666666666666667, 0., 0.25333333333333335`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"1.`", ",", "0.`", ",", "0.38`"}], "]"}], 
+                    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[1., 0., 0.38]; 
+                    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[1., 0., 0.38], Editable -> False, Selectable -> 
+                    False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0., 0.73, 1.], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0., 0.4866666666666667, 0.6666666666666667], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], 
+                    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., 0.73, 1.]; 
+                    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., 0.73, 1.], Editable -> False, Selectable -> 
+                    False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[1., 0.71, 0.], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.6666666666666667, 0.47333333333333333`, 0.], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"1.`", ",", "0.71`", ",", "0.`"}], "]"}], 
+                    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[1., 0.71, 0.]; 
+                    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[1., 0.71, 0.], Editable -> False, Selectable -> 
+                    False]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"\"\[FilledCircle]\"", ",", "16"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"\"\[FilledCircle]\"", ",", "16"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"\"\[FilledSquare]\"", ",", "18"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"\"\[FilledSquare]\"", ",", "18"}], "}"}]}], 
+               "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"False", ",", "False", ",", "False", ",", "False"}], 
+               "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"FontFamily", "\[Rule]", "\"Arial\""}], ",", "12", 
+                 ",", 
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold"}], "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.12, 0.8}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{0, 0},
+   DisplayFunction->Identity,
+   Epilog->{{
+      InsetBox[
+       FormBox[
+        StyleBox["\"SXS:0305\"", 
+         GrayLevel[0], 12, StripOnInput -> False], TraditionalForm], 
+       Scaled[{0.13, 0.1}]]}},
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(i\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)/M\"", TraditionalForm], 
+      None}},
+   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+   GridLines->
+    FrontEndValueCache[{
+     Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+      Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, {{{
+       0., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {10., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {20., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {30., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-10., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-8., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-6., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-4., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {6., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {8., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {12., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {14., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {16., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {18., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {22., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {24., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {26., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {28., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {32., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {34., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {36., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {38., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {40., 
+        Directive[
+         AbsoluteThickness[0.1]]}}, {{0., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-1., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4.8, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {5., 
+        Directive[
+         AbsoluteThickness[0.1]]}}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->{FontFamily -> "Arial", 12, 
+     GrayLevel[0], Bold},
+   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->{{0, 30.}, {0, 4.2627594284623065`}},
+   PlotRangeClipping->True,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{
+         Directive[
+          PointSize[0.012833333333333334`], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.62, 0.53], 
+          AbsolutePointSize[6]], 
+         GeometricTransformation[
+          Inset[
+           Style["\[FilledCircle]", FontSize -> 16], {0., 0.}], {{{0., 
+          0.8533096156039384}}, {{3., 0.9067129518887781}}, {{5., 
+          0.9464043911231649}}, {{8., 0.9578550368870552}}, {{12., 
+          0.9722871108563307}}, {{15., 0.976925857578058}}, {{20., 
+          0.9802556646832357}}, {{30., 0.9747329053643625}}, {{25., 
+          0.9774490237468211}}, {{28., 0.9754918760858188}}, {{22., 
+          0.9793413903649073}}}]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          AbsoluteThickness[1.6], 
+          RGBColor[1., 0., 0.38], 
+          AbsolutePointSize[6]], 
+         GeometricTransformation[
+          Inset[
+           Style["\[FilledCircle]", FontSize -> 16], {0., 0.}], {{{0., 
+          0.8527231292352798}}, {{3., 1.1311559809636111`}}, {{5., 
+          1.674794780276855}}, {{8., 2.3648112711476323`}}, {{12., 
+          3.1727976854545226`}}, {{15., 3.6395535137624857`}}, {{20., 
+          3.964905544488415}}, {{30., 4.2627594284623065`}}, {{25., 
+          3.7891556953621635`}}, {{28., 3.8895187432001688`}}, {{22., 
+          3.9187253060569334`}}}]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.73, 1.], 
+          AbsolutePointSize[6]], 
+         GeometricTransformation[
+          Inset[
+           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
+          0.8685703887545894}}, {{3., 0.9395705014734128}}, {{5., 
+          0.965284484088151}}, {{8., 0.981415180687397}}, {{12., 
+          0.9835316317703395}}, {{15., 0.9820332074274225}}}]}, {
+         Directive[
+          PointSize[0.012833333333333334`], 
+          AbsoluteThickness[1.6], 
+          RGBColor[1., 0.71, 0.], 
+          AbsolutePointSize[6]], 
+         GeometricTransformation[
+          Inset[
+           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
+          1.0881361291324734`}}, {{3., 1.6569083489483067`}}, {{5., 
+          2.07598153277548}}, {{8., 2.6999394780187123`}}, {{12., 
+          3.4010740261565218`}}, {{15., 
+          3.7594382215440962`}}}]}, {}}}, {}, {}, {}, {}}, {
+     DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
+      PlotRange -> {{0, 30.}, {0, 4.2627594284623065`}}, PlotRangeClipping -> 
+      True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> {{
+         Text[
+          Style["SXS:0305", 
+           GrayLevel[0], 12], 
+          Scaled[{0.13, 0.1}]]}}, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(i\)]\)", None}, {
+        "\!\(\*SubscriptBox[\(t\), \(0\)]\)/M", None}}, 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      LabelStyle -> {FontFamily -> "Arial", 12, 
+        GrayLevel[0], Bold}, 
+      Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{0, 30.}, {0, 4.2627594284623065`}}, PlotRangeClipping -> 
+      True, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      PointLegend[{
+        Directive[
+         PointSize[0.012833333333333334`], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0., 0.62, 0.53]], 
+        Directive[
+         PointSize[0.012833333333333334`], 
+         AbsoluteThickness[1.6], 
+         RGBColor[1., 0., 0.38]], 
+        Directive[
+         PointSize[0.012833333333333334`], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0., 0.73, 1.]], 
+        Directive[
+         PointSize[0.012833333333333334`], 
+         AbsoluteThickness[1.6], 
+         RGBColor[1., 0.71, 0.]]}, {
+       "\!\(\*SubscriptBox[OverscriptBox[\(A\), \(--\)], \(0\)]\)", 
+        "\!\(\*SubscriptBox[OverscriptBox[\(A\), \(--\)], \(1\)]\)", 
+        "\!\(\*SubscriptBox[\(A\), \(0\)]\)(\!\(\*SubscriptBox[\(\[Alpha]\), \
+\(0\)]\)=0,\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)=0)", 
+        "\!\(\*SubscriptBox[\(A\), \(1\)]\)(\!\(\*SubscriptBox[\(\[Alpha]\), \
+\(0\)]\)=0,\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)=0)"}, 
+       LegendMarkers -> {{"\[FilledCircle]", 16}, {"\[FilledCircle]", 16}, {
+         "\[FilledSquare]", 18}, {"\[FilledSquare]", 18}}, 
+       Joined -> {False, False, False, False}, 
+       LabelStyle -> {FontFamily -> "Arial", 12, 
+         GrayLevel[0], Bold}, LegendLayout -> "Column"]], {0.12, 0.8}, 
+     Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.778851089180325*^9, 3.778851101318817*^9}, 
+   3.778851302561961*^9, 3.778851339605735*^9, {3.778851379458336*^9, 
+   3.778851415699252*^9}, {3.778851704339664*^9, 3.778851744889715*^9}, {
+   3.7788517832775517`*^9, 3.778851867642188*^9}, 3.778907293470867*^9, {
+   3.778907332670093*^9, 3.778907354770172*^9}, {3.7789346461202993`*^9, 
+   3.77893466038726*^9}, {3.7789347744683933`*^9, 3.778934797127635*^9}, 
+   3.778934876356866*^9, 3.779014750120677*^9, {3.77901480426197*^9, 
+   3.7790148230109453`*^9}, 3.779014878788878*^9, {3.779015477786531*^9, 
+   3.779015490716796*^9}, 3.779104421798566*^9, {3.779104584786878*^9, 
+   3.7791046203754997`*^9}, 3.7791046922746973`*^9, {3.779104770899968*^9, 
+   3.779104800479368*^9}},
+ CellLabel->
+  "Out[487]=",ExpressionUUID->"0d52ebb0-b516-4f05-8d80-7c1f9aee593c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lp", "=", 
+  RowBox[{"ListPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"datapts", ",", 
+        RowBox[{"{", 
+         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"datapts", ",", 
+        RowBox[{"{", 
+         RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "\"\<\!\(\*SubscriptBox[\(A\), \(0\)]\)\>\"", ",", 
+         "\"\<\!\(\*SubscriptBox[\(A\), \(1\)]\)\>\""}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{".12", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<\!\(\*SubscriptBox[\(t\), \(0\)]\)/M\>\"", ",", 
+       "\"\<\!\(\*SubscriptBox[\(A\), \(n\)]\)\>\""}], "}"}]}], ",", 
+    RowBox[{"LabelStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "12", ",", 
+       RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
+    RowBox[{"GridLines", "->", 
+     RowBox[{"{", 
+      RowBox[{"Full", ",", "Full"}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"0.`", ",", "0.62`", ",", "0.53"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"1.`", ",", "0.`", ",", "0.38`"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"1.`", ",", "0.71`", ",", "0.`"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"0.46", ",", "0.", ",", "0.62"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"0.68", ",", "0.69", ",", "0."}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"0.62", ",", "0.", ",", "0.13"}], "]"}], ",", 
+       RowBox[{"RGBColor", "[", 
+        RowBox[{"1.", ",", "0.53", ",", "0.25"}], "]"}]}], "}"}]}], ",", 
+    RowBox[{"Epilog", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"{", 
+       RowBox[{"Text", "[", 
+        RowBox[{
+         RowBox[{"Style", "[", 
+          RowBox[{"\"\<SXS:0305\>\"", ",", "Black", ",", "12"}], "]"}], ",", 
+         RowBox[{"Scaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"0.13", ",", "0.1"}], "}"}], "]"}]}], "]"}], "}"}], 
+      "}"}]}], ",", 
+    RowBox[{"LabelStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "12", ",", 
+       RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
+    RowBox[{"GridLines", "->", 
+     RowBox[{"{", 
+      RowBox[{"Full", ",", "Full"}], "}"}]}], ",", 
+    RowBox[{"Epilog", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"{", 
+       RowBox[{"Text", "[", 
+        RowBox[{
+         RowBox[{"Style", "[", 
+          RowBox[{"\"\<SXS:0305\>\"", ",", "Black", ",", "12"}], "]"}], ",", 
+         RowBox[{"Scaled", "[", 
+          RowBox[{"{", 
+           RowBox[{"0.13", ",", "0.1"}], "}"}], "]"}]}], "]"}], "}"}], 
+      "}"}]}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotMarkers", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"markers", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "16"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"markers", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"markers", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"markers", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}]}], "}"}]}]}], 
+   "]"}]}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQBmIQ/bst4Gef6hvHr4yBYDpV65nCNPU3jq/0FimDaKPr
+GjYgesKkI2CaabK4I4guM0kD0ybFYV4gOk3/BZj+dfltHojeIRTfDKJ5/1lO
+3Qik2Xb6zwbRaQoJ7/YB6VkPusD0Gee330B0VP1sxv1AurGqlgNEL3PK4wbR
+VtZ9PM+A9I3kXBEQncQ8Lw1EM5UsA9MC2tfLpmgA7SsLrgTRCTt8GkA0y+Q7
+YLqpNPfKRiCdtWLqNRAtsl+SbROQ3ivtBKa/hf6rANNLWStB9JXNJS0guui8
+fBuIZvJi43gMpGvCpMA0AMobkm4=
+  "],
+ CellLabel->
+  "In[891]:=",ExpressionUUID->"908576b9-be04-4c0c-ae2e-2db105b60e34"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{}, {
+      {RGBColor[0., 0.62, 0.53], AbsolutePointSize[6], AbsoluteThickness[1.6],
+        GeometricTransformationBox[InsetBox[
+         StyleBox["\<\"\[FilledCircle]\"\>",
+          StripOnInput->False,
+          FontSize->16], {0., 0.}], {{{0., 0.8533096156039384}}, {{3., 
+        0.9067129518887781}}, {{5., 0.9464043911231649}}, {{8., 
+        0.9578550368870552}}, {{12., 0.9722871108563307}}, {{15., 
+        0.976925857578058}}, {{20., 0.9802556646832357}}, {{30., 
+        0.9747329053643625}}, {{25., 0.9774490237468211}}, {{28., 
+        0.9754918760858188}}, {{22., 0.9793413903649073}}}]}, 
+      {RGBColor[1., 0., 0.38], AbsolutePointSize[6], AbsoluteThickness[1.6], 
+       GeometricTransformationBox[InsetBox[
+         StyleBox["\<\"\[FilledSquare]\"\>",
+          StripOnInput->False,
+          FontSize->18], {0., 0.}], {{{0., 0.8527231292352798}}, {{3., 
+        1.1311559809636111`}}, {{5., 1.674794780276855}}, {{8., 
+        2.3648112711476323`}}, {{12., 3.1727976854545226`}}, {{15., 
+        3.6395535137624857`}}, {{20., 3.964905544488415}}, {{30., 
+        4.2627594284623065`}}, {{25., 3.7891556953621635`}}, {{28., 
+        3.8895187432001688`}}, {{22., 
+        3.9187253060569334`}}}]}, {}}, {}, {}, {}, {}}, InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(0\\)]\\)\"",
+       "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(1\\)]\\)\""},
+      "PointLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.25666666666666665`], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0., 0.62, 0.53]], {
+                    InsetBox[
+                    FormBox[
+                    StyleBox["\"\[FilledCircle]\"", 
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.25666666666666665`], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0., 0.62, 0.53]], FontSize -> 16, Plain, 
+                    StripOnInput -> False], TraditionalForm], 
+                    NCache[
+                    Scaled[{
+                    Rational[1, 2], 
+                    Rational[1, 2]}], 
+                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
+                    ImageSize -> {18, 16}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.2] -> Baseline)], #}, {
+                   GraphicsBox[{{}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.25666666666666665`], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[1., 0., 0.38]], {
+                    InsetBox[
+                    FormBox[
+                    StyleBox["\"\[FilledSquare]\"", 
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.25666666666666665`], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[1., 0., 0.38]], FontSize -> 18, Plain, 
                     StripOnInput -> False], TraditionalForm], 
                     NCache[
                     Scaled[{
@@ -128440,7 +134299,7 @@ Cell[BoxData[
                     ImageSize -> {18, 18}, PlotRangePadding -> None, 
                     ImagePadding -> Automatic, 
                     BaselinePosition -> (Scaled[0.23333333333333334`] -> 
-                    Baseline)], #4}}, 
+                    Baseline)], #2}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
@@ -128561,121 +134420,20 @@ Cell[BoxData[
                     "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                     Automatic, Method -> "Preemptive"], 
                     RGBColor[1., 0., 0.38], Editable -> False, Selectable -> 
-                    False]}], "]"}], ",", 
-               RowBox[{"Directive", "[", 
-                 RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
-                   ",", 
-                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
-                   InterpretationBox[
-                    ButtonBox[
-                    TooltipBox[
-                    GraphicsBox[{{
-                    GrayLevel[0], 
-                    RectangleBox[{0, 0}]}, {
-                    GrayLevel[0], 
-                    RectangleBox[{1, -1}]}, {
-                    RGBColor[0., 0.73, 1.], 
-                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
-                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
-                    FrameStyle -> 
-                    RGBColor[0., 0.4866666666666667, 0.6666666666666667], 
-                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
-                    Dynamic[{
-                    Automatic, 
-                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    StyleBox[
-                    RowBox[{"RGBColor", "[", 
-                    RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], 
-                    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., 0.73, 1.]; 
-                    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., 0.73, 1.], Editable -> False, Selectable -> 
-                    False]}], "]"}], ",", 
-               RowBox[{"Directive", "[", 
-                 RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
-                   ",", 
-                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
-                   InterpretationBox[
-                    ButtonBox[
-                    TooltipBox[
-                    GraphicsBox[{{
-                    GrayLevel[0], 
-                    RectangleBox[{0, 0}]}, {
-                    GrayLevel[0], 
-                    RectangleBox[{1, -1}]}, {
-                    RGBColor[1., 0.71, 0.], 
-                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
-                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
-                    FrameStyle -> 
-                    RGBColor[0.6666666666666667, 0.47333333333333333`, 0.], 
-                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
-                    Dynamic[{
-                    Automatic, 
-                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
-                    StyleBox[
-                    RowBox[{"RGBColor", "[", 
-                    RowBox[{"1.`", ",", "0.71`", ",", "0.`"}], "]"}], 
-                    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[1., 0.71, 0.]; 
-                    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[1., 0.71, 0.], Editable -> False, Selectable -> 
                     False]}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
-             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
            RowBox[{"LegendMarkers", "\[Rule]", 
              RowBox[{"{", 
                RowBox[{
                  RowBox[{"{", 
                    RowBox[{"\"\[FilledCircle]\"", ",", "16"}], "}"}], ",", 
-                 RowBox[{"{", 
-                   RowBox[{"\"\[FilledCircle]\"", ",", "16"}], "}"}], ",", 
-                 RowBox[{"{", 
-                   RowBox[{"\"\[FilledSquare]\"", ",", "18"}], "}"}], ",", 
                  RowBox[{"{", 
                    RowBox[{"\"\[FilledSquare]\"", ",", "18"}], "}"}]}], 
                "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", 
              RowBox[{"{", 
-               RowBox[{"False", ",", "False", ",", "False", ",", "False"}], 
-               "}"}]}], ",", 
+               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
            RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", 
                RowBox[{
@@ -128739,7 +134497,7 @@ Cell[BoxData[
    Frame->{{True, True}, {True, True}},
    FrameLabel->{{
       FormBox[
-      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(i\\)]\\)\"", TraditionalForm], 
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(n\\)]\\)\"", TraditionalForm], 
       None}, {
       FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)/M\"", TraditionalForm], 
@@ -128910,36 +134668,13 @@ Cell[BoxData[
           AbsolutePointSize[6]], 
          GeometricTransformation[
           Inset[
-           Style["\[FilledCircle]", FontSize -> 16], {0., 0.}], {{{0., 
+           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
           0.8527231292352798}}, {{3., 1.1311559809636111`}}, {{5., 
           1.674794780276855}}, {{8., 2.3648112711476323`}}, {{12., 
           3.1727976854545226`}}, {{15., 3.6395535137624857`}}, {{20., 
           3.964905544488415}}, {{30., 4.2627594284623065`}}, {{25., 
           3.7891556953621635`}}, {{28., 3.8895187432001688`}}, {{22., 
-          3.9187253060569334`}}}]}, {
-         Directive[
-          PointSize[0.012833333333333334`], 
-          AbsoluteThickness[1.6], 
-          RGBColor[0., 0.73, 1.], 
-          AbsolutePointSize[6]], 
-         GeometricTransformation[
-          Inset[
-           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
-          0.8685703887545894}}, {{3., 0.9395705014734128}}, {{5., 
-          0.965284484088151}}, {{8., 0.981415180687397}}, {{12., 
-          0.9835316317703395}}, {{15., 0.9820332074274225}}}]}, {
-         Directive[
-          PointSize[0.012833333333333334`], 
-          AbsoluteThickness[1.6], 
-          RGBColor[1., 0.71, 0.], 
-          AbsolutePointSize[6]], 
-         GeometricTransformation[
-          Inset[
-           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
-          1.0881361291324734`}}, {{3., 1.6569083489483067`}}, {{5., 
-          2.07598153277548}}, {{8., 2.6999394780187123`}}, {{12., 
-          3.4010740261565218`}}, {{15., 
-          3.7594382215440962`}}}]}, {}}}, {}, {}, {}, {}}, {
+          3.9187253060569334`}}}]}, {}}}, {}, {}, {}, {}}, {
      DisplayFunction -> Identity, PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {
@@ -128953,15 +134688,14 @@ Cell[BoxData[
           Style["SXS:0305", 
            GrayLevel[0], 12], 
           Scaled[{0.13, 0.1}]]}}, Frame -> {{True, True}, {True, True}}, 
-      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(i\)]\)", None}, {
+      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(n\)]\)", None}, {
         "\!\(\*SubscriptBox[\(t\), \(0\)]\)/M", None}}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {
        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
       GridLinesStyle -> Directive[
-        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
-      LabelStyle -> {FontFamily -> "Arial", 12, 
+        GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Arial", 12, 
         GrayLevel[0], Bold}, 
       Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
@@ -128988,78 +134722,434 @@ Cell[BoxData[
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
-         RGBColor[1., 0., 0.38]], 
-        Directive[
-         PointSize[0.012833333333333334`], 
-         AbsoluteThickness[1.6], 
-         RGBColor[0., 0.73, 1.]], 
-        Directive[
-         PointSize[0.012833333333333334`], 
-         AbsoluteThickness[1.6], 
-         RGBColor[1., 0.71, 0.]]}, {
-       "\!\(\*SubscriptBox[OverscriptBox[\(A\), \(--\)], \(0\)]\)", 
-        "\!\(\*SubscriptBox[OverscriptBox[\(A\), \(--\)], \(1\)]\)", 
-        "\!\(\*SubscriptBox[\(A\), \(0\)]\)(\!\(\*SubscriptBox[\(\[Alpha]\), \
-\(0\)]\)=0,\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)=0)", 
-        "\!\(\*SubscriptBox[\(A\), \(1\)]\)(\!\(\*SubscriptBox[\(\[Alpha]\), \
-\(0\)]\)=0,\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)=0)"}, 
-       LegendMarkers -> {{"\[FilledCircle]", 16}, {"\[FilledCircle]", 16}, {
-         "\[FilledSquare]", 18}, {"\[FilledSquare]", 18}}, 
-       Joined -> {False, False, False, False}, 
-       LabelStyle -> {FontFamily -> "Arial", 12, 
+         RGBColor[1., 0., 0.38]]}, {
+       "\!\(\*SubscriptBox[\(A\), \(0\)]\)", 
+        "\!\(\*SubscriptBox[\(A\), \(1\)]\)"}, 
+       LegendMarkers -> {{"\[FilledCircle]", 16}, {"\[FilledSquare]", 18}}, 
+       Joined -> {False, False}, LabelStyle -> {FontFamily -> "Arial", 12, 
          GrayLevel[0], Bold}, LegendLayout -> "Column"]], {0.12, 0.8}, 
      Identity]]& ],
   AutoDelete->True,
   Editable->True,
   SelectWithContents->False,
   Selectable->True]], "Output",
- CellChangeTimes->{{3.778851089180325*^9, 3.778851101318817*^9}, 
-   3.778851302561961*^9, 3.778851339605735*^9, {3.778851379458336*^9, 
-   3.778851415699252*^9}, {3.778851704339664*^9, 3.778851744889715*^9}, {
-   3.7788517832775517`*^9, 3.778851867642188*^9}, 3.778907293470867*^9, {
-   3.778907332670093*^9, 3.778907354770172*^9}, {3.7789346461202993`*^9, 
-   3.77893466038726*^9}, {3.7789347744683933`*^9, 3.778934797127635*^9}, 
-   3.778934876356866*^9, 3.779014750120677*^9, {3.77901480426197*^9, 
-   3.7790148230109453`*^9}, 3.779014878788878*^9, {3.779015477786531*^9, 
-   3.779015490716796*^9}, 3.779104421798566*^9, {3.779104584786878*^9, 
-   3.7791046203754997`*^9}, 3.7791046922746973`*^9, {3.779104770899968*^9, 
-   3.779104800479368*^9}},
+ CellChangeTimes->{{3.779371959471026*^9, 3.779371979055436*^9}, {
+   3.779372028477069*^9, 3.779372039502116*^9}, {3.7794321061687517`*^9, 
+   3.779432117178776*^9}, 3.779432498629616*^9, 3.7794334169529753`*^9, {
+   3.779433509200099*^9, 3.779433521433988*^9}, {3.7795328584661303`*^9, 
+   3.779532865598755*^9}, 3.7800652834954576`*^9},
  CellLabel->
-  "Out[487]=",ExpressionUUID->"0d52ebb0-b516-4f05-8d80-7c1f9aee593c"]
+  "Out[891]=",ExpressionUUID->"39e95b12-39b7-4893-9f32-a4a45683e67a"]
 }, Open  ]],
 
+Cell[BoxData[
+ RowBox[{"If", "[", 
+  RowBox[{"ExportQ", ",", 
+   RowBox[{"Export", "[", 
+    RowBox[{
+     RowBox[{"ExportDir", "<>", "\"\</A0A1stab.pdf\>\""}], ",", "lp"}], 
+    "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.7850537878837223`*^9, 3.785053792850415*^9}, {
+  3.785053835525221*^9, 
+  3.785053838784567*^9}},ExpressionUUID->"dcd62b49-3f54-435d-b6e2-\
+09bfe95a7985"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Positive and negative freqs.", "Subsubsection",
+ CellChangeTimes->{{3.762592741285844*^9, 3.762592747256867*^9}, {
+   3.7688818896689243`*^9, 3.768881892175918*^9}, 3.76948940484927*^9, {
+   3.771907047725429*^9, 3.771907049240364*^9}, {3.7734608375822773`*^9, 
+   3.7734608395015373`*^9}, {3.7850495816984863`*^9, 3.785049587196516*^9}, {
+   3.80128934294825*^9, 
+   3.801289348700425*^9}},ExpressionUUID->"070eada4-2233-496a-a917-\
+11fcbc5f9ebd"],
+
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"lp", "=", 
-  RowBox[{"ListPlot", "[", 
+ RowBox[{"Timing", "[", 
+  RowBox[{
+   RowBox[{"ans0", "=", 
+    RowBox[{"OvertoneModelV2", "[", 
+     RowBox[{"0", ",", 
+      RowBox[{"{", 
+       RowBox[{"\[Eta]", ",", "\[Chi]1", ",", "\[Chi]2"}], "}"}], ",", "t0", 
+      ",", 
+      RowBox[{"\"\<Fit\[Alpha]\>\"", "\[Rule]", 
+       RowBox[{"{", "}"}]}], ",", 
+      RowBox[{"\"\<ModesData\>\"", "->", "Modedata"}], ",", 
+      RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}]}], ";", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ans0n", "=", 
+    RowBox[{
+     SuperscriptBox["\[ExponentialE]", 
+      RowBox[{
+       RowBox[{"-", "0.08519031369657866`"}], " ", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"-", "3692.632566631851`"}], "+", "t"}], ")"}]}]], " ", "x1",
+      " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"Cos", "[", 
+        RowBox[{
+         RowBox[{"-", "0.5557334030122436`"}], " ", "t"}], "]"}], "+", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        RowBox[{"Sin", "[", 
+         RowBox[{
+          RowBox[{"-", "0.5557334030122436`"}], " ", "t"}], "]"}]}]}], 
+      ")"}]}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.778935321141198*^9, 3.778935323362689*^9}, {
+  3.7991145743509197`*^9, 3.799114586608266*^9}, {3.799114619023354*^9, 
+  3.799114642322358*^9}, {3.79911737413286*^9, 3.799117377036907*^9}, {
+  3.799118294601678*^9, 3.799118373145268*^9}, {3.799121446017521*^9, 
+  3.799121446693618*^9}, {3.799121649131525*^9, 3.799121665558511*^9}, {
+  3.801289379080216*^9, 3.801289415722727*^9}, {3.80128962223029*^9, 
+  3.801289622528974*^9}},
+ CellLabel->
+  "In[118]:=",ExpressionUUID->"e7e86e21-61ff-4b61-b5b1-90c4c5b55889"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.06128`", ",", 
+   RowBox[{
+    SuperscriptBox["\[ExponentialE]", 
+     RowBox[{
+      RowBox[{"-", "0.08519031369657866`"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"-", "3692.632566631851`"}], "+", "t"}], ")"}]}]], " ", "x1", 
+    " ", 
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"Cos", "[", 
+       RowBox[{"0.5557334030122436`", " ", "t"}], "]"}], "-", 
+      RowBox[{"\[ImaginaryI]", " ", 
+       RowBox[{"Sin", "[", 
+        RowBox[{"0.5557334030122436`", " ", "t"}], "]"}]}]}], ")"}]}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.799118374898045*^9, 3.79911838487215*^9}, 
+   3.7991214408227*^9, {3.799121668264289*^9, 3.799121694969323*^9}, {
+   3.799121972940412*^9, 3.799121977516094*^9}, 3.799122307509296*^9, 
+   3.8000746823423*^9, 3.800088885310608*^9, {3.8000889837318373`*^9, 
+   3.8000889918375883`*^9}, 3.8000890335329*^9, {3.800148400749227*^9, 
+   3.800148411749407*^9}, 3.800148866674171*^9, 3.800610217823154*^9, 
+   3.800768881613962*^9, 3.800782705032302*^9, 3.800798401050765*^9, 
+   3.800836732839816*^9, 3.800863803492679*^9, 3.801289320280258*^9, 
+   3.801289381319569*^9, 3.80128941714191*^9, 3.801289622886145*^9},
+ CellLabel->
+  "Out[118]=",ExpressionUUID->"46a06355-d699-41bb-b5ce-a2ee716f4d20"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ans0n2", "=", 
+  RowBox[{"ans0", "+", "ans0n"}]}]], "Input",
+ CellChangeTimes->{{3.8012895603475037`*^9, 3.8012895790804157`*^9}, {
+  3.801289626909154*^9, 3.801289627420277*^9}},
+ CellLabel->
+  "In[119]:=",ExpressionUUID->"772c3507-62a3-4111-9b7c-074de3fb6726"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{
+     RowBox[{"-", "0.08519031369657866`"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "3692.632566631851`"}], "+", "t"}], ")"}]}]], " ", "x1", 
+   " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Cos", "[", 
+      RowBox[{"0.5557334030122436`", " ", "t"}], "]"}], "-", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      RowBox[{"Sin", "[", 
+       RowBox[{"0.5557334030122436`", " ", "t"}], "]"}]}]}], ")"}]}], "+", 
+  RowBox[{
+   SuperscriptBox["\[ExponentialE]", 
+    RowBox[{
+     RowBox[{"-", "0.08519031369657866`"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"-", "3692.632566631851`"}], "+", "t"}], ")"}]}]], " ", "x0", 
+   " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"Cos", "[", 
+      RowBox[{"0.5557334030122436`", " ", "t"}], "]"}], "+", 
+     RowBox[{"\[ImaginaryI]", " ", 
+      RowBox[{"Sin", "[", 
+       RowBox[{"0.5557334030122436`", " ", "t"}], "]"}]}]}], 
+    ")"}]}]}]], "Output",
+ CellChangeTimes->{
+  3.801289526938333*^9, {3.801289570947064*^9, 3.801289580223838*^9}, 
+   3.8012896278354597`*^9},
+ CellLabel->
+  "Out[119]=",ExpressionUUID->"09bfffd5-70f5-4d8b-ad1a-864c71be3faa"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"tab\[Alpha]0", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"data", "=", 
+       RowBox[{"Select", "[", 
+        RowBox[{"mysxscase22modeRD", ",", " ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", 
+           RowBox[{"tmax", "+", "i", "-", "25"}]}], "&"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfit", "=", 
+       RowBox[{"NonlinearModelFit", "[", 
+        RowBox[{"data", ",", "ans0", ",", 
+         RowBox[{"{", "x0", "}"}], ",", "t"}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfitd", "=", 
+       RowBox[{"Transpose", "[", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"data", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+          RowBox[{
+           RowBox[{"Normal", "[", "cfit", "]"}], "/.", 
+           RowBox[{"t", "->", 
+            RowBox[{"data", "[", 
+             RowBox[{"[", 
+              RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
+      ";", "\n", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"i", "-", "25"}], ",", 
+        RowBox[{
+         RowBox[{"Total", "[", 
+          RowBox[{
+           RowBox[{"Abs", "[", 
+            RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], "]"}], "^", 
+           "2"}], "]"}], "/", 
+         RowBox[{"Length", "@", "data"}]}], ",", 
+        RowBox[{"AICcRes", "[", 
+         RowBox[{
+          RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], ",", "1"}], 
+         "]"}], ",", 
+        RowBox[{"1", "-", 
+         RowBox[{"EasyMatchT", "[", 
+          RowBox[{"data", ",", "cfitd", ",", 
+           RowBox[{"tmax", "-", "25", "+", "i"}], ",", 
+           RowBox[{"tmax", "+", "tmatchend"}]}], "]"}]}]}], "}"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "0", ",", "85"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.773460992372714*^9, 3.7734611839278383`*^9}, {
+   3.7734612281773167`*^9, 3.7734612675750628`*^9}, {3.7734613578076267`*^9, 
+   3.773461396564507*^9}, {3.773461449517186*^9, 3.773461583473967*^9}, {
+   3.77346165244177*^9, 3.7734616526007223`*^9}, {3.773461741087099*^9, 
+   3.773461796703034*^9}, {3.773462354898953*^9, 3.7734623555833397`*^9}, {
+   3.773462423058612*^9, 3.773462440862245*^9}, {3.773462554671124*^9, 
+   3.773462556669766*^9}, {3.7734626296469927`*^9, 3.773462649178252*^9}, {
+   3.77346287009074*^9, 3.773462873854763*^9}, {3.773462933239792*^9, 
+   3.773462933678555*^9}, {3.778391188518272*^9, 3.7783911948689833`*^9}, 
+   3.778391800015448*^9, {3.778935310835972*^9, 3.7789353109917316`*^9}, 
+   3.785049017415954*^9, 3.799114701289795*^9, {3.799114852707039*^9, 
+   3.799114852906251*^9}, 3.799115140715918*^9, 3.799121699707715*^9, 
+   3.801289327946663*^9},
+ CellLabel->
+  "In[109]:=",ExpressionUUID->"379d11d7-b809-4f50-8a18-243c0a1b25f6"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"tab\[Alpha]0n", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"data", "=", 
+       RowBox[{"Select", "[", 
+        RowBox[{"mysxscase22modeRD", ",", " ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", 
+           RowBox[{"tmax", "+", "i", "-", "25"}]}], "&"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfit", "=", 
+       RowBox[{"NonlinearModelFit", "[", 
+        RowBox[{"data", ",", "ans0n", ",", 
+         RowBox[{"{", "x0", "}"}], ",", "t"}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfitd", "=", 
+       RowBox[{"Transpose", "[", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"data", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+          RowBox[{
+           RowBox[{"Normal", "[", "cfit", "]"}], "/.", 
+           RowBox[{"t", "->", 
+            RowBox[{"data", "[", 
+             RowBox[{"[", 
+              RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
+      ";", "\n", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"i", "-", "25"}], ",", 
+        RowBox[{
+         RowBox[{"Total", "[", 
+          RowBox[{
+           RowBox[{"Abs", "[", 
+            RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], "]"}], "^", 
+           "2"}], "]"}], "/", 
+         RowBox[{"Length", "@", "data"}]}], ",", 
+        RowBox[{"AICcRes", "[", 
+         RowBox[{
+          RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], ",", "1"}], 
+         "]"}], ",", 
+        RowBox[{"1", "-", 
+         RowBox[{"EasyMatchT", "[", 
+          RowBox[{"data", ",", "cfitd", ",", 
+           RowBox[{"tmax", "-", "25", "+", "i"}], ",", 
+           RowBox[{"tmax", "+", "tmatchend"}]}], "]"}]}]}], "}"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "0", ",", "85"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.801289428211782*^9, 3.801289430816465*^9}},
+ CellLabel->
+  "In[110]:=",ExpressionUUID->"096f538b-abeb-48f8-8cbc-4cfb39106976"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"tab\[Alpha]0n2", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"data", "=", 
+       RowBox[{"Select", "[", 
+        RowBox[{"mysxscase22modeRD", ",", " ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", 
+           RowBox[{"tmax", "+", "i", "-", "25"}]}], "&"}]}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfit", "=", 
+       RowBox[{"NonlinearModelFit", "[", 
+        RowBox[{"data", ",", "ans0n2", ",", 
+         RowBox[{"{", 
+          RowBox[{"x0", ",", "x1"}], "}"}], ",", "t"}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfitd", "=", 
+       RowBox[{"Transpose", "[", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"data", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+          RowBox[{
+           RowBox[{"Normal", "[", "cfit", "]"}], "/.", 
+           RowBox[{"t", "->", 
+            RowBox[{"data", "[", 
+             RowBox[{"[", 
+              RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
+      ";", "\n", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"i", "-", "25"}], ",", 
+        RowBox[{
+         RowBox[{"Total", "[", 
+          RowBox[{
+           RowBox[{"Abs", "[", 
+            RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], "]"}], "^", 
+           "2"}], "]"}], "/", 
+         RowBox[{"Length", "@", "data"}]}], ",", 
+        RowBox[{"AICcRes", "[", 
+         RowBox[{
+          RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], ",", "2"}], 
+         "]"}], ",", 
+        RowBox[{"cfit", "[", "\"\<BestFitParameters\>\"", "]"}], ",", 
+        RowBox[{"1", "-", 
+         RowBox[{"EasyMatchT", "[", 
+          RowBox[{"data", ",", "cfitd", ",", 
+           RowBox[{"tmax", "-", "25", "+", "i"}], ",", 
+           RowBox[{"tmax", "+", "tmatchend"}]}], "]"}]}]}], "}"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "0", ",", "85"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.773460992372714*^9, 3.7734611839278383`*^9}, {
+   3.7734612281773167`*^9, 3.7734612675750628`*^9}, {3.7734613578076267`*^9, 
+   3.773461396564507*^9}, {3.773461449517186*^9, 3.773461583473967*^9}, {
+   3.77346165244177*^9, 3.7734616526007223`*^9}, {3.773461741087099*^9, 
+   3.7734617412445717`*^9}, {3.773462471962242*^9, 3.773462498496972*^9}, 
+   3.773462562052384*^9, {3.773462846318104*^9, 3.773462853096426*^9}, {
+   3.7734629393789387`*^9, 3.7734629397473383`*^9}, {3.7783911784568357`*^9, 
+   3.778391184985271*^9}, 3.778391797729473*^9, {3.7788379289942303`*^9, 
+   3.778837929595669*^9}, {3.778935308015832*^9, 3.778935308182416*^9}, 
+   3.78504901957512*^9, {3.799114674867481*^9, 3.79911470297793*^9}, {
+   3.799114851191978*^9, 3.799114851378161*^9}, 3.799115142149968*^9, 
+   3.80128952256278*^9, {3.801289647366823*^9, 3.80128964967168*^9}},
+ CellLabel->
+  "In[120]:=",ExpressionUUID->"c709c09f-c432-47c7-83fd-9e8527c8f460"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lgp", "=", 
+  RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TakeColumn", "[", 
-       RowBox[{"datapts", ",", 
+       RowBox[{"tab\[Alpha]0", ",", 
         RowBox[{"{", 
-         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
+         RowBox[{"1", ",", 
+          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"TakeColumn", "[", 
-       RowBox[{"datapts", ",", 
+       RowBox[{"tab\[Alpha]0n", ",", 
         RowBox[{"{", 
-         RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
-    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+         RowBox[{"1", ",", 
+          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
+      RowBox[{"TakeColumn", "[", 
+       RowBox[{"tab\[Alpha]0n2", ",", 
+        RowBox[{"{", 
+         RowBox[{"1", ",", 
+          RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], "}"}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"-", "25"}], ",", "50"}], "}"}], ",", "Automatic"}], "}"}]}],
+     ",", 
+    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
-       RowBox[{"{", 
+       RowBox[{"LineLegend", "[", 
         RowBox[{
-        "\"\<\!\(\*SubscriptBox[\(A\), \(0\)]\)\>\"", ",", 
-         "\"\<\!\(\*SubscriptBox[\(A\), \(1\)]\)\>\""}], "}"}], ",", 
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<n=0 (m=2)\>\"", ",", "\"\<n=0 (m=-2)\>\"", ",", 
+           "\"\<n=0 (m=2 & m=-2)\>\"", ",", "\"\<n=3\>\"", ",", "\"\<n=4\>\"",
+            ",", "\"\<n=5\>\"", ",", "\"\<n=6\>\"", ",", "\"\<n=7\>\""}], 
+          "}"}], ",", 
+         RowBox[{"LabelStyle", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
+         RowBox[{"Spacings", "\[Rule]", "0.2"}]}], "]"}], ",", 
        RowBox[{"{", 
-        RowBox[{".12", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
+        RowBox[{"0.8", ",", "0.66"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(t\), \(0\)]\)/M\>\"", ",", 
-       "\"\<\!\(\*SubscriptBox[\(A\), \(n\)]\)\>\""}], "}"}]}], ",", 
+       "\"\<\[ScriptCapitalM]\>\""}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
@@ -129071,112 +135161,217 @@ Cell[BoxData[
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"0.`", ",", "0.62`", ",", "0.53"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"1.`", ",", "0.`", ",", "0.38`"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"1.`", ",", "0.71`", ",", "0.`"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"0.46", ",", "0.", ",", "0.62"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"0.68", ",", "0.69", ",", "0."}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"0.62", ",", "0.", ",", "0.13"}], "]"}], ",", 
-       RowBox[{"RGBColor", "[", 
-        RowBox[{"1.", ",", "0.53", ",", "0.25"}], "]"}]}], "}"}]}], ",", 
-    RowBox[{"Epilog", "\[Rule]", 
-     RowBox[{"{", 
-      RowBox[{"{", 
-       RowBox[{"Text", "[", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"RGBColor", "[", 
+         RowBox[{"0.`", ",", "0.62`", ",", "0.53"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
         RowBox[{
-         RowBox[{"Style", "[", 
-          RowBox[{"\"\<SXS:0305\>\"", ",", "Black", ",", "12"}], "]"}], ",", 
-         RowBox[{"Scaled", "[", 
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"1.`", ",", "0.`", ",", "0.38`"}], "]"}], ",", 
+         RowBox[{"Dashing", "[", 
           RowBox[{"{", 
-           RowBox[{"0.13", ",", "0.1"}], "}"}], "]"}]}], "]"}], "}"}], 
-      "}"}]}], ",", 
-    RowBox[{"LabelStyle", "\[Rule]", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", "12", ",", 
-       RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
-    RowBox[{"GridLines", "->", 
-     RowBox[{"{", 
-      RowBox[{"Full", ",", "Full"}], "}"}]}], ",", 
+           RowBox[{"l1", ",", "s", ",", "l1", ",", "s", ",", "l1", ",", "s"}],
+            "}"}], "]"}]}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], ",", 
+         "DotDashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"1.`", ",", "0.71`", ",", "0.`"}], "]"}], ",", 
+         RowBox[{"Dashing", "[", 
+          RowBox[{"{", 
+           RowBox[{"l1", ",", "l1", ",", "s", ",", "l2", ",", "s"}], "}"}], 
+          "]"}]}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"0.46", ",", "0.", ",", "0.62"}], "]"}], ",", 
+         RowBox[{"Dashing", "[", 
+          RowBox[{"{", 
+           RowBox[{"l1", ",", "s", ",", "l1", ",", "s", ",", "l2", ",", "s"}],
+            "}"}], "]"}]}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"0.68", ",", "0.69", ",", "0."}], "]"}], ",", "Dashed"}], 
+        "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"0.62", ",", "0.", ",", "0.13"}], "]"}], ",", 
+         RowBox[{"Dashing", "[", 
+          RowBox[{"{", 
+           RowBox[{"l1", ",", "s", ",", "s", ",", "l2", ",", "s"}], "}"}], 
+          "]"}]}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"RGBColor", "[", 
+          RowBox[{"1.", ",", "0.53", ",", "0.25"}], "]"}], ",", "Dotted"}], 
+        "]"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
-          RowBox[{"\"\<SXS:0305\>\"", ",", "Black", ",", "12"}], "]"}], ",", 
+          RowBox[{"tag", ",", "Black", ",", "12"}], "]"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.13", ",", "0.1"}], "}"}], "]"}]}], "]"}], "}"}], 
       "}"}]}], ",", 
-    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
-    RowBox[{"PlotMarkers", "\[Rule]", 
-     RowBox[{"{", 
-      RowBox[{
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"markers", "[", 
-          RowBox[{"[", "1", "]"}], "]"}], ",", "16"}], "}"}], ",", 
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"markers", "[", 
-          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}], ",", 
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"markers", "[", 
-          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}], ",", 
-       RowBox[{"{", 
-        RowBox[{
-         RowBox[{"markers", "[", 
-          RowBox[{"[", "2", "]"}], "]"}], ",", "18"}], "}"}]}], "}"}]}]}], 
-   "]"}]}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGAQBmIQ/bst4Gef6hvHr4yBYDpV65nCNPU3jq/0FimDaKPr
-GjYgesKkI2CaabK4I4guM0kD0ybFYV4gOk3/BZj+dfltHojeIRTfDKJ5/1lO
-3Qik2Xb6zwbRaQoJ7/YB6VkPusD0Gee330B0VP1sxv1AurGqlgNEL3PK4wbR
-VtZ9PM+A9I3kXBEQncQ8Lw1EM5UsA9MC2tfLpmgA7SsLrgTRCTt8GkA0y+Q7
-YLqpNPfKRiCdtWLqNRAtsl+SbROQ3ivtBKa/hf6rANNLWStB9JXNJS0guui8
-fBuIZvJi43gMpGvCpMA0AMobkm4=
-  "],
+    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7734613044767237`*^9, 3.773461332374679*^9}, {
+   3.773461466110244*^9, 3.773461470623867*^9}, {3.773461680286512*^9, 
+   3.773461684286964*^9}, {3.773461745040203*^9, 3.773461802760359*^9}, {
+   3.7734629846848307`*^9, 3.773462998753442*^9}, {3.773463101761035*^9, 
+   3.773463142760619*^9}, {3.773463176663828*^9, 3.773463245838502*^9}, {
+   3.773463307535138*^9, 3.773463365586461*^9}, {3.773463460922678*^9, 
+   3.773463462092757*^9}, {3.773467510758847*^9, 3.7734676079545097`*^9}, {
+   3.7736428640966787`*^9, 3.773642865403668*^9}, {3.773644155797385*^9, 
+   3.773644171958435*^9}, 3.7736442177713757`*^9, {3.773644388192883*^9, 
+   3.773644388563861*^9}, {3.7736444912480516`*^9, 3.773644516191242*^9}, {
+   3.773644701082172*^9, 3.7736447407685127`*^9}, {3.7736451501436*^9, 
+   3.773645159477666*^9}, {3.7736452475203857`*^9, 3.773645247634829*^9}, {
+   3.7736458270312853`*^9, 3.773645836388389*^9}, {3.7736461484920273`*^9, 
+   3.773646149092774*^9}, {3.7736461858314953`*^9, 3.773646190677045*^9}, {
+   3.773986760106296*^9, 3.7739867617213097`*^9}, {3.773986814588974*^9, 
+   3.773986820131647*^9}, {3.773986918935803*^9, 3.7739869192285213`*^9}, {
+   3.7739869528793793`*^9, 3.773986969379004*^9}, {3.773987126290687*^9, 
+   3.773987144053624*^9}, {3.773987781542832*^9, 3.773987793655569*^9}, {
+   3.776511395151148*^9, 3.776511463744636*^9}, {3.7765115007783747`*^9, 
+   3.776511548289946*^9}, {3.7766700567476*^9, 3.776670057102552*^9}, {
+   3.776763029853405*^9, 3.776763039197775*^9}, {3.776763081443668*^9, 
+   3.776763201182691*^9}, 3.778241165219446*^9, 3.77824120069975*^9, {
+   3.778241245335671*^9, 3.778241253662249*^9}, {3.7783909457394123`*^9, 
+   3.778390999898707*^9}, {3.778391218963851*^9, 3.77839124243533*^9}, {
+   3.77855571489474*^9, 3.778555720222189*^9}, {3.778555755137555*^9, 
+   3.7785557565516644`*^9}, {3.778557969998365*^9, 3.7785579774932137`*^9}, {
+   3.7785584507946777`*^9, 3.7785586366126547`*^9}, {3.77855873645478*^9, 
+   3.778558773808015*^9}, {3.778566016519109*^9, 3.778566076752542*^9}, {
+   3.778913118323444*^9, 3.7789131499650106`*^9}, {3.7790142050597982`*^9, 
+   3.7790142656842957`*^9}, {3.779014329621685*^9, 3.779014343085764*^9}, {
+   3.779014411736356*^9, 3.7790144118554697`*^9}, {3.779438122179558*^9, 
+   3.779438163846237*^9}, {3.7794382600389633`*^9, 3.779438417642955*^9}, {
+   3.7794384986479483`*^9, 3.779438530765313*^9}, {3.779438593406919*^9, 
+   3.7794386208889847`*^9}, {3.779438708390155*^9, 3.779438711461022*^9}, 
+   3.779441652973299*^9, {3.780061918759651*^9, 3.780061918886365*^9}, {
+   3.780062002517549*^9, 3.7800620044954023`*^9}, {3.780062041031516*^9, 
+   3.780062120100862*^9}, {3.7800621734754143`*^9, 3.7800621885003633`*^9}, {
+   3.7800622203493*^9, 3.780062245571018*^9}, {3.80128945573715*^9, 
+   3.801289494187789*^9}, {3.801289655138236*^9, 3.801289676508375*^9}, {
+   3.8012897251438913`*^9, 3.80128974332124*^9}},
  CellLabel->
-  "In[891]:=",ExpressionUUID->"908576b9-be04-4c0c-ae2e-2db105b60e34"],
+  "In[129]:=",ExpressionUUID->"7c923c5d-81ec-423d-bc73-a3a57b798e01"],
 
 Cell[BoxData[
  TagBox[
-  GraphicsBox[{{{}, {
-      {RGBColor[0., 0.62, 0.53], AbsolutePointSize[6], AbsoluteThickness[1.6],
-        GeometricTransformationBox[InsetBox[
-         StyleBox["\<\"\[FilledCircle]\"\>",
-          StripOnInput->False,
-          FontSize->16], {0., 0.}], {{{0., 0.8533096156039384}}, {{3., 
-        0.9067129518887781}}, {{5., 0.9464043911231649}}, {{8., 
-        0.9578550368870552}}, {{12., 0.9722871108563307}}, {{15., 
-        0.976925857578058}}, {{20., 0.9802556646832357}}, {{30., 
-        0.9747329053643625}}, {{25., 0.9774490237468211}}, {{28., 
-        0.9754918760858188}}, {{22., 0.9793413903649073}}}]}, 
-      {RGBColor[1., 0., 0.38], AbsolutePointSize[6], AbsoluteThickness[1.6], 
-       GeometricTransformationBox[InsetBox[
-         StyleBox["\<\"\[FilledSquare]\"\>",
-          StripOnInput->False,
-          FontSize->18], {0., 0.}], {{{0., 0.8527231292352798}}, {{3., 
-        1.1311559809636111`}}, {{5., 1.674794780276855}}, {{8., 
-        2.3648112711476323`}}, {{12., 3.1727976854545226`}}, {{15., 
-        3.6395535137624857`}}, {{20., 3.964905544488415}}, {{30., 
-        4.2627594284623065`}}, {{25., 3.7891556953621635`}}, {{28., 
-        3.8895187432001688`}}, {{22., 
-        3.9187253060569334`}}}]}, {}}, {}, {}, {}, {}}, InsetBox[
+  GraphicsBox[{{{}, {{{}, {}, 
+       {RGBColor[0., 0.62, 0.53], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw1zg1M00cYwOE/IJOVOEltXQtdKV2FtmKDfEOVvhQKbaFAyFLDBsyxtSsy
+Kquj26yQhhDAbgO0gVVgAYOxEnW6WdiSTXsgDNTFJRrGALeEukUzC2HKPkTd
+V3zvksvlyS/33sXV7C83hTIMY/xv/38+XVlEq1b7P7Jd9T91JnFtuKXb/9o1
+dAbJ3j5WP/AtdTpx5589SIao04jMru1ZnKX3U4lI7oxjDlxBp5A1Z4fsmHsa
+nUxkwTY3q2EKvZMoqyOPX6+7jE4i5xensnWSCbSCtL/f+bLxVepE8o0BOq9+
+OomWE8NoSUOXkL4nJcMqV57X/B06nhxOa96gH7yJlpCzrawQ7q4f0GKSmHfP
+5276ES0ifbeCLynPLaEFpPbIHr9v5Wc0jyykhG8abbqL5pA7nOnvLVVBdBQ5
+EzCyzhWuoiNIo6j0rtd1H82Q0L72kea/1tCr/oi9W1lhR/+kneENznTc3rNO
+u0oinOUP6J/QDgo+eTs5jSE4H3ZPVs51L4ago+BDc/KCzBOG5sArwYf1HfvC
+0Tyoi3EeCy3fiBbA1yfKnowbnkWLoMfpYs9WRqLFYMm0tGiaN6ElEGHpte34
+bDM6HkZBPGxaj0JLoajL80+RhI2Ww5HTNcFE4xZ0InhvxPRGdXPQClgOUc2z
+b3DRSZBTwn2kETyP3gnVm9/j9lp56GQ4PPW4dHyGj06B81tVAzZ5DDoVAlLR
+xga3AJ0GrQ/nowfDhOh0qD1aXtpyMBadAabtaz9xHCJ0JhQc4n7Bz4pDZ8GS
+OI478YA6G/aaMthtJ8VoJQjXP8idKn4RvQv2qfnjMwHq3VAxoiqwmiXoHEgZ
+urTDOEetguAFo/3z9G1oAHZFj+9RG9oJ8PhC0/L1a7Tnwt+nv9K9wIrHnguf
+DDkvObRoRg0nJvoDQ520q+He/AzLfpv2PKhcnS/n6hOw58Fkle3UwkU0kw9f
+brlc36SQYs+HfkVZs6sFzWhgMfKBMHaEdg0kvGN/y3qG9gIQeKrDx07RXgAm
+r6Pw4hjthdCuPpmjDNBeCHprl6kmXoZdC97GZzwfv4l2aiF6evaQz067Dpjo
+2KUKJe06KOv79Y/JOTpfD69H/G4Npf916iE11wy1VbQXwbDGZ1t20F4E/qT7
+DvMd2othLcTXaOmn84shX1PX/YZWjt0ArR7Pu77n0E4DSEtLVmQr9H4J/HaA
+98vNKwnkX89AkLg=
+         "]]}, 
+       {RGBColor[1., 0., 0.38], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}], 
+        LineBox[CompressedData["
+1:eJw90glQTHEcwPHnaEqKpChWo6xV25a2Y7dr7a/stqlcTejaUUjFEJVrQ5sQ
+YWeaKffUjA42MkUlard/m6N1TUVuygpTM7JsaJhxjf/Pm3nz5jPf//83//fm
+Oa/KiE4ZzTDM8j/33+e/K4BkdWrSHlVcbv1nf+ItF/tlD6GFZNaKmsncoHpq
+AcmPmm7PO4T2IwPNSdX1r9C+RPNdYRwlaKD2IZUGpwnRRWhvYmbJ0/YZ0Xwi
+U64ffh/TSO1FEttnj6vQoD2Ju5PP8Tj3K9Q8kmlvKIwrRXNJrNvHwV9Tmqhd
+SZbK5/iFEjSHHBV87GqadpWaTTwt5qRnVKFdyOvHKx9ZBVyjnkkqNU8zbnWj
+WYTzrfPFk6xmagcS5iuK28VqobYj7eOZ4L67aBuyZqmyfGSvhtqCiKscHFMl
+WmqGnDtmrFxn2UptbG083HN/pAfNMPapYweHowl28emtHM7BFjQDFm2m3klz
+2nA+aFSmZnUR2gayJ8YcYX6g7WD77v74xGQdnh9W7+gUvtGhWbDk4GPzyU7t
++P7wudciwyET7QKFbae0V7VoNii87Z70jLmO3xcmrl1seAloV8jN47i/y0Zz
+YWiuM6ukDM0DD855VYgO7QmfnLWBD3rRXjDj3q4m7Xc0H/bLqtzO2N7A/wfK
+AnODEthoH6i0rgms80D7wryBBFExH+0H1YbuqQ1CtAAixyfldkrRQtBb6803
+xaL94Xw1+4rbGnQAmBlr2TuT0YHQFbXMMv3/+iBQ5Um8UxLRwbDZL9lasQ0t
+ggJWTuqKE+h5EJ91WRp7Bi0GVYH/WlkBGuDNV4MDP41aCRBj2Kk+uxV7CNQ9
+y/nUcQ17CHiYbWHzRrCHQmZxEVPUjz0UQvXvHX8dwD4fsss7FC14fuV8KDEv
+/bChDbsE+BFsWdjRm7RL4EbVj0ae5S3apSDy8syT78EuBcX6SSKzfNwfBiPh
+Xw7/zMT5YbCj/IJprhPul0HZyxplfKqedhmYbO/sSTFQM+FQ2iX4zFLT9cpw
+4Cb0pbnIcf4CSNfVWsutsC8Anm5cuVB3j/YISBI/VD+TdNMeAdxZX97mX+qi
+PRKKv8VWXF92m/ZI2G7rWBe/D+dHgdo1Jf+5C+6PgtqvVvZL9f20L4RtJzu4
+MR9MtC8E7sb2i9Kfw7Qvggj5c6F8qK/1NxwruIE=
+         "]]}, 
+       {RGBColor[0., 0.73, 1.], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}], 
+        LineBox[CompressedData["
+1:eJw1zQ1QzGkcwPF/KZXtZW1bNrvY0su2wtreaJNfZbctLNXkSlZOEoWdvE3R
+XQyD0XVY1oSkXU26pk4auRl37GNSZGmuJGYxKSJM2dGiF3Uv4/c8M88885nv
+/H6P9wZNUpYtwzCr/7v/v9/PIvK8ok4o63xg/O6FpJPTIZlT9xAdTv6puB5e
+NrkNHUbyr9u/LP6b9lAyZZ9jY7YDdQgp4X/4c/QPEzqYPDqQOai3u4+Wkp02
+AdyGoHvoBeTojeqsC7oWtIT05fFzxx42o+eRsHWbXdS7aA8iecp+of8wnReT
+rl0jiZ3b6P8iclE92nfjcTvan6jBKPa69RjtS44XZlpT1prRPqS33yKpqexG
+C8kJc4tBd68XLSByI6em1+0Nmkdi02Zdza5+h+YSQ4a9g8upATSbSAM/vdf2
+W9COxHso9QBfOoRmiGvUnpy3VZ/RFmPaxvXnGuKGaWdYEfF2MzzGaF/SdVbZ
+etptgnaYb+5WlJ9nCO6HcT9Tx3u5LZoNkVms+vTJdmgu9KjetOY8t0fzYLd3
+hlP2XQe0ANxyf2ksaHFCC6GLlGtqn7LQPlCxm3Nr+JsL2hee1l4zBXux0f6g
+qNU7zYycihaBRfmTlJXNQYuh5+ce0chZd3QQRP5YVTrSyUXPg2T1zq2uPE+0
+BAa04ubpmdPQC6BJqzN/aeShpbBaH2HUsqejg6EjJPfr+A4+OgQ+tukGZS8E
+6FDY7vBEM6SaiQ4D2/zWBObuLHQ43J6oNu7QC9ELwa4mgO+X4Y1eBIaSHGui
+lw86AibpG1caTNQyEA1+uRyeNxsdCVtr+kI77H3Ri8F9+2jKpCPUUaDwiJBc
+tFIvgWSO8yPVKj80gKCqvd75Ano/QIGHp5+wm/ZoOFR6SpMg8MceDe0hq7jl
+6WgmBhQwEX24kvYYCJZp5r79RnssuBerZx/fFIA9FmY0/Zqb+AzNLIVS1knD
+JqUI+1I4wbOuPKdFM3JIEaSGqn6nXQ5JPeao+iu0K2Da7TsC0zXaFfBqS7/V
+s432OPgtrvqyZZz2OCgJc12TvDgQuxK6kiqP6vag9yshbcuZdYVFtMdDWnJM
+WZaM9ngY8G0uZLfT/QlwUn048PUxuj8Bis6vEajLaF8GdayC/JtcOr8MioQa
++aVndP9yOOg6xiuuEmNfDoPrP/3V8BnNrACF83yb9FTaV8DNkh8KD86h8yp4
+pxjYO+IoIv8CQuqY9g==
+         "]]}}, {
+       {RGBColor[0., 0.62, 0.53], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6]}, 
+       {RGBColor[1., 0., 0.38], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]}, 
+       {RGBColor[0., 0.73, 1.], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}}, {
+       {RGBColor[0., 0.62, 0.53], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6]}, 
+       {RGBColor[1., 0., 0.38], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]}, 
+       {RGBColor[0., 0.73, 1.], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{0, Small, Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}, {
+       {RGBColor[0., 0.62, 0.53], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6]}, 
+       {RGBColor[1., 0., 0.38], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]}, 
+       {RGBColor[0., 0.73, 1.], PointSize[0.007333333333333334], 
+        AbsoluteThickness[1.6], 
+        Dashing[{
+         0, Small, Small, Small}]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, 
+    InsetBox[
      TemplateBox[{
-      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(0\\)]\\)\"",
-       "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(1\\)]\\)\""},
-      "PointLegend",
+      "\"n=0 (m=2)\"","\"n=0 (m=-2)\"","\"n=0 (m=2 & m=-2)\"","\"n=3\"",
+       "\"n=4\"","\"n=5\"","\"n=6\"","\"n=7\""},
+      "LineLegend",
       DisplayFunction->(FormBox[
         StyleBox[
          StyleBox[
@@ -129185,65 +135380,79 @@ Cell[BoxData[
             GridBox[{{
                TagBox[
                 GridBox[{{
-                   GraphicsBox[{{}, {
+                   GraphicsBox[{{
                     Directive[
                     EdgeForm[
                     Directive[
                     Opacity[0.3], 
                     GrayLevel[0]]], 
-                    PointSize[0.25666666666666665`], 
+                    PointSize[0.5], 
                     AbsoluteThickness[1.6], 
                     RGBColor[0., 0.62, 0.53]], {
-                    InsetBox[
-                    FormBox[
-                    StyleBox["\"\[FilledCircle]\"", 
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
                     Directive[
                     EdgeForm[
                     Directive[
                     Opacity[0.3], 
                     GrayLevel[0]]], 
-                    PointSize[0.25666666666666665`], 
+                    PointSize[0.5], 
                     AbsoluteThickness[1.6], 
-                    RGBColor[0., 0.62, 0.53]], FontSize -> 16, Plain, 
-                    StripOnInput -> False], TraditionalForm], 
-                    NCache[
-                    Scaled[{
-                    Rational[1, 2], 
-                    Rational[1, 2]}], 
-                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
-                    ImageSize -> {18, 16}, PlotRangePadding -> None, 
+                    RGBColor[0., 0.62, 0.53]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                     ImagePadding -> Automatic, 
-                    BaselinePosition -> (Scaled[0.2] -> Baseline)], #}, {
-                   GraphicsBox[{{}, {
+                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
+                    Baseline)], #}, {
+                   GraphicsBox[{{
                     Directive[
                     EdgeForm[
                     Directive[
                     Opacity[0.3], 
                     GrayLevel[0]]], 
-                    PointSize[0.25666666666666665`], 
+                    PointSize[0.5], 
                     AbsoluteThickness[1.6], 
-                    RGBColor[1., 0., 0.38]], {
-                    InsetBox[
-                    FormBox[
-                    StyleBox["\"\[FilledSquare]\"", 
+                    RGBColor[1., 0., 0.38], 
+                    Dashing[{0.225, 0.1125, 0.225, 0.1125, 0.225, 0.1125}]], {
+                    
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
                     Directive[
                     EdgeForm[
                     Directive[
                     Opacity[0.3], 
                     GrayLevel[0]]], 
-                    PointSize[0.25666666666666665`], 
+                    PointSize[0.5], 
                     AbsoluteThickness[1.6], 
-                    RGBColor[1., 0., 0.38]], FontSize -> 18, Plain, 
-                    StripOnInput -> False], TraditionalForm], 
-                    NCache[
-                    Scaled[{
-                    Rational[1, 2], 
-                    Rational[1, 2]}], 
-                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
-                    ImageSize -> {18, 18}, PlotRangePadding -> None, 
+                    RGBColor[1., 0., 0.38], 
+                    
+                    Dashing[{0.225, 0.1125, 0.225, 0.1125, 0.225, 
+                    0.1125}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                     ImagePadding -> Automatic, 
-                    BaselinePosition -> (Scaled[0.23333333333333334`] -> 
-                    Baseline)], #2}}, 
+                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
+                    Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0., 0.73, 1.], 
+                    Dashing[{0, Small, Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0., 0.73, 1.], 
+                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
+                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
+                    Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
@@ -129251,27 +135460,25 @@ Cell[BoxData[
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                   GridBoxSpacings -> {
-                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+                  "Columns" -> {{0.2}}, "Rows" -> {{0.2}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
-             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
-         FontFamily -> "Arial", FontSize -> 12, 
-          GrayLevel[0], FontWeight -> Bold, FontFamily -> "Arial"}, 
-         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
-      
+         FontSize -> 12, FontFamily -> "Arial"}, Background -> Automatic, 
+         StripOnInput -> False], TraditionalForm]& ),
       Editable->True,
-      InterpretationFunction:>(RowBox[{"PointLegend", "[", 
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                RowBox[{"Directive", "[", 
                  RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
@@ -129289,9 +135496,8 @@ Cell[BoxData[
                     RGBColor[0., 0.41333333333333333`, 0.3533333333333334], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.`", ",", "0.62`", ",", "0.53`"}], "]"}], 
@@ -129319,7 +135525,7 @@ Cell[BoxData[
                     False]}], "]"}], ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
@@ -129337,9 +135543,8 @@ Cell[BoxData[
                     RGBColor[0.6666666666666667, 0., 0.25333333333333335`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"1.`", ",", "0.`", ",", "0.38`"}], "]"}], 
@@ -129364,340 +135569,1334 @@ Cell[BoxData[
                     "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                     Automatic, Method -> "Preemptive"], 
                     RGBColor[1., 0., 0.38], Editable -> False, Selectable -> 
-                    False]}], "]"}]}], "}"}], ",", 
-           RowBox[{"{", 
-             RowBox[{#, ",", #2}], "}"}], ",", 
-           RowBox[{"LegendMarkers", "\[Rule]", 
-             RowBox[{"{", 
-               RowBox[{
-                 RowBox[{"{", 
-                   RowBox[{"\"\[FilledCircle]\"", ",", "16"}], "}"}], ",", 
-                 RowBox[{"{", 
-                   RowBox[{"\"\[FilledSquare]\"", ",", "18"}], "}"}]}], 
-               "}"}]}], ",", 
-           RowBox[{"Joined", "\[Rule]", 
-             RowBox[{"{", 
-               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
-           RowBox[{"LabelStyle", "\[Rule]", 
-             RowBox[{"{", 
-               RowBox[{
-                 RowBox[{"FontFamily", "\[Rule]", "\"Arial\""}], ",", "12", 
-                 ",", 
-                 InterpretationBox[
-                  ButtonBox[
-                   TooltipBox[
+                    False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    
+                    RowBox[{
+                    "0.025`", ",", "0.0125`", ",", "0.025`", ",", "0.0125`", 
+                    ",", "0.025`", ",", "0.0125`"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
                     GraphicsBox[{{
                     GrayLevel[0], 
                     RectangleBox[{0, 0}]}, {
                     GrayLevel[0], 
                     RectangleBox[{1, -1}]}, {
-                    GrayLevel[0], 
+                    RGBColor[0., 0.73, 1.], 
                     RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                     "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
-                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
-                    PlotRangePadding -> None, ImageSize -> 
+                    FrameStyle -> 
+                    RGBColor[0., 0.4866666666666667, 0.6666666666666667], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 
-                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
-                    Magnification])}]], 
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
                     StyleBox[
-                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
-                    False]], Appearance -> None, BaseStyle -> {}, 
-                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
-                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.`", ",", "0.73`", ",", "1.`"}], "]"}], 
+                    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 = 
-                    GrayLevel[0]; 
+                    RGBColor[0., 0.73, 1.]; 
                     FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                     MathLink`CallFrontEnd[
                     FrontEnd`AttachCell[Typeset`box$, 
-                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    FrontEndResource["RGBColorValueSelector"], {
                     0, {Left, Bottom}}, {Left, Top}, 
                     "ClosingActions" -> {
                     "SelectionDeparture", "ParentChanged", 
                     "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
-                   Automatic, Method -> "Preemptive"], 
-                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
-                 "Bold"}], "}"}]}], ",", 
-           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
-     Scaled[{0.12, 0.8}], ImageScaled[{0.5, 0.5}],
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0., 0.73, 1.], Editable -> False, Selectable -> 
+                    False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
+                    "}"}], "]"}]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
+               ",", #8}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"FontSize", "\[Rule]", "12"}], "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
+           RowBox[{"Spacings", "\[Rule]", "0.2`"}]}], "]"}]& )], 
+     Scaled[{0.8, 0.66}], ImageScaled[{0.5, 0.5}],
      BaseStyle->{FontSize -> Larger},
      FormatType->StandardForm]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
-   AxesOrigin->{0, 0},
+   AxesOrigin->{0, -14.528751472592255`},
    DisplayFunction->Identity,
    Epilog->{{
       InsetBox[
        FormBox[
-        StyleBox["\"SXS:0305\"", 
+        StyleBox["\"SXS:BBH:0305\"", 
          GrayLevel[0], 12, StripOnInput -> False], TraditionalForm], 
        Scaled[{0.13, 0.1}]]}},
    Frame->{{True, True}, {True, True}},
    FrameLabel->{{
-      FormBox[
-      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(n\\)]\\)\"", TraditionalForm], 
-      None}, {
+      FormBox["\"\[ScriptCapitalM]\"", TraditionalForm], None}, {
       FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)/M\"", TraditionalForm], 
       None}},
-   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+   FrameTicks->FrontEndValueCache[{{
+       Charting`ScaledTicks[{Log, Exp}], 
+       Charting`ScaledFrameTicks[{Log, Exp}]}, {
+      Automatic, Automatic}}, {{{{-13.815510557964274`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+           TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+           TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.210340371976182, 
+         FormBox[
+          TemplateBox[{"10", 
+            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
+           TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TagBox[
+           InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
+           NumberForm[#, {
+             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox["1", TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-16.11809565095832, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-15.01948336229021, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.73180128983843, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-13.9208710736221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.02375108873622, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.86960040890896, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.41431317630212, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.721165995742174, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.567015315914915, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.433483923290392, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.315700887634009, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.111728083308073, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.824046010856292, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.418580902748128, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.264430222920869, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.013115794639964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.70805020110221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}, {{-13.815510557964274`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.210340371976182, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-16.11809565095832, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-15.01948336229021, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.73180128983843, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-13.9208710736221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-12.02375108873622, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.86960040890896, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.41431317630212, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.903487552536127, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.721165995742174, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.567015315914915, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.433483923290392, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-9.315700887634009, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.517193191416238, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-8.111728083308073, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.824046010856292, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.600902459542082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.418580902748128, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.264430222920869, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-7.013115794639964, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.791759469228055, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.302585092994046, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.70805020110221, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.995732273553991, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {Automatic, Automatic}}],
    GridLines->
     FrontEndValueCache[{
      Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
-      Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, {{{
-       0., 
+      Charting`ScaledTickValues[{Log, Exp}][#, #2, {6, 6}]& }, {{{-20., 
         Directive[
-         AbsoluteThickness[0.1]]}, {10., 
+         AbsoluteThickness[0.1]]}, {0., 
         Directive[
          AbsoluteThickness[0.1]]}, {20., 
         Directive[
-         AbsoluteThickness[0.1]]}, {30., 
+         AbsoluteThickness[0.1]]}, {40., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-40., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-35., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-30., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-25., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-15., 
         Directive[
          AbsoluteThickness[0.1]]}, {-10., 
         Directive[
-         AbsoluteThickness[0.1]]}, {-8., 
+         AbsoluteThickness[0.1]]}, {-5., 
         Directive[
-         AbsoluteThickness[0.1]]}, {-6., 
+         AbsoluteThickness[0.1]]}, {5., 
         Directive[
-         AbsoluteThickness[0.1]]}, {-4., 
+         AbsoluteThickness[0.1]]}, {10., 
         Directive[
-         AbsoluteThickness[0.1]]}, {-2., 
+         AbsoluteThickness[0.1]]}, {15., 
         Directive[
-         AbsoluteThickness[0.1]]}, {2., 
+         AbsoluteThickness[0.1]]}, {25., 
         Directive[
-         AbsoluteThickness[0.1]]}, {4., 
+         AbsoluteThickness[0.1]]}, {30., 
         Directive[
-         AbsoluteThickness[0.1]]}, {6., 
+         AbsoluteThickness[0.1]]}, {35., 
         Directive[
-         AbsoluteThickness[0.1]]}, {8., 
+         AbsoluteThickness[0.1]]}, {45., 
         Directive[
-         AbsoluteThickness[0.1]]}, {12., 
+         AbsoluteThickness[0.1]]}, {50., 
         Directive[
-         AbsoluteThickness[0.1]]}, {14., 
+         AbsoluteThickness[0.1]]}, {55., 
         Directive[
-         AbsoluteThickness[0.1]]}, {16., 
+         AbsoluteThickness[0.1]]}, {60., 
         Directive[
-         AbsoluteThickness[0.1]]}, {18., 
+         AbsoluteThickness[0.1]]}}, {{-13.815510557964274`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {22., 
+         AbsoluteThickness[0.1]]}, {-11.512925464970229`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {24., 
+         AbsoluteThickness[0.1]]}, {-9.210340371976182, 
         Directive[
-         AbsoluteThickness[0.1]]}, {26., 
+         AbsoluteThickness[0.1]]}, {-6.907755278982137, 
         Directive[
-         AbsoluteThickness[0.1]]}, {28., 
+         AbsoluteThickness[0.1]]}, {-4.605170185988091, 
         Directive[
-         AbsoluteThickness[0.1]]}, {32., 
+         AbsoluteThickness[0.1]]}, {-2.3025850929940455`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {34., 
+         AbsoluteThickness[0.1]]}, {0., 
         Directive[
-         AbsoluteThickness[0.1]]}, {36., 
+         AbsoluteThickness[0.1]]}, {-16.11809565095832, 
         Directive[
-         AbsoluteThickness[0.1]]}, {38., 
+         AbsoluteThickness[0.1]]}, {-15.424948470398375`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {40., 
+         AbsoluteThickness[0.1]]}, {-15.01948336229021, 
         Directive[
-         AbsoluteThickness[0.1]]}}, {{0., 
+         AbsoluteThickness[0.1]]}, {-14.73180128983843, 
         Directive[
-         AbsoluteThickness[0.1]]}, {1., 
+         AbsoluteThickness[0.1]]}, {-14.508657738524219`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {2., 
+         AbsoluteThickness[0.1]]}, {-14.326336181730264`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {3., 
+         AbsoluteThickness[0.1]]}, {-14.172185501903007`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {4., 
+         AbsoluteThickness[0.1]]}, {-14.038654109278484`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {-1., 
+         AbsoluteThickness[0.1]]}, {-13.9208710736221, 
         Directive[
-         AbsoluteThickness[0.1]]}, {-0.8, 
+         AbsoluteThickness[0.1]]}, {-13.122363377404328`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {-0.6, 
+         AbsoluteThickness[0.1]]}, {-12.716898269296165`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {-0.4, 
+         AbsoluteThickness[0.1]]}, {-12.429216196844383`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {-0.2, 
+         AbsoluteThickness[0.1]]}, {-12.206072645530174`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {0.2, 
+         AbsoluteThickness[0.1]]}, {-12.02375108873622, 
         Directive[
-         AbsoluteThickness[0.1]]}, {0.4, 
+         AbsoluteThickness[0.1]]}, {-11.86960040890896, 
         Directive[
-         AbsoluteThickness[0.1]]}, {0.6, 
+         AbsoluteThickness[0.1]]}, {-11.736069016284437`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {0.8, 
+         AbsoluteThickness[0.1]]}, {-11.618285980628055`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {1.2, 
+         AbsoluteThickness[0.1]]}, {-10.819778284410283`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {1.4, 
+         AbsoluteThickness[0.1]]}, {-10.41431317630212, 
         Directive[
-         AbsoluteThickness[0.1]]}, {1.6, 
+         AbsoluteThickness[0.1]]}, {-10.126631103850338`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {1.8, 
+         AbsoluteThickness[0.1]]}, {-9.903487552536127, 
         Directive[
-         AbsoluteThickness[0.1]]}, {2.2, 
+         AbsoluteThickness[0.1]]}, {-9.721165995742174, 
         Directive[
-         AbsoluteThickness[0.1]]}, {2.4, 
+         AbsoluteThickness[0.1]]}, {-9.567015315914915, 
         Directive[
-         AbsoluteThickness[0.1]]}, {2.6, 
+         AbsoluteThickness[0.1]]}, {-9.433483923290392, 
         Directive[
-         AbsoluteThickness[0.1]]}, {2.8, 
+         AbsoluteThickness[0.1]]}, {-9.315700887634009, 
         Directive[
-         AbsoluteThickness[0.1]]}, {3.2, 
+         AbsoluteThickness[0.1]]}, {-8.517193191416238, 
         Directive[
-         AbsoluteThickness[0.1]]}, {3.4, 
+         AbsoluteThickness[0.1]]}, {-8.111728083308073, 
         Directive[
-         AbsoluteThickness[0.1]]}, {3.6, 
+         AbsoluteThickness[0.1]]}, {-7.824046010856292, 
         Directive[
-         AbsoluteThickness[0.1]]}, {3.8, 
+         AbsoluteThickness[0.1]]}, {-7.600902459542082, 
         Directive[
-         AbsoluteThickness[0.1]]}, {4.2, 
+         AbsoluteThickness[0.1]]}, {-7.418580902748128, 
         Directive[
-         AbsoluteThickness[0.1]]}, {4.4, 
+         AbsoluteThickness[0.1]]}, {-7.264430222920869, 
         Directive[
-         AbsoluteThickness[0.1]]}, {4.6, 
+         AbsoluteThickness[0.1]]}, {-7.1308988302963465`, 
         Directive[
-         AbsoluteThickness[0.1]]}, {4.8, 
+         AbsoluteThickness[0.1]]}, {-7.013115794639964, 
         Directive[
-         AbsoluteThickness[0.1]]}, {5., 
+         AbsoluteThickness[0.1]]}, {-6.214608098422191, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-5.809142990314028, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-5.521460917862246, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-5.298317366548036, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-5.115995809754082, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-4.961845129926823, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-4.8283137373023015`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-4.710530701645918, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-3.912023005428146, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-3.506557897319982, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-3.2188758248682006`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2.995732273553991, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2.8134107167600364`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2.659260036932778, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2.5257286443082556`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-2.4079456086518722`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-1.6094379124341003`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-1.2039728043259361`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.916290731874155, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.6931471805599453, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.5108256237659907, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.35667494393873245`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.2231435513142097, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.10536051565782628`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.6931471805599453, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.0986122886681098`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.3862943611198906`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.6094379124341003`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.791759469228055, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.9459101490553132`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.0794415416798357`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.1972245773362196`, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.302585092994046, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.70805020110221, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.995732273553991, 
         Directive[
          AbsoluteThickness[0.1]]}}}],
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
-   ImagePadding->All,
    ImageSize->Large,
    LabelStyle->{FontFamily -> "Arial", 12, 
      GrayLevel[0], Bold},
-   Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
-         (Identity[#]& )[
+         (Exp[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
-         (Identity[#]& )[
+         (Exp[#]& )[
           Part[#, 2]]}& )}},
-   PlotRange->{{0, 30.}, {0, 4.2627594284623065`}},
+   PlotRange->{{-25, 50}, {-14.528751472592255`, -0.07673397118725393}},
    PlotRangeClipping->True,
-   PlotRangePadding->{{
-      Scaled[0.02], 
-      Scaled[0.02]}, {
+   PlotRangePadding->{{0, 0}, {
       Scaled[0.02], 
       Scaled[0.05]}},
-   Ticks->{Automatic, Automatic}],
+   Ticks->FrontEndValueCache[{Automatic, 
+      Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-13.815510557964274`, 
+        FormBox[
+         TemplateBox[{"10", 
+           RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+         TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
+        FormBox[
+         TemplateBox[{"10", 
+           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+         TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
+        FormBox[
+         TemplateBox[{"10", 
+           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
+         TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-6.907755278982137, 
+        FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
+        FormBox[
+         TagBox[
+          InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
+          NumberForm[#, {
+            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
+        FormBox[
+         TagBox[
+          InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
+          NumberForm[#, {
+            DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0., 
+        FormBox["1", TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-15.01948336229021, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-14.73180128983843, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-13.9208710736221, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-12.02375108873622, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-11.86960040890896, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-10.41431317630212, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.903487552536127, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.721165995742174, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.567015315914915, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.433483923290392, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-9.315700887634009, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-8.517193191416238, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-8.111728083308073, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.824046010856292, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.600902459542082, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.418580902748128, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.264430222920869, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-7.013115794639964, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-6.214608098422191, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5.809142990314028, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5.521460917862246, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5.298317366548036, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-5.115995809754082, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.961845129926823, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-4.710530701645918, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-3.912023005428146, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-3.506557897319982, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.995732273553991, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.659260036932778, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.916290731874155, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.791759469228055, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.302585092994046, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.70805020110221, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.995732273553991, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}]],
   InterpretTemplate[Legended[
-    Graphics[{{}, {{{
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.007333333333333334], 
           AbsoluteThickness[1.6], 
-          RGBColor[0., 0.62, 0.53], 
-          AbsolutePointSize[6]], 
-         GeometricTransformation[
-          Inset[
-           Style["\[FilledCircle]", FontSize -> 16], {0., 0.}], {{{0., 
-          0.8533096156039384}}, {{3., 0.9067129518887781}}, {{5., 
-          0.9464043911231649}}, {{8., 0.9578550368870552}}, {{12., 
-          0.9722871108563307}}, {{15., 0.976925857578058}}, {{20., 
-          0.9802556646832357}}, {{30., 0.9747329053643625}}, {{25., 
-          0.9774490237468211}}, {{28., 0.9754918760858188}}, {{22., 
-          0.9793413903649073}}}]}, {
+          RGBColor[0., 0.62, 0.53]], 
+         Line[CompressedData["
+1:eJw1zg1M00cYwOE/IJOVOEltXQtdKV2FtmKDfEOVvhQKbaFAyFLDBsyxtSsy
+Kquj26yQhhDAbgO0gVVgAYOxEnW6WdiSTXsgDNTFJRrGALeEukUzC2HKPkTd
+V3zvksvlyS/33sXV7C83hTIMY/xv/38+XVlEq1b7P7Jd9T91JnFtuKXb/9o1
+dAbJ3j5WP/AtdTpx5589SIao04jMru1ZnKX3U4lI7oxjDlxBp5A1Z4fsmHsa
+nUxkwTY3q2EKvZMoqyOPX6+7jE4i5xensnWSCbSCtL/f+bLxVepE8o0BOq9+
+OomWE8NoSUOXkL4nJcMqV57X/B06nhxOa96gH7yJlpCzrawQ7q4f0GKSmHfP
+5276ES0ifbeCLynPLaEFpPbIHr9v5Wc0jyykhG8abbqL5pA7nOnvLVVBdBQ5
+EzCyzhWuoiNIo6j0rtd1H82Q0L72kea/1tCr/oi9W1lhR/+kneENznTc3rNO
+u0oinOUP6J/QDgo+eTs5jSE4H3ZPVs51L4ago+BDc/KCzBOG5sArwYf1HfvC
+0Tyoi3EeCy3fiBbA1yfKnowbnkWLoMfpYs9WRqLFYMm0tGiaN6ElEGHpte34
+bDM6HkZBPGxaj0JLoajL80+RhI2Ww5HTNcFE4xZ0InhvxPRGdXPQClgOUc2z
+b3DRSZBTwn2kETyP3gnVm9/j9lp56GQ4PPW4dHyGj06B81tVAzZ5DDoVAlLR
+xga3AJ0GrQ/nowfDhOh0qD1aXtpyMBadAabtaz9xHCJ0JhQc4n7Bz4pDZ8GS
+OI478YA6G/aaMthtJ8VoJQjXP8idKn4RvQv2qfnjMwHq3VAxoiqwmiXoHEgZ
+urTDOEetguAFo/3z9G1oAHZFj+9RG9oJ8PhC0/L1a7Tnwt+nv9K9wIrHnguf
+DDkvObRoRg0nJvoDQ520q+He/AzLfpv2PKhcnS/n6hOw58Fkle3UwkU0kw9f
+brlc36SQYs+HfkVZs6sFzWhgMfKBMHaEdg0kvGN/y3qG9gIQeKrDx07RXgAm
+r6Pw4hjthdCuPpmjDNBeCHprl6kmXoZdC97GZzwfv4l2aiF6evaQz067Dpjo
+2KUKJe06KOv79Y/JOTpfD69H/G4Npf916iE11wy1VbQXwbDGZ1t20F4E/qT7
+DvMd2othLcTXaOmn84shX1PX/YZWjt0ArR7Pu77n0E4DSEtLVmQr9H4J/HaA
+98vNKwnkX89AkLg=
+          "]]}, {
+         Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.007333333333333334], 
           AbsoluteThickness[1.6], 
           RGBColor[1., 0., 0.38], 
-          AbsolutePointSize[6]], 
-         GeometricTransformation[
-          Inset[
-           Style["\[FilledSquare]", FontSize -> 18], {0., 0.}], {{{0., 
-          0.8527231292352798}}, {{3., 1.1311559809636111`}}, {{5., 
-          1.674794780276855}}, {{8., 2.3648112711476323`}}, {{12., 
-          3.1727976854545226`}}, {{15., 3.6395535137624857`}}, {{20., 
-          3.964905544488415}}, {{30., 4.2627594284623065`}}, {{25., 
-          3.7891556953621635`}}, {{28., 3.8895187432001688`}}, {{22., 
-          3.9187253060569334`}}}]}, {}}}, {}, {}, {}, {}}, {
-     DisplayFunction -> Identity, PlotRangePadding -> {{
-         Scaled[0.02], 
-         Scaled[0.02]}, {
-         Scaled[0.02], 
-         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
-      PlotRange -> {{0, 30.}, {0, 4.2627594284623065`}}, PlotRangeClipping -> 
-      True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
+          Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]], 
+         Line[CompressedData["
+1:eJw90glQTHEcwPHnaEqKpChWo6xV25a2Y7dr7a/stqlcTejaUUjFEJVrQ5sQ
+YWeaKffUjA42MkUlard/m6N1TUVuygpTM7JsaJhxjf/Pm3nz5jPf//83//fm
+Oa/KiE4ZzTDM8j/33+e/K4BkdWrSHlVcbv1nf+ItF/tlD6GFZNaKmsncoHpq
+AcmPmm7PO4T2IwPNSdX1r9C+RPNdYRwlaKD2IZUGpwnRRWhvYmbJ0/YZ0Xwi
+U64ffh/TSO1FEttnj6vQoD2Ju5PP8Tj3K9Q8kmlvKIwrRXNJrNvHwV9Tmqhd
+SZbK5/iFEjSHHBV87GqadpWaTTwt5qRnVKFdyOvHKx9ZBVyjnkkqNU8zbnWj
+WYTzrfPFk6xmagcS5iuK28VqobYj7eOZ4L67aBuyZqmyfGSvhtqCiKscHFMl
+WmqGnDtmrFxn2UptbG083HN/pAfNMPapYweHowl28emtHM7BFjQDFm2m3klz
+2nA+aFSmZnUR2gayJ8YcYX6g7WD77v74xGQdnh9W7+gUvtGhWbDk4GPzyU7t
++P7wudciwyET7QKFbae0V7VoNii87Z70jLmO3xcmrl1seAloV8jN47i/y0Zz
+YWiuM6ukDM0DD855VYgO7QmfnLWBD3rRXjDj3q4m7Xc0H/bLqtzO2N7A/wfK
+AnODEthoH6i0rgms80D7wryBBFExH+0H1YbuqQ1CtAAixyfldkrRQtBb6803
+xaL94Xw1+4rbGnQAmBlr2TuT0YHQFbXMMv3/+iBQ5Um8UxLRwbDZL9lasQ0t
+ggJWTuqKE+h5EJ91WRp7Bi0GVYH/WlkBGuDNV4MDP41aCRBj2Kk+uxV7CNQ9
+y/nUcQ17CHiYbWHzRrCHQmZxEVPUjz0UQvXvHX8dwD4fsss7FC14fuV8KDEv
+/bChDbsE+BFsWdjRm7RL4EbVj0ae5S3apSDy8syT78EuBcX6SSKzfNwfBiPh
+Xw7/zMT5YbCj/IJprhPul0HZyxplfKqedhmYbO/sSTFQM+FQ2iX4zFLT9cpw
+4Cb0pbnIcf4CSNfVWsutsC8Anm5cuVB3j/YISBI/VD+TdNMeAdxZX97mX+qi
+PRKKv8VWXF92m/ZI2G7rWBe/D+dHgdo1Jf+5C+6PgtqvVvZL9f20L4RtJzu4
+MR9MtC8E7sb2i9Kfw7Qvggj5c6F8qK/1NxwruIE=
+          "]]}, {
+         Hue[0.1421359549995791, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.73, 1.], 
+          Dashing[{0, Small, Small, Small}]], 
+         Line[CompressedData["
+1:eJw1zQ1QzGkcwPF/KZXtZW1bNrvY0su2wtreaJNfZbctLNXkSlZOEoWdvE3R
+XQyD0XVY1oSkXU26pk4auRl37GNSZGmuJGYxKSJM2dGiF3Uv4/c8M88885nv
+/H6P9wZNUpYtwzCr/7v/v9/PIvK8ok4o63xg/O6FpJPTIZlT9xAdTv6puB5e
+NrkNHUbyr9u/LP6b9lAyZZ9jY7YDdQgp4X/4c/QPEzqYPDqQOai3u4+Wkp02
+AdyGoHvoBeTojeqsC7oWtIT05fFzxx42o+eRsHWbXdS7aA8iecp+of8wnReT
+rl0jiZ3b6P8iclE92nfjcTvan6jBKPa69RjtS44XZlpT1prRPqS33yKpqexG
+C8kJc4tBd68XLSByI6em1+0Nmkdi02Zdza5+h+YSQ4a9g8upATSbSAM/vdf2
+W9COxHso9QBfOoRmiGvUnpy3VZ/RFmPaxvXnGuKGaWdYEfF2MzzGaF/SdVbZ
+etptgnaYb+5WlJ9nCO6HcT9Tx3u5LZoNkVms+vTJdmgu9KjetOY8t0fzYLd3
+hlP2XQe0ANxyf2ksaHFCC6GLlGtqn7LQPlCxm3Nr+JsL2hee1l4zBXux0f6g
+qNU7zYycihaBRfmTlJXNQYuh5+ce0chZd3QQRP5YVTrSyUXPg2T1zq2uPE+0
+BAa04ubpmdPQC6BJqzN/aeShpbBaH2HUsqejg6EjJPfr+A4+OgQ+tukGZS8E
+6FDY7vBEM6SaiQ4D2/zWBObuLHQ43J6oNu7QC9ELwa4mgO+X4Y1eBIaSHGui
+lw86AibpG1caTNQyEA1+uRyeNxsdCVtr+kI77H3Ri8F9+2jKpCPUUaDwiJBc
+tFIvgWSO8yPVKj80gKCqvd75Ano/QIGHp5+wm/ZoOFR6SpMg8MceDe0hq7jl
+6WgmBhQwEX24kvYYCJZp5r79RnssuBerZx/fFIA9FmY0/Zqb+AzNLIVS1knD
+JqUI+1I4wbOuPKdFM3JIEaSGqn6nXQ5JPeao+iu0K2Da7TsC0zXaFfBqS7/V
+s432OPgtrvqyZZz2OCgJc12TvDgQuxK6kiqP6vag9yshbcuZdYVFtMdDWnJM
+WZaM9ngY8G0uZLfT/QlwUn048PUxuj8Bis6vEajLaF8GdayC/JtcOr8MioQa
++aVndP9yOOg6xiuuEmNfDoPrP/3V8BnNrACF83yb9FTaV8DNkh8KD86h8yp4
+pxjYO+IoIv8CQuqY9g==
+          "]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.62, 0.53]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[1., 0., 0.38], 
+          Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.73, 1.], 
+          Dashing[{0, Small, Small, Small}]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.62, 0.53]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[1., 0., 0.38], 
+          Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.73, 1.], 
+          Dashing[{0, Small, Small, Small}]]}, {}, {}, {}, {}, {}, {}, {}}, {{
+        
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.62, 0.53]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[1., 0., 0.38], 
+          Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0., 0.73, 1.], 
+          
+          Dashing[{
+           0, Small, Small, 
+            Small}]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
+     DisplayFunction -> Identity, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Log, Exp}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
-      AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> {{
+      AxesOrigin -> {0, -14.528751472592255`}, DisplayFunction :> Identity, 
+      Epilog -> {{
          Text[
-          Style["SXS:0305", 
+          Style["SXS:BBH:0305", 
            GrayLevel[0], 12], 
           Scaled[{0.13, 0.1}]]}}, Frame -> {{True, True}, {True, True}}, 
-      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(n\)]\)", None}, {
-        "\!\(\*SubscriptBox[\(t\), \(0\)]\)/M", None}}, 
-      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      FrameLabel -> {{"\[ScriptCapitalM]", None}, {
+        "\!\(\*SubscriptBox[\(t\), \(0\)]\)/M", None}}, FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
       GridLines -> {
        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
-        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+        Charting`ScaledTickValues[{Log, Exp}][#, #2, {6, 6}]& }, 
       GridLinesStyle -> Directive[
-        GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Arial", 12, 
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+      LabelStyle -> {FontFamily -> "Arial", 12, 
         GrayLevel[0], Bold}, 
-      Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
-            (Identity[#]& )[
+            (Exp[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
-            (Identity[#]& )[
+            (Exp[#]& )[
              Part[#, 2]]}& )}}, 
-      PlotRange -> {{0, 30.}, {0, 4.2627594284623065`}}, PlotRangeClipping -> 
-      True, PlotRangePadding -> {{
-         Scaled[0.02], 
-         Scaled[0.02]}, {
+      PlotRange -> {{-25, 50}, {-14.528751472592255`, -0.07673397118725393}}, 
+      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {
          Scaled[0.02], 
-         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
+         Scaled[0.05]}}, Ticks -> {Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
     Placed[
      Unevaluated[
-      PointLegend[{
+      LineLegend[{
         Directive[
-         PointSize[0.012833333333333334`], 
+         PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], 
          RGBColor[0., 0.62, 0.53]], 
         Directive[
-         PointSize[0.012833333333333334`], 
+         PointSize[0.007333333333333334], 
          AbsoluteThickness[1.6], 
-         RGBColor[1., 0., 0.38]]}, {
-       "\!\(\*SubscriptBox[\(A\), \(0\)]\)", 
-        "\!\(\*SubscriptBox[\(A\), \(1\)]\)"}, 
-       LegendMarkers -> {{"\[FilledCircle]", 16}, {"\[FilledSquare]", 18}}, 
-       Joined -> {False, False}, LabelStyle -> {FontFamily -> "Arial", 12, 
-         GrayLevel[0], Bold}, LegendLayout -> "Column"]], {0.12, 0.8}, 
-     Identity]]& ],
+         RGBColor[1., 0., 0.38], 
+         Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0., 0.73, 1.], 
+         Dashing[{0, Small, Small, Small}]]}, {
+       "n=0 (m=2)", "n=0 (m=-2)", "n=0 (m=2 & m=-2)", "n=3", "n=4", "n=5", 
+        "n=6", "n=7"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
+         False, Automatic}}, Joined -> {True, True, True}, 
+       LabelStyle -> {FontSize -> 12}, LegendLayout -> "Column", Spacings -> 
+       0.2]], {0.8, 0.66}, Identity]]& ],
   AutoDelete->True,
   Editable->True,
   SelectWithContents->False,
   Selectable->True]], "Output",
- CellChangeTimes->{{3.779371959471026*^9, 3.779371979055436*^9}, {
-   3.779372028477069*^9, 3.779372039502116*^9}, {3.7794321061687517`*^9, 
-   3.779432117178776*^9}, 3.779432498629616*^9, 3.7794334169529753`*^9, {
-   3.779433509200099*^9, 3.779433521433988*^9}, {3.7795328584661303`*^9, 
-   3.779532865598755*^9}, 3.7800652834954576`*^9},
+ CellChangeTimes->{{3.80128946066838*^9, 3.8012894946653137`*^9}, {
+  3.801289658412939*^9, 3.801289676989196*^9}, {3.801289727036901*^9, 
+  3.801289743608987*^9}},
  CellLabel->
-  "Out[891]=",ExpressionUUID->"39e95b12-39b7-4893-9f32-a4a45683e67a"]
+  "Out[129]=",ExpressionUUID->"8366325e-3b22-4590-9bfa-7b0133f4008d"]
 }, Open  ]],
 
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"i", "=", "35"}], ";", 
+  RowBox[{"data", "=", 
+   RowBox[{"Select", "[", 
+    RowBox[{"mysxscase22modeRD", ",", " ", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"#", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", 
+       RowBox[{"tmax", "+", "i", "-", "25"}]}], "&"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"cfit", "=", 
+   RowBox[{"NonlinearModelFit", "[", 
+    RowBox[{"data", ",", "ans0n2", ",", 
+     RowBox[{"{", 
+      RowBox[{"x0", ",", "x1"}], "}"}], ",", "t"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"cfitd", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"data", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+      RowBox[{
+       RowBox[{"Normal", "[", "cfit", "]"}], "/.", 
+       RowBox[{"t", "->", 
+        RowBox[{"data", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
+  ";"}], "\n", 
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"i", "-", "25"}], ",", 
+   RowBox[{
+    RowBox[{"Total", "[", 
+     RowBox[{
+      RowBox[{"Abs", "[", 
+       RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], "]"}], "^", "2"}], 
+     "]"}], "/", 
+    RowBox[{"Length", "@", "data"}]}], ",", 
+   RowBox[{"AICcRes", "[", 
+    RowBox[{
+     RowBox[{"cfit", "[", "\"\<FitResiduals\>\"", "]"}], ",", "2"}], "]"}], 
+   ",", 
+   RowBox[{"cfit", "[", "\"\<BestFitParameters\>\"", "]"}], ",", 
+   RowBox[{"1", "-", 
+    RowBox[{"EasyMatchT", "[", 
+     RowBox[{"data", ",", "cfitd", ",", 
+      RowBox[{"tmax", "-", "25", "+", "i"}], ",", 
+      RowBox[{"tmax", "+", "tmatchend"}]}], "]"}]}]}], "}"}]}], "Input",
+ CellChangeTimes->{{3.8012896969313803`*^9, 3.801289700480688*^9}, {
+  3.801289809227098*^9, 3.801289816574019*^9}},
+ CellLabel->
+  "In[142]:=",ExpressionUUID->"3036226b-a6b0-4b95-af4e-4ddb1a2b7a0a"],
+
 Cell[BoxData[
- RowBox[{"If", "[", 
-  RowBox[{"ExportQ", ",", 
-   RowBox[{"Export", "[", 
+ RowBox[{"{", 
+  RowBox[{"10", ",", "0.00020499687351559356`", ",", 
+   RowBox[{"-", "2405.8317911179793`"}], ",", 
+   RowBox[{"{", 
     RowBox[{
-     RowBox[{"ExportDir", "<>", "\"\</A0A1stab.pdf\>\""}], ",", "lp"}], 
-    "]"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.7850537878837223`*^9, 3.785053792850415*^9}, {
-  3.785053835525221*^9, 
-  3.785053838784567*^9}},ExpressionUUID->"dcd62b49-3f54-435d-b6e2-\
-09bfe95a7985"]
-}, Closed]]
+     RowBox[{"x0", "\[Rule]", 
+      RowBox[{"0.2631821617638456`", "\[VeryThinSpace]", "+", 
+       RowBox[{"0.8019561016488591`", " ", "\[ImaginaryI]"}]}]}], ",", 
+     RowBox[{"x1", "\[Rule]", 
+      RowBox[{
+       RowBox[{"-", "0.023017345006067048`"}], "-", 
+       RowBox[{"0.03456288392397593`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], 
+   ",", "0.0178703628057455`"}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.801289702283149*^9, {3.801289809663772*^9, 3.8012898383370028`*^9}},
+ CellLabel->
+  "Out[145]=",ExpressionUUID->"f5a5a784-765d-46b4-a076-579f8ff33009"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Abs", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"x0", ",", "x1"}], "}"}], "/.", 
+   RowBox[{"cfit", "[", "\"\<BestFitParameters\>\"", "]"}]}], "]"}]], "Input",\
+
+ CellChangeTimes->{{3.801289842926635*^9, 3.801289850771785*^9}},
+ CellLabel->
+  "In[147]:=",ExpressionUUID->"a5a83cd4-25da-4862-b7f1-512a76476b7c"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0.8440369892620383`", ",", "0.04152578856891888`"}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.801289844618001*^9, 3.8012898511693163`*^9}},
+ CellLabel->
+  "Out[147]=",ExpressionUUID->"368e71e0-7275-41b0-8ccd-810d29071af4"]
+}, Open  ]]
+}, Open  ]]
 }, Open  ]]
 }, Open  ]],
 
@@ -133367,882 +140566,937 @@ Cell[714, 27, 168, 3, 98, "Title",ExpressionUUID->"5097a656-6573-421d-a328-a078d
 Cell[885, 32, 246, 4, 30, "Input",ExpressionUUID->"a3e945ca-aec6-4e56-9c18-d3988f012f14"],
 Cell[1134, 38, 259, 6, 35, "Text",ExpressionUUID->"00b6872e-619f-48d4-9f8a-689d6d924d82"],
 Cell[CellGroupData[{
-Cell[1418, 48, 201, 4, 67, "Section",ExpressionUUID->"9900b6d0-dc8c-447c-a37f-e8c5145de8f6"],
-Cell[CellGroupData[{
-Cell[1644, 56, 162, 3, 54, "Subsection",ExpressionUUID->"43942484-b301-4fc3-8d9b-c3772441b7fa"],
+Cell[1418, 48, 438, 9, 52, "Input",ExpressionUUID->"aff2bd91-9233-4b17-9c2d-1d359f1227dc"],
+Cell[1859, 59, 241, 3, 34, "Output",ExpressionUUID->"e0420043-efea-46ab-8c21-ba609df22d3e"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[1831, 63, 143, 2, 30, "Input",ExpressionUUID->"434d697a-deb0-4a5c-aa7e-519de6be803e"],
-Cell[1977, 67, 241, 3, 34, "Output",ExpressionUUID->"307b11be-c4c5-4b92-ba92-0cbd27bd321c"]
+Cell[2137, 67, 803, 18, 73, "Input",ExpressionUUID->"0998a16a-d39f-45e5-bad5-fa2fcab2df41"],
+Cell[2943, 87, 243, 3, 34, "Output",ExpressionUUID->"16327f89-73d3-4101-923b-ad73e18a4cbc"],
+Cell[3189, 92, 242, 3, 34, "Output",ExpressionUUID->"99b5fa78-4739-4d8c-ab7e-4ff6a2a49fa7"]
 }, Open  ]],
-Cell[2233, 73, 365, 8, 72, "Code",ExpressionUUID->"c0db8e74-dd80-42af-a468-91ff88fda5e0"]
+Cell[CellGroupData[{
+Cell[3468, 100, 201, 4, 67, "Section",ExpressionUUID->"9900b6d0-dc8c-447c-a37f-e8c5145de8f6"],
+Cell[CellGroupData[{
+Cell[3694, 108, 162, 3, 54, "Subsection",ExpressionUUID->"43942484-b301-4fc3-8d9b-c3772441b7fa"],
+Cell[3859, 113, 366, 8, 72, "Code",ExpressionUUID->"c0db8e74-dd80-42af-a468-91ff88fda5e0"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[2635, 86, 187, 3, 38, "Subsection",ExpressionUUID->"a67c1d6f-896d-4f35-97b2-0a19462019d3"],
+Cell[4262, 126, 187, 3, 38, "Subsection",ExpressionUUID->"a67c1d6f-896d-4f35-97b2-0a19462019d3"],
 Cell[CellGroupData[{
-Cell[2847, 93, 1491, 31, 224, "Code",ExpressionUUID->"30bc80d2-d9cf-4069-9531-5f4acedd0001"],
-Cell[4341, 126, 1351, 19, 34, "Output",ExpressionUUID->"76752981-fe0f-4f3b-b209-b08d89edde3e"],
-Cell[5695, 147, 1374, 19, 34, "Output",ExpressionUUID->"5e8def03-68d7-46ee-a5f2-f2e515f338b8"],
-Cell[7072, 168, 1365, 19, 34, "Output",ExpressionUUID->"3a3b599b-a18f-4743-be5b-070c446f1783"],
-Cell[8440, 189, 1372, 19, 34, "Output",ExpressionUUID->"7f978119-fafd-4f93-a323-67205e29759c"],
-Cell[9815, 210, 1331, 19, 34, "Output",ExpressionUUID->"22a4b0bf-1ce7-481e-b930-a9d812921560"]
+Cell[4474, 133, 1491, 31, 224, "Code",ExpressionUUID->"30bc80d2-d9cf-4069-9531-5f4acedd0001"],
+Cell[5968, 166, 1399, 20, 34, "Output",ExpressionUUID->"b22470eb-02d0-49a0-9ebe-2d5ee277609d"],
+Cell[7370, 188, 1420, 20, 34, "Output",ExpressionUUID->"d929953a-9f0f-4469-b929-6c7a91065822"],
+Cell[8793, 210, 1414, 20, 34, "Output",ExpressionUUID->"34857bb2-81d5-4976-8427-725e823a2e23"],
+Cell[10210, 232, 1422, 20, 34, "Output",ExpressionUUID->"8bf4bc2d-6b61-4b29-af72-feec007fcbf1"],
+Cell[11635, 254, 1379, 20, 34, "Output",ExpressionUUID->"1c611b57-a301-4628-85a1-1e165c627a85"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[11183, 234, 1109, 26, 148, "Code",ExpressionUUID->"494472f9-bffd-4b4b-9e5c-be9d6bf1c8d4"],
-Cell[12295, 262, 1371, 21, 34, "Output",ExpressionUUID->"6076304b-3db0-4ad7-bb05-2b71dd87838b"],
-Cell[13669, 285, 27400, 718, 34, "Output",ExpressionUUID->"58038b39-53a9-43fb-96d8-c52587d51343"]
+Cell[13051, 279, 1109, 26, 148, "Code",ExpressionUUID->"494472f9-bffd-4b4b-9e5c-be9d6bf1c8d4"],
+Cell[14163, 307, 1415, 21, 34, "Output",ExpressionUUID->"82aa4ab5-c4b4-4e57-a259-ab5cdf2b9b98"],
+Cell[15581, 330, 27446, 718, 34, "Output",ExpressionUUID->"3221535c-1aee-45db-91d1-bb38d6706e7a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[41106, 1008, 1075, 24, 72, "Code",ExpressionUUID->"7a4e33f7-54ad-4c1b-a22b-ff786b495241"],
-Cell[42184, 1034, 3103, 58, 530, "Output",ExpressionUUID->"08ba37ac-13f8-453d-b1c1-9ba4ce8997e8"]
+Cell[43064, 1053, 1075, 24, 72, "Code",ExpressionUUID->"7a4e33f7-54ad-4c1b-a22b-ff786b495241"],
+Cell[44142, 1079, 3146, 58, 530, "Output",ExpressionUUID->"8bce7a46-c6ef-4298-855e-3b538151156c"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[45336, 1098, 157, 3, 38, "Subsection",ExpressionUUID->"52065aaa-2113-4948-bf1b-deac5c240d3e"],
-Cell[45496, 1103, 317, 6, 30, "Input",ExpressionUUID->"b86a8975-1fe5-417a-89ed-be6326768bbb"],
+Cell[47337, 1143, 157, 3, 38, "Subsection",ExpressionUUID->"52065aaa-2113-4948-bf1b-deac5c240d3e"],
+Cell[47497, 1148, 317, 6, 30, "Input",ExpressionUUID->"b86a8975-1fe5-417a-89ed-be6326768bbb"],
 Cell[CellGroupData[{
-Cell[45838, 1113, 796, 21, 52, "Input",ExpressionUUID->"06e2301e-5177-41fb-afaa-f287067549f3"],
-Cell[46637, 1136, 1326, 29, 70, "Output",ExpressionUUID->"ed4cd045-457c-429b-8540-025fee9c877a"]
+Cell[47839, 1158, 796, 21, 52, "Input",ExpressionUUID->"06e2301e-5177-41fb-afaa-f287067549f3"],
+Cell[48638, 1181, 1374, 30, 34, "Output",ExpressionUUID->"55a63f6a-4da5-4a76-a415-fb26540298ad"]
 }, Open  ]],
-Cell[47978, 1168, 266, 5, 30, "Input",ExpressionUUID->"c8854ec3-190a-4684-b5f3-4ace18557cc8"],
+Cell[50027, 1214, 266, 5, 30, "Input",ExpressionUUID->"c8854ec3-190a-4684-b5f3-4ace18557cc8"],
 Cell[CellGroupData[{
-Cell[48269, 1177, 1355, 32, 94, "Input",ExpressionUUID->"2f0fb05c-7c71-49a6-ba60-8302eff8fe03"],
-Cell[49627, 1211, 1472, 23, 70, "Output",ExpressionUUID->"f31553ef-f019-4035-9d1f-d587221007ce"]
+Cell[50318, 1223, 1355, 32, 94, "Input",ExpressionUUID->"2f0fb05c-7c71-49a6-ba60-8302eff8fe03"],
+Cell[51676, 1257, 1520, 24, 182, "Output",ExpressionUUID->"a10e722b-41cf-422e-a5ab-5d30498c2450"]
 }, Open  ]],
-Cell[51114, 1237, 253, 4, 30, "Input",ExpressionUUID->"0df3f40e-63bf-4cfc-bae6-67772d6f46d7"],
-Cell[51370, 1243, 257, 5, 30, "Input",ExpressionUUID->"d6282e6c-47cc-4619-a070-be7d0ff2fcba"]
+Cell[53211, 1284, 253, 4, 30, "Input",ExpressionUUID->"0df3f40e-63bf-4cfc-bae6-67772d6f46d7"],
+Cell[53467, 1290, 257, 5, 30, "Input",ExpressionUUID->"d6282e6c-47cc-4619-a070-be7d0ff2fcba"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[51664, 1253, 156, 3, 38, "Subsection",ExpressionUUID->"4b9ecfeb-6f47-438b-ad84-ec9353747a9e"],
+Cell[53761, 1300, 156, 3, 38, "Subsection",ExpressionUUID->"4b9ecfeb-6f47-438b-ad84-ec9353747a9e"],
 Cell[CellGroupData[{
-Cell[51845, 1260, 176, 3, 45, "Subsubsection",ExpressionUUID->"75f4f4c2-1d45-4fea-8f7c-c032cd62cda3"],
-Cell[52024, 1265, 22769, 611, 1998, "Code",ExpressionUUID->"5a9f05b6-09a5-4d65-885d-d0bddc799238"]
+Cell[53942, 1307, 176, 3, 45, "Subsubsection",ExpressionUUID->"75f4f4c2-1d45-4fea-8f7c-c032cd62cda3"],
+Cell[CellGroupData[{
+Cell[54143, 1314, 427, 9, 52, "Input",ExpressionUUID->"e18f13bb-2435-4bb8-bd08-177c06415b58"],
+Cell[54573, 1325, 941, 19, 24, "Print",ExpressionUUID->"a044a2d0-5342-4108-92cf-94818d577a15"],
+Cell[55517, 1346, 630, 13, 49, "Message",ExpressionUUID->"063c35d4-cfc0-4894-93e4-36557f9af7a3"],
+Cell[56150, 1361, 629, 13, 49, "Message",ExpressionUUID->"27351a83-9f9e-46ec-904b-eabd51385f97"],
+Cell[56782, 1376, 628, 13, 49, "Message",ExpressionUUID->"e0900f19-310f-4263-ae75-1a149a8f5587"],
+Cell[57413, 1391, 467, 10, 24, "Message",ExpressionUUID->"7f8ef753-56d7-49e5-91f7-096e5f29f610"],
+Cell[57883, 1403, 142004, 2394, 94, "Output",ExpressionUUID->"e6eb28e8-ccc1-4db0-b94e-b5fd4f5150bb"],
+Cell[199890, 3799, 937, 19, 24, "Print",ExpressionUUID->"76bb0ad2-2858-40c3-bed4-f2dd2d013945"],
+Cell[200830, 3820, 650, 13, 49, "Message",ExpressionUUID->"f430961e-b717-46cd-bf43-562dc97388a5"],
+Cell[201483, 3835, 651, 13, 49, "Message",ExpressionUUID->"3c1a9214-b58b-4bb4-a145-c681046e91dc"],
+Cell[202137, 3850, 652, 13, 49, "Message",ExpressionUUID->"6ccbd0c6-8da7-4529-98e0-a541e263c354"],
+Cell[202792, 3865, 467, 10, 24, "Message",ExpressionUUID->"e2fded50-fcd2-4930-bae0-49f99f7ae2c6"],
+Cell[203262, 3877, 142198, 2394, 62, "Output",ExpressionUUID->"cafe8472-8b86-447c-94ad-69b326fabce4"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[345497, 6276, 593, 14, 52, "Input",ExpressionUUID->"6171f008-71e2-4026-ab03-e055fc371f11"],
+Cell[346093, 6292, 185, 2, 34, "Output",ExpressionUUID->"c2b0c393-7062-4a0b-8bec-e620fcc8b90a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[346315, 6299, 252, 4, 30, "Input",ExpressionUUID->"3db404e8-ef79-4871-a67e-242233a15c50"],
+Cell[346570, 6305, 191, 2, 34, "Output",ExpressionUUID->"e99ab75b-f7f0-4656-88d7-b3cfc9627b46"]
+}, Open  ]],
+Cell[346776, 6310, 192, 4, 30, "Input",ExpressionUUID->"14ef66aa-62d5-4fbe-b96d-f928d7adc1f4"],
+Cell[346971, 6316, 22769, 611, 1998, "Code",ExpressionUUID->"5a9f05b6-09a5-4d65-885d-d0bddc799238"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[74830, 1881, 156, 3, 37, "Subsubsection",ExpressionUUID->"2ca398aa-46d6-4829-ae43-f97a51bae77e"],
+Cell[369777, 6932, 156, 3, 37, "Subsubsection",ExpressionUUID->"2ca398aa-46d6-4829-ae43-f97a51bae77e"],
 Cell[CellGroupData[{
-Cell[75011, 1888, 796, 25, 49, "Input",ExpressionUUID->"cd4b5c8b-1306-47aa-bc1e-5ff2bf2d8734"],
-Cell[75810, 1915, 795, 24, 61, "Output",ExpressionUUID->"b8a9496d-16f4-4a7c-943d-6ee6206d86e1"]
+Cell[369958, 6939, 796, 25, 49, "Input",ExpressionUUID->"cd4b5c8b-1306-47aa-bc1e-5ff2bf2d8734"],
+Cell[370757, 6966, 795, 24, 61, "Output",ExpressionUUID->"b8a9496d-16f4-4a7c-943d-6ee6206d86e1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[76642, 1944, 410, 9, 30, "Input",ExpressionUUID->"da9f8949-b1b3-43e9-9c57-cd1d59522241"],
-Cell[77055, 1955, 263, 3, 34, "Output",ExpressionUUID->"f67796a4-ebef-424d-9fd1-308e78e5c59a"]
+Cell[371589, 6995, 410, 9, 30, "Input",ExpressionUUID->"da9f8949-b1b3-43e9-9c57-cd1d59522241"],
+Cell[372002, 7006, 263, 3, 34, "Output",ExpressionUUID->"f67796a4-ebef-424d-9fd1-308e78e5c59a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[77355, 1963, 290, 6, 30, "Input",ExpressionUUID->"3b295aac-7ebc-46fc-9219-661b1f89fb19"],
-Cell[77648, 1971, 6518, 126, 233, "Output",ExpressionUUID->"279cf07d-d3c6-4a42-a666-dfb5663eb19f"]
+Cell[372302, 7014, 290, 6, 30, "Input",ExpressionUUID->"3b295aac-7ebc-46fc-9219-661b1f89fb19"],
+Cell[372595, 7022, 6518, 126, 233, "Output",ExpressionUUID->"279cf07d-d3c6-4a42-a666-dfb5663eb19f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[84203, 2102, 297, 7, 30, "Input",ExpressionUUID->"68acbf1d-d2de-474d-a48b-2bdf32179122"],
-Cell[84503, 2111, 167, 2, 34, "Output",ExpressionUUID->"ca36e157-11cf-4330-88e6-4f89132f9eda"]
+Cell[379150, 7153, 297, 7, 30, "Input",ExpressionUUID->"68acbf1d-d2de-474d-a48b-2bdf32179122"],
+Cell[379450, 7162, 167, 2, 34, "Output",ExpressionUUID->"ca36e157-11cf-4330-88e6-4f89132f9eda"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[84707, 2118, 230, 4, 30, "Input",ExpressionUUID->"2ee83ec4-bcfb-48ce-91dc-fdb359a19aca"],
-Cell[84940, 2124, 195, 2, 34, "Output",ExpressionUUID->"6fd6d1cc-f543-485f-b17c-9e10f93bac3d"]
+Cell[379654, 7169, 230, 4, 30, "Input",ExpressionUUID->"2ee83ec4-bcfb-48ce-91dc-fdb359a19aca"],
+Cell[379887, 7175, 195, 2, 34, "Output",ExpressionUUID->"6fd6d1cc-f543-485f-b17c-9e10f93bac3d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[85172, 2131, 287, 6, 30, "Input",ExpressionUUID->"f044848d-2bd1-4d5c-8222-26afed934cbb"],
-Cell[85462, 2139, 3825, 82, 239, "Output",ExpressionUUID->"02d579a7-66e5-451d-b917-2e89aaf3c6a9"]
+Cell[380119, 7182, 287, 6, 30, "Input",ExpressionUUID->"f044848d-2bd1-4d5c-8222-26afed934cbb"],
+Cell[380409, 7190, 3825, 82, 239, "Output",ExpressionUUID->"02d579a7-66e5-451d-b917-2e89aaf3c6a9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[89324, 2226, 891, 17, 73, "Input",ExpressionUUID->"a051c92c-2689-4af5-ac2a-bb7930918669"],
-Cell[90218, 2245, 393, 9, 40, "Message",ExpressionUUID->"7c156739-5647-4b6f-bb7b-74d021f416a0"],
-Cell[90614, 2256, 260, 5, 34, "Output",ExpressionUUID->"0b05619a-b0e5-499e-a6bd-773863ce6ffa"],
-Cell[90877, 2263, 393, 9, 40, "Message",ExpressionUUID->"121faec0-b835-4e7e-8509-b495eb391f11"],
-Cell[91273, 2274, 257, 5, 34, "Output",ExpressionUUID->"0e4bc2eb-5c72-40bf-aba4-9d06bce23259"],
-Cell[91533, 2281, 391, 9, 40, "Message",ExpressionUUID->"a42277ad-c1ce-4a94-8434-0722a63f702c"],
-Cell[91927, 2292, 257, 5, 34, "Output",ExpressionUUID->"1509f6e1-c308-47d1-a545-1184f918097a"]
+Cell[384271, 7277, 891, 17, 73, "Input",ExpressionUUID->"a051c92c-2689-4af5-ac2a-bb7930918669"],
+Cell[385165, 7296, 393, 9, 40, "Message",ExpressionUUID->"7c156739-5647-4b6f-bb7b-74d021f416a0"],
+Cell[385561, 7307, 260, 5, 34, "Output",ExpressionUUID->"0b05619a-b0e5-499e-a6bd-773863ce6ffa"],
+Cell[385824, 7314, 393, 9, 40, "Message",ExpressionUUID->"121faec0-b835-4e7e-8509-b495eb391f11"],
+Cell[386220, 7325, 257, 5, 34, "Output",ExpressionUUID->"0e4bc2eb-5c72-40bf-aba4-9d06bce23259"],
+Cell[386480, 7332, 391, 9, 40, "Message",ExpressionUUID->"a42277ad-c1ce-4a94-8434-0722a63f702c"],
+Cell[386874, 7343, 257, 5, 34, "Output",ExpressionUUID->"1509f6e1-c308-47d1-a545-1184f918097a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[92221, 2302, 499, 9, 30, "Input",ExpressionUUID->"0fa7ad36-8965-4464-bd1e-81f1aaf3b037"],
-Cell[92723, 2313, 1031, 20, 24, "Print",ExpressionUUID->"670f9995-cba0-4d39-acbc-5184a6677a1f"],
-Cell[93757, 2335, 719, 14, 49, "Message",ExpressionUUID->"0d6dfd0d-81cc-406d-aadb-9896bf7c4f47"],
-Cell[94479, 2351, 720, 14, 49, "Message",ExpressionUUID->"90bb7289-ef97-4f44-9bf2-2a012d4c9844"],
-Cell[95202, 2367, 723, 14, 49, "Message",ExpressionUUID->"cabc8de3-a243-4ceb-9b1b-52d4d387aba0"],
-Cell[95928, 2383, 536, 11, 24, "Message",ExpressionUUID->"72ae2856-cc81-4134-bdaa-066db609cc5b"],
-Cell[96467, 2396, 142445, 2398, 62, "Output",ExpressionUUID->"5d275bc4-aa0d-4fd4-a0b4-e26c8c9e1683"]
+Cell[387168, 7353, 499, 9, 30, "Input",ExpressionUUID->"0fa7ad36-8965-4464-bd1e-81f1aaf3b037"],
+Cell[387670, 7364, 1031, 20, 24, "Print",ExpressionUUID->"670f9995-cba0-4d39-acbc-5184a6677a1f"],
+Cell[388704, 7386, 719, 14, 49, "Message",ExpressionUUID->"0d6dfd0d-81cc-406d-aadb-9896bf7c4f47"],
+Cell[389426, 7402, 720, 14, 49, "Message",ExpressionUUID->"90bb7289-ef97-4f44-9bf2-2a012d4c9844"],
+Cell[390149, 7418, 723, 14, 49, "Message",ExpressionUUID->"cabc8de3-a243-4ceb-9b1b-52d4d387aba0"],
+Cell[390875, 7434, 536, 11, 24, "Message",ExpressionUUID->"72ae2856-cc81-4134-bdaa-066db609cc5b"],
+Cell[391414, 7447, 142445, 2398, 62, "Output",ExpressionUUID->"5d275bc4-aa0d-4fd4-a0b4-e26c8c9e1683"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[238949, 4799, 158, 3, 30, "Input",ExpressionUUID->"14476345-27b8-4e48-8db3-09c2fc74916a"],
-Cell[239110, 4804, 137645, 2386, 62, "Output",ExpressionUUID->"36770fe7-4532-4c1b-93d0-f2b545cb290f"]
+Cell[533896, 9850, 158, 3, 30, "Input",ExpressionUUID->"14476345-27b8-4e48-8db3-09c2fc74916a"],
+Cell[534057, 9855, 137645, 2386, 62, "Output",ExpressionUUID->"36770fe7-4532-4c1b-93d0-f2b545cb290f"]
 }, Open  ]],
-Cell[376770, 7193, 1708, 50, 73, "Input",ExpressionUUID->"802d1025-f1fe-4a39-8de7-6a23698d49f9"],
-Cell[378481, 7245, 1782, 58, 73, "Input",ExpressionUUID->"ea31f8bb-908d-43bb-9282-13ddde0b3904"],
+Cell[671717, 12244, 1708, 50, 73, "Input",ExpressionUUID->"802d1025-f1fe-4a39-8de7-6a23698d49f9"],
+Cell[673428, 12296, 1782, 58, 73, "Input",ExpressionUUID->"ea31f8bb-908d-43bb-9282-13ddde0b3904"],
 Cell[CellGroupData[{
-Cell[380288, 7307, 945, 24, 52, "Input",ExpressionUUID->"1e8da835-1ba4-4174-90df-6ed73a28a55b"],
-Cell[381236, 7333, 530, 7, 34, "Output",ExpressionUUID->"fab5ea44-73ae-434d-8e35-d5cd7bdfd4e1"],
-Cell[381769, 7342, 531, 7, 34, "Output",ExpressionUUID->"831885a6-f88e-4b74-8701-980113605761"]
+Cell[675235, 12358, 945, 24, 52, "Input",ExpressionUUID->"1e8da835-1ba4-4174-90df-6ed73a28a55b"],
+Cell[676183, 12384, 530, 7, 34, "Output",ExpressionUUID->"fab5ea44-73ae-434d-8e35-d5cd7bdfd4e1"],
+Cell[676716, 12393, 531, 7, 34, "Output",ExpressionUUID->"831885a6-f88e-4b74-8701-980113605761"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[382337, 7354, 4975, 115, 304, "Input",ExpressionUUID->"a2741175-a7e4-441c-8f7a-38b0187a3c67"],
-Cell[387315, 7471, 151017, 2701, 388, "Output",ExpressionUUID->"64c063b2-d65c-438d-ac99-05eac64d184c"]
+Cell[677284, 12405, 4975, 115, 304, "Input",ExpressionUUID->"a2741175-a7e4-441c-8f7a-38b0187a3c67"],
+Cell[682262, 12522, 151017, 2701, 388, "Output",ExpressionUUID->"64c063b2-d65c-438d-ac99-05eac64d184c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[538369, 10177, 550, 10, 30, "Input",ExpressionUUID->"67230837-c72a-412b-b67c-8691be1c72e7"],
-Cell[538922, 10189, 1058, 21, 24, "Print",ExpressionUUID->"af9b1297-9233-4b6c-8b48-d907cbba450a"],
-Cell[539983, 10212, 749, 15, 49, "Message",ExpressionUUID->"6d0a5e07-55dc-4e1b-8896-d4bd270422c6"],
-Cell[540735, 10229, 749, 15, 49, "Message",ExpressionUUID->"00484328-1add-4883-b14a-db9f5f4f8d96"],
-Cell[541487, 10246, 750, 15, 49, "Message",ExpressionUUID->"2a692d6c-839d-45aa-9f15-b771133ce086"],
-Cell[542240, 10263, 565, 12, 24, "Message",ExpressionUUID->"80d20d02-6220-47d1-ac95-7d625a106a5e"],
-Cell[542808, 10277, 142985, 2398, 94, "Output",ExpressionUUID->"32f4c7f7-b7b3-493a-a49a-16eb33f249e5"]
+Cell[833316, 15228, 550, 10, 30, "Input",ExpressionUUID->"67230837-c72a-412b-b67c-8691be1c72e7"],
+Cell[833869, 15240, 1058, 21, 24, "Print",ExpressionUUID->"af9b1297-9233-4b6c-8b48-d907cbba450a"],
+Cell[834930, 15263, 749, 15, 49, "Message",ExpressionUUID->"6d0a5e07-55dc-4e1b-8896-d4bd270422c6"],
+Cell[835682, 15280, 749, 15, 49, "Message",ExpressionUUID->"00484328-1add-4883-b14a-db9f5f4f8d96"],
+Cell[836434, 15297, 750, 15, 49, "Message",ExpressionUUID->"2a692d6c-839d-45aa-9f15-b771133ce086"],
+Cell[837187, 15314, 565, 12, 24, "Message",ExpressionUUID->"80d20d02-6220-47d1-ac95-7d625a106a5e"],
+Cell[837755, 15328, 142985, 2398, 94, "Output",ExpressionUUID->"32f4c7f7-b7b3-493a-a49a-16eb33f249e5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[685830, 12680, 4800, 124, 346, "Input",ExpressionUUID->"f2e92abb-4812-4cb9-ae75-02de734da57a"],
-Cell[690633, 12806, 110606, 1989, 406, "Output",ExpressionUUID->"68b9812b-d6fd-47c3-9f3a-2fe37ff0d747"]
+Cell[980777, 17731, 4800, 124, 346, "Input",ExpressionUUID->"f2e92abb-4812-4cb9-ae75-02de734da57a"],
+Cell[985580, 17857, 110606, 1989, 406, "Output",ExpressionUUID->"68b9812b-d6fd-47c3-9f3a-2fe37ff0d747"]
 }, Open  ]]
 }, Closed]]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[801312, 14803, 311, 5, 67, "Section",ExpressionUUID->"fb51fae7-f02e-478b-8025-e5b019915b4b"],
+Cell[1096259, 19854, 311, 5, 67, "Section",ExpressionUUID->"fb51fae7-f02e-478b-8025-e5b019915b4b"],
 Cell[CellGroupData[{
-Cell[801648, 14812, 245, 4, 54, "Subsection",ExpressionUUID->"5d7712d1-d1dd-48b2-a133-3d2c10241e28"],
+Cell[1096595, 19863, 245, 4, 54, "Subsection",ExpressionUUID->"5d7712d1-d1dd-48b2-a133-3d2c10241e28"],
 Cell[CellGroupData[{
-Cell[801918, 14820, 168, 3, 45, "Subsubsection",ExpressionUUID->"95cf283f-8940-4af2-ac10-d12a8fd82ca1"],
+Cell[1096865, 19871, 168, 3, 45, "Subsubsection",ExpressionUUID->"95cf283f-8940-4af2-ac10-d12a8fd82ca1"],
 Cell[CellGroupData[{
-Cell[802111, 14827, 1476, 34, 129, "Code",ExpressionUUID->"a1ce5dea-991d-4bfa-af6c-f4c821a4459b"],
+Cell[1097058, 19878, 1472, 33, 129, "Code",ExpressionUUID->"a1ce5dea-991d-4bfa-af6c-f4c821a4459b"],
 Cell[CellGroupData[{
-Cell[803612, 14865, 4128, 60, 82, "Print",ExpressionUUID->"59876aa2-1d1d-4b71-a79d-2b58ca0835cd"],
-Cell[807743, 14927, 3948, 57, 24, "Print",ExpressionUUID->"929176bb-f1a7-4f63-bc78-5f87a0db20f2"],
-Cell[811694, 14986, 3948, 57, 24, "Print",ExpressionUUID->"202da3c8-c6b4-499c-b09a-57d9076ea9ef"],
-Cell[815645, 15045, 3948, 57, 24, "Print",ExpressionUUID->"d9b72d93-0d54-407a-a489-8505647b0eb4"]
+Cell[1098555, 19915, 4151, 60, 82, "Print",ExpressionUUID->"4c35abbf-e312-4aad-87f0-a54c1335158b"],
+Cell[1102709, 19977, 3969, 57, 24, "Print",ExpressionUUID->"871c2c3b-00c4-4a97-bda3-f26f1b4bb55a"],
+Cell[1106681, 20036, 3969, 57, 24, "Print",ExpressionUUID->"8f5dd36a-1646-49dd-9183-a6ddf9ae8daa"],
+Cell[1110653, 20095, 3969, 57, 24, "Print",ExpressionUUID->"59709701-856c-4244-918d-13245b058ba3"]
 }, Open  ]],
-Cell[819608, 15105, 5074, 73, 119, "Output",ExpressionUUID->"efea6634-f9b2-4950-bfc0-729e632ffd47"],
-Cell[824685, 15180, 4756, 67, 34, "Output",ExpressionUUID->"d9f7edaa-cf40-49da-b123-5b790cfd81b4"],
-Cell[829444, 15249, 4752, 69, 34, "Output",ExpressionUUID->"1ff02d09-e5e3-46dd-9ef0-b76c27be74f5"]
+Cell[1114637, 20155, 5096, 73, 119, "Output",ExpressionUUID->"a3dda332-4b67-4a72-96e5-974c26a9f99c"],
+Cell[1119736, 20230, 4778, 67, 34, "Output",ExpressionUUID->"c0222b21-24bd-4ef3-815a-f78e750465ea"],
+Cell[1124517, 20299, 4777, 69, 34, "Output",ExpressionUUID->"4d0fc939-d19f-4f6e-89dd-4849969a7884"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[834233, 15323, 1643, 35, 91, "Code",ExpressionUUID->"3de2d281-4289-4288-856e-5351261e9140"],
-Cell[835879, 15360, 5147, 74, 56, "Output",ExpressionUUID->"6c49a5f5-495f-4589-b400-ce54743df9ea"],
-Cell[841029, 15436, 5095, 72, 34, "Output",ExpressionUUID->"16f8f4e1-2de2-4a57-8db3-4846f1907820"]
+Cell[1129331, 20373, 1639, 34, 91, "Code",ExpressionUUID->"3de2d281-4289-4288-856e-5351261e9140"],
+Cell[1130973, 20409, 5165, 73, 56, "Output",ExpressionUUID->"8bcb756f-6539-469e-a672-c192d8212f90"],
+Cell[1136141, 20484, 5113, 71, 34, "Output",ExpressionUUID->"d09c29e1-e6c7-4195-b960-10caeafeec41"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[846161, 15513, 3350, 90, 205, "Code",ExpressionUUID->"4b2d97a3-fa2c-4c79-bbd1-06a34727f138"],
+Cell[1141291, 20560, 3346, 89, 205, "Code",ExpressionUUID->"4b2d97a3-fa2c-4c79-bbd1-06a34727f138"],
 Cell[CellGroupData[{
-Cell[849536, 15607, 5095, 74, 24, "Print",ExpressionUUID->"1ddd49bd-960e-4de1-8f85-d1796dce4b42"],
-Cell[854634, 15683, 5094, 74, 24, "Print",ExpressionUUID->"50d076cb-ffd6-437c-8996-d1a34c8ac043"],
-Cell[859731, 15759, 5092, 74, 24, "Print",ExpressionUUID->"5264296a-c5fe-46dd-a529-259a2abe3b0f"],
-Cell[864826, 15835, 5112, 75, 24, "Print",ExpressionUUID->"b5864146-fcc4-470c-bad3-cc27dacbaae6"],
-Cell[869941, 15912, 5097, 74, 24, "Print",ExpressionUUID->"0e6b7a58-285d-4079-9f1e-341744a9a654"],
-Cell[875041, 15988, 5127, 75, 24, "Print",ExpressionUUID->"39447650-8cc3-4f16-b3c8-bcfebdccd198"],
-Cell[880171, 16065, 5082, 74, 24, "Print",ExpressionUUID->"7f1ff608-ccea-4ab1-9e70-a093dc244068"],
-Cell[885256, 16141, 5082, 74, 24, "Print",ExpressionUUID->"522f7e3d-078b-4854-bdab-9c17625b1c23"],
-Cell[890341, 16217, 5089, 74, 24, "Print",ExpressionUUID->"abef30c8-4dc9-4628-87bf-31af14203679"]
+Cell[1144662, 20653, 5120, 75, 24, "Print",ExpressionUUID->"0838d304-eda1-4b5e-a858-ee5ab2b62970"],
+Cell[1149785, 20730, 5118, 75, 24, "Print",ExpressionUUID->"5ca56804-ee25-474c-bd77-fe3780e7d903"],
+Cell[1154906, 20807, 5118, 75, 24, "Print",ExpressionUUID->"8d3337b3-4378-4b88-8cd5-0ed7fab9a3e7"],
+Cell[1160027, 20884, 5138, 76, 24, "Print",ExpressionUUID->"1749f6bf-b1a5-4510-b440-e6222842de8c"],
+Cell[1165168, 20962, 5121, 75, 24, "Print",ExpressionUUID->"51827c3b-b2a3-49ce-bd64-6d97e0812fd1"],
+Cell[1170292, 21039, 5149, 76, 24, "Print",ExpressionUUID->"afb9a4b0-2849-497b-aca3-467d285c2f2c"],
+Cell[1175444, 21117, 5106, 75, 24, "Print",ExpressionUUID->"4f563f60-7fb3-43e0-98e2-ed509b5add35"],
+Cell[1180553, 21194, 5106, 75, 24, "Print",ExpressionUUID->"32577c33-170d-4b30-94d0-d7dea9d4218b"],
+Cell[1185662, 21271, 5113, 75, 24, "Print",ExpressionUUID->"c1257c5e-026c-45a4-a50a-e24235db0f3a"]
 }, Open  ]]
 }, Open  ]],
-Cell[895457, 16295, 1236, 24, 52, "Code",ExpressionUUID->"1690f4ac-5369-4645-bcb5-0e7d841c2bd8"],
+Cell[1190802, 21350, 1232, 23, 52, "Code",ExpressionUUID->"1690f4ac-5369-4645-bcb5-0e7d841c2bd8"],
 Cell[CellGroupData[{
-Cell[896718, 16323, 772, 18, 52, "Input",ExpressionUUID->"5671d6e7-9457-4b54-bf4b-1cd5b0dc7914"],
-Cell[897493, 16343, 113605, 1886, 382, "Output",ExpressionUUID->"06d6107a-f1cf-4677-921e-5aad6bf25ea5"]
+Cell[1192059, 21377, 772, 18, 52, "Input",ExpressionUUID->"5671d6e7-9457-4b54-bf4b-1cd5b0dc7914"],
+Cell[1192834, 21397, 113631, 1887, 382, "Output",ExpressionUUID->"e779ebd0-4d2b-4ffb-81a7-39dd85184c25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1011135, 18234, 1522, 41, 94, "Input",ExpressionUUID->"0ce718bc-4413-44c9-b750-dda072088dd3"],
-Cell[1012660, 18277, 166297, 2751, 382, "Output",ExpressionUUID->"e0e25515-3ac4-4e44-9c87-b8f67f726c7b"]
+Cell[1306502, 23289, 1522, 41, 94, "Input",ExpressionUUID->"0ce718bc-4413-44c9-b750-dda072088dd3"],
+Cell[1308027, 23332, 166321, 2751, 382, "Output",ExpressionUUID->"26185b65-e79a-412f-b7fd-28dd3b6288aa"]
 }, Open  ]]
-}, Closed]],
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[1179006, 21034, 392, 6, 37, "Subsubsection",ExpressionUUID->"05f8ddb7-185e-440f-b957-faf193b39875"],
-Cell[1179401, 21042, 282, 6, 30, "Input",ExpressionUUID->"435e1193-a4d2-4eb0-a73c-85779f945419"],
+Cell[1474397, 26089, 392, 6, 45, "Subsubsection",ExpressionUUID->"05f8ddb7-185e-440f-b957-faf193b39875"],
+Cell[1474792, 26097, 282, 6, 30, "Input",ExpressionUUID->"435e1193-a4d2-4eb0-a73c-85779f945419"],
 Cell[CellGroupData[{
-Cell[1179708, 21052, 2862, 51, 94, "Input",ExpressionUUID->"2a12f703-67b6-47a6-aae2-afc2767467e6"],
-Cell[1182573, 21105, 2560, 37, 34, "Output",ExpressionUUID->"987543e7-a454-4c9c-80b3-5b2c20daaf2c"]
+Cell[1475099, 26107, 2862, 51, 94, "Input",ExpressionUUID->"2a12f703-67b6-47a6-aae2-afc2767467e6"],
+Cell[1477964, 26160, 2581, 37, 34, "Output",ExpressionUUID->"6fa066d1-5d0e-4a2c-96b9-39d77373e41a"]
 }, Open  ]],
-Cell[1185148, 21145, 261, 6, 30, "Input",ExpressionUUID->"0130af3d-e865-48b4-8d88-29f1a2c393fb"],
+Cell[1480560, 26200, 261, 6, 30, "Input",ExpressionUUID->"0130af3d-e865-48b4-8d88-29f1a2c393fb"],
 Cell[CellGroupData[{
-Cell[1185434, 21155, 4025, 97, 346, "Input",ExpressionUUID->"a89003ba-a43b-4259-bba9-63e0a493b6e1"],
-Cell[1189462, 21254, 705, 12, 34, "Output",ExpressionUUID->"c3a7f632-116f-4e37-8123-7cf3761a8c9f"]
+Cell[1480846, 26210, 4025, 97, 346, "Input",ExpressionUUID->"a89003ba-a43b-4259-bba9-63e0a493b6e1"],
+Cell[1484874, 26309, 728, 12, 34, "Output",ExpressionUUID->"899a8600-cb73-4d36-92b2-424b97b44e54"]
 }, Open  ]],
-Cell[1190182, 21269, 2921, 68, 136, "Input",ExpressionUUID->"ceedd337-cf2b-442b-8193-d737c8c98f68"],
-Cell[1193106, 21339, 2953, 69, 136, "Input",ExpressionUUID->"12c76d06-3602-4a7e-9629-05bb7d32b47d"],
+Cell[1485617, 26324, 2947, 69, 136, "Input",ExpressionUUID->"ceedd337-cf2b-442b-8193-d737c8c98f68"],
+Cell[1488567, 26395, 2953, 69, 136, "Input",ExpressionUUID->"12c76d06-3602-4a7e-9629-05bb7d32b47d"],
 Cell[CellGroupData[{
-Cell[1196084, 21412, 2920, 69, 136, "Input",ExpressionUUID->"5cd6b0ae-1dc0-4034-b3c0-7d8cd998917c"],
-Cell[1199007, 21483, 160, 3, 34, "Output",ExpressionUUID->"3c5592cc-303b-4af3-bd9f-868eaff8edd1"]
+Cell[1491545, 26468, 2920, 69, 136, "Input",ExpressionUUID->"5cd6b0ae-1dc0-4034-b3c0-7d8cd998917c"],
+Cell[1494468, 26539, 160, 3, 34, "Output",ExpressionUUID->"3c5592cc-303b-4af3-bd9f-868eaff8edd1"]
 }, Open  ]],
-Cell[1199182, 21489, 3119, 71, 136, "Input",ExpressionUUID->"a5b94227-804f-491e-a39b-93fc5aafafdf"],
-Cell[1202304, 21562, 3063, 70, 136, "Input",ExpressionUUID->"6c17def2-9932-42d6-9c79-d36e4d075d98"],
-Cell[1205370, 21634, 3177, 73, 136, "Input",ExpressionUUID->"22c6a271-d0d2-43b8-ad82-01f037d33540"],
-Cell[1208550, 21709, 3148, 72, 136, "Input",ExpressionUUID->"4b73c7eb-ffcb-4270-be7a-48589f4b7678"],
-Cell[1211701, 21783, 3143, 73, 136, "Input",ExpressionUUID->"d292fe54-828b-4091-93e1-529c2b946bba"],
+Cell[1494643, 26545, 3119, 71, 136, "Input",ExpressionUUID->"a5b94227-804f-491e-a39b-93fc5aafafdf"],
+Cell[1497765, 26618, 3063, 70, 136, "Input",ExpressionUUID->"6c17def2-9932-42d6-9c79-d36e4d075d98"],
+Cell[1500831, 26690, 3177, 73, 136, "Input",ExpressionUUID->"22c6a271-d0d2-43b8-ad82-01f037d33540"],
+Cell[1504011, 26765, 3148, 72, 136, "Input",ExpressionUUID->"4b73c7eb-ffcb-4270-be7a-48589f4b7678"],
+Cell[1507162, 26839, 3143, 73, 136, "Input",ExpressionUUID->"d292fe54-828b-4091-93e1-529c2b946bba"],
 Cell[CellGroupData[{
-Cell[1214869, 21860, 8363, 188, 388, "Input",ExpressionUUID->"0b23fd73-1e2c-4c35-ac74-e123a3fa97f6"],
-Cell[1223235, 22050, 82533, 1692, 380, "Output",ExpressionUUID->"7f0ae77c-21eb-4ada-821f-3abc906e6d29"]
+Cell[1510330, 26916, 8363, 188, 388, "Input",ExpressionUUID->"0b23fd73-1e2c-4c35-ac74-e123a3fa97f6"],
+Cell[1518696, 27106, 82533, 1692, 380, "Output",ExpressionUUID->"7f0ae77c-21eb-4ada-821f-3abc906e6d29"]
 }, Open  ]]
-}, Closed]],
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[1305817, 23748, 177, 3, 37, "Subsubsection",ExpressionUUID->"8e2a6ca6-d90e-489c-9ad2-86cc7a281a09"],
+Cell[1601278, 28804, 177, 3, 45, "Subsubsection",ExpressionUUID->"8e2a6ca6-d90e-489c-9ad2-86cc7a281a09"],
 Cell[CellGroupData[{
-Cell[1306019, 23755, 8257, 181, 388, "Input",ExpressionUUID->"647bd954-4cc4-49fc-911c-6cccb0bd6649"],
-Cell[1314279, 23938, 74722, 1559, 374, "Output",ExpressionUUID->"8428df18-0e25-44e1-b6b2-c1fcad0b2402"]
+Cell[1601480, 28811, 8257, 181, 388, "Input",ExpressionUUID->"647bd954-4cc4-49fc-911c-6cccb0bd6649"],
+Cell[1609740, 28994, 74722, 1559, 374, "Output",ExpressionUUID->"8428df18-0e25-44e1-b6b2-c1fcad0b2402"]
 }, Open  ]],
-Cell[1389016, 25500, 450, 10, 30, "Input",ExpressionUUID->"4ca36591-3400-4169-b876-cefd11a3e4d6"],
-Cell[1389469, 25512, 175, 3, 30, "Input",ExpressionUUID->"e14946fa-85a5-4a9c-8592-901dc792f5df"],
+Cell[1684477, 30556, 450, 10, 30, "Input",ExpressionUUID->"4ca36591-3400-4169-b876-cefd11a3e4d6"],
+Cell[1684930, 30568, 175, 3, 30, "Input",ExpressionUUID->"e14946fa-85a5-4a9c-8592-901dc792f5df"],
 Cell[CellGroupData[{
-Cell[1389669, 25519, 311, 6, 30, "Input",ExpressionUUID->"6cb1c26c-128f-445d-86e7-845f53507cd4"],
-Cell[1389983, 25527, 27413, 599, 46, "Output",ExpressionUUID->"9ddfb16e-3781-4b6e-82a5-7eaf9b6f4d82"]
+Cell[1685130, 30575, 311, 6, 30, "Input",ExpressionUUID->"6cb1c26c-128f-445d-86e7-845f53507cd4"],
+Cell[1685444, 30583, 27413, 599, 46, "Output",ExpressionUUID->"9ddfb16e-3781-4b6e-82a5-7eaf9b6f4d82"]
 }, Open  ]],
-Cell[1417411, 26129, 571, 15, 30, "Input",ExpressionUUID->"dba2a134-1b12-4a84-bce9-ddba7872374e"],
+Cell[1712872, 31185, 571, 15, 30, "Input",ExpressionUUID->"dba2a134-1b12-4a84-bce9-ddba7872374e"],
 Cell[CellGroupData[{
-Cell[1418007, 26148, 848, 18, 52, "Input",ExpressionUUID->"6f0a3192-0f42-4ffd-84b9-9a6bc5b0edce"],
-Cell[1418858, 26168, 1111, 30, 43, "Output",ExpressionUUID->"646aac0f-d14c-4747-95ef-9e6656b55140"]
+Cell[1713468, 31204, 848, 18, 52, "Input",ExpressionUUID->"6f0a3192-0f42-4ffd-84b9-9a6bc5b0edce"],
+Cell[1714319, 31224, 1111, 30, 43, "Output",ExpressionUUID->"646aac0f-d14c-4747-95ef-9e6656b55140"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1420006, 26203, 1003, 22, 52, "Input",ExpressionUUID->"863ab353-736f-43bd-a316-bbedaa53c718"],
-Cell[1421012, 26227, 800, 17, 34, "Output",ExpressionUUID->"fe0ca514-92f1-4b49-aa1b-9f50a6ba3f99"]
+Cell[1715467, 31259, 1003, 22, 52, "Input",ExpressionUUID->"863ab353-736f-43bd-a316-bbedaa53c718"],
+Cell[1716473, 31283, 800, 17, 34, "Output",ExpressionUUID->"fe0ca514-92f1-4b49-aa1b-9f50a6ba3f99"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1421849, 26249, 620, 14, 52, "Input",ExpressionUUID->"ce2dcdf4-c093-42b5-b19c-d6f11e7ec090"],
-Cell[1422472, 26265, 813, 22, 34, "Output",ExpressionUUID->"027eb222-c420-4618-aa48-43b014607cf5"]
+Cell[1717310, 31305, 620, 14, 52, "Input",ExpressionUUID->"ce2dcdf4-c093-42b5-b19c-d6f11e7ec090"],
+Cell[1717933, 31321, 813, 22, 34, "Output",ExpressionUUID->"027eb222-c420-4618-aa48-43b014607cf5"]
 }, Open  ]],
-Cell[1423300, 26290, 1854, 57, 157, "Input",ExpressionUUID->"24217624-6924-4300-a58f-dec9893b4c4f"],
+Cell[1718761, 31346, 1854, 57, 157, "Input",ExpressionUUID->"24217624-6924-4300-a58f-dec9893b4c4f"],
 Cell[CellGroupData[{
-Cell[1425179, 26351, 308, 9, 30, "Input",ExpressionUUID->"c88af53d-475e-491b-976c-d8f11a80c1fa"],
-Cell[1425490, 26362, 199, 3, 34, "Output",ExpressionUUID->"10c6abaf-4337-4315-b4e9-13c3592d662a"]
+Cell[1720640, 31407, 308, 9, 30, "Input",ExpressionUUID->"c88af53d-475e-491b-976c-d8f11a80c1fa"],
+Cell[1720951, 31418, 199, 3, 34, "Output",ExpressionUUID->"10c6abaf-4337-4315-b4e9-13c3592d662a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1425726, 26370, 220, 6, 30, "Input",ExpressionUUID->"c19ce28c-84fa-49f6-9e0f-9d333f38b503"],
-Cell[1425949, 26378, 209, 4, 34, "Output",ExpressionUUID->"b3620918-a7d1-436f-a18f-bb3650286cbb"]
+Cell[1721187, 31426, 220, 6, 30, "Input",ExpressionUUID->"c19ce28c-84fa-49f6-9e0f-9d333f38b503"],
+Cell[1721410, 31434, 209, 4, 34, "Output",ExpressionUUID->"b3620918-a7d1-436f-a18f-bb3650286cbb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1426195, 26387, 576, 17, 30, "Input",ExpressionUUID->"3d95b4d5-b41d-425f-88b6-690cd03bb96d"],
-Cell[1426774, 26406, 265, 5, 34, "Output",ExpressionUUID->"768df21f-31b7-472c-a8e0-718873b5f20e"]
+Cell[1721656, 31443, 576, 17, 30, "Input",ExpressionUUID->"3d95b4d5-b41d-425f-88b6-690cd03bb96d"],
+Cell[1722235, 31462, 265, 5, 34, "Output",ExpressionUUID->"768df21f-31b7-472c-a8e0-718873b5f20e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1427076, 26416, 1001, 21, 52, "Input",ExpressionUUID->"344d61a3-a7a1-4a94-a561-0cb99a39f0a4"],
-Cell[1428080, 26439, 1984, 55, 75, "Output",ExpressionUUID->"c20a7475-8d67-419d-9d11-7e29c78b0137"]
+Cell[1722537, 31472, 1001, 21, 52, "Input",ExpressionUUID->"344d61a3-a7a1-4a94-a561-0cb99a39f0a4"],
+Cell[1723541, 31495, 1984, 55, 75, "Output",ExpressionUUID->"c20a7475-8d67-419d-9d11-7e29c78b0137"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1430101, 26499, 1171, 25, 52, "Input",ExpressionUUID->"65ce21d7-7e6e-4e64-bade-fd2002a341f4"],
-Cell[1431275, 26526, 1200, 25, 56, "Output",ExpressionUUID->"d996e027-357f-4a63-84d1-0171577e4f9d"]
+Cell[1725562, 31555, 1171, 25, 52, "Input",ExpressionUUID->"65ce21d7-7e6e-4e64-bade-fd2002a341f4"],
+Cell[1726736, 31582, 1200, 25, 56, "Output",ExpressionUUID->"d996e027-357f-4a63-84d1-0171577e4f9d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1432512, 26556, 1018, 22, 73, "Input",ExpressionUUID->"6bccd526-80c6-4b62-b24e-42c96b96e6ab"],
-Cell[1433533, 26580, 1493, 41, 56, "Output",ExpressionUUID->"9ae83b1b-f091-4547-854c-ff524748cc4d"]
+Cell[1727973, 31612, 1018, 22, 73, "Input",ExpressionUUID->"6bccd526-80c6-4b62-b24e-42c96b96e6ab"],
+Cell[1728994, 31636, 1493, 41, 56, "Output",ExpressionUUID->"9ae83b1b-f091-4547-854c-ff524748cc4d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1435063, 26626, 1125, 23, 30, "Input",ExpressionUUID->"9215c7be-b644-4275-a254-c523e9d64cb3"],
-Cell[1436191, 26651, 2033, 56, 43, "Output",ExpressionUUID->"a517195f-733f-4834-8b54-844cf15aeff6"]
+Cell[1730524, 31682, 1125, 23, 30, "Input",ExpressionUUID->"9215c7be-b644-4275-a254-c523e9d64cb3"],
+Cell[1731652, 31707, 2033, 56, 43, "Output",ExpressionUUID->"a517195f-733f-4834-8b54-844cf15aeff6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1438261, 26712, 1279, 26, 30, "Input",ExpressionUUID->"f7e04ed3-520a-4438-afa6-a646de933ed5"],
-Cell[1439543, 26740, 1546, 32, 34, "Output",ExpressionUUID->"38be5c7a-b0bd-4aa7-936a-de6b6beda027"]
+Cell[1733722, 31768, 1279, 26, 30, "Input",ExpressionUUID->"f7e04ed3-520a-4438-afa6-a646de933ed5"],
+Cell[1735004, 31796, 1546, 32, 34, "Output",ExpressionUUID->"38be5c7a-b0bd-4aa7-936a-de6b6beda027"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1441126, 26777, 1370, 29, 52, "Input",ExpressionUUID->"3d35e7ca-2f42-4595-94bf-b1bca523afad"],
-Cell[1442499, 26808, 1468, 41, 34, "Output",ExpressionUUID->"42261baf-97f6-47c2-8f04-93388e295a45"]
+Cell[1736587, 31833, 1370, 29, 52, "Input",ExpressionUUID->"3d35e7ca-2f42-4595-94bf-b1bca523afad"],
+Cell[1737960, 31864, 1468, 41, 34, "Output",ExpressionUUID->"42261baf-97f6-47c2-8f04-93388e295a45"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1444004, 26854, 1484, 45, 73, "Input",ExpressionUUID->"2c6afa89-93d0-42f1-b5c7-b1c33d768227"],
-Cell[1445491, 26901, 335, 7, 34, "Output",ExpressionUUID->"4c904574-fe23-47e1-931a-5f8b8a838996"],
-Cell[1445829, 26910, 333, 7, 34, "Output",ExpressionUUID->"2b4f925b-3c93-4d45-8d13-e30a4150d7f6"],
-Cell[1446165, 26919, 332, 7, 34, "Output",ExpressionUUID->"041e9283-ba9c-4316-bb21-0126a0f241a7"]
+Cell[1739465, 31910, 1484, 45, 73, "Input",ExpressionUUID->"2c6afa89-93d0-42f1-b5c7-b1c33d768227"],
+Cell[1740952, 31957, 335, 7, 34, "Output",ExpressionUUID->"4c904574-fe23-47e1-931a-5f8b8a838996"],
+Cell[1741290, 31966, 333, 7, 34, "Output",ExpressionUUID->"2b4f925b-3c93-4d45-8d13-e30a4150d7f6"],
+Cell[1741626, 31975, 332, 7, 34, "Output",ExpressionUUID->"041e9283-ba9c-4316-bb21-0126a0f241a7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1446534, 26931, 1019, 28, 30, "Input",ExpressionUUID->"7c208665-8a34-45c9-abc7-008d7fd12087"],
-Cell[1447556, 26961, 75657, 1307, 243, "Output",ExpressionUUID->"fa394a62-b8e6-4957-8b4a-1d4a51c20348"]
+Cell[1741995, 31987, 1019, 28, 30, "Input",ExpressionUUID->"7c208665-8a34-45c9-abc7-008d7fd12087"],
+Cell[1743017, 32017, 75657, 1307, 243, "Output",ExpressionUUID->"fa394a62-b8e6-4957-8b4a-1d4a51c20348"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1523250, 28273, 710, 21, 30, "Input",ExpressionUUID->"bc48aefe-afcc-4410-a141-d3a0156772e2"],
-Cell[1523963, 28296, 322, 5, 34, "Output",ExpressionUUID->"a303666a-b39d-4f9e-b802-176a0c0a1afe"]
+Cell[1818711, 33329, 710, 21, 30, "Input",ExpressionUUID->"bc48aefe-afcc-4410-a141-d3a0156772e2"],
+Cell[1819424, 33352, 322, 5, 34, "Output",ExpressionUUID->"a303666a-b39d-4f9e-b802-176a0c0a1afe"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1524322, 28306, 261, 6, 30, "Input",ExpressionUUID->"18faac6c-2721-4f37-9d80-9a0902286a16"],
-Cell[1524586, 28314, 249, 4, 34, "Output",ExpressionUUID->"6c7a7c2c-4718-42cf-8a35-f652010f9982"]
+Cell[1819783, 33362, 261, 6, 30, "Input",ExpressionUUID->"18faac6c-2721-4f37-9d80-9a0902286a16"],
+Cell[1820047, 33370, 249, 4, 34, "Output",ExpressionUUID->"6c7a7c2c-4718-42cf-8a35-f652010f9982"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1524872, 28323, 702, 16, 30, "Input",ExpressionUUID->"eb88fe3e-2920-43c6-bb30-0c3dd51e5553"],
-Cell[1525577, 28341, 1681, 48, 34, "Output",ExpressionUUID->"cae99e6b-8e99-4e1b-b88c-e93367cae239"]
+Cell[1820333, 33379, 702, 16, 30, "Input",ExpressionUUID->"eb88fe3e-2920-43c6-bb30-0c3dd51e5553"],
+Cell[1821038, 33397, 1681, 48, 34, "Output",ExpressionUUID->"cae99e6b-8e99-4e1b-b88c-e93367cae239"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1527295, 28394, 816, 20, 30, "Input",ExpressionUUID->"812d7429-3f3a-49bf-9795-1ceeb6b67348"],
-Cell[1528114, 28416, 884, 19, 34, "Output",ExpressionUUID->"33ce1a12-7101-4882-9c79-d9c57c1a5e88"]
+Cell[1822756, 33450, 816, 20, 30, "Input",ExpressionUUID->"812d7429-3f3a-49bf-9795-1ceeb6b67348"],
+Cell[1823575, 33472, 884, 19, 34, "Output",ExpressionUUID->"33ce1a12-7101-4882-9c79-d9c57c1a5e88"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1529035, 28440, 659, 15, 30, "Input",ExpressionUUID->"57688b94-8f98-4f5a-b7ad-ea40bf3fb4d1"],
-Cell[1529697, 28457, 2408, 69, 56, "Output",ExpressionUUID->"84ab3244-81d3-4626-b94b-89b59d2aa4d3"]
+Cell[1824496, 33496, 659, 15, 30, "Input",ExpressionUUID->"57688b94-8f98-4f5a-b7ad-ea40bf3fb4d1"],
+Cell[1825158, 33513, 2408, 69, 56, "Output",ExpressionUUID->"84ab3244-81d3-4626-b94b-89b59d2aa4d3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1532142, 28531, 755, 19, 30, "Input",ExpressionUUID->"c0e45f91-2e58-4983-9e24-51d870c92062"],
-Cell[1532900, 28552, 909, 19, 34, "Output",ExpressionUUID->"f1780f36-8c2e-49f7-98e0-17888dc37bb6"]
+Cell[1827603, 33587, 755, 19, 30, "Input",ExpressionUUID->"c0e45f91-2e58-4983-9e24-51d870c92062"],
+Cell[1828361, 33608, 909, 19, 34, "Output",ExpressionUUID->"f1780f36-8c2e-49f7-98e0-17888dc37bb6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1533846, 28576, 720, 16, 30, "Input",ExpressionUUID->"be3ad9f5-a830-44a4-99d9-c9261d2f6f90"],
-Cell[1534569, 28594, 2430, 69, 56, "Output",ExpressionUUID->"ff693001-ee62-401d-a2ad-2a21b887b6b3"]
+Cell[1829307, 33632, 720, 16, 30, "Input",ExpressionUUID->"be3ad9f5-a830-44a4-99d9-c9261d2f6f90"],
+Cell[1830030, 33650, 2430, 69, 56, "Output",ExpressionUUID->"ff693001-ee62-401d-a2ad-2a21b887b6b3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1537036, 28668, 852, 21, 30, "Input",ExpressionUUID->"ebe4f704-d07a-4ab7-a6e1-2507b6d995ba"],
-Cell[1537891, 28691, 1255, 28, 34, "Output",ExpressionUUID->"da7881f0-2195-492f-bd05-6a04fa57b987"]
+Cell[1832497, 33724, 852, 21, 30, "Input",ExpressionUUID->"ebe4f704-d07a-4ab7-a6e1-2507b6d995ba"],
+Cell[1833352, 33747, 1255, 28, 34, "Output",ExpressionUUID->"da7881f0-2195-492f-bd05-6a04fa57b987"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1539183, 28724, 852, 21, 94, "Input",ExpressionUUID->"800dfdf7-16eb-4528-ad63-fba081370138"],
-Cell[1540038, 28747, 357, 6, 34, "Output",ExpressionUUID->"b8be8e4f-ca23-4f47-81af-bd6c5c6b54f7"],
-Cell[1540398, 28755, 357, 6, 34, "Output",ExpressionUUID->"0fd9a294-a75c-415c-bb58-a08bb9100a84"],
-Cell[1540758, 28763, 357, 6, 34, "Output",ExpressionUUID->"8fd85672-4c76-418e-a319-e13db8458618"],
-Cell[1541118, 28771, 356, 6, 34, "Output",ExpressionUUID->"dc4d789f-6293-4e0b-bae8-8cbcc2d6a291"]
+Cell[1834644, 33780, 852, 21, 94, "Input",ExpressionUUID->"800dfdf7-16eb-4528-ad63-fba081370138"],
+Cell[1835499, 33803, 357, 6, 34, "Output",ExpressionUUID->"b8be8e4f-ca23-4f47-81af-bd6c5c6b54f7"],
+Cell[1835859, 33811, 357, 6, 34, "Output",ExpressionUUID->"0fd9a294-a75c-415c-bb58-a08bb9100a84"],
+Cell[1836219, 33819, 357, 6, 34, "Output",ExpressionUUID->"8fd85672-4c76-418e-a319-e13db8458618"],
+Cell[1836579, 33827, 356, 6, 34, "Output",ExpressionUUID->"dc4d789f-6293-4e0b-bae8-8cbcc2d6a291"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1541511, 28782, 942, 22, 94, "Input",ExpressionUUID->"1d2ac60e-7329-4f2c-88d2-381128dada15"],
-Cell[1542456, 28806, 235, 5, 34, "Output",ExpressionUUID->"bf6e212c-d232-45ac-94e9-f9e5485ac42d"],
-Cell[1542694, 28813, 235, 5, 34, "Output",ExpressionUUID->"4ffd1245-4763-4b52-9a63-716ab3a3bbb1"],
-Cell[1542932, 28820, 236, 5, 34, "Output",ExpressionUUID->"7e35a969-68f9-4a07-beab-eab2862eb087"],
-Cell[1543171, 28827, 235, 5, 34, "Output",ExpressionUUID->"b2985f99-9180-46f3-8ab8-4136dfc71a20"]
+Cell[1836972, 33838, 942, 22, 94, "Input",ExpressionUUID->"1d2ac60e-7329-4f2c-88d2-381128dada15"],
+Cell[1837917, 33862, 235, 5, 34, "Output",ExpressionUUID->"bf6e212c-d232-45ac-94e9-f9e5485ac42d"],
+Cell[1838155, 33869, 235, 5, 34, "Output",ExpressionUUID->"4ffd1245-4763-4b52-9a63-716ab3a3bbb1"],
+Cell[1838393, 33876, 236, 5, 34, "Output",ExpressionUUID->"7e35a969-68f9-4a07-beab-eab2862eb087"],
+Cell[1838632, 33883, 235, 5, 34, "Output",ExpressionUUID->"b2985f99-9180-46f3-8ab8-4136dfc71a20"]
 }, Open  ]],
-Cell[1543421, 28835, 621, 15, 30, "Input",ExpressionUUID->"70c9c8af-ef4e-4ffc-8ecc-1d53ea4bfcfd"],
+Cell[1838882, 33891, 621, 15, 30, "Input",ExpressionUUID->"70c9c8af-ef4e-4ffc-8ecc-1d53ea4bfcfd"],
 Cell[CellGroupData[{
-Cell[1544067, 28854, 648, 15, 30, "Input",ExpressionUUID->"e13b50ad-2664-4958-ab1c-c379c78d5b8c"],
-Cell[1544718, 28871, 974, 27, 34, "Output",ExpressionUUID->"abfab8be-721d-4e44-a30d-6705affd75b1"]
+Cell[1839528, 33910, 648, 15, 30, "Input",ExpressionUUID->"e13b50ad-2664-4958-ab1c-c379c78d5b8c"],
+Cell[1840179, 33927, 974, 27, 34, "Output",ExpressionUUID->"abfab8be-721d-4e44-a30d-6705affd75b1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1545729, 28903, 938, 21, 30, "Input",ExpressionUUID->"738b888b-08ef-4f3d-950d-f5b373792eb5"],
-Cell[1546670, 28926, 673, 15, 34, "Output",ExpressionUUID->"936a71e0-9f1b-4b35-b143-71c3bc42080c"]
+Cell[1841190, 33959, 938, 21, 30, "Input",ExpressionUUID->"738b888b-08ef-4f3d-950d-f5b373792eb5"],
+Cell[1842131, 33982, 673, 15, 34, "Output",ExpressionUUID->"936a71e0-9f1b-4b35-b143-71c3bc42080c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1547380, 28946, 702, 16, 30, "Input",ExpressionUUID->"0cb338bb-c3bd-4ada-9720-762770699800"],
-Cell[1548085, 28964, 1707, 48, 34, "Output",ExpressionUUID->"cbb43ce9-38db-4afd-9e25-bbe66f29fd26"]
+Cell[1842841, 34002, 702, 16, 30, "Input",ExpressionUUID->"0cb338bb-c3bd-4ada-9720-762770699800"],
+Cell[1843546, 34020, 1707, 48, 34, "Output",ExpressionUUID->"cbb43ce9-38db-4afd-9e25-bbe66f29fd26"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1549829, 29017, 816, 20, 30, "Input",ExpressionUUID->"12a9b6a6-a60d-4c8d-9510-26e1b0c41e4c"],
-Cell[1550648, 29039, 909, 20, 34, "Output",ExpressionUUID->"5e53c6fe-e99f-474d-942c-f805a0a78c2f"]
+Cell[1845290, 34073, 816, 20, 30, "Input",ExpressionUUID->"12a9b6a6-a60d-4c8d-9510-26e1b0c41e4c"],
+Cell[1846109, 34095, 909, 20, 34, "Output",ExpressionUUID->"5e53c6fe-e99f-474d-942c-f805a0a78c2f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1551594, 29064, 709, 18, 30, "Input",ExpressionUUID->"707d9d01-d319-4161-bb26-bc125c773ede"],
-Cell[1552306, 29084, 931, 21, 34, "Output",ExpressionUUID->"f5fba92b-f568-443f-a5ab-fc67dcf583fd"]
+Cell[1847055, 34120, 709, 18, 30, "Input",ExpressionUUID->"707d9d01-d319-4161-bb26-bc125c773ede"],
+Cell[1847767, 34140, 931, 21, 34, "Output",ExpressionUUID->"f5fba92b-f568-443f-a5ab-fc67dcf583fd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1553274, 29110, 898, 19, 73, "Input",ExpressionUUID->"c1e6d590-644d-4a1b-992a-f7eb742ba46e"],
-Cell[1554175, 29131, 285, 6, 34, "Output",ExpressionUUID->"d46ed7d0-04dc-450a-883d-1eadc68154bb"],
-Cell[1554463, 29139, 285, 6, 34, "Output",ExpressionUUID->"2f2344f2-1499-43a0-a03e-73b062bf65e2"],
-Cell[1554751, 29147, 287, 6, 34, "Output",ExpressionUUID->"c7e8641b-f1a0-4796-8653-801129687bf2"]
+Cell[1848735, 34166, 898, 19, 73, "Input",ExpressionUUID->"c1e6d590-644d-4a1b-992a-f7eb742ba46e"],
+Cell[1849636, 34187, 285, 6, 34, "Output",ExpressionUUID->"d46ed7d0-04dc-450a-883d-1eadc68154bb"],
+Cell[1849924, 34195, 285, 6, 34, "Output",ExpressionUUID->"2f2344f2-1499-43a0-a03e-73b062bf65e2"],
+Cell[1850212, 34203, 287, 6, 34, "Output",ExpressionUUID->"c7e8641b-f1a0-4796-8653-801129687bf2"]
 }, Open  ]],
-Cell[1555053, 29156, 621, 15, 30, "Input",ExpressionUUID->"69c0e316-45df-4cc0-90b1-1bfffd8b1b62"],
+Cell[1850514, 34212, 621, 15, 30, "Input",ExpressionUUID->"69c0e316-45df-4cc0-90b1-1bfffd8b1b62"],
 Cell[CellGroupData[{
-Cell[1555699, 29175, 801, 17, 30, "Input",ExpressionUUID->"129db05f-2ca3-4c72-87ba-6afbc67cf3f3"],
-Cell[1556503, 29194, 3961, 113, 77, "Output",ExpressionUUID->"91a30270-9cd4-4e0f-8535-bc53ef709628"]
+Cell[1851160, 34231, 801, 17, 30, "Input",ExpressionUUID->"129db05f-2ca3-4c72-87ba-6afbc67cf3f3"],
+Cell[1851964, 34250, 3961, 113, 77, "Output",ExpressionUUID->"91a30270-9cd4-4e0f-8535-bc53ef709628"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1560501, 29312, 1161, 24, 30, "Input",ExpressionUUID->"c730254e-9206-4193-9ca5-58c17e30d0c3"],
-Cell[1561665, 29338, 1374, 31, 56, "Output",ExpressionUUID->"65b98207-4a1c-4b2b-b8d0-ae6e20644d93"]
+Cell[1855962, 34368, 1161, 24, 30, "Input",ExpressionUUID->"c730254e-9206-4193-9ca5-58c17e30d0c3"],
+Cell[1857126, 34394, 1374, 31, 56, "Output",ExpressionUUID->"65b98207-4a1c-4b2b-b8d0-ae6e20644d93"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1563076, 29374, 889, 18, 30, "Input",ExpressionUUID->"b6390792-6794-4d70-8c2a-e129ec872a25"],
-Cell[1563968, 29394, 2583, 72, 56, "Output",ExpressionUUID->"b817ffcf-9e80-4308-974c-5dd9db538a5a"]
+Cell[1858537, 34430, 889, 18, 30, "Input",ExpressionUUID->"b6390792-6794-4d70-8c2a-e129ec872a25"],
+Cell[1859429, 34450, 2583, 72, 56, "Output",ExpressionUUID->"b817ffcf-9e80-4308-974c-5dd9db538a5a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1566588, 29471, 1174, 25, 30, "Input",ExpressionUUID->"0c150d34-c864-4c75-ab97-59f21cbbd5a3"],
-Cell[1567765, 29498, 937, 21, 34, "Output",ExpressionUUID->"7aeba1d5-6f0c-4098-895a-17b2459c86e2"]
+Cell[1862049, 34527, 1174, 25, 30, "Input",ExpressionUUID->"0c150d34-c864-4c75-ab97-59f21cbbd5a3"],
+Cell[1863226, 34554, 937, 21, 34, "Output",ExpressionUUID->"7aeba1d5-6f0c-4098-895a-17b2459c86e2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1568739, 29524, 701, 16, 30, "Input",ExpressionUUID->"11797c4d-4127-463b-8fe5-f0d73c019e79"],
-Cell[1569443, 29542, 1634, 47, 34, "Output",ExpressionUUID->"5b5e641f-f11e-40d8-ac69-25a4afdebc8b"]
+Cell[1864200, 34580, 701, 16, 30, "Input",ExpressionUUID->"11797c4d-4127-463b-8fe5-f0d73c019e79"],
+Cell[1864904, 34598, 1634, 47, 34, "Output",ExpressionUUID->"5b5e641f-f11e-40d8-ac69-25a4afdebc8b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1571114, 29594, 669, 18, 30, "Input",ExpressionUUID->"40fe2106-8558-4bea-933a-f41d913d3ff3"],
-Cell[1571786, 29614, 696, 16, 34, "Output",ExpressionUUID->"c7fba553-0b1b-46a8-8da5-9e2c09503942"]
+Cell[1866575, 34650, 669, 18, 30, "Input",ExpressionUUID->"40fe2106-8558-4bea-933a-f41d913d3ff3"],
+Cell[1867247, 34670, 696, 16, 34, "Output",ExpressionUUID->"c7fba553-0b1b-46a8-8da5-9e2c09503942"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1572519, 29635, 864, 20, 30, "Input",ExpressionUUID->"08566873-29dd-4b0d-bb5a-81fab0335e39"],
-Cell[1573386, 29657, 1789, 52, 43, "Output",ExpressionUUID->"486f1a6d-6d66-4160-9499-c93b2d45b2d9"]
+Cell[1867980, 34691, 864, 20, 30, "Input",ExpressionUUID->"08566873-29dd-4b0d-bb5a-81fab0335e39"],
+Cell[1868847, 34713, 1789, 52, 43, "Output",ExpressionUUID->"486f1a6d-6d66-4160-9499-c93b2d45b2d9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1575212, 29714, 718, 19, 30, "Input",ExpressionUUID->"507b7ca9-8c2f-4074-88ac-b97c52dbc240"],
-Cell[1575933, 29735, 696, 16, 34, "Output",ExpressionUUID->"e3383432-9736-42ef-9767-7f0fdbad1bcd"]
+Cell[1870673, 34770, 718, 19, 30, "Input",ExpressionUUID->"507b7ca9-8c2f-4074-88ac-b97c52dbc240"],
+Cell[1871394, 34791, 696, 16, 34, "Output",ExpressionUUID->"e3383432-9736-42ef-9767-7f0fdbad1bcd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1576666, 29756, 704, 18, 30, "Input",ExpressionUUID->"206b2a19-61fa-4cf9-8344-02987267d3ce"],
-Cell[1577373, 29776, 854, 20, 34, "Output",ExpressionUUID->"9e52e39f-91ec-4d3e-9ffd-7d9461d6e21d"]
+Cell[1872127, 34812, 704, 18, 30, "Input",ExpressionUUID->"206b2a19-61fa-4cf9-8344-02987267d3ce"],
+Cell[1872834, 34832, 854, 20, 34, "Output",ExpressionUUID->"9e52e39f-91ec-4d3e-9ffd-7d9461d6e21d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1578264, 29801, 1095, 24, 94, "Input",ExpressionUUID->"f86b5cb8-2389-4d72-bc58-af192a6d5273"],
-Cell[1579362, 29827, 256, 5, 34, "Output",ExpressionUUID->"8e45fa4b-bf80-400e-8bd1-e75201f15885"],
-Cell[1579621, 29834, 256, 5, 34, "Output",ExpressionUUID->"0c74a98b-ee83-42aa-a092-f3585d63d541"],
-Cell[1579880, 29841, 256, 5, 34, "Output",ExpressionUUID->"ef7fa943-3469-4dbf-8a90-4c237ba26ff7"],
-Cell[1580139, 29848, 255, 5, 34, "Output",ExpressionUUID->"6ef6f7b8-14cd-43b7-96fe-1fc2545baad8"]
+Cell[1873725, 34857, 1095, 24, 94, "Input",ExpressionUUID->"f86b5cb8-2389-4d72-bc58-af192a6d5273"],
+Cell[1874823, 34883, 256, 5, 34, "Output",ExpressionUUID->"8e45fa4b-bf80-400e-8bd1-e75201f15885"],
+Cell[1875082, 34890, 256, 5, 34, "Output",ExpressionUUID->"0c74a98b-ee83-42aa-a092-f3585d63d541"],
+Cell[1875341, 34897, 256, 5, 34, "Output",ExpressionUUID->"ef7fa943-3469-4dbf-8a90-4c237ba26ff7"],
+Cell[1875600, 34904, 255, 5, 34, "Output",ExpressionUUID->"6ef6f7b8-14cd-43b7-96fe-1fc2545baad8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1580431, 29858, 978, 22, 30, "Input",ExpressionUUID->"2b2c023f-f1cb-4411-98fe-97bf56b4a332"],
-Cell[1581412, 29882, 1913, 54, 43, "Output",ExpressionUUID->"23170774-9226-45ef-b641-cbf4beae7583"]
+Cell[1875892, 34914, 978, 22, 30, "Input",ExpressionUUID->"2b2c023f-f1cb-4411-98fe-97bf56b4a332"],
+Cell[1876873, 34938, 1913, 54, 43, "Output",ExpressionUUID->"23170774-9226-45ef-b641-cbf4beae7583"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1583362, 29941, 681, 18, 30, "Input",ExpressionUUID->"5083e3c0-eb4a-47c2-a28b-201fe9b7256e"],
-Cell[1584046, 29961, 813, 18, 56, "Output",ExpressionUUID->"60ebdee5-4a0d-48c6-8d01-d112160fccde"]
+Cell[1878823, 34997, 681, 18, 30, "Input",ExpressionUUID->"5083e3c0-eb4a-47c2-a28b-201fe9b7256e"],
+Cell[1879507, 35017, 813, 18, 56, "Output",ExpressionUUID->"60ebdee5-4a0d-48c6-8d01-d112160fccde"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1584896, 29984, 252, 6, 30, "Input",ExpressionUUID->"5267a366-d932-4a1d-a331-d351527b4dd9"],
-Cell[1585151, 29992, 187, 4, 34, "Output",ExpressionUUID->"8a7ed467-ed0d-4aa8-900e-c574fb376cc0"]
+Cell[1880357, 35040, 252, 6, 30, "Input",ExpressionUUID->"5267a366-d932-4a1d-a331-d351527b4dd9"],
+Cell[1880612, 35048, 187, 4, 34, "Output",ExpressionUUID->"8a7ed467-ed0d-4aa8-900e-c574fb376cc0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1585375, 30001, 786, 17, 73, "Input",ExpressionUUID->"454ea65a-5316-423f-aec0-c00f2260f260"],
-Cell[1586164, 30020, 749, 16, 56, "Output",ExpressionUUID->"353090ab-cfb9-4aca-b681-5e0c078ecbcd"]
+Cell[1880836, 35057, 786, 17, 73, "Input",ExpressionUUID->"454ea65a-5316-423f-aec0-c00f2260f260"],
+Cell[1881625, 35076, 749, 16, 56, "Output",ExpressionUUID->"353090ab-cfb9-4aca-b681-5e0c078ecbcd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1586950, 30041, 235, 5, 30, "Input",ExpressionUUID->"cc097e61-28d3-4eae-9a94-9d4c3e3a05eb"],
-Cell[1587188, 30048, 1403, 37, 56, "Output",ExpressionUUID->"924e1968-5399-4bef-ac46-9d40c37ffb9d"]
+Cell[1882411, 35097, 235, 5, 30, "Input",ExpressionUUID->"cc097e61-28d3-4eae-9a94-9d4c3e3a05eb"],
+Cell[1882649, 35104, 1403, 37, 56, "Output",ExpressionUUID->"924e1968-5399-4bef-ac46-9d40c37ffb9d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1588628, 30090, 962, 21, 52, "Input",ExpressionUUID->"857d9a12-d8a2-4a92-a75d-ffd0ebf99846"],
-Cell[1589593, 30113, 1361, 38, 56, "Output",ExpressionUUID->"a0874d65-6559-4fa8-937f-bdf4e0517893"]
+Cell[1884089, 35146, 962, 21, 52, "Input",ExpressionUUID->"857d9a12-d8a2-4a92-a75d-ffd0ebf99846"],
+Cell[1885054, 35169, 1361, 38, 56, "Output",ExpressionUUID->"a0874d65-6559-4fa8-937f-bdf4e0517893"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1590991, 30156, 681, 18, 52, "Input",ExpressionUUID->"e39f15c2-f4e3-421b-b0fd-0b71c620506f"],
-Cell[1591675, 30176, 872, 19, 56, "Output",ExpressionUUID->"829a9393-3530-47bf-ac2a-158d3d5f9bf6"]
+Cell[1886452, 35212, 681, 18, 52, "Input",ExpressionUUID->"e39f15c2-f4e3-421b-b0fd-0b71c620506f"],
+Cell[1887136, 35232, 872, 19, 56, "Output",ExpressionUUID->"829a9393-3530-47bf-ac2a-158d3d5f9bf6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1592584, 30200, 868, 19, 94, "Input",ExpressionUUID->"639f9878-8853-44d6-a969-49fffb769279"],
-Cell[1593455, 30221, 1375, 37, 56, "Output",ExpressionUUID->"473bf959-26a3-4dad-b385-27cdc323f1bd"]
+Cell[1888045, 35256, 868, 19, 94, "Input",ExpressionUUID->"639f9878-8853-44d6-a969-49fffb769279"],
+Cell[1888916, 35277, 1375, 37, 56, "Output",ExpressionUUID->"473bf959-26a3-4dad-b385-27cdc323f1bd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1594867, 30263, 303, 7, 30, "Input",ExpressionUUID->"a9585990-ac66-418e-8f03-660d9b0970f7"],
-Cell[1595173, 30272, 236, 5, 34, "Output",ExpressionUUID->"9bbba026-d765-4022-8156-630e407bc96e"]
+Cell[1890328, 35319, 303, 7, 30, "Input",ExpressionUUID->"a9585990-ac66-418e-8f03-660d9b0970f7"],
+Cell[1890634, 35328, 236, 5, 34, "Output",ExpressionUUID->"9bbba026-d765-4022-8156-630e407bc96e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1595446, 30282, 1347, 35, 94, "Input",ExpressionUUID->"d1c95e49-bfa7-45b9-8bd9-b8ddb2f704d6"],
-Cell[1596796, 30319, 146181, 2518, 383, "Output",ExpressionUUID->"1aa1484e-3091-4abb-ab54-d5ed62b879af"]
+Cell[1890907, 35338, 1347, 35, 94, "Input",ExpressionUUID->"d1c95e49-bfa7-45b9-8bd9-b8ddb2f704d6"],
+Cell[1892257, 35375, 146181, 2518, 383, "Output",ExpressionUUID->"1aa1484e-3091-4abb-ab54-d5ed62b879af"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[1743026, 32843, 247, 4, 37, "Subsubsection",ExpressionUUID->"98e8a312-8384-4f84-bb0e-9d9d5c065687"],
+Cell[2038487, 37899, 247, 4, 37, "Subsubsection",ExpressionUUID->"98e8a312-8384-4f84-bb0e-9d9d5c065687"],
 Cell[CellGroupData[{
-Cell[1743298, 32851, 842, 16, 30, "Input",ExpressionUUID->"641f4c7f-5aa2-4a6c-aa9a-77d5fc2cacc3"],
-Cell[1744143, 32869, 2202, 43, 34, "Output",ExpressionUUID->"b9b7feae-ff99-46a3-aab6-7d983f96eb59"]
+Cell[2038759, 37907, 842, 16, 30, "Input",ExpressionUUID->"641f4c7f-5aa2-4a6c-aa9a-77d5fc2cacc3"],
+Cell[2039604, 37925, 2202, 43, 34, "Output",ExpressionUUID->"b9b7feae-ff99-46a3-aab6-7d983f96eb59"]
 }, Open  ]],
-Cell[1746360, 32915, 2656, 61, 136, "Input",ExpressionUUID->"40aa2841-56bc-41fa-af9a-f0011ae04b3b"],
-Cell[1749019, 32978, 2493, 60, 136, "Input",ExpressionUUID->"48fb68db-7ddc-4355-b3e3-7c67542c5cb3"],
-Cell[1751515, 33040, 2487, 60, 136, "Input",ExpressionUUID->"e3d05467-70aa-4af2-bbea-ded297de077b"],
-Cell[1754005, 33102, 2224, 56, 136, "Input",ExpressionUUID->"a987b881-3553-4d0b-bfd1-f2cc77fdc93c"],
-Cell[1756232, 33160, 2271, 57, 136, "Input",ExpressionUUID->"5029964e-c73e-444e-9bb7-d8edb0d1b357"],
-Cell[1758506, 33219, 2224, 56, 136, "Input",ExpressionUUID->"1dc2885c-0cd8-4aa2-9974-a97b64d8f1a3"],
-Cell[1760733, 33277, 2322, 57, 136, "Input",ExpressionUUID->"1c9a9c10-fb5c-403d-8a31-4eb84ff43df9"],
-Cell[1763058, 33336, 1112, 26, 52, "Input",ExpressionUUID->"33b4f289-d09f-46e0-a741-05aa6b269cc4"],
-Cell[1764173, 33364, 873, 23, 52, "Input",ExpressionUUID->"55773a1b-6cf1-42cb-b55c-174e69ecbc26"],
+Cell[2041821, 37971, 2656, 61, 136, "Input",ExpressionUUID->"40aa2841-56bc-41fa-af9a-f0011ae04b3b"],
+Cell[2044480, 38034, 2493, 60, 136, "Input",ExpressionUUID->"48fb68db-7ddc-4355-b3e3-7c67542c5cb3"],
+Cell[2046976, 38096, 2487, 60, 136, "Input",ExpressionUUID->"e3d05467-70aa-4af2-bbea-ded297de077b"],
+Cell[2049466, 38158, 2224, 56, 136, "Input",ExpressionUUID->"a987b881-3553-4d0b-bfd1-f2cc77fdc93c"],
+Cell[2051693, 38216, 2271, 57, 136, "Input",ExpressionUUID->"5029964e-c73e-444e-9bb7-d8edb0d1b357"],
+Cell[2053967, 38275, 2224, 56, 136, "Input",ExpressionUUID->"1dc2885c-0cd8-4aa2-9974-a97b64d8f1a3"],
+Cell[2056194, 38333, 2322, 57, 136, "Input",ExpressionUUID->"1c9a9c10-fb5c-403d-8a31-4eb84ff43df9"],
+Cell[2058519, 38392, 1112, 26, 52, "Input",ExpressionUUID->"33b4f289-d09f-46e0-a741-05aa6b269cc4"],
+Cell[2059634, 38420, 873, 23, 52, "Input",ExpressionUUID->"55773a1b-6cf1-42cb-b55c-174e69ecbc26"],
 Cell[CellGroupData[{
-Cell[1765071, 33391, 7489, 168, 367, "Input",ExpressionUUID->"38732031-a7f4-44d7-9e4d-9b89783907a4"],
-Cell[1772563, 33561, 158314, 3016, 244, "Output",ExpressionUUID->"d3565fb3-9749-4eff-a34d-13d108ecb6aa"]
+Cell[2060532, 38447, 7489, 168, 367, "Input",ExpressionUUID->"38732031-a7f4-44d7-9e4d-9b89783907a4"],
+Cell[2068024, 38617, 158314, 3016, 244, "Output",ExpressionUUID->"d3565fb3-9749-4eff-a34d-13d108ecb6aa"]
 }, Open  ]],
-Cell[1930892, 36580, 371, 10, 30, "Input",ExpressionUUID->"c08a31a8-7d42-41e2-a124-36860fd2532c"]
+Cell[2226353, 41636, 371, 10, 30, "Input",ExpressionUUID->"c08a31a8-7d42-41e2-a124-36860fd2532c"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[1931300, 36595, 278, 4, 37, "Subsubsection",ExpressionUUID->"b3c00735-c464-497e-9eb0-456df6d7e319"],
+Cell[2226761, 41651, 278, 4, 37, "Subsubsection",ExpressionUUID->"b3c00735-c464-497e-9eb0-456df6d7e319"],
 Cell[CellGroupData[{
-Cell[1931603, 36603, 4419, 92, 220, "Input",ExpressionUUID->"6cb2268f-88ba-4a03-ada4-1ec4e95d484c"],
-Cell[1936025, 36697, 231, 4, 34, "Output",ExpressionUUID->"b741ab5d-6ce1-465b-af06-9614606c78b3"]
+Cell[2227064, 41659, 4419, 92, 220, "Input",ExpressionUUID->"6cb2268f-88ba-4a03-ada4-1ec4e95d484c"],
+Cell[2231486, 41753, 231, 4, 34, "Output",ExpressionUUID->"b741ab5d-6ce1-465b-af06-9614606c78b3"]
 }, Open  ]],
-Cell[1936271, 36704, 4133, 88, 178, "Input",ExpressionUUID->"a5f6cdee-a37f-4eba-9cd0-26f967613d67"],
-Cell[1940407, 36794, 4342, 90, 178, "Input",ExpressionUUID->"3cfa752b-b620-4be9-808e-1728bd6c1c52"],
-Cell[1944752, 36886, 11999, 294, 923, "Input",ExpressionUUID->"2c5a84ec-71a0-4814-b7eb-40968a5fc445"]
+Cell[2231732, 41760, 4133, 88, 178, "Input",ExpressionUUID->"a5f6cdee-a37f-4eba-9cd0-26f967613d67"],
+Cell[2235868, 41850, 4342, 90, 178, "Input",ExpressionUUID->"3cfa752b-b620-4be9-808e-1728bd6c1c52"],
+Cell[2240213, 41942, 11999, 294, 923, "Input",ExpressionUUID->"2c5a84ec-71a0-4814-b7eb-40968a5fc445"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[1956788, 37185, 220, 3, 37, "Subsubsection",ExpressionUUID->"3ac03eed-1388-454e-8199-a9e14eb58171"],
+Cell[2252249, 42241, 220, 3, 37, "Subsubsection",ExpressionUUID->"3ac03eed-1388-454e-8199-a9e14eb58171"],
 Cell[CellGroupData[{
-Cell[1957033, 37192, 704, 18, 72, "Code",ExpressionUUID->"a1f5e708-f6e4-4120-a8e0-398f80c5acf7"],
-Cell[1957740, 37212, 1939, 47, 56, "Output",ExpressionUUID->"f8812f56-772b-42a1-8a5c-4d42830d6d21"]
+Cell[2252494, 42248, 704, 18, 72, "Code",ExpressionUUID->"a1f5e708-f6e4-4120-a8e0-398f80c5acf7"],
+Cell[2253201, 42268, 1939, 47, 56, "Output",ExpressionUUID->"f8812f56-772b-42a1-8a5c-4d42830d6d21"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1959716, 37264, 2706, 65, 115, "Input",ExpressionUUID->"b83d74e0-da83-480c-a793-8824bcf64c22"],
-Cell[1962425, 37331, 655, 11, 34, "Output",ExpressionUUID->"9246ce58-b219-4e5c-857c-2ce7df25dc4c"]
+Cell[2255177, 42320, 2706, 65, 115, "Input",ExpressionUUID->"b83d74e0-da83-480c-a793-8824bcf64c22"],
+Cell[2257886, 42387, 655, 11, 34, "Output",ExpressionUUID->"9246ce58-b219-4e5c-857c-2ce7df25dc4c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1963117, 37347, 1924, 53, 115, "Input",ExpressionUUID->"b9d64315-ccc7-492c-a1a2-935a884545c1"],
-Cell[1965044, 37402, 669, 10, 34, "Output",ExpressionUUID->"0573a6eb-05d1-429d-96c6-b785edb35e34"],
-Cell[1965716, 37414, 732, 14, 34, "Output",ExpressionUUID->"b8e1e4d2-ed91-4026-8729-8e035e9ad60f"],
-Cell[1966451, 37430, 669, 10, 34, "Output",ExpressionUUID->"de1462e9-d2b4-4f06-96ae-5329bbb16448"],
-Cell[1967123, 37442, 666, 10, 34, "Output",ExpressionUUID->"9d3de76e-d261-4e08-89c6-f07e89428a5a"],
-Cell[1967792, 37454, 733, 13, 34, "Output",ExpressionUUID->"731b6d51-7bc7-4db1-b051-550e75304a49"]
+Cell[2258578, 42403, 1924, 53, 115, "Input",ExpressionUUID->"b9d64315-ccc7-492c-a1a2-935a884545c1"],
+Cell[2260505, 42458, 669, 10, 34, "Output",ExpressionUUID->"0573a6eb-05d1-429d-96c6-b785edb35e34"],
+Cell[2261177, 42470, 732, 14, 34, "Output",ExpressionUUID->"b8e1e4d2-ed91-4026-8729-8e035e9ad60f"],
+Cell[2261912, 42486, 669, 10, 34, "Output",ExpressionUUID->"de1462e9-d2b4-4f06-96ae-5329bbb16448"],
+Cell[2262584, 42498, 666, 10, 34, "Output",ExpressionUUID->"9d3de76e-d261-4e08-89c6-f07e89428a5a"],
+Cell[2263253, 42510, 733, 13, 34, "Output",ExpressionUUID->"731b6d51-7bc7-4db1-b051-550e75304a49"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1968562, 37472, 3206, 78, 157, "Input",ExpressionUUID->"287382c7-f01e-4cdf-b5fb-310e5f7c33bb"],
-Cell[1971771, 37552, 688, 12, 34, "Output",ExpressionUUID->"ad77d33e-eeeb-418a-b69a-15579d32b2a3"]
+Cell[2264023, 42528, 3206, 78, 157, "Input",ExpressionUUID->"287382c7-f01e-4cdf-b5fb-310e5f7c33bb"],
+Cell[2267232, 42608, 688, 12, 34, "Output",ExpressionUUID->"ad77d33e-eeeb-418a-b69a-15579d32b2a3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1972496, 37569, 1525, 37, 94, "Input",ExpressionUUID->"e974011d-bc72-4ce1-9a49-536df8f2b82f"],
-Cell[1974024, 37608, 268, 4, 34, "Output",ExpressionUUID->"7b4c80f4-b195-4f0c-b4a9-2e21642e6e52"],
-Cell[1974295, 37614, 337, 8, 34, "Output",ExpressionUUID->"e80d9ee9-abe6-43c1-9bce-bbae73da0254"],
-Cell[1974635, 37624, 266, 4, 34, "Output",ExpressionUUID->"5e25cf28-d0eb-4b7d-8a3e-8f6663ec49e1"],
-Cell[1974904, 37630, 334, 7, 34, "Output",ExpressionUUID->"bf244ba0-e756-450a-a4ee-f682a368b89c"]
+Cell[2267957, 42625, 1525, 37, 94, "Input",ExpressionUUID->"e974011d-bc72-4ce1-9a49-536df8f2b82f"],
+Cell[2269485, 42664, 268, 4, 34, "Output",ExpressionUUID->"7b4c80f4-b195-4f0c-b4a9-2e21642e6e52"],
+Cell[2269756, 42670, 337, 8, 34, "Output",ExpressionUUID->"e80d9ee9-abe6-43c1-9bce-bbae73da0254"],
+Cell[2270096, 42680, 266, 4, 34, "Output",ExpressionUUID->"5e25cf28-d0eb-4b7d-8a3e-8f6663ec49e1"],
+Cell[2270365, 42686, 334, 7, 34, "Output",ExpressionUUID->"bf244ba0-e756-450a-a4ee-f682a368b89c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1975275, 37642, 1599, 49, 115, "Input",ExpressionUUID->"78e6c6d3-d519-474b-923f-d6900523759e"],
-Cell[1976877, 37693, 237, 6, 34, "Output",ExpressionUUID->"f841b52a-ed48-441d-8d57-74762685b2d0"],
-Cell[1977117, 37701, 275, 7, 34, "Output",ExpressionUUID->"15f9ff24-b4a4-4e56-9dc4-12250f52407b"]
+Cell[2270736, 42698, 1599, 49, 115, "Input",ExpressionUUID->"78e6c6d3-d519-474b-923f-d6900523759e"],
+Cell[2272338, 42749, 237, 6, 34, "Output",ExpressionUUID->"f841b52a-ed48-441d-8d57-74762685b2d0"],
+Cell[2272578, 42757, 275, 7, 34, "Output",ExpressionUUID->"15f9ff24-b4a4-4e56-9dc4-12250f52407b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1977429, 37713, 1578, 46, 115, "Input",ExpressionUUID->"4e085e0e-6150-4d07-a713-09d2a0797398"],
-Cell[1979010, 37761, 453, 10, 34, "Output",ExpressionUUID->"52289ddd-a357-4464-aa85-cb7243d006d5"],
-Cell[1979466, 37773, 468, 10, 34, "Output",ExpressionUUID->"b1171d6e-8ad5-472b-8268-dcd3ee6477c3"]
+Cell[2272890, 42769, 1578, 46, 115, "Input",ExpressionUUID->"4e085e0e-6150-4d07-a713-09d2a0797398"],
+Cell[2274471, 42817, 453, 10, 34, "Output",ExpressionUUID->"52289ddd-a357-4464-aa85-cb7243d006d5"],
+Cell[2274927, 42829, 468, 10, 34, "Output",ExpressionUUID->"b1171d6e-8ad5-472b-8268-dcd3ee6477c3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1979971, 37788, 3198, 65, 73, "Input",ExpressionUUID->"87997e05-a1bc-4f03-9b9a-9526a8b5abdd"],
-Cell[1983172, 37855, 749560, 13351, 604, "Output",ExpressionUUID->"fe8f25ee-f5e9-408c-961a-6cbf05923e7c"]
+Cell[2275432, 42844, 3198, 65, 73, "Input",ExpressionUUID->"87997e05-a1bc-4f03-9b9a-9526a8b5abdd"],
+Cell[2278633, 42911, 749560, 13351, 604, "Output",ExpressionUUID->"fe8f25ee-f5e9-408c-961a-6cbf05923e7c"]
 }, Open  ]],
-Cell[2732747, 51209, 504, 12, 30, "Input",ExpressionUUID->"ffb7e438-11bd-4dbe-84dc-043c4eb356a7"],
-Cell[2733254, 51223, 2607, 64, 115, "Input",ExpressionUUID->"371c72f6-802f-4bf2-9060-95c68b8c4508"],
+Cell[3028208, 56265, 504, 12, 30, "Input",ExpressionUUID->"ffb7e438-11bd-4dbe-84dc-043c4eb356a7"],
+Cell[3028715, 56279, 2607, 64, 115, "Input",ExpressionUUID->"371c72f6-802f-4bf2-9060-95c68b8c4508"],
 Cell[CellGroupData[{
-Cell[2735886, 51291, 1977, 54, 115, "Input",ExpressionUUID->"be7e9dcd-2d43-46c5-99b5-8c5601067412"],
-Cell[2737866, 51347, 564, 8, 34, "Output",ExpressionUUID->"f25d8340-45a8-4716-9b5e-15bb2654ab2d"],
-Cell[2738433, 51357, 625, 12, 34, "Output",ExpressionUUID->"1b8cbe8f-3e5c-4609-ad52-4701ef7b0d9c"],
-Cell[2739061, 51371, 566, 8, 34, "Output",ExpressionUUID->"1beb8c34-adb8-4e94-9ec6-e5c1b6294821"],
-Cell[2739630, 51381, 561, 8, 34, "Output",ExpressionUUID->"90d97002-a4fa-4147-bc80-6e74d82d558c"],
-Cell[2740194, 51391, 629, 11, 34, "Output",ExpressionUUID->"4200b8a2-9f1b-4930-a793-af33fe83b500"]
+Cell[3031347, 56347, 1977, 54, 115, "Input",ExpressionUUID->"be7e9dcd-2d43-46c5-99b5-8c5601067412"],
+Cell[3033327, 56403, 564, 8, 34, "Output",ExpressionUUID->"f25d8340-45a8-4716-9b5e-15bb2654ab2d"],
+Cell[3033894, 56413, 625, 12, 34, "Output",ExpressionUUID->"1b8cbe8f-3e5c-4609-ad52-4701ef7b0d9c"],
+Cell[3034522, 56427, 566, 8, 34, "Output",ExpressionUUID->"1beb8c34-adb8-4e94-9ec6-e5c1b6294821"],
+Cell[3035091, 56437, 561, 8, 34, "Output",ExpressionUUID->"90d97002-a4fa-4147-bc80-6e74d82d558c"],
+Cell[3035655, 56447, 629, 11, 34, "Output",ExpressionUUID->"4200b8a2-9f1b-4930-a793-af33fe83b500"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2740860, 51407, 3282, 79, 115, "Input",ExpressionUUID->"143c8383-fc9c-47c3-821e-6320ff3c5e66"],
-Cell[2744145, 51488, 688, 12, 34, "Output",ExpressionUUID->"61709a1d-225c-454f-b1ae-9df4a1c08bd0"]
+Cell[3036321, 56463, 3282, 79, 115, "Input",ExpressionUUID->"143c8383-fc9c-47c3-821e-6320ff3c5e66"],
+Cell[3039606, 56544, 688, 12, 34, "Output",ExpressionUUID->"61709a1d-225c-454f-b1ae-9df4a1c08bd0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2744870, 51505, 1578, 38, 94, "Input",ExpressionUUID->"2f207778-c800-4f6b-ba8e-9b3d6b136969"],
-Cell[2746451, 51545, 268, 4, 34, "Output",ExpressionUUID->"4bebc8f5-2f1b-4f1d-9632-1bf05dcba68b"],
-Cell[2746722, 51551, 336, 8, 34, "Output",ExpressionUUID->"2e0cc2a4-b901-4060-a793-2127b99c19c9"],
-Cell[2747061, 51561, 267, 4, 34, "Output",ExpressionUUID->"0458993e-cdea-4206-8a5e-c81530e68680"],
-Cell[2747331, 51567, 335, 7, 34, "Output",ExpressionUUID->"b261e401-b913-48b2-9446-00f1a26ce180"]
+Cell[3040331, 56561, 1578, 38, 94, "Input",ExpressionUUID->"2f207778-c800-4f6b-ba8e-9b3d6b136969"],
+Cell[3041912, 56601, 268, 4, 34, "Output",ExpressionUUID->"4bebc8f5-2f1b-4f1d-9632-1bf05dcba68b"],
+Cell[3042183, 56607, 336, 8, 34, "Output",ExpressionUUID->"2e0cc2a4-b901-4060-a793-2127b99c19c9"],
+Cell[3042522, 56617, 267, 4, 34, "Output",ExpressionUUID->"0458993e-cdea-4206-8a5e-c81530e68680"],
+Cell[3042792, 56623, 335, 7, 34, "Output",ExpressionUUID->"b261e401-b913-48b2-9446-00f1a26ce180"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2747703, 51579, 1674, 51, 115, "Input",ExpressionUUID->"466550ed-66e0-4d04-964e-712ba158657c"],
-Cell[2749380, 51632, 284, 7, 34, "Output",ExpressionUUID->"d4c7d42c-bfea-4e08-b2d2-b992b4178621"],
-Cell[2749667, 51641, 322, 8, 34, "Output",ExpressionUUID->"07ff9995-661b-4af7-9c96-56fada1ba0e8"]
+Cell[3043164, 56635, 1674, 51, 115, "Input",ExpressionUUID->"466550ed-66e0-4d04-964e-712ba158657c"],
+Cell[3044841, 56688, 284, 7, 34, "Output",ExpressionUUID->"d4c7d42c-bfea-4e08-b2d2-b992b4178621"],
+Cell[3045128, 56697, 322, 8, 34, "Output",ExpressionUUID->"07ff9995-661b-4af7-9c96-56fada1ba0e8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2750026, 51654, 1537, 46, 115, "Input",ExpressionUUID->"1675bfc0-5970-42cc-8f01-7bee4f0f19d8"],
-Cell[2751566, 51702, 407, 9, 34, "Output",ExpressionUUID->"4b6e5262-f3b3-443c-b07c-e8f828f1ffcd"],
-Cell[2751976, 51713, 421, 9, 34, "Output",ExpressionUUID->"06aad84e-155a-4203-9e64-e95550f51dbd"]
+Cell[3045487, 56710, 1537, 46, 115, "Input",ExpressionUUID->"1675bfc0-5970-42cc-8f01-7bee4f0f19d8"],
+Cell[3047027, 56758, 407, 9, 34, "Output",ExpressionUUID->"4b6e5262-f3b3-443c-b07c-e8f828f1ffcd"],
+Cell[3047437, 56769, 421, 9, 34, "Output",ExpressionUUID->"06aad84e-155a-4203-9e64-e95550f51dbd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2752434, 51727, 3086, 67, 73, "Input",ExpressionUUID->"972756a1-b589-447c-a970-cfa2d1cad71e"],
-Cell[2755523, 51796, 757457, 13461, 604, "Output",ExpressionUUID->"337a9822-3913-42b7-a7e1-f70503bfd620"]
+Cell[3047895, 56783, 3086, 67, 73, "Input",ExpressionUUID->"972756a1-b589-447c-a970-cfa2d1cad71e"],
+Cell[3050984, 56852, 757457, 13461, 604, "Output",ExpressionUUID->"337a9822-3913-42b7-a7e1-f70503bfd620"]
 }, Open  ]],
-Cell[3512995, 65260, 555, 13, 30, "Input",ExpressionUUID->"8bf09326-d497-4b53-8f37-90ae301da0e2"],
-Cell[3513553, 65275, 2983, 73, 115, "Input",ExpressionUUID->"cc7aa1fe-b90e-4373-bbe4-b40704d1e74b"],
+Cell[3808456, 70316, 555, 13, 30, "Input",ExpressionUUID->"8bf09326-d497-4b53-8f37-90ae301da0e2"],
+Cell[3809014, 70331, 2983, 73, 115, "Input",ExpressionUUID->"cc7aa1fe-b90e-4373-bbe4-b40704d1e74b"],
 Cell[CellGroupData[{
-Cell[3516561, 65352, 2017, 56, 115, "Input",ExpressionUUID->"799a40f1-b47c-41c0-8f3c-c9c0d26eb957"],
-Cell[3518581, 65410, 685, 10, 34, "Output",ExpressionUUID->"6a5f247e-c255-4c16-832b-884717e3ffd5"],
-Cell[3519269, 65422, 748, 14, 34, "Output",ExpressionUUID->"49e80528-2cf6-4963-a106-c6332e2abd4f"],
-Cell[3520020, 65438, 687, 10, 34, "Output",ExpressionUUID->"a9f1b3af-e463-499e-a302-e2c0a1c0a11c"],
-Cell[3520710, 65450, 681, 10, 34, "Output",ExpressionUUID->"5baa782e-c9ff-4d66-bda5-a9873195a23e"],
-Cell[3521394, 65462, 750, 13, 34, "Output",ExpressionUUID->"3c08bc7f-49f8-4b10-9aa0-a35a7d0937c6"]
+Cell[3812022, 70408, 2017, 56, 115, "Input",ExpressionUUID->"799a40f1-b47c-41c0-8f3c-c9c0d26eb957"],
+Cell[3814042, 70466, 685, 10, 34, "Output",ExpressionUUID->"6a5f247e-c255-4c16-832b-884717e3ffd5"],
+Cell[3814730, 70478, 748, 14, 34, "Output",ExpressionUUID->"49e80528-2cf6-4963-a106-c6332e2abd4f"],
+Cell[3815481, 70494, 687, 10, 34, "Output",ExpressionUUID->"a9f1b3af-e463-499e-a302-e2c0a1c0a11c"],
+Cell[3816171, 70506, 681, 10, 34, "Output",ExpressionUUID->"5baa782e-c9ff-4d66-bda5-a9873195a23e"],
+Cell[3816855, 70518, 750, 13, 34, "Output",ExpressionUUID->"3c08bc7f-49f8-4b10-9aa0-a35a7d0937c6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3522181, 65480, 294, 8, 30, "Input",ExpressionUUID->"4905c5a1-69d7-46f4-8bee-3980e747086a"],
-Cell[3522478, 65490, 772, 14, 34, "Output",ExpressionUUID->"e6e73155-9537-4575-b247-8cac4ab5a5f9"]
+Cell[3817642, 70536, 294, 8, 30, "Input",ExpressionUUID->"4905c5a1-69d7-46f4-8bee-3980e747086a"],
+Cell[3817939, 70546, 772, 14, 34, "Output",ExpressionUUID->"e6e73155-9537-4575-b247-8cac4ab5a5f9"]
 }, Open  ]],
-Cell[3523265, 65507, 3556, 86, 136, "Input",ExpressionUUID->"67bbaa6d-7dd3-4ba4-bb69-bdc789589e8c"],
+Cell[3818726, 70563, 3556, 86, 136, "Input",ExpressionUUID->"67bbaa6d-7dd3-4ba4-bb69-bdc789589e8c"],
 Cell[CellGroupData[{
-Cell[3526846, 65597, 1765, 42, 94, "Input",ExpressionUUID->"be47ee22-4278-41b7-b849-97b8744b247e"],
-Cell[3528614, 65641, 368, 6, 34, "Output",ExpressionUUID->"d0a0e7a1-4519-4225-be15-fb8c5f2b5883"],
-Cell[3528985, 65649, 436, 10, 34, "Output",ExpressionUUID->"29585b6b-0da3-4c11-bc4a-d3f98c8a62af"],
-Cell[3529424, 65661, 351, 6, 34, "Output",ExpressionUUID->"1f4a05e9-554a-4490-b3bd-04515252a253"],
-Cell[3529778, 65669, 418, 8, 34, "Output",ExpressionUUID->"1b698599-e9c2-4044-8453-58ef3fa78065"]
+Cell[3822307, 70653, 1765, 42, 94, "Input",ExpressionUUID->"be47ee22-4278-41b7-b849-97b8744b247e"],
+Cell[3824075, 70697, 368, 6, 34, "Output",ExpressionUUID->"d0a0e7a1-4519-4225-be15-fb8c5f2b5883"],
+Cell[3824446, 70705, 436, 10, 34, "Output",ExpressionUUID->"29585b6b-0da3-4c11-bc4a-d3f98c8a62af"],
+Cell[3824885, 70717, 351, 6, 34, "Output",ExpressionUUID->"1f4a05e9-554a-4490-b3bd-04515252a253"],
+Cell[3825239, 70725, 418, 8, 34, "Output",ExpressionUUID->"1b698599-e9c2-4044-8453-58ef3fa78065"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3530233, 65682, 1674, 51, 115, "Input",ExpressionUUID->"f0844c40-0f9b-4c1c-b2eb-c35ebd09777c"],
-Cell[3531910, 65735, 284, 7, 34, "Output",ExpressionUUID->"a8ddcd00-74dd-4a76-b818-bf5d3304ff71"],
-Cell[3532197, 65744, 286, 7, 34, "Output",ExpressionUUID->"1a6f89b5-6dc4-4903-975f-d3482a56a114"]
+Cell[3825694, 70738, 1674, 51, 115, "Input",ExpressionUUID->"f0844c40-0f9b-4c1c-b2eb-c35ebd09777c"],
+Cell[3827371, 70791, 284, 7, 34, "Output",ExpressionUUID->"a8ddcd00-74dd-4a76-b818-bf5d3304ff71"],
+Cell[3827658, 70800, 286, 7, 34, "Output",ExpressionUUID->"1a6f89b5-6dc4-4903-975f-d3482a56a114"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3532520, 65756, 1533, 46, 115, "Input",ExpressionUUID->"5c6c32c7-23b4-447a-9e97-c54e055a8f08"],
-Cell[3534056, 65804, 396, 7, 34, "Output",ExpressionUUID->"d0e23bab-059d-494f-aca3-acaa23412d2a"],
-Cell[3534455, 65813, 417, 8, 34, "Output",ExpressionUUID->"2e5be8cb-2310-48b1-ac8e-ce582f7f7e4d"]
+Cell[3827981, 70812, 1533, 46, 115, "Input",ExpressionUUID->"5c6c32c7-23b4-447a-9e97-c54e055a8f08"],
+Cell[3829517, 70860, 396, 7, 34, "Output",ExpressionUUID->"d0e23bab-059d-494f-aca3-acaa23412d2a"],
+Cell[3829916, 70869, 417, 8, 34, "Output",ExpressionUUID->"2e5be8cb-2310-48b1-ac8e-ce582f7f7e4d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3534909, 65826, 3251, 71, 73, "Input",ExpressionUUID->"d7fd8dbf-76ef-4849-b5e0-1fd560ec203f"],
-Cell[3538163, 65899, 772833, 13715, 604, "Output",ExpressionUUID->"f3e411b4-d0e4-4080-af93-fdf0576b1894"]
+Cell[3830370, 70882, 3251, 71, 73, "Input",ExpressionUUID->"d7fd8dbf-76ef-4849-b5e0-1fd560ec203f"],
+Cell[3833624, 70955, 772833, 13715, 604, "Output",ExpressionUUID->"f3e411b4-d0e4-4080-af93-fdf0576b1894"]
 }, Open  ]],
-Cell[4311011, 79617, 152, 3, 30, "Input",ExpressionUUID->"4964c05a-abac-448f-ad1b-9041ec5898d9"],
-Cell[4311166, 79622, 553, 13, 30, "Input",ExpressionUUID->"f46f5914-edf8-4003-ac15-605f6271b66a"],
-Cell[4311722, 79637, 3029, 73, 115, "Input",ExpressionUUID->"fed8e915-cca2-4f26-9ebc-13efe1394284"],
+Cell[4606472, 84673, 152, 3, 30, "Input",ExpressionUUID->"4964c05a-abac-448f-ad1b-9041ec5898d9"],
+Cell[4606627, 84678, 553, 13, 30, "Input",ExpressionUUID->"f46f5914-edf8-4003-ac15-605f6271b66a"],
+Cell[4607183, 84693, 3029, 73, 115, "Input",ExpressionUUID->"fed8e915-cca2-4f26-9ebc-13efe1394284"],
 Cell[CellGroupData[{
-Cell[4314776, 79714, 2064, 57, 115, "Input",ExpressionUUID->"c7065038-2821-4639-81e8-71afb15b5a7f"],
-Cell[4316843, 79773, 290, 5, 34, "Output",ExpressionUUID->"0799ee33-1d20-43c9-bc6c-8e688a8f5233"],
-Cell[4317136, 79780, 351, 9, 34, "Output",ExpressionUUID->"608b00d6-9c0c-4e1d-9c1d-4bd329b45231"],
-Cell[4317490, 79791, 289, 5, 34, "Output",ExpressionUUID->"8b89bffa-e031-4203-a969-3b487b91037c"],
-Cell[4317782, 79798, 285, 5, 34, "Output",ExpressionUUID->"627c4910-48e3-4c02-b485-7e97bdc6b770"],
-Cell[4318070, 79805, 351, 8, 34, "Output",ExpressionUUID->"84dd2bf1-accc-4632-91a5-91f164c079c5"]
+Cell[4610237, 84770, 2064, 57, 115, "Input",ExpressionUUID->"c7065038-2821-4639-81e8-71afb15b5a7f"],
+Cell[4612304, 84829, 290, 5, 34, "Output",ExpressionUUID->"0799ee33-1d20-43c9-bc6c-8e688a8f5233"],
+Cell[4612597, 84836, 351, 9, 34, "Output",ExpressionUUID->"608b00d6-9c0c-4e1d-9c1d-4bd329b45231"],
+Cell[4612951, 84847, 289, 5, 34, "Output",ExpressionUUID->"8b89bffa-e031-4203-a969-3b487b91037c"],
+Cell[4613243, 84854, 285, 5, 34, "Output",ExpressionUUID->"627c4910-48e3-4c02-b485-7e97bdc6b770"],
+Cell[4613531, 84861, 351, 8, 34, "Output",ExpressionUUID->"84dd2bf1-accc-4632-91a5-91f164c079c5"]
 }, Open  ]],
-Cell[4318436, 79816, 3410, 80, 115, "Input",ExpressionUUID->"80f750d5-0040-492c-a3b8-f7158ba921cb"],
+Cell[4613897, 84872, 3410, 80, 115, "Input",ExpressionUUID->"80f750d5-0040-492c-a3b8-f7158ba921cb"],
 Cell[CellGroupData[{
-Cell[4321871, 79900, 1767, 42, 94, "Input",ExpressionUUID->"1237c4c0-2788-4e30-8089-5f7f2863cadf"],
-Cell[4323641, 79944, 336, 5, 34, "Output",ExpressionUUID->"b5cbaa12-84b8-403a-95c1-6255426916e6"],
-Cell[4323980, 79951, 404, 9, 34, "Output",ExpressionUUID->"8066d310-4889-4cad-a237-e34feaffa817"],
-Cell[4324387, 79962, 333, 5, 34, "Output",ExpressionUUID->"a4d38016-cc2f-44b7-b0d9-de0b1546fcd4"],
-Cell[4324723, 79969, 400, 8, 34, "Output",ExpressionUUID->"70c71261-f3d4-489d-bc22-5bcd23346e33"]
+Cell[4617332, 84956, 1767, 42, 94, "Input",ExpressionUUID->"1237c4c0-2788-4e30-8089-5f7f2863cadf"],
+Cell[4619102, 85000, 336, 5, 34, "Output",ExpressionUUID->"b5cbaa12-84b8-403a-95c1-6255426916e6"],
+Cell[4619441, 85007, 404, 9, 34, "Output",ExpressionUUID->"8066d310-4889-4cad-a237-e34feaffa817"],
+Cell[4619848, 85018, 333, 5, 34, "Output",ExpressionUUID->"a4d38016-cc2f-44b7-b0d9-de0b1546fcd4"],
+Cell[4620184, 85025, 400, 8, 34, "Output",ExpressionUUID->"70c71261-f3d4-489d-bc22-5bcd23346e33"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[4325160, 79982, 1721, 51, 115, "Input",ExpressionUUID->"635eb0c3-258a-4844-9579-9995fe819a3b"],
-Cell[4326884, 80035, 309, 7, 34, "Output",ExpressionUUID->"5e2f91a7-d2d7-41ca-9b15-8f4d51c005c3"],
-Cell[4327196, 80044, 325, 7, 34, "Output",ExpressionUUID->"6eb371ab-6532-43f9-94a3-31a40f92c701"]
+Cell[4620621, 85038, 1721, 51, 115, "Input",ExpressionUUID->"635eb0c3-258a-4844-9579-9995fe819a3b"],
+Cell[4622345, 85091, 309, 7, 34, "Output",ExpressionUUID->"5e2f91a7-d2d7-41ca-9b15-8f4d51c005c3"],
+Cell[4622657, 85100, 325, 7, 34, "Output",ExpressionUUID->"6eb371ab-6532-43f9-94a3-31a40f92c701"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[4327558, 80056, 1535, 46, 115, "Input",ExpressionUUID->"96e61585-0ef4-4701-8a44-936545ee51eb"],
-Cell[4329096, 80104, 397, 8, 34, "Output",ExpressionUUID->"1f5aae4a-4abc-45ed-bfbc-4e079f9f488e"],
-Cell[4329496, 80114, 414, 8, 34, "Output",ExpressionUUID->"69dbdc0d-376e-46d2-b384-ade606206e74"]
+Cell[4623019, 85112, 1535, 46, 115, "Input",ExpressionUUID->"96e61585-0ef4-4701-8a44-936545ee51eb"],
+Cell[4624557, 85160, 397, 8, 34, "Output",ExpressionUUID->"1f5aae4a-4abc-45ed-bfbc-4e079f9f488e"],
+Cell[4624957, 85170, 414, 8, 34, "Output",ExpressionUUID->"69dbdc0d-376e-46d2-b384-ade606206e74"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[4329947, 80127, 3168, 70, 73, "Input",ExpressionUUID->"12d24516-82a2-48c6-9a13-39ad835ee9bf"],
-Cell[4333118, 80199, 803481, 14260, 604, "Output",ExpressionUUID->"360440c5-8557-4d26-80fd-cbc83ef3b0fe"]
+Cell[4625408, 85183, 3168, 70, 73, "Input",ExpressionUUID->"12d24516-82a2-48c6-9a13-39ad835ee9bf"],
+Cell[4628579, 85255, 803481, 14260, 604, "Output",ExpressionUUID->"360440c5-8557-4d26-80fd-cbc83ef3b0fe"]
 }, Open  ]],
-Cell[5136614, 94462, 601, 13, 30, "Input",ExpressionUUID->"92681173-fe57-46f7-8cba-1a8e7a711186"],
-Cell[5137218, 94477, 3272, 77, 136, "Input",ExpressionUUID->"4d134742-a502-42ce-84cc-c90ee6002dc5"],
+Cell[5432075, 99518, 601, 13, 30, "Input",ExpressionUUID->"92681173-fe57-46f7-8cba-1a8e7a711186"],
+Cell[5432679, 99533, 3272, 77, 136, "Input",ExpressionUUID->"4d134742-a502-42ce-84cc-c90ee6002dc5"],
 Cell[CellGroupData[{
-Cell[5140515, 94558, 2120, 57, 115, "Input",ExpressionUUID->"30f405d4-7e87-431c-a22b-8ce21c893aab"],
-Cell[5142638, 94617, 627, 9, 34, "Output",ExpressionUUID->"25d6d5d9-d242-4dcf-9c28-7010cff9ced3"],
-Cell[5143268, 94628, 668, 12, 34, "Output",ExpressionUUID->"c01cba44-15dd-4249-9b3d-2efbd96fa57e"],
-Cell[5143939, 94642, 627, 9, 34, "Output",ExpressionUUID->"ef86ea4f-9d56-48ae-8c53-a8a94c3dff30"],
-Cell[5144569, 94653, 607, 9, 34, "Output",ExpressionUUID->"01c96e0e-480d-4806-b0e7-19619efc0af7"],
-Cell[5145179, 94664, 675, 11, 34, "Output",ExpressionUUID->"ffa4c703-85d6-4998-8d6a-c7941ea99e1a"]
+Cell[5435976, 99614, 2120, 57, 115, "Input",ExpressionUUID->"30f405d4-7e87-431c-a22b-8ce21c893aab"],
+Cell[5438099, 99673, 627, 9, 34, "Output",ExpressionUUID->"25d6d5d9-d242-4dcf-9c28-7010cff9ced3"],
+Cell[5438729, 99684, 668, 12, 34, "Output",ExpressionUUID->"c01cba44-15dd-4249-9b3d-2efbd96fa57e"],
+Cell[5439400, 99698, 627, 9, 34, "Output",ExpressionUUID->"ef86ea4f-9d56-48ae-8c53-a8a94c3dff30"],
+Cell[5440030, 99709, 607, 9, 34, "Output",ExpressionUUID->"01c96e0e-480d-4806-b0e7-19619efc0af7"],
+Cell[5440640, 99720, 675, 11, 34, "Output",ExpressionUUID->"ffa4c703-85d6-4998-8d6a-c7941ea99e1a"]
 }, Open  ]],
-Cell[5145869, 94678, 3816, 91, 136, "Input",ExpressionUUID->"bab22d08-a0e9-4d4b-86db-ffce4d2b439d"],
+Cell[5441330, 99734, 3816, 91, 136, "Input",ExpressionUUID->"bab22d08-a0e9-4d4b-86db-ffce4d2b439d"],
 Cell[CellGroupData[{
-Cell[5149710, 94773, 1676, 41, 94, "Input",ExpressionUUID->"4fc5c50f-eb30-4771-a743-e1cb7f2c05f3"],
-Cell[5151389, 94816, 197, 3, 34, "Output",ExpressionUUID->"909e8120-9726-4ab4-a87e-ee1342d98b67"],
-Cell[5151589, 94821, 239, 6, 34, "Output",ExpressionUUID->"b61cfc08-abf8-4b7d-b5de-1fc5a05fb0ae"],
-Cell[5151831, 94829, 177, 3, 34, "Output",ExpressionUUID->"f01a3cf8-6bd2-4045-b55d-95a32f0ea8a1"],
-Cell[5152011, 94834, 245, 5, 34, "Output",ExpressionUUID->"4f9b9a28-9743-4ec8-af29-74a2157dcd25"]
+Cell[5445171, 99829, 1676, 41, 94, "Input",ExpressionUUID->"4fc5c50f-eb30-4771-a743-e1cb7f2c05f3"],
+Cell[5446850, 99872, 197, 3, 34, "Output",ExpressionUUID->"909e8120-9726-4ab4-a87e-ee1342d98b67"],
+Cell[5447050, 99877, 239, 6, 34, "Output",ExpressionUUID->"b61cfc08-abf8-4b7d-b5de-1fc5a05fb0ae"],
+Cell[5447292, 99885, 177, 3, 34, "Output",ExpressionUUID->"f01a3cf8-6bd2-4045-b55d-95a32f0ea8a1"],
+Cell[5447472, 99890, 245, 5, 34, "Output",ExpressionUUID->"4f9b9a28-9743-4ec8-af29-74a2157dcd25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[5152293, 94844, 1676, 41, 94, "Input",ExpressionUUID->"6e0d1fb6-cb85-4f4c-8e42-6e311f1d04f4"],
-Cell[5153972, 94887, 704, 10, 34, "Output",ExpressionUUID->"576b5013-d7d8-4046-80e7-c7a910141e9f"],
-Cell[5154679, 94899, 746, 13, 34, "Output",ExpressionUUID->"a4d43d02-4695-44a6-97d6-15dc9894ab13"],
-Cell[5155428, 94914, 682, 10, 34, "Output",ExpressionUUID->"b45ab61e-a7dc-48ab-8db1-94100a2461f4"],
-Cell[5156113, 94926, 748, 12, 34, "Output",ExpressionUUID->"06463816-3d9b-4f85-b168-82f0f48f30fa"]
+Cell[5447754, 99900, 1676, 41, 94, "Input",ExpressionUUID->"6e0d1fb6-cb85-4f4c-8e42-6e311f1d04f4"],
+Cell[5449433, 99943, 704, 10, 34, "Output",ExpressionUUID->"576b5013-d7d8-4046-80e7-c7a910141e9f"],
+Cell[5450140, 99955, 746, 13, 34, "Output",ExpressionUUID->"a4d43d02-4695-44a6-97d6-15dc9894ab13"],
+Cell[5450889, 99970, 682, 10, 34, "Output",ExpressionUUID->"b45ab61e-a7dc-48ab-8db1-94100a2461f4"],
+Cell[5451574, 99982, 748, 12, 34, "Output",ExpressionUUID->"06463816-3d9b-4f85-b168-82f0f48f30fa"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[5156898, 94943, 1724, 51, 115, "Input",ExpressionUUID->"0dc79be2-38bc-4d49-8f6f-a498b53a98b5"],
-Cell[5158625, 94996, 259, 6, 34, "Output",ExpressionUUID->"e7963d21-bb75-4c2b-9312-45ff0af38fb9"],
-Cell[5158887, 95004, 275, 6, 34, "Output",ExpressionUUID->"3af9b94b-1375-48d3-93e6-1219ac4f253e"]
+Cell[5452359, 99999, 1724, 51, 115, "Input",ExpressionUUID->"0dc79be2-38bc-4d49-8f6f-a498b53a98b5"],
+Cell[5454086, 100052, 259, 6, 34, "Output",ExpressionUUID->"e7963d21-bb75-4c2b-9312-45ff0af38fb9"],
+Cell[5454348, 100060, 275, 6, 34, "Output",ExpressionUUID->"3af9b94b-1375-48d3-93e6-1219ac4f253e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[5159199, 95015, 1538, 46, 115, "Input",ExpressionUUID->"8ad508f5-1f8e-4bac-86d2-ebde473c1ad4"],
-Cell[5160740, 95063, 358, 8, 34, "Output",ExpressionUUID->"944e5f5f-26d3-4e02-8ad3-746f42cfed24"],
-Cell[5161101, 95073, 374, 8, 34, "Output",ExpressionUUID->"35302102-c4b6-4af8-9813-1c3358efb8e5"]
+Cell[5454660, 100071, 1538, 46, 115, "Input",ExpressionUUID->"8ad508f5-1f8e-4bac-86d2-ebde473c1ad4"],
+Cell[5456201, 100119, 358, 8, 34, "Output",ExpressionUUID->"944e5f5f-26d3-4e02-8ad3-746f42cfed24"],
+Cell[5456562, 100129, 374, 8, 34, "Output",ExpressionUUID->"35302102-c4b6-4af8-9813-1c3358efb8e5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[5161512, 95086, 3865, 79, 73, "Input",ExpressionUUID->"956d5edf-cf5a-48ed-a3dd-d8fa8f0a0af2"],
-Cell[5165380, 95167, 840752, 14874, 604, "Output",ExpressionUUID->"a1da74bc-1554-4dfa-979f-32c922902767"]
+Cell[5456973, 100142, 3865, 79, 73, "Input",ExpressionUUID->"956d5edf-cf5a-48ed-a3dd-d8fa8f0a0af2"],
+Cell[5460841, 100223, 840752, 14874, 604, "Output",ExpressionUUID->"a1da74bc-1554-4dfa-979f-32c922902767"]
 }, Open  ]],
-Cell[6006147, 110044, 603, 13, 30, "Input",ExpressionUUID->"0ac403ff-050c-4165-95bc-db7b3687de1a"],
-Cell[6006753, 110059, 2553, 63, 115, "Input",ExpressionUUID->"baa23e34-5539-4392-9fa7-f743ae994cef"],
+Cell[6301608, 115100, 603, 13, 30, "Input",ExpressionUUID->"0ac403ff-050c-4165-95bc-db7b3687de1a"],
+Cell[6302214, 115115, 2553, 63, 115, "Input",ExpressionUUID->"baa23e34-5539-4392-9fa7-f743ae994cef"],
 Cell[CellGroupData[{
-Cell[6009331, 110126, 2180, 58, 115, "Input",ExpressionUUID->"216d4e7a-8ea7-49be-be11-9dfdf49dc65a"],
-Cell[6011514, 110186, 701, 10, 34, "Output",ExpressionUUID->"80858b70-efc1-44d9-b31f-fcc202c2a4e3"],
-Cell[6012218, 110198, 744, 13, 34, "Output",ExpressionUUID->"98b061d8-4654-4273-98ff-875bae65f225"],
-Cell[6012965, 110213, 701, 10, 34, "Output",ExpressionUUID->"7418b371-7afe-4849-9e2b-0b43356d7029"],
-Cell[6013669, 110225, 680, 10, 34, "Output",ExpressionUUID->"1910402f-74cf-43f0-ae07-d15f53d30a8c"],
-Cell[6014352, 110237, 747, 12, 37, "Output",ExpressionUUID->"4925d27d-ca97-4bcb-bd38-8bf8d8b5283b"]
+Cell[6304792, 115182, 2180, 58, 115, "Input",ExpressionUUID->"216d4e7a-8ea7-49be-be11-9dfdf49dc65a"],
+Cell[6306975, 115242, 701, 10, 34, "Output",ExpressionUUID->"80858b70-efc1-44d9-b31f-fcc202c2a4e3"],
+Cell[6307679, 115254, 744, 13, 34, "Output",ExpressionUUID->"98b061d8-4654-4273-98ff-875bae65f225"],
+Cell[6308426, 115269, 701, 10, 34, "Output",ExpressionUUID->"7418b371-7afe-4849-9e2b-0b43356d7029"],
+Cell[6309130, 115281, 680, 10, 34, "Output",ExpressionUUID->"1910402f-74cf-43f0-ae07-d15f53d30a8c"],
+Cell[6309813, 115293, 747, 12, 37, "Output",ExpressionUUID->"4925d27d-ca97-4bcb-bd38-8bf8d8b5283b"]
 }, Open  ]],
-Cell[6015114, 110252, 3086, 76, 115, "Input",ExpressionUUID->"5b446533-3160-44d4-aabd-48a26aedc815"],
+Cell[6310575, 115308, 3086, 76, 115, "Input",ExpressionUUID->"5b446533-3160-44d4-aabd-48a26aedc815"],
 Cell[CellGroupData[{
-Cell[6018225, 110332, 1686, 41, 94, "Input",ExpressionUUID->"c8469220-d622-499f-aa47-252fb9a477f2"],
-Cell[6019914, 110375, 751, 11, 34, "Output",ExpressionUUID->"af015493-b16e-422a-9b5e-616cda9bc6a6"],
-Cell[6020668, 110388, 833, 15, 34, "Output",ExpressionUUID->"7affc075-9991-4e26-8ab5-baab3e4d9df6"],
-Cell[6021504, 110405, 746, 11, 34, "Output",ExpressionUUID->"c914f086-0a8a-48fd-8fd5-55911a77842a"],
-Cell[6022253, 110418, 817, 14, 37, "Output",ExpressionUUID->"2e9a9236-5351-4adb-97f0-6b1d44acee12"]
+Cell[6313686, 115388, 1686, 41, 94, "Input",ExpressionUUID->"c8469220-d622-499f-aa47-252fb9a477f2"],
+Cell[6315375, 115431, 751, 11, 34, "Output",ExpressionUUID->"af015493-b16e-422a-9b5e-616cda9bc6a6"],
+Cell[6316129, 115444, 833, 15, 34, "Output",ExpressionUUID->"7affc075-9991-4e26-8ab5-baab3e4d9df6"],
+Cell[6316965, 115461, 746, 11, 34, "Output",ExpressionUUID->"c914f086-0a8a-48fd-8fd5-55911a77842a"],
+Cell[6317714, 115474, 817, 14, 37, "Output",ExpressionUUID->"2e9a9236-5351-4adb-97f0-6b1d44acee12"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6023107, 110437, 1724, 51, 115, "Input",ExpressionUUID->"1c464542-0c3b-4b88-bcd8-ba34a552aa60"],
-Cell[6024834, 110490, 308, 7, 34, "Output",ExpressionUUID->"b367dab1-66d5-4bac-803b-7fdff7766372"],
-Cell[6025145, 110499, 323, 7, 34, "Output",ExpressionUUID->"8bc87dd0-2cb9-4dfd-bbbd-830ef1adc74c"]
+Cell[6318568, 115493, 1724, 51, 115, "Input",ExpressionUUID->"1c464542-0c3b-4b88-bcd8-ba34a552aa60"],
+Cell[6320295, 115546, 308, 7, 34, "Output",ExpressionUUID->"b367dab1-66d5-4bac-803b-7fdff7766372"],
+Cell[6320606, 115555, 323, 7, 34, "Output",ExpressionUUID->"8bc87dd0-2cb9-4dfd-bbbd-830ef1adc74c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6025505, 110511, 1540, 46, 115, "Input",ExpressionUUID->"707681b0-087b-42bd-9c23-d6f44bb0b122"],
-Cell[6027048, 110559, 385, 9, 34, "Output",ExpressionUUID->"3a033591-d53b-4e7e-849f-1010fea12f48"],
-Cell[6027436, 110570, 401, 9, 34, "Output",ExpressionUUID->"9bca36bc-22d2-402e-8a37-dab32a247f83"]
+Cell[6320966, 115567, 1540, 46, 115, "Input",ExpressionUUID->"707681b0-087b-42bd-9c23-d6f44bb0b122"],
+Cell[6322509, 115615, 385, 9, 34, "Output",ExpressionUUID->"3a033591-d53b-4e7e-849f-1010fea12f48"],
+Cell[6322897, 115626, 401, 9, 34, "Output",ExpressionUUID->"9bca36bc-22d2-402e-8a37-dab32a247f83"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6027874, 110584, 2843, 63, 73, "Input",ExpressionUUID->"1d770dc3-1a9e-4cb8-88ea-10ae052007f4"],
-Cell[6030720, 110649, 863447, 15289, 604, "Output",ExpressionUUID->"a67dc555-202d-478a-9217-8f2d5a919278"]
+Cell[6323335, 115640, 2843, 63, 73, "Input",ExpressionUUID->"1d770dc3-1a9e-4cb8-88ea-10ae052007f4"],
+Cell[6326181, 115705, 863447, 15289, 604, "Output",ExpressionUUID->"a67dc555-202d-478a-9217-8f2d5a919278"]
 }, Open  ]],
-Cell[6894182, 125941, 605, 13, 30, "Input",ExpressionUUID->"9bdab2b7-d201-4f8a-85b3-ee9556849633"],
+Cell[7189643, 130997, 605, 13, 30, "Input",ExpressionUUID->"9bdab2b7-d201-4f8a-85b3-ee9556849633"],
 Cell[CellGroupData[{
-Cell[6894812, 125958, 488, 12, 30, "Input",ExpressionUUID->"22d97642-403f-42d5-a26e-3f426c636717"],
-Cell[6895303, 125972, 902, 22, 37, "Output",ExpressionUUID->"48c1eded-aef5-4675-aef3-ef67f2bf764d"]
+Cell[7190273, 131014, 488, 12, 30, "Input",ExpressionUUID->"22d97642-403f-42d5-a26e-3f426c636717"],
+Cell[7190764, 131028, 902, 22, 37, "Output",ExpressionUUID->"48c1eded-aef5-4675-aef3-ef67f2bf764d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6896242, 125999, 741, 17, 30, "Input",ExpressionUUID->"b27db407-7e94-4d46-8229-f9389bcfac28"],
-Cell[6896986, 126018, 1492, 45, 34, "Output",ExpressionUUID->"4093a4d9-624c-4845-a1bd-fdb23c05974a"]
+Cell[7191703, 131055, 741, 17, 30, "Input",ExpressionUUID->"b27db407-7e94-4d46-8229-f9389bcfac28"],
+Cell[7192447, 131074, 1492, 45, 34, "Output",ExpressionUUID->"4093a4d9-624c-4845-a1bd-fdb23c05974a"]
 }, Open  ]],
-Cell[6898493, 126066, 652, 19, 30, "Input",ExpressionUUID->"fa15f1bc-049e-4f3f-bcdf-1069a21ba5fe"],
-Cell[6899148, 126087, 703, 20, 30, "Input",ExpressionUUID->"7d056f2c-e53e-4fa0-8fc9-548c22a6b900"],
+Cell[7193954, 131122, 652, 19, 30, "Input",ExpressionUUID->"fa15f1bc-049e-4f3f-bcdf-1069a21ba5fe"],
+Cell[7194609, 131143, 703, 20, 30, "Input",ExpressionUUID->"7d056f2c-e53e-4fa0-8fc9-548c22a6b900"],
 Cell[CellGroupData[{
-Cell[6899876, 126111, 4176, 96, 94, "Input",ExpressionUUID->"81495849-1dab-4218-883e-1137adcc1e03"],
-Cell[6904055, 126209, 35672, 822, 388, "Output",ExpressionUUID->"cbefa8c2-b0d2-4e06-9cf8-36b9250303e5"]
+Cell[7195337, 131167, 4176, 96, 94, "Input",ExpressionUUID->"81495849-1dab-4218-883e-1137adcc1e03"],
+Cell[7199516, 131265, 35672, 822, 388, "Output",ExpressionUUID->"cbefa8c2-b0d2-4e06-9cf8-36b9250303e5"]
 }, Open  ]],
-Cell[6939742, 127034, 345, 9, 30, "Input",ExpressionUUID->"d8667c69-8e61-424f-aadc-f9d114c03ae8"],
+Cell[7235203, 132090, 345, 9, 30, "Input",ExpressionUUID->"d8667c69-8e61-424f-aadc-f9d114c03ae8"],
 Cell[CellGroupData[{
-Cell[6940112, 127047, 4361, 98, 115, "Input",ExpressionUUID->"863c777c-6fe1-49e7-9dfc-b363d15e55d2"],
-Cell[6944476, 127147, 35627, 825, 388, "Output",ExpressionUUID->"47ac39cf-2a2a-47ee-bb94-daebdd4273f8"]
+Cell[7235573, 132103, 4361, 98, 115, "Input",ExpressionUUID->"863c777c-6fe1-49e7-9dfc-b363d15e55d2"],
+Cell[7239937, 132203, 35627, 825, 388, "Output",ExpressionUUID->"47ac39cf-2a2a-47ee-bb94-daebdd4273f8"]
 }, Open  ]],
-Cell[6980118, 127975, 345, 9, 30, "Input",ExpressionUUID->"95851b71-9183-42c6-bb59-538457ae8b6b"],
+Cell[7275579, 133031, 345, 9, 30, "Input",ExpressionUUID->"95851b71-9183-42c6-bb59-538457ae8b6b"],
 Cell[CellGroupData[{
-Cell[6980488, 127988, 1817, 43, 136, "Input",ExpressionUUID->"22c76192-f0d9-4045-a2dc-a23ee2765ce7"],
-Cell[6982308, 128033, 1775, 43, 56, "Output",ExpressionUUID->"43207f63-f744-4220-bae2-2d1a94844f6c"]
+Cell[7275949, 133044, 1817, 43, 136, "Input",ExpressionUUID->"22c76192-f0d9-4045-a2dc-a23ee2765ce7"],
+Cell[7277769, 133089, 1775, 43, 56, "Output",ExpressionUUID->"43207f63-f744-4220-bae2-2d1a94844f6c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6984120, 128081, 1006, 26, 52, "Input",ExpressionUUID->"487f8712-d9a6-4864-931d-d02f4a01c20d"],
-Cell[6985129, 128109, 884, 24, 34, "Output",ExpressionUUID->"3ebfa051-549e-4710-9484-3cd1fc3051e8"]
+Cell[7279581, 133137, 1006, 26, 52, "Input",ExpressionUUID->"487f8712-d9a6-4864-931d-d02f4a01c20d"],
+Cell[7280590, 133165, 884, 24, 34, "Output",ExpressionUUID->"3ebfa051-549e-4710-9484-3cd1fc3051e8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[6986050, 128138, 5087, 127, 159, "Input",ExpressionUUID->"2e3ae6c2-3978-4e6b-8d85-2ff17b6f8d66"],
-Cell[6991140, 128267, 34109, 760, 393, "Output",ExpressionUUID->"0d52ebb0-b516-4f05-8d80-7c1f9aee593c"]
+Cell[7281511, 133194, 5087, 127, 159, "Input",ExpressionUUID->"2e3ae6c2-3978-4e6b-8d85-2ff17b6f8d66"],
+Cell[7286601, 133323, 34109, 760, 393, "Output",ExpressionUUID->"0d52ebb0-b516-4f05-8d80-7c1f9aee593c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7025286, 129032, 4473, 117, 283, "Input",ExpressionUUID->"908576b9-be04-4c0c-ae2e-2db105b60e34"],
-Cell[7029762, 129151, 22918, 534, 393, "Output",ExpressionUUID->"39e95b12-39b7-4893-9f32-a4a45683e67a"]
+Cell[7320747, 134088, 4473, 117, 283, "Input",ExpressionUUID->"908576b9-be04-4c0c-ae2e-2db105b60e34"],
+Cell[7325223, 134207, 22918, 534, 393, "Output",ExpressionUUID->"39e95b12-39b7-4893-9f32-a4a45683e67a"]
 }, Open  ]],
-Cell[7052695, 129688, 381, 10, 30, "Input",ExpressionUUID->"dcd62b49-3f54-435d-b6e2-09bfe95a7985"]
-}, Closed]]
+Cell[7348156, 134744, 381, 10, 30, "Input",ExpressionUUID->"dcd62b49-3f54-435d-b6e2-09bfe95a7985"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[7348574, 134759, 454, 7, 37, "Subsubsection",ExpressionUUID->"070eada4-2233-496a-a917-11fcbc5f9ebd"],
+Cell[CellGroupData[{
+Cell[7349053, 134770, 1646, 41, 98, "Input",ExpressionUUID->"e7e86e21-61ff-4b61-b5b1-90c4c5b55889"],
+Cell[7350702, 134813, 1291, 29, 37, "Output",ExpressionUUID->"46a06355-d699-41bb-b5ce-a2ee716f4d20"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[7352030, 134847, 286, 6, 30, "Input",ExpressionUUID->"772c3507-62a3-4111-9b7c-074de3fb6726"],
+Cell[7352319, 134855, 1217, 37, 56, "Output",ExpressionUUID->"09bfffd5-70f5-4d8b-ad1a-864c71be3faa"]
+}, Open  ]],
+Cell[7353551, 134895, 2947, 69, 136, "Input",ExpressionUUID->"379d11d7-b809-4f50-8a18-243c0a1b25f6"],
+Cell[7356501, 134966, 2109, 57, 136, "Input",ExpressionUUID->"096f538b-abeb-48f8-8cbc-4cfb39106976"],
+Cell[7358613, 135025, 3027, 70, 136, "Input",ExpressionUUID->"c709c09f-c432-47c7-83fd-9e8527c8f460"],
+Cell[CellGroupData[{
+Cell[7361665, 135099, 7726, 167, 367, "Input",ExpressionUUID->"7c923c5d-81ec-423d-bc73-a3a57b798e01"],
+Cell[7369394, 135268, 72528, 1525, 376, "Output",ExpressionUUID->"8366325e-3b22-4590-9bfa-7b0133f4008d"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[7441959, 136798, 1928, 57, 136, "Input",ExpressionUUID->"3036226b-a6b0-4b95-af4e-4ddb1a2b7a0a"],
+Cell[7443890, 136857, 728, 17, 56, "Output",ExpressionUUID->"f5a5a784-765d-46b4-a076-579f8ff33009"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[7444655, 136879, 338, 9, 30, "Input",ExpressionUUID->"a5a83cd4-25da-4862-b7f1-512a76476b7c"],
+Cell[7444996, 136890, 264, 6, 34, "Output",ExpressionUUID->"368e71e0-7275-41b0-8ccd-810d29071af4"]
+}, Open  ]]
+}, Open  ]]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7053137, 129705, 150, 3, 67, "Section",ExpressionUUID->"d75bf798-3075-43a4-a302-bf743bd3a3db"],
+Cell[7445333, 136904, 150, 3, 67, "Section",ExpressionUUID->"d75bf798-3075-43a4-a302-bf743bd3a3db"],
 Cell[CellGroupData[{
-Cell[7053312, 129712, 2986, 70, 136, "Input",ExpressionUUID->"38967146-6868-4700-8dad-735e512c3f7a"],
-Cell[7056301, 129784, 985, 21, 60, "Output",ExpressionUUID->"57b230fc-9cce-4de8-9e7e-0456c51230b5"]
+Cell[7445508, 136911, 2986, 70, 136, "Input",ExpressionUUID->"38967146-6868-4700-8dad-735e512c3f7a"],
+Cell[7448497, 136983, 985, 21, 60, "Output",ExpressionUUID->"57b230fc-9cce-4de8-9e7e-0456c51230b5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7057323, 129810, 304, 5, 30, "Input",ExpressionUUID->"ff023592-7295-4278-a47c-d65a2e897d71"],
-Cell[7057630, 129817, 960, 24, 60, "Output",ExpressionUUID->"e79f1e8f-dfd5-4a82-9e89-a5cb29e3e61b"]
+Cell[7449519, 137009, 304, 5, 30, "Input",ExpressionUUID->"ff023592-7295-4278-a47c-d65a2e897d71"],
+Cell[7449826, 137016, 960, 24, 60, "Output",ExpressionUUID->"e79f1e8f-dfd5-4a82-9e89-a5cb29e3e61b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7058627, 129846, 962, 20, 52, "Input",ExpressionUUID->"779fb488-e9a8-45b9-ac79-4753bece0f9d"],
-Cell[7059592, 129868, 1644, 44, 56, "Output",ExpressionUUID->"bc0fb244-25d6-486d-9f09-6c5334707477"]
+Cell[7450823, 137045, 962, 20, 52, "Input",ExpressionUUID->"779fb488-e9a8-45b9-ac79-4753bece0f9d"],
+Cell[7451788, 137067, 1644, 44, 56, "Output",ExpressionUUID->"bc0fb244-25d6-486d-9f09-6c5334707477"]
 }, Open  ]],
-Cell[7061251, 129915, 679, 20, 30, "Input",ExpressionUUID->"a1cb308c-a922-455f-b4da-f8696aa1d22f"],
+Cell[7453447, 137114, 679, 20, 30, "Input",ExpressionUUID->"a1cb308c-a922-455f-b4da-f8696aa1d22f"],
 Cell[CellGroupData[{
-Cell[7061955, 129939, 850, 22, 52, "Input",ExpressionUUID->"f81847cf-3c05-47f6-beeb-4fa5c44003de"],
-Cell[7062808, 129963, 449, 10, 24, "Message",ExpressionUUID->"d13f1920-359b-45ca-b79e-78bea0d756dd"],
-Cell[7063260, 129975, 162, 3, 34, "Output",ExpressionUUID->"379b1a17-b834-42ca-8386-c9d80df21295"]
+Cell[7454151, 137138, 850, 22, 52, "Input",ExpressionUUID->"f81847cf-3c05-47f6-beeb-4fa5c44003de"],
+Cell[7455004, 137162, 449, 10, 24, "Message",ExpressionUUID->"d13f1920-359b-45ca-b79e-78bea0d756dd"],
+Cell[7455456, 137174, 162, 3, 34, "Output",ExpressionUUID->"379b1a17-b834-42ca-8386-c9d80df21295"]
 }, Open  ]],
-Cell[7063437, 129981, 394, 10, 30, "Input",ExpressionUUID->"33ec6a8e-89a0-4e6b-9816-2b6cda8ee75c"],
+Cell[7455633, 137180, 394, 10, 30, "Input",ExpressionUUID->"33ec6a8e-89a0-4e6b-9816-2b6cda8ee75c"],
 Cell[CellGroupData[{
-Cell[7063856, 129995, 1270, 27, 52, "Input",ExpressionUUID->"0f154401-c33b-4293-8b7e-2d822fcf29b5"],
-Cell[7065129, 130024, 1033, 20, 34, "Output",ExpressionUUID->"16c3cdb9-6d41-4801-b45f-a6f62d4b5cd5"]
+Cell[7456052, 137194, 1270, 27, 52, "Input",ExpressionUUID->"0f154401-c33b-4293-8b7e-2d822fcf29b5"],
+Cell[7457325, 137223, 1033, 20, 34, "Output",ExpressionUUID->"16c3cdb9-6d41-4801-b45f-a6f62d4b5cd5"]
 }, Open  ]],
-Cell[7066177, 130047, 780, 21, 30, "Input",ExpressionUUID->"ab6e8a83-c8ae-4c26-b801-9ae56bfe1dad"],
-Cell[7066960, 130070, 399, 11, 30, "Input",ExpressionUUID->"a7440e05-589d-4652-8eab-ae0c1bc0e61f"],
+Cell[7458373, 137246, 780, 21, 30, "Input",ExpressionUUID->"ab6e8a83-c8ae-4c26-b801-9ae56bfe1dad"],
+Cell[7459156, 137269, 399, 11, 30, "Input",ExpressionUUID->"a7440e05-589d-4652-8eab-ae0c1bc0e61f"],
 Cell[CellGroupData[{
-Cell[7067384, 130085, 953, 24, 30, "Input",ExpressionUUID->"2671b33e-4a90-45cb-b15a-0bc3c349c231"],
-Cell[7068340, 130111, 351, 6, 34, "Output",ExpressionUUID->"ffada709-a395-482b-ae7d-b7efaa6daaf8"]
+Cell[7459580, 137284, 953, 24, 30, "Input",ExpressionUUID->"2671b33e-4a90-45cb-b15a-0bc3c349c231"],
+Cell[7460536, 137310, 351, 6, 34, "Output",ExpressionUUID->"ffada709-a395-482b-ae7d-b7efaa6daaf8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7068728, 130122, 323, 9, 30, "Input",ExpressionUUID->"d585cdcc-a6fa-4f65-9aa9-029f92af27a7"],
-Cell[7069054, 130133, 207, 4, 34, "Output",ExpressionUUID->"f76132c8-5c2a-43dc-9cd4-e28c628580ff"]
+Cell[7460924, 137321, 323, 9, 30, "Input",ExpressionUUID->"d585cdcc-a6fa-4f65-9aa9-029f92af27a7"],
+Cell[7461250, 137332, 207, 4, 34, "Output",ExpressionUUID->"f76132c8-5c2a-43dc-9cd4-e28c628580ff"]
 }, Open  ]],
-Cell[7069276, 130140, 538, 16, 30, "Input",ExpressionUUID->"9cd90e5f-53cd-4977-9d79-331e63b570b1"],
+Cell[7461472, 137339, 538, 16, 30, "Input",ExpressionUUID->"9cd90e5f-53cd-4977-9d79-331e63b570b1"],
 Cell[CellGroupData[{
-Cell[7069839, 130160, 500, 14, 30, "Input",ExpressionUUID->"6c818f1d-9e73-4c39-bf77-4e6071e32d1c"],
-Cell[7070342, 130176, 2083, 60, 87, "Output",ExpressionUUID->"dc27552b-a369-4cc2-8697-621c2c3c1128"]
+Cell[7462035, 137359, 500, 14, 30, "Input",ExpressionUUID->"6c818f1d-9e73-4c39-bf77-4e6071e32d1c"],
+Cell[7462538, 137375, 2083, 60, 87, "Output",ExpressionUUID->"dc27552b-a369-4cc2-8697-621c2c3c1128"]
 }, Open  ]],
-Cell[7072440, 130239, 319, 9, 30, "Input",ExpressionUUID->"2b6ccc5c-ba19-4d11-84b0-d4202f87a890"],
+Cell[7464636, 137438, 319, 9, 30, "Input",ExpressionUUID->"2b6ccc5c-ba19-4d11-84b0-d4202f87a890"],
 Cell[CellGroupData[{
-Cell[7072784, 130252, 1029, 24, 52, "Input",ExpressionUUID->"2f5e1daa-2ce4-4dfc-b7aa-2ad6a4fcb24f"],
-Cell[7073816, 130278, 1274, 35, 168, "Output",ExpressionUUID->"9eb67bbd-d839-4444-8399-9eaffde4983b"]
+Cell[7464980, 137451, 1029, 24, 52, "Input",ExpressionUUID->"2f5e1daa-2ce4-4dfc-b7aa-2ad6a4fcb24f"],
+Cell[7466012, 137477, 1274, 35, 168, "Output",ExpressionUUID->"9eb67bbd-d839-4444-8399-9eaffde4983b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7075127, 130318, 506, 14, 30, "Input",ExpressionUUID->"97d8942b-ef71-4e05-b29c-87c48a40d780"],
-Cell[7075636, 130334, 1171, 26, 94, "Output",ExpressionUUID->"1eae1962-3682-41da-b1a0-7bcc9ffd244b"]
+Cell[7467323, 137517, 506, 14, 30, "Input",ExpressionUUID->"97d8942b-ef71-4e05-b29c-87c48a40d780"],
+Cell[7467832, 137533, 1171, 26, 94, "Output",ExpressionUUID->"1eae1962-3682-41da-b1a0-7bcc9ffd244b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7076844, 130365, 663, 17, 73, "Input",ExpressionUUID->"09481929-3fba-4494-a349-e682917c4869"],
-Cell[7077510, 130384, 715, 18, 34, "Output",ExpressionUUID->"ecd5c3e8-1d91-4289-9e89-ca06fed5bc7f"],
-Cell[7078228, 130404, 702, 18, 34, "Output",ExpressionUUID->"f079965e-b82a-4c63-a8ff-4f4b6840f320"],
-Cell[7078933, 130424, 1032, 25, 94, "Output",ExpressionUUID->"4affb51e-90ba-453b-9e02-ad852ca64658"]
+Cell[7469040, 137564, 663, 17, 73, "Input",ExpressionUUID->"09481929-3fba-4494-a349-e682917c4869"],
+Cell[7469706, 137583, 715, 18, 34, "Output",ExpressionUUID->"ecd5c3e8-1d91-4289-9e89-ca06fed5bc7f"],
+Cell[7470424, 137603, 702, 18, 34, "Output",ExpressionUUID->"f079965e-b82a-4c63-a8ff-4f4b6840f320"],
+Cell[7471129, 137623, 1032, 25, 94, "Output",ExpressionUUID->"4affb51e-90ba-453b-9e02-ad852ca64658"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7080002, 130454, 1145, 23, 30, "Input",ExpressionUUID->"b4cb3c37-1384-4f74-af6a-c9aba2a5d995"],
-Cell[7081150, 130479, 2180, 58, 43, "Output",ExpressionUUID->"266f7921-d6a6-4206-b671-cd9c436f69ca"]
+Cell[7472198, 137653, 1145, 23, 30, "Input",ExpressionUUID->"b4cb3c37-1384-4f74-af6a-c9aba2a5d995"],
+Cell[7473346, 137678, 2180, 58, 43, "Output",ExpressionUUID->"266f7921-d6a6-4206-b671-cd9c436f69ca"]
 }, Open  ]],
-Cell[7083345, 130540, 679, 20, 30, "Input",ExpressionUUID->"0e783ff1-1c4c-46ff-81f2-f4e43d020ef0"],
+Cell[7475541, 137739, 679, 20, 30, "Input",ExpressionUUID->"0e783ff1-1c4c-46ff-81f2-f4e43d020ef0"],
 Cell[CellGroupData[{
-Cell[7084049, 130564, 883, 22, 30, "Input",ExpressionUUID->"a6b71399-663e-4dd6-a717-f71dde039158"],
-Cell[7084935, 130588, 1011, 22, 34, "Output",ExpressionUUID->"22f06c98-8fcc-4ead-8b6a-fecc73119229"]
+Cell[7476245, 137763, 883, 22, 30, "Input",ExpressionUUID->"a6b71399-663e-4dd6-a717-f71dde039158"],
+Cell[7477131, 137787, 1011, 22, 34, "Output",ExpressionUUID->"22f06c98-8fcc-4ead-8b6a-fecc73119229"]
 }, Open  ]],
-Cell[7085961, 130613, 2008, 52, 186, "Code",ExpressionUUID->"a3bfee98-500f-4fd1-ad9b-f08f784ac04e"],
+Cell[7478157, 137812, 2008, 52, 186, "Code",ExpressionUUID->"a3bfee98-500f-4fd1-ad9b-f08f784ac04e"],
 Cell[CellGroupData[{
-Cell[7087994, 130669, 113, 2, 30, "Input",ExpressionUUID->"8e6d1dec-14b8-4d3b-881f-e8f4ecfbbbe8"],
-Cell[7088110, 130673, 1742, 51, 43, "Output",ExpressionUUID->"f852efbf-9f74-4244-a700-4ced278386c4"]
+Cell[7480190, 137868, 113, 2, 30, "Input",ExpressionUUID->"8e6d1dec-14b8-4d3b-881f-e8f4ecfbbbe8"],
+Cell[7480306, 137872, 1742, 51, 43, "Output",ExpressionUUID->"f852efbf-9f74-4244-a700-4ced278386c4"]
 }, Open  ]],
-Cell[7089867, 130727, 778, 17, 30, "Input",ExpressionUUID->"04346474-3e7d-4dc3-8231-47da551ce698"],
+Cell[7482063, 137926, 778, 17, 30, "Input",ExpressionUUID->"04346474-3e7d-4dc3-8231-47da551ce698"],
 Cell[CellGroupData[{
-Cell[7090670, 130748, 432, 10, 30, "Input",ExpressionUUID->"87e37f07-8eba-458e-95c7-a561156960a0"],
-Cell[7091105, 130760, 4196, 64, 59, "Message",ExpressionUUID->"a85ecaee-ca47-474a-b588-4295817351bf"],
-Cell[7095304, 130826, 1402, 40, 34, "Output",ExpressionUUID->"90474804-8d9a-4348-a460-e91856b89839"]
+Cell[7482866, 137947, 432, 10, 30, "Input",ExpressionUUID->"87e37f07-8eba-458e-95c7-a561156960a0"],
+Cell[7483301, 137959, 4196, 64, 59, "Message",ExpressionUUID->"a85ecaee-ca47-474a-b588-4295817351bf"],
+Cell[7487500, 138025, 1402, 40, 34, "Output",ExpressionUUID->"90474804-8d9a-4348-a460-e91856b89839"]
 }, Open  ]],
-Cell[7096721, 130869, 216, 4, 30, "Input",ExpressionUUID->"cb655046-b195-41dc-a4aa-46abcc377ca2"],
-Cell[7096940, 130875, 1386, 38, 73, "Input",ExpressionUUID->"eea98df9-6161-4e54-9063-ff92afe1ca81"],
+Cell[7488917, 138068, 216, 4, 30, "Input",ExpressionUUID->"cb655046-b195-41dc-a4aa-46abcc377ca2"],
+Cell[7489136, 138074, 1386, 38, 73, "Input",ExpressionUUID->"eea98df9-6161-4e54-9063-ff92afe1ca81"],
 Cell[CellGroupData[{
-Cell[7098351, 130917, 398, 10, 30, "Input",ExpressionUUID->"3ee94b9b-42bd-4454-b3e6-7d9d19cc7fa5"],
-Cell[7098752, 130929, 340, 5, 34, "Output",ExpressionUUID->"c7ac89cc-3f6d-4f3d-a85c-1cdb8f6d3d46"]
+Cell[7490547, 138116, 398, 10, 30, "Input",ExpressionUUID->"3ee94b9b-42bd-4454-b3e6-7d9d19cc7fa5"],
+Cell[7490948, 138128, 340, 5, 34, "Output",ExpressionUUID->"c7ac89cc-3f6d-4f3d-a85c-1cdb8f6d3d46"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7099129, 130939, 719, 16, 30, "Input",ExpressionUUID->"cbfe7d17-c8b0-47d5-8a6e-26ca972364a3"],
-Cell[7099851, 130957, 1328, 39, 34, "Output",ExpressionUUID->"8acc0cda-bcf3-4094-8d0b-cbb1acb478d1"]
+Cell[7491325, 138138, 719, 16, 30, "Input",ExpressionUUID->"cbfe7d17-c8b0-47d5-8a6e-26ca972364a3"],
+Cell[7492047, 138156, 1328, 39, 34, "Output",ExpressionUUID->"8acc0cda-bcf3-4094-8d0b-cbb1acb478d1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7101216, 131001, 236, 6, 30, "Input",ExpressionUUID->"e4e9b89b-ef88-4043-a1ee-13fea08d7ab0"],
-Cell[7101455, 131009, 1306, 39, 34, "Output",ExpressionUUID->"572177d1-bf12-4119-af62-7349b73c2fd5"]
+Cell[7493412, 138200, 236, 6, 30, "Input",ExpressionUUID->"e4e9b89b-ef88-4043-a1ee-13fea08d7ab0"],
+Cell[7493651, 138208, 1306, 39, 34, "Output",ExpressionUUID->"572177d1-bf12-4119-af62-7349b73c2fd5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7102798, 131053, 1003, 22, 30, "Input",ExpressionUUID->"5620b0a9-5bea-4e8f-aff1-220bb50bd655"],
-Cell[7103804, 131077, 721, 16, 34, "Output",ExpressionUUID->"a696c931-66b3-4569-985b-5883ae5f8bb9"]
+Cell[7494994, 138252, 1003, 22, 30, "Input",ExpressionUUID->"5620b0a9-5bea-4e8f-aff1-220bb50bd655"],
+Cell[7496000, 138276, 721, 16, 34, "Output",ExpressionUUID->"a696c931-66b3-4569-985b-5883ae5f8bb9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7104562, 131098, 465, 12, 30, "Input",ExpressionUUID->"e7dbfced-35bf-45bb-9ce4-f2cd9b79ea85"],
-Cell[7105030, 131112, 1492, 41, 34, "Output",ExpressionUUID->"66ba21e7-5fc3-41eb-bdc8-0fa74e516a37"]
+Cell[7496758, 138297, 465, 12, 30, "Input",ExpressionUUID->"e7dbfced-35bf-45bb-9ce4-f2cd9b79ea85"],
+Cell[7497226, 138311, 1492, 41, 34, "Output",ExpressionUUID->"66ba21e7-5fc3-41eb-bdc8-0fa74e516a37"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7106559, 131158, 236, 6, 30, "Input",ExpressionUUID->"3c31a2ca-e265-44b9-900b-c1c2f71f1d14"],
-Cell[7106798, 131166, 1330, 39, 34, "Output",ExpressionUUID->"5a6e1054-b5b2-4330-82b3-1b6eef645b91"]
+Cell[7498755, 138357, 236, 6, 30, "Input",ExpressionUUID->"3c31a2ca-e265-44b9-900b-c1c2f71f1d14"],
+Cell[7498994, 138365, 1330, 39, 34, "Output",ExpressionUUID->"5a6e1054-b5b2-4330-82b3-1b6eef645b91"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7108165, 131210, 783, 22, 30, "Input",ExpressionUUID->"d976f6c9-803a-4442-a43d-cb676dfd8985"],
-Cell[7108951, 131234, 33989, 583, 244, "Output",ExpressionUUID->"d5e7344b-b8fa-42bf-897b-f4498a57c06e"]
+Cell[7500361, 138409, 783, 22, 30, "Input",ExpressionUUID->"d976f6c9-803a-4442-a43d-cb676dfd8985"],
+Cell[7501147, 138433, 33989, 583, 244, "Output",ExpressionUUID->"d5e7344b-b8fa-42bf-897b-f4498a57c06e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7142977, 131822, 721, 20, 30, "Input",ExpressionUUID->"191a8f2d-e087-4917-b1dc-91f0ab9b33c3"],
-Cell[7143701, 131844, 4192, 64, 59, "Message",ExpressionUUID->"12968826-e12d-4a72-a982-5781be7df302"],
-Cell[7147896, 131910, 4192, 64, 59, "Message",ExpressionUUID->"4a9fb7bb-e410-455c-9fda-488455fb2659"],
-Cell[7152091, 131976, 4192, 64, 59, "Message",ExpressionUUID->"1238745d-f9e1-4bc0-99f7-c3e421e7848b"],
-Cell[7156286, 132042, 471, 10, 24, "Message",ExpressionUUID->"32424d96-d19a-4cb9-a894-4f3cf10e0ed1"]
+Cell[7535173, 139021, 721, 20, 30, "Input",ExpressionUUID->"191a8f2d-e087-4917-b1dc-91f0ab9b33c3"],
+Cell[7535897, 139043, 4192, 64, 59, "Message",ExpressionUUID->"12968826-e12d-4a72-a982-5781be7df302"],
+Cell[7540092, 139109, 4192, 64, 59, "Message",ExpressionUUID->"4a9fb7bb-e410-455c-9fda-488455fb2659"],
+Cell[7544287, 139175, 4192, 64, 59, "Message",ExpressionUUID->"1238745d-f9e1-4bc0-99f7-c3e421e7848b"],
+Cell[7548482, 139241, 471, 10, 24, "Message",ExpressionUUID->"32424d96-d19a-4cb9-a894-4f3cf10e0ed1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7156794, 132057, 644, 17, 30, "Input",ExpressionUUID->"6b9ce619-ef15-41fc-9a0e-04b63e084d6f"],
-Cell[7157441, 132076, 8804, 182, 244, "Output",ExpressionUUID->"2817a024-5c30-46e2-8434-9e7f30ba1545"]
+Cell[7548990, 139256, 644, 17, 30, "Input",ExpressionUUID->"6b9ce619-ef15-41fc-9a0e-04b63e084d6f"],
+Cell[7549637, 139275, 8804, 182, 244, "Output",ExpressionUUID->"2817a024-5c30-46e2-8434-9e7f30ba1545"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7166282, 132263, 368, 10, 30, "Input",ExpressionUUID->"444a01d5-62d5-48e0-a4ad-b961a5d2d267"],
-Cell[7166653, 132275, 3288, 50, 57, "Message",ExpressionUUID->"b5791c30-3108-4418-9df2-5a425ab3d9df"],
-Cell[7169944, 132327, 8911, 188, 290, "Output",ExpressionUUID->"5db6f647-f0af-41fc-b0ac-84f9bc5e45f1"]
+Cell[7558478, 139462, 368, 10, 30, "Input",ExpressionUUID->"444a01d5-62d5-48e0-a4ad-b961a5d2d267"],
+Cell[7558849, 139474, 3288, 50, 57, "Message",ExpressionUUID->"b5791c30-3108-4418-9df2-5a425ab3d9df"],
+Cell[7562140, 139526, 8911, 188, 290, "Output",ExpressionUUID->"5db6f647-f0af-41fc-b0ac-84f9bc5e45f1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7178892, 132520, 611, 17, 73, "Input",ExpressionUUID->"0b01d81a-9430-4a5f-85dd-8b38755017b7"],
-Cell[7179506, 132539, 6639, 97, 57, "Message",ExpressionUUID->"a0c58f98-bb04-4133-b45e-d885318c3699"],
-Cell[7186148, 132638, 7225, 152, 104, "Output",ExpressionUUID->"1cb84d4f-819e-453f-be44-23990a184788"],
-Cell[7193376, 132792, 7740, 168, 186, "Output",ExpressionUUID->"13b1dbf3-a5bf-44f1-b4d4-f0761a8901a3"]
+Cell[7571088, 139719, 611, 17, 73, "Input",ExpressionUUID->"0b01d81a-9430-4a5f-85dd-8b38755017b7"],
+Cell[7571702, 139738, 6639, 97, 57, "Message",ExpressionUUID->"a0c58f98-bb04-4133-b45e-d885318c3699"],
+Cell[7578344, 139837, 7225, 152, 104, "Output",ExpressionUUID->"1cb84d4f-819e-453f-be44-23990a184788"],
+Cell[7585572, 139991, 7740, 168, 186, "Output",ExpressionUUID->"13b1dbf3-a5bf-44f1-b4d4-f0761a8901a3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7201153, 132965, 696, 18, 73, "Input",ExpressionUUID->"a6b334e4-251f-4697-838c-17f8bf4d22e8"],
-Cell[7201852, 132985, 550, 14, 34, "Output",ExpressionUUID->"ab9248a3-e5d5-4c70-9bae-22921b4f81e2"],
-Cell[7202405, 133001, 784, 21, 76, "Output",ExpressionUUID->"9d10c1a2-52c3-4dce-990c-65f5c3e2b121"]
+Cell[7593349, 140164, 696, 18, 73, "Input",ExpressionUUID->"a6b334e4-251f-4697-838c-17f8bf4d22e8"],
+Cell[7594048, 140184, 550, 14, 34, "Output",ExpressionUUID->"ab9248a3-e5d5-4c70-9bae-22921b4f81e2"],
+Cell[7594601, 140200, 784, 21, 76, "Output",ExpressionUUID->"9d10c1a2-52c3-4dce-990c-65f5c3e2b121"]
 }, Open  ]],
-Cell[7203204, 133025, 152, 3, 30, "Input",ExpressionUUID->"e9916250-d6dc-412e-a4f4-3f2aff8bf08a"],
-Cell[7203359, 133030, 214, 5, 30, "Input",ExpressionUUID->"5ea60dfb-fb0d-40c4-a8d6-353b94088a80"],
+Cell[7595400, 140224, 152, 3, 30, "Input",ExpressionUUID->"e9916250-d6dc-412e-a4f4-3f2aff8bf08a"],
+Cell[7595555, 140229, 214, 5, 30, "Input",ExpressionUUID->"5ea60dfb-fb0d-40c4-a8d6-353b94088a80"],
 Cell[CellGroupData[{
-Cell[7203598, 133039, 1241, 39, 115, "Input",ExpressionUUID->"e1b5fdd6-2424-440c-828a-3efade375f8d"],
-Cell[7204842, 133080, 409, 11, 34, "Output",ExpressionUUID->"37d84930-ed70-40b9-9c9d-e4ff55c24e0d"]
+Cell[7595794, 140238, 1241, 39, 115, "Input",ExpressionUUID->"e1b5fdd6-2424-440c-828a-3efade375f8d"],
+Cell[7597038, 140279, 409, 11, 34, "Output",ExpressionUUID->"37d84930-ed70-40b9-9c9d-e4ff55c24e0d"]
 }, Open  ]],
-Cell[7205266, 133094, 288, 7, 30, "Input",ExpressionUUID->"df785d57-45bb-4dac-b5ec-2bf4a48bf18d"],
-Cell[7205557, 133103, 717, 20, 30, "Input",ExpressionUUID->"921d7a45-5772-45a2-a69f-0ea121b1d46a"],
+Cell[7597462, 140293, 288, 7, 30, "Input",ExpressionUUID->"df785d57-45bb-4dac-b5ec-2bf4a48bf18d"],
+Cell[7597753, 140302, 717, 20, 30, "Input",ExpressionUUID->"921d7a45-5772-45a2-a69f-0ea121b1d46a"],
 Cell[CellGroupData[{
-Cell[7206299, 133127, 484, 12, 30, "Input",ExpressionUUID->"22392b5a-ee33-4cd1-bef6-027b565e464a"],
-Cell[7206786, 133141, 3970, 77, 46, "Output",ExpressionUUID->"4b276d43-67b2-4d02-bc1d-dbeece972321"]
+Cell[7598495, 140326, 484, 12, 30, "Input",ExpressionUUID->"22392b5a-ee33-4cd1-bef6-027b565e464a"],
+Cell[7598982, 140340, 3970, 77, 46, "Output",ExpressionUUID->"4b276d43-67b2-4d02-bc1d-dbeece972321"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7210793, 133223, 238, 5, 30, "Input",ExpressionUUID->"6681d6f4-4ff3-4f9b-a8bf-c50608965276"],
-Cell[7211034, 133230, 379, 8, 34, "Output",ExpressionUUID->"ad1b1cf4-bab8-4d4e-b711-39466a96de62"]
+Cell[7602989, 140422, 238, 5, 30, "Input",ExpressionUUID->"6681d6f4-4ff3-4f9b-a8bf-c50608965276"],
+Cell[7603230, 140429, 379, 8, 34, "Output",ExpressionUUID->"ad1b1cf4-bab8-4d4e-b711-39466a96de62"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[7211450, 133243, 229, 4, 30, "Input",ExpressionUUID->"4acc7d79-06af-4cca-a201-0ba8172665a1"],
-Cell[7211682, 133249, 752, 19, 37, "Output",ExpressionUUID->"a977d93e-0661-4317-9f93-86d88ced379e"]
+Cell[7603646, 140442, 229, 4, 30, "Input",ExpressionUUID->"4acc7d79-06af-4cca-a201-0ba8172665a1"],
+Cell[7603878, 140448, 752, 19, 37, "Output",ExpressionUUID->"a977d93e-0661-4317-9f93-86d88ced379e"]
 }, Open  ]],
-Cell[7212449, 133271, 921, 25, 30, "Input",ExpressionUUID->"31c74185-87cf-44d0-9774-1494adec20ed"],
+Cell[7604645, 140470, 921, 25, 30, "Input",ExpressionUUID->"31c74185-87cf-44d0-9774-1494adec20ed"],
 Cell[CellGroupData[{
-Cell[7213395, 133300, 704, 19, 30, "Input",ExpressionUUID->"07b323d8-ee90-48b2-8880-9d9a9f40aa87"],
-Cell[7214102, 133321, 828, 20, 37, "Output",ExpressionUUID->"79cf8fff-9d87-45ab-918b-504a4c9d1bd3"]
+Cell[7605591, 140499, 704, 19, 30, "Input",ExpressionUUID->"07b323d8-ee90-48b2-8880-9d9a9f40aa87"],
+Cell[7606298, 140520, 828, 20, 37, "Output",ExpressionUUID->"79cf8fff-9d87-45ab-918b-504a4c9d1bd3"]
 }, Open  ]]
 }, Closed]]
 }, Open  ]]
diff --git a/code/RDQlmn.nb b/code/RDQlmn.nb
index a71753a9e1f69f1f86c953f74a2d8b534666f47b..01981fafad88d33882d49669c67121a067436a18 100644
--- a/code/RDQlmn.nb
+++ b/code/RDQlmn.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   2087278,      43824]
-NotebookOptionsPosition[   2046778,      43233]
-NotebookOutlinePosition[   2047116,      43248]
-CellTagsIndexPosition[   2047073,      43245]
+NotebookDataLength[   3270040,      68645]
+NotebookOptionsPosition[   3211828,      67798]
+NotebookOutlinePosition[   3212166,      67813]
+CellTagsIndexPosition[   3212123,      67810]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -30,7 +30,8 @@ Cell[BoxData[
  RowBox[{"Quit", "[", "]"}]], "Input",
  CellChangeTimes->{{3.772628159141247*^9, 3.772628161249263*^9}, {
   3.785052589392028*^9, 3.785052592823535*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"772fb280-3637-4d67-9a02-55c44dc8165e"],
+ CellLabel->
+  "In[192]:=",ExpressionUUID->"772fb280-3637-4d67-9a02-55c44dc8165e"],
 
 Cell["\<\
 X. Jimenez, S. Bhagwat. Notebook used to generate the results of arxiv: \
@@ -52,56 +53,17 @@ Cell["Setup", "Section",
 Cell[CellGroupData[{
 
 Cell["Load package", "Subsection",
- CellChangeTimes->{{3.799119833730782*^9, 
-  3.7991198361011353`*^9}},ExpressionUUID->"f166d715-d1de-48fb-acd4-\
+ CellChangeTimes->{{3.799119833730782*^9, 3.7991198361011353`*^9}, 
+   3.801296235566038*^9},ExpressionUUID->"f166d715-d1de-48fb-acd4-\
 374a78be5341"],
 
-Cell[CellGroupData[{
-
 Cell[BoxData[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
  RowBox[{"<<", "RDown.m"}]}], "Code",
  CellChangeTimes->{{3.799119881021441*^9, 3.799119911381034*^9}},
- CellLabel->"In[73]:=",ExpressionUUID->"56877143-cdc7-4e73-bf67-00d7581be25e"],
-
-Cell[BoxData[
- TemplateBox[{
-  "CombineColumns","shdw",
-   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"CombineColumns\\\\\\\"\\\"}]\\) \
-appears in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
-RowBox[{\\\"\\\\\\\"RDown`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"NRLists`\\\\\\\
-\"\\\"}], \\\"}\\\"}]\\); definitions in context \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"RDown`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,74,45,19648445566244506411,"Local",
-   "RDown`CombineColumns"},
-  "MessageTemplate2"]], "Message", "MSG",
- CellChangeTimes->{{3.7991208105964947`*^9, 3.799120891686386*^9}, 
-   3.799121677589548*^9, {3.799121959464547*^9, 3.799121962720314*^9}, 
-   3.799122083860065*^9, {3.799122271742035*^9, 3.799122299954978*^9}, 
-   3.799976752612835*^9, 3.799978668334955*^9, 3.799978907184451*^9, 
-   3.7999790081205597`*^9},
- CellLabel->
-  "During evaluation of \
-In[73]:=",ExpressionUUID->"86621785-af15-44ca-bf0a-9554feb42ec5"],
-
-Cell[BoxData[
- TemplateBox[{
-  "Options","argx",
-   "\"\\!\\(\\*RowBox[{\\\"Options\\\"}]\\) called with \
-\\!\\(\\*RowBox[{\\\"0\\\"}]\\) arguments; 1 argument is expected.\"",2,74,46,
-   19648445566244506411,"Local"},
-  "MessageTemplate"]], "Message", "MSG",
- CellChangeTimes->{{3.7991208105964947`*^9, 3.799120891686386*^9}, 
-   3.799121677589548*^9, {3.799121959464547*^9, 3.799121962720314*^9}, 
-   3.799122083860065*^9, {3.799122271742035*^9, 3.799122299954978*^9}, 
-   3.799976752612835*^9, 3.799978668334955*^9, 3.799978907184451*^9, 
-   3.799979008185686*^9},
- CellLabel->
-  "During evaluation of \
-In[73]:=",ExpressionUUID->"b7f16fb7-bd99-4b3d-a2a1-2c8891f449f5"]
-}, Open  ]]
+ CellLabel->"In[51]:=",ExpressionUUID->"56877143-cdc7-4e73-bf67-00d7581be25e"]
 }, Closed]],
 
 Cell[CellGroupData[{
@@ -129,8 +91,10 @@ Cell[BoxData[
    RowBox[{"(*", "export", "*)"}], "\n", 
    RowBox[{"ExportDir", "=", 
     RowBox[{
-     RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<plots/\>\""}]}], 
-   "\n", 
+     RowBox[{"FileNameDrop", "[", 
+      RowBox[{
+       RowBox[{"NotebookDirectory", "[", "]"}], ",", 
+       RowBox[{"-", "1"}]}], "]"}], "<>", "\"\</plots/\>\""}]}], "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"sxs", " ", "data", " ", "folders"}], " ", "*)"}], "\n", 
    RowBox[{
@@ -143,8 +107,9 @@ Cell[BoxData[
    3.785048568634179*^9}, 3.785052064855216*^9, 3.785052098677169*^9, {
    3.785052662782302*^9, 3.785052711482973*^9}, {3.799112511472287*^9, 
    3.799112532529355*^9}, 3.799119917854619*^9, {3.799976894307929*^9, 
-   3.799976902049959*^9}, {3.799976992637145*^9, 3.799976997347808*^9}},
- CellLabel->"In[3]:=",ExpressionUUID->"374646f4-59ac-4219-a522-031053a7cccf"],
+   3.799976902049959*^9}, {3.799976992637145*^9, 3.799976997347808*^9}, {
+   3.801295361053925*^9, 3.801295374307639*^9}},
+ CellLabel->"In[53]:=",ExpressionUUID->"374646f4-59ac-4219-a522-031053a7cccf"],
 
 Cell[BoxData["\<\"~/SVN/PhenomHM/bin/\"\>"], "Output",
  CellChangeTimes->{
@@ -156,10 +121,14 @@ Cell[BoxData["\<\"~/SVN/PhenomHM/bin/\"\>"], "Output",
    3.799112665247805*^9, 3.799113935415126*^9, 3.799119918271703*^9, 
    3.799120995960281*^9, 3.799121677934214*^9, 3.799121962967039*^9, 
    3.799122084051723*^9, {3.799122271970655*^9, 3.799122300180772*^9}, 
-   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9},
- CellLabel->"Out[3]=",ExpressionUUID->"82b25bbf-e1ea-47ff-b776-72bffc00bc84"],
+   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9, 
+   3.801295248405951*^9, {3.801295369834586*^9, 3.8012953749591923`*^9}, 
+   3.8012960526841707`*^9, 3.80129624375943*^9, 3.801298711766121*^9, {
+   3.801299172519367*^9, 3.80129919650644*^9}, 3.80147096935536*^9, 
+   3.801557998079576*^9},
+ CellLabel->"Out[53]=",ExpressionUUID->"1eacacc8-0164-4c78-9cb9-374e2b9076b9"],
 
-Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/\"\>"], "Output",
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/\"\>"], "Output",
  CellChangeTimes->{
   3.783842026701007*^9, 3.785048518304873*^9, {3.785048560068667*^9, 
    3.785048568978181*^9}, 3.785049253329767*^9, 3.785052065129835*^9, 
@@ -169,10 +138,14 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/\"\>"], "Output",
    3.799112665247805*^9, 3.799113935415126*^9, 3.799119918271703*^9, 
    3.799120995960281*^9, 3.799121677934214*^9, 3.799121962967039*^9, 
    3.799122084051723*^9, {3.799122271970655*^9, 3.799122300180772*^9}, 
-   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668577621*^9},
- CellLabel->"Out[4]=",ExpressionUUID->"b2aa8394-8bfc-4edf-8c7d-6d40933c309c"],
+   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9, 
+   3.801295248405951*^9, {3.801295369834586*^9, 3.8012953749591923`*^9}, 
+   3.8012960526841707`*^9, 3.80129624375943*^9, 3.801298711766121*^9, {
+   3.801299172519367*^9, 3.80129919650644*^9}, 3.80147096935536*^9, 
+   3.8015579981298923`*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"72848d77-e528-49ff-8d92-fc482f47e276"],
 
-Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/l2\"\>"], "Output",
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/code/l2\"\>"], "Output",
  CellChangeTimes->{
   3.783842026701007*^9, 3.785048518304873*^9, {3.785048560068667*^9, 
    3.785048568978181*^9}, 3.785049253329767*^9, 3.785052065129835*^9, 
@@ -182,8 +155,12 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/l2\"\>"], "Output",
    3.799112665247805*^9, 3.799113935415126*^9, 3.799119918271703*^9, 
    3.799120995960281*^9, 3.799121677934214*^9, 3.799121962967039*^9, 
    3.799122084051723*^9, {3.799122271970655*^9, 3.799122300180772*^9}, 
-   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668641279*^9},
- CellLabel->"Out[5]=",ExpressionUUID->"19992387-55e4-4e6f-93a4-57ffb9548d12"],
+   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9, 
+   3.801295248405951*^9, {3.801295369834586*^9, 3.8012953749591923`*^9}, 
+   3.8012960526841707`*^9, 3.80129624375943*^9, 3.801298711766121*^9, {
+   3.801299172519367*^9, 3.80129919650644*^9}, 3.80147096935536*^9, 
+   3.8015579981350193`*^9},
+ CellLabel->"Out[55]=",ExpressionUUID->"13ee182a-9b46-4ed2-a394-5eb1b6bf4b72"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/\"\>"], "Output",
  CellChangeTimes->{
@@ -195,8 +172,12 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/\"\>"], "Output",
    3.799112665247805*^9, 3.799113935415126*^9, 3.799119918271703*^9, 
    3.799120995960281*^9, 3.799121677934214*^9, 3.799121962967039*^9, 
    3.799122084051723*^9, {3.799122271970655*^9, 3.799122300180772*^9}, 
-   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668645627*^9},
- CellLabel->"Out[6]=",ExpressionUUID->"a4f63cdc-3cfc-4fda-95bd-71b20b9e467d"],
+   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9, 
+   3.801295248405951*^9, {3.801295369834586*^9, 3.8012953749591923`*^9}, 
+   3.8012960526841707`*^9, 3.80129624375943*^9, 3.801298711766121*^9, {
+   3.801299172519367*^9, 3.80129919650644*^9}, 3.80147096935536*^9, 
+   3.801557998139577*^9},
+ CellLabel->"Out[56]=",ExpressionUUID->"1155505d-5059-492c-b24a-2d19e18c87a1"],
 
 Cell[BoxData["False"], "Output",
  CellChangeTimes->{
@@ -208,8 +189,12 @@ Cell[BoxData["False"], "Output",
    3.799112665247805*^9, 3.799113935415126*^9, 3.799119918271703*^9, 
    3.799120995960281*^9, 3.799121677934214*^9, 3.799121962967039*^9, 
    3.799122084051723*^9, {3.799122271970655*^9, 3.799122300180772*^9}, 
-   3.799976752816381*^9, 3.799976997882406*^9, 3.7999786686463757`*^9},
- CellLabel->"Out[8]=",ExpressionUUID->"1604a5f1-7809-4da2-a4bc-05ec140bc295"]
+   3.799976752816381*^9, 3.799976997882406*^9, 3.799978668526065*^9, 
+   3.801295248405951*^9, {3.801295369834586*^9, 3.8012953749591923`*^9}, 
+   3.8012960526841707`*^9, 3.80129624375943*^9, 3.801298711766121*^9, {
+   3.801299172519367*^9, 3.80129919650644*^9}, 3.80147096935536*^9, 
+   3.801557998140231*^9},
+ CellLabel->"Out[58]=",ExpressionUUID->"c6fc8c77-5b58-4eea-8137-2d04e2d218a2"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -240,7 +225,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.770258655384822*^9, 3.770258658711926*^9}, {
   3.785048597172567*^9, 3.785048611784268*^9}, {3.7850518765860777`*^9, 
   3.785051879447013*^9}},
- CellLabel->"In[9]:=",ExpressionUUID->"a0324010-844b-4a8c-9339-aff634cca7ed"],
+ CellLabel->"In[59]:=",ExpressionUUID->"a0324010-844b-4a8c-9339-aff634cca7ed"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -257,8 +242,10 @@ Cell[BoxData[
    3.799113935678566*^9, 3.799119920100224*^9, 3.79912099675138*^9, 
    3.799121678020488*^9, 3.79912196315336*^9, 3.7991220841956873`*^9, {
    3.799122272245305*^9, 3.799122300399253*^9}, 3.7999767529044247`*^9, 
-   3.79997866871693*^9},
- CellLabel->"Out[9]=",ExpressionUUID->"6bedc708-6bbb-4c99-b9ff-89b28ac5b443"],
+   3.79997866871693*^9, 3.801295248522634*^9, 3.8012962446226*^9, 
+   3.801298712124818*^9, {3.801299172611487*^9, 3.801299196678117*^9}, 
+   3.80147096954965*^9, 3.801557998270694*^9},
+ CellLabel->"Out[59]=",ExpressionUUID->"e8c475cb-bfce-467c-abc5-0b43e0d22e1d"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -972,8 +959,10 @@ Cell[BoxData[
    3.799113935678566*^9, 3.799119920100224*^9, 3.79912099675138*^9, 
    3.799121678020488*^9, 3.79912196315336*^9, 3.7991220841956873`*^9, {
    3.799122272245305*^9, 3.799122300399253*^9}, 3.7999767529044247`*^9, 
-   3.799978668727622*^9},
- CellLabel->"Out[10]=",ExpressionUUID->"aeaa5baf-2d53-4faa-9a7a-1ee66abe1d06"]
+   3.79997866871693*^9, 3.801295248522634*^9, 3.8012962446226*^9, 
+   3.801298712124818*^9, {3.801299172611487*^9, 3.801299196678117*^9}, 
+   3.80147096954965*^9, 3.801557998277863*^9},
+ CellLabel->"Out[60]=",ExpressionUUID->"e5a240ff-7c75-42dd-91a8-f931ff107b5e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1000,8 +989,9 @@ Cell[BoxData[
   3.717136778183365*^9}, {3.717216436664942*^9, 3.717216448048617*^9}, {
   3.762057906843172*^9, 3.762057909124419*^9}, {3.779544702143293*^9, 
   3.779544704677383*^9}, {3.78505268757415*^9, 3.785052688586061*^9}, {
-  3.799113436921254*^9, 3.799113502782955*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"160a98f6-db7f-41d8-9082-7c465d32638e"],
+  3.799113436921254*^9, 3.799113502782955*^9}, {3.801296265571794*^9, 
+  3.801296269701213*^9}},
+ CellLabel->"In[64]:=",ExpressionUUID->"160a98f6-db7f-41d8-9082-7c465d32638e"],
 
 Cell[BoxData[
  TagBox[
@@ -1023,10 +1013,12 @@ Cell[BoxData[
 "},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d14_q6_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15.2_q4_sA_0_0_0_sB_0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/BBH_SKS_d15.4_q1_sA_0_0_0.960_sB_0_0_0.960\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15.5_q2.51_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15.6_q1.83_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15_q2.32_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d16.2_q3_sA_0_0_0_sB_0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/BBH_SKS_d17.8_q3_sA_0_0_-0.850_sB_0_0_-0.850\"\>"},
      {"\<\"/Users/xisco/SXS/d13.0_q8.0_s0_0_-0.5_s0\"\>"},
      {"\<\"/Users/xisco/SXS/d13_q2_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/d13_q6_sA_0_0_0_sB_0_0_0\"\>"},
@@ -1052,10 +1044,13 @@ Cell[BoxData[
    3.7991139357851152`*^9, 3.799119921135962*^9, 3.7991209973461437`*^9, 
    3.799121678193123*^9, 3.7991219633111563`*^9, 3.79912208429184*^9, {
    3.7991222723759747`*^9, 3.79912230068931*^9}, 3.799976753017556*^9, 
-   3.799978669259446*^9},
+   3.799978669259446*^9, 3.801295248626004*^9, 3.801296056690414*^9, {
+   3.801296246256852*^9, 3.80129627009591*^9}, 3.801298712168874*^9, {
+   3.8012991727905188`*^9, 3.801299196991188*^9}, 3.801470969651114*^9, 
+   3.801557998358008*^9},
  CellLabel->
-  "Out[14]//TableForm=",ExpressionUUID->"3323638b-b60e-4b31-964d-\
-ee00fd01520d"]
+  "Out[64]//TableForm=",ExpressionUUID->"621e8bd3-c259-4c2b-a2ed-\
+c701c2ca504f"]
 }, Open  ]]
 }, Closed]],
 
@@ -1072,7 +1067,7 @@ Cell[BoxData[
   "Import", " ", "all", " ", "the", " ", "modes", " ", "you", " ", "want", 
    " ", "to", " ", "use"}], " ", "*)"}]], "Input",
  CellChangeTimes->{{3.799115973296041*^9, 3.799116001980762*^9}},
- CellLabel->"In[15]:=",ExpressionUUID->"7af738e7-6341-43dc-9500-b0e22c131bd5"],
+ CellLabel->"In[65]:=",ExpressionUUID->"7af738e7-6341-43dc-9500-b0e22c131bd5"],
 
 Cell[CellGroupData[{
 
@@ -1087,7 +1082,7 @@ Cell[BoxData[
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}]}], "}"}]}]], "Input",
  CellChangeTimes->{{3.7999781740825043`*^9, 3.799978192470834*^9}},
- CellLabel->"In[16]:=",ExpressionUUID->"d9b9c755-a8f2-48fd-bbb6-6feae0d27e6c"],
+ CellLabel->"In[66]:=",ExpressionUUID->"d9b9c755-a8f2-48fd-bbb6-6feae0d27e6c"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1099,8 +1094,10 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{"3", ",", "3"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{{3.799978174937457*^9, 3.799978193712779*^9}, 
-   3.7999786693283367`*^9},
- CellLabel->"Out[16]=",ExpressionUUID->"3eb6bf31-8069-4ae3-a808-208e2c25ec06"]
+   3.7999786693283367`*^9, 3.801295248668006*^9, 3.801296227155506*^9, 
+   3.801296284742792*^9, 3.8012963359532423`*^9, 3.801299228933876*^9, 
+   3.801470969730394*^9, 3.80155799843119*^9},
+ CellLabel->"Out[66]=",ExpressionUUID->"e7864f86-b4ef-4561-b725-e99da15a995a"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1128,8 +1125,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.799116007730418*^9, 3.7991160596093693`*^9}, {
   3.799978198414418*^9, 3.799978215786942*^9}, {3.799987126220006*^9, 
   3.7999871315740137`*^9}},
- CellLabel->
-  "In[1016]:=",ExpressionUUID->"768daf9a-1cd6-49d3-a4c8-f7577bcb4bda"],
+ CellLabel->"In[67]:=",ExpressionUUID->"768daf9a-1cd6-49d3-a4c8-f7577bcb4bda"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1154,9 +1150,11 @@ Cell[BoxData[
   3.79911601067693*^9, 3.799116060371315*^9, 3.799119927757023*^9, 
    3.799121680059918*^9, 3.799121963388822*^9, 3.799122084363244*^9, {
    3.799122272462105*^9, 3.799122300781939*^9}, 3.799976753028037*^9, 
-   3.799978216152701*^9, 3.799978669336286*^9, 3.7999871323433247`*^9},
- CellLabel->
-  "Out[1016]=",ExpressionUUID->"9abd8b3a-d4b7-4218-88f4-636105079151"]
+   3.799978216152701*^9, 3.799978669336286*^9, 3.7999871323433247`*^9, 
+   3.801295248676166*^9, 3.801296227736394*^9, 3.8012962852361813`*^9, 
+   3.801296336586006*^9, 3.8012992289427156`*^9, 3.801470969736594*^9, 
+   3.801557998436903*^9},
+ CellLabel->"Out[67]=",ExpressionUUID->"1e1fbe87-2149-41e4-a47c-a2f545ee1ebb"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1164,7 +1162,7 @@ Cell[BoxData[
   RowBox[{"Files", " ", "for", " ", "the", " ", "modes"}], " ", 
   "*)"}]], "Input",
  CellChangeTimes->{{3.7991172206058073`*^9, 3.799117232783996*^9}},
- CellLabel->"In[18]:=",ExpressionUUID->"16813d52-4a08-4c3b-b4d9-cf6a7c404040"],
+ CellLabel->"In[68]:=",ExpressionUUID->"16813d52-4a08-4c3b-b4d9-cf6a7c404040"],
 
 Cell[CellGroupData[{
 
@@ -1172,7 +1170,10 @@ Cell[BoxData[
  RowBox[{"Modefiles", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
-    RowBox[{"notdir", "<>", "\"\<l\>\"", "<>", 
+    RowBox[{
+     RowBox[{"FileNameDrop", "[", 
+      RowBox[{"notdir", ",", 
+       RowBox[{"-", "1"}]}], "]"}], "<>", "\"\</l\>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{"modesn", "[", 
        RowBox[{"[", 
@@ -1199,9 +1200,8 @@ Cell[BoxData[
   3.799116221329751*^9, 3.799116223632145*^9}, {3.7991162786627827`*^9, 
   3.799116285885654*^9}, {3.7991163534374104`*^9, 3.79911639784995*^9}, {
   3.799116694401691*^9, 3.7991167077116737`*^9}, {3.7999865078806133`*^9, 
-  3.799986510112637*^9}},
- CellLabel->
-  "In[1018]:=",ExpressionUUID->"79b3f4ac-23b5-4bd9-a14e-6a44185c101d"],
+  3.799986510112637*^9}, {3.801295607041156*^9, 3.8012956185082407`*^9}},
+ CellLabel->"In[69]:=",ExpressionUUID->"79b3f4ac-23b5-4bd9-a14e-6a44185c101d"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -1221,16 +1221,17 @@ Cell[BoxData[
    3.7991219634626427`*^9, 3.799122084375304*^9, {3.799122272555999*^9, 
    3.799122300874164*^9}, 3.799976753071356*^9, 3.7999782204541492`*^9, 
    3.799978669645399*^9, 3.799986404947899*^9, 3.79998713502036*^9, 
-   3.79998719465306*^9},
- CellLabel->
-  "Out[1018]=",ExpressionUUID->"78bb5154-5944-4294-ae86-bcd4caf38f16"]
+   3.79998719465306*^9, 3.801295248719768*^9, 3.8012956190847054`*^9, {
+   3.801296330585915*^9, 3.801296338018264*^9}, 3.801299229036121*^9, 
+   3.801470969818027*^9, 3.801557998515155*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"2974cf20-fd07-44a8-b373-5aec7dcbb2fc"]
 }, Open  ]],
 
 Cell[BoxData[
  RowBox[{"(*", " ", 
   RowBox[{"Import", " ", "modes", " ", "data"}], " ", "*)"}]], "Input",
  CellChangeTimes->{{3.7991172206058073`*^9, 3.799117246337256*^9}},
- CellLabel->"In[20]:=",ExpressionUUID->"4bff1002-cc80-497d-a78f-63685f2d3e92"],
+ CellLabel->"In[70]:=",ExpressionUUID->"4bff1002-cc80-497d-a78f-63685f2d3e92"],
 
 Cell[BoxData[
  RowBox[{
@@ -1241,21 +1242,32 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.799117127671782*^9, 3.799117133283991*^9}, {
   3.7999865353285923`*^9, 3.799986541049069*^9}},
- CellLabel->
-  "In[1019]:=",ExpressionUUID->"b0e62724-0116-4f6c-98de-0904f8d188c7"]
-}, Closed]]
-}, Open  ]],
+ CellLabel->"In[71]:=",ExpressionUUID->"b0e62724-0116-4f6c-98de-0904f8d188c7"]
+}, Closed]],
 
 Cell[CellGroupData[{
 
-Cell["Load data", "Section",
+Cell["Load data", "Subsection",
  CellChangeTimes->{{3.780657083924159*^9, 
-  3.7806570852359457`*^9}},ExpressionUUID->"979c8ab4-52f4-488b-95f4-\
-e9c43f4624ef"],
+  3.7806570852359457`*^9}},ExpressionUUID->"34a01b22-3729-4042-ad55-\
+878d16b23e89"],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[{
+ RowBox[{
+  RowBox[{"(", 
+   RowBox[{"mysxscase", "=", 
+    RowBox[{"SXSParClassification", "[", 
+     RowBox[{"sxsdirs", ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", "\"\<Non-Precessing\>\"", "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"\"\<\[Chi]1\>\"", ",", "\"\<#<0.01\>\""}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"\"\<\[Chi]2\>\"", ",", "\"\<#<0.01\>\""}], "}"}]}], "}"}]}],
+      "]"}]}], ")"}], ";"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
@@ -1266,9 +1278,9 @@ Cell[BoxData[{
         RowBox[{
          RowBox[{"{", "\"\<Non-Precessing\>\"", "}"}], ",", 
          RowBox[{"{", 
-          RowBox[{"\"\<\[Chi]1\>\"", ",", "\"\<#<0.01\>\""}], "}"}], ",", 
+          RowBox[{"\"\<\[Chi]1\>\"", ",", "\"\<#<0.99\>\""}], "}"}], ",", 
          RowBox[{"{", 
-          RowBox[{"\"\<\[Chi]2\>\"", ",", "\"\<#<0.01\>\""}], "}"}]}], 
+          RowBox[{"\"\<\[Chi]2\>\"", ",", "\"\<#<0.99\>\""}], "}"}]}], 
         "}"}]}], "]"}]}], ")"}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
@@ -1301,8 +1313,9 @@ Cell[BoxData[{
    3.7873973751515093`*^9}, {3.7873974068853683`*^9, 3.787397421761013*^9}, {
    3.7874666348812733`*^9, 3.7874666372894707`*^9}, {3.7874906596488*^9, 
    3.787490659860198*^9}, {3.7970704676888657`*^9, 3.7970704679516287`*^9}, {
-   3.799978185881291*^9, 3.799978189214223*^9}},
- CellLabel->"In[22]:=",ExpressionUUID->"b9a8334d-da4b-48b6-87d7-d26171f572c6"],
+   3.799978185881291*^9, 3.799978189214223*^9}, {3.8012960735513363`*^9, 
+   3.801296082099853*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"f5f14523-f7df-4577-9dc9-fdb8a828c10b"],
 
 Cell[CellGroupData[{
 
@@ -1311,58 +1324,140 @@ Cell[BoxData["\<\"Classification Input Variables. Examples: {{'MassRatio', \
 '#>25'}},{{'Precessing'}},\\n{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]\
 eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}\"\>"]\
 , "Print",
- CellChangeTimes->{3.797070479282527*^9, 3.7971409522994633`*^9, 
-  3.797141251754541*^9, 3.797154178255505*^9, 3.797154950052059*^9, 
-  3.797161048386079*^9, 3.7972242083547*^9, 3.799976773750716*^9, 
-  3.799978189726534*^9, 3.7999786757322197`*^9},
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.801557999993836*^9},
+ CellLabel->
+  "During evaluation of \
+In[72]:=",ExpressionUUID->"457b64d8-90f9-4155-8b95-a8f19aeb968d"],
+
+Cell[BoxData["\<\"Take care! Some of the sxs file names are not consistent \
+with the metadata files\"\>"], "Print",
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.801558000000639*^9},
+ CellLabel->
+  "During evaluation of \
+In[72]:=",ExpressionUUID->"94c8d55b-541e-4dbb-866a-24cd73a1b1e0"],
+
+Cell[BoxData["\<\"The spin definition is consitent with 'initial-spin' values \
+and not relaxed ones\"\>"], "Print",
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.801558000012991*^9},
+ CellLabel->
+  "During evaluation of \
+In[72]:=",ExpressionUUID->"3ac00b74-dd18-475e-b867-4b4978ea222b"],
+
+Cell[BoxData["\<\"The mass definition is consitent with 'initial-mass' values \
+and not relaxed ones\"\>"], "Print",
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.801558000015061*^9},
+ CellLabel->
+  "During evaluation of \
+In[72]:=",ExpressionUUID->"15e9dec7-3c67-4c2c-b096-f1a0639c29ae"],
+
+Cell[BoxData["\<\"Classification Input Variables. Examples: {{'MassRatio', \
+'0.99<#<1.1'}},{{'Distance', '#>16'}},{{'Orbits', \
+'#>25'}},{{'Precessing'}},\\n{{'Non-Precessing'}},{{'High-Spin'}},{{'\[Chi]\
+eff','#>0.6'}},{{'\[Chi]1','#>0.6'}},{{'\[Chi]2','#>0.6'}},{{'Unequal'}}\"\>"]\
+, "Print",
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.8015580002936983`*^9},
  CellLabel->
   "During evaluation of \
-In[22]:=",ExpressionUUID->"9b920fcb-2c50-4441-a20c-c882319d7e46"],
+In[72]:=",ExpressionUUID->"fdf8d52c-774e-4a5f-b72a-83df8e14c3de"],
 
 Cell[BoxData["\<\"Take care! Some of the sxs file names are not consistent \
 with the metadata files\"\>"], "Print",
- CellChangeTimes->{3.797070479282527*^9, 3.7971409522994633`*^9, 
-  3.797141251754541*^9, 3.797154178255505*^9, 3.797154950052059*^9, 
-  3.797161048386079*^9, 3.7972242083547*^9, 3.799976773750716*^9, 
-  3.799978189726534*^9, 3.7999786757349367`*^9},
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.801558000295499*^9},
  CellLabel->
   "During evaluation of \
-In[22]:=",ExpressionUUID->"de6944d0-5cfe-42bf-8936-bdd49d9194f0"],
+In[72]:=",ExpressionUUID->"14e0620f-15c3-4080-bab3-12f35d6f126a"],
 
 Cell[BoxData["\<\"The spin definition is consitent with 'initial-spin' values \
 and not relaxed ones\"\>"], "Print",
- CellChangeTimes->{3.797070479282527*^9, 3.7971409522994633`*^9, 
-  3.797141251754541*^9, 3.797154178255505*^9, 3.797154950052059*^9, 
-  3.797161048386079*^9, 3.7972242083547*^9, 3.799976773750716*^9, 
-  3.799978189726534*^9, 3.799978675739637*^9},
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.80155800029705*^9},
  CellLabel->
   "During evaluation of \
-In[22]:=",ExpressionUUID->"2f1ce847-e339-4877-a348-21882f709daf"],
+In[72]:=",ExpressionUUID->"80307c23-cc09-4bc8-a584-f9e32da1a779"],
 
 Cell[BoxData["\<\"The mass definition is consitent with 'initial-mass' values \
 and not relaxed ones\"\>"], "Print",
- CellChangeTimes->{3.797070479282527*^9, 3.7971409522994633`*^9, 
-  3.797141251754541*^9, 3.797154178255505*^9, 3.797154950052059*^9, 
-  3.797161048386079*^9, 3.7972242083547*^9, 3.799976773750716*^9, 
-  3.799978189726534*^9, 3.799978675741675*^9},
+ CellChangeTimes->{
+  3.797070479282527*^9, 3.7971409522994633`*^9, 3.797141251754541*^9, 
+   3.797154178255505*^9, 3.797154950052059*^9, 3.797161048386079*^9, 
+   3.7972242083547*^9, 3.799976773750716*^9, 3.799978189726534*^9, 
+   3.7999786757322197`*^9, 3.8012952525480757`*^9, 3.801296082633127*^9, {
+   3.8012986920260963`*^9, 3.801298726990603*^9}, {3.801299172804584*^9, 
+   3.801299200679327*^9}, 3.80129923748007*^9, 3.80147097228786*^9, 
+   3.8015580002984962`*^9},
  CellLabel->
   "During evaluation of \
-In[22]:=",ExpressionUUID->"2fecaf32-ce44-44df-9c7b-56422a6dba71"]
+In[72]:=",ExpressionUUID->"b859d15a-4916-424c-bec9-1a93b8298b98"]
 }, Open  ]],
 
 Cell[BoxData[
  TagBox[
   TagBox[GridBox[{
+     {"\<\"/Users/xisco/SXS/BBH_SKS_d15.4_q1_sA_0_0_0.960_sB_0_0_0.960\"\>"},
      {"\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0E1\"\>"},
      {"\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0F1\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d12.7_q1.25_sA_0_0_0_sB_0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.440\"\>\
+"},
+     {"\<\"/Users/xisco/SXS/0121\"\>"},
+     {"\<\"/Users/xisco/SXS/0202\"\>"},
      {"\<\"/Users/xisco/SXS/d18.0_q1.5_s0_0_0_s0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/0031\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15.6_q1.83_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/d13_q2_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15_q2.32_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d16.9_q2.50_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d15.5_q2.51_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_SKS_d16.2_q3_sA_0_0_0_sB_0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/BBH_SKS_d17.8_q3_sA_0_0_-0.850_sB_0_0_-0.850\"\>"},
      {"\<\"/Users/xisco/SXS/d14.0_q3.0_s0_0_0_s0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d15.9_q3.50_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d12.6_q4_sA_0_0_0_sB_0_0_0\"\>"},
@@ -1372,6 +1467,8 @@ Cell[BoxData[
      {"\<\"/Users/xisco/SXS/BBH_SKS_d14_q6_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/d13_q6_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d12.2_q7_sA_0_0_0_sB_0_0_0\"\>"},
+     {"\<\"/Users/xisco/SXS/019\"\>"},
+     {"\<\"/Users/xisco/SXS/d13.0_q8.0_s0_0_-0.5_s0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d12.5_q8.27_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d11.4_q9_sA_0_0_0_sB_0_0_0\"\>"},
      {"\<\"/Users/xisco/SXS/BBH_CFMS_d13_q10_sA_0_0_0_sB_0_0_0\"\>"}
@@ -1402,10 +1499,13 @@ Cell[BoxData[
    3.7969914405300426`*^9, {3.797070468537587*^9, 3.797070479507988*^9}, 
    3.7971409524918633`*^9, 3.797141251934031*^9, 3.797154178393955*^9, 
    3.797154950201194*^9, 3.797161048508236*^9, 3.797224208583591*^9, 
-   3.7999767740687943`*^9, 3.799978189846706*^9, 3.7999786759401217`*^9},
+   3.7999767740687943`*^9, 3.799978189846706*^9, 3.7999786759401217`*^9, 
+   3.801295252706757*^9, 3.8012960828836613`*^9, {3.8012986924385223`*^9, 
+   3.801298727400572*^9}, {3.80129917317314*^9, 3.801299200952301*^9}, 
+   3.801299237779866*^9, 3.801470972751738*^9, 3.801558000386343*^9},
  CellLabel->
-  "Out[23]//TableForm=",ExpressionUUID->"4b78bc20-ac63-4796-a336-\
-d925c09ab128"]
+  "Out[74]//TableForm=",ExpressionUUID->"f63f4bde-233f-406f-bbd3-\
+638e01cca151"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1425,8 +1525,7 @@ Cell[BoxData[{
         RowBox[{"-", "1"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
-        RowBox[{"Length", "@", "mysxscase"}]}], "}"}]}], "]"}]}], ";"}], 
-  "\[IndentingNewLine]", 
+        RowBox[{"Length", "@", "mysxscase"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"mysxscaserh", "=", 
     RowBox[{"Flatten", "[", 
@@ -1439,7 +1538,7 @@ Cell[BoxData[{
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "@", "mysxscase"}]}], "}"}]}], "]"}], "]"}]}], 
-   "*)"}]}], "\n", 
+   "*)"}]}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mysxscaserh", "=", 
    RowBox[{"Flatten", "[", 
@@ -1507,17 +1606,23 @@ Cell[BoxData[{
    3.787465938792197*^9, 3.78746594099861*^9}, {3.789880666921463*^9, 
    3.7898806672017393`*^9}, {3.789883716393527*^9, 3.789883716667725*^9}, 
    3.790507467476893*^9},
- CellLabel->"In[24]:=",ExpressionUUID->"87a21a2c-5348-43ca-ade2-29d6cf95f2c1"],
+ CellLabel->"In[75]:=",ExpressionUUID->"d08787dc-bfc9-44b3-a2ef-fd911bf2ac0d"],
 
 Cell[BoxData[
  RowBox[{"{", 
-  RowBox[{"\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0E1/Lev5/metadata.txt\"\
-\>", ",", \
-"\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0F1/Lev5/metadata.txt\"\>", 
-   ",", "\<\"/Users/xisco/SXS/BBH_SKS_d12.7_q1.25_sA_0_0_0_sB_0_0_0/Lev3/\
+  RowBox[{"\<\"/Users/xisco/SXS/BBH_SKS_d15.4_q1_sA_0_0_0.960_sB_0_0_0.960/\
+Lev4/metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0E1/Lev5/metadata.txt\"\>\
+", ",", "\<\"/Users/xisco/SXS/d18.0_q1.0_s0_0_0_s0_0_0F1/Lev5/metadata.txt\"\>\
+", ",", "\<\"/Users/xisco/SXS/BBH_SKS_d12.7_q1.25_sA_0_0_0_sB_0_0_0/Lev3/\
 metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.440/\
+Lev6/metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/0121/Lev3/metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/0202/Lev3/metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/d18.0_q1.5_s0_0_0_s0_0_0/Lev6/metadata.txt\"\>",
-    ",", "\<\"/Users/xisco/SXS/BBH_SKS_d15.6_q1.83_sA_0_0_0_sB_0_0_0/Lev3/\
+    ",", "\<\"/Users/xisco/SXS/0031/Lev3/metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/BBH_SKS_d15.6_q1.83_sA_0_0_0_sB_0_0_0/Lev3/\
 metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/d13_q2_sA_0_0_0_sB_0_0_0/metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/BBH_SKS_d15_q2.32_sA_0_0_0_sB_0_0_0/Lev3/\
@@ -1528,6 +1633,8 @@ metadata.txt\"\>",
 metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/BBH_SKS_d16.2_q3_sA_0_0_0_sB_0_0_0/Lev4/\
 metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/BBH_SKS_d17.8_q3_sA_0_0_-0.850_sB_0_0_-0.850/\
+Lev5/metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/d14.0_q3.0_s0_0_0_s0_0_0/Lev5/metadata.txt\"\>",
     ",", "\<\"/Users/xisco/SXS/BBH_CFMS_d15.9_q3.50_sA_0_0_0_sB_0_0_0/Lev4/\
 metadata.txt\"\>", 
@@ -1543,7 +1650,8 @@ txt\"\>",
 txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/d13_q6_sA_0_0_0_sB_0_0_0/Lev5/metadata.txt\"\>",
     ",", "\<\"/Users/xisco/SXS/BBH_CFMS_d12.2_q7_sA_0_0_0_sB_0_0_0/Lev5/\
-metadata.txt\"\>", 
+metadata.txt\"\>", ",", "\<\"/Users/xisco/SXS/019/Lev3/metadata.txt\"\>", 
+   ",", "\<\"/Users/xisco/SXS/d13.0_q8.0_s0_0_-0.5_s0/Lev5/metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/BBH_CFMS_d12.5_q8.27_sA_0_0_0_sB_0_0_0/Lev3/\
 metadata.txt\"\>", 
    ",", "\<\"/Users/xisco/SXS/BBH_CFMS_d11.4_q9_sA_0_0_0_sB_0_0_0/Lev5/\
@@ -1647,8 +1755,11 @@ metadata.txt\"\>"}], "}"}]], "Output",
    3.7969914481035843`*^9, 3.796991512489856*^9, {3.797070474701128*^9, 
    3.7970704806530333`*^9}, 3.797140952597869*^9, 3.7971412520198517`*^9, 
    3.79715417851779*^9, 3.797154950317872*^9, 3.797161048619568*^9, 
-   3.7972242086900187`*^9, 3.799976779267666*^9, 3.799978676206628*^9},
- CellLabel->"Out[27]=",ExpressionUUID->"5645a3d3-4ef8-4923-b21b-4b8585cf6521"]
+   3.7972242086900187`*^9, 3.799976779267666*^9, 3.799978676206628*^9, 
+   3.80129525286178*^9, 3.801296086286689*^9, 3.801298692561735*^9, 
+   3.801298727567083*^9, 3.801299173237701*^9, 3.801299207066935*^9, 
+   3.801299237937134*^9, 3.801470972843833*^9, 3.801558000487352*^9},
+ CellLabel->"Out[78]=",ExpressionUUID->"968d5f4b-432d-49a4-9e49-1874567390ad"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1869,7 +1980,7 @@ Cell[BoxData[{
    3.7873969646786013`*^9, 3.787397168296365*^9}, {3.787571512703883*^9, 
    3.787571635095044*^9}, 3.787571691573453*^9, 3.787571734251598*^9, {
    3.7875720153259563`*^9, 3.787572015658452*^9}, 3.789880854868368*^9},
- CellLabel->"In[28]:=",ExpressionUUID->"a8e448eb-0992-4445-93e8-e9e4a1c952df"],
+ CellLabel->"In[79]:=",ExpressionUUID->"971d56e2-1989-4b9f-81c2-1ed99f8d84fd"],
 
 Cell[CellGroupData[{
 
@@ -1976,10 +2087,13 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676355092*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000687973*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"cf48e438-600a-496a-a71e-1af31c7efdf8"],
+In[79]:=",ExpressionUUID->"85aa1955-9d09-4f93-a46e-1a741f655287"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2084,32 +2198,41 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.7999786763574753`*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000693*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"5be4f74c-346c-4531-b860-0498e35b2d30"],
+In[79]:=",ExpressionUUID->"053ebf3d-7077-4a72-b97f-f849f3634096"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"tag = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{"\<\"SXS:0066\"\>", ",", "\<\"SXS:0070\"\>", 
-     ",", "\<\"SXS:1143\"\>", ",", "\<\"SXS:0007\"\>", 
-     ",", "\<\"SXS:1354\"\>", ",", "\<\"SXS:0169\"\>", 
-     ",", "\<\"SXS:0201\"\>", ",", "\<\"SXS:0259\"\>", 
-     ",", "\<\"SXS:0191\"\>", ",", "\<\"SXS:0030\"\>", 
-     ",", "\<\"SXS:1221\"\>", ",", "\<\"SXS:0294\"\>", 
+     ",", "\<\"S^{++}_{0.96}\"\>", ",", "\<\"SXS:0305\"\>", 
+     ",", "\<\"SXS:1143\"\>", ",", "\<\"SXS:0438\"\>", 
+     ",", "\<\"SXS:0507\"\>", ",", "\<\"SXS:0007\"\>", 
+     ",", "\<\"SXS:0355\"\>", ",", "\<\"SXS:1354\"\>", 
+     ",", "\<\"SXS:0169\"\>", ",", "\<\"SXS:0201\"\>", 
+     ",", "\<\"SXS:0259\"\>", ",", "\<\"SXS:0191\"\>", 
+     ",", "\<\"SXS:0030\"\>", ",", "\<\"SXS:1221\"\>", 
+     ",", "\<\"SXS:0260\"\>", ",", "\<\"SXS:0294\"\>", 
      ",", "\<\"SXS:1220\"\>", ",", "\<\"SXS:0182\"\>", 
      ",", "\<\"SXS:0107\"\>", ",", "\<\"SXS:0296\"\>", 
      ",", "\<\"SXS:0181\"\>", ",", "\<\"SXS:0166\"\>", 
-     ",", "\<\"SXS:0298\"\>", ",", "\<\"SXS:0186\"\>", 
+     ",", "\<\"SXS:0298\"\>", ",", "\<\"SXS:1431\"\>", 
+     ",", "\<\"SXS:0064\"\>", ",", "\<\"SXS:0186\"\>", 
      ",", "\<\"SXS:0301\"\>", ",", "\<\"SXS:1107\"\>"}], "}"}]}],
   SequenceForm[
   "tag = ", {
-   "SXS:0066", "SXS:0070", "SXS:1143", "SXS:0007", "SXS:1354", "SXS:0169", 
-    "SXS:0201", "SXS:0259", "SXS:0191", "SXS:0030", "SXS:1221", "SXS:0294", 
-    "SXS:1220", "SXS:0182", "SXS:0107", "SXS:0296", "SXS:0181", "SXS:0166", 
-    "SXS:0298", "SXS:0186", "SXS:0301", "SXS:1107"}],
+   "SXS:0066", "SXS:0070", "S^{++}_{0.96}", "SXS:0305", "SXS:1143", 
+    "SXS:0438", "SXS:0507", "SXS:0007", "SXS:0355", "SXS:1354", "SXS:0169", 
+    "SXS:0201", "SXS:0259", "SXS:0191", "SXS:0030", "SXS:1221", "SXS:0260", 
+    "SXS:0294", "SXS:1220", "SXS:0182", "SXS:0107", "SXS:0296", "SXS:0181", 
+    "SXS:0166", "SXS:0298", "SXS:1431", "SXS:0064", "SXS:0186", "SXS:0301", 
+    "SXS:1107"}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2209,10 +2332,13 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676361302*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000701117*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"a6830f1f-6c8f-4046-9c91-738e0d8d0e6f"],
+In[79]:=",ExpressionUUID->"c0355e0e-59bf-4944-9d17-92af114d0db0"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2220,24 +2346,31 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{
     "0.500000000004412`", ",", "0.500000000164508`", ",", 
-     "0.5555555555476202`", ",", "0.600000000214254`", ",", 
-     "0.6468926545363638`", ",", "0.666666666897367`", ",", 
-     "0.698454581347664`", ",", "0.714285714244312`", ",", 
-     "0.714896646704969`", ",", "0.750000000023138`", ",", 
-     "0.7499999992739607`", ",", "0.777777777791007`", ",", 
+     "0.500000049923262`", ",", "0.5497953688701543`", ",", 
+     "0.5555555555476202`", ",", "0.555555557686797`", ",", 
+     "0.555555566051901`", ",", "0.600000000214254`", ",", 
+     "0.636363637129383`", ",", "0.6468926545363638`", ",", 
+     "0.666666666897367`", ",", "0.698454581347664`", ",", 
+     "0.714285714244312`", ",", "0.714896646704969`", ",", 
+     "0.750000000023138`", ",", "0.7499999992739607`", ",", 
+     "0.75000015547206`", ",", "0.777777777791007`", ",", 
      "0.8000000267267954`", ",", "0.8000000000017162`", ",", 
      "0.833333333375753`", ",", "0.846153846083027`", ",", 
      "0.857143751483519`", ",", "0.857142895354907`", ",", 
-     "0.875000000000183`", ",", "0.892096034529347`", ",", 
+     "0.875000000000183`", ",", "0.888888891531265`", ",", 
+     "0.88888888888246`", ",", "0.892096034529347`", ",", 
      "0.900000000030348`", ",", "0.909090909039048`"}], "}"}]}],
   SequenceForm[
-  "mass1 = ", {0.500000000004412, 0.500000000164508, 0.5555555555476202, 
-   0.600000000214254, 0.6468926545363638, 0.666666666897367, 
-   0.698454581347664, 0.714285714244312, 0.714896646704969, 0.750000000023138,
-    0.7499999992739607, 0.777777777791007, 0.8000000267267954, 
-   0.8000000000017162, 0.833333333375753, 0.846153846083027, 
-   0.857143751483519, 0.857142895354907, 0.875000000000183, 0.892096034529347,
-    0.900000000030348, 0.909090909039048}],
+  "mass1 = ", {0.500000000004412, 0.500000000164508, 0.500000049923262, 
+   0.5497953688701543, 0.5555555555476202, 0.555555557686797, 
+   0.555555566051901, 0.600000000214254, 0.636363637129383, 
+   0.6468926545363638, 0.666666666897367, 0.698454581347664, 
+   0.714285714244312, 0.714896646704969, 0.750000000023138, 
+   0.7499999992739607, 0.75000015547206, 0.777777777791007, 
+   0.8000000267267954, 0.8000000000017162, 0.833333333375753, 
+   0.846153846083027, 0.857143751483519, 0.857142895354907, 0.875000000000183,
+    0.888888891531265, 0.88888888888246, 0.892096034529347, 0.900000000030348,
+    0.909090909039048}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2337,10 +2470,13 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676363536*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.80155800070395*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"ae74ba09-676f-4416-8f9a-34bed6219674"],
+In[79]:=",ExpressionUUID->"8d6ca9fc-d92d-4e02-aea4-d8aa3a348fca"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2348,24 +2484,30 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{
     "0.499999999993418`", ",", "0.499999999835768`", ",", 
-     "0.444444444453612`", ",", "0.399999999780508`", ",", 
-     "0.3531073453541785`", ",", "0.333333332087215`", ",", 
-     "0.30154541814978`", ",", "0.285714285761299`", ",", 
-     "0.285103354260276`", ",", "0.249999999975772`", ",", 
-     "0.2499999978324408`", ",", "0.222222222209113`", ",", 
+     "0.500000049169556`", ",", "0.450204644189637`", ",", 
+     "0.444444444453612`", ",", "0.444444438594809`", ",", 
+     "0.444444445149899`", ",", "0.399999999780508`", ",", 
+     "0.36363635671458`", ",", "0.3531073453541785`", ",", 
+     "0.333333332087215`", ",", "0.30154541814978`", ",", 
+     "0.285714285761299`", ",", "0.285103354260276`", ",", 
+     "0.249999999975772`", ",", "0.2499999978324408`", ",", 
+     "0.249999850664825`", ",", "0.222222222209113`", ",", 
      "0.2000000317856318`", ",", "0.2000000000030279`", ",", 
      "0.166666666620503`", ",", "0.153846153932113`", ",", 
      "0.14285811194958`", ",", "0.142857145997677`", ",", 
-     "0.124999999998389`", ",", "0.107903965471499`", ",", 
+     "0.124999999998389`", ",", "0.1111111121508638`", ",", 
+     "0.111111111129013`", ",", "0.107903965471499`", ",", 
      "0.0999999999703412`", ",", "0.0909090909840215`"}], "}"}]}],
   SequenceForm[
-  "mass2 = ", {0.499999999993418, 0.499999999835768, 0.444444444453612, 
-   0.399999999780508, 0.3531073453541785, 0.333333332087215, 0.30154541814978,
-    0.285714285761299, 0.285103354260276, 0.249999999975772, 
-   0.2499999978324408, 0.222222222209113, 0.2000000317856318, 
-   0.2000000000030279, 0.166666666620503, 0.153846153932113, 0.14285811194958,
-    0.142857145997677, 0.124999999998389, 0.107903965471499, 
-   0.0999999999703412, 0.0909090909840215}],
+  "mass2 = ", {0.499999999993418, 0.499999999835768, 0.500000049169556, 
+   0.450204644189637, 0.444444444453612, 0.444444438594809, 0.444444445149899,
+    0.399999999780508, 0.36363635671458, 0.3531073453541785, 
+   0.333333332087215, 0.30154541814978, 0.285714285761299, 0.285103354260276, 
+   0.249999999975772, 0.2499999978324408, 0.249999850664825, 
+   0.222222222209113, 0.2000000317856318, 0.2000000000030279, 
+   0.166666666620503, 0.153846153932113, 0.14285811194958, 0.142857145997677, 
+   0.124999999998389, 0.1111111121508638, 0.111111111129013, 
+   0.107903965471499, 0.0999999999703412, 0.0909090909840215}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2465,34 +2607,48 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.7999786763653*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000706031*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"b5fc516a-7491-49ea-967b-4819e58fe8ef"],
+In[79]:=",ExpressionUUID->"e78832fe-61e9-4e3f-919e-178ca3ecb5f1"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"\[Chi]1 = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
-    RowBox[{"1.1449562`*^-9", ",", "6.41852480002`*^-9", ",", 
-     RowBox[{"-", "8.57367805999`*^-8"}], ",", "1.2570276`*^-9", ",", 
+    RowBox[{
+    "1.1449562`*^-9", ",", "6.41852480002`*^-9", ",", "0.960000036115`", ",", 
+     "0.330000004123`", ",", 
+     RowBox[{"-", "8.57367805999`*^-8"}], ",", 
+     RowBox[{"-", "0.600480131699`"}], ",", "0.800000009552`", ",", 
+     "1.2570276`*^-9", ",", 
+     RowBox[{"-", "0.600480125576`"}], ",", 
      RowBox[{"-", "1.58199`*^-9"}], ",", "3.13694116327`*^-8", ",", 
      RowBox[{"-", "1.109800696`*^-7"}], ",", "9.83932629999`*^-9", ",", 
      RowBox[{"-", "8.90154823`*^-8"}], ",", "1.1691109`*^-9", ",", 
-     RowBox[{"-", "3.15913924999`*^-8"}], ",", "3.5372158`*^-9", ",", 
+     RowBox[{"-", "3.15913924999`*^-8"}], ",", 
+     RowBox[{"-", "0.850000138352`"}], ",", "3.5372158`*^-9", ",", 
      RowBox[{"-", "1.7058991`*^-9"}], ",", "1.54966285`*^-8", ",", "0", ",", 
      "6.15020100001`*^-10", ",", 
      RowBox[{"-", "2.75915882`*^-8"}], ",", "9.18943070825`*^-9", ",", "0", 
-     ",", "1.20129253`*^-8", ",", "2.21488837`*^-8", ",", 
+     ",", "0.0778309414207668`", ",", 
+     RowBox[{"-", "0.499999999974`"}], ",", "1.20129253`*^-8", ",", 
+     "2.21488837`*^-8", ",", 
      RowBox[{"-", "3.60361257`*^-8"}]}], "}"}]}],
   SequenceForm[
   "\[Chi]1 = ", {
-   1.1449562*^-9, 6.41852480002*^-9, -8.57367805999*^-8, 
-    1.2570276*^-9, -1.58199*^-9, 3.13694116327*^-8, -1.109800696*^-7, 
-    9.83932629999*^-9, -8.90154823*^-8, 1.1691109*^-9, -3.15913924999*^-8, 
+   1.1449562*^-9, 6.41852480002*^-9, 0.960000036115, 
+    0.330000004123, -8.57367805999*^-8, -0.600480131699, 0.800000009552, 
+    1.2570276*^-9, -0.600480125576, -1.58199*^-9, 
+    3.13694116327*^-8, -1.109800696*^-7, 9.83932629999*^-9, -8.90154823*^-8, 
+    1.1691109*^-9, -3.15913924999*^-8, -0.850000138352, 
     3.5372158*^-9, -1.7058991*^-9, 1.54966285*^-8, 0, 
-    6.15020100001*^-10, -2.75915882*^-8, 9.18943070825*^-9, 0, 1.20129253*^-8,
-     2.21488837*^-8, -3.60361257*^-8}],
+    6.15020100001*^-10, -2.75915882*^-8, 9.18943070825*^-9, 0, 
+    0.0778309414207668, -0.499999999974, 1.20129253*^-8, 
+    2.21488837*^-8, -3.60361257*^-8}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2592,34 +2748,47 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.7999786763670597`*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000708147*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"ee5f05cc-8d1a-458f-819c-9dbe5b7f78ad"],
+In[79]:=",ExpressionUUID->"7f734f68-fd7e-4fba-a5ee-621a12b922dd"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"\[Chi]2 = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "1.866398`*^-10", ",", 
-     RowBox[{"-", "9.04576959998`*^-9"}], ",", "0", ",", 
+    RowBox[{"0", ",", "1.866398`*^-10", ",", "0.960000035533`", ",", 
+     RowBox[{"-", "0.440000004931`"}], ",", 
+     RowBox[{"-", "9.04576959998`*^-9"}], ",", 
+     RowBox[{"-", "0.799999967953`"}], ",", "0.399999984311`", ",", "0", ",", 
+     "0.79999996498`", ",", 
      RowBox[{"-", "2.78424188`*^-8"}], ",", "6.97373888336`*^-10", ",", 
      RowBox[{"-", "1.06937269`*^-7"}], ",", "9.004248`*^-10", ",", 
      RowBox[{"-", "4.352994866`*^-7"}], ",", "4.363743`*^-10", ",", 
-     RowBox[{"-", "3.021402121`*^-7"}], ",", "8.810426`*^-10", ",", 
+     RowBox[{"-", "3.021402121`*^-7"}], ",", 
+     RowBox[{"-", "0.84999964996`"}], ",", "8.810426`*^-10", ",", 
      RowBox[{"-", "1.64615316`*^-8"}], ",", 
      RowBox[{"-", "1.36496993`*^-8"}], ",", "0", ",", "0", ",", 
      RowBox[{"-", "5.77306476998`*^-8"}], ",", "9.15205298629`*^-9", ",", "0",
       ",", 
+     RowBox[{"-", "0.7768153087461416`"}], ",", 
+     RowBox[{"-", "1.1645978`*^-9"}], ",", 
      RowBox[{"-", "1.545265`*^-10"}], ",", 
      RowBox[{"-", "1.921429`*^-10"}], ",", "0"}], "}"}]}],
   SequenceForm[
   "\[Chi]2 = ", {
-   0, 1.866398*^-10, -9.04576959998*^-9, 0, -2.78424188*^-8, 
+   0, 1.866398*^-10, 
+    0.960000035533, -0.440000004931, -9.04576959998*^-9, -0.799999967953, 
+    0.399999984311, 0, 0.79999996498, -2.78424188*^-8, 
     6.97373888336*^-10, -1.06937269*^-7, 9.004248*^-10, -4.352994866*^-7, 
-    4.363743*^-10, -3.021402121*^-7, 
+    4.363743*^-10, -3.021402121*^-7, -0.84999964996, 
     8.810426*^-10, -1.64615316*^-8, -1.36496993*^-8, 0, 0, -5.77306476998*^-8,
-     9.15205298629*^-9, 0, -1.545265*^-10, -1.921429*^-10, 0}],
+     9.15205298629*^-9, 
+    0, -0.7768153087461416, -1.1645978*^-9, -1.545265*^-10, -1.921429*^-10, 
+    0}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2719,10 +2888,13 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.79997867636909*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.80155800071111*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"5a2baddc-ae89-4ca0-b71a-00cbb892a138"],
+In[79]:=",ExpressionUUID->"1fa9a108-8c6a-4cad-8adf-dee394ac8940"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -2730,24 +2902,31 @@ Cell[BoxData[
    RowBox[{"{", 
     RowBox[{
     "1.0000000000219882`", ",", "1.00000000065748`", ",", 
-     "1.2499999999563618`", ",", "1.50000000135873`", ",", 
-     "1.8319999939041451`", ",", "2.000000008168811`", ",", 
-     "2.316250021748751`", ",", "2.499999999443726`", ",", 
-     "2.507499950534875`", ",", "3.0000000003832885`", ",", 
-     "3.0000000231065527`", ",", "3.5000000002660014`", ",", 
+     "1.0000000015074118`", ",", "1.2212121220112675`", ",", 
+     "1.2499999999563618`", ",", "1.2500000212473932`", ",", 
+     "1.2500000216326863`", ",", "1.50000000135873`", ",", 
+     "1.7500000354168879`", ",", "1.8319999939041451`", ",", 
+     "2.000000008168811`", ",", "2.316250021748751`", ",", 
+     "2.499999999443726`", ",", "2.507499950534875`", ",", 
+     "3.0000000003832885`", ",", "3.0000000231065527`", ",", 
+     "3.000002413911782`", ",", "3.5000000002660014`", ",", 
      "3.9999994979214204`", ",", "3.999999999948023`", ",", 
      "5.000000001639428`", ",", "5.499999996466635`", ",", 
      "5.9999655587359095`", ",", "6.000000135581913`", ",", 
-     "7.00000000009168`", ",", "8.267499999941885`", ",", 
+     "7.00000000009168`", ",", "7.999999948919191`", ",", 
+     "7.999999998653204`", ",", "8.267499999941885`", ",", 
      "9.000000002972772`", ",", "9.999999991187163`"}], "}"}]}],
   SequenceForm[
-  "m1/m2 = ", {1.0000000000219882`, 1.00000000065748, 1.2499999999563618`, 
-   1.50000000135873, 1.8319999939041451`, 2.000000008168811, 
-   2.316250021748751, 2.499999999443726, 2.507499950534875, 
-   3.0000000003832885`, 3.0000000231065527`, 3.5000000002660014`, 
+  "m1/m2 = ", {1.0000000000219882`, 1.00000000065748, 1.0000000015074118`, 
+   1.2212121220112675`, 1.2499999999563618`, 1.2500000212473932`, 
+   1.2500000216326863`, 1.50000000135873, 1.7500000354168879`, 
+   1.8319999939041451`, 2.000000008168811, 2.316250021748751, 
+   2.499999999443726, 2.507499950534875, 3.0000000003832885`, 
+   3.0000000231065527`, 3.000002413911782, 3.5000000002660014`, 
    3.9999994979214204`, 3.999999999948023, 5.000000001639428, 
    5.499999996466635, 5.9999655587359095`, 6.000000135581913, 
-   7.00000000009168, 8.267499999941885, 9.000000002972772, 9.999999991187163}],
+   7.00000000009168, 7.999999948919191, 7.999999998653204, 8.267499999941885, 
+   9.000000002972772, 9.999999991187163}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2847,36 +3026,45 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676370906*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000713492*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"0f26f80b-4cb0-4a10-8111-94f108ffe945"],
+In[79]:=",ExpressionUUID->"c8bc9b2c-0ad6-4cf1-895a-4ec6136a1b58"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"m1\[CenterDot]m2 = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
-    "0.25`", ",", "0.24999999999999994`", ",", "0.2469135802478713`", ",", 
-     "0.23999999995652066`", ",", "0.22842254802245826`", ",", 
-     "0.22222222191967364`", ",", "0.2106157790028033`", ",", 
-     "0.2040816326725227`", ",", "0.20381943153153878`", ",", 
-     "0.18749999998802228`", ",", "0.1874999992779202`", ",", 
+    "0.25`", ",", "0.24999999999999994`", ",", "0.24999999999999994`", ",", 
+     "0.24752042195416796`", ",", "0.2469135802478713`", ",", 
+     "0.24691357978057843`", ",", "0.2469135797721221`", ",", 
+     "0.23999999995652066`", ",", "0.23140495740044276`", ",", 
+     "0.22842254802245826`", ",", "0.22222222191967364`", ",", 
+     "0.2106157790028033`", ",", "0.2040816326725227`", ",", 
+     "0.20381943153153878`", ",", "0.18749999998802228`", ",", 
+     "0.1874999992779202`", ",", "0.1874999245652796`", ",", 
      "0.1728395061655418`", ",", "0.1600000120498867`", ",", 
      "0.16000000000124742`", ",", "0.1388888888585291`", ",", 
      "0.13017751485079707`", ",", "0.12244948165305622`", ",", 
      "0.12244897761542405`", ",", "0.1093749999989256`", ",", 
+     "0.09876543258925333`", ",", "0.0987654321116976`", ",", 
      "0.09626069970695296`", ",", "0.08999999997621783`", ",", 
      "0.08264462815876447`"}], "}"}]}],
   SequenceForm[
-  "m1\[CenterDot]m2 = ", {0.25, 0.24999999999999994`, 0.2469135802478713, 
-   0.23999999995652066`, 0.22842254802245826`, 0.22222222191967364`, 
-   0.2106157790028033, 0.2040816326725227, 0.20381943153153878`, 
-   0.18749999998802228`, 0.1874999992779202, 0.1728395061655418, 
+  "m1\[CenterDot]m2 = ", {0.25, 0.24999999999999994`, 0.24999999999999994`, 
+   0.24752042195416796`, 0.2469135802478713, 0.24691357978057843`, 
+   0.2469135797721221, 0.23999999995652066`, 0.23140495740044276`, 
+   0.22842254802245826`, 0.22222222191967364`, 0.2106157790028033, 
+   0.2040816326725227, 0.20381943153153878`, 0.18749999998802228`, 
+   0.1874999992779202, 0.1874999245652796, 0.1728395061655418, 
    0.1600000120498867, 0.16000000000124742`, 0.1388888888585291, 
    0.13017751485079707`, 0.12244948165305622`, 0.12244897761542405`, 
-   0.1093749999989256, 0.09626069970695296, 0.08999999997621783, 
-   0.08264462815876447}],
+   0.1093749999989256, 0.09876543258925333, 0.0987654321116976, 
+   0.09626069970695296, 0.08999999997621783, 0.08264462815876447}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
    3.717223971239379*^9, 3.7172239766293097`*^9}, {3.717233931322109*^9, 
@@ -2976,30 +3164,38 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.7999786763723392`*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.8015580007155123`*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"50c15be9-debb-49de-8f14-175f9ab156dd"],
+In[79]:=",ExpressionUUID->"6674db2c-dad8-4d78-8d20-80e0de422be4"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"af = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
-    "0.686460407304`", ",", "0.686459511967`", ",", "0.679536748203`", ",", 
-     "0.664090940995`", ",", "0.637700825887`", ",", "0.623439030411`", ",", 
-     "0.596285137586`", ",", "0.580731153894`", ",", "0.580102908705`", ",", 
-     "0.5406441997`", ",", "0.540568761136`", ",", "0.504184017448`", ",", 
+    "0.686460407304`", ",", "0.686459511967`", ",", "0.942909840271`", ",", 
+     "0.692085186818`", ",", "0.679536748203`", ",", "0.457052736003`", ",", 
+     "0.870258218463`", ",", "0.664090940995`", ",", "0.530894306569`", ",", 
+     "0.637700825887`", ",", "0.623439030411`", ",", "0.596285137586`", ",", 
+     "0.580731153894`", ",", "0.580102908705`", ",", "0.5406441997`", ",", 
+     "0.540568761136`", ",", "0.124471496071`", ",", "0.504184017448`", ",", 
      "0.471805136915`", ",", "0.471647259902`", ",", "0.416606189763`", ",", 
      "0.393370509765`", ",", "0.372483068145`", ",", "0.372452050361`", ",", 
-     "0.336515423989`", ",", "0.299744612911`", ",", "0.281861172745`", ",", 
-     "0.260519678626`"}], "}"}]}],
+     "0.336515423989`", ",", "0.357768505747`", ",", 
+     RowBox[{"-", "0.0525784183851`"}], ",", "0.299744612911`", ",", 
+     "0.281861172745`", ",", "0.260519678626`"}], "}"}]}],
   SequenceForm[
-  "af = ", {0.686460407304, 0.686459511967, 0.679536748203, 0.664090940995, 
-   0.637700825887, 0.623439030411, 0.596285137586, 0.580731153894, 
-   0.580102908705, 0.5406441997, 0.540568761136, 0.504184017448, 
-   0.471805136915, 0.471647259902, 0.416606189763, 0.393370509765, 
-   0.372483068145, 0.372452050361, 0.336515423989, 0.299744612911, 
+  "af = ", {0.686460407304, 0.686459511967, 0.942909840271, 0.692085186818, 
+   0.679536748203, 0.457052736003, 0.870258218463, 0.664090940995, 
+   0.530894306569, 0.637700825887, 0.623439030411, 0.596285137586, 
+   0.580731153894, 0.580102908705, 0.5406441997, 0.540568761136, 
+   0.124471496071, 0.504184017448, 0.471805136915, 0.471647259902, 
+   0.416606189763, 0.393370509765, 0.372483068145, 0.372452050361, 
+   0.336515423989, 0.357768505747, -0.0525784183851, 0.299744612911, 
    0.281861172745, 0.260519678626}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
@@ -3100,30 +3296,38 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.79997867637405*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.801558000717559*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"aa6b7b20-a5da-4320-a88f-62d432d6dec4"],
+In[79]:=",ExpressionUUID->"a8dc68ab-7e08-47e7-b68f-28c3f3063512"],
 
 Cell[BoxData[
  InterpretationBox[
   RowBox[{"\<\"mf = \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
-    "0.951609426767`", ",", "0.95160928413`", ",", "0.952754162896`", ",", 
-     "0.955269623847`", ",", "0.959151567733`", ",", "0.961246130167`", ",", 
-     "0.964781660062`", ",", "0.966732213783`", ",", "0.966761965476`", ",", 
-     "0.971212971306`", ",", "0.971074021845`", ",", "0.97493239554`", ",", 
+    "0.951609426767`", ",", "0.95160928413`", ",", "0.892254495153`", ",", 
+     "0.952032939704`", ",", "0.952754162896`", ",", "0.965835011413`", ",", 
+     "0.925391132212`", ",", "0.955269623847`", ",", "0.962722225257`", ",", 
+     "0.959151567733`", ",", "0.961246130167`", ",", "0.964781660062`", ",", 
+     "0.966732213783`", ",", "0.966761965476`", ",", "0.971212971306`", ",", 
+     "0.971074021845`", ",", "0.981005551027`", ",", "0.97493239554`", ",", 
      "0.977701375821`", ",", "0.977899284822`", ",", "0.982368658414`", ",", 
      "0.984048669933`", ",", "0.98545001476`", ",", "0.985471054121`", ",", 
-     "0.987714588983`", ",", "0.989751442771`", ",", "0.990736982246`", ",", 
-     "0.991747211983`"}], "}"}]}],
+     "0.987714588983`", ",", "0.989394152203`", ",", "0.992253518496`", ",", 
+     "0.989751442771`", ",", "0.990736982246`", ",", "0.991747211983`"}], 
+    "}"}]}],
   SequenceForm[
-  "mf = ", {0.951609426767, 0.95160928413, 0.952754162896, 0.955269623847, 
-   0.959151567733, 0.961246130167, 0.964781660062, 0.966732213783, 
-   0.966761965476, 0.971212971306, 0.971074021845, 0.97493239554, 
-   0.977701375821, 0.977899284822, 0.982368658414, 0.984048669933, 
-   0.98545001476, 0.985471054121, 0.987714588983, 0.989751442771, 
+  "mf = ", {0.951609426767, 0.95160928413, 0.892254495153, 0.952032939704, 
+   0.952754162896, 0.965835011413, 0.925391132212, 0.955269623847, 
+   0.962722225257, 0.959151567733, 0.961246130167, 0.964781660062, 
+   0.966732213783, 0.966761965476, 0.971212971306, 0.971074021845, 
+   0.981005551027, 0.97493239554, 0.977701375821, 0.977899284822, 
+   0.982368658414, 0.984048669933, 0.98545001476, 0.985471054121, 
+   0.987714588983, 0.989394152203, 0.992253518496, 0.989751442771, 
    0.990736982246, 0.991747211983}],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
@@ -3224,10 +3428,13 @@ Cell[BoxData[
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676375498*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.8015580007195873`*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"814b104d-494c-42fa-92aa-bfd2186ff832"],
+In[79]:=",ExpressionUUID->"a241e5a9-b2b2-4a90-9570-3c3ea8ecc240"],
 
 Cell[BoxData[
  InterpretationBox[
@@ -3242,14 +3449,33 @@ Cell[BoxData[
       RowBox[{"1.88811255511`*^-9", ",", 
        RowBox[{"-", "8.02529007847`*^-10"}], ",", "3.64569239711`*^-9"}], 
       "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "7.17695205227`*^-9", ",", "5.75277561771`*^-8", ",", 
+       "3.99466052194`*^-9"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "0.000297055913076`"}], ",", 
+       RowBox[{"-", "0.000334747685807`"}], ",", 
+       RowBox[{"-", "2.23049871826`*^-8"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.000171011901324`", ",", 
        RowBox[{"-", "0.00009283922726`"}], ",", "2.06306726948`*^-8"}], "}"}],
       ",", 
+     RowBox[{"{", 
+      RowBox[{"0.000155768066543`", ",", "0.000175958107249`", ",", 
+       RowBox[{"-", "1.21072619484`*^-8"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "0.000140032288487`"}], ",", "0.000086494807941`", ",", 
+       "2.36031649581`*^-8"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.000339655564852`", ",", 
        RowBox[{"-", "4.20178517784`*^-6"}], ",", "3.4004992699`*^-9"}], "}"}],
       ",", 
+     RowBox[{"{", 
+      RowBox[{"0.000255241517652`", ",", "0.00123613600769`", ",", 
+       RowBox[{"-", "2.60670330591`*^-9"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.000311167209907`"}], ",", "0.00037973628603`", ",", 
@@ -3279,6 +3505,10 @@ Cell[BoxData[
       RowBox[{"0.000531831664291`", ",", 
        RowBox[{"-", "0.000180548914376`"}], ",", 
        RowBox[{"-", "1.77897731348`*^-7"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "0.000899502213211`"}], ",", "0.000249049654936`", ",", 
+       RowBox[{"-", "3.87789319893`*^-9"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.000103772544731`", ",", 
        RowBox[{"-", "0.000559649923088`"}], ",", "1.05746910544`*^-9"}], 
@@ -3312,6 +3542,13 @@ Cell[BoxData[
       RowBox[{
        RowBox[{"-", "0.000236042499704`"}], ",", "0.0002172375041`", ",", 
        "4.55994219444`*^-9"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.000131410693056`", ",", "0.000260698377388`", ",", 
+       RowBox[{"-", "4.27476903921`*^-7"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.000340921435995`", ",", 
+       RowBox[{"-", "0.000148933599702`"}], ",", "1.58394417255`*^-10"}], 
+      "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.000179238073918`"}], ",", "0.000214885982978`", ",", 
@@ -3326,19 +3563,23 @@ Cell[BoxData[
       "0.00016226979757`", ",", "0.000171175961666`", ",", 
        "1.4020529285`*^-9"}], "}"}]}], "}"}]}],
   SequenceForm["kick = ", CompressedData["
-1:eJwBIQLe/SFib1JlAgAAABYAAAADAAAAsmGHCn5YIz5zdODqd78DvmX8GQIh
-BzA+qfH83wA4ID5t2purHpMLvurpeV32UC8+99X8CzVqJj8NYIvHVVYYv2Bc
-cYfqJlY+hVz+inlCNj8q2ETqoZ/Rvutc1efGNS0+ULF5/YRkNL86fPrt6uI4
-P491PBlrfnE+5195lQsAPr+AbMmivuErP+8V80gl8B8+ZrqtKXAe5L7wCzgm
-wqZBv8Sd8+qCx1Y+XoLSIN3uJ7/VHbYq/kRBP6Ki4mkh58o9NneRSzrtID/v
-rptAVP1CP6jGWwVEK1s+3IEn8tw0QD+4NUTsonwzP64ij3bidwU+OiZ0zVNt
-QT/XPHpdN6onv77wTf6E4Ie+dnRNvg40Gz9ZqPUOr1ZCvwOgB17MKhI+Nx7M
-kALHQT9UxgWILScyPzDa+VxqN8Y+D1zeXqL2Ib8tRyVChP5APwcHGfmyszC+
-9J7g0j1cPb8Q/qMExHjivqZBNkaW/8492470VvMIMr9pbLhvSgo1vz0csFs5
-xeQ9gLa1SuF2Lz8quMkHdyk3P+6sR/oJPiu+4pRjNGUR8z5INRieVKg5P9Vl
-mnjKSdc9HdElokXwLr8DdX7zR3ksP4S+e5+1lTM+unbTVDt+J7+iW9yJYCos
-P2i7aOi9qlc+8dXJZzluJr8YanYKd6gnv5Yqjn3Baz8+nLeH8t5EJT8WuX5Q
-tm8mP4ZW90JLFhg+p+L5NQ==
+1:eJwB4QIe/SFib1JlAgAAAB4AAAADAAAAsmGHCn5YIz5zdODqd78DvmX8GQIh
+BzA+qfH83wA4ID5t2purHpMLvurpeV32UC8+XYJpaSTTPj5Ht5D6jeJuPgWU
+NfosKDE+a9SGbsV3M7+oeOpcIvA1v9Iy2+8l81e+99X8CzVqJj8NYIvHVVYY
+v2BccYfqJlY+4ejMgLVqJD9B7dehLBAnP5m/MaMJAEq+gzzpMrRaIr9+JEt8
+kawWP7DnoxP9V1k+hVz+inlCNj8q2ETqoZ/Rvutc1efGNS0+b7CM+D26MD+/
+733uukBUP8RtMIEzZCa+ULF5/YRkNL86fPrt6uI4P491PBlrfnE+5195lQsA
+Pr+AbMmivuErP+8V80gl8B8+ZrqtKXAe5L7wCzgmwqZBv8Sd8+qCx1Y+XoLS
+IN3uJ7/VHbYq/kRBP6Ki4mkh58o9NneRSzrtID/vrptAVP1CP6jGWwVEK1s+
+3IEn8tw0QD+4NUTsonwzP64ij3bidwU+OiZ0zVNtQT/XPHpdN6onv77wTf6E
+4Ie++F9RS5J5Tb9T6H4fXFIwPy7X2eXJpzC+dnRNvg40Gz9ZqPUOr1ZCvwOg
+B17MKhI+Nx7MkALHQT9UxgWILScyPzDa+VxqN8Y+D1zeXqL2Ib8tRyVChP5A
+PwcHGfmyszC+9J7g0j1cPb8Q/qMExHjivqZBNkaW/8492470VvMIMr9pbLhv
+Sgo1vz0csFs5xeQ9gLa1SuF2Lz8quMkHdyk3P+6sR/oJPiu+4pRjNGUR8z5I
+NRieVKg5P9VlmnjKSdc9HdElokXwLr8DdX7zR3ksP4S+e5+1lTM+AvAOQmk5
+IT8Jy0cByxUxP6hRTU7/r5y+JNsIa7ZXNj/2G0fhYYUjv87VuRMCxeU9unbT
+VDt+J7+iW9yJYCosP2i7aOi9qlc+8dXJZzluJr8YanYKd6gnv5Yqjn3Baz8+
+nLeH8t5EJT8WuX5Qtm8mP4ZW90JLFhg+1HNUQw==
    "]],
   Editable->False]], "Print",
  CellChangeTimes->{{3.717223923734548*^9, 3.717223928214951*^9}, {
@@ -3439,10 +3680,13 @@ tm8mP4ZW90JLFhg+p+L5NQ==
    3.796991526356883*^9}, 3.7970704821797123`*^9, 3.7971409529126587`*^9, 
    3.797141252130628*^9, 3.797154178660823*^9, 3.797154950503016*^9, 
    3.797161048780514*^9, 3.79722420886919*^9, 3.799976795901505*^9, 
-   3.799978676377264*^9},
+   3.799978676355092*^9, 3.8012952529905252`*^9, 3.801296087149489*^9, 
+   3.801298692772191*^9, 3.80129872786628*^9, 3.8012991733707542`*^9, {
+   3.801299208371646*^9, 3.8012992380869303`*^9}, 3.801470973044386*^9, 
+   3.8015580007221317`*^9},
  CellLabel->
   "During evaluation of \
-In[28]:=",ExpressionUUID->"70555118-6129-408e-be27-9e31a6baca56"]
+In[79]:=",ExpressionUUID->"2eec212d-73d9-4b67-8dc5-c2aea3989b13"]
 }, Open  ]]
 }, Open  ]],
 
@@ -3475,7 +3719,8 @@ Cell[BoxData[
    3.796350180280169*^9}, {3.7969916398687887`*^9, 3.796991647788273*^9}, {
    3.796991827293665*^9, 3.796991827634898*^9}, {3.7970777305489283`*^9, 
    3.797077739553347*^9}},
- CellLabel->"In[52]:=",ExpressionUUID->"d9beedf2-ab81-4ad1-859c-abda1eecd2e4"],
+ CellLabel->
+  "In[103]:=",ExpressionUUID->"cfbdedc9-084e-4c07-8b84-826e305f130c"],
 
 Cell[CellGroupData[{
 
@@ -3488,38 +3733,44 @@ Cell[BoxData[
       RowBox[{"All", ",", "1"}], "]"}], "]"}], ")"}]}]}]], "Code",
  CellChangeTimes->{{3.783322664275772*^9, 3.783322695503109*^9}, {
   3.784371363342993*^9, 3.784371364299263*^9}},
- CellLabel->"In[53]:=",ExpressionUUID->"18e8dac7-cbdf-4769-b57e-a4ff78292b1e"],
+ CellLabel->
+  "In[104]:=",ExpressionUUID->"3e279ce1-ceee-4fc8-9d83-aa5999ebffa7"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-  "9522.73611064928`", ",", "9520.736112657069`", ",", "2303.9945821955234`", 
-   ",", "9872.234408668579`", ",", "5689.236176430366`", ",", 
+  "9522.73611064928`", ",", "9520.736112657069`", ",", "6396.278866263488`", 
+   ",", "3692.632566631851`", ",", "2303.9945821955234`", ",", 
+   "4909.789823736994`", ",", "5096.689742869783`", ",", "9872.234408668579`",
+    ",", "5013.217182160339`", ",", "5689.236176430366`", ",", 
    "3729.240978800145`", ",", "5281.686656186708`", ",", "8936.400360561582`",
     ",", "6222.727291482515`", ",", "4463.23324880229`", ",", 
-   "8041.779940035295`", ",", "8155.8080054888`", ",", "7192.7096070032685`", 
-   ",", "3327.4640577018013`", ",", "7806.2211809565`", ",", 
-   "7288.6684146047255`", ",", "6587.581657185665`", ",", 
-   "4891.720984952506`", ",", "4143.459449978296`", ",", "5173.443474456362`",
-    ",", "3693.3902273087538`", ",", "3692.376431304751`"}], "}"}]], "Output",\
-
+   "8041.779940035295`", ",", "9031.937946933434`", ",", "8155.8080054888`", 
+   ",", "7192.7096070032685`", ",", "3327.4640577018013`", ",", 
+   "7806.2211809565`", ",", "7288.6684146047255`", ",", "6587.581657185665`", 
+   ",", "4891.720984952506`", ",", "4143.459449978296`", ",", 
+   "4802.9582957292405`", ",", "4570.754312619858`", ",", 
+   "5173.443474456362`", ",", "3693.3902273087538`", ",", 
+   "3692.376431304751`"}], "}"}]], "Output",
  CellChangeTimes->CompressedData["
-1:eJwV0F1IE2AYBeBJoZX4E80Ey0nUtmK61hRdrNY+NVuj0vzZUAmtNCei0zQz
-ZTN0yehHKQlFc5oXWi52YVJWKhU6JU1zSqglpCZkfWKLKYZRne/i5YFzczjv
-ngv6+Ew3DoejxSUO/jUHSijpdk+qZp4x9s4yvY/RFWbBlHmDB+ucUZf5cEfM
-jxFmnCHGP/IQJaX/qvZFw+bhoXexcK4/YJJZ2t5dlgO3mLJseXDEy1Cqh0Z5
-iPkKVH0TpV5luUAuXIbhTq/TK9B75u17rpQSTeaQrx/UVZ6yMKuvNRTvhGaT
-Vw+zI3/xy274eippLRDyb9i4QbDRNZkdDZW9yS4V7FZUhWfD0QKeMAemH7hY
-+QDGCfgu5qN2x9l7oZS0PLYWWuDqoj34FdzfppH1QEuebYkp4BXL+2D/3C1P
-nwhKzi8HKyUw/klhKtPXv0wohRV9m8Sf4YsBk20W1ksS/BZgUYZUzhwrHm/a
-LKPE3mbfYIpCPxV5Qk3D8DNfeH1AnyKDXX7fy5njJc8z0qDp5+pd7RH0BEUt
-WKBPfquTqahVPm2G8R0qQSv8GLJUMH6UEllnuoGnwK7sQZKjpCTxjiqAEPxz
-vcuRBTlpjtHtkZTk6Wrrpo9TMhS2LdctBjtzG9eTT1Ain3e5bsKWGp1VqEKv
-ey23BMZNNLWuwZcf1NY/0Ng48YbJNWwdZUoV4pmEk5So3VNFe9WU/OpM6RFD
-U0TmxkGYqxnQaKBijG8vgUUTv78yzVpjWDnUndt1nznt4VFTASfnb196CKec
-wxVzsZRIDs+kzMP/3xZPjw==
+1:eJwV0H0s1HEcB/Cz2inmoXXSlDPT3dU8dB1Du7rui3RZRYczTCSXM/MUSeyO
+cezWg1bWNHLkD0S7P7BSHlaNc4vIsYayeUhLfqZrx5RWvb9/fPba3v+89/54
+pubIlTYsFusSLmb4r85dyJAedmw19YKmf47qeIpZp+ZN67a5sNYSeo0H94av
+jlKj1OGuIccYUvyv6lAYbBwxvYuEC4NuU9Ti1p6STLhLm27IhqMO6uIcqBH7
+6q5D2TfvxBs054sFazDQ4nB+HTrOvn3PETFEoTQ5u0BVxTk9tfpmXeE+qNM6
+9FHbc5fnD8LX07Gb7pBXaeB4wHrrVEYYlPbHW2WwR1IVmAHH8riCTJhy5ErF
+YxjF51mpba3miw/8GdL0tCNfDzeWjT698HCLIrgP6rMNK1Q+t1A8AAcXbts7
+BTHk8pqPVAjlz/ITqc6uJQIRLB/Y4fcZvhzSGubgI2G0yxIsSBOJqeOFEw07
+gxlibDFuU739PxXYQ0XdyHNnWDaUkxAMu12+l1Inil6kJUPtj437cSfQ4xG6
+pIdOuc0WqqRG2tUI5e0yfjP86LuSN3GSIcGdKWquBLsyhkmmlCExd2VuhOCf
+W93mdMhKNo/tCWFItqqmduY0Q0wBdlk24diZVb8Vf4Yh4kWr9RZsuqfqEMjQ
+y67hFMGoyYbmTfjqQ0THH6ipn3xD5ah3j1FFEr/Z6LMMiWAnentFMORnZ0Kf
+H9QGKbePwizFkEIBJeM8YxEsmPz1haqL0wSUQlXSgYfUGVvbe+VwavHO1Sdw
+2jJSvhDJEOHx2YRFuN/OHKiUMySV/bWFaogtc0+HJq8hT+rv+dQAapkxybYX
+tnWtVi7D/zTVayI=
   "],
- CellLabel->"Out[53]=",ExpressionUUID->"f462f821-4212-4a12-ab51-5e3ceb106570"]
+ CellLabel->
+  "Out[104]=",ExpressionUUID->"42f01b18-42bb-4b63-beb4-8132ef74c9a7"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3567,55 +3818,77 @@ Cell[BoxData[{
   3.7843763554924383`*^9}, {3.784376483101287*^9, 3.78437648759599*^9}, {
   3.792308823054883*^9, 3.792308823868188*^9}, {3.799976819416298*^9, 
   3.79997682140097*^9}, {3.799976968467486*^9, 3.799976970152645*^9}},
- CellLabel->"In[54]:=",ExpressionUUID->"f10f7400-c6d3-4720-9f4c-8341bdb2d43e"],
+ CellLabel->
+  "In[105]:=",ExpressionUUID->"41e96ae7-76f5-4d4e-8ba8-7255afd29edc"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-  "9439.73611064928`", ",", "9437.736112657069`", ",", "2309.4945821955234`", 
-   ",", "9878.234408668579`", ",", "5694.736176430366`", ",", 
+  "9439.73611064928`", ",", "9437.736112657069`", ",", "6406.278866263488`", 
+   ",", "3700.132566631851`", ",", "2309.4945821955234`", ",", 
+   "4915.789823736994`", ",", "5105.689742869783`", ",", "9878.234408668579`",
+    ",", "5020.217182160339`", ",", "5694.736176430366`", ",", 
    "3734.740978800145`", ",", "5287.686656186708`", ",", "8941.900360561582`",
     ",", "6229.227291482515`", ",", "4469.73324880229`", ",", 
-   "8048.279940035295`", ",", "8162.8080054888`", ",", "7199.7096070032685`", 
-   ",", "3334.4640577018013`", ",", "7813.7211809565`", ",", 
-   "7296.6684146047255`", ",", "6595.581657185665`", ",", 
-   "4899.220984952506`", ",", "4150.959449978296`", ",", "5181.443474456362`",
-    ",", "3701.8902273087538`", ",", "3700.876431304751`"}], "}"}]], "Output",\
-
- CellChangeTimes->{3.799976983214302*^9, 3.799978711198954*^9},
- CellLabel->"Out[54]=",ExpressionUUID->"2c6e4ee3-1a8a-44ea-91e2-8fd57aa7e65d"],
+   "8048.279940035295`", ",", "9039.937946933434`", ",", "8162.8080054888`", 
+   ",", "7199.7096070032685`", ",", "3334.4640577018013`", ",", 
+   "7813.7211809565`", ",", "7296.6684146047255`", ",", "6595.581657185665`", 
+   ",", "4899.220984952506`", ",", "4150.959449978296`", ",", 
+   "4810.9582957292405`", ",", "4580.254312619858`", ",", 
+   "5181.443474456362`", ",", "3701.8902273087538`", ",", 
+   "3700.876431304751`"}], "}"}]], "Output",
+ CellChangeTimes->{3.799976983214302*^9, 3.799978711198954*^9, 
+  3.8012952868406467`*^9, 3.8012961837263393`*^9, 3.8012991802564583`*^9, 
+  3.8012992145435343`*^9, 3.801299363473781*^9, 3.801471035307148*^9, 
+  3.801558063770425*^9},
+ CellLabel->
+  "Out[105]=",ExpressionUUID->"6d865615-c3e3-4673-878a-38456ff410ac"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-  "9538.23611064928`", ",", "9535.736112657069`", ",", "2308.4945821955234`", 
-   ",", "9876.734408668579`", ",", "5693.236176430366`", ",", 
+  "9538.23611064928`", ",", "9535.736112657069`", ",", "6400.778866263488`", 
+   ",", "3697.132566631851`", ",", "2308.4945821955234`", ",", 
+   "4913.289823736994`", ",", "5102.689742869783`", ",", "9876.734408668579`",
+    ",", "5017.717182160339`", ",", "5693.236176430366`", ",", 
    "3733.240978800145`", ",", "5286.186656186708`", ",", "8940.400360561582`",
     ",", "6226.727291482515`", ",", "4467.23324880229`", ",", 
-   "8046.279940035295`", ",", "8160.3080054888`", ",", "7196.7096070032685`", 
-   ",", "3330.9640577018013`", ",", "7810.2211809565`", ",", 
-   "7292.6684146047255`", ",", "6591.081657185665`", ",", 
-   "4895.220984952506`", ",", "4146.959449978296`", ",", "5176.943474456362`",
-    ",", "3696.8902273087538`", ",", "3695.876431304751`"}], "}"}]], "Output",\
-
- CellChangeTimes->{3.799976983214302*^9, 3.79997871156462*^9},
- CellLabel->"Out[55]=",ExpressionUUID->"3dfd10d8-2b58-45e4-acb3-28e7e8f95a34"],
+   "8046.279940035295`", ",", "9034.437946933434`", ",", "8160.3080054888`", 
+   ",", "7196.7096070032685`", ",", "3330.9640577018013`", ",", 
+   "7810.2211809565`", ",", "7292.6684146047255`", ",", "6591.081657185665`", 
+   ",", "4895.220984952506`", ",", "4146.959449978296`", ",", 
+   "4806.4582957292405`", ",", "4573.254312619858`", ",", 
+   "5176.943474456362`", ",", "3696.8902273087538`", ",", 
+   "3695.876431304751`"}], "}"}]], "Output",
+ CellChangeTimes->{3.799976983214302*^9, 3.799978711198954*^9, 
+  3.8012952868406467`*^9, 3.8012961837263393`*^9, 3.8012991802564583`*^9, 
+  3.8012992145435343`*^9, 3.801299363473781*^9, 3.801471035307148*^9, 
+  3.801558064152315*^9},
+ CellLabel->
+  "Out[106]=",ExpressionUUID->"b3347f29-08cf-4cc8-bd3e-9e2aa9ceab7a"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
-  "9522.73611064928`", ",", "9520.736112657069`", ",", "2303.9945821955234`", 
-   ",", "9872.234408668579`", ",", "5689.236176430366`", ",", 
+  "9522.73611064928`", ",", "9520.736112657069`", ",", "6396.278866263488`", 
+   ",", "3692.632566631851`", ",", "2303.9945821955234`", ",", 
+   "4909.789823736994`", ",", "5096.689742869783`", ",", "9872.234408668579`",
+    ",", "5013.217182160339`", ",", "5689.236176430366`", ",", 
    "3729.240978800145`", ",", "5281.686656186708`", ",", "8936.400360561582`",
     ",", "6222.727291482515`", ",", "4463.23324880229`", ",", 
-   "8041.779940035295`", ",", "8155.8080054888`", ",", "7192.7096070032685`", 
-   ",", "3327.4640577018013`", ",", "7806.2211809565`", ",", 
-   "7288.6684146047255`", ",", "6587.581657185665`", ",", 
-   "4891.720984952506`", ",", "4143.459449978296`", ",", "5173.443474456362`",
-    ",", "3693.3902273087538`", ",", "3692.376431304751`"}], "}"}]], "Output",\
-
- CellChangeTimes->{3.799976983214302*^9, 3.799978711645363*^9},
- CellLabel->"Out[56]=",ExpressionUUID->"0d9a2482-a3c5-4108-9c08-2665ecce47af"]
+   "8041.779940035295`", ",", "9031.937946933434`", ",", "8155.8080054888`", 
+   ",", "7192.7096070032685`", ",", "3327.4640577018013`", ",", 
+   "7806.2211809565`", ",", "7288.6684146047255`", ",", "6587.581657185665`", 
+   ",", "4891.720984952506`", ",", "4143.459449978296`", ",", 
+   "4802.9582957292405`", ",", "4570.754312619858`", ",", 
+   "5173.443474456362`", ",", "3693.3902273087538`", ",", 
+   "3692.376431304751`"}], "}"}]], "Output",
+ CellChangeTimes->{3.799976983214302*^9, 3.799978711198954*^9, 
+  3.8012952868406467`*^9, 3.8012961837263393`*^9, 3.8012991802564583`*^9, 
+  3.8012992145435343`*^9, 3.801299363473781*^9, 3.801471035307148*^9, 
+  3.8015580642413692`*^9},
+ CellLabel->
+  "Out[107]=",ExpressionUUID->"294843f7-e1eb-45cb-88ea-8c057c4fdfcb"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3723,45 +3996,50 @@ Cell[BoxData[
    3.797307525240346*^9}, {3.7973075643696938`*^9, 3.797307583210801*^9}, {
    3.7973076290725117`*^9, 3.79730776761658*^9}, {3.797307877841683*^9, 
    3.797307884267847*^9}},
- CellLabel->"In[57]:=",ExpressionUUID->"6901138a-123c-4a9a-a17e-5dc69e534fa0"],
+ CellLabel->
+  "In[108]:=",ExpressionUUID->"b250584f-77c8-4516-8110-8fd7749f89e5"],
 
 Cell[BoxData[
  TagBox[
   GraphicsBox[{InsetBox[
      GraphicsBox[{{{}, {{
-          {RGBColor[0., 0.62, 0.53], PointSize[0.012833333333333334`], 
+          {RGBColor[0., 0.62, 0.53], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledCircle]\"\>",
               StripOnInput->False,
               FontSize->10], {0., 0.}], CompressedData["
-1:eJxTTMoPSmVmYGAQA2JGIGYC4ktNINYHewYQOBByoFlPF4Xvz/D3////nyF8
-BjEHjvhYIP0Dypdw2Fx00PK+/1+4/Py1EiADHWD8QM008XXtTA4w9d8evQGa
-xwyX36EWpBTDzwLlSzkUavMCaQ44P/m9JDMy/5gyJ5DmgfJlHGS2zdnz/z8/
-nH/O7N9/ZL6HlgyQFoHy5RwkfQ4D5UWhfAWHhdPW//j2XxzO73eX5AS5E6be
-fDIj2BwYP/ZO36GvHQpw9UadkkBaCcpXdIjz2QI0XxnOBwCs9049
+1:eJxTTMoPSmVmYGCQA2JGIGYC4ktNINYHewYQOBByoFlPF4W/elo6gs+g4uDq
+dmOHaNdnKF/OwZ/h7////2F8MQcJmS2sDAxfoHwJB7tp55D4Sg4c8bFA+gdc
+vvpKIycDwx8oX8Zhc9FBy/v+f+HmzV8rAXKgA4wfqJkmvq6dyQGm/9ujN0D7
+meHyO9SClGL4WaB8KYdCbV4gzQHnJ7+XZEbmT03468wI5ys4HFMGOoeBxwHm
+Hpltc/b8/88P558z+/cfme+hJQOkRRxg4SHpcxgoLwo3b+G09T++/ReH8/vd
+JTlB7oapN5/MCDYHxrcqmPTn/395uPrdd178R/CVHWLv9B362qEAlzfqlASH
+K4Sv6BDnswWoXhnOBwBc8Gz/
             "]]}, 
-          {RGBColor[1., 0., 0.38], PointSize[0.012833333333333334`], 
+          {RGBColor[1., 0., 0.38], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6], 
            Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}], 
            GeometricTransformationBox[InsetBox[
              StyleBox["\<\"\[FilledSquare]\"\>",
               StripOnInput->False,
               FontSize->15], {0., 0.}], CompressedData["
-1:eJxTTMoPSmVmYGAQA2JGIGYC4ktNINYHewYw0Hdo1tNF4us5+DP8/f///2co
-X8iBIz4WSP+A8zcXHbS87/8XyhdwmL9WAmSgA4wfqJkmvq6dyQGm/tujN0Dz
-mOHyO9SClGL4WeD8Qm1eIM0B5ye/l2RG8IUcjilzAmkeOF9m25w9///zw9Wf
-M/v3H8HncfDQkgHSInB5SZ/DQHlROH/htPU/vv0Xh6vvd5cEWiAB55tPBnlH
-Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
+1:eJxTTMoPSmVmYGCQA2JGIGYC4ktNINYHewYw0Hdo1tNF4us5rJ6WjsQXcnB1
+u7FDtOsznO/P8Pf///8IvoTMFlYGhi9QPo+D3bRzSHwJB474WCD9A66++koj
+JwPDHzh/c9FBy/v+f6F8AYf5ayVADnSA8QM108TXtTM5wNR/e/QGaD8zXH6H
+WpBSDD8LnF+ozQukOeD85PeSzAi+kMPUhL/OjHA+i8MxZU6wu2HyMtvm7Pn/
+nx+u/5zZv/8IPo+Dh5YMkBaBy0v6HAbKi8L5C6et//Htvzhcfb+7JCcoHGB8
+88kg78nA+VYFk/78/y8P5+++8+I/gs/iEHun79DXDgW4vFGnJJBWgvPjfLYA
+1SvD+QBRxmiv
             "]]}}, {
-          {RGBColor[0., 0.62, 0.53], PointSize[0.012833333333333334`], 
+          {RGBColor[0., 0.62, 0.53], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6]}, 
-          {RGBColor[1., 0., 0.38], PointSize[0.012833333333333334`], 
+          {RGBColor[1., 0., 0.38], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6], 
            Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 
             0.0125}]}, {}, {}, {}}, {
-          {RGBColor[0., 0.62, 0.53], PointSize[0.012833333333333334`], 
+          {RGBColor[0., 0.62, 0.53], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6]}, 
-          {RGBColor[1., 0., 0.38], PointSize[0.012833333333333334`], 
+          {RGBColor[1., 0., 0.38], PointSize[0.011000000000000001`], 
            AbsoluteThickness[1.6], 
            Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 
             0.0125}]}, {}, {}, {}}}, {{}, {}}}, {}},
@@ -4015,7 +4293,7 @@ Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
              RowBox[{
                RowBox[{"Directive", "[", 
                  RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
@@ -4062,7 +4340,7 @@ Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
                     False]}], "]"}], ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
-                   RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
+                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
@@ -4212,21 +4490,23 @@ Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
   InterpretTemplate[Legended[
     Graphics[{{}, {{{
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[0., 0.62, 0.53]], 
          GeometricTransformation[
           Inset[
            Style["\[FilledCircle]", FontSize -> 10], {0., 
            0.}], CompressedData["
-1:eJxTTMoPSmVmYGAQA2JGIGYC4ktNINYHewYQOBByoFlPF4Xvz/D3////nyF8
-BjEHjvhYIP0Dypdw2Fx00PK+/1+4/Py1EiADHWD8QM008XXtTA4w9d8evQGa
-xwyX36EWpBTDzwLlSzkUavMCaQ44P/m9JDMy/5gyJ5DmgfJlHGS2zdnz/z8/
-nH/O7N9/ZL6HlgyQFoHy5RwkfQ4D5UWhfAWHhdPW//j2XxzO73eX5AS5E6be
-fDIj2BwYP/ZO36GvHQpw9UadkkBaCcpXdIjz2QI0XxnOBwCs9049
+1:eJxTTMoPSmVmYGCQA2JGIGYC4ktNINYHewYQOBByoFlPF4W/elo6gs+g4uDq
+dmOHaNdnKF/OwZ/h7////2F8MQcJmS2sDAxfoHwJB7tp55D4Sg4c8bFA+gdc
+vvpKIycDwx8oX8Zhc9FBy/v+f+HmzV8rAXKgA4wfqJkmvq6dyQGm/9ujN0D7
+meHyO9SClGL4WaB8KYdCbV4gzQHnJ7+XZEbmT03468wI5ys4HFMGOoeBxwHm
+Hpltc/b8/88P558z+/cfme+hJQOkRRxg4SHpcxgoLwo3b+G09T++/ReH8/vd
+JTlB7oapN5/MCDYHxrcqmPTn/395uPrdd178R/CVHWLv9B362qEAlzfqlASH
+K4Sv6BDnswWoXhnOBwBc8Gz/
           "]]}, {
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[1., 0., 0.38], 
           Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]], 
@@ -4234,29 +4514,31 @@ fDIj2BwYP/ZO36GvHQpw9UadkkBaCcpXdIjz2QI0XxnOBwCs9049
           Inset[
            Style["\[FilledSquare]", FontSize -> 15], {0., 
            0.}], CompressedData["
-1:eJxTTMoPSmVmYGAQA2JGIGYC4ktNINYHewYw0Hdo1tNF4us5+DP8/f///2co
-X8iBIz4WSP+A8zcXHbS87/8XyhdwmL9WAmSgA4wfqJkmvq6dyQGm/tujN0Dz
-mOHyO9SClGL4WeD8Qm1eIM0B5ye/l2RG8IUcjilzAmkeOF9m25w9///zw9Wf
-M/v3H8HncfDQkgHSInB5SZ/DQHlROH/htPU/vv0Xh6vvd5cEWiAB55tPBnlH
-Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
+1:eJxTTMoPSmVmYGCQA2JGIGYC4ktNINYHewYw0Hdo1tNF4us5rJ6WjsQXcnB1
+u7FDtOsznO/P8Pf///8IvoTMFlYGhi9QPo+D3bRzSHwJB474WCD9A66++koj
+JwPDHzh/c9FBy/v+f6F8AYf5ayVADnSA8QM108TXtTM5wNR/e/QGaD8zXH6H
+WpBSDD8LnF+ozQukOeD85PeSzAi+kMPUhL/OjHA+i8MxZU6wu2HyMtvm7Pn/
+nx+u/5zZv/8IPo+Dh5YMkBaBy0v6HAbKi8L5C6et//Htvzhcfb+7JCcoHGB8
+88kg78nA+VYFk/78/y8P5+++8+I/gs/iEHun79DXDgW4vFGnJJBWgvPjfLYA
+1SvD+QBRxmiv
           "]]}}, {{
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[0., 0.62, 0.53]]}, {
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[1., 0., 0.38], 
           
           Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 
            0.0125}]]}, {}, {}, {}}, {{
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[0., 0.62, 0.53]]}, {
          Directive[
-          PointSize[0.012833333333333334`], 
+          PointSize[0.011000000000000001`], 
           AbsoluteThickness[1.6], 
           RGBColor[1., 0., 0.38], 
           
@@ -4294,11 +4576,11 @@ Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
      Unevaluated[
       LineLegend[{
         Directive[
-         PointSize[0.012833333333333334`], 
+         PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[0., 0.62, 0.53]], 
         Directive[
-         PointSize[0.012833333333333334`], 
+         PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[1., 0., 0.38], 
          Dashing[{0.025, 0.0125, 0.025, 0.0125, 0.025, 0.0125}]]}, {
@@ -4332,8 +4614,11 @@ Bs6PvdN36GuHApxv1CkJpJXg/DifLUDzleF8AKW1Sno=
    3.7973073792571087`*^9, 3.79730744196743*^9}, {3.797307516944158*^9, 
    3.797307525846033*^9}, {3.797307571218669*^9, 3.7973075836347837`*^9}, {
    3.797307629683853*^9, 3.79730776815132*^9}, {3.797307878624651*^9, 
-   3.797307884852426*^9}, 3.799977014308263*^9, 3.799978712002377*^9},
- CellLabel->"Out[57]=",ExpressionUUID->"65f155e4-0764-4c30-a47f-d83e388b617b"]
+   3.797307884852426*^9}, 3.799977014308263*^9, 3.799978712002377*^9, 
+   3.801295287468055*^9, 3.801299181217616*^9, 3.801299364223403*^9, 
+   3.80147103595462*^9, 3.801558064460978*^9},
+ CellLabel->
+  "Out[108]=",ExpressionUUID->"02119c84-7f98-44c1-afa7-dbcaee7abc56"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -4346,7 +4631,8 @@ Cell[BoxData[
  CellChangeTimes->{{3.792309317345038*^9, 3.792309342184907*^9}, {
   3.799976926412396*^9, 3.799976931273427*^9}, {3.799977009070896*^9, 
   3.799977012404977*^9}},
- CellLabel->"In[58]:=",ExpressionUUID->"4359d45f-993a-4ef7-9dd4-0d7b3cd77a0c"],
+ CellLabel->
+  "In[109]:=",ExpressionUUID->"548fbc36-d6a4-4511-8d36-108f3f760c0e"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/dts.pdf\"\>"], \
 "Output",
@@ -4362,10 +4648,13 @@ Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/dts.pdf\"\>"], \
    3.797154987350675*^9, 3.7971610827604017`*^9, 3.797224247607486*^9, 
    3.797224279508102*^9, {3.797307736117443*^9, 3.797307770225542*^9}, 
    3.797307886471736*^9, {3.799977016947253*^9, 3.7999770285578403`*^9}, 
-   3.799978712550847*^9},
- CellLabel->"Out[58]=",ExpressionUUID->"d26436ee-d601-4f50-9e69-f1d8b736f9b8"]
+   3.799978712550847*^9, 3.801295287670576*^9, 3.801299181867819*^9, 
+   3.801299364721192*^9, 3.8014710368269873`*^9, 3.801558065383366*^9},
+ CellLabel->
+  "Out[109]=",ExpressionUUID->"0682e058-af62-4ca3-8589-83934c2db2b3"]
 }, Open  ]]
-}, Closed]],
+}, Open  ]]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -4388,7 +4677,7 @@ Cell[BoxData[
    3.7963579620880404`*^9, 3.7963579621932592`*^9}, {3.796359657356451*^9, 
    3.796359657642618*^9}, 3.796364058330311*^9, 3.796989390652184*^9, 
    3.79698961005095*^9, 3.799977058687471*^9},
- CellLabel->"In[59]:=",ExpressionUUID->"66bc501b-d793-4896-8a82-5f8be2b57e8a"],
+ CellLabel->"In[71]:=",ExpressionUUID->"66bc501b-d793-4896-8a82-5f8be2b57e8a"],
 
 Cell[BoxData[
  RowBox[{"(*", " ", 
@@ -4396,8 +4685,7 @@ Cell[BoxData[
   "constrain", " ", "HMs", " ", "to", " ", "be", " ", "0", " ", "at", " ", 
    "equal", " ", "massratio"}], " ", "*)"}]], "Input",
  CellChangeTimes->{{3.796355811698476*^9, 3.7963558301751842`*^9}},
- CellLabel->
-  "In[169]:=",ExpressionUUID->"131f76b2-1a17-4f9d-8338-e72ebfa8e99f"],
+ CellLabel->"In[72]:=",ExpressionUUID->"131f76b2-1a17-4f9d-8338-e72ebfa8e99f"],
 
 Cell[CellGroupData[{
 
@@ -4418,7 +4706,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.796093312451457*^9, 3.796093344812086*^9}, {
   3.796093387815682*^9, 3.796093396085699*^9}, {3.799977061806294*^9, 
   3.799977062403246*^9}},
- CellLabel->"In[60]:=",ExpressionUUID->"145ea971-74fa-4487-87d9-ea611b7cbc00"],
+ CellLabel->"In[73]:=",ExpressionUUID->"145ea971-74fa-4487-87d9-ea611b7cbc00"],
 
 Cell[BoxData[
  RowBox[{
@@ -4429,8 +4717,9 @@ Cell[BoxData[
    3.796357985525875*^9}, 3.7963630722901497`*^9, 3.796364061481992*^9, 
    3.796541074536873*^9, 3.796989413204397*^9, 3.796992633447681*^9, 
    3.797070524521605*^9, 3.797141291292663*^9, 3.79715455371914*^9, 
-   3.7971549905888777`*^9, 3.799977062867897*^9, 3.799978712909446*^9},
- CellLabel->"Out[60]=",ExpressionUUID->"5f2a7a21-cf75-4a10-b8f1-907b47415982"]
+   3.7971549905888777`*^9, 3.799977062867897*^9, 3.799978712909446*^9, 
+   3.8012955055280323`*^9},
+ CellLabel->"Out[73]=",ExpressionUUID->"06dfd6c1-891c-43d5-a6df-d3840c74f1bc"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -38313,285 +38602,24487 @@ starttime.pdf\"\>"], "Output",
 
 Cell[CellGroupData[{
 
-Cell["Resolvability", "Section",
- CellChangeTimes->{{3.799979947797538*^9, 
-  3.799979950520608*^9}},ExpressionUUID->"80ca7b39-5a03-4176-afda-\
-6bed1f5c9a7d"],
+Cell["Fits Almn/A220 with \[Chi]", "Section",
+ CellChangeTimes->{{3.790689659131205*^9, 3.790689668108283*^9}, {
+  3.801295517006785*^9, 
+  3.8012955199802113`*^9}},ExpressionUUID->"cf6d279a-6e61-437b-a10d-\
+c8c0839a4b6c"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
+  RowBox[{"credible", " ", "intervals"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.796355841126897*^9, 
+  3.796355847204289*^9}},ExpressionUUID->"29e12a50-5603-4075-acad-\
+7f1ef27d926f"],
 
 Cell[BoxData[
  RowBox[{
-  RowBox[{"\[Sigma]f", "[", 
-   RowBox[{"f1_", ",", "Q1_", ",", "f2_", ",", "Q2_", ",", "R_"}], "]"}], ":=", 
+  RowBox[{"cred", "=", "0.99"}], ";"}]], "Input",
+ CellChangeTimes->{{3.796354206356845*^9, 3.7963542080122023`*^9}, {
+   3.7963579620880404`*^9, 3.7963579621932592`*^9}, {3.796359657356451*^9, 
+   3.796359657642618*^9}, 3.796364058330311*^9, 3.796989390652184*^9, 
+   3.79698961005095*^9, 3.799977058687471*^9},
+ CellLabel->"In[96]:=",ExpressionUUID->"28dcc857-91b5-4018-8c0d-d260298c1a23"],
+
+Cell[BoxData[
+ RowBox[{"(*", " ", 
   RowBox[{
-   RowBox[{"1", "/", 
-    RowBox[{"(", 
-     RowBox[{"2", 
-      RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}], 
+  "constrain", " ", "HMs", " ", "to", " ", "be", " ", "0", " ", "at", " ", 
+   "equal", " ", "massratio"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.796355811698476*^9, 3.7963558301751842`*^9}},
+ CellLabel->"In[72]:=",ExpressionUUID->"8b78cabd-c2da-4b25-8579-468b133d62a5"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"acons", "=", 
+  RowBox[{"aa", "/.", 
    RowBox[{
-    RowBox[{"(", 
+    RowBox[{"Solve", "[", 
      RowBox[{
-      RowBox[{"f1", "^", "3"}], 
       RowBox[{
-       RowBox[{"(", 
-        RowBox[{"3", "+", 
-         RowBox[{"16", 
-          RowBox[{"Q1", "^", "4"}]}]}], ")"}], "/", 
-       RowBox[{"(", 
-        RowBox[{"Q1", "^", "7"}], ")"}]}], 
-      RowBox[{"(", " ", 
-       RowBox[{
-        RowBox[{
-         RowBox[{"Q1", "^", "3"}], "/", 
-         RowBox[{"(", 
-          RowBox[{"f1", 
-           RowBox[{"(", 
-            RowBox[{"1", "+", 
-             RowBox[{"4", 
-              RowBox[{"Q1", "^", "2"}]}]}], ")"}]}], ")"}]}], "+", 
-        RowBox[{
-         RowBox[{"R", "^", "2"}], " ", 
-         RowBox[{
-          RowBox[{"Q2", "^", "3"}], "/", 
-          RowBox[{"(", 
-           RowBox[{"f2", 
-            RowBox[{"(", 
-             RowBox[{"1", "+", 
-              RowBox[{"4", 
-               RowBox[{"Q2", "^", "2"}]}]}], ")"}]}], ")"}]}]}]}], ")"}]}], 
-     ")"}], "^", 
-    RowBox[{"(", 
-     RowBox[{"1", "/", "2"}], ")"}]}]}]}]], "Input",
- CellChangeTimes->{{3.7985405256329947`*^9, 3.7985406686842623`*^9}, {
-  3.798540707189432*^9, 3.798540760673064*^9}, {3.798540791851248*^9, 
-  3.7985408453218403`*^9}},
- CellLabel->
-  "In[1025]:=",ExpressionUUID->"fbeac557-fafe-455b-9ead-08d635cc2d06"],
+       RowBox[{"aa", "+", 
+        FractionBox["bb", 
+         RowBox[{" ", "1"}]], "+", 
+        FractionBox["cc", "1"], "+", 
+        FractionBox["ee", "1"]}], "\[Equal]", "0"}], ",", "aa"}], "]"}], "[", 
+    
+    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.796093312451457*^9, 3.796093344812086*^9}, {
+  3.796093387815682*^9, 3.796093396085699*^9}, {3.799977061806294*^9, 
+  3.799977062403246*^9}},
+ CellLabel->"In[97]:=",ExpressionUUID->"f9d0f2b5-4df4-43c3-a6b3-dbe224c7e26f"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "bb"}], "-", "cc", "-", "ee"}]], "Output",
+ CellChangeTimes->{
+  3.79609334540344*^9, {3.7960933891252813`*^9, 3.7960933965779047`*^9}, 
+   3.796350481183879*^9, 3.7963558758640213`*^9, {3.79635797080945*^9, 
+   3.796357985525875*^9}, 3.7963630722901497`*^9, 3.796364061481992*^9, 
+   3.796541074536873*^9, 3.796989413204397*^9, 3.796992633447681*^9, 
+   3.797070524521605*^9, 3.797141291292663*^9, 3.79715455371914*^9, 
+   3.7971549905888777`*^9, 3.799977062867897*^9, 3.799978712909446*^9, {
+   3.8012955055280323`*^9, 3.801295523668887*^9}, 3.801296184474471*^9, 
+   3.801298382573382*^9, 3.801299413775599*^9},
+ CellLabel->"Out[97]=",ExpressionUUID->"cd0af42c-1c1c-4678-b878-a4444178968e"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["n=1  at t=10M not aligning", "Subsubsection",
+ CellChangeTimes->{{3.783335011255373*^9, 3.783335014252658*^9}, {
+   3.783338590710135*^9, 3.783338612983432*^9}, {3.784027245178487*^9, 
+   3.784027248044612*^9}, {3.7840327304466267`*^9, 3.7840327307831993`*^9}, {
+   3.785577223556033*^9, 3.7855772245267897`*^9}, {3.78764085416961*^9, 
+   3.787640877275304*^9}, 3.790512937796105*^9, {3.790513017996871*^9, 
+   3.790513018226877*^9}, {3.790514135990529*^9, 3.7905141460485363`*^9}, 
+   3.7905156114160748`*^9, 3.790517780444337*^9, {3.7906742632015457`*^9, 
+   3.7906742636625977`*^9}, 3.790675975769409*^9, {3.790687761043107*^9, 
+   3.7906877672338953`*^9}, {3.79472277106769*^9, 3.794722771835322*^9}, {
+   3.794723063677249*^9, 3.794723063814375*^9}, {3.79472453249819*^9, 
+   3.794724533175212*^9}},ExpressionUUID->"760bdf73-9cbe-4173-9780-\
+d45e5efcbc6e"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"tfit", "=", "10"}], ";"}]], "Input",
+ CellChangeTimes->{{3.784022244880886*^9, 3.784022249530658*^9}, {
+   3.784031725351697*^9, 3.784031725484119*^9}, {3.784032755803207*^9, 
+   3.784032755920979*^9}, 3.784531877201477*^9, {3.784532306522603*^9, 
+   3.784532306860847*^9}, {3.785664084671473*^9, 3.7856640848228483`*^9}, {
+   3.785664307914174*^9, 3.7856643081484613`*^9}, {3.787640865530705*^9, 
+   3.7876408657534857`*^9}, 3.790512941931713*^9, {3.7905136209637327`*^9, 
+   3.790513621208645*^9}, 3.790515615986506*^9, 3.790517464701054*^9, 
+   3.790675996022853*^9, {3.790687772497324*^9, 3.790687772728518*^9}, {
+   3.794722775109435*^9, 3.794722777856599*^9}, {3.794723067062853*^9, 
+   3.7947230672866173`*^9}, {3.794724536780888*^9, 3.7947245370687523`*^9}, {
+   3.796362382914023*^9, 3.796362383372661*^9}, {3.796364050382908*^9, 
+   3.7963640505851803`*^9}},
+ CellLabel->"In[98]:=",ExpressionUUID->"c2f103d7-814b-4e1a-9f21-ccab5e3bc52e"],
 
 Cell[BoxData[{
  RowBox[{
-  RowBox[{"f220", "=", 
-   RowBox[{"Join", "[", 
-    RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "2", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "2", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}], "\[IndentingNewLine]", 
+  RowBox[{"sxsrhst", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"sxsrhs", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"f330", "=", 
-   RowBox[{"Join", "[", 
-    RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"3", ",", "3", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"3", ",", "3", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}], "\[IndentingNewLine]", 
+  RowBox[{"\[Eta]t", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"\[Eta]", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"f221", "=", 
-   RowBox[{"Join", "[", 
-    RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "2", ",", "1", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "2", ",", "1", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}], "\[IndentingNewLine]", 
+  RowBox[{"\[Chi]1t", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"\[Chi]1", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"f440", "=", 
-   RowBox[{"Join", "[", 
-    RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"4", ",", "4", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"4", ",", "4", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}], "\[IndentingNewLine]", 
+  RowBox[{"\[Chi]2t", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"\[Chi]2", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"f210", "=", 
-   RowBox[{"Join", "[", 
-    RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "1", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{
-       RowBox[{"\[Omega]lmn", "[", 
-        RowBox[{"2", ",", "1", ",", "0", ",", 
-         RowBox[{"qq", "/", 
-          RowBox[{
-           RowBox[{"(", 
-            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
-          ",", 
-         RowBox[{"\"\<ModesData\>\"", "->", 
-          RowBox[{"Modedata", "[", 
-           RowBox[{"[", 
-            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
-         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}]}], "Input",
- CellChangeTimes->{{3.798591721035592*^9, 3.798591738332911*^9}, {
-  3.798592133728931*^9, 3.798592133951769*^9}, {3.79859235034455*^9, 
-  3.798592396309044*^9}, {3.798592437510415*^9, 3.7985924381654*^9}, {
-  3.798592577661471*^9, 3.798592578354536*^9}, {3.7985926202760553`*^9, 
-  3.7985926534366007`*^9}, {3.7985935907339277`*^9, 3.7985936199004498`*^9}, {
-  3.799986980527821*^9, 3.799987103289311*^9}, {3.799987202725951*^9, 
-  3.799987204343218*^9}},
+  RowBox[{"aft", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"af", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"qt", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"q", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"tagt", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{"tag", ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.801296527102077*^9, 3.801296538373425*^9}, {
+  3.801296574337536*^9, 3.801296661436843*^9}, {3.801302506540017*^9, 
+  3.8013025098887653`*^9}},
  CellLabel->
-  "In[1020]:=",ExpressionUUID->"e8e0b02d-0696-4186-9bcd-78a9a6c66605"],
+  "In[140]:=",ExpressionUUID->"23bcfa2e-08c5-4852-aeae-f9c703b27425"],
+
+Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{
-  RowBox[{"qpints", "=", 
-   RowBox[{"Join", "[", 
+ RowBox[{"tmax", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"TimeOfMaximum", "/@", 
+     RowBox[{"sxsrhst", "[", 
+      RowBox[{"[", 
+       RowBox[{"All", ",", "1", ",", 
+        RowBox[{
+         RowBox[{"-", "5000"}], ";;", 
+         RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}]], "Code",
+ CellChangeTimes->{{3.783322664275772*^9, 3.783322695503109*^9}, {
+   3.784371363342993*^9, 3.784371364299263*^9}, {3.7855815746180477`*^9, 
+   3.7855815753135138`*^9}, {3.790674369825747*^9, 3.790674467963015*^9}, {
+   3.790675912287261*^9, 3.790675912423545*^9}, {3.790675956357242*^9, 
+   3.7906759566672983`*^9}, {3.790676548958955*^9, 3.790676549056424*^9}, {
+   3.790676720451498*^9, 3.790676720786585*^9}, {3.790677281162836*^9, 
+   3.790677281262546*^9}, {3.790677438333253*^9, 3.790677438707281*^9}, {
+   3.790677771650758*^9, 3.7906777717829943`*^9}, {3.7906833285179377`*^9, 
+   3.790683328678625*^9}, {3.79068356791488*^9, 3.7906835768231087`*^9}, {
+   3.7906867539637012`*^9, 3.790686755339479*^9}, 3.8012965415468693`*^9},
+ CellLabel->
+  "In[105]:=",ExpressionUUID->"30f6c9bd-0cc8-4d06-9941-67c71e14c323"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
     RowBox[{
-     RowBox[{"Table", "[", 
-      RowBox[{"qq", ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
-     
-     RowBox[{"Table", "[", 
-      RowBox[{"qq", ",", 
-       RowBox[{"{", 
-        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
-  ";"}]], "Input",
- CellChangeTimes->{{3.79859281932397*^9, 3.7985928231030912`*^9}},
+    "9522.73611064928`", ",", "9520.736112657069`", ",", "6396.278866263488`",
+      ",", "3692.632566631851`", ",", "2303.9945821955234`", ",", 
+     "4909.789823736994`", ",", "5096.689742869783`", ",", 
+     "9872.234408668579`", ",", "5013.217182160339`", ",", 
+     "5689.236176430366`", ",", "3729.240978800145`", ",", 
+     "5281.686656186708`", ",", "8936.400360561582`", ",", 
+     "6222.727291482515`", ",", "4463.23324880229`", ",", 
+     "8041.779940035295`", ",", "9031.937946933434`", ",", "8155.8080054888`",
+      ",", "7192.7096070032685`", ",", "3327.4640577018013`", ",", 
+     "7806.2211809565`", ",", "7288.6684146047255`", ",", 
+     "6587.581657185665`", ",", "4891.720984952506`", ",", 
+     "4143.459449978296`", ",", "4802.9582957292405`", ",", 
+     "5173.443474456362`", ",", "3693.3902273087538`", ",", 
+     "3692.376431304751`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "9522.73611064928`", ",", "9520.736112657069`", ",", "6396.278866263488`",
+      ",", "3692.632566631851`", ",", "2303.9945821955234`", ",", 
+     "4909.789823736994`", ",", "5096.689742869783`", ",", 
+     "9872.234408668579`", ",", "5013.217182160339`", ",", 
+     "5689.236176430366`", ",", "3729.240978800145`", ",", 
+     "5281.686656186708`", ",", "8936.400360561582`", ",", 
+     "6222.727291482515`", ",", "4463.23324880229`", ",", 
+     "8041.779940035295`", ",", "9031.937946933434`", ",", "8155.8080054888`",
+      ",", "7192.7096070032685`", ",", "3327.4640577018013`", ",", 
+     "7806.2211809565`", ",", "7288.6684146047255`", ",", 
+     "6587.581657185665`", ",", "4891.720984952506`", ",", 
+     "4143.459449978296`", ",", "4802.9582957292405`", ",", 
+     "5173.443474456362`", ",", "3693.3902273087538`", ",", 
+     "3692.376431304751`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "9522.73611064928`", ",", "9520.736112657069`", ",", "6396.278866263488`",
+      ",", "3692.632566631851`", ",", "2303.9945821955234`", ",", 
+     "4909.789823736994`", ",", "5096.689742869783`", ",", 
+     "9872.234408668579`", ",", "5013.217182160339`", ",", 
+     "5689.236176430366`", ",", "3729.240978800145`", ",", 
+     "5281.686656186708`", ",", "8936.400360561582`", ",", 
+     "6222.727291482515`", ",", "4463.23324880229`", ",", 
+     "8041.779940035295`", ",", "9031.937946933434`", ",", "8155.8080054888`",
+      ",", "7192.7096070032685`", ",", "3327.4640577018013`", ",", 
+     "7806.2211809565`", ",", "7288.6684146047255`", ",", 
+     "6587.581657185665`", ",", "4891.720984952506`", ",", 
+     "4143.459449978296`", ",", "4802.9582957292405`", ",", 
+     "5173.443474456362`", ",", "3693.3902273087538`", ",", 
+     "3692.376431304751`"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.790674381325076*^9, 3.790674472259388*^9}, {
+   3.7906759136988564`*^9, 3.790675957378036*^9}, 3.790676001997643*^9, 
+   3.790676549485808*^9, 3.790676722275379*^9, 3.7906767706464252`*^9, 
+   3.790677281662622*^9, 3.790677439096479*^9, 3.790677773198554*^9, 
+   3.7906810250475283`*^9, 3.790681157605276*^9, 3.7906812672761393`*^9, 
+   3.790682231878091*^9, {3.79068332909837*^9, 3.7906833321664248`*^9}, {
+   3.790683568390388*^9, 3.790683577207018*^9}, 3.7906866525120173`*^9, 
+   3.790686755925654*^9, 3.790687778012377*^9, 3.790688512930676*^9, 
+   3.792737505982389*^9, 3.792738130533342*^9, 3.792741255645516*^9, 
+   3.794718396175736*^9, 3.794719713225429*^9, 3.794722778986717*^9, 
+   3.794739661873103*^9, 3.794799589769306*^9, 3.795605462719675*^9, 
+   3.796095070970231*^9, 3.796350279526127*^9, {3.796357978922821*^9, 
+   3.796357988798456*^9}, 3.796364072764526*^9, 3.796541150940535*^9, 
+   3.797070531233039*^9, 3.7971410439477253`*^9, 3.7971412916864977`*^9, {
+   3.7971545635524073`*^9, 3.79715457890394*^9}, 3.797154890826976*^9, 
+   3.797154993141803*^9, 3.799977153205021*^9, 3.799978713265847*^9, 
+   3.7999867090250053`*^9, 3.8012956487622957`*^9, 3.801296184808732*^9, 
+   3.8012962213627167`*^9, 3.801296542537155*^9, 3.801296693383444*^9, 
+   3.801296823491387*^9, 3.801298396717278*^9, 3.801299416113093*^9},
  CellLabel->
-  "In[1026]:=",ExpressionUUID->"edc9fa08-7cc7-4814-877f-15dff493bd32"],
+  "Out[105]=",ExpressionUUID->"dadf5abb-3773-4519-8240-8398d74b964f"]
+}, Open  ]],
 
 Cell[BoxData[
  RowBox[{
-  RowBox[{"Mf", "=", 
-   RowBox[{"1", "-", 
-    RowBox[{"EradUIB2017", "[", 
+  RowBox[{"(*", " ", 
+   RowBox[{
+    RowBox[{"Here", " ", "start", " ", "the", " ", "\[Alpha]0"}], ",", 
+    RowBox[{"\[Alpha]1", " ", "contours"}]}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"ansall", "=", 
+    RowBox[{"Table", "[", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{
+        RowBox[{"mysxscase22modeRD", "[", "index", "]"}], "=", "\n", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"t0", "[", "index", "]"}], "=", 
+            RowBox[{"tmax", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "index"}], "]"}], "]"}]}], ";", 
+           RowBox[{
+            RowBox[{"Select", "[", 
+             RowBox[{
+              RowBox[{"sxsrhst", "[", 
+               RowBox[{"[", 
+                RowBox[{"index", ",", "i"}], "]"}], "]"}], ",", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"#", "[", 
+                 RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", 
+                RowBox[{"tmax", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "index"}], "]"}], "]"}]}], "&"}]}], "]"}],
+             "/.", 
+            RowBox[{
+             RowBox[{"{", 
+              RowBox[{"tt_", ",", "yy_"}], "}"}], "\[Rule]", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"tt", "-", 
+                RowBox[{"tmax", "[", 
+                 RowBox[{"[", 
+                  RowBox[{"i", ",", "index"}], "]"}], "]"}]}], ",", "yy"}], 
+              "}"}]}]}]}], ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", 
+            RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}], ";", "\n", 
+       RowBox[{"ans", "=", 
+        RowBox[{"Table", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{
+               RowBox[{"modes", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "3"}], "&&", 
+              RowBox[{
+               RowBox[{"modes", "[", 
+                RowBox[{"[", 
+                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "\[Equal]", "2"}]}], 
+             ",", 
+             RowBox[{"mix", "=", "True"}], ",", 
+             RowBox[{"mix", "=", "False"}]}], "]"}], ";", "\n", "\n", 
+           RowBox[{"OvertoneModelV2", "[", 
+            RowBox[{"1", ",", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"\[Eta]t", "[", 
+                RowBox[{"[", "index", "]"}], "]"}], ",", 
+               RowBox[{"\[Chi]1t", "[", 
+                RowBox[{"[", "index", "]"}], "]"}], ",", 
+               RowBox[{"\[Chi]2t", "[", 
+                RowBox[{"[", "index", "]"}], "]"}]}], "}"}], ",", "tfit", ",", 
+             RowBox[{"\"\<Fit\[Alpha]\>\"", "\[Rule]", 
+              RowBox[{"{", "}"}]}], ",", 
+             RowBox[{"\"\<Mode\>\"", "\[Rule]", 
+              RowBox[{"modes", "[", 
+               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
+             RowBox[{"\"\<Mixing\>\"", "\[Rule]", 
+              RowBox[{"{", 
+               RowBox[{"mix", ",", 
+                RowBox[{"{", 
+                 RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], ",", 
+             RowBox[{"\"\<ModesData\>\"", "->", 
+              RowBox[{"Modedata", "[", 
+               RowBox[{"[", "i", "]"}], "]"}]}], ",", 
+             RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}]}], 
+          ",", 
+          RowBox[{"{", 
+           RowBox[{"i", ",", 
+            RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}]}], ",", 
+      RowBox[{"{", 
+       RowBox[{"index", ",", 
+        RowBox[{"Length", "@", "tagt"}]}], "}"}]}], "]"}]}], ";"}]}]], "Code",\
+
+ CellChangeTimes->{{3.776512166269883*^9, 3.77651220635608*^9}, {
+   3.7806579396378927`*^9, 3.7806579447792053`*^9}, {3.780657992992601*^9, 
+   3.7806580655287037`*^9}, {3.780658149470125*^9, 3.780658158193174*^9}, {
+   3.780658533189198*^9, 3.780658538263584*^9}, {3.780913549931922*^9, 
+   3.7809135503771477`*^9}, 3.7809139813373203`*^9, {3.7809144171036777`*^9, 
+   3.780914417501708*^9}, {3.7818561760215263`*^9, 3.781856176883253*^9}, {
+   3.7833250385110683`*^9, 3.7833250438551283`*^9}, {3.783325078590008*^9, 
+   3.783325097782302*^9}, {3.783325247012995*^9, 3.783325318819191*^9}, {
+   3.783325407070302*^9, 3.783325411435904*^9}, {3.783325475123114*^9, 
+   3.7833254756591253`*^9}, 3.7833256554369297`*^9, {3.7833313670501127`*^9, 
+   3.7833314249811077`*^9}, {3.783331463108326*^9, 3.783331465870968*^9}, {
+   3.783331523881638*^9, 3.7833315262764683`*^9}, 3.783331652030417*^9, {
+   3.783332229420908*^9, 3.783332229549035*^9}, {3.783926045187009*^9, 
+   3.783926047208068*^9}, {3.784024880322315*^9, 3.784024886607314*^9}, {
+   3.7840251162471123`*^9, 3.784025118922915*^9}, {3.784028273786001*^9, 
+   3.7840283400444*^9}, {3.7840285492320957`*^9, 3.784028557574357*^9}, {
+   3.7840330059743643`*^9, 3.78403300666721*^9}, {3.784034254111804*^9, 
+   3.7840342595247183`*^9}, {3.784530289375472*^9, 3.784530309181032*^9}, {
+   3.785577233806931*^9, 3.785577237111829*^9}, {3.785581151943487*^9, 
+   3.785581157931072*^9}, 3.7855851754377813`*^9, {3.785585753869604*^9, 
+   3.785585769426332*^9}, {3.785651002060493*^9, 3.78565100307345*^9}, {
+   3.7876408914020243`*^9, 3.787640899849009*^9}, {3.7906742987684917`*^9, 
+   3.7906743055401487`*^9}, {3.790674478251223*^9, 3.790674482663575*^9}, {
+   3.790674544845932*^9, 3.790674558466082*^9}, {3.790674613472151*^9, 
+   3.790674624923275*^9}, {3.7906760443785467`*^9, 3.790676071436995*^9}, 
+   3.790686764375167*^9, {3.7999797771798077`*^9, 3.799979777447336*^9}, {
+   3.7999865516058598`*^9, 3.799986558048232*^9}, {3.8012966066067543`*^9, 
+   3.8012966483876553`*^9}, 3.801296856333747*^9},
+ CellLabel->
+  "In[106]:=",ExpressionUUID->"13ad2966-8d6e-4bbe-8c5c-5203b1fd8558"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"val022", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"Select", "[", 
+        RowBox[{
+         RowBox[{"Arg0DStructs", "[", 
+          RowBox[{
+           RowBox[{"mysxscase22modeRD", "[", "i", "]"}], "[", 
+           RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", "10"}], 
+          "&"}], ",", "1"}], "]"}], ")"}], "[", 
+      RowBox[{"[", 
+       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"val021", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"Select", "[", 
+        RowBox[{
+         RowBox[{"Arg0DStructs", "[", 
+          RowBox[{
+           RowBox[{"mysxscase22modeRD", "[", "i", "]"}], "[", 
+           RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", "10"}], 
+          "&"}], ",", "1"}], "]"}], ")"}], "[", 
+      RowBox[{"[", 
+       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"val033", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"Select", "[", 
+        RowBox[{
+         RowBox[{"Arg0DStructs", "[", 
+          RowBox[{
+           RowBox[{"mysxscase22modeRD", "[", "i", "]"}], "[", 
+           RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", "10"}], 
+          "&"}], ",", "1"}], "]"}], ")"}], "[", 
+      RowBox[{"[", 
+       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7840117399238787`*^9, 3.784011762555826*^9}, {
+   3.7840119370292187`*^9, 3.7840119380686398`*^9}, {3.78401385415139*^9, 
+   3.7840138587881393`*^9}, {3.784013908808543*^9, 3.784013932186843*^9}, {
+   3.784014228315469*^9, 3.7840142299235973`*^9}, {3.784014457085421*^9, 
+   3.7840145132402163`*^9}, 3.784014986505061*^9, {3.784015347154203*^9, 
+   3.784015352818285*^9}, {3.784015889014182*^9, 3.784016003815448*^9}, {
+   3.784022254146719*^9, 3.7840222589547987`*^9}, {3.784028570075938*^9, 
+   3.7840285876143293`*^9}, {3.785577242956133*^9, 3.785577243217976*^9}, {
+   3.785581970842142*^9, 3.785581970947434*^9}, {3.785586409875568*^9, 
+   3.7855864133319073`*^9}, {3.7906836059484673`*^9, 3.79068362065097*^9}, {
+   3.790687785199687*^9, 3.7906877880849457`*^9}, {3.8012966446163807`*^9, 
+   3.801296667258377*^9}, 3.801296708437495*^9},
+ CellLabel->
+  "In[107]:=",ExpressionUUID->"6c7cd4c1-ffc9-48ae-9ab0-981cadb7ccf0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"phs0", "=", 
+  RowBox[{"{", 
+   RowBox[{"val022", ",", "val021", ",", "val033"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.784013812038069*^9, 3.784013820223927*^9}, {
+  3.7840286003834543`*^9, 3.784028601265298*^9}, {3.7855772474175386`*^9, 
+  3.785577250891135*^9}, {3.790683624439334*^9, 3.79068362624615*^9}},
+ CellLabel->
+  "In[110]:=",ExpressionUUID->"e57b75e1-b450-435e-95f9-631296c21c14"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+    "5.267910803700945`", ",", "5.215232049949177`", ",", "5.42102657285524`",
+      ",", "4.6166997107586205`", ",", "3.770561975679454`", ",", 
+     "1.1449107492758437`", ",", "7.108804365830167`", ",", 
+     "4.74403747419551`", ",", "6.736246094429743`", ",", 
+     "3.225852733425949`", ",", "4.068272527402376`", ",", 
+     "1.6027431126977347`", ",", "2.4900080354549057`", ",", 
+     "1.259895588278315`", ",", "5.8554159865517015`", ",", 
+     "4.115335204122704`", ",", "4.222690313458825`", ",", 
+     "2.044012122971948`", ",", "4.801645125966699`", ",", 
+     "2.2244590311454977`", ",", "4.726059122666181`", ",", 
+     "6.311529317575279`", ",", "0.36181264258431334`", ",", 
+     "1.5400394860561573`", ",", "3.296438473306006`", ",", 
+     "0.43773581078613066`", ",", "3.029347150360937`", ",", 
+     "6.236425788881192`", ",", "4.166254643097977`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "5.656470438250933`", ",", "1.3076240437689273`", ",", 
+     "1.6240847131031715`", ",", "4.029619123078627`", ",", 
+     "0.4443178571424086`", ",", "2.394391632936397`", ",", 
+     "2.020613607057122`", ",", "0.910801398057715`", ",", 
+     "1.9155254903596806`", ",", "3.331899182471555`", ",", 
+     "3.7442628638082778`", ",", "5.610458501658977`", ",", 
+     "2.955554502838534`", ",", "2.2849344772844273`", ",", 
+     "1.4117091147582754`", ",", "0.5460284856454365`", ",", 
+     "3.828974301589825`", ",", "5.798025065022046`", ",", 
+     "0.856108167039744`", ",", "2.735917867169039`", ",", 
+     "3.9406328221465405`", ",", "4.703642031945399`", ",", 
+     "1.7373402301383494`", ",", "2.349282191012344`", ",", 
+     "3.224785908336344`", ",", "1.7602293808505882`", ",", 
+     "3.0454883940808473`", ",", "4.652673649692042`", ",", 
+     "0.4644948459325557`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+    "9.33986726884267`", ",", "3.0576223324028176`", ",", 
+     "4.607861970237816`", ",", "4.346177490016193`", ",", 
+     "9.53213332002253`", ",", "8.649293849608787`", ",", 
+     "5.067917739905275`", ",", "4.711899233818521`", ",", 
+     "7.75640931836471`", ",", "5.557067355791757`", ",", 
+     "6.816207780157144`", ",", "6.240929326878041`", ",", 
+     "4.462376487665957`", ",", "8.836449013116926`", ",", 
+     "6.293613450865135`", ",", "3.6774494548265144`", ",", 
+     "6.8670755280909725`", ",", "6.842829304725171`", ",", 
+     "4.664180672729065`", ",", "3.945513476486107`", ",", 
+     "7.677785815102119`", ",", "3.750099824138172`", ",", 
+     "7.368608724441156`", ",", "2.8694185257146305`", ",", 
+     "5.492517538152463`", ",", "7.474235095997468`", ",", 
+     "5.061444194097797`", ",", "3.589240844790485`", ",", 
+     "3.6112888950853352`"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.784013820704461*^9, 3.784013937725151*^9, {3.784014514893268*^9, 
+   3.784014528954887*^9}, 3.784014833736063*^9, 3.784015374307321*^9, {
+   3.7840158949244337`*^9, 3.78401593452876*^9}, 3.7840160056024733`*^9, 
+   3.784016248132228*^9, 3.784016282447567*^9, 3.784017299616972*^9, 
+   3.7840221173820887`*^9, 3.7840222642165947`*^9, {3.7840239493055677`*^9, 
+   3.7840239785087357`*^9}, 3.784024039117828*^9, 3.784024895277699*^9, 
+   3.784025128122233*^9, 3.784028601566856*^9, 3.78403068233915*^9, 
+   3.784030986406556*^9, 3.7840317385862913`*^9, 3.784033061164979*^9, 
+   3.784033148778919*^9, 3.784034749381858*^9, 3.7842722353214912`*^9, 
+   3.784274912060788*^9, 3.7842750624126387`*^9, 3.784276679404758*^9, 
+   3.7843805954128103`*^9, 3.78438213778687*^9, 3.784451002040798*^9, 
+   3.784530397051354*^9, 3.784531929287951*^9, 3.7845323569912367`*^9, 
+   3.784884959449239*^9, 3.784954013877706*^9, 3.785491044626089*^9, 
+   3.785577153505562*^9, {3.7855772689716597`*^9, 3.7855772821821327`*^9}, 
+   3.78557862276574*^9, 3.7855788045468473`*^9, 3.7855789971093693`*^9, {
+   3.7855824129876633`*^9, 3.785582420306617*^9}, 3.7855864149597893`*^9, 
+   3.785651112508834*^9, 3.785664186324984*^9, 3.7856644115223713`*^9, 
+   3.785677723177349*^9, {3.785677816546982*^9, 3.785677821084219*^9}, 
+   3.7857505295696983`*^9, 3.787485429647415*^9, 3.787638624754765*^9, {
+   3.787640971615828*^9, 3.787640999484199*^9}, 3.790513991225237*^9, 
+   3.790683626613166*^9, 3.7906838123368607`*^9, 3.790686931556801*^9, 
+   3.790687963683213*^9, 3.790688687449335*^9, 3.7927381831358013`*^9, 
+   3.792741309031549*^9, 3.794718450853731*^9, 3.794719764749793*^9, 
+   3.794722834757299*^9, 3.794723123891553*^9, 3.794724692943245*^9, 
+   3.794739966169703*^9, 3.794800712565539*^9, 3.7959264931552343`*^9, 
+   3.796351308611168*^9, 3.796354952431686*^9, 3.79635831366499*^9, 
+   3.796359716312661*^9, 3.796363030236384*^9, 3.796364395105485*^9, 
+   3.796541394033503*^9, 3.7969894719217043`*^9, 3.7969896713424053`*^9, 
+   3.7969925983218393`*^9, 3.7970717446421213`*^9, 3.797141486741025*^9, 
+   3.79715516207055*^9, 3.799979555253777*^9, 3.799985812588479*^9, 
+   3.799986286102294*^9, 3.799986604848584*^9, 3.8012956580218773`*^9, 
+   3.801296196773641*^9, 3.801296873840034*^9, 3.801298421005755*^9, 
+   3.801299425583276*^9},
+ CellLabel->
+  "Out[110]=",ExpressionUUID->"63869718-279f-4cec-b1b6-a078f2cad05e"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"mysxscase22modeRD0sh", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       RowBox[{"mysxscase22modeRD", "[", "index", "]"}], "[", 
+       RowBox[{"[", "j", "]"}], "]"}], "/.", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"xx_", ",", "yy_"}], "}"}], "\[Rule]", 
+       RowBox[{"{", 
+        RowBox[{"xx", ",", 
+         RowBox[{"yy", " ", 
+          RowBox[{"Exp", "[", 
+           RowBox[{
+            RowBox[{"-", "I"}], " ", 
+            RowBox[{"phs0", "[", 
+             RowBox[{"[", 
+              RowBox[{"j", ",", "index"}], "]"}], "]"}]}], "]"}]}]}], 
+        "}"}]}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"index", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", 
+       RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.784022329124991*^9, 3.7840223823370113`*^9}, {
+   3.784022415606349*^9, 3.784022440743187*^9}, {3.784022893948859*^9, 
+   3.784022943263361*^9}, {3.78402407745934*^9, 3.7840240942167397`*^9}, {
+   3.78402447363737*^9, 3.784024481977665*^9}, {3.785577291515561*^9, 
+   3.785577293500114*^9}, {3.785586427742388*^9, 3.785586428133891*^9}, {
+   3.790683633179186*^9, 3.790683635499899*^9}, 3.80129687856103*^9},
+ CellLabel->
+  "In[111]:=",ExpressionUUID->"bb836641-a1b5-43e4-8217-8a1d20835727"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListLinePlot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Arg0DStructs", "@", 
+      RowBox[{"mysxscase22modeRD0sh", "[", 
+       RowBox[{"[", 
+        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+     RowBox[{"Arg0DStructs", "@", 
+      RowBox[{"mysxscase22modeRD0sh", "[", 
+       RowBox[{"[", 
+        RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+     RowBox[{"Arg0DStructs", "@", 
+      RowBox[{"mysxscase22modeRD0sh", "[", 
+       RowBox[{"[", 
+        RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
+     RowBox[{"Arg0DStructs", "@", 
+      RowBox[{"mysxscase22modeRD0sh", "[", 
+       RowBox[{"[", 
+        RowBox[{"7", ",", "1"}], "]"}], "]"}]}]}], "}"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"0", ",", "100"}], "}"}], ",", "Automatic"}], "}"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"GridLines", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", "tfit", "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", "\[Pi]"}], "}"}]}], "}"}]}], ",", 
+   RowBox[{"GridLinesStyle", "\[Rule]", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Orange", ",", "Dashed", ",", " ", "Thick"}], "]"}]}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.784024513255226*^9, 3.78402458256153*^9}, {
+  3.784024676991809*^9, 3.784024723695135*^9}, {3.784031047475773*^9, 
+  3.7840310510137653`*^9}, {3.787641011926249*^9, 3.787641012398367*^9}},
+ CellLabel->
+  "In[112]:=",ExpressionUUID->"eca7dc10-ec0c-46a3-84e5-d7ef9972f630"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {{{}, {}, 
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw92Hdcje//B/BjlCjJzvwcqSQiJTLSS6EiDe0ip73r7CHj2NkZEUmHjMjI
+x4qMYyeflBHZR1Z2MoqMX7/H93rf/vF4Pq5z9T6v+32f+7ruq19k2rSYljwe
+b1IrHu///6d/mmXh8yQbefifdM5ptnl9rhu1ZK5zPvcstbD9slbMjc6qeX8/
+TzHUY+bBYFfs3w3r9Zlbw8H+l2tDPwNmAyx8dbKb+nhbZiOEZax96ehryGyC
+83f0Xc3rjZg7Qb05+s+YzcbMXdDo1MbIsb8JczeM6dEz8vYvsik8BvBmCO53
+ZO6J9IiqsxXFnZh7oyrT5nqXnM7MffFn2DgPC3UXZj7ejp47ryGuK3M/LD3R
+uHn+tG7MZijLunG+2Lk7c3941iemZg41ZTaHqc0E/6Z+PZgtoBM2Rr3r1pPZ
+Eo9C92b4GPdiHoDE62H3uhr0ZrYC74HjkX9a92EeCK3SIdSzZV9ma2Tk7EtW
+tPyHeRB+bOrVzbkln3kwBpatvMNfRLbB8Mf8f+/o92MeggMLtjn4LicPRbCe
+/5IVxmbMtkj/pR8qXs+stkX2As9vb037s/FheLtt1Nc725jVw3B7fOTczhbm
+bNwOBz3O995YyKy2Q3BGSJfpdhZs3B4PBg8MEJ5kVttDPfhSCx0s2fhwbOlx
+9uGhUmb1cLg+5fe46zOAjTvA0Cn87dj7zGoHXBF0HV8eYcXGR6B6zU/B7LfM
+6hF4syKgf4BkIBsfiZ6bl45S/mJWj8TyD/66zkus2bgj/Kcd4QebDGLjjsh7
+YHZ/Zg4zbxS8D10ZaztgMBsfhQmHm6KLjzDzRuN7+0heNWzY+GgEfr3pm3iD
+mTcGd/4aLZ46fQgbH4OdnQ58jXrLzBsL5+qGW5nKoWx8LM4i7UtIK1s27oSJ
+rh7n/CYzq53woCRnTL+1ND4OBksfjzt0j8bHwaW+z6JPfYaxcWdYTw76+jCK
+We2MIcemTVPspXHARp1mUP6RGUCNY+P7Ons79nkgzCI97o+SWQts/jPDudtZ
+Zt541JkIHcJa2bP547G2aGrTB3dm9XhkZj87+mY1s3Y8ciPvD42oYua54FT5
+2K7hvYez+S54/Tv5pi6KWe2CtCX7o2oKmbUu2NnV18rvKzPPFY+8g0Q9nBzY
+fFfIC3IKTZYwq12h1yfyRbsKZq0rZKsLelR1H8HmT0DeqI9xTgJmTIDXixHj
+exQwqyfgTs7TKo9PzNoJcA4dUHvGYSSbPxEr8kPmi9KZMRGfTs4sStYyqyei
+4uzHxAutHdn8ichLXmiZ6c7Mm4TBjuda/1nBjEkI+KioH1fBrJ4Ecccjd9d0
+GsXmT8KBt4k8h0BmnhuCjZbUS7cwww2aHN63bU+Z1W64MUOy6L3FaDbfDY03
+e+1YmMLMc4e/mZ+z4jgz3LEo9fyMC8337f/mu2Mfv80dF09mrTt+9vuWdzib
+meeBG4Nv6ee9ZIYHVPWnrNR2Y9l8DyzY6/ryyFxmrQeU6WM7FF5j5k1GD79/
+hK06O7H5k1HSreX8laHM6skI3vsubbyGWTsZvdcXtBv7gpk3BXe1qrl7LMex
++VOw160xsziOWT0Fuodp7wr3MGunYKI4a1PpK2aeJ/ixv+ZEWziz+Z643qvK
+ojaKWe0J2ZbW0sodzFpPmPm3tjtYw8ybipFX93To1Als/lRIFz/n1dszq6fC
+eNYqT/8gZu1UuOeHtlw/m5nnhbZj9F7W59N8Lwg+/ChYUE7zvfDHsGBwXSPN
+90J1+raKZIvxbL43rOsyRFd9meGNsvJV2kuzmdXe8DFu13r+LmatN/bb1FzY
+cp3m+2Dz4mq7vp+Y+T5I7DHOO9DEhf09H5x+eQo7hzILfNDCfP+1uKnMah+M
+mvvk5bcEZo0P1sm7lGxazKz1weUTxq6rNMw6H/S+VOTWsYSZ54u63SKz8Cpm
+vi8WZ7a7c+QT1fdFbmjPFYJ2rqy+LxbNEkSUWzCrfeGaLmq53oVZ44vH0juP
+ciOYtb4IyC5ISVvErPPF8A6O2iUHmHnT8Cz+sXqbjpk/DQmP42238yew+tNw
+o3qBoX08s2AaClNcPcbtZVZPQ822hcX1j5g101DercbuhN5EVn8azsqclk4f
+wKybBstgvtH8Ccw8P7zycel7NJyZ79ecb3ZCjZwZfii7e/xLzipmgR/Mfnzb
+OzqfWe2HmwfG+DecYNb4oWGLbtq361TfDzeGL7H3eEr1/bBVNflo02eq7w//
+rJP727aexOr7A0867RZ0ZYY/1u9qWHXXglngjx8H3jl1d2BW+6Nd6sQKuQuz
+xh/5Hy0Gpngya/1xwkb2qdiLWeePEc+lNX6jmHkBcDv1wu70TcofgBuXsxe/
+EVP+AChe5DkKBJQ/AE6v55nMjqT8AbhYnZBrkUT5A2AotsqcTddPG4CSp5q2
+HRZS/gB0jHLpZJdJ+QMRDSPXjFyqH4iIjOw1VfuofiBiX588/J6uryAQpmW/
+d+y6RPUD0b7uwPJ7lVQ/EIVv163ye0T1A/Ff0ucVT19R/UCcy9u5dmgd1Q9C
+h8PL/33cQPWDMHGxb/bM31Q/CGvz9rg3/aX6QehY/nPrpT9UPwjhuXdXaxup
+fhA+OTvJ4j5Q/SAYDFjyZetjqh8Eu6KSbPf/qH4wJg8qf9z7DNUPRgvPMa2S
+/6X6wchKnJ+xej/VD8bJopFjLtD1UQdjjkWX8tY0rgnGxi0vvcSHqH4w2h4z
+2xx8lOoHI1fV5ojtKaofgrKh+0LXa6l+CEq3ZRYOuUr1Q3B4c9PvM+VUPwQj
+1s+73OoO1Q9Bnlmq2eX7VD8E/W36G119QvVD8KzlOVF5DdUPgeuc81u3vqT6
+oUj5MXfUb+oPPxSfZ+T8uERGKCZklBm9eEH1QxHQtmG17BnVD8WjRD+X/6jf
+mlDkjM+pEN6j+qHQyzA/1u4W1Q+Fa9dTjaMoDy8MWdoF96XXqH4YZgQeXdh4
+heqHIaHryzE3LlP9MOivaOr3kKwOA39T3YY6+rwmDFYNJyyqS6l+GNonOrmG
+0vNA1/z3RNcx/gbVn47oDUs3h3C/v+nY+PhguIyuL6YjvcnKJ57yCKbD//HR
+lYYPqP50WF2e3s2Jyz8dd127eDyj+007HbHWFYNfUT900zHiTMGbcfQ84s1A
+Zaa96zsa58/AhvMvFY00HzMwv+L9+gX09wUz4LN30palD6n+DFyZ5WW8lev/
+DJyMfXxGy13/GSi8aLnL/C7Vn4FtA+Z9fkP5eOF4Yr+ykzmZHw7h+ara6ttU
+PxxGU5J3cfebIBx7T8w5soW7/8LRKzhDsrSK6jf74v6q41RPG47LldYHTKqp
+fjiGRRpcS6fvy5sJyy8W35/S9eTPRGb6f12tKC9molPq8G2udD0EM6Evyf9k
+SddLPRM7Q1d9LCNrZsJK4qe2puurnYmtp1WL3bnn/0wsGfA90JK7/gLwHkbu
+P0HzTQRobGfdMJrrhwBXyz+d2Uj1bQX46172/A33/QRwHHy/zI3sI8D9nSte
+aKk/AgECvRx3C8hCAe7cOD7BhuufAO3Mh5+wImcKwHd5034aWSPAz8dZ2E0u
+EsCa5zWUzz1fBVg0Rzu4mFwpwKAPlu+iuOedAK/GX0zsTnnqmj/vH1x+hcyL
+wKk+06fG0/UwiUDEqjjhNzI/Ao57Us4l6ih/BHLnHZtyhYwIzDrQZKxPzwOf
+CCSYdug6gCyIwOTgYxMsycIIrC/fldiSe35EoP7LGquz9PcyI9DG6vNTAVkT
+AavSrEPc9ymKgMWr28+Xcf2NQF/dZg8rcmXz/MUVsx9wv7cI/E24pd7D5Y8A
+717ijfVc/khci+5wfDvX/0hEf/3d8ibX/0gs2mXi2Jf+vm0kNld+bbOAjEjk
+6ge1qif7ROLX6Yl13PcXRCJqwop1F8nCSOz0XLO+I5c/EnYfHrRyI2dGYkjK
+yJHRZE0kgvLOL04iF0Xin/zTB6PI2kgEZ4mOe5MrI+G4uqylA1kXieNn1+V2
+JddF4rTr8Qlf6PvwotBbtr9FBdkkCjvHhmzaS+ZHYd2Y/z4s5PofhYI+F3xm
+cv2PwiulsN6J7BOF5uV4vBmXPwqP6k+8bs/lj4JoWXB1C7I6Cjtup/r+peuX
+GYUG2euSllz/o+DufS7QiFwUhS/8/Fa9yNoolD1d0MOGXBmFgMJjK53JuiiU
+jP6+diq5Lgrv8qptfbn80XhraPh7Apc/Gqtv9VBZcPmj4bb2Z1/u/rONxjlN
+lNNJrv/RGDbiSskcrv/RGFi/4tYksiAai0tWeHD3jzAaTsM12/TI6mj0uNrh
+SSPdb5nRiDpdm/WJe55F41hwzSoduSgaen/7T77Mre/RsL672mwruTIap/+6
+v47j7v9o9HP8etWGu/+jkf1wd2Q9PR94MRj32CzkBNkkBq+7ppvPIfNj0Der
+X+EY7vkXgzWm9ln13PMvBv4hD/ZouOdfDGI2uVR4cutVDBrvOnXikYUx6Cg4
+tPMi9/yLwRLZvgm53PMvBtcrrmxdyT3/YvAk5sHb5dzzLwZJac56q8jaGKx9
+6fVnCbkyBhnv9m1LJutiwI/859Y4cl0MDDxeb/xJ6w0vFi6thD3zySaxMJ/0
+2GEstx7FYuhOwwWltF7ZxuJsk0lvDzJi4f3Z6/NZWt98YnHg0Padg8mCWOh2
+mmVtovVYGIubH/+Z1oasjsXP0ylzFtJ6mRmLrR7HW3cka2LxVzK7exGtr0Wx
+0A5U/RdG1sZid9eHhYbkyli4nt0x/zitz7pYpHe5OCKAXBcL39C7pS9ofefF
+4cavlTtiySZxsJW8nvCU9mv8OIxcu6LOj2wbh8vPN4aU0n4JcTBPjvFyIvvE
+4dBpQUkRvQ8I4pD8+9m7vmRhHPbmnBi7qILyx+H7kJCNT2g/lhmHKrHXMxuy
+Jg4bGw3cJbRfLIpDuENa4SHav2vjcGuEQ2AN7e8q47AutJu+Abffi4PDtMIO
+vcoofxwEjpJDXWi/yYuHbLTq40fab5vEY+MfcYs9tJ/kx+PyOJP+zrTftI1H
++dicrWcuUv54vJj1+rLtBcofj7vz2vruov28IB4HlHuDB5yj/PFYUbzuwVl6
+31DHY4o880zKacofjzanbPcOLaH88XB7Nn5500nKH4/OwcMHXS6m/PHYVzIl
+QU3vZ5XxUJ5LNrY8TvnjcVRvtmURvX/UxSNZ+MzonyOUPwHXdwX5KQ5T/gT8
+fTvp2Tl6f+EnoIvFzHV/D1D+BJwYPnLiGHrfQQLChzROldL7kE8C2k0Znrun
+gPInoKXhac8buyl/An5Zm/R8spPyJyCmy0le1Q7KnwBFN8Mcm12UPwElTh+0
+NTRelIDJU5MuRGkofwLOlbw+cILeXysTEOXu1f3NFsqfgN1zX33YuInyJ6C3
+YFHNmg2UPxEnTD4eO7yW8ifC8+DFQzWrKX8i7M5UPeizkvIn4samzofCl1H+
+RChPWIfkLKH8iVguv/brGr1vCxJR0hQqfq6m/InIKsnSfzmH8iciv9ONA5Wz
+KH8i2u1vW1KooPyJ0Be+j5sjpfyJ+DtFYOcmovyJiJk0R2iXSvkTcch955a3
+iZQ/EaOv/7xcGkf5EzEqwLPv/mjKn4TTC4KNV0ZQ/iRkXO/xOo47j0nC59O3
+B9mGUf4kvAiwVNwLovxJKLKdbe/rT/mTcDZWvT3Lh/In4WT7QXq7PSl/EkK9
+hgWsdqf8SbD9XiqPpvOgzCS0Slx12wuUPwn5F276+Y6l/ElQ2cRHL3ek/EmI
+tex0t4UD5U+CZpf9m2PDKH8SrhmuT8odQvmT8K3Huh+Fgyh/Mq4ZC2aftqL8
+yejVUbMujc6r+Mlw6POrcKs55U9Gfmu7wL/9KH8yYnVPd0v+ofzJGC2u9Gzo
+TfmT0cLo4I1FPSl/Mi6njSrpZUr5k3HcrdXG3V0pf3LzfujCK8vOlD8ZzzcI
+a3NMKH8yWqkco9saU/5k5Bb3eis3pPzJKJn7dusHA8qfjHFhqvUyfcqfDOvc
+7fmdW1P+FBgYG84vbUH5U1D15tiS9X/ZeR4/BYl72hvLfzPbpuBv5ZGtIU10
+PpiCHXMyl0z6weyTgv4N1z+Oa6DzwhTkKmTb3L4xC1MwJj9/R9wXOj9MgfuL
+WyW7PzNnpmCT9Q2lYR2dJ6Yg1WFS+OaPzEUpWPj7+CbvD8zaFHTvOWGX1Xvm
+yubPm5hY93rHrEtB+EajTb3eMtelYPuwBvO+b5h5qfCowHnTWmaTVJxdds6p
+9WvKn4qfNSlNj15S/lSU/7upYccLyp8KZ9+3cSHPKX8qrNb+6qZXQ/lT4V2x
+Vb5fR/lTcUVTdSvwKeVPRVreLgvDJ5Q/FfPnNn6v4M5TU3H+q2x64UPKn4q1
+6d2X7XhA+VNh/f1Z/5P3KX8q7AJjZ9VVU/5UvL53wNWNXJeKsCsXn5+8R/nT
+sOh+cWdXskkaLrXoMfzxXcqfBvPnbtELyLZpmLfy0W0bMtKQO6dV08Mqyp+G
+NkVyx+VkQRpaX/recwRZmIau8bZvHt2h/Gm480jonU7OTENs70917cmaNOx8
+fDV17W3Knwar5W2bWpG1aSjalmsZe4vypyF7btb4kpuUPw2/1hfXG5Dr0rBx
+Y41VYCXlF0IrEh3ZW8FsIERT9K0ObckmQijftlikuMFsKoT+B82Lb+V0fYTo
+0mDptJBsJUS3qzGH+5Bthag5kBV68T9mRyFsed/1JGQIMcZcoxlMdhdi4HFf
+v8/X6XoKYVooKLpADhbihkvam+1kgRD9r80cuYYcL4SV8Wb9ZWShEMU2QftW
+kJVC7HY+uXEtWS1EbJO34QZyhhAZOdU9V5IzhTDvJ3oqIWcLsas+ZIcbWSOE
+i/61K/rkAiHsB5boHy2jfgmRxRO98CcXC7HA7PmaumvUPyEK5uqbrSaXCvG1
+a99h9uRKIXrO53+sKWWuFsIt5uqtXLKu+Xqcbt8zklwrRFL8sSeDyXVCdCq9
+ZNl0lblRiFfifwOuk3kiBHxbkpVLNhDB3f79dgnZRIQ/HvnTfcimItx1GbBq
+BJkvglXNs6YBZCsRlj+122NOthWhe5eSNdZkRxFuPvI25uajuX63k1IXsrsI
+1yv1DaeQfUQY9HLma87BIoxPWpHCfV4gwia5q5cNOV6EbhHjDnUgC0W43/Sv
+QcMV6r8IRx3b3rtKVotw69yL91nkDBH+i3z6PZqcKcLxuW3mOpKzRdj1PS+y
+M1kjwoHs06saLlP/RbhzXv7+BblIhJ/3FDsekotFuHKhf3w1WSvCFPPPd+6R
+S0X4FufidpdcKcKQfwa+rCRXi1Br2XntZbJOhO28p2OukmtFuIq5L4+R60T4
+NHSW9W5yowi3BX335JB5YhToVeZvJBuI8Wn9p/KtZBMxnIdJHPaRTcUIs7g7
+q4TMF6Puec3w/8hWYrj8SOBx+WzFsM6238zldxRj9ifzzVVkiDHm3aO8K2R3
+MYauMa87QvYRY2SRokZDDhbj0t/7DhlkgRhXK5efF5HjxVjwZJssnCwUY9et
+5y+nkpXNef4M2DuOrBaDz7PqOZScIcbbUwsc+pIzxdDlfh5lRM4WoybWvOzn
+Jeq/GJKPNkvekwvEWLpk28QX5CIxQrtEJnEuFsP72P7kD2StGCHyyqV/yKVi
+RAa85nfl+i9G68531thw/Rej8kLHd65c/8WouKd75s/1X4zqM/1SuPx1zdf3
+0fdT9lz/xXj55P14W67/ErTpaiWy5PovwfoM71s9uP5LIJn9eh+X31SCyedn
+POdx/ZdA+q97dAN9fysJNvm+Sa8j20pw0H/QRO76OErQK6JV/VsyJHDt/rgN
+dz3cJdgztsH7C9lHgkHLJRru+gRLsC3lvyUduP5L8DH1xz0zrv8SZEU9KI+/
+SP2XQP3gTrs5ZKUEUcp26lyyWoIDt1ocyyJnSKCZsC6oiJzZfH3+XWx8hZwt
+wfx5265UkTUSnOy/YYCOXCDB3t9r770iF0kw0txowHtysQRHrBcvqSdrJVhr
+9/ZpE7lUgg09A+LbUt5KCXg7h7XoRa6WwNut0XEoWSdB5JmXBa7kWgmMwk7I
+Ash1EhS+T/sUQW6U4FT0sm5xZJ4U5iPuxkeTDaT4NHpqVSjZpNmHXzzzJJtK
+0fOAd40TmS9FfNjcsmFc/6XY/Hdd9GCu/1JM0R2ca8v1X4qyPRcXOHP9l8LZ
+RDc/hOu/FBs+WAydw/Vfii844lXA9V+KM4H5favJAil+/0i50ZbrvxRObbfU
+jOZ+/1L07e0qSeB+/1J4btU6beB+/1L4BZXnneJ+/1KMOTzV5hH3+2/O0+Lp
+wUbu9y/Fyr5Tajtwz38pVGXSzH7kAinE8yMlNuQiKTb6r9ttTy6W4s+6YTeH
+k7VSWD3JamlHLpViYeE3N25+pRRHwjsMGEiulqLOIzfWiqyTImLIq3zu87VS
+tBuZWj2aXCeF2zyrOh9yoxSJvr3WpJF5MpSP+tOOW/8MZPBc6XHqLNlEhuVb
+9y15QzaVwfRJ67RO3Povw309+z4jufVfhpFH7noFcuu/DGUXo3+lceu/DKos
+vxGLufVfhpAdftPyuPVfhgzfQyFF3PovgwUsO17k1n8ZupzrpLnHrf8y2Lb7
+0+Yjt/7LkF97drIe7X+EMuybUPe7F1kpw4MjT5bbktUyfMk+lDeenCHDgtun
+t3uRM2UYXHPsQxA5W4YRJx9WhZM1MljPmBwZQy6QYcrvPj9SyEUyZOfnaWeR
+i2XoNDd1zCqyVgZ7K7O2u8mlMphP/lp2iVwpQ58Pz8bVcvs/GXy+LlpmTPtD
+nQxFz22WO5BrZej5Zn9AGLlOhv5eqavnkhub+5UbK9pG5smxvJ93egnZQI6g
+2wu73SWbyJG4/b+gT2RTORr68UUGtJ/lyyGQTJlhRraSY8TV1NNOZFs5nA8W
+7w4lO8pxM4q3T0mGHBusz9duJLvLYfLNZxK3f/aRIze34N8KcrAcwVNjh9WS
+BXI4fQy1/k2Ol0Pax7zQmNv/yxH32Du9D7f/lyNWb3WbQdz+Xw7e/CarUdz+
+Xw63D0FVHtz+X45NhbOvhXP7fznaZDSNV3H7fzkC388o38zt/+VwNf9mqyUX
+ydErvcuCd+RiOWbO1vn3pPcdrRx/5lW+n0wulUPWNzI1nVwpxwtn5877yNVy
+zHHePLmKrGu+fjuXTWoi18qx2VDrxr1/1clRcfpqwmhyY/PnkWvtR+Yp4Gm0
+SxFPNlBAHHp+XjrZRIGRsw0WriKbKhC/bNH+PO79T4HZY243/Mu9/yngE7jb
+rJR7/1OgnUVGwVOyowJucwdf+UGGAq/ufFjYjd4v3RX4VBi/w4Hso0BPXVhC
+KDlYgW4B8XpzyQIFjHp7Ls0nxyuwY8f07WVkoQKHC/d9ricrFVi4o9/PXvR+
+q26u/8LIbCI5Q4GD2lElKeRMBbbcbGWURc5WoH1A55mnyBoFakd87vaYXKDA
+4pztl3+RixR4vPRMnSm9bxcrINl96NswslaBvT+VVu7kUgUebDEeOp1c2fz3
+/fMqUsnVCvDnP3upJusUiI2r9VhPrlWgoHd6yW5ynQJ7Viy7W0JuVKDvmf3G
+t7n3fyVsZ1kefE82UEKjqLzNnReYKBExabJ4ANlUiduT209zJ/OVkA65MySJ
+bKVEi4OecWvItkrEiLvvOUp2VMLuuXfsAzKUWH59Sz8enV+4KzF73J4wC7KP
+Eq/0fE0mk4OVaPV5y89kskCJVfOm915Njm/+/OhbnQ+QhUrUvNoZco2sVKKh
+vtWE52S1EgETn6l+kDOUyFt3NsaIzlcyleAd7u3cm5ytxP1P32cMJGuUaL84
+7JQ9uUAJ3UJljhN3XqPEfuG6MjdysRL9z3a56ced3yjxqbd+TBS5VInzaQl8
+JblSibgK49HrydVKrO01ze0YWadEwrm//Cfk2ua8g/VKjej8qE6JpbVjs0Bu
+VEJw/0c3GZmnwqyNq/4UkA1UeB6QdP0+2USFZLP8SD06vzJVYerSGV7WZL4K
+4+eXNbiRrVQ49CjxVDjZVoUSky0308iOKtS7mFnNIUOFpZcy2i4ju6vw1Cn4
+XhZ3ntZc3z7/+C5ysAp2k65PPMWdr6lwanRB8h1yvApHz9r5feXO25rzZe2J
+7EHndUoV3A+NkruQ1So8SHrdKY2c0fz90z21OeRMFWIPt2h5hZytQnTWr0Id
+WaOCYr18oj6dHxao8Hfq9M0DyEUq5L36pphALm7O1za88wyyVoVbA7d2EZNL
+VbjhtVS6iFypglXTj+lZ5GoVvnRcYLibrFOhNCL8xAlyrar5edxeep1cp8K3
+yTNH15AbVVid/Cb/F3f+OQvjArbq9aLzUYNZWNFaM82JbDIL38w9B0aRTWch
+sDp9/woyfxa8cwJ2HCNbzYJt5a3EV83+P6eKsFc=
+       "]]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw92Xk8Vdv/P/CjUZ8kzRodlCQVaZDIi4QGdYiMccwzZ3ZO42mSolISTbej
+Ac3nqhuiHKXSLFHqNmggTdJN0ujr9/jt977/3Mfzsc7a7/1ay957rZVhSKJH
+eBcOh+PclcP5f/+n/1Tind8qdnLw/1Vvb5bevmhg7y6MW+x/JIfODd/YlXG7
+/Y2aZ1tu9OrOmIP+B15XLtzRg3E3rB/8kPeVq81YGwa1PdJK/+nFWAfX19Yg
+h9ebsR6cNuyelfNZh3F/9K37J6gkW5fxQJzLEZi1GekxHgy9yB/Wmb/I+nBx
+Cqi0fNSP8TCUT3YadaGoP+MReP20KGrM3gGMR2HYrCm3fJQDGXOxQCsrwjlq
+EGNDROdvWPHMYzBjI+wx+ZjRD0MYG2Nvy6bU25P0GY+G/gQnz5+GQxmPwRhV
+XsaqwcMYm2BQwN150/oMZzwWzSFezlo9RjA2RZTVPv5lzkjG47Du9oVd0b/J
+ZojvWTLw/c9RjMfjjdaw4c6/DBibw1qV8tN2NZfxBDg5l3+y1zJkPBG276b5
+jV5PnoRZXjvsn/c0YmwBpwKb4LA0xkoLPHnaqpPfz5hpt8Sd7+1BB7IYKy3R
+LC85PGvUaKZ9MlJjh22UHWGsnAzNud7XLCeMYdqtcFIlne31D2OlFfrkr/ly
+yc6EaZ8CJ7/JGYFXGSun4I753JJ+i8Yy7VMhVE8ovvOQsXIqrl1y9NvON2Xa
+p+HirTWWgW8ZK6ehfnZQGETjmPbpiNDOdXT5yVg5HVt2++WtX2/GtFvDw+iY
+Qkd3PNNujZyK9iFfsxhzZmC9WLHC28icaZ8B2Te7uW4nGXNsUHUw98pH6wlM
+uw0Cs18vdL3CmDMT/tG7zP08JjLtM7HBd9rJAfWMObZA4eE2n4RJTLstLnxV
+nuv2mzHHDka2wePa5lgw7Xbg3DF3Fm5hzJmFC0tGVz+pofZZuD7m/lajEZZM
+uz1MWp20JoYyVtpDx8N2ZPNRagf2P5vT37uFMQD+8vWa0GmTmd8D/Q+PMhm8
+grEG2OuY7CgvZ8xxgFSFBXt7WDH9HTDQMVG+az5jpQOWTefOT05nrHGAvfGf
+sWm1jDmOWF/t9uzWsClMf0ccedBxM57PWOmI+m0j+27PZaxxRFjA6lu8j4w5
+s5GQcc2lZMpUpv9s7LkT//7uCsbK2bDIPlS68gpjzWzs9237ckh3GtPfCWM2
+hbUO9GEMJ9TwTnbdncNY6QQ3X5fG/94x1jhBl5MgbbCazvSfg6XfuTtmrGCM
+Oah6s1F5+TJj5Ry4Tvb4FfE/a6b/HIwtOnxzKI8xxxmcn7U5r3cyhjN++LqN
+fFnHWOmMQkPdPzNHzGD6O2NcudfwsUGMOS7YNmx48fMcxnBBF52LP3JfM1a6
+4EKmc0n5WBumvwuMD5+IlMcy5rjiyYtjOYPVjOGKAf3e7W36yljpiu1bjbpO
+sZvJ9HdFn8Jj2WbJjDlzYbr6qe+bKsaYC4tkxaLZI22Z/nNxboV15oMYxpq5
+cDm1f3uPYsaceWh4uE5rZE87pv88mJhcfx7uyVg5Dz32ralyVjHWzENuulfJ
+/HeMOfPRNDVtu+XkWUz/+eC/eeDSmMRYOR+9nlSMX1bCWDMfroMH+pv8ZsxZ
+gJWRfythZ8/0X4D9Fy5/Nl/BWLkAaXF7Ni45z1izAPm6zcpx7Yw5bjgaYK/f
+aziY/m5YOOq5G2wYK91wwPA52n0Za9ww2eY6Z9kyxpyFaMzfsXnUPuq/EN0j
+M9YtKqP+CzGmV7f9q15T/4U46N84U0fHgem/CGnzk3OHTGOMRXi5d/95hxDG
+ykXIbx6J1G2MNYvwKzDbPbmU+vOwyE0xr/YNYy4Pw8YYZ+7Rc2Sux4Or2vfr
+tmmM+Ty0ZjeVPvJlrORhfsSL6jvLGKt4WJbOi7y/m7GGh7Pd0hUuhYzreZju
+LZ+05j5jjjtOumatvdXMmOuOn6V7x8b3ms3Ud4fugKWZOcaM+e4QJIxOyLNj
+rHRHu19Acbk3Y5U7tve0q3MQMda441tEl/jMLYzr3RE1Qdg18Bhjjgc2Gc+3
+2nedMdcDY98d8Oj4QPU9IJliXxM+xImp74GpBl5Wg90YKz1w/H7tHnU6Y5UH
+Plc5ubQ/YqzxwEH7p1ulQ+cw9T0Q8WLsodPzGHMWg6NfHyYQMuYuRv3OZXdz
+tzPGYvRZp/h97SRj/mLseW5mNesaY+VijPhn0vcnzxirFmOOcZrH6K+MNYvx
+S5IVGvY/Z6b+YtReTXGsGsWY44lfMU+rNk5mzPXE8gc6e/bNYQxP8Ay9jg/w
+Ycz3REqs1LEhmrHSE96KD+e+L2Os8gTfWPsSN5WxxhMRK6YKf+6m+p74UdKx
+5FIu1fdC93N1X7NOU30vpGrvsm49RfW9YOXw/K/pW6m+F7YfzRna3p/qe+FH
+ac7KMzcpvxeaFpzJ3aWh/F7Yy4k1ra+g8feC4NvZ+vA7NP5LYLyuMMTkMY3/
+EmQePbbhcyON/xKkJazSsmql8V+Cxu6TSjK1qP4SvGj6s++FLuVfgmbbO2/f
+D6f8S1CoaORuNaX8SxD0dP3yA1MovzdGHDJc/sme8nvjk7BoF+ZRfm8cqDQo
+d1hM+b2h3jHn3/V+VN8bCufpo0VBVN8bo3r9XTAzmOp7Y2thZs9ngVTfG2Xr
+dBMXe1N9H3xZsE9rFtXj+mDa24HLus2g+j5wrLNNMBlL9X0w7oh0apQ+1ffB
+qr4dvKNsfh+E6QZYVvei+j7gz/427aM21fdBh4NV20f6e+T4YkXA5+Sv1J/r
+i99vxEKfgVTfF4ZGzdcyhlH9zt+vDjzrYEj1feHicvGwHo2vyhcbRnx8VzqR
+6vti6s3Kn9pTqb4vznT82lViQ/X90DUq9epudvz9sPIE/0T4bKrvhwGLBt98
+Ts8D3w8NG2ru33Km+n4Y/nr1Xxyyyg+eU3TKEqm/prM96ezG2XT9ej/w7S1z
+Gml8Of5Y9hev/ZcV1fdH9eXvLx3o/uGPkkfDI/zGUX1/9GjmSc6Mofr+SH2U
+/jvRmOr74+gQb/09RlTfH17xHTwtaq/3xzDDrXsTR1P9AMzoMSDvmAnVD4DO
+0on75FQPAYhNdVmSY071A3C/b1ld8ySqH4BzQ2XyiXT/qgCs3rHedfI0qh+A
+r4t0/autqX4ALK0R9JEd/6XIXTf9epQt1V+KEXzFTEs7qr8U+avCHW3J/KXY
+2K9xXir9XrkUsPxqOmkm1V+Kkm0xq+bR+GqWIiUjKUJvOtVfisM/vrpfZJ+/
+QLx1dp+Qwb7/AlG4qiSzwoLqB6J1T/k7GeXlB8L/+/o152l+lIFIOlmWsYWs
+CoRO8uPIF+zfXyCaHLm+KupfH4hIqzdeBXR9ThD+8wk36LCk+kGY8eZsawKN
+J4IAi9P/vKP75QfBwERvQQCNrzIItnMfqU5TPlUQnOdNd7hP460JglPanO0l
+NB71QeiZ32VPEDv+fFhd/PLgPFmPj46C8hG3yFw+boSd6ppJtuBj54d2rRFk
+8PE2fmloLF2fx8eH25XeGVSfz8f77Nvv8+n+BHw8zkvPuszePx/na3QtP9Lz
+mc5H5uWiBB5ZxUdN1+UjrchqPiq5ww52I2v4aPA7Mm4IuYqPuKFv7gSxzzsf
+z/Wz7erILXyItuS1yag+Jxij+wW8saT70wtGwuXjA3+RucEYupaXcZXyWATD
+4OKuvmvZ92MwIrm+eoY0HrxglMnf6uwh84PxIjEkpYksCMZUp0Db3vT3qgyG
+mTL5QS9yejDMfz1wZX+vCkaVz9Hhp8jqYOg86/pfCFkTjIMPPQt0yVXBcKgQ
+LC5m5zsY/VObEENuCcZxC8/epuz7JwQNBant7ZRPLwQt4+vET8ncEJS/vuFY
+x+YPwY67F4e/JSMEq1v8juiy8x8CJxfd/i5kfggaw89YppMFIXBMcP73NVkZ
+AsOmNgtHuv/0EPBuWz9WsflDELJqRO13Nn8IJOWSVXNovDQhWHupn/lKclUI
+WptaT+8j14dAwW3LPERuCYHBLLFPJpkTikPbtXvLyXqhWLSr14LFZG4ozCMW
+TmbfLxahmCq6OrwvGaFYI7P2bmXnPxSlKeqFz9j5D0W3q7zx7PMkCEXYyL65
+F8nKUGSn3IktYvOHgpMleVDK5g9FcoUi6Q6bPxTdGwbJ2PenJhSOf7r9Gszm
+D4V88NNIZzZ/KJ5/mnhKxuYPxY0ivpwdD04YlrrWWV1n84dB73V08ms2fxi0
+P5eXfmbzhyGupiLkLZs/DDOHpTy5R+aFQVGwQ5RH5ofB1HPv8gSyIAzivm9z
+J7J//2G407Bp/Wc2fxgK915oK2Pzh8FGx6DwAJs/DJID369vZ/OHoSpl9KEd
+7N9/WOf7/uWjveT6MNh+FO/MJbd03p/ntxMn2fdfOA7sSb3FPl964Tg++K7l
+Mfb9F46ejdpxOez7LxzNvneL2fchwnHB6dS3ZHb+w7Gv9PwhMTv/4VBoDP74
+svPfef0uCTk27PyHY6j+/hnD2PzhcCq56fyNng9VOKZUDst9QlaHQz0kO6yK
+/b6FY8M6bs9aclU4/olqa3/DPv/h4A44VKbF5g/Hz+PWLUPY/BF4fLfQkcvm
+j0DPWq+jA9j8EXiw8fbsT3Q9iwiof+atPce+/yLwqvrbCRH7/EdgkdlUEzP2
++Y/An713vr2i94UgAuGaC4JcsjICDdOM/T3J6REImffgqhlZFYGxKr2kPmR1
+BBYOP/aZfT9rIpBUdEveTq6KwJeuhYt+s9/7CLSoG4b0oP4tEXh5dMJdbTIn
+EnN11eYc9v0XiW9f25xfsu//SDT9mhR4jGwRiacnPMp8yIjEwaUVs77Q94QX
+iZtm1q3ryPxI8ErdWruRBZH4MH5s9RH6Hikjsatk+V/+7PcvEhzbEy9Gs9+/
+SHiqqwd0Zb9/kfi9b2bBMPb7F4n2QRk/2faqSGR7dH39mtYL9ZE4hWav8+SW
+SMi2bUtYz65/oqCrvVXlTNaLwrrr5093J3OjEFs1IO8crUcsonBXff5CErs+
+iYJfslPpdDIvCukVOfP+o/UUv7O/OK84hyyIAs/MpZ8jWRmFa077bapp/ZMe
+BdMPBpzFZFUUnh4NH3ib1kvqKNSaGg+bQ9ZEoW1txcVyWl9VRaHyYIm/K7ve
+isKVA9nV/9J6rCUK3d88F68gc6IxZXPJkUlkvWhMvLHS6dkEyh+N3NjVeVvJ
+FtEo+Lzgji0Z0eh58++iJlof86LxbcnJil3sejka4liXZDeyIBrv2jp29Ccr
+o+HuO/KfN+MpfzSKH19Iv05WRWPcJeVANVkdDYPwxAPpZE00VupdMuaTq6LR
+LNbUDSLXR4NzNrDjuBnlj8bJ5RsXGpE5Mejy6ekldr2vFwNVQZvx37Sf4sbA
+rNfkCbW0/7OIwfGSt5mfaL+AGOjH+M3uQ+bF4PvprGYb2p/wY5B0WvfjGtpv
+CGIQl30k5gvtR5QxWGb8e7uAnB6DzftqTvym/YsqBuee61zZQlbHYMPiKdcG
+sfubGKS8/1mxjfaDVTGYknC96ReX8scgvvfi8jBySwyeF/8eXW1A+WPxnLey
+2yKyXixuj+ldV0/nI9xY1G3b9CyZbBELPedXDTPIiMVy3d7du5B5sVgl7OZR
+MJLyx+Kw2LXBnSyIhcUk59RHIyh/LJ6aJ0fNIafHYkz8rM1ZdH6gioVwzIk3
+Gtr/qmMROalYfWMo5Y9FfdVhkxLaj1fFovtxx+z9Qyh/LBxOWXusGUz5Y9Fc
+ocqSDaL8cdj1ODV7M+239eLQU32x8fIAyh8Hu5ojN7hkizi4ay81yKbzF8Th
+zvl3shFkXhzklmXrVP0ofxwkz/JnDScL4rD6WMKwzXqUPw5+RlWSu30pfxz2
+ClY6Tyer4rAk5XRlHp0PqOOQP9zUaQxZE4cZEcHVI8hVcRhs8fGLObm+8/rJ
+hrMK+1D+OPRZHjFyMpkTj3E1jvcydSh/PJ6sCh31tDflj8ewWd38e5At4pFm
+eTa3F51fIB7vm6Pe/qbzDV48yh03Z9X3pPzxmJP2w624B+WPh8fm0MvbulP+
+ePyuKiqK70b549FofWa6b1fKH4/KGWdOTu9C+eOx9Mn1Gns6f9LEo2yJaJ0/
+h/LHw+9rL78tHXTeFY+1h2pzH/xh3BKP4IeigdZkTgJm8ctr1b8Z6yUAp8r2
+2pG5CSh+uPbVw1+MLRLg4ls4UUZGArwWjDfoQ+Yl4MWYunPZP+m8LAG/Sgc/
+7k4WJODUjZSxPj/o/DIBob0CHuz4zjg9AZpFR1dcaKfzvAR4z3h47d03xuoE
+eLptfa9L1iRg4+bS/CltjKsS8Gyifnd/Ov+sT0BSqMG9lXR+15IAu+FfR2/7
+QvkTYXYicX/mf5Q/EbtfFBUkf6b8iRCsX1sU1kL5E3Fp2M4J1p8ofyKmr1h4
+rk8z5U+E0YdwrdYPlD8Rlu+tnb6/p/yJeGk4t8KUrEzE02h3u83vKH8i/nYz
+jjMkqxJhPyC8+OVbyp+IkTnPZl0laxIRYVpSW0KuSsT9LpukanJ9Io5tjG5N
+J7ck4vqmX8ULyRwBZM31h140MdYW4IVTVoQLWU8A71v1pevfMNYXwPm+Wu8w
+nY9yBXh9MEH6dwNjUwE+GAjtX7ym8RKgYtXNvT9eMbYWwPFZ4JaxZAigdeBL
+UMxLxq4CmPjJg8tf0HgKcGJkntVYso8A5pf/a8iop/EVwC78e0PHc8ZRAsR8
+mjYkkiwQQPnwT/0NOh+XC/Dfifmxk8lKAf4UT7+a/5RxSqf7e2TPIKcLkDne
+8sLHJ4yzBRgwdd2nRrJKgCD7pJn15PzO+5N82/OerBag94y/L7SRiwRodjSQ
+stfTCPB2QKHuRXKlAHvGbBQuJVcJsKUisP+NfxnXCeB+b5BIh1zfOV7ukmdT
+6Py6SQCOdk8z70c03wJ0y/10ZEMd43YB2m2Ch99+SPMvxPEhfq2TydpC3Hiz
+6+3ZBzT/QrQkXlTPJ+sLoaXTo6K5luZfiIYCQWoW2VQIu2DR1NlkCyH43FST
+LzU0/0Isb9nQ5wQZQuhGmDSKya5CrOuRlbqIzBNi9tVeBSD7CFFjUfbSicwX
+wnrE3ENe5KjO6918lBBNFgiRuqC3QkqWCxHVVuGTSFYKcfknL34hOUWIHTs/
+De5DThfCcUdG3tH7NP9C9Hq1vMGErBKitqy2T1o1zb8Qc27azHl9j+ZfiLm2
+PwLsyEWdPpP36kgVzb8Q+d2K95mRKzvH+6D7n/t3af6FSJryi3eYXCdER5G8
+Wxa5XogTRW9lOeQmIZJH8e0byS1CDPHtcvczuV2INt+Frz6ROSJ4aYVGPyRr
+i3CW8+ZsHllPhPiF7rqRZH0Rvm4VuHPJXBE8919695z+PcVUBHlDapiabCHC
+JWPzbVlk687+glSrTDJEuK8+cOAQ2VWEfn8KTheTeSKkKLdnvyb7iHC49ZJ2
+M5kvgsl13o835CgRbJtkZ++RBSK42T1xOkWWd7bPbC5YS1aKUO6ZcWcxOUUE
+l6z5C0eT00UYlsp9/OU2zb8IYbzSkdfJKhG61VpmppHzRbh7xmPMHLJahLgu
+lmlfbtH8i3Bui8Oa/WSNCO3pfQRu5MrO9r6+W/TIVSIENwSlfKF/36oTYVza
+gFt/yPUi7GzJSLGi3zd15vVp2bGZ3CKCg0W661dyuwjJQ/19+HR/HDFszvTN
+LSRri2G/1nvDO7KeGE4rtGw/kfXFCJg52fgKmSvGH5PovyVkUzFS9Spt+pAt
+xHj2NaNbDtW3FuO8zaYzbD6IUfJs9bZLlMdVjNKBwrvTyDwxqqLWbJpwg+Zf
+jAnpB7YakflirLXxPDqCHCVGYd25p/3JAjHejrznxSHLO/Mctc9tuE7zL8aW
+qz5fK8kpYoze9vxpATldjMzkK2NOkLPFWBgrf3uerBIjvaysqp6cL0Z+hNke
+9n7UYgg3rr8WQi4Sw301Fh8ja8S4d+x98ltypRgn8zU5PpS/Soy2vXHjV7Hz
+L0bz/Ynum9n5F2P98v2nWDeJIb96bsBGcosYuyLy77BuF2POsd7G28kcCdxe
+Xh94nKwtwZjuA05Xk/UkGDXKWVeL5ktfgp3y5JoJZK4EUTqNE3hkUwlGNsU6
+h5AtJJhw5uXsYHb+O/3gX88F7PxLcGB1/HxzsqsEpXrPXvYk8ySI/Hea/ye6
+Hx8JXGtrbz8l8yXY1rol+Dk5SoLqHjWFbWRB5/22BZ8wouvJJajT/qETSFZK
+MNuoW/MhckrneNTtq/tATpdgx+WXq63Y51+CQzFezezfu0oC7bHm99Ts8y9B
+4+zacW/Z51+CN2btWob0PimSYLLdlG4BZI0EN3ctwhpypQSFlYfnXiJXSZAb
+5HGqC/v+l0BUpvVjFvv+l2DuqowhEvb9L0FCtamOin3/SzBIx8ztEvv+l+Bw
+oHHrv+z7X4qhmcMPst8DbSnwJesEh75HelJs+t/XwAFkfSnqf266y36vuFJM
+nrmpmzPZVIrhaTm3o8kWUmgZHuNnkK2lmNJgtqqcDCl+zRsx6D+yqxS3dy4Y
+bUzfS54UG0+q2heTfaQIirM8uIHMl8K2qveR8+QoKXZPcl/ZRhZI4WHXkWlL
+32e5FEf1XhltIyul+L2s2rWZnCJFsu91tTd939OlWNEebnGN/f5L8XdFNGcq
+rQ9UUnh6dhTuJud3jsesi0YdZLUUZRmPN9rReqioczxPHbsZQtZIkdL9+MkE
+cqUUgUa+2WHkKik+PJF3mU+uk2LEc4sEM3K9FI4T1ujpkJukUF+0X9lO9Vuk
+eKz1NqmN3C7FuuODMv9Hv+fIkFTyRDSNrC2DsujVYzlZTwb9s2mRd8j6MgT0
+rJk+mdaDXBkOj1EU/0U2leH+7FMyXVpPWshwL9ro/gqytQz95fkZjWTIENt3
+y+B5tD51leGv1ofOeWSeDFfeVbh2kH1kOP6n4eZiWt/yZZj7KnRRLjlKhjc2
+68K/kQUyuH/XnedM62O5DJ7l6qZ0slIGm5q6mTXkFBlEtxdq9aH1dboMp8UW
+e63J2TJ8bSpo8CKrZDDb5XoznJwvw/KZ+6JjyWoZ+mTVHmRdJEP1LfW8OLJG
+BvGtdHMxuVKG+moVdwO5qnP8TkyLOsKu/2W4Wr5FVMuu/2X4UPxBexDtF5pk
+sDu/vSKE3NJ5vRN2B0rJ7TJEHp8ay6X9DScJ/jYx/0sjayfhRv2UwN9kvSRI
+Nz3miGi/pJ+Eyw8cvjSSuUlYMK231If2W6ZJ+BwRPeES2SIJT//yO2ZA+zXr
+zuvr3RoeT0YS3Moyh+STXZNwYYyBeRWZl4TrGxJ035B9knBRXjG3hd3/JeFm
+QfVq1lFJ+F/XJaIPZEESMqZmmzSR5Z3tvhfjGsnKJOx36PjMtqck4dPZ5Dvs
+9dKTcN7/insHOTsJW/qNPjeY9qOqpM7vh63AhpyfBPseaWUJZHUSXMsi6wrJ
+RUkw/KhI16f9rqaz3uV+g7aTK5NwLSlDZxTtj6uSkJZZEFNErktCa4rfwCW0
+v65PgiCs56z35KYkhHmJp8fRfrylc363bvK/S27vvB6MzunS/p0jx93G31rj
+yNpyfORt2T+WrCfH+3dPi3uQ9eXQvRLr8YCux5XjyIENyGH3/3L8TNswVEi2
+kEPSUf5hAdlajtr3r69akyHHltr6H1PJrnKEfv/2cjaZJ4eDlY5OMNlHDvus
+lUPSyHw5dKIth1aQo+QIUx5K16b7Fcix30V434csl+Ns9839zpKVcuh9TjMc
+QucbKZ1e823USnK6HNfDjxo/J2fL8WNIv35T6XxEJYe878u3MnK+HF2e3EIG
+WS3HIMPePrvJRXLEnzPZvIqskWNoqaWfM7lSjtIRdqPaqV6VHDedk83/ItfJ
+UTHdx9CJXC/HkweGe9soT5McBp+fmpSRWzqvZ2Zw5BC5XY7evdu35LHzr0DV
+iq28K+z8K3Bw3cBfbnR9PQUu9074so89/1EgOS9m5XcyVwH/meNsA+j+TRVw
+VUz/6yLZQgGbIaEWI+m8yVoBachoeTQZCtxbLSw5THZV4GrN8AmPyDwFvoyK
+etxC9lHg+bb/vL+R+QpM3S2I/UyOUuCaQ82+V2SBAg1/m5dXk+UK7N5d8eIy
+WalAxSavqGJyigLbMods/4ecroBx84CjbHu2AuO/6xdeIasUMJf+UNeR8xXQ
+vj+rhb1ftQLO8XlFOnSeV6TAgPritWZkTWe9q9uPzCVXKvBneotvDLlKAYP2
+LO0t5DoFrB6Vdykg1ysQa6RyrCU3KdDBt1Jo0fliiwIli698nkRuV4DT5KS9
+hMxZhjZDrUlrydrLcD/kQ95Rst4yzLF/4HGDrL8MuqfWTnlF5i5D0Np/AlvJ
+psuQvGT38I5O/x/Alzck
+       "]]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw11HtUzHkfB/BfVHQh3VOp6aai+12kd5cZ3aZmpmmm6TLPVKjtRGRbCe1v
+CyXlbtcthiJrXVqx7IVmaZcN9WCXEDutB6ullNXTRXk8Zz/zO+d7fud13t/3
+7/3fzyG7ULRoAsMwwx/O/9+aZ5D/X33jpwz+kTq8M16vY4V0Avl1uM3uyI6T
+HRPJQ+H7+I9tf+XrkBkMPjDuHrqlS9aGpNbXYHbGZPJk+Lm/1/nkpR7ZEI8r
+rFd2lxuQp+H2L1v1l9tPIZsgL9k73vnyVLIZeh49i1odOI1sgQn2Fdl9hsZk
+KyxUlXblPtfYGtl7/3r2sNWEbIvTbx124Ygp2Q5ai/S7q6rMyBzYdEX+cGSp
+OdkBA/u2eG+QWpAdMefTCzWWUZZkJ+x3O/g119eK7Awrz2jxqMN0sgu4nIh4
+R3Nr8kwoEluu1evbkF0x0C5YnzfBluyGKc1u6tR3Grsj95jteMbQDPIsTG3c
+0psxaEeeDcMUy04M2pM9MOuB0a6h1RyyJ25qHc39akxjL0i+On7Kk3Uge6M0
+T0v58URHsg/8Gw17iyvJrA+syptuuxo6Ue6LwaMi48+2kVlf/K0821ti6Uy5
+H/YOXbefdIDM+iGsVXrGycWFcn9c6Rjr//kEmfXHwEelCS8CZlIeAGuZfE7F
+RTIbgKDjDzxrea6UB6LE8V9H33eQ2UCceWUXe0fmRnkQhgraLLX+Q2aDkGNY
+UVe+1J3yYOzMiZgsGiazwei+E+6Wv24W5SEYd/wz7Wej2ZSHYMwtMT97H5mZ
+A3liTW6oqwflc6CWRFbENZOZUBwwc/5zc7gn5aGojz11YOINMjMXp2Sl5Q2p
+XpTPhd5AXuKSp2RmHlIFikuyIm/K5yFmcVnLovdkJgxnmxxv83g+lIch4Fqw
+2/MaMjMfp9rWNG6/o8nnwzPvbk6MtS/l4ej9qf/LSVlkNhzK0uvqjkZNDlRW
+LVyq7CUDuBzmcqwk0I/uA3bTM9qla8iqD3nbe4OwK2QmAkuzU4pd9f2pH4Hi
+nEBdCyGZjQDPI7dh0m6yKgLRPtbuo4/JTCTOzq5b1ucSQP1IOOJJwZMCMhuJ
+FRV7gu82k1WROP+jvuPVETITBcsvDS6fiwikfhSC43pGDlWR2Sg0RIwxNR1k
+VRRiJr2VfGwRRP1oPH2m91N6JhnR4IbuiotqILPROHqLp+/xF1kVDeOYNb6W
+fsHU58K+7PNHOqvI4OK7hzN0hlvILBem36Tn9+uGUJ8Lq/XLd/fxyQwPkw1l
+z97sJIMH35W7V40/JLM8vIj/iGvkNIf6PMhPeEyamU9mFqAhTB0Z+TUZC9Bs
+ykbkDJHZBVhVZ2JSFR5K/QU4dFV78+kNZCYGG7ouZnfeJCMG71dqOWmZz6V+
+DL7f8ybLLYOsikFZR9W9hHoyEwuzqupNS3rIiAXjOnlCte886scidfSjrMMl
+ZFUs7hmtrjrfQmbi8PyWt8F13TDqx8HtmpHJ73wyGweWd5wzuJOsikO5qKTd
+pIvMxEN2sqws2Gk+9eORlLVpxuJ8MhuPcu0zPQe/Jqvi4bKtPuHpEJlJQLrt
+2fOBCKd+Ag6Zrj22pZLMJuDp3qSzr9vJqgT08DffnWUA6vPRt2NG/iMvMvg4
+/s11g80iMsvHt0uHjod+Qlbxwen4Jbl7j6afiGFnhZi9qOknonXrlCyLbk0/
+EUsqpecOa0dQPxHvf3XzdnEjM0nQce5XHIgnIwnRDi8+Nyoks0mordpxo3S7
+pp8E3nPD7X+c0/QFqLp3/0nsfTJHgCAv0+Hmd5rvCVAy87S+MyfyHysEaBmK
+N6+LIrMCXLXe8IVDLlkpQO/LQGFzNVklQGG7kX7yKbJagH87cHKZ22RGCP2e
+uN++fUvmCLHWIah2zfQo2heio3/oTHQYWSHE79/c2DYli8wKgZvc/lvryEoh
+/B+cLqs5RlYJMTYcFhlyg6wWonNCgMWtPjIjgrELYy42jaZ9EcZfLHrTEkSG
+CJu+XDbPPI2sEKHB3yBPspbMilD5enpbpZKsFCGsMzfz9BWySgTD1tHCX5+R
+1SK0Pdgd+F6PS/vJcD8xFhniSeYkwztB8nelgIxk6HiaXHm7gqxIhsd20Y7K
+L8hsMrTtuDoR35OVyVgjfvvA8XeyKhlzS5ZVzprIo/1k9NTyx4WuZEaM4Yft
+nVviyRwx/B46PbpXSIYY9TrXntrsJCvE2Or0mxn/ApkVI72U553ZRVaKIdlj
+9yb8w3/pn30xdp3YFPbSiawWQ2+hQ3fGAjKTgo0+02ZsyydzUpDQxZ6vqSUj
+BffcnrdJm8iKFJw5MpQ+fpvMpqB/RXLblrdkZQrql8W42FnF0H4KbnS65FwM
+JatT8Oq3/sLyTDIjgX1Vj1Y5S+ZI8MR/wL6jngwJDjxZyV91layQwOB51MLq
+v8isBCpOdJz2tFjal2DQy+7PxwFklQQ2tpxh3TSyWoIhJ6lc/imZkaIIrosv
+NZA5UiwXHxwY/YUMKU62rrj4speskMJzsGRDgWkc7UtRkqCnnRVMVkpRYWzz
++vs0skqKkB32oavXktVSxDTFPG08SGZSsSw6iif+kcxJRaTuu+C9f5CRCs7r
+z47smRhP+6loL3evWelMZlNxv6uxIJNLVqbi1Yi+1qrFZFUqVOfu9IxWktWp
+WLze+rH1cTIjQ1BB3SaDm2SODI75pdFMPxkyBBYL/DgWCbQvw+qi/XtXzyOz
+MlRvPt88lkNWymClTozOqiGrZDDQNfvY5xxZLUPLK1eDu4/ITBp81JfqftDh
+034aqtf1Xl/iQUYaVoy+aaoXkhVpCBgZ6YkpJrNpUA5cL1ryBVmZhnMHbc6H
+XCCr0rDh6idxj++R1WkYGdn64+eDZCYdFVx5yn6zRNpPh2n2csEsPzLSkSOa
+/llZElmRDunr/UldBWQ2HQ3F37HbqsnKDzmHrzN2jKxKB/N6iXD3NbI6HU62
+Zxwm9pCZDJzaHlcxdWoS7WegaMFF3e8CycjAKuXGvPEssiIDXvnmQ647yGwG
+2jIrZe1XycoMCLnV53a+I6sy8Mq/o2nAQkD7GUiILrIY9iAzmXBP05YsBJmT
+CdNGnlejkIxMHMT+KRFZZEUmsmr9ivYVktlMNFpfOqyzlqzMxMP8Sxu/3UhW
+ZUKUu25P9y7NfiaKnVrr6g5p9uUIcrss1T2p2ZejIkY63+eCZl+O/qYL9z2v
+aPblcDgsijJp1+zL0Vr632N/d2r25fg0+Yfzg080+3JM1Ys1T+7T7MvB3BDb
+rB8V4I9bfaeHX8phtr6lRKQlxP8AFkIthw==
+       "]]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6], LineBox[CompressedData["
+1:eJw1zQtUzHkfx/E/KhOtlDZdVOPeRUYXXU19aqrpMtU0za142tlSiNy2lDb8
+XdLjkUtrQ64TYuUSyqokk2cp61LtKQ+6GJ5itdIStg7l2ef4zv+c3/mf1/mc
+9/lOTlwhSR7JMMzdv9///7rvhXKxucnHv/y/SOu/pJzTWS3/SP7Tv2nb1pHc
+2mHygP83h9efu2oxApQj8v3e29kPR5L1YFWdLEw5okfm4MVg+8LCVAOyEdYa
+OybZ8Dnk8Uj9V2KkifkYsikOh+a3bnw/lmyG1v31wevaviKbY9bwvUzjBmOy
+Bdy/L32q7hhPtsKCNT1pOx6bkCfBzrQ3qvGxKdkWDgYlL1M6J5C56AvvGJZ0
+m5EnY13jzgO7+74mT0Fb7R5j6yFz8lQE7yr+9MdXFuRpsHQOkn6cbEmejtCE
+liR/byvyDNyz3dB+NtaaPBMar/tdHqsmke1h3xTv0VhgQ3bASte9wpTLtmRH
+fDu47Ps/2uzITugVGx4/uYlLnoWu16KiGovJZGeYM9VPnS/oPBvbjt6a8mfo
+FDIP6241Jw4803kO+M9LZ/iun/rF7Bx4zBOXnbWaRrsLJJ1PfQIqyawLfjmh
+dOyVT6fdFRPDTo4q+UBmXbE1oyzxH/tm0O6GgJxlb8d4z6TdDbPCB7KOtZEZ
+d6R28fssNtjT7g6T65cLk6Y60D4X/olThjMbyOxcBFzQjBMtd6TdA8yaj4YP
+zJxo98CV335WG9WQGU+keszhvEiaRbsnurzPfV5g5Ey7F6Q7oy+kXCazXhAM
+SVI+Jcym3Rsj0o+GmRvyaPeG5Yds0dlyMuODMSXeLvN5c2j3QYnZr6nmuWTG
+F+W7z/P12nS7L/TPPVRMdnGhfR4eGDzbl5pHZufhmbkH09Gh2/kwfFBVmeHu
+SjsfwqWJ5q7byYwf8hRLDxs/0+1+4PT9PjTW2412fxwx2j9h+m4y6w8fx899
+yhe6HTCXqF6V+LmDiNWehyrG7CWzwCbpNo+tvWQNUPRm0cqJwXOpD8CdxS2e
+1w6REQC/XR9s17wjswHwOtOXC5EH9QHoDRHcsDpBZgLR5cT6jPpERiD4Z75N
+HYj1pD4QV8Q+HQNnyJpAdFwO4Y3S86JegJ9XL7YwX0CGAK+uVmXOqSCzAvjy
+WpUxRt7UCxAx0+R95kIyEwRh9a2q4zVkBCHvL8+4FjMf6oOQszjniWEaWROE
+2oHkyqCbZCYYzb9v+SHXxpf6YNzi1NvdyyCzwRiepmq2vk/WBKN3SfGlVTPm
+UR8Ce+mqpffXkxGCPk6mzOU/ZDYEppUX84t4fOpDMHUvBvT/SWaEkPDslRla
+MoR4OO+q6rmXH/VCKD4MtisKyBohbK69+bXhJZkJBZNjtNwr0J/6ULhEVSSc
+PEBmQ5F/tUdt2k/WhIJ/e/PT2umgPgwzxhZkv4shIwyHc64PO64ns2FwynNc
+l1RK1oSh58wj5ugDXR+OGuGNxM6RAdSHYyOOOU3hkdlwdO9vyE2dT9aEo7ip
+0fNKHpmJQP5wdcnoCl0fgYw+y/Z4ra6PgEWp/k9lRoHUR0C/oK9Sz5vMiPAw
+9dUvymQyRMhdO+J0aQGZFUG5gLNl8JquF2FDwqLGoB5dHwn5gwNZ+eYC6iNR
+VsQfaAoks5HYffB4/IQVZE0klp0/6yQ7SGaicNeJF7i/XtdHgRfkmdXZr+uj
+8CbbdqEDN4j6KJicaLHNFpGZaHz9eZJlcxYZ0Sh13vHZuYTMRqMhRXRpV7Ou
+j8YavVDluyFdL8ZE9fe74hyDv5grRnrBpYs1cjLEsBqfwLXeTFaJMSl/0Y7V
+ZWRWDNFvefy6NrJajDcc62ADTgjdE0NyTnYtwJ2sFcNuaG93uorMxMC029b2
+WD6ZGwMP7a6LdyvJiEGv2+iMgS6yKgYCWbvEwURI92Pw9sK/mxP5ZHUM6nYU
+FZ9aQtbEoGVR+dzBQrI2BqcPnM5W3CAzEpg5+FRpXpO5EnQVKi65WIfSfQmc
+ym/2lwjJKgkMDBRKi3QyK8Hhg4XqzWqyWoI14wpN/nuXrJFAfCfVyG2QrJUg
+r3TRnlXTw+h+LNzrcP5IDJkbi7pcxf6adWTEIrnC+VTjabIqFn3L0553tJLZ
+WMx+J8h6PSKc7sfCZ8uoRs5ssiYW4zZ/anKLJ2tjccDO8n36VjIjhf6NO2mN
+l8hcKQ519mwSPCFDCtUpG//7YyPovhQejT9sX+JFZqXIThJqjJLJaimuPq8o
+OldA1kgxmHBkdUAtWSuFb1h8UW0PmZFhLM9vn81EEd2XoWl+eUC8gAwZXDdW
+LE9fQVbJUB6yj7fyIJmVYXe833ZZPVktw/wLafW8frJGhkhlVZyRXSTdl+H9
+zdQfB8PJjBwbxRts9DPJXDmqpj4P8DlOhhzj5q8NVTeSVXLUOTwa9vpEZuXo
+aQq7/dk+iu7LUa0dxb6UkTVyjB6sFXVvImvlsNizfFtnGZlR4HpCVtL1djJX
+gaCOitbvDKPpvgI5CVvSX80lqxS442i3h5tIZhXIEiZ8Z7yTrFYgsOlJmqaK
+rFEgPuyTb2A3WavA6orzjVKOmO4rIbPpvzvalsxVQtG7/qd6NzKUaPkxvqE4
+jKxSIvKm5G3xN2RWiSG55ExTBlmtxJKzZTtd8skaJbzcxS/rjpG1Shzq28TJ
+qtLdj8OH0tYyQZPufhzapI/7jV/o7sfh0RUv4a0hMY405ekZBsfBLPd6lmRE
+DP4HFtN1tg==
+       "]]}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
+       AbsoluteThickness[
+      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.006944444444444445],
+       AbsoluteThickness[1.6]}, 
+     {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.006944444444444445],
+       AbsoluteThickness[
+      1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0, 0},
+  DisplayFunction->Identity,
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLines->NCache[{{10}, {2 Pi}}, {{10}, {6.283185307179586}}],
+  GridLinesStyle->Directive[
+    RGBColor[1, 0.5, 0], 
+    Dashing[{Small, Small}], 
+    Thickness[Large]],
+  ImageSize->Large,
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0, 100}, {0, 68.02065867140874}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{0, 0}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.7840245244509993`*^9, 3.78402458298173*^9}, {
+   3.784024681018528*^9, 3.784024724014717*^9}, 3.784024763657193*^9, 
+   3.784025128469058*^9, 3.7840286079645*^9, 3.784030682714657*^9, 
+   3.784030986859168*^9, 3.7840310517035103`*^9, 3.784031738942706*^9, 
+   3.784033066670073*^9, 3.784034753842865*^9, {3.784272235900868*^9, 
+   3.7842722630282393`*^9}, 3.7842749124056396`*^9, 3.7842750627494917`*^9, 
+   3.78427668215551*^9, 3.7843806023755198`*^9, 3.784451016499971*^9, 
+   3.784530397353044*^9, 3.784531929634606*^9, 3.78453235729887*^9, 
+   3.784884961499715*^9, 3.7849543519552813`*^9, 3.7854910723540783`*^9, 
+   3.78557716337705*^9, {3.7855772956804867`*^9, 3.785577315130979*^9}, 
+   3.785578623318103*^9, 3.78557900539783*^9, {3.785582413631228*^9, 
+   3.7855824216214457`*^9}, 3.7855868279154243`*^9, 3.7856511175069427`*^9, 
+   3.7856641873039217`*^9, 3.785664412783832*^9, 3.7874854392390957`*^9, 
+   3.7876386260384903`*^9, {3.787641005544148*^9, 3.787641012897567*^9}, 
+   3.790513992227169*^9, 3.790514195952261*^9, 3.790515738629047*^9, 
+   3.7905172311028357`*^9, 3.790517358478238*^9, 3.7905176112892027`*^9, 
+   3.7906748015614367`*^9, 3.790676823942395*^9, 3.790677332128187*^9, 
+   3.7906811050375443`*^9, 3.79068135550065*^9, 3.7906823915587473`*^9, 
+   3.790683494366438*^9, {3.7906838054275227`*^9, 3.790683813364122*^9}, 
+   3.790686931796153*^9, 3.79068796393581*^9, 3.7906886876827908`*^9, 
+   3.792737558455082*^9, 3.792738183632942*^9, 3.792741309549464*^9, 
+   3.7947184513028927`*^9, 3.794719765229661*^9, 3.794722835331677*^9, 
+   3.79472312441603*^9, 3.794724693465*^9, 3.794739966613367*^9, 
+   3.7948007130625143`*^9, 3.795926493678461*^9, 3.796351309024767*^9, 
+   3.7963549529113903`*^9, 3.796358314059081*^9, 3.796359716754693*^9, 
+   3.796363030766136*^9, 3.796364395606512*^9, 3.796541394435419*^9, 
+   3.7969894721500483`*^9, 3.796989671498329*^9, 3.796992598608364*^9, 
+   3.7970717449569407`*^9, 3.7971414868973722`*^9, 3.797155163020959*^9, 
+   3.799979555509055*^9, 3.799985812894738*^9, 3.799986286414846*^9, 
+   3.799986605201033*^9, 3.801295660013245*^9, 3.8012961971012983`*^9, {
+   3.801296875682745*^9, 3.801296881207263*^9}, 3.8012984219906797`*^9, 
+   3.801299425819889*^9},
+ CellLabel->
+  "Out[112]=",ExpressionUUID->"3ac3f42c-1446-478c-9f02-6c3f715125d1"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"t0ampsdataall", "=", 
+   RowBox[{"Table", "[", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"data", "=", 
+       RowBox[{"Select", "[", 
+        RowBox[{
+         RowBox[{"mysxscase22modeRD0sh", "[", 
+          RowBox[{"[", 
+           RowBox[{"index", ",", "j"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", "i"}], "&"}]}],
+         "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"ansl", "=", 
+       RowBox[{"ansall", "[", 
+        RowBox[{"[", 
+         RowBox[{"index", ",", "j"}], "]"}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfit", "=", 
+       RowBox[{"NonlinearModelFit", "[", 
+        RowBox[{"data", ",", "ansl", ",", 
+         RowBox[{"{", 
+          RowBox[{"x0", ",", "x1", ",", "xm0", ",", "xm1"}], "}"}], ",", 
+         "t"}], "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"amps", "=", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"x0", ",", "x1", ",", "xm0", ",", "xm1"}], "}"}], "/.", 
+        RowBox[{"cfit", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";", 
+      "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "amps"}], "}"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"index", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", 
+       RowBox[{"Length", "@", "modes"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.780651215350163*^9, 3.780651313546767*^9}, {
+   3.780651366789349*^9, 3.7806514272776327`*^9}, {3.7806515983677473`*^9, 
+   3.780651598538396*^9}, {3.780651790479979*^9, 3.7806517908408337`*^9}, {
+   3.780658216935227*^9, 3.780658305258608*^9}, 3.7806603184820547`*^9, {
+   3.780662324798668*^9, 3.780662347922201*^9}, {3.780662574847891*^9, 
+   3.7806625914564657`*^9}, {3.780808669521875*^9, 3.780808760944168*^9}, {
+   3.780808792482709*^9, 3.780808838177062*^9}, {3.780808891406556*^9, 
+   3.780808902480772*^9}, {3.7808089430189466`*^9, 3.780808946972209*^9}, 
+   3.780809057392706*^9, {3.780809107939711*^9, 3.780809141367982*^9}, {
+   3.781855605567459*^9, 3.781855610847719*^9}, {3.781855754012388*^9, 
+   3.781855755208273*^9}, {3.781855819643965*^9, 3.7818558224902*^9}, {
+   3.783325822874749*^9, 3.783325858130108*^9}, {3.7833271885686903`*^9, 
+   3.7833271887325287`*^9}, {3.783331448057081*^9, 3.7833314489690647`*^9}, {
+   3.7833314827321777`*^9, 3.7833315017241983`*^9}, {3.783331550962682*^9, 
+   3.783331575836596*^9}, {3.783331606902872*^9, 3.78333160877241*^9}, {
+   3.783331658291823*^9, 3.783331664732849*^9}, {3.783331732186399*^9, 
+   3.783331773697101*^9}, {3.783331866669449*^9, 3.7833318741751347`*^9}, {
+   3.783332005549807*^9, 3.7833320416290894`*^9}, {3.783332107820417*^9, 
+   3.783332121214839*^9}, {3.783332153772459*^9, 3.783332157384798*^9}, {
+   3.783332300264325*^9, 3.78333230652602*^9}, {3.78333234928224*^9, 
+   3.78333235255939*^9}, {3.783332553375717*^9, 3.783332553608099*^9}, {
+   3.7840077871681433`*^9, 3.784007839641217*^9}, {3.7840078896502028`*^9, 
+   3.784007897789222*^9}, 3.784010873133605*^9, {3.784011007367366*^9, 
+   3.784011011798514*^9}, {3.784016830798374*^9, 3.784016854851472*^9}, {
+   3.7840171064244337`*^9, 3.78401710821238*^9}, {3.7840173116629*^9, 
+   3.784017323286153*^9}, {3.7840221428207006`*^9, 3.784022146414266*^9}, {
+   3.78402221725004*^9, 3.784022217504258*^9}, {3.784022278205883*^9, 
+   3.7840222927818213`*^9}, {3.7840231774379377`*^9, 3.784023205089924*^9}, {
+   3.7840232497374353`*^9, 3.7840232524367123`*^9}, 3.784023283244182*^9, {
+   3.78402481064734*^9, 3.784024811226666*^9}, {3.784024995905851*^9, 
+   3.7840249972110357`*^9}, {3.784025090922542*^9, 3.784025093742702*^9}, {
+   3.784025136846437*^9, 3.78402517442352*^9}, {3.7840286139906893`*^9, 
+   3.784028615074128*^9}, {3.784028736387385*^9, 3.784028739286831*^9}, {
+   3.784028914775527*^9, 3.784028916774022*^9}, {3.784028955123665*^9, 
+   3.784028975311419*^9}, {3.7840306785395527`*^9, 3.784030679247593*^9}, {
+   3.784033370996297*^9, 3.784033375602744*^9}, {3.7840347579018183`*^9, 
+   3.784034770020143*^9}, 3.7842749467334948`*^9, {3.785577319304596*^9, 
+   3.7855773208715277`*^9}, {3.785582429473043*^9, 3.785582434442622*^9}, 
+   3.8012968865333977`*^9},
+ CellLabel->
+  "In[113]:=",ExpressionUUID->"3cb8dcb7-b80a-45b9-9bf8-ba57292044a9"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"t0ampsdataalltest", "=", 
+   RowBox[{"Table", "[", "\[IndentingNewLine]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"data", "=", 
+       RowBox[{"Select", "[", 
+        RowBox[{
+         RowBox[{"mysxscase22modeRD0sh", "[", 
+          RowBox[{"[", 
+           RowBox[{"index", ",", "j"}], "]"}], "]"}], ",", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"#", "[", 
+            RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", "i"}], "&"}]}],
+         "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"ansl", "=", 
+       RowBox[{"ansall", "[", 
+        RowBox[{"[", 
+         RowBox[{"index", ",", "j"}], "]"}], "]"}]}], ";", 
+      "\[IndentingNewLine]", 
+      RowBox[{"cfit", "=", 
+       RowBox[{"NonlinearModelFit", "[", 
+        RowBox[{"data", ",", "ansl", ",", 
+         RowBox[{"{", 
+          RowBox[{"x0", ",", "xm0", ",", "x1", ",", "xm1"}], "}"}], ",", 
+         "t"}], "]"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"cfitn", "=", 
+       RowBox[{"Normal", "@", "cfit"}]}], ";", "\[IndentingNewLine]", 
+      RowBox[{"amps", "=", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"x0", ",", "x1", ",", "xm0", ",", "xm1"}], "}"}], "/.", 
+        RowBox[{"cfit", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";", 
+      "\[IndentingNewLine]", "\[IndentingNewLine]", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "amps", ",", "cfitn"}], "}"}]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"index", ",", 
+       RowBox[{"Length", "@", "tagt"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"j", ",", 
+       RowBox[{"Length", "@", "modes"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "tfit", ",", "tfit"}], "}"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.780651215350163*^9, 3.780651313546767*^9}, {
+   3.780651366789349*^9, 3.7806514272776327`*^9}, {3.7806515983677473`*^9, 
+   3.780651598538396*^9}, {3.780651790479979*^9, 3.7806517908408337`*^9}, {
+   3.780658216935227*^9, 3.780658305258608*^9}, 3.7806603184820547`*^9, {
+   3.780662324798668*^9, 3.780662347922201*^9}, {3.780662574847891*^9, 
+   3.7806625914564657`*^9}, {3.780808669521875*^9, 3.780808760944168*^9}, {
+   3.780808792482709*^9, 3.780808838177062*^9}, {3.780808891406556*^9, 
+   3.780808902480772*^9}, {3.7808089430189466`*^9, 3.780808946972209*^9}, 
+   3.780809057392706*^9, {3.780809107939711*^9, 3.780809141367982*^9}, {
+   3.781855605567459*^9, 3.781855610847719*^9}, {3.781855754012388*^9, 
+   3.781855755208273*^9}, {3.781855819643965*^9, 3.7818558224902*^9}, {
+   3.783325822874749*^9, 3.783325858130108*^9}, {3.7833271885686903`*^9, 
+   3.7833271887325287`*^9}, {3.783331448057081*^9, 3.7833314489690647`*^9}, {
+   3.7833314827321777`*^9, 3.7833315017241983`*^9}, {3.783331550962682*^9, 
+   3.783331575836596*^9}, {3.783331606902872*^9, 3.78333160877241*^9}, {
+   3.783331658291823*^9, 3.783331664732849*^9}, {3.783331732186399*^9, 
+   3.783331773697101*^9}, {3.783331866669449*^9, 3.7833318741751347`*^9}, {
+   3.783332005549807*^9, 3.7833320416290894`*^9}, {3.783332107820417*^9, 
+   3.783332121214839*^9}, {3.783332153772459*^9, 3.783332157384798*^9}, {
+   3.783332300264325*^9, 3.78333230652602*^9}, {3.78333234928224*^9, 
+   3.78333235255939*^9}, {3.783332553375717*^9, 3.783332553608099*^9}, {
+   3.7840077871681433`*^9, 3.784007839641217*^9}, {3.7840078896502028`*^9, 
+   3.784007897789222*^9}, 3.784010873133605*^9, {3.784011007367366*^9, 
+   3.784011011798514*^9}, {3.784016830798374*^9, 3.784016854851472*^9}, {
+   3.7840171064244337`*^9, 3.78401710821238*^9}, {3.7840173116629*^9, 
+   3.784017323286153*^9}, {3.7840221428207006`*^9, 3.784022146414266*^9}, {
+   3.78402221725004*^9, 3.784022217504258*^9}, {3.784022278205883*^9, 
+   3.7840222927818213`*^9}, {3.7840231774379377`*^9, 3.784023205089924*^9}, {
+   3.7840232497374353`*^9, 3.7840232524367123`*^9}, 3.784023283244182*^9, {
+   3.78402481064734*^9, 3.784024811226666*^9}, {3.784024995905851*^9, 
+   3.7840249972110357`*^9}, {3.784025090922542*^9, 3.784025093742702*^9}, {
+   3.784025136846437*^9, 3.78402517442352*^9}, {3.7840286139906893`*^9, 
+   3.784028615074128*^9}, {3.784028736387385*^9, 3.784028739286831*^9}, {
+   3.784028914775527*^9, 3.784028916774022*^9}, {3.784028955123665*^9, 
+   3.784028975311419*^9}, {3.7840306785395527`*^9, 3.784030679247593*^9}, {
+   3.784031882249075*^9, 3.784031884275895*^9}, {3.7840331417593822`*^9, 
+   3.784033143540248*^9}, {3.784033183322991*^9, 3.7840332104594393`*^9}, {
+   3.784033272004767*^9, 3.784033278104743*^9}, {3.7840333875231*^9, 
+   3.7840333879664516`*^9}, {3.78403477375677*^9, 3.7840347765696783`*^9}, {
+   3.784530434421341*^9, 3.7845304545884867`*^9}, {3.78453135318512*^9, 
+   3.784531356616973*^9}, {3.784531437697427*^9, 3.784531438118718*^9}, 
+   3.784536065304461*^9, {3.785491102864192*^9, 3.785491106271503*^9}, {
+   3.785577325754668*^9, 3.785577327432519*^9}, 3.785582437737739*^9, {
+   3.785592234282557*^9, 3.785592238283396*^9}, 3.8012968933068333`*^9},
+ CellLabel->
+  "In[114]:=",ExpressionUUID->"5e0fb8fb-787e-4eaa-82d9-7c5d9046d929"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"amps0", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Select", "[", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"Abs", "/@", 
+         RowBox[{"(", 
+          RowBox[{"t0ampsdataall", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "j"}], "]"}], "]"}], ")"}]}], ")"}], ",", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"#", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", "tfit"}], "&"}], 
+       ",", "1"}], "]"}], "[", 
+     RowBox[{"[", 
+      RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "tagt"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"j", ",", 
+      RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.783333106965568*^9, 3.783333230583198*^9}, {
+   3.784025101921546*^9, 3.78402510350347*^9}, {3.784025186166597*^9, 
+   3.7840251867830343`*^9}, {3.784028987595746*^9, 3.784029015770508*^9}, 
+   3.78402909372046*^9, 3.784031777018941*^9, 3.7845321562709293`*^9, {
+   3.785577347297008*^9, 3.7855773488394957`*^9}, {3.790674967380027*^9, 
+   3.790674978712844*^9}, {3.790676244575658*^9, 3.790676248511973*^9}, {
+   3.794722790487301*^9, 3.794722790927064*^9}, 3.801296899006878*^9},
+ CellLabel->
+  "In[115]:=",ExpressionUUID->"38f8dc55-8c1a-4ef8-b912-f0ad66b5a0e8"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.408088274232653`", ",", "0.21008649720620587`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "8.273721007170381`*^-9", ",", "2.2108057892163356`*^-8", ",", "0.`", 
+       ",", "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "3.953014860035085`*^-8", ",", "5.611471862713039`*^-8", ",", "0.`", 
+       ",", "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.4068861697266341`", ",", "0.2126479283785071`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "2.1497621566512007`*^-8", ",", "3.054992808029412`*^-8", ",", "0.`", 
+       ",", "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "2.9696676355429143`*^-8", ",", "4.750353707154813`*^-8", ",", "0.`", 
+       ",", "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.6366508404198254`", ",", "0.9508223439832878`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "6.917341189991732`*^-7", ",", "1.6145621993570898`*^-6", ",", "0.`", 
+       ",", "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "1.4924256747923393`*^-7", ",", "3.83877610039485`*^-7", ",", "0.`", 
+       ",", "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.4196900695222059`", ",", "0.23413767674644193`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.022303485851613444`", ",", "0.015797856719023975`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.027774284237580077`", ",", "0.0238961615256741`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.41693365549698386`", ",", "0.2253290426532742`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.017722675639049685`", ",", "0.011905797731856226`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.02692576857186315`", ",", "0.019775950400837055`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3581813231485793`", ",", "0.1270885385848913`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.017318049991522703`", ",", "0.008627545972819674`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.022247879157590366`", ",", "0.011182407877908853`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.5355765673603936`", ",", "0.5482693474264067`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.014099468948677816`", ",", "0.015744467287123257`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.03893867279333982`", ",", "0.053306488793895226`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.4063716212777391`", ",", "0.21590671996038424`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.03142299882630039`", ",", "0.020933054621464293`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.045161293524772536`", ",", "0.03267234191259899`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.37040634436562403`", ",", "0.15430724924016886`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.10263778701167563`", ",", "0.06271618366083606`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.05183415883558397`", ",", "0.030033330054802784`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.372637282108936`", ",", "0.1797775956149321`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.04257868589969555`", ",", "0.027312288903361626`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.061545540712550764`", ",", "0.0410366803134142`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3594742036846583`", ",", "0.16777421828829744`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.04726503253667296`", ",", "0.029771697958475778`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0664630250333324`", ",", "0.04301876129279452`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3479741213417502`", ",", "0.16172375461701338`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.054867543185370155`", ",", "0.035887584594542034`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.07383339552018006`", ",", "0.049226167907754484`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3276593030801948`", ",", "0.14455770709176505`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.055954870426808107`", ",", "0.03506977770134479`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06785560100120498`", ",", "0.0384007291940137`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3362661648619664`", ",", "0.15237996609589952`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.058704793228346965`", ",", "0.03691562592745995`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0760576138244363`", ",", "0.047783811632026676`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3112777625772452`", ",", "0.13732486814206515`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06386235400525611`", ",", "0.04100711411084147`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.07868238587241792`", ",", "0.04640973727276665`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.3094671697172154`", ",", "0.1350277832362993`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06379396741545508`", ",", "0.04074772130414191`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.08107911814120429`", ",", "0.050134544135596024`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.2614821792958562`", ",", "0.07278444883894288`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.09934133658624404`", ",", "0.04550176588404361`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06302483009187383`", ",", "0.025753300704674402`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.27887316675688023`", ",", "0.11435266741128494`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06518469563101725`", ",", "0.04052056825066455`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.08456271367712057`", ",", "0.04510957302136955`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.263328523635293`", ",", "0.10833296783882773`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06716710872525597`", ",", "0.042767162116436115`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.07956918260565855`", ",", "0.045922818022573725`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.2592036827193398`", ",", "0.10391873593872686`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06556930081203467`", ",", "0.0408997526199504`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0783762903571671`", ",", "0.04411215741742628`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.22843209671442616`", ",", "0.0914589206381056`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06546407039012979`", ",", "0.04233037771440651`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.07378230838914594`", ",", "0.041307952422556596`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.21679374934231876`", ",", "0.08698114307254674`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06545335677590614`", ",", "0.043031971335041844`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.07204124585821461`", ",", "0.041186868624473086`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.20080691846144577`", ",", "0.07734936938629325`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.063736203400003`", ",", "0.04052163098903322`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0685959041725525`", ",", "0.036143709139626695`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.1992841695914508`", ",", "0.07644453538882716`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06294626320996759`", ",", "0.040238782023902075`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06862168414514287`", ",", "0.03719086648348537`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.17629698679963307`", ",", "0.06595576686251496`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.058691841423530566`", ",", "0.0372170279873006`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06279062384218159`", ",", "0.03330493441191795`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.16329642869174132`", ",", "0.06394260457759807`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.05087293027306254`", ",", "0.033309276497435675`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.06047522542613936`", ",", "0.03300623614566208`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.1585072194744098`", ",", "0.06024734385970166`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.05615142564899448`", ",", "0.03680553733908284`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.0581625666246294`", ",", "0.030847355072490767`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.14681351168740756`", ",", "0.05476323787499619`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.05339547813924839`", ",", "0.03482316749766182`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.054677987535809935`", ",", "0.02871396732335552`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "0.13530191195094673`", ",", "0.050548981202139964`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.050874682340201316`", ",", "0.033304288323011126`", ",", "0.`", ",", 
+       "0.`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0.05105363845684531`", ",", "0.02644900510430934`", ",", "0.`", ",", 
+       "0.`"}], "}"}]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.79068137786371*^9, 3.790682413608758*^9, 3.790683517366431*^9, 
+   3.790683836951915*^9, 3.790686955724434*^9, 3.7906879903984623`*^9, 
+   3.7906887106639023`*^9, 3.792737623388558*^9, 3.792738252778569*^9, 
+   3.792741375797447*^9, 3.794718521830323*^9, 3.794719830712084*^9, 
+   3.7947229082293863`*^9, 3.794723198350258*^9, 3.794724765529405*^9, 
+   3.794740031512253*^9, 3.794800785109762*^9, 3.7959265699922123`*^9, 
+   3.7960932426412477`*^9, 3.7963513809826183`*^9, 3.7963550205406113`*^9, 
+   3.7963583838705378`*^9, 3.796359787106532*^9, 3.796363157827181*^9, 
+   3.796364469086423*^9, 3.7965414207848873`*^9, 3.796989492787735*^9, 
+   3.796989690661009*^9, 3.796992621491675*^9, 3.797071763692505*^9, 
+   3.7971415053170843`*^9, 3.797155181570364*^9, 3.799979575955818*^9, 
+   3.799985830670372*^9, 3.799986306763879*^9, 3.799986623581904*^9, {
+   3.8012956801949253`*^9, 3.801295685587942*^9}, 3.801296907763309*^9, 
+   3.801298441790839*^9, 3.801299445911281*^9},
+ CellLabel->
+  "Out[115]=",ExpressionUUID->"35ba0f47-f099-424f-935a-b97a07bd3f92"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"{", 
+   RowBox[{
+   "a220d", ",", "a221d", ",", "a210d", ",", "a211d", ",", "a330d", ",", 
+    "a331d"}], "}"}], "=", 
+  RowBox[{"{", 
+   RowBox[{
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
+    ",", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], 
+    ",", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
+    ",", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], 
+    ",", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], 
+    ",", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{"aft", ",", 
+       RowBox[{"amps0", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}]}], 
+   "}"}]}]], "Input",
+ CellChangeTimes->{{3.784272571897203*^9, 3.784272577438798*^9}, {
+  3.784272651671088*^9, 3.7842726710393877`*^9}, {3.784272866383521*^9, 
+  3.7842728726741467`*^9}, {3.784273265686363*^9, 3.7842732659014177`*^9}, {
+  3.7842734815283537`*^9, 3.784273519628274*^9}, {3.7842739571675167`*^9, 
+  3.784273957379277*^9}, {3.7855773676583843`*^9, 3.785577381246747*^9}, {
+  3.785577504936261*^9, 3.78557750982178*^9}, {3.790674994518148*^9, 
+  3.790675039982389*^9}, {3.790675077013232*^9, 3.79067507817874*^9}, {
+  3.79472280129893*^9, 3.794722808010045*^9}, {3.801295681285183*^9, 
+  3.8012956821796427`*^9}, {3.80129572717645*^9, 3.801295740073017*^9}, {
+  3.8012969155186462`*^9, 3.801296923165462*^9}},
+ CellLabel->
+  "In[116]:=",ExpressionUUID->"ac0de32a-930e-4336-97db-23e5e58c63e9"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "0.408088274232653`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "0.4068861697266341`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "0.6366508404198254`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.4196900695222059`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.41693365549698386`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.3581813231485793`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.5355765673603936`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.4063716212777391`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.37040634436562403`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.372637282108936`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.3594742036846583`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.3479741213417502`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.3276593030801948`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.3362661648619664`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.3112777625772452`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.3094671697172154`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.2614821792958562`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.27887316675688023`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.263328523635293`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.2592036827193398`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.22843209671442616`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.21679374934231876`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.20080691846144577`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.1992841695914508`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.17629698679963307`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.16329642869174132`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.1585072194744098`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.14681351168740756`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.13530191195094673`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "0.21008649720620587`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "0.2126479283785071`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "0.9508223439832878`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.23413767674644193`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.2253290426532742`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.1270885385848913`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.5482693474264067`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.21590671996038424`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.15430724924016886`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.1797775956149321`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.16777421828829744`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.16172375461701338`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.14455770709176505`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.15237996609589952`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.13732486814206515`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.1350277832362993`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.07278444883894288`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.11435266741128494`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.10833296783882773`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.10391873593872686`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.0914589206381056`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.08698114307254674`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.07734936938629325`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.07644453538882716`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.06595576686251496`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.06394260457759807`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.06024734385970166`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.05476323787499619`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.050548981202139964`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "8.273721007170381`*^-9"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "2.1497621566512007`*^-8"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "6.917341189991732`*^-7"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.022303485851613444`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.017722675639049685`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.017318049991522703`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.014099468948677816`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.03142299882630039`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.10263778701167563`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.04257868589969555`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.04726503253667296`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.054867543185370155`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.055954870426808107`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.058704793228346965`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.06386235400525611`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.06379396741545508`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.09934133658624404`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.06518469563101725`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.06716710872525597`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.06556930081203467`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.06546407039012979`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.06545335677590614`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.063736203400003`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.06294626320996759`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.058691841423530566`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.05087293027306254`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.05615142564899448`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.05339547813924839`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.050874682340201316`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "2.2108057892163356`*^-8"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "3.054992808029412`*^-8"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "1.6145621993570898`*^-6"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.015797856719023975`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.011905797731856226`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.008627545972819674`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.015744467287123257`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.020933054621464293`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.06271618366083606`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.027312288903361626`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.029771697958475778`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.035887584594542034`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.03506977770134479`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.03691562592745995`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.04100711411084147`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.04074772130414191`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.04550176588404361`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.04052056825066455`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.042767162116436115`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.0408997526199504`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.04233037771440651`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.043031971335041844`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.04052163098903322`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.040238782023902075`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.0372170279873006`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.033309276497435675`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.03680553733908284`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.03482316749766182`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.033304288323011126`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "3.953014860035085`*^-8"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "2.9696676355429143`*^-8"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "1.4924256747923393`*^-7"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.027774284237580077`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.02692576857186315`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.022247879157590366`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.03893867279333982`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.045161293524772536`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.05183415883558397`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.061545540712550764`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.0664630250333324`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.07383339552018006`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.06785560100120498`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.0760576138244363`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.07868238587241792`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.08107911814120429`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.06302483009187383`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.08456271367712057`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.07956918260565855`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.0783762903571671`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.07378230838914594`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.07204124585821461`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.0685959041725525`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.06862168414514287`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.06279062384218159`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.06047522542613936`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.0581625666246294`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.054677987535809935`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.05105363845684531`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.686460407304`", ",", "5.611471862713039`*^-8"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.686459511967`", ",", "4.750353707154813`*^-8"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.942909840271`", ",", "3.83877610039485`*^-7"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.692085186818`", ",", "0.0238961615256741`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.679536748203`", ",", "0.019775950400837055`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.457052736003`", ",", "0.011182407877908853`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.870258218463`", ",", "0.053306488793895226`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.664090940995`", ",", "0.03267234191259899`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.530894306569`", ",", "0.030033330054802784`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.637700825887`", ",", "0.0410366803134142`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.623439030411`", ",", "0.04301876129279452`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.596285137586`", ",", "0.049226167907754484`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580731153894`", ",", "0.0384007291940137`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.580102908705`", ",", "0.047783811632026676`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5406441997`", ",", "0.04640973727276665`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.540568761136`", ",", "0.050134544135596024`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.124471496071`", ",", "0.025753300704674402`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.504184017448`", ",", "0.04510957302136955`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471805136915`", ",", "0.045922818022573725`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.471647259902`", ",", "0.04411215741742628`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.416606189763`", ",", "0.041307952422556596`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.393370509765`", ",", "0.041186868624473086`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372483068145`", ",", "0.036143709139626695`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.372452050361`", ",", "0.03719086648348537`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.336515423989`", ",", "0.03330493441191795`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.357768505747`", ",", "0.03300623614566208`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.299744612911`", ",", "0.030847355072490767`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.281861172745`", ",", "0.02871396732335552`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.260519678626`", ",", "0.02644900510430934`"}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.7906813779621687`*^9, 3.79068241370877*^9, 3.7906835174812193`*^9, 
+   3.7906838370615253`*^9, 3.7906869558660316`*^9, 3.7906879904418793`*^9, 
+   3.790688710739171*^9, 3.79273762348695*^9, 3.792738253331376*^9, 
+   3.792741376356209*^9, 3.794718521852605*^9, 3.7947198307717123`*^9, 
+   3.794722908300645*^9, 3.7947231984213943`*^9, 3.794724765595751*^9, 
+   3.7947400318094387`*^9, 3.794800785171575*^9, 3.795926570041854*^9, 
+   3.796093245320046*^9, 3.796351381179908*^9, 3.796355020602684*^9, 
+   3.7963583839347763`*^9, 3.796359787161448*^9, 3.796363157895668*^9, 
+   3.7963644691609583`*^9, 3.7965414208066063`*^9, 3.79698949290436*^9, 
+   3.79698969074236*^9, 3.796992621596089*^9, 3.797071763789048*^9, 
+   3.797141505410697*^9, 3.7971551816220207`*^9, 3.799979576076515*^9, 
+   3.799985830762115*^9, 3.799986306915628*^9, 3.799986623673767*^9, 
+   3.80129568626095*^9, 3.8012957403784227`*^9, {3.801296911199912*^9, 
+   3.801296924290694*^9}, 3.801298441959372*^9, 3.801299446043379*^9},
+ CellLabel->
+  "Out[116]=",ExpressionUUID->"39872acd-261a-4895-b78e-e4806332310b"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"datafit221", "=", 
+   RowBox[{"Delete", "[", 
+    RowBox[{
+     RowBox[{"Transpose", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"a220d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+        RowBox[{
+         RowBox[{"a221d", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
+         RowBox[{"a220d", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}], ",", 
+     RowBox[{"{", "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.796364182060176*^9, 3.796364182431699*^9}, {
+  3.797052276460362*^9, 3.797052276886261*^9}},
+ CellLabel->
+  "In[117]:=",ExpressionUUID->"34203ade-df6d-4fe4-89c2-d199ce36261b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s", "=", 
+  RowBox[{"Table", "[", "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"mysxscase22modeRD", "[", "index", "]"}], "=", "\n", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{
+          RowBox[{"t0", "[", "index", "]"}], "=", 
+          RowBox[{"tmax", "[", 
+           RowBox[{"[", 
+            RowBox[{"i", ",", "index"}], "]"}], "]"}]}], ";", 
+         RowBox[{
+          RowBox[{"Select", "[", 
+           RowBox[{
+            RowBox[{"sxsrhst", "[", 
+             RowBox[{"[", 
+              RowBox[{"index", ",", "i"}], "]"}], "]"}], ",", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"#", "[", 
+               RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", 
+              RowBox[{"tmax", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "index"}], "]"}], "]"}]}], "&"}]}], "]"}], "/.", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"tt_", ",", "yy_"}], "}"}], "\[Rule]", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"tt", "-", 
+              RowBox[{"tmax", "[", 
+               RowBox[{"[", 
+                RowBox[{"i", ",", "index"}], "]"}], "]"}]}], ",", "yy"}], 
+            "}"}]}]}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}], ";", "\n", 
+     RowBox[{"ans", "=", 
+      RowBox[{"Table", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"If", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"modes", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "3"}], "&&", 
+            RowBox[{
+             RowBox[{"modes", "[", 
+              RowBox[{"[", 
+               RowBox[{"i", ",", "2"}], "]"}], "]"}], "\[Equal]", "2"}]}], 
+           ",", 
+           RowBox[{"mix", "=", "True"}], ",", 
+           RowBox[{"mix", "=", "False"}]}], "]"}], ";", "\n", "\n", 
+         RowBox[{"\[Omega]lmn", "[", 
+          RowBox[{"2", ",", "2", ",", "0", ",", 
+           RowBox[{"\[Eta]t", "[", 
+            RowBox[{"[", "index", "]"}], "]"}], ",", 
+           RowBox[{"\[Chi]1t", "[", 
+            RowBox[{"[", "index", "]"}], "]"}], ",", 
+           RowBox[{"\[Chi]2t", "[", 
+            RowBox[{"[", "index", "]"}], "]"}], ",", 
+           RowBox[{"\"\<ModesData\>\"", "->", 
+            RowBox[{"Modedata", "[", 
+             RowBox[{"[", 
+              RowBox[{"i", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{"i", ",", 
+          RowBox[{"Length", "@", "modes"}]}], "}"}]}], "]"}]}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"index", ",", 
+      RowBox[{"Length", "@", "tagt"}]}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.801302077541459*^9, 3.8013021439903193`*^9}, {
+  3.801302222056848*^9, 3.801302222235173*^9}},
+ CellLabel->
+  "In[126]:=",ExpressionUUID->"606f5078-2524-4a4d-abd5-c5c37118e9dc"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5534519801039607`", ",", "11.705708428903133`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.47522886830171995`", ",", "11.534933433005392`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8773671717895636`", ",", "11.404446540932819`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5534519801470528`", ",", "11.70570842799172`"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.4752288683387215`", ",", "11.534933432107273`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8773671718578759`", ",", "11.404446540044862`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.8218905340001692`", ",", "16.11923690290579`"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.6035594027449636`", ",", "14.178749952658976`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"1.2684504028035488`", ",", "16.03660982645249`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5557334030122436`", ",", "11.738423731619164`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.47626983042568216`", ",", "11.56188078465567`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8807253805590827`", ",", "11.440246493931046`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5497735207975206`", ",", "11.685959417181174`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4731787757152758`", ",", "11.521684982282828`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.87184436995869`", ",", "11.380457551903193`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.46915081730313335`", ",", "11.200264831254414`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.42959430546107813`", ",", "11.14120842499976`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7497083632813989`", ",", "10.802054747608658`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.6923239486065781`", ",", "13.394364058484118`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.5445077797137338`", ",", "12.686630421696766`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"1.0812195325652185`", ",", "13.23718310522709`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.541714001454743`", ",", "11.644161484372956`"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.46867628630278896`", ",", "11.49345458522336`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8597267579335185`", ",", "11.3293130396146`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4908765618990494`", ",", "11.306935840624249`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.44145132013989474`", ",", "11.227781838728102`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7829756786263465`", ",", "10.931652001463796`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5289376221018923`", ",", "11.583010878877126`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4614979547483454`", ",", "11.451920458281151`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8404636819043365`", ",", "11.25326337535044`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5223850949426347`", ",", "11.553723594339857`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4578015908561123`", ",", "11.431861502923724`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8305586709318027`", ",", "11.216320706679657`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5107755441194098`", ",", "11.505986401729722`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4512205507272823`", ",", "11.399130681581502`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8129620246198792`", ",", "11.155078191849036`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.5044991827738772`", ",", "11.481879520951477`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.44765231464526495`", ",", "11.382486545367588`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8034241418525838`", ",", "11.123723117636793`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.50426135508514`", ",", "11.481040673299574`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4475163548734488`", ",", "11.381919256620883`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.8030622352829512`", ",", "11.122611553191726`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.48952317406976037`", ",", "11.429944550809726`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.43910253989259806`", ",", "11.346615114764665`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7805892983014879`", ",", "11.054791583686416`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4895231733457949`", ",", "11.429944567713695`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4391025392432007`", ",", "11.346615131545397`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7805892971470592`", ",", "11.054791600035564`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.3980497545964838`", ",", "11.070239847923023`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.38959949232463253`", ",", "11.056071729942317`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.6384471660639627`", ",", "10.624951686991672`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4772054767923668`", ",", "11.392488560926964`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4320447639060654`", ",", "11.320721231739615`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7617239443408378`", ",", "11.0038237175766`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4670806095281037`", ",", "11.365277725707145`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4262300369291194`", ",", "11.302025859994679`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7461567140187076`", ",", "10.965959320268672`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.46708060835099013`", ",", "11.36527775434936`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4262300358549555`", ",", "11.30202588847749`"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.7461567121382802`", ",", "10.965959347904542`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.45155195134501097`", ",", "11.329331709600144`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.41730459325242897`", ",", "11.277676266538109`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7221694831764063`", ",", "10.914739458745203`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4455040900360261`", ",", "11.31715905848272`"}], "}"}], ",", 
+     
+     RowBox[{"{", 
+      RowBox[{"0.41383049685199663`", ",", "11.26961869886917`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7127889258342421`", ",", "10.897050852717639`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.44031566156531776`", ",", "11.307573479834115`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.41085211189425`", ",", "11.26341511896298`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7047234018955989`", ",", "10.882960550651308`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.440315621297363`", ",", "11.30757451393973`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.41085207432080967`", ",", "11.263416149030204`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.7047233374469033`", ",", "10.88296154592502`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.43188273034557156`", ",", "11.293611489044597`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.40601902000253165`", ",", "11.25471284146021`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.6915777470141313`", ",", "10.862177883702191`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.4353817314310211`", ",", "11.334847045454701`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.40755386768651847`", ",", "11.292867861268178`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.6969834847577037`", ",", "10.905939555381181`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.42381052982336165`", ",", "11.282004318967928`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.4014075851045734`", ",", "11.247944466625341`"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0.678950721294558`", ",", "10.844695822729207`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.42007597817910564`", ",", "11.277169042774636`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.39928125634044137`", ",", "11.245310594078177`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.6730939975053566`", ",", "10.837383215935677`"}], "}"}]}], 
+    "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0.41578361811037673`", ",", "11.272023319405552`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.39684410041187074`", ",", "11.242684841832704`"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0.6663505039896936`", ",", "10.829593885059612`"}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.8013022253989363`*^9},
+ CellLabel->
+  "Out[126]=",ExpressionUUID->"ce53abcd-3c16-47c3-94a2-b6e6aebd4902"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"aft", ",", 
+      RowBox[{"\[Tau]s", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], 
+   ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.80130203826919*^9, 3.8013020445458937`*^9}, {
+  3.801302265846631*^9, 3.8013023047626333`*^9}},
+ CellLabel->
+  "In[136]:=",ExpressionUUID->"2df0beed-4914-4c4b-a83f-bf6769485687"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {
+    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+      AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJxTTMoPSmViYGCQBWIQLX359YXq70/t+Xxr5wZlqjt8XmL7oRLIv1ZRCuYz
++zx0DNR5Z/+qxM2/Tc7AIWhv7tV+1Wf2HKcerxGqUnfwPrnv5uF9T+19ouYJ
+mcWrOzR1ZMtFOdy1X967UqYzTc3B9lv2YfWbr+2LLvwWfXVSy2HFNJWl1g5P
+7dmLd3ac91R3UBXr5hP7+8Be4fmpjWpz1RzWKv/q5854Yj/n1+O0Bi11BzfP
+qxlmnx/bG+RuXNEore5gumvBxCMij+33+PgvE2BWd3A8bt4QOfWRfZ/RvJc7
+vqk5lFUt+2k84ZG9xp7+b15A/ozKfoGvPg/ti5YYblS8o+bwU//U7TAgf/WN
+Q2C+zd4XOrF399trZRpXfVNWc5gZ49zqpvTAvqNil9OXE2oO8fM9dPiM7tlr
+7J29jnW3mgP3HsW/5fr37PmOTVwP4j/5Lsq0duUt+6zOEq15K9QcJmxa2fBb
+56Z91QL+NUmLgPLH/lscvnbd3o0py7UK6L/F1i/kHYH8SS9kMkB84QqNv+Wd
+V+2DovbZhUxTczho/u7+2qfX7I8czxIqXK3mILo9jZ1F/7L9lBn77iVNUHNw
+ebunkJnrkn1zzBnJl71A9xe82hW15oK9k+HPxW7dag4Airja9w==
+      "]]}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.10742069723350023`, 10.789740011535093`},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0.10742069723350023`, 0.942909840271}, {10.789740011535093`, 
+   16.11923690290579}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.801302266400198*^9, 3.801302332562746*^9}},
+ CellLabel->
+  "Out[136]=",ExpressionUUID->"b02482f8-56c5-42ab-bc3e-c539163e8066"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{"datafit221", ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.801295750104766*^9, 3.8012957521765423`*^9}, {
+   3.801296938893858*^9, 3.801296941392459*^9}, 3.801299435528199*^9},
+ CellLabel->
+  "In[137]:=",ExpressionUUID->"1ae7c79d-0793-44c0-9c40-93e9a06e9706"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {
+    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+      AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAG9Pr0Hv35T9auIx8S3ngP/OkPfB5
+9+U/5B3hIlO54D8DTOFBUSzuP4SyqWtG5fc/Ur1t1Y8l5j8TA/wOLNrhP0vJ
+vtnDvuU/dmtu9U9L4T+CiGseWkDdPyzKjAlPtdY/PfZrwyfZ6z+0YY1/EmHw
+P6iWJKU7QOU/jISee3AA4T8lFosOFv3gP5AjjF5lqdo/rSP6jwto5D90eg/F
+Z+DeP0ZJ1Wg28+M/zyl9cMLe3T81uqCRxBTjP9GsQFCYvt0/Qcc3gFmV4j8b
+GnuHVzzcP3Z6pvkzkOI/198owHQA3T+YeY8Q9UzhP73KIFAMPNw/+S/K21ZM
+4T+Qy1gxuezbPzy96Cxd3b8/vv2ws4rQ0T+ZXEOFRiLgP8fc3ENNPto/X59I
+LA4y3j8i9D+BWlTaPwu8If13L94/jLFT3pio2T/k9xUCranaPwDwlyzGn9k/
+kLKpgPss2T9Eu0tNhq3ZP+TG/zjD1tc/XYRJf/+m2D+jO+gfQdbXPzF6/6jU
+jNg/E3go/XeJ1T88/FkGivHXP8E37t+t5dY/78fll4sP2T8Vt2YHBC/TP8MO
+6t1tU9g/RO28cQMK0j+mFGbCbt/XPzxw6rparNA/XcCkxBXp1z/KcPHz
+      "]]}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.10742069723350023`, 0},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0.10742069723350023`, 0.942909840271}, {
+    0, 1.4934753614026315`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.8012957524750423`*^9, {3.801296928598339*^9, 3.80129694190775*^9}, 
+   3.801296986051372*^9, {3.801298442660841*^9, 3.801298450317719*^9}, 
+   3.801299446368691*^9, 3.801302333138741*^9},
+ CellLabel->
+  "Out[137]=",ExpressionUUID->"a7a7cdca-05f0-47d5-8665-ebeaba050579"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"datafit221", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+      RowBox[{
+       RowBox[{"datafit221", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
+       RowBox[{"\[Tau]s", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}], 
+   ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.801302341200465*^9, 3.80130236020219*^9}},
+ CellLabel->
+  "In[138]:=",ExpressionUUID->"20a17ff4-d0db-4c7b-8304-55daf57db496"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {
+    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+      AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAG9Pr0Hv35T8Fv32qbYSmP/OkPfB5
+9+U/C597qvLbpj8DTOFBUSzuP71mLkUGuLc/Ur1t1Y8l5j8cZryuWVWoP0vJ
+vtnDvuU/j/xk9betpz+CiGseWkDdP2fgTORDOKA/PfZrwyfZ6z8uLVOVwpCz
+P6iWJKU7QOU/nARBrZhcpz8lFosOFv3gPwcaDrUs3aI/rSP6jwto5D+jn71D
+T1OlP0ZJ1Wg28+M/52T29b+upD81uqCRxBTjP+ePXYFarqQ/Qcc3gFmV4j8s
+QiX2WKyjP3Z6pvkzkOI/OtpsNV41pD+YeY8Q9UzhP1VTKJ0Gw6M/+S/K21ZM
+4T97k+VVgYujPzy96Cxd3b8/RvfTGm2/mT+ZXEOFRiLgP9wkEs20baI/X59I
+LA4y3j8PEgAKhoiiPwu8If13L94/tB3q4Z8Poj/k9xUCranaP/cs5nUQGKI/
+kLKpgPss2T/0hSVBxCaiP+TG/zjD1tc/JAPef/hwoT+jO+gfQdbXP15lQwh1
+XqE/E3go/XeJ1T9RHhmV8/WgP8E37t+t5dY/9XoR8wOwoT8Vt2YHBC/TP20h
+Q/DUP6E/RO28cQMK0j+4uBL+b++gPzxw6rparNA/aTnQYUT4oD8EeuZN
+      "]]}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.10742069723350023`, 0},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0.10742069723350023`, 0.942909840271}, {
+    0, 0.09265174092288482}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{3.801302361066886*^9},
+ CellLabel->
+  "Out[138]=",ExpressionUUID->"3642f976-4e9d-4b33-a4ee-4492b5d22b18"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"ListPlot", "[", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"qt", ",", "aft"}], "}"}], "]"}], ",", 
+   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.801302491242757*^9, 3.801302526290296*^9}},
+ CellLabel->
+  "In[148]:=",ExpressionUUID->"bd0a6350-45bb-4504-a2a3-e4df66960614"],
+
+Cell[BoxData[
+ GraphicsBox[{{}, {
+    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
+      AbsoluteThickness[1.6], PointBox[CompressedData["
+1:eJxTTMoPSmViYGCQBWIQfamJEUh+sJe+/PpC9fen9s16umD+5yW2HyqB/NXT
+0sF8Zp+HjoE67+xd3W7sEO36bB+0N/dqv+oze3+Gv/////9s731y383D+57a
+S8hsYWVg+GLf1JEtF+Vw195u2jkw3/Zb9mH1m6/tOeJjgeb9sF8xTWWptcNT
+++orjZwMDH/sVcW6+cT+PrDfXHTQ8r7/X/u1yr/6uTOe2M9fKwFyoIOb59UM
+s8+P7QM108TXtTM5mO5aMPGIyGP7b4/eAO1ndnA8bt4QOfWR/Q61IKUYfhaH
+sqplP40nPLIv1OYFaudwmFHZL/DV56F98ntJZhD/p/6p22FA/tSEv86MQL7N
+3hc6sXf32x9TBjqHgcdhZoxzq5vSA3uZbXP2/P/P7xA/30OHz+ie/Tmzf/9B
+fO49in/L9e/Ze2jJANWLODz5Lsq0duUte0mfw0B5UYcJm1Y2/Na5ab9w2vof
+3/6LOzw59t/i8LXr9v3ukkALJBwWW7+QdwTyzSeDvCfjIFyh8be886q9VcGk
+P///yzscNH93f+3Ta/axd/oOfe1QcBDdnsbOon/Z3qhTEqheycHl7Z5CZq5L
+9nE+W4D2KTvYFLzaFbXmgj0AhcnQQQ==
+      "]]}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
+     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{0.8125000002060473, 0},
+  DisplayFunction->Identity,
+  Frame->{{False, False}, {False, False}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  Method->{
+   "OptimizePlotMarkers" -> True, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{0.8125000002060473, 9.999999991187163}, {0, 0.942909840271}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.02], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{{3.801302499563099*^9, 3.8013025268081636`*^9}},
+ CellLabel->
+  "Out[148]=",ExpressionUUID->"b3db8127-7b03-4e85-9cc3-d61f935786ac"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"datafit22110", "=", "datafit221"}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110", "=", 
+  RowBox[{"NonlinearModelFit", "[", 
+   RowBox[{"datafit22110", ",", 
+    RowBox[{"aa", "+", 
+     FractionBox["bb", 
+      RowBox[{" ", "qq"}]], "+", 
+     FractionBox["cc", 
+      SuperscriptBox["qq", "2"]], "+", 
+     FractionBox["ee", 
+      SuperscriptBox["qq", "3"]]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"aa", ",", "bb", ",", "cc", ",", "ee"}], "}"}], ",", "qq"}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110n", "=", 
+  RowBox[{"Normal", "@", "fit22110"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110n1", "=", 
+  RowBox[{
+   RowBox[{"fit22110", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110n2", "=", 
+  RowBox[{
+   RowBox[{"fit22110", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7906792687419233`*^9, 3.7906792762386703`*^9}, {
+   3.790687222559133*^9, 3.790687222726465*^9}, {3.790687356744519*^9, 
+   3.7906873573265142`*^9}, {3.7906876058888893`*^9, 
+   3.7906876099928493`*^9}, {3.7947197416234093`*^9, 
+   3.7947197714510803`*^9}, {3.7947199386323767`*^9, 3.794719949278319*^9}, {
+   3.794722523857242*^9, 3.7947225422989264`*^9}, {3.794722622234152*^9, 
+   3.794722740309764*^9}, {3.794722818863402*^9, 3.7947228276843767`*^9}, {
+   3.794723080991324*^9, 3.794723084378275*^9}, {3.79472464877925*^9, 
+   3.7947246608133793`*^9}, {3.794739349561511*^9, 3.794739360775461*^9}, {
+   3.794800664287735*^9, 3.794800689229121*^9}, {3.79635066239764*^9, 
+   3.796350662967194*^9}, {3.796354915621025*^9, 3.796354918700487*^9}, 
+   3.797071738769829*^9, 3.797071797501596*^9},
+ CellLabel->
+  "In[355]:=",ExpressionUUID->"6b04288c-6535-4fa2-b0ee-50d259ad9e55"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"FittedModel", "[", 
+   TagBox[
+    PanelBox[
+     TagBox[
+      RowBox[{"5.110612713100397`", "\[VeryThinSpace]", "-", 
+       FractionBox["0.2670031945530523`", 
+        SuperscriptBox["qq", "3"]], "+", 
+       FractionBox["2.1715552406173346`", 
+        SuperscriptBox["qq", "2"]], "-", 
+       FractionBox["5.662247383069546`", "qq"]}],
+      Short[#, 2]& ],
+     FrameMargins->5],
+    Editable -> False], "]"}],
+  InterpretTemplate[
+  FittedModel[{
+    "Nonlinear", {$CellContext`aa -> 
+      5.110612713100397, $CellContext`bb -> -5.662247383069546, \
+$CellContext`cc -> 
+      2.1715552406173346`, $CellContext`ee -> -0.2670031945530523}, \
+{{$CellContext`qq}, $CellContext`aa + $CellContext`ee $CellContext`qq^(-3) + \
+$CellContext`cc $CellContext`qq^(-2) + $CellContext`bb/$CellContext`qq}}, {
+    1}, CompressedData["
+1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAG9Pr0Hv35T9auIx8S3ngP/OkPfB5
+9+U/5B3hIlO54D8DTOFBUSzuP4SyqWtG5fc/Ur1t1Y8l5j8TA/wOLNrhP0vJ
+vtnDvuU/dmtu9U9L4T+CiGseWkDdPyzKjAlPtdY/PfZrwyfZ6z+0YY1/EmHw
+P6iWJKU7QOU/jISee3AA4T8lFosOFv3gP5AjjF5lqdo/rSP6jwto5D90eg/F
+Z+DeP0ZJ1Wg28+M/zyl9cMLe3T81uqCRxBTjP9GsQFCYvt0/Qcc3gFmV4j8b
+GnuHVzzcP3Z6pvkzkOI/198owHQA3T+YeY8Q9UzhP73KIFAMPNw/+S/K21ZM
+4T+Qy1gxuezbP5lcQ4VGIuA/x9zcQ00+2j9fn0gsDjLePyL0P4FaVNo/C7wh
+/Xcv3j+MsVPemKjZP+T3FQKtqdo/APCXLMaf2T+QsqmA+yzZP0S7S02Grdk/
+5Mb/OMPW1z9dhEl//6bYP6M76B9B1tc/MXr/qNSM2D8TeCj9d4nVPzz8WQaK
+8dc/wTfu363l1j/vx+WXiw/ZPxW3ZgcEL9M/ww7q3W1T2D9E7bxxAwrSP6YU
+ZsJu39c/PHDqulqs0D9dwKTEFenXP+Du6CU=
+    "], 
+    Function[Null, 
+     Internal`LocalizedBlock[{$CellContext`aa, $CellContext`bb, \
+$CellContext`cc, $CellContext`ee, $CellContext`qq}, #], {HoldAll}]]& ],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.797071764062991*^9, 3.797071798115552*^9}, 
+   3.797141506318851*^9, 3.79715518672304*^9, 3.7999795936963577`*^9, 
+   3.7999858308774233`*^9, 3.799986312943424*^9, 3.7999866238536263`*^9, 
+   3.801295695243898*^9, 3.8012957437527018`*^9, 3.8012969842467203`*^9, 
+   3.8012984484422617`*^9},
+ CellLabel->
+  "Out[356]=",ExpressionUUID->"7885bccc-0355-4da7-aa73-eba88666f423"],
+
+Cell[BoxData[
+ RowBox[{"5.110612713100397`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.2670031945530523`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["2.1715552406173346`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["5.662247383069546`", "qq"]}]], "Output",
+ CellChangeTimes->{{3.797071764062991*^9, 3.797071798115552*^9}, 
+   3.797141506318851*^9, 3.79715518672304*^9, 3.7999795936963577`*^9, 
+   3.7999858308774233`*^9, 3.799986312943424*^9, 3.7999866238536263`*^9, 
+   3.801295695243898*^9, 3.8012957437527018`*^9, 3.8012969842467203`*^9, 
+   3.801298448447818*^9},
+ CellLabel->
+  "Out[357]=",ExpressionUUID->"4efb0dd4-d971-408b-82c8-7fd917238ce8"],
+
+Cell[BoxData[
+ RowBox[{"5.110612713100397`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.2670031945530523`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["2.1715552406173346`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["5.662247383069546`", "qq"], "-", 
+  RowBox[{"2.79693950477445`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.0016214785440294061`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.023507714064126387`", " ", "qq"}], "+", 
+      RowBox[{"0.139149957506506`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.4303011047029982`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.7336240593245628`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.6544034200574801`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.23939452530617836`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{{3.797071764062991*^9, 3.797071798115552*^9}, 
+   3.797141506318851*^9, 3.79715518672304*^9, 3.7999795936963577`*^9, 
+   3.7999858308774233`*^9, 3.799986312943424*^9, 3.7999866238536263`*^9, 
+   3.801295695243898*^9, 3.8012957437527018`*^9, 3.8012969842467203`*^9, 
+   3.801298448525516*^9},
+ CellLabel->
+  "Out[358]=",ExpressionUUID->"77c5d7e2-9856-44d3-9d4f-f67a2f2c46cb"],
+
+Cell[BoxData[
+ RowBox[{"5.110612713100397`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.2670031945530523`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["2.1715552406173346`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["5.662247383069546`", "qq"], "+", 
+  RowBox[{"2.79693950477445`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.0016214785440294061`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.023507714064126387`", " ", "qq"}], "+", 
+      RowBox[{"0.139149957506506`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.4303011047029982`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.7336240593245628`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.6544034200574801`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.23939452530617836`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{{3.797071764062991*^9, 3.797071798115552*^9}, 
+   3.797141506318851*^9, 3.79715518672304*^9, 3.7999795936963577`*^9, 
+   3.7999858308774233`*^9, 3.799986312943424*^9, 3.7999866238536263`*^9, 
+   3.801295695243898*^9, 3.8012957437527018`*^9, 3.8012969842467203`*^9, 
+   3.801298448541287*^9},
+ CellLabel->
+  "Out[359]=",ExpressionUUID->"cb12d93e-9fa1-4c46-b603-dfca7e57e65f"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"datafit3310", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"a220d", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+      RowBox[{
+       RowBox[{"a330d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
+       RowBox[{"a220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit3310", "=", 
+   RowBox[{"NonlinearModelFit", "[", 
+    RowBox[{"datafit3310", ",", 
+     RowBox[{"aa", "+", 
+      FractionBox["bb", 
+       RowBox[{" ", "qq"}]], "+", 
+      FractionBox["cc", 
+       SuperscriptBox["qq", "2"]], "+", 
+      FractionBox["ee", 
+       SuperscriptBox["qq", "3"]]}], ",", 
+     RowBox[{"{", 
+      RowBox[{"aa", ",", "bb", ",", "cc", ",", "ee"}], "}"}], ",", "qq"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n", "=", 
+  RowBox[{"Normal", "@", "fit3310"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n1", "=", 
+  RowBox[{
+   RowBox[{"fit3310", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n2", "=", 
+  RowBox[{
+   RowBox[{"fit3310", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7906792687419233`*^9, 3.7906792762386703`*^9}, {
+   3.790687222559133*^9, 3.790687222726465*^9}, {3.790687356744519*^9, 
+   3.7906873573265142`*^9}, {3.790687405340337*^9, 3.79068740753106*^9}, {
+   3.7906875451372633`*^9, 3.7906875452253323`*^9}, {3.790687611958949*^9, 
+   3.79068761326649*^9}, {3.794719775957651*^9, 3.7947197829858027`*^9}, {
+   3.794720071067053*^9, 3.794720074597693*^9}, {3.794722837522263*^9, 
+   3.794722844432363*^9}, {3.794722937571804*^9, 3.7947229380342913`*^9}, {
+   3.7947230892942133`*^9, 3.794723094112927*^9}, {3.794724665684819*^9, 
+   3.7947246746438923`*^9}, {3.794739367513536*^9, 3.794739379504652*^9}, {
+   3.7948007044003963`*^9, 3.7948007217651157`*^9}, 3.796093293510025*^9, {
+   3.796350670233573*^9, 3.796350670820775*^9}, {3.796354932083452*^9, 
+   3.796354933036525*^9}, {3.799979618968124*^9, 3.7999796199215097`*^9}},
+ CellLabel->
+  "In[757]:=",ExpressionUUID->"01ee9c5e-ebb0-4991-b6ce-b7457df32146"],
+
+Cell[BoxData[
+ RowBox[{"0.43325286506991423`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.03799666271004618`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08459340203720891`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5554007188200137`", "qq"]}]], "Output",
+ CellChangeTimes->{3.799979621738976*^9, 3.799985831130412*^9, 
+  3.799986314060821*^9, 3.799986624096134*^9},
+ CellLabel->
+  "Out[759]=",ExpressionUUID->"58c5d2f1-7583-4df6-aa55-1e4978ee2379"],
+
+Cell[BoxData[
+ RowBox[{"0.4332528650699142`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.03799666271004618`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08459340203720891`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5554007188200137`", "qq"], "-", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.010720237224493381`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.03425127097492945`", " ", "qq"}], "+", 
+      RowBox[{"0.04256883190820751`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.02614044986631331`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.008354911425832844`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.0013099004759328738`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.00008326699261069532`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{3.799979621738976*^9, 3.799985831130412*^9, 
+  3.799986314060821*^9, 3.799986624172496*^9},
+ CellLabel->
+  "Out[760]=",ExpressionUUID->"d9d2454b-fa7a-49da-aac8-49ecf993e4e5"],
+
+Cell[BoxData[
+ RowBox[{"0.4332528650699142`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.03799666271004618`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08459340203720891`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5554007188200137`", "qq"], "+", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.010720237224493381`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.03425127097492945`", " ", "qq"}], "+", 
+      RowBox[{"0.04256883190820751`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.02614044986631331`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.008354911425832844`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.0013099004759328738`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.00008326699261069532`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{3.799979621738976*^9, 3.799985831130412*^9, 
+  3.799986314060821*^9, 3.799986624244072*^9},
+ CellLabel->
+  "Out[761]=",ExpressionUUID->"bbc1d825-3fc8-4fcf-8ef6-3b0e78237ec2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"datafit3310", "=", 
+    RowBox[{"Transpose", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"a220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+       RowBox[{
+        RowBox[{"a330d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
+        RowBox[{"a220d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit3310", "=", 
+   RowBox[{"NonlinearModelFit", "[", 
+    RowBox[{"datafit3310", ",", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"aa", "+", 
+         FractionBox["bb", 
+          RowBox[{" ", "qq"}]], "+", 
+         FractionBox["cc", 
+          SuperscriptBox["qq", "2"]], "+", 
+         FractionBox["ee", 
+          SuperscriptBox["qq", "3"]]}], ")"}], "/.", 
+       RowBox[{"aa", "->", "acons"}]}], ")"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"aa", ",", "bb", ",", "cc", ",", "ee"}], "}"}], ",", "qq"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n", "=", 
+  RowBox[{"Normal", "@", "fit3310"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n1", "=", 
+  RowBox[{
+   RowBox[{"fit3310", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310n2", "=", 
+  RowBox[{
+   RowBox[{"fit3310", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7906792687419233`*^9, 3.7906792762386703`*^9}, {
+   3.790687222559133*^9, 3.790687222726465*^9}, {3.790687356744519*^9, 
+   3.7906873573265142`*^9}, {3.790687405340337*^9, 3.79068740753106*^9}, {
+   3.7906875451372633`*^9, 3.7906875452253323`*^9}, {3.790687611958949*^9, 
+   3.79068761326649*^9}, {3.794719775957651*^9, 3.7947197829858027`*^9}, {
+   3.794720071067053*^9, 3.794720074597693*^9}, {3.794722837522263*^9, 
+   3.794722844432363*^9}, {3.794722937571804*^9, 3.7947229380342913`*^9}, {
+   3.7947230892942133`*^9, 3.794723094112927*^9}, {3.794724665684819*^9, 
+   3.7947246746438923`*^9}, {3.794739367513536*^9, 3.794739379504652*^9}, {
+   3.7948007044003963`*^9, 3.7948007217651157`*^9}, 3.796093293510025*^9, {
+   3.79609336805941*^9, 3.7960934104149933`*^9}, {3.796350676552245*^9, 
+   3.7963506771857023`*^9}, {3.7963549465770397`*^9, 3.796354947734164*^9}, {
+   3.7999796311080723`*^9, 3.79997963132281*^9}},
+ CellLabel->
+  "In[762]:=",ExpressionUUID->"bbb41ccc-845b-482d-bed3-4ad96e08bb29"],
+
+Cell[BoxData[
+ RowBox[{"0.4333624481019772`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.035144185889527016`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08809805692016263`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5566046909116669`", "qq"]}]], "Output",
+ CellChangeTimes->{
+  3.795926570557989*^9, 3.7960932611724863`*^9, 3.796093358506784*^9, {
+   3.7960934041518383`*^9, 3.7960934109816713`*^9}, {3.796350674731153*^9, 
+   3.7963506774980707`*^9}, 3.796351383331056*^9, 3.796355021322731*^9, 
+   3.796358384448457*^9, 3.796359790509304*^9, 3.796363159038835*^9, 
+   3.796541421742961*^9, 3.7969894939559107`*^9, 3.796989691523143*^9, 
+   3.796992646022707*^9, {3.797051999473055*^9, 3.797052029313856*^9}, 
+   3.7971415069318047`*^9, 3.797155192028225*^9, 3.799979632030322*^9, 
+   3.799985831415641*^9, 3.799986314748659*^9, 3.799986624340082*^9},
+ CellLabel->
+  "Out[764]=",ExpressionUUID->"04d40a62-890f-403c-a2b1-72d54b6827b8"],
+
+Cell[BoxData[
+ RowBox[{"0.43336244810197716`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.035144185889527016`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08809805692016263`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5566046909116669`", "qq"], "-", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.009658053105613525`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.031644549107757505`", " ", "qq"}], "+", 
+      RowBox[{"0.040076113688365785`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.024963198448158846`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.008067714694475203`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.0012758618928306424`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.0000817279602924794`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{
+  3.795926570557989*^9, 3.7960932611724863`*^9, 3.796093358506784*^9, {
+   3.7960934041518383`*^9, 3.7960934109816713`*^9}, {3.796350674731153*^9, 
+   3.7963506774980707`*^9}, 3.796351383331056*^9, 3.796355021322731*^9, 
+   3.796358384448457*^9, 3.796359790509304*^9, 3.796363159038835*^9, 
+   3.796541421742961*^9, 3.7969894939559107`*^9, 3.796989691523143*^9, 
+   3.796992646022707*^9, {3.797051999473055*^9, 3.797052029313856*^9}, 
+   3.7971415069318047`*^9, 3.797155192028225*^9, 3.799979632030322*^9, 
+   3.799985831415641*^9, 3.799986314748659*^9, 3.799986624419119*^9},
+ CellLabel->
+  "Out[765]=",ExpressionUUID->"223acb7e-4a9b-4369-abd8-de7dbcd26f87"],
+
+Cell[BoxData[
+ RowBox[{"0.43336244810197716`", "\[VeryThinSpace]", "+", 
+  FractionBox["0.035144185889527016`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["0.08809805692016263`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["0.5566046909116669`", "qq"], "+", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.009658053105613525`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.031644549107757505`", " ", "qq"}], "+", 
+      RowBox[{"0.040076113688365785`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.024963198448158846`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.008067714694475203`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.0012758618928306424`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"0.0000817279602924794`", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{
+  3.795926570557989*^9, 3.7960932611724863`*^9, 3.796093358506784*^9, {
+   3.7960934041518383`*^9, 3.7960934109816713`*^9}, {3.796350674731153*^9, 
+   3.7963506774980707`*^9}, 3.796351383331056*^9, 3.796355021322731*^9, 
+   3.796358384448457*^9, 3.796359790509304*^9, 3.796363159038835*^9, 
+   3.796541421742961*^9, 3.7969894939559107`*^9, 3.796989691523143*^9, 
+   3.796992646022707*^9, {3.797051999473055*^9, 3.797052029313856*^9}, 
+   3.7971415069318047`*^9, 3.797155192028225*^9, 3.799979632030322*^9, 
+   3.799985831415641*^9, 3.799986314748659*^9, 3.79998662449683*^9},
+ CellLabel->
+  "Out[766]=",ExpressionUUID->"e205e178-477b-4883-99d9-9d44c46c19b6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"datafit2110", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"a220d", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+      RowBox[{
+       RowBox[{"a210d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
+       RowBox[{"a220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit2110", "=", 
+   RowBox[{"NonlinearModelFit", "[", 
+    RowBox[{"datafit2110", ",", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"aa", "+", 
+         FractionBox["bb", 
+          RowBox[{" ", "qq"}]], "+", 
+         FractionBox["cc", 
+          SuperscriptBox["qq", "2"]], "+", 
+         FractionBox["ee", 
+          SuperscriptBox["qq", "3"]]}], ")"}], "/.", 
+       RowBox[{"aa", "->", "acons"}]}], ")"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"aa", ",", "bb", ",", "cc", ",", "ee"}], "}"}], ",", "qq"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110n", "=", 
+  RowBox[{"Normal", "@", "fit2110"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110n1", "=", 
+  RowBox[{
+   RowBox[{"fit2110", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110n2", "=", 
+  RowBox[{
+   RowBox[{"fit2110", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.7906792687419233`*^9, 3.7906792762386703`*^9}, {
+   3.790687222559133*^9, 3.790687222726465*^9}, {3.790687356744519*^9, 
+   3.7906873573265142`*^9}, {3.790687405340337*^9, 3.79068740753106*^9}, {
+   3.790687540140522*^9, 3.7906875513039017`*^9}, {3.7906876150259457`*^9, 
+   3.7906876163334913`*^9}, {3.7947197859702253`*^9, 3.794719800926861*^9}, {
+   3.7947200883821*^9, 3.7947200895560093`*^9}, {3.794720327886085*^9, 
+   3.794720333336801*^9}, {3.794722848648068*^9, 3.794722853219157*^9}, {
+   3.794722943846775*^9, 3.794722944419471*^9}, {3.7947230977584057`*^9, 
+   3.794723101917881*^9}, {3.7947246787984133`*^9, 3.794724684804338*^9}, {
+   3.794739387647665*^9, 3.7947393972441883`*^9}, {3.7948007847776403`*^9, 
+   3.79480082363877*^9}, 3.796093451156238*^9, {3.7963506842148542`*^9, 
+   3.796350684921389*^9}, {3.796354957807609*^9, 3.79635495871462*^9}, 
+   3.799979676615658*^9},
+ CellLabel->
+  "In[767]:=",ExpressionUUID->"cadb8c2a-cb1d-4678-ae2f-a5f4252feca2"],
+
+Cell[BoxData[
+ RowBox[{"0.472741767747825`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.4040810782981084`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["1.033313510387039`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["1.1019741998367556`", "qq"]}]], "Output",
+ CellChangeTimes->{3.799979677602401*^9, 3.7999858315993357`*^9, 
+  3.7999863158483553`*^9, 3.799986624665475*^9},
+ CellLabel->
+  "Out[769]=",ExpressionUUID->"15156c90-c002-4964-bfc2-9e12c8073dff"],
+
+Cell[BoxData[
+ RowBox[{"0.472741767747825`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.4040810782981084`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["1.033313510387039`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["1.1019741998367556`", "qq"], "-", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.0007285218047135487`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.0023869970244759313`", " ", "qq"}], "+", 
+      RowBox[{"0.0030230029127903523`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.0018830124649350712`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.000608560131618754`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.00009624022549534081`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"6.164865783687924`*^-6", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{3.799979677602401*^9, 3.7999858315993357`*^9, 
+  3.7999863158483553`*^9, 3.799986624668736*^9},
+ CellLabel->
+  "Out[770]=",ExpressionUUID->"a9139835-719f-44ab-bee5-060d29629e67"],
+
+Cell[BoxData[
+ RowBox[{"0.472741767747825`", "\[VeryThinSpace]", "-", 
+  FractionBox["0.4040810782981084`", 
+   SuperscriptBox["qq", "3"]], "+", 
+  FractionBox["1.033313510387039`", 
+   SuperscriptBox["qq", "2"]], "-", 
+  FractionBox["1.1019741998367556`", "qq"], "+", 
+  RowBox[{"2.8784404727386046`", " ", 
+   SqrtBox[
+    FractionBox[
+     RowBox[{"0.0007285218047135487`", "\[VeryThinSpace]", "-", 
+      RowBox[{"0.0023869970244759313`", " ", "qq"}], "+", 
+      RowBox[{"0.0030230029127903523`", " ", 
+       SuperscriptBox["qq", "2"]}], "-", 
+      RowBox[{"0.0018830124649350712`", " ", 
+       SuperscriptBox["qq", "3"]}], "+", 
+      RowBox[{"0.000608560131618754`", " ", 
+       SuperscriptBox["qq", "4"]}], "-", 
+      RowBox[{"0.00009624022549534081`", " ", 
+       SuperscriptBox["qq", "5"]}], "+", 
+      RowBox[{"6.164865783687924`*^-6", " ", 
+       SuperscriptBox["qq", "6"]}]}], 
+     SuperscriptBox["qq", "6"]]]}]}]], "Output",
+ CellChangeTimes->{3.799979677602401*^9, 3.7999858315993357`*^9, 
+  3.7999863158483553`*^9, 3.799986624747775*^9},
+ CellLabel->
+  "Out[771]=",ExpressionUUID->"79a8705c-c316-4839-be0e-b6bf4dc379bd"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"fit22110n", ",", "fit3310n", ",", "fit2110n"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"qq", ",", "1", ",", "12"}], "}"}], ",", 
+   RowBox[{"Epilog", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "datafit22110", "]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "datafit3310", "]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "datafit2110", "]"}], "}"}]}], "}"}]}], ",", 
+   RowBox[{"PlotStyle", "\[Rule]", "colors"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"PlotLegends", "\[Rule]", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+       "\"\<\!\(\*SubscriptBox[\(A\), \(221\)]\)\>\"", ",", 
+        "\"\<\!\(\*SubscriptBox[\(A\), \(330\)]\)\>\"", ",", 
+        "\"\<\!\(\*SubscriptBox[\(A\), \(220\)]\)\>\"", ",", 
+        "\"\<\!\(\*SubscriptBox[\(A\), \(321\)]\)\>\""}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0.9", ",", "0.72"}], "}"}]}], "]"}]}], ",", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<q\>\"", ",", "\"\<\!\(\*SubscriptBox[\(A\), \(0\)]\)\>\""}],
+      "}"}]}], ",", 
+   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+   RowBox[{"FrameStyle", "->", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Black", ",", "Bold", ",", "16"}], "]"}]}], ",", 
+   RowBox[{"LabelStyle", "->", 
+    RowBox[{"Directive", "[", 
+     RowBox[{"Black", ",", "Bold", ",", "16"}], "]"}]}], ",", 
+   RowBox[{"GridLines", "\[Rule]", "Full"}]}], "]"}]], "Input",
+ CellChangeTimes->{
+  3.790687525253502*^9, {3.790687557253933*^9, 3.790687626971509*^9}, {
+   3.7947198181360617`*^9, 3.7947198362021923`*^9}, {3.794722861397764*^9, 
+   3.7947228722332153`*^9}, {3.7947231055306253`*^9, 3.794723108979075*^9}, {
+   3.794723510112615*^9, 3.79472351306618*^9}, {3.794724691122361*^9, 
+   3.794724702465928*^9}, {3.794800808345251*^9, 3.794800812472971*^9}},
+ CellLabel->
+  "In[772]:=",ExpressionUUID->"012b5812-f444-4fd7-b1f4-32753eb27d37"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{{{{}, {}, 
+      TagBox[
+       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+        Opacity[1.], LineBox[CompressedData["
+1:eJwV1Hk8VekfB3B07fteluyOUlmHpPF93HIt2WfGZFDZotGmkJSmVJaIwthp
+QaFEaTG2kCX7tOhe3Hu7F5WfZO5iS+L39Md9ndf7dV6fz/2e53nO0Qk65h0q
+JCAgUIF/P672r8k7BQQ4YOn8YrfzLRbIKBT3vJLmwLqtT/nmFSwY9Vr0KVXn
+AP94WPqHByyIenUvkmLNgUn3geCqRhbYy4usqTpw4N0qZ7mlDee9DqT9z5sD
+UxdlrG91s6DiX6W7aUc5MGvLl3zzmgXRcscs953lQNp/wX36NBaQPXvaTK5w
+gNkSFe/EYMHYUDz9dTkHtvvx2sU/4b6hj/IbGBzQPnbzdfoSvi9jf2N6mgMi
+Gg+9Uldwv3vhlqYlDpSlJe4OFGADedDDcb8SF+zsQ8eLRNkgK1P11lSXCx6z
+EyYkSTbQ3UhBQqZcEJtws3KSYUP0QP3Z8j1cyFZIOX9ICeelFSVO+XKhWWuI
+7KTKBhm3I7lOYVzYW6HVKKLGhop+nUefE7hwc9Wi2EAL56XOQvM1LgwOd4Yk
+6eC867v+9BIuCO/dVtKnh/+v78onswYuaCy0LH0n2FAp+SFq3UsuuDPk/viy
+iQ0xe0BoeJgLPJf66jZjnE/Nz7gzwYXZBKvUM1vx/H18jVguzqe8SFQ3wX0S
+7lXOa1yg0QPNbpvieVwqrNWleXD4EXe9nDnO9/p7txjxYEDPuLvUEuclnr3P
+sOLBQVZGQe9POO8sfyRwNw8y4v/qGLXC86RELJt786DNwa7jrTWep6cziXSA
+B1uqflf5ZzsbdolrK787wgNJ9weWyTZskHOOu333DA98qlJzyDtwX/Jbk9Mp
+PLjmWlM7hV35cluzSy4P7tcFzMfZ4j6xFBeNch6cGzj69is22WmC+uURD/JU
+/RtDd+L5kn8Ofd7Kg/FQd+Xn2PTuXN61QR7keBnvEfkZ94ny/gqi82DU+/YL
+W+wYR1dpy2kehCXZTOzH3pV0p0B4iQexRn9IncSW6xYwogrzQe2R/41obIaI
+35MKRT6ot2Qvh2FXUZ6Q43T4kJftH+fyoy9R9t89JnzQj9I+rfmjr+tQgObP
+fIjLOuTBxvPIiXRMz7rwoZY59UvOj/kcNsa27uVDUeSFsZ3YlZdjhTMP8sH1
+lbfN8I/n7XydGRzFB7uP7S37sW2XYmv2XeRDTvontVd4fQSMtfp9M/nQyviD
+Z47dGdA59estPjQU77pzGa/vlWsRwp61fGCmFP3dg9ff44W87p7nfDh/2l5z
+De+P0sIzO8ogH0osVnINsUv8SLE7Z/A8cb3drnh/g9Orsq2/8SFIP9HIFe+/
+UZvnQ3OJOYiG52/sLNjwyLB42shoDsZzj7uu4fPTxf0pQDlkDv7WWLOex+cv
+VZ9+Wu7kHISILvyZu5kNnr8n5EgmzAFhmGZvgs/raNPgkODNOaDsq/iEDNkw
+mxRGnh2bA32JYiM+fh9UNuYT3b/MQ+P7s9nd8mwY84Td7UHzcEmjs58ly4ab
+Fz8caI6cB2fNMQe+NBs2/8+soC5jHiLLnepJEmywe9wrdbNvHqQ843KYgmw4
+6LLCjd21AE2RzROZHBY8jdnftNliEXRIPuzFXhYUGF+tI+wXwTxmUvvBSxac
+YzVU6XsswvyAECWoiwUUF5X8jRGL4K6gmt6Bv0/DmgPRCqWLcJS5S+NkPQvm
+OnaYLCssgUIZ0zqpnAVmiiq3e3hL4H/38CfeORbcr+lPCn+0DMfDp7PAjAU9
+VL1aFe1VeKbkf0yd/B6WmI2/Kc0IoMdfLQKOmTPhrePCQWG+AJJxa+gf2saE
+2lrT2IWvAqg0y6ra3JgJYQnlBTRRQaS37N68pseEdwYZ74v0BBHn8dDqU2Um
+PD4cdMjATxBVifymk/+VAceXxeKtegWR2/370vovGPBJ2adsb4UQ+tdyh5JM
+AAPsYq3imTVCiDCVdWz1ZUDOqIpPyDMh1HUr62uUDwMoN6iix7uE0FEi7N0H
+DwbcMfKNSJoUQrHmsPMDmQEhtv7mT7XXIe/wi1q+mxgwfiCoVTF/HXpu/u24
+2BId6PeO0gdTSKj+ynkHrSI6KIyL5ZhdJyHnJJvBY/l0cFpf6pGdR0Lkj+ae
+7Tl0eHyJ2u57l4S2z/vZHLlOh6sBqHKyg4Seln85MZpIBztZhZjlNRJa9HHe
+IH+CDjdPPJE1jBFGaFu26qQzHUJtVsjxQSKo/VXwwb7VMXgpEbd8UF0M8S5f
+qfe+OAZmtjGFCV/FUdfIbOGa/BhE1wRdHXkmiby/TOf/92wU3NQ7qsOPSKNe
+hd3F9RGjsPlj6bNNTrKo+nuWuon+KF5PG/GsC3LIrqJaV3d6BNzNAo2rIuWR
+afmVvRvqRmBhoj0kIEABSUm9KXpxcQTS6oso22wUUfDfkwWV/iNQ1vSTZh6h
+hJbdh4RnrUagapxSpCWijJaZSkSc6ghYbFeVQ4vK6HPjtqTPSzRIFNctXJlQ
+QSrFis/XGDToWikbfNeqiu53bhp26KZBitanBefa9SiuqFBlqpYGNiG3ukcz
+NqAb9gY1H4tpUKefUyMaoYYcrHKiX6fRoFbJJW1grzrq889cHT5DgwLDGPmH
+Vhqow//pmMMRGoiGB6ZuJTSRbnKLS/M+GtgZJGlQFDciyrj9cr4XDYJIBj5n
+/9uIfPe2pCEKDcQVEy7tYWqhQ9MK64Z30GDo1r2tRfu00YlLOoMzpjRYO1VX
+xurTRob2X4JHCRpwPqjlRJJ10Ey9s37lRhrQQlr85B/qoOIv2eZlKjS4cKat
+8LuRLrq0Vh1yXoYGOqUCtUt5ushCeNDtgCgN7ogxhtpE9NDJrqar/QI0mBHe
+8Cc1Xg95tV5uVl6mwial67RvM3ron4e/J2ybowLREN52OFQfuRkqShnOUkGi
+hPHk3pg+Mmy/Xn1tigqTmennvjoboPGiePHSCSr8pXWjLavNAB129jyaxaSC
+fPNn2k4zQ/QxsXp+/SgVkvOGv9WVGCK10aOkmWEqtElq5Z9SJtCiJb+4+BUV
+OBllEi6XCPQ92Um/b4AKjnS/8e2JBDrSbH22AbvESLGBSCbQdPU9aiW2a9uF
+Q8JpBPLM08xPxq7k7XvZmkWgxHgpCgU76LcNidalBDIzMnFs76fCW7V0QYN2
+AmWSA9839VHBOMxhRLGDQDpF0+X3sRPqVmqFugiUu552rAjb1DXiAKuHQAnn
+x6TPYl+Nd3pe+IpANm7hJ2yxKSyheAU2gR6oNtMbeqlQvKXhV8EJAlVpK4xU
+Yc/FRm7hTBLo6rVGWgH2bXnW2MAUgd60i47HYa+Rm3ekcAhk6fOnhi22T0aU
+QiyPQNWxjhbG2A/GjKcPzhFonWOkmzq2f1RB/u4lAuXJ3U391kOFulavSItl
+AgXqPKz5jC0hLe6su0IgTXESdQw70LdVW36VQNFvSgT7sevLTy2trREoIu28
+SRP2/wEaOR0Y
+         "]]},
+       Annotation[#, "Charting`Private`Tag$411881#1"]& ], 
+      TagBox[
+       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+        Opacity[1.], LineBox[CompressedData["
+1:eJwVzns41PkeB/DRRu65DK3rGLdfJTaPbV0qn2/KJc1xKpqHxxq5FMWKk8tk
+V0XWyiHinMp9RUfHpRkrXYbWjAzjTpj55dasS65tQowxjZ394/28n9fz/udN
+Dr5y9sIOAoEQIcvffeyNyxECYRkIBBQjlxvtrK5V3DGgJrPGHscymheMnNmg
+lhvInDxfGkulQexAdYyb/TLc3AircXKLgsf9xMrMqGVgE2dCNs2vg3rfe029
+cdneHVVDfJcFY10Zs7asT6BBcmznexRDPPdNbkjsKvA4JfKWCjVwWERn0G6t
+QjTgBd6xNUCwInX75a5CeuyPZqTJGsjIiZA/zVwFxa6LFTlNtVDiv5N+ZGkV
++l2tlv6IZEDbp0MBOqFrsDcn6F19QB3oGudj7d6fgZfa8Wdv+lN4Fh/YtN9u
+A9bO/r5B8WNBgVVWPXZsA06oHSg7lMKC60JWlfk/N+Cm9z7YqmKBm6duvnHE
+BnwbwhYaSVgwbNQTp1W+ARqKm9GtRY2w1ur0jVhLBMwQj5Cngiaw1dZ92LEi
+AvruL1rKh5qhhtH9S/hvYmgaW2k+08kBimoUIrHFUPOSupo7woEP4bs3h3vE
+QDU8Zdm+wAEb07OXj8+LIXbaiaOo0gLM/wgoxiZbkJv38MSKZwvUX5vUHMra
+gnh3BfJlXguwjosK4ZIEFAOFl9xZr6FDYMbUNZFCa9Npe9pPXAjGNEXrNlJY
+Pn91ZSqDC+J4KQiOSiExceJ9QD4XDui+7bvvLwXnUDumzTMu3PG58/Hr+1J4
+bP3c1vUjF84OiGwM1LfBQUWLfCawDcY6e2pJkm34tTfjg5N9O4gmGs8Rlwjo
+K/H8cT6PB0Pu6xflVwko2HnstGSQB0zmQfr6JgHdb+Xn6L/jQVjKowJ8lxy6
+OTrKg8884Ftkvysyk0O9m+Mfrckd8DQy+JKFvxyyk/jUlSZ0QLRYMem7TjnU
+MPHrggqpE2Z1qBW+j3cgIuWgNMWvC8aqo8Z6b+9EW08c2vf+1gMXHCUuScEK
+iBVnJwmt7AOecqL4ooEimvdL8J0t7gfbw/GFKZtKyPVumfBowADEMYKz3j5X
+QUY95EgkHoB/GLTWhv+ghqY7IwI9b72B/e/Ln+/z2I1y1Adr1RQHZX8clfKS
+NdD5Nt4up4RB8LINsqqK0UQtP3QmLk4NwvpUS2hAgBZyJz6P8j0xBJkvitxs
+HLWRxjdK+73vDUFF0yGjBxgRJY9h3NrZIaiadCsiKegg8c8G0zTrYbBz2KOB
+NnSQX4Nz8cy/hiFNybRQMqWL2sWbjzrrhqFNUtHLZ+9BS1kNc3Zzw3CbNLt+
+kvk1ou53OalM4oNjaFn7SLYeWohgGDZ68aHe/B5jV4Q+soTpw6mJfGASPTN7
+fA0Q/cm3TLlKPhRYxmvWfWeIKm8lVa/18GFXeNC/rTEjlBmY2VT6mQ/OFr8Y
+umkbo8YLHjYO+gII3mlB/emjMbqrtHL+ipMAlLRTUk9NkBBlkbty1V8AfWXV
+1kU0E3RuoupFMV0A2wn1FcIuE0RTrTnCzRPA8oz+vRgXMirScBU2MwSAh/7u
+r1lHRozu+ZfZPAEk/8gp/LLXFJ1OfaGGTQqAXE5gih6YIk/9jBtzIgH8T3G8
+j6Nghq46J/Ec1HFYkte7LEgyQzgxaoZijsM+4l18a8kMDXNFAVJ7HDBWOCfy
+gjlStvFmhFFwUC4Zb6geNUc0xjN6TiAO07l3rm+etEDyT9KP1kfjcINUysnj
+yBxmyklLwUHz1SJ+xNYSPdRLLr+Zi0P6g+Gt+hJLhL+aj8srw4GjQspP0MHQ
+G3L7vFcdDsvZFcqeqRhq1HJYuNKMg/uY/6RDGoZ8AnQEtTKX7NVmYekYMtv8
+8HJRZgon+ZJ8JoZujRQEhbFx+P8KjcfOw5CXNuZI4+AQfE4vzb4cQ01uFiqe
+r3EY0r8jZ9GCoWspV07pt+NgFeb6VrsVQ0/TvpdQZU6plzB3tGHoBvFueZ7M
+BykR54UdGPpsMjKkysMhK8mjuXAAQ8pk69dSmd2EO5K0/sBQQ+R4v7ATh+ID
+LB+5KQzl0PxmDbtwWKPHHFiextDU0LE1X5kfagpHe+Yw9OVq0Kd+mbddXjnd
+XsbQf6kG19jdOFCzY7XoKxh6f+rwcYnMT0atFi6uYWhB8vYrhx4cvo8tyD8h
+wtBcaVE4Q+Z69pkYOzGGVPdwVRdlVlZTOmkqwdBBn7hKy14cgvzYJppSDBk9
+YDgEy/ziUYJoextDM6bx7GKZ/wLY20Co
+         "]]},
+       Annotation[#, "Charting`Private`Tag$411881#2"]& ], 
+      TagBox[
+       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+        Opacity[1.], LineBox[CompressedData["
+1:eJwVzns01AkUB/BJVLRivMp7ED81tM2xCNW9qYRsT8QybSSkKNuEU1EkMXlt
+Ohl5JEbrsUWc8gjNSEjkkTG/QolKD7vGIw3Nrv3tH/fc+znn3nO/Rv4n9h2R
+o9FoXlT937f0Om6k0SRAjZaq4tDNK9Ryn/YoU+Z8t5yz2Qmv9n7zLNSlHFMV
+Or/CBzg9ZeFOtpTzzm6yEoZAcbfGH8lhEhBkb9SasDgDK7o+0LWHJMBgZBie
+M0iCwWfcMVbdJAh2XLQmvTKhZPl7zuK2SVjPmRhuncuEiJ0gJxJNQkU7oyk+
+iwcqz6b1oiYnIZ1twLogygLHdt99jeZToKq7i8nEHChpW9fgmjkFiTr69Fu/
+5UPEk96rhznTcPxSwcD9Vj44SKPKD16chnfqH3fzVIqAxjTs8L46DcNTKfl6
+B4qAm35MYU/FNFxIWTig9r4I8nzkozaOT8NJVbZsVHYbWiat2ZoBM+DMYLhz
+9UtAyyCLaN3/FRhLWPsdLe7Ag4hf69dafYP8487kY+9K+LO843Jw5Tz4utv/
+4FtZA0/FJhVajH+heFTGld/TCNLXDz00xmkYmO7EDhwXwpimJ9+rWA61iu2X
+m2xvhsGysMHnSfL4U/qG8x7XWuCIncwx2n8JNs3RA+kFbdCmdGY+UHcZGtyw
+/eXeoXZgOURkx80ponmuvWuQTgecLvdPeVm9HFueNo3qZHTCz7rNd4JDlXHW
+uLYr58NzWPuhsHqNswrSL2+KydXrhpPzdooZsaqouUfFyvBuN+xi+TFLw+nI
+S7PXrYYemB1tCmCz1dD8Ut3H0sc9kFyT47TOTh2b2SojE9a9wK+31ucRGsjV
+ZjlDSS+UjjjlGC7RxDd7nzFSlV+A1YaVqvhNE928Wh2UTr2ABEXjbNmoFrZJ
+Pxurdb+AFhn/eb9gJSqMppeeN+qDJMOxWZeKVVjD3foXh9MHdgG3Wl+laWOC
+d1CfR0MfVK2+Xr70mA42Cq/gS5oIKjRckzu9dLEyxoan5CSCG2YR9Hs2ehg5
+mK+od1EES4P9rlgS+jiSMlDYKhTBZtPLek7qBsg4LS1QkInAX97U89yEAVaP
+XDEp+LEfFNXj4ne+NsR4HpwYDOiHrltlljkHGbiLuyqWuNYPC5FV/OFnDOz7
+VG8SKugHyXud6+GORuhuv5nl/Hc/kAGNPvR7RljeUXfRbKUYYs8Ks/8xN8Ym
+kVLvhS1iMCqkVUh5xsiuahB6BInh9rKhLuESE1R4lJD6mSuGcQXtEHG0Ce5+
+YFs1Xi6GNRq/k9/HTTCh9ou7ao8YiLpg4fEjq3FxX4wLd1oMSnlD98sGVqP8
+hUtHFTRIeHc1NWbOxRSftCudZrJIOG94U5ghNEWnk7O+mbtJoDd8ITeyzLBY
+EPZaEkJCIk/0vSrPDNNiBJ098SQIlxtmRWoSKOo4NTF2kwRJGl/JNZ5AM3nN
+ZLcaEnYM+oxsSCBw8HJxVjXlPHP1OiKRwEeBxpnGtSS4CWOPKiQT6FAi9pNS
+Lpk62CbIINCXecem8CEJ/h7aCbaF1P0M8fZrIwl9OqmLTJsIpCds3Zf2hARm
+0PaX6s0ESk1SD0spx1XJKuRaCEy/t/6IXwsJ692OHRp+SmBM4hU7q1YSUqKd
+H2X3EMgJmDPrbyPBaVguWu0ttc+pX6ndQUKuRZ37olECeWWm62Mpz0SFW0je
+EchfYWD3iXIBfXig8yOBIfLterWdJCw4NtgnSQhcZx7G9OoiwTONoxY1RWA3
+VLQ9onx3gPk5cIbAJkGOJ9FNgi/nRtY2KYGu3Lhts5SrBHvDreYJxOtxfHYP
+CUrKii7GMgKdr9p/babs5y1g0P+l8gzdsbHoJaGmKFK6sED9738TnEH5Pznk
+l4w=
+         "]]},
+       Annotation[#, "Charting`Private`Tag$411881#3"]& ]}, {}}, InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(221\\)]\\)\"",
+       "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(330\\)]\\)\"",
+       "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(220\\)]\\)\"",
+       "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(321\\)]\\)\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 16], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "16"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
+     Scaled[{0.9, 0.72}], ImageScaled[{0.5, 0.5}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->{True, True},
+   AxesLabel->{None, None},
+   AxesOrigin->{1., 0},
+   DisplayFunction->Identity,
+   Epilog->{{
+      PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37+WslQAY6nNesLTh07659oGaa+Lp2JoeLaxwCZuy7a//t0RugecwO0lLV
+7eE2d+x3qAUpxfCzOFy/r3GghOGufaE2L1A7h8PeUwoBPED55PeSzCD+hNMR
+hjvf3LY/pswJlOdxOH7njrOv3S17mW1z9vz/z++g9MW+MSrklv05s3//Qfye
+jcH3Zqy4ae+hJQNUL+LA8GG6zrH5N+0lfQ4D5UUdXHZ7+7atvWm/cNr6H9/+
+izvEtnjW/192w77fXRJogYSDYdX/FVd6btibTwZ5R8bB5k8kW9fH6/axd/oO
+fe1QcDjM9+pubvANe6NOSaC8ksMykbRDefev28f5bAGar+wQe2DJEdGX1+0B
+RmOfJA==
+       "]]}, {
+      PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sL/W6RW8gKHKrllPF8zfp32gr3F6sZ0/
+w9////9/tv98SiMxomODPUd8LFD+h/3K/HX6ZsV77DcXHbS87//X/nX8/CPs
+Kkft56+VABno4Oj/8U/pquP2gZpp4uvamRxKrVNP7tE4bf/t0RugecwOhqc7
+ZP42nrLfoRakFMPP4pBft2F+3+cz9oXavEDtHA6Fbyftzta9YJ/8XpIZxD/z
+f45315EL9seUOYHyPA5MVSK35DIu28tsm7Pn/39+h/aOycpbwi7bnzP79x/E
+Pzvj9SXRqMv2HloyQPUiDuKNn4Q/rr5iL+lzGCgv6tCqtCKvxOWq/cJp6398
++y/usMrlwMbTd67a97tLAi2QcJj17LzHOs5r9uaTQd6RcTA81bsl+fQ1+9g7
+fYe+dig4bKm/+fd99XV7o05JoLySw+v1u+xfX71uH+ezBWi+skPprOvvDdVu
+2AMAa6ShlQ==
+       "]]}, {
+      PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sN97X/bT9yOhds16umA+h2e4aUtsjp0/
+w9////9/tu+wupnVcHipPUd8LFD+h/3O/iaN+ac3228uOmh53/+vfaxYS1WE
+w177+WslQAY6PFj2lrnsygH7QM008XXtTA7ZhldND+sdsf/26A3QPGaH/HBN
+reu3j9rvUAtSiuFncTjHHhE3NeKYfaE2L1A7h8Ps+ymm+51O2Se/l2QG8ffN
++LrwWtIp+2PKnEB5HofIhO8HvF+ftZfZNmfP///8Dv5FLhP4gy/YnzP79x/E
+txLY2zXR4IK9h5YMUL2Ig9f1kiXB4ZfsJX0OA+VFHXY2yK6fEnTZfuG09T++
+/Rd3mPR5yyvPgCv2/e6SQAskHKL5A3tFzK/Ym08GeUfGwSonibfS76p97J2+
+Q187FBzen3ddwLfmmr1RpyRQXsmB6QZj2Gm36/ZxPluA5is7vJ57Ia5N4IY9
+AMlAmNg=
+       "]]}},
+   Frame->{{True, True}, {True, True}},
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(0\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 16],
+   FrameTicks->FrontEndValueCache[{{Automatic, 
+       Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+       Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.1, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.2, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.3, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.4, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.1, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.08, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.06, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.04, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {-0.02, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.02, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.04, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.06, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.08, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.12, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.14, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.16, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.18, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.22, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.24, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.26, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.28, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.32, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.34, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.36, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.38, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.42, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.44, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.46, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.48, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.52, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.54, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.56, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.58, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.6, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {4., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {6., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {8., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {10., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {12., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+          AbsoluteThickness[0.1]}}, {0., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {0.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {1.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {2.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {3.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {4.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {5.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {6.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {7.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {8.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {9.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {10.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {11.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {12.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {13.5, 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}, {14., 
+         FormBox[
+          TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+          AbsoluteThickness[0.1]}}}}}],
+   GridLines->
+    FrontEndValueCache[{
+     Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+      Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, {{{
+       2., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {6., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {8., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {10., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {12., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {1.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {2.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {3.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {4.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {5., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {5.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {6.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {7., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {7.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {8.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {9., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {9.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {10.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {11., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {11.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {12.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {13., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {13.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {14., 
+        Directive[
+         AbsoluteThickness[0.1]]}}, {{0., 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.1, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.2, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.3, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.4, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.5, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.1, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.08, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.06, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.04, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {-0.02, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.02, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.04, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.06, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.08, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.12, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.14, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.16, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.18, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.22, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.24, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.26, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.28, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.32, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.34, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.36, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.38, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.42, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.44, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.46, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.48, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.52, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.54, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.56, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.58, 
+        Directive[
+         AbsoluteThickness[0.1]]}, {0.6, 
+        Directive[
+         AbsoluteThickness[0.1]]}}}],
+   GridLinesStyle->Directive[
+     GrayLevel[0.5, 0.4]],
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 16],
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}},
+   PlotRange->{{1, 12}, {0., 0.5387523758450385}},
+   PlotRangeClipping->True,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{{{{}, {}, 
+        Annotation[{
+          Directive[
+           Opacity[1.], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798]], 
+          Line[CompressedData["
+1:eJwV1Hk8VekfB3B07fteluyOUlmHpPF93HIt2WfGZFDZotGmkJSmVJaIwthp
+QaFEaTG2kCX7tOhe3Hu7F5WfZO5iS+L39Md9ndf7dV6fz/2e53nO0Qk65h0q
+JCAgUIF/P672r8k7BQQ4YOn8YrfzLRbIKBT3vJLmwLqtT/nmFSwY9Vr0KVXn
+AP94WPqHByyIenUvkmLNgUn3geCqRhbYy4usqTpw4N0qZ7mlDee9DqT9z5sD
+UxdlrG91s6DiX6W7aUc5MGvLl3zzmgXRcscs953lQNp/wX36NBaQPXvaTK5w
+gNkSFe/EYMHYUDz9dTkHtvvx2sU/4b6hj/IbGBzQPnbzdfoSvi9jf2N6mgMi
+Gg+9Uldwv3vhlqYlDpSlJe4OFGADedDDcb8SF+zsQ8eLRNkgK1P11lSXCx6z
+EyYkSTbQ3UhBQqZcEJtws3KSYUP0QP3Z8j1cyFZIOX9ICeelFSVO+XKhWWuI
+7KTKBhm3I7lOYVzYW6HVKKLGhop+nUefE7hwc9Wi2EAL56XOQvM1LgwOd4Yk
+6eC867v+9BIuCO/dVtKnh/+v78onswYuaCy0LH0n2FAp+SFq3UsuuDPk/viy
+iQ0xe0BoeJgLPJf66jZjnE/Nz7gzwYXZBKvUM1vx/H18jVguzqe8SFQ3wX0S
+7lXOa1yg0QPNbpvieVwqrNWleXD4EXe9nDnO9/p7txjxYEDPuLvUEuclnr3P
+sOLBQVZGQe9POO8sfyRwNw8y4v/qGLXC86RELJt786DNwa7jrTWep6cziXSA
+B1uqflf5ZzsbdolrK787wgNJ9weWyTZskHOOu333DA98qlJzyDtwX/Jbk9Mp
+PLjmWlM7hV35cluzSy4P7tcFzMfZ4j6xFBeNch6cGzj69is22WmC+uURD/JU
+/RtDd+L5kn8Ofd7Kg/FQd+Xn2PTuXN61QR7keBnvEfkZ94ny/gqi82DU+/YL
+W+wYR1dpy2kehCXZTOzH3pV0p0B4iQexRn9IncSW6xYwogrzQe2R/41obIaI
+35MKRT6ot2Qvh2FXUZ6Q43T4kJftH+fyoy9R9t89JnzQj9I+rfmjr+tQgObP
+fIjLOuTBxvPIiXRMz7rwoZY59UvOj/kcNsa27uVDUeSFsZ3YlZdjhTMP8sH1
+lbfN8I/n7XydGRzFB7uP7S37sW2XYmv2XeRDTvontVd4fQSMtfp9M/nQyviD
+Z47dGdA59estPjQU77pzGa/vlWsRwp61fGCmFP3dg9ff44W87p7nfDh/2l5z
+De+P0sIzO8ogH0osVnINsUv8SLE7Z/A8cb3drnh/g9Orsq2/8SFIP9HIFe+/
+UZvnQ3OJOYiG52/sLNjwyLB42shoDsZzj7uu4fPTxf0pQDlkDv7WWLOex+cv
+VZ9+Wu7kHISILvyZu5kNnr8n5EgmzAFhmGZvgs/raNPgkODNOaDsq/iEDNkw
+mxRGnh2bA32JYiM+fh9UNuYT3b/MQ+P7s9nd8mwY84Td7UHzcEmjs58ly4ab
+Fz8caI6cB2fNMQe+NBs2/8+soC5jHiLLnepJEmywe9wrdbNvHqQ843KYgmw4
+6LLCjd21AE2RzROZHBY8jdnftNliEXRIPuzFXhYUGF+tI+wXwTxmUvvBSxac
+YzVU6XsswvyAECWoiwUUF5X8jRGL4K6gmt6Bv0/DmgPRCqWLcJS5S+NkPQvm
+OnaYLCssgUIZ0zqpnAVmiiq3e3hL4H/38CfeORbcr+lPCn+0DMfDp7PAjAU9
+VL1aFe1VeKbkf0yd/B6WmI2/Kc0IoMdfLQKOmTPhrePCQWG+AJJxa+gf2saE
+2lrT2IWvAqg0y6ra3JgJYQnlBTRRQaS37N68pseEdwYZ74v0BBHn8dDqU2Um
+PD4cdMjATxBVifymk/+VAceXxeKtegWR2/370vovGPBJ2adsb4UQ+tdyh5JM
+AAPsYq3imTVCiDCVdWz1ZUDOqIpPyDMh1HUr62uUDwMoN6iix7uE0FEi7N0H
+DwbcMfKNSJoUQrHmsPMDmQEhtv7mT7XXIe/wi1q+mxgwfiCoVTF/HXpu/u24
+2BId6PeO0gdTSKj+ynkHrSI6KIyL5ZhdJyHnJJvBY/l0cFpf6pGdR0Lkj+ae
+7Tl0eHyJ2u57l4S2z/vZHLlOh6sBqHKyg4Seln85MZpIBztZhZjlNRJa9HHe
+IH+CDjdPPJE1jBFGaFu26qQzHUJtVsjxQSKo/VXwwb7VMXgpEbd8UF0M8S5f
+qfe+OAZmtjGFCV/FUdfIbOGa/BhE1wRdHXkmiby/TOf/92wU3NQ7qsOPSKNe
+hd3F9RGjsPlj6bNNTrKo+nuWuon+KF5PG/GsC3LIrqJaV3d6BNzNAo2rIuWR
+afmVvRvqRmBhoj0kIEABSUm9KXpxcQTS6oso22wUUfDfkwWV/iNQ1vSTZh6h
+hJbdh4RnrUagapxSpCWijJaZSkSc6ghYbFeVQ4vK6HPjtqTPSzRIFNctXJlQ
+QSrFis/XGDToWikbfNeqiu53bhp26KZBitanBefa9SiuqFBlqpYGNiG3ukcz
+NqAb9gY1H4tpUKefUyMaoYYcrHKiX6fRoFbJJW1grzrq889cHT5DgwLDGPmH
+Vhqow//pmMMRGoiGB6ZuJTSRbnKLS/M+GtgZJGlQFDciyrj9cr4XDYJIBj5n
+/9uIfPe2pCEKDcQVEy7tYWqhQ9MK64Z30GDo1r2tRfu00YlLOoMzpjRYO1VX
+xurTRob2X4JHCRpwPqjlRJJ10Ey9s37lRhrQQlr85B/qoOIv2eZlKjS4cKat
+8LuRLrq0Vh1yXoYGOqUCtUt5ushCeNDtgCgN7ogxhtpE9NDJrqar/QI0mBHe
+8Cc1Xg95tV5uVl6mwial67RvM3ron4e/J2ybowLREN52OFQfuRkqShnOUkGi
+hPHk3pg+Mmy/Xn1tigqTmennvjoboPGiePHSCSr8pXWjLavNAB129jyaxaSC
+fPNn2k4zQ/QxsXp+/SgVkvOGv9WVGCK10aOkmWEqtElq5Z9SJtCiJb+4+BUV
+OBllEi6XCPQ92Um/b4AKjnS/8e2JBDrSbH22AbvESLGBSCbQdPU9aiW2a9uF
+Q8JpBPLM08xPxq7k7XvZmkWgxHgpCgU76LcNidalBDIzMnFs76fCW7V0QYN2
+AmWSA9839VHBOMxhRLGDQDpF0+X3sRPqVmqFugiUu552rAjb1DXiAKuHQAnn
+x6TPYl+Nd3pe+IpANm7hJ2yxKSyheAU2gR6oNtMbeqlQvKXhV8EJAlVpK4xU
+Yc/FRm7hTBLo6rVGWgH2bXnW2MAUgd60i47HYa+Rm3ekcAhk6fOnhi22T0aU
+QiyPQNWxjhbG2A/GjKcPzhFonWOkmzq2f1RB/u4lAuXJ3U391kOFulavSItl
+AgXqPKz5jC0hLe6su0IgTXESdQw70LdVW36VQNFvSgT7sevLTy2trREoIu28
+SRP2/wEaOR0Y
+           "]]}, "Charting`Private`Tag$411881#1"], 
+        Annotation[{
+          Directive[
+           Opacity[1.], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          Line[CompressedData["
+1:eJwVzns41PkeB/DRRu65DK3rGLdfJTaPbV0qn2/KJc1xKpqHxxq5FMWKk8tk
+V0XWyiHinMp9RUfHpRkrXYbWjAzjTpj55dasS65tQowxjZ394/28n9fz/udN
+Dr5y9sIOAoEQIcvffeyNyxECYRkIBBQjlxvtrK5V3DGgJrPGHscymheMnNmg
+lhvInDxfGkulQexAdYyb/TLc3AircXKLgsf9xMrMqGVgE2dCNs2vg3rfe029
+cdneHVVDfJcFY10Zs7asT6BBcmznexRDPPdNbkjsKvA4JfKWCjVwWERn0G6t
+QjTgBd6xNUCwInX75a5CeuyPZqTJGsjIiZA/zVwFxa6LFTlNtVDiv5N+ZGkV
++l2tlv6IZEDbp0MBOqFrsDcn6F19QB3oGudj7d6fgZfa8Wdv+lN4Fh/YtN9u
+A9bO/r5B8WNBgVVWPXZsA06oHSg7lMKC60JWlfk/N+Cm9z7YqmKBm6duvnHE
+BnwbwhYaSVgwbNQTp1W+ARqKm9GtRY2w1ur0jVhLBMwQj5Cngiaw1dZ92LEi
+AvruL1rKh5qhhtH9S/hvYmgaW2k+08kBimoUIrHFUPOSupo7woEP4bs3h3vE
+QDU8Zdm+wAEb07OXj8+LIXbaiaOo0gLM/wgoxiZbkJv38MSKZwvUX5vUHMra
+gnh3BfJlXguwjosK4ZIEFAOFl9xZr6FDYMbUNZFCa9Npe9pPXAjGNEXrNlJY
+Pn91ZSqDC+J4KQiOSiExceJ9QD4XDui+7bvvLwXnUDumzTMu3PG58/Hr+1J4
+bP3c1vUjF84OiGwM1LfBQUWLfCawDcY6e2pJkm34tTfjg5N9O4gmGs8Rlwjo
+K/H8cT6PB0Pu6xflVwko2HnstGSQB0zmQfr6JgHdb+Xn6L/jQVjKowJ8lxy6
+OTrKg8884Ftkvysyk0O9m+Mfrckd8DQy+JKFvxyyk/jUlSZ0QLRYMem7TjnU
+MPHrggqpE2Z1qBW+j3cgIuWgNMWvC8aqo8Z6b+9EW08c2vf+1gMXHCUuScEK
+iBVnJwmt7AOecqL4ooEimvdL8J0t7gfbw/GFKZtKyPVumfBowADEMYKz3j5X
+QUY95EgkHoB/GLTWhv+ghqY7IwI9b72B/e/Ln+/z2I1y1Adr1RQHZX8clfKS
+NdD5Nt4up4RB8LINsqqK0UQtP3QmLk4NwvpUS2hAgBZyJz6P8j0xBJkvitxs
+HLWRxjdK+73vDUFF0yGjBxgRJY9h3NrZIaiadCsiKegg8c8G0zTrYbBz2KOB
+NnSQX4Nz8cy/hiFNybRQMqWL2sWbjzrrhqFNUtHLZ+9BS1kNc3Zzw3CbNLt+
+kvk1ou53OalM4oNjaFn7SLYeWohgGDZ68aHe/B5jV4Q+soTpw6mJfGASPTN7
+fA0Q/cm3TLlKPhRYxmvWfWeIKm8lVa/18GFXeNC/rTEjlBmY2VT6mQ/OFr8Y
+umkbo8YLHjYO+gII3mlB/emjMbqrtHL+ipMAlLRTUk9NkBBlkbty1V8AfWXV
+1kU0E3RuoupFMV0A2wn1FcIuE0RTrTnCzRPA8oz+vRgXMirScBU2MwSAh/7u
+r1lHRozu+ZfZPAEk/8gp/LLXFJ1OfaGGTQqAXE5gih6YIk/9jBtzIgH8T3G8
+j6Nghq46J/Ec1HFYkte7LEgyQzgxaoZijsM+4l18a8kMDXNFAVJ7HDBWOCfy
+gjlStvFmhFFwUC4Zb6geNUc0xjN6TiAO07l3rm+etEDyT9KP1kfjcINUysnj
+yBxmyklLwUHz1SJ+xNYSPdRLLr+Zi0P6g+Gt+hJLhL+aj8srw4GjQspP0MHQ
+G3L7vFcdDsvZFcqeqRhq1HJYuNKMg/uY/6RDGoZ8AnQEtTKX7NVmYekYMtv8
+8HJRZgon+ZJ8JoZujRQEhbFx+P8KjcfOw5CXNuZI4+AQfE4vzb4cQ01uFiqe
+r3EY0r8jZ9GCoWspV07pt+NgFeb6VrsVQ0/TvpdQZU6plzB3tGHoBvFueZ7M
+BykR54UdGPpsMjKkysMhK8mjuXAAQ8pk69dSmd2EO5K0/sBQQ+R4v7ATh+ID
+LB+5KQzl0PxmDbtwWKPHHFiextDU0LE1X5kfagpHe+Yw9OVq0Kd+mbddXjnd
+XsbQf6kG19jdOFCzY7XoKxh6f+rwcYnMT0atFi6uYWhB8vYrhx4cvo8tyD8h
+wtBcaVE4Q+Z69pkYOzGGVPdwVRdlVlZTOmkqwdBBn7hKy14cgvzYJppSDBk9
+YDgEy/ziUYJoextDM6bx7GKZ/wLY20Co
+           "]]}, 
+         "Charting`Private`Tag$411881#2"], 
+        Annotation[{
+          Directive[
+           Opacity[1.], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          Line[CompressedData["
+1:eJwVzns01AkUB/BJVLRivMp7ED81tM2xCNW9qYRsT8QybSSkKNuEU1EkMXlt
+Ohl5JEbrsUWc8gjNSEjkkTG/QolKD7vGIw3Nrv3tH/fc+znn3nO/Rv4n9h2R
+o9FoXlT937f0Om6k0SRAjZaq4tDNK9Ryn/YoU+Z8t5yz2Qmv9n7zLNSlHFMV
+Or/CBzg9ZeFOtpTzzm6yEoZAcbfGH8lhEhBkb9SasDgDK7o+0LWHJMBgZBie
+M0iCwWfcMVbdJAh2XLQmvTKhZPl7zuK2SVjPmRhuncuEiJ0gJxJNQkU7oyk+
+iwcqz6b1oiYnIZ1twLogygLHdt99jeZToKq7i8nEHChpW9fgmjkFiTr69Fu/
+5UPEk96rhznTcPxSwcD9Vj44SKPKD16chnfqH3fzVIqAxjTs8L46DcNTKfl6
+B4qAm35MYU/FNFxIWTig9r4I8nzkozaOT8NJVbZsVHYbWiat2ZoBM+DMYLhz
+9UtAyyCLaN3/FRhLWPsdLe7Ag4hf69dafYP8487kY+9K+LO843Jw5Tz4utv/
+4FtZA0/FJhVajH+heFTGld/TCNLXDz00xmkYmO7EDhwXwpimJ9+rWA61iu2X
+m2xvhsGysMHnSfL4U/qG8x7XWuCIncwx2n8JNs3RA+kFbdCmdGY+UHcZGtyw
+/eXeoXZgOURkx80ponmuvWuQTgecLvdPeVm9HFueNo3qZHTCz7rNd4JDlXHW
+uLYr58NzWPuhsHqNswrSL2+KydXrhpPzdooZsaqouUfFyvBuN+xi+TFLw+nI
+S7PXrYYemB1tCmCz1dD8Ut3H0sc9kFyT47TOTh2b2SojE9a9wK+31ucRGsjV
+ZjlDSS+UjjjlGC7RxDd7nzFSlV+A1YaVqvhNE928Wh2UTr2ABEXjbNmoFrZJ
+Pxurdb+AFhn/eb9gJSqMppeeN+qDJMOxWZeKVVjD3foXh9MHdgG3Wl+laWOC
+d1CfR0MfVK2+Xr70mA42Cq/gS5oIKjRckzu9dLEyxoan5CSCG2YR9Hs2ehg5
+mK+od1EES4P9rlgS+jiSMlDYKhTBZtPLek7qBsg4LS1QkInAX97U89yEAVaP
+XDEp+LEfFNXj4ne+NsR4HpwYDOiHrltlljkHGbiLuyqWuNYPC5FV/OFnDOz7
+VG8SKugHyXud6+GORuhuv5nl/Hc/kAGNPvR7RljeUXfRbKUYYs8Ks/8xN8Ym
+kVLvhS1iMCqkVUh5xsiuahB6BInh9rKhLuESE1R4lJD6mSuGcQXtEHG0Ce5+
+YFs1Xi6GNRq/k9/HTTCh9ou7ao8YiLpg4fEjq3FxX4wLd1oMSnlD98sGVqP8
+hUtHFTRIeHc1NWbOxRSftCudZrJIOG94U5ghNEWnk7O+mbtJoDd8ITeyzLBY
+EPZaEkJCIk/0vSrPDNNiBJ098SQIlxtmRWoSKOo4NTF2kwRJGl/JNZ5AM3nN
+ZLcaEnYM+oxsSCBw8HJxVjXlPHP1OiKRwEeBxpnGtSS4CWOPKiQT6FAi9pNS
+Lpk62CbIINCXecem8CEJ/h7aCbaF1P0M8fZrIwl9OqmLTJsIpCds3Zf2hARm
+0PaX6s0ESk1SD0spx1XJKuRaCEy/t/6IXwsJ692OHRp+SmBM4hU7q1YSUqKd
+H2X3EMgJmDPrbyPBaVguWu0ttc+pX6ndQUKuRZ37olECeWWm62Mpz0SFW0je
+EchfYWD3iXIBfXig8yOBIfLterWdJCw4NtgnSQhcZx7G9OoiwTONoxY1RWA3
+VLQ9onx3gPk5cIbAJkGOJ9FNgi/nRtY2KYGu3Lhts5SrBHvDreYJxOtxfHYP
+CUrKii7GMgKdr9p/babs5y1g0P+l8gzdsbHoJaGmKFK6sED9738TnEH5Pznk
+l4w=
+           "]]}, "Charting`Private`Tag$411881#3"]}}, {}}, {
+     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+      AxesOrigin -> {1.`15.954589770191003, 0}, FrameTicks -> {{Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, 
+      DisplayFunction :> Identity, Epilog -> {{
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37+WslQAY6nNesLTh07659oGaa+Lp2JoeLaxwCZuy7a//t0RugecwO0lLV
+7eE2d+x3qAUpxfCzOFy/r3GghOGufaE2L1A7h8PeUwoBPED55PeSzCD+hNMR
+hjvf3LY/pswJlOdxOH7njrOv3S17mW1z9vz/z++g9MW+MSrklv05s3//Qfye
+jcH3Zqy4ae+hJQNUL+LA8GG6zrH5N+0lfQ4D5UUdXHZ7+7atvWm/cNr6H9/+
+izvEtnjW/192w77fXRJogYSDYdX/FVd6btibTwZ5R8bB5k8kW9fH6/axd/oO
+fe1QcDjM9+pubvANe6NOSaC8ksMykbRDefev28f5bAGar+wQe2DJEdGX1+0B
+RmOfJA==
+          "]]}, {
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sL/W6RW8gKHKrllPF8zfp32gr3F6sZ0/
+w9////9/tv98SiMxomODPUd8LFD+h/3K/HX6ZsV77DcXHbS87//X/nX8/CPs
+Kkft56+VABno4Oj/8U/pquP2gZpp4uvamRxKrVNP7tE4bf/t0RugecwOhqc7
+ZP42nrLfoRakFMPP4pBft2F+3+cz9oXavEDtHA6Fbyftzta9YJ/8XpIZxD/z
+f45315EL9seUOYHyPA5MVSK35DIu28tsm7Pn/39+h/aOycpbwi7bnzP79x/E
+Pzvj9SXRqMv2HloyQPUiDuKNn4Q/rr5iL+lzGCgv6tCqtCKvxOWq/cJp6398
++y/usMrlwMbTd67a97tLAi2QcJj17LzHOs5r9uaTQd6RcTA81bsl+fQ1+9g7
+fYe+dig4bKm/+fd99XV7o05JoLySw+v1u+xfX71uH+ezBWi+skPprOvvDdVu
+2AMAa6ShlQ==
+          "]]}, {
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQA2IQfamJEUh+sN97X/bT9yOhds16umA+h2e4aUtsjp0/
+w9////9/tu+wupnVcHipPUd8LFD+h/3O/iaN+ac3228uOmh53/+vfaxYS1WE
+w177+WslQAY6PFj2lrnsygH7QM008XXtTA7ZhldND+sdsf/26A3QPGaH/HBN
+reu3j9rvUAtSiuFncTjHHhE3NeKYfaE2L1A7h8Ps+ymm+51O2Se/l2QG8ffN
++LrwWtIp+2PKnEB5HofIhO8HvF+ftZfZNmfP///8Dv5FLhP4gy/YnzP79x/E
+txLY2zXR4IK9h5YMUL2Ig9f1kiXB4ZfsJX0OA+VFHXY2yK6fEnTZfuG09T++
+/Rd3mPR5yyvPgCv2/e6SQAskHKL5A3tFzK/Ym08GeUfGwSonibfS76p97J2+
+Q187FBzen3ddwLfmmr1RpyRQXsmB6QZj2Gm36/ZxPluA5is7vJ57Ia5N4IY9
+AMlAmNg=
+          "]]}}, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(0\)]\)", None}, {
+        "q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 16], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {Full, Full}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 16], 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{1, 12}, {0., 0.5387523758450385}}, PlotRangeClipping -> 
+      True, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.02], 
+         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]]}, {
+       "\!\(\*SubscriptBox[\(A\), \(221\)]\)", 
+        "\!\(\*SubscriptBox[\(A\), \(330\)]\)", 
+        "\!\(\*SubscriptBox[\(A\), \(220\)]\)", 
+        "\!\(\*SubscriptBox[\(A\), \(321\)]\)"}, LegendMarkers -> None, 
+       LabelStyle -> Directive[
+         GrayLevel[0], Bold, 16], LegendLayout -> "Column"]], {0.9, 0.72}, 
+     Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.79068756780407*^9, 3.790687586187573*^9}, 
+   3.790687627376944*^9, 3.7906879922400084`*^9, 3.790688711473288*^9, 
+   3.79273762458565*^9, 3.7927382581890173`*^9, 3.792741380451532*^9, 
+   3.794718522490942*^9, 3.794719837017642*^9, {3.794719901451211*^9, 
+   3.794719905110763*^9}, {3.794719956580286*^9, 3.794719983994754*^9}, 
+   3.794720335553652*^9, 3.794722754401965*^9, 3.7947229096231737`*^9, {
+   3.794722947375093*^9, 3.7947229658052588`*^9}, 3.794723199469701*^9, 
+   3.794723513450294*^9, 3.7947235533295107`*^9, 3.794724767086172*^9, 
+   3.7947400340244083`*^9, {3.794800812993204*^9, 3.794800824866169*^9}, 
+   3.795926571340694*^9, 3.796093475132226*^9, 3.796350705810532*^9, 
+   3.796351384643509*^9, 3.7963550218825827`*^9, 3.796358384940626*^9, 
+   3.79635979181094*^9, 3.796363159798787*^9, 3.7965414223703403`*^9, 
+   3.796989494561873*^9, 3.796989692168461*^9, 3.796992650694755*^9, 
+   3.797141508749556*^9, 3.7971552058664494`*^9, 3.7999796945997047`*^9, {
+   3.799985831958233*^9, 3.7999858422627296`*^9}, 3.799986316818612*^9, 
+   3.799986624970043*^9},
+ CellLabel->
+  "Out[772]=",ExpressionUUID->"eaa3160b-35c9-485a-a82e-bea6d2955a9c"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"campst0", "=", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"Flatten", "[", 
+       RowBox[{
+        RowBox[{"t0ampsdataalltest", "[", 
+         RowBox[{"[", "i", "]"}], "]"}], ",", "1"}], "]"}], "[", 
+      RowBox[{"[", 
+       RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{"Length", "@", "tag"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.7842773027840967`*^9, 3.784277318572165*^9}, {
+   3.7842773597796373`*^9, 3.784277542344664*^9}, {3.7845307984308147`*^9, 
+   3.7845308096063957`*^9}, 3.7845312377563257`*^9, {3.784531286587538*^9, 
+   3.7845313051641073`*^9}, 3.78557851895393*^9, 3.785582670748349*^9},
+ CellLabel->
+  "In[773]:=",ExpressionUUID->"27834e1e-f297-4ee6-ad16-78c156070103"],
+
+Cell[BoxData[
+ RowBox[{"(*", 
+  RowBox[{
+   RowBox[{"From", " ", "the", " ", "32", " ", 
+    RowBox[{"model", ":", " ", "220"}]}], ",", " ", "221", ",", " ", "320", 
+   ",", " ", "321", ",", " ", 
+   RowBox[{"220", "*", "mix"}], ",", 
+   RowBox[{"221", "*", 
+    RowBox[{"mix", ".", " ", "Remember"}], " ", "to", " ", "apply", " ", 
+    "all", " ", "the", " ", "2", "\[Pi]", " ", "factors", " ", "you", " ", 
+    RowBox[{
+     RowBox[{"need", "!!"}], "!"}]}]}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.784277321544189*^9, 3.784277350761631*^9}, {
+  3.784277870454714*^9, 3.784277911753647*^9}, {3.7842779716062717`*^9, 
+  3.784277975314348*^9}, {3.784285904783442*^9, 3.784285918430057*^9}},
+ CellLabel->
+  "In[774]:=",ExpressionUUID->"f45d3075-1098-4b28-8b0a-4325719a204c"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"phase220d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{"Arg", "/@", 
+         RowBox[{"campst0", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}]}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"phase221d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Arg", "/@", 
+          RowBox[{"campst0", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "1", ",", "2"}], "]"}], "]"}]}], "-", 
+         "\[Pi]"}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7856462603296757`*^9, 3.785646394567872*^9}, {
+  3.787641202975778*^9, 3.787641204115053*^9}},
+ CellLabel->
+  "In[775]:=",ExpressionUUID->"86c77730-5104-4b10-9c44-f29581ef63c1"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"phase210d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Arg", "/@", 
+          RowBox[{"campst0", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], "-", 
+         RowBox[{"\[Pi]", "/", "2"}]}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"phase211d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Arg", "/@", 
+          RowBox[{"campst0", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "2", ",", "2"}], "]"}], "]"}]}], "+", 
+         "\[Pi]"}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"phase330d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{"Arg", "/@", 
+         RowBox[{"campst0", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "3", ",", "1"}], "]"}], "]"}]}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"phase331d", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"q", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"q", "+", "1"}], ")"}], "^", "2"}]}], ",", 
+      RowBox[{"Mod", "[", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Arg", "/@", 
+          RowBox[{"campst0", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "3", ",", "2"}], "]"}], "]"}]}], "+", 
+         "\[Pi]"}], ",", 
+        RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.785646407826089*^9, 3.7856465022518806`*^9}, {
+  3.785664270229966*^9, 3.785664270483049*^9}, {3.785664346680513*^9, 
+  3.785664347537425*^9}, {3.7856644639703693`*^9, 3.785664473387291*^9}, {
+  3.787641099465748*^9, 3.787641127155019*^9}, {3.787641220374497*^9, 
+  3.7876412761289797`*^9}, {3.790675230587782*^9, 3.790675255183267*^9}},
+ CellLabel->
+  "In[777]:=",ExpressionUUID->"39b0c760-e145-433b-87c3-c0c8894baa00"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dataq", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"1", "+", 
+        SqrtBox[
+         RowBox[{"1", "-", 
+          RowBox[{"4", " ", 
+           RowBox[{"phase220d", "[", 
+            RowBox[{"[", 
+             RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"phase220d", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], 
+       RowBox[{"2", " ", 
+        RowBox[{"phase220d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], ",", 
+      RowBox[{
+       RowBox[{"phase220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", 
+       RowBox[{"phase221d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dataq22110ph", "=", 
+   RowBox[{"Drop", "[", 
+    RowBox[{
+     RowBox[{"Transpose", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"dataq", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+        RowBox[{"Mod", "[", 
+         RowBox[{
+          RowBox[{"dataq", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
+          RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"-", "4"}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7906751655299*^9, 3.7906751763416348`*^9}, {
+  3.792737538983851*^9, 3.792737540697185*^9}, {3.792737631319223*^9, 
+  3.7927376362794847`*^9}, {3.79472204680768*^9, 3.794722048864622*^9}, {
+  3.794722979678946*^9, 3.794722980667346*^9}, {3.7947231179104843`*^9, 
+  3.794723118010358*^9}, {3.794724710170583*^9, 3.794724710422058*^9}},
+ CellLabel->
+  "In[781]:=",ExpressionUUID->"f8b4c8ad-7b88-4db2-a15d-bb3f15f12886"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dataq", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"1", "+", 
+        SqrtBox[
+         RowBox[{"1", "-", 
+          RowBox[{"4", " ", 
+           RowBox[{"phase220d", "[", 
+            RowBox[{"[", 
+             RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"phase220d", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], 
+       RowBox[{"2", " ", 
+        RowBox[{"phase220d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], ",", 
+      RowBox[{
+       RowBox[{"phase220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", 
+       RowBox[{"phase210d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dataq2110ph", "=", 
+   RowBox[{"Delete", "[", 
+    RowBox[{
+     RowBox[{"Transpose", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"dataq", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+        RowBox[{"Mod", "[", 
+         RowBox[{
+          RowBox[{"dataq", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
+          RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", "1", "}"}], ",", 
+       RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7906752084058523`*^9, 3.790675223453661*^9}, {
+   3.790675343648275*^9, 3.790675350153137*^9}, {3.7906827679623327`*^9, 
+   3.7906827700141706`*^9}, {3.794722052014942*^9, 3.794722052888445*^9}, 
+   3.794722289720661*^9, 3.794722383141808*^9, {3.79472298497344*^9, 
+   3.794722985357209*^9}, {3.794723122625704*^9, 3.794723122778028*^9}, {
+   3.794724716876732*^9, 3.794724717128244*^9}},
+ CellLabel->
+  "In[783]:=",ExpressionUUID->"ddcaa28b-db54-411a-99ad-aebbdae287a4"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"dataq", "=", 
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{
+      FractionBox[
+       RowBox[{"1", "+", 
+        SqrtBox[
+         RowBox[{"1", "-", 
+          RowBox[{"4", " ", 
+           RowBox[{"phase220d", "[", 
+            RowBox[{"[", 
+             RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]], "-", 
+        RowBox[{"2", " ", 
+         RowBox[{"phase220d", "[", 
+          RowBox[{"[", 
+           RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], 
+       RowBox[{"2", " ", 
+        RowBox[{"phase220d", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}]}]], ",", 
+      RowBox[{
+       RowBox[{"phase220d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", 
+       RowBox[{"phase330d", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"dataq3310ph", "=", 
+   RowBox[{"Delete", "[", 
+    RowBox[{
+     RowBox[{"Transpose", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"dataq", "[", 
+         RowBox[{"[", 
+          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
+        RowBox[{"Mod", "[", 
+         RowBox[{
+          RowBox[{"dataq", "[", 
+           RowBox[{"[", 
+            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
+          RowBox[{"2", "\[Pi]"}]}], "]"}]}], "}"}], "]"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", "1", "}"}], ",", 
+       RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.7906752084058523`*^9, 3.790675223453661*^9}, {
+  3.790675343648275*^9, 3.790675350153137*^9}, {3.790675388928008*^9, 
+  3.790675395834998*^9}, {3.790682773419422*^9, 3.790682775808734*^9}, {
+  3.7947220550631237`*^9, 3.794722055360767*^9}, {3.794722440999053*^9, 
+  3.7947224413863792`*^9}, {3.7947229896735907`*^9, 3.7947229907020893`*^9}, {
+  3.794723126043419*^9, 3.794723126178904*^9}, {3.7947247214622383`*^9, 
+  3.79472472169289*^9}},
+ CellLabel->
+  "In[785]:=",ExpressionUUID->"3bd6e847-a73f-40e9-9ac0-1f10418b6e00"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"fit22110ph", "=", 
+  RowBox[{"NonlinearModelFit", "[", 
+   RowBox[{"dataq22110ph", ",", 
+    RowBox[{
+     RowBox[{"aa", " ", "/", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"qq", "^", "2"}], "+", 
+        RowBox[{"cc", "^", "2"}]}], ")"}]}], "+", "bb"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], ",", "qq", ",", 
+    RowBox[{"MaxIterations", "\[Rule]", "Infinity"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110phn", "=", 
+  RowBox[{"Normal", "@", "fit22110ph"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110phn1", "=", 
+  RowBox[{
+   RowBox[{"fit22110ph", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit22110phn2", "=", 
+  RowBox[{
+   RowBox[{"fit22110ph", "[", 
+    RowBox[{"\"\<MeanPredictionBands\>\"", ",", 
+     RowBox[{"ConfidenceLevel", "\[Rule]", "cred"}]}], "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.79051651076999*^9, 3.790516551441586*^9}, {
+  3.790516584036496*^9, 3.7905166196464853`*^9}, {3.790516669752849*^9, 
+  3.790516704405472*^9}, {3.790675190054287*^9, 3.79067519902309*^9}, {
+  3.794722038731042*^9, 3.794722067296977*^9}, {3.794722284547132*^9, 
+  3.794722310316136*^9}, {3.794722994368788*^9, 3.7947229970063972`*^9}, {
+  3.7947231306953983`*^9, 3.794723132194805*^9}, {3.7947247232748337`*^9, 
+  3.794724725942521*^9}, {3.794738210634108*^9, 3.794738253952712*^9}, {
+  3.7963549988998947`*^9, 3.796355001128788*^9}},
+ CellLabel->
+  "In[787]:=",ExpressionUUID->"dfeedb63-de3b-4c8c-b71e-2635601c86c5"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"FittedModel", "[", 
+   TagBox[
+    PanelBox[
+     TagBox[
+      RowBox[{"0.3761480509226373`", "\[VeryThinSpace]", "+", 
+       FractionBox["6.446829630503528`", 
+        RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}]]}],
+      Short[#, 2]& ],
+     FrameMargins->5],
+    Editable -> False], "]"}],
+  InterpretTemplate[
+  FittedModel[{
+    "Nonlinear", {$CellContext`aa -> 6.446829630503528, $CellContext`bb -> 
+      0.3761480509226373, $CellContext`cc -> 
+      3.8571934577599554`}, {{$CellContext`qq}, $CellContext`bb + \
+$CellContext`aa/($CellContext`cc^2 + $CellContext`qq^2)}}, {
+    1}, CompressedData["
+1:eJxTTMoPSmViYGAQBWIQDQEf7DNYWte/4XtpDxTjAPFPbJsbPDn2pX04w9//
+//9/ti8Iq5570PSFPVt8LFD9D/sZspG8Qjee2+8oOmh53/+vfcS3m5/FOp/b
+L1wrwQhU4HCj3a/cQ/u5fZBmmvi6diaHH2WaCZ9Fn9n/ePQGaB6zg2x39RW/
+v0/tt6kFKcXwszikxdUwX1731D5fmxeoncPBr2Ti6oNtT+zT30syg/glAt+d
+S2qe2B9T5gTK8zhUnFjCpvTmsb38tjl7/v/nd3hwQ2enwMxH9pfN/v0H8S/V
+JmemXH5k76klA1Qv4vBvxyl+PoeH9pI+h4Hyog47Auf6bap5YL9g2vof3/6L
+OwR8l5gz8e99+353SaAFEg5McvXG15we2Mfe6Tv0tUPBweJ+2EpLrrv2Rp2S
+QPOUHFjivmp09N+xj/fZAjRP2eGIzrOAtpLb9gBG4pUs
+    "], 
+    Function[Null, 
+     Internal`LocalizedBlock[{$CellContext`aa, $CellContext`bb, \
+$CellContext`cc, $CellContext`qq}, #], {HoldAll}], MaxIterations -> 
+    DirectedInfinity[1]]& ],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.7905165185459137`*^9, 3.790516551657776*^9}, {
+   3.790516593984029*^9, 3.790516619953784*^9}, {3.7905166706719217`*^9, 
+   3.7905167216371307`*^9}, {3.790517296963595*^9, 3.790517319490363*^9}, 
+   3.790517441414806*^9, 3.7905177119068604`*^9, 3.790675155647561*^9, {
+   3.7906751904680367`*^9, 3.790675199485177*^9}, 3.790675350974613*^9, 
+   3.790682654513618*^9, 3.790682780229388*^9, 3.790682836688469*^9, 
+   3.7906835191310377`*^9, 3.790683838603756*^9, 3.790686958214081*^9, 
+   3.790687992792964*^9, 3.790688711911783*^9, {3.792737625377743*^9, 
+   3.792737638411585*^9}, 3.7927382612755537`*^9, 3.792741381943693*^9, 
+   3.794718522748939*^9, 3.794720345813198*^9, 3.7947220355490847`*^9, 
+   3.794722067655922*^9, {3.794722218121499*^9, 3.794722236316163*^9}, {
+   3.7947223030564957`*^9, 3.7947223107364597`*^9}, 3.794722760476997*^9, 
+   3.7947229981800413`*^9, 3.794723041726877*^9, 3.7947232000327272`*^9, 
+   3.794724767771089*^9, {3.79473824470805*^9, 3.79473825439362*^9}, 
+   3.794740034466658*^9, 3.794800829987509*^9, 3.7959265714048758`*^9, 
+   3.796093552806963*^9, 3.7963507161829042`*^9, 3.7963513851924686`*^9, 
+   3.7963550222499638`*^9, 3.796358385040422*^9, 3.7963597923017483`*^9, 
+   3.796541422532576*^9, 3.7969894947148438`*^9, 3.7969896922125683`*^9, 
+   3.79707183076128*^9, 3.797141508882339*^9, 3.797155206821123*^9, 
+   3.799979705427848*^9, 3.799985853183256*^9, 3.7999866305782537`*^9},
+ CellLabel->
+  "Out[787]=",ExpressionUUID->"b25a827f-5a2a-4a6e-9506-ad7584ee1064"],
+
+Cell[BoxData[
+ RowBox[{"0.3761480509226373`", "\[VeryThinSpace]", "+", 
+  FractionBox["6.446829630503528`", 
+   RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+    SuperscriptBox["qq", "2"]}]]}]], "Output",
+ CellChangeTimes->{{3.7905165185459137`*^9, 3.790516551657776*^9}, {
+   3.790516593984029*^9, 3.790516619953784*^9}, {3.7905166706719217`*^9, 
+   3.7905167216371307`*^9}, {3.790517296963595*^9, 3.790517319490363*^9}, 
+   3.790517441414806*^9, 3.7905177119068604`*^9, 3.790675155647561*^9, {
+   3.7906751904680367`*^9, 3.790675199485177*^9}, 3.790675350974613*^9, 
+   3.790682654513618*^9, 3.790682780229388*^9, 3.790682836688469*^9, 
+   3.7906835191310377`*^9, 3.790683838603756*^9, 3.790686958214081*^9, 
+   3.790687992792964*^9, 3.790688711911783*^9, {3.792737625377743*^9, 
+   3.792737638411585*^9}, 3.7927382612755537`*^9, 3.792741381943693*^9, 
+   3.794718522748939*^9, 3.794720345813198*^9, 3.7947220355490847`*^9, 
+   3.794722067655922*^9, {3.794722218121499*^9, 3.794722236316163*^9}, {
+   3.7947223030564957`*^9, 3.7947223107364597`*^9}, 3.794722760476997*^9, 
+   3.7947229981800413`*^9, 3.794723041726877*^9, 3.7947232000327272`*^9, 
+   3.794724767771089*^9, {3.79473824470805*^9, 3.79473825439362*^9}, 
+   3.794740034466658*^9, 3.794800829987509*^9, 3.7959265714048758`*^9, 
+   3.796093552806963*^9, 3.7963507161829042`*^9, 3.7963513851924686`*^9, 
+   3.7963550222499638`*^9, 3.796358385040422*^9, 3.7963597923017483`*^9, 
+   3.796541422532576*^9, 3.7969894947148438`*^9, 3.7969896922125683`*^9, 
+   3.79707183076128*^9, 3.797141508882339*^9, 3.797155206821123*^9, 
+   3.799979705427848*^9, 3.799985853183256*^9, 3.799986630581724*^9},
+ CellLabel->
+  "Out[788]=",ExpressionUUID->"98f2c9db-f006-4bff-9a78-0aa00cc4bb29"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"12.043138278790801`", "\[VeryThinSpace]", "-", 
+   RowBox[{"42.82526859212739`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"0.8516210221670395`", "\[VeryThinSpace]", "-", 
+       RowBox[{"0.30374672537618486`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.055214061313462265`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.0021255030074673878`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00003749046750765374`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"0.3761480509226373`", "\[VeryThinSpace]", "-", 
+      RowBox[{"2.8784404727386046`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"0.8516210221670395`", "\[VeryThinSpace]", "-", 
+          RowBox[{"0.30374672537618486`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.055214061313462265`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.0021255030074673878`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00003749046750765374`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{{3.7905165185459137`*^9, 3.790516551657776*^9}, {
+   3.790516593984029*^9, 3.790516619953784*^9}, {3.7905166706719217`*^9, 
+   3.7905167216371307`*^9}, {3.790517296963595*^9, 3.790517319490363*^9}, 
+   3.790517441414806*^9, 3.7905177119068604`*^9, 3.790675155647561*^9, {
+   3.7906751904680367`*^9, 3.790675199485177*^9}, 3.790675350974613*^9, 
+   3.790682654513618*^9, 3.790682780229388*^9, 3.790682836688469*^9, 
+   3.7906835191310377`*^9, 3.790683838603756*^9, 3.790686958214081*^9, 
+   3.790687992792964*^9, 3.790688711911783*^9, {3.792737625377743*^9, 
+   3.792737638411585*^9}, 3.7927382612755537`*^9, 3.792741381943693*^9, 
+   3.794718522748939*^9, 3.794720345813198*^9, 3.7947220355490847`*^9, 
+   3.794722067655922*^9, {3.794722218121499*^9, 3.794722236316163*^9}, {
+   3.7947223030564957`*^9, 3.7947223107364597`*^9}, 3.794722760476997*^9, 
+   3.7947229981800413`*^9, 3.794723041726877*^9, 3.7947232000327272`*^9, 
+   3.794724767771089*^9, {3.79473824470805*^9, 3.79473825439362*^9}, 
+   3.794740034466658*^9, 3.794800829987509*^9, 3.7959265714048758`*^9, 
+   3.796093552806963*^9, 3.7963507161829042`*^9, 3.7963513851924686`*^9, 
+   3.7963550222499638`*^9, 3.796358385040422*^9, 3.7963597923017483`*^9, 
+   3.796541422532576*^9, 3.7969894947148438`*^9, 3.7969896922125683`*^9, 
+   3.79707183076128*^9, 3.797141508882339*^9, 3.797155206821123*^9, 
+   3.799979705427848*^9, 3.799985853183256*^9, 3.7999866306556587`*^9},
+ CellLabel->
+  "Out[789]=",ExpressionUUID->"08dc13d2-f42b-44d0-8fc2-7d98afc0622c"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"12.043138278790801`", "\[VeryThinSpace]", "+", 
+   RowBox[{"42.82526859212739`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"0.8516210221670395`", "\[VeryThinSpace]", "-", 
+       RowBox[{"0.30374672537618486`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.055214061313462265`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.0021255030074673878`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00003749046750765374`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"0.3761480509226373`", "\[VeryThinSpace]", "+", 
+      RowBox[{"2.8784404727386046`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"0.8516210221670395`", "\[VeryThinSpace]", "-", 
+          RowBox[{"0.30374672537618486`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.055214061313462265`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.0021255030074673878`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00003749046750765374`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"14.8779413705862`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{{3.7905165185459137`*^9, 3.790516551657776*^9}, {
+   3.790516593984029*^9, 3.790516619953784*^9}, {3.7905166706719217`*^9, 
+   3.7905167216371307`*^9}, {3.790517296963595*^9, 3.790517319490363*^9}, 
+   3.790517441414806*^9, 3.7905177119068604`*^9, 3.790675155647561*^9, {
+   3.7906751904680367`*^9, 3.790675199485177*^9}, 3.790675350974613*^9, 
+   3.790682654513618*^9, 3.790682780229388*^9, 3.790682836688469*^9, 
+   3.7906835191310377`*^9, 3.790683838603756*^9, 3.790686958214081*^9, 
+   3.790687992792964*^9, 3.790688711911783*^9, {3.792737625377743*^9, 
+   3.792737638411585*^9}, 3.7927382612755537`*^9, 3.792741381943693*^9, 
+   3.794718522748939*^9, 3.794720345813198*^9, 3.7947220355490847`*^9, 
+   3.794722067655922*^9, {3.794722218121499*^9, 3.794722236316163*^9}, {
+   3.7947223030564957`*^9, 3.7947223107364597`*^9}, 3.794722760476997*^9, 
+   3.7947229981800413`*^9, 3.794723041726877*^9, 3.7947232000327272`*^9, 
+   3.794724767771089*^9, {3.79473824470805*^9, 3.79473825439362*^9}, 
+   3.794740034466658*^9, 3.794800829987509*^9, 3.7959265714048758`*^9, 
+   3.796093552806963*^9, 3.7963507161829042`*^9, 3.7963513851924686`*^9, 
+   3.7963550222499638`*^9, 3.796358385040422*^9, 3.7963597923017483`*^9, 
+   3.796541422532576*^9, 3.7969894947148438`*^9, 3.7969896922125683`*^9, 
+   3.79707183076128*^9, 3.797141508882339*^9, 3.797155206821123*^9, 
+   3.799979705427848*^9, 3.799985853183256*^9, 3.79998663065914*^9},
+ CellLabel->
+  "Out[790]=",ExpressionUUID->"f3eeb84d-375f-448e-a47e-bcec9cdb5ed8"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"fit2110ph", "=", 
+  RowBox[{"NonlinearModelFit", "[", 
+   RowBox[{"dataq2110ph", ",", 
+    RowBox[{
+     RowBox[{"aa", " ", "/", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"qq", "^", "2"}], "+", 
+        RowBox[{"cc", "^", "2"}]}], ")"}]}], "+", "bb"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], ",", "qq", ",", 
+    RowBox[{"MaxIterations", "\[Rule]", "Infinity"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110phn", "=", 
+  RowBox[{"Normal", "@", "fit2110ph"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110phn1", "=", 
+  RowBox[{
+   RowBox[{"fit2110ph", "[", "\"\<MeanPredictionBands\>\"", "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit2110phn2", "=", 
+  RowBox[{
+   RowBox[{"fit2110ph", "[", "\"\<MeanPredictionBands\>\"", "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.794722324114378*^9, 3.794722329705182*^9}, 
+   3.7947224340898943`*^9, {3.794722999650587*^9, 3.794723002018659*^9}, {
+   3.7947231346731253`*^9, 3.7947231360696697`*^9}, {3.794724728949308*^9, 
+   3.794724731221324*^9}, {3.7947382598892403`*^9, 3.794738277136683*^9}},
+ CellLabel->
+  "In[791]:=",ExpressionUUID->"b8d0a23d-13e0-4363-b92f-3a85d26fb9f3"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"FittedModel", "[", 
+   TagBox[
+    PanelBox[
+     TagBox[
+      RowBox[{"1.802976683154178`", "\[VeryThinSpace]", "-", 
+       FractionBox["9.70703647866756`", 
+        RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}]]}],
+      Short[#, 2]& ],
+     FrameMargins->5],
+    Editable -> False], "]"}],
+  InterpretTemplate[
+  FittedModel[{
+    "Nonlinear", {$CellContext`aa -> -9.70703647866756, $CellContext`bb -> 
+      1.802976683154178, $CellContext`cc -> -3.126301868140937}, \
+{{$CellContext`qq}, $CellContext`bb + $CellContext`aa/($CellContext`cc^2 + \
+$CellContext`qq^2)}}, {1}, CompressedData["
+1:eJxTTMoPSmViYGAQAWIQHc7w9////5/tbzzr5YvXf2fPFh8LFP1h7+AWUR/R
+/N5+R9FBy/v+f+0LdNsUJ//9YL9wrQQjUIHDjPDVPLenf7QP0kwTX9fO5LBj
+xfbfD599sv/x6A3QPGYHnj0X94S6fLbfphakFMPP4vAmr/r2euXP9vnavEDt
+HA4TrHIFNTZ/sU9/L8kM4lt02m2auvGL/TFlTqA8j0OPXd/KE5u/2stvm7Pn
+/39+h5yqEw83HP5mf9ns338Q3+Pw3Owdm77Ze2rJgHzjECJ9U+1d0A97SZ/D
+QHlRhw23155+8fOH/YJp6398+y/ukNJ0ov+R5U/7fndJoAUSDhw8mQnM4T/t
+rSaDvCPjsGvyC+4vnL/sY+/0HfraoeBgKZrrqP7ll71RpyRQXsnhtYbmc03n
+3/bxPluA5is7rN7T8pB72W97AGW5lPc=
+    "], 
+    Function[Null, 
+     Internal`LocalizedBlock[{$CellContext`aa, $CellContext`bb, \
+$CellContext`cc, $CellContext`qq}, #], {HoldAll}], MaxIterations -> 
+    DirectedInfinity[1]]& ],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->True]], "Output",
+ CellChangeTimes->{3.794722330561166*^9, 3.794722431598096*^9, 
+  3.7947227609311123`*^9, 3.794723002622353*^9, 3.7947230426021976`*^9, 
+  3.7947232001153517`*^9, 3.7947247679097643`*^9, 3.794738277454619*^9, 
+  3.794740034623248*^9, 3.7948008303631907`*^9, 3.795926571801765*^9, 
+  3.796093564538459*^9, 3.796350722192713*^9, 3.796351386082197*^9, 
+  3.796358385299418*^9, 3.796359793652248*^9, 3.79654142291037*^9, 
+  3.796989495138103*^9, 3.796989692567273*^9, 3.797141509352312*^9, 
+  3.797155209664672*^9, 3.7999797139679337`*^9, 3.799985853829718*^9, 
+  3.7999866311185637`*^9},
+ CellLabel->
+  "Out[791]=",ExpressionUUID->"09ff5174-882c-4671-a9a5-ac217e1aff9e"],
+
+Cell[BoxData[
+ RowBox[{"1.802976683154178`", "\[VeryThinSpace]", "-", 
+  FractionBox["9.70703647866756`", 
+   RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+    SuperscriptBox["qq", "2"]}]]}]], "Output",
+ CellChangeTimes->{3.794722330561166*^9, 3.794722431598096*^9, 
+  3.7947227609311123`*^9, 3.794723002622353*^9, 3.7947230426021976`*^9, 
+  3.7947232001153517`*^9, 3.7947247679097643`*^9, 3.794738277454619*^9, 
+  3.794740034623248*^9, 3.7948008303631907`*^9, 3.795926571801765*^9, 
+  3.796093564538459*^9, 3.796350722192713*^9, 3.796351386082197*^9, 
+  3.796358385299418*^9, 3.796359793652248*^9, 3.79654142291037*^9, 
+  3.796989495138103*^9, 3.796989692567273*^9, 3.797141509352312*^9, 
+  3.797155209664672*^9, 3.7999797139679337`*^9, 3.799985853829718*^9, 
+  3.799986631122113*^9},
+ CellLabel->
+  "Out[792]=",ExpressionUUID->"2409ce7a-74e9-4c56-ba33-675b999599d8"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"7.914830985445774`", "\[VeryThinSpace]", "-", 
+   RowBox[{"20.62083821364711`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"1.1619435160508491`", "\[VeryThinSpace]", "-", 
+       RowBox[{"0.45480450473496503`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.0744622807932886`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.0030351766248730757`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00005627681284418897`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"1.802976683154178`", "\[VeryThinSpace]", "-", 
+      RowBox[{"2.109815577833317`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"1.1619435160508491`", "\[VeryThinSpace]", "-", 
+          RowBox[{"0.45480450473496503`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.0744622807932886`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.0030351766248730757`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00005627681284418897`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{3.794722330561166*^9, 3.794722431598096*^9, 
+  3.7947227609311123`*^9, 3.794723002622353*^9, 3.7947230426021976`*^9, 
+  3.7947232001153517`*^9, 3.7947247679097643`*^9, 3.794738277454619*^9, 
+  3.794740034623248*^9, 3.7948008303631907`*^9, 3.795926571801765*^9, 
+  3.796093564538459*^9, 3.796350722192713*^9, 3.796351386082197*^9, 
+  3.796358385299418*^9, 3.796359793652248*^9, 3.79654142291037*^9, 
+  3.796989495138103*^9, 3.796989692567273*^9, 3.797141509352312*^9, 
+  3.797155209664672*^9, 3.7999797139679337`*^9, 3.799985853829718*^9, 
+  3.799986631205469*^9},
+ CellLabel->
+  "Out[793]=",ExpressionUUID->"2995259d-0536-4ace-a470-64ac1ea72814"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"7.914830985445774`", "\[VeryThinSpace]", "+", 
+   RowBox[{"20.62083821364711`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"1.1619435160508491`", "\[VeryThinSpace]", "-", 
+       RowBox[{"0.45480450473496503`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.0744622807932886`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.0030351766248730757`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00005627681284418897`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"1.802976683154178`", "\[VeryThinSpace]", "+", 
+      RowBox[{"2.109815577833317`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"1.1619435160508491`", "\[VeryThinSpace]", "-", 
+          RowBox[{"0.45480450473496503`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.0744622807932886`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.0030351766248730757`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00005627681284418897`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"9.773763370741513`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{3.794722330561166*^9, 3.794722431598096*^9, 
+  3.7947227609311123`*^9, 3.794723002622353*^9, 3.7947230426021976`*^9, 
+  3.7947232001153517`*^9, 3.7947247679097643`*^9, 3.794738277454619*^9, 
+  3.794740034623248*^9, 3.7948008303631907`*^9, 3.795926571801765*^9, 
+  3.796093564538459*^9, 3.796350722192713*^9, 3.796351386082197*^9, 
+  3.796358385299418*^9, 3.796359793652248*^9, 3.79654142291037*^9, 
+  3.796989495138103*^9, 3.796989692567273*^9, 3.797141509352312*^9, 
+  3.797155209664672*^9, 3.7999797139679337`*^9, 3.799985853829718*^9, 
+  3.799986631208578*^9},
+ CellLabel->
+  "Out[794]=",ExpressionUUID->"34c99d4c-d1ac-411c-b927-27e6af127b9b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"fit3310ph", "=", 
+  RowBox[{"NonlinearModelFit", "[", 
+   RowBox[{"dataq3310ph", ",", 
+    RowBox[{
+     RowBox[{"aa", " ", "/", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"qq", "^", "2"}], "+", 
+        RowBox[{"cc", "^", "2"}]}], ")"}]}], "+", "bb"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}], ",", "qq", ",", 
+    RowBox[{"MaxIterations", "\[Rule]", "Infinity"}]}], 
+   "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310phn", "=", 
+  RowBox[{"Normal", "@", "fit3310ph"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310phn1", "=", 
+  RowBox[{
+   RowBox[{"fit3310ph", "[", "\"\<MeanPredictionBands\>\"", "]"}], "[", 
+   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
+ RowBox[{"fit3310phn2", "=", 
+  RowBox[{
+   RowBox[{"fit3310ph", "[", "\"\<MeanPredictionBands\>\"", "]"}], "[", 
+   RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.794722324114378*^9, 3.79472234201996*^9}, 
+   3.7947224482673283`*^9, {3.794723005151986*^9, 3.794723007652965*^9}, {
+   3.7947231384096527`*^9, 3.7947231399037247`*^9}, {3.794724733705237*^9, 
+   3.794724739806604*^9}, {3.794738283126216*^9, 3.794738307504312*^9}},
+ CellLabel->
+  "In[795]:=",ExpressionUUID->"30ff8fa7-61ac-474e-a9c8-609492223366"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"FittedModel", "[", 
+   TagBox[
+    PanelBox[
+     TagBox[
+      RowBox[{"2.6352135937237056`", "\[VeryThinSpace]", "+", 
+       FractionBox["8.093159444562886`", 
+        RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}]]}],
+      Short[#, 2]& ],
+     FrameMargins->5],
+    Editable -> False], "]"}],
+  InterpretTemplate[
+  FittedModel[{
+    "Nonlinear", {$CellContext`aa -> 8.093159444562886, $CellContext`bb -> 
+      2.6352135937237056`, $CellContext`cc -> -2.8852713084892114`}, \
+{{$CellContext`qq}, $CellContext`bb + $CellContext`aa/($CellContext`cc^2 + \
+$CellContext`qq^2)}}, {1}, CompressedData["
+1:eJxTTMoPSmViYGAQAWIQHc7w9////5/tNzOcybswj9uBLT4WKPrD/m6id7qk
+D7fDjqKDlvf9/9r7PHl/rHM6l8PCtRKMQAUOEw02qSwO4HII0kwTX9fO5HBf
+eXevnBSXw49Hb4DmMTtULl10ZLINp8M2tSClGH4WB6Pw3JcVFZwO+dq8QO0c
+DjUO7xJ2buNwSH8vyQzi109nup/wk8PhmDInUJ7HIYhh+kbOTewO8tvm7Pn/
+n9+h4c2eZ88esjtcNvv3H8T/cp1v7dkz7A6eWjIg3zjUPEupW2zK7iDpcxgo
+L+rwpCZ9W44Au8OCaet/fPsv7qDx6XfWrnY2h353SaAFEg5dZzqvXl3K5mA1
+GeQdGYcNakGW0c5sDrF3+g597VBw4L66yP3AbVYHo05JoLySQ9rn6R837WZ1
+iPfZAjRf2eHG6285FtWsDgAyxocR
+    "], 
+    Function[Null, 
+     Internal`LocalizedBlock[{$CellContext`aa, $CellContext`bb, \
+$CellContext`cc, $CellContext`qq}, #], {HoldAll}], MaxIterations -> 
+    DirectedInfinity[1]]& ],
+  Editable->False,
+  SelectWithContents->True,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.794722330561166*^9, 3.794722451514659*^9, 3.794722761467866*^9, {
+   3.794723008173894*^9, 3.794723044006629*^9}, 3.794723200187169*^9, 
+   3.794724767978251*^9, {3.794738303001855*^9, 3.794738307850569*^9}, 
+   3.794740035022748*^9, 3.794800830806095*^9, 3.79592657222092*^9, 
+   3.7960935727245817`*^9, 3.796350728345614*^9, 3.796351387482123*^9, 
+   3.7963583856122093`*^9, 3.7963597949590263`*^9, 3.7965414233252897`*^9, 
+   3.7969894956257563`*^9, 3.7969896928906384`*^9, 3.79714150989334*^9, 
+   3.797155212307465*^9, 3.799979720978681*^9, 3.7999858545214*^9, 
+   3.799986631690362*^9},
+ CellLabel->
+  "Out[795]=",ExpressionUUID->"645077fe-3622-4b28-a7dd-5b574bcee264"],
+
+Cell[BoxData[
+ RowBox[{"2.6352135937237056`", "\[VeryThinSpace]", "+", 
+  FractionBox["8.093159444562886`", 
+   RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+    SuperscriptBox["qq", "2"]}]]}]], "Output",
+ CellChangeTimes->{
+  3.794722330561166*^9, 3.794722451514659*^9, 3.794722761467866*^9, {
+   3.794723008173894*^9, 3.794723044006629*^9}, 3.794723200187169*^9, 
+   3.794724767978251*^9, {3.794738303001855*^9, 3.794738307850569*^9}, 
+   3.794740035022748*^9, 3.794800830806095*^9, 3.79592657222092*^9, 
+   3.7960935727245817`*^9, 3.796350728345614*^9, 3.796351387482123*^9, 
+   3.7963583856122093`*^9, 3.7963597949590263`*^9, 3.7965414233252897`*^9, 
+   3.7969894956257563`*^9, 3.7969896928906384`*^9, 3.79714150989334*^9, 
+   3.797155212307465*^9, 3.799979720978681*^9, 3.7999858545214*^9, 
+   3.799986631694149*^9},
+ CellLabel->
+  "Out[796]=",ExpressionUUID->"f0f63f94-2e83-4d4a-b5a1-ab216e2d2066"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"30.030760597232295`", "\[VeryThinSpace]", "-", 
+   RowBox[{"17.563772728871566`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"5.75355021749586`", "\[VeryThinSpace]", "-", 
+       RowBox[{"2.4139353349748434`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.4189240986966717`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.018161634940121334`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00036683712792131694`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"2.6352135937237056`", "\[VeryThinSpace]", "-", 
+      RowBox[{"2.109815577833317`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"5.75355021749586`", "\[VeryThinSpace]", "-", 
+          RowBox[{"2.4139353349748434`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.4189240986966717`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.018161634940121334`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00036683712792131694`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{
+  3.794722330561166*^9, 3.794722451514659*^9, 3.794722761467866*^9, {
+   3.794723008173894*^9, 3.794723044006629*^9}, 3.794723200187169*^9, 
+   3.794724767978251*^9, {3.794738303001855*^9, 3.794738307850569*^9}, 
+   3.794740035022748*^9, 3.794800830806095*^9, 3.79592657222092*^9, 
+   3.7960935727245817`*^9, 3.796350728345614*^9, 3.796351387482123*^9, 
+   3.7963583856122093`*^9, 3.7963597949590263`*^9, 3.7965414233252897`*^9, 
+   3.7969894956257563`*^9, 3.7969896928906384`*^9, 3.79714150989334*^9, 
+   3.797155212307465*^9, 3.799979720978681*^9, 3.7999858545214*^9, 
+   3.79998663177455*^9},
+ CellLabel->
+  "Out[797]=",ExpressionUUID->"849d8cd1-a129-4675-9c4d-6177516821eb"],
+
+Cell[BoxData[
+ FractionBox[
+  RowBox[{"30.030760597232295`", "\[VeryThinSpace]", "+", 
+   RowBox[{"17.563772728871566`", " ", 
+    SqrtBox[
+     FractionBox[
+      RowBox[{"5.75355021749586`", "\[VeryThinSpace]", "-", 
+       RowBox[{"2.4139353349748434`", " ", 
+        SuperscriptBox["qq", "2"]}], "+", 
+       RowBox[{"0.4189240986966717`", " ", 
+        SuperscriptBox["qq", "4"]}], "-", 
+       RowBox[{"0.018161634940121334`", " ", 
+        SuperscriptBox["qq", "6"]}], "+", 
+       RowBox[{"0.00036683712792131694`", " ", 
+        SuperscriptBox["qq", "8"]}]}], 
+      SuperscriptBox[
+       RowBox[{"(", 
+        RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+         SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}], "+", 
+   RowBox[{
+    SuperscriptBox["qq", "2"], " ", 
+    RowBox[{"(", 
+     RowBox[{"2.6352135937237056`", "\[VeryThinSpace]", "+", 
+      RowBox[{"2.109815577833317`", " ", 
+       SqrtBox[
+        FractionBox[
+         RowBox[{"5.75355021749586`", "\[VeryThinSpace]", "-", 
+          RowBox[{"2.4139353349748434`", " ", 
+           SuperscriptBox["qq", "2"]}], "+", 
+          RowBox[{"0.4189240986966717`", " ", 
+           SuperscriptBox["qq", "4"]}], "-", 
+          RowBox[{"0.018161634940121334`", " ", 
+           SuperscriptBox["qq", "6"]}], "+", 
+          RowBox[{"0.00036683712792131694`", " ", 
+           SuperscriptBox["qq", "8"]}]}], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+            SuperscriptBox["qq", "2"]}], ")"}], "4"]]]}]}], ")"}]}]}], 
+  RowBox[{"8.324790523591046`", "\[VeryThinSpace]", "+", 
+   SuperscriptBox["qq", "2"]}]]], "Output",
+ CellChangeTimes->{
+  3.794722330561166*^9, 3.794722451514659*^9, 3.794722761467866*^9, {
+   3.794723008173894*^9, 3.794723044006629*^9}, 3.794723200187169*^9, 
+   3.794724767978251*^9, {3.794738303001855*^9, 3.794738307850569*^9}, 
+   3.794740035022748*^9, 3.794800830806095*^9, 3.79592657222092*^9, 
+   3.7960935727245817`*^9, 3.796350728345614*^9, 3.796351387482123*^9, 
+   3.7963583856122093`*^9, 3.7963597949590263`*^9, 3.7965414233252897`*^9, 
+   3.7969894956257563`*^9, 3.7969896928906384`*^9, 3.79714150989334*^9, 
+   3.797155212307465*^9, 3.799979720978681*^9, 3.7999858545214*^9, 
+   3.79998663177791*^9},
+ CellLabel->
+  "Out[798]=",ExpressionUUID->"e559911e-fcf5-4229-9a57-bbda72c1ea6a"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"fit22110phn", ",", "fit2110phn", ",", "fit3310phn"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"qq", ",", "1", ",", "12"}], "}"}], ",", 
+   RowBox[{"Epilog", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "dataq22110ph", "]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "dataq2110ph", "]"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"Point", "[", "dataq3310ph", "]"}], "}"}]}], "}"}]}], ",", 
+   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
+ CellChangeTimes->{
+  3.7905167273661346`*^9, {3.7906752011432133`*^9, 3.7906752014899263`*^9}, {
+   3.790675289305591*^9, 3.7906753077830067`*^9}, {3.790675361268032*^9, 
+   3.790675378699053*^9}, {3.790675413665827*^9, 3.7906754531557713`*^9}, {
+   3.7947224706219387`*^9, 3.7947225027020082`*^9}, {3.7947230112568483`*^9, 
+   3.794723014766715*^9}, {3.794723048295319*^9, 3.794723053793068*^9}, {
+   3.794723142461474*^9, 3.7947231467394743`*^9}, {3.79472346862388*^9, 
+   3.7947234807015667`*^9}, {3.794724742445595*^9, 3.794724751247855*^9}, {
+   3.794800833423633*^9, 3.794800839169923*^9}},
+ CellLabel->
+  "In[799]:=",ExpressionUUID->"f856ad1e-4ec0-462b-b5bb-9f52e8fc7e8d"],
+
+Cell[BoxData[
+ GraphicsBox[{{{}, {}, 
+    TagBox[
+     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVx3881HccwPFz6QoPcX4kvzrcnU+llNmKsr3fswhlq608klgk0Q/lkVBN
+oaaUH4+yGimrUKI4qSMVThIlv5L0vR/OnR9nszoldA67/fF6vB5P25ADP++i
+02g0X03///sOdzcaTQmilrI16XOGYJ7R1aZ2fSUMt06/ZzOGgNo07pdnqQRz
+1sqHldpDEN1eHOW5SgnVHo4Xe7SGoLDN5FZqpBL27KCO26kVMK91gGkuVkLo
+oSh+vFIBopdnB52qRoAe7FGU3q2AmGcdF3ZGf4Kjy9fw3W8qgB/z6+MlzuPg
+/FNYe/ZyBdwpbT4dfk8F54XczgsVg9D0ls2bbzMNCc37eAZugzAhebTFZJiG
+k685krB7AzBo6pe/tZCO80mGXtuKARAVR4paUrQx+YZbwraCftjlqnaPD2Eg
+Y6e2nzOrHxp1j6rCLOdirX/yluqCPnBaE5OT9EUHuw5kF9BJHxwuDUl7V6GH
+EY1Jn8ceyMHXsv5u+H59TCn9g7Z/gxyWDORVLPYyQIk4s2K2VAYHVa46mYmG
+aP4mNTo/QQY/OgU7FEUx0WO1hUEsSwZj8rrQwEAjfNgsjFzW0AuplVc8HV2N
+0bLSv4XE9UL+42+ss4gJ8q1XJk0t6oUimecVFsMUO9I5u0flUnB2MTPEcVOs
+THvNs8mVQrKOXY5aPh89tkf7+gRJoUGd39JVa4bH+lc1FNtLIYU1OObNW4Dh
+dze1V4l6wDX0+nMqwxwZi5u4mUd7oJxzqXTOXgukm4njDtj0AM/EJ/XVVkus
+Gxs/oqqXwGX7GGbZSits/aqhnntYAnPCg88tI9YYWtH5gxNHAt9xT1t5Gi9E
+2doFsn/fiSFEm+v324eFqJrS/jKRJQYd46RT6yUs7HDJCJT5iaH1evGyK0E2
+SAW4qCatxDATW54vfWmDc195MZIHRaDst7gU5W6Lv3TpUSM8EXSHVgcwy2wx
+uuZa96xEESQeE+RMLbLDIxvpJaYbRWCbR+NNZNnhbce8WbpcEdycK24VMNj4
+jF8g5kwJYXi2+Z638WwMq/vT17NTCItNzndPDrPx4EzXWjeeEEhVuGDfLg6y
+c0fHNp4Tgm6u+EGxkIOPvDd7mUYIoe9C+vEv3lykl687+dpHCCdYfwkyBVxs
+i9GSP3QQAvPJP91uTvZ41Ur9eYWhEM5kvZksz7XHi8Zht06OUSDQY2XHmhLs
+2/vmvo6IAmVGvq7PKYJV+zJPptZTsE4UIHNJJlg4nbDcXuPcRcZV5AzBiCfB
+IzVPKdggSIyYnUpw1u0+/qc6Cm5/DGqszST4tXqd13YBBSFbzJNX5REMtvI+
+4VRNQadFuha3jmBabI3JcAUFDrs93hnXE3xaeO7QGY2TytU8egPBwPG0QY7G
+Kzbs3SFtIvjhhbVBEJ+CtHivmpx2giPPGwPa71PgKaXHG/USfMHyHHhURsHV
+pVWbteQE2wzrLvprPBoXtVTZR/DOwQXbxnkU3GBKha8UBNkd39o6azzj/mR1
+ipJgydvmwuISCvwyoo3iPhKc9z5+2lvjEqHD32GjBCN9ReGKuxRsj76cvXaC
+4OeYs8e4GpfXbopyVhFM0W9l19+hQFdfx9tOTXDi9yJpiMbB/rU2zGmCtPVm
+97Q0riyInZiZIejYZJB1rZiC/wDbzVaX
+       "]]},
+     Annotation[#, "Charting`Private`Tag$412061#1"]& ], 
+    TagBox[
+     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwVzX0w1HkcB/BlSh4OsWvzFNbTl9TWjqtsXJ8PSXnophw7JSShraRMGw05
+s9URKR1XFOli04MrOl2cVBhHqk1Lkschlbuzagn78BP3uz/e857XzHvmzYk+
+FByrzWAwttD5v707fLwYDAUItxamsgfkYGR6pU1mqADV9Tl2zbAcercpBWVW
+ChAbveGFfZSDSFaR6LdWAQWc0J4bn+Vw8xXrRk6CAs7PfC2I0h4Ho/aPJhYD
+CqgeCl+y0WUc+p9nj/LqJiBYzMbmo+OQ9FdH3h7RF4h1mBCMsz/Bg6Rd9cvc
+lWBQKDzok/0Zfqt8kSn8XQMxa07f6k5RQFu3QxXbbg68apd6P145AarBh6Es
+OQPb4czDI5MTMGomkGy/qY0XbNLj4ssmob8iof9l1gKM12GJonbSP/xZn7Ro
+HVy/2DklUGcKnuqnaOKsdNGObWfMLZ4CnmdS0Qm1Hpb7TkuH3afhaGX02Z4a
+A/zUmuIbUjMNW6ya7wgPGuIqizDHEe4MLPtYVuO62Ri5hubbS8tn4LCGr5cv
+XoxJnUd9MgyV8D1vt9vtRBM07u3MNxIpYWakKSYiwhRDHcwD/V8pIae22I/L
+Z2JuOC9vl60KJPWrlxYSFurXm3L4CSq4/c6v2FbHDI3PuAYM3FOBu8eSxag0
+w3Wsmr710yrI0LMvmh1h45hSq2yKp4aWWcnLNw1LMPZ+Tp5bnBqybEdn/KvM
+sfyIWWHsZTXwY6619uZaoFnWxnRhqxqqHS9WLjpgiQsk7LEQhRqqWAE50u1W
+KMiStYosNHDZOcnk3hpr/DI1+GjRdxpYJNx9ZgVZih6eM5HSKA2sd8q09mPa
+4GH+IRIm1kD0AifB8c82ePNJgVHJFQ3oMU+cChy0RZvmMGdunQbar1WsKI60
+w4ft6QKDTg3MJ1dLhp7boduz4MHBfzSg+GB5MdGHg12eH/IMtCh4G/N4p8k9
+DlpyN3gEmFEgTm0s+upij7qahvFeVwo4ZYwqVaE93v+y/2m/JwXlugPtjToO
+qOYEY2oQBfKFFvu70xxQ+VNk66EIClxZP7+l5A442kbFh8RTQOqEjfGxjthV
+OdeSmUqBfsnAHxV9jhiQImbmZ1HwPu/cj2p/J2wKyk6avEBBuu3VxvxGJ6TO
+i1i/llJg8mjsrRfPGYP7cbnsDgWnC7uo6hJntA7c08GvpaDRwPZSshnBxAg/
+709NFChyJfoBpwiWn7uxb+8LCjb173znkUFwMIVZep52iQuzjpwmeFXfS/Yn
+7aBG8b6FOQQjP0iZ30gpuDUZ+bQhn+BeHVxWRTs61CJjbRnBb58/KJl5ScFr
+y3NaTk0Ep9NO1h6XUeC2d2MPs5lg+9xdqYT2ierZKu0WguK+sZ4XtFcFHYga
+aiO4VUvSbd1Bwdm0zU+KZPSeLxDW0/Yb0k4zHSbYAlrD6k4KriyvC9EaIeir
+myzkvKZg6ljicsV7gl6EjG6mXWoy1Cf9m+C7THxWQHve59G6LAXBHWklZHUX
+BYJckemxSYLut1bsC6d9t8/t37gpgswfDEpP0g4XXb7kqyIod6hXy2hXN2xL
+dNcQ9Aj4xVxNW99Qz99+luDK8Wau3RsKdu9osDOZIxiYvdVrE+3a68mq+XmC
+LiV87wTa/wE2rVIi
+       "]]},
+     Annotation[#, "Charting`Private`Tag$412061#2"]& ], 
+    TagBox[
+     {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
+      1.], LineBox[CompressedData["
+1:eJwV0Hs0lHkYB/Ax633HzKCGQS7l7ieRbFdlm2+2ZhF71m45Od1kaVVqm1Zu
+7WzrkpoSi1OEsRtTCWXKlllbm8mlrJVyULkdpKjmtJOSy5B994/nfM/nj+c8
+5/vYh3//dSSbxWIFMfN/rmvz9WGxtCI2p9ZtL20IYxN50yMjrSi2NuqsHWWI
+ruDxkBJrrUjVfjGs8xNDxDwql4hXakXaTXVC6Bmi9KHwUvoBrcg/K8/ccJoP
+49YXAsteraiwThB6/C0fPc0nh71q3ooOiXqzBT18xDa0ZX8b8070zZztvZcr
++bgZu/OW29Jx0f1ln7cmBvBRUfnP8ajrUyK3gHj2uxEemh47Ks3tPoqCcpaH
+bJTxMNH352ahhgWHRtp5xJGHYbMQxZZSNnzKbHIdmrjoKT/Q80Cmj48Wmjan
+aC4ivad9peE08iMSlGPmXNznJU7ttjZAyMjioGUtBvBaE1uQPMlF65nOxQdT
+DHC4Mvz002o+sk5tC1693gBB1vVXovYbQVNzRr6RbwC3FyXVC/3mICckT7+l
+jYODU97cnKS50PSpBiuKOfjSa9eiMokAFUJV2LwfOPjw7G7E9u0mQPOoRO7H
+QbqqULzY2xTJBTqj/U4cKG4tn59HhBjzlj7PZHFQNigutKXNsJ/tkzs+QGPp
+Kou5GDeD8tq8tRfqaKRxHQqmn5nDp4VadriURuO04kFnrQU8Q49mu2fRkNkO
+f/BXzkMmF+OTCTS8I87f68q0RGPKH/HGu2lUOZ2t5OyzwpuifFpvEw2lMCC9
+ZYs1BuxuO75ex/zJJVZwbYUNXF3i8oM/pcGJ2nXKg8yH4itPWYUDjbXOx23E
+pgsgNg6UJghphOs7h/z47wJcelxg5m5Ag2uanLqxzxZd+WOf1esotJ4v9yjc
+YYff1piQGS2F2bgqRX+zHTwCVWU2wxS0z63OSnztkTmwc9Kyl8KTiL+2Cq7Z
+I8pP17+jnULSEXXBjKsDqtR321KaKdiXsJQTeQ6QZVjkNtRRuGjQ26qmHWH1
+5mlK8S0KGspy72OpI2LXRDdvu0FhoTDriU7jiL/9Z/forlIgNVHq6EgnfDDq
+cUsspcAr6r1R3u2En1XKDQnFFIayM36a9HdGNU8nXyKncNT2V3WO2hn64oCO
+e7kUBLdfP/HxckGRyYNEdg6FE3kduqoiFzS3chNzMiio+bbn4swI6o90WFIn
+mX6ZCl5AKkEH/+KVmWMUvujZOrgqjUDl5kc0jItcTWvICQKhYETRxThQnbSH
+SicQx9pUVDO+PLrjfm0OwRzZilcSxuGbLdNWlhA83OvqNJxKod0qQ8/5LsFL
+57609hQKi77b8NS0nmDJ6jFpHePkqmklu5G5/34o/jrjJYH7wvqbCEbb/RN/
+YXxa6nen4BGBh5xbHshY3M+WmgwQ6J2IrGtIpiB3r9mk94wgrP/o+O+M38dL
+3LVDBEOaME8F42JBf3fLCEFn1aGyZMazvrdXy7TMPu9mi4hxSGaMSfwoQahg
+2NaT8dXuRa92vyewnOo4vIDxtpj8c+snCMaMXrrPJFGoqg2WLJ0isObyMzSM
+eUZcf4dpgjvHXox2M94VWmsn+EjQH524tZmx6kLcxOwsweClhns1jP8DaTYQ
+eA==
+       "]]},
+     Annotation[#, "Charting`Private`Tag$412061#3"]& ]}, {}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->{True, True},
+  AxesLabel->{None, None},
+  AxesOrigin->{1., 0},
+  DisplayFunction->Identity,
+  Epilog->{{
+     PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQDQEf7DNYWte/4XtpDxTjAPFPbJsbPDn2pX04w9//
+//9/ti8Iq5570PSFPVt8LFD9D/sZspG8Qjee2+8oOmh53/+vfcS3m5/FOp/b
+L1wrwQhU4HCj3a/cQ/u5fZBmmvi6diaHH2WaCZ9Fn9n/ePQGaB6zg2x39RW/
+v0/tt6kFKcXwszikxdUwX1731D5fmxeoncPBr2Ti6oNtT+zT30syg/glAt+d
+S2qe2B9T5gTK8zhUnFjCpvTmsb38tjl7/v/nd3hwQ2enwMxH9pfN/v0H8S/V
+JmemXH5k76klA1Qv4vBvxyl+PoeH9pI+h4Hyog47Auf6bap5YL9g2vof3/6L
+OwR8l5gz8e99+353SaAFEg5McvXG15we2Mfe6Tv0tUPBweJ+2EpLrrv2Rp2S
+QPOUHFjivmp09N+xj/fZAjRP2eGIzrOAtpLb9gBG4pUs
+      "]]}, {
+     PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQAWIQHc7w9////5/tbzzr5YvXf2fPFh8LFP1h7+AWUR/R
+/N5+R9FBy/v+f+0LdNsUJ//9YL9wrQQjUIHDjPDVPLenf7QP0kwTX9fO5LBj
+xfbfD599sv/x6A3QPGYHnj0X94S6fLbfphakFMPP4vAmr/r2euXP9vnavEDt
+HA4TrHIFNTZ/sU9/L8kM4lt02m2auvGL/TFlTqA8j0OPXd/KE5u/2stvm7Pn
+/39+h5yqEw83HP5mf9ns338Q3+Pw3Owdm77Ze2rJgHzjECJ9U+1d0A97SZ/D
+QHlRhw23155+8fOH/YJp6398+y/ukNJ0ov+R5U/7fndJoAUSDhw8mQnM4T/t
+rSaDvCPjsGvyC+4vnL/sY+/0HfraoeBgKZrrqP7ll71RpyRQXsnhtYbmc03n
+3/bxPluA5is7rN7T8pB72W97AGW5lPc=
+      "]]}, {
+     PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQAWIQHc7w9////5/tNzOcybswj9uBLT4WKPrD/m6id7qk
+D7fDjqKDlvf9/9r7PHl/rHM6l8PCtRKMQAUOEw02qSwO4HII0kwTX9fO5HBf
+eXevnBSXw49Hb4DmMTtULl10ZLINp8M2tSClGH4WB6Pw3JcVFZwO+dq8QO0c
+DjUO7xJ2buNwSH8vyQzi109nup/wk8PhmDInUJ7HIYhh+kbOTewO8tvm7Pn/
+n9+h4c2eZ88esjtcNvv3H8T/cp1v7dkz7A6eWjIg3zjUPEupW2zK7iDpcxgo
+L+rwpCZ9W44Au8OCaet/fPsv7qDx6XfWrnY2h353SaAFEg5dZzqvXl3K5mA1
+GeQdGYcNakGW0c5sDrF3+g597VBw4L66yP3AbVYHo05JoLySQ9rn6R837WZ1
+iPfZAjRf2eHG6285FtWsDgAyxocR
+      "]]}},
+  Frame->{{True, True}, {True, True}},
+  FrameLabel->{{None, None}, {None, None}},
+  FrameTicks->FrontEndValueCache[{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {1., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {2., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {3., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {-1., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.8, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.4, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {-0.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.4, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.8, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.4, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.8, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.4, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.8, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.2, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.4, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.6, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.8, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {4., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {4., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {6., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {8., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {10., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {12., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+         AbsoluteThickness[0.1]}}, {0., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {0.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {1.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {2.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {3.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {4.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {5., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {5.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {6.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {7., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {7.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {8.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {9., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {9.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {10.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {11., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {11.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {12.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {13., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {13.5, 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}, {14., 
+        FormBox[
+         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+         AbsoluteThickness[0.1]}}}}}],
+  GridLines->{None, None},
+  GridLinesStyle->Directive[
+    GrayLevel[0.5, 0.4]],
+  ImagePadding->All,
+  Method->{
+   "DefaultBoundaryStyle" -> Automatic, 
+    "DefaultGraphicsInteraction" -> {
+     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+      "Effects" -> {
+       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+        "Droplines" -> {
+         "freeformCursorMode" -> True, 
+          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
+    AbsolutePointSize[6], "ScalingFunctions" -> None, 
+    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+        (Identity[#]& )[
+         Part[#, 1]], 
+        (Identity[#]& )[
+         Part[#, 2]]}& )}},
+  PlotRange->{{1, 12}, {0., 3.5031321849681953`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{{
+     Scaled[0.02], 
+     Scaled[0.02]}, {
+     Scaled[0.05], 
+     Scaled[0.05]}},
+  Ticks->{Automatic, Automatic}]], "Output",
+ CellChangeTimes->{
+  3.790516727820496*^9, {3.79051729717238*^9, 3.7905173209186363`*^9}, 
+   3.790517442629511*^9, 3.790517712934001*^9, 3.790675156310947*^9, {
+   3.790675191135728*^9, 3.790675201754025*^9}, {3.7906752914403343`*^9, 
+   3.790675381379657*^9}, {3.79067541431059*^9, 3.790675422279451*^9}, 
+   3.7906754536987667`*^9, 3.790682656250534*^9, 3.790687060236467*^9, 
+   3.790687993639791*^9, 3.790688713178996*^9, 3.794718523585072*^9, 
+   3.794720359080772*^9, {3.794722483826476*^9, 3.7947225032363787`*^9}, 
+   3.794722762034974*^9, {3.794723015341692*^9, 3.794723054206992*^9}, 
+   3.794723200281941*^9, {3.794723475829033*^9, 3.794723498260783*^9}, 
+   3.794724768193121*^9, 3.7947400356654263`*^9, {3.794800831292171*^9, 
+   3.794800839691607*^9}, 3.795926572616428*^9, 3.7963507313404427`*^9, 
+   3.796351388883562*^9, 3.796358385940613*^9, 3.796359796355442*^9, 
+   3.796541423770163*^9, 3.796989496138978*^9, 3.796989693298666*^9, 
+   3.7971415102856503`*^9, 3.7971552141218233`*^9, 3.799979726580822*^9, 
+   3.7999858555826*^9, 3.799986632395755*^9},
+ CellLabel->
+  "Out[799]=",ExpressionUUID->"095fa048-bb41-4bb9-983b-e270abab6ce3"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Plot all together", "Subsubsection",
+ CellChangeTimes->{{3.7947191021638327`*^9, 3.7947191135074167`*^9}, {
+  3.7948010016819773`*^9, 3.7948010032716084`*^9}, {3.7999806807820063`*^9, 
+  3.799980681717243*^9}},ExpressionUUID->"6d04a514-6e4f-4e73-b51a-\
+dd8259a0389b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"pl", "=", 
+  RowBox[{"Plot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "fit2210n", ",", "fit2210n1", ",", "fit2210n2", ",", "fit2215n", ",", 
+      "fit2215n1", ",", "fit2215n2", ",", "fit22110n", ",", "fit22110n1", ",",
+       "fit22110n2", ",", "fit22115n", ",", "fit22115n1", ",", "fit22115n2"}],
+      "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"qq", ",", "1", ",", "10"}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+    RowBox[{"Epilog", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Point", "@", 
+        RowBox[{"Delete", "[", 
+         RowBox[{"datafit2210", ",", 
+          RowBox[{"{", 
+           RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+       RowBox[{"Point", "@", 
+        RowBox[{"Delete", "[", 
+         RowBox[{"datafit2215", ",", 
+          RowBox[{"{", 
+           RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+       RowBox[{"Point", "@", 
+        RowBox[{"Delete", "[", 
+         RowBox[{"datafit22110", ",", 
+          RowBox[{"{", 
+           RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+       RowBox[{"Point", "@", 
+        RowBox[{"Delete", "[", 
+         RowBox[{
+          RowBox[{"Join", "[", 
+           RowBox[{"datafit22115", ",", 
+            RowBox[{"{", 
+             RowBox[{"{", 
+              RowBox[{"7", ",", "0.185"}], "}"}], "}"}]}], "]"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}]}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "2", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "3", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((0  M)\)]\)\>\"", 
+           ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((5  M)\)]\)\>\"",
+            ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  \
+M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((15  \
+M)\)]\)\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.52", ",", "1.00000001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", "\"\<\!\(\*SubscriptBox[\(A\), \(R\)]\)\>\""}], 
+      "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "18"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Full"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Filling", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"2", "\[Rule]", 
+        RowBox[{"{", "3", "}"}]}], ",", 
+       RowBox[{"5", "\[Rule]", 
+        RowBox[{"{", "6", "}"}]}], ",", 
+       RowBox[{"8", "\[Rule]", 
+        RowBox[{"{", "9", "}"}]}], ",", 
+       RowBox[{"11", "\[Rule]", 
+        RowBox[{"{", "12", "}"}]}]}], "}"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.79635276218297*^9, 3.7963529689482183`*^9}, {
+  3.796353578614531*^9, 3.796353664200387*^9}, {3.796356166308751*^9, 
+  3.796356283523225*^9}, {3.7963578100081463`*^9, 3.796357810219645*^9}, {
+  3.79636353299969*^9, 3.796363533130734*^9}, {3.796368213193612*^9, 
+  3.79636822896074*^9}, {3.796369318621606*^9, 3.796369368832238*^9}, {
+  3.7971410069448137`*^9, 3.797141007193837*^9}, {3.797141392757203*^9, 
+  3.7971413932817163`*^9}, {3.797155253609788*^9, 3.7971552572164927`*^9}, {
+  3.79715529095459*^9, 3.7971553662467527`*^9}},
+ CellLabel->
+  "In[978]:=",ExpressionUUID->"9bd3df73-9a49-4cd4-8174-aafbdfc6b798"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{GraphicsComplexBox[CompressedData["
+1:eJxN3Hc8le//B3AhZJQGIg0zJNkrug/ZMjJTyIgQQtIwSjKKkFVJsiJSUpKM
+jDJDjnlQnFP2OTYNGb/r83j87uv6/tXjPM493vf7uu6753ldzhFwumjmQk9H
+R6fBTEf337+keSMZOro5rHvbwwihy4uY7OFk/QddC1jdt0P8pi8WMQFHl2K2
+kWXMeNO9+9Ehi1hFHOOO2zV/sKw00eFDCotYDgeTXHrsP4x37x0sfGwBE7wd
+n538aB0TzRTea524gOWu+EfoldERWEMNndkNF7DwI2M/5DXpCYPGg40JDAsY
+e0zU/oXPDASxHbQJnc/z2KRLwqniw5sJyocW42ix8xhnpYPKcAkTQVhkcWve
+6XnsXlwK9zZBFkJ7gbfgbal57M3dta5tUVsIs65N5fzM85gAvbjKDXY2ws1H
+8YelyHPY2K+K1LkAdkKYmTA9U/Uctnx+Z07HBgdBU0XcVCB9DiukS7sXGrqN
+EL2XVht/cw6zZWtQSfXnJHz5Rzhy8PwcFmWRQfdCaTshdq1B/bXRHHbW9lV9
+5fR2ws2gg+RXSnPYmaz0oc1vdxCifHS/xArMYYeC8s6/999JEI8aeevCMYc9
+2zUy4y6+i6D1+Ll98e9ZTJtK32I+vYsgR2bcsbd7Fou/aZl9LIeL4Jz8m4f+
+3Sz2Kr+Gdt+amzBFH+9/8uEstsC59S4/Hw8hlnuWlTVwFqMoxok8/8pDoKTq
+XTNynMWWUxd2XUjaTTDLObKxpjOLfU/w9k+x5CX47x0Yy5SaxS7q7+us28JH
+sNqf9Ggf7yx28NjrMNE2PkKxj4XWJoZZ7O78ZbnosD2EkQbNZo/ZGaxG2cL8
+lCI/oTyvbEHg+wzG/3FXo+0ffgKVre4I1jKDCdFvUXF6uZdwSUq97fKHGczk
+9vB6uu8+wuYvX5r3PJ/BROsn676J7SdgTE6fnj2cwToesf++9W0/Yf7F0lOh
+uzOYaW8U9trkAMGS5aM4V+AMthV7dutpwQEC19uTwpleM9hQw5uLEhwChMur
+Pmn5Z2ewhw9bkya9BAinn4b8jjSbwZ7r06mINwkQLA1KaJ91ZrAWXpFIRglB
+AikwU+S26gym2exs4RAuSPgYSNsbfmQGy6l7ZTM3JEhwbxUgCYjMYLsHp1j4
+CUIElvDofzp8M9iPToJSU6oQgZIy4HKbcwar1+j9u7EhRDjoIbVlM9MMFh7n
+W/XFfR7j6zxiX5q1iEnoBgcTzyxhXDwcK7Jpi5j3nxKKrtlvrCsh43fOmUXM
+4m707nNtQoTFvMt5Smwz2Kuas79HS+YwukiiXM/9RUxK9Y5zyYNFTPLXfLxQ
+7iLWJHmvWfzxL8zRKoD8zmsReyw1dpC7RIhwyM2vdIBjBrO1Dwsr3reALUfm
+RdwqWMRELXwfzOxfxnINaM+KYxcx9jHpLW/GhAhh550OPGaZwY73W+26dHoO
+s9rZsFUifBF7LRfX+wzcp1fMlGbd8hexJZ1rVanYLyz7wItS44BF7OPNxCMX
+84QIWTIxZVLbZrC5gOsZx8B9OGsQZpuat4g9N7rCSq5awnarjCh2Jy9i0spD
+nGwDQgQRDb+kiS0zGN9zt4FT2+YxJ8ebL+IeL2KFhLC5ur+L2IUUxuevMhex
+Ru0YV+FrC5hfQMJCIXie5Jy+ILwWuoyl2KmUj0UsYhOJYZtsFoUIStF6eibM
+M1isS2eWyuE5rLyUNehR8CLmK70jPp1xEfPitbgSDa6f1eKiUtf2X5haTkvM
+teuLWIe4x9s9mUKEwaZUm35QvyrDL6nND+ax1q1qHJ7PFjF3g5VPpJglTO7A
+tpm9jxYxTUpJ0vsuIcJxh9HJONYZ7Jz8iNv+H3OY5DsDD1YwLl7qTAUVTYvY
++udyB/acRWxHJ/PyFHhujXZo/zAE9btYz3xfNl3GJFcnc4fvLmIraqfDN08L
+Ec7pM21aBvX/OTEYXhg5h1nmM28ZiV7EZhXZ9750BeMeNr88A/qZO7W+/er8
+PCZV1NqvD8ajY8+0YYLaPLYh8ErC5+kiRj1Op9QisYQFcViYbQOvgz5wkuxy
+F7BYoaQT//Wvd6owuPCvEOFfestyPpifbw9xTqVxz2EEw0nhoGuLWOerLhof
+bQEL+lw3/xf0K+W0h//syjLGPsrSFB60iNmEWC7PPxEiKGsYd0qB+e7QLBfg
+dnMeOxps/FoQXG9LU8UBS/8lLEnORa8odRH7opDRe68DbN+dXfET9OvOisDr
+W1/mMLezxVERSYtYe0Ujk/LrRUz92uIeAdBvpYfaasYKC9jWkdAXS+D8DT1F
+qn7Ky5jJTF5JW8wiFnZfu3FwUoiw9ekAgx6Yr/t28rZt853D7LpSVzOiFjHT
+d23XxI0XMcHkmeDS5+D8r9VsBgfmMUVGYb9Q8HqZIpG4LDKPXR0t6kt8soid
+qKtN1NmxhImsmYy6ZixiWTeM99fGLWCOY+q+ZaBfZ7GH1bd+CREUb+gmrIJ+
+uT1NOtN7fA77PtUbEhy6iHG+MZUT3LuIGR6aCN8M6uVSLxvPfDmP9cYlJiWC
++xPzzhWo/DOHUeprTzqB+UNja3kZ6bSA0RL/MN8Bx48tM6iRvrGItbo92rUT
+jG+ocG3LLpYFLKrFKW4JjG+BZRHjEfN5jOwYPC0C7gfrxc74lcoF7H5Sn85/
++xun1B7tXRUitEs0+FmD+hq2Ft0zZpvDItgj7a2vLGL03vJ7+ocXMIMHXfvE
+wPbfvo8nBM8uY1b8CyF3wP2RLmbIbZcmRFiNKHtoA8bTr7CTl+/yPBb0Gvvj
+kw3mZyS/yU63JYzsdX7ID9yfnOTk33/ahQin4/VfcYDnU9r3GnP5mjnMUKM6
+Ry4RzPvrYgq/wH6vDZrzc8B4GgSODG+IL2BmAnOM1aA/v5I43aUll7Ezdty/
+a+6B59fRoxM6E0KEb1bjsb5gPKV/vfepdZnDdu+5u5cG7u+b/lLPxzUWMZ/q
+Gy47QD+GEgdXY77OY99vCbdtB+PJUt+smMc3j+0o/0hMAc/ToFDBOkamJWwi
+aq6ZHfSrxGm6zu/2Ahb59t2bd/89PybvkaeXhAjXP3FPiYD7LfCW3Eak8n/P
+i+A7CWAcCL7FjmROME6KSg6GoF6xA9bR5lnzmKsE3QoDGE+zk9r1XtNz2LYN
+5YajDxexjRm3kyrWC1i+dlm+Fzj+xysvZmb8FjGm1YHbYWA8k5gdvBtW57Ep
+Bu/BLFB/lbLxc7LuPGaze6XZBMw3j15f+cLiBUxtfP7RE7B/AuG9rcY/IQL3
+Tr7im2A8s2b9Ptr+WcASJttf14N6hN/lPkwjLGBWWi9ShMD2ZW1P3omPgfmt
+03hhEvQjLq0ocNvjBaxDlFX3v+sdEDvE2uu1gGmR7/Gkg9feGoIHnXcuYCyZ
+P3Zi4HhanPLTek0L2B/eRx4XwfustC98F9aFCIYX21SlwPlx3x3ZRtgxLYF8
+N3CBP9vGA/nubmhm4LWjyHcpaSMijSsL0HerD+b3prxDvvtXUVDc4458Ryj6
+dlVHBPmuK2B6xnx4HvruGc+Lr4QM5DuBuPfOdR7Id1OpmfTnFJHvHiQmrdix
+It+tnkyo1P85B31XwDDFOFWJfKdyKXPcIw35zou7Zcg8CPlOMtuFJeks8h31
+iVPRmA7ynUD9hLO4FPKd8MvNjhW7ke+s7sic52FAvouRrtMIGZqFvvv3ri+t
+sAL5jvu90/ttD5HvvknX3E+7inxnbpkka3wG+a7pUR3bDnXkO4XFqClZQeS7
+JhMzaS8m5Dumi9aa3rQZ6Dsb99FW9Z4Z6LthT61EyaoZ6LtRgUyr/DzkO7+X
+FbIeich3husis5YhyHcpDT5nLl9AvmuO4e1qt0a+uxrFESWlg3y36d8FhmgF
+5DtnqQKOw8LIdweeWPUm7EK+K74WXmvAiHy3lPzZd2JpGvouX6d1nXN8GvpO
+Iv4ZMZk0DX13kD3I/s6Xaei76P62AxLV09B3uSovwqXfTEPf9RjuzgzMnYa+
+Uykyiex/NA19x7jd19z4PPJdsJDonTZr5Ls6vw0xJ37ku5GCVIw/Yxr6jo97
+o8DfAvlOopoxpckJ+W5Z9bOvlSTy3ZCunYle9jT0nYpbkkumJ/KdKYlr+boB
+8p3acfbTv9Omoe8sB1U3RI4j3929Gn6Y+zzy3YGfb79tlke+2/k4cCslZxr6
+jnyOYbP8BeS7MdLYL6eTyHcrZzZPRqVPQ99dS//Qxu2AfPfmYWJtth3y3bjg
+t7dynshzpvsb4s4/noaeyw0/Z/hXCXku9VUf03c35DmDm2cLG5WQ5+a/iO99
+9Wwaek7KlFU7zR15zrLrj3q+BfLc4cLDZ8yeTkPPmSzrvx47jTyn1/YhwNgB
+ee7p9XLedE/kt0SJULUjoL+43wo1zns9OIH8lvJuCy+HC/Jb6tO7uVKeyG8D
+k49/S55DXvvI2FzqfQF5TWUyxDwjdRp6bbb1p1axDPJaQWKZxDP3//Ha0T/P
+slSQ1zbP+3XsAvMX91rpenLrPTfkNUVJYSJmhbx2upQLew/6gXttp2lYEMka
+ec3bVG70viPy2qIP462Xnshna9Oi6omgH7jPZET6K3fqIZ8xyrhc4XVFPlNK
+YYn/dAH5LEbToVzTCXnMYothz+AF5DGP5kc/GcD8wD0mdMX9XLM68hih6LkN
+vRvyGHF/h0awB/KYm2LRxRw75DHB7xlL/qD+rognx/TB53qWqYUtpabIY1LH
+GTqveCKPtUdmcQ64II9VXZZ+NO2BPJbI5DGsBsYL99hXX/lFeynkMXu2kNlN
+HshjilWpD2JVkceOWfIq6IHxwj3GeIvzwtJ55LFdfA/ama2Rxzj7PlVMgvHC
+PWYwdC9Vxgp57GWj57CUE/LY+fc36F94In8dnObUqwfjhftLq6bcq0Ab+Uu5
++FDPI1fkL7MvE2E3LyB/3f44oaXgiLxV+6oslNUTeWuS43CpAhgv3FucN9q2
+zakibxkyq8/5uiFvDakrqO/wQN7SO1ZwwsQWeUvnRl92DDj+mLvaj5WEOYzt
+EYHjrTHyln/nUXNrT+Stz6d1f7C6IG+lKpGTpC8gbwVdXEr2BuNlNJbUWRo9
+j22e3Jjhc0feio1kFMj3RN6yCJu7sQb2/7EePXtcZh4jqfd/xpyRv/g5LPvz
+wPv0p3m15srmsbXsLR++eyCPrV9gx/6rD/fYLY3UC/GeyF8uhKEjbKAe3F9X
+OedWbKqRv/KNjibr0JC/OEOv5j2pRf4qTHN7GH8R5WsKWQcc/XkWob/MItKj
+SJXIX11m5UadPshfP0SbM4gHUb72gv0wvdEE8pdRo1Ql91vkL/sirT1TIchf
+jHV6BgVmyF/kwPWyWQmUr1kdUbLyY5iH/mqVyePPpCB/cdtG1c5UI39NPfAL
+vJeJ/FVgs7/ofCTy11+FZzxKXshfg4b6Z7OskL/Kre2OMBGQv9j+jOvEHEL5
+mnaNGucg7xz0V+5tc0Uuljnor4m/Uunn55G/bryOLrXoQf4yS9zDSv8B+StG
+k4XFLQP5a/APe3tsJPLX8Bfb6B4flK+Z9Wi6btiifC3U/9xyjx7K18gXRo5K
+Ks1Cf9FnvXvTLzoL/RXFa+8jxj0L/WWSsgULYJ6F/sK2hNS4/UH+Yrhdus5P
+Rf4atg1WqxxC/tL+QdReIyJ/sTSf8CtqQP5SvGF7haUC+av6uXLwwdcoX9sw
+Shu4movytbDzT675paF8zYJq+/1mIsrXdKovx/FGo3zNveOCr90tlK9RKWkS
+966jfG2nCEe0tB/K16QTZ9z2DSF/vWBd8nhIRv76+UajYTwV+Yvumek28wCU
+r439zq5U+Ir8dfjwcHTIJPJXq6+YCVcR8ldAVORer6soXyvKK89znkD++ldZ
+ZzXRifzVHF02dswf5WuWhif3STUifzlJTr6uoCJ/idpnxT8oQ/6SakpzCrqG
+8rVVaYYSuhHkL4NHlADtAeQvE9FhTO8yytcMhXXvsPQhfwknXY79MIr8tdqs
+JyNKRfnazelej2ctyGP8v1volC6hfK19/HWhyifkMcLtjnEVGvKYVJOC16Eq
+5LG6erYUxusoX/No8+o5SkEe4/QSSU/4jjxmvevJ1bbLKF9juWwoLNWFPPa2
+ssKgZRx5TPwgseDvJMrXOO+EBFDakc9k3aLry0H9uMcaTPs7O6aQx2o+buVw
+GUMeEzpdY/d2AOVpSZ4f20/+RD6z1zz7Y5KKfFZuwf3wrR/K0+KbZxh1a5HP
+Tiy3lhnTkM844nin3KqRz9zvi3frXUd5Ws0/pqT3w8hnC6q51fuGkc+4F2SU
+OQNQnlbhPZwkT0Q+Y816a/Z6AvlM3Hqj++gkytNC7tm3UzuQ1/hNY1tWQX9w
+nx37e+W2ORX5TN4Ps8BGkc/ORW0sjZBQfpY6b6UcP4K85vlJmiOZirxGp7BM
+WAb9wX1mkXfwDQsN+ax/w2o8/we4X6q1jDAwL57X7hFuG0M+e2dguufJFMrL
++pKP68hPIZ9RTtad8B1HHjv3NmRJmIY8xmIiyOTnh/Ix1bz+ZpMa5DFFIXHj
+/8YH95h/oL7r7RrksQ9l1qse11E+tjTkHT49hDxWWKs0830YeSxT/2uGTADK
+xwxy5l4pdCCPvWkT8eebRB47Gu3A3DWB8rGmKyvdVCLy2f2aqp694PmBeyy3
+rWv5LhV5zE3VgTt7BHks/V2S/Z8+lIdl1KTGHxxFPjtR9uanAxX5jO0a3T5u
+MP64x2JcZTr+6x/usRnuL6XLYFzUQp4FrnWD+ms14o3HkcdY2R8VGU+h/Gtu
+q3hV+BTymINChvPMGPLXUArDU1Ya8terUqw1wQ/lXYU9+8d0achfezeZsaeD
+fh345Wl4AXwuY+ev8eWiIm/dIlSX1IHX5IVZxnPioC8X92SOUpG3oiy2zY1M
+obwrJdp3WpmGvCWVXql90g/lXaTjMfmk91ToLVEFzvntRjTorZGccc+rf6nQ
+W+1RAnUqblToLWYeS5P7X6egt6TaalIeyE5Bb3VvV6djezUJvXWjZ3lLgtQk
+9Jb3OwrlRc0E9JaEKuMrVdcJ6K2HEU5ySdsmoLdO2X7ymW0ch97q2x66IXZn
+HHrLU+DawLET49BbCk6K+4/xjkNvXdS+Vu83Pga9VXeU8YFjxRj0ltBKkBxz
+yhj0FmfuUBW37xj0lvmM5kT8yTHore5KT15Mdgx6i8IfXLaFewx6q/sdK1fV
+2ij0lsiXhe+nR0ehtwa2i4+pd4xCb9m2vRadqxyF3grQF1F3yx+F3uLU1rvr
++HAUeov6k2mGP3IUeqthInYz4coo9BZ7o6Ottfso9FaYWYOJ8JlR6C17jbuM
+ucaj0Ft3V1trtx4fhd4yDbe8JqY0Cr2lkPgrP0dyFHoroN6NuVdgFHqrx9rD
+WXP3KPTWtclNV05uG4Xe2rI/gpmbaRR6S+ZkZip5bQR6S8en2cBleQR6y/GS
+/e3L0yPQWzGRTx47jo1Ab21utN/GOjwCvVW37mFwnTQCvVWSx3zPqHMEesvB
+pmYr+csI9BYm57d9X8MI9NZHg+dJC9Uj0Fsvlmx9So7QoLe0orINb8vRoLde
+hRhryZZQobc2h7f/2Kgbgd5KqNiIvkZPg95K0Hq9v1qbBr2lHBrHs5VEhd6a
+7wzpifk8Ar01y4MF1unQoLcKkv68OsVLg96qnBAVu1I7Ar1VyTvy5CyFCr0V
+1PF9cc2ABr1F/GD88sAkFXorblh50qJ+BHqrQ/wKW6Y6DXqr4KTfLu2DNOit
+fyV3NlTB9eHeWqhpKj7OT4PeAqaQawH7w/VMd8XrHwxp0Ft1xzN0NrHSoLdi
+V2JOl9SMQG+xZo4aVLVRobdyH+jqXj5Bg94qjclhdp2nQm/5uGad/gDqx711
+9M9ubhMlGvRWhEd+X/phGvTWxR2xJk9A/bi35N3lzyhz0qC3tjJYfN6lSYPe
+8o7K4y7Xp0Fv5R0WS+jdToPeapXWzOAC/cfzsAzqI5fxBSr0V89ouFylHg36
+a6ArN6UGHB/31173ONkPojToryHG5UdUZRr0F8sZ5TAiuH7cX7vXP1uZg37h
+/ho6aTfE9YkK/RXmILWJDLbH/ZXhXEu+vEyF/irksXlJBf3C/aXm+MCoEMxn
+3F+m+q0lGdI06K+pu3Xx7aBfuL8MH+Wa3d9Cg/46pnPo8/pxGvTXsZ0R7vbg
+enF/GbTrXc/iokF/ZftPndEB/cLzMiV5Yf9zU1TosXNlYu7LoN+4xwo3n2u2
+JNCgx1wFe84XCdCgxxRd1156HqVBj60kpJ93BNePe+xIwMWOMNAv3GMPfH6O
+d4H5iHvM9gvzh6eqNJiXSXFFxvpx06DP+F/1ltOD8+M+q2nNLO8D9xPus8E8
+5cMWujToM1anwY2fWjTos4hZyUo28P8p7rNpq/BpQVAP7rMf79jM71ZRoc/q
+4/0U6MD2uM8uJhf1X/1NhT4zaFH+zgieV7jPLt6Kk6mQoUGfjQfW2nLL0qDP
+ira9VBoH44f7TMxgZ+NOJhr0mRbje8IIqBf32dWs1vSH4Hpwn/mnr9rc5KFB
+n9llL1fbg/HD8zPX45VxC6NU6DVGLtkfN0B/cK+l6Mt2MmI06DWHoORNTPtp
+0GuVn6//fapGg16jMdTe3QXGD+ZpZhd3poF+4V4zqPhkcAi8j3vNm+dUyCYV
+GszP0mMdOp120qDf1AyL8zg1aNBvzLLskaagPtxvx1KvT3OA+Yr7LcFhcNsg
+mM+43446Vqovg/Phfhsx333gKKgH99tCQ3lqMXgf99v6Jh3hXWD+4n4T+5lf
+bw9e43mamGSTVhKoB/fclI2RaQbYH/cc/wVRh4tgfuKe09zjtmwCXuOek+Xp
+V+EC8wP3XAYdWzUrqAf33IjaLXal3chzSktG/Za1VOg5kf7HGXLuyHPxQVp8
+T6emoOeWR/qDTVyR5xhvXTll2j8JPXfKUp7tiy3yHB3po9Zj8gT0nChf7uEj
+l5DnfKrOOvrsRp7b30LvklQ7Dj1HEZZoOnwdea7HZUCZTw157pioiqkzHfLc
+Llte5fb2Mei5rc1Bx6rSkec4m2sZvPyR556IXbiRZ4o8Z+qxw17nMPLclc0L
+wWtbkecC0yOySudGoee4Hd/zHOkZhZ5jrM80ka5CnmPnj+//nIM8N8y2c6t+
+HPJcwPGjBScDkeccDPXu1Lkiz5ne2mQdZoE8V2mgq1KogTxHP8T3jV0aea7g
+r3SO1QHkuTPpN5a3cCLP9UtMllzbhDzHYRSp3LA4Aj3n8GOJ9fboCPRcuYVX
+Vg3wEu45VaoZ+zXgI9xzU+0shveBh3DPPTtxr8OyZAR6Lu66oUr68xHoOZ4r
+cZy86chzSxEKVw4kIs+d/+Ea9DkKee71NYu/l24gz/UpJf0qvYw813Rg154F
+T+S525V07NnnkOdsXqj3TJ9Bnvsk/2typwXynFUjzS3NEHnOOzFqjVpEhZ67
+dexutEsGFXpOkiRksF8SeS7/zUHbdhPkOe4PDbOXQqjQc0HNGZHfgf9wzyk2
+Gx31MUSek6i6lzdzEnmOb63g+HNwP+Kee9IkFJIeQYWe+/jZ8vcbI+Q5IRn5
+nLPmyHMnRoffWlRSoee82fIrYk4jz8XuIz2nM0eeM1M98OhdBRV6Tkz9zTR7
+EhV6Tvb6HEeNMfLcVrvordZpVOi5GrZsee8XVOg5uq+J52WAN3C/3TtuwZ13
+AvktSC3z9l8l5DedLR7XDldTod+og2aH5xyR39y1DQXumiO/kbj0QvJKqdBv
+MlJdhmdTqdBvzw7+4dA1QX7jvUKR/RZLhX57XdFuZ/+aivymKJs/XkeFXpOb
+1CBLGiGvSTE+sKr2QF5L22IqMFxGhV7T/f5qrymoH/dayLrqBpZHhT77lPCN
+PxscH/dZ+1ajRwInkM+4AyZ/PxdDPrt7jY/TpoYKfRbx7sDOFBfks7sJyf/a
+zZHPLtxVdg57S4U+k94ddM7zCRX6jP6Hzou7JshnhcOi2WyRVOizmqEzxMI3
+VOgzFnfGD26gXtxjttuFflw0Qh5bsbz45u5Z5DFD5cduheVU6DEu64ktr4BX
+cI+5UwV1dmdRob8+OiQ8YgDzA/dXZ7eS8TnQD3z9sjd7x4isDhV6TFZsb18P
+OB7uMdmHBi4OH6ho/fJoX8B8MhX6S77eX1scHB9fv9x1mVl0y2Uq9NeudEJZ
+Jugvvn554o9TOgnMX9xjpUyTczvA9eMe42GI+T1kiDx2/XVNW9IB5DHuM11B
+38HxcI+dE8mdcjmPPPYwQdNn3hx57EkxR2ZDMRV6rHFXfDg1nQo9di5cK7TQ
+BHksdzfRs/8WFXqMtdZrrQmMN+4xLvuSZU5QL8zHPpz0uG+E/PXrzY6iJBvk
+r08PQ0zCwf2O+8tb9CxdFXhe4P56vfl2uOFTKvTWoA+FRQD0E/fWllPDReFg
+vPD1y31sjpeUMSr01xbtzo2Ij1ToL2G2xm+c4H7B/cXt++5WcAIVeqvSHPux
+DRwfX78knd3ync6HCr3FrVSVQQ/6i69fih3fev9JPhX6i/XQ0a8O4Ppxf7l0
+MOvQnUD+Ypb+PdcE7k98PZP+215LoXdU6DHR2Uj+12B/3F+2fqohd0D9uL+4
+mp7c6Afv495yFXYwlAf1wvXKzR85pMDzGvdX/LYI0gfwGvdXST7pZZUh8le7
+QYrOdWsa9NfOgE6WdhLK03J95FSq7tCgvziS1927R1GexqvfcaBLmQr9Zb2b
+tWcoGuVppu3aywYbyF/rnZJfo4JQnlZiujdFbOsk9NdI6fMVxhLkrx3H6zYl
+2aE8rS3RlreYawL6a6DqYINSL/JXKv+Hc3wPkb+s3cyZXjmjPK2j9vIJMelx
+6K+AVzoSVvTj0F/5X2LHXQeRvzooBXvHS5C/jvQlmgknIX9JDZrFN15CedpL
+kqbNiBXK0/JyLw3oHxuD/sKuW/6YExmD/urlwT7Kbh+D/jpuLZodu478dU+X
+fp6Dhvz1lTmuCvuG/MUX3JB1rxX5684i/ZFLH5G/vJMSdp16g/xVwMRRcCwX
++euH9SGLzsfIX1sKdxhaJ6A8TUOsdLw1CuVpxcQbxVE3UZ725mkIvdxVlKfV
+kL8ELvqgPM0oImCvkQfK0259qum554zyNMNDb4Wf241Cfz2wsdtXYD2Kvh/A
+aBUjajYK/eWePKZuYjQK/SVvJS5mpzcK/VX5rfYavdYo9NdIwtatf7BR6K/z
+zMf1Oo+OQn9VyMwoiymPQn+JtTvX6MmPQn9NWMr8DCpCeRpTZyVbdgPK02RE
+rh3TBp8HcX+dtb7sLqM4Cv3F+VFZ7EYEytOeV1e/z+hFeZqaCnHxxTka9FfZ
+xEWGQ0qj0F/1sl1vvn1BeVqpQ9vwjkKUp5Wz/zl1VGEUfT+APunB2Ys06K+C
+ikG5vH6Up8m5LaWXXKGhPC3jkXg+OB/uLxPe9uCYapSnSbnKHg0uR3la/azg
+/DtwPtxfvcJMltJpKE9z9cLkRDtQnjbG0B+j0Y3ytOe8tqc+PEZ5WlxxfXot
+6DfusUebJbaHOtOgx1hFRbiq+lGeFqr+izJ4kwY9diXyb+IEqB/32NOByZe/
+3qM87VvuDeehGpSnqa4J3V8E9eMeMz0TGZZ0H+Vpngb9El+6/idPG+C/HdOB
+8jQ6w3OM+3NQnuZyVdNhHdSPe2xrXYX2IxLKz3xa0rfJNKD8rLLrp4tsLsrP
+NOd+ild/QfmZkVDS5EYvys+cptV2hYPj4z7LPUz8fMuOhr4PoKu54NqP8rPy
+7U6vLMNp0GdtafxnWcD8xn3GofxLqectys98r/Nv7vmE8jOi3LGAHWD+4j6b
+MhOl54lB+VnVy5VS0x6Un/lXMfNZtKP87NOoWcPB5yg/m+or7uEH/cZ9FqRc
+6n6sH+VlGiXDUWt1KC9zsom8o5OJ8rI/92/vY21HeZlqfYFCdQ/Ky6J58syy
+QX9wn62X5f8h9qO87O76Z/bhCpSP+f9d/7y9E+Vjxt3tRyI6UT72jJ/p2oc+
+lI9tEg3QFW1G+Zg5ySeSkYTysc8FIT9dwflxjxlUWJFunKZBj11u2D4j2I/y
+scDNH5qiI2no7/s3HTHYDcYH95iG+fa6omKUjzH9XJDTqEf52MojrhkBMD64
+x14EWgoY30H52E1dutsbPSgfGxgb0T3QhvKxlbTvewQKUD4mfu8RlyQYH9xj
+2vdH/a/3ozys2nNzzolalIdxLuYG16SjPCwra2rfvq8oD1tLyWBn6UF5WLPR
+RsAb0B/cY9Ey75K/9qM8rFRocv/CB5R/hT08RFrqRPmXBWf/ofvE/8m/xDUe
+SZNQ/rX17t+Qt40o//J8oF54pw/lX059YiuXwflxfw3ZhWilgvOnr7qSrlUu
+YpN8YpFJ3SgP697FKHn1K8rD5q7/010kofyrkrp64Hwvyr/YBU/7fgbHs/87
+ed8vehGb8szeI9+H8q/ufZKPfUgo/4q2Vu+wBvXg/nrySwbTzyRDf31bqPy8
+R50C/VXNshDot06G/lor07v6IpIM/XWCpHrmFRsZ+qsrW93+J/8w9JeMjeFU
+vdEQ9JetfmTeyN3v0F/5QtofMse+QX+xkF7mGDt9g/7aq1tQLzY2CP21yttS
+/Th0EPrrniLxy+FDg9Bfq8q9DyZIA9BfrKuF7KbJA9BfpnNGDuEWA9BfScML
+3ar8A9Bfa09ZF8yn+9F65l+t8++r+6G/vjpWRng96of+kjXzHVy71A/9tbnY
+V7DDrB/6q21n/ePniv3QX6HKv+8S+fqhvy5XLnRsZeiH/jJQefv86TQJ+ism
+ldFflUSC/upPNPjQWU+C/nLpY6C4vCVBf2lUvtAtziJBf4VerpJRSSJBf724
+3kvLCCdBf6X86tSeu0qC/vp3YeaSoRcJ+it1Nlj+miMJ+qt9j6+NsDUJ+utE
+0bcj2SdI0F8ZWK6f13ES9Ffvs06mKVUS9FfFHmlZRVkS9NdQbAI1RoIE/cW2
+pWB/qSAJ+usk/3iV3x4S9NdZ++XvzFwk6C/aeR+Ri1tJyF/e0wEPWEjQX3vy
+TrYLMZDQ9zP33LIJW+uD/vp4eNtI2J8+6C+urV1u8ot9yF+iU8xhfBTor3Mb
+2YXFkhToL9uFRsGhejL011SmiFPXch/0l8yprIYdNDL0170HCRW/VCjQX1tz
+rkwq/iRDf81o/Tgv/rsP+ovea6b7oxwF+ovr1Y+LIrsp0F+qMr4fQ5f6oL/M
+WsKWalvI0F+Lc+deMYD7GfcXueJbmOg8Gfor6PowVy84H+4vCzvjRTdxCvTX
+6/BDH6WEKNBfP9VObJYA1wfzr4Y6QWsmCvTXT5XhPBd5CvRXE4eBsqAqBfqr
+cZtvbDcbBfpLdJo3egD0G/dXrGA90773ZOivTvkyjgBQP+6vgFub5n78JkN/
+pcg2kiTB+OH+CpAdq04QpEB/CTMFGIqIUaC/kmSJ8SGgftxfu+8zeTCtkKG/
+co84n7iqRIH+ChLeSXIBr3F/WVln2QruoEB/KV0JopcC/cfzMXF1SpbtNzL0
+WJSvnUP3UQr0WAExLHzPEQr0GI1y4rjgdgr0GEnPMaRFmgI9lmts4MGoRoEe
+2zj7zzoS9Av3WF7xfaugQjL02I+MrnBn0C/cY46iasnS/8jQY1/GbCxPgX7h
+HhO5VXHr7T4K9BhZ6ZX5NQkK9JhPQOXcc9Av3GPEXz/Imotk6DHFc+faW5Qp
+0GPcR+arXitQoMdcXfe+OMxFgR5Lzh3uswb9wvMz6bjnPO1dZOgzPju5d7fA
+9eI+O3x11NEF3G+4zxR7tHKpYP7gPrtNkvJ9LkuBPvuRLPv4MOg37rPSzcyT
+r0G/cJ/F8V30sQT9wX1mKhmcJSRKgfmZN0u0hiMdBXrtJTW9hk6RAr02ftjQ
+mAyuF/faXw7G6ytgfuNe6+jgGLonQ4Feuz6TFfkcXA/uNUvd6T47UA/utQuj
+WUbLuWToteSTV711QH241yzttm7pWiVDrznEXeTzBuOHey15QCftGT8Fes12
+ZYrl0SEK9BrhFeHgRzB+uNf8NMyelc2S0d+bPe1/7QKeR7jXtmrXRlSD+xf3
+WoxzD3shNwV9H4CBvtkTjB+ep8nsb6Y/9ZUM/ZZ1K3alCVwv7jfOI0P8c2A+
+4X4Tyac/dXgLBfqtSXBAJRo833C/VT5iePzqv+fF//std3nmfT3oF+63NTuM
+wRP0B/fb/Wrbr+eEKTBPK5zyKyKskaHndKYfbqsF44d7bnW8WlsCjB/uuXJp
+t0+eYL5Az3lzMtqB+w/3XNZMSbEtuB7ccxzqPcl+oB7ccz9X5EwugXpwv0Ws
+lNUmgPPhfkvLleeVAfvjfmOTeBPwFJwP99vawIckWbA/nqf52O2QjwLjgXvu
+uNBAeTDoB+65Hby1IhPgeLjnbPU19+mDenDPMfasDG0IIc9NH/jK6gPGB/fc
+6WfajUr3kOfCLiX/5BZBnlsJHv8m5DcMPZcd5RhSHT8EPdfEK6mi1v4dem5E
+4sHZME7kua8PBtnpvJDnPGL5DslNDELPyY/XGX+4gDz3Nfty7z1m5LnfWcde
+Kr8ZgJ4TOzNb1eOIPFdtOr1x5QDyXGKP4AfnH/3Qcw/s94z1F/ZDz8kESd/1
+vok8t5oq0KVliTx3/qvDdZo08lw315W+/RzIcxajl9bogcdwzw3d3fLSkkiC
+nnvysmW3zzsS9JyVlkL47ick6Dlim+/OpxHIc0TJLW/TLiLPcfcc9TU4gzwn
+YPupyUUHeS6wvYVvRhZ5zrBod1imAPKcdNffk1XbkOecW5taWjf6oOeOneb+
+1zfXBz3XzprUepLSBz0nyKjndbmrD3pu8X1o2Y76Pui5bw8/ayqU9UHPhfkR
+9/MW9kHPMQcFloU87YOee2bw+pF8Uh/0XFSYnv/lqD7ouTjzW3fOBfdBz0nO
+M/UHXOqDnouTfyK5x70Pes441vha69k+6Dn72zyaG1Z90HOqGvvutBghz2Ut
+MnSHaiPPPZY4afVADXlOPTmlQLmUDD0nUtrAqfqBDD03kZg2vv0M8lyG10rh
+Jg3kOd3Rn2X+t5Hn9lXK/yY0kaHn/E4sr/X7I89Ne0+uHjuOPHfcb/SV7hcy
+9Jx63dOa1RwyWs88vI3YfAx5zjc3f4/JGeS5vzJPVtjayChPS6dFYaHIc3/v
+nSk9q4U8J3yboOP7iQw9x7H/rWx2ERl6riPj7fZRDHkuQvC4/Rz4PIh7ztuW
+fyyilgw9N0fk5l5pJ0O/1baUTBSpI7+NcIlsTdRAfqNP7qlJBNvjfqup2J1n
+EIn8Nv4n9OGcFvJbgy4z4VEVGfqtP09uIbGEjPKzzd/lLhGQ38ya+mVvJCG/
+FR5LvbUHeBz3W5owQTYZ9Av3Wj/7erHaMeS1XqWNwRu+yGtnDAt2UYGfca+d
+/1d7e6GRDL2WLJi+m/slGXotm89n9B6oF/ea0p0rxHjwvMW99kRk0l9IHXnt
+/R3leT055LUcdckHu8H2uNf+/H4orH0Xea3n6Y5DKtrIa8+C+S/uLSdDr13N
+1vkyB+Yz7rUXwVEu5QTkNau5cZHOGOS1no2kwcoGMvSa7w8J63utZOgz1ZUm
+xbBjyGdndGM2dbsin/G41D7lANvjPpM23ULtB/3GfVaj0LjWmEeGPuNrzjNL
+qSZDnzV6Pf5gB64X99nDUaEcd9AffL2zb8LJfNyYDL12mNOYZwSMH+61Gb3f
+bG9ryNBrFroaf8Mfk6HPpKzyfzuB+Yb77IhY4/HcZjL0WeyZUNka8Bpf7+R9
+ohvxs5gMvTZp6s+VAurDvTZn/O/0dzXktfF6r97Ph5DXShb0xAzA9rjXPBRl
+r1RHI6/pPfgYZKeNvJb6cM9T5TIy9Bq/99AsD3iNe41pWxTTEAF5TW3Ae195
+FPLahan4/FtgPuJeU8IkAxfA8wT3GTu3WmjuMeSztvVW48OOyGemoYqX7oPx
+g98PmOCaK/pMhj7r6LecmwbPI9xniZrdBfdBv3GfvR0dFZUF14v7LGWj5lMM
+GD98/fNvd4z1GT0y9JpWhNt+DTAecP1zOW5VBswH3GvP/DiruR+Soc8Ez+/d
+zwC2x30W6Pmg7wS4H3GfmRvKXPgBnrf4+mcKPYdtDHie4V4brghifATqw71W
+IK3vQqeOvDbNI/9qEBwf95rMKl/tbjC/8PVOOquxkVlwf+BeO39dSyIYHA/3
+mqIk12IQ2B73WtuDmwffgePh65/xe+a8Y0C9uNek3APNo8D+uNc+2Kxblqsh
+rynsdn+aAD5/4V5r+VwQ0liA8jdhz3Tplxcp0GsB6//YCVPIa6nzm5oM7FH+
+xljNe4w5H+Vvjx56PDZpQ/lb1/krs9qbh6DXwopeuRx3+A699kxAY5/HN5S/
+MeXdV3vo8A16TSJ+X37+P+Q1oRbnKcEclL8Ruat8/5kMQq9Z5HnyirEOor8/
+Y7vGnNeA8rcEh5ZPj6NR/tbyacRG5fQA9Jqgtds/cYkB6DWlJZ7EmU0D0Gux
+sReGBweQ194FXdR9Uobyt8q0m3f/PUb5m+snoTXZmyh/S5R/zb/ZHeVvn3KW
+1DMs+qHX9FjoFEiEfui1NDObTWeAF3GvFZhp/XU50A+9xlwQ4++/ox96reyo
+E7mDqR967aDg28jb/5DXWg58r9m5gPK3suAG2sdJlL+5dp9Py6Cg/C1QLlW7
+awDlbzm5Snly3Sh/OzcWmfWsHeVv4v1d0+XNKH/zqhh5Mf0Z5W88Xf7qozUo
+f4uNZfvyqxLlb7tGDRdufkD5W8KXnz8elqL8Tf/x8X2f3qL8Tdwkxt+pGOVv
+fc3Rp/WKUP7WszQqrvaSBL3Wf55vKfwFCXotbt4ikJhPgl5LKFN3aQtB+VuO
+XqieeAbK376aLtoVgM9ruNfke015nhWQ0O9nfHHofm1OgV5b9Zu7UfgC5W8F
+//52J56kIK/xDXbuBPXgXvt0/veKQhrK36Yfiew3jkb5W6l81wsVcD7ca/Iz
+dm3y4PMa7rXpIkmnf4Uof7vX3xrC4UiBXttwdb58ApwP99ptRdsMhziUv52k
+ZeuXp6D8bYk08scbnA/3WrK75niVB8rfTvFkuWvlofztqX7waYNnKH97ax2R
+JxuC8rfobTcObwbHw/2mfMRl47kkBfotszv19KlClL8d1p9SDnSjQL9pe7Lz
+uoP6cb+J7q3HYiJR/uZzriyn9DHK32bO1k/fAefD/fbNRi7z3lkK9NvTA5Lc
+Pfkof7MVHgtWzET5m6yPRMP8bZS/JVNWzPaD4+F+K33AWVhViPI2Wp52hBbo
+37jpkun4zBJmv3Ks8dh9lL9pZv7zkrqM8rdtV8x4mHNQ/sa1ay/D1ecof3NM
+5ThKBfMT91xK/1RFkQgFek6AMdD/1QuUvzVbDG/m96RAz9UezrxxBfQL91xu
+xOkU/TCUv+m2cn3blI7yN8WLc4EPwPXB7xOsfX/81oYCPZfSJFdLKkD5W3ng
+e+HudJS/afX+6JWMQvnbnNmvq5LgeLjn9lk+a/ldiPI2iYxa0lwCBdP7+u6l
+c+8SJkWdbmZLQvnbS/86420+KH+bGX8XV/4M5W9rVc1Ba7kof+sVmTr8B/QL
+99y8cHxzQyHK395sY1BJikZ5m+i72T3Zz1Helrl5OscuG+VtnxYJr43B/nfr
+jw0YHV/C9l8khR7KQnkbawzxb3k+yts+YMMWQ+D8uN/mGEmfRQQp0G8Br/NK
+NF+gvO3Y7anUMS8K9Nu1yANlIWC8cL/F8fs92hGK8ra0iN8CfE9R3nbN6K9u
+Ougv7re85wqS760o0G8rFoJlei9Q3jZiYJUQ8wTlbQGOf+tr7qC8TXOukVMO
+HA/323LYWCjdS5SvlV3O1ZcG8/lqLPc3gZYlTDRPbcY1GeVt164WVXt6obzt
+Hz256XYuyts+GwlsO5SL8rYSKn/hOugX7rdSBe7xlEKUt63fEc96AOrD8zXT
+I7bNGvkoX+t1c/I8mYXytT9LykUxYP/y209Z2JXA54FWP+V92ShfOycwbX8g
+H+VrPvqODSPg/LjX+r/LzbGC/fH1Ussana+2BShfs2BK96UUonytqH//p9o8
+lK99vmOvOFGI8rTVi3IjDIUoT/vdxPRHtwDlaevKEWN94Py4z/Iyy2+m+BOh
+z1gcclzbvxGhz6iUavEHXkTos+2y4sqrxA7os7G/PzZ/VO6APhtVmph9d/wr
+9Fmzd9WBNKN26DNv+riQX+fboM/G3N60BeS1Qp95WxcLzbO3Qp95ruqfNgv6
+An029+faT2fmL9BnDy18Tq5ntUCfyf9suHzzeAv0mQe7Ud2u5WboMwe59I6Z
+/GboswnauGiuWzP0mf1okzJBthn6TO5GDaP1WhP0GW/6Nc/Jjibos7a5+EOX
+nzVBn3XcZJiaDmmCPktg67uobN8EffaL95bpN/Um6DOz1Rh9VcEm6DNs8o+f
+/pYm6LP1iYibDnON0GcNBx2uzg40Qp9RLupzXq5vhD4jlW5N/lPcCH2G9T48
+yJXZCH12c/Cl+Zb4RugzH61LofKhjdBnYUpbglMuNUKflXi/oqt1aYQ+s1Pz
+q8+zaYQ+uya8EXnKqBH6TNfBoSlasxH6LLCl8mqsciP0Gf/vmlQrqUbos903
+YiWsRBqhz/ZZLTzbx98IfRZ67dBsws5G6LOh9w2FjOyN0Gdt+v/2YoyN0GfP
+7CQ7zqw1QJ893b/sNP2rAfrMsWcHvf5cA/TZ1MeaYsepBuizQecvX/hGGqDP
+VL1eXo/vIqL1UYX97JNviNBn/cIvmTMEiNBnukufN8uPN0CfGb/5y3IUbI/7
+7Pord4bMViL02e+qH2fd9YjQZ0TnTxpNEw3QZx83zTnODhOhz4wbVZ3DE4jQ
+ZzfWhcdyRhugz95nX0678YCI/j5tlsZ/oJcIfVbBkfBQ4wwR+mzlY93JpMkG
+6LPWWKHmtUEi9Nmc5/su12wi9Fld5/euC2MN0GcGM6q/aPVE6LPWVHftTzVE
+6DOOycdeTGQi9FjqqwqVYdBf3GOLSrLdwpFE6LGaA1wy/f1E6DH2n935IeeI
+0GOaN+/3rYB6cY/tCApIcyQRocfYuwMET70gQo9l2uz9/BXUi3vshP/dxyOV
+ROgxvgOk4N8NROgx6dZHW7xAvbi/rDYWxzVAf/E8bZeCQ/nXZ0ToMZ/0wv1v
+iUToMeMLXl6BQ0ToL9vqzxp+bUTorZt7d1m3gvdxb/mHCAwGgX7g3vK6+qtZ
+NIQIvaWp7GruBcYD91ZKi8bHbe5E6K2BFW5VKTB/cW9N670UEADjjXvLP/Oq
+4uEiIvTWTsuPA5vA/MS9Vd7ZsFD/ngi91a2XYzvUTITespWl7zME/cB9ta+C
+2e4S6AeenxHWsu+PpROht6TitottgPsF91YfazHX2e9E6KsT1x7J/Hd83FM3
+U2Y7boH5jXtKLuAm3SvQDzwvo9jVs6TEEaGvhsel+HeB8cZ9VWfTSrYYIMK8
+7N/t2o3UWiL0lUS1jrQlqB/Px+Z8OM5agvPh+ZjHH/3kwg4i9BWJykIdAfXi
+vtp+N7HZENSD+0rsBlXb9xoR+opz001HYfD/Je6rTR+fF1tcIEJfJcXrLOqC
+8cF91btPnPFnNxH66nYtve3WYiL0FVGhZJoPjA/uq0O/T+hufUeEvqrcF2eq
+9YUIfSVctS4mAq4P91Te5V37Y8D4wN8zU83gP/6YiNYvQ7IFuXqI0FczEcNK
+70H9uKf+TNzynW8kQj/FtxvyfQH9wv10qDcztQH0A8/D/KuLSryjiSgPo/7N
+XgXjg3vq1MzB9+fA/YznYT4Hpx+cqCZCT31vbt/jBurH8y+Nmk3Rc+D+wPOv
+3OArXnxfidBTTZxmmfbgfdxTp3koJudAPfjf+zO4J8sb9hFh/rW4q7zEGRwf
+z792mhWVLoPxxT018C224zC4Pvz3ylR3DVySBfcbnn/dfv3urjzYH8+/ZiM+
+KRWA7XFfBYZTvf+b37ivZH2U9ORAPbivLh1iSJr73gF9xUYg9YyeQr467ZAV
+cHG0A/rqS93Ud98zyFcMOxKFawq+Ql+tXTzEsONxO/QVaXd72J6SNuir16Eu
+5952t0JfnSd+lRLnQr6S5bRK2HP9C/SVx7l6Pt7JFugrhZ8yR5P8W6Cv5Pop
+z123I1+R1+jiNt42Q1+1Na0vM7khX2ERZ3I79iNf8ZvdPe9HaYK+yj7WK5/6
+sgn6imJf2c8XiHz1QSpn8oop8lWXUXuljSjyVVm0wP7LdMhXLbQHvKXDjdBX
+zJad4RkfG6GvKG+eXn4L/IP7Slbiuc5SRCP0VWl23sydC8hXvHeVlI3Nka+a
+wtZkHVSRrziUprWFhJCvTglT7wduRb7KcW7t2fu3Afpqhtlx2y7w/w/uq4RZ
+H2PF7gboq/eCbtIFtQ3QV1q1x3j4ihugrzYufn468bQB+kpj8O+tyPgG6Cvu
+G7I57LcaoK/qJy0a//o1QF8ZDD0RvOrSAH1FNhA7527dAH1leXnrFgmDBugr
+m2eOJ3WONUBfHdpU2/FdpgH6apKpIaJUFPnq6rPgYHF+5CvVbbMO+7cjX2XW
+XXY8wox8tSpzyzhotR76SkKl6tj8aeSrmnek2+xiyFfB9wJdFTI7oK/Ov+H8
+2bQJ+WpKuut2hgLylWpi+erQceSrKOH9KyWfOqCvgtlr+q8yIl9dZUlr03NC
+vmpVu7CxhQX5qq7jo+v+jXroK81K5Zyg7chXYu/eOlw2Qb7qOry+/Ka7A/rK
+opzNoGsz8hWBu590yhH5Kss0NOTSbuSr6G5660t0yFcRtgNfDhshX90g0Mye
+KCJf3WERNhM6i3wlkhWyrW2tHvrqt1NhWPvfDugrtRqGuEAL5CvJNd37fOD5
+hPvKvuPVgVAm5KtNfgYLM/bIV6ZXX2B2B5CvlGjOk3s3IV/tvlI58kUT+epk
+yRllL3XkqwqxJ5OijshX2c4SLAHr9dBXqWyckSYiyFdH+qTPj+kjX4lSg8Zd
+nZCvLKw6+vZZIl/VquzrPm2LfFVX5hwkDPqB+0qak+exB60D+mrLp683662Q
+r/YWsYXpUjqgrw4xNsmRmJCvDDlfuIvaIV85r65lqgkjX1UTDG0ubUK+kjyz
+eU+yGvKVUi/HwzcE5KtTPN85ex2Rr/oY3hS0gH7gvqKfn6f7tgf5qn+taaLq
+BPJVfKyKDIsT8tWyrgf/xZPIV62RD7b32iFfrURrfbgK+oH7yuYS6zlRJuSp
+bvf3L8wckKe6lPLtTfWQp/arP/DAwPv49y2vHr8b+eMw8pXiK+rr607IV5qf
+U9h0TyFf+YTvCi85jXxVrkY81QGeB7ivOgRa/pqC/w9xX/VKybEPWiNfHfvU
+L2D7swP66sZDw0YGZuSrM1luVF5b5Ct29j0JoqLIV2G35vnSNyFftfk2asqp
+IF/pS52hP6GJfHVaRVWDxwn5SmdX5OZlMD64r4xZVm+0cCNfCRh/a9hrjHzV
+737xb7kj8tWlO/dPOJogXz2kpmXdske++lCtQMkC44P7ysbb3nQPHfKU90vn
++cKzyFO9McR32drIU9RW/d8fwPjg369sNKp1KBFHvlL0Odh1zQn56kbqgs4n
+K+SrPSIeP2LOIF/Z2PueXwHjg/vqSGxuLQ+oN4AnjJ3YO4dV3Eu72Yghb62a
+mzaGOyJvSYn5aWqA8+G/F8uY9SPqlDnylk+y6GaKA/IW7+Gqsvdnkbe0PeRE
+PMD+D/04HYPt57EmNxOzFzbIW1a/Q01zQX24twZ4/LzU2Dqht5hu+vwudeiE
+3gpy/v7t4zLKs6wyzydEgPmNe+uLR9DfPWkoz2rbyPlmQ0N5VsXnwir+cZRn
+HQore6jyD+VZrnTJnp9V2qC3CtLZ3zU8RXmWT1L7o+htrdBbL7bWRculojxr
+9ev632T5L9BbEU0xtpu6UJ7FYvo4VvBWC/TWTTJ5hV2+BXrrbaT2WP8syrN4
+YirUxkpRnnX76ecjiTeaobeuc5jMnj7ZDL3VmGieGi/cDL01eXm0xHUNectG
+gruh/BvKs0aHZPbsrkJ51ift63trs1CedeK5/tP0aJRn6Uq57lC63AS9dak+
+qizeqQl6a+VM8vQd4D/cW1mK0iNthCboLdEonapXck3QW/bmccQl4EPcW3M3
+wxct+Jugt/xvZL74taMJeut1+VJH35Ym6K2A988uKdA3QW8tkFR8mlZQnnVi
+tIEjfgnlWcNcukacsyjP8mU87P12EuVZE/tvyMqPojzL1rFyvIuM8qxXwXo9
+/76hPOtcyyGWT/0oz7qYoHAhoxflWQ4lCbybuhuhtxoeeeoVExuht+48Vsz2
++9oIvaVQwUaf1NYIvVWevEv/w5dG6C39zCelR050Qm8xv3NJrFfvhN6Srxx6
+zppFxGzT9xXeoacjrFtESG4+9xXjTn5Zcix4EyEre7dP5oV2rMlOKTSRgYGQ
+vz2PaJfSBn12UPGa2NPWRuizYrkD93qkOqHPypp3szpbdkKfuVrn1u9tA14g
+jwVbmGxgSc5Eufe5X7Eh3ftPPvFtIjBVybOO54HPOw1bZUey6AmyH1yWihvb
+oOeEKxryecD14p5j+Hf8V7JdJ/Qc8SRrI93eTug5dcloFwlQH+45yeg3SbfA
++7jnJCVE+1tsO6HnsqZFjnZQiJjemwrOy0vrWPuVmZvizV8xTQGGHRGTdIR9
+PPsUBBrbMe7A63dj/OgJn3WKmQ5T2qD/Mj5ds7EE9eH+O8Xs/SHLqhP6T+3O
+tNhp0B/4e2odZabnQH24/9hvPj5QeKwT+o9veUxp0qAT+u9+8847k+D5hq9/
+OlAPmbGydkIPbq/44zwPxh/34Cx7mXDgrk7oQa1Q0S7Fs53o9ziaHOt+UImY
+wh7R05sb1zGtqtu9+QNfsSUOtRPjHXQE73ziNaa+dszY8nWpw2l6wv2Wwa4D
+M23Qj6LS/rH+4HpxPwpHZOl0n+yEfmw+ornZXLET+pGtsTc9FFwv7sdQ31Nm
+a+B93I8/oi0+hZp2Qj8+u5gi/hbUi6+X/tm85XrJzk7oSdbHVY0c4Hi4H4td
+xEg3bDqhH/2pdotxpzuhH53FPryo1+6E66Or7K9P5mp1Qk8e28Q6oO7YCT0p
+qjWs0gP6iXuygNzz58e2TujJ6y9XRbjAeOCe3Dp25W/fHPC7yWCI0et1jPe4
+JiXw51fM6PapyQef6Qgl9Ld82YbbMQ/NL60GxvQE5Zrye8+X2tDvf8y7EG6D
+fuL+jA0t6t9j0gn9Ga6z2LJXtRP6081dxjYeXD/uTwODqJZfsp3Qnz4VqgKs
+5p3Qnw5GB5/U2nfC9dSE3fTTrrs7oUfP+dlt4wfHw/0ZduD0ecKZTujPvZFi
+K+9OdUJ/5hQ06RhpdsL1051/9LW/6XZCj8o/040/AvqJe9TToVL3J+gn/D02
+lqTIvaAe3KNF+hQua4tO6E9FjV/LHqC/+Hppi7V5z13rTujPArkjHNLg/sW9
+STBbM+UC58O9eb7PUrURnA/35s1v7An3OTqhN/W7Wku9wPFxb9aXXdEwWiRi
+45MK9+dz1jFnzgyHyfGv2PXqMSWfj3SE7ZnV0Tt+tmN/ykh9mB49QXOcPD77
+uw36ND9KY38MGD/cpycfT/IXGnVCn64FTIn8OtoJfXpgMqDmAeg37tOooE7D
+SelO6FOpbZ/S1UA/cJ/OEj5xyoF+4eurvhO1G6V8ndCrrH2ZykLgeLhPBYs8
+QthBf3Cf0ueYBLwF/cN9GqznnxJK6ITrqausHb/P63dCr0YVr9zfCfqJe/Ux
+jcNiCvQTz/9Wnp6+VAzqwb2qcYQWxA/mG+7Trw3mBG7QX3z9lMwY2hIN5g/u
+UyPOb5rnwfzCPeq/quIgDc6He/RMh6lyOzgfvn76PT/W/yV4HuD+nOoRytIA
+r3F//g6kSRSA+x/P+7q/NKb/dz/j66fyLnOageD/C9yfM3KvbItBfbg/H2Wb
+G0yBfuF5X4aBWRsNvI/7c+skDasB9fwfHTkr8g==
+         
+         "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwl0GO4FnYcx+Fzci1zWatlLNva0rJdy7WWbZvLOtnWOZ3s2rLdqmVb93X1
+4n4+39//1fM8KZt0qNI+TEBAQCBZfczVOPpO7/GTHZkrdjINyws7vUbnrJ1I
+v+oTfrajcttOqRHIzmt3Ro3JSTuBftIs+lDT6g/k4IY7hYYnG6/cGTQGubjo
+TqKBgd+/8zN3Oo1GTv5zp9KI/MIbdyaNxTw7rr7X+6Sxo3DVTq7heGmfI3Hg
+9z/mqdzhFD+6P+sjbnKJ+cTz/kH/5xrnOc0CFhLEIhazhKUsYzkrWMkqVrOG
+taxjPRvYyCY2s4WtbGM7OwgmhJ2Esovd7GEv+9jPAQ5yiMMc4SjHOM4J/iG+
+3/NRH3CdC5whofcv+phbXCaptzA8t++S2o7EWzuzxiY3/7pb6nFWsJ8JLCSE
+foxiNlv4i54M5W/W05aOdGMQU1jDH7SgOc1oShMa04iGNKA+9ahLHWpTi5rU
+oDrVqEoVfqcylahIBcrzG79SjrKUoTSlKEkJilOMohShMIUoSAHy04YOdGUg
+k1lNPvoykllsphM9GMI01tGaccxnB71ZzC6GM4ONtGcpexjNIeawlS4cIYid
+DOAAk1hFXo6xnH2M5zALCKYPR1nCbkZwkJls4k+WsZcxzGUb3VlEKIOZylpa
+MZZ5bKcXw5jOBtrRmf5MZCV5+AbEv6Oe
+              
+              "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwV0FWUFgQQBtCf7k4FaZAGFaSku5VWGkSQWrqbXWqD3WXpDukGpTsUxQAF
+AaW7u/PycOc78zDnzPmytwtq0D12IBCIRVGji+Us+9nAPY6xlBv8yU4ec4r5
+XOE3tvKQE6zhNkfZw1P+ZzYX+YWXbOIB/7KSWxzhNbt5wn/vH4wTCPwgr/E7
+r9jOI07ylnXc4W/esJdnnCaW+67yHAd4wUbuc5xl3OQvdrGAqxxmG2uZwyUO
+sZlVLKYb5znIjyxnIXN5X24QPehJL3rTh770oz8DGMggBjOEoQxjOCMYyShG
+E0wIYxjLOMYzgVDCCCeCiUQSRTSTiGEyU5jKNKYzg5lc4Gd+YgWLmMdlfmUL
+q1nCdf5gB+u5yz/s4zlniK3/WbKYnEF/omhJEOOpTVO+ZzTlqUYDvmUYJfmC
+ytSnLYP5jE/5hKIUoTCFKEgB8pOPvHxMHnKTi5zkIDvZyEoWPiIzmfiQD8hI
+BtKTjrSkITWpSEkKkpOMpCQhMYlISALiU4IyVKIebRhEPGrRhE6MohxV+Yr2
+DOVzmtONsdSgF2E0YhLfMYLSTKMPETRjMp0JpiJT6cEE6hJNawYSl+n0I5IW
+TKE746hJb8JpTAwdGUlZ+jKRr+lCCFXoSShf0o4hFOcbujKG6jSkA8MpRQXq
+0IoBxOEdcx2c2g==
+              
+              "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwV02ecDwQYB/D/XXcVEQotxclIpMHV7XOLO+M2t/e+6k5DkaQ0zchoKBUa
+aCujQstoWqUolKKBhlIqydeL7/N78bx4ns/z+Txhlc3ZTcGBQCCIcCUiJBB4
+gQe4nbdYyChW8hiTaeI1HuZe3uUZbuVNnmAa61lCI68wh7t4h6cZwxs8zkdM
+ZR2L2cT1LGcuHzKR93iWjdzGaubzMdPZwHNsJpIXmckH3MHbPMUn3MTrzGMK
+a1lEM8t4hPsYxyqe5H6uZikPcje3cANRvMQsJnAzI7mGaGKIJY54BpBAIkkk
+k8JABpFKGoMZwlCGkU4GmWSRTQ65DGcEeeRTQCFFFFNCKWWUU0ElVVRTQy11
+1PMys7mT0VzHtbzKQ9zDWG5kBY8yifGsYQEzeJ/n2UIDIaHuQhrV9CWBYs6j
+J1EMpw0d6Uo4mZxKK86kM1cwjJMIJogA/5t1jP84yr/8w98c4S/+5DB/8DuH
++I1f+YWfOcgB9vMTP/ID37OPvXzHt+zhG75mN7vYyVd8yQ628wWfs41T7Hoa
+Z3ABlzOUz/TOlT2IJJfTuZhY8ulAGP3J4GQGUUkf4inkbJIpoxu1XEU2LWlk
+IBVcRB3RjKAdDSRSwvnUcBlD+PTEX8hUqriEegZQxDmkUE53IsihNb2IIY/2
+JFFKF/qRTii9iaOAs7iQK8miBW3pxKUMZqudjgO7lpen
+              
+              "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwV0lWYVWUUgOFDD92dQ8wM3R1DoyAhjaQgXdICCijdoaQ00l3SrQLS3SXd
+ISkKvufi3etbe9/s53/+0JZda3eJGggEohDpES1mINCbJlRjOJ0py/e0pT6j
+6UZxvqMVE6nNSLpShSF04CcaMZYeTKMw/WjBBGoygi5MpiKDac+PNGQM3ZlK
+aQbSmknUZRRfM4VPGUpHvmAcPYlOH5ryGeX4gXY0oAQD+Io6fEIR+vMltahE
+GWLwDc2oTnlKUpSYxCKE2MQhLvGITwISkojEJCEpyUhOClKSitSkIS3pSE8G
+MpKJUDKThaxkI4xwIshODnKSi9zkIS/5yE8BCtKX5tSgAqUoxre05HMqE8kg
+2lCPqgyjE40ZTy+mU4hDwbOO5f8pRoDk5Oehb/8Ez0Pn5LK+w6vgudnDOKkv
+cJMXwbP1Lgt/6oMcYD9/8Du/sY+97GE3u9jJDrazja1sYTOb+JWNbGA961jL
+GlazipWsYDnLWMoSFrOIhfzCAuZzgvP8xfPg3fDfmZmnj3OOGzwjhvehzNXH
+OMt1nhLd+0zM0bOZxVHOcI0nRPM9IzP1A96RwJ6DS/o2L4ltz8YR/YGkOi/3
+9Bvi6QhO69RmYd7rRGYururSZgoK8Nhe3IxKBn62lzXTUpSPwbtkJiMf9+1l
+zFQU4q29hBmf7FwM3jEzDUX4117STExubtlTmgX5W4eYWTms/yOJzsNd/Zq4
+OpxT+gqPiGJPzwz9P+vpkZA=
+              "]]]}, {}, {}, {}}, {{}, {}, {}, 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], 
+             LineBox[{1, 122, 93, 74, 141, 112, 62, 134, 105, 86, 55, 129, 
+              100, 81, 144, 115, 69, 137, 108, 89, 148, 119, 51, 126, 97, 78, 
+              143, 114, 66, 136, 107, 153, 88, 147, 118, 156, 59, 131, 102, 
+              152, 83, 145, 116, 155, 71, 139, 110, 154, 91, 149, 120, 157, 2,
+               123, 94, 151, 75, 142, 113, 63, 135, 106, 87, 146, 117, 56, 
+              130, 101, 82, 70, 138, 109, 90, 52, 127, 98, 79, 67, 60, 132, 
+              103, 84, 72, 3, 124, 95, 76, 64, 57, 53, 4, 5, 6, 7, 8, 9, 10, 
+              11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
+              27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 
+              43, 44, 45, 46, 47, 48, 49, 125, 96, 77, 65, 58, 54, 128, 99, 
+              80, 68, 61, 133, 104, 85, 73, 140, 111, 92, 150, 121, 158, 50}]},
+            Annotation[#, "Charting`Private`Tag$476325#1"]& ], 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwV0Odej3Ecx+F/hUKRUiFpkFJpCAfiEDoATqdnbQ0rTVFpDy1SJCESDYVS
+ipKrB9fr/fn+nt13csGtGzeDAoFAIUVEO7b0Kxfsw8zY5zSENfuSHmPSPqN7
+ukqaHc6cnayHyGPDnamRvLDjdEezdVkv6lHymXUn6UFy+eXO0ONc4437rAaR
+ww93ukZwlXl3ioZyhU13lp6g2D6p27pAqn2Ed3aiHmDdfkX8/k/hu3xmnFPu
+Xf3GR6YpIcb7H13kPa95SSlllFPBbSqpopoa7nCXe9znAbU8pI56GmikiWYe
+0cJjntBKG+08pYNOuuimh1766GeAQZ4xxDAjjDJGrO/5q0t8YIoJTnv/pyt8
+4i0J3oL5aX/hvB3Gb/uyRnGd5+7/XCdWvw==
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#2"]& ], 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwVz+daDQAAgOHTpXQV7WhpGUkaRuMoI3RKGtpm2gsnoyEKpVAos6VCuidv
+P97n+f5+kcFQblVEIBAIEyXeMkwH17nKEo/ppJmvTNLPJd7ziDusMk0jX5ig
+j03eUMMnnrJDF+u8YpdWvjPFHwb5xSz/iGaeEba5yU9e8pc6VhjnN71s8Jr9
+0Y884T5rzNDCN54zQCUfCHOXG1zjM8/opo0YFnjALeoJcZlY4ogngUQOcJAk
+kkkhlTQOkU4GmWSRzWGOcJRj5HCcXE6Qx0nyKaCQIk5xmjOcpZgSSikjyDnK
+qeA8F3jHQ27TQDVXWGSUezRRyzJj9NDOD14wxBZz7HGR/3uDT5A=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#3"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwNzmdXzgEYBvD/U6IkobQUPWaFJkKRUcooPDSM1tP2Ip/IV7KioaxECGlq
+WL8Xv3Pd51zn3OcKRx9GBkNBEDziseNSTBAUkE4iEU6wjw3UU8Ju7lHFDho5
+xUECrlDILu5ylmRuc5IeDtDOReK5Thld5NLKefpJpZkKesmjg2oGeGJ7rTxM
+lAzucIY+tnCLcrrZTxsXiKOBUvZwn3Ok0MRpDhHiKkVks40EbnCMMDt5akud
+PEImSWwkhme65wzxgpcMM8IoY7xinAle84a3vOM9k3xgio98YprPfOErM3zj
+Oz+Y5SdzzLPAIkss84sVVlljnd/84S+XbT9KFlvZRCzXKCaH7WzmJsfZSxot
+VJJPJzU84J+//wHlfEaF
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#4"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwN0NdeiAEAxuGvXIlb6hKcoiEUpaJBSlFUJGnSQDulpSFFNmmoFKFUWqJS
+noPn9z96T96DhyLCwkOCICjgcGgQTNNPI794z10WeEkXm4xTwjzPaGedjzxg
+iTc8ZotJipjjKTu0ssYotfzkNf/o4TcTBAeCoEK/M8IuHWwwxj71LPOWPXr5
+wydC7I/oDANs08QqH6hikVd0U8o3nvOIOm7xhSEeco9KjvKZJzRTTRnFhBNB
+JFEcI5rjnOAkMcRyitPEEc8ZEkgkibOcI5kUUknjPBdI5yIZZHKJLLK5zBVy
+yOUq18gjnwKuc4NCZhmkhRrKuc1XhmnjPnf4wQs6aWCFd/TxlylC/X9T/wMz
+9mzb
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#5"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNwwc3kAEAAMDPo9AwUkTLTJGVrZJRFEXJDGUUocwUFbJpoIl+bXfvXcrA
+RMt4SBAEB4aGBsGcz3xgleUu+dIn1rvha59a7CcHfORXp7zjumN2ueust1x2
+2N+2+d0Z77vluH/tcc93HhrmvM/96UO/OOm+1a456h873fGtB1b42SF/2eo3
+p73npm/stsQFB33sXStd8ZXtNnjED/bZZI03LPWo4UYY6TGPe8KTRhltjLGe
+Ms7TnjHeBM+aaJLnPO8FL3rJZFNMNc10M7xsple8apbZXjPHXPPMt8DrFvrR
+fput9aZlLvrCFuu87aojdtjothP2+sP3/rPI/7koMrA=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#6"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwNz+dez2Ecx+HfX0XDSLtEipIiiTgPh+AAckBNu43SkEqhogghLYWUlVGi
+UuF6cL3en+/97M48e+5MSSgIgnJKw4IgPjwIVvQ9Y2S4w/hhPyPN/qtfyLW3
+M2Nn6VZ+2o9Jttf1I4fsGKbsTI1gyT6isby00zWgkK/uPN3JSd66D2okRfxy
+H9XdnKLMnaCrekznNEejOcG4e7+Gc5xFd77uopgR9x79pwsctnfwxj6g21i2
+h0mxN/QTrxllr7cQ3+x3lJPoXtN5JnjOEyqopIrzXOAil7jMFa5STQ211FFP
+A41c4zo3aKKZm7TQShvt3KKD23TSRTd36KGXu9zjPn30M8ADHjLIEEn+80c/
+MMkLnpLqfVM/M80r9nnbwnd7lmw7it92gcZxmkfu/yR0W0U=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#7"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw4c2lQEAAOC/c7yItwhpoZSiboiEXC3FvVKZLdlKmYnbUCQtmkIh2qTh
+ifq+c774cDQU2RAEQcyNcUEwaa9X/OSY5531rteM+M4h2/zsYy/40RFv+N1n
+nvK1t2x22XHr/OB9f9nlN5/61yrfG3PVDr844R8vueBD1+z2h8/9Z4JT9rli
+o0s+8rfVznnP6371iVGnHbbdi877wJue9o2DtljvWRN9ab9XrbHScpPcZLKb
+3eJWt7ndFFNNc4c7TXeXu81wj3vNNMt97jfkAbPNMdeD5pnvIQs8bKFFFnvE
+EsOWetRjHveEJ33lgE3WesYK33rbVhs854x37PSyi47a409fuG6Z/wEtq1VC
+
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#8"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNzldbDnAAxuF/9NpKESVRISpEkqKhtEjhbcvIa6tL36evVSmijNKQGVqk
+++C+noPn5JcV64++iAshDDAYH8LVSAgFHGAXW7lJMYfZRxcV5BOhmbNkcpfL
+7KGDMnLZSQslHKWHWtLo5hJPOckDGuhlSFOjPc0jMrhDNc9Iop2LPOE496nj
+OduIcp7HHOEeNaRyi0pOEKOeTVyniCxS6KScPBJopZQc9jOs85o9w0GS2c5m
+XvpGGOUVrxnjDW8ZZ4J3vOcDH5lkik9MM8Msc3xmni985Rvf+cFPFvjFb/6w
+yBLLrLDKX/6xxn+C1jg2sJEmCjnEbnawhRucI5u9JNLGBY6Rzm2qOMVDrtBH
+POss5UUW
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#9"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwN0Fc7lwEAxuGX6+J7+Eo+gnN/UqJoSGVFw0hIS0ZWVlY7yixbMkoZFclI
+Q0P3wX39jp6TJyomLjoUFgRBEbERQfCO57SxxTR3WGOUx9xilWHu8403NLHB
+BM/4wTzXWGKAPTrZYYZ/NPCFcf7wlO/MEUQGQZV+4hW/ecgus+zTwlcm+UsP
+P1kgzD6ki7zgHtu8ppZ1xnhCBR95yQOauc4yg3TRSDVxvKePduq4zQ3iOUAC
+BzlEIodJIpkjHCWFVI5xnBOcJI1TpHOaM5wlg0yyyCaHc+SSx3kucJFL5FNA
+IUVcppgrlFBKGVf5QD8d1FPJTVYYopu71PCZER7RyiZT9PKLt4T7vlz/AxKR
+bcA=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#10"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNwwkzlQEAAMDPhCSlhFDOUgkJUaKUclSUkFvq5QxPKCkpoRJJkvBv7c5s
+dmiyJRwRBMGuh6KDYNZeH/nDCe/41WHbXXfKChd85ZYt/nTSeld87T+73HDG
+Pcv86Av/+MRVw+5432VH3bbTX0676y2/OOhf21zzjf994DfH7Pa3b430vX02
+etclR+zwpp8dsNUGy533pc3Wetso53xukzVWet1oDxvjEWM9apzHPG68Jzxp
+gqdMNMlkT5tiqmme8azpZphpltnmeM7z5nrBi14yz8vmW2ChVyzyqsWWWOoH
++33sPau84SdDPrXOahcd8pkP/e64PW76zn2veQBufDPX
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#11"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNzudeiHEcxuGnoWE0kJFQ2YqMFKE4BYfgAOp8rGwts4HSRCkNFaJCWYlo
+kCLkenF9ft/7/7x5Uo4XHMsPCYKgiBMRQbA2MghCGNOv6GWLvYifeoSdeil/
+dTsbdRTf9V53Je/1Djeeg/yxs9xE8ui3t7lLyGHWznRXkcuovctdziHm7Wx3
+DUc4aa9zQznAV3uPu4LDvLbT3Tjm9D53NU/1VncxM/oTGXoZ/3QHm3Q0P/QH
+Bthux/BLf+YU6+0wvuk3PKOT05yhkGTfwxnXQzyni7OkeF/AhB6mjyecI9V7
+BJP6LS/o5jwXuMglLnOFIoopoZQyrnKN69zgJrcop4JKqrjNHe5STQ33qKWO
+ehpopIn7POAhzbTwiFba2OC/I5nS73hJD5u9LWRaf2SQNDuW3/oLu3UCAftJ
+4iiPffsPpm9gag==
+              "]]},
+            Annotation[#, "Charting`Private`Tag$476325#12"]& ]}}], {}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{Automatic, Automatic},
+      DisplayFunction->Identity,
+      Epilog->{
+        PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sOd4aaIWk/XZvllPF8w/9JlVvKfks70/
+w9////9/tmeRKanj2/7ZniM+Fij/w77w8o0GM6D85qKDlvf9/9p/5LGdz9H7
+yT5QM018XTuTg3RWdfVFnk/23x69Aepndjh6PuV8VPVH+x1qQUox/CwO5gmX
+bsVc+mhfqM0LNI/DYbJf4caO5I/2ye8lmUH8k4x3fV4EfrQ/pswJlOdxWLae
+Z8PqtR/sZbbN2fP/P79D7eHmmt0TPtifM/v3H8TX+3B+Yl7iB3sPLRmgehGH
+mDrFTFmBD/aSPoeB8qIOyVMXR7hyfLBfOG39j2//xR3s9dKknxe9t+93lwRa
+IOFQu3Sfzz/b9/bmk0HhIeNgPiN3m1HjO/vYO32HvnYoOFx0s/S/1/fO3qhT
+Eiiv5PBxz82gl6rv7ON8tgDNV3ZYtphnXdynt/YAYmWXPw==
+         "]], 
+        PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sNf45KCRNPm1fbOeLpjP5POa997R1/b+
+DH//////2Z754b/1Wqlv7DniY4HyP+xDO86si/jw2n5z0UHL+/5/7eUNn+oG
+S7yyD9RME1/XzuRQOevrrPW+L+2/PXoD1M/swLbT75K6yQv7HWpBSjH8LA7O
+0ZkLL9x9YV+ozQs0j8Oh923HkZdWL+yT30syg/g+Z0PmsAm8sD+mzAmU53H4
+cGP5Kd9nz+xlts3Z8/8/v8PDdT5HSh48sz9n9u8/iL9kzvxbllXP7D20ZIDq
+RRz8rVUmKhg8s5f0OQyUF3X4cGbDRXWbZ/YLp63/8e2/uENZxptZnYuf2ve7
+SwItkHBo3vP0Sn3+U3vzyaDwkHFwTdRj//7giX3snb5DXzsUHI7K7ihzknxq
+b9QpCZRXcnh38cepyDNP7ON8tgDNV3aoShVZyLjhiT0ArjibhA==
+         "]], 
+        PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37QM008XXtTA4X1zgEzNh31/7bozdA/cwO0lLV7eE2d+x3qAUpxfCzOFy/
+r3GghOGufaE2L9A8Doe9pxQCeIDyye8lmUH8CacjDHe+uW1/TJkTKM/jcPzO
+HWdfu1v2Mtvm7Pn/n99B6Yt9Y1TILftzZv/+g/g9G4PvzVhx095DSwaoXsSB
+4cN0nWPzb9pL+hwGyos6uOz29m1be9N+4bT1P779F3eIbfGs/7/shn2/uyTQ
+AgkHw6r/K6703LA3nwwKDxkHmz+RbF0fr9vH3uk79LVDweEw36u7ucE37I06
+JYHySg7LRNIO5d2/bh/nswVovrJD7IElR0RfXrcHAGy0mN0=
+         "]], 
+        PointBox[{{1.0000000000219882`, 0.2739059785361402}, {
+          1.00000000065748, 0.2704964547010709}, {1.2499999999563618`, 
+          0.27833849043335057`}, {1.50000000135873, 0.2730329541045581}, {
+          1.8319999939041451`, 0.24296255555650245`}, {2.316250021748751, 
+          0.23050918734078213`}, {2.499999999443726, 0.21801783835787533`}, {
+          2.507499950534875, 0.22472393791761403`}, {3.0000000003832885`, 
+          0.21882181677332177`}, {3.0000000231065527`, 
+          0.21413645453599908`}, {3.5000000002660014`, 
+          0.20307133563373797`}, {3.9999994979214204`, 0.1997608078205045}, {
+          3.999999999948023, 0.1944068891299401}, {5.000000001639428, 
+          0.19229816838417266`}, {5.499999996466635, 0.19314253045859917`}, {
+          5.9999655587359095`, 0.1817292039636228}, {6.000000135581913, 
+          0.1858419426276194}, {7.00000000009168, 0.17876337967646738`}, {
+          8.267499999941885, 0.18306947197745788`}, {9.000000002972772, 
+          0.17860783472365405`}, {9.999999991187163, 0.1764280030668187}, {
+          7, 0.185}}]},
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)\"", TraditionalForm], 
+         None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{
+         Automatic, {{0.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {1.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.05, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.15, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.25, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.35, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.45, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.55, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.65, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.75, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.85, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.95, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.05, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.15, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.25, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.35, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {8., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {10., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {10.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {12., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}}],
+      GridLines->
+       FrontEndValueCache[{
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 
+          6}]& }, {{{2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {12., 
+           Directive[
+            AbsoluteThickness[0.1]]}}, {{0.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.05, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.15, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.25, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.35, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.45, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.55, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.65, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.75, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.85, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.95, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.05, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.15, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.25, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.35, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImagePadding->All,
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 18],
+      Method->{
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True},
+      PlotLabel->None,
+      PlotRange->{All, All},
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}},
+      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((0  \
+M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((5  \
+M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((10  M)\\)]\\)\
+\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((15  M)\\)]\\)\
+\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 18], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
+               ",", #8, ",", #9, ",", #10}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "18"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.52, 1.00000001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{Automatic, Automatic},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 18],
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}, "AxesInFront" -> True},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{
+      GraphicsComplex[CompressedData["
+1:eJxN3Hc8le//B3AhZJQGIg0zJNkrug/ZMjJTyIgQQtIwSjKKkFVJsiJSUpKM
+jDJDjnlQnFP2OTYNGb/r83j87uv6/tXjPM493vf7uu6753ldzhFwumjmQk9H
+R6fBTEf337+keSMZOro5rHvbwwihy4uY7OFk/QddC1jdt0P8pi8WMQFHl2K2
+kWXMeNO9+9Ehi1hFHOOO2zV/sKw00eFDCotYDgeTXHrsP4x37x0sfGwBE7wd
+n538aB0TzRTea524gOWu+EfoldERWEMNndkNF7DwI2M/5DXpCYPGg40JDAsY
+e0zU/oXPDASxHbQJnc/z2KRLwqniw5sJyocW42ix8xhnpYPKcAkTQVhkcWve
+6XnsXlwK9zZBFkJ7gbfgbal57M3dta5tUVsIs65N5fzM85gAvbjKDXY2ws1H
+8YelyHPY2K+K1LkAdkKYmTA9U/Uctnx+Z07HBgdBU0XcVCB9DiukS7sXGrqN
+EL2XVht/cw6zZWtQSfXnJHz5Rzhy8PwcFmWRQfdCaTshdq1B/bXRHHbW9lV9
+5fR2ws2gg+RXSnPYmaz0oc1vdxCifHS/xArMYYeC8s6/999JEI8aeevCMYc9
+2zUy4y6+i6D1+Ll98e9ZTJtK32I+vYsgR2bcsbd7Fou/aZl9LIeL4Jz8m4f+
+3Sz2Kr+Gdt+amzBFH+9/8uEstsC59S4/Hw8hlnuWlTVwFqMoxok8/8pDoKTq
+XTNynMWWUxd2XUjaTTDLObKxpjOLfU/w9k+x5CX47x0Yy5SaxS7q7+us28JH
+sNqf9Ggf7yx28NjrMNE2PkKxj4XWJoZZ7O78ZbnosD2EkQbNZo/ZGaxG2cL8
+lCI/oTyvbEHg+wzG/3FXo+0ffgKVre4I1jKDCdFvUXF6uZdwSUq97fKHGczk
+9vB6uu8+wuYvX5r3PJ/BROsn676J7SdgTE6fnj2cwToesf++9W0/Yf7F0lOh
+uzOYaW8U9trkAMGS5aM4V+AMthV7dutpwQEC19uTwpleM9hQw5uLEhwChMur
+Pmn5Z2ewhw9bkya9BAinn4b8jjSbwZ7r06mINwkQLA1KaJ91ZrAWXpFIRglB
+AikwU+S26gym2exs4RAuSPgYSNsbfmQGy6l7ZTM3JEhwbxUgCYjMYLsHp1j4
+CUIElvDofzp8M9iPToJSU6oQgZIy4HKbcwar1+j9u7EhRDjoIbVlM9MMFh7n
+W/XFfR7j6zxiX5q1iEnoBgcTzyxhXDwcK7Jpi5j3nxKKrtlvrCsh43fOmUXM
+4m707nNtQoTFvMt5Smwz2Kuas79HS+YwukiiXM/9RUxK9Y5zyYNFTPLXfLxQ
+7iLWJHmvWfzxL8zRKoD8zmsReyw1dpC7RIhwyM2vdIBjBrO1Dwsr3reALUfm
+RdwqWMRELXwfzOxfxnINaM+KYxcx9jHpLW/GhAhh550OPGaZwY73W+26dHoO
+s9rZsFUifBF7LRfX+wzcp1fMlGbd8hexJZ1rVanYLyz7wItS44BF7OPNxCMX
+84QIWTIxZVLbZrC5gOsZx8B9OGsQZpuat4g9N7rCSq5awnarjCh2Jy9i0spD
+nGwDQgQRDb+kiS0zGN9zt4FT2+YxJ8ebL+IeL2KFhLC5ur+L2IUUxuevMhex
+Ru0YV+FrC5hfQMJCIXie5Jy+ILwWuoyl2KmUj0UsYhOJYZtsFoUIStF6eibM
+M1isS2eWyuE5rLyUNehR8CLmK70jPp1xEfPitbgSDa6f1eKiUtf2X5haTkvM
+teuLWIe4x9s9mUKEwaZUm35QvyrDL6nND+ax1q1qHJ7PFjF3g5VPpJglTO7A
+tpm9jxYxTUpJ0vsuIcJxh9HJONYZ7Jz8iNv+H3OY5DsDD1YwLl7qTAUVTYvY
++udyB/acRWxHJ/PyFHhujXZo/zAE9btYz3xfNl3GJFcnc4fvLmIraqfDN08L
+Ec7pM21aBvX/OTEYXhg5h1nmM28ZiV7EZhXZ9750BeMeNr88A/qZO7W+/er8
+PCZV1NqvD8ajY8+0YYLaPLYh8ErC5+kiRj1Op9QisYQFcViYbQOvgz5wkuxy
+F7BYoaQT//Wvd6owuPCvEOFfestyPpifbw9xTqVxz2EEw0nhoGuLWOerLhof
+bQEL+lw3/xf0K+W0h//syjLGPsrSFB60iNmEWC7PPxEiKGsYd0qB+e7QLBfg
+dnMeOxps/FoQXG9LU8UBS/8lLEnORa8odRH7opDRe68DbN+dXfET9OvOisDr
+W1/mMLezxVERSYtYe0Ujk/LrRUz92uIeAdBvpYfaasYKC9jWkdAXS+D8DT1F
+qn7Ky5jJTF5JW8wiFnZfu3FwUoiw9ekAgx6Yr/t28rZt853D7LpSVzOiFjHT
+d23XxI0XMcHkmeDS5+D8r9VsBgfmMUVGYb9Q8HqZIpG4LDKPXR0t6kt8soid
+qKtN1NmxhImsmYy6ZixiWTeM99fGLWCOY+q+ZaBfZ7GH1bd+CREUb+gmrIJ+
+uT1NOtN7fA77PtUbEhy6iHG+MZUT3LuIGR6aCN8M6uVSLxvPfDmP9cYlJiWC
++xPzzhWo/DOHUeprTzqB+UNja3kZ6bSA0RL/MN8Bx48tM6iRvrGItbo92rUT
+jG+ocG3LLpYFLKrFKW4JjG+BZRHjEfN5jOwYPC0C7gfrxc74lcoF7H5Sn85/
++xun1B7tXRUitEs0+FmD+hq2Ft0zZpvDItgj7a2vLGL03vJ7+ocXMIMHXfvE
+wPbfvo8nBM8uY1b8CyF3wP2RLmbIbZcmRFiNKHtoA8bTr7CTl+/yPBb0Gvvj
+kw3mZyS/yU63JYzsdX7ID9yfnOTk33/ahQin4/VfcYDnU9r3GnP5mjnMUKM6
+Ry4RzPvrYgq/wH6vDZrzc8B4GgSODG+IL2BmAnOM1aA/v5I43aUll7Ezdty/
+a+6B59fRoxM6E0KEb1bjsb5gPKV/vfepdZnDdu+5u5cG7u+b/lLPxzUWMZ/q
+Gy47QD+GEgdXY77OY99vCbdtB+PJUt+smMc3j+0o/0hMAc/ToFDBOkamJWwi
+aq6ZHfSrxGm6zu/2Ahb59t2bd/89PybvkaeXhAjXP3FPiYD7LfCW3Eak8n/P
+i+A7CWAcCL7FjmROME6KSg6GoF6xA9bR5lnzmKsE3QoDGE+zk9r1XtNz2LYN
+5YajDxexjRm3kyrWC1i+dlm+Fzj+xysvZmb8FjGm1YHbYWA8k5gdvBtW57Ep
+Bu/BLFB/lbLxc7LuPGaze6XZBMw3j15f+cLiBUxtfP7RE7B/AuG9rcY/IQL3
+Tr7im2A8s2b9Ptr+WcASJttf14N6hN/lPkwjLGBWWi9ShMD2ZW1P3omPgfmt
+03hhEvQjLq0ocNvjBaxDlFX3v+sdEDvE2uu1gGmR7/Gkg9feGoIHnXcuYCyZ
+P3Zi4HhanPLTek0L2B/eRx4XwfustC98F9aFCIYX21SlwPlx3x3ZRtgxLYF8
+N3CBP9vGA/nubmhm4LWjyHcpaSMijSsL0HerD+b3prxDvvtXUVDc4458Ryj6
+dlVHBPmuK2B6xnx4HvruGc+Lr4QM5DuBuPfOdR7Id1OpmfTnFJHvHiQmrdix
+It+tnkyo1P85B31XwDDFOFWJfKdyKXPcIw35zou7Zcg8CPlOMtuFJeks8h31
+iVPRmA7ynUD9hLO4FPKd8MvNjhW7ke+s7sic52FAvouRrtMIGZqFvvv3ri+t
+sAL5jvu90/ttD5HvvknX3E+7inxnbpkka3wG+a7pUR3bDnXkO4XFqClZQeS7
+JhMzaS8m5Dumi9aa3rQZ6Dsb99FW9Z4Z6LthT61EyaoZ6LtRgUyr/DzkO7+X
+FbIeich3husis5YhyHcpDT5nLl9AvmuO4e1qt0a+uxrFESWlg3y36d8FhmgF
+5DtnqQKOw8LIdweeWPUm7EK+K74WXmvAiHy3lPzZd2JpGvouX6d1nXN8GvpO
+Iv4ZMZk0DX13kD3I/s6Xaei76P62AxLV09B3uSovwqXfTEPf9RjuzgzMnYa+
+Uykyiex/NA19x7jd19z4PPJdsJDonTZr5Ls6vw0xJ37ku5GCVIw/Yxr6jo97
+o8DfAvlOopoxpckJ+W5Z9bOvlSTy3ZCunYle9jT0nYpbkkumJ/KdKYlr+boB
+8p3acfbTv9Omoe8sB1U3RI4j3929Gn6Y+zzy3YGfb79tlke+2/k4cCslZxr6
+jnyOYbP8BeS7MdLYL6eTyHcrZzZPRqVPQ99dS//Qxu2AfPfmYWJtth3y3bjg
+t7dynshzpvsb4s4/noaeyw0/Z/hXCXku9VUf03c35DmDm2cLG5WQ5+a/iO99
+9Wwaek7KlFU7zR15zrLrj3q+BfLc4cLDZ8yeTkPPmSzrvx47jTyn1/YhwNgB
+ee7p9XLedE/kt0SJULUjoL+43wo1zns9OIH8lvJuCy+HC/Jb6tO7uVKeyG8D
+k49/S55DXvvI2FzqfQF5TWUyxDwjdRp6bbb1p1axDPJaQWKZxDP3//Ha0T/P
+slSQ1zbP+3XsAvMX91rpenLrPTfkNUVJYSJmhbx2upQLew/6gXttp2lYEMka
+ec3bVG70viPy2qIP462Xnshna9Oi6omgH7jPZET6K3fqIZ8xyrhc4XVFPlNK
+YYn/dAH5LEbToVzTCXnMYothz+AF5DGP5kc/GcD8wD0mdMX9XLM68hih6LkN
+vRvyGHF/h0awB/KYm2LRxRw75DHB7xlL/qD+rognx/TB53qWqYUtpabIY1LH
+GTqveCKPtUdmcQ64II9VXZZ+NO2BPJbI5DGsBsYL99hXX/lFeynkMXu2kNlN
+HshjilWpD2JVkceOWfIq6IHxwj3GeIvzwtJ55LFdfA/ama2Rxzj7PlVMgvHC
+PWYwdC9Vxgp57GWj57CUE/LY+fc36F94In8dnObUqwfjhftLq6bcq0Ab+Uu5
++FDPI1fkL7MvE2E3LyB/3f44oaXgiLxV+6oslNUTeWuS43CpAhgv3FucN9q2
+zakibxkyq8/5uiFvDakrqO/wQN7SO1ZwwsQWeUvnRl92DDj+mLvaj5WEOYzt
+EYHjrTHyln/nUXNrT+Stz6d1f7C6IG+lKpGTpC8gbwVdXEr2BuNlNJbUWRo9
+j22e3Jjhc0feio1kFMj3RN6yCJu7sQb2/7EePXtcZh4jqfd/xpyRv/g5LPvz
+wPv0p3m15srmsbXsLR++eyCPrV9gx/6rD/fYLY3UC/GeyF8uhKEjbKAe3F9X
+OedWbKqRv/KNjibr0JC/OEOv5j2pRf4qTHN7GH8R5WsKWQcc/XkWob/MItKj
+SJXIX11m5UadPshfP0SbM4gHUb72gv0wvdEE8pdRo1Ql91vkL/sirT1TIchf
+jHV6BgVmyF/kwPWyWQmUr1kdUbLyY5iH/mqVyePPpCB/cdtG1c5UI39NPfAL
+vJeJ/FVgs7/ofCTy11+FZzxKXshfg4b6Z7OskL/Kre2OMBGQv9j+jOvEHEL5
+mnaNGucg7xz0V+5tc0Uuljnor4m/Uunn55G/bryOLrXoQf4yS9zDSv8B+StG
+k4XFLQP5a/APe3tsJPLX8Bfb6B4flK+Z9Wi6btiifC3U/9xyjx7K18gXRo5K
+Ks1Cf9FnvXvTLzoL/RXFa+8jxj0L/WWSsgULYJ6F/sK2hNS4/UH+Yrhdus5P
+Rf4atg1WqxxC/tL+QdReIyJ/sTSf8CtqQP5SvGF7haUC+av6uXLwwdcoX9sw
+Shu4movytbDzT675paF8zYJq+/1mIsrXdKovx/FGo3zNveOCr90tlK9RKWkS
+966jfG2nCEe0tB/K16QTZ9z2DSF/vWBd8nhIRv76+UajYTwV+Yvumek28wCU
+r439zq5U+Ir8dfjwcHTIJPJXq6+YCVcR8ldAVORer6soXyvKK89znkD++ldZ
+ZzXRifzVHF02dswf5WuWhif3STUifzlJTr6uoCJ/idpnxT8oQ/6SakpzCrqG
+8rVVaYYSuhHkL4NHlADtAeQvE9FhTO8yytcMhXXvsPQhfwknXY79MIr8tdqs
+JyNKRfnazelej2ctyGP8v1volC6hfK19/HWhyifkMcLtjnEVGvKYVJOC16Eq
+5LG6erYUxusoX/No8+o5SkEe4/QSSU/4jjxmvevJ1bbLKF9juWwoLNWFPPa2
+ssKgZRx5TPwgseDvJMrXOO+EBFDakc9k3aLry0H9uMcaTPs7O6aQx2o+buVw
+GUMeEzpdY/d2AOVpSZ4f20/+RD6z1zz7Y5KKfFZuwf3wrR/K0+KbZxh1a5HP
+Tiy3lhnTkM844nin3KqRz9zvi3frXUd5Ws0/pqT3w8hnC6q51fuGkc+4F2SU
+OQNQnlbhPZwkT0Q+Y816a/Z6AvlM3Hqj++gkytNC7tm3UzuQ1/hNY1tWQX9w
+nx37e+W2ORX5TN4Ps8BGkc/ORW0sjZBQfpY6b6UcP4K85vlJmiOZirxGp7BM
+WAb9wX1mkXfwDQsN+ax/w2o8/we4X6q1jDAwL57X7hFuG0M+e2dguufJFMrL
++pKP68hPIZ9RTtad8B1HHjv3NmRJmIY8xmIiyOTnh/Ix1bz+ZpMa5DFFIXHj
+/8YH95h/oL7r7RrksQ9l1qse11E+tjTkHT49hDxWWKs0830YeSxT/2uGTADK
+xwxy5l4pdCCPvWkT8eebRB47Gu3A3DWB8rGmKyvdVCLy2f2aqp694PmBeyy3
+rWv5LhV5zE3VgTt7BHks/V2S/Z8+lIdl1KTGHxxFPjtR9uanAxX5jO0a3T5u
+MP64x2JcZTr+6x/usRnuL6XLYFzUQp4FrnWD+ms14o3HkcdY2R8VGU+h/Gtu
+q3hV+BTymINChvPMGPLXUArDU1Ya8terUqw1wQ/lXYU9+8d0achfezeZsaeD
+fh345Wl4AXwuY+ev8eWiIm/dIlSX1IHX5IVZxnPioC8X92SOUpG3oiy2zY1M
+obwrJdp3WpmGvCWVXql90g/lXaTjMfmk91ToLVEFzvntRjTorZGccc+rf6nQ
+W+1RAnUqblToLWYeS5P7X6egt6TaalIeyE5Bb3VvV6djezUJvXWjZ3lLgtQk
+9Jb3OwrlRc0E9JaEKuMrVdcJ6K2HEU5ySdsmoLdO2X7ymW0ch97q2x66IXZn
+HHrLU+DawLET49BbCk6K+4/xjkNvXdS+Vu83Pga9VXeU8YFjxRj0ltBKkBxz
+yhj0FmfuUBW37xj0lvmM5kT8yTHore5KT15Mdgx6i8IfXLaFewx6q/sdK1fV
+2ij0lsiXhe+nR0ehtwa2i4+pd4xCb9m2vRadqxyF3grQF1F3yx+F3uLU1rvr
++HAUeov6k2mGP3IUeqthInYz4coo9BZ7o6Ottfso9FaYWYOJ8JlR6C17jbuM
+ucaj0Ft3V1trtx4fhd4yDbe8JqY0Cr2lkPgrP0dyFHoroN6NuVdgFHqrx9rD
+WXP3KPTWtclNV05uG4Xe2rI/gpmbaRR6S+ZkZip5bQR6S8en2cBleQR6y/GS
+/e3L0yPQWzGRTx47jo1Ab21utN/GOjwCvVW37mFwnTQCvVWSx3zPqHMEesvB
+pmYr+csI9BYm57d9X8MI9NZHg+dJC9Uj0Fsvlmx9So7QoLe0orINb8vRoLde
+hRhryZZQobc2h7f/2Kgbgd5KqNiIvkZPg95K0Hq9v1qbBr2lHBrHs5VEhd6a
+7wzpifk8Ar01y4MF1unQoLcKkv68OsVLg96qnBAVu1I7Ar1VyTvy5CyFCr0V
+1PF9cc2ABr1F/GD88sAkFXorblh50qJ+BHqrQ/wKW6Y6DXqr4KTfLu2DNOit
+fyV3NlTB9eHeWqhpKj7OT4PeAqaQawH7w/VMd8XrHwxp0Ft1xzN0NrHSoLdi
+V2JOl9SMQG+xZo4aVLVRobdyH+jqXj5Bg94qjclhdp2nQm/5uGad/gDqx711
+9M9ubhMlGvRWhEd+X/phGvTWxR2xJk9A/bi35N3lzyhz0qC3tjJYfN6lSYPe
+8o7K4y7Xp0Fv5R0WS+jdToPeapXWzOAC/cfzsAzqI5fxBSr0V89ouFylHg36
+a6ArN6UGHB/31173ONkPojToryHG5UdUZRr0F8sZ5TAiuH7cX7vXP1uZg37h
+/ho6aTfE9YkK/RXmILWJDLbH/ZXhXEu+vEyF/irksXlJBf3C/aXm+MCoEMxn
+3F+m+q0lGdI06K+pu3Xx7aBfuL8MH+Wa3d9Cg/46pnPo8/pxGvTXsZ0R7vbg
+enF/GbTrXc/iokF/ZftPndEB/cLzMiV5Yf9zU1TosXNlYu7LoN+4xwo3n2u2
+JNCgx1wFe84XCdCgxxRd1156HqVBj60kpJ93BNePe+xIwMWOMNAv3GMPfH6O
+d4H5iHvM9gvzh6eqNJiXSXFFxvpx06DP+F/1ltOD8+M+q2nNLO8D9xPus8E8
+5cMWujToM1anwY2fWjTos4hZyUo28P8p7rNpq/BpQVAP7rMf79jM71ZRoc/q
+4/0U6MD2uM8uJhf1X/1NhT4zaFH+zgieV7jPLt6Kk6mQoUGfjQfW2nLL0qDP
+ira9VBoH44f7TMxgZ+NOJhr0mRbje8IIqBf32dWs1vSH4Hpwn/mnr9rc5KFB
+n9llL1fbg/HD8zPX45VxC6NU6DVGLtkfN0B/cK+l6Mt2MmI06DWHoORNTPtp
+0GuVn6//fapGg16jMdTe3QXGD+ZpZhd3poF+4V4zqPhkcAi8j3vNm+dUyCYV
+GszP0mMdOp120qDf1AyL8zg1aNBvzLLskaagPtxvx1KvT3OA+Yr7LcFhcNsg
+mM+43446Vqovg/Phfhsx333gKKgH99tCQ3lqMXgf99v6Jh3hXWD+4n4T+5lf
+bw9e43mamGSTVhKoB/fclI2RaQbYH/cc/wVRh4tgfuKe09zjtmwCXuOek+Xp
+V+EC8wP3XAYdWzUrqAf33IjaLXal3chzSktG/Za1VOg5kf7HGXLuyHPxQVp8
+T6emoOeWR/qDTVyR5xhvXTll2j8JPXfKUp7tiy3yHB3po9Zj8gT0nChf7uEj
+l5DnfKrOOvrsRp7b30LvklQ7Dj1HEZZoOnwdea7HZUCZTw157pioiqkzHfLc
+Llte5fb2Mei5rc1Bx6rSkec4m2sZvPyR556IXbiRZ4o8Z+qxw17nMPLclc0L
+wWtbkecC0yOySudGoee4Hd/zHOkZhZ5jrM80ka5CnmPnj+//nIM8N8y2c6t+
+HPJcwPGjBScDkeccDPXu1Lkiz5ne2mQdZoE8V2mgq1KogTxHP8T3jV0aea7g
+r3SO1QHkuTPpN5a3cCLP9UtMllzbhDzHYRSp3LA4Aj3n8GOJ9fboCPRcuYVX
+Vg3wEu45VaoZ+zXgI9xzU+0shveBh3DPPTtxr8OyZAR6Lu66oUr68xHoOZ4r
+cZy86chzSxEKVw4kIs+d/+Ea9DkKee71NYu/l24gz/UpJf0qvYw813Rg154F
+T+S525V07NnnkOdsXqj3TJ9Bnvsk/2typwXynFUjzS3NEHnOOzFqjVpEhZ67
+dexutEsGFXpOkiRksF8SeS7/zUHbdhPkOe4PDbOXQqjQc0HNGZHfgf9wzyk2
+Gx31MUSek6i6lzdzEnmOb63g+HNwP+Kee9IkFJIeQYWe+/jZ8vcbI+Q5IRn5
+nLPmyHMnRoffWlRSoee82fIrYk4jz8XuIz2nM0eeM1M98OhdBRV6Tkz9zTR7
+EhV6Tvb6HEeNMfLcVrvordZpVOi5GrZsee8XVOg5uq+J52WAN3C/3TtuwZ13
+AvktSC3z9l8l5DedLR7XDldTod+og2aH5xyR39y1DQXumiO/kbj0QvJKqdBv
+MlJdhmdTqdBvzw7+4dA1QX7jvUKR/RZLhX57XdFuZ/+aivymKJs/XkeFXpOb
+1CBLGiGvSTE+sKr2QF5L22IqMFxGhV7T/f5qrymoH/dayLrqBpZHhT77lPCN
+PxscH/dZ+1ajRwInkM+4AyZ/PxdDPrt7jY/TpoYKfRbx7sDOFBfks7sJyf/a
+zZHPLtxVdg57S4U+k94ddM7zCRX6jP6Hzou7JshnhcOi2WyRVOizmqEzxMI3
+VOgzFnfGD26gXtxjttuFflw0Qh5bsbz45u5Z5DFD5cduheVU6DEu64ktr4BX
+cI+5UwV1dmdRob8+OiQ8YgDzA/dXZ7eS8TnQD3z9sjd7x4isDhV6TFZsb18P
+OB7uMdmHBi4OH6ho/fJoX8B8MhX6S77eX1scHB9fv9x1mVl0y2Uq9NeudEJZ
+Jugvvn554o9TOgnMX9xjpUyTczvA9eMe42GI+T1kiDx2/XVNW9IB5DHuM11B
+38HxcI+dE8mdcjmPPPYwQdNn3hx57EkxR2ZDMRV6rHFXfDg1nQo9di5cK7TQ
+BHksdzfRs/8WFXqMtdZrrQmMN+4xLvuSZU5QL8zHPpz0uG+E/PXrzY6iJBvk
+r08PQ0zCwf2O+8tb9CxdFXhe4P56vfl2uOFTKvTWoA+FRQD0E/fWllPDReFg
+vPD1y31sjpeUMSr01xbtzo2Ij1ToL2G2xm+c4H7B/cXt++5WcAIVeqvSHPux
+DRwfX78knd3ync6HCr3FrVSVQQ/6i69fih3fev9JPhX6i/XQ0a8O4Ppxf7l0
+MOvQnUD+Ypb+PdcE7k98PZP+215LoXdU6DHR2Uj+12B/3F+2fqohd0D9uL+4
+mp7c6Afv495yFXYwlAf1wvXKzR85pMDzGvdX/LYI0gfwGvdXST7pZZUh8le7
+QYrOdWsa9NfOgE6WdhLK03J95FSq7tCgvziS1927R1GexqvfcaBLmQr9Zb2b
+tWcoGuVppu3aywYbyF/rnZJfo4JQnlZiujdFbOsk9NdI6fMVxhLkrx3H6zYl
+2aE8rS3RlreYawL6a6DqYINSL/JXKv+Hc3wPkb+s3cyZXjmjPK2j9vIJMelx
+6K+AVzoSVvTj0F/5X2LHXQeRvzooBXvHS5C/jvQlmgknIX9JDZrFN15CedpL
+kqbNiBXK0/JyLw3oHxuD/sKuW/6YExmD/urlwT7Kbh+D/jpuLZodu478dU+X
+fp6Dhvz1lTmuCvuG/MUX3JB1rxX5684i/ZFLH5G/vJMSdp16g/xVwMRRcCwX
++euH9SGLzsfIX1sKdxhaJ6A8TUOsdLw1CuVpxcQbxVE3UZ725mkIvdxVlKfV
+kL8ELvqgPM0oImCvkQfK0259qum554zyNMNDb4Wf241Cfz2wsdtXYD2Kvh/A
+aBUjajYK/eWePKZuYjQK/SVvJS5mpzcK/VX5rfYavdYo9NdIwtatf7BR6K/z
+zMf1Oo+OQn9VyMwoiymPQn+JtTvX6MmPQn9NWMr8DCpCeRpTZyVbdgPK02RE
+rh3TBp8HcX+dtb7sLqM4Cv3F+VFZ7EYEytOeV1e/z+hFeZqaCnHxxTka9FfZ
+xEWGQ0qj0F/1sl1vvn1BeVqpQ9vwjkKUp5Wz/zl1VGEUfT+APunB2Ys06K+C
+ikG5vH6Up8m5LaWXXKGhPC3jkXg+OB/uLxPe9uCYapSnSbnKHg0uR3la/azg
+/DtwPtxfvcJMltJpKE9z9cLkRDtQnjbG0B+j0Y3ytOe8tqc+PEZ5WlxxfXot
+6DfusUebJbaHOtOgx1hFRbiq+lGeFqr+izJ4kwY9diXyb+IEqB/32NOByZe/
+3qM87VvuDeehGpSnqa4J3V8E9eMeMz0TGZZ0H+Vpngb9El+6/idPG+C/HdOB
+8jQ6w3OM+3NQnuZyVdNhHdSPe2xrXYX2IxLKz3xa0rfJNKD8rLLrp4tsLsrP
+NOd+ild/QfmZkVDS5EYvys+cptV2hYPj4z7LPUz8fMuOhr4PoKu54NqP8rPy
+7U6vLMNp0GdtafxnWcD8xn3GofxLqectys98r/Nv7vmE8jOi3LGAHWD+4j6b
+MhOl54lB+VnVy5VS0x6Un/lXMfNZtKP87NOoWcPB5yg/m+or7uEH/cZ9FqRc
+6n6sH+VlGiXDUWt1KC9zsom8o5OJ8rI/92/vY21HeZlqfYFCdQ/Ky6J58syy
+QX9wn62X5f8h9qO87O76Z/bhCpSP+f9d/7y9E+Vjxt3tRyI6UT72jJ/p2oc+
+lI9tEg3QFW1G+Zg5ySeSkYTysc8FIT9dwflxjxlUWJFunKZBj11u2D4j2I/y
+scDNH5qiI2no7/s3HTHYDcYH95iG+fa6omKUjzH9XJDTqEf52MojrhkBMD64
+x14EWgoY30H52E1dutsbPSgfGxgb0T3QhvKxlbTvewQKUD4mfu8RlyQYH9xj
+2vdH/a/3ozys2nNzzolalIdxLuYG16SjPCwra2rfvq8oD1tLyWBn6UF5WLPR
+RsAb0B/cY9Ey75K/9qM8rFRocv/CB5R/hT08RFrqRPmXBWf/ofvE/8m/xDUe
+SZNQ/rX17t+Qt40o//J8oF54pw/lX059YiuXwflxfw3ZhWilgvOnr7qSrlUu
+YpN8YpFJ3SgP697FKHn1K8rD5q7/010kofyrkrp64Hwvyr/YBU/7fgbHs/87
+ed8vehGb8szeI9+H8q/ufZKPfUgo/4q2Vu+wBvXg/nrySwbTzyRDf31bqPy8
+R50C/VXNshDot06G/lor07v6IpIM/XWCpHrmFRsZ+qsrW93+J/8w9JeMjeFU
+vdEQ9JetfmTeyN3v0F/5QtofMse+QX+xkF7mGDt9g/7aq1tQLzY2CP21yttS
+/Th0EPrrniLxy+FDg9Bfq8q9DyZIA9BfrKuF7KbJA9BfpnNGDuEWA9BfScML
+3ar8A9Bfa09ZF8yn+9F65l+t8++r+6G/vjpWRng96of+kjXzHVy71A/9tbnY
+V7DDrB/6q21n/ePniv3QX6HKv+8S+fqhvy5XLnRsZeiH/jJQefv86TQJ+ism
+ldFflUSC/upPNPjQWU+C/nLpY6C4vCVBf2lUvtAtziJBf4VerpJRSSJBf724
+3kvLCCdBf6X86tSeu0qC/vp3YeaSoRcJ+it1Nlj+miMJ+qt9j6+NsDUJ+utE
+0bcj2SdI0F8ZWK6f13ES9Ffvs06mKVUS9FfFHmlZRVkS9NdQbAI1RoIE/cW2
+pWB/qSAJ+usk/3iV3x4S9NdZ++XvzFwk6C/aeR+Ri1tJyF/e0wEPWEjQX3vy
+TrYLMZDQ9zP33LIJW+uD/vp4eNtI2J8+6C+urV1u8ot9yF+iU8xhfBTor3Mb
+2YXFkhToL9uFRsGhejL011SmiFPXch/0l8yprIYdNDL0170HCRW/VCjQX1tz
+rkwq/iRDf81o/Tgv/rsP+ovea6b7oxwF+ovr1Y+LIrsp0F+qMr4fQ5f6oL/M
+WsKWalvI0F+Lc+deMYD7GfcXueJbmOg8Gfor6PowVy84H+4vCzvjRTdxCvTX
+6/BDH6WEKNBfP9VObJYA1wfzr4Y6QWsmCvTXT5XhPBd5CvRXE4eBsqAqBfqr
+cZtvbDcbBfpLdJo3egD0G/dXrGA90773ZOivTvkyjgBQP+6vgFub5n78JkN/
+pcg2kiTB+OH+CpAdq04QpEB/CTMFGIqIUaC/kmSJ8SGgftxfu+8zeTCtkKG/
+co84n7iqRIH+ChLeSXIBr3F/WVln2QruoEB/KV0JopcC/cfzMXF1SpbtNzL0
+WJSvnUP3UQr0WAExLHzPEQr0GI1y4rjgdgr0GEnPMaRFmgI9lmts4MGoRoEe
+2zj7zzoS9Av3WF7xfaugQjL02I+MrnBn0C/cY46iasnS/8jQY1/GbCxPgX7h
+HhO5VXHr7T4K9BhZ6ZX5NQkK9JhPQOXcc9Av3GPEXz/Imotk6DHFc+faW5Qp
+0GPcR+arXitQoMdcXfe+OMxFgR5Lzh3uswb9wvMz6bjnPO1dZOgzPju5d7fA
+9eI+O3x11NEF3G+4zxR7tHKpYP7gPrtNkvJ9LkuBPvuRLPv4MOg37rPSzcyT
+r0G/cJ/F8V30sQT9wX1mKhmcJSRKgfmZN0u0hiMdBXrtJTW9hk6RAr02ftjQ
+mAyuF/faXw7G6ytgfuNe6+jgGLonQ4Feuz6TFfkcXA/uNUvd6T47UA/utQuj
+WUbLuWToteSTV711QH241yzttm7pWiVDrznEXeTzBuOHey15QCftGT8Fes12
+ZYrl0SEK9BrhFeHgRzB+uNf8NMyelc2S0d+bPe1/7QKeR7jXtmrXRlSD+xf3
+WoxzD3shNwV9H4CBvtkTjB+ep8nsb6Y/9ZUM/ZZ1K3alCVwv7jfOI0P8c2A+
+4X4Tyac/dXgLBfqtSXBAJRo833C/VT5iePzqv+fF//std3nmfT3oF+63NTuM
+wRP0B/fb/Wrbr+eEKTBPK5zyKyKskaHndKYfbqsF44d7bnW8WlsCjB/uuXJp
+t0+eYL5Az3lzMtqB+w/3XNZMSbEtuB7ccxzqPcl+oB7ccz9X5EwugXpwv0Ws
+lNUmgPPhfkvLleeVAfvjfmOTeBPwFJwP99vawIckWbA/nqf52O2QjwLjgXvu
+uNBAeTDoB+65Hby1IhPgeLjnbPU19+mDenDPMfasDG0IIc9NH/jK6gPGB/fc
+6WfajUr3kOfCLiX/5BZBnlsJHv8m5DcMPZcd5RhSHT8EPdfEK6mi1v4dem5E
+4sHZME7kua8PBtnpvJDnPGL5DslNDELPyY/XGX+4gDz3Nfty7z1m5LnfWcde
+Kr8ZgJ4TOzNb1eOIPFdtOr1x5QDyXGKP4AfnH/3Qcw/s94z1F/ZDz8kESd/1
+vok8t5oq0KVliTx3/qvDdZo08lw315W+/RzIcxajl9bogcdwzw3d3fLSkkiC
+nnvysmW3zzsS9JyVlkL47ick6Dlim+/OpxHIc0TJLW/TLiLPcfcc9TU4gzwn
+YPupyUUHeS6wvYVvRhZ5zrBod1imAPKcdNffk1XbkOecW5taWjf6oOeOneb+
+1zfXBz3XzprUepLSBz0nyKjndbmrD3pu8X1o2Y76Pui5bw8/ayqU9UHPhfkR
+9/MW9kHPMQcFloU87YOee2bw+pF8Uh/0XFSYnv/lqD7ouTjzW3fOBfdBz0nO
+M/UHXOqDnouTfyK5x70Pes441vha69k+6Dn72zyaG1Z90HOqGvvutBghz2Ut
+MnSHaiPPPZY4afVADXlOPTmlQLmUDD0nUtrAqfqBDD03kZg2vv0M8lyG10rh
+Jg3kOd3Rn2X+t5Hn9lXK/yY0kaHn/E4sr/X7I89Ne0+uHjuOPHfcb/SV7hcy
+9Jx63dOa1RwyWs88vI3YfAx5zjc3f4/JGeS5vzJPVtjayChPS6dFYaHIc3/v
+nSk9q4U8J3yboOP7iQw9x7H/rWx2ERl6riPj7fZRDHkuQvC4/Rz4PIh7ztuW
+fyyilgw9N0fk5l5pJ0O/1baUTBSpI7+NcIlsTdRAfqNP7qlJBNvjfqup2J1n
+EIn8Nv4n9OGcFvJbgy4z4VEVGfqtP09uIbGEjPKzzd/lLhGQ38ya+mVvJCG/
+FR5LvbUHeBz3W5owQTYZ9Av3Wj/7erHaMeS1XqWNwRu+yGtnDAt2UYGfca+d
+/1d7e6GRDL2WLJi+m/slGXotm89n9B6oF/ea0p0rxHjwvMW99kRk0l9IHXnt
+/R3leT055LUcdckHu8H2uNf+/H4orH0Xea3n6Y5DKtrIa8+C+S/uLSdDr13N
+1vkyB+Yz7rUXwVEu5QTkNau5cZHOGOS1no2kwcoGMvSa7w8J63utZOgz1ZUm
+xbBjyGdndGM2dbsin/G41D7lANvjPpM23ULtB/3GfVaj0LjWmEeGPuNrzjNL
+qSZDnzV6Pf5gB64X99nDUaEcd9AffL2zb8LJfNyYDL12mNOYZwSMH+61Gb3f
+bG9ryNBrFroaf8Mfk6HPpKzyfzuB+Yb77IhY4/HcZjL0WeyZUNka8Bpf7+R9
+ohvxs5gMvTZp6s+VAurDvTZn/O/0dzXktfF6r97Ph5DXShb0xAzA9rjXPBRl
+r1RHI6/pPfgYZKeNvJb6cM9T5TIy9Bq/99AsD3iNe41pWxTTEAF5TW3Ae195
+FPLahan4/FtgPuJeU8IkAxfA8wT3GTu3WmjuMeSztvVW48OOyGemoYqX7oPx
+g98PmOCaK/pMhj7r6LecmwbPI9xniZrdBfdBv3GfvR0dFZUF14v7LGWj5lMM
+GD98/fNvd4z1GT0y9JpWhNt+DTAecP1zOW5VBswH3GvP/DiruR+Soc8Ez+/d
+zwC2x30W6Pmg7wS4H3GfmRvKXPgBnrf4+mcKPYdtDHie4V4brghifATqw71W
+IK3vQqeOvDbNI/9qEBwf95rMKl/tbjC/8PVOOquxkVlwf+BeO39dSyIYHA/3
+mqIk12IQ2B73WtuDmwffgePh65/xe+a8Y0C9uNek3APNo8D+uNc+2Kxblqsh
+rynsdn+aAD5/4V5r+VwQ0liA8jdhz3Tplxcp0GsB6//YCVPIa6nzm5oM7FH+
+xljNe4w5H+Vvjx56PDZpQ/lb1/krs9qbh6DXwopeuRx3+A699kxAY5/HN5S/
+MeXdV3vo8A16TSJ+X37+P+Q1oRbnKcEclL8Ruat8/5kMQq9Z5HnyirEOor8/
+Y7vGnNeA8rcEh5ZPj6NR/tbyacRG5fQA9Jqgtds/cYkB6DWlJZ7EmU0D0Gux
+sReGBweQ194FXdR9Uobyt8q0m3f/PUb5m+snoTXZmyh/S5R/zb/ZHeVvn3KW
+1DMs+qHX9FjoFEiEfui1NDObTWeAF3GvFZhp/XU50A+9xlwQ4++/ox96reyo
+E7mDqR967aDg28jb/5DXWg58r9m5gPK3suAG2sdJlL+5dp9Py6Cg/C1QLlW7
+awDlbzm5Snly3Sh/OzcWmfWsHeVv4v1d0+XNKH/zqhh5Mf0Z5W88Xf7qozUo
+f4uNZfvyqxLlb7tGDRdufkD5W8KXnz8elqL8Tf/x8X2f3qL8Tdwkxt+pGOVv
+fc3Rp/WKUP7WszQqrvaSBL3Wf55vKfwFCXotbt4ikJhPgl5LKFN3aQtB+VuO
+XqieeAbK376aLtoVgM9ruNfke015nhWQ0O9nfHHofm1OgV5b9Zu7UfgC5W8F
+//52J56kIK/xDXbuBPXgXvt0/veKQhrK36Yfiew3jkb5W6l81wsVcD7ca/Iz
+dm3y4PMa7rXpIkmnf4Uof7vX3xrC4UiBXttwdb58ApwP99ptRdsMhziUv52k
+ZeuXp6D8bYk08scbnA/3WrK75niVB8rfTvFkuWvlofztqX7waYNnKH97ax2R
+JxuC8rfobTcObwbHw/2mfMRl47kkBfotszv19KlClL8d1p9SDnSjQL9pe7Lz
+uoP6cb+J7q3HYiJR/uZzriyn9DHK32bO1k/fAefD/fbNRi7z3lkK9NvTA5Lc
+Pfkof7MVHgtWzET5m6yPRMP8bZS/JVNWzPaD4+F+K33AWVhViPI2Wp52hBbo
+37jpkun4zBJmv3Ks8dh9lL9pZv7zkrqM8rdtV8x4mHNQ/sa1ay/D1ecof3NM
+5ThKBfMT91xK/1RFkQgFek6AMdD/1QuUvzVbDG/m96RAz9UezrxxBfQL91xu
+xOkU/TCUv+m2cn3blI7yN8WLc4EPwPXB7xOsfX/81oYCPZfSJFdLKkD5W3ng
+e+HudJS/afX+6JWMQvnbnNmvq5LgeLjn9lk+a/ldiPI2iYxa0lwCBdP7+u6l
+c+8SJkWdbmZLQvnbS/86420+KH+bGX8XV/4M5W9rVc1Ba7kof+sVmTr8B/QL
+99y8cHxzQyHK395sY1BJikZ5m+i72T3Zz1Helrl5OscuG+VtnxYJr43B/nfr
+jw0YHV/C9l8khR7KQnkbawzxb3k+yts+YMMWQ+D8uN/mGEmfRQQp0G8Br/NK
+NF+gvO3Y7anUMS8K9Nu1yANlIWC8cL/F8fs92hGK8ra0iN8CfE9R3nbN6K9u
+Ougv7re85wqS760o0G8rFoJlei9Q3jZiYJUQ8wTlbQGOf+tr7qC8TXOukVMO
+HA/323LYWCjdS5SvlV3O1ZcG8/lqLPc3gZYlTDRPbcY1GeVt164WVXt6obzt
+Hz256XYuyts+GwlsO5SL8rYSKn/hOugX7rdSBe7xlEKUt63fEc96AOrD8zXT
+I7bNGvkoX+t1c/I8mYXytT9LykUxYP/y209Z2JXA54FWP+V92ShfOycwbX8g
+H+VrPvqODSPg/LjX+r/LzbGC/fH1Ussana+2BShfs2BK96UUonytqH//p9o8
+lK99vmOvOFGI8rTVi3IjDIUoT/vdxPRHtwDlaevKEWN94Py4z/Iyy2+m+BOh
+z1gcclzbvxGhz6iUavEHXkTos+2y4sqrxA7os7G/PzZ/VO6APhtVmph9d/wr
+9Fmzd9WBNKN26DNv+riQX+fboM/G3N60BeS1Qp95WxcLzbO3Qp95ruqfNgv6
+An029+faT2fmL9BnDy18Tq5ntUCfyf9suHzzeAv0mQe7Ud2u5WboMwe59I6Z
+/GboswnauGiuWzP0mf1okzJBthn6TO5GDaP1WhP0GW/6Nc/Jjibos7a5+EOX
+nzVBn3XcZJiaDmmCPktg67uobN8EffaL95bpN/Um6DOz1Rh9VcEm6DNs8o+f
+/pYm6LP1iYibDnON0GcNBx2uzg40Qp9RLupzXq5vhD4jlW5N/lPcCH2G9T48
+yJXZCH12c/Cl+Zb4RugzH61LofKhjdBnYUpbglMuNUKflXi/oqt1aYQ+s1Pz
+q8+zaYQ+uya8EXnKqBH6TNfBoSlasxH6LLCl8mqsciP0Gf/vmlQrqUbos903
+YiWsRBqhz/ZZLTzbx98IfRZ67dBsws5G6LOh9w2FjOyN0Gdt+v/2YoyN0GfP
+7CQ7zqw1QJ893b/sNP2rAfrMsWcHvf5cA/TZ1MeaYsepBuizQecvX/hGGqDP
+VL1eXo/vIqL1UYX97JNviNBn/cIvmTMEiNBnukufN8uPN0CfGb/5y3IUbI/7
+7Pord4bMViL02e+qH2fd9YjQZ0TnTxpNEw3QZx83zTnODhOhz4wbVZ3DE4jQ
+ZzfWhcdyRhugz95nX0678YCI/j5tlsZ/oJcIfVbBkfBQ4wwR+mzlY93JpMkG
+6LPWWKHmtUEi9Nmc5/su12wi9Fld5/euC2MN0GcGM6q/aPVE6LPWVHftTzVE
+6DOOycdeTGQi9FjqqwqVYdBf3GOLSrLdwpFE6LGaA1wy/f1E6DH2n935IeeI
+0GOaN+/3rYB6cY/tCApIcyQRocfYuwMET70gQo9l2uz9/BXUi3vshP/dxyOV
+ROgxvgOk4N8NROgx6dZHW7xAvbi/rDYWxzVAf/E8bZeCQ/nXZ0ToMZ/0wv1v
+iUToMeMLXl6BQ0ToL9vqzxp+bUTorZt7d1m3gvdxb/mHCAwGgX7g3vK6+qtZ
+NIQIvaWp7GruBcYD91ZKi8bHbe5E6K2BFW5VKTB/cW9N670UEADjjXvLP/Oq
+4uEiIvTWTsuPA5vA/MS9Vd7ZsFD/ngi91a2XYzvUTITespWl7zME/cB9ta+C
+2e4S6AeenxHWsu+PpROht6TitottgPsF91YfazHX2e9E6KsT1x7J/Hd83FM3
+U2Y7boH5jXtKLuAm3SvQDzwvo9jVs6TEEaGvhsel+HeB8cZ9VWfTSrYYIMK8
+7N/t2o3UWiL0lUS1jrQlqB/Px+Z8OM5agvPh+ZjHH/3kwg4i9BWJykIdAfXi
+vtp+N7HZENSD+0rsBlXb9xoR+opz001HYfD/Je6rTR+fF1tcIEJfJcXrLOqC
+8cF91btPnPFnNxH66nYtve3WYiL0FVGhZJoPjA/uq0O/T+hufUeEvqrcF2eq
+9YUIfSVctS4mAq4P91Te5V37Y8D4wN8zU83gP/6YiNYvQ7IFuXqI0FczEcNK
+70H9uKf+TNzynW8kQj/FtxvyfQH9wv10qDcztQH0A8/D/KuLSryjiSgPo/7N
+XgXjg3vq1MzB9+fA/YznYT4Hpx+cqCZCT31vbt/jBurH8y+Nmk3Rc+D+wPOv
+3OArXnxfidBTTZxmmfbgfdxTp3koJudAPfjf+zO4J8sb9hFh/rW4q7zEGRwf
+z792mhWVLoPxxT018C224zC4Pvz3ylR3DVySBfcbnn/dfv3urjzYH8+/ZiM+
+KRWA7XFfBYZTvf+b37ivZH2U9ORAPbivLh1iSJr73gF9xUYg9YyeQr467ZAV
+cHG0A/rqS93Ud98zyFcMOxKFawq+Ql+tXTzEsONxO/QVaXd72J6SNuir16Eu
+5952t0JfnSd+lRLnQr6S5bRK2HP9C/SVx7l6Pt7JFugrhZ8yR5P8W6Cv5Pop
+z123I1+R1+jiNt42Q1+1Na0vM7khX2ERZ3I79iNf8ZvdPe9HaYK+yj7WK5/6
+sgn6imJf2c8XiHz1QSpn8oop8lWXUXuljSjyVVm0wP7LdMhXLbQHvKXDjdBX
+zJad4RkfG6GvKG+eXn4L/IP7Slbiuc5SRCP0VWl23sydC8hXvHeVlI3Nka+a
+wtZkHVSRrziUprWFhJCvTglT7wduRb7KcW7t2fu3Afpqhtlx2y7w/w/uq4RZ
+H2PF7gboq/eCbtIFtQ3QV1q1x3j4ihugrzYufn468bQB+kpj8O+tyPgG6Cvu
+G7I57LcaoK/qJy0a//o1QF8ZDD0RvOrSAH1FNhA7527dAH1leXnrFgmDBugr
+m2eOJ3WONUBfHdpU2/FdpgH6apKpIaJUFPnq6rPgYHF+5CvVbbMO+7cjX2XW
+XXY8wox8tSpzyzhotR76SkKl6tj8aeSrmnek2+xiyFfB9wJdFTI7oK/Ov+H8
+2bQJ+WpKuut2hgLylWpi+erQceSrKOH9KyWfOqCvgtlr+q8yIl9dZUlr03NC
+vmpVu7CxhQX5qq7jo+v+jXroK81K5Zyg7chXYu/eOlw2Qb7qOry+/Ka7A/rK
+opzNoGsz8hWBu590yhH5Kss0NOTSbuSr6G5660t0yFcRtgNfDhshX90g0Mye
+KCJf3WERNhM6i3wlkhWyrW2tHvrqt1NhWPvfDugrtRqGuEAL5CvJNd37fOD5
+hPvKvuPVgVAm5KtNfgYLM/bIV6ZXX2B2B5CvlGjOk3s3IV/tvlI58kUT+epk
+yRllL3XkqwqxJ5OijshX2c4SLAHr9dBXqWyckSYiyFdH+qTPj+kjX4lSg8Zd
+nZCvLKw6+vZZIl/VquzrPm2LfFVX5hwkDPqB+0qak+exB60D+mrLp683662Q
+r/YWsYXpUjqgrw4xNsmRmJCvDDlfuIvaIV85r65lqgkjX1UTDG0ubUK+kjyz
+eU+yGvKVUi/HwzcE5KtTPN85ex2Rr/oY3hS0gH7gvqKfn6f7tgf5qn+taaLq
+BPJVfKyKDIsT8tWyrgf/xZPIV62RD7b32iFfrURrfbgK+oH7yuYS6zlRJuSp
+bvf3L8wckKe6lPLtTfWQp/arP/DAwPv49y2vHr8b+eMw8pXiK+rr607IV5qf
+U9h0TyFf+YTvCi85jXxVrkY81QGeB7ivOgRa/pqC/w9xX/VKybEPWiNfHfvU
+L2D7swP66sZDw0YGZuSrM1luVF5b5Ct29j0JoqLIV2G35vnSNyFftfk2asqp
+IF/pS52hP6GJfHVaRVWDxwn5SmdX5OZlMD64r4xZVm+0cCNfCRh/a9hrjHzV
+737xb7kj8tWlO/dPOJogXz2kpmXdske++lCtQMkC44P7ysbb3nQPHfKU90vn
++cKzyFO9McR32drIU9RW/d8fwPjg369sNKp1KBFHvlL0Odh1zQn56kbqgs4n
+K+SrPSIeP2LOIF/Z2PueXwHjg/vqSGxuLQ+oN4AnjJ3YO4dV3Eu72Yghb62a
+mzaGOyJvSYn5aWqA8+G/F8uY9SPqlDnylk+y6GaKA/IW7+Gqsvdnkbe0PeRE
+PMD+D/04HYPt57EmNxOzFzbIW1a/Q01zQX24twZ4/LzU2Dqht5hu+vwudeiE
+3gpy/v7t4zLKs6wyzydEgPmNe+uLR9DfPWkoz2rbyPlmQ0N5VsXnwir+cZRn
+HQore6jyD+VZrnTJnp9V2qC3CtLZ3zU8RXmWT1L7o+htrdBbL7bWRculojxr
+9ev632T5L9BbEU0xtpu6UJ7FYvo4VvBWC/TWTTJ5hV2+BXrrbaT2WP8syrN4
+YirUxkpRnnX76ecjiTeaobeuc5jMnj7ZDL3VmGieGi/cDL01eXm0xHUNectG
+gruh/BvKs0aHZPbsrkJ51ift63trs1CedeK5/tP0aJRn6Uq57lC63AS9dak+
+qizeqQl6a+VM8vQd4D/cW1mK0iNthCboLdEonapXck3QW/bmccQl4EPcW3M3
+wxct+Jugt/xvZL74taMJeut1+VJH35Ym6K2A988uKdA3QW8tkFR8mlZQnnVi
+tIEjfgnlWcNcukacsyjP8mU87P12EuVZE/tvyMqPojzL1rFyvIuM8qxXwXo9
+/76hPOtcyyGWT/0oz7qYoHAhoxflWQ4lCbybuhuhtxoeeeoVExuht+48Vsz2
++9oIvaVQwUaf1NYIvVWevEv/w5dG6C39zCelR050Qm8xv3NJrFfvhN6Srxx6
+zppFxGzT9xXeoacjrFtESG4+9xXjTn5Zcix4EyEre7dP5oV2rMlOKTSRgYGQ
+vz2PaJfSBn12UPGa2NPWRuizYrkD93qkOqHPypp3szpbdkKfuVrn1u9tA14g
+jwVbmGxgSc5Eufe5X7Eh3ftPPvFtIjBVybOO54HPOw1bZUey6AmyH1yWihvb
+oOeEKxryecD14p5j+Hf8V7JdJ/Qc8SRrI93eTug5dcloFwlQH+45yeg3SbfA
++7jnJCVE+1tsO6HnsqZFjnZQiJjemwrOy0vrWPuVmZvizV8xTQGGHRGTdIR9
+PPsUBBrbMe7A63dj/OgJn3WKmQ5T2qD/Mj5ds7EE9eH+O8Xs/SHLqhP6T+3O
+tNhp0B/4e2odZabnQH24/9hvPj5QeKwT+o9veUxp0qAT+u9+8847k+D5hq9/
+OlAPmbGydkIPbq/44zwPxh/34Cx7mXDgrk7oQa1Q0S7Fs53o9ziaHOt+UImY
+wh7R05sb1zGtqtu9+QNfsSUOtRPjHXQE73ziNaa+dszY8nWpw2l6wv2Wwa4D
+M23Qj6LS/rH+4HpxPwpHZOl0n+yEfmw+ornZXLET+pGtsTc9FFwv7sdQ31Nm
+a+B93I8/oi0+hZp2Qj8+u5gi/hbUi6+X/tm85XrJzk7oSdbHVY0c4Hi4H4td
+xEg3bDqhH/2pdotxpzuhH53FPryo1+6E66Or7K9P5mp1Qk8e28Q6oO7YCT0p
+qjWs0gP6iXuygNzz58e2TujJ6y9XRbjAeOCe3Dp25W/fHPC7yWCI0et1jPe4
+JiXw51fM6PapyQef6Qgl9Ld82YbbMQ/NL60GxvQE5Zrye8+X2tDvf8y7EG6D
+fuL+jA0t6t9j0gn9Ga6z2LJXtRP6081dxjYeXD/uTwODqJZfsp3Qnz4VqgKs
+5p3Qnw5GB5/U2nfC9dSE3fTTrrs7oUfP+dlt4wfHw/0ZduD0ecKZTujPvZFi
+K+9OdUJ/5hQ06RhpdsL1051/9LW/6XZCj8o/040/AvqJe9TToVL3J+gn/D02
+lqTIvaAe3KNF+hQua4tO6E9FjV/LHqC/+Hppi7V5z13rTujPArkjHNLg/sW9
+STBbM+UC58O9eb7PUrURnA/35s1v7An3OTqhN/W7Wku9wPFxb9aXXdEwWiRi
+45MK9+dz1jFnzgyHyfGv2PXqMSWfj3SE7ZnV0Tt+tmN/ykh9mB49QXOcPD77
+uw36ND9KY38MGD/cpycfT/IXGnVCn64FTIn8OtoJfXpgMqDmAeg37tOooE7D
+SelO6FOpbZ/S1UA/cJ/OEj5xyoF+4eurvhO1G6V8ndCrrH2ZykLgeLhPBYs8
+QthBf3Cf0ueYBLwF/cN9GqznnxJK6ITrqausHb/P63dCr0YVr9zfCfqJe/Ux
+jcNiCvQTz/9Wnp6+VAzqwb2qcYQWxA/mG+7Trw3mBG7QX3z9lMwY2hIN5g/u
+UyPOb5rnwfzCPeq/quIgDc6He/RMh6lyOzgfvn76PT/W/yV4HuD+nOoRytIA
+r3F//g6kSRSA+x/P+7q/NKb/dz/j66fyLnOageD/C9yfM3KvbItBfbg/H2Wb
+G0yBfuF5X4aBWRsNvI/7c+skDasB9fwfHTkr8g==
+       
+       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwl0GO4FnYcx+Fzci1zWatlLNva0rJdy7WWbZvLOtnWOZ3s2rLdqmVb93X1
+4n4+39//1fM8KZt0qNI+TEBAQCBZfczVOPpO7/GTHZkrdjINyws7vUbnrJ1I
+v+oTfrajcttOqRHIzmt3Ro3JSTuBftIs+lDT6g/k4IY7hYYnG6/cGTQGubjo
+TqKBgd+/8zN3Oo1GTv5zp9KI/MIbdyaNxTw7rr7X+6Sxo3DVTq7heGmfI3Hg
+9z/mqdzhFD+6P+sjbnKJ+cTz/kH/5xrnOc0CFhLEIhazhKUsYzkrWMkqVrOG
+taxjPRvYyCY2s4WtbGM7OwgmhJ2Esovd7GEv+9jPAQ5yiMMc4SjHOM4J/iG+
+3/NRH3CdC5whofcv+phbXCaptzA8t++S2o7EWzuzxiY3/7pb6nFWsJ8JLCSE
+foxiNlv4i54M5W/W05aOdGMQU1jDH7SgOc1oShMa04iGNKA+9ahLHWpTi5rU
+oDrVqEoVfqcylahIBcrzG79SjrKUoTSlKEkJilOMohShMIUoSAHy04YOdGUg
+k1lNPvoykllsphM9GMI01tGaccxnB71ZzC6GM4ONtGcpexjNIeawlS4cIYid
+DOAAk1hFXo6xnH2M5zALCKYPR1nCbkZwkJls4k+WsZcxzGUb3VlEKIOZylpa
+MZZ5bKcXw5jOBtrRmf5MZCV5+AbEv6Oe
+             
+             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwV0FWUFgQQBtCf7k4FaZAGFaSku5VWGkSQWrqbXWqD3WXpDukGpTsUxQAF
+AaW7u/PycOc78zDnzPmytwtq0D12IBCIRVGji+Us+9nAPY6xlBv8yU4ec4r5
+XOE3tvKQE6zhNkfZw1P+ZzYX+YWXbOIB/7KSWxzhNbt5wn/vH4wTCPwgr/E7
+r9jOI07ylnXc4W/esJdnnCaW+67yHAd4wUbuc5xl3OQvdrGAqxxmG2uZwyUO
+sZlVLKYb5znIjyxnIXN5X24QPehJL3rTh770oz8DGMggBjOEoQxjOCMYyShG
+E0wIYxjLOMYzgVDCCCeCiUQSRTSTiGEyU5jKNKYzg5lc4Gd+YgWLmMdlfmUL
+q1nCdf5gB+u5yz/s4zlniK3/WbKYnEF/omhJEOOpTVO+ZzTlqUYDvmUYJfmC
+ytSnLYP5jE/5hKIUoTCFKEgB8pOPvHxMHnKTi5zkIDvZyEoWPiIzmfiQD8hI
+BtKTjrSkITWpSEkKkpOMpCQhMYlISALiU4IyVKIebRhEPGrRhE6MohxV+Yr2
+DOVzmtONsdSgF2E0YhLfMYLSTKMPETRjMp0JpiJT6cEE6hJNawYSl+n0I5IW
+TKE746hJb8JpTAwdGUlZ+jKRr+lCCFXoSShf0o4hFOcbujKG6jSkA8MpRQXq
+0IoBxOEdcx2c2g==
+             
+             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwV02ecDwQYB/D/XXcVEQotxclIpMHV7XOLO+M2t/e+6k5DkaQ0zchoKBUa
+aCujQstoWqUolKKBhlIqydeL7/N78bx4ns/z+Txhlc3ZTcGBQCCIcCUiJBB4
+gQe4nbdYyChW8hiTaeI1HuZe3uUZbuVNnmAa61lCI68wh7t4h6cZwxs8zkdM
+ZR2L2cT1LGcuHzKR93iWjdzGaubzMdPZwHNsJpIXmckH3MHbPMUn3MTrzGMK
+a1lEM8t4hPsYxyqe5H6uZikPcje3cANRvMQsJnAzI7mGaGKIJY54BpBAIkkk
+k8JABpFKGoMZwlCGkU4GmWSRTQ65DGcEeeRTQCFFFFNCKWWUU0ElVVRTQy11
+1PMys7mT0VzHtbzKQ9zDWG5kBY8yifGsYQEzeJ/n2UIDIaHuQhrV9CWBYs6j
+J1EMpw0d6Uo4mZxKK86kM1cwjJMIJogA/5t1jP84yr/8w98c4S/+5DB/8DuH
++I1f+YWfOcgB9vMTP/ID37OPvXzHt+zhG75mN7vYyVd8yQ628wWfs41T7Hoa
+Z3ABlzOUz/TOlT2IJJfTuZhY8ulAGP3J4GQGUUkf4inkbJIpoxu1XEU2LWlk
+IBVcRB3RjKAdDSRSwvnUcBlD+PTEX8hUqriEegZQxDmkUE53IsihNb2IIY/2
+JFFKF/qRTii9iaOAs7iQK8miBW3pxKUMZqudjgO7lpen
+             
+             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwV0lWYVWUUgOFDD92dQ8wM3R1DoyAhjaQgXdICCijdoaQ00l3SrQLS3SXd
+ISkKvufi3etbe9/s53/+0JZda3eJGggEohDpES1mINCbJlRjOJ0py/e0pT6j
+6UZxvqMVE6nNSLpShSF04CcaMZYeTKMw/WjBBGoygi5MpiKDac+PNGQM3ZlK
+aQbSmknUZRRfM4VPGUpHvmAcPYlOH5ryGeX4gXY0oAQD+Io6fEIR+vMltahE
+GWLwDc2oTnlKUpSYxCKE2MQhLvGITwISkojEJCEpyUhOClKSitSkIS3pSE8G
+MpKJUDKThaxkI4xwIshODnKSi9zkIS/5yE8BCtKX5tSgAqUoxre05HMqE8kg
+2lCPqgyjE40ZTy+mU4hDwbOO5f8pRoDk5Oehb/8Ez0Pn5LK+w6vgudnDOKkv
+cJMXwbP1Lgt/6oMcYD9/8Du/sY+97GE3u9jJDrazja1sYTOb+JWNbGA961jL
+GlazipWsYDnLWMoSFrOIhfzCAuZzgvP8xfPg3fDfmZmnj3OOGzwjhvehzNXH
+OMt1nhLd+0zM0bOZxVHOcI0nRPM9IzP1A96RwJ6DS/o2L4ltz8YR/YGkOi/3
+9Bvi6QhO69RmYd7rRGYururSZgoK8Nhe3IxKBn62lzXTUpSPwbtkJiMf9+1l
+zFQU4q29hBmf7FwM3jEzDUX4117STExubtlTmgX5W4eYWTms/yOJzsNd/Zq4
+OpxT+gqPiGJPzwz9P+vpkZA=
+             "]]}]}, {}, {}, {}}, {{}, {}, {}, 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798]], 
+           
+           Line[{1, 122, 93, 74, 141, 112, 62, 134, 105, 86, 55, 129, 100, 81,
+             144, 115, 69, 137, 108, 89, 148, 119, 51, 126, 97, 78, 143, 114, 
+            66, 136, 107, 153, 88, 147, 118, 156, 59, 131, 102, 152, 83, 145, 
+            116, 155, 71, 139, 110, 154, 91, 149, 120, 157, 2, 123, 94, 151, 
+            75, 142, 113, 63, 135, 106, 87, 146, 117, 56, 130, 101, 82, 70, 
+            138, 109, 90, 52, 127, 98, 79, 67, 60, 132, 103, 84, 72, 3, 124, 
+            95, 76, 64, 57, 53, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
+            17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
+            33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
+            49, 125, 96, 77, 65, 58, 54, 128, 99, 80, 68, 61, 133, 104, 85, 
+            73, 140, 111, 92, 150, 121, 158, 50}]}, 
+          "Charting`Private`Tag$476325#1"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwV0Odej3Ecx+F/hUKRUiFpkFJpCAfiEDoATqdnbQ0rTVFpDy1SJCESDYVS
+ipKrB9fr/fn+nt13csGtGzeDAoFAIUVEO7b0Kxfsw8zY5zSENfuSHmPSPqN7
+ukqaHc6cnayHyGPDnamRvLDjdEezdVkv6lHymXUn6UFy+eXO0ONc4437rAaR
+ww93ukZwlXl3ioZyhU13lp6g2D6p27pAqn2Ed3aiHmDdfkX8/k/hu3xmnFPu
+Xf3GR6YpIcb7H13kPa95SSlllFPBbSqpopoa7nCXe9znAbU8pI56GmikiWYe
+0cJjntBKG+08pYNOuuimh1766GeAQZ4xxDAjjDJGrO/5q0t8YIoJTnv/pyt8
+4i0J3oL5aX/hvB3Gb/uyRnGd5+7/XCdWvw==
+            "]]}, 
+          "Charting`Private`Tag$476325#2"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwVz+daDQAAgOHTpXQV7WhpGUkaRuMoI3RKGtpm2gsnoyEKpVAos6VCuidv
+P97n+f5+kcFQblVEIBAIEyXeMkwH17nKEo/ppJmvTNLPJd7ziDusMk0jX5ig
+j03eUMMnnrJDF+u8YpdWvjPFHwb5xSz/iGaeEba5yU9e8pc6VhjnN71s8Jr9
+0Y884T5rzNDCN54zQCUfCHOXG1zjM8/opo0YFnjALeoJcZlY4ogngUQOcJAk
+kkkhlTQOkU4GmWSRzWGOcJRj5HCcXE6Qx0nyKaCQIk5xmjOcpZgSSikjyDnK
+qeA8F3jHQ27TQDVXWGSUezRRyzJj9NDOD14wxBZz7HGR/3uDT5A=
+            "]]}, 
+          "Charting`Private`Tag$476325#3"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051]], 
+           Line[CompressedData["
+1:eJwNzmdXzgEYBvD/U6IkobQUPWaFJkKRUcooPDSM1tP2Ip/IV7KioaxECGlq
+WL8Xv3Pd51zn3OcKRx9GBkNBEDziseNSTBAUkE4iEU6wjw3UU8Ju7lHFDho5
+xUECrlDILu5ylmRuc5IeDtDOReK5Thld5NLKefpJpZkKesmjg2oGeGJ7rTxM
+lAzucIY+tnCLcrrZTxsXiKOBUvZwn3Ok0MRpDhHiKkVks40EbnCMMDt5akud
+PEImSWwkhme65wzxgpcMM8IoY7xinAle84a3vOM9k3xgio98YprPfOErM3zj
+Oz+Y5SdzzLPAIkss84sVVlljnd/84S+XbT9KFlvZRCzXKCaH7WzmJsfZSxot
+VJJPJzU84J+//wHlfEaF
+            "]]}, "Charting`Private`Tag$476325#4"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwN0NdeiAEAxuGvXIlb6hKcoiEUpaJBSlFUJGnSQDulpSFFNmmoFKFUWqJS
+noPn9z96T96DhyLCwkOCICjgcGgQTNNPI794z10WeEkXm4xTwjzPaGedjzxg
+iTc8ZotJipjjKTu0ssYotfzkNf/o4TcTBAeCoEK/M8IuHWwwxj71LPOWPXr5
+wydC7I/oDANs08QqH6hikVd0U8o3nvOIOm7xhSEeco9KjvKZJzRTTRnFhBNB
+JFEcI5rjnOAkMcRyitPEEc8ZEkgkibOcI5kUUknjPBdI5yIZZHKJLLK5zBVy
+yOUq18gjnwKuc4NCZhmkhRrKuc1XhmnjPnf4wQs6aWCFd/TxlylC/X9T/wMz
+9mzb
+            "]]}, "Charting`Private`Tag$476325#5"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNwwc3kAEAAMDPo9AwUkTLTJGVrZJRFEXJDGUUocwUFbJpoIl+bXfvXcrA
+RMt4SBAEB4aGBsGcz3xgleUu+dIn1rvha59a7CcHfORXp7zjumN2ueust1x2
+2N+2+d0Z77vluH/tcc93HhrmvM/96UO/OOm+1a456h873fGtB1b42SF/2eo3
+p73npm/stsQFB33sXStd8ZXtNnjED/bZZI03LPWo4UYY6TGPe8KTRhltjLGe
+Ms7TnjHeBM+aaJLnPO8FL3rJZFNMNc10M7xsple8apbZXjPHXPPMt8DrFvrR
+fput9aZlLvrCFuu87aojdtjothP2+sP3/rPI/7koMrA=
+            "]]}, 
+          "Charting`Private`Tag$476325#6"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885]], 
+           Line[CompressedData["
+1:eJwNz+dez2Ecx+HfX0XDSLtEipIiiTgPh+AAckBNu43SkEqhogghLYWUlVGi
+UuF6cL3en+/97M48e+5MSSgIgnJKw4IgPjwIVvQ9Y2S4w/hhPyPN/qtfyLW3
+M2Nn6VZ+2o9Jttf1I4fsGKbsTI1gyT6isby00zWgkK/uPN3JSd66D2okRfxy
+H9XdnKLMnaCrekznNEejOcG4e7+Gc5xFd77uopgR9x79pwsctnfwxj6g21i2
+h0mxN/QTrxllr7cQ3+x3lJPoXtN5JnjOEyqopIrzXOAil7jMFa5STQ211FFP
+A41c4zo3aKKZm7TQShvt3KKD23TSRTd36KGXu9zjPn30M8ADHjLIEEn+80c/
+MMkLnpLqfVM/M80r9nnbwnd7lmw7it92gcZxmkfu/yR0W0U=
+            "]]}, 
+          "Charting`Private`Tag$476325#7"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNw4c2lQEAAOC/c7yItwhpoZSiboiEXC3FvVKZLdlKmYnbUCQtmkIh2qTh
+ifq+c774cDQU2RAEQcyNcUEwaa9X/OSY5531rteM+M4h2/zsYy/40RFv+N1n
+nvK1t2x22XHr/OB9f9nlN5/61yrfG3PVDr844R8vueBD1+z2h8/9Z4JT9rli
+o0s+8rfVznnP6371iVGnHbbdi877wJue9o2DtljvWRN9ab9XrbHScpPcZLKb
+3eJWt7ndFFNNc4c7TXeXu81wj3vNNMt97jfkAbPNMdeD5pnvIQs8bKFFFnvE
+EsOWetRjHveEJ33lgE3WesYK33rbVhs854x37PSyi47a409fuG6Z/wEtq1VC
+
+            "]]}, "Charting`Private`Tag$476325#8"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNzldbDnAAxuF/9NpKESVRISpEkqKhtEjhbcvIa6tL36evVSmijNKQGVqk
+++C+noPn5JcV64++iAshDDAYH8LVSAgFHGAXW7lJMYfZRxcV5BOhmbNkcpfL
+7KGDMnLZSQslHKWHWtLo5hJPOckDGuhlSFOjPc0jMrhDNc9Iop2LPOE496nj
+OduIcp7HHOEeNaRyi0pOEKOeTVyniCxS6KScPBJopZQc9jOs85o9w0GS2c5m
+XvpGGOUVrxnjDW8ZZ4J3vOcDH5lkik9MM8Msc3xmni985Rvf+cFPFvjFb/6w
+yBLLrLDKX/6xxn+C1jg2sJEmCjnEbnawhRucI5u9JNLGBY6Rzm2qOMVDrtBH
+POss5UUW
+            "]]}, "Charting`Private`Tag$476325#9"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179]], 
+           Line[CompressedData["
+1:eJwN0Fc7lwEAxuGX6+J7+Eo+gnN/UqJoSGVFw0hIS0ZWVlY7yixbMkoZFclI
+Q0P3wX39jp6TJyomLjoUFgRBEbERQfCO57SxxTR3WGOUx9xilWHu8403NLHB
+BM/4wTzXWGKAPTrZYYZ/NPCFcf7wlO/MEUQGQZV+4hW/ecgus+zTwlcm+UsP
+P1kgzD6ki7zgHtu8ppZ1xnhCBR95yQOauc4yg3TRSDVxvKePduq4zQ3iOUAC
+BzlEIodJIpkjHCWFVI5xnBOcJI1TpHOaM5wlg0yyyCaHc+SSx3kucJFL5FNA
+IUVcppgrlFBKGVf5QD8d1FPJTVYYopu71PCZER7RyiZT9PKLt4T7vlz/AxKR
+bcA=
+            "]]}, "Charting`Private`Tag$476325#10"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNwwkzlQEAAMDPhCSlhFDOUgkJUaKUclSUkFvq5QxPKCkpoRJJkvBv7c5s
+dmiyJRwRBMGuh6KDYNZeH/nDCe/41WHbXXfKChd85ZYt/nTSeld87T+73HDG
+Pcv86Av/+MRVw+5432VH3bbTX0676y2/OOhf21zzjf994DfH7Pa3b430vX02
+etclR+zwpp8dsNUGy533pc3Wetso53xukzVWet1oDxvjEWM9apzHPG68Jzxp
+gqdMNMlkT5tiqmme8azpZphpltnmeM7z5nrBi14yz8vmW2ChVyzyqsWWWOoH
++33sPau84SdDPrXOahcd8pkP/e64PW76zn2veQBufDPX
+            "]]}, 
+          "Charting`Private`Tag$476325#11"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNzudeiHEcxuGnoWE0kJFQ2YqMFKE4BYfgAOp8rGwts4HSRCkNFaJCWYlo
+kCLkenF9ft/7/7x5Uo4XHMsPCYKgiBMRQbA2MghCGNOv6GWLvYifeoSdeil/
+dTsbdRTf9V53Je/1Djeeg/yxs9xE8ui3t7lLyGHWznRXkcuovctdziHm7Wx3
+DUc4aa9zQznAV3uPu4LDvLbT3Tjm9D53NU/1VncxM/oTGXoZ/3QHm3Q0P/QH
+Bthux/BLf+YU6+0wvuk3PKOT05yhkGTfwxnXQzyni7OkeF/AhB6mjyecI9V7
+BJP6LS/o5jwXuMglLnOFIoopoZQyrnKN69zgJrcop4JKqrjNHe5STQ33qKWO
+ehpopIn7POAhzbTwiFba2OC/I5nS73hJD5u9LWRaf2SQNDuW3/oLu3UCAftJ
+4iiPffsPpm9gag==
+            "]]}, 
+          "Charting`Private`Tag$476325#12"]}}], {}}, {
+     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+      AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {1.0000001836734693`, 0.1717677481978085}, 
+      DisplayFunction :> Identity, Epilog -> {
+        Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sOd4aaIWk/XZvllPF8w/9JlVvKfks70/
+w9////9/tmeRKanj2/7ZniM+Fij/w77w8o0GM6D85qKDlvf9/9p/5LGdz9H7
+yT5QM018XTuTg3RWdfVFnk/23x69Aepndjh6PuV8VPVH+x1qQUox/CwO5gmX
+bsVc+mhfqM0LNI/DYbJf4caO5I/2ye8lmUH8k4x3fV4EfrQ/pswJlOdxWLae
+Z8PqtR/sZbbN2fP/P79D7eHmmt0TPtifM/v3H8TX+3B+Yl7iB3sPLRmgehGH
+mDrFTFmBD/aSPoeB8qIOyVMXR7hyfLBfOG39j2//xR3s9dKknxe9t+93lwRa
+IOFQu3Sfzz/b9/bmk0HhIeNgPiN3m1HjO/vYO32HvnYoOFx0s/S/1/fO3qhT
+Eiiv5PBxz82gl6rv7ON8tgDNV3ZYtphnXdynt/YAYmWXPw==
+         "]], 
+        Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sNf45KCRNPm1fbOeLpjP5POa997R1/b+
+DH//////2Z754b/1Wqlv7DniY4HyP+xDO86si/jw2n5z0UHL+/5/7eUNn+oG
+S7yyD9RME1/XzuRQOevrrPW+L+2/PXoD1M/swLbT75K6yQv7HWpBSjH8LA7O
+0ZkLL9x9YV+ozQs0j8Oh923HkZdWL+yT30syg/g+Z0PmsAm8sD+mzAmU53H4
+cGP5Kd9nz+xlts3Z8/8/v8PDdT5HSh48sz9n9u8/iL9kzvxbllXP7D20ZIDq
+RRz8rVUmKhg8s5f0OQyUF3X4cGbDRXWbZ/YLp63/8e2/uENZxptZnYuf2ve7
+SwItkHBo3vP0Sn3+U3vzyaDwkHFwTdRj//7giX3snb5DXzsUHI7K7ihzknxq
+b9QpCZRXcnh38cepyDNP7ON8tgDNV3aoShVZyLjhiT0ArjibhA==
+         "]], 
+        Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37QM008XXtTA4X1zgEzNh31/7bozdA/cwO0lLV7eE2d+x3qAUpxfCzOFy/
+r3GghOGufaE2L9A8Doe9pxQCeIDyye8lmUH8CacjDHe+uW1/TJkTKM/jcPzO
+HWdfu1v2Mtvm7Pn/n99B6Yt9Y1TILftzZv/+g/g9G4PvzVhx095DSwaoXsSB
+4cN0nWPzb9pL+hwGyos6uOz29m1be9N+4bT1P779F3eIbfGs/7/shn2/uyTQ
+AgkHw6r/K6703LA3nwwKDxkHmz+RbF0fr9vH3uk79LVDweEw36u7ucE37I06
+JYHySg7LRNIO5d2/bh/nswVovrJD7IElR0RfXrcHAGy0mN0=
+         "]], 
+        Point[{{1.0000000000219882`, 0.2739059785361402}, {1.00000000065748, 
+          0.2704964547010709}, {1.2499999999563618`, 0.27833849043335057`}, {
+          1.50000000135873, 0.2730329541045581}, {1.8319999939041451`, 
+          0.24296255555650245`}, {2.316250021748751, 0.23050918734078213`}, {
+          2.499999999443726, 0.21801783835787533`}, {2.507499950534875, 
+          0.22472393791761403`}, {3.0000000003832885`, 
+          0.21882181677332177`}, {3.0000000231065527`, 
+          0.21413645453599908`}, {3.5000000002660014`, 
+          0.20307133563373797`}, {3.9999994979214204`, 0.1997608078205045}, {
+          3.999999999948023, 0.1944068891299401}, {5.000000001639428, 
+          0.19229816838417266`}, {5.499999996466635, 0.19314253045859917`}, {
+          5.9999655587359095`, 0.1817292039636228}, {6.000000135581913, 
+          0.1858419426276194}, {7.00000000009168, 0.17876337967646738`}, {
+          8.267499999941885, 0.18306947197745788`}, {9.000000002972772, 
+          0.17860783472365405`}, {9.999999991187163, 0.1764280030668187}, {
+          7, 0.185}}]}, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(R\)]\)", None}, {
+        "q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {Full, Full}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 18], 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True}, 
+      PlotRange -> {All, All}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]]}, {
+       "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((0  M)\)]\)", None, None,
+         "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((5  M)\)]\)", None, 
+        None, "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  M)\)]\)", 
+        None, None, 
+        "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((15  M)\)]\)"}, 
+       LegendMarkers -> None, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 18], LegendLayout -> {"Column", 4}]], {0.52, 
+     1.00000001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.796356190259666*^9, 3.7963561926290407`*^9}, {
+   3.796356236275827*^9, 3.796356284067533*^9}, 3.79635858265408*^9, {
+   3.7963646131922903`*^9, 3.796364629268627*^9}, 3.796364877681136*^9, 
+   3.79636535246124*^9, 3.79636627942761*^9, {3.796368204388143*^9, 
+   3.796368229544756*^9}, {3.796369312888283*^9, 3.796369386857367*^9}, 
+   3.796541630235998*^9, 3.796541812370311*^9, 3.796541884882616*^9, 
+   3.797141579349658*^9, 3.797141623018752*^9, {3.797155269122676*^9, 
+   3.7971553670324373`*^9}, 3.799979909715006*^9, 3.799985590706571*^9, 
+   3.799985887257011*^9, {3.799986737366871*^9, 3.799986742484126*^9}},
+ CellLabel->
+  "Out[978]=",ExpressionUUID->"566b0276-dfa0-405d-b96c-1168ce012006"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<2toneAr_starttime.pdf\>\""}], ",", "pl"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.794725716340115*^9, 3.794725735561653*^9}, {
+  3.7999799767898684`*^9, 3.7999799841362257`*^9}},
+ CellLabel->
+  "In[491]:=",ExpressionUUID->"64e3adf3-a796-498b-ac84-88ce92184d56"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/2toneAr_starttime.\
+pdf\"\>"], "Output",
+ CellChangeTimes->{
+  3.794725736573032*^9, 3.794725788738686*^9, 3.794740165048003*^9, 
+   3.794740462718883*^9, 3.796095368968482*^9, 3.7963536692110567`*^9, 
+   3.796356194945738*^9, 3.796356239818959*^9, 3.796356286949635*^9, 
+   3.796364882210538*^9, 3.796369389565127*^9, 3.797141626038591*^9, {
+   3.797155352417851*^9, 3.797155369225711*^9}, {3.799979979290927*^9, 
+   3.7999799850614347`*^9}, 3.7999855923801727`*^9},
+ CellLabel->
+  "Out[491]=",ExpressionUUID->"2d32156a-6fc1-4a15-a222-f01663053148"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s220", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "q"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.794740771124654*^9, 3.794740773320465*^9}, {
+  3.796351525413734*^9, 3.7963515259315147`*^9}, {3.799980007504757*^9, 
+  3.799980017362505*^9}, {3.799986750384797*^9, 3.799986750582184*^9}},
+ CellLabel->
+  "In[981]:=",ExpressionUUID->"290b4491-fd7e-495a-9cde-ebb5e55cd772"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.705708429094248`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.705708429094248`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.68595939908131`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.644161484639591`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.583010876575191`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.553723601071642`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.505986374058672`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.481879522944965`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.481040638271772`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.429944551034275`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.429944553216988`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.392488561527617`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "11.365277725151671`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "11.36527775640857`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "11.329331709600144`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "11.317159058553056`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "11.307573476315104`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "11.307574515006706`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "11.293611489044597`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "11.28200431990269`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "11.27716904435945`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "11.272023317084908`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.794740777688059*^9, 3.794801053389469*^9, 3.796093810866493*^9, 
+   3.796095468331243*^9, 3.796095514619238*^9, 3.796351530080126*^9, 
+   3.796351591909946*^9, 3.796353336254849*^9, 3.796353448494619*^9, 
+   3.796355118611046*^9, 3.796355924241249*^9, 3.796358593180113*^9, 
+   3.796364660399314*^9, 3.7963648886525927`*^9, 3.7963653800973253`*^9, 
+   3.796366299695881*^9, 3.796368243414363*^9, 3.7965409976590147`*^9, 
+   3.796989579447874*^9, 3.796989818272702*^9, 3.7971418063455067`*^9, 
+   3.797155375071735*^9, 3.7999799918797703`*^9, 3.799980028905291*^9, 
+   3.799985593704941*^9, 3.7999858911192017`*^9, {3.799986746241802*^9, 
+   3.799986751563011*^9}},
+ CellLabel->
+  "Out[981]=",ExpressionUUID->"de0a5063-a855-4688-b3c7-aa8ccc3f7c91"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s221", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "q"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.794740703909091*^9, 3.7947407647339363`*^9}, {
+  3.799980040828689*^9, 3.79998005460297*^9}, {3.79998675748695*^9, 
+  3.7999867585101023`*^9}},
+ CellLabel->
+  "In[982]:=",ExpressionUUID->"5f84b267-e801-49e5-a26a-aa7b8f2dba95"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "3.87097218305317`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "3.87097218305317`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "3.8638242737289636`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "3.848578635004701`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "3.8258899461585365`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "3.8148290285005886`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "3.796410706663367`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "3.7869020020528503`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "3.7865651673487393`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "3.765720722235189`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "3.765720722954308`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "3.7496493153400388`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "3.7373409063613696`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "3.7373409166398424`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "3.71984820567022`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "3.7134569306005565`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "3.7081729873997196`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "3.7081733280252434`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "3.6999477340876754`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "3.6924477088405014`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "3.6890830290712984`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "3.6852943329236982`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.794740751478467*^9, 3.794740770898921*^9}, 
+   3.794801057366838*^9, 3.7960938148799*^9, 3.796095472515431*^9, 
+   3.796095519038693*^9, 3.796351533996167*^9, 3.7963515958709173`*^9, 
+   3.796353340290297*^9, 3.79635345273704*^9, 3.796355122666403*^9, 
+   3.796355928243629*^9, 3.796358597149925*^9, 3.796364670521929*^9, 
+   3.796364892603718*^9, 3.7963653841330957`*^9, 3.796366303548278*^9, 
+   3.796368247953843*^9, 3.7965410031612043`*^9, 3.796989584026602*^9, 
+   3.796989822356863*^9, 3.797141809453135*^9, 3.797155378058036*^9, 
+   3.799980055545562*^9, 3.799985594417185*^9, 3.799985892809627*^9, {
+   3.799986747442387*^9, 3.799986759567278*^9}},
+ CellLabel->
+  "Out[982]=",ExpressionUUID->"9833adf8-acd4-4b90-ae27-bbbed5f210c4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s210", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "q"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7947407820817757`*^9, 3.794740785655655*^9}, {
+  3.79998005813335*^9, 3.7999800622345324`*^9}, {3.799986761649642*^9, 
+  3.79998676390839*^9}},
+ CellLabel->
+  "In[983]:=",ExpressionUUID->"7782f120-3890-4451-b240-76c4a914d8df"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.534933433193718`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.534933433193718`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.521684964437402`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.493454585486543`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.451920456005269`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.431861509584508`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.399130654167433`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.382486547343817`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.38191922189549`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.346615114987578`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.346615117154377`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.320721232336485`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "11.302025859442296`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "11.302025890525242`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "11.277676266538109`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "11.269618698939208`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "11.263415115457713`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "11.263416150093013`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "11.25471284146021`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "11.247944467557282`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "11.245310595658513`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "11.242684839518102`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.7947407900405817`*^9, 3.7948010614731827`*^9, 
+  3.7960938190434227`*^9, 3.796095476995696*^9, 3.796095523699634*^9, 
+  3.796351538184474*^9, 3.796351600061676*^9, 3.796353344569454*^9, 
+  3.7963534570555153`*^9, 3.796355126913034*^9, 3.796355932661337*^9, 
+  3.7963586012960463`*^9, 3.796364674464299*^9, 3.7963648966512003`*^9, 
+  3.7963653883113947`*^9, 3.796366307383951*^9, 3.796368252753808*^9, 
+  3.7965410079292917`*^9, 3.796989826579771*^9, 3.7971418126093073`*^9, 
+  3.7971553810820017`*^9, 3.7999800654341288`*^9, 3.799985595435975*^9, 
+  3.7999858935591927`*^9, 3.799986771760776*^9},
+ CellLabel->
+  "Out[983]=",ExpressionUUID->"04144f92-c3bd-4568-96d1-c9638ec362c7"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s330", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", "q"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.794740792367635*^9, 3.794740794905818*^9}, {
+  3.79998006791229*^9, 3.79998007090163*^9}, {3.799986765081772*^9, 
+  3.79998676973652*^9}},
+ CellLabel->
+  "In[984]:=",ExpressionUUID->"c5c64f18-24b7-4cda-b8dd-97ab873abb42"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.404446541119015`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.404446541119015`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.380457534276509`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.329313039874023`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.253263373114036`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.216320713214856`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.155078165021894`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.123723119568096`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.122611519257465`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.054791583903596`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.054791586014668`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.003823718156761`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "10.965959319732713`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "10.965959349891403`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "10.914739458745203`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "10.897050852785362`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "10.882960547264442`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "10.882961546951933`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "10.862177883702191`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "10.844695823627738`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "10.83738321745869`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "10.829593882830057`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.794740799049288*^9, 3.794801065687785*^9, 
+  3.796093823171913*^9, 3.7960954813395023`*^9, 3.796095528084818*^9, 
+  3.7963515424403753`*^9, 3.79635160451299*^9, 3.796353348901816*^9, 
+  3.7963534614983797`*^9, 3.796355131682665*^9, 3.796355937051557*^9, 
+  3.7963586055708*^9, 3.796364678512995*^9, 3.796364900952342*^9, 
+  3.796365392582574*^9, 3.796366311475421*^9, 3.796368257920642*^9, 
+  3.796541013061915*^9, 3.796989831125989*^9, 3.797141815677129*^9, 
+  3.797155384389577*^9, 3.799980071985878*^9, 3.799985596210967*^9, 
+  3.799985894223411*^9, 3.799986772514078*^9},
+ CellLabel->
+  "Out[984]=",ExpressionUUID->"3f1fa4da-a857-40c1-86a6-6ec7d3b0b2a8"]
+}, Open  ]],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit2210nl", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2210n"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"10", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"10", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit2210n1l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2210n1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"10", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"10", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit2210n2l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2210n2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"10", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"10", "/", "\[Tau]s221"}]}], "]"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.794740623226969*^9, 3.794740690688939*^9}, {
+   3.7947408403654757`*^9, 3.7947409142898693`*^9}, {3.79474094593311*^9, 
+   3.794741008209072*^9}, {3.794741040566061*^9, 3.794741179616662*^9}, 
+   3.794741361199581*^9, {3.794741401963407*^9, 3.7947414172583323`*^9}, {
+   3.7947414876820927`*^9, 3.794741489648302*^9}, {3.7948010562259083`*^9, 
+   3.794801060839869*^9}},
+ CellLabel->
+  "In[985]:=",ExpressionUUID->"3858514b-521a-4afd-89be-b9503151e8a7"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit2215nl", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2215n"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"5", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit2215n1l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2215n1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"5", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit2215n2l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit2215n2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"5", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.794740623226969*^9, 3.794740690688939*^9}, {
+   3.7947408403654757`*^9, 3.7947409142898693`*^9}, {3.79474094593311*^9, 
+   3.794741008209072*^9}, {3.794741040566061*^9, 3.794741179616662*^9}, 
+   3.794741361199581*^9, {3.794741401963407*^9, 3.7947414172583323`*^9}, {
+   3.794741465823144*^9, 3.794741530942257*^9}, {3.794801062419286*^9, 
+   3.794801066672921*^9}},
+ CellLabel->
+  "In[988]:=",ExpressionUUID->"efd3046f-f669-48e3-ad53-7b55ea7b94f7"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit22110nl", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22110n"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"0", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"0", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit22110n1l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22110n1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"0", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"0", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit22110n2l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22110n2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{"0", "/", "\[Tau]s220"}], "-", 
+      RowBox[{"0", "/", "\[Tau]s221"}]}], "]"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.794740623226969*^9, 3.794740690688939*^9}, {
+   3.7947408403654757`*^9, 3.7947409142898693`*^9}, {3.79474094593311*^9, 
+   3.794741008209072*^9}, {3.794741040566061*^9, 3.794741179616662*^9}, 
+   3.794741361199581*^9, {3.794741401963407*^9, 3.7947414172583323`*^9}, {
+   3.794741465823144*^9, 3.794741530942257*^9}, {3.794741574631534*^9, 
+   3.7947416137880707`*^9}, {3.794801071126253*^9, 3.7948010754105997`*^9}},
+ CellLabel->
+  "In[991]:=",ExpressionUUID->"f3c54faa-9fbc-4c95-8a74-f9ad4e0efb6e"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"fit22115nl", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22115n"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "5"}], "/", "\[Tau]s220"}], "+", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit22115n1l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22115n1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "5"}], "/", "\[Tau]s220"}], "+", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"fit22115n2l", "=", 
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "fit22115n2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"qq", ",", "q"}], "}"}]}], "]"}], "*", 
+    RowBox[{"Exp", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"-", "5"}], "/", "\[Tau]s220"}], "+", 
+      RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.794740623226969*^9, 3.794740690688939*^9}, {
+   3.7947408403654757`*^9, 3.7947409142898693`*^9}, {3.79474094593311*^9, 
+   3.794741008209072*^9}, {3.794741040566061*^9, 3.794741179616662*^9}, 
+   3.794741361199581*^9, {3.794741401963407*^9, 3.7947414172583323`*^9}, {
+   3.794741465823144*^9, 3.794741530942257*^9}, {3.794741574631534*^9, 
+   3.7947416137880707`*^9}, {3.7947416635434103`*^9, 3.794741714234016*^9}, {
+   3.794742021838956*^9, 3.794742041478424*^9}, {3.7947420793462753`*^9, 
+   3.7947420930057707`*^9}, {3.7947421333617477`*^9, 3.794742143679381*^9}, {
+   3.7947422004439907`*^9, 3.794742209998784*^9}, {3.794801077214052*^9, 
+   3.794801123333086*^9}, {3.796095483696147*^9, 3.7960955006672497`*^9}, {
+   3.7963515736670847`*^9, 3.7963515833443813`*^9}},
+ CellLabel->
+  "In[994]:=",ExpressionUUID->"9ea9cd48-e509-46cf-ab99-2d5d2f84f16a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s220", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"datafit2210", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.794740771124654*^9, 3.794740773320465*^9}, {
+  3.794801479678195*^9, 3.794801482901183*^9}, {3.799986784333333*^9, 
+  3.799986788348378*^9}},
+ CellLabel->
+  "In[997]:=",ExpressionUUID->"124baf1d-7248-49d9-be51-cd9fe219e64e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.705708429094248`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.705708429094248`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.68595939908131`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.644161484639591`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.583010876575191`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.553723601071642`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.505986374058672`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.481879522944965`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.481040638271772`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.429944551034275`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.429944553216988`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.392488561527617`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "11.365277725151671`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "11.36527775640857`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "11.329331709600144`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "11.317159058553056`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "11.307573476315104`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "11.307574515006706`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "11.293611489044597`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "11.28200431990269`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "11.27716904435945`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "11.272023317084908`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.794740777688059*^9, 3.794801053389469*^9, 3.794801486089349*^9, 
+   3.796093823525178*^9, 3.79609548467345*^9, 3.796095531695334*^9, 
+   3.7963515466307173`*^9, 3.7963516079565897`*^9, 3.796353352115224*^9, 
+   3.7963534214759073`*^9, 3.796353464929982*^9, 3.796355135115097*^9, 
+   3.796355940334964*^9, 3.79635860922652*^9, 3.7963646886360064`*^9, 
+   3.796364905386113*^9, {3.7963649629189672`*^9, 3.796364971333742*^9}, 
+   3.796365397117504*^9, 3.796366315758564*^9, 3.7963682632120543`*^9, 
+   3.796541643762537*^9, 3.796989584711684*^9, 3.79714182272534*^9, 
+   3.797155388040717*^9, 3.7999800915408154`*^9, 3.79998560257996*^9, 
+   3.799985899796803*^9, 3.799986789875444*^9},
+ CellLabel->
+  "Out[997]=",ExpressionUUID->"8802193e-84e7-4d2c-86d4-97ba30ef0ee4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s221", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"datafit2210", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.794740703909091*^9, 3.7947407647339363`*^9}, {
+  3.794801490986203*^9, 3.794801491183319*^9}, {3.799986792399934*^9, 
+  3.799986795298099*^9}},
+ CellLabel->
+  "In[998]:=",ExpressionUUID->"ba28cb1e-71b2-46e9-a8f5-af007a0418f7"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "3.87097218305317`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "3.87097218305317`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "3.8638242737289636`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "3.848578635004701`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "3.8258899461585365`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "3.8148290285005886`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "3.796410706663367`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "3.7869020020528503`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "3.7865651673487393`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "3.765720722235189`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "3.765720722954308`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "3.7496493153400388`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "3.7373409063613696`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "3.7373409166398424`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "3.71984820567022`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "3.7134569306005565`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "3.7081729873997196`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "3.7081733280252434`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "3.6999477340876754`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "3.6924477088405014`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "3.6890830290712984`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "3.6852943329236982`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{{3.794740751478467*^9, 3.794740770898921*^9}, 
+   3.794801057366838*^9, 3.794801494800131*^9, 3.796093823695422*^9, 
+   3.7960954879103727`*^9, 3.796095535171124*^9, 3.796351549756728*^9, 
+   3.796351611008257*^9, 3.796353355294963*^9, 3.796353418537532*^9, 
+   3.796353468201161*^9, 3.7963551382765617`*^9, 3.7963559435773287`*^9, 
+   3.79635861232423*^9, 3.7963646927225313`*^9, 3.796364909692878*^9, {
+   3.796364966964097*^9, 3.7963649755841007`*^9}, 3.79636540132099*^9, 
+   3.796366320398041*^9, 3.79636826818493*^9, 3.796541647814171*^9, 
+   3.7969895849445963`*^9, 3.79714182581424*^9, 3.797155391072012*^9, 
+   3.799980095055502*^9, 3.799985605704238*^9, 3.799985903404079*^9, 
+   3.7999867960344687`*^9},
+ CellLabel->
+  "Out[998]=",ExpressionUUID->"32db8507-ebf6-4d06-890d-f6797415f804"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s210", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"datafit210", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.7947407820817757`*^9, 3.794740785655655*^9}, {
+  3.794801496539307*^9, 3.794801498084038*^9}, {3.7999867982893753`*^9, 
+  3.799986800406598*^9}},
+ CellLabel->
+  "In[999]:=",ExpressionUUID->"265bba19-b12b-4d73-85ce-a38bc8f2b0c3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.534933433193718`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.534933433193718`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.521684964437402`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.493454585486543`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.451920456005269`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.431861509584508`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.399130654167433`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.382486547343817`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.38191922189549`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.346615114987578`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.346615117154377`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.320721232336485`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "11.302025859442296`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "11.302025890525242`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "11.277676266538109`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "11.269618698939208`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "11.263415115457713`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "11.263416150093013`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "11.25471284146021`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "11.247944467557282`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "11.245310595658513`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "11.242684839518102`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.796541650789179*^9, 3.7971418302053213`*^9, 
+  3.797155393416109*^9, 3.7999800986427*^9, 3.79998560879522*^9, 
+  3.799985907106627*^9, 3.799986801620553*^9},
+ CellLabel->
+  "Out[999]=",ExpressionUUID->"ad83f233-2ad8-4a70-bd18-55e383e127ac"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Tau]s330", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"i", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"i", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0", 
+         ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], "[", 
+       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"datafit330", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.794740792367635*^9, 3.794740794905818*^9}, {
+   3.794801525740571*^9, 3.794801527922221*^9}, 3.7963534038303013`*^9, {
+   3.799986802650872*^9, 3.799986802924514*^9}},
+ CellLabel->
+  "In[1000]:=",ExpressionUUID->"eb27c548-a120-457b-beee-05fc95b2db3a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "11.404446541119015`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "11.404446541119015`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "11.380457534276509`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "11.329313039874023`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "11.253263373114036`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "11.216320713214856`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "11.155078165021894`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "11.123723119568096`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "11.122611519257465`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "11.054791583903596`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "11.054791586014668`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "11.003823718156761`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "10.965959319732713`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "10.965959349891403`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "10.914739458745203`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "10.897050852785362`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "10.882960547264442`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "10.882961546951933`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "10.862177883702191`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "10.844695823627738`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "10.83738321745869`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "10.829593882830057`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.794740799049288*^9, 3.794801065687785*^9, 
+  3.794801531229196*^9, 3.796093824033101*^9, 3.796095494755734*^9, 
+  3.7960955419140587`*^9, 3.796351556046629*^9, 3.7963516172583847`*^9, 
+  3.796353361805744*^9, 3.796353474878195*^9, 3.7963551446958027`*^9, 
+  3.796355950017016*^9, 3.796358619055585*^9, 3.7965416541495733`*^9, 
+  3.7971418328033133`*^9, 3.797155395845401*^9, 3.799980102258803*^9, 
+  3.799985612052413*^9, 3.799985910661438*^9, 3.7999868053463173`*^9},
+ CellLabel->
+  "Out[1000]=",ExpressionUUID->"2e72181e-2cf9-48bd-869a-a1167a73e122"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"dat2210nl", "=", 
+  RowBox[{"datafit2210", "*", 
+   RowBox[{"Exp", "[", 
+    RowBox[{
+     RowBox[{"10", "/", "\[Tau]s220"}], "-", 
+     RowBox[{"10", "/", "\[Tau]s221"}]}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"dat2215nl", "=", 
+  RowBox[{"datafit2215", "*", 
+   RowBox[{"Exp", "[", 
+    RowBox[{
+     RowBox[{"5", "/", "\[Tau]s220"}], "-", 
+     RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"dat22110nl", "=", 
+  RowBox[{"datafit22110", "*", 
+   RowBox[{"Exp", "[", 
+    RowBox[{
+     RowBox[{"0", "/", "\[Tau]s220"}], "-", 
+     RowBox[{"0", "/", "\[Tau]s221"}]}], "]"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"dat22115nl", "=", 
+  RowBox[{"datafit22115", "*", 
+   RowBox[{"Exp", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "5"}], "/", "\[Tau]s220"}], "+", 
+     RowBox[{"5", "/", "\[Tau]s221"}]}], "]"}]}]}]}], "Input",
+ CellChangeTimes->{{3.7948012766491823`*^9, 3.794801309308028*^9}, {
+  3.794801398261097*^9, 3.794801448936879*^9}, {3.794801537379305*^9, 
+  3.794801593445278*^9}, {3.7948017896664543`*^9, 3.7948018539789867`*^9}, {
+  3.7948021535502*^9, 3.794802155281291*^9}, {3.794802198201548*^9, 
+  3.794802213050602*^9}, {3.794802935326926*^9, 3.794802940758478*^9}, {
+  3.796095574651032*^9, 3.796095578279642*^9}, {3.7963515998581142`*^9, 
+  3.796351601582595*^9}, {3.796353511099839*^9, 3.796353515030636*^9}},
+ CellLabel->
+  "In[1001]:=",ExpressionUUID->"2afbd1e5-9043-474b-b354-f73ae9642d30"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "0.21533400514046436`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "0.2157753545210254`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "0.2179287051037406`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "0.21350380453958048`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "0.20139093886457354`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "0.19647797774678413`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "0.19312971067286874`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "0.18615629198478112`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "0.1897429660349297`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "0.18315886014415356`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "0.18243361447335296`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "0.1741882070100638`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "0.1718555167606385`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "0.16993866842168498`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "0.16501967615813748`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "0.16410031431934463`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "0.16045261355089802`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "0.15939816802530118`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "0.15487447663147358`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "0.15443683725266213`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "0.1520466913725836`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "0.15067197528103637`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.796353515463435*^9, 3.796355144771343*^9, 3.796355950081484*^9, 
+   3.7963586193871717`*^9, 3.796364710334447*^9, {3.796364909754327*^9, 
+   3.796364916842414*^9}, {3.796364949383461*^9, 3.7963649809363947`*^9}, 
+   3.796365034320675*^9, 3.796365401576619*^9, {3.796368272830104*^9, 
+   3.796368300018908*^9}, 3.796541663724739*^9, 3.7965418234297953`*^9, {
+   3.796541891916925*^9, 3.796541897879994*^9}, 3.7971418336871023`*^9, {
+   3.7971418784893703`*^9, 3.7971418853058643`*^9}, {3.797155396585215*^9, 
+   3.7971553998782187`*^9}, {3.797155430371147*^9, 3.797155434621421*^9}, 
+   3.799980102432411*^9, 3.799980340820086*^9, 3.799985612154217*^9, 
+   3.799985910750876*^9, 3.7999868060742273`*^9},
+ CellLabel->
+  "Out[1001]=",ExpressionUUID->"0a7a6462-4ca5-4587-be52-bb38e0c4359e"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "0.3630105020402845`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "0.3656065095577049`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "0.3731752156974227`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "0.3658621025573093`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "0.3398638361596573`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "0.33022173312971326`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "0.327171164162732`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "0.3122032862832158`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "0.320724383470667`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "0.31084569129186973`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "0.30869648465797883`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "0.2925300887152761`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "0.29126361167979964`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "0.2861793232318903`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "0.2811145589083332`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "0.2811923411005328`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "0.2732307936233202`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "0.27066409779654227`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "0.26298840196139645`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "0.2651505417204521`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "0.2611020479213573`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "0.25940293407086384`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.796353515463435*^9, 3.796355144771343*^9, 3.796355950081484*^9, 
+   3.7963586193871717`*^9, 3.796364710334447*^9, {3.796364909754327*^9, 
+   3.796364916842414*^9}, {3.796364949383461*^9, 3.7963649809363947`*^9}, 
+   3.796365034320675*^9, 3.796365401576619*^9, {3.796368272830104*^9, 
+   3.796368300018908*^9}, 3.796541663724739*^9, 3.7965418234297953`*^9, {
+   3.796541891916925*^9, 3.796541897879994*^9}, 3.7971418336871023`*^9, {
+   3.7971418784893703`*^9, 3.7971418853058643`*^9}, {3.797155396585215*^9, 
+   3.7971553998782187`*^9}, {3.797155430371147*^9, 3.797155434621421*^9}, 
+   3.799980102432411*^9, 3.799980340820086*^9, 3.799985612154217*^9, 
+   3.799985910750876*^9, 3.7999868060784597`*^9},
+ CellLabel->
+  "Out[1002]=",ExpressionUUID->"c5cc6e2a-3f92-4676-8e61-137e908ee958"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "0.5148065025912374`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "0.5226226502645059`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "0.5404434007244692`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "0.5313036360204406`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "0.4824466156405045`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "0.46672116265531555`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "0.4647579940526159`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "0.4411829779677718`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "0.4531528355178102`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "0.4411650450230516`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "0.4363234502699749`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "0.4100526011201961`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "0.41139853117039327`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "0.40091535293211034`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "0.4003768382533508`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "0.40121610210819747`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "0.3851927512205913`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "0.3835956240053831`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "0.37411738033546604`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "0.3800921122676579`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "0.3730122469353979`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "0.37360138133499793`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.796353515463435*^9, 3.796355144771343*^9, 3.796355950081484*^9, 
+   3.7963586193871717`*^9, 3.796364710334447*^9, {3.796364909754327*^9, 
+   3.796364916842414*^9}, {3.796364949383461*^9, 3.7963649809363947`*^9}, 
+   3.796365034320675*^9, 3.796365401576619*^9, {3.796368272830104*^9, 
+   3.796368300018908*^9}, 3.796541663724739*^9, 3.7965418234297953`*^9, {
+   3.796541891916925*^9, 3.796541897879994*^9}, 3.7971418336871023`*^9, {
+   3.7971418784893703`*^9, 3.7971418853058643`*^9}, {3.797155396585215*^9, 
+   3.7971553998782187`*^9}, {3.797155430371147*^9, 3.797155434621421*^9}, 
+   3.799980102432411*^9, 3.799980340820086*^9, 3.799985612154217*^9, 
+   3.799985910750876*^9, 3.799986806082418*^9},
+ CellLabel->
+  "Out[1003]=",ExpressionUUID->"d1f7d6c7-6a11-4732-8ad4-25f4ae65027f"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1.0000000000219882`", ",", "0.6502182419851318`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.00000000065748`", ",", "0.6421244624849789`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.2499999999563618`", ",", "0.6618432785220254`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.50000000135873`", ",", "0.6515627377140817`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1.8319999939041451`", ",", "0.5829644001172892`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.000000008168811`", ",", "0.5556262913556868`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.316250021748751`", ",", "0.5571128375321701`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.499999999443726`", ",", "0.5281860509247873`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2.507499950534875`", ",", "0.5444793642576656`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000003832885`", ",", "0.5330298429671126`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.0000000231065527`", ",", "0.521616730902526`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.5000000002660014`", ",", "0.49677126316758613`"}], "}"}], ",", 
+   
+   RowBox[{"{", 
+    RowBox[{"3.9999994979214204`", ",", "0.4903080291192145`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3.999999999948023`", ",", "0.47716696513743445`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.000000001639428`", ",", "0.4743074303470225`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.499999996466635`", ",", "0.4772668222377106`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5.9999655587359095`", ",", "0.4497577392987323`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.000000135581913`", ",", "0.45993623040474`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7.00000000009168`", ",", "0.44350332377584784`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.267499999941885`", ",", "0.4552275315048826`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.000000002972772`", ",", "0.44459742349152304`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9.999999991187163`", ",", "0.43969465790956325`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.796353515463435*^9, 3.796355144771343*^9, 3.796355950081484*^9, 
+   3.7963586193871717`*^9, 3.796364710334447*^9, {3.796364909754327*^9, 
+   3.796364916842414*^9}, {3.796364949383461*^9, 3.7963649809363947`*^9}, 
+   3.796365034320675*^9, 3.796365401576619*^9, {3.796368272830104*^9, 
+   3.796368300018908*^9}, 3.796541663724739*^9, 3.7965418234297953`*^9, {
+   3.796541891916925*^9, 3.796541897879994*^9}, 3.7971418336871023`*^9, {
+   3.7971418784893703`*^9, 3.7971418853058643`*^9}, {3.797155396585215*^9, 
+   3.7971553998782187`*^9}, {3.797155430371147*^9, 3.797155434621421*^9}, 
+   3.799980102432411*^9, 3.799980340820086*^9, 3.799985612154217*^9, 
+   3.799985910750876*^9, 3.799986806086505*^9},
+ CellLabel->
+  "Out[1004]=",ExpressionUUID->"3d0c18cb-01df-4ec1-809c-50fd73f58a36"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lp", "=", 
+  RowBox[{"ListLinePlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "fit2210nl", ",", "fit2210n1l", ",", "fit2210n2l", ",", "fit2215nl", ",",
+       "fit2215n1l", ",", "fit2215n2l", ",", "fit22110nl", ",", "fit22110n1l",
+       ",", "fit22110n2l", ",", "fit22115nl", ",", "fit22115n1l", ",", 
+      "fit22115n2l"}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0.9", ",", "10"}], "}"}], ",", "All"}], "}"}]}], ",", 
+    RowBox[{"Epilog", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"Point", "@", 
+         RowBox[{"Delete", "[", 
+          RowBox[{"dat2210nl", ",", 
+           RowBox[{"{", 
+            RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+        RowBox[{"Point", "@", 
+         RowBox[{"Delete", "[", 
+          RowBox[{"dat2215nl", ",", 
+           RowBox[{"{", 
+            RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+        RowBox[{"Point", "@", 
+         RowBox[{"Delete", "[", 
+          RowBox[{"dat22110nl", ",", 
+           RowBox[{"{", 
+            RowBox[{"{", "6", "}"}], "}"}]}], "]"}]}], ",", 
+        RowBox[{"Point", "@", 
+         RowBox[{"Delete", "[", 
+          RowBox[{"dat22115nl", ",", 
+           RowBox[{"{", "6", "}"}]}], "]"}]}]}], "}"}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "2", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "3", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((0  M)\)]\)\>\"", 
+           ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((5  M)\)]\)\>\"",
+            ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  \
+M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((15  \
+M)\)]\)\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.53", ",", "1.0001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", 
+       "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  M)\)]\)\>\""}], 
+      "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "18"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Full"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Filling", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"2", "\[Rule]", 
+        RowBox[{"{", "3", "}"}]}], ",", 
+       RowBox[{"5", "\[Rule]", 
+        RowBox[{"{", "6", "}"}]}], ",", 
+       RowBox[{"8", "\[Rule]", 
+        RowBox[{"{", "9", "}"}]}], ",", 
+       RowBox[{"11", "\[Rule]", 
+        RowBox[{"{", "12", "}"}]}]}], "}"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.7947410160091877`*^9, 3.7947410239235086`*^9}, {
+   3.794741426483552*^9, 3.794741432185439*^9}, {3.794741535564074*^9, 
+   3.7947415437061357`*^9}, {3.794741621865055*^9, 3.794741629271822*^9}, {
+   3.794741719075218*^9, 3.7947417244412823`*^9}, {3.794741929467761*^9, 
+   3.794741933070195*^9}, {3.7947422331157293`*^9, 3.794742280021819*^9}, {
+   3.79480122264674*^9, 3.794801240838851*^9}, {3.7948015997818947`*^9, 
+   3.7948016091834707`*^9}, {3.796095609490797*^9, 3.796095632305777*^9}, {
+   3.796352089263582*^9, 3.7963522824485273`*^9}, {3.7963523338573*^9, 
+   3.796352336316349*^9}, {3.796353689977161*^9, 3.7963536901764812`*^9}, {
+   3.7963548592900267`*^9, 3.7963548792615*^9}, {3.796355169000761*^9, 
+   3.7963553310060453`*^9}, {3.796355382338575*^9, 3.796355466090371*^9}, {
+   3.796355533872466*^9, 3.796355593370831*^9}, {3.796355639449*^9, 
+   3.7963556628031683`*^9}, {3.796355960567835*^9, 3.79635598129248*^9}, {
+   3.7963595884773293`*^9, 3.796359603010645*^9}, {3.7963609084577007`*^9, 
+   3.796360960840322*^9}, {3.7963610617904463`*^9, 3.796361152419511*^9}, {
+   3.79636178843499*^9, 3.796361797840274*^9}, {3.796364780854542*^9, 
+   3.796364810635416*^9}, 3.796365062206192*^9, {3.7963654136194487`*^9, 
+   3.7963654140765533`*^9}, {3.7963658892615433`*^9, 3.796365890067733*^9}, {
+   3.796369010344881*^9, 3.796369103764317*^9}, {3.796541711091057*^9, 
+   3.796541756103416*^9}, {3.7971418941667624`*^9, 3.7971418944670677`*^9}, {
+   3.7971554555446787`*^9, 3.797155455727824*^9}},
+ CellLabel->
+  "In[1005]:=",ExpressionUUID->"a18592dc-afc9-4b9d-9e96-8f2b72bbdee4"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
+1:eJzt2Pk31H0fx/FKrqIs2SvZKiWKEJPoO9JUihYi2a6rEqFCSpmrRcYS0SRd
+pRJFabdH953LbiSSkWU0ixkjdOtGydJVzD3fOef7/vwF92/zyzjP82XmeJzX
+cY63/sEQl8OzZsyYoSx+wb+2Rs8Uv45gqkWWjT6ZjRhtzWpJPxohS3rXjCmR
+SDSKRfs/jPFjNGJzf/cRP5/ECkSrjntrNWJFJ6rWd++awrqSYjH5GW+xzBda
++BuSt5MtLy2jNmB7jPw1c+NnkXdQ+u6l3HmDjfd8Eb+fDNlx6L87J1a9wV4Z
+uhh4K80mTw0cki81fIOFGSuIf3wuWbgiXnjdtB47NLxQBu+YvDWSZiyVEz+f
+T37kJvDWDWNg2iXpZSKREpm3Okbv39w6rNlqWoS33K3hxXhvW6Ut/n41clJL
+aBBPrg5b6FQjfq5O/mVDPhn7uha7fyNvclykSY7eMUu9P7IWo29dKP4ALfIk
+di6qT9zWqfivo03WvVVqs16lFvPhXKkeu6RHTvwYGuNQWIOZJywUPzcgqxzo
+o36Jq8F8nYrF77+UrClyLut2q8EI37kh32RkrJAv9lR2Nt6Eb1xRRKuKP/Ll
+pDf3Pah+C771Ce4/MqobwNdKlq7V7IB8k26SucpByDfz4o0w1o968KWPuz5L
+G6sH3+acAR3mNAN85c5flTThm16ii13ZhHxztQcYlELkS7W/UI034asalFd/
+oKcWfIUU7Zy6VORb2ury6sxu5Hv5VLwW3oSvzesm6sueGvDtzKoYWhWJfLl/
+FY3s2YZ8Dww46FkpI1/tiYhrr+Y2ga+i9VlJE77UhW1WJYZN4Bt7MH5M9Tja
+7yC9OPaUHdqvz59dE9R85Dtn9LKfyjvkO+JJMdHwRvsNZIcHtu9D+514vPyx
+xx9ov9P8pkd4E77537Oo+ZnIVwHTo66RY4Dv7ZHfT+FN+M62NlfwWov2q2Lm
+t4kiRL5OtQVhbtnI108+fGBvNvKddTrrnzJ7tF9bFYNF3oPIl2KyUDa+Dvk2
+qXt4JNxBvuuXN+Vu8+wE39RBnqQJX98sdeHZyk7w/X7GuFtzUSf47k6/b7V2
+fgf4GpImyjzp7eBb0pdcHVDXBr5D03uX7DjYBr5p6YuUknzbwDfqSUlr4eUP
+4Hv7HydJE760Vbf6nw+3gm9Y8lhMO7UVfBsGvl3AG/ZbxRvb2cUE35Nq5to3
+Mpngu/vYdlP1UCb4qvTZ3lMTN+E74Xk56KkhE3wjR5dcSe9tAV8B7aNLYH0L
++MoOnSjrymkBX3ZfvHHjhw7wLb2VLWnC901y9i1XCvI1H91vpfW8A3wV6YXs
+r2Xt4Jsp1zBT0RH5ajjUOC6IRb7P424WOhkg35N65YIkHeR7iJZg17oD+QYE
+60ma8F09adEYVIh8z7aEp1LtkW/8phdX8CZ8v82hmQw/QL4rw/z9aoOQb3CQ
+Ef0rCfmapwV8HSEh32sN6w9v6W8BX7dDnqEOaci3GpM7lh6OfFu91CLPOSLf
+m4eUzRl8tN8Qu0WSJnxHS+JNcjawwLdk+le85iW039QnV1NCvdB+c/2Xn3nU
+jnzdEz02lMu2g6/paZVLjlnIt0zrtO3lDOSb8V4YkNqIfJsTIiVN+HZ5T8sM
+m3wAX//tpyPMipHvPDopDG/C14JqU5Gr0Aq+FaVTHwLakK9laPB70iPkO2qh
+sgtvwtfrCydE0R/t9y5N8GzMjAm+M988I1ktZoKvTRRTtG42E3w76pYZOt7n
+g+/AuI2kCd/78WYJExYC8PXT6oyufswH3zWMYrWrtG7wzXPZ4RVcxAPfV6pm
+w7RgLvhW2xoxnr/noL8PboMebxs44OvGzPx1NJENvvIhbT/xJnwjv7hsuPP0
+I/j2aAaHGs37CL5nfC8E4E345mxQ+yy07QLfQVf3jO4JFvhm8w0qV1axwNfn
+tE/PCnETviYWeSZVoSzwFdlVOrivZoGvWq2hkLSABb4ym+KOWI52gu8vi8tl
+oqXI1/zlE0kTvnJv7djyVXzw7W1bm1Zhj3w/vpSnuw7xwLc9pXbmizXIdyN9
+p3PkVw74Jn9e/GzaDfmmtHXrae1Gvj4NiZXOysi3il9ZgTfhO72uct60JfIN
+pvAdn6d3ge9vgqP2eBO+DLOkiKhOFvi+OkIJC0lBvko/z4cquiPf9P0VEQru
+yHdyVO6Ay1gn+J7TD9niltYJvvJ7KlujjnWC79/e791u2iLfgn3l9Gs6AvC9
+S2qSNOG7nrLUujcH7VfodfZYnZIAfO2DTZ395/PBN1G1tdiI1A2+FmkLUq58
+QvudpFsJPB254JvRMX71rAMXfJ27iklJszng6zrVb4034TuW9SmIpMcG3/3/
+GbuRE4n2O8BOScab8I3bku61NQvtVwcLaNzl2wW+JAZDycGkC3y1//rpvEnc
+hO8fJ/ZOmn5B+432XGC/rxrtV8c6eXSkGO3XcYXdn8wnLPC11NI+P1TaC74e
++eaSJnyf6kVv9130CXzPfLIZk93cC76C2KyLbfJC8K0xt24Oju4BX5234UqO
+uQLwdY6Q33N7uwB8TWflD7RsEYBvXoYzbepPPvjevVcQjTfh+3qFT/1iXjf4
+Tpmcszil0Q2+qn1Ry/EmfF1XH63ZqsEDX8rtdfq7qrjgq3H/N6rteS74VtpM
+KW8QN+Gryr6X6KrNBV+Td+/er2jkgO/gj9LJ/Ccc8O3nmepsj+OAr+GLch1d
+WeT72UAgacK3f1X+5nkRveCryVx60SZfCL7L3J16dTN7wFdV5sbxvQbIV7/D
+SpHuhnyn+cvUx7/ywXfjxBGllUN88KW1fd6caIB8i9R3SRr+f7P1PZhkhnz7
+DpO/PQ3jga99lrAXb8LXy/h6iTuVC779PYzkE/rIVzM3qty/nQO+hh9jlx8W
+N+H7OPFnnJ0HB3xNWYOyz3ls8CUnz2jdncMG34cbv+s8O8wGXwdaJPfvoE/g
+W2sXI2nCN1hj7+6CcrRf1o89gcxOtN+7Lyd1EiLQfsMPslbTepDv4vJ8ZZk5
+PeB7d95I0sZstF99hYmqyEy0X/aRgqrQduQbZ6wmacI3UG7NjXYKH3w1vv/r
+JPYa7VdopOOPN+G7zXRzC6kQ7ffhngfFxgd4yPd60jqVFTzw9b5z8peyuAnf
+88ZbrgTy0X6NqvNuZZdywTfNP0R3wQsu+K68ELzkcw4Xk94fpPcH6f1Ben+Q
+3h+k9wfp/UF6f5DeH6T3B+n9QXp/kN4fpPcH6f1Ben/4f98f/gdGaXKu
+         
+         "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[
+             PolygonBox[{{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
+              36, 37, 38, 39, 40, 41, 42, 43, 44, 66, 65, 64, 63, 62, 61, 60, 
+              59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 
+              45}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[
+             PolygonBox[{{89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
+              101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 132, 131, 130,
+               129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 
+              117, 116, 115, 114, 113, 112, 
+              111}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[
+             PolygonBox[{{155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
+              165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 198,
+               197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 
+              185, 184, 183, 182, 181, 180, 179, 178, 
+              177}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[
+             PolygonBox[{{221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 
+              231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 264,
+               263, 262, 261, 260, 259, 258, 257, 256, 255, 254, 253, 252, 
+              251, 250, 249, 248, 247, 246, 245, 244, 
+              243}}]]}, {}, {}, {}}, {{}, {}, {}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 
+             16, 17, 18, 19, 20, 21, 22}]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
+             37, 38, 39, 40, 41, 42, 43, 44}]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 
+             59, 60, 61, 62, 63, 64, 65, 66}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], LineBox[{67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
+              80, 81, 82, 83, 84, 85, 86, 87, 88}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
+             102, 103, 104, 105, 106, 107, 108, 109, 110}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 
+             122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], LineBox[{133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 
+             143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 
+             166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 
+             188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], LineBox[{199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 
+             209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 
+             232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}], 
+            LineBox[{243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 
+             254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264}]}}, {
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}}, {
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{
+             Small, Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}}, {
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{Small, Small}]}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
+             NCache[
+              Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
+            1.6], Dashing[{
+             Small, Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{0.9, 0},
+      DisplayFunction->Identity,
+      Epilog->{{
+         PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sLc79LRPYMJp+2Y9XTB/6trKu23zTtv7
+M/z9////Z/v0u4urxJ6etueIjwXK/7DPv86xUzzktP3mooOW9/3/2tdpCi7R
+PX7SPlAzTXxdO5PD7ldz8it3nLD/9ugNUD+zg045k+aPy8ftd6gFKcXwszgE
+8j2Kqfc8YV+ozQs0j8PhW4Tqw/2Fx+2T30syg/gvg98K/4k8bn9MmRMoz+MQ
+2GQ17Yz3MXuZbXP2/P/P72D7mH9CzP+j9ufM/v0H8a+ZzLzfc+CovYeWDFC9
+iMP9m6oJsfJH7SV9DgPlRR3yXiw0tWU8ar9w2vof3/6LO5QoPhTe1nnEvt9d
+EmiBhEMhY/R+jfQj9uaTQeEh49DBzO/29tJh+9g7fYe+dig4WCosE5t25LC9
+UackUF7JQam5RNyl7LB9nM8WoPnKDgp7FZQtPA/bAwBu+ZJc
+          "]], 
+         PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sNdom542wfq6fbOeLph/LqjghkTadXt/
+hr//////bN/qccxH6tF1e474WKD8D/uJoqEPPbKu228uOmh53/+vfUFbpH3I
+gav2gZpp4uvamRzOVk8Miv9wxf7bozdA/cwOcyYK1Sn/vmy/Qy1IKYafxSEh
+qGnC/rYr9oXavEDzOBw23+sJfvrksn3ye0lmEL/uYP2zdQcv2x9T5gTK8zjM
+M+KQv7Djkr3Mtjl7/v/nd/CqW60osOSS/Tmzf/9B/BcLW0QOB1yy99CSAaoX
+cYg2tXl9/O9Fe0mfw0B5UYcrqVaafP8v2i+ctv7Ht//iDu2XtzPNrblo3+8u
+CbRAwkHWmL+pP+iivflkUHjIOOhuyvQ7e+WCfeydvkNfOxQcWvV9f1n+uGBv
+1CkJlFdy0MzSj3269YJ9nM8WoPnKDvwdUw7zzbpgDwBAvJYO
+          "]], 
+         PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37QM008XXtTA4X1zgEzNh31/7bozdA/cwO0lLV7eE2d+x3qAUpxfCzOFy/
+r3GghOGufaE2L9A8Doe9pxQCeIDyye8lmUH8CacjDHe+uW1/TJkTKM/jcPzO
+HWdfu1v2Mtvm7Pn/n99B6Yt9Y1TILftzZv/+g/g9G4PvzVhx095DSwaoXsSB
+4cN0nWPzb9pL+hwGyos6uOz29m1be9N+4bT1P779F3eIbfGs/7/shn2/uyTQ
+AgkHw6r/K6703LA3nwwKDxkHmz+RbF0fr9vH3uk79LVDweEw36u7ucE37I06
+JYHySg7LRNIO5d2/bh/nswVovrJD7IElR0RfXrcHAGy0mN0=
+          "]], 
+         PointBox[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sBe9Pqlm2rkn9s16umD+vi2nZnr0PLH3
+Z/j7////z/ZZ3V1fLuo+teeIjwXK/7D3PWYhOevmE/vNRQct7/v/tS/sVf+6
+ZPkj+0DNNPF17UwOj2x0fO9dfmj/7dEboH5mh5o5d/OePXtgv0MtSCmGn8Uh
+fc2tP/E5D+0LtXmB5nE4TN33auYUvof2ye8lmUH8hbs4JolufGB/TJkTKM/j
+cC/PcpPk6fv2Mtvm7Pn/n99hsULTW5PE+/bnzP79B/ELz9T7P++8Z++hJQNU
+L+Jw4VhqL2/0PXtJn8NAeVEHyRY7la7ue/YLp63/8e2/uMM/n6j1V07cse93
+lwRaIOHgHvc1bkb+XXvzyaDwkHEINrt0ODrpjn3snb5DXzsUHCZEMK8oUrpr
+b9QpCZRXcmjnLjrgUXLHPs5nC9B8ZYfuxX/4vyrfsQcAi2Cbfg==
+          "]]}},
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((10  \
+M)\\)]\\)\"", TraditionalForm], None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+      GridLines->
+       FrontEndValueCache[{
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 
+          6}]& }, {{{2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}}, {{0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.15, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.05, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.05, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.15, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.25, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.35, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.45, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.55, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.65, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.75, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 18],
+      Method->{
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}},
+      PlotLabel->None,
+      PlotRange->{{0.9, 10}, {0, 0.6795279091754315}},
+      PlotRangeClipping->True,
+      PlotRangePadding->{{0, 0}, {
+         Scaled[0.02], 
+         Scaled[0.05]}},
+      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((0  \
+M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((5  \
+M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((10  M)\\)]\\)\
+\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((15  M)\\)]\\)\
+\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 18], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "90"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
+               ",", #8, ",", #9, ",", #10}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               
+               RowBox[{
+                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
+                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
+                 "True", ",", "True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "18"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.0001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{0.9, 0},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 221\\), \\((10  \
+M)\\)]\\)\"", TraditionalForm], None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 18],
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{0, 0}, {
+      Scaled[0.02], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, 
+      GraphicsComplex[CompressedData["
+1:eJzt2Pk31H0fx/FKrqIs2SvZKiWKEJPoO9JUihYi2a6rEqFCSpmrRcYS0SRd
+pRJFabdH953LbiSSkWU0ixkjdOtGydJVzD3fOef7/vwF92/zyzjP82XmeJzX
+cY63/sEQl8OzZsyYoSx+wb+2Rs8Uv45gqkWWjT6ZjRhtzWpJPxohS3rXjCmR
+SDSKRfs/jPFjNGJzf/cRP5/ECkSrjntrNWJFJ6rWd++awrqSYjH5GW+xzBda
++BuSt5MtLy2jNmB7jPw1c+NnkXdQ+u6l3HmDjfd8Eb+fDNlx6L87J1a9wV4Z
+uhh4K80mTw0cki81fIOFGSuIf3wuWbgiXnjdtB47NLxQBu+YvDWSZiyVEz+f
+T37kJvDWDWNg2iXpZSKREpm3Okbv39w6rNlqWoS33K3hxXhvW6Ut/n41clJL
+aBBPrg5b6FQjfq5O/mVDPhn7uha7fyNvclykSY7eMUu9P7IWo29dKP4ALfIk
+di6qT9zWqfivo03WvVVqs16lFvPhXKkeu6RHTvwYGuNQWIOZJywUPzcgqxzo
+o36Jq8F8nYrF77+UrClyLut2q8EI37kh32RkrJAv9lR2Nt6Eb1xRRKuKP/Ll
+pDf3Pah+C771Ce4/MqobwNdKlq7V7IB8k26SucpByDfz4o0w1o968KWPuz5L
+G6sH3+acAR3mNAN85c5flTThm16ii13ZhHxztQcYlELkS7W/UI034asalFd/
+oKcWfIUU7Zy6VORb2ury6sxu5Hv5VLwW3oSvzesm6sueGvDtzKoYWhWJfLl/
+FY3s2YZ8Dww46FkpI1/tiYhrr+Y2ga+i9VlJE77UhW1WJYZN4Bt7MH5M9Tja
+7yC9OPaUHdqvz59dE9R85Dtn9LKfyjvkO+JJMdHwRvsNZIcHtu9D+514vPyx
+xx9ov9P8pkd4E77537Oo+ZnIVwHTo66RY4Dv7ZHfT+FN+M62NlfwWov2q2Lm
+t4kiRL5OtQVhbtnI108+fGBvNvKddTrrnzJ7tF9bFYNF3oPIl2KyUDa+Dvk2
+qXt4JNxBvuuXN+Vu8+wE39RBnqQJX98sdeHZyk7w/X7GuFtzUSf47k6/b7V2
+fgf4GpImyjzp7eBb0pdcHVDXBr5D03uX7DjYBr5p6YuUknzbwDfqSUlr4eUP
+4Hv7HydJE760Vbf6nw+3gm9Y8lhMO7UVfBsGvl3AG/ZbxRvb2cUE35Nq5to3
+Mpngu/vYdlP1UCb4qvTZ3lMTN+E74Xk56KkhE3wjR5dcSe9tAV8B7aNLYH0L
++MoOnSjrymkBX3ZfvHHjhw7wLb2VLWnC901y9i1XCvI1H91vpfW8A3wV6YXs
+r2Xt4Jsp1zBT0RH5ajjUOC6IRb7P424WOhkg35N65YIkHeR7iJZg17oD+QYE
+60ma8F09adEYVIh8z7aEp1LtkW/8phdX8CZ8v82hmQw/QL4rw/z9aoOQb3CQ
+Ef0rCfmapwV8HSEh32sN6w9v6W8BX7dDnqEOaci3GpM7lh6OfFu91CLPOSLf
+m4eUzRl8tN8Qu0WSJnxHS+JNcjawwLdk+le85iW039QnV1NCvdB+c/2Xn3nU
+jnzdEz02lMu2g6/paZVLjlnIt0zrtO3lDOSb8V4YkNqIfJsTIiVN+HZ5T8sM
+m3wAX//tpyPMipHvPDopDG/C14JqU5Gr0Aq+FaVTHwLakK9laPB70iPkO2qh
+sgtvwtfrCydE0R/t9y5N8GzMjAm+M988I1ktZoKvTRRTtG42E3w76pYZOt7n
+g+/AuI2kCd/78WYJExYC8PXT6oyufswH3zWMYrWrtG7wzXPZ4RVcxAPfV6pm
+w7RgLvhW2xoxnr/noL8PboMebxs44OvGzPx1NJENvvIhbT/xJnwjv7hsuPP0
+I/j2aAaHGs37CL5nfC8E4E345mxQ+yy07QLfQVf3jO4JFvhm8w0qV1axwNfn
+tE/PCnETviYWeSZVoSzwFdlVOrivZoGvWq2hkLSABb4ym+KOWI52gu8vi8tl
+oqXI1/zlE0kTvnJv7djyVXzw7W1bm1Zhj3w/vpSnuw7xwLc9pXbmizXIdyN9
+p3PkVw74Jn9e/GzaDfmmtHXrae1Gvj4NiZXOysi3il9ZgTfhO72uct60JfIN
+pvAdn6d3ge9vgqP2eBO+DLOkiKhOFvi+OkIJC0lBvko/z4cquiPf9P0VEQru
+yHdyVO6Ay1gn+J7TD9niltYJvvJ7KlujjnWC79/e791u2iLfgn3l9Gs6AvC9
+S2qSNOG7nrLUujcH7VfodfZYnZIAfO2DTZ395/PBN1G1tdiI1A2+FmkLUq58
+QvudpFsJPB254JvRMX71rAMXfJ27iklJszng6zrVb4034TuW9SmIpMcG3/3/
+GbuRE4n2O8BOScab8I3bku61NQvtVwcLaNzl2wW+JAZDycGkC3y1//rpvEnc
+hO8fJ/ZOmn5B+432XGC/rxrtV8c6eXSkGO3XcYXdn8wnLPC11NI+P1TaC74e
++eaSJnyf6kVv9130CXzPfLIZk93cC76C2KyLbfJC8K0xt24Oju4BX5234UqO
+uQLwdY6Q33N7uwB8TWflD7RsEYBvXoYzbepPPvjevVcQjTfh+3qFT/1iXjf4
+Tpmcszil0Q2+qn1Ry/EmfF1XH63ZqsEDX8rtdfq7qrjgq3H/N6rteS74VtpM
+KW8QN+Gryr6X6KrNBV+Td+/er2jkgO/gj9LJ/Ccc8O3nmepsj+OAr+GLch1d
+WeT72UAgacK3f1X+5nkRveCryVx60SZfCL7L3J16dTN7wFdV5sbxvQbIV7/D
+SpHuhnyn+cvUx7/ywXfjxBGllUN88KW1fd6caIB8i9R3SRr+f7P1PZhkhnz7
+DpO/PQ3jga99lrAXb8LXy/h6iTuVC779PYzkE/rIVzM3qty/nQO+hh9jlx8W
+N+H7OPFnnJ0HB3xNWYOyz3ls8CUnz2jdncMG34cbv+s8O8wGXwdaJPfvoE/g
+W2sXI2nCN1hj7+6CcrRf1o89gcxOtN+7Lyd1EiLQfsMPslbTepDv4vJ8ZZk5
+PeB7d95I0sZstF99hYmqyEy0X/aRgqrQduQbZ6wmacI3UG7NjXYKH3w1vv/r
+JPYa7VdopOOPN+G7zXRzC6kQ7ffhngfFxgd4yPd60jqVFTzw9b5z8peyuAnf
+88ZbrgTy0X6NqvNuZZdywTfNP0R3wQsu+K68ELzkcw4Xk94fpPcH6f1Ben+Q
+3h+k9wfp/UF6f5DeH6T3B+n9QXp/kN4fpPcH6f1Ben/4f98f/gdGaXKu
+       
+       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
+             37, 38, 39, 40, 41, 42, 43, 44, 66, 65, 64, 63, 62, 61, 60, 59, 
+             58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 
+             45}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
+             102, 103, 104, 105, 106, 107, 108, 109, 110, 132, 131, 130, 129, 
+             128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 
+             115, 114, 113, 112, 
+             111}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 
+             166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 198, 197, 
+             196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 
+             183, 182, 181, 180, 179, 178, 
+             177}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 
+             232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 264, 263, 
+             262, 261, 260, 259, 258, 257, 256, 255, 254, 253, 252, 251, 250, 
+             249, 248, 247, 246, 245, 244, 
+             243}}]}]}, {}, {}, {}}, {{}, {}, {}, {
+          Hue[0.67, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798]], 
+          
+          Line[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
+            19, 20, 21, 22}]}, {
+          Hue[0.9060679774997897, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
+           38, 39, 40, 41, 42, 43, 44}]}, {
+          Hue[0.1421359549995791, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 
+           60, 61, 62, 63, 64, 65, 66}]}, {
+          Hue[0.37820393249936934`, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          
+          Line[{67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 
+           82, 83, 84, 85, 86, 87, 88}]}, {
+          Hue[0.6142719099991583, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
+           103, 104, 105, 106, 107, 108, 109, 110}]}, {
+          Hue[0.8503398874989481, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]], 
+          Line[{111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
+           123, 124, 125, 126, 127, 128, 129, 130, 131, 132}]}, {
+          Hue[0.08640786499873876, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          
+          Line[{133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
+           145, 146, 147, 148, 149, 150, 151, 152, 153, 154}]}, {
+          Hue[0.3224758424985268, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 
+           167, 168, 169, 170, 171, 172, 173, 174, 175, 176}]}, {
+          Hue[0.5585438199983166, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 
+           189, 190, 191, 192, 193, 194, 195, 196, 197, 198}]}, {
+          Hue[0.7946117974981064, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179]], 
+          
+          Line[{199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 
+           211, 212, 213, 214, 215, 216, 217, 218, 219, 220}]}, {
+          Hue[0.030679774997896203`, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 
+           233, 234, 235, 236, 237, 238, 239, 240, 241, 242}]}, {
+          Hue[0.266747752497686, 0.6, 0.6], 
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]], 
+          
+          Line[{243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 
+           255, 256, 257, 258, 259, 260, 261, 262, 263, 264}]}}, {{
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]]}}, {{
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           
+           Dashing[{
+            Small, Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}}, {{
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Dashing[{Small, Small}]]}, {
+          Directive[
+           PointSize[
+            Rational[1, 90]], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           
+           Dashing[{
+            Small, Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
+     DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
+      GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {0.9, 0}, DisplayFunction :> Identity, Epilog -> {{
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sLc79LRPYMJp+2Y9XTB/6trKu23zTtv7
+M/z9////Z/v0u4urxJ6etueIjwXK/7DPv86xUzzktP3mooOW9/3/2tdpCi7R
+PX7SPlAzTXxdO5PD7ldz8it3nLD/9ugNUD+zg045k+aPy8ftd6gFKcXwszgE
+8j2Kqfc8YV+ozQs0j8PhW4Tqw/2Fx+2T30syg/gvg98K/4k8bn9MmRMoz+MQ
+2GQ17Yz3MXuZbXP2/P/P72D7mH9CzP+j9ufM/v0H8a+ZzLzfc+CovYeWDFC9
+iMP9m6oJsfJH7SV9DgPlRR3yXiw0tWU8ar9w2vof3/6LO5QoPhTe1nnEvt9d
+EmiBhEMhY/R+jfQj9uaTQeEh49DBzO/29tJh+9g7fYe+dig4WCosE5t25LC9
+UackUF7JQam5RNyl7LB9nM8WoPnKDgp7FZQtPA/bAwBu+ZJc
+          "]], 
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sNdom542wfq6fbOeLph/LqjghkTadXt/
+hr//////bN/qccxH6tF1e474WKD8D/uJoqEPPbKu228uOmh53/+vfUFbpH3I
+gav2gZpp4uvamRzOVk8Miv9wxf7bozdA/cwOcyYK1Sn/vmy/Qy1IKYafxSEh
+qGnC/rYr9oXavEDzOBw23+sJfvrksn3ye0lmEL/uYP2zdQcv2x9T5gTK8zjM
+M+KQv7Djkr3Mtjl7/v/nd/CqW60osOSS/Tmzf/9B/BcLW0QOB1yy99CSAaoX
+cYg2tXl9/O9Fe0mfw0B5UYcrqVaafP8v2i+ctv7Ht//iDu2XtzPNrblo3+8u
+CbRAwkHWmL+pP+iivflkUHjIOOhuyvQ7e+WCfeydvkNfOxQcWvV9f1n+uGBv
+1CkJlFdy0MzSj3269YJ9nM8WoPnKDvwdUw7zzbpgDwBAvJYO
+          "]], 
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sI/a0VPjXfnAvllPF8x/IvtQKXjnA3t/
+hr//////bF+WnffV3/uhPUd8LFD+h31Py7zqAoaH9puLDlre9/9rX1LFfzT9
+wT37QM008XXtTA4X1zgEzNh31/7bozdA/cwO0lLV7eE2d+x3qAUpxfCzOFy/
+r3GghOGufaE2L9A8Doe9pxQCeIDyye8lmUH8CacjDHe+uW1/TJkTKM/jcPzO
+HWdfu1v2Mtvm7Pn/n99B6Yt9Y1TILftzZv/+g/g9G4PvzVhx095DSwaoXsSB
+4cN0nWPzb9pL+hwGyos6uOz29m1be9N+4bT1P779F3eIbfGs/7/shn2/uyTQ
+AgkHw6r/K6703LA3nwwKDxkHmz+RbF0fr9vH3uk79LVDweEw36u7ucE37I06
+JYHySg7LRNIO5d2/bh/nswVovrJD7IElR0RfXrcHAGy0mN0=
+          "]], 
+         Point[CompressedData["
+1:eJxTTMoPSmViYGAQBWIQfamJEUh+sBe9Pqlm2rkn9s16umD+vi2nZnr0PLH3
+Z/j7////z/ZZ3V1fLuo+teeIjwXK/7D3PWYhOevmE/vNRQct7/v/tS/sVf+6
+ZPkj+0DNNPF17UwOj2x0fO9dfmj/7dEboH5mh5o5d/OePXtgv0MtSCmGn8Uh
+fc2tP/E5D+0LtXmB5nE4TN33auYUvof2ye8lmUH8hbs4JolufGB/TJkTKM/j
+cC/PcpPk6fv2Mtvm7Pn/n99hsULTW5PE+/bnzP79B/ELz9T7P++8Z++hJQNU
+L+Jw4VhqL2/0PXtJn8NAeVEHyRY7la7ue/YLp63/8e2/uMM/n6j1V07cse93
+lwRaIOHgHvc1bkb+XXvzyaDwkHEINrt0ODrpjn3snb5DXzsUHCZEMK8oUrpr
+b9QpCZRXcmjnLjrgUXLHPs5nC9B8ZYfuxX/4vyrfsQcAi2Cbfg==
+          "]]}}, 
+      Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  M)\)]\)", None}, {
+        "q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 18], 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}}, 
+      PlotRange -> {{0.9, 10}, {0, 0.6795279091754315}}, PlotRangeClipping -> 
+      True, PlotRangePadding -> {{0, 0}, {
+         Scaled[0.02], 
+         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[
+          Rational[1, 90]], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]]}, {
+       "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((0  M)\)]\)", None, None,
+         "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((5  M)\)]\)", None, 
+        None, "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((10  M)\)]\)", 
+        None, None, 
+        "\!\(\*SubsuperscriptBox[\(A\), \(R, 221\), \((15  M)\)]\)"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
+         False, Automatic}, {False, Automatic}, {False, Automatic}, {
+         False, Automatic}, {False, Automatic}, {False, Automatic}}, 
+       Joined -> {
+        True, True, True, True, True, True, True, True, True, True, True, 
+         True}, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 18], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.0001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.7963556632505293`*^9, {3.7963559503031063`*^9, 3.796355981714513*^9}, 
+   3.796358619639656*^9, 3.796359604846414*^9, {3.79636091469956*^9, 
+   3.796360961447772*^9}, {3.796361067069727*^9, 3.796361153041625*^9}, 
+   3.796361800359098*^9, 3.7963647147688723`*^9, {3.796364787820303*^9, 
+   3.7963648111307383`*^9}, 3.796364910033362*^9, {3.796365036975852*^9, 
+   3.796365062637136*^9}, {3.796365401878475*^9, 3.7963654145291*^9}, 
+   3.7963683025239477`*^9, {3.796369013530219*^9, 3.796369104068836*^9}, 
+   3.796541688063259*^9, {3.796541721508047*^9, 3.796541756784769*^9}, 
+   3.796541900396283*^9, {3.79714188944748*^9, 3.797141895183079*^9}, {
+   3.797155435748555*^9, 3.797155456444024*^9}, 3.799980342435835*^9, 
+   3.799985612459578*^9, 3.799985910989339*^9, 3.799986807570794*^9},
+ CellLabel->
+  "Out[1005]=",ExpressionUUID->"dab1011c-88d6-4783-9d48-823cfb509efe"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<2toneAr_starttime_trans.pdf\>\""}], ",", 
+   "lp"}], "]"}]], "Input",
+ CellChangeTimes->{{3.794725716340115*^9, 3.794725735561653*^9}, {
+   3.7947423001081963`*^9, 3.794742301979048*^9}, 3.79474399303325*^9, {
+   3.799980361827598*^9, 3.799980365071836*^9}},
+ CellLabel->
+  "In[517]:=",ExpressionUUID->"6ae07d9a-d05d-44a2-8158-f638252911bb"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/2toneAr_starttime_\
+trans.pdf\"\>"], "Output",
+ CellChangeTimes->{
+  3.794725736573032*^9, 3.794725788738686*^9, 3.794740165048003*^9, 
+   3.794740462718883*^9, 3.79474230320823*^9, 3.794743993747551*^9, 
+   3.794802950945726*^9, 3.796095637564809*^9, 3.796355488448325*^9, 
+   3.796355600651658*^9, 3.7963556667400217`*^9, {3.796355988319203*^9, 
+   3.796356017277766*^9}, 3.796356125843184*^9, 3.796369107629156*^9, 
+   3.79654191403687*^9, 3.797141900910408*^9, 3.797155458161366*^9, 
+   3.799980366329817*^9, 3.799985614282729*^9},
+ CellLabel->
+  "Out[517]=",ExpressionUUID->"2852eccd-c265-4c4b-b095-806bf85f4077"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pl1", "=", 
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "fit2110n", ",", "fit2110n1", ",", "fit2110n2", ",", "fit2115n", ",", 
+       "fit3310n", ",", "fit3310n1", ",", "fit3310n2", ",", "fit3315n"}], 
+      "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"qq", ",", "1", ",", "10"}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+     RowBox[{"PlotStyle", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "2", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+     ",", 
+     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+     RowBox[{"PlotLegends", "\[Rule]", 
+      RowBox[{"Placed", "[", 
+       RowBox[{
+        RowBox[{"LineLegend", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{
+           "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 210\), \((10  \
+M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 210\), \((15  \
+M)\)]\)\>\"", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 330\), \((10  \
+M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(A\), \(R, 330\), \((15  \
+M)\)]\)\>\""}], "}"}], ",", 
+          RowBox[{"LegendLayout", "\[Rule]", 
+           RowBox[{"{", 
+            RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"0.53", ",", "1.001"}], "}"}]}], "]"}]}], ",", 
+     RowBox[{"FrameLabel", "->", 
+      RowBox[{"{", 
+       RowBox[{
+       "\"\<q\>\"", ",", "\"\<\!\(\*SubscriptBox[\(A\), \(R\)]\)\>\""}], 
+       "}"}]}], ",", 
+     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+     RowBox[{"FrameStyle", "->", 
+      RowBox[{"Directive", "[", 
+       RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+     RowBox[{"LabelStyle", "->", 
+      RowBox[{"Directive", "[", 
+       RowBox[{"Black", ",", "Bold", ",", "18"}], "]"}]}], ",", 
+     RowBox[{"GridLines", "\[Rule]", "Full"}], ",", 
+     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+     RowBox[{"Filling", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"2", "\[Rule]", 
+         RowBox[{"{", "3", "}"}]}], ",", 
+        RowBox[{"6", "\[Rule]", 
+         RowBox[{"{", "7", "}"}]}]}], "}"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pl", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Drop", "[", 
+        RowBox[{"datafit2110", ",", 
+         RowBox[{"{", "4", "}"}]}], "]"}], ",", 
+       RowBox[{"Drop", "[", 
+        RowBox[{"datafit2115", ",", 
+         RowBox[{"{", "4", "}"}]}], "]"}], ",", 
+       RowBox[{"Drop", "[", 
+        RowBox[{"datafit3310", ",", 
+         RowBox[{"{", "4", "}"}]}], "]"}], ",", 
+       RowBox[{"Delete", "[", 
+        RowBox[{"datafit3315", ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", "1", "}"}], ",", 
+           RowBox[{"{", "7", "}"}], ",", 
+           RowBox[{"{", "4", "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"-", "4"}], "}"}]}], "}"}]}], "]"}]}], "}"}], ",", 
+     RowBox[{"PlotStyle", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "2", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], ",", 
+     RowBox[{"PlotMarkers", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"pl", "=", 
+  RowBox[{"Show", "[", 
+   RowBox[{"pl1", ",", "pl"}], "]"}]}]}], "Input",
+ CellChangeTimes->{
+  3.790687525253502*^9, {3.790687557253933*^9, 3.790687626971509*^9}, {
+   3.794719124299356*^9, 3.794719146529956*^9}, {3.794719180837043*^9, 
+   3.7947191812895803`*^9}, {3.794719305404557*^9, 3.794719337912737*^9}, {
+   3.794721676616198*^9, 3.794721757729083*^9}, {3.794724859435648*^9, 
+   3.794724871790597*^9}, {3.794725118644602*^9, 3.794725128522792*^9}, {
+   3.794725191243411*^9, 3.794725307093557*^9}, {3.794725563587913*^9, 
+   3.7947255660669003`*^9}, {3.794725621167235*^9, 3.7947256582695427`*^9}, {
+   3.794725692370412*^9, 3.794725727205797*^9}, {3.79472578245535*^9, 
+   3.7947257864266376`*^9}, {3.794725889374425*^9, 3.794725902858295*^9}, {
+   3.794739474434404*^9, 3.7947395084574623`*^9}, 3.7947395603435717`*^9, {
+   3.794739686714759*^9, 3.7947397191384478`*^9}, {3.7947403874163218`*^9, 
+   3.794740387705484*^9}, {3.7947404250313663`*^9, 3.794740453903274*^9}, {
+   3.794744222356772*^9, 3.794744353459815*^9}, {3.79474439946644*^9, 
+   3.79474440456758*^9}, {3.794744645377489*^9, 3.794744722859313*^9}, {
+   3.794744758122776*^9, 3.794744821780858*^9}, {3.794744955065797*^9, 
+   3.7947450145192633`*^9}, {3.794745138271893*^9, 3.7947451494360533`*^9}, {
+   3.794745921578874*^9, 3.79474592686471*^9}, {3.794745958139057*^9, 
+   3.7947460040466757`*^9}, {3.795926735584828*^9, 3.795926750001438*^9}, {
+   3.795926840980708*^9, 3.795926881973667*^9}, {3.795926984285624*^9, 
+   3.795927057185601*^9}, {3.795927187424131*^9, 3.795927317963451*^9}, {
+   3.7959273653070593`*^9, 3.795927469071863*^9}, {3.796093853986225*^9, 
+   3.7960938586558657`*^9}, {3.796095688977612*^9, 3.79609569932408*^9}, {
+   3.7963537791482573`*^9, 3.7963538796906757`*^9}, {3.796353923335805*^9, 
+   3.796354047748303*^9}, {3.7963542856641607`*^9, 3.796354300985607*^9}, {
+   3.797141926660842*^9, 3.79714192682101*^9}, {3.797155474433301*^9, 
+   3.797155474534088*^9}, 3.7999804100318727`*^9},
+ CellLabel->
+  "In[1006]:=",ExpressionUUID->"ceb5819b-9acb-4bf7-9344-e7f0b597f51f"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{GraphicsComplexBox[CompressedData["
+1:eJxV2mkglO3bBnAJZSmK7Nmmoqi02OW6iUJCoiTFUzy0ECWPKKQsyUhlS5Kd
+JPtOGaLsu5lRtpAoyk6I1/uh6/T/0vLFjdHvOI9jEr9wzciakYGBoWfll///
+nT5+fB8Dwxha+ePLbZdt1fbvDtEJa51AQdq2W5tTYpD4P9aZ7APTaCwwsCLW
+Kx0VP2LafJ8yhzxr+9dOq+ei+A0sB6ICF5Dshl+mvySLkMT9oLiQZ0to4Hfe
+pgKOUpQ47+SjXcBABAw1dqfGliHvvYN9BzUYCc9NeUvfSt8jjgA/0YmKtYS9
+ctfvt68q0bD1E9PM3cyEU9fz1uuGHxFXiaVSTw4LMWPv+DxkrgqRH4Xyckqs
+J5QF1mRL2NSgLP8/rZx+rMTlA/OGp3JrkTjjTiUPDnbCI/pq93GWejQ4Uxwx
+5sxBCO4w7W/Y1YCmbbjjm5Y3EJ0ajqm7jRpRKkMk+e5dTiK+/rOjgGwTMmf/
+oBThxEWMStEChhKakJ9xNMNrhU3Ej8/FOdFbm5GFeVplyegmYtObJk0nn2Z0
+Njaqmzl7M+Gq/bpDcrwZSd9Ossl34iakq74nPDjZghJ4Bn5e2slDFIgHmvCn
+tCCtH4w1J0d5iLyg3LIcxlYU5GkSpxa/hfhdI9z1zbAVpb2ijDw+zUvwNO0b
+in/Wiia4NvoLC/IRPxVuk28PtKIv8o+2JzfyEV7zjFXVO9rQdMQEz5VgfiLj
+ZfvopittqOuJvVOoiQARzD7b8i6lDV3TEWkpZxUkkn2sKk3725CkWsa9HfWC
+RBDzj/iBre3If/zmgYf3hIhFB34WTqN2RFE0PmkqL0zsvP6eYLrXjoTf8Xw0
+nxMmyArBZz/ltiMSI6vShTdbicKugF+a/e3I4H7PUpSjCEHJy3Vx3ExFOyqH
+yzulRIklb53MVFUqanrGMevVKUrE6ekRt6yoyJDqhzIMxIjzZLr7JJmKNqIE
+r5cpYoTelT+1O7OpqPtD1rVdG8SJjOPfcyc6qCg8vC542E6ceBFk8Yu8REXJ
+OgxKO6vECSa90rc3RWmoRmC7L9MuCcJ1v7vvZ3Ua0qi+aGzpLUHEGBRca7Ok
+ofjytDNj3RIEzxbmyN3uNMT/+ft6YYJEyA+bh45F0lBfC6FQFUEieIzPqaUV
+0FClOvX38jKJuC/GlhpBpSHvR45vay+NI0uFoV0nwp6iXUfv3Gk+O4VkeVqP
+PZ1LRsb+D/mt6klEYl9644ePNJRGsZj9mjOGemuCXr3+dB/tUX5wMSdsElVV
+ot0hDgno+Z5BSd4cEjG4b7vKYQoNmZ+/dy9TZALJpmXHTTY9RxyDsqxZgyTC
+fkBNQamRhg53nOK5Ybby71OmxLkh5CbKOPCImiA3iRheBg+6hcahd55P915L
+IhHKD3xHXUtoaMzZNVqtYhxxmbM0rWkIQ7KK3Vzsn0hEwX677V61NDT09N6a
+M5Mkgj3nIsdICw0FWrfEKu0eQ55/hiUq5q2Ro+zmoCimSRRZbs/OEBeLmnZe
+zhaKIRFC7yMlQopoSHntzB7msHE0VibJ+awwBGl8yQnObyURX8ieaxOqaWhe
+1cybeZREJL+clOJupiHq99Q7qb9JxNdrTn3v22goW5rreyTvytczdsNNb+8p
+1JLWOiI4MoHadD0P35eMRWfcTabHX5AIkaq81phCGrKsPuBs6zmOHNjbudVT
+glGtXDSV3EQirM70s+dV0dC9x1ofPw+TiF65sRM7mmjIAoWXes2QiP1ZrAL0
+VhrSDy1ToS6SiCp7im16Ow192JhO1mdfef7+wklF3SOI0f6gUEfPBKLYndIz
+Go5BUVLHeM9FkgjBi582Sa08/3pqi4DgzXEkq661X008GHH1hszONZAIpHLe
+WW3l+VUqKkNHhkhEFy9nffrK6xU/TO4dnSIR3/pFhS6sPP8JkW+uvkAi8jwW
+3yitPJ9tpFbwyhKJaKx5v3n7ys/XKn+rxrZaY38ZutVPEbMvsb+UT6OMaclv
+sL+manQjPqcc7K+LfoWtyO1C7G/vmtoyEbd32F+ue2LpRyzBX2KkOHnZA/xN
+XcO4JHQZ/GVZY7zoywX+WlrzfL5bAP5KLb8c0ZUEfxN/1uwVdgZ/96t0OwlV
+1WF/C0TXqTWN1mN/q3hzemN4wd9kXzGdjdzgb+H7fVn3H4C/sS2Uj71rwF8p
+4bb/5K6Av6H+LqnGVPD3P5SntKAI/qoViLMmPQJ/ZU6dPqc61IL9dU6lOGjJ
+g78tjEkjhe7gr9XjgBcS1eAvh0bN3lE28Fc61naSrA/+aqcoaXmSwV+9tvUR
+ZyvBX+c692nW5TbsL9PxH/+a7Qd/x2JPNjpeAH/rotiOGgaDv7sIKm8jBfzN
+kc+KmvvZjv1VjGURIfjB38cb2ddvReDvEhvd76kN+HvEj9eC/hD8PSdVe+5F
+Jvi7NO9UrtIO/n46baCqPE3F/no+X0tK5AV/W9ZRxwoOgr/3W40KDpwAfxvk
+bm5nvQb+bj4/UTbyAPy1klJh/J4I/npO6KvxHXmM/aV4lVgUCiRhf+cWUmTI
+4eCvZ/ptVn0RL+xv75nmPPfoOOyv33CYr9ZjGvb2UFrByPuXq7ytaH578/l1
+7G3ToRc7d7fFYG859jzXe06mYV+LPOITdkWCr2nqe1jPxIGvDGJdMiw9F7Cv
+vYZedT7D0dhXv/zcxxUPadhThzsd18wjwFM1v9blwBjw9OzmdFaJhFWeCh/r
+Psh4Ensq672mc+l6NPY0nsmjju5Pw36Kn//zy+kZ+KlIDgh7FQ1+MgW6pRyK
+Bz93Xv26gyVxlZ+eG1M1eQ5jPxnsxmouK0RjP91MvzZeWHneXy/96ip41zwD
+L3vXO9fIR4OXp34IXKiNAy8vCPmJBSeAlw0hNcIuif/jpYtp3hXspVhsOiej
+WRz2MiiG7/2xtAzsZbLpr5wWzjzs5VCtgA6lFe7V3vHYf05Ewb26Xt9jI/dX
+8JIin2HctAxeHrxRMG0xDF72FfannAsCLwNcGs6+UqzGXmofuHBrPhG83OWy
+83rQFHjZwLxw1FMT7lVPmVd+9TZwr07Z73EpJIOX0dxhEduOg5figbdt9MrB
+y/1f82IslcDL+UP1m7JjwMvzLN0sC+wt2MtuQ9HN/Pbg5d6H8zEPKsBLopZ7
+x+6tcK+6Drvo+F8BL41flPQ/ygEvXbqv3KEug5fzWSqWiRrg5cEXGkMhvuBl
+39Ucyz8fwUsmJcqYyZp27GWq2mnjUlW4V2eCtRLeO4KXF9QPZIXGgZeGTVsd
+rGjgpbbb4aoiZir2sk6+0Oi7HNyrFZcCNAX+AS9z/cku7Q/Ay1LODqeTOeCl
+kf6Aotsn8HLtDdaN2ow07KXaDl3hXkka9nIPsRdl6sC96lQ994PLDrx0CIv4
++SsAvIw7le8h+Rq8jIzUXEevWXWv6lYVXfsGXsbzd5gcY6GDl7fv8j0cCsFe
+RicMK9jRUpD9XM6Xo0azyJbyLZL/Zjb206g65zrD7Co/B+N1WMN8sZ+UfWlx
+r4kkVCVDrt75fAbZakSHqfFnYU81XbN+Er/gniWYCuJYPkRhX6MFK++mLa3y
+NThxr2SQC/ZVliEgrsY0AU0dufU2As2gKoU3mZutM7G3lwZuBJr9gPu2N1lQ
+6eWtCOxv3le5hI55GhJMtv1kyrny9ZcXftyw/jH2+NKOZ5wejHTwuHOG34v3
+EvbY8uBZ3Vvm8YjN+JpC66YZFE2qi5Jiy8Q+pzXcy7YehvuX4OsX1FMOx16f
+iJIMG52jIauDA7aifSsfn4nvgfFIAPabJ5/bKIyBjv22r1cqtmaig98VkfxW
+5mew3w5cyymsnXEo1Oyy06/5aTQ0IHv6TGcG9vzZw5+fLg/BfcwQ6jDdwB2G
+fU82rpacXXk9H8yLZ3jVrnz8fx2chLT9sfc+3Sc54pbB+/PUMN/ra+nY+38d
+n6eYMtPB+96LKrs9dbD3nvYl9UrP41Bn17cnd35No+Ttso5mlRnY/0K7xpOj
+3+B+Jly0UqrcQ3EezLyabXdb+fwiuygnD1JWft48srTlxv1wPnzaltwotQz5
+4NK5vW1u5fX7mw/sAw4qPSvfv7/50LRcsr5l5fNdlQ+8V9JtcD5oNpZ8+X4J
+9ozerqJaMTvYM7Rd2CIEz8CeIRMoqrX5H8iHoElt+g0byAcisJNc2AX5IJKS
+Z/dmXQXOB4q/6yPRRcgHqdE1T/VeQz4I9p41MzwL+ZDBodK3rwnywc/cfksd
+qQ7ngytbKXP3LcgHNeNzb/xiIR+Sj6LMrnrIBzlFl6+J1yAfvIZb1vcOQj6s
+/eLyc9oC8iFwunvHaDXkg3anCFuJHORDEusedb5nkA8pKT7qLmOQD3uULpv2
+60A+jCqQSirDIR/89Cgzon2QD6HBPEFPd7fhfMhjyif96wD5sJ7JZn5/LuQD
+f6ynw+lpyIcXiUqnTfdAPrif33Hz2CXIh8OeZ7c0voB8cOFwL93SCPkg5BLN
+qcZIxflwINyMZ2wv5EOJkBfNygLyYWKWvK7nAeRD5r5m16+ZkA+xt6yeRnyG
+fOh80/Yv0xoazoerqb/erZGCfPBTcz5Srwf5cHqfvl+PHeSDS1FvgUMQ5EMI
+y1Lno3TIB5shBj+OesgHGfuEyckfkA/SbrUNzevoOB9a6qM1e7dDPsh+9hKW
+loY9w1Km3dfgA+wZAtG3Yxd46TgPxPSGNJiMYM8wbLjCE3QQ9oyJhzG3r3HS
+sf/RJMcgCSPYM2TLFW47i9Cx/xTRVwxZi07Yf1vpnBj907BnaKi7f4plp2Pv
+GYx7zDVOwZ6hwSMtVyxIx763rZty3y0BvntyVhJ1prBnCA8kuVRcgD3Dvdaw
+r4iVDnuGYLcB21HYM1Ib3k5/5qdjv4/dfe1tJAZ+P/41Z7tu2yq/zwRfLfYz
+wX7PcSf+MzgYA/e33frbH9bTsdeUQy/l3inDnvHUNfHnDz469jk2gDnOSpSO
+fRbzbAoRJIHPaWL+c5PbVvm8MWGrQYwW9vnqzYjRgGTYM5ocdfforTz/r8eW
+RKydRfZT7HFjvlzzjZXn//XX68b28NGV1+uvv5ZPPm2OlwB/B+L2F97ZBv6W
+LDJKXt7+P/6+c94K97mhyHFFQ4Mk7K+5/JDTjFke9rdXtuszLf0d9vc7X/hV
+/epy7G/UEXm2+PFK7K/RwrTAG6cq7O/vXJ71knU12F9j7zbFhqo67K83WXeR
+atuA/c3UZCraN9uI/Z0JL+Qsi27C/lp6hy7K7G/G/kYq9t3eT2nG/hrF6cj9
+UWjB/sYrm7D0vmnB/qoab2zi42vF/g7JhsgxO7Zif/t6so5l1rRif1PauvQ/
+8bVhf+cPRSlst27D/nLc/ON76nUb9lc+1TpWa6gN+xtEYjjxZXs79pf3TTEl
+6mw79jdYKuI2H7kd+5vyNVLmTmk79tdwJOhx/o927O801zbHLn4q9nddjHzR
+cw0q9tfH/U2/nQ0V+5vRbrv1EJmK/fWWk6nJTKNif7eIvwj8Wk/F/i5L7eAT
++An+xnOVpmax0bC/CrYHlA6tePnX36c81YcfatCwv4dPvXghf5aG/bXV0qTV
+OdGwvxt2vrqR+BD8Ja752ZrHgb/OzGIP4gvB3+NcPY/D6sFfq/iponN94K81
+7XgowzT425gcPvZs5d7+6y89Rc5sccWLv/4GRT0o89oJ/opkHLl6VAX8jVa6
+Y0AmhWN/g9pu5X0lMvF97nJRNUoopwh7LPQ7xsJtP3jM0Khs2e/thz3OmCq9
+rsn6Bt/nV3MbHWueFmCfnb815DPtoWOPg/z1+gflwWOGdx+E+rLhHqcMhHT4
+H0zB93i4c4zSPdd87HPjLcmdldJ07DHfjMW9rIPgsZl80H1+pVUeixxQ/FFt
+iz1WlLokuPw+Gd/bYqW3G31/5GGf/+TUG8bvomOPI3br64YdAI97bjqyMyiC
+x/TOYwayyqs8/o/Zr6TNFHtsK+O2S4YtGd/TTMecpK7H5WGfdWu5o7lXnvfX
+Y+N6uSusB8Bj8pIO+YYCeJxzOMMjXgk8Pqn532Sx8iqP9e1mlD9pY48dBPiN
+e1KT8L0cYKIkoO6Rh32e4/eXr135efnr8eLLxcvl+8HjmWMfD+1WAI8PcD3x
+Pa8EHoudbNjhrAwe18nr5K5R+R+POdhdzmGPPaUGGE7thntY8/BIkchiFva4
+btf3d0fLi7HH803SRveCyrDHlp1b/J4OVWCP5xMX9b57fcQez5Q0Jzv3V2OP
+bRvpDCJfarHHP2XWuW/1rMce64UwHu3fAB7nCJuw+MqAx4GNE+ObSpuwx2x+
+sw9n9cFj1//0Hk1UNWOP2c6a3HNRB4+D7mUrmq74/Nfj+cjQj4ms4PEyPaM4
+yRo8tpy7P5CY04o9DpxcfHVrLXicQl4ySNAFj/28eG4u+YLHhxWrDTwr27DH
+wz/F8+Ln27DHC3xG6lukwePd7epTg2fBY48Nci+1fMDjQA1pDrbMduzxzEjv
+GnF6O/Z4MXyDxKF5uIfPmls0fRUGjzf7rZ8nVMDjI6fP8B4/DR6XXGyanb8B
+HlMekkSVyavu4crL0VuS4B4W78g+PPIW7mHlgQtce1vhHvbmKAziHoZ7uNox
+fPnOIuwlS40hIXe5wGOvb8nb95HAY0+F3qiWA+BxskzvLzYt8FhgfcSCjTF4
+vMtEOpx2Ae5hmrojd4cj3MP+8eFPtDxgL7kQlXIxjrxqXz7WUHzA5hHK0PeW
+eCw5j1zmbf5tDy9F/drHfgjw/EHJewMvNhq+R+ZRIqkPGBkI+qJJHJPmB+xz
+x7mBfD8f2E8YhnezpYneQfK/NCPYnH6jucbNlz3y3yLN11Kc5icWUdC89oep
+m+XIrnfwjrHBMioYENTmjqjEXj9UXNYZ8YJ9Onhzwjoh/1X7iWpsgFHBFeRS
+uu3UUcHfaOACufGf0hLkZM4n/ufXAhpQdUoKYSpH2lnFXDenlhBdu2zsmEYl
+9tsgRkVZ8C7s1zTOLrGTfrBfiyzfdex9uGq/DihuODhuhiKSeHKsR+eQla/1
+BSf1EsSRuzHleOkCop7yyeivKUNyQjvMmD8uoQ8nlXLTtlRiz9m63inJesK+
+PVC8oGrvC/t23Y4u9iV/2LfJS0pK5QGr9+1cQQ8/XZTynKN/ijqHUgXMppkZ
+S5DpP/4/pxMX0NCkkE31mzKUavDZ/XjGEvL3Dp+VXa7Avo/zciwUecD+LX8r
+JnDBB/Zv/8kXLwL8YQ8ZUt106UQA7N8jP7j69pNX7d+UIvtJI2WUFeLnWlI7
+h1xYGlpk+4qRu0IVV03EAkrdINEh/bIMfRuWezwev4QUL15SGpyswN4LdbDr
+eXrAPt4WaShV7gP7uOe6CNpJf9g/QgoUJvgDYB+nWwc+mQ+AfdyTVCF5hfw/
++/j8jdIb2Hsunrxruo5vsPdXdw7saSgsxN47C9kuZjdQsPfU80y+AowV2Ht6
+xqmAnPkP2PtEg1+D1/6txt7Ppp22oeXUYu9VVZoc3DPqsfeCP8muQScasfes
+8168hEMT9l5+i4jAAk8z9l5WRXmddgLc3zLDdXZ2+1qw95KNRz6vS4L7W1XQ
+5MFRwVbs/eC2SzY0T7i/Wyuexl2kg/flgzmfi/a2Ye8nMuQLN7jB/X3RD1U2
+fQDvL5svlq7jaMfe97XnNQZot2PvP21UMNLwgfubuGJSG14C97eMUl++wC/w
+ftvMrBU3iYq9F6sdubfzBBV7b9YjTM3whPt7i0nAdd43cH9vsDqeENUG9zej
+wfXLwX/A+5k+gwgJCRr2vv97L4u7Jg17T/x0k1ewpWHvfULMlKX94P5OZ1ts
+tnoF9/daw+7Duz7C/X2sirZLrR/ub233xq0+DHTsvX5v4beGlX7+1/u7G91U
+FFbuzb/eXyKFjfAZ0rH3gsNd981t6Nh7EWFWnwwPOvY+PXHNvmchdOz9jUVm
+HfMUuL+p3PPRohS4v4PDXcdKW+H+ppf1Of0YgvubkvjAkqITDe8nniqgJSbn
+4Pu7QrV2b/+XtzgP7veKL2vdKsfemwVbrLPvhnvc0zi9a/bQY3yPm3t713s1
+Z8JePtZ+TaqrGOeBWHZ868vkMuz9+dCo7Vs7YD8xFb1CZO1JQjuMHcN+ik4j
+2aHqujjtfJwHDxin3mX1w/3uuSfKpb7yLuzp9zTecupn4Ps9uSP0alBjEc4L
+n8/LQ19Uy3Ae6Blx8ztQYW+x9XF/er8lDiUf/4+t9+0UCjbabvF7KRfnhXFn
+39dNX+DeD7aLCjMcXLWvq9xnitpwHd/7c5fDQi6xp+N7P9JH1P6tVhHOkwnd
+o8uCLGU4L0YDOm3422GfkeKqL1/kjkWXdOff0wOmkFXSvsGbJrk4T/RfRp+m
+9EA/GKtgZmf8Cv2AVHzOOurbqn6w17Qscv8F3A/GQn7aBKI03A8CHi3fYWMo
+wnnzSb+rwu07BedJrIeQ1tU22HMs8+3Cz8vGoJqqYjETpymkeOYUi+tyDs4b
+B/Gao3w90CcCWWdumw1An3DXNQidHYQ+kR/ZxaQ1tKpPRL4TdNcygj6Bbt4o
+or/BfWLuCHvyn85CnEcDEywLkZ0UnDctpuvFedtg/2nyC8l1eBuN5n2FDbht
+p5DhtE6MdFsOziOJuOQ35d3QPy4HTcWxDED/aLAZEY4fhP7xL7GxePwb9A9+
+3QaN8KH/6R/PPubCHjTkYGaWZwF70FUGLX+VfbAHEeyNo00GsAexlYQPHboL
+e9BYYofqh6ewBx1+9mLGkAX2oOl87m5XA9iDql4qOa5Rhz1Iq8zL/h0d+gfj
+1KFzQxbQP/656KZpbwT9Y6D7jn3xF+gf/1wo/jNkB/1jR1LtRuMB6B8vj5pm
+rjsD/eOdamubSRn0j6CtfdQwQcgj2TWigdk3oH9Iye8bu0mB/iHMfM/WfgPk
+0aDZz4//noT+QQryvLU/CPrH5LLb+/x66B9Xev6rvboW8kjxkgzHt4OQR0Ny
+2+6ctoH+kUFhY4t7Cv2jqE909AsF+sfSxDXxd9+hf4Sm/5HI4IQ8khkdv5Qg
+B3lkfb9AnzgN/UNzbV3oc2foH4Xp/1EXQqF/zDXL3aVkQ/9oK7T86toM/UPw
+RrXtzA/oH1GSOj0NTJBHdVnXr4SKwB50vvzT4Sg52IN4vu2+6HMc+sem2dNZ
+yxehf6juMbwu5gL9o4lXYoiPDP2j9s+c89BL6B8xmVYaaZnQP8wMKfZEBfSP
+F/ncvybaoH/0nXtCDA1C/2AIJ2WnW8EetGhh+3r9AdiD/M5SfGfsYQ/K+eA7
+tbZ71f83rFQP1R2CPWjunlYYnRn2INPi6KsW5rAHsXFPbr3bAf0icWk60q1v
+Vb9obxJq2nkL54nL0Q1lBSqwBynGXhSZ1oE96JuKgpMKDfpE47NhafVe6BMP
++Jr1sgdW9QkDG1ZHXXj/VXbqHd98I+xBVdM31lu/gz2o2tWWzEeF/vBJ9NSw
+RA/0B8/x/LqwfugPv+f7tzZ8XdUfhl89+2gG76/SbR5FXuKHPUi28HzTWhfY
+gzISlUy826EvJGUR3k+7oS9Ia1BrWPuhL3yQ3VdLfIW+sCP5j+bZwVV94YOb
+Dv9FeP80/C3r1YMlsAfd7jgTkWoMe9D3kUFJ1XboB69+3yo/1g39IE3JprC8
+D/pBwiaXTfMD0A8CsvryeAahH2yxVKiKWfn7/wGhPP4U
+          
+          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+            {RGBColor[0.560181, 0.691569, 0.194885], Opacity[0.2], EdgeForm[
+             None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwl0mdbz2EYBuCfVEb6EH2l3iHRH1EoJSuFREPL3kJSZjbJiIxkj6KI7JGs
+EiJyOnpxHtd9XM+r5z7umFBqbEpYEARDOM5oKtnKelZRShFj2EU5G1hNGcWM
+JY5xxDOeCSQQYiKTmEwiU5hKEslMYzozSCGVmaSRziwymM0c5jKP+WSygCyy
+WcgiFpPDEnJZyjLyyKeAQqrYxkbWsIISqtnOJtaykt3sYDPr2EMFW9jLTvax
+nCdEW2wYo/j5f88yis/mH8Hg4kfy1viRXv4yXPdcvuYDPfQTqW+Xj3lEG608
+5AEtNHOfe9zlDre5xU1ucJ1rNHGVRq5wmUtcpIELnKeec5zlDKep4xS1nORE
+MHhDxzjKEQ5ziIM84xWddPObCP+pkR285D1f+UW4twPyDV184w/D9E/lJ74z
+wAjdC/mOL/QxVLdf/gMjeXMI
+               
+               "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+            {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.2], EdgeForm[
+             None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwV0edbD1AYBuBfIRQlM0nDjsheUdkjMyGbCFnJTjb5t8hIITsK2TKyKYVw
+9+G+3vM853w41zkJOfmZu4IDgUAQZZyz6KoIoxV/5Aa+cp4SLtDNXgda0yz/
+5BsX6a7rSBv+yo185xI9dOGE8E9u4geXKeUKZZRzlWtcp4Ib3OQWt7nDXe5R
+yX0eUEU1D3nEY2p4wlOe8ZwXvOQVr6nlDW95x3vq+MBHPvGZKHePoG3Lw/FL
+V09P6060I4jfumgzkvYE04vOhBJDF3rzxdmF5lkOU0w+hZwhl5aPOsRpVrOJ
+nRzkFFmsYAPb2MdxFjCfeWQwlznMZhYzmcF0pjGVKaSTRiqTmUQKE5nAeMYx
+ljGMZhQjGcFwkhnGUJIYwmASGcRABtCffvSlD0vIZj157OUYCWSynHVsZQ9H
+iWcVG9nBAU6ymGWsZQsFHCGOleSwnf2cYBFLWcNmdlNELP8BZepfwQ==
+               
+               "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], 
+              LineBox[{1, 80, 72, 65, 59, 54, 51, 83, 75, 68, 62, 57, 2, 81, 
+               73, 66, 60, 55, 52, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 
+               15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
+                31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 
+               46, 47, 48, 49, 82, 74, 67, 61, 56, 53, 84, 76, 69, 63, 58, 85,
+                77, 70, 64, 86, 78, 71, 87, 79, 88, 50}]},
+             Annotation[#, "Charting`Private`Tag$477314#1"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], 
+              LineBox[{89, 164, 157, 151, 146, 142, 139, 90, 165, 158, 152, 
+               147, 143, 140, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
+               102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 
+               114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
+               126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 
+               166, 159, 153, 148, 144, 141, 167, 160, 154, 149, 145, 168, 
+               161, 155, 150, 169, 162, 156, 170, 163, 171, 138}]},
+             Annotation[#, "Charting`Private`Tag$477314#2"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
+1:eJwV0FVagkEUgOEfUexFsCWXwAJwYzZiIYqi2K0YqGB3YWKgrxfv8805czUT
+jbW3xUNBEMToIGyo6COXHNNo96tv3HNIvd2PvnDLOZ3U2n/qE1ecUKSLOndf
+WuaaU0p000MvfSToJ8kAgwwxzAgpRkkzxjgZJpgkyxTT5JhhljnmWWCRJZZZ
+YZU11tlgky3ybLPDLnsU2CfiPd/6zA1nHNFgX9VX7rig6f+TeZcHmp1DfDi3
+aA2tHJj/ANVISI0=
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#3"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNxtc6ggEAANC/FyiSZEXIXpVRGclqSYREZuWW979zLs73nVT/r/0bCoKg
+S1jeeeKWKhec8UWXexpcE+GDDi1qXFJmhFGijBFjnDgTJJhkimlmmCXJHPOk
+WGCRJdIss8Iqa6yzwSZbbLPDLhmy5NhjnwMOyVOgyBHHnHDKJ8/cUeeKc755
+oc0NFfq88kCTAT0eGfLGDyX+AZoGFig=
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#4"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], LineBox[CompressedData["
+1:eJwVzck2ggEAgNHfo3glO1sLRCQZE2lCUubKWOZZpZDx2VyLe863+3oHIn3j
+PUEQ9DMo3njmhjOOqTLEOw1uOeeEA4bp0uSOC045JMQIo4QZ438YYYIok8SY
+YpoZZpljnjgLJFhkiSTLpEiTIUuOFVZZI886BTYoUmKTLbbZYZc99inzQYt7
+LqlxxCcvPHBFnS/aPHLNNx2e+OGVXyr8AYvDNSg=
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#5"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
+1:eJwNzkdWQkEQBdD+mBVExBwGbokNcI4L0CWKCphzRjHnrBgx3sE9Xe9VDXpo
+eDQzEoUQsowZOmIhtFDDt/zGEznGmaDTLk4tP/I7z0zSpUtQx6/8QYU83bpW
+6vmTP3mhQJEppplhljnmWWCRJZZZYZU11tlgky222aHELnuU2eeAQ4445oRT
+zjjngkuuuOaGW+6454Eef0/SQKCqe6XX3EYjEV+6Pm+KJmL0004zA6QZ5NHt
+PxWqPOI=
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#6"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
+1:eJwNwwVSAkAAAMDTh6Bgd7ei2B3YgSImBtjd9W53ZzaaySdzBSGErJHCEJ69
+8NCUy8774a2nZtywyBcvPXLbFRf89M4z99y02FevPHbHVZNGffParGnXXDRm
+iaWWWW6FlVZZbY211llvg4022WyLrbbZboeddtltj732GbffARMOOuSwI446
+5rgTTjrltDPO+u6NJ+667pJf3nvuvlt++2DOA398NO+vT/455z+MxCSR
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#7"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw1k2AlAAANCnndhSf35bAMtAKGPIlMySWYYIyZA5QobYinvPua2xjmh7
+Swihzc5ICB8+eWPZEw/tsuGzVS8seWS3n9a8teKpReP22GufCZP2O+CgQw47
+YspRxxw37YSTTjntjBlnzTrnvAsuuuSyK66ac82862646Zbb7rjrngX3/fLF
+Oy8989hvX733ynN/rPvgtU3ffPTXd/888B/bikD6
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477314#8"]& ]}}], {}}, {{}, {{
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledCircle]", {0., 0.}],
+              "InsetString"], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+733ZT99PxJq16ynC+ZzeIabtsTm
+2Pkz/P3///9n+w6rm1kNh5faby46aHnf/699rFhLVYTDXvv5ayVABjg8WPaW
+uezKAftAzTTxde1MDtmGV00P6x2x//boDVA/s0N+uKbW9dtH7XeoBSnF8LM4
+nGOPiJsaccy+UJsXqJ3DYfb9FNP9Tqfsk99LMoP4+2Z8XXgt6ZT9MWVOoDyP
+Q2TC9wPer8/ay2ybs+f/f34H/yKXCfzBF+zPmf37D+JbCeztmmhwwd5DSwao
+XsTB63rJkuDwS/aSPoeB8qIOOxtk108Jumy/cNr6H9/+iztM+rzllWfAFft+
+d0mgBRIO0fyBvSLmV+zNJ4O8I+NglZPEW+l31T72Tt+hrx0KDu/Puy7gW3PN
+3qhTEiiv5MB0gzHstNt1+zifLUDzlR1ez70Q1yZwwx4AHieSkA==
+             "]]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledDiamond]", {0., 0.}],
+              "InsetString"], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+2MR/vIPVsfZNevpgvkvzep1JCPy
+7fwZ/v7///+zvRzj0Tte95faby46aHnf/6/92+B95nw9e+3nr5UAGeDAfO67
+XtS3A/aBmmni69qZHA6rXrLuaD5i/+3RG6B+ZofXmltfvxM8Zr9DLUgphp/F
+gfNEttC6GcfsC7V5gdo5HMp8li5UW3rKPvm9JDOInx/3qav49Cn7Y8qcQHke
+B58t/1b/TDlnL7Ntzp7///kdej99fms944L9ObN//0H8jLtXdmkVXbD30JIB
+qhdxaFz3yGfC6kv2kj6HgfKiDvzvXENal122Xzht/Y9v/8UdIia8yFBadcW+
+310SaIGEw8JXN5qC667Ym08GeUfG4djn1Znx86/ax97pO/S1Q8HhSLj6lpwP
+1+yNOiWB8koOP1yUQsS6r9vH+WwBmq/scPqFWmlXyA17ANQimcs=
+             "]]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledCircle]", {0., 0.}],
+              "InsetString"], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+2udXsELGKrsmvV0wfx92gf6GqcX
+2/kz/P3///9n+8+nNBIjOjbYby46aHnf/6/96/j5R9hVjtrPXysBMsDB0f/j
+n9JVx+0DNdPE17UzOZRap57co3Ha/tujN0D9zA6Gpztk/jaest+hFqQUw8/i
+kF+3YX7f5zP2hdq8QO0cDoVvJ+3O1r1gn/xekhnEP/N/jnfXkQv2x5Q5gfI8
+DkxVIrfkMi7by2ybs+f/f36H9o7JylvCLtufM/v3H8Q/O+P1JdGoy/YeWjJA
+9SIO4o2fhD+uvmIv6XMYKC/q0Kq0Iq/E5ar9wmnrf3z7L+6wyuXAxtN3rtr3
+u0sCLZBwmPXsvMc6zmv25pNB3pFxMDzVuyX59DX72Dt9h752KDhsqb/59331
+dXujTkmgvJLD6/W77F9fvW4f57MFaL6yQ+ms6+8N1W7YAwCROpwC
+             "]]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledDiamond]", {0., 0.}],
+              "InsetString"], {{{1.00000000065748, 2.128556209395272*^-8}}, {{
+             1.2499999999563618`, 0.06419257108134638}}, {{
+             1.8319999939041451`, 0.1634035335927857}}, {{2.000000008168811, 
+             0.1827615647277667}}, {{2.499999999443726, 
+             0.19305699549651475`}}, {{2.507499950534875, 
+             0.22772139779445355`}}, {{3.0000000003832885`, 
+             0.245186553672465}}, {{3.0000000231065527`, 
+             0.2604705146922689}}, {{3.5000000002660014`, 
+             0.2972073188876555}}, {{3.9999994979214204`, 
+             0.2985844241274795}}, {{3.999999999948023, 
+             0.29871584803362955`}}, {{5.000000001639428, 
+             0.3158525245300129}}, {{5.499999996466635, 
+             0.32685906845866564`}}, {{5.9999655587359095`, 
+             0.33931666715408304`}}, {{6.000000135581913, 
+             0.33858855928364334`}}, {{8.267499999941885, 
+             0.36180762984867093`}}, {{9.000000002972772, 
+             0.3655583974891561}}, {{9.999999991187163, 
+             0.37218427986120883`}}}]}}, {
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[
+            1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[
+            1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
+{}}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{Automatic, Automatic},
+      DisplayFunction->Identity,
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)\"", TraditionalForm], 
+         None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{
+         Automatic, {{0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {-0.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.08, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.06, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.04, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.02, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.02, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.04, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.06, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.08, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.12, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.14, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.16, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.18, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.22, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.24, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.26, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.28, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.32, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.34, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.36, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.38, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.42, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.44, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.46, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.48, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {8., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {10., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {10.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {12., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}}],
+      GridLines->
+       FrontEndValueCache[{
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 
+          6}]& }, {{{2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {12., 
+           Directive[
+            AbsoluteThickness[0.1]]}}, {{0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.08, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.06, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.04, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {-0.02, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.02, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.04, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.06, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.08, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.12, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.14, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.16, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.18, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.22, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.24, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.26, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.28, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.32, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.34, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.36, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.38, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.42, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.44, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.46, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.48, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImagePadding->All,
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 18],
+      Method->{
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True},
+      PlotLabel->None,
+      PlotRange->{All, All},
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}},
+      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 210\\), \\((10  \
+M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 210\\), \\((15  M)\\)]\\)\
+\"","\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 330\\), \\((10  M)\\)]\\)\"",
+       "None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(A\\), \\(R, 330\\), \\((15  M)\\)]\\)\
+\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 18], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
+               ",", #8}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "18"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{Automatic, Automatic},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 18],
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}, "AxesInFront" -> True},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{{
+       GraphicsComplex[CompressedData["
+1:eJxV2mkglO3bBnAJZSmK7Nmmoqi02OW6iUJCoiTFUzy0ECWPKKQsyUhlS5Kd
+JPtOGaLsu5lRtpAoyk6I1/uh6/T/0vLFjdHvOI9jEr9wzciakYGBoWfll///
+nT5+fB8Dwxha+ePLbZdt1fbvDtEJa51AQdq2W5tTYpD4P9aZ7APTaCwwsCLW
+Kx0VP2LafJ8yhzxr+9dOq+ei+A0sB6ICF5Dshl+mvySLkMT9oLiQZ0to4Hfe
+pgKOUpQ47+SjXcBABAw1dqfGliHvvYN9BzUYCc9NeUvfSt8jjgA/0YmKtYS9
+ctfvt68q0bD1E9PM3cyEU9fz1uuGHxFXiaVSTw4LMWPv+DxkrgqRH4Xyckqs
+J5QF1mRL2NSgLP8/rZx+rMTlA/OGp3JrkTjjTiUPDnbCI/pq93GWejQ4Uxwx
+5sxBCO4w7W/Y1YCmbbjjm5Y3EJ0ajqm7jRpRKkMk+e5dTiK+/rOjgGwTMmf/
+oBThxEWMStEChhKakJ9xNMNrhU3Ej8/FOdFbm5GFeVplyegmYtObJk0nn2Z0
+Njaqmzl7M+Gq/bpDcrwZSd9Ossl34iakq74nPDjZghJ4Bn5e2slDFIgHmvCn
+tCCtH4w1J0d5iLyg3LIcxlYU5GkSpxa/hfhdI9z1zbAVpb2ijDw+zUvwNO0b
+in/Wiia4NvoLC/IRPxVuk28PtKIv8o+2JzfyEV7zjFXVO9rQdMQEz5VgfiLj
+ZfvopittqOuJvVOoiQARzD7b8i6lDV3TEWkpZxUkkn2sKk3725CkWsa9HfWC
+RBDzj/iBre3If/zmgYf3hIhFB34WTqN2RFE0PmkqL0zsvP6eYLrXjoTf8Xw0
+nxMmyArBZz/ltiMSI6vShTdbicKugF+a/e3I4H7PUpSjCEHJy3Vx3ExFOyqH
+yzulRIklb53MVFUqanrGMevVKUrE6ekRt6yoyJDqhzIMxIjzZLr7JJmKNqIE
+r5cpYoTelT+1O7OpqPtD1rVdG8SJjOPfcyc6qCg8vC542E6ceBFk8Yu8REXJ
+OgxKO6vECSa90rc3RWmoRmC7L9MuCcJ1v7vvZ3Ua0qi+aGzpLUHEGBRca7Ok
+ofjytDNj3RIEzxbmyN3uNMT/+ft6YYJEyA+bh45F0lBfC6FQFUEieIzPqaUV
+0FClOvX38jKJuC/GlhpBpSHvR45vay+NI0uFoV0nwp6iXUfv3Gk+O4VkeVqP
+PZ1LRsb+D/mt6klEYl9644ePNJRGsZj9mjOGemuCXr3+dB/tUX5wMSdsElVV
+ot0hDgno+Z5BSd4cEjG4b7vKYQoNmZ+/dy9TZALJpmXHTTY9RxyDsqxZgyTC
+fkBNQamRhg53nOK5Ybby71OmxLkh5CbKOPCImiA3iRheBg+6hcahd55P915L
+IhHKD3xHXUtoaMzZNVqtYhxxmbM0rWkIQ7KK3Vzsn0hEwX677V61NDT09N6a
+M5Mkgj3nIsdICw0FWrfEKu0eQ55/hiUq5q2Ro+zmoCimSRRZbs/OEBeLmnZe
+zhaKIRFC7yMlQopoSHntzB7msHE0VibJ+awwBGl8yQnObyURX8ieaxOqaWhe
+1cybeZREJL+clOJupiHq99Q7qb9JxNdrTn3v22goW5rreyTvytczdsNNb+8p
+1JLWOiI4MoHadD0P35eMRWfcTabHX5AIkaq81phCGrKsPuBs6zmOHNjbudVT
+glGtXDSV3EQirM70s+dV0dC9x1ofPw+TiF65sRM7mmjIAoWXes2QiP1ZrAL0
+VhrSDy1ToS6SiCp7im16Ow192JhO1mdfef7+wklF3SOI0f6gUEfPBKLYndIz
+Go5BUVLHeM9FkgjBi582Sa08/3pqi4DgzXEkq661X008GHH1hszONZAIpHLe
+WW3l+VUqKkNHhkhEFy9nffrK6xU/TO4dnSIR3/pFhS6sPP8JkW+uvkAi8jwW
+3yitPJ9tpFbwyhKJaKx5v3n7ys/XKn+rxrZaY38ZutVPEbMvsb+UT6OMaclv
+sL+manQjPqcc7K+LfoWtyO1C7G/vmtoyEbd32F+ue2LpRyzBX2KkOHnZA/xN
+XcO4JHQZ/GVZY7zoywX+WlrzfL5bAP5KLb8c0ZUEfxN/1uwVdgZ/96t0OwlV
+1WF/C0TXqTWN1mN/q3hzemN4wd9kXzGdjdzgb+H7fVn3H4C/sS2Uj71rwF8p
+4bb/5K6Av6H+LqnGVPD3P5SntKAI/qoViLMmPQJ/ZU6dPqc61IL9dU6lOGjJ
+g78tjEkjhe7gr9XjgBcS1eAvh0bN3lE28Fc61naSrA/+aqcoaXmSwV+9tvUR
+ZyvBX+c692nW5TbsL9PxH/+a7Qd/x2JPNjpeAH/rotiOGgaDv7sIKm8jBfzN
+kc+KmvvZjv1VjGURIfjB38cb2ddvReDvEhvd76kN+HvEj9eC/hD8PSdVe+5F
+Jvi7NO9UrtIO/n46baCqPE3F/no+X0tK5AV/W9ZRxwoOgr/3W40KDpwAfxvk
+bm5nvQb+bj4/UTbyAPy1klJh/J4I/npO6KvxHXmM/aV4lVgUCiRhf+cWUmTI
+4eCvZ/ptVn0RL+xv75nmPPfoOOyv33CYr9ZjGvb2UFrByPuXq7ytaH578/l1
+7G3ToRc7d7fFYG859jzXe06mYV+LPOITdkWCr2nqe1jPxIGvDGJdMiw9F7Cv
+vYZedT7D0dhXv/zcxxUPadhThzsd18wjwFM1v9blwBjw9OzmdFaJhFWeCh/r
+Psh4Ensq672mc+l6NPY0nsmjju5Pw36Kn//zy+kZ+KlIDgh7FQ1+MgW6pRyK
+Bz93Xv26gyVxlZ+eG1M1eQ5jPxnsxmouK0RjP91MvzZeWHneXy/96ip41zwD
+L3vXO9fIR4OXp34IXKiNAy8vCPmJBSeAlw0hNcIuif/jpYtp3hXspVhsOiej
+WRz2MiiG7/2xtAzsZbLpr5wWzjzs5VCtgA6lFe7V3vHYf05Ewb26Xt9jI/dX
+8JIin2HctAxeHrxRMG0xDF72FfannAsCLwNcGs6+UqzGXmofuHBrPhG83OWy
+83rQFHjZwLxw1FMT7lVPmVd+9TZwr07Z73EpJIOX0dxhEduOg5figbdt9MrB
+y/1f82IslcDL+UP1m7JjwMvzLN0sC+wt2MtuQ9HN/Pbg5d6H8zEPKsBLopZ7
+x+6tcK+6Drvo+F8BL41flPQ/ygEvXbqv3KEug5fzWSqWiRrg5cEXGkMhvuBl
+39Ucyz8fwUsmJcqYyZp27GWq2mnjUlW4V2eCtRLeO4KXF9QPZIXGgZeGTVsd
+rGjgpbbb4aoiZir2sk6+0Oi7HNyrFZcCNAX+AS9z/cku7Q/Ay1LODqeTOeCl
+kf6Aotsn8HLtDdaN2ow07KXaDl3hXkka9nIPsRdl6sC96lQ994PLDrx0CIv4
++SsAvIw7le8h+Rq8jIzUXEevWXWv6lYVXfsGXsbzd5gcY6GDl7fv8j0cCsFe
+RicMK9jRUpD9XM6Xo0azyJbyLZL/Zjb206g65zrD7Co/B+N1WMN8sZ+UfWlx
+r4kkVCVDrt75fAbZakSHqfFnYU81XbN+Er/gniWYCuJYPkRhX6MFK++mLa3y
+NThxr2SQC/ZVliEgrsY0AU0dufU2As2gKoU3mZutM7G3lwZuBJr9gPu2N1lQ
+6eWtCOxv3le5hI55GhJMtv1kyrny9ZcXftyw/jH2+NKOZ5wejHTwuHOG34v3
+EvbY8uBZ3Vvm8YjN+JpC66YZFE2qi5Jiy8Q+pzXcy7YehvuX4OsX1FMOx16f
+iJIMG52jIauDA7aifSsfn4nvgfFIAPabJ5/bKIyBjv22r1cqtmaig98VkfxW
+5mew3w5cyymsnXEo1Oyy06/5aTQ0IHv6TGcG9vzZw5+fLg/BfcwQ6jDdwB2G
+fU82rpacXXk9H8yLZ3jVrnz8fx2chLT9sfc+3Sc54pbB+/PUMN/ra+nY+38d
+n6eYMtPB+96LKrs9dbD3nvYl9UrP41Bn17cnd35No+Ttso5mlRnY/0K7xpOj
+3+B+Jly0UqrcQ3EezLyabXdb+fwiuygnD1JWft48srTlxv1wPnzaltwotQz5
+4NK5vW1u5fX7mw/sAw4qPSvfv7/50LRcsr5l5fNdlQ+8V9JtcD5oNpZ8+X4J
+9ozerqJaMTvYM7Rd2CIEz8CeIRMoqrX5H8iHoElt+g0byAcisJNc2AX5IJKS
+Z/dmXQXOB4q/6yPRRcgHqdE1T/VeQz4I9p41MzwL+ZDBodK3rwnywc/cfksd
+qQ7ngytbKXP3LcgHNeNzb/xiIR+Sj6LMrnrIBzlFl6+J1yAfvIZb1vcOQj6s
+/eLyc9oC8iFwunvHaDXkg3anCFuJHORDEusedb5nkA8pKT7qLmOQD3uULpv2
+60A+jCqQSirDIR/89Cgzon2QD6HBPEFPd7fhfMhjyif96wD5sJ7JZn5/LuQD
+f6ynw+lpyIcXiUqnTfdAPrif33Hz2CXIh8OeZ7c0voB8cOFwL93SCPkg5BLN
+qcZIxflwINyMZ2wv5EOJkBfNygLyYWKWvK7nAeRD5r5m16+ZkA+xt6yeRnyG
+fOh80/Yv0xoazoerqb/erZGCfPBTcz5Srwf5cHqfvl+PHeSDS1FvgUMQ5EMI
+y1Lno3TIB5shBj+OesgHGfuEyckfkA/SbrUNzevoOB9a6qM1e7dDPsh+9hKW
+loY9w1Km3dfgA+wZAtG3Yxd46TgPxPSGNJiMYM8wbLjCE3QQ9oyJhzG3r3HS
+sf/RJMcgCSPYM2TLFW47i9Cx/xTRVwxZi07Yf1vpnBj907BnaKi7f4plp2Pv
+GYx7zDVOwZ6hwSMtVyxIx763rZty3y0BvntyVhJ1prBnCA8kuVRcgD3Dvdaw
+r4iVDnuGYLcB21HYM1Ib3k5/5qdjv4/dfe1tJAZ+P/41Z7tu2yq/zwRfLfYz
+wX7PcSf+MzgYA/e33frbH9bTsdeUQy/l3inDnvHUNfHnDz469jk2gDnOSpSO
+fRbzbAoRJIHPaWL+c5PbVvm8MWGrQYwW9vnqzYjRgGTYM5ocdfforTz/r8eW
+RKydRfZT7HFjvlzzjZXn//XX68b28NGV1+uvv5ZPPm2OlwB/B+L2F97ZBv6W
+LDJKXt7+P/6+c94K97mhyHFFQ4Mk7K+5/JDTjFke9rdXtuszLf0d9vc7X/hV
+/epy7G/UEXm2+PFK7K/RwrTAG6cq7O/vXJ71knU12F9j7zbFhqo67K83WXeR
+atuA/c3UZCraN9uI/Z0JL+Qsi27C/lp6hy7K7G/G/kYq9t3eT2nG/hrF6cj9
+UWjB/sYrm7D0vmnB/qoab2zi42vF/g7JhsgxO7Zif/t6so5l1rRif1PauvQ/
+8bVhf+cPRSlst27D/nLc/ON76nUb9lc+1TpWa6gN+xtEYjjxZXs79pf3TTEl
+6mw79jdYKuI2H7kd+5vyNVLmTmk79tdwJOhx/o927O801zbHLn4q9nddjHzR
+cw0q9tfH/U2/nQ0V+5vRbrv1EJmK/fWWk6nJTKNif7eIvwj8Wk/F/i5L7eAT
++An+xnOVpmax0bC/CrYHlA6tePnX36c81YcfatCwv4dPvXghf5aG/bXV0qTV
+OdGwvxt2vrqR+BD8Ja752ZrHgb/OzGIP4gvB3+NcPY/D6sFfq/iponN94K81
+7XgowzT425gcPvZs5d7+6y89Rc5sccWLv/4GRT0o89oJ/opkHLl6VAX8jVa6
+Y0AmhWN/g9pu5X0lMvF97nJRNUoopwh7LPQ7xsJtP3jM0Khs2e/thz3OmCq9
+rsn6Bt/nV3MbHWueFmCfnb815DPtoWOPg/z1+gflwWOGdx+E+rLhHqcMhHT4
+H0zB93i4c4zSPdd87HPjLcmdldJ07DHfjMW9rIPgsZl80H1+pVUeixxQ/FFt
+iz1WlLokuPw+Gd/bYqW3G31/5GGf/+TUG8bvomOPI3br64YdAI97bjqyMyiC
+x/TOYwayyqs8/o/Zr6TNFHtsK+O2S4YtGd/TTMecpK7H5WGfdWu5o7lXnvfX
+Y+N6uSusB8Bj8pIO+YYCeJxzOMMjXgk8Pqn532Sx8iqP9e1mlD9pY48dBPiN
+e1KT8L0cYKIkoO6Rh32e4/eXr135efnr8eLLxcvl+8HjmWMfD+1WAI8PcD3x
+Pa8EHoudbNjhrAwe18nr5K5R+R+POdhdzmGPPaUGGE7thntY8/BIkchiFva4
+btf3d0fLi7HH803SRveCyrDHlp1b/J4OVWCP5xMX9b57fcQez5Q0Jzv3V2OP
+bRvpDCJfarHHP2XWuW/1rMce64UwHu3fAB7nCJuw+MqAx4GNE+ObSpuwx2x+
+sw9n9cFj1//0Hk1UNWOP2c6a3HNRB4+D7mUrmq74/Nfj+cjQj4ms4PEyPaM4
+yRo8tpy7P5CY04o9DpxcfHVrLXicQl4ySNAFj/28eG4u+YLHhxWrDTwr27DH
+wz/F8+Ln27DHC3xG6lukwePd7epTg2fBY48Nci+1fMDjQA1pDrbMduzxzEjv
+GnF6O/Z4MXyDxKF5uIfPmls0fRUGjzf7rZ8nVMDjI6fP8B4/DR6XXGyanb8B
+HlMekkSVyavu4crL0VuS4B4W78g+PPIW7mHlgQtce1vhHvbmKAziHoZ7uNox
+fPnOIuwlS40hIXe5wGOvb8nb95HAY0+F3qiWA+BxskzvLzYt8FhgfcSCjTF4
+vMtEOpx2Ae5hmrojd4cj3MP+8eFPtDxgL7kQlXIxjrxqXz7WUHzA5hHK0PeW
+eCw5j1zmbf5tDy9F/drHfgjw/EHJewMvNhq+R+ZRIqkPGBkI+qJJHJPmB+xz
+x7mBfD8f2E8YhnezpYneQfK/NCPYnH6jucbNlz3y3yLN11Kc5icWUdC89oep
+m+XIrnfwjrHBMioYENTmjqjEXj9UXNYZ8YJ9Onhzwjoh/1X7iWpsgFHBFeRS
+uu3UUcHfaOACufGf0hLkZM4n/ufXAhpQdUoKYSpH2lnFXDenlhBdu2zsmEYl
+9tsgRkVZ8C7s1zTOLrGTfrBfiyzfdex9uGq/DihuODhuhiKSeHKsR+eQla/1
+BSf1EsSRuzHleOkCop7yyeivKUNyQjvMmD8uoQ8nlXLTtlRiz9m63inJesK+
+PVC8oGrvC/t23Y4u9iV/2LfJS0pK5QGr9+1cQQ8/XZTynKN/ijqHUgXMppkZ
+S5DpP/4/pxMX0NCkkE31mzKUavDZ/XjGEvL3Dp+VXa7Avo/zciwUecD+LX8r
+JnDBB/Zv/8kXLwL8YQ8ZUt106UQA7N8jP7j69pNX7d+UIvtJI2WUFeLnWlI7
+h1xYGlpk+4qRu0IVV03EAkrdINEh/bIMfRuWezwev4QUL15SGpyswN4LdbDr
+eXrAPt4WaShV7gP7uOe6CNpJf9g/QgoUJvgDYB+nWwc+mQ+AfdyTVCF5hfw/
++/j8jdIb2Hsunrxruo5vsPdXdw7saSgsxN47C9kuZjdQsPfU80y+AowV2Ht6
+xqmAnPkP2PtEg1+D1/6txt7Ppp22oeXUYu9VVZoc3DPqsfeCP8muQScasfes
+8168hEMT9l5+i4jAAk8z9l5WRXmddgLc3zLDdXZ2+1qw95KNRz6vS4L7W1XQ
+5MFRwVbs/eC2SzY0T7i/Wyuexl2kg/flgzmfi/a2Ye8nMuQLN7jB/X3RD1U2
+fQDvL5svlq7jaMfe97XnNQZot2PvP21UMNLwgfubuGJSG14C97eMUl++wC/w
+ftvMrBU3iYq9F6sdubfzBBV7b9YjTM3whPt7i0nAdd43cH9vsDqeENUG9zej
+wfXLwX/A+5k+gwgJCRr2vv97L4u7Jg17T/x0k1ewpWHvfULMlKX94P5OZ1ts
+tnoF9/daw+7Duz7C/X2sirZLrR/ub233xq0+DHTsvX5v4beGlX7+1/u7G91U
+FFbuzb/eXyKFjfAZ0rH3gsNd981t6Nh7EWFWnwwPOvY+PXHNvmchdOz9jUVm
+HfMUuL+p3PPRohS4v4PDXcdKW+H+ppf1Of0YgvubkvjAkqITDe8nniqgJSbn
+4Pu7QrV2b/+XtzgP7veKL2vdKsfemwVbrLPvhnvc0zi9a/bQY3yPm3t713s1
+Z8JePtZ+TaqrGOeBWHZ868vkMuz9+dCo7Vs7YD8xFb1CZO1JQjuMHcN+ik4j
+2aHqujjtfJwHDxin3mX1w/3uuSfKpb7yLuzp9zTecupn4Ps9uSP0alBjEc4L
+n8/LQ19Uy3Ae6Blx8ztQYW+x9XF/er8lDiUf/4+t9+0UCjbabvF7KRfnhXFn
+39dNX+DeD7aLCjMcXLWvq9xnitpwHd/7c5fDQi6xp+N7P9JH1P6tVhHOkwnd
+o8uCLGU4L0YDOm3422GfkeKqL1/kjkWXdOff0wOmkFXSvsGbJrk4T/RfRp+m
+9EA/GKtgZmf8Cv2AVHzOOurbqn6w17Qscv8F3A/GQn7aBKI03A8CHi3fYWMo
+wnnzSb+rwu07BedJrIeQ1tU22HMs8+3Cz8vGoJqqYjETpymkeOYUi+tyDs4b
+B/Gao3w90CcCWWdumw1An3DXNQidHYQ+kR/ZxaQ1tKpPRL4TdNcygj6Bbt4o
+or/BfWLuCHvyn85CnEcDEywLkZ0UnDctpuvFedtg/2nyC8l1eBuN5n2FDbht
+p5DhtE6MdFsOziOJuOQ35d3QPy4HTcWxDED/aLAZEY4fhP7xL7GxePwb9A9+
+3QaN8KH/6R/PPubCHjTkYGaWZwF70FUGLX+VfbAHEeyNo00GsAexlYQPHboL
+e9BYYofqh6ewBx1+9mLGkAX2oOl87m5XA9iDql4qOa5Rhz1Iq8zL/h0d+gfj
+1KFzQxbQP/656KZpbwT9Y6D7jn3xF+gf/1wo/jNkB/1jR1LtRuMB6B8vj5pm
+rjsD/eOdamubSRn0j6CtfdQwQcgj2TWigdk3oH9Iye8bu0mB/iHMfM/WfgPk
+0aDZz4//noT+QQryvLU/CPrH5LLb+/x66B9Xev6rvboW8kjxkgzHt4OQR0Ny
+2+6ctoH+kUFhY4t7Cv2jqE909AsF+sfSxDXxd9+hf4Sm/5HI4IQ8khkdv5Qg
+B3lkfb9AnzgN/UNzbV3oc2foH4Xp/1EXQqF/zDXL3aVkQ/9oK7T86toM/UPw
+RrXtzA/oH1GSOj0NTJBHdVnXr4SKwB50vvzT4Sg52IN4vu2+6HMc+sem2dNZ
+yxehf6juMbwu5gL9o4lXYoiPDP2j9s+c89BL6B8xmVYaaZnQP8wMKfZEBfSP
+F/ncvybaoH/0nXtCDA1C/2AIJ2WnW8EetGhh+3r9AdiD/M5SfGfsYQ/K+eA7
+tbZ71f83rFQP1R2CPWjunlYYnRn2INPi6KsW5rAHsXFPbr3bAf0icWk60q1v
+Vb9obxJq2nkL54nL0Q1lBSqwBynGXhSZ1oE96JuKgpMKDfpE47NhafVe6BMP
++Jr1sgdW9QkDG1ZHXXj/VXbqHd98I+xBVdM31lu/gz2o2tWWzEeF/vBJ9NSw
+RA/0B8/x/LqwfugPv+f7tzZ8XdUfhl89+2gG76/SbR5FXuKHPUi28HzTWhfY
+gzISlUy826EvJGUR3k+7oS9Ia1BrWPuhL3yQ3VdLfIW+sCP5j+bZwVV94YOb
+Dv9FeP80/C3r1YMlsAfd7jgTkWoMe9D3kUFJ1XboB69+3yo/1g39IE3JprC8
+D/pBwiaXTfMD0A8CsvryeAahH2yxVKiKWfn7/wGhPP4U
+        
+        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+           EdgeForm[], 
+           Directive[
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Opacity[0.2]], 
+           GraphicsGroup[{
+             Polygon[CompressedData["
+1:eJwl0mdbz2EYBuCfVEb6EH2l3iHRH1EoJSuFREPL3kJSZjbJiIxkj6KI7JGs
+EiJyOnpxHtd9XM+r5z7umFBqbEpYEARDOM5oKtnKelZRShFj2EU5G1hNGcWM
+JY5xxDOeCSQQYiKTmEwiU5hKEslMYzozSCGVmaSRziwymM0c5jKP+WSygCyy
+WcgiFpPDEnJZyjLyyKeAQqrYxkbWsIISqtnOJtaykt3sYDPr2EMFW9jLTvax
+nCdEW2wYo/j5f88yis/mH8Hg4kfy1viRXv4yXPdcvuYDPfQTqW+Xj3lEG608
+5AEtNHOfe9zlDre5xU1ucJ1rNHGVRq5wmUtcpIELnKeec5zlDKep4xS1nORE
+MHhDxzjKEQ5ziIM84xWddPObCP+pkR285D1f+UW4twPyDV184w/D9E/lJ74z
+wAjdC/mOL/QxVLdf/gMjeXMI
+              
+              "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+           EdgeForm[], 
+           Directive[
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Opacity[0.2]], 
+           GraphicsGroup[{
+             Polygon[CompressedData["
+1:eJwV0edbD1AYBuBfIRQlM0nDjsheUdkjMyGbCFnJTjb5t8hIITsK2TKyKYVw
+9+G+3vM853w41zkJOfmZu4IDgUAQZZyz6KoIoxV/5Aa+cp4SLtDNXgda0yz/
+5BsX6a7rSBv+yo185xI9dOGE8E9u4geXKeUKZZRzlWtcp4Ib3OQWt7nDXe5R
+yX0eUEU1D3nEY2p4wlOe8ZwXvOQVr6nlDW95x3vq+MBHPvGZKHePoG3Lw/FL
+V09P6060I4jfumgzkvYE04vOhBJDF3rzxdmF5lkOU0w+hZwhl5aPOsRpVrOJ
+nRzkFFmsYAPb2MdxFjCfeWQwlznMZhYzmcF0pjGVKaSTRiqTmUQKE5nAeMYx
+ljGMZhQjGcFwkhnGUJIYwmASGcRABtCffvSlD0vIZj157OUYCWSynHVsZQ9H
+iWcVG9nBAU6ymGWsZQsFHCGOleSwnf2cYBFLWcNmdlNELP8BZepfwQ==
+              
+              "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885]], 
+            
+            Line[{1, 80, 72, 65, 59, 54, 51, 83, 75, 68, 62, 57, 2, 81, 73, 
+             66, 60, 55, 52, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
+             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 
+             33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 
+             49, 82, 74, 67, 61, 56, 53, 84, 76, 69, 63, 58, 85, 77, 70, 64, 
+             86, 78, 71, 87, 79, 88, 50}]}, "Charting`Private`Tag$477314#1"], 
+          
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{0, Small}]], 
+            
+            Line[{89, 164, 157, 151, 146, 142, 139, 90, 165, 158, 152, 147, 
+             143, 140, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103,
+              104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
+              117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129,
+              130, 131, 132, 133, 134, 135, 136, 137, 166, 159, 153, 148, 144,
+              141, 167, 160, 154, 149, 145, 168, 161, 155, 150, 169, 162, 156,
+              170, 163, 171, 138}]}, "Charting`Private`Tag$477314#2"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{0, Small}]], 
+            Line[CompressedData["
+1:eJwV0FVagkEUgOEfUexFsCWXwAJwYzZiIYqi2K0YqGB3YWKgrxfv8805czUT
+jbW3xUNBEMToIGyo6COXHNNo96tv3HNIvd2PvnDLOZ3U2n/qE1ecUKSLOndf
+WuaaU0p000MvfSToJ8kAgwwxzAgpRkkzxjgZJpgkyxTT5JhhljnmWWCRJZZZ
+YZU11tlgky3ybLPDLnsU2CfiPd/6zA1nHNFgX9VX7rig6f+TeZcHmp1DfDi3
+aA2tHJj/ANVISI0=
+             "]]}, "Charting`Private`Tag$477314#3"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{Small, Small}]], 
+            Line[CompressedData["
+1:eJwNxtc6ggEAANC/FyiSZEXIXpVRGclqSYREZuWW979zLs73nVT/r/0bCoKg
+S1jeeeKWKhec8UWXexpcE+GDDi1qXFJmhFGijBFjnDgTJJhkimlmmCXJHPOk
+WGCRJdIss8Iqa6yzwSZbbLPDLhmy5NhjnwMOyVOgyBHHnHDKJ8/cUeeKc755
+oc0NFfq88kCTAT0eGfLGDyX+AZoGFig=
+             "]]}, 
+           "Charting`Private`Tag$477314#4"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051]], 
+            Line[CompressedData["
+1:eJwVzck2ggEAgNHfo3glO1sLRCQZE2lCUubKWOZZpZDx2VyLe863+3oHIn3j
+PUEQ9DMo3njmhjOOqTLEOw1uOeeEA4bp0uSOC045JMQIo4QZ438YYYIok8SY
+YpoZZpljnjgLJFhkiSTLpEiTIUuOFVZZI886BTYoUmKTLbbZYZc99inzQYt7
+LqlxxCcvPHBFnS/aPHLNNx2e+OGVXyr8AYvDNSg=
+             "]]}, 
+           "Charting`Private`Tag$477314#5"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{0, Small}]], 
+            Line[CompressedData["
+1:eJwNzkdWQkEQBdD+mBVExBwGbokNcI4L0CWKCphzRjHnrBgx3sE9Xe9VDXpo
+eDQzEoUQsowZOmIhtFDDt/zGEznGmaDTLk4tP/I7z0zSpUtQx6/8QYU83bpW
+6vmTP3mhQJEppplhljnmWWCRJZZZYZU11tlgky222aHELnuU2eeAQ4445oRT
+zjjngkuuuOaGW+6454Eef0/SQKCqe6XX3EYjEV+6Pm+KJmL0004zA6QZ5NHt
+PxWqPOI=
+             "]]}, "Charting`Private`Tag$477314#6"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{0, Small}]], 
+            Line[CompressedData["
+1:eJwNwwVSAkAAAMDTh6Bgd7ei2B3YgSImBtjd9W53ZzaaySdzBSGErJHCEJ69
+8NCUy8774a2nZtywyBcvPXLbFRf89M4z99y02FevPHbHVZNGffParGnXXDRm
+iaWWWW6FlVZZbY211llvg4022WyLrbbZboeddtltj732GbffARMOOuSwI446
+5rgTTjrltDPO+u6NJ+667pJf3nvuvlt++2DOA398NO+vT/455z+MxCSR
+             "]]}, 
+           "Charting`Private`Tag$477314#7"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{Small, Small}]], 
+            Line[CompressedData["
+1:eJwNw1k2AlAAANCnndhSf35bAMtAKGPIlMySWYYIyZA5QobYinvPua2xjmh7
+Swihzc5ICB8+eWPZEw/tsuGzVS8seWS3n9a8teKpReP22GufCZP2O+CgQw47
+YspRxxw37YSTTjntjBlnzTrnvAsuuuSyK66ac82862646Zbb7rjrngX3/fLF
+Oy8989hvX733ynN/rPvgtU3ffPTXd/888B/bikD6
+             "]]}, 
+           "Charting`Private`Tag$477314#8"]}}], {}}, {{}, {{{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          GeometricTransformation[
+           Inset["\[FilledCircle]", {0., 0.}], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+733ZT99PxJq16ynC+ZzeIabtsTm
+2Pkz/P3///9n+w6rm1kNh5faby46aHnf/699rFhLVYTDXvv5ayVABjg8WPaW
+uezKAftAzTTxde1MDtmGV00P6x2x//boDVA/s0N+uKbW9dtH7XeoBSnF8LM4
+nGOPiJsaccy+UJsXqJ3DYfb9FNP9Tqfsk99LMoP4+2Z8XXgt6ZT9MWVOoDyP
+Q2TC9wPer8/ay2ybs+f/f34H/yKXCfzBF+zPmf37D+JbCeztmmhwwd5DSwao
+XsTB63rJkuDwS/aSPoeB8qIOOxtk108Jumy/cNr6H9/+iztM+rzllWfAFft+
+d0mgBRIO0fyBvSLmV+zNJ4O8I+NglZPEW+l31T72Tt+hrx0KDu/Puy7gW3PN
+3qhTEiiv5MB0gzHstNt1+zifLUDzlR1ez70Q1yZwwx4AHieSkA==
+           "]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          GeometricTransformation[
+           Inset["\[FilledDiamond]", {0., 0.}], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+2MR/vIPVsfZNevpgvkvzep1JCPy
+7fwZ/v7///+zvRzj0Tte95faby46aHnf/6/92+B95nw9e+3nr5UAGeDAfO67
+XtS3A/aBmmni69qZHA6rXrLuaD5i/+3RG6B+ZofXmltfvxM8Zr9DLUgphp/F
+gfNEttC6GcfsC7V5gdo5HMp8li5UW3rKPvm9JDOInx/3qav49Cn7Y8qcQHke
+B58t/1b/TDlnL7Ntzp7///kdej99fms944L9ObN//0H8jLtXdmkVXbD30JIB
+qhdxaFz3yGfC6kv2kj6HgfKiDvzvXENal122Xzht/Y9v/8UdIia8yFBadcW+
+310SaIGEw8JXN5qC667Ym08GeUfG4djn1Znx86/ax97pO/S1Q8HhSLj6lpwP
+1+yNOiWB8koOP1yUQsS6r9vH+WwBmq/scPqFWmlXyA17ANQimcs=
+           "]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          GeometricTransformation[
+           Inset["\[FilledCircle]", {0., 0.}], CompressedData["
+1:eJxTTMoPSmVmYGAQBWJGIGYC4ktNINYH+2udXsELGKrsmvV0wfx92gf6GqcX
+2/kz/P3///9n+8+nNBIjOjbYby46aHnf/6/96/j5R9hVjtrPXysBMsDB0f/j
+n9JVx+0DNdPE17UzOZRap57co3Ha/tujN0D9zA6Gpztk/jaest+hFqQUw8/i
+kF+3YX7f5zP2hdq8QO0cDoVvJ+3O1r1gn/xekhnEP/N/jnfXkQv2x5Q5gfI8
+DkxVIrfkMi7by2ybs+f/f36H9o7JylvCLtufM/v3H8Q/O+P1JdGoy/YeWjJA
+9SIO4o2fhD+uvmIv6XMYKC/q0Kq0Iq/E5ar9wmnrf3z7L+6wyuXAxtN3rtr3
+u0sCLZBwmPXsvMc6zmv25pNB3pFxMDzVuyX59DX72Dt9h752KDhsqb/59331
+dXujTkmgvJLD6/W77F9fvW4f57MFaL6yQ+ms6+8N1W7YAwCROpwC
+           "]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          GeometricTransformation[
+           Inset["\[FilledDiamond]", {0., 0.}], {{{1.00000000065748, 
+           2.128556209395272*^-8}}, {{1.2499999999563618`, 
+           0.06419257108134638}}, {{1.8319999939041451`, 
+           0.1634035335927857}}, {{2.000000008168811, 0.1827615647277667}}, {{
+           2.499999999443726, 0.19305699549651475`}}, {{2.507499950534875, 
+           0.22772139779445355`}}, {{3.0000000003832885`, 
+           0.245186553672465}}, {{3.0000000231065527`, 
+           0.2604705146922689}}, {{3.5000000002660014`, 
+           0.2972073188876555}}, {{3.9999994979214204`, 
+           0.2985844241274795}}, {{3.999999999948023, 
+           0.29871584803362955`}}, {{5.000000001639428, 
+           0.3158525245300129}}, {{5.499999996466635, 
+           0.32685906845866564`}}, {{5.9999655587359095`, 
+           0.33931666715408304`}}, {{6.000000135581913, 
+           0.33858855928364334`}}, {{8.267499999941885, 
+           0.36180762984867093`}}, {{9.000000002972772, 
+           0.3655583974891561}}, {{9.999999991187163, 
+           0.37218427986120883`}}}]}}, {{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[
+           0.880722, 0.611041, 
+            0.142051]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
+{{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[
+           0.880722, 0.611041, 
+            0.142051]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}}}, {{}, {}}}}, {
+     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+      AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {1.0000001836734693`, 0}, DisplayFunction :> Identity, 
+      Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"\!\(\*SubscriptBox[\(A\), \(R\)]\)", None}, {
+        "q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {Full, Full}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 18], 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True}, 
+      PlotRange -> {All, All}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]]}, {
+       "\!\(\*SubsuperscriptBox[\(A\), \(R, 210\), \((10  M)\)]\)", None, 
+        None, "\!\(\*SubsuperscriptBox[\(A\), \(R, 210\), \((15  M)\)]\)", 
+        "\!\(\*SubsuperscriptBox[\(A\), \(R, 330\), \((10  M)\)]\)", None, 
+        None, "\!\(\*SubsuperscriptBox[\(A\), \(R, 330\), \((15  M)\)]\)"}, 
+       LegendMarkers -> None, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 18], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.79592684217059*^9, 3.795926882473372*^9}, {
+   3.795926984922377*^9, 3.795927057929659*^9}, {3.795927188048167*^9, 
+   3.795927246166794*^9}, {3.795927279297413*^9, 3.7959273406113377`*^9}, {
+   3.795927378944343*^9, 3.7959273825156527`*^9}, {3.795927412718687*^9, 
+   3.795927469548937*^9}, {3.7960938494872026`*^9, 3.796093859017405*^9}, {
+   3.7960956962713623`*^9, 3.7960956998000917`*^9}, 3.796353736826159*^9, 
+   3.796353794961005*^9, {3.7963538567783203`*^9, 3.796353880231456*^9}, {
+   3.796353931723311*^9, 3.796353952482366*^9}, 3.796354017567524*^9, 
+   3.796354048133767*^9, 3.796354139859541*^9, {3.796354244561511*^9, 
+   3.796354257007237*^9}, {3.7963542884843807`*^9, 3.796354301571093*^9}, 
+   3.796358758857191*^9, 3.797141927557963*^9, {3.797155467405876*^9, 
+   3.7971554753887787`*^9}, {3.799980371889859*^9, 3.7999804106710863`*^9}, 
+   3.799980490344095*^9, 3.799980753188278*^9, 3.7999856154760017`*^9, 
+   3.799985911368786*^9, 3.799986810722352*^9},
+ CellLabel->
+  "Out[1008]=",ExpressionUUID->"2ebd18d0-1c76-412c-9a1b-9e9ff9514d41"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<1modeAmpWith10and15M.pdf\>\""}], ",", 
+   "pl"}], "]"}]], "Input",
+ CellChangeTimes->{{3.794745107489871*^9, 3.794745124721113*^9}, {
+  3.799980499264429*^9, 3.799980502561658*^9}},
+ CellLabel->
+  "In[1009]:=",ExpressionUUID->"68ace8e3-ce74-4c33-b92e-fabb376bb655"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/\
+1modeAmpWith10and15M.pdf\"\>"], "Output",
+ CellChangeTimes->{{3.794745128064619*^9, 3.794745162035549*^9}, 
+   3.7947460716420383`*^9, 3.795927486329661*^9, 3.796093862811722*^9, 
+   3.796095702854678*^9, 3.7963540681981487`*^9, 3.796354260560226*^9, 
+   3.796354304644889*^9, 3.797141931094096*^9, 3.797155479378302*^9, 
+   3.799980507068618*^9, 3.799986814506641*^9},
+ CellLabel->
+  "Out[1009]=",ExpressionUUID->"ed295764-b770-4b53-84bd-c64a10e9dda9"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"pl1", "=", 
+   RowBox[{"Plot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "fit2110phn", ",", "fit2110phn1", ",", "fit2110phn2", ",", "fit2115phn",
+        ",", "fit3310phn", ",", "fit3310phn1", ",", "fit3310phn2", ",", 
+       "fit3315phn"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"qq", ",", "1", ",", "10"}], "}"}], ",", 
+     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+     RowBox[{"PlotStyle", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "2", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dotted"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{
+          RowBox[{"colors", "[", 
+           RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+     ",", 
+     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+     RowBox[{"PlotLegends", "\[Rule]", 
+      RowBox[{"Placed", "[", 
+       RowBox[{
+        RowBox[{"LineLegend", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{
+           "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(210\), \
+\((10  M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(210\), \
+\((15  M)\)]\)\>\"", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(330\), \
+\((10  M)\)]\)\>\"", ",", 
+            "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(330\), \
+\((15  M)\)]\)\>\""}], "}"}], ",", 
+          RowBox[{"LegendLayout", "\[Rule]", 
+           RowBox[{"{", 
+            RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"0.55", ",", "1.001"}], "}"}]}], "]"}]}], ",", 
+     RowBox[{"FrameLabel", "->", 
+      RowBox[{"{", 
+       RowBox[{"\"\<q\>\"", ",", "\"\<\[CapitalDelta]\[Phi]\>\""}], "}"}]}], 
+     ",", 
+     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+     RowBox[{"FrameStyle", "->", 
+      RowBox[{"Directive", "[", 
+       RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+     RowBox[{"LabelStyle", "->", 
+      RowBox[{"Directive", "[", 
+       RowBox[{"Black", ",", "Bold", ",", "18"}], "]"}]}], ",", 
+     RowBox[{"GridLines", "\[Rule]", "Full"}], ",", 
+     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+     RowBox[{"Filling", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"2", "\[Rule]", 
+         RowBox[{"{", "3", "}"}]}], ",", 
+        RowBox[{"6", "\[Rule]", 
+         RowBox[{"{", "7", "}"}]}]}], "}"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"pl", "=", 
+   RowBox[{"ListPlot", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Delete", "[", 
+        RowBox[{"dataq2110ph", ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", "1", "}"}], ",", 
+           RowBox[{"{", "7", "}"}], ",", 
+           RowBox[{"{", "4", "}"}]}], "}"}]}], "]"}], ",", 
+       RowBox[{"Delete", "[", 
+        RowBox[{"dataq2115ph", ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", "1", "}"}], ",", 
+           RowBox[{"{", "7", "}"}], ",", 
+           RowBox[{"{", "4", "}"}]}], "}"}]}], "]"}], ",", 
+       RowBox[{"Delete", "[", 
+        RowBox[{"dataq3310ph", ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", "1", "}"}], ",", 
+           RowBox[{"{", "7", "}"}], ",", 
+           RowBox[{"{", "4", "}"}]}], "}"}]}], "]"}], ",", 
+       RowBox[{"Delete", "[", 
+        RowBox[{"dataq3315ph", ",", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", "1", "}"}], ",", 
+           RowBox[{"{", "7", "}"}], ",", 
+           RowBox[{"{", "4", "}"}]}], "}"}]}], "]"}]}], "}"}], ",", 
+     RowBox[{"PlotStyle", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "2", "]"}], "]"}], ",", 
+        RowBox[{"Directive", "[", 
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], ",", 
+     RowBox[{"PlotMarkers", "\[Rule]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], ",", 
+        RowBox[{"markers", "[", 
+         RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{"pl", "=", 
+  RowBox[{"Show", "[", 
+   RowBox[{"pl1", ",", "pl"}], "]"}]}]}], "Input",
+ CellChangeTimes->{
+  3.790687525253502*^9, {3.790687557253933*^9, 3.790687626971509*^9}, {
+   3.794719124299356*^9, 3.794719146529956*^9}, {3.794719180837043*^9, 
+   3.7947191812895803`*^9}, {3.794719305404557*^9, 3.794719337912737*^9}, {
+   3.794721676616198*^9, 3.794721757729083*^9}, {3.794724859435648*^9, 
+   3.794724871790597*^9}, {3.794725118644602*^9, 3.794725128522792*^9}, {
+   3.794725191243411*^9, 3.794725307093557*^9}, {3.794725563587913*^9, 
+   3.7947255660669003`*^9}, {3.794725621167235*^9, 3.7947256582695427`*^9}, {
+   3.794725692370412*^9, 3.794725727205797*^9}, {3.79472578245535*^9, 
+   3.7947257864266376`*^9}, {3.794725889374425*^9, 3.794725902858295*^9}, {
+   3.794739474434404*^9, 3.7947395084574623`*^9}, 3.7947395603435717`*^9, {
+   3.794739686714759*^9, 3.7947397191384478`*^9}, {3.7947403874163218`*^9, 
+   3.794740387705484*^9}, {3.7947404250313663`*^9, 3.794740453903274*^9}, {
+   3.794744222356772*^9, 3.794744353459815*^9}, {3.79474439946644*^9, 
+   3.79474440456758*^9}, {3.794744645377489*^9, 3.794744722859313*^9}, {
+   3.794744758122776*^9, 3.794744821780858*^9}, {3.794744955065797*^9, 
+   3.7947450145192633`*^9}, {3.794745138271893*^9, 3.7947451494360533`*^9}, {
+   3.794745921578874*^9, 3.79474592686471*^9}, {3.794745958139057*^9, 
+   3.7947460040466757`*^9}, {3.795926735584828*^9, 3.795926750001438*^9}, {
+   3.795926840980708*^9, 3.795926881973667*^9}, {3.795926984285624*^9, 
+   3.795927057185601*^9}, {3.795927187424131*^9, 3.795927317963451*^9}, {
+   3.7959273653070593`*^9, 3.795927469071863*^9}, {3.7959275793498373`*^9, 
+   3.795927639714816*^9}, {3.79593004771889*^9, 3.7959300523977757`*^9}, 
+   3.796093877307585*^9, {3.7960939104982977`*^9, 3.796093915346106*^9}, {
+   3.79609570865803*^9, 3.796095715257702*^9}, {3.796354313175235*^9, 
+   3.796354342295594*^9}, {3.797141941449052*^9, 3.797141941648987*^9}, {
+   3.7971554860235777`*^9, 3.797155514967325*^9}},
+ CellLabel->
+  "In[1011]:=",ExpressionUUID->"79671a35-564a-44f3-a894-a7ba785c99ee"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{GraphicsComplexBox[CompressedData["
+1:eJxN13k0VP//wHFkxpqtPlkLzUdkqZRC5L6zFEpkSbZkTQihFMquKCG7kCxR
+JEslUVkilIhSn7JmS7aJGIz4ze+Pe1/ff2bO65y5rzPvO+c85nkl7T2NnViY
+mJhcGC////71t4EiExMVi+Ce9tvUO4ntVkjSS+maxRYpXle9vk9hknZOZVzD
+89jU47d1paQZrDqWVSC8dhEbHq8ZkPiHiuWtJ+/JukXHntenP5cqpGJbw+Ny
+k9JWMT2PLZUNur+x+8u+kbrPmZBKe/y/fr2/sYidoz+UNFlQ/d6X6ocDZjHu
+m9fFZ9+sQ31sTmcP889h4063T5YpkFCqS+t4S8ocxldzWrX/CRn9uK/mxEr5
+g8XEJm/i3cqOQvW1i09l/cHKo/928V7nQD2druLjfPOYJMt21SBuLvTNR30H
+a+Q8NrpQnU69yI1CS8o/FEzOY/NnNuR1rK1HEl099SOmC1gxU0ZMSAgv0ubf
+KuD+ZAGz5mpSTfflQ85l01ZVbDTsumk2U5EyP9Jqv8ojZk3DbK1LGmum+NGb
+Ys7Y9HwaZpWT1UeqEECpDhMufTM0TC6w4Eyl7wZknPN68dmeRSx/4/D02e0b
+ESfpefB7j0VMZ4Kl1WRqI4r+ZHkt9eEiFhdslquR9w/6r2bf3ad9i1jJg9rJ
+ePNN6FasnFk8zxI2y8cTLSYiiC6od6VKYkvY4L5YqcJ2QbTyYfb1tbNL2Hz6
+7Ea3RCHU/f7UclTiEtZ728M32UwYxaisfWKuWcI89bZ01nOIIK/2us03+pYw
+aY3SsG1tIkij72dUOfMyFv37wp4bYaKI+47If6ESy1itiqnJyX1iKIcnl7Ss
+voyJvdr41npRDK2p/bq73nIZo7BwqNo/2oz8QzME032WMcPw/tWs81uQc1cy
+vTxmGdvWOF7fIyOOes8/7C/KW8Y60rhpoT3i6NU5sStLVcuYUfd1rNRQAp2Z
+4bvX3r6M8WD5oXcfSqDM+yc2bBxaxvqayj1l10uina+U2T4tLGOpqe8Tx89J
+og6zMwLSHHSsUI9JdXuzJEqWeF5pJUzHWoWlrrHKbkUblpzCyLJ0TLPFwfR0
+xFakpK3q1qpCx/LqSyyofVuRX3ODZvwhOib0/Re7GKKgPWxo5a0pHfvRiZSb
+0ymosSV81cmOjjUe7F5aW6Mg94Qz860edCwi9vzLd2d/YyHpbsmmFlOYafQN
+Icc2Cmr2+sK104WOldTa0kaeUDGpijvS7iJT2J0do9KbnlBQoNNuzQ5HOsY9
+uoujfJSCroq8uxnqRse0/jux0ceSioXcunUwhj6JvQpO2OlZQEEh0jW3xRzo
+2C6VPj6ubxSEzVrt/naWjv1MCGO2mKOgiyYykjLn6Ngtp84cVQUq1j1mk6M9
+OYl1bHetEL1HQdu8MvMP2jPOP/gksbKLgtbv/LvIyrh+Wd0ygjRFQUYW1o/N
+3OlY96/iK8VLFHSBe+rHEmNfhRzfr4xNVCw3uEL54fAkZnHVbP53JgXlrbMZ
+72Lcj3d7s7tjOijouPmMUDrjvGHxOm+/j1PQkaMqSpOM89hiqa9DFyjIu25N
+MJ6x71hynVr3CgXVf2ALtWfcvyaexzHHuKjYYn9qSP/AJJYlc2STTQYF2V1s
+XMpg7OcbSKItfqCgBjlyqiNjf7Oa2s9DPymI9wS3cyVjf954zMDUH8bcIpBj
+zdh/G1VaH6RT0H2dOeUdjP2ck+9E3FYpqDxVoS6ZMeOeUYcpieUW4FlUHd2S
+xxU8E1Ny0KXfnyY863jAja3/PkN4ppf5dHdDJHi230tcUkEePJNRSeh1aQDP
+os4I9cvYg2eP2KozR2mzhGcCTmdCKq6AZ4/TXPKF2MGzlBFu2udQ8Kyq+JMU
+af4P4dmQsOs8myt49u1h78SnDvCsPyv4+CVV8EzYgv/RjTTwLPJsKNV7aoHw
+TMqVdyhCEzxbEL7blHcTPFu1fOgU8QU863da0OsRBc9Wg7Zz6pqDZ98Epv7R
+TwDPXEj8dt5vwTOqQLeuEm2R8Czbde5YiDR4tli3nf3acfAs78tILFMgeGZ8
+oa20Owc8ExN02vj0DXj2wFF3kX9sifAspVuCJkQCz9y3D4TXS4BnmgcLO6jq
+4JnNMZ8/uWbgWYOh78d2D/Cse3dk1UQ4ePas6L6ufRp45kK7wWdcAp5pLrgI
+NNSCZ/5/DwTkdIFnEvvJ2JaRZcIzOVoue+yfZcKzwCF+CTdW8KyfJBvhIwCe
+eSnG11wTB8+WOOkhLArg2Z09vmkLKuBZ0rwoT54OeCY8+mo7rW+S8Cwstm2T
+AwaeMV0cK4y+M0l49qFH2W63Oni2cUBy4romeOb847KAqz941jT35EfSfvBM
+y1HUkobAM++Wz+2C2uDZ4JQLlckVPOM63ZHSpAqeKRlvjlVA4Fmxf0G5kRZ4
+9nPMRatPGzxrYIqz67YDz5bbNj8+pQqevS4vcmnGwDNfe7XhSU3w7Dv57ZYA
+bfCsuLnzwEEd8Ey/svhegw14Nuw7/kBWFTyjVcg1JmHgWU8zaeqFJnjG35oW
+qKcNnu1wGGrk1QHPfJj3F3nrgGeblZ5b+Z+eIjxzjxy+13l0mvCsQU5ezdkR
++mzk6pxktTr0mfTPII3rLeCZhftmA0sn8EzPOc4tggaera2zT3dKBM/42Xn3
+FspCn0m6KxgPlIFngk94pKgHwDOPxwF2Y1Xg2doik3CbPPRZVxvPGaYc8Ey2
+/FqZP/sC4Zkdm6qSiRd45tGy2+9oO3h2aMny7Zok9Jmd0rRq+QXwLB67aB73
+Cjzb7S7vrsy+SHhW33e9IP4IeLYp+hDNKBI8U0tuXhytA8+O+Fr3Ls6DZwrc
+IXbTUtBnR3gqftSdAM+Ye6r9roeAZxz1Xxw3PALPmui7luQ/g2eN17ZI2y2C
+Z5/Mo0RNxKDPQmw3Vk+qgWdf5pwiFS3As1f75D1l/cCz1GeN++PiwTNO8yqp
+5GLwbLT0A8n9DXjWvPN2Wdy3/+mzsSRFg9/g2cIJ7Y1OJDrh2fBVxQSSCJ3w
+7Or55pGdCtBnLPrvnWU0oM+KeV6M3jMEz6JCdY9L2oJnIbYLzennwDOPdREX
+YwLBs1nbJIfPUeCZjmJFz+8U8GzmmNC68i7oMz7jQSZ6HHhmRDW8b5AGfbZ9
+Wp7iEQOejZn67ghMBM/u7M/1Kg2cIjxTs2rQzL0BnqkHZ3C+vA2e+ff6e6sk
+g2cdg8am1z2mCM80g10raqLBs19cvfY98eDZgjJ/sWUSeLZO8XzoPyng2TWm
+L+uvnpkiPDNSzaDoRYNnQ/TdLW7x4Jn4vr3hE4ngGXugCn9BMnj29ZN6U1gK
+ePaAPcKO7jBFeNbnd0+PNxo8i8kdcN0TD55pDQn0VySCZzzNN956JoNnm2XW
+PTyaAp792Sn55UUKeFZPF/X/x3Sa8MwiSzuNdGKG8Kww7qpR10Eq4dkt13xr
+s8/gWWyojq8043fHPTuQPHdChnOW8MxeU1yuIWuW8CzY+nzcmtoc4Vniuk8f
+1jrAs+JNLBcOnPhDeJZ2tkO8pR880zydVGBmMU94hs3QDlBbwLORj54NbeoL
+hGcxlzWjtO6BZ7fCxcw3MZ4ncc9Wsvx/7HOkEZ6Fe6p06T4Fz45b9EYcYlsk
+PLsrorot4dgi4VlazWxHeDJ4lqe9x1H6K3h2/Xwatwb/EuFZxv5k8h/9JcKz
+047+dYpXlgjPwp8d+KxXBJ6l3TxZwPoNPDv5WertW5ZlwrOcc/dVheSXCc/y
+cq7oLh9fJjyzUfzmJsJ4PsQ9Ezr5x/N9InimLuyZY1QOnu3/484a3waelfT8
+p+QwDp4NuJNoH5nphGc1uUWfGxj+4J7ZKhidfraLTngmzukXwMP4/8Q90xow
+rx21oBOe+VMUzPTcwbPZ4L1/xIPAsyUt5b7UOPBsVrZQnysbPPMKs+Seegye
+Zd12efP3JXgWmGwQJPYOPBMoU/ma9xU8c9eV0CkYBs/4wvyR82/wDMsN6pfp
+nCY8y07vNxebAM+oqh/bzG9PE549/+t4ZGwMPFsXwZN+aBo861s4vW6dzzTh
+2crNKw91R8GzzXrG7eWT4Nmjxt6XX2bAswA3181BDtOEZ0crXxldGgHPvk3f
+HB+bAM9aGvyCeWfAMy57mvFdKnjG8eDwSpPVNOGZaq7yIO8IeCZJ09gXOgGe
+NbF4bi2aBs9sa1wy1ajgWZx7dh/Lb/Bsi5CH85T5NOFZfMTr1O/D4NmTSe+j
+hhPg2Ta5G0OXpsEzIeXhcg4qePZzJ9uWj1TwzHuyMVHpN3jmIdQo50rmRrhn
+edkdK6y1XAj3zPPljkB3Dy6EexY+9DPSWpwL4Z617O4V6engRLhnK4nK7fKB
+nAj3zLlC5W/dDk6Ee+Z5c6Aro5cD4Z5NXm+t8oznQLhn2pY1q6MGHAj3TNWu
+dUM9OwfCPYs8pS649T07wj3bLloRapPIjnDP1JUoQb1W7Aj3LKTXu/2NLDvC
+PVv+tu34sSU2hHv2szzDwvQ9G8I9e/tI8dPpfDaEe4YGdQrkr7Ih3LPOOFSs
+bs2GcM9iRQREKfvZEO7Z44xoJC3KhnDPBApN+A2Y2BDu2ff+kWPYCBnhnpUp
+PWVubCMj3LO6MAdT/edkhHtmIr355+0cMsI9i6fvansUS0a4Z4cOTA/fDiQj
+3LPwZyEhQm5khHt2SVJd6KsVGeGeKUQcV7Y+Ska4ZwlvOo91apAR7pnc7eQM
+891khHvGHTRqfleKjHDP/JQOrPiJkBHu2d89jdNCvGSEexbbLvyvKImMcM+M
+T/IKfqeTEO7ZNtn6fIdZEsI9YzcNSuH+RUK4Z9uP/KsRNkhCuGdVsnIB6f+R
+EO5ZeqGYeFYnCeGeRVd18J9/R0K4Z6uapGjBRhLCPctmOewl/5qEcM8eKmoO
+C1SREO7ZhqgdWx5WkBDumSlL1YWpRySEe3bu6A2LmSEuhHvmmFlNrSslIdyz
+Me6awVPzXAj3jP+LXOSechLCPfNWbz1s9piEcM+o2slJv/9yIdyzBeYLu6YZ
+n8c9Ey3nZeJi7Mc9+8Wm1phdQkK4Zxr3zPYqsnAj3LOSxGerRxjfH/esM0bh
+uDPjetyzqqSF/mXG9bhn+Q80aYcYM+6ZR2T3tWOs3Aj3zFLwEGsAYx/umb24
+pGAiYx/u2YKACqcM4zy4Zywviz75MPbhnulozsuLMGbcs69cw7HWJG6EexYc
+WHLrNmM/7tmlzkvMRYz9uGdnzyTf12Dsxz2LnI3Rj2bsIzyTqYrdxZhxz+zy
+5z+sY8y4ZwPPb+UY3OciPKv0vZx43gM8E+/p+xAnB54lskg1WfzkJDxjC1wr
+ouWAZ2wrAiz9puDZEovAzRhO8GyPymt1tRfgWW2K0GPvc+CZQsXGlRkZ8MzA
+xtruyw92wrPQ0bzPD/LBsxfsXYnV58CzkI8Dwhf2gmdKXyuXB1nBs8bhiSS1
+T+DZ1n7aoFIheDbI+apUMRQ8E3KWXqFbgWfRj2Wxof3gWWSAwssbwuCZiWFK
+oyidTHg20JJRGjdAJjzbei/8e2YjeKbW/5OXXAKeJWmPKWukgmevhg2MWELB
+swnj8pbLHuBZRHlZepQleNb37ImnhC54Nmv6mW1KGTyT4yoytJAGz8IjJy+9
+FgLPMB/x7j1c4NnJU8pFhn9JhGevZ86m8f4mEZ6Np1TdCRkmEZ7Vhh6mujH8
+wT1rtHt/a3M7eLYm2RQc+QY8mzH+xrG9+n88K/YMji4Dz4pZxfXTCsEz9W0q
+Fo+ywTMrfg7X8FTwrFrtyq7D8eDZ+z1fv4ZFg2fvK/vcr4WBZ5WfLwobXwHP
+RCTlNlVdBM/0KikxUjfAs9Ys3ifLl8Ez8Zoz1lOp4NmC0tmc3ADwLFktQNn8
+EniWcaO96uFd8KxRzVnOPxA8c7en6cpcBs9W/D4EXvMDzyJPjUes5XARnj3R
+z5wfCQTPFqa3msRfBs/++vrtnPEDz4KrpcUl/MCzUxsM3QryuAjP2AYNV0Sv
+gGf3/KsXGy+DZ+bezTKUS+AZ/4nTDSZ+4FlLgXDc5EXwzHXP1xr/fC7CM7UN
+G9mVr4Bn+o6PTAYug2fhE74KBy6BZ50kr8xzfuBZLN+KKdkPPFPYGtTReRE8
+o/vRn0Q6Q5/Fv5d2SuXnJjyry7q6XbcMPPN5U3zY9gT0WfT4i6jaVfBsVsE6
+wz8XPOtysPVYMAbPCgeY3VaZOAnPhPwD37g/Bc8smB2Z+7zBs3+dVJqKd0Cf
+3ejuOpk+C56lKSR4rb0Az2jJTsM6oeBZ2w+FvAIj8GzXRztuuy3shGePIg9+
+9KGCZyVG+bTYZvDMxdrR2CYbPBP0PiGcfAU8S61auPTCEjzj+nWlerca9Jl2
+JKc3hwT0WdKWw/UDrGyEZ9uiQ+bCpsCz6fp+rxNfwbOxs5NBlAbwbF/e447B
+UvCMvVl2Z0YWeCb97FgC3y3wbG0qR6YhCDzbuUbbYnsePMthqfp3xBE8Eypb
+7xBgAZ7V3k1inTGAPtt5mc92QAv6jL+j42CpKvSZtdikeesu6LP+Y8Z3U2XI
+hGdHd79qRRJkwjNJs3+lqAxPcc+kf32lB/CTCc+ajJSL73CSCc8WZZlHbrGS
+Cc+q7FKrbFbBM039mKGxRfDs4senbJ/nwLOoonyrrGnwzFN9dCvLL/AsdujQ
+Z8kR8Oz24KxUlTo34dnqnTMKUWPg2WMbvjMdx7kJz+QvT59t+AmeGR4QPmky
+Cp4dXrU+r2LNTXgm3Ry2134cPGtllqmcGgXPvqQUrH8xAp4tDNUN29tBnxX2
+tbOVj4NnpfIqhmpj4NnFZxfiyKPg2bsUm/ZzI+DZ1SWbvHkH6LMSA3Xub+Pg
+2b9vIvfaj4FnSRUFE/Kj4NkshTaSMAKe1fZ0tBweAc90hmfsNZygzxpHdP+Z
+HgfP8pD24wtj4JnBUKU4GgXP9vcX0e6PgGeaBy+2Wo6AZyky7m1KI+DZac8D
+pKeHwbMST95a41Xoswd2Ay7uD8CzM78VXxibg2dBSjurF0hchGdLx2eDbUvA
+s5dLaQkXToFnl9Lb3Xs4wbNfhR/LrteAZ9k3XVWV/cCzdtlIRZtd4JnW9wF9
+8//xjPeFj9mpKvDMjv2o+osg8Mzqg4zZEwPwzMvkn3OnRMGzUuX13+9PgWeL
+EX+jhJvAs2WhMkPTLPBsuf5H3nQAeJYV+3aHswV49uyo1h+u/eBZ+oj68PAW
+8EzuA5verXXgmefAf6FfJ8AzOzGtS7Ld4Bla1RLQrAXPEj+qNio9As94/2qE
+zKWBZ296N3OcvA6eFbLfNFm5BJ7p3IzZ73wWPLPMpGU3WYFn7ZSlPyqG//O8
+Kadu6aEJnnkFUWqVlcGz6sqE+RY58IzP4NOP15LgWclYOumCEHh2/dAJ/jke
+8Czqua5yAhk8yyz3MWJehT4bfrmOg38B+izby9eaZwb67JjsLOX7GHg24eLn
+FjgInjH1Wj+9+R08e0lxyfX4DJ5NPFPnZukAz/aS06IPtoJnVwe3WL+mgGeC
+uawjgm3g2Tv9KP+pveCZms+cT/QH8EzfWE7v4TvwbM3X5l6fBnjmUR+WqdMO
+nj2jbvQ//R48C7ofbzjfCp7t3pt9wEALPMvPWF+c2w6eeVpLsNe8B88yU+7m
+G74Dz8q+Fx260wqeWYlorYbogGeZLb8+draDZ3d+lk2OvwfPBGxKpwLfgWcc
+AkEHm1vBs7HT6209WsEzE4sDVXcOgWfNXuHuv9rBsx1e9qNMbeBZwMhaasI7
+8IyvSbyprxU8qym92BHeCp7RUz1mzRnz/wE7rqOr
+          
+          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+            {RGBColor[0.560181, 0.691569, 0.194885], Opacity[0.2], EdgeForm[
+             None], GraphicsGroupBox[
+              PolygonBox[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 
+               83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98,
+                99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 
+               111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
+               123, 124, 125, 126, 149, 143, 138, 134, 131, 129, 150, 144, 
+               139, 135, 132, 151, 145, 140, 136, 152, 146, 141, 153, 147, 
+               154, 127, 204, 231, 224, 230, 218, 223, 229, 213, 217, 222, 
+               228, 209, 212, 216, 221, 227, 206, 208, 211, 215, 220, 226, 
+               203, 202, 201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 
+               191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 
+               179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 
+               167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 
+               205, 207, 210, 214, 219, 225, 
+               155}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+            {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.2], EdgeForm[
+             None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwV0OlSDQAYBuBzSqtSWqlfbqlLcAG6ByKVVEh1kLRYQqFVIdmJlEq2Fu3a
+RNa0ePrxzLwz78w387379mdnHQgLBAJBQhwUnvGAu9ymlWYOkcNhjpDLUfLI
+p4BjFHKcIoop4QQnOUUppymjnApCnOEs56jkPFVcoJoaaqnjIpe4zBXquco1
+rtNAIze4yS2e85B7dNBGCy94RBedtNPDY+5zh5c8oZtXPKWXpu3hDJhJChns
+Ipm9xBBPEnuIIJo4dpNOGDuIYieJpLHl9iYbrPOPNf7yh9/84ic/WOU731jh
+K8ssscgC83xhjllmmGaKSSb4zDhjjDLCJz7ygfe8Y5i3DDHIAG/op4+gH8KJ
+JJYEUnmt+w+6YGM/
+               
+               "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], 
+              LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
+               11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
+                27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
+               42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67,
+                62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]},
+             Annotation[#, "Charting`Private`Tag$477657#1"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], 
+              LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 
+               84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
+                100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 
+               112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 
+               124, 125, 126, 149, 143, 138, 134, 131, 129, 150, 144, 139, 
+               135, 132, 151, 145, 140, 136, 152, 146, 141, 153, 147, 154, 
+               127}]},
+             Annotation[#, "Charting`Private`Tag$477657#2"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], 
+              LineBox[{155, 225, 219, 214, 210, 207, 205, 156, 157, 158, 159, 
+               160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 
+               172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 
+               184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 
+               196, 197, 198, 199, 200, 201, 202, 203, 226, 220, 215, 211, 
+               208, 206, 227, 221, 216, 212, 209, 228, 222, 217, 213, 229, 
+               223, 218, 230, 224, 231, 204}]},
+             Annotation[#, "Charting`Private`Tag$477657#3"]& ], 
+            TagBox[
+             {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNzNlWgQEAhdFfkTJrkKLB0FwIr9GNR/AA9dooJZKpwb7YF986a51S96Xz
+HAqC4IkeNXFNhTOKHNO3DXjljSHvfDDikzETvpjyzYw5C5as+OGXP/4J/IfY
+YJMwEbaIss0OMeIkSJIiTYYsu+yxzwE5DslT54Yq55xQoMEtF5Q45ZE7LinT
+5J4rWjzQ5og16U8ebA==
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477657#4"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], LineBox[CompressedData["
+1:eJwV0NlWQQEAQNHbp/iIBhGRMVQ0KUNRoiRkqBTlz9se9lrn+YTaw8rbVhAE
+JbbFNzNGvPJMlx122SPMPhGiHBAjziEJkhyRIk2GLDnyHFOgSIkTTjmjTIVz
+Lrjkimuq3HBLjToNmtxxT4s2DzzS4Yc5Ywa80GPJB+9sRvRZ8cmEIb98MeWP
+BWue+Ae0Ix2t
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477657#5"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
+1:eJwNxls2QgEAAMBrKS2oH0toAdlDIakkCuVRpKiQSHklJUliTeZjzplQZGU5
+uhQEQZiYzBgz4IkeXeKsssY6CTZIskmKNBm2yLJNjh12yVNgj30OKFLikCOO
+OaFMhVPOqHJOjToXXNKgSYsrrrmhzS0d7vjmgzee6fPAnAlDXnjkh0/eeWXB
+lBG/fPHHPf/R8TTW
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477657#6"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{0, Small}], LineBox[CompressedData["
+1:eJwNz8tWgWEAheHvFyqhVOgw6oJMXIILqEutdFRUpIMkhU4insGz1rvWHu29
+ykF5PwohlDgU+VgIq6RIskDEke2YKieccsY5F1xS44pr6jS44ZY7mrS4p80D
+jzzxTIcXurzS440+73wwYMiIT7745odfxvwxYco/Mwo+rLHCInFiFMmRZokE
+W6yTYZltNsiywya7BOYh5TAb
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477657#7"]& ], 
+            TagBox[
+             {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+              Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw9s2QlEAAMCd7xAdhXKr5FoJhYoiCRWig/LE/7+ZWWui+K//mwghdF1c
+CCH21Wcf7Hlr0iWXTRm5YtqMq665btacG2665bY75i1YdNeSe+574KFHHlu2
+YtUTa5565rl1G1546ZVNW7a99saOn745dOC9d345ceSjfb99d+yTMz98ce7U
+H7v+A016FnU=
+               "]]},
+             Annotation[#, "Charting`Private`Tag$477657#8"]& ]}}], {}}, {{}, {{
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledCircle]", {0., 0.}],
+              "InsetString"], {{{1.5000000013587296`, 0.9847834098056367}}, {{
+             1.8319999939041463`, 1.061907893136631}}, {{2.3162500217487514`, 
+             1.1813678581916474`}}, {{2.4999999994437268`, 
+             1.2041833282235102`}}, {{3.0000000003832876`, 
+             1.293739383767079}}, {{3.0000000231065544`, 
+             1.2933556521098364`}}, {{3.5000000002660014`, 
+             1.356392538382269}}, {{3.9999994979214217`, 
+             1.4227761096623466`}}, {{3.999999999948025, 
+             1.4186329082260318`}}, {{5.000000001639429, 
+             1.520246650457655}}, {{5.499999996466635, 1.561013026830306}}, {{
+             5.999965558735909, 1.5766320816548154`}}, {{6.000000135581913, 
+             1.5837434545544529`}}, {{7.000000000091683, 
+             1.627430006520838}}, {{8.267499999941885, 
+             1.6846077495295744`}}, {{9.000000002972772, 
+             1.703897383662986}}, {{9.999999991187165, 1.728038674289375}}}]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledDiamond]", {0., 0.}],
+              "InsetString"], {{{1.5000000013587296`, 
+             1.0300303506211028`}}, {{1.8319999939041463`, 
+             1.11403591114808}}, {{2.3162500217487514`, 
+             1.2302506708884984`}}, {{2.4999999994437268`, 
+             1.2545297806190598`}}, {{3.0000000003832876`, 
+             1.3390667355212305`}}, {{3.0000000231065544`, 
+             1.33785783802253}}, {{3.5000000002660014`, 
+             1.3982269610558422`}}, {{3.9999994979214217`, 
+             1.4645983328660694`}}, {{3.999999999948025, 
+             1.461744983335513}}, {{5.000000001639429, 
+             1.5616103640560324`}}, {{5.499999996466635, 
+             1.6003870246473806`}}, {{5.999965558735909, 
+             1.6123041304704113`}}, {{6.000000135581913, 
+             1.6204109874225416`}}, {{7.000000000091683, 
+             1.663000693399253}}, {{8.267499999941885, 
+             1.7185755696751204`}}, {{9.000000002972772, 
+             1.737652836555821}}, {{9.999999991187165, 
+             1.7597581251757366`}}}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledCircle]", {0., 0.}],
+              "InsetString"], {{{1.5000000013587296`, 3.412157828319535}}, {{
+             1.8319999939041463`, 3.3239932577094233`}}, {{
+             2.3162500217487514`, 3.262753588937343}}, {{2.4999999994437268`, 
+             3.154578720296453}}, {{3.0000000003832876`, 
+             3.0892207691868503`}}, {{3.0000000231065544`, 
+             3.121766798273654}}, {{3.5000000002660014`, 
+             2.961932551785176}}, {{3.9999994979214217`, 
+             2.9853036905674912`}}, {{3.999999999948025, 
+             2.9750016708521745`}}, {{5.000000001639429, 
+             2.9011907457868897`}}, {{5.499999996466635, 
+             2.8830198526699053`}}, {{5.999965558735909, 
+             2.816273532689838}}, {{6.000000135581913, 
+             2.8309742624929344`}}, {{7.000000000091683, 
+             2.7828888395495923`}}, {{8.267499999941885, 
+             2.732300338417763}}, {{9.000000002972772, 2.716649901818914}}, {{
+             9.999999991187165, 2.6851662171224966`}}}]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6], 
+            GeometricTransformationBox[
+             TagBox[InsetBox["\[FilledDiamond]", {0., 0.}],
+              "InsetString"], {{{1.5000000013587296`, 
+             3.4302666631935868`}}, {{1.8319999939041463`, 
+             3.35280639151052}}, {{2.3162500217487514`, 
+             3.288783123843059}}, {{2.4999999994437268`, 
+             3.1812217866061565`}}, {{3.0000000003832876`, 
+             3.1178814439495612`}}, {{3.0000000231065544`, 
+             3.1408056026755995`}}, {{3.5000000002660014`, 
+             2.9432021108126283`}}, {{3.9999994979214217`, 
+             3.0003805448359233`}}, {{3.999999999948025, 
+             2.9927740303631936`}}, {{5.000000001639429, 
+             2.9218470544255837`}}, {{5.499999996466635, 
+             2.901732180264321}}, {{5.999965558735909, 
+             2.8224789370816814`}}, {{6.000000135581913, 
+             2.8478223912616674`}}, {{7.000000000091683, 
+             2.799762716288754}}, {{8.267499999941885, 2.749243054701984}}, {{
+             9.000000002972772, 2.731124916802326}}, {{9.999999991187165, 
+             2.697746856790584}}}]}}, {
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[
+            1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[1.6]}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
+            0.011000000000000001`], AbsoluteThickness[
+            1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
+{}}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{Automatic, Automatic},
+      DisplayFunction->Identity,
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox["\"\[CapitalDelta]\[Phi]\"", TraditionalForm], None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{
+         Automatic, {{1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {1.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {2., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {2.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {3., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {3.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.1, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.2, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {8., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {10., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {10.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {12., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}}],
+      GridLines->
+       FrontEndValueCache[{
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 
+          6}]& }, {{{2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {12., 
+           Directive[
+            AbsoluteThickness[0.1]]}}, {{1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.1, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.2, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImagePadding->All,
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 18],
+      Method->{
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True},
+      PlotLabel->None,
+      PlotRange->{All, All},
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}},
+      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(210\\), \
+\\((10  M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(210\\), \
+\\((15  M)\\)]\\)\"",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(330\\), \
+\\((10  M)\\)]\\)\"",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(330\\), \
+\\((15  M)\\)]\\)\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    Dashing[{0, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 18], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
+           ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "18"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.55, 1.001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{Automatic, Automatic},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox["\"\[CapitalDelta]\[Phi]\"", TraditionalForm], None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 18],
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}, "AxesInFront" -> True},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{{
+       GraphicsComplex[CompressedData["
+1:eJxN13k0VP//wHFkxpqtPlkLzUdkqZRC5L6zFEpkSbZkTQihFMquKCG7kCxR
+JEslUVkilIhSn7JmS7aJGIz4ze+Pe1/ff2bO65y5rzPvO+c85nkl7T2NnViY
+mJhcGC////71t4EiExMVi+Ce9tvUO4ntVkjSS+maxRYpXle9vk9hknZOZVzD
+89jU47d1paQZrDqWVSC8dhEbHq8ZkPiHiuWtJ+/JukXHntenP5cqpGJbw+Ny
+k9JWMT2PLZUNur+x+8u+kbrPmZBKe/y/fr2/sYidoz+UNFlQ/d6X6ocDZjHu
+m9fFZ9+sQ31sTmcP889h4063T5YpkFCqS+t4S8ocxldzWrX/CRn9uK/mxEr5
+g8XEJm/i3cqOQvW1i09l/cHKo/928V7nQD2druLjfPOYJMt21SBuLvTNR30H
+a+Q8NrpQnU69yI1CS8o/FEzOY/NnNuR1rK1HEl099SOmC1gxU0ZMSAgv0ubf
+KuD+ZAGz5mpSTfflQ85l01ZVbDTsumk2U5EyP9Jqv8ojZk3DbK1LGmum+NGb
+Ys7Y9HwaZpWT1UeqEECpDhMufTM0TC6w4Eyl7wZknPN68dmeRSx/4/D02e0b
+ESfpefB7j0VMZ4Kl1WRqI4r+ZHkt9eEiFhdslquR9w/6r2bf3ad9i1jJg9rJ
+ePNN6FasnFk8zxI2y8cTLSYiiC6od6VKYkvY4L5YqcJ2QbTyYfb1tbNL2Hz6
+7Ea3RCHU/f7UclTiEtZ728M32UwYxaisfWKuWcI89bZ01nOIIK/2us03+pYw
+aY3SsG1tIkij72dUOfMyFv37wp4bYaKI+47If6ESy1itiqnJyX1iKIcnl7Ss
+voyJvdr41npRDK2p/bq73nIZo7BwqNo/2oz8QzME032WMcPw/tWs81uQc1cy
+vTxmGdvWOF7fIyOOes8/7C/KW8Y60rhpoT3i6NU5sStLVcuYUfd1rNRQAp2Z
+4bvX3r6M8WD5oXcfSqDM+yc2bBxaxvqayj1l10uina+U2T4tLGOpqe8Tx89J
+og6zMwLSHHSsUI9JdXuzJEqWeF5pJUzHWoWlrrHKbkUblpzCyLJ0TLPFwfR0
+xFakpK3q1qpCx/LqSyyofVuRX3ODZvwhOib0/Re7GKKgPWxo5a0pHfvRiZSb
+0ymosSV81cmOjjUe7F5aW6Mg94Qz860edCwi9vzLd2d/YyHpbsmmFlOYafQN
+Icc2Cmr2+sK104WOldTa0kaeUDGpijvS7iJT2J0do9KbnlBQoNNuzQ5HOsY9
+uoujfJSCroq8uxnqRse0/jux0ceSioXcunUwhj6JvQpO2OlZQEEh0jW3xRzo
+2C6VPj6ubxSEzVrt/naWjv1MCGO2mKOgiyYykjLn6Ngtp84cVQUq1j1mk6M9
+OYl1bHetEL1HQdu8MvMP2jPOP/gksbKLgtbv/LvIyrh+Wd0ygjRFQUYW1o/N
+3OlY96/iK8VLFHSBe+rHEmNfhRzfr4xNVCw3uEL54fAkZnHVbP53JgXlrbMZ
+72Lcj3d7s7tjOijouPmMUDrjvGHxOm+/j1PQkaMqSpOM89hiqa9DFyjIu25N
+MJ6x71hynVr3CgXVf2ALtWfcvyaexzHHuKjYYn9qSP/AJJYlc2STTQYF2V1s
+XMpg7OcbSKItfqCgBjlyqiNjf7Oa2s9DPymI9wS3cyVjf954zMDUH8bcIpBj
+zdh/G1VaH6RT0H2dOeUdjP2ck+9E3FYpqDxVoS6ZMeOeUYcpieUW4FlUHd2S
+xxU8E1Ny0KXfnyY863jAja3/PkN4ppf5dHdDJHi230tcUkEePJNRSeh1aQDP
+os4I9cvYg2eP2KozR2mzhGcCTmdCKq6AZ4/TXPKF2MGzlBFu2udQ8Kyq+JMU
+af4P4dmQsOs8myt49u1h78SnDvCsPyv4+CVV8EzYgv/RjTTwLPJsKNV7aoHw
+TMqVdyhCEzxbEL7blHcTPFu1fOgU8QU863da0OsRBc9Wg7Zz6pqDZ98Epv7R
+TwDPXEj8dt5vwTOqQLeuEm2R8Czbde5YiDR4tli3nf3acfAs78tILFMgeGZ8
+oa20Owc8ExN02vj0DXj2wFF3kX9sifAspVuCJkQCz9y3D4TXS4BnmgcLO6jq
+4JnNMZ8/uWbgWYOh78d2D/Cse3dk1UQ4ePas6L6ufRp45kK7wWdcAp5pLrgI
+NNSCZ/5/DwTkdIFnEvvJ2JaRZcIzOVoue+yfZcKzwCF+CTdW8KyfJBvhIwCe
+eSnG11wTB8+WOOkhLArg2Z09vmkLKuBZ0rwoT54OeCY8+mo7rW+S8Cwstm2T
+AwaeMV0cK4y+M0l49qFH2W63Oni2cUBy4romeOb847KAqz941jT35EfSfvBM
+y1HUkobAM++Wz+2C2uDZ4JQLlckVPOM63ZHSpAqeKRlvjlVA4Fmxf0G5kRZ4
+9nPMRatPGzxrYIqz67YDz5bbNj8+pQqevS4vcmnGwDNfe7XhSU3w7Dv57ZYA
+bfCsuLnzwEEd8Ey/svhegw14Nuw7/kBWFTyjVcg1JmHgWU8zaeqFJnjG35oW
+qKcNnu1wGGrk1QHPfJj3F3nrgGeblZ5b+Z+eIjxzjxy+13l0mvCsQU5ezdkR
++mzk6pxktTr0mfTPII3rLeCZhftmA0sn8EzPOc4tggaera2zT3dKBM/42Xn3
+FspCn0m6KxgPlIFngk94pKgHwDOPxwF2Y1Xg2doik3CbPPRZVxvPGaYc8Ey2
+/FqZP/sC4Zkdm6qSiRd45tGy2+9oO3h2aMny7Zok9Jmd0rRq+QXwLB67aB73
+Cjzb7S7vrsy+SHhW33e9IP4IeLYp+hDNKBI8U0tuXhytA8+O+Fr3Ls6DZwrc
+IXbTUtBnR3gqftSdAM+Ye6r9roeAZxz1Xxw3PALPmui7luQ/g2eN17ZI2y2C
+Z5/Mo0RNxKDPQmw3Vk+qgWdf5pwiFS3As1f75D1l/cCz1GeN++PiwTNO8yqp
+5GLwbLT0A8n9DXjWvPN2Wdy3/+mzsSRFg9/g2cIJ7Y1OJDrh2fBVxQSSCJ3w
+7Or55pGdCtBnLPrvnWU0oM+KeV6M3jMEz6JCdY9L2oJnIbYLzennwDOPdREX
+YwLBs1nbJIfPUeCZjmJFz+8U8GzmmNC68i7oMz7jQSZ6HHhmRDW8b5AGfbZ9
+Wp7iEQOejZn67ghMBM/u7M/1Kg2cIjxTs2rQzL0BnqkHZ3C+vA2e+ff6e6sk
+g2cdg8am1z2mCM80g10raqLBs19cvfY98eDZgjJ/sWUSeLZO8XzoPyng2TWm
+L+uvnpkiPDNSzaDoRYNnQ/TdLW7x4Jn4vr3hE4ngGXugCn9BMnj29ZN6U1gK
+ePaAPcKO7jBFeNbnd0+PNxo8i8kdcN0TD55pDQn0VySCZzzNN956JoNnm2XW
+PTyaAp792Sn55UUKeFZPF/X/x3Sa8MwiSzuNdGKG8Kww7qpR10Eq4dkt13xr
+s8/gWWyojq8043fHPTuQPHdChnOW8MxeU1yuIWuW8CzY+nzcmtoc4Vniuk8f
+1jrAs+JNLBcOnPhDeJZ2tkO8pR880zydVGBmMU94hs3QDlBbwLORj54NbeoL
+hGcxlzWjtO6BZ7fCxcw3MZ4ncc9Wsvx/7HOkEZ6Fe6p06T4Fz45b9EYcYlsk
+PLsrorot4dgi4VlazWxHeDJ4lqe9x1H6K3h2/Xwatwb/EuFZxv5k8h/9JcKz
+047+dYpXlgjPwp8d+KxXBJ6l3TxZwPoNPDv5WertW5ZlwrOcc/dVheSXCc/y
+cq7oLh9fJjyzUfzmJsJ4PsQ9Ezr5x/N9InimLuyZY1QOnu3/484a3waelfT8
+p+QwDp4NuJNoH5nphGc1uUWfGxj+4J7ZKhidfraLTngmzukXwMP4/8Q90xow
+rx21oBOe+VMUzPTcwbPZ4L1/xIPAsyUt5b7UOPBsVrZQnysbPPMKs+Seegye
+Zd12efP3JXgWmGwQJPYOPBMoU/ma9xU8c9eV0CkYBs/4wvyR82/wDMsN6pfp
+nCY8y07vNxebAM+oqh/bzG9PE549/+t4ZGwMPFsXwZN+aBo861s4vW6dzzTh
+2crNKw91R8GzzXrG7eWT4Nmjxt6XX2bAswA3181BDtOEZ0crXxldGgHPvk3f
+HB+bAM9aGvyCeWfAMy57mvFdKnjG8eDwSpPVNOGZaq7yIO8IeCZJ09gXOgGe
+NbF4bi2aBs9sa1wy1ajgWZx7dh/Lb/Bsi5CH85T5NOFZfMTr1O/D4NmTSe+j
+hhPg2Ta5G0OXpsEzIeXhcg4qePZzJ9uWj1TwzHuyMVHpN3jmIdQo50rmRrhn
+edkdK6y1XAj3zPPljkB3Dy6EexY+9DPSWpwL4Z617O4V6engRLhnK4nK7fKB
+nAj3zLlC5W/dDk6Ee+Z5c6Aro5cD4Z5NXm+t8oznQLhn2pY1q6MGHAj3TNWu
+dUM9OwfCPYs8pS649T07wj3bLloRapPIjnDP1JUoQb1W7Aj3LKTXu/2NLDvC
+PVv+tu34sSU2hHv2szzDwvQ9G8I9e/tI8dPpfDaEe4YGdQrkr7Ih3LPOOFSs
+bs2GcM9iRQREKfvZEO7Z44xoJC3KhnDPBApN+A2Y2BDu2ff+kWPYCBnhnpUp
+PWVubCMj3LO6MAdT/edkhHtmIr355+0cMsI9i6fvansUS0a4Z4cOTA/fDiQj
+3LPwZyEhQm5khHt2SVJd6KsVGeGeKUQcV7Y+Ska4ZwlvOo91apAR7pnc7eQM
+891khHvGHTRqfleKjHDP/JQOrPiJkBHu2d89jdNCvGSEexbbLvyvKImMcM+M
+T/IKfqeTEO7ZNtn6fIdZEsI9YzcNSuH+RUK4Z9uP/KsRNkhCuGdVsnIB6f+R
+EO5ZeqGYeFYnCeGeRVd18J9/R0K4Z6uapGjBRhLCPctmOewl/5qEcM8eKmoO
+C1SREO7ZhqgdWx5WkBDumSlL1YWpRySEe3bu6A2LmSEuhHvmmFlNrSslIdyz
+Me6awVPzXAj3jP+LXOSechLCPfNWbz1s9piEcM+o2slJv/9yIdyzBeYLu6YZ
+n8c9Ey3nZeJi7Mc9+8Wm1phdQkK4Zxr3zPYqsnAj3LOSxGerRxjfH/esM0bh
+uDPjetyzqqSF/mXG9bhn+Q80aYcYM+6ZR2T3tWOs3Aj3zFLwEGsAYx/umb24
+pGAiYx/u2YKACqcM4zy4Zywviz75MPbhnulozsuLMGbcs69cw7HWJG6EexYc
+WHLrNmM/7tmlzkvMRYz9uGdnzyTf12Dsxz2LnI3Rj2bsIzyTqYrdxZhxz+zy
+5z+sY8y4ZwPPb+UY3OciPKv0vZx43gM8E+/p+xAnB54lskg1WfzkJDxjC1wr
+ouWAZ2wrAiz9puDZEovAzRhO8GyPymt1tRfgWW2K0GPvc+CZQsXGlRkZ8MzA
+xtruyw92wrPQ0bzPD/LBsxfsXYnV58CzkI8Dwhf2gmdKXyuXB1nBs8bhiSS1
+T+DZ1n7aoFIheDbI+apUMRQ8E3KWXqFbgWfRj2Wxof3gWWSAwssbwuCZiWFK
+oyidTHg20JJRGjdAJjzbei/8e2YjeKbW/5OXXAKeJWmPKWukgmevhg2MWELB
+swnj8pbLHuBZRHlZepQleNb37ImnhC54Nmv6mW1KGTyT4yoytJAGz8IjJy+9
+FgLPMB/x7j1c4NnJU8pFhn9JhGevZ86m8f4mEZ6Np1TdCRkmEZ7Vhh6mujH8
+wT1rtHt/a3M7eLYm2RQc+QY8mzH+xrG9+n88K/YMji4Dz4pZxfXTCsEz9W0q
+Fo+ywTMrfg7X8FTwrFrtyq7D8eDZ+z1fv4ZFg2fvK/vcr4WBZ5WfLwobXwHP
+RCTlNlVdBM/0KikxUjfAs9Ys3ifLl8Ez8Zoz1lOp4NmC0tmc3ADwLFktQNn8
+EniWcaO96uFd8KxRzVnOPxA8c7en6cpcBs9W/D4EXvMDzyJPjUes5XARnj3R
+z5wfCQTPFqa3msRfBs/++vrtnPEDz4KrpcUl/MCzUxsM3QryuAjP2AYNV0Sv
+gGf3/KsXGy+DZ+bezTKUS+AZ/4nTDSZ+4FlLgXDc5EXwzHXP1xr/fC7CM7UN
+G9mVr4Bn+o6PTAYug2fhE74KBy6BZ50kr8xzfuBZLN+KKdkPPFPYGtTReRE8
+o/vRn0Q6Q5/Fv5d2SuXnJjyry7q6XbcMPPN5U3zY9gT0WfT4i6jaVfBsVsE6
+wz8XPOtysPVYMAbPCgeY3VaZOAnPhPwD37g/Bc8smB2Z+7zBs3+dVJqKd0Cf
+3ejuOpk+C56lKSR4rb0Az2jJTsM6oeBZ2w+FvAIj8GzXRztuuy3shGePIg9+
+9KGCZyVG+bTYZvDMxdrR2CYbPBP0PiGcfAU8S61auPTCEjzj+nWlerca9Jl2
+JKc3hwT0WdKWw/UDrGyEZ9uiQ+bCpsCz6fp+rxNfwbOxs5NBlAbwbF/e447B
+UvCMvVl2Z0YWeCb97FgC3y3wbG0qR6YhCDzbuUbbYnsePMthqfp3xBE8Eypb
+7xBgAZ7V3k1inTGAPtt5mc92QAv6jL+j42CpKvSZtdikeesu6LP+Y8Z3U2XI
+hGdHd79qRRJkwjNJs3+lqAxPcc+kf32lB/CTCc+ajJSL73CSCc8WZZlHbrGS
+Cc+q7FKrbFbBM039mKGxRfDs4senbJ/nwLOoonyrrGnwzFN9dCvLL/AsdujQ
+Z8kR8Oz24KxUlTo34dnqnTMKUWPg2WMbvjMdx7kJz+QvT59t+AmeGR4QPmky
+Cp4dXrU+r2LNTXgm3Ry2134cPGtllqmcGgXPvqQUrH8xAp4tDNUN29tBnxX2
+tbOVj4NnpfIqhmpj4NnFZxfiyKPg2bsUm/ZzI+DZ1SWbvHkH6LMSA3Xub+Pg
+2b9vIvfaj4FnSRUFE/Kj4NkshTaSMAKe1fZ0tBweAc90hmfsNZygzxpHdP+Z
+HgfP8pD24wtj4JnBUKU4GgXP9vcX0e6PgGeaBy+2Wo6AZyky7m1KI+DZac8D
+pKeHwbMST95a41Xoswd2Ay7uD8CzM78VXxibg2dBSjurF0hchGdLx2eDbUvA
+s5dLaQkXToFnl9Lb3Xs4wbNfhR/LrteAZ9k3XVWV/cCzdtlIRZtd4JnW9wF9
+8//xjPeFj9mpKvDMjv2o+osg8Mzqg4zZEwPwzMvkn3OnRMGzUuX13+9PgWeL
+EX+jhJvAs2WhMkPTLPBsuf5H3nQAeJYV+3aHswV49uyo1h+u/eBZ+oj68PAW
+8EzuA5verXXgmefAf6FfJ8AzOzGtS7Ld4Bla1RLQrAXPEj+qNio9As94/2qE
+zKWBZ296N3OcvA6eFbLfNFm5BJ7p3IzZ73wWPLPMpGU3WYFn7ZSlPyqG//O8
+Kadu6aEJnnkFUWqVlcGz6sqE+RY58IzP4NOP15LgWclYOumCEHh2/dAJ/jke
+8Czqua5yAhk8yyz3MWJehT4bfrmOg38B+izby9eaZwb67JjsLOX7GHg24eLn
+FjgInjH1Wj+9+R08e0lxyfX4DJ5NPFPnZukAz/aS06IPtoJnVwe3WL+mgGeC
+uawjgm3g2Tv9KP+pveCZms+cT/QH8EzfWE7v4TvwbM3X5l6fBnjmUR+WqdMO
+nj2jbvQ//R48C7ofbzjfCp7t3pt9wEALPMvPWF+c2w6eeVpLsNe8B88yU+7m
+G74Dz8q+Fx260wqeWYlorYbogGeZLb8+draDZ3d+lk2OvwfPBGxKpwLfgWcc
+AkEHm1vBs7HT6209WsEzE4sDVXcOgWfNXuHuv9rBsx1e9qNMbeBZwMhaasI7
+8IyvSbyprxU8qym92BHeCp7RUz1mzRnz/wE7rqOr
+        
+        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+           EdgeForm[], 
+           Directive[
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Opacity[0.2]], 
+           GraphicsGroup[{
+             
+             Polygon[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 
+              84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
+              100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112,
+               113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 
+              125, 126, 149, 143, 138, 134, 131, 129, 150, 144, 139, 135, 132,
+               151, 145, 140, 136, 152, 146, 141, 153, 147, 154, 127, 204, 
+              231, 224, 230, 218, 223, 229, 213, 217, 222, 228, 209, 212, 216,
+               221, 227, 206, 208, 211, 215, 220, 226, 203, 202, 201, 200, 
+              199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187,
+               186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 
+              174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162,
+               161, 160, 159, 158, 157, 156, 205, 207, 210, 214, 219, 225, 
+              155}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+           EdgeForm[], 
+           Directive[
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Opacity[0.2]], 
+           GraphicsGroup[{
+             Polygon[CompressedData["
+1:eJwV0OlSDQAYBuBzSqtSWqlfbqlLcAG6ByKVVEh1kLRYQqFVIdmJlEq2Fu3a
+RNa0ePrxzLwz78w387379mdnHQgLBAJBQhwUnvGAu9ymlWYOkcNhjpDLUfLI
+p4BjFHKcIoop4QQnOUUppymjnApCnOEs56jkPFVcoJoaaqnjIpe4zBXquco1
+rtNAIze4yS2e85B7dNBGCy94RBedtNPDY+5zh5c8oZtXPKWXpu3hDJhJChns
+Ipm9xBBPEnuIIJo4dpNOGDuIYieJpLHl9iYbrPOPNf7yh9/84ic/WOU731jh
+K8ssscgC83xhjllmmGaKSSb4zDhjjDLCJz7ygfe8Y5i3DDHIAG/op4+gH8KJ
+JJYEUnmt+w+6YGM/
+              
+              "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885]], 
+            
+            Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
+             12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
+             28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 
+             44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 
+             55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
+           "Charting`Private`Tag$477657#1"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{0, Small}]], 
+            
+            Line[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 
+             85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
+             101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 
+             114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 
+             149, 143, 138, 134, 131, 129, 150, 144, 139, 135, 132, 151, 145, 
+             140, 136, 152, 146, 141, 153, 147, 154, 127}]}, 
+           "Charting`Private`Tag$477657#2"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{0, Small}]], 
+            
+            Line[{155, 225, 219, 214, 210, 207, 205, 156, 157, 158, 159, 160, 
+             161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 
+             174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 
+             187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 
+             200, 201, 202, 203, 226, 220, 215, 211, 208, 206, 227, 221, 216, 
+             212, 209, 228, 222, 217, 213, 229, 223, 218, 230, 224, 231, 
+             204}]}, "Charting`Private`Tag$477657#3"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.560181, 0.691569, 0.194885], 
+             Dashing[{Small, Small}]], 
+            Line[CompressedData["
+1:eJwNzNlWgQEAhdFfkTJrkKLB0FwIr9GNR/AA9dooJZKpwb7YF986a51S96Xz
+HAqC4IkeNXFNhTOKHNO3DXjljSHvfDDikzETvpjyzYw5C5as+OGXP/4J/IfY
+YJMwEbaIss0OMeIkSJIiTYYsu+yxzwE5DslT54Yq55xQoMEtF5Q45ZE7LinT
+5J4rWjzQ5og16U8ebA==
+             "]]}, "Charting`Private`Tag$477657#4"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051]], 
+            Line[CompressedData["
+1:eJwV0NlWQQEAQNHbp/iIBhGRMVQ0KUNRoiRkqBTlz9se9lrn+YTaw8rbVhAE
+JbbFNzNGvPJMlx122SPMPhGiHBAjziEJkhyRIk2GLDnyHFOgSIkTTjmjTIVz
+Lrjkimuq3HBLjToNmtxxT4s2DzzS4Yc5Ywa80GPJB+9sRvRZ8cmEIb98MeWP
+BWue+Ae0Ix2t
+             "]]}, "Charting`Private`Tag$477657#5"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{0, Small}]], 
+            Line[CompressedData["
+1:eJwNxls2QgEAAMBrKS2oH0toAdlDIakkCuVRpKiQSHklJUliTeZjzplQZGU5
+uhQEQZiYzBgz4IkeXeKsssY6CTZIskmKNBm2yLJNjh12yVNgj30OKFLikCOO
+OaFMhVPOqHJOjToXXNKgSYsrrrmhzS0d7vjmgzee6fPAnAlDXnjkh0/eeWXB
+lBG/fPHHPf/R8TTW
+             "]]}, "Charting`Private`Tag$477657#6"], 
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{0, Small}]], 
+            Line[CompressedData["
+1:eJwNz8tWgWEAheHvFyqhVOgw6oJMXIILqEutdFRUpIMkhU4insGz1rvWHu29
+ykF5PwohlDgU+VgIq6RIskDEke2YKieccsY5F1xS44pr6jS44ZY7mrS4p80D
+jzzxTIcXurzS440+73wwYMiIT7745odfxvwxYco/Mwo+rLHCInFiFMmRZokE
+W6yTYZltNsiywya7BOYh5TAb
+             "]]}, "Charting`Private`Tag$477657#7"], 
+          
+          Annotation[{
+            Directive[
+             Opacity[1.], 
+             AbsoluteThickness[1.6], 
+             RGBColor[0.880722, 0.611041, 0.142051], 
+             Dashing[{Small, Small}]], 
+            Line[CompressedData["
+1:eJwNw9s2QlEAAMCd7xAdhXKr5FoJhYoiCRWig/LE/7+ZWWui+K//mwghdF1c
+CCH21Wcf7Hlr0iWXTRm5YtqMq665btacG2665bY75i1YdNeSe+574KFHHlu2
+YtUTa5565rl1G1546ZVNW7a99saOn745dOC9d345ceSjfb99d+yTMz98ce7U
+H7v+A016FnU=
+             "]]}, 
+           "Charting`Private`Tag$477657#8"]}}], {}}, {{}, {{{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          GeometricTransformation[
+           Inset["\[FilledCircle]", {0., 0.}], {{{1.5000000013587296`, 
+           0.9847834098056367}}, {{1.8319999939041463`, 
+           1.061907893136631}}, {{2.3162500217487514`, 
+           1.1813678581916474`}}, {{2.4999999994437268`, 
+           1.2041833282235102`}}, {{3.0000000003832876`, 
+           1.293739383767079}}, {{3.0000000231065544`, 
+           1.2933556521098364`}}, {{3.5000000002660014`, 
+           1.356392538382269}}, {{3.9999994979214217`, 
+           1.4227761096623466`}}, {{3.999999999948025, 
+           1.4186329082260318`}}, {{5.000000001639429, 1.520246650457655}}, {{
+           5.499999996466635, 1.561013026830306}}, {{5.999965558735909, 
+           1.5766320816548154`}}, {{6.000000135581913, 
+           1.5837434545544529`}}, {{7.000000000091683, 1.627430006520838}}, {{
+           8.267499999941885, 1.6846077495295744`}}, {{9.000000002972772, 
+           1.703897383662986}}, {{9.999999991187165, 1.728038674289375}}}]}, {
+         
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]], 
+          GeometricTransformation[
+           Inset["\[FilledDiamond]", {0., 0.}], {{{1.5000000013587296`, 
+           1.0300303506211028`}}, {{1.8319999939041463`, 
+           1.11403591114808}}, {{2.3162500217487514`, 
+           1.2302506708884984`}}, {{2.4999999994437268`, 
+           1.2545297806190598`}}, {{3.0000000003832876`, 
+           1.3390667355212305`}}, {{3.0000000231065544`, 
+           1.33785783802253}}, {{3.5000000002660014`, 
+           1.3982269610558422`}}, {{3.9999994979214217`, 
+           1.4645983328660694`}}, {{3.999999999948025, 1.461744983335513}}, {{
+           5.000000001639429, 1.5616103640560324`}}, {{5.499999996466635, 
+           1.6003870246473806`}}, {{5.999965558735909, 
+           1.6123041304704113`}}, {{6.000000135581913, 
+           1.6204109874225416`}}, {{7.000000000091683, 1.663000693399253}}, {{
+           8.267499999941885, 1.7185755696751204`}}, {{9.000000002972772, 
+           1.737652836555821}}, {{9.999999991187165, 
+           1.7597581251757366`}}}]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          GeometricTransformation[
+           Inset["\[FilledCircle]", {0., 0.}], {{{1.5000000013587296`, 
+           3.412157828319535}}, {{1.8319999939041463`, 
+           3.3239932577094233`}}, {{2.3162500217487514`, 
+           3.262753588937343}}, {{2.4999999994437268`, 3.154578720296453}}, {{
+           3.0000000003832876`, 3.0892207691868503`}}, {{3.0000000231065544`, 
+           3.121766798273654}}, {{3.5000000002660014`, 2.961932551785176}}, {{
+           3.9999994979214217`, 2.9853036905674912`}}, {{3.999999999948025, 
+           2.9750016708521745`}}, {{5.000000001639429, 
+           2.9011907457868897`}}, {{5.499999996466635, 
+           2.8830198526699053`}}, {{5.999965558735909, 2.816273532689838}}, {{
+           6.000000135581913, 2.8309742624929344`}}, {{7.000000000091683, 
+           2.7828888395495923`}}, {{8.267499999941885, 2.732300338417763}}, {{
+           9.000000002972772, 2.716649901818914}}, {{9.999999991187165, 
+           2.6851662171224966`}}}]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]], 
+          GeometricTransformation[
+           Inset["\[FilledDiamond]", {0., 0.}], {{{1.5000000013587296`, 
+           3.4302666631935868`}}, {{1.8319999939041463`, 
+           3.35280639151052}}, {{2.3162500217487514`, 3.288783123843059}}, {{
+           2.4999999994437268`, 3.1812217866061565`}}, {{3.0000000003832876`, 
+           3.1178814439495612`}}, {{3.0000000231065544`, 
+           3.1408056026755995`}}, {{3.5000000002660014`, 
+           2.9432021108126283`}}, {{3.9999994979214217`, 
+           3.0003805448359233`}}, {{3.999999999948025, 
+           2.9927740303631936`}}, {{5.000000001639429, 
+           2.9218470544255837`}}, {{5.499999996466635, 2.901732180264321}}, {{
+           5.999965558735909, 2.8224789370816814`}}, {{6.000000135581913, 
+           2.8478223912616674`}}, {{7.000000000091683, 2.799762716288754}}, {{
+           8.267499999941885, 2.749243054701984}}, {{9.000000002972772, 
+           2.731124916802326}}, {{9.999999991187165, 
+           2.697746856790584}}}]}}, {{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[
+           0.880722, 0.611041, 
+            0.142051]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
+{{
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.560181, 0.691569, 0.194885]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[0.880722, 0.611041, 0.142051]]}, {
+          Directive[
+           PointSize[0.011000000000000001`], 
+           AbsoluteThickness[1.6], 
+           RGBColor[
+           0.880722, 0.611041, 
+            0.142051]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}}}, {{}, {}}}}, {
+     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+      AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {1.0000001836734693`, 0.8859494107593076}, 
+      DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{"\[CapitalDelta]\[Phi]", None}, {"q", None}}, 
+      FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {Full, Full}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 18], 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True}, 
+      PlotRange -> {All, All}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{0, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]]}, {
+       "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(210\), \((10  M)\
+\)]\)", None, None, 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(210\), \((15  \
+M)\)]\)", 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(330\), \((10  \
+M)\)]\)", 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(330\), \((15  \
+M)\)]\)"}, LegendMarkers -> None, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 18], LegendLayout -> {"Column", 4}]], {0.55, 
+     1.001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.7959276145938177`*^9, 3.79592764042418*^9}, 
+   3.7959300530181828`*^9, 3.796093879395844*^9, 3.796093915865224*^9, 
+   3.796095715817017*^9, 3.7963542659157257`*^9, 3.796354343210084*^9, 
+   3.796358766866686*^9, 3.79714194238379*^9, {3.797155486873975*^9, 
+   3.797155525296159*^9}, 3.7999868308207903`*^9},
+ CellLabel->
+  "Out[1013]=",ExpressionUUID->"8a22349d-9626-40e4-b940-9b77b014b00b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<1modePhaseWith10and15M.pdf\>\""}], ",", 
+   "pl"}], "]"}]], "Input",
+ CellChangeTimes->{{3.794745107489871*^9, 3.794745124721113*^9}, {
+  3.7947451734060507`*^9, 3.794745178346403*^9}, {3.799980522416802*^9, 
+  3.799980525793049*^9}},
+ CellLabel->
+  "In[1015]:=",ExpressionUUID->"351351a7-c9ce-41b5-9a10-759e05fabfa2"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/\
+1modePhaseWith10and15M.pdf\"\>"], "Output",
+ CellChangeTimes->{{3.794745128064619*^9, 3.794745162035549*^9}, 
+   3.794745394970635*^9, 3.7947458918898373`*^9, 3.795927642986547*^9, 
+   3.795930054351355*^9, 3.7960939259086437`*^9, 3.796095719908411*^9, 
+   3.7963543555840178`*^9, 3.797141944980846*^9, {3.797155518288965*^9, 
+   3.797155526153192*^9}, 3.799980528921487*^9, 3.7999868441551733`*^9},
+ CellLabel->
+  "Out[1015]=",ExpressionUUID->"8a42b001-334b-4959-9e80-c23e00b78ec4"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"pl", "=", 
+  RowBox[{"Plot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "fit2210phn", ",", "fit2210phn1", ",", "fit2210phn2", ",", "fit2215phn", 
+      ",", "fit2215phn1", ",", "fit2215phn2", ",", "fit22110phn", ",", 
+      "fit22110phn1", ",", "fit22110phn2", ",", "fit22115phn", ",", 
+      "fit22115phn1", ",", "fit22115phn2"}], "}"}], ",", 
+    RowBox[{"{", 
+     RowBox[{"qq", ",", "1", ",", "10"}], "}"}], ",", 
+    RowBox[{"Epilog", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"Point", "[", 
+         RowBox[{"Drop", "[", 
+          RowBox[{
+           RowBox[{"Join", "[", 
+            RowBox[{"dataq2210ph", ",", 
+             RowBox[{"{", 
+              RowBox[{"{", 
+               RowBox[{"7", ",", 
+                RowBox[{"fit2210phn", "/.", 
+                 RowBox[{"qq", "\[Rule]", "7"}]}]}], "}"}], "}"}]}], "]"}], 
+           ",", 
+           RowBox[{"{", "}"}]}], "]"}], "]"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"Point", "[", 
+         RowBox[{"Drop", "[", 
+          RowBox[{
+           RowBox[{"Join", "[", 
+            RowBox[{"dataq2215ph", ",", 
+             RowBox[{"{", 
+              RowBox[{"{", 
+               RowBox[{"7", ",", 
+                RowBox[{"fit2215phn", "/.", 
+                 RowBox[{"qq", "\[Rule]", "7"}]}]}], "}"}], "}"}]}], "]"}], 
+           ",", 
+           RowBox[{"{", "6", "}"}]}], "]"}], "]"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"Point", "[", 
+         RowBox[{"Drop", "[", 
+          RowBox[{
+           RowBox[{"Join", "[", 
+            RowBox[{"dataq22110ph", ",", 
+             RowBox[{"{", 
+              RowBox[{"{", 
+               RowBox[{"7", ",", 
+                RowBox[{"fit22110phn", "/.", 
+                 RowBox[{"qq", "\[Rule]", "7"}]}]}], "}"}], "}"}]}], "]"}], 
+           ",", 
+           RowBox[{"{", "6", "}"}]}], "]"}], "]"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"Point", "[", 
+         RowBox[{"Drop", "[", 
+          RowBox[{
+           RowBox[{"Join", "[", 
+            RowBox[{"dataq22115ph", ",", 
+             RowBox[{"{", 
+              RowBox[{"{", 
+               RowBox[{"7", ",", 
+                RowBox[{"fit22115phn", "/.", 
+                 RowBox[{"qq", "\[Rule]", "7"}]}]}], "}"}], "}"}]}], "]"}], 
+           ",", 
+           RowBox[{"{", "6", "}"}]}], "]"}], "]"}], "}"}]}], "}"}]}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "1", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "2", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "2", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "3", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \
+\((0  M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \
+\((5  M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \
+\((10  M)\)]\)\>\"", ",", "None", ",", "None", ",", 
+           "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \
+\((15  M)\)]\)\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.53", ",", "1.001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", 
+       "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((t)\
+\)]\)\>\""}], "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "18"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Full"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Filling", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"2", "\[Rule]", 
+        RowBox[{"{", "3", "}"}]}], ",", 
+       RowBox[{"5", "\[Rule]", 
+        RowBox[{"{", "6", "}"}]}], ",", 
+       RowBox[{"8", "\[Rule]", 
+        RowBox[{"{", "9", "}"}]}], ",", 
+       RowBox[{"11", "\[Rule]", 
+        RowBox[{"{", "12", "}"}]}]}], "}"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{
+  3.790687525253502*^9, {3.790687557253933*^9, 3.790687626971509*^9}, {
+   3.794719124299356*^9, 3.794719146529956*^9}, {3.794719180837043*^9, 
+   3.7947191812895803`*^9}, {3.794719305404557*^9, 3.794719337912737*^9}, {
+   3.794721676616198*^9, 3.794721757729083*^9}, {3.794724859435648*^9, 
+   3.794724871790597*^9}, {3.794725118644602*^9, 3.794725128522792*^9}, {
+   3.794725191243411*^9, 3.794725307093557*^9}, {3.794725563587913*^9, 
+   3.7947255660669003`*^9}, {3.794725621167235*^9, 3.7947256582695427`*^9}, {
+   3.794725692370412*^9, 3.794725727205797*^9}, {3.79472578245535*^9, 
+   3.7947257864266376`*^9}, {3.794725845727727*^9, 3.7947258805453663`*^9}, {
+   3.7947259216801233`*^9, 3.794725934809228*^9}, {3.7947260616247807`*^9, 
+   3.7947260941348667`*^9}, {3.794726499758119*^9, 3.794726501555275*^9}, 
+   3.794726554242114*^9, {3.794726949722827*^9, 3.794726988375607*^9}, {
+   3.794727549631509*^9, 3.7947275648117733`*^9}, {3.794738326185278*^9, 
+   3.794738404651882*^9}, {3.794738654299843*^9, 3.794738691198533*^9}, {
+   3.7947388116344423`*^9, 3.7947389903394547`*^9}, {3.796095724234614*^9, 
+   3.79609573766311*^9}, {3.7971555405357857`*^9, 3.797155554642912*^9}, {
+   3.797155601653513*^9, 3.7971556734778223`*^9}},
+ CellLabel->
+  "In[1014]:=",ExpressionUUID->"18f9384a-f0d3-4ae2-bd6d-3064f36c6123"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{GraphicsComplexBox[CompressedData["
+1:eJxN23c4lf8bB3AkW1kJKeNIkVSUnedQIdkrW0go0TCKjMhIoaykIlspOyMj
+DSOphDQc5xz7HHtlFr/z+8Pn/v7V9VxX7nOep6vX9b4/z5uYk5eJCwMdHV3+
+Jjq6///5c0b/EB3dNPajWf/DuSoyJrc/6eSDzlnstT2x90cpGRNzdClhH/yD
+xWbfuThWQMZq4hh5bjUsYftHztI9yyZj2ZxM8mmxq5is5rHZn4/JmPite1lJ
+D9cwWaO/LHkJZCx3xTtCp4oO3z48/+tqNBkLPzDcf1iTAb8lt76LFEzGOO5G
+icx+2ISf+MjOMeNNxqgu8ZYl+zfjN+vr5BidJ2NctWeUSeVM+BTH6BfO9mQs
+Ji6Zf6s4C15crLx0yoSMlUb/69waxYqfPikk66tN+74MUsrBHOz4Bpk3j1pV
+yNjwQk3qtC8Hni+fi71dloz9ceXNbl/nxEu8mZp6JUbGXtA9jrl5cyteNMY8
+qpmPjNmyNymnenPh6/0WGcpYyFiU2VO6AkVuPKPbczPVRRLmYFvYWDvBjTdJ
+DEmgEkmYTWYacXMZD973eblT/QcStu9GnmulNy/+iu2rHL0CEpbDNzjpLsWH
+T696aPo9gYSdGGNoNZ3gwzdsl/1Z40/C7oWYZ6lnb8MnjD1IzncmYYXPGsbv
+n+bHT/WknXTVJ2GzXFuihYW240dLKcxlR0hYn0Lc7vyv2/EdJ8lum0RJ2J/U
+Wb4LiQJ4mWiZWTpWEtYb7+mdbC6I36U5s21yloh5ndzV8Y5VCP90gEG4nUjE
+9qgXh0l+FsIn+m9Zv/WRiEXP+MjfCduBx8Z+m+AqiFiDkpmppYIwfi5B6Edq
+FhETrudrtl0Sxn/qVvZhvEfEcAysyk4vd+LVqLelVYOImOEt0lra5V34kH+b
+K/wvEDHJRuo7wl4R/OAHJczXmoi1P+RYDCWI4OXe5g+p6hIxo+4orNhQFN9d
+iHMWVyZiW7Cc0PTnovgbO4aeZEkRMWJTqZc0pxi+yqh5+rQgEUtJaUukXhTD
+K/xl5e5mJWL5J+mUpVrE8LdEtTLaVnuxVsHdkYzS4njKmX5J1oleTPOjs9mZ
+cHG8XXt8WQGpF8t+V2g1TRTHp2bmas919GICPaMswngcvujz9Kd7jb1Yfwde
+sSUVh++Iiavxru7FGjW6l9fXcfi1GwxfbF70YuFxl+s+uc9gyiOFV6tfkTGz
+6DsCZz/j8H8047R/l/ZihQ0Oi0Pl05jOlY4q/koy9kh2eA9/OQ4fROJcxVX0
+YhzDB1lLh3H4pZ8F8Q+KerFjvyz4rlpPY13rSm4NtL9fH5JwwCsPh9dObb72
+qbIXO6hE5GL/jcPruRzcolTSi1ESwuit5nB4nZIjnUsve7FYl45M5f3TWP3s
+Ch0f7f9ru9T5sh0ZOPzYtEdfehXt/vvKEys7cfjYJuY5Ftr3W1GzDt88gcM/
+Kr2z2lzYi3WPvgh8sYzDvzt/SVCaNq9sH9foY/5pTP2XTeBR2jyrIPM/M09w
++C8rung22vP4dORpd0w7Dn+XYhx3mTYv7P6J5h4qDn94VL36AO1+HLCUN6EL
+tOd195bbfdo8g+S3qt1/cfikXbND72jPr2lLUYwB+zR2ti9sjwltftreU/x2
+j3H4wnUHf4w2n4uctLj0BYdPqJkZyaHNb1FVpWhRcPhPlYGZzrT52dQY8sQ8
+Di/M4S7USJsfj6+01VjF4XP+qt9YoM1nG/8kdGENh5cai7KIo11veNZBvbMm
+FAmemYvWdG67BZ7t89b9IxQCnp3gSOHJDwDPuu9U7IvyBc96B6w7N18Cz57G
+nI9ccAPPRJq6M3afAc++FjMOalqAZ1cMfNfmT4Fnyj9+0ZVj4BllnGzpJg+e
+/VQJmq+RBM8S830HgwXAM0nuxx0zbOCZX5f3ksYSCXkWmpm//0gPCXkmrBRa
+b91AQp7tvvtlJT8LPPvM/2DrudvgmWdhXUjqRfBMbZLAwW4Knr3XodGhAp5p
+0g1oxYmBZ8vblo3usIFn+pu2+z6YJyLPVGbSfrj1EpFnmVte4A1biMgzcoA9
+z0wJEXkms8zy3OUxeGb+8DVfchR41mVlaWt8FTwLu4u7keQAnlXzH/DQ0QPP
++sQ8qKaK4Jkzs0dhNQ48u6r1HnPZAp4pMfsGn1vpRZ5VCflG1g73Is/emJ6q
+tPvWizwzSOh4cL6uF3nGLSHH0J3Xizwje0jW1sT3Is9C02a/SgWDZ78VB3YK
+nwfPTLeq/M22AM/41jxzPhwDz1q0WObvHADPfgaJC84Ig2f6L7Xpg1nAs4QF
+hcsF4WRMWjsw8JvNPMZscZ/1UCgZ81wq79M2WcRUPzc6LgeCd5dSwr+/4AHv
+mDyOkVwjyJisym3n8gdzmLIW1VMqjIy1yMR8lHq0gNXYxKxuDQYPvUyj5du2
+g4fjvBm8CZzgoc3juKR3tHnF8nHdOUfmMH/ha8IZtHnzWtfrUrEFzONq3khy
+MHgZZFa1YCcEXtZPfsNEuMDLh+dOm7Kwg5ctfaa8U7T5lw/y3EtjnMNGmE92
+99Dms5l5KXZyL2DSBSUnfwWDp66+h2zzdoCnFxwze124wVOnd7/C9TnAU8nP
+zjfes4Kn9XxHdmym+dNR2DkuND6LlZH9x5don5dsfd57auUPxp6hrLASDN5m
+hzQc0BMGb5kSLAxYecDbHd5WGtMc4G3eAVeCCxt4a6VvIS/GCt4KaV7i5qJ9
+PoPn4R2/SLOY3PcFF2aaf4TekfjAqT/Ynyeej9hCwOOcjsqMNGHwmMdaZKsN
+D3i8j5Cdp8EJHotpMmyrZAOPSxr+mV1hBY8V4j23t7OAx4ScrdGlVPBY7Ak9
+5WEfeDzd1TZU8wM85n93aPLZZ/A4culrldR78Dik9om6TiV4zIAPlpkpAI/X
+wnOZU9PBY7YBnsPpCeBxyikhvRdR4PHSmIolbyB4bGceyeF3BTxmsapwPegG
+Hk8UM5tuswOP6bHwY4Um4DEnX86ArjbkS7qP3dfnVSFfena+zFU6BPlyVuzY
+j3O7ycjjcZZXdxSEyMhjfKe5+AwnGXlsNqQl0kxPRh4H7p0Xrh4Hj7ED190p
+neDxgbcKhMZa8Di+XHKnYi7ky0feckr/YiBfMoTz3a/0g3zpn7LyjesM5Euu
+O79u+p4kIY/H9p/CsdHy6YbHFo8+ZFSJkJDHyyfjpUo4SMhjWW4mzYkV8Lj8
+DjP9Kwp4zPcpL7f2J3gcU64jc68FPE4IXV0Lfw35stC151jNS8iXk6x/t4w8
+hXz5LGsxi5AE+dIu0Jb0Kxry5Z07Ey7TIZAvwzMfXvG6RkQeL9zuO7DgRUQe
+u94fO1/qRkQei2oTqWJORORxstmvrCQbIvL40+O/dkvmRORxkV5dqpIREXlM
+/iHp2zwE3vpPpFQzmxKRt7evOcY3joCnMRfuvwswIyJPN6dVcD82JiJPDZz7
+Veop4CUXuXtFifb5G14SemIJRiZE5OXSKq8plfZ9Nrws35Q5qUQFD70u5J9L
+of38hoel+y6yvKD9/IaHXZlHL2vSPn/DQweWwIp7tHnIwyehJB8qeLfq/d2o
+hTZvwzsedf32X7R5G97pnZE45EWbt+Gd2WjGfC1t3oZ3nVMxKWdp1xvevQx5
+cDSRCp69lmExJdPmb3jGu/NDwzRt/oZnFxIsnoTT5m94tq37q0gnbd6GZw+V
+QrL8adcbnu08npVkQLve8CxfxnyX2b1B5NlBoqZ6utsg8qy0cfF+gNIg8kz/
+15DaLeZB5Nm0S/Yev64B5NnCeNkW39QB5NnVz9urYp0GkGe8TwWI7yUGkGf9
+BqXKUSP9yDP/sCp2j8J+5NmEEX/d6qV+5JnAiWPpPkr9yLP74iGZOxn6kWc6
+bhaqj1r6kGcyJa0ewYl9yDOOAF7ZXrs+5BkDfdcJBek+5FlHVV0JaRU8+3Zl
+WD/3E3hmES2rEPsUPCM+asWmroJnDZgY1yFd8OytTYQ5J83DDc88rNsMnP+B
+ZwUNA3tUqsGzoENyTVHXwTMDoZef2hTBsyi94Uz/f5Avp21Dz7q/hXxpVfnv
+vN9tyJcL5/VVfp+GfBkgaFJfLgH5UnX/tIHZYi/yrDW8DT/X1os884huD5fL
+6EWeffqrttfWvxd5ZnxU8aW+SS/ybMdWycuVspAvX4doS1/ihHwZHmVDZB8j
+IM+Ib60cfdsIyDMiLukd+QUBeWY5MffKJo6APOMLLSDw+hCQZ1xfyszIVgTk
+2ddtf2syNAjIM9vPPj790gTkWaj2evJJXgLyjKIlxaO61oM8Gxo003k/0oM8
+E6rtubstcBB5NshtIdA724M8e/WJaXdvxCDybPvlNa+wpR7kWa8AqVV7ogd5
+1pk4RMq8M4g8yySX8dqt9iDP/k4ZmHFN9yDPpk0kvcNGe5Bn7T1jvGsxg8iz
+lCLeyE9/e5BnmydDZH1nepBnk4eeCQ6N9SDPfFnsfolTe5BnkkGr9VJxg8gz
+X4sHUmH/epBnlxVdb0rR7nfDs0nxeqPk8R7kmTCL/+ZO2rwNz/wMiqeuUHqQ
+Z1Fz8gJvaPM3POP1E95Gos3f8EwyyeZ4GG3+hmdyey9snqLN3/BMwvTG4X20
++9/wzC9ehdBKm7/hmbH9a94dtOsNzy7nc8cUO4Jnd63nrmqog2dnKo48LOQB
+z/azaNQ+GhpAnu3a2bxW9wo8i/PJiFEOAs+spZYYHmuDZ9f8LHZJsoFnM9WT
+yu5t4BlBkN7nTDx4Nn4Qt6PGFDwjGJ825BcCzzQT1+Wa+vuQZ5wf8N2e+eCZ
+dmcLoeUqePapV1GjUw088xK2dxBgBc84lqxdiL/BM+53pk/Gn4NniyqdmnIh
+4FmgyV1eVjPw7CQ/z/u30uBZfrd6FiMTeJaSV7aHpQE866/b9dr4BniWMPDn
+4Vc18IyiU6s3twL7skPejgbZBvDsbs454rEw8MxnqZggogue6RQxDG/fDp41
+vozIFu7vRZ7pqbZkN5WCZ7xNPz20I8CzPabnL7Fbgmf39g/9aJAFz74KVF8Y
+2wSeTSyPRub3EpBnpYk+4eXVBOTZR0OdfWcSwTO/Cz15LFfBMyve410+RuCZ
+eI84/+aD4JmH07c8Vl7wjG5Gi2tmvgd59niGWsjyuwd55p15qq2yoQd5Zm+R
+U+SU24M8izFcZ+iKBc8qjMoCMnzAs4Xa17vijcAzLr/xKP5Q8Mw4Ju2ijhV4
+ttPolqBHFHhm8N2CtzMAPLteT28XYQeeje3F3jy5A57JajyInQ0Czz6UxW2t
+ugaePT4oOf3EATz7xd2npxQDnjGyuqyGhYBnd43/MZzwB8/o44WVZPzAM53Z
+lt68M//xbLSdgSkWPMtRYtilfxM8++sXOMIeAJ5N97nQzfqBZ4sVSRXnfMGz
+/BMn7GQcwTMt07Rlj1jwbLH1QmvJTfDs6I5Ab68A8OzUL+F1s2vgmWxFqOdH
+X/CsrsuYi9EXPCMVpxQt1oNnXY7xLP/iwTPG79XROvbg2cXn0XUeUpDP3hXe
+NDo4B57Znm2KK60Az2IuK168GQievWz5/cQRA8+6BnyU8xgGkGeCE16Zfq3g
+2eQlVge1WPDMTOnAVJcFeEYqpuPxEYN8Fsbh8bSZAp5xxbX9PfIKPDMQmBIa
+CQLPkoZOypidAs9SrouukYX7kGf3cdfXHMbBs4pft6VGG8Az9SEWj+8J4Jmi
++0G7p+7g2Q/yZ2b+4+BZesSsisNOMvLM+31+kvgCeOYa7DmrUQGelY890c31
+hnxWOlMc3qQC+6YJX9po7Dp4dtRXd/lLC3iWJZkS+zgFPJMP3/lTzxXy2T4R
+geU+VTj/Cz3RwJfOC/tm8VuFR1aj4BljW+K1xUbwrNPx1WTRU/BMV8LRuikY
+8lmDh+DXfY6Qz7C3nvcrNeD875jAT6HB3XD+53R4uPgUK5z/3V3/YF46CZ7V
+Z4Rz7/oBnokUiD78Wg/5jEFly0eVZ5DPtJbSd3EmQT7LVbIKOhgC+UxT3VQs
+8yIBecZ/fYFviJb3NjxTr/m7kvIMPKt88SYvy5mAPBNg8yJcLgfPuOOvNaW6
+EZBnF2xdQ2vtCcgzmQsfnd5Ug2eWKXvdhC8QkGcf05iEZB0JyDPh2dqfBrYE
+5BljZImifS14Zqmv9dbegwD5rPOxo5sTAXlmyGN+MNyOgDwbDXriL2hDQJ4x
+ssk+Laj7j2fv7IzoaM9jw7OjCm2Dm2n3u+EZ+fNatSjtfjY805GNZSunzUOe
+DbXuDbYmIM/cMsQ7jevBs77U1IPGtPkbnpk7nKo3o83f8EzyiFWyJ23+hmf/
+2nrc6Wn3v+FZg+fsyTba/A3PhkbEt8vRrlE+e9WuFstMRZ4tRZxuolRRkGdt
+9Y7y560pyLMPkgNv1FdHkGeiNyLDmR6OIM+cVvfczJUeQZ4tHfaNDng7jDwj
+Lh89nGIwjDy7yy/YLUocQp6t39777qrvEPJsr3gA1xGWIeTZjczb3DNZg8iz
+sz7ybAnHB5FnrcF6HLXkAeSZYYRkrmLkAPLMOYeiZSQ9gDyLi8tttu3sR541
+XnljzxvRD54xF3PYKPTD+RmRTrh6qg95JpJuzHcgrw95dno7Q06vcx/yrK77
+jIrb3j7kmcIrVl+PMfDMjWO85eErMvKMvsX926MwMvKMVex4qLERGXkWZJKa
+yY0jI8/Y3HHlF6lwfpZtuKUiKgHOz2afsMxWacP5meGxD+fGl8Gz252yu+Vf
+gWfMSw+KjvuAZ93rnh9uycP5WdfAwoT9MngmeZy54VEdeNZvVehTEgWedYW4
+PrU9DZ4ZyR2+GiUBnnEJ9p7wXYR81qe/4ML+EfKZP6VAr/kJeGY0//6ztR94
+lum8VvnSEDzjym477CIDnql94dhiyw6eWVKsG/ZSIZ99CRqwKGuFfFbSla98
+7Dnks9e2BZU2fRTkmVQaB4vOa8hno/wmkg3zFOTZRxWnF5feQT4bNHbYpFwK
++Wz23mUHlTUK8kzjrdPr2CbIZ4bd/JZHKyCfudrZ/1MphHw2ptm/m8pARZ79
+FGdQeNoC+WzrafKARhXkM28nQ0XlYshnku/WTdVf/CefPf9GUdtMBc8si+8/
++wj5TPZ7+7vj1ZDPhLJWRpVKIJ/1X3vlq/ay5z/nZ+xJ+ALIZ9k4MtmFiYo8
+e8/I7yrb+p99c3emZVM15LO5ovjRqhLIZzVeUS9rXkI+GyvicntTAPmM327s
+99vnkM9eb1poYH9DQZ6de6KZQ/UDz25LhGgpi4Fnj/X5d11uAc8sGCPJEhfA
+s4gDDYKqdOAZedf4kYAU8KyZSWLwxm7wzJ1k6Pi9DDwr4Qp3fqgLnrHUanA+
++j2IPCtQouIp3uDZnwqpxqt84Jm51DfGn0Xgmdp3Sv6aOXjm72ljJrzcjzwz
+W8rRDc4Ez9jWuY3qzMEz0bH6R/VM4Jk+hbH2dwN4dvCQ88CO6+DZGY7a9AAF
+8Czx6DPXqFXIZxQ5ednhevDMP+Hco/23wTOf5XM7t5wGzziK1TlscODZvqNV
+1vOjkM/WXik2OtwFz5R05oT2HwbPfFUeEn4NQT6rOq66+DcRPDO8URwqoQ+e
+ObzWvTrPCp6J3hj9EvIB8tm25WqOjxHgWfJZb1dubfAsz0Oo2H0LeBban5Pg
+8gv2TXvfbaoJmbBvfhTObmq7DJ699I0ddMPAs6C1Q8l6XODZLb1bylbDPcgz
+88bxvrHXsG+6Hb02dSQR9s1lV5HAAS/YN3WypZ2P6IJn79Mae5P2gmd26ZW/
+XjGCZ9vN98Y9egyeMc3UOHjxg2ePm1pndxaCZ7x3mT57i4BndIkcB8M5wTPL
+quDCvArw7FL37d/0EuDZDveg4QVu8OzOlrEDQqzg2T9Tfh/iawryTOZ2xl9d
+SfAsY9PqSTk+8Oz0zaVfBuzgmWOd5cERJvBsodHp1EItBXkWw6F05NIe8Mzu
+/fU0o23gmcSU21d3DvBss/SYPx0LeGb4gMHoy2bwbFbhrAl9PQV5tlp6Y5Vh
+L3h240TwDGkbeOaAN76yyAGeqVkJ6cSwgGdZ8tRSaybwTKQpjVlzM3i2z7Wg
+issI8lnMJY+RkWXwjMfqmOijBPBser3IkUOWgjybmouUpjSBZxrNcRRuc/CM
+5xQdKWAUPFsaP32rzA88K9Pv1/VgGUaeGW1qEzXIBM/0osp5vx6BfGbAId2/
+3AGedckfNSz1Bs80upt5n3IPIs/OKp7NulQFnhkSfJRv2UA+a5XMO67COIA8
+Cxv2uOheAZ4xSmQELrqAZzHf/wY82NWPPNvKiT+h+R08MxLXeY7dB89GvAQ4
+dcwhn0Uokutmt/chz06HX17Y3A+exSR7hEsVg2fM8SeXtAPBM7eIn9ufGUE+
+44yN/HaU5t2GZzynpYwHZ8EzL/przCnPIJ+Na+h399jD+81m6ZfNGjvh/Wbx
+kaGxRDJ4Fhs2Vx2VCfks4Yv81/kL8H6zCpcqIHkY3m+KaGuqLjPA+01pEamX
+pt8hn52YNCkIzIV8ZrmNv1EkEPbN7bvtR16awL55vWP3Js190DfZ8XiTky0L
+9E1m6LlivQYhn1WxifknfoB8Fnx4Ja0rF/KZm8ydncJRsG8S7Onb2z1g32Rm
+S33Ybgj75pmzsuQdklTkmd4pu+L/71sbnim7/rJyUqUiz8KodXc8XGDfbN1a
+2j1uAfvmPXdnrs8nqMgzvheqqTvcYd+8dazoY5g17JsnXnxrtTGFfbP3UGH3
+nC7ks8haJ68/52HfDHneGGhsC/tmwrHcRJz5f/bNply/JGPYN5/E4iPC9CGf
+OWbvney/APsm/cieESU72De3nL7LxGIB++a75uAr10xg37TU2fa71Aj2TWsu
+W69WA8hn0RZFHVYesG9+ZWx888IO9s1IkS4nfwvYN1UjFnhGTWDfVJBR2ilh
+DPsmx7xioYYR7JtWypG3rt4ZR54dGWm3vCM+jjxrShKtPp4zhjxLZjidPL1n
+DHlWY5E0di1vFHnGlcn/YK/AKPLMXmjxZsY9KvQ1nvaulv+jIM88A6TCGLwo
+yDOmpYdNl8dHkGeHv3CyPnUaQZ7djTjeLTs8jDyTja6nPLo0jDwTz7ZWt1gY
+Qp4x3tzT5nZ7CHkmVK0asUVwCHk2saeOKbp4EHnWMrkWJmk2iDxrV026Z/1n
+AHm2o85zqCVjAHl2KXcwzF5vAM7Pkvz0r/3rR55ZvxE8xlvVjzy7ruGpfeBy
+P/LMyOT59G+5fuQZ44u4rVLLfcgztZtGMtL1fcgzV59hC53oPuSZ2OgZjlM0
+Lzc8q3/rXnJaog955vhGLBu/TEaefXkZ80PiMxl5pnQ4cqdWLhl5Nqudp/f/
+ftiGZ7ekrYlSdmTk2YNTUlYBamTk2ayYFP0fITLy7Mn+gJa8FRLyLGJxLiDk
+PQl5lnXcV/1DNAl5Zt8UZ3TbkoQ8Y+NuJvRJkMCz3yuCX+ahr+G2dFZNuhX6
+Gm3qsd0H06CvsTf+wKKYH/Q1FJ3CT6eaQF/j+Rm/6E4Z6GsUpcc2K7JDX+Pi
+JjEF3xHoz0kP8e25aDkOfeD0Nf2dy9CPk1CPNjG6Mo480z7uMbCDAfoapVOX
+7qlOQ/8t/PDjgJWgceSZ9HGcRC4T9DV0l+N78ueh3xbyepv99zHot0U/EFE4
+Gj6OPEtfiWOZZIG+xk3uBdn+Beiv3dPnTmKehP5aknoZNZsK/TXhLP4Jq6hx
+5Bl7ZtoLHjboa9ywptxaX4R+GvHHdmuxKeintc29HKsdhX4a7/3x0zEU6KfJ
+pjHvHLk9jjzzzFXYl8MGfY12Y3ab2CXon6X68bsWTkH/jCmrnf/kGPTPJBfa
+eASp0D/zmmOrpqdA/+zP7+8PHLeBZ4naM3JZ1WPIMw96/+DGk+AZeyuni9CP
+UeTZReOzhsH24JlLdd4m3S4q8iwk/ozgZQPwLIj5ZMLH1+CZNkPzxwEp8KzU
+NzX8azZ4xrGnqcxNADw7p7cexpIKnh2SuRewFweenQjo3y6TD54ty2sqHFQF
+zxbT0/ksPg0izygRHaR6Z/BsmVDPH8ACnk1adx9hLwDPvEYVmRoswTM25SHu
+FEbwzGL3+46SCvAsMas4Y/oyeFYT92C37T7w7I0aQ+X4eB/yLO0ei2h9KXhW
+54yjb/MFz+L5Qz/laYBn3vaXZKbYwDNRicHmPz/IyLNnr5y06p6DZ2FSDTlC
+N8Cz8GlOyUoT8OyISqQ8pwx4Zi6WwinGCJ5p3b3C6fSWhDxrttfN0L1GQp4Z
+rVWyOSiCZ7vLvOMLV6B/tijHtvNfzX9+vyG94fOxW9A/w1nNHWrQhf6Z4baB
+QeZt4FnBp8g4tSHIZ8sXLul/LoM+cD37v1eNkdAHprY/fxJoD31gW+bXD0vl
+oQ/soUeVjeaEPrBdxI6J34OQzzJ0eoYWKWPIM5+V/i9zS5DPHgQlvb67PoY8
+a4zw5T2w6T993jPO1B+TkM+ercgHxLGBZ/Lv36dZskBft27h2WLfHOQzdWHn
+pO9UyGcRwXb5a1vBs+VabZdpNujj5imoUd0XIJ+9Z2T8aD4O+cxruEjv9Ajk
+M1UDoWclPOCZoHoy61EO6Nume3o9KVyEfObQGPQoeQLymdiHFvlkCuSzjAoi
+SWAY8pnFzT4GNj7wzNFhx90BDujTHvQJlDRegnyGydHJK05CPhsX1/x+hAr5
+7Nw8PXPVMOQznSX1H9eHIJ/VPFC6HE4/gTz7HlEc9P+8tuGZqHTz7Hu6ceSZ
+qOrT5qZrkM9YbZsir0yDZ9XR4dLMtpDPVDJjRr91gGeBKlfOPsVTkWeJ83fU
+xMrBM8vrD5n5DlOQZzY+5vY/XoBnZQ2395rLjSDPpCnj5lvrwbO1to6zIceH
+kWdbvnA4ZfwAz9Q6fiw2nYN8NtOSt9/8H3iWTIfNfEsHz0qEzcaeYYPIs6a4
+nA/fRsGzLt7BPxKJ4JnAZpkW9eMDyDOxntDBI2vgmeLccXeGSvCsz9VE+uM1
+yGfnm/nXE7B+8Cwt8HTU5n7kmWqXbj+lAzxr8zEez00Hz+wcplKrL0E+2/6R
+TP9Buw95Jihnw3pgVx/ybMKPbtv3ZfCsyLzZxfwneFYuL1wkVwGecRg/LDiR
+AvkshO9lyYfrkM98ZEWOLdmTkWdzT6rlpLTIyLM9+2aKGmlebniW4Vvk7spP
+Rp7NtKRGblqHfJaVzmOY2EVCnkns1qRuLyIhz9K4XzgkRpGQZ/ECTkpB50jI
+s/A5B+5KLRLybKH6cMD8bhLybG5W/swQCwl5FhwiGcw9Cn3aspsGbv3NkM98
+Tgh91lqGPm3Rv6BR3iHIZy30TmUs9CTkmW9QkGL6DPRp7T0Zb7jMgWeijaHP
+5hhJyLOfqwFvvP5An/adZYvk9wno094t6nsfsAKeaSn9LBhjIiHPbMaLvK0X
+oU9rk7zLsXoK+rS1yRURs2PQp11Z5DnEsAae/ducZ0hhJiHPLLUcPYyWoE9r
+NVos8GIa+rTXcAlZA+PQpw27sPKVfgz6tJtq9it+WAfPAiaMW8/RnveGZ16y
+D+M+LUGfdqFW5tHuGejTiuIcLG0noE87vPhgl/8Y9GlTJrtTb9P+vf4HWaQM
+Fw==
+         
+         "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[
+             PolygonBox[{{78, 158, 150, 143, 137, 132, 128, 79, 159, 151, 144,
+               138, 133, 129, 80, 160, 152, 145, 139, 134, 130, 81, 82, 83, 
+              84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
+              100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112,
+               113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 
+              125, 126, 161, 153, 146, 140, 135, 131, 162, 154, 147, 141, 136,
+               163, 155, 148, 142, 164, 156, 149, 165, 157, 166, 127, 216, 
+              243, 236, 242, 230, 235, 241, 225, 229, 234, 240, 221, 224, 228,
+               233, 239, 218, 220, 223, 227, 232, 238, 215, 214, 213, 212, 
+              211, 210, 209, 208, 207, 206, 205, 204, 203, 202, 201, 200, 199,
+               198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 
+              186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174,
+               173, 172, 171, 170, 169, 168, 217, 219, 222, 226, 231, 237, 
+              167}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwNxudWDgAAANBPb9KjKE2jJSUkTSWV0VApQmgvLUS7kChCS1Q0RBHK07g/
+7jk3OL0wviAoEAgcoJeDcpebVFJGMVcIIZRDhBFOBJFEEc1hjnCUY8QQSxzx
+JHCcRE6QRDInSeEUpzlDKmdJ4xzpZJBJFtnkcJ5c8rhAPhcpoJAiLnGPGq5z
+jRKucp9bVFFOKXXcppoK6rnDDRqopZHLfOQfv9hni5/sscY3dvjLCl/ZZJs/
+fGKZL2zwg98sssA8c8zygfe8Y4a3vGGaKV7zikleMsELnvOMccYYZYRhhhhk
+gH6e8oQ+HvOIh/TSQzdddPKADtppo5UWmlniM6us851dmvgPkFBYCQ==
+              
+              "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.560181, 0.691569, 0.194885], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwVyNdCDQAAgOGTN3GXUUmkpSVFKklRiIbZcDQk0lCojJSGHEmDKCVFiWi8
+WZ+L7+L/d1cEC27vCgQCYYQIF//HTSq5wiUusIe97GM/EUQSxQGiOUgMhzhM
+LEeII54EEkniKMmkkEoa6Rwjg+NkksUJTpLNKXLIJY/T5HOGAs5SSBHnOE8x
+QW5xlTJKucgdqrhGOZepo5rrVFBPDTdooJZGSphhmz9s8ZPfbLLID9bY4Cvf
+WOYX//jCHAssscpfPvGRaaaYZIIPjPOeMd4R4i2jvGGEYYYY5DUD9POKPl7y
+guc8o5ceunnKEx7TRSeP6KCdNlp5SAsPuE8z92jiM7PM850V1rnLDhMXSZk=
+
+              
+              "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, 
+           {RGBColor[0.922526, 0.385626, 0.209179], Opacity[0.2], EdgeForm[
+            None], GraphicsGroupBox[PolygonBox[CompressedData["
+1:eJwNw4dajQEAANA/PUBIoUFXgzSNlCiR0dC6GUmhq6WpoZCVVQmhjK6t+ZjO
++b4TigyHh7YEQRBj1LjYILhsgzWet9LTbnWb2413hwkmutNd7jbJZFNMdY97
+TTPkPtPNMNMs93vAbA+aY6555ltgoYc87BGPWuQxiy3xuKWe8KRllnvKKzZa
+6wXPesarNnnRKs/ZYtg6q71ms/W2esnrVvjOTf+64Xf/uO4Xo/52zU9+dtlf
+rrrgR5f85k9XfOu8b5xz1hlf+8qXvvC50z7zqU987COnfOgD7zvphPccd8xR
+R7zrsEMOOmC/fd6x1x677bLT20bs8JY3vWG77/3gol/94T/b/A+Vzzsp
+              
+              "]]]}, {}, {}, {}}, {{}, {}, {}, 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], 
+             LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
+              11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
+              27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 
+              43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 
+              58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]},
+            Annotation[#, "Charting`Private`Tag$477816#1"]& ], 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], 
+             LineBox[{78, 158, 150, 143, 137, 132, 128, 79, 159, 151, 144, 
+              138, 133, 129, 80, 160, 152, 145, 139, 134, 130, 81, 82, 83, 84,
+               85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
+              100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112,
+               113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 
+              125, 126, 161, 153, 146, 140, 135, 131, 162, 154, 147, 141, 136,
+               163, 155, 148, 142, 164, 156, 149, 165, 157, 166, 127}]},
+            Annotation[#, "Charting`Private`Tag$477816#2"]& ], 
+           TagBox[
+            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], 
+             LineBox[{167, 237, 231, 226, 222, 219, 217, 168, 169, 170, 171, 
+              172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184,
+               185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 
+              197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209,
+               210, 211, 212, 213, 214, 215, 238, 232, 227, 223, 220, 218, 
+              239, 233, 228, 224, 221, 240, 234, 229, 225, 241, 235, 230, 242,
+               236, 243, 216}]},
+            Annotation[#, "Charting`Private`Tag$477816#3"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwNyllagQEAheFfkTJrkKLB0FwIUShtoBtLaAFsPpkavBfvxfecU/qcjMah
+IAg++KIn2tS545pLprZvZsxZsGTFD7/88U/gH2KDTcJE2CLKNjvEiJMgSYo0
+GbLsssc+B+Q4JM8RxxQocsIpZ5xTokyFKn2eaHDPDVcM6PDIA7e80qVJjTee
+aTHkhXcuWAMd8hYU
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#4"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwVz9lWQQEAQNHbp/gUDSoSbsoQGUuD0iCSUgpR+mfbw17rvJ5IvRPebQRB
+kCQqfhjzxgvPPLHJFtvsEGOXPfaJk+CAJIekSJMh5Igsx5yQI0+BIqeUKHNG
+hSo16jRocs4FLS654pob2tyynupwzwNzvnhnQI8uC74Z8UqfXyZ8MOSPKZ8s
+mfHPIyvnUSFJ
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#5"]& ], 
+           TagBox[
+            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNxls2QgEAAMBrKS2oH0toAdlJIakkCuVRpKiQSHklJUliNeZjzplQZGU5
+uhQEQZiYzBgz4IkeXeKsssY6CTZIskmKNBm2yLJNjh12yVNgj30OKFLikCOO
+OaFMhVPOqHJOjToXXNKgSYsrrrmhzS0d7vjmgzee6fPAnAlDXnjkh0/eeWXB
+lBG/fPHHPf8FLjhy
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#6"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwVztk2gmEAheHvT1IRaVBJKNPVdOISXAAXnAZjhpCxiPR08Ky119onb/3k
+7Pg0CiE0aRn1WAhVNsixRoZzX5sOXXpccMkV19xwS5877nngkQFPPPPCkFfe
+eOeDT74YMeabHyb88seU/3mwpogYC8RZJMESSVKkWabBFiXyZFlljxplCqyz
+zzYVihywwyaH7HLECjMCFCfD
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#7"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw+kyQmEAANCPN+mfKEJlSVlKIldc2VWKqNCNvP84Z+akBkk8XQghRC4t
+hjB15Ks9n3007bIrZsy66po5191w07wFi2657Y67ltyzbMV9Dzz0yKo1j617
+YsNTz2x6buSFLS+9Mvbatjfeeue9iWPffLHjkzMnDu3b9cdP3x3465cfzv32
+zwf/AYCoGhE=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#8"]& ], 
+           TagBox[
+            {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw1lWAVAAANCXnbQgPy3BAuorDTSgSIaiKNJAmjSholHaWfeec2djC3Pz
+MyGEqIuREL58s++Dd94Yd8llV1w1YdI1191w05RpM265bdacO+bdtWDRkmX3
+3Ldi1QMPrVn3yGMbNj2x5alnnnth246Xdr3y25EDH+15649jhz5578R3X3z2
+1w9fnfrpn9f+A552MTo=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#9"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], LineBox[CompressedData["
+1:eJwNz1s6AmAUBdC/CxGZgwH1YggGkDlGuZVyiUopKkqSUG6R9bC+s/c5T2dz
+e2crEwkhpMlGQ1iJhRDlV/5ixju77JEjzz4HHHLEMQWKnFCizClnnHNBhUuu
+qFKjzjUNmtzQos0td3To0uOeB/oMeGTIEyOeGfPChFdW/RTjT/7mgylJuzgL
++YdP1vQlAnN93VwmQooEG7y5/QNYYTly
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#10"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw1lWAVAAANDXsQAlFElIFNKgiYpGGihJov5aQPb/595zbv5vPvpfCiEM
+jEZC+PLdF7vee+uyK8ZcNW7CpGuumzLthhk3zbplzrwFty26Y8myu+5ZsWrN
+feseeOiRxzY88dQzz72wactLr7y2bceJQ1/t+eCd337Y98lHp44c+OzMT9/8
+ceyvNy4AGf8S2Q==
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#11"]& ], 
+           TagBox[
+            {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
+             Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJwNw1k2gmEAANDPsRIL6qVnlCga/JVQlIoyR4YMFWVKlunec+5SqhiPFkII
+MZcXQ/jyzRcfvfPWFVdNmHTNlOtumDbjpltmzZm34LaRRUuW3bHirnvuW7Xm
+gYfWbXhk05Ztjz2xY9dTzzz3wkuvvLbnt+++OvDevj9OHPrkgzOnjnz21w/H
+zv30zxv/ATfNKgI=
+              "]]},
+            Annotation[#, "Charting`Private`Tag$477816#12"]& ]}}], {}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{Automatic, Automatic},
+      DisplayFunction->Identity,
+      Epilog->{{
+         PointBox[{{1., 0.5227190713812494}, {1.0000000298023228`, 
+           0.5237822654813594}, {1.2499999999563636`, 0.5113381818320641}, {
+           1.5000000013587296`, 0.5107224461056845}, {1.8319999939041463`, 
+           0.5229265369491987}, {2.000000008168812, 0.5257560221765489}, {
+           2.3162500217487514`, 0.5161359524986358}, {2.4999999994437268`, 
+           0.5240817569121743}, {2.507499950534874, 0.5137345497935977}, {
+           3.0000000003832876`, 0.5079003980237113}, {3.0000000231065544`, 
+           0.5096530724359567}, {3.5000000002660014`, 0.5103459102326731}, {
+           3.9999994979214217`, 0.500299548992879}, {3.999999999948025, 
+           0.5039052256219667}, {5.000000001639429, 0.4925064420160017}, {
+           5.499999996466635, 0.48511121566904136`}, {5.999965558735909, 
+           0.4838638647423754}, {6.000000135581913, 0.48572474052371395`}, {
+           8.267499999941885, 0.4702242876153204}, {9.000000002972772, 
+           0.46944073140195486`}, {9.999999991187165, 0.4656006734438338}, {
+           7, 0.47907647102881756`}}]}, {
+         PointBox[{{1., 0.6450382927447569}, {1.0000000298023228`, 
+           0.6474920994564002}, {1.2499999999563636`, 0.6259086175390616}, {
+           1.5000000013587296`, 0.618882217636191}, {1.8319999939041463`, 
+           0.6210388296367703}, {2.3162500217487514`, 0.5950154734864346}, {
+           2.4999999994437268`, 0.6003334830993106}, {2.507499950534874, 
+           0.5854184117284936}, {3.0000000003832876`, 0.5637715325863049}, {
+           3.0000000231065544`, 0.5658701919864328}, {3.5000000002660014`, 
+           0.5564261796663263}, {3.9999994979214217`, 0.5312547266475574}, {
+           3.999999999948025, 0.5357670676930546}, {5.000000001639429, 
+           0.5058576164381654}, {5.499999996466635, 0.49032561956790244`}, {
+           5.999965558735909, 0.48129794318818786`}, {6.000000135581913, 
+           0.48717453175638936`}, {8.267499999941885, 0.4503249977868231}, {
+           9.000000002972772, 0.44589254513112664`}, {9.999999991187165, 
+           0.43494998082971237`}, {7, 0.4664072935378104}}]}, {
+         PointBox[{{1., 0.7830718448750646}, {1.0000000298023228`, 
+           0.7926727898718235}, {1.2499999999563636`, 0.7565620494667211}, {
+           1.5000000013587296`, 0.7451257954316359}, {1.8319999939041463`, 
+           0.735484577438636}, {2.3162500217487514`, 0.6901795271075732}, {
+           2.4999999994437268`, 0.6871713781405081}, {2.507499950534874, 
+           0.677590853508218}, {3.0000000003832876`, 0.6414497710171732}, {
+           3.0000000231065544`, 0.6401921584552057}, {3.5000000002660014`, 
+           0.6225748185882045}, {3.9999994979214217`, 0.58118473212269}, {
+           3.999999999948025, 0.5883047159549568}, {5.000000001639429, 
+           0.5390692051348933}, {5.499999996466635, 0.5152217421951297}, {
+           5.999965558735909, 0.4998516106023674}, {6.000000135581913, 
+           0.5081587796966576}, {8.267499999941885, 0.4537490991310622}, {
+           9.000000002972772, 0.44626049041605165`}, {9.999999991187165, 
+           0.42898710155777686`}, {7, 0.4770722430956821}}]}, {
+         PointBox[{{1., 0.9306179362180993}, {1.0000000298023228`, 
+           0.8742102162970831}, {1.2499999999563636`, 0.856627721242992}, {
+           1.5000000013587296`, 0.8503500494280543}, {1.8319999939041463`, 
+           0.8238757268008632}, {2.3162500217487514`, 0.7686432948618833}, {
+           2.4999999994437268`, 0.7495892003456067}, {2.507499950534874, 
+           0.7629825725473893}, {3.0000000003832876`, 0.7083662643008167}, {
+           3.0000000231065544`, 0.7149625482615408}, {3.5000000002660014`, 
+           0.6883045538435231}, {3.9999994979214217`, 0.6444926297077047}, {
+           3.999999999948025, 0.6523264102935737}, {5.000000001639429, 
+           0.5865705260151257}, {5.499999996466635, 0.5534200871855843}, {
+           5.999965558735909, 0.5618058430909643}, {6.000000135581913, 
+           0.5499816974119478}, {8.267499999941885, 0.4919223426287642}, {
+           9.000000002972772, 0.4660352044731535}, {9.999999991187165, 
+           0.469891229207158}, {7, 0.5172064013004738}}]}},
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \
+\\(221\\), \\((t)\\)]\\)\"", TraditionalForm], None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+          Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{
+         Automatic, {{0.4, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.6, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.7, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.8, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.9, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0.3, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.32, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.34, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.36, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.38, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.42, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.44, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.46, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.48, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.52, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.54, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.56, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.58, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.62, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.64, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.66, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.68, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.72, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.74, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.76, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.78, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.82, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.84, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.86, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.88, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.92, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.94, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.96, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.98, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, {{2., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {8., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {10., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {10.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {11.5, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {12., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}}],
+      GridLines->
+       FrontEndValueCache[{
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+         Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 
+          6}]& }, {{{2., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {5.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {7.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {9.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {10.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {11.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {12., 
+           Directive[
+            AbsoluteThickness[0.1]]}}, {{0.4, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.5, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.6, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.7, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.8, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.9, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.3, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.32, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.34, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.36, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.38, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.42, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.44, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.46, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.48, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.52, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.54, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.56, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.58, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.62, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.64, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.66, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.68, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.72, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.74, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.76, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.78, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.82, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.84, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.86, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.88, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.92, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.94, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.96, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {0.98, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1., 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImagePadding->All,
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 18],
+      Method->{
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True},
+      PlotLabel->None,
+      PlotRange->{All, All},
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}},
+      Ticks->{Automatic, Automatic}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(221\\), \
+\\((0  M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(221\\), \
+\\((5  M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(221\\), \
+\\((10  M)\\)]\\)\"","None","None",
+       "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(221\\), \
+\\((15  M)\\)]\\)\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    Opacity[1.], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {20, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 18], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], 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.922526, 0.385626, 0.209179]; 
+                    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.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
+             "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
+               ",", #8, ",", #9, ",", #10}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "18"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{Automatic, Automatic},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]\[Phi]\\), \\(221\\), \
+\\((t)\\)]\\)\"", TraditionalForm], None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+      Charting`ScaledFrameTicks[{Identity, Identity}]}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 18],
+   Method->{
+    "DefaultBoundaryStyle" -> Automatic, 
+     "DefaultGraphicsInteraction" -> {
+      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+       "Effects" -> {
+        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+         "Droplines" -> {
+          "freeformCursorMode" -> True, 
+           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Identity[#]& )[
+          Part[#, 2]]}& )}, "AxesInFront" -> True},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {
+      Scaled[0.05], 
+      Scaled[0.05]}},
+   Ticks->{Automatic, Automatic}],
+  InterpretTemplate[Legended[
+    Graphics[{
+      GraphicsComplex[CompressedData["
+1:eJxN23c4lf8bB3AkW1kJKeNIkVSUnedQIdkrW0go0TCKjMhIoaykIlspOyMj
+DSOphDQc5xz7HHtlFr/z+8Pn/v7V9VxX7nOep6vX9b4/z5uYk5eJCwMdHV3+
+Jjq6///5c0b/EB3dNPajWf/DuSoyJrc/6eSDzlnstT2x90cpGRNzdClhH/yD
+xWbfuThWQMZq4hh5bjUsYftHztI9yyZj2ZxM8mmxq5is5rHZn4/JmPite1lJ
+D9cwWaO/LHkJZCx3xTtCp4oO3z48/+tqNBkLPzDcf1iTAb8lt76LFEzGOO5G
+icx+2ISf+MjOMeNNxqgu8ZYl+zfjN+vr5BidJ2NctWeUSeVM+BTH6BfO9mQs
+Ji6Zf6s4C15crLx0yoSMlUb/69waxYqfPikk66tN+74MUsrBHOz4Bpk3j1pV
+yNjwQk3qtC8Hni+fi71dloz9ceXNbl/nxEu8mZp6JUbGXtA9jrl5cyteNMY8
+qpmPjNmyNymnenPh6/0WGcpYyFiU2VO6AkVuPKPbczPVRRLmYFvYWDvBjTdJ
+DEmgEkmYTWYacXMZD973eblT/QcStu9GnmulNy/+iu2rHL0CEpbDNzjpLsWH
+T696aPo9gYSdGGNoNZ3gwzdsl/1Z40/C7oWYZ6lnb8MnjD1IzncmYYXPGsbv
+n+bHT/WknXTVJ2GzXFuihYW240dLKcxlR0hYn0Lc7vyv2/EdJ8lum0RJ2J/U
+Wb4LiQJ4mWiZWTpWEtYb7+mdbC6I36U5s21yloh5ndzV8Y5VCP90gEG4nUjE
+9qgXh0l+FsIn+m9Zv/WRiEXP+MjfCduBx8Z+m+AqiFiDkpmppYIwfi5B6Edq
+FhETrudrtl0Sxn/qVvZhvEfEcAysyk4vd+LVqLelVYOImOEt0lra5V34kH+b
+K/wvEDHJRuo7wl4R/OAHJczXmoi1P+RYDCWI4OXe5g+p6hIxo+4orNhQFN9d
+iHMWVyZiW7Cc0PTnovgbO4aeZEkRMWJTqZc0pxi+yqh5+rQgEUtJaUukXhTD
+K/xl5e5mJWL5J+mUpVrE8LdEtTLaVnuxVsHdkYzS4njKmX5J1oleTPOjs9mZ
+cHG8XXt8WQGpF8t+V2g1TRTHp2bmas919GICPaMswngcvujz9Kd7jb1Yfwde
+sSUVh++Iiavxru7FGjW6l9fXcfi1GwxfbF70YuFxl+s+uc9gyiOFV6tfkTGz
+6DsCZz/j8H8047R/l/ZihQ0Oi0Pl05jOlY4q/koy9kh2eA9/OQ4fROJcxVX0
+YhzDB1lLh3H4pZ8F8Q+KerFjvyz4rlpPY13rSm4NtL9fH5JwwCsPh9dObb72
+qbIXO6hE5GL/jcPruRzcolTSi1ESwuit5nB4nZIjnUsve7FYl45M5f3TWP3s
+Ch0f7f9ru9T5sh0ZOPzYtEdfehXt/vvKEys7cfjYJuY5Ftr3W1GzDt88gcM/
+Kr2z2lzYi3WPvgh8sYzDvzt/SVCaNq9sH9foY/5pTP2XTeBR2jyrIPM/M09w
++C8rung22vP4dORpd0w7Dn+XYhx3mTYv7P6J5h4qDn94VL36AO1+HLCUN6EL
+tOd195bbfdo8g+S3qt1/cfikXbND72jPr2lLUYwB+zR2ti9sjwltftreU/x2
+j3H4wnUHf4w2n4uctLj0BYdPqJkZyaHNb1FVpWhRcPhPlYGZzrT52dQY8sQ8
+Di/M4S7USJsfj6+01VjF4XP+qt9YoM1nG/8kdGENh5cai7KIo11veNZBvbMm
+FAmemYvWdG67BZ7t89b9IxQCnp3gSOHJDwDPuu9U7IvyBc96B6w7N18Cz57G
+nI9ccAPPRJq6M3afAc++FjMOalqAZ1cMfNfmT4Fnyj9+0ZVj4BllnGzpJg+e
+/VQJmq+RBM8S830HgwXAM0nuxx0zbOCZX5f3ksYSCXkWmpm//0gPCXkmrBRa
+b91AQp7tvvtlJT8LPPvM/2DrudvgmWdhXUjqRfBMbZLAwW4Knr3XodGhAp5p
+0g1oxYmBZ8vblo3usIFn+pu2+z6YJyLPVGbSfrj1EpFnmVte4A1biMgzcoA9
+z0wJEXkms8zy3OUxeGb+8DVfchR41mVlaWt8FTwLu4u7keQAnlXzH/DQ0QPP
++sQ8qKaK4Jkzs0dhNQ48u6r1HnPZAp4pMfsGn1vpRZ5VCflG1g73Is/emJ6q
+tPvWizwzSOh4cL6uF3nGLSHH0J3Xizwje0jW1sT3Is9C02a/SgWDZ78VB3YK
+nwfPTLeq/M22AM/41jxzPhwDz1q0WObvHADPfgaJC84Ig2f6L7Xpg1nAs4QF
+hcsF4WRMWjsw8JvNPMZscZ/1UCgZ81wq79M2WcRUPzc6LgeCd5dSwr+/4AHv
+mDyOkVwjyJisym3n8gdzmLIW1VMqjIy1yMR8lHq0gNXYxKxuDQYPvUyj5du2
+g4fjvBm8CZzgoc3juKR3tHnF8nHdOUfmMH/ha8IZtHnzWtfrUrEFzONq3khy
+MHgZZFa1YCcEXtZPfsNEuMDLh+dOm7Kwg5ctfaa8U7T5lw/y3EtjnMNGmE92
+99Dms5l5KXZyL2DSBSUnfwWDp66+h2zzdoCnFxwze124wVOnd7/C9TnAU8nP
+zjfes4Kn9XxHdmym+dNR2DkuND6LlZH9x5don5dsfd57auUPxp6hrLASDN5m
+hzQc0BMGb5kSLAxYecDbHd5WGtMc4G3eAVeCCxt4a6VvIS/GCt4KaV7i5qJ9
+PoPn4R2/SLOY3PcFF2aaf4TekfjAqT/Ynyeej9hCwOOcjsqMNGHwmMdaZKsN
+D3i8j5Cdp8EJHotpMmyrZAOPSxr+mV1hBY8V4j23t7OAx4ScrdGlVPBY7Ak9
+5WEfeDzd1TZU8wM85n93aPLZZ/A4culrldR78Dik9om6TiV4zIAPlpkpAI/X
+wnOZU9PBY7YBnsPpCeBxyikhvRdR4PHSmIolbyB4bGceyeF3BTxmsapwPegG
+Hk8UM5tuswOP6bHwY4Um4DEnX86ArjbkS7qP3dfnVSFfena+zFU6BPlyVuzY
+j3O7ycjjcZZXdxSEyMhjfKe5+AwnGXlsNqQl0kxPRh4H7p0Xrh4Hj7ED190p
+neDxgbcKhMZa8Di+XHKnYi7ky0feckr/YiBfMoTz3a/0g3zpn7LyjesM5Euu
+O79u+p4kIY/H9p/CsdHy6YbHFo8+ZFSJkJDHyyfjpUo4SMhjWW4mzYkV8Lj8
+DjP9Kwp4zPcpL7f2J3gcU64jc68FPE4IXV0Lfw35stC151jNS8iXk6x/t4w8
+hXz5LGsxi5AE+dIu0Jb0Kxry5Z07Ey7TIZAvwzMfXvG6RkQeL9zuO7DgRUQe
+u94fO1/qRkQei2oTqWJORORxstmvrCQbIvL40+O/dkvmRORxkV5dqpIREXlM
+/iHp2zwE3vpPpFQzmxKRt7evOcY3joCnMRfuvwswIyJPN6dVcD82JiJPDZz7
+Veop4CUXuXtFifb5G14SemIJRiZE5OXSKq8plfZ9Nrws35Q5qUQFD70u5J9L
+of38hoel+y6yvKD9/IaHXZlHL2vSPn/DQweWwIp7tHnIwyehJB8qeLfq/d2o
+hTZvwzsedf32X7R5G97pnZE45EWbt+Gd2WjGfC1t3oZ3nVMxKWdp1xvevQx5
+cDSRCp69lmExJdPmb3jGu/NDwzRt/oZnFxIsnoTT5m94tq37q0gnbd6GZw+V
+QrL8adcbnu08npVkQLve8CxfxnyX2b1B5NlBoqZ6utsg8qy0cfF+gNIg8kz/
+15DaLeZB5Nm0S/Yev64B5NnCeNkW39QB5NnVz9urYp0GkGe8TwWI7yUGkGf9
+BqXKUSP9yDP/sCp2j8J+5NmEEX/d6qV+5JnAiWPpPkr9yLP74iGZOxn6kWc6
+bhaqj1r6kGcyJa0ewYl9yDOOAF7ZXrs+5BkDfdcJBek+5FlHVV0JaRU8+3Zl
+WD/3E3hmES2rEPsUPCM+asWmroJnDZgY1yFd8OytTYQ5J83DDc88rNsMnP+B
+ZwUNA3tUqsGzoENyTVHXwTMDoZef2hTBsyi94Uz/f5Avp21Dz7q/hXxpVfnv
+vN9tyJcL5/VVfp+GfBkgaFJfLgH5UnX/tIHZYi/yrDW8DT/X1os884huD5fL
+6EWeffqrttfWvxd5ZnxU8aW+SS/ybMdWycuVspAvX4doS1/ihHwZHmVDZB8j
+IM+Ib60cfdsIyDMiLukd+QUBeWY5MffKJo6APOMLLSDw+hCQZ1xfyszIVgTk
+2ddtf2syNAjIM9vPPj790gTkWaj2evJJXgLyjKIlxaO61oM8Gxo003k/0oM8
+E6rtubstcBB5NshtIdA724M8e/WJaXdvxCDybPvlNa+wpR7kWa8AqVV7ogd5
+1pk4RMq8M4g8yySX8dqt9iDP/k4ZmHFN9yDPpk0kvcNGe5Bn7T1jvGsxg8iz
+lCLeyE9/e5BnmydDZH1nepBnk4eeCQ6N9SDPfFnsfolTe5BnkkGr9VJxg8gz
+X4sHUmH/epBnlxVdb0rR7nfDs0nxeqPk8R7kmTCL/+ZO2rwNz/wMiqeuUHqQ
+Z1Fz8gJvaPM3POP1E95Gos3f8EwyyeZ4GG3+hmdyey9snqLN3/BMwvTG4X20
++9/wzC9ehdBKm7/hmbH9a94dtOsNzy7nc8cUO4Jnd63nrmqog2dnKo48LOQB
+z/azaNQ+GhpAnu3a2bxW9wo8i/PJiFEOAs+spZYYHmuDZ9f8LHZJsoFnM9WT
+yu5t4BlBkN7nTDx4Nn4Qt6PGFDwjGJ825BcCzzQT1+Wa+vuQZ5wf8N2e+eCZ
+dmcLoeUqePapV1GjUw088xK2dxBgBc84lqxdiL/BM+53pk/Gn4NniyqdmnIh
+4FmgyV1eVjPw7CQ/z/u30uBZfrd6FiMTeJaSV7aHpQE866/b9dr4BniWMPDn
+4Vc18IyiU6s3twL7skPejgbZBvDsbs454rEw8MxnqZggogue6RQxDG/fDp41
+vozIFu7vRZ7pqbZkN5WCZ7xNPz20I8CzPabnL7Fbgmf39g/9aJAFz74KVF8Y
+2wSeTSyPRub3EpBnpYk+4eXVBOTZR0OdfWcSwTO/Cz15LFfBMyve410+RuCZ
+eI84/+aD4JmH07c8Vl7wjG5Gi2tmvgd59niGWsjyuwd55p15qq2yoQd5Zm+R
+U+SU24M8izFcZ+iKBc8qjMoCMnzAs4Xa17vijcAzLr/xKP5Q8Mw4Ju2ijhV4
+ttPolqBHFHhm8N2CtzMAPLteT28XYQeeje3F3jy5A57JajyInQ0Czz6UxW2t
+ugaePT4oOf3EATz7xd2npxQDnjGyuqyGhYBnd43/MZzwB8/o44WVZPzAM53Z
+lt68M//xbLSdgSkWPMtRYtilfxM8++sXOMIeAJ5N97nQzfqBZ4sVSRXnfMGz
+/BMn7GQcwTMt07Rlj1jwbLH1QmvJTfDs6I5Ab68A8OzUL+F1s2vgmWxFqOdH
+X/CsrsuYi9EXPCMVpxQt1oNnXY7xLP/iwTPG79XROvbg2cXn0XUeUpDP3hXe
+NDo4B57Znm2KK60Az2IuK168GQievWz5/cQRA8+6BnyU8xgGkGeCE16Zfq3g
+2eQlVge1WPDMTOnAVJcFeEYqpuPxEYN8Fsbh8bSZAp5xxbX9PfIKPDMQmBIa
+CQLPkoZOypidAs9SrouukYX7kGf3cdfXHMbBs4pft6VGG8Az9SEWj+8J4Jmi
++0G7p+7g2Q/yZ2b+4+BZesSsisNOMvLM+31+kvgCeOYa7DmrUQGelY890c31
+hnxWOlMc3qQC+6YJX9po7Dp4dtRXd/lLC3iWJZkS+zgFPJMP3/lTzxXy2T4R
+geU+VTj/Cz3RwJfOC/tm8VuFR1aj4BljW+K1xUbwrNPx1WTRU/BMV8LRuikY
+8lmDh+DXfY6Qz7C3nvcrNeD875jAT6HB3XD+53R4uPgUK5z/3V3/YF46CZ7V
+Z4Rz7/oBnokUiD78Wg/5jEFly0eVZ5DPtJbSd3EmQT7LVbIKOhgC+UxT3VQs
+8yIBecZ/fYFviJb3NjxTr/m7kvIMPKt88SYvy5mAPBNg8yJcLgfPuOOvNaW6
+EZBnF2xdQ2vtCcgzmQsfnd5Ug2eWKXvdhC8QkGcf05iEZB0JyDPh2dqfBrYE
+5BljZImifS14Zqmv9dbegwD5rPOxo5sTAXlmyGN+MNyOgDwbDXriL2hDQJ4x
+ssk+Laj7j2fv7IzoaM9jw7OjCm2Dm2n3u+EZ+fNatSjtfjY805GNZSunzUOe
+DbXuDbYmIM/cMsQ7jevBs77U1IPGtPkbnpk7nKo3o83f8EzyiFWyJ23+hmf/
+2nrc6Wn3v+FZg+fsyTba/A3PhkbEt8vRrlE+e9WuFstMRZ4tRZxuolRRkGdt
+9Y7y560pyLMPkgNv1FdHkGeiNyLDmR6OIM+cVvfczJUeQZ4tHfaNDng7jDwj
+Lh89nGIwjDy7yy/YLUocQp6t39777qrvEPJsr3gA1xGWIeTZjczb3DNZg8iz
+sz7ybAnHB5FnrcF6HLXkAeSZYYRkrmLkAPLMOYeiZSQ9gDyLi8tttu3sR541
+XnljzxvRD54xF3PYKPTD+RmRTrh6qg95JpJuzHcgrw95dno7Q06vcx/yrK77
+jIrb3j7kmcIrVl+PMfDMjWO85eErMvKMvsX926MwMvKMVex4qLERGXkWZJKa
+yY0jI8/Y3HHlF6lwfpZtuKUiKgHOz2afsMxWacP5meGxD+fGl8Gz252yu+Vf
+gWfMSw+KjvuAZ93rnh9uycP5WdfAwoT9MngmeZy54VEdeNZvVehTEgWedYW4
+PrU9DZ4ZyR2+GiUBnnEJ9p7wXYR81qe/4ML+EfKZP6VAr/kJeGY0//6ztR94
+lum8VvnSEDzjym477CIDnql94dhiyw6eWVKsG/ZSIZ99CRqwKGuFfFbSla98
+7Dnks9e2BZU2fRTkmVQaB4vOa8hno/wmkg3zFOTZRxWnF5feQT4bNHbYpFwK
++Wz23mUHlTUK8kzjrdPr2CbIZ4bd/JZHKyCfudrZ/1MphHw2ptm/m8pARZ79
+FGdQeNoC+WzrafKARhXkM28nQ0XlYshnku/WTdVf/CefPf9GUdtMBc8si+8/
++wj5TPZ7+7vj1ZDPhLJWRpVKIJ/1X3vlq/ay5z/nZ+xJ+ALIZ9k4MtmFiYo8
+e8/I7yrb+p99c3emZVM15LO5ovjRqhLIZzVeUS9rXkI+GyvicntTAPmM327s
+99vnkM9eb1poYH9DQZ6de6KZQ/UDz25LhGgpi4Fnj/X5d11uAc8sGCPJEhfA
+s4gDDYKqdOAZedf4kYAU8KyZSWLwxm7wzJ1k6Pi9DDwr4Qp3fqgLnrHUanA+
++j2IPCtQouIp3uDZnwqpxqt84Jm51DfGn0Xgmdp3Sv6aOXjm72ljJrzcjzwz
+W8rRDc4Ez9jWuY3qzMEz0bH6R/VM4Jk+hbH2dwN4dvCQ88CO6+DZGY7a9AAF
+8Czx6DPXqFXIZxQ5ednhevDMP+Hco/23wTOf5XM7t5wGzziK1TlscODZvqNV
+1vOjkM/WXik2OtwFz5R05oT2HwbPfFUeEn4NQT6rOq66+DcRPDO8URwqoQ+e
+ObzWvTrPCp6J3hj9EvIB8tm25WqOjxHgWfJZb1dubfAsz0Oo2H0LeBban5Pg
+8gv2TXvfbaoJmbBvfhTObmq7DJ699I0ddMPAs6C1Q8l6XODZLb1bylbDPcgz
+88bxvrHXsG+6Hb02dSQR9s1lV5HAAS/YN3WypZ2P6IJn79Mae5P2gmd26ZW/
+XjGCZ9vN98Y9egyeMc3UOHjxg2ePm1pndxaCZ7x3mT57i4BndIkcB8M5wTPL
+quDCvArw7FL37d/0EuDZDveg4QVu8OzOlrEDQqzg2T9Tfh/iawryTOZ2xl9d
+SfAsY9PqSTk+8Oz0zaVfBuzgmWOd5cERJvBsodHp1EItBXkWw6F05NIe8Mzu
+/fU0o23gmcSU21d3DvBss/SYPx0LeGb4gMHoy2bwbFbhrAl9PQV5tlp6Y5Vh
+L3h240TwDGkbeOaAN76yyAGeqVkJ6cSwgGdZ8tRSaybwTKQpjVlzM3i2z7Wg
+issI8lnMJY+RkWXwjMfqmOijBPBser3IkUOWgjybmouUpjSBZxrNcRRuc/CM
+5xQdKWAUPFsaP32rzA88K9Pv1/VgGUaeGW1qEzXIBM/0osp5vx6BfGbAId2/
+3AGedckfNSz1Bs80upt5n3IPIs/OKp7NulQFnhkSfJRv2UA+a5XMO67COIA8
+Cxv2uOheAZ4xSmQELrqAZzHf/wY82NWPPNvKiT+h+R08MxLXeY7dB89GvAQ4
+dcwhn0Uokutmt/chz06HX17Y3A+exSR7hEsVg2fM8SeXtAPBM7eIn9ufGUE+
+44yN/HaU5t2GZzynpYwHZ8EzL/przCnPIJ+Na+h399jD+81m6ZfNGjvh/Wbx
+kaGxRDJ4Fhs2Vx2VCfks4Yv81/kL8H6zCpcqIHkY3m+KaGuqLjPA+01pEamX
+pt8hn52YNCkIzIV8ZrmNv1EkEPbN7bvtR16awL55vWP3Js190DfZ8XiTky0L
+9E1m6LlivQYhn1WxifknfoB8Fnx4Ja0rF/KZm8ydncJRsG8S7Onb2z1g32Rm
+S33Ybgj75pmzsuQdklTkmd4pu+L/71sbnim7/rJyUqUiz8KodXc8XGDfbN1a
+2j1uAfvmPXdnrs8nqMgzvheqqTvcYd+8dazoY5g17JsnXnxrtTGFfbP3UGH3
+nC7ks8haJ68/52HfDHneGGhsC/tmwrHcRJz5f/bNply/JGPYN5/E4iPC9CGf
+OWbvney/APsm/cieESU72De3nL7LxGIB++a75uAr10xg37TU2fa71Aj2TWsu
+W69WA8hn0RZFHVYesG9+ZWx888IO9s1IkS4nfwvYN1UjFnhGTWDfVJBR2ilh
+DPsmx7xioYYR7JtWypG3rt4ZR54dGWm3vCM+jjxrShKtPp4zhjxLZjidPL1n
+DHlWY5E0di1vFHnGlcn/YK/AKPLMXmjxZsY9KvQ1nvaulv+jIM88A6TCGLwo
+yDOmpYdNl8dHkGeHv3CyPnUaQZ7djTjeLTs8jDyTja6nPLo0jDwTz7ZWt1gY
+Qp4x3tzT5nZ7CHkmVK0asUVwCHk2saeOKbp4EHnWMrkWJmk2iDxrV026Z/1n
+AHm2o85zqCVjAHl2KXcwzF5vAM7Pkvz0r/3rR55ZvxE8xlvVjzy7ruGpfeBy
+P/LMyOT59G+5fuQZ44u4rVLLfcgztZtGMtL1fcgzV59hC53oPuSZ2OgZjlM0
+Lzc8q3/rXnJaog955vhGLBu/TEaefXkZ80PiMxl5pnQ4cqdWLhl5Nqudp/f/
+ftiGZ7ekrYlSdmTk2YNTUlYBamTk2ayYFP0fITLy7Mn+gJa8FRLyLGJxLiDk
+PQl5lnXcV/1DNAl5Zt8UZ3TbkoQ8Y+NuJvRJkMCz3yuCX+ahr+G2dFZNuhX6
+Gm3qsd0H06CvsTf+wKKYH/Q1FJ3CT6eaQF/j+Rm/6E4Z6GsUpcc2K7JDX+Pi
+JjEF3xHoz0kP8e25aDkOfeD0Nf2dy9CPk1CPNjG6Mo480z7uMbCDAfoapVOX
+7qlOQ/8t/PDjgJWgceSZ9HGcRC4T9DV0l+N78ueh3xbyepv99zHot0U/EFE4
+Gj6OPEtfiWOZZIG+xk3uBdn+Beiv3dPnTmKehP5aknoZNZsK/TXhLP4Jq6hx
+5Bl7ZtoLHjboa9ywptxaX4R+GvHHdmuxKeintc29HKsdhX4a7/3x0zEU6KfJ
+pjHvHLk9jjzzzFXYl8MGfY12Y3ab2CXon6X68bsWTkH/jCmrnf/kGPTPJBfa
+eASp0D/zmmOrpqdA/+zP7+8PHLeBZ4naM3JZ1WPIMw96/+DGk+AZeyuni9CP
+UeTZReOzhsH24JlLdd4m3S4q8iwk/ozgZQPwLIj5ZMLH1+CZNkPzxwEp8KzU
+NzX8azZ4xrGnqcxNADw7p7cexpIKnh2SuRewFweenQjo3y6TD54ty2sqHFQF
+zxbT0/ksPg0izygRHaR6Z/BsmVDPH8ACnk1adx9hLwDPvEYVmRoswTM25SHu
+FEbwzGL3+46SCvAsMas4Y/oyeFYT92C37T7w7I0aQ+X4eB/yLO0ei2h9KXhW
+54yjb/MFz+L5Qz/laYBn3vaXZKbYwDNRicHmPz/IyLNnr5y06p6DZ2FSDTlC
+N8Cz8GlOyUoT8OyISqQ8pwx4Zi6WwinGCJ5p3b3C6fSWhDxrttfN0L1GQp4Z
+rVWyOSiCZ7vLvOMLV6B/tijHtvNfzX9+vyG94fOxW9A/w1nNHWrQhf6Z4baB
+QeZt4FnBp8g4tSHIZ8sXLul/LoM+cD37v1eNkdAHprY/fxJoD31gW+bXD0vl
+oQ/soUeVjeaEPrBdxI6J34OQzzJ0eoYWKWPIM5+V/i9zS5DPHgQlvb67PoY8
+a4zw5T2w6T993jPO1B+TkM+ercgHxLGBZ/Lv36dZskBft27h2WLfHOQzdWHn
+pO9UyGcRwXb5a1vBs+VabZdpNujj5imoUd0XIJ+9Z2T8aD4O+cxruEjv9Ajk
+M1UDoWclPOCZoHoy61EO6Nume3o9KVyEfObQGPQoeQLymdiHFvlkCuSzjAoi
+SWAY8pnFzT4GNj7wzNFhx90BDujTHvQJlDRegnyGydHJK05CPhsX1/x+hAr5
+7Nw8PXPVMOQznSX1H9eHIJ/VPFC6HE4/gTz7HlEc9P+8tuGZqHTz7Hu6ceSZ
+qOrT5qZrkM9YbZsir0yDZ9XR4dLMtpDPVDJjRr91gGeBKlfOPsVTkWeJ83fU
+xMrBM8vrD5n5DlOQZzY+5vY/XoBnZQ2395rLjSDPpCnj5lvrwbO1to6zIceH
+kWdbvnA4ZfwAz9Q6fiw2nYN8NtOSt9/8H3iWTIfNfEsHz0qEzcaeYYPIs6a4
+nA/fRsGzLt7BPxKJ4JnAZpkW9eMDyDOxntDBI2vgmeLccXeGSvCsz9VE+uM1
+yGfnm/nXE7B+8Cwt8HTU5n7kmWqXbj+lAzxr8zEez00Hz+wcplKrL0E+2/6R
+TP9Buw95Jihnw3pgVx/ybMKPbtv3ZfCsyLzZxfwneFYuL1wkVwGecRg/LDiR
+AvkshO9lyYfrkM98ZEWOLdmTkWdzT6rlpLTIyLM9+2aKGmlebniW4Vvk7spP
+Rp7NtKRGblqHfJaVzmOY2EVCnkns1qRuLyIhz9K4XzgkRpGQZ/ECTkpB50jI
+s/A5B+5KLRLybKH6cMD8bhLybG5W/swQCwl5FhwiGcw9Cn3aspsGbv3NkM98
+Tgh91lqGPm3Rv6BR3iHIZy30TmUs9CTkmW9QkGL6DPRp7T0Zb7jMgWeijaHP
+5hhJyLOfqwFvvP5An/adZYvk9wno094t6nsfsAKeaSn9LBhjIiHPbMaLvK0X
+oU9rk7zLsXoK+rS1yRURs2PQp11Z5DnEsAae/ducZ0hhJiHPLLUcPYyWoE9r
+NVos8GIa+rTXcAlZA+PQpw27sPKVfgz6tJtq9it+WAfPAiaMW8/RnveGZ16y
+D+M+LUGfdqFW5tHuGejTiuIcLG0noE87vPhgl/8Y9GlTJrtTb9P+vf4HWaQM
+Fw==
+       
+       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.368417, 0.506779, 0.709798], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            
+            Polygon[{{78, 158, 150, 143, 137, 132, 128, 79, 159, 151, 144, 
+             138, 133, 129, 80, 160, 152, 145, 139, 134, 130, 81, 82, 83, 84, 
+             85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
+             101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 
+             114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 
+             161, 153, 146, 140, 135, 131, 162, 154, 147, 141, 136, 163, 155, 
+             148, 142, 164, 156, 149, 165, 157, 166, 127, 216, 243, 236, 242, 
+             230, 235, 241, 225, 229, 234, 240, 221, 224, 228, 233, 239, 218, 
+             220, 223, 227, 232, 238, 215, 214, 213, 212, 211, 210, 209, 208, 
+             207, 206, 205, 204, 203, 202, 201, 200, 199, 198, 197, 196, 195, 
+             194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 
+             181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 
+             168, 217, 219, 222, 226, 231, 237, 
+             167}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.880722, 0.611041, 0.142051], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwNxudWDgAAANBPb9KjKE2jJSUkTSWV0VApQmgvLUS7kChCS1Q0RBHK07g/
+7jk3OL0wviAoEAgcoJeDcpebVFJGMVcIIZRDhBFOBJFEEc1hjnCUY8QQSxzx
+JHCcRE6QRDInSeEUpzlDKmdJ4xzpZJBJFtnkcJ5c8rhAPhcpoJAiLnGPGq5z
+jRKucp9bVFFOKXXcppoK6rnDDRqopZHLfOQfv9hni5/sscY3dvjLCl/ZZJs/
+fGKZL2zwg98sssA8c8zygfe8Y4a3vGGaKV7zikleMsELnvOMccYYZYRhhhhk
+gH6e8oQ+HvOIh/TSQzdddPKADtppo5UWmlniM6us851dmvgPkFBYCQ==
+             
+             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.560181, 0.691569, 0.194885], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwVyNdCDQAAgOGTN3GXUUmkpSVFKklRiIbZcDQk0lCojJSGHEmDKCVFiWi8
+WZ+L7+L/d1cEC27vCgQCYYQIF//HTSq5wiUusIe97GM/EUQSxQGiOUgMhzhM
+LEeII54EEkniKMmkkEoa6Rwjg+NkksUJTpLNKXLIJY/T5HOGAs5SSBHnOE8x
+QW5xlTJKucgdqrhGOZepo5rrVFBPDTdooJZGSphhmz9s8ZPfbLLID9bY4Cvf
+WOYX//jCHAssscpfPvGRaaaYZIIPjPOeMd4R4i2jvGGEYYYY5DUD9POKPl7y
+guc8o5ceunnKEx7TRSeP6KCdNlp5SAsPuE8z92jiM7PM850V1rnLDhMXSZk=
+
+             
+             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
+{}, {}, {}, {}, {}, {}, {}, {}, {}, {
+          EdgeForm[], 
+          Directive[
+           RGBColor[0.922526, 0.385626, 0.209179], 
+           Opacity[0.2]], 
+          GraphicsGroup[{
+            Polygon[CompressedData["
+1:eJwNw4dajQEAANA/PUBIoUFXgzSNlCiR0dC6GUmhq6WpoZCVVQmhjK6t+ZjO
++b4TigyHh7YEQRBj1LjYILhsgzWet9LTbnWb2413hwkmutNd7jbJZFNMdY97
+TTPkPtPNMNMs93vAbA+aY6555ltgoYc87BGPWuQxiy3xuKWe8KRllnvKKzZa
+6wXPesarNnnRKs/ZYtg6q71ms/W2esnrVvjOTf+64Xf/uO4Xo/52zU9+dtlf
+rrrgR5f85k9XfOu8b5xz1hlf+8qXvvC50z7zqU987COnfOgD7zvphPccd8xR
+R7zrsEMOOmC/fd6x1x677bLT20bs8JY3vWG77/3gol/94T/b/A+Vzzsp
+             
+             "]]}]}, {}, {}, {}}, {{}, {}, {}, 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798]], 
+           
+           Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
+            12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
+            28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 
+            44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 
+            55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
+          "Charting`Private`Tag$477816#1"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            Dashing[{Small, Small}]], 
+           
+           Line[{78, 158, 150, 143, 137, 132, 128, 79, 159, 151, 144, 138, 
+            133, 129, 80, 160, 152, 145, 139, 134, 130, 81, 82, 83, 84, 85, 
+            86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
+            102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
+            115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 161, 
+            153, 146, 140, 135, 131, 162, 154, 147, 141, 136, 163, 155, 148, 
+            142, 164, 156, 149, 165, 157, 166, 127}]}, 
+          "Charting`Private`Tag$477816#2"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.368417, 0.506779, 0.709798], 
+            Dashing[{Small, Small}]], 
+           
+           Line[{167, 237, 231, 226, 222, 219, 217, 168, 169, 170, 171, 172, 
+            173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 
+            186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 
+            199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 
+            212, 213, 214, 215, 238, 232, 227, 223, 220, 218, 239, 233, 228, 
+            224, 221, 240, 234, 229, 225, 241, 235, 230, 242, 236, 243, 
+            216}]}, "Charting`Private`Tag$477816#3"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051]], 
+           Line[CompressedData["
+1:eJwNyllagQEAheFfkTJrkKLB0FwIUShtoBtLaAFsPpkavBfvxfecU/qcjMah
+IAg++KIn2tS545pLprZvZsxZsGTFD7/88U/gH2KDTcJE2CLKNjvEiJMgSYo0
+GbLsssc+B+Q4JM8RxxQocsIpZ5xTokyFKn2eaHDPDVcM6PDIA7e80qVJjTee
+aTHkhXcuWAMd8hYU
+            "]]}, "Charting`Private`Tag$477816#4"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwVz9lWQQEAQNHbp/gUDSoSbsoQGUuD0iCSUgpR+mfbw17rvJ5IvRPebQRB
+kCQqfhjzxgvPPLHJFtvsEGOXPfaJk+CAJIekSJMh5Igsx5yQI0+BIqeUKHNG
+hSo16jRocs4FLS654pob2tyynupwzwNzvnhnQI8uC74Z8UqfXyZ8MOSPKZ8s
+mfHPIyvnUSFJ
+            "]]}, "Charting`Private`Tag$477816#5"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.880722, 0.611041, 0.142051], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNxls2QgEAAMBrKS2oH0toAdlJIakkCuVRpKiQSHklJUliNeZjzplQZGU5
+uhQEQZiYzBgz4IkeXeKsssY6CTZIskmKNBm2yLJNjh12yVNgj30OKFLikCOO
+OaFMhVPOqHJOjToXXNKgSYsrrrmhzS0d7vjmgzee6fPAnAlDXnjkh0/eeWXB
+lBG/fPHHPf8FLjhy
+            "]]}, "Charting`Private`Tag$477816#6"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885]], 
+           Line[CompressedData["
+1:eJwVztk2gmEAheHvT1IRaVBJKNPVdOISXAAXnAZjhpCxiPR08Ky119onb/3k
+7Pg0CiE0aRn1WAhVNsixRoZzX5sOXXpccMkV19xwS5877nngkQFPPPPCkFfe
+eOeDT74YMeabHyb88seU/3mwpogYC8RZJMESSVKkWabBFiXyZFlljxplCqyz
+zzYVihywwyaH7HLECjMCFCfD
+            "]]}, "Charting`Private`Tag$477816#7"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNw+kyQmEAANCPN+mfKEJlSVlKIldc2VWKqNCNvP84Z+akBkk8XQghRC4t
+hjB15Ks9n3007bIrZsy66po5191w07wFi2657Y67ltyzbMV9Dzz0yKo1j617
+YsNTz2x6buSFLS+9Mvbatjfeeue9iWPffLHjkzMnDu3b9cdP3x3465cfzv32
+zwf/AYCoGhE=
+            "]]}, "Charting`Private`Tag$477816#8"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.560181, 0.691569, 0.194885], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNw1lWAVAAANCXnbQgPy3BAuorDTSgSIaiKNJAmjSholHaWfeec2djC3Pz
+MyGEqIuREL58s++Dd94Yd8llV1w1YdI1191w05RpM265bdacO+bdtWDRkmX3
+3Ldi1QMPrVn3yGMbNj2x5alnnnth246Xdr3y25EDH+15649jhz5578R3X3z2
+1w9fnfrpn9f+A552MTo=
+            "]]}, "Charting`Private`Tag$477816#9"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179]], 
+           Line[CompressedData["
+1:eJwNz1s6AmAUBdC/CxGZgwH1YggGkDlGuZVyiUopKkqSUG6R9bC+s/c5T2dz
+e2crEwkhpMlGQ1iJhRDlV/5ixju77JEjzz4HHHLEMQWKnFCizClnnHNBhUuu
+qFKjzjUNmtzQos0td3To0uOeB/oMeGTIEyOeGfPChFdW/RTjT/7mgylJuzgL
++YdP1vQlAnN93VwmQooEG7y5/QNYYTly
+            "]]}, 
+          "Charting`Private`Tag$477816#10"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNw1lWAVAAANDXsQAlFElIFNKgiYpGGihJov5aQPb/595zbv5vPvpfCiEM
+jEZC+PLdF7vee+uyK8ZcNW7CpGuumzLthhk3zbplzrwFty26Y8myu+5ZsWrN
+feseeOiRxzY88dQzz72wactLr7y2bceJQ1/t+eCd337Y98lHp44c+OzMT9/8
+ceyvNy4AGf8S2Q==
+            "]]}, "Charting`Private`Tag$477816#11"], 
+         Annotation[{
+           Directive[
+            Opacity[1.], 
+            AbsoluteThickness[1.6], 
+            RGBColor[0.922526, 0.385626, 0.209179], 
+            Dashing[{Small, Small}]], 
+           Line[CompressedData["
+1:eJwNw1k2gmEAANDPsRIL6qVnlCga/JVQlIoyR4YMFWVKlunec+5SqhiPFkII
+MZcXQ/jyzRcfvfPWFVdNmHTNlOtumDbjpltmzZm34LaRRUuW3bHirnvuW7Xm
+gYfWbXhk05Ztjz2xY9dTzzz3wkuvvLbnt+++OvDevj9OHPrkgzOnjnz21w/H
+zv30zxv/ATfNKgI=
+            "]]}, 
+          "Charting`Private`Tag$477816#12"]}}], {}}, {
+     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
+      AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
+         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
+      GridLines -> {
+       Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& , 
+        Charting`ScaledTickValues[{Identity, Identity}][#, #2, {6, 6}]& }, 
+      DisplayFunction -> Identity, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {
+         Scaled[0.05], 
+         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {1.0000001836734693`, 0.4221624971528309}, 
+      DisplayFunction :> Identity, Epilog -> {{
+         Point[{{1., 0.5227190713812494}, {1.0000000298023228`, 
+           0.5237822654813594}, {1.2499999999563636`, 0.5113381818320641}, {
+           1.5000000013587296`, 0.5107224461056845}, {1.8319999939041463`, 
+           0.5229265369491987}, {2.000000008168812, 0.5257560221765489}, {
+           2.3162500217487514`, 0.5161359524986358}, {2.4999999994437268`, 
+           0.5240817569121743}, {2.507499950534874, 0.5137345497935977}, {
+           3.0000000003832876`, 0.5079003980237113}, {3.0000000231065544`, 
+           0.5096530724359567}, {3.5000000002660014`, 0.5103459102326731}, {
+           3.9999994979214217`, 0.500299548992879}, {3.999999999948025, 
+           0.5039052256219667}, {5.000000001639429, 0.4925064420160017}, {
+           5.499999996466635, 0.48511121566904136`}, {5.999965558735909, 
+           0.4838638647423754}, {6.000000135581913, 0.48572474052371395`}, {
+           8.267499999941885, 0.4702242876153204}, {9.000000002972772, 
+           0.46944073140195486`}, {9.999999991187165, 0.4656006734438338}, {
+           7, 0.47907647102881756`}}]}, {
+         Point[{{1., 0.6450382927447569}, {1.0000000298023228`, 
+           0.6474920994564002}, {1.2499999999563636`, 0.6259086175390616}, {
+           1.5000000013587296`, 0.618882217636191}, {1.8319999939041463`, 
+           0.6210388296367703}, {2.3162500217487514`, 0.5950154734864346}, {
+           2.4999999994437268`, 0.6003334830993106}, {2.507499950534874, 
+           0.5854184117284936}, {3.0000000003832876`, 0.5637715325863049}, {
+           3.0000000231065544`, 0.5658701919864328}, {3.5000000002660014`, 
+           0.5564261796663263}, {3.9999994979214217`, 0.5312547266475574}, {
+           3.999999999948025, 0.5357670676930546}, {5.000000001639429, 
+           0.5058576164381654}, {5.499999996466635, 0.49032561956790244`}, {
+           5.999965558735909, 0.48129794318818786`}, {6.000000135581913, 
+           0.48717453175638936`}, {8.267499999941885, 0.4503249977868231}, {
+           9.000000002972772, 0.44589254513112664`}, {9.999999991187165, 
+           0.43494998082971237`}, {7, 0.4664072935378104}}]}, {
+         Point[{{1., 0.7830718448750646}, {1.0000000298023228`, 
+           0.7926727898718235}, {1.2499999999563636`, 0.7565620494667211}, {
+           1.5000000013587296`, 0.7451257954316359}, {1.8319999939041463`, 
+           0.735484577438636}, {2.3162500217487514`, 0.6901795271075732}, {
+           2.4999999994437268`, 0.6871713781405081}, {2.507499950534874, 
+           0.677590853508218}, {3.0000000003832876`, 0.6414497710171732}, {
+           3.0000000231065544`, 0.6401921584552057}, {3.5000000002660014`, 
+           0.6225748185882045}, {3.9999994979214217`, 0.58118473212269}, {
+           3.999999999948025, 0.5883047159549568}, {5.000000001639429, 
+           0.5390692051348933}, {5.499999996466635, 0.5152217421951297}, {
+           5.999965558735909, 0.4998516106023674}, {6.000000135581913, 
+           0.5081587796966576}, {8.267499999941885, 0.4537490991310622}, {
+           9.000000002972772, 0.44626049041605165`}, {9.999999991187165, 
+           0.42898710155777686`}, {7, 0.4770722430956821}}]}, {
+         Point[{{1., 0.9306179362180993}, {1.0000000298023228`, 
+           0.8742102162970831}, {1.2499999999563636`, 0.856627721242992}, {
+           1.5000000013587296`, 0.8503500494280543}, {1.8319999939041463`, 
+           0.8238757268008632}, {2.3162500217487514`, 0.7686432948618833}, {
+           2.4999999994437268`, 0.7495892003456067}, {2.507499950534874, 
+           0.7629825725473893}, {3.0000000003832876`, 0.7083662643008167}, {
+           3.0000000231065544`, 0.7149625482615408}, {3.5000000002660014`, 
+           0.6883045538435231}, {3.9999994979214217`, 0.6444926297077047}, {
+           3.999999999948025, 0.6523264102935737}, {5.000000001639429, 
+           0.5865705260151257}, {5.499999996466635, 0.5534200871855843}, {
+           5.999965558735909, 0.5618058430909643}, {6.000000135581913, 
+           0.5499816974119478}, {8.267499999941885, 0.4919223426287642}, {
+           9.000000002972772, 0.4660352044731535}, {9.999999991187165, 
+           0.469891229207158}, {7, 0.5172064013004738}}]}}, 
+      Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((t)\)]\
+\)", None}, {"q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], 
+      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      GridLines -> {Full, Full}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 18], 
+      Method -> {
+       "DefaultBoundaryStyle" -> Automatic, 
+        "DefaultGraphicsInteraction" -> {
+         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+          "Effects" -> {
+           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+            "Droplines" -> {
+             "freeformCursorMode" -> True, 
+              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
+        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Identity[#]& )[
+             Part[#, 2]]}& )}, "AxesInFront" -> True}, 
+      PlotRange -> {All, All}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+      Ticks -> {Automatic, Automatic}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         Opacity[1.], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         Dashing[{Small, Small}]]}, {
+       "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((0  \
+M)\)]\)", None, None, 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((5  M)\
+\)]\)", None, None, 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((10  \
+M)\)]\)", None, None, 
+        "\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[Phi]\), \(221\), \((15  \
+M)\)]\)"}, LegendMarkers -> None, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 18], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.794725857724778*^9, 3.794725874608221*^9}, 
+   3.79472593572407*^9, {3.794726077733347*^9, 3.7947260945157003`*^9}, 
+   3.7947265020327463`*^9, 3.794726554830474*^9, {3.794726966039913*^9, 
+   3.7947269887323313`*^9}, {3.794727556328506*^9, 3.794727565188208*^9}, {
+   3.7947383196240177`*^9, 3.794738327035321*^9}, {3.794738364103318*^9, 
+   3.7947384053118553`*^9}, {3.7947386106869097`*^9, 3.794738661141439*^9}, 
+   3.79473869156559*^9, 3.794738808655761*^9, {3.794738844131785*^9, 
+   3.7947389937088423`*^9}, 3.7947401914840927`*^9, 3.794740262251936*^9, {
+   3.794740308228406*^9, 3.7947403341679077`*^9}, 3.794740376317638*^9, {
+   3.7960957346182203`*^9, 3.796095738566435*^9}, 3.7963587726377993`*^9, 
+   3.7971419480731993`*^9, 3.7971420838628273`*^9, {3.797155530508255*^9, 
+   3.7971555598738728`*^9}, {3.797155607135744*^9, 3.79715567467593*^9}, 
+   3.799980533949267*^9, 3.799986839733549*^9},
+ CellLabel->
+  "Out[1014]=",ExpressionUUID->"c3f44ff4-5e4d-4818-8399-824cb62b2340"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<2tonePhase_starttime.pdf\>\""}], ",", 
+   "pl"}], "]"}]], "Input",
+ CellChangeTimes->{{3.794725716340115*^9, 3.794725735561653*^9}, 
+   3.794725962129634*^9, {3.799980539965308*^9, 3.799980542670253*^9}},
+ CellLabel->
+  "In[418]:=",ExpressionUUID->"445f8005-0027-46e5-9d8f-502074bf4253"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/2tonePhase_\
+starttime.pdf\"\>"], "Output",
+ CellChangeTimes->{3.794725736573032*^9, 3.794725788738686*^9, 
+  3.794725963526585*^9, 3.794739004555524*^9, 3.7960957408634233`*^9, 
+  3.7971556798224916`*^9, 3.79998054364159*^9},
+ CellLabel->
+  "Out[418]=",ExpressionUUID->"d043ee31-786f-4d5e-84a7-f42d747ffe2e"]
+}, Open  ]]
+}, Closed]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell["Resolvability", "Section",
+ CellChangeTimes->{{3.799979947797538*^9, 
+  3.799979950520608*^9}},ExpressionUUID->"80ca7b39-5a03-4176-afda-\
+6bed1f5c9a7d"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Sigma]f", "[", 
+   RowBox[{"f1_", ",", "Q1_", ",", "f2_", ",", "Q2_", ",", "R_"}], "]"}], ":=", 
+  RowBox[{
+   RowBox[{"1", "/", 
+    RowBox[{"(", 
+     RowBox[{"2", 
+      RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"f1", "^", "3"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", "+", 
+         RowBox[{"16", 
+          RowBox[{"Q1", "^", "4"}]}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"Q1", "^", "7"}], ")"}]}], 
+      RowBox[{"(", " ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Q1", "^", "3"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"f1", 
+           RowBox[{"(", 
+            RowBox[{"1", "+", 
+             RowBox[{"4", 
+              RowBox[{"Q1", "^", "2"}]}]}], ")"}]}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"R", "^", "2"}], " ", 
+         RowBox[{
+          RowBox[{"Q2", "^", "3"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"f2", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{"4", 
+               RowBox[{"Q2", "^", "2"}]}]}], ")"}]}], ")"}]}]}]}], ")"}]}], 
+     ")"}], "^", 
+    RowBox[{"(", 
+     RowBox[{"1", "/", "2"}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.7985405256329947`*^9, 3.7985406686842623`*^9}, {
+  3.798540707189432*^9, 3.798540760673064*^9}, {3.798540791851248*^9, 
+  3.7985408453218403`*^9}},
+ CellLabel->
+  "In[110]:=",ExpressionUUID->"fbeac557-fafe-455b-9ead-08d635cc2d06"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"f220", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f330", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f221", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f440", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"4", ",", "4", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"4", ",", "4", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f210", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.798591721035592*^9, 3.798591738332911*^9}, {
+  3.798592133728931*^9, 3.798592133951769*^9}, {3.79859235034455*^9, 
+  3.798592396309044*^9}, {3.798592437510415*^9, 3.7985924381654*^9}, {
+  3.798592577661471*^9, 3.798592578354536*^9}, {3.7985926202760553`*^9, 
+  3.7985926534366007`*^9}, {3.7985935907339277`*^9, 3.7985936199004498`*^9}, {
+  3.799986980527821*^9, 3.799987103289311*^9}, {3.799987202725951*^9, 
+  3.799987204343218*^9}},
+ CellLabel->
+  "In[111]:=",ExpressionUUID->"e8e0b02d-0696-4186-9bcd-78a9a6c66605"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"qpints", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"qq", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"qq", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.79859281932397*^9, 3.7985928231030912`*^9}},
+ CellLabel->
+  "In[116]:=",ExpressionUUID->"edc9fa08-7cc7-4814-877f-15dff493bd32"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Mf", "=", 
+   RowBox[{"1", "-", 
+    RowBox[{"EradUIB2017", "[", 
+     RowBox[{
+      RowBox[{"qpints", "/", 
+       RowBox[{
+        RowBox[{"(", 
+         RowBox[{"qpints", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", 
+      "0"}], "]"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.798596338971361*^9, 3.7985963882626*^9}},
+ CellLabel->
+  "In[117]:=",ExpressionUUID->"584d7a2d-c68c-4d36-8cdb-4e52aead023e"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"f220f", "=", 
+   RowBox[{
+    RowBox[{"1", "/", 
+     RowBox[{"(", 
+      RowBox[{"2", "\[Pi]"}], ")"}]}], 
+    RowBox[{"fH", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f220", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], "*", 
+       RowBox[{"1", "/", "Mf"}]}], ",", "70"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f330f", "=", 
+   RowBox[{
+    RowBox[{"1", "/", 
+     RowBox[{"(", 
+      RowBox[{"2", "\[Pi]"}], ")"}]}], 
+    RowBox[{"fH", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f330", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], "*", 
+       RowBox[{"1", "/", "Mf"}]}], ",", "70"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f221f", "=", 
+   RowBox[{
+    RowBox[{"1", "/", 
+     RowBox[{"(", 
+      RowBox[{"2", "\[Pi]"}], ")"}]}], 
+    RowBox[{"fH", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f221", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], "*", 
+       RowBox[{"1", "/", "Mf"}]}], ",", "70"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f440f", "=", 
+   RowBox[{
+    RowBox[{"1", "/", 
+     RowBox[{"(", 
+      RowBox[{"2", "\[Pi]"}], ")"}]}], 
+    RowBox[{"fH", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f440", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], "*", 
+       RowBox[{"1", "/", "Mf"}]}], ",", "70"}], "]"}]}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f210f", "=", 
+   RowBox[{
+    RowBox[{"1", "/", 
+     RowBox[{"(", 
+      RowBox[{"2", "\[Pi]"}], ")"}]}], 
+    RowBox[{"fH", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f210", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "1"}], "]"}], "]"}], "*", 
+       RowBox[{"1", "/", "Mf"}]}], ",", "70"}], "]"}]}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.798541636522287*^9, 3.7985417033092003`*^9}, {
+  3.7985915745869513`*^9, 3.798591584241724*^9}, {3.798591762662757*^9, 
+  3.7985917679844227`*^9}, {3.7985920355923347`*^9, 3.798592042407496*^9}, {
+  3.79859265758042*^9, 3.798592667754361*^9}, {3.798593374123611*^9, 
+  3.7985933992265873`*^9}, {3.798593635681643*^9, 3.7985936722594147`*^9}, {
+  3.798594370223607*^9, 3.7985943764205313`*^9}, {3.798594455925305*^9, 
+  3.798594459382393*^9}, {3.798594570955298*^9, 3.7985945765377703`*^9}, {
+  3.798595021824266*^9, 3.798595032062045*^9}, {3.798596299487299*^9, 
+  3.7985963046374702`*^9}, {3.798596410087097*^9, 3.798596430865203*^9}},
+ CellLabel->
+  "In[118]:=",ExpressionUUID->"ae009b82-220d-481d-9be5-1d6d81a60893"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"q220tab", "=", 
+   RowBox[{
+    RowBox[{"tPhys", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f220", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+     "]"}], "*", "\[Pi]", " ", "f220f"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"q330tab", "=", 
+   RowBox[{
+    RowBox[{"tPhys", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f330", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+     "]"}], "*", "\[Pi]", " ", "f330f"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"q221tab", "=", 
+   RowBox[{
+    RowBox[{"tPhys", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f221", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+     "]"}], "*", "\[Pi]", " ", "f221f"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"q440tab", "=", 
+   RowBox[{
+    RowBox[{"tPhys", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f440", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+     "]"}], "*", "\[Pi]", " ", "f440f"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"q210tab", "=", 
+   RowBox[{
+    RowBox[{"tPhys", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"f210", "[", 
+        RowBox[{"[", 
+         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+     "]"}], "*", "\[Pi]", " ", "f210f"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.798541636522287*^9, 3.798541777093162*^9}, {
+  3.798591593417856*^9, 3.798591599783605*^9}, {3.798592050398264*^9, 
+  3.798592080180498*^9}, {3.7985926715250874`*^9, 3.798592684522779*^9}, {
+  3.798593403236884*^9, 3.798593426772447*^9}, {3.798593677149466*^9, 
+  3.7985937241680613`*^9}, {3.798593822127388*^9, 3.798593850228004*^9}, {
+  3.79859396246873*^9, 3.798593995197838*^9}, {3.798594377660963*^9, 
+  3.7985943813691263`*^9}, {3.798594451332527*^9, 3.798594463284046*^9}, {
+  3.7985945774044724`*^9, 3.798594581114561*^9}, {3.798595032983901*^9, 
+  3.798595036343956*^9}, {3.798596243049119*^9, 3.79859630945944*^9}, {
+  3.7985964163207912`*^9, 3.798596452803376*^9}},
+ CellLabel->
+  "In[123]:=",ExpressionUUID->"96a254a7-d679-4f22-be1b-1622e20f018b"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\[Tau]220tab", "=", 
+   RowBox[{"tPhys", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f220", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Tau]330tab", "=", 
+   RowBox[{"tPhys", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f330", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Tau]221tab", "=", 
+   RowBox[{"tPhys", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f221", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Tau]440tab", "=", 
+   RowBox[{"tPhys", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f440", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+    "]"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Tau]210tab", "=", 
+   RowBox[{"tPhys", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"f210", "[", 
+       RowBox[{"[", 
+        RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "Mf"}], ",", "70"}], 
+    "]"}]}], ";"}]}], "Input",
+ CellChangeTimes->{{3.798541636522287*^9, 3.798541777093162*^9}, {
+  3.798591593417856*^9, 3.798591599783605*^9}, {3.798592050398264*^9, 
+  3.798592080180498*^9}, {3.7985926715250874`*^9, 3.798592684522779*^9}, {
+  3.798593403236884*^9, 3.798593426772447*^9}, {3.798593677149466*^9, 
+  3.7985937241680613`*^9}, {3.798593822127388*^9, 3.798593850228004*^9}, {
+  3.79859396246873*^9, 3.798593995197838*^9}, {3.798594377660963*^9, 
+  3.7985943813691263`*^9}, {3.798594451332527*^9, 3.798594463284046*^9}, {
+  3.7985945774044724`*^9, 3.798594581114561*^9}, {3.798595032983901*^9, 
+  3.798595036343956*^9}, {3.798596243049119*^9, 3.79859630945944*^9}, {
+  3.7985964163207912`*^9, 3.798596452803376*^9}, {3.798765846677607*^9, 
+  3.798765876522251*^9}},
+ CellLabel->
+  "In[128]:=",ExpressionUUID->"edd45e2e-7f01-465b-a917-a78f3e3c4c28"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"Ar330", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"fit3310n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"fit3310n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Ar221", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"fit22110n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"fit22110n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Ar210", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"fit2115n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"fit2115n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.798591105133545*^9, 3.7985911112088747`*^9}, {
+   3.7985916085774508`*^9, 3.798591610172838*^9}, 3.7985920850366993`*^9, {
+   3.798592503383513*^9, 3.7985925242336397`*^9}, {3.7985925713394337`*^9, 
+   3.798592571824564*^9}, {3.798592703234376*^9, 3.798592706929356*^9}, {
+   3.798592757668445*^9, 3.798592763880803*^9}, {3.798592862487423*^9, 
+   3.798592875327963*^9}, {3.798593317720063*^9, 3.7985933191368237`*^9}, {
+   3.798593414108732*^9, 3.7985934177965612`*^9}, {3.7985935169928923`*^9, 
+   3.7985935182845984`*^9}, {3.7985940430511827`*^9, 3.798594099879106*^9}, {
+   3.798595268354209*^9, 3.798595268496748*^9}, {3.7985953366019163`*^9, 
+   3.798595337115513*^9}, {3.798595505642415*^9, 3.7985955083788548`*^9}, 
+   3.7987649457702312`*^9, {3.7988040526024733`*^9, 3.798804054963251*^9}},
+ CellLabel->
+  "In[133]:=",ExpressionUUID->"59c6ee3a-e822-41a7-913f-5b9eecd0d8c6"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Ar2215", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"fit2215n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"fit2215n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.798595655508684*^9, 3.798595659612177*^9}},
+ CellLabel->
+  "In[136]:=",ExpressionUUID->"c8539ecd-a88e-4bd8-b06b-7b0232d854ac"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Ar22115", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"fit22115n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"fit22115n", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.7985965236880198`*^9, 3.798596527627768*^9}},
+ CellLabel->
+  "In[137]:=",ExpressionUUID->"6bf48941-4601-4318-9588-2805657cd25e"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Ar440", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"0.1", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"0.1", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.798596710908485*^9, 3.7985967118078814`*^9}, {
+   3.798596850364151*^9, 3.798596886290959*^9}, {3.798765209031765*^9, 
+   3.798765209443832*^9}, 3.8014713047291822`*^9},
+ CellLabel->
+  "In[138]:=",ExpressionUUID->"43dd9ec9-26f5-4bfb-b44b-b200a7b722f4"],
+
+Cell[BoxData[
+ RowBox[{"Transpose", "[", 
+  RowBox[{"{", 
+   RowBox[{"qpints", ",", 
+    RowBox[{
+     RowBox[{"\[Sigma]f", "[", 
+      RowBox[{"f221f", ",", "q221tab", ",", "f220f", ",", "q220tab", ",", 
+       RowBox[{"1", "/", "Ar330"}]}], "]"}], "/", 
+     RowBox[{"(", 
+      RowBox[{"f330f", "-", "f220f"}], ")"}]}]}], "}"}], "]"}]], "Input",
+ CellChangeTimes->{{3.801471319655138*^9, 
+  3.801471323387454*^9}},ExpressionUUID->"e9319a53-dcb7-4a27-a799-\
+45d35ef3b7b2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lp", "=", 
+  RowBox[{"ListLogPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]f", "[", 
+           RowBox[{"f330f", ",", "q330tab", ",", "f220f", ",", "q220tab", ",", 
+            RowBox[{"1", "/", "Ar330"}]}], "]"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"f330f", "-", "f220f"}], ")"}]}]}], "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]f", "[", 
+           RowBox[{"f221f", ",", "q221tab", ",", "f220f", ",", "q220tab", ",", 
+            RowBox[{"1", "/", "Ar221"}]}], "]"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"f220f", "-", "f221f"}], ")"}]}]}], "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]f", "[", 
+           RowBox[{"f210f", ",", "q210tab", ",", "f220f", ",", "q220tab", ",", 
+            RowBox[{"1", "/", "Ar210"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "f210f"}], "+", "f220f"}], ")"}], "]"}]}]}], "}"}], 
+       "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]f", "[", 
+           RowBox[{"f440f", ",", "q440tab", ",", "f220f", ",", "q220tab", ",", 
+            RowBox[{"1", "/", "0.1"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"-", "f440f"}], "+", "f220f"}], ")"}], "]"}]}]}], "}"}], 
+       "]"}]}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"1", ",", "10"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"1", ",", "600"}], "}"}]}], "}"}]}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Directive", "[", 
+        RowBox[{"Purple", ",", "DotDashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "6", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\
+\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=10 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \
+\!\(\*SubscriptBox[\(A\), \(R\)]\)~0.1 M\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.53", ",", "1.0001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", 
+       "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\
+\(f\), \(sub\)]\)\>\""}], "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "13"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798541787771755*^9, 3.7985418607601547`*^9}, {
+   3.798541895548794*^9, 3.7985419144396544`*^9}, {3.798591094143605*^9, 
+   3.798591094419298*^9}, {3.7985911722190733`*^9, 3.798591183998756*^9}, {
+   3.7985912438770514`*^9, 3.798591343324004*^9}, {3.798591497426257*^9, 
+   3.79859155305122*^9}, {3.7985916443587227`*^9, 3.798591666790477*^9}, 
+   3.7985920874980593`*^9, {3.7985925498054333`*^9, 3.798592575181966*^9}, {
+   3.798592769855032*^9, 3.798592829442799*^9}, {3.798592894547345*^9, 
+   3.798592896914525*^9}, {3.798592959877553*^9, 3.7985929693468323`*^9}, {
+   3.798593011148801*^9, 3.79859301338615*^9}, {3.798593113277416*^9, 
+   3.798593247021102*^9}, {3.7985935334476967`*^9, 3.798593543699625*^9}, {
+   3.7985937362057323`*^9, 3.798593775025857*^9}, {3.798593864842897*^9, 
+   3.798593946761847*^9}, {3.798594108083662*^9, 3.798594113834106*^9}, {
+   3.798594152589316*^9, 3.798594164220385*^9}, {3.7985942042439413`*^9, 
+   3.798594207248608*^9}, {3.798594254432376*^9, 3.798594303940976*^9}, {
+   3.798594500948661*^9, 3.7985945014352427`*^9}, {3.798594683743135*^9, 
+   3.798594709754397*^9}, {3.79859513505191*^9, 3.7985951476572933`*^9}, {
+   3.798595306747677*^9, 3.798595351683064*^9}, {3.7985954281633987`*^9, 
+   3.798595450506043*^9}, {3.7985956272528563`*^9, 3.798595638906241*^9}, {
+   3.798595755333088*^9, 3.798595758803836*^9}, {3.798595861394104*^9, 
+   3.798595952110375*^9}, {3.7985959858870687`*^9, 3.798596029286317*^9}, {
+   3.798596484474265*^9, 3.7985965032063217`*^9}, 3.798596533767147*^9, {
+   3.798596641802929*^9, 3.798596682050522*^9}, {3.798596729116962*^9, 
+   3.798596799758675*^9}, {3.798596890558197*^9, 3.798597036434762*^9}, {
+   3.7988075578623857`*^9, 3.7988075583884172`*^9}, {3.798807903014657*^9, 
+   3.7988079036780567`*^9}},
+ CellLabel->
+  "In[1075]:=",ExpressionUUID->"07292ab0-33af-4f76-9b08-efb742e6b27b"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1075,71,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.798591175823916*^9, 3.798591184389186*^9}, 
+   3.798591313040938*^9, 3.798591343933257*^9, {3.798591498406588*^9, 
+   3.798591510274468*^9}, {3.798591543442088*^9, 3.79859155362543*^9}, {
+   3.7985916362776937`*^9, 3.798591667398581*^9}, 3.798592088175186*^9, 
+   3.7985924721012487`*^9, 3.7985925257689962`*^9, 3.798592564921783*^9, 
+   3.7985927116517067`*^9, {3.7985927938825817`*^9, 3.798592830264656*^9}, 
+   3.798592897243922*^9, 3.79859301604597*^9, {3.798593116815607*^9, 
+   3.7985932473292427`*^9}, 3.798593321756792*^9, 3.7985935439525146`*^9, 
+   3.798593775576662*^9, 3.7985938396037207`*^9, 3.7985938923806553`*^9, {
+   3.798593931929719*^9, 3.7985939471977663`*^9}, {3.798593978560543*^9, 
+   3.798593997960946*^9}, 3.798594046905838*^9, 3.798594114194021*^9, {
+   3.7985941594976673`*^9, 3.798594164498744*^9}, 3.798594207802356*^9, {
+   3.7985942429750834`*^9, 3.7985943044308167`*^9}, 3.798594385812376*^9, 
+   3.798594468877516*^9, 3.798594501904396*^9, 3.7985945847627363`*^9, {
+   3.7985946845319233`*^9, 3.798594710240239*^9}, {3.798595135876357*^9, 
+   3.7985951482194366`*^9}, 3.798595270519332*^9, {3.798595330509448*^9, 
+   3.79859537332061*^9}, {3.798595439098875*^9, 3.798595450818883*^9}, {
+   3.798595496718395*^9, 3.798595510247273*^9}, 3.798595576006852*^9, 
+   3.7985956649800587`*^9, 3.798595759351362*^9, {3.7985958719763737`*^9, 
+   3.798596029801173*^9}, {3.798596256869904*^9, 3.798596313366685*^9}, 
+   3.7985964572075853`*^9, 3.7985965342658443`*^9, {3.798596644128406*^9, 
+   3.7985966823547792`*^9}, {3.798596730372349*^9, 3.798596748006233*^9}, {
+   3.798596780715188*^9, 3.798596800129766*^9}, {3.798596908228949*^9, 
+   3.798597036768724*^9}, 3.79876489250104*^9, 3.7987649528930063`*^9, 
+   3.7987652108054857`*^9, {3.798765263833762*^9, 3.7987652826449423`*^9}, {
+   3.798765440475809*^9, 3.7987654465947113`*^9}, 3.7988075590654573`*^9, 
+   3.79880790415145*^9, 3.799987450584072*^9},
+ CellLabel->
+  "During evaluation of \
+In[1075]:=",ExpressionUUID->"b9c4213a-0e7c-4799-943d-f364e7178e05"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1075,72,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.798591175823916*^9, 3.798591184389186*^9}, 
+   3.798591313040938*^9, 3.798591343933257*^9, {3.798591498406588*^9, 
+   3.798591510274468*^9}, {3.798591543442088*^9, 3.79859155362543*^9}, {
+   3.7985916362776937`*^9, 3.798591667398581*^9}, 3.798592088175186*^9, 
+   3.7985924721012487`*^9, 3.7985925257689962`*^9, 3.798592564921783*^9, 
+   3.7985927116517067`*^9, {3.7985927938825817`*^9, 3.798592830264656*^9}, 
+   3.798592897243922*^9, 3.79859301604597*^9, {3.798593116815607*^9, 
+   3.7985932473292427`*^9}, 3.798593321756792*^9, 3.7985935439525146`*^9, 
+   3.798593775576662*^9, 3.7985938396037207`*^9, 3.7985938923806553`*^9, {
+   3.798593931929719*^9, 3.7985939471977663`*^9}, {3.798593978560543*^9, 
+   3.798593997960946*^9}, 3.798594046905838*^9, 3.798594114194021*^9, {
+   3.7985941594976673`*^9, 3.798594164498744*^9}, 3.798594207802356*^9, {
+   3.7985942429750834`*^9, 3.7985943044308167`*^9}, 3.798594385812376*^9, 
+   3.798594468877516*^9, 3.798594501904396*^9, 3.7985945847627363`*^9, {
+   3.7985946845319233`*^9, 3.798594710240239*^9}, {3.798595135876357*^9, 
+   3.7985951482194366`*^9}, 3.798595270519332*^9, {3.798595330509448*^9, 
+   3.79859537332061*^9}, {3.798595439098875*^9, 3.798595450818883*^9}, {
+   3.798595496718395*^9, 3.798595510247273*^9}, 3.798595576006852*^9, 
+   3.7985956649800587`*^9, 3.798595759351362*^9, {3.7985958719763737`*^9, 
+   3.798596029801173*^9}, {3.798596256869904*^9, 3.798596313366685*^9}, 
+   3.7985964572075853`*^9, 3.7985965342658443`*^9, {3.798596644128406*^9, 
+   3.7985966823547792`*^9}, {3.798596730372349*^9, 3.798596748006233*^9}, {
+   3.798596780715188*^9, 3.798596800129766*^9}, {3.798596908228949*^9, 
+   3.798597036768724*^9}, 3.79876489250104*^9, 3.7987649528930063`*^9, 
+   3.7987652108054857`*^9, {3.798765263833762*^9, 3.7987652826449423`*^9}, {
+   3.798765440475809*^9, 3.7987654465947113`*^9}, 3.7988075590654573`*^9, 
+   3.79880790415145*^9, 3.7999874506474857`*^9},
+ CellLabel->
+  "During evaluation of \
+In[1075]:=",ExpressionUUID->"ef115732-9ea8-4df9-a591-6bd4cca3c30d"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{}, {{{}, {}, 
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}], 
+           LineBox[CompressedData["
+1:eJw103lQVXUUB/AHiAgoowIu5eCCiZRbCa7A9yeOC/NcWGxijDCX1NEQ0BEV
+DExBAZ8KTImI5C4Ysrglk2QkLhm4UKkok/RKRXnwuPfdt6/x7j2dmTt3zv3j
+O+ecz9zRq5Jjv3CVyWRJvY/zHZxw6KZuPIcDZz9RDm30ZbF1ATmqGA57mrN8
+9soGsQy/6gXKdA6Xdxrz8u/5sDMp4V5PT3Mo9H8SnbanP7vf7CwObdfuljX8
+4sX0452BHCq8H9sGLvNkI3vT6gJ4xO6+fMplVD+2UJnem8ij6beSPUVDPFiq
+My6Fh0fbSuRP7MuOljiLR1n4wpohie6sUecM5FG+fmXJ4dN9WFeMc0AeZ0OO
+lIWY3Zg4np8GEdlTzhoT3ViEMy5cA2X6iprtj1zZWrE0iIq4OHnpIlfm3Dbh
+kAZ5qeerElpcmLhunQZ8grK4IdGFieMpNViuiQyMFWRMjPMS8PLhLiY/KGNT
+xRLQwJ+b3WeyjInnSxAQXRh3su28A+K6OQLiO45GDnfYIY5XLaBp6c2xqz+z
+Q4x7KqCyNXjB3kYbZGJp4RLFjV83xQbJQ4ugxNL21WeskDy0yA63f5gdYIXk
+oUXpRmVE83cWSB5a3E54uasj0ALJQ4sa345TXJUZkocWOp+KXV7hZkgeOgwo
+Oee55ZEJkocOwZvyzcnrTJA8dJhQHbm/2tUEyUMHHe91LeukEeL5burw8HVg
+aM1cIyQPHeLkcbIBbw2QPPQYJy/dqiw0QPLQ487IJRveCTdA8tAj0MPFM0Ol
+R4EYqMesOj+LoVQPyaP3u/eyuvilekgeejRY8iqL++gheRgQbzV+n1Wvg+Rh
+wJdFj17vTtNB8jCAz73RnvuRjjwMqH1sqEjntORhgILX346s1ZKHAQdmhA+4
+n6olDyMOlW9U9A3VkocRF28MTPnLJJCHERXb1KaLDQJ5GLHpwiVrYa5AHkZs
+WX2wpT1GIA8j/Ia8OWYbIZCHET2uYTNtbzTkYUJwuf+cSz9oyMOErtb3N5/I
+0UCMSzHh68OLwxZ/rCEPE5oMaTsU4zTkYcKUV0uSXxp58jBhUmbTcnkzTx5m
+5M4d3BJ1gicPMzKfrM26vJUnDzPGhLoWDFrEk4cZqzyCDJ8G8uRhxop5x/vu
+t3D4R/Qww3PawvXFf3LkYcEGb9/h6dUcQkQPC5Jqk9ZMyOPIw4Ls7hnt5Ws4
+8rAg+seIMbFzOPKwIOjOt4rFARx5WDDoj2xBZuwhDyuGpvnJmq70kIcVs+s3
+tak395CHFfLMyrXTp/aQhxX/jop+wglq8rDCx6SK6biqJg8rdmbcmf9qh5o8
+rAjt7zp6doSaPGxIra9Iu+KmJg8bctyvB7zb1E0eNqxzhOxvLOomDxtq90XF
+RSV0k4cNim0X8tzGdZOHDR8cbwxV8F3kYYf5TLwp7Kcu8rDjeuvEedX5XeRh
+x8x9QbPC4rvIw44FOe5VXwV1kYcdZbajk1r0KvKw45j/e0LTXRV5OGDxuNX9
+4IiKPBzwXVlcnbRRRR4O3DNPyvSOUJGHA9OHyefPGqwiDwf8KwuOrHjdSR4O
+FKR2XvWu7yQPGQvOelWcXNRJ95SxyoOeM+N931Lfjykc8r8t3yhpn4FMObrj
+15/dX1Dvx566FKnmVbRRP4z5PZi2/cXnz6kfwYZPiH6ecewZ/d+j2AxWVbIm
+4P9+DNtb0jlffq+V+rHM//f8W88UrfgPh8ZoQw==
+            "]]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw91XtMU1ccB/Cqgw3UqHe4EKYoiAmYCqKocyjfgxExCCo+5sTXIgOrToG4
+uMiMZi4YzMxaHkILlNICLU/nJltxuhl8AxphE12m2UCG06FbS9/v3V7z85fc
+3Hz/+eac88m5N2JP3sac8SKR6BD/+N+vxoB7Z36f/vwSx2J2SK9aog1Yr5Yc
+Oarn2MbO8KLRTAO0unWfHbnAsc9DzqUOFRqwK16f0voNxxryVwQ/rDegeIMm
+eUUbx+7e8Y8BuaHStrnNHLNG+wsNWH5Rcz5ey7FZfFtnuBHpCWXWjnqOrRkq
+5BuN+CtDPyFTzbECf12+EcXbjnbMV3GsSuEfI8ZXvl2zWsmxaxZ/oRE9yy4v
+PlDNsReZ/gUakSy5lnpdwTFheSFjODnC1RfKOZbkr1sxhtCR0+GBlRzLFWYM
+hYv3aZ+d5Zh/tzukY0isio00lXNM2G7nGMJib5qsZRwTljc0hgXnb/0xk89C
+XbAJO/c9rs8p5dgiYUx4p+/ZvDslHBOOb4cJ6Rkvjq/ns7DdIhO6D//c+1LG
+MWF550yoPXN+6CifhbqHJuhqpt+fyedXHmZksEjJBBl5mOEb7i79RUoeZijj
+qrO/l5KHGXtbEttPSMnDjHDZqpRTUvIwY+fFxCCllDzM2BMwaatcSh4W/LYo
+a6pGSh4W5G+/pRuWkocFncM7D74pIw8LVA7L5KV8Fo7vqgXHPtZ2F8jIw4Km
+3kPPfpCRhxXyopfjHsvIw4o/UwYmJZSQhxUpl94PO8BnmVBoRdXm2LZfS8jD
+ikW9MfvDSsnDiolpjt0lpeRhgzgq5/bIaw8bIrRP97Iy8rChOuyTvroy8rCh
+Pj+pOrCcPGyI607LLSgnDxtGxW8MDJaThx0rtR/INp8lDztitjpX3TlLHnYM
+frile1YFedhR9O2x1toK8rDDNXlx0+xK8rCjoaAv+HgledghWShWBMjJw4GC
+maIsiZw8HGiLuFl0l89CXb4D730ZfWO7gjwcWBvdP+6GgjwcCM1KnLKgijwc
+6Iv2XqmpIg8n5NMGlsZXk4cTeYNdxXXV5OHEjKE60bQa8nDiRnZI4cka8nAi
+fcKlfjOfnwgeTsxP7Xq6V0keLqwrFise8TlB8HCh896DnvW15OHCu3Gf7r5e
+Sx4uSMKk4hAVebjQH30x67SKPFw4lTOo8qrIw4322KCRw3Xk4cZoeWDI8zry
+cOPp/nv6ZWrycKNHnaw+pyYPN87MSUqcoyEPN7RBLYWHNeThhr54MPtvDXl4
+EJn7b2/W6++VB1dslVxLPXl48F34j3kzGsjDA89CNrC/gTw8KM9PNz1qIA8P
+wuPup8Q0kocXaVEnrPJG8vCCNbwIGmkkDy8CM1dHbdKShxcBByT9Si15ePHk
+68vxwTry8CJjYHTLJh15+PCfMuHxTzry8EGcN29bQBN5+JC65u4/B5vIw4cv
+prQ3XmgiDx8qDrbGhDWThw8nxR9N2tVMHiK2hHswUd1M5ylic2u7Vn/1+n/w
+FqsYXpIr09N+prI6R49qeQflEJa8aWWHuZ1yKLssruru0lGewcRp5v5MDd3v
+2ex2UlNvq5JyJFOPOI16BeUopm3ZEJHN37//ASo7JTM=
+            "]]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJw103lMVFcUB+An+pbZZIBxQRSpo1a0cSngFuFcEB1pKSm0tqhYBbXVRiIq
+0VZbgxYBQVFAQSYqQUBTJRSEKUi0VjAiVKVSgahgM9ZxAYPMvs+UeTmc5Obm
+/PPLOffL/SBlV8I2L4qiUkeO5z5uo/Mfzx+Gif3QnF7sTxKaAo8Oxg/Dk8pk
+vXnlJHJQVqNQHxiGMLt32L6GCaQyLVzYWzEMisbZKv/zMvLgvqeGIfNq453N
+bX7ENCfpZItxGA6WH/h8fYAfmT6S1hSohX0Z87NT83zJGvWBkUQtjGv7pS1X
+6kt2e+LStBD+Nky1tcqHKEs9pQXhpnivktU+pNXoCdSCob8zTqSTknfxngG1
+EN2c+HtVlZTw48l0MCS0tzdtkpIIT1y4DlqZZWdDg6TkW750MKb2w/rCDm8y
+MtxIoA6yYgpyIzd6E37dJh0Ez6t5yFrGE348tQ5UQbN2JJaOJ3ycUA8VkVMl
+6WQ8CeFLD8dfFWZdfychSXygHi4V5fxddl5C+HWP6iGg/tHxugQJ4cer0cNM
+RV/PQrGE8HG9ekj3NcUFtosJxZcBtgS+FmbliEkwH2iAIx1W+d5PxehhgP0h
+8UNePmL0MIBi4On1y09E6GGACV3KxpcVIvQwwPR5d/yXpInQwwDyZrtvEIjQ
+wwgvIEHQ6y1CDyOEt8m5ErUQPYwwZbvPxQKVED2M0HC6bxmbJyT887UY4fEK
+s1idLEQPI4RVhn8tXC5EDxMIilXzJsqE6GGC15oTry4NCdDDBCcKqUJLh4Cc
+4gNNcKxrpbL2sgA9TLDkcKuPJEuAHiaYE5v9XrVVgB5muLA4um8gWoAeZkju
+XpZknyVADzM4Sgu297MC9DDD0phD1dkDHHqYYeC2Ol37gEMPM3jl5JX7XuPQ
+wwKVmlLlf8Ucelgg+s6ZqI0/cehhAZkroHraFg49LHBIOofqjuHQwwI9gtmL
+Zizi0MMC1O2Pgyv9OfSwwPvnmmqxF4ceVkj5Q1NWNsiihxUmZpe/rO9mCR+X
+ZoWImjqq/BaLHlaozQ/lrl5h0cMK8jWxz4KLWfSwgkCyrdn/CIseNqgcF5L8
+TyqLHjYY8Ds9pFzPoocNrooubmxXsOhhA9ujwXMbwlj0sEH6d3v+jJOz5AXv
+YYO7pUZnmQ+LHnY4vIapjqVYEsp72GHn1tqIhPcMetihPnOPouY5gx52iEhk
+1o/pZNDDDm82TFs79haDHnZYTTX6rf2NQQ8HUDOjcgxlDHo4oIi+1fzvKQY9
+HJA6ZlJ04xEGPRyg0UxZFZrOoIcDxC8LTpq3MejhgJuPQurLExn0cIDy19jD
+7z5h0MMJmQXTbvwQzqCHE7p3ZmheLWTQwwkXxt7drZUz6OGEuJSswaeTGPRw
+QstmeuE3IgY9nPDZ8qSim24aPVxQsPevrxr0NHq4oOv5jrOZb2j0cIGqLd/6
+to9GDxf0P5yaMruLRg8XzNVGdhrv0ujhgvYfffWlN2j0cIPszP0ZnXU0erhB
+LWt41nOZRg836O+1tKWep9HDDaLcxQu6i2j0cMMX61ZIOo7R6OGGVQvk+09k
+0OhBkajJ4tyf99P4nhRZ0LS8WyEf7Tlyvaq5NqB3LO4jJbFZeflXdKO9jChb
+122v2zUO+8nkUOTSknPc6P5TiTLjaMX3l2j830Fkbv81LjKSwX4G6bq3gv6o
+Z7SfSaTuL4eit7DkfxFvE8w=
+            "]]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw10wlMVFcYBeBRjGtVrCjGWgREYIxaSq2gOD2T1pUWDUssEdTUBaJhlEWw
+gjVQJXWhohgXSLS4FKQOWixVUFvquCAVEWtFXKCF6r0PGWX2fSnzvPdPXl5O
+XnJy//vlBazZHLd+oEQi2dT/eN5vR4MBV+Z+UZ1GIE0uVhlDNfBiOa7Or7A3
+VgNn/duc53N+UVeuBi9bI2OrFQRn0mXDH5/WwDfrP1RvIrjX7BkNZj6eNqF6
+M4Ep1FOogaWss1CZQTC5v63OT4v1edHvKTMJFnfl9jdqEeS1xOvcFoIMT126
+Fo/2jCupyiEoK/WMFiU9dxorvya4YfQUapGtkGSeySNQx3oOqMW20z8nlO8g
+EI/no8P80IjQ4/kEn3jqZDo0HMy6dXgXQYo4OswwDE0o/o7As21ysQ6qnlHv
+795LIK5bp0Oea0X0N/sJxON16VAQHDMxo4RArBuux6GLRUVrjxB8JI4e0ZvD
+TiWUEYjXl6xHU9+C5PknCMR1C/Uw1HZeDT9FIB7vvB43a2bcm1hJINY91qN2
+fPkNiZLgrYcBZJ6/4tUF7mHAcl3xieZa7mFA2u2lV5T13MOALUs3Xt7ZwD0M
+uDa44dPVN7mHAQuDlb9FNnEPA+yp0pYh97mHEd9Kcl89/Jt7GHE3qUVR8YR7
+GLHo3zchin+4hxELwntNYS8JxOtTGdF3NrlD+4p7GPHiubvjgoZ7mHD13Xfm
+rDZzDxNqUlrs453cw4TIxpZxDV4UB8RCE45Jl1WmD6PMw4RLleXFY7wp8zBh
+mqzXcW0cZR5mjF04XLV8EmUeZoxo9L2kDqTMwwy51P5sh5QyDzNWxmRFjgyj
+zMOMBLqj9ehsyjzMmH67qcJPRpmHBQvI2T9OfkaZhwVlcYMCA6Ip87Bg7KKc
+0j2xlHlY8EbQjRyQSJmHBXM/ONS2ZRVlHhY0Wk9Oal1PmYcFzX11Y+elUeZh
+xZIAn+z9WZR5WDHqfqb/81wKsS7dimlhW2XzCijzsKKg48/Agt2UeVgRsTF/
+zfViyjysaP8+fqDzCGUeNhTJtqfGHKfMwwbZ7Gcb8s9Q5mFDZlJgx/lz3MOG
+HLXjVvtF7mEDkhRSVz1Ft+hhg7omY+Tk69zDjrJB8Vuj7lDMEj3sOJaSnBZ/
+n3vY0dV7Q5vSxj3s6NPbyr/s5B52HJkYdPerl9zDjsYfmw+nqrmHAzTLb/AG
+PfdwwL9DEphi4x4OhLa562UDBebhQFS3qubDYQLzcGBpsHZdgLfAPBzY3h5h
+7fEVmIcDFSGmqlY/gXk4UeHdGfTLVIF5OPEs9YQ6bYbAPJw4rpQWLpwlMI/+
+72sSk0xRAvNw4tGl2pDGTwXm4USotHiKIlpgHi7Eh2sjP44VmIcL4aNzsh4k
+CszDhaZENTmwWmAeLiw7OnrrlFSBebiQPKFk5VOFwDxc+On14hVrswXm4UZ+
+3b47Y7YLzMONdb2diw/uFJiHGzVtpXERewXm4UaeYvSm6oMC83BjV3Bf8OfH
+BObhhjFY0F3+QWAeEvnTOQeeTK7k9ymRl3YUubVqnofKVeW/7lsV1cv28Zbv
+afLV+jxUs+wj7xkz9cF03WuWJ8jTqswzT958w/IkuXLVtW2/r+tj/7e/fMQL
+p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
+            "]]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
+{}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{1., 0.},
+      DisplayFunction->Identity,
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(f\\), \\(sub\\)]\\)\"", TraditionalForm], None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{
+          Charting`ScaledTicks[{Log, Exp}], 
+          Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Automatic, Automatic}}, {{{{0., 
+            FormBox["1", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+            FormBox["5", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox["10", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox["50", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox["100", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox["500", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.003065458786462, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.090076835776092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.170119543449628, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.24422751560335, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.313220387090301, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.3777589082278725`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}, {{0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.003065458786462, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.090076835776092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.170119543449628, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.24422751560335, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.313220387090301, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.3777589082278725`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, Automatic}}],
+      GridLines->FrontEndValueCache[{Automatic, 
+         Charting`ScaledTickValues[{Log, Exp}]}, {Automatic, {{0., 
+           Directive[
+            AbsoluteThickness[0.1]]}, {1.6094379124341003`, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.302585092994046, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.912023005428146, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.605170185988092, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.214608098422191, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 13],
+      Method->{
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}},
+      PlotLabel->None,
+      PlotRange->NCache[{{1, 10}, {0, 
+          Log[600]}}, {{1, 10}, {0, 6.396929655216146}}],
+      PlotRangeClipping->True,
+      PlotRangePadding->{{0, 0}, {0, 0}},
+      Ticks->{Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(330\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(221\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=10 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(210\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(440\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)~0.1 M\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
+                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 13], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.5, 0, 0.5], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
+                    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.5, 0, 0.5]; 
+                    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.5, 0, 0.5], Editable -> False, Selectable -> 
+                    False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
+                    "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.5147193333333333, 0.28770266666666666`, 
+                    0.06825800000000001], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
+                     "]"}], 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.772079, 0.431554, 0.102387]; 
+                    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.772079, 0.431554, 0.102387], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
+               "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "13"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.0001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{1., 0.},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(f\\), \\(sub\\)]\\)\"", TraditionalForm], None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{
+      Charting`ScaledTicks[{Log, Exp}], 
+      Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 13],
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{0, 0}, {0, 0}},
+   Ticks->{Automatic, 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]], 
+         Line[CompressedData["
+1:eJw103lQVXUUB/AHiAgoowIu5eCCiZRbCa7A9yeOC/NcWGxijDCX1NEQ0BEV
+DExBAZ8KTImI5C4Ysrglk2QkLhm4UKkok/RKRXnwuPfdt6/x7j2dmTt3zv3j
+O+ecz9zRq5Jjv3CVyWRJvY/zHZxw6KZuPIcDZz9RDm30ZbF1ATmqGA57mrN8
+9soGsQy/6gXKdA6Xdxrz8u/5sDMp4V5PT3Mo9H8SnbanP7vf7CwObdfuljX8
+4sX0452BHCq8H9sGLvNkI3vT6gJ4xO6+fMplVD+2UJnem8ij6beSPUVDPFiq
+My6Fh0fbSuRP7MuOljiLR1n4wpohie6sUecM5FG+fmXJ4dN9WFeMc0AeZ0OO
+lIWY3Zg4np8GEdlTzhoT3ViEMy5cA2X6iprtj1zZWrE0iIq4OHnpIlfm3Dbh
+kAZ5qeerElpcmLhunQZ8grK4IdGFieMpNViuiQyMFWRMjPMS8PLhLiY/KGNT
+xRLQwJ+b3WeyjInnSxAQXRh3su28A+K6OQLiO45GDnfYIY5XLaBp6c2xqz+z
+Q4x7KqCyNXjB3kYbZGJp4RLFjV83xQbJQ4ugxNL21WeskDy0yA63f5gdYIXk
+oUXpRmVE83cWSB5a3E54uasj0ALJQ4sa345TXJUZkocWOp+KXV7hZkgeOgwo
+Oee55ZEJkocOwZvyzcnrTJA8dJhQHbm/2tUEyUMHHe91LeukEeL5burw8HVg
+aM1cIyQPHeLkcbIBbw2QPPQYJy/dqiw0QPLQ487IJRveCTdA8tAj0MPFM0Ol
+R4EYqMesOj+LoVQPyaP3u/eyuvilekgeejRY8iqL++gheRgQbzV+n1Wvg+Rh
+wJdFj17vTtNB8jCAz73RnvuRjjwMqH1sqEjntORhgILX346s1ZKHAQdmhA+4
+n6olDyMOlW9U9A3VkocRF28MTPnLJJCHERXb1KaLDQJ5GLHpwiVrYa5AHkZs
+WX2wpT1GIA8j/Ia8OWYbIZCHET2uYTNtbzTkYUJwuf+cSz9oyMOErtb3N5/I
+0UCMSzHh68OLwxZ/rCEPE5oMaTsU4zTkYcKUV0uSXxp58jBhUmbTcnkzTx5m
+5M4d3BJ1gicPMzKfrM26vJUnDzPGhLoWDFrEk4cZqzyCDJ8G8uRhxop5x/vu
+t3D4R/Qww3PawvXFf3LkYcEGb9/h6dUcQkQPC5Jqk9ZMyOPIw4Ls7hnt5Ws4
+8rAg+seIMbFzOPKwIOjOt4rFARx5WDDoj2xBZuwhDyuGpvnJmq70kIcVs+s3
+tak395CHFfLMyrXTp/aQhxX/jop+wglq8rDCx6SK6biqJg8rdmbcmf9qh5o8
+rAjt7zp6doSaPGxIra9Iu+KmJg8bctyvB7zb1E0eNqxzhOxvLOomDxtq90XF
+RSV0k4cNim0X8tzGdZOHDR8cbwxV8F3kYYf5TLwp7Kcu8rDjeuvEedX5XeRh
+x8x9QbPC4rvIw44FOe5VXwV1kYcdZbajk1r0KvKw45j/e0LTXRV5OGDxuNX9
+4IiKPBzwXVlcnbRRRR4O3DNPyvSOUJGHA9OHyefPGqwiDwf8KwuOrHjdSR4O
+FKR2XvWu7yQPGQvOelWcXNRJ95SxyoOeM+N931Lfjykc8r8t3yhpn4FMObrj
+15/dX1Dvx566FKnmVbRRP4z5PZi2/cXnz6kfwYZPiH6ecewZ/d+j2AxWVbIm
+4P9+DNtb0jlffq+V+rHM//f8W88UrfgPh8ZoQw==
+          "]]}, {
+         Hue[0.9060679774997897, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         Line[CompressedData["
+1:eJw91XtMU1ccB/Cqgw3UqHe4EKYoiAmYCqKocyjfgxExCCo+5sTXIgOrToG4
+uMiMZi4YzMxaHkILlNICLU/nJltxuhl8AxphE12m2UCG06FbS9/v3V7z85fc
+3Hz/+eac88m5N2JP3sac8SKR6BD/+N+vxoB7Z36f/vwSx2J2SK9aog1Yr5Yc
+Oarn2MbO8KLRTAO0unWfHbnAsc9DzqUOFRqwK16f0voNxxryVwQ/rDegeIMm
+eUUbx+7e8Y8BuaHStrnNHLNG+wsNWH5Rcz5ey7FZfFtnuBHpCWXWjnqOrRkq
+5BuN+CtDPyFTzbECf12+EcXbjnbMV3GsSuEfI8ZXvl2zWsmxaxZ/oRE9yy4v
+PlDNsReZ/gUakSy5lnpdwTFheSFjODnC1RfKOZbkr1sxhtCR0+GBlRzLFWYM
+hYv3aZ+d5Zh/tzukY0isio00lXNM2G7nGMJib5qsZRwTljc0hgXnb/0xk89C
+XbAJO/c9rs8p5dgiYUx4p+/ZvDslHBOOb4cJ6Rkvjq/ns7DdIhO6D//c+1LG
+MWF550yoPXN+6CifhbqHJuhqpt+fyedXHmZksEjJBBl5mOEb7i79RUoeZijj
+qrO/l5KHGXtbEttPSMnDjHDZqpRTUvIwY+fFxCCllDzM2BMwaatcSh4W/LYo
+a6pGSh4W5G+/pRuWkocFncM7D74pIw8LVA7L5KV8Fo7vqgXHPtZ2F8jIw4Km
+3kPPfpCRhxXyopfjHsvIw4o/UwYmJZSQhxUpl94PO8BnmVBoRdXm2LZfS8jD
+ikW9MfvDSsnDiolpjt0lpeRhgzgq5/bIaw8bIrRP97Iy8rChOuyTvroy8rCh
+Pj+pOrCcPGyI607LLSgnDxtGxW8MDJaThx0rtR/INp8lDztitjpX3TlLHnYM
+frile1YFedhR9O2x1toK8rDDNXlx0+xK8rCjoaAv+HgledghWShWBMjJw4GC
+maIsiZw8HGiLuFl0l89CXb4D730ZfWO7gjwcWBvdP+6GgjwcCM1KnLKgijwc
+6Iv2XqmpIg8n5NMGlsZXk4cTeYNdxXXV5OHEjKE60bQa8nDiRnZI4cka8nAi
+fcKlfjOfnwgeTsxP7Xq6V0keLqwrFise8TlB8HCh896DnvW15OHCu3Gf7r5e
+Sx4uSMKk4hAVebjQH30x67SKPFw4lTOo8qrIw4322KCRw3Xk4cZoeWDI8zry
+cOPp/nv6ZWrycKNHnaw+pyYPN87MSUqcoyEPN7RBLYWHNeThhr54MPtvDXl4
+EJn7b2/W6++VB1dslVxLPXl48F34j3kzGsjDA89CNrC/gTw8KM9PNz1qIA8P
+wuPup8Q0kocXaVEnrPJG8vCCNbwIGmkkDy8CM1dHbdKShxcBByT9Si15ePHk
+68vxwTry8CJjYHTLJh15+PCfMuHxTzry8EGcN29bQBN5+JC65u4/B5vIw4cv
+prQ3XmgiDx8qDrbGhDWThw8nxR9N2tVMHiK2hHswUd1M5ylic2u7Vn/1+n/w
+FqsYXpIr09N+prI6R49qeQflEJa8aWWHuZ1yKLssruru0lGewcRp5v5MDd3v
+2ex2UlNvq5JyJFOPOI16BeUopm3ZEJHN37//ASo7JTM=
+          "]]}, {
+         Hue[0.1421359549995791, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]], 
+         Line[CompressedData["
+1:eJw103lMVFcUB+An+pbZZIBxQRSpo1a0cSngFuFcEB1pKSm0tqhYBbXVRiIq
+0VZbgxYBQVFAQSYqQUBTJRSEKUi0VjAiVKVSgahgM9ZxAYPMvs+UeTmc5Obm
+/PPLOffL/SBlV8I2L4qiUkeO5z5uo/Mfzx+Gif3QnF7sTxKaAo8Oxg/Dk8pk
+vXnlJHJQVqNQHxiGMLt32L6GCaQyLVzYWzEMisbZKv/zMvLgvqeGIfNq453N
+bX7ENCfpZItxGA6WH/h8fYAfmT6S1hSohX0Z87NT83zJGvWBkUQtjGv7pS1X
+6kt2e+LStBD+Nky1tcqHKEs9pQXhpnivktU+pNXoCdSCob8zTqSTknfxngG1
+EN2c+HtVlZTw48l0MCS0tzdtkpIIT1y4DlqZZWdDg6TkW750MKb2w/rCDm8y
+MtxIoA6yYgpyIzd6E37dJh0Ez6t5yFrGE348tQ5UQbN2JJaOJ3ycUA8VkVMl
+6WQ8CeFLD8dfFWZdfychSXygHi4V5fxddl5C+HWP6iGg/tHxugQJ4cer0cNM
+RV/PQrGE8HG9ekj3NcUFtosJxZcBtgS+FmbliEkwH2iAIx1W+d5PxehhgP0h
+8UNePmL0MIBi4On1y09E6GGACV3KxpcVIvQwwPR5d/yXpInQwwDyZrtvEIjQ
+wwgvIEHQ6y1CDyOEt8m5ErUQPYwwZbvPxQKVED2M0HC6bxmbJyT887UY4fEK
+s1idLEQPI4RVhn8tXC5EDxMIilXzJsqE6GGC15oTry4NCdDDBCcKqUJLh4Cc
+4gNNcKxrpbL2sgA9TLDkcKuPJEuAHiaYE5v9XrVVgB5muLA4um8gWoAeZkju
+XpZknyVADzM4Sgu297MC9DDD0phD1dkDHHqYYeC2Ol37gEMPM3jl5JX7XuPQ
+wwKVmlLlf8Ucelgg+s6ZqI0/cehhAZkroHraFg49LHBIOofqjuHQwwI9gtmL
+Zizi0MMC1O2Pgyv9OfSwwPvnmmqxF4ceVkj5Q1NWNsiihxUmZpe/rO9mCR+X
+ZoWImjqq/BaLHlaozQ/lrl5h0cMK8jWxz4KLWfSwgkCyrdn/CIseNqgcF5L8
+TyqLHjYY8Ds9pFzPoocNrooubmxXsOhhA9ujwXMbwlj0sEH6d3v+jJOz5AXv
+YYO7pUZnmQ+LHnY4vIapjqVYEsp72GHn1tqIhPcMetihPnOPouY5gx52iEhk
+1o/pZNDDDm82TFs79haDHnZYTTX6rf2NQQ8HUDOjcgxlDHo4oIi+1fzvKQY9
+HJA6ZlJ04xEGPRyg0UxZFZrOoIcDxC8LTpq3MejhgJuPQurLExn0cIDy19jD
+7z5h0MMJmQXTbvwQzqCHE7p3ZmheLWTQwwkXxt7drZUz6OGEuJSswaeTGPRw
+QstmeuE3IgY9nPDZ8qSim24aPVxQsPevrxr0NHq4oOv5jrOZb2j0cIGqLd/6
+to9GDxf0P5yaMruLRg8XzNVGdhrv0ujhgvYfffWlN2j0cIPszP0ZnXU0erhB
+LWt41nOZRg836O+1tKWep9HDDaLcxQu6i2j0cMMX61ZIOo7R6OGGVQvk+09k
+0OhBkajJ4tyf99P4nhRZ0LS8WyEf7Tlyvaq5NqB3LO4jJbFZeflXdKO9jChb
+122v2zUO+8nkUOTSknPc6P5TiTLjaMX3l2j830Fkbv81LjKSwX4G6bq3gv6o
+Z7SfSaTuL4eit7DkfxFvE8w=
+          "]]}, {
+         Hue[0.37820393249936934`, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         Line[CompressedData["
+1:eJw10wlMVFcYBeBRjGtVrCjGWgREYIxaSq2gOD2T1pUWDUssEdTUBaJhlEWw
+gjVQJXWhohgXSLS4FKQOWixVUFvquCAVEWtFXKCF6r0PGWX2fSnzvPdPXl5O
+XnJy//vlBazZHLd+oEQi2dT/eN5vR4MBV+Z+UZ1GIE0uVhlDNfBiOa7Or7A3
+VgNn/duc53N+UVeuBi9bI2OrFQRn0mXDH5/WwDfrP1RvIrjX7BkNZj6eNqF6
+M4Ep1FOogaWss1CZQTC5v63OT4v1edHvKTMJFnfl9jdqEeS1xOvcFoIMT126
+Fo/2jCupyiEoK/WMFiU9dxorvya4YfQUapGtkGSeySNQx3oOqMW20z8nlO8g
+EI/no8P80IjQ4/kEn3jqZDo0HMy6dXgXQYo4OswwDE0o/o7As21ysQ6qnlHv
+795LIK5bp0Oea0X0N/sJxON16VAQHDMxo4RArBuux6GLRUVrjxB8JI4e0ZvD
+TiWUEYjXl6xHU9+C5PknCMR1C/Uw1HZeDT9FIB7vvB43a2bcm1hJINY91qN2
+fPkNiZLgrYcBZJ6/4tUF7mHAcl3xieZa7mFA2u2lV5T13MOALUs3Xt7ZwD0M
+uDa44dPVN7mHAQuDlb9FNnEPA+yp0pYh97mHEd9Kcl89/Jt7GHE3qUVR8YR7
+GLHo3zchin+4hxELwntNYS8JxOtTGdF3NrlD+4p7GPHiubvjgoZ7mHD13Xfm
+rDZzDxNqUlrs453cw4TIxpZxDV4UB8RCE45Jl1WmD6PMw4RLleXFY7wp8zBh
+mqzXcW0cZR5mjF04XLV8EmUeZoxo9L2kDqTMwwy51P5sh5QyDzNWxmRFjgyj
+zMOMBLqj9ehsyjzMmH67qcJPRpmHBQvI2T9OfkaZhwVlcYMCA6Ip87Bg7KKc
+0j2xlHlY8EbQjRyQSJmHBXM/ONS2ZRVlHhY0Wk9Oal1PmYcFzX11Y+elUeZh
+xZIAn+z9WZR5WDHqfqb/81wKsS7dimlhW2XzCijzsKKg48/Agt2UeVgRsTF/
+zfViyjysaP8+fqDzCGUeNhTJtqfGHKfMwwbZ7Gcb8s9Q5mFDZlJgx/lz3MOG
+HLXjVvtF7mEDkhRSVz1Ft+hhg7omY+Tk69zDjrJB8Vuj7lDMEj3sOJaSnBZ/
+n3vY0dV7Q5vSxj3s6NPbyr/s5B52HJkYdPerl9zDjsYfmw+nqrmHAzTLb/AG
+PfdwwL9DEphi4x4OhLa562UDBebhQFS3qubDYQLzcGBpsHZdgLfAPBzY3h5h
+7fEVmIcDFSGmqlY/gXk4UeHdGfTLVIF5OPEs9YQ6bYbAPJw4rpQWLpwlMI/+
+72sSk0xRAvNw4tGl2pDGTwXm4USotHiKIlpgHi7Eh2sjP44VmIcL4aNzsh4k
+CszDhaZENTmwWmAeLiw7OnrrlFSBebiQPKFk5VOFwDxc+On14hVrswXm4UZ+
+3b47Y7YLzMONdb2diw/uFJiHGzVtpXERewXm4UaeYvSm6oMC83BjV3Bf8OfH
+BObhhjFY0F3+QWAeEvnTOQeeTK7k9ymRl3YUubVqnofKVeW/7lsV1cv28Zbv
+afLV+jxUs+wj7xkz9cF03WuWJ8jTqswzT958w/IkuXLVtW2/r+tj/7e/fMQL
+p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
+          "]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
+{{}, {}}}, {DisplayFunction -> Identity, GridLines -> {Automatic, 
+        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {1., 0.}, DisplayFunction :> Identity, 
+      Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\(f\
+\), \(sub\)]\)", None}, {"q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
+      GridLines -> {
+       Automatic, {0., 1.6094379124341003`, 2.302585092994046, 
+        3.912023005428146, 4.605170185988092, 6.214608098422191}}, 
+      GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 13], 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, PlotRange -> {{1, 10}, {0, 
+         Log[600]}}, PlotRangeClipping -> True, 
+      PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.5, 0, 0.5], 
+         Dashing[{0, Small, Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]]}, {
+       "\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=10 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \!\(\*SubscriptBox[\(A\), \
+\(R\)]\)~0.1 M"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
+         False, Automatic}, {False, Automatic}}, 
+       Joined -> {True, True, True, True}, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 13], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.0001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{{3.798541831736203*^9, 3.798541861673654*^9}, {
+   3.7985419081408567`*^9, 3.798541914684725*^9}, {3.7985911759773273`*^9, 
+   3.798591184467959*^9}, 3.7985913131231747`*^9, 3.7985913440074863`*^9, {
+   3.798591498489213*^9, 3.798591510364257*^9}, {3.798591543526355*^9, 
+   3.798591553706427*^9}, {3.7985916365092297`*^9, 3.798591667484659*^9}, 
+   3.798592088415454*^9, 3.7985924726857224`*^9, 3.7985925259749603`*^9, 
+   3.798592565061131*^9, 3.798592711776333*^9, {3.798592794403615*^9, 
+   3.798592830779922*^9}, 3.798592897407257*^9, 3.7985930161763277`*^9, {
+   3.798593116914312*^9, 3.798593247449841*^9}, 3.798593321884377*^9, 
+   3.7985935441376133`*^9, 3.798593775697613*^9, 3.798593839742478*^9, 
+   3.798593892564343*^9, {3.798593932107916*^9, 3.798593947375806*^9}, {
+   3.798593978737212*^9, 3.798593998143703*^9}, 3.798594047081172*^9, 
+   3.798594114379424*^9, {3.798594159683236*^9, 3.7985941646843977`*^9}, 
+   3.7985942079867563`*^9, {3.798594243167829*^9, 3.79859430460725*^9}, 
+   3.798594385993095*^9, 3.7985944690599203`*^9, 3.798594502097337*^9, 
+   3.79859458488763*^9, {3.798594684722186*^9, 3.798594710436286*^9}, {
+   3.798595136044489*^9, 3.798595148408821*^9}, 3.798595270703622*^9, {
+   3.798595330692181*^9, 3.79859537351007*^9}, {3.798595439302925*^9, 
+   3.798595451006319*^9}, {3.798595496922556*^9, 3.798595510393324*^9}, 
+   3.798595576196845*^9, 3.798595665181122*^9, 3.798595759557694*^9, {
+   3.7985958721230783`*^9, 3.798596030001195*^9}, {3.798596257063437*^9, 
+   3.798596313575116*^9}, 3.798596457411139*^9, 3.798596534476337*^9, {
+   3.798596644329706*^9, 3.798596682498015*^9}, {3.798596730578897*^9, 
+   3.798596748232671*^9}, {3.798596780901186*^9, 3.7985968003297997`*^9}, {
+   3.7985969084229727`*^9, 3.7985970369757347`*^9}, 3.79876489274689*^9, 
+   3.798764953050168*^9, 3.7987652109730577`*^9, {3.798765263993432*^9, 
+   3.7987652828180037`*^9}, {3.798765440642407*^9, 3.7987654467856407`*^9}, 
+   3.798807559201149*^9, 3.798807904285486*^9, 3.799987450875297*^9},
+ CellLabel->
+  "Out[1075]=",ExpressionUUID->"961302d2-13d1-4375-ade9-c5a1c082a57b"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<Resolvability_freq.pdf\>\""}], ",", "lp"}],
+   "]"}]], "Input",
+ CellChangeTimes->{{3.798807908804771*^9, 3.79880792852024*^9}, {
+  3.7999875060607843`*^9, 3.799987522714511*^9}},
+ CellLabel->
+  "In[1078]:=",ExpressionUUID->"df6bf54d-d9ca-43d0-ab70-8833d9b66a8e"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/Resolvability_freq.\
+pdf\"\>"], "Output",
+ CellChangeTimes->{
+  3.7988079320378313`*^9, {3.799987511644061*^9, 3.799987523667961*^9}},
+ CellLabel->
+  "Out[1078]=",ExpressionUUID->"04312f3a-d1a9-4d40-9f19-f177124215d9"]
+}, Open  ]],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Sigma]\[Tau]", "[", 
+   RowBox[{"f1_", ",", "Q1_", ",", "f2_", ",", "Q2_", ",", "R_"}], "]"}], ":=", 
+  RowBox[{
+   RowBox[{"2", "/", "\[Pi]"}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", "+", 
+         RowBox[{"4", 
+          RowBox[{"Q1", "^", "2"}]}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"Q1", " ", "f1"}], ")"}]}], 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Q1", "^", "3"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"f1", 
+           RowBox[{"(", 
+            RowBox[{"1", "+", 
+             RowBox[{"4", 
+              RowBox[{"Q1", "^", "2"}]}]}], ")"}]}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"R", "^", "2"}], " ", 
+         RowBox[{
+          RowBox[{"Q2", "^", "3"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"f2", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{"4", 
+               RowBox[{"Q2", "^", "2"}]}]}], ")"}]}], ")"}]}]}]}], ")"}]}], 
+     ")"}], "^", 
+    RowBox[{"(", 
+     RowBox[{"1", "/", "2"}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.798597149582489*^9, 3.798597184247892*^9}, {
+   3.7985974965873127`*^9, 3.7985974973115873`*^9}, 3.79859752817555*^9, {
+   3.798597756174501*^9, 3.798597756486719*^9}, {3.7985979177261763`*^9, 
+   3.798597933265538*^9}, {3.798598106638373*^9, 3.798598107227618*^9}, {
+   3.7985982458211927`*^9, 3.798598247535634*^9}, {3.7985983443773947`*^9, 
+   3.798598347431493*^9}, {3.798598393722083*^9, 3.79859839545674*^9}, 
+   3.798764912432824*^9, {3.798805401215663*^9, 3.798805402890616*^9}, {
+   3.799987783123148*^9, 3.7999877847463627`*^9}},
+ CellLabel->
+  "In[1161]:=",ExpressionUUID->"c061ac4b-7dd0-4488-981a-d9e39ad210ba"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lp", "=", 
+  RowBox[{"ListLogPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]\[Tau]", "[", 
+           RowBox[{
+           "f330f", ",", " ", "q330tab", " ", ",", "f220f", ",", "q220tab", 
+            ",", 
+            RowBox[{"1", "/", "Ar330"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{"\[Tau]220tab", "-", "\[Tau]330tab"}], ")"}], "]"}]}]}], 
+        "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]\[Tau]", "[", 
+           RowBox[{
+           "f221f", ",", " ", "q221tab", " ", ",", "f220f", ",", "q220tab", 
+            ",", 
+            RowBox[{"1", "/", "Ar221"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{"\[Tau]220tab", "-", "\[Tau]221tab"}], ")"}], "]"}]}]}], 
+        "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]\[Tau]", "[", 
+           RowBox[{
+           "f210f", ",", " ", "q210tab", " ", ",", "f220f", ",", "q220tab", 
+            ",", 
+            RowBox[{"1", "/", "Ar210"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{"\[Tau]220tab", "-", "\[Tau]210tab"}], ")"}], "]"}]}]}], 
+        "}"}], "]"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]\[Tau]", "[", 
+           RowBox[{
+           "f440f", ",", " ", "q440tab", " ", ",", "f220f", ",", "q220tab", 
+            ",", 
+            RowBox[{"1", "/", "0.1"}]}], "]"}], "/", 
+          RowBox[{"Abs", "[", 
+           RowBox[{"(", 
+            RowBox[{"\[Tau]220tab", "-", "\[Tau]440tab"}], ")"}], "]"}]}]}], 
+        "}"}], "]"}]}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"All", ",", 
+       RowBox[{"{", 
+        RowBox[{"3", ",", "5000"}], "}"}]}], "}"}]}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Directive", "[", 
+        RowBox[{"Purple", ",", "DotDashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "6", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\
+\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=10 M\>\"", ",", 
+           
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \
+\!\(\*SubscriptBox[\(A\), \(R\)]\)~0.1 M\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.53", ",", "1.0001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", 
+       "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\
+\(\[Tau]\), \(sub\)]\)\>\""}], "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "13"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.798804898688932*^9, 3.798804906643067*^9}, {
+  3.798805094252842*^9, 3.798805272013636*^9}, {3.798805306686335*^9, 
+  3.798805331279859*^9}, {3.7988053890914288`*^9, 3.798805542033309*^9}, {
+  3.7988055866140957`*^9, 3.798805656414723*^9}, {3.798805687512308*^9, 
+  3.79880570676674*^9}, {3.7988057372687283`*^9, 3.798805822956236*^9}, {
+  3.798805871151215*^9, 3.7988060434001102`*^9}, {3.79880610034653*^9, 
+  3.7988061416410513`*^9}, {3.7988063044727917`*^9, 3.79880630605085*^9}, {
+  3.799987856321299*^9, 3.79998799289301*^9}, {3.799988149005321*^9, 
+  3.799988150068523*^9}, {3.799988326305382*^9, 3.7999883385690203`*^9}, {
+  3.799988375659886*^9, 3.799988411344235*^9}, {3.7999884553090353`*^9, 
+  3.799988455985197*^9}, {3.799991082423862*^9, 3.7999910964702587`*^9}, {
+  3.799991141693096*^9, 3.799991143268157*^9}},
+ CellLabel->
+  "In[1165]:=",ExpressionUUID->"053a0694-e2aa-49a3-a5d3-0aaab3258a73"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1165,196,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.799987826659088*^9, 3.7999878569704103`*^9, 3.799987933760549*^9, 
+   3.799987993431031*^9, 3.7999881508832407`*^9, {3.7999883142917137`*^9, 
+   3.799988330986011*^9}, {3.799988397631934*^9, 3.799988411836836*^9}, 
+   3.7999884564714203`*^9, 3.799991002378049*^9, {3.799991084199622*^9, 
+   3.799991096726769*^9}, 3.79999114395105*^9},
+ CellLabel->
+  "During evaluation of \
+In[1165]:=",ExpressionUUID->"aa85f409-b9df-4e22-aff1-85caa4af2abe"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1165,197,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.799987826659088*^9, 3.7999878569704103`*^9, 3.799987933760549*^9, 
+   3.799987993431031*^9, 3.7999881508832407`*^9, {3.7999883142917137`*^9, 
+   3.799988330986011*^9}, {3.799988397631934*^9, 3.799988411836836*^9}, 
+   3.7999884564714203`*^9, 3.799991002378049*^9, {3.799991084199622*^9, 
+   3.799991096726769*^9}, 3.799991143961063*^9},
+ CellLabel->
+  "During evaluation of \
+In[1165]:=",ExpressionUUID->"d4222266-d98f-4733-89ca-ec5a4aa65d67"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{}, {{{}, {}, 
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}], 
+           LineBox[CompressedData["
+1:eJw103tMU3cUwPGKOuuDitLR370tpQjOKYqAZDoNnJ8PBsZtWpyJ4GPShTmc
+CvWFuJFMEBR0qCiizjkQNRtsNYobvoUCYSYqGJXipjBAgxtEuX3dvjt6czjJ
+zc3555vf735yQzWZyel+IpEoY+jxvbVfJ9yX/DcI2ZebDz4Qh1Lr+2sP6y2D
+0PqBVHf8jYqGFPSrryk5+HHpyQuaShVN6t4j1SVyYLOXFlevV1Ft3DhDVRYH
+QR7XggnhKnr6lG84aLq5bsPFrhDaaPEFOdhxJGl28t4QOjBUK+jngFtetvn7
+iBA6FBsqGmFzwoiHc18oabwvF2eE12NdkqLjSvqlMEZ4c2zyb2lqJR063FDQ
+CEU1V2a0T1ZSX019zQh3tW6xvCOYCsfrNkJArU7DVwRTITfOBKRMFSXeEkzn
+CGOC7H7VCfuCYLpWCJpg54tF5nz/YCpct8AEoNSXZ3QrqHA8nQmmrkhpmVen
+oELOYIIcve4Tb4mCioQxw+7UP/zbvlLQ6ULQDE+X9LZKlihosnBAM2xtycg1
+qBT0G+HCZjjb1Wd+5JHT875clRlSS/jyNZ1y+uC+b8wQ+uzfq6F35ehhhoa0
+ntwnFXL0sMC9MrHmTL4cPSxwcd6ljnMb5ehhAb/iwk7Nx3L0sEDkzHu8OEZO
+hc+nt0Byc3PAASJHDwu0/5D13hMvix5WKDvdvf3nPhY9rJCn1K3f2saihxUW
+NqbBL9dZekQIWuHQzE8jG6tY9LCCanr4yYUlLHpYof/06tGHc1j04KG+9+/r
+MeksevCQMH6A+VzNogcPPfkXR0riWfTg4fLebdc/jGDRg4fB+s/+ek5Y9ODh
+caAzxfgOix42qL4wMWenhUEPG7zsa2xIe8mghw383yaN+fYxgx422DcyYntk
+I4MeNliVkRgcX8ughw34pEkh2ioGPWxwq147Nvo4gx52OHuyIlJSwKCHHSZc
++uf1gl0MFXJZdlj+HdczsJFBDzt4DLKptSkMethh4PenhoZlDHrYwaBYdiAo
+nkEPBzzMLS3tjWLQwwHsibtht8MY9HBA19RNo9uDGPRwwNz55uiZ4xj0cMCj
+ijs3brsJ7RE8HHB09mDLAY6ghxMMB3vLDr4iNFbwcMKsaVd2ND0j6OEETem6
+luiHBD2cYNUXzPhJT9DDCXr+8ChtHUEPJ5jCTnRu+5WghwtIzaK1VZUEPVzA
+pT2bNaKcoIcLuldX05RDBD1c0L9nX6wkj6CHCz5yaJ4PZBP0cIFjzvpX+i0E
+PVwg3eTXwX1B0MMNZUWuJYmpBD3coLuvKD26gqCHGxaS3KjoRIIebsjXOuc0
+xRH0cMP4qD3Lq2MJerhhaWLtzrwIgh4eKJomPVMzhaCHB7hL6UebGYIeHth1
+J/NQ5CSCHh5YnbUydr+YoIcHnrQbRs0SDXt4oGfx+ZwGXoYeXnj0uj+58q0M
+PbxgW3Wtc2ufDD28sPJV5pTCLhl6eIGzXJ1fbJChhxemt8XsaG+VoYcXzKv4
+OsmfMvQQ0fgwl3pDvQy/p4iOUe9uhpzhXUyLKsNjbra+i/cJoKXHssdXjR3e
+pTS98NyF0aekuBO6/eyx4nL18K6gheobkR0qKf7fKrpmcYn5ljsQ9yl0do0k
+MKN3eA+nlW2ZyRNbA+n/GbMIcg==
+            "]]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw103tQVFUcB/AlZVaZhkxW1ETUVUcUX2MoKqzf6wN5KAWID2o1wEDaCjHK
+NRl5WFgIuvHKB6WCpqYsSiaSozmwmjppaiE+a0TxwSi1sI9z7j7bvZ7zm7lz
+5/vP9/7O+cwdlb42KeMVmUyW7Xm875djhKG9LKD+OMF4ta7VEmLE+ZAL1d17
+CJKag4ufJxoROm/lro7tBHmKhuiOjUYMWll9flchwYEcld+t/UbciCvf9lsu
+wdUr3jFCrgigi7MIrCHeQiPsj20zF64iGOFpaw7uwWupBwzhSwliOjZ6Gnuw
+qu+wypx4gnXeupwedEc/3Xp0IcHuXd7pQeKTWHu7QGCweAt7kBZdtkoRSfAi
+0btgD8SZP7coZxJI6yl6sbl2yNrWMII53jpVLxqKzx/Pm0aQKU0vVgT5xumn
+EnhPq9b14tKioj83TSGQjtvcC0fk6FKFJ0vrdfSidviL4BmeLNX5mVAVn1x+
+x5PflMaEhO2hRVZPn3R9ahOyDp4NKvZ8TzpusQkXJ8UG5nv2kdZrMOHpiAU+
+r4YTSHW3TFiyX5CRWQQvPcz4YO/ki3IV9zDDZ1a1pkbgHmao+gS9lbeAe5hR
+qM049VcM9zBD0CTvVMVzDzOez9K0P07kHmZou05mi8u4hwXX+v++er6ae1hw
+rFQ/SpfGPSxY+DBkbsQa7mGBPCmyNOBjAun6Wi2oyE13KnK5hwWdwetbIj/n
+HlZMNX//tLmAe1hxQpacMXYL97Aie7k8qqOM4Bup0Iq6zy5Zv67kHlYkrHxU
+mbebe1jhmB7uWlrLPQienDAs0x7mHgS+8ysX6Y9xD4Iuv86J1ibuQRAdcjM9
+4VfuQZCR2vTh6Qvcg6B2bfvdaVe5B0Vj4PvLm9u4B0WMPqcm9j73oLiZsOzT
+QZ3cg2Jb3XT96efcg4LWCXOzTNyDYlLYzj7xdu5B4WzTol8fyjxEJDt19dSP
+Mg8RmRVbqrsHUkh1OSKOpi0ubXqDMg8Rl74zDPxJSZmHiPEltwzHJlDmIaLi
+I3V3wzTKPGxIyV7/RcFsyjxsWLNvzrmCeZR52JBv3bOjII4yDxtKwh35+UmU
+edhw8O/V/+W9Q/FQ8rBBefU9jTadMg87mk1zN+RoKMIkDzsi3MrDmZ9Q5mGH
+/8lMXYrnnl562LGgJOqIdjNlHnaoqtZdTt9KmYcdujH6zbEVlHk40LW9rCh0
+N2UeDvhGp6zvV0eZhwN3Vrfp/Y9Q5uFAjPzZ/geNlHk40DR4wJn6XyjzcECT
+lDy6toUyDwf+Pac8nXqZezihH/26YegN7uGEcnbfONtt7uHE5MLa8h8ecA8n
+fEOm39c+4x5OnPq2Ua8wcg8nHPdsA28T7uFCzZKS6xlu7uHCC3vL2aFykXm4
+sKc++58d/iLzcMF+M6UtIlBkHi5EHY54+ONwkXm4kPo2yVWNFZmHG2tGRvjV
+TBSZhxstPlPuDQ8TmYcbdzfVHNBEiMzDjao/rmXenycyDzecB2OChsSJzMON
+xsI03YZEkXnIhK4if1xfIbL7lAlZgYca9+3luZ+g/tI+4VGjnZ1ngFA07MwO
+y2MHywrhSvy4kZ2HnCwPEaJ8RqRWhrpYDhImRA2Oe3eri/3fI4VxnV/JW2/w
+rBROLi5Xa/u7WR4jDFuS3uE7w43/ASTkd58=
+            "]]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJw103tQVHUUB/CVMWDUARwYA9vf714EhjcpiGkQ54eOj6JEIBAER0h59JCH
+ORgYMGBgoyBFtSJiWoAV0CpGCJshuyFGQaQDrArEIOUjRGzf742987tn5s6d
+8893zjmf+Xm+lRefaScQCNIXP9t/YrYwQPSGAo503Dg57OhJsrhSQNED+VSQ
+liW1MrVfWq0CJl7MerJ+kiXduHIurlsBzlsb38/4hSUzxW7i7TMKkNXP71vb
+zpJl8qb8V5Yp4c7BqL8KRCwJ40oJrgnZX5nLWZLGBSph47x7TkcuS2xpuFIJ
+OZN+E3lpLFkMW0xUwv7QhKfZMSzh4uRKKBs6Gh0RwRIBVyoYNPqfPBXIEn8u
+UAUeA9VRM0KWxHMDqsA5Zy5+0oklR23jFatg+fjSUskSljTb4ppUsPHikkN9
+jxkyPGQrFUyPsUtX3WKIxs8WqAK5hyRY0cMQhhtQDaK8vSWdTQzZwS2sBk9o
+n+qtYUiBLS5fDWXPOgs8ixjScMZWaqgKP9BOMhnCnU+mBmfF20Er4xnyxLbu
+nBp26+S1HwNDuPHcNNDzqmRbYAhDorgDasD/OWXNqJChHhrwDcbO9SsY8gkX
+qIEvpY4BCSZMPTQwcEK14DGPqYcG/hzy/vr3KUw9tHC8OqniwxFMPbSgGg50
+aJBi6qGFf1VjwUwnph5aiD/UH+PwDaYeWrBzbXbY2YCphxZWzHbGLdRg6qGD
+cS/J3oflmHroQFz67bnQQkw9dJD32cX+5Hcx9dDBjNf375B0TD108Gh/yURB
+IqYeOqjYI+k8HIOphw6Kc1enr4vG1EMP0y8ELfS8hKmHHqqutLWVh2DCxeXr
+YfDK8ccmb0w99HA+tkAaKcTUQw9Pj0k/+tEVUw89yFMr3sxcjqmHASadL41J
+7TD1MMDal3/uvmdA1MMAuxxb6nyUiHoYYE9V6+SFOUQ9DLC7egMT8zci9zkP
+A1R7/adZM4WohxHOCrucfMcRWc95GGGzItozaQRRDyP8VlavFf+KqIcRFp7d
+neuSIephhKnE0XP7riHqYQRGf1cS0oWohwkGrMcivS4j6mECSYbAN7IVUQ8T
+/GMsf2RuRtTDBGIX4YW084h6mOD+yCmHqTOIephg5vYqjd0XiHqYICylwb6/
+FlEPM/SmiFOaTyDqYQZ7n8+DfasQ9TBDnVtu3ZZyRD3MgFvWiQQliHqYYXri
+bHTSB4h6mKFwZET22mFEPSxgenBrtTwPUQ8LhPzhdVrwHu9hgeIIUYA0m/ew
+QN/1+S3oAO9hgWtVu4ad03kPC1z9ri+uMY33sEKrOLG1N5n3sEKqU+zxokTe
+wwqNNxsuDcbxHlb4qV2vuLyT97CCaLTUPjiG97DC0EHVRNQO3kNAXp9P3ZC5
+lb+ngISf/sFiCeB7R9KRaX7eahDSfVxIrizWxX0zv58bqdx0W20W8b07+bRN
+0aJ4yPdCcvN6Rlh5KP++WXJj5abp5CN8v4Zsu3enIu0q33sTn6xwt1kFJv8D
+b13HRA==
+            "]]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw103lQ1GUcx/FVlITCE+GXMqhJDioQIqIg+HlkMVHw2AVFBfGEIBUhhBA8
+cJUjAcH1Lo8xTA3TDGiiwjudvK9QRshcC0lM3GXvu9/+5Pud2dl5//Od53le
+8xuxfK00padIJMrgf47/t6PEg4YFWLmPY6OTKi9rfZVo6m5pg3fRK4kSD7u7
+wP3MdEW+EmkB3x4N4ftYZoTr42olLGtiXV34vn3LMUq46Beub9nLMZ2vY6ES
+Tlmd6YV8D+O3NXir0HvzN6+kfEcr8vmNKmy+f6iHYQ/HshzrMlW4IJcFHuL7
+ywOOUeHm2ZS8SL6vaB0LVZCf/lP+y26O/SdxHFCFAmeuLYhv4XjuXWh5GlrV
+vItjUxzrIrqwvXN3oA/fqcJ04Xj8qdGH5Bxz3Dapsgvnhi1e5MG3cN2GLpy4
+N0i1fCfHhOMpuhA19dbL76s4JqxzVaNp3tYoayXHxgujRn3CeVEM38LzJalR
+NSPG+8AOjgnXLVJDkas/2F7BMeF4Z9QonZsrduVbWPdYjQEdhwv9yzn21kOD
+suBkycYy8tDAN7Lz4NHt5KFBWsTQTde+IA8NxB2DJRdLyUODgfHR+S9KyEOD
+xPqXIW4l5KFBSIZ3pEsxeWgxNuzDEc5F5KFFranxfsA28tAisLY1yH8reWjh
+/kKW4ifjmPB8l7WoCWtL89tCHlrUtU8M9y8kDx0GdCoqem0mDx0m1bwa/s4m
+8tDhhMKl4NkGjlUJC3U43//CjX8KyEMHWcGQ0RfzyUOHUcEzx11bTx56hJjv
+VlbnkYceiellItnn5KGHHxcmW5ZLHnr8kVU3KDKHPPS4P+1u3ch15KFHSY10
+mXM2eRjQ8iZgaEcWeRgw4c60Z3cyycMA7TGPnPK15GHAqkF9srMzyMOAWUU5
+eYlryMMA6XeLL3qtJg8DGkUSvfMq8jDC++itczfSycMIcc2WR5VpHBPWZRrx
+OvajpRs/IQ8jzmsfdkalkocR8jHeN91SyMMIj5el6scryMOE91Jft11fTh4m
+xGy7krd3GXmY8HR1z7iVS8nDBI+/SrLHLyEPE1YUxzc7JXPsueBhwpNxIYVN
+SeRhRsLlsvSTiRwLFjzMCM9vk29YRB5mLGm/YJIsJA8zjkyQbndaQB5mtD7v
+LW+ZTx5mNO7c+rB+HnlY8FXhqVmV8eRhwdrfttg+jSMPC5IG7tk3UkoeFtTu
+2tHcQ0IeFsQFBcQq5pCHBW4+6iGHZ5OHBdU+kwcXziIPK/Z3HIlYEUseVgy8
+VBfkE0MeVoz6++tml5nkYcWMq2n7bkeThxX5Xj/X/zidPKx4V5wUsuFj8rBh
+7Ma+V1OnkYcN2e1ip8Ao8rBh7pgEq5eYPGz4QZqp/HcqedgQ+qtxTjMjDxtK
+5itVx0EedtjPvDm7fwp52OG5d7Y5PYI87DBcT3BPDicPOxIGp4uCJpOHHSdz
+qtf4hpGHHX7hM7W2SeQhYoF7erQ+mkjvKWI9m5qj3fyp+7B1u+PKzE88u+/T
+n/XSXX/Q7zS1O/v9fUXfS3Jqjt0Tt9YqZdRezPWnUA+n9Z7d3/dw9sKY61n+
+GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
+            "]]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
+{}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{0.810416666666667, 1.0986122886681098`},
+      DisplayFunction->Identity,
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(\[Tau]\\), \\(sub\\)]\\)\"", TraditionalForm], 
+         None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{
+          Charting`ScaledTicks[{Log, Exp}], 
+          Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Automatic, Automatic}}, {{{{1.6094379124341003`, 
+            FormBox["5", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox["10", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox["50", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox["100", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox["500", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox["1000", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.517193191416238, 
+            FormBox["5000", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.600902459542082, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.006367567650246, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.294049640102028, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.699514748210191, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.85366542803745, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.987196820661973, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.104979856318357, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.210340371976184, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.615805480084347, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.903487552536127, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}, {{1.6094379124341003`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {8.517193191416238, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.600902459542082, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.006367567650246, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.294049640102028, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.699514748210191, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.85366542803745, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {8.987196820661973, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.104979856318357, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.210340371976184, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.615805480084347, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {9.903487552536127, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, Automatic}}],
+      GridLines->FrontEndValueCache[{Automatic, 
+         Charting`ScaledTickValues[{Log, Exp}]}, {
+        Automatic, {{1.6094379124341003`, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.302585092994046, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.912023005428146, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.605170185988092, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.214608098422191, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.907755278982137, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {8.517193191416238, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 13],
+      Method->{
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}},
+      PlotLabel->None,
+      PlotRange->NCache[{{0.810416666666667, 10.1}, {
+          Log[3], 
+          Log[5000]}}, {{0.810416666666667, 10.1}, {1.0986122886681098`, 
+        8.517193191416238}}],
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {0, 0}},
+      Ticks->{Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(330\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(221\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=10 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(210\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(440\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)~0.1 M\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
+                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 13], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.5, 0, 0.5], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
+                    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.5, 0, 0.5]; 
+                    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.5, 0, 0.5], Editable -> False, Selectable -> 
+                    False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
+                    "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.5147193333333333, 0.28770266666666666`, 
+                    0.06825800000000001], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
+                     "]"}], 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.772079, 0.431554, 0.102387]; 
+                    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.772079, 0.431554, 0.102387], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
+               "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "13"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.0001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{0.810416666666667, 1.0986122886681098`},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(\[Tau]\\), \\(sub\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{
+      Charting`ScaledTicks[{Log, Exp}], 
+      Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 13],
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {0, 0}},
+   Ticks->{Automatic, 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]], 
+         Line[CompressedData["
+1:eJw103tMU3cUwPGKOuuDitLR370tpQjOKYqAZDoNnJ8PBsZtWpyJ4GPShTmc
+CvWFuJFMEBR0qCiizjkQNRtsNYobvoUCYSYqGJXipjBAgxtEuX3dvjt6czjJ
+zc3555vf735yQzWZyel+IpEoY+jxvbVfJ9yX/DcI2ZebDz4Qh1Lr+2sP6y2D
+0PqBVHf8jYqGFPSrryk5+HHpyQuaShVN6t4j1SVyYLOXFlevV1Ft3DhDVRYH
+QR7XggnhKnr6lG84aLq5bsPFrhDaaPEFOdhxJGl28t4QOjBUK+jngFtetvn7
+iBA6FBsqGmFzwoiHc18oabwvF2eE12NdkqLjSvqlMEZ4c2zyb2lqJR063FDQ
+CEU1V2a0T1ZSX019zQh3tW6xvCOYCsfrNkJArU7DVwRTITfOBKRMFSXeEkzn
+CGOC7H7VCfuCYLpWCJpg54tF5nz/YCpct8AEoNSXZ3QrqHA8nQmmrkhpmVen
+oELOYIIcve4Tb4mCioQxw+7UP/zbvlLQ6ULQDE+X9LZKlihosnBAM2xtycg1
+qBT0G+HCZjjb1Wd+5JHT875clRlSS/jyNZ1y+uC+b8wQ+uzfq6F35ehhhoa0
+ntwnFXL0sMC9MrHmTL4cPSxwcd6ljnMb5ehhAb/iwk7Nx3L0sEDkzHu8OEZO
+hc+nt0Byc3PAASJHDwu0/5D13hMvix5WKDvdvf3nPhY9rJCn1K3f2saihxUW
+NqbBL9dZekQIWuHQzE8jG6tY9LCCanr4yYUlLHpYof/06tGHc1j04KG+9+/r
+MeksevCQMH6A+VzNogcPPfkXR0riWfTg4fLebdc/jGDRg4fB+s/+ek5Y9ODh
+caAzxfgOix42qL4wMWenhUEPG7zsa2xIe8mghw383yaN+fYxgx422DcyYntk
+I4MeNliVkRgcX8ughw34pEkh2ioGPWxwq147Nvo4gx52OHuyIlJSwKCHHSZc
++uf1gl0MFXJZdlj+HdczsJFBDzt4DLKptSkMethh4PenhoZlDHrYwaBYdiAo
+nkEPBzzMLS3tjWLQwwHsibtht8MY9HBA19RNo9uDGPRwwNz55uiZ4xj0cMCj
+ijs3brsJ7RE8HHB09mDLAY6ghxMMB3vLDr4iNFbwcMKsaVd2ND0j6OEETem6
+luiHBD2cYNUXzPhJT9DDCXr+8ChtHUEPJ5jCTnRu+5WghwtIzaK1VZUEPVzA
+pT2bNaKcoIcLuldX05RDBD1c0L9nX6wkj6CHCz5yaJ4PZBP0cIFjzvpX+i0E
+PVwg3eTXwX1B0MMNZUWuJYmpBD3coLuvKD26gqCHGxaS3KjoRIIebsjXOuc0
+xRH0cMP4qD3Lq2MJerhhaWLtzrwIgh4eKJomPVMzhaCHB7hL6UebGYIeHth1
+J/NQ5CSCHh5YnbUydr+YoIcHnrQbRs0SDXt4oGfx+ZwGXoYeXnj0uj+58q0M
+PbxgW3Wtc2ufDD28sPJV5pTCLhl6eIGzXJ1fbJChhxemt8XsaG+VoYcXzKv4
+OsmfMvQQ0fgwl3pDvQy/p4iOUe9uhpzhXUyLKsNjbra+i/cJoKXHssdXjR3e
+pTS98NyF0aekuBO6/eyx4nL18K6gheobkR0qKf7fKrpmcYn5ljsQ9yl0do0k
+MKN3eA+nlW2ZyRNbA+n/GbMIcg==
+          "]]}, {
+         Hue[0.9060679774997897, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         Line[CompressedData["
+1:eJw103tQVFUcB/AlZVaZhkxW1ETUVUcUX2MoKqzf6wN5KAWID2o1wEDaCjHK
+NRl5WFgIuvHKB6WCpqYsSiaSozmwmjppaiE+a0TxwSi1sI9z7j7bvZ7zm7lz
+5/vP9/7O+cwdlb42KeMVmUyW7Xm875djhKG9LKD+OMF4ta7VEmLE+ZAL1d17
+CJKag4ufJxoROm/lro7tBHmKhuiOjUYMWll9flchwYEcld+t/UbciCvf9lsu
+wdUr3jFCrgigi7MIrCHeQiPsj20zF64iGOFpaw7uwWupBwzhSwliOjZ6Gnuw
+qu+wypx4gnXeupwedEc/3Xp0IcHuXd7pQeKTWHu7QGCweAt7kBZdtkoRSfAi
+0btgD8SZP7coZxJI6yl6sbl2yNrWMII53jpVLxqKzx/Pm0aQKU0vVgT5xumn
+EnhPq9b14tKioj83TSGQjtvcC0fk6FKFJ0vrdfSidviL4BmeLNX5mVAVn1x+
+x5PflMaEhO2hRVZPn3R9ahOyDp4NKvZ8TzpusQkXJ8UG5nv2kdZrMOHpiAU+
+r4YTSHW3TFiyX5CRWQQvPcz4YO/ki3IV9zDDZ1a1pkbgHmao+gS9lbeAe5hR
+qM049VcM9zBD0CTvVMVzDzOez9K0P07kHmZou05mi8u4hwXX+v++er6ae1hw
+rFQ/SpfGPSxY+DBkbsQa7mGBPCmyNOBjAun6Wi2oyE13KnK5hwWdwetbIj/n
+HlZMNX//tLmAe1hxQpacMXYL97Aie7k8qqOM4Bup0Iq6zy5Zv67kHlYkrHxU
+mbebe1jhmB7uWlrLPQienDAs0x7mHgS+8ysX6Y9xD4Iuv86J1ibuQRAdcjM9
+4VfuQZCR2vTh6Qvcg6B2bfvdaVe5B0Vj4PvLm9u4B0WMPqcm9j73oLiZsOzT
+QZ3cg2Jb3XT96efcg4LWCXOzTNyDYlLYzj7xdu5B4WzTol8fyjxEJDt19dSP
+Mg8RmRVbqrsHUkh1OSKOpi0ubXqDMg8Rl74zDPxJSZmHiPEltwzHJlDmIaLi
+I3V3wzTKPGxIyV7/RcFsyjxsWLNvzrmCeZR52JBv3bOjII4yDxtKwh35+UmU
+edhw8O/V/+W9Q/FQ8rBBefU9jTadMg87mk1zN+RoKMIkDzsi3MrDmZ9Q5mGH
+/8lMXYrnnl562LGgJOqIdjNlHnaoqtZdTt9KmYcdujH6zbEVlHk40LW9rCh0
+N2UeDvhGp6zvV0eZhwN3Vrfp/Y9Q5uFAjPzZ/geNlHk40DR4wJn6XyjzcECT
+lDy6toUyDwf+Pac8nXqZezihH/26YegN7uGEcnbfONtt7uHE5MLa8h8ecA8n
+fEOm39c+4x5OnPq2Ua8wcg8nHPdsA28T7uFCzZKS6xlu7uHCC3vL2aFykXm4
+sKc++58d/iLzcMF+M6UtIlBkHi5EHY54+ONwkXm4kPo2yVWNFZmHG2tGRvjV
+TBSZhxstPlPuDQ8TmYcbdzfVHNBEiMzDjao/rmXenycyDzecB2OChsSJzMON
+xsI03YZEkXnIhK4if1xfIbL7lAlZgYca9+3luZ+g/tI+4VGjnZ1ngFA07MwO
+y2MHywrhSvy4kZ2HnCwPEaJ8RqRWhrpYDhImRA2Oe3eri/3fI4VxnV/JW2/w
+rBROLi5Xa/u7WR4jDFuS3uE7w43/ASTkd58=
+          "]]}, {
+         Hue[0.1421359549995791, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]], 
+         Line[CompressedData["
+1:eJw103tQVHUUB/CVMWDUARwYA9vf714EhjcpiGkQ54eOj6JEIBAER0h59JCH
+ORgYMGBgoyBFtSJiWoAV0CpGCJshuyFGQaQDrArEIOUjRGzf742987tn5s6d
+8893zjmf+Xm+lRefaScQCNIXP9t/YrYwQPSGAo503Dg57OhJsrhSQNED+VSQ
+liW1MrVfWq0CJl7MerJ+kiXduHIurlsBzlsb38/4hSUzxW7i7TMKkNXP71vb
+zpJl8qb8V5Yp4c7BqL8KRCwJ40oJrgnZX5nLWZLGBSph47x7TkcuS2xpuFIJ
+OZN+E3lpLFkMW0xUwv7QhKfZMSzh4uRKKBs6Gh0RwRIBVyoYNPqfPBXIEn8u
+UAUeA9VRM0KWxHMDqsA5Zy5+0oklR23jFatg+fjSUskSljTb4ppUsPHikkN9
+jxkyPGQrFUyPsUtX3WKIxs8WqAK5hyRY0cMQhhtQDaK8vSWdTQzZwS2sBk9o
+n+qtYUiBLS5fDWXPOgs8ixjScMZWaqgKP9BOMhnCnU+mBmfF20Er4xnyxLbu
+nBp26+S1HwNDuPHcNNDzqmRbYAhDorgDasD/OWXNqJChHhrwDcbO9SsY8gkX
+qIEvpY4BCSZMPTQwcEK14DGPqYcG/hzy/vr3KUw9tHC8OqniwxFMPbSgGg50
+aJBi6qGFf1VjwUwnph5aiD/UH+PwDaYeWrBzbXbY2YCphxZWzHbGLdRg6qGD
+cS/J3oflmHroQFz67bnQQkw9dJD32cX+5Hcx9dDBjNf375B0TD108Gh/yURB
+IqYeOqjYI+k8HIOphw6Kc1enr4vG1EMP0y8ELfS8hKmHHqqutLWVh2DCxeXr
+YfDK8ccmb0w99HA+tkAaKcTUQw9Pj0k/+tEVUw89yFMr3sxcjqmHASadL41J
+7TD1MMDal3/uvmdA1MMAuxxb6nyUiHoYYE9V6+SFOUQ9DLC7egMT8zci9zkP
+A1R7/adZM4WohxHOCrucfMcRWc95GGGzItozaQRRDyP8VlavFf+KqIcRFp7d
+neuSIephhKnE0XP7riHqYQRGf1cS0oWohwkGrMcivS4j6mECSYbAN7IVUQ8T
+/GMsf2RuRtTDBGIX4YW084h6mOD+yCmHqTOIephg5vYqjd0XiHqYICylwb6/
+FlEPM/SmiFOaTyDqYQZ7n8+DfasQ9TBDnVtu3ZZyRD3MgFvWiQQliHqYYXri
+bHTSB4h6mKFwZET22mFEPSxgenBrtTwPUQ8LhPzhdVrwHu9hgeIIUYA0m/ew
+QN/1+S3oAO9hgWtVu4ad03kPC1z9ri+uMY33sEKrOLG1N5n3sEKqU+zxokTe
+wwqNNxsuDcbxHlb4qV2vuLyT97CCaLTUPjiG97DC0EHVRNQO3kNAXp9P3ZC5
+lb+ngISf/sFiCeB7R9KRaX7eahDSfVxIrizWxX0zv58bqdx0W20W8b07+bRN
+0aJ4yPdCcvN6Rlh5KP++WXJj5abp5CN8v4Zsu3enIu0q33sTn6xwt1kFJv8D
+b13HRA==
+          "]]}, {
+         Hue[0.37820393249936934`, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         Line[CompressedData["
+1:eJw103lQ1GUcx/FVlITCE+GXMqhJDioQIqIg+HlkMVHw2AVFBfGEIBUhhBA8
+cJUjAcH1Lo8xTA3TDGiiwjudvK9QRshcC0lM3GXvu9/+5Pud2dl5//Od53le
+8xuxfK00padIJMrgf47/t6PEg4YFWLmPY6OTKi9rfZVo6m5pg3fRK4kSD7u7
+wP3MdEW+EmkB3x4N4ftYZoTr42olLGtiXV34vn3LMUq46Beub9nLMZ2vY6ES
+Tlmd6YV8D+O3NXir0HvzN6+kfEcr8vmNKmy+f6iHYQ/HshzrMlW4IJcFHuL7
+ywOOUeHm2ZS8SL6vaB0LVZCf/lP+y26O/SdxHFCFAmeuLYhv4XjuXWh5GlrV
+vItjUxzrIrqwvXN3oA/fqcJ04Xj8qdGH5Bxz3Dapsgvnhi1e5MG3cN2GLpy4
+N0i1fCfHhOMpuhA19dbL76s4JqxzVaNp3tYoayXHxgujRn3CeVEM38LzJalR
+NSPG+8AOjgnXLVJDkas/2F7BMeF4Z9QonZsrduVbWPdYjQEdhwv9yzn21kOD
+suBkycYy8tDAN7Lz4NHt5KFBWsTQTde+IA8NxB2DJRdLyUODgfHR+S9KyEOD
+xPqXIW4l5KFBSIZ3pEsxeWgxNuzDEc5F5KFFranxfsA28tAisLY1yH8reWjh
+/kKW4ifjmPB8l7WoCWtL89tCHlrUtU8M9y8kDx0GdCoqem0mDx0m1bwa/s4m
+8tDhhMKl4NkGjlUJC3U43//CjX8KyEMHWcGQ0RfzyUOHUcEzx11bTx56hJjv
+VlbnkYceiellItnn5KGHHxcmW5ZLHnr8kVU3KDKHPPS4P+1u3ch15KFHSY10
+mXM2eRjQ8iZgaEcWeRgw4c60Z3cyycMA7TGPnPK15GHAqkF9srMzyMOAWUU5
+eYlryMMA6XeLL3qtJg8DGkUSvfMq8jDC++itczfSycMIcc2WR5VpHBPWZRrx
+OvajpRs/IQ8jzmsfdkalkocR8jHeN91SyMMIj5el6scryMOE91Jft11fTh4m
+xGy7krd3GXmY8HR1z7iVS8nDBI+/SrLHLyEPE1YUxzc7JXPsueBhwpNxIYVN
+SeRhRsLlsvSTiRwLFjzMCM9vk29YRB5mLGm/YJIsJA8zjkyQbndaQB5mtD7v
+LW+ZTx5mNO7c+rB+HnlY8FXhqVmV8eRhwdrfttg+jSMPC5IG7tk3UkoeFtTu
+2tHcQ0IeFsQFBcQq5pCHBW4+6iGHZ5OHBdU+kwcXziIPK/Z3HIlYEUseVgy8
+VBfkE0MeVoz6++tml5nkYcWMq2n7bkeThxX5Xj/X/zidPKx4V5wUsuFj8rBh
+7Ma+V1OnkYcN2e1ip8Ao8rBh7pgEq5eYPGz4QZqp/HcqedgQ+qtxTjMjDxtK
+5itVx0EedtjPvDm7fwp52OG5d7Y5PYI87DBcT3BPDicPOxIGp4uCJpOHHSdz
+qtf4hpGHHX7hM7W2SeQhYoF7erQ+mkjvKWI9m5qj3fyp+7B1u+PKzE88u+/T
+n/XSXX/Q7zS1O/v9fUXfS3Jqjt0Tt9YqZdRezPWnUA+n9Z7d3/dw9sKY61n+
+GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
+          "]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
+{{}, {}}}, {DisplayFunction -> Identity, GridLines -> {Automatic, 
+        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {0.810416666666667, 1.0986122886681098`}, DisplayFunction :> 
+      Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\(\
+\[Tau]\), \(sub\)]\)", None}, {"q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
+      GridLines -> {
+       Automatic, {1.6094379124341003`, 2.302585092994046, 3.912023005428146, 
+        4.605170185988092, 6.214608098422191, 6.907755278982137, 
+        8.517193191416238}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 13], 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, PlotRange -> {{0.810416666666667, 10.1}, {
+         Log[3], 
+         Log[5000]}}, PlotRangeClipping -> True, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.5, 0, 0.5], 
+         Dashing[{0, Small, Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]]}, {
+       "\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=10 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \!\(\*SubscriptBox[\(A\), \
+\(R\)]\)~0.1 M"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
+         False, Automatic}, {False, Automatic}}, 
+       Joined -> {True, True, True, True}, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 13], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.0001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.798805158087945*^9, {3.798805196766074*^9, 3.798805245202682*^9}, {
+   3.798805307178288*^9, 3.79880533192472*^9}, {3.79880539171964*^9, 
+   3.798805407940846*^9}, 3.798805441733983*^9, {3.7988054738919373`*^9, 
+   3.798805482047963*^9}, {3.798805533602316*^9, 3.798805542419759*^9}, {
+   3.798805587035644*^9, 3.798805590969095*^9}, {3.7988056963820677`*^9, 
+   3.798805707213492*^9}, {3.7988057443906593`*^9, 3.798805823271131*^9}, {
+   3.798805885074257*^9, 3.798805961267631*^9}, {3.798805993457693*^9, 
+   3.7988060438366003`*^9}, 3.7988063644957323`*^9, 3.799987826746323*^9, 
+   3.7999878570756893`*^9, 3.799987933876079*^9, 3.7999879935565033`*^9, 
+   3.799988151001852*^9, {3.799988314447031*^9, 3.799988331115342*^9}, {
+   3.799988397758788*^9, 3.7999884119761677`*^9}, 3.799988456612269*^9, 
+   3.799991002536338*^9, {3.7999910845549173`*^9, 3.799991096859562*^9}, 
+   3.799991144081962*^9},
+ CellLabel->
+  "Out[1165]=",ExpressionUUID->"5fa4fc7a-3c0f-4e5c-8f1e-d27b1d9ea2ed"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ExportDir", "<>", "\"\<Resolvability_tau.pdf\>\""}], ",", "lp"}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.798807908804771*^9, 3.79880792852024*^9}, {
+  3.7999875060607843`*^9, 3.799987522714511*^9}, {3.799988446858865*^9, 
+  3.799988447192471*^9}},
+ CellLabel->
+  "In[1105]:=",ExpressionUUID->"18eb66fe-9c48-41a0-9250-b1ca807dfaa8"],
+
+Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/Resolvability_tau.\
+pdf\"\>"], "Output",
+ CellChangeTimes->{
+  3.7988079320378313`*^9, {3.799987511644061*^9, 3.799987523667961*^9}, 
+   3.799988459254353*^9},
+ CellLabel->
+  "Out[1105]=",ExpressionUUID->"bdc71ec0-94c8-4813-b13b-c7dfcf5e18c6"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"lp", "=", 
+  RowBox[{"ListLogPlot", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"Sqrt", "[", "2", "]"}], 
+          RowBox[{
+           RowBox[{"\[Sigma]\[Tau]", "[", 
+            RowBox[{
+            "f330f", ",", " ", "q330tab", " ", ",", "f220f", ",", "q220tab", 
+             ",", 
+             RowBox[{"1", "/", "Ar330"}]}], "]"}], "/", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"Sqrt", "[", "f220f", "]"}], " ", 
+             RowBox[{"Abs", "[", 
+              RowBox[{"(", 
+               RowBox[{"\[Tau]220tab", "-", "\[Tau]330tab"}], ")"}], "]"}]}], 
+            ")"}]}]}]}], "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"Sqrt", "[", "2", "]"}], 
+          RowBox[{
+           RowBox[{"\[Sigma]\[Tau]", "[", 
+            RowBox[{
+            "f221f", ",", " ", "q221tab", " ", ",", "f220f", ",", "q220tab", 
+             ",", 
+             RowBox[{"1", "/", "Ar221"}]}], "]"}], "/", 
+           RowBox[{"(", 
+            RowBox[{"Abs", "[", 
+             RowBox[{"(", 
+              RowBox[{"\[Tau]220tab", "-", "\[Tau]221tab"}], ")"}], "]"}], 
+            ")"}]}]}]}], "}"}], "]"}], ",", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"\[Sigma]\[Tau]", "[", 
+           RowBox[{
+           "f210f", ",", " ", "q210tab", " ", ",", "f220f", ",", "q220tab", 
+            ",", 
+            RowBox[{"1", "/", "Ar210"}]}], "]"}], "/", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"Sqrt", "[", 
+             RowBox[{"2", " ", "f220f"}], "]"}], 
+            RowBox[{"Abs", "[", 
+             RowBox[{"(", 
+              RowBox[{"\[Tau]220tab", "-", "\[Tau]210tab"}], ")"}], "]"}]}], 
+           ")"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"Transpose", "[", 
+       RowBox[{"{", 
+        RowBox[{"qpints", ",", 
+         RowBox[{
+          RowBox[{"Sqrt", "[", "2", "]"}], 
+          RowBox[{
+           RowBox[{"\[Sigma]\[Tau]", "[", 
+            RowBox[{
+            "f440f", ",", " ", "q440tab", " ", ",", "f220f", ",", "q220tab", 
+             ",", 
+             RowBox[{"1", "/", "0.1"}]}], "]"}], "/", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"Sqrt", "[", "f220f", "]"}], 
+             RowBox[{"Abs", "[", 
+              RowBox[{"(", 
+               RowBox[{"\[Tau]220tab", "-", "\[Tau]440tab"}], ")"}], "]"}]}], 
+            ")"}]}]}]}], "}"}], "]"}]}], "}"}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{"All", ",", 
+       RowBox[{"{", 
+        RowBox[{"3", ",", "600"}], "}"}]}], "}"}]}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotStyle", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Directive", "[", 
+        RowBox[{"Purple", ",", "DotDashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "6", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "1", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{"colors", "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "3", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"colors", "[", 
+        RowBox[{"[", "4", "]"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}], ",", 
+       RowBox[{"Directive", "[", 
+        RowBox[{
+         RowBox[{"colors", "[", 
+          RowBox[{"[", "4", "]"}], "]"}], ",", "Dashed"}], "]"}]}], "}"}]}], 
+    ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"Placed", "[", 
+      RowBox[{
+       RowBox[{"LineLegend", "[", 
+        RowBox[{
+         RowBox[{"{", 
+          RowBox[{
+          "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\
+\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=10 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \
+\!\(\*SubscriptBox[\(t\), \(0\)]\)=15 M\>\"", ",", 
+           "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \
+\!\(\*SubscriptBox[\(A\), \(R\)]\)~0.1 M\>\""}], "}"}], ",", 
+         RowBox[{"LegendLayout", "\[Rule]", 
+          RowBox[{"{", 
+           RowBox[{"\"\<Column\>\"", ",", "4"}], "}"}]}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"0.53", ",", "1.0001"}], "}"}]}], "]"}]}], ",", 
+    RowBox[{"FrameLabel", "->", 
+     RowBox[{"{", 
+      RowBox[{
+      "\"\<q\>\"", ",", 
+       "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\
+\(\[Tau]\), \(sub\)]\)\>\""}], "}"}]}], ",", 
+    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
+    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
+    RowBox[{"FrameStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "20"}], "]"}]}], ",", 
+    RowBox[{"LabelStyle", "->", 
+     RowBox[{"Directive", "[", 
+      RowBox[{"Black", ",", "Bold", ",", "13"}], "]"}]}], ",", 
+    RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
+    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]], "Input",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmViYGAQA2IQvZs7zGSp7xtHxikhpiDaQ/yED4jems+QDKJLv4Wm
+g+jZXzKyQPSfN4sKQfQ9gYMtIHrNsuAuEJ3pyjsZRF9J+TANRCt1RswE0Tkz
+NeaC6JqZ95aD6IPXnqwF0VvO5hwG0cfEuk+B6LrmLedBtIwi/xMQPWGBI5gW
+9eC69Mz/jWPXZJnHIHq69oJvIDrc8BCY3nD0JM9zIJ1lGsQHok/KfhUC0T+Z
+s8VB9LzHL2VA9J62/2D6BetaTRDN9PElmL4he8sQRBfx3TAC0YeetVuB6N3b
+LO1B9K5TG5xB9IW37zxB9MNL931B9GVbvkAQvTlvSwSILvXsSQTRXaEFaSBa
+OMk5E0QDAHoYvm4=
+  "],
+ CellLabel->
+  "In[1135]:=",ExpressionUUID->"e64cc31c-ea3f-44b3-adef-155fe217d554"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1135,165,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.799988631240365*^9, {3.79998869335319*^9, 3.799988730466444*^9}, {
+   3.799988769009779*^9, 3.799988816325624*^9}, {3.799988847413059*^9, 
+   3.799988873011074*^9}, {3.79998893409333*^9, 3.799989004921118*^9}, {
+   3.799989039154203*^9, 3.799989066904451*^9}},
+ CellLabel->
+  "During evaluation of \
+In[1135]:=",ExpressionUUID->"543ad54a-5889-49a4-98c1-da775ea204ee"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "Power","infy",
+   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
+encountered.\"",2,1135,166,19648445566244506411,"Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{
+  3.799988631240365*^9, {3.79998869335319*^9, 3.799988730466444*^9}, {
+   3.799988769009779*^9, 3.799988816325624*^9}, {3.799988847413059*^9, 
+   3.799988873011074*^9}, {3.79998893409333*^9, 3.799989004921118*^9}, {
+   3.799989039154203*^9, 3.799989066917018*^9}},
+ CellLabel->
+  "During evaluation of \
+In[1135]:=",ExpressionUUID->"c0641c66-2419-453b-9ea9-d3c0cc81db60"],
+
+Cell[BoxData[
+ TagBox[
+  GraphicsBox[{InsetBox[
+     GraphicsBox[{{{}, {{{}, {}, 
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}], 
+           LineBox[CompressedData["
+1:eJw10wlMU3ccwPHKPAh9r++9tlYEJ4eQ6FDnQLzL76+I4NgidDKZc/EK4hgq
+gnRMVFCkCji8JuFyHtXhmDLnhnifoAhsRBwzGo85N4c4hJ6vd9e+/PwlTfNL
+Xr/5/98nDVmxTpXmIxKJMjwf73dN2NSI+LoBUDyGCxsqRpJfO7wzANqytLSo
+Vn9iHrtk9w3TACzY0pR5hfUnQcWvks+N1oFsRtf+TPUIkvBso7whXgcTbBum
+BugUZL3S7742SweVk3U5jnwFqa7yjg7UX3dOqJcpyE2TN6iD2asheWvjcPKf
+p1b8Sgcx64Jbe5YOJ56Yp6iH7K7Anxq54STGm1PqYZDh9lq4IyerhNFDylVz
+6zyNnHgO5wnqob50X1tvvJx4a8nn9PDZKE1uBi0nwvGe6UGTNFS17Q8ZEXJ+
+Blgd3Z/ceVRGooQxQOHji/ud62VkiRA0wN2S7qyWWBkRrltsgHg/9aSXI2RE
+OF6DAQ50B+8a9FpKhNx9A/T1dbRxt6REJIwRzpqmLwo9LCXjhKARqg+2Pfoh
+X0pUwgGNYP/47p2rqVKSL1zYCDX7jixnp0rJMW9O63k+LumdFwopehghL3/0
+QwvPoYcRvnr7X5fPQw49TKBVZdSGXubQwwRKNqxDfYRDDxNEPu6YtVvDoYcJ
+JOU7uPJMjgiv74YJ/u48ELnqIw49TMA5+UrxTA49zMDsZJpjx3DoYYaiJPG2
+lRSHHmaoigj8xcfMkj1C0AyK+cpe9Z8sephh3oxx4sXtLHqYoZniw32aWPTg
+YSKv6PXTsujBwzPx4oLa3Sx68CCqe3Tt9CYWPXiIEge8np3BogcP+edjte+n
+sujBw23r3Lst81j0sMDvRUFnG6JZ9LCAonLNA1E4ix4WKGyNG10mZ9HDAl0n
+Q4q0g1n0sEB87Pb0yF4GPSxgObapJq+dQQ8LGD6Eb5tPMehhhUnX/UOW7mHQ
+wwqBNZW3q3MYIuSyrDBt1hm+dRGDHlao1d85GD2LQQ8rVEwQy6JCGPSwQsI/
+QWsvDWXQwwb94KoM7ZOghw3Kej7Z2XhPgh42yLmit9y6IEEPGxR/kfZIdVSC
+HjbYEpSuSimVkL8EDxtkyFNOtGVL0MMOjcv9Fv74qYRMFjzscEJn1rvnStDD
+DjKNOuH8RAl62MF3SrFY4y9BD8/vT55xDntLgh52OPdNXNPLPho9HNCphM1j
+H9Do4YC9jp5T15tp9HDAxq0X8lacptHDAb1kftr3tTR6OGCNbLs6toRGDwes
+T7w/52kujR6e/r2ElJErafRwgtE3V3Y4iUYPJ2yOfp45JoZGDyekuph+5Xga
+PZzA7NX6qAJo9HDCByUDDyy+NHo4IZtft7GCp9DDBbfulVy68YJCDxeMSI9U
+Pu+m0MMFg5vn5JW3UOjhAujmqyMaKfRwwcNN9e0LjlPo4YIpYRuurTxAoYcb
++hNbEuzFFHq4oUtbfqhQTaGHG967XB+jSafQww305IInX6ZS6OEG+bvT6l7M
+p9DDDWx4TRvMpNBDREohPaJ9PIXvU0QKji+bNKNOjLsvKb0pTQo85Iv3YUmR
++UkDmzAMdzlZVta04+muobj7kzbn576RAW/2USRuYeqVxN+G4P87mPycLc8M
+q3qzh5Kcqqz+xOw3exj57uj0i8aFQ8j/3IAAXA==
+            "]]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw10wtMU1cYB/BKMAJ2gASHY4LKRBkIjliJm8L/DjVOiLqCr01MiMBwirMa
+IqiTzOIjYqaIzghbMD6Kk022zAwV8UUVWCz4BCeCs+IjopC+n+ecrr2ce5Kb
+5ktu/v2+87vfpDUbswr8ZDLZd97H9zt8DBAKMh/MmUPxcc7BFmuct75Qvqws
+niLrYvTut0oDztz98KvNkRTbwxsW6LcZcOht9q54OcVpVWrQo1MGLHq8ZNEK
+D0GHzncMKD9570KfmcAW5ws0oKT4kqP7DcEEb9rFaCP2D60pb39G8IV+mzfR
+iCdVj7NGPCbY5ItTGfFttyZjzn2CmmrfMaKjOOByoY5Aa/UFGtHXlRGtaSN4
+p/Q1aMSWts07z2sJxPbCTWDTHyVlXydI88WlmhAfXq6SXyX4RjwmdNVrA9Oa
+CXzT5hw0YV4PqoIvE4jjXjSh9LY+Q9NEILanNyHq9/qnrd5ajAsyI7Q3TLnO
++/4M8ZihGz8g7PXmideXY8YLxfe9Y73/J46724z05lHdwd5+xPYazMhr8Lvx
+SwuBGPfIjDvJnmt7bxEMe1jwMnFwz7F2wj0s2NGWHT/NO/+whwVNh3rek98l
+3MMCMnJySf5Dwj0saHaErez8V/KwoLA97uiWPsnDAnNJcVLFc8nDisxj+z56
++FrysCIhskg/YVDysOKG6rVMZ5I8rCh/5so47SAQr6/FihC/SVc0TPKwIvec
+YmeHP+UeNpxT55xZOJpyDxumHwyLbRxDuYcNAy9v+W8eR1EpBtoQ7b+38YMJ
+lHvYoHt7Ils+hXIPG0pvWq+8mka5hx1r0tXvBygo97BDfU85Om025R525Fef
+fLcnnXIPO7SNh2P0Cyn3sEM/VJyQqaTcw44odqRGu5JyDwcSNTERC3Ol/XDg
+5uzpq3oKpf1wQPlfuKJuo7QfDgQmW4oyS6T9cKA42SNzllHu4cDZluXavj2U
+eziwNS/Fc+wA5R5O3N2/uGjfUco9nOifOH9ZWS2FGKdyYqohKHNBHeUeTsxL
+UN9Pb6DcwwlNxNFyoZFyDyeC3ZHncFXycKGLKOaGtkoeLvQn0bLQTsnDBfeu
+1StCuyUPF0a2NqWFPJU8XIgpivlD/oriuejhwvFV0fEBQ5KHGwq1bNYIG4VC
+9HDjwo/6QjuVPNyomBu7ZGAk4x5uXI/wXxcQzLiHG00xn+wzj2Xcww35+fXp
+PVGMexAURGV+3hzLuAfBzq6IlOpExj0IlpmqNhyfybgHwc2f6vI2pTLuQZBc
+17k9dT7jHgSvnoX1Jy9i3INg/WL9VuNSxj0o4v+6o67PYdyDora9JXB/PuMe
+FL8F5ypTihj3oFA3mn8OKGbcw/tdxqo2aLYz7kFRuu7S/bXljHswRDxfUGmr
+YNyDYW3FDzvqqxj3YIicnVgbV8O4B0Np/rgjuhOMezDcSHGd+Ows4x4MvX1/
+z+j8k3EPD/obnP8keN8b9vAgrXKwpuEa4x4eLJd/ne9ulTw8GLP6wJQNnZKH
+B1tnjur9tUvy8CAxZOKSwD7JQyYUhHaw3BfSfcqEF6cLNiUneHgdIBQFrrZe
+qpUJw/OECp6lVxK0s0bwOlyYPGTa2FQt1eMEfdtQSNUTqR4vPHgz4G8L8hOG
+93uikPXpqbyzSVIdI1QPTg3elSHVkwWdqvLL27l+wv9XHX3Q
+            "]]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}], LineBox[CompressedData["
+1:eJw10wlMFGcUB/BFE5elpZ1vZmFXxIIgVpQWWxAJUd5nSsWr6G6xbhoIFgWp
+V/HCCtGKCBpL1S4pKmIwrK0ilnisrRADFrdVkFKbQr2qAuIBgrD3wR7dnbx5
+yWTyksk/732/b6Zkf6XMGScSidZ5H997/8Ko2deaRiH4ETRtq5xI/+zw1Sh0
+dHb2pCdOpJbpGYdbzaPAHbi8/Xm5nIaVvlJcfUcPW1f1iRa7ZHRhb6G0IVUP
+kg911K9ERjfPC7irydfD7fqFQQVyGa067is9fBa6KjqlKZjeMPsC9XDcNlJ+
+MjeYDnnTSl/p4XHNgsbJk4KpN8ybaIDufUUvO7uDaLIvbp4Bvph1gy08GkRz
++TLApIvaHQWZQdQ7nDfQAFXWDvkv7wZRX5riqgG+Ge41LrJIKT9erwGu7f90
+WeQtKeXjAozwW/yG3X3VUhrHlxFGlx/sSdgmpRl8oBEOw7Ohh59IKb9uqRFO
+ZE4bqYyWUn68BiPYaw/NvyOWUj7urhHidiWcuv6CoyK+TKBeYvP8dIuj0Xyg
+CRpPTplxtJ6jSn5AE2ySZ6nvHeZoEb+wCbpl/f6vtnP0tC9OY4Kk4KLTezM4
+9DCBbVZB29QUDj1MsPzQkzTVexx6mCHu2ZOVW2Qcephh51/zN7f7cehhhs3O
+Sfmlwyx6mGH68o9yXfdZyh9fqxlWX/n89bSbLHqYIZ3dU2vVsuhhAcuI/xy3
+hkUPCwyN5Cv8Klj0sMD8NFtkdAlLj/CBFhislJclb2XRwwIN6SHj161h0cMC
+661PswtWsOhhhV9Vl5TlqSx6WEG5v+nNt5NY9LBC+52Yb+0xLHpYoVJbHp4a
+zqKHFZbpLucbORY9rNBaHPalQ8yihw1amwaTVE6CHjaofbFlhURP0MMGp6N0
+RTXPCXrYYLRUFzL8kKCHDexdcvW+vwl62KAt9ECJ9SZBDxvsDBz4OKSZoIcd
+qqsT9ewVgh52aJdc/WPxeUL5uHw7qCRHImI0BD3scDE6643/qgh62OHIZPW/
+OjVBDzvkDq7V9B8k6OGAtnXXYs/sJejhgMmKJfbYIoIeDtjo6Kob3ErQwwFn
+mySN3RsIejhAHN/x80gOoX28hwMMCUsj52QR9BiDVYW21nMqQuN5jzGod85c
+sEhJ0GMM4gYqt5GlBD3GoKV4zlr1AoIeY5C4MTnxHCXoMQaLVWLVyySCHk5Y
+ed6vZclswcMJXQlz8/+JFTycUFK9Yl/gTMHDCY7XGc0PogQPJwQdO1TWFi54
+OCHblaJcGyp4OOEWydxZKRM8XJAT+F1zPyt4uOB+vcTw+C3BwwWgPW7PCxA8
+XNCvPTv+5ATBwwXz6pI8WeMEDxfUzd0+47abQQ83yLMjd+kcDHq44WDA1ylr
+rAx6uKHtaF7h90YGPdzQbkjYtXqUQQ83yM5sSmsdYtDDDZdm7VDpBhj08EDF
+1OETyucMengg8MbuY3ufMujhAY391NLkHgY9vN9LfkytesSghwcau/zLih8w
+6OGBiNXr68T3GPQQ0R8i4kNquxk8TxG9oCjXV7QIvT+98Hjc+5Irwj4M7cnO
+c2qDhfsmpeoPYrQ1u4VeTn/XaVvqHwl9KI1SmEomxAn/dzgtu959PWeP0EfQ
+iniNWHFT6KfSY2ElLaX+HP0fLX8LXw==
+            "]]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           LineBox[CompressedData["
+1:eJw103lQlHUYB/CNYMYhXsURGVTkNPJWUhQw+v4iXRAoU0aSS4OwFFTWJTAW
+WBASlfusVMrxnBwVAmTcCZkJzDG8SB2DKA/U0sBg74N3d2n31eeZ2dn5/vOd
+5/l95vVNzdyw1UEkEu2y/ez/L0eJpdjdldTIsXlJ1T26uUqY2hc6bbblDQqv
+fSPrlRjZEd+XYst5bs0RQzIl6iIHHf1s+aQkzLn/hBLl4lXHnzZw7OYN+yiR
+6B7beMaW9XPthUqkv85r59uyt61N4aXCpeiqbdp6jkUOyWyNKuxp+SNCZsu7
+7XUSFeK/1mxysOXDh+yjAu/YUl5Rx7HLOnuhCl3OZ7bfreXYi/X2BVWojhbv
+9bRlYT03NXr6f/jnXA3H3rXXhakhbun26ajm2GfCqDFL5F3uaMv2a5Oq1eiy
+5Go3VnFMOFehRoU+uDOtkmPCekNqZHVFtGVXcEyoc9Yg6sWJGwfKObZMGA1y
+69vM35VxTHi+JA0GRzqDOg5yTDh3nwZ3rsRl3DrAMWG9Zg1UZ/NcT+/nmFDX
+r8GkBTK+sJRjLz20qD96OejoPvLQYjDobGzBV+ShxfAhp8bkEvLQoij0aJ5l
+L3locco9fMbjIvLQIvX8O4pfC8lDi/ux4tJMOXno8MYod9GjgDx0qDv5aZlT
+Pnno8LOz2K9dRh46PKsutqbmckx4vh4dcsvSp0//kjx0+KtWntybQx56uF/0
+voRs8tBDqqg9YMwiDz1EDaUPs6QcqxEK9ahKSOICd5OHHutmILg1kzz0sEbf
+PiHdRR4GRMx2LzLsIA8DRu+qr8szyMOA+pxH8knp5GHAOX1HTcM28jBAkZ9v
+8vucPAww+IS0tm8lDyOcmwp+FKeRhxF95gdjf6aShxG/mQM8VqaQhxGSXIvT
+7S3kYURw3qPZOzeThxEtGdMf9CWRhxHqm5ZcSSJ5mBB4R4KBePIwoax28Hj4
+Jo4JdRITvri3SP1vHHmY4Lk4PDB+I3mY8MS9yXQtljxMuFpwZDU2kMc4drhe
+wNhH5DGOkV9S3t62jjzGIY3xb3jyAXmMY3VHxZaUGPIYx/HhusqhKI49FjzG
+wXsMeaStJQ8eF24l8M8jOLZc8OBx5ZvkJRIxefBwWbqqxbSaPHgkzvK6/uH7
+5MFjuPh7j/vvkQePaInPsZ2MPMy499z1ExHIw4yq7pB1jWHkYYZEWx1gWEUe
+ZuyRJp+vCSUPM/aXzIxbGEIeZny74LXmxpXkYcZo5E99QSvIwwL+WqfjwHLy
+sEDsNbU5chl5WODbkIixQPKwoClY3pu2lDwsWJC66+SUJeRhgWG0mz+4iDys
+cC6UTw5ZSB5WzPx91EcxnzysUByZmpAxjzysUB8KnDb2FnlYcWrNaMrpAPKw
+omitS+viN8ljAlEDNxyH/cljAlPmdA7k+JHHBGSlMr8VvuQxgUHps+1Xvclj
+AtNkMw6XeZHHBApVbI3PbPIQsZ3+Uihm0XuKWPZ535X3JlOexFLOSByaOlxe
+3ePK0jtLwoarKLuxgLblCXFFlD1YSSS/6Wk+ZU8W4/1x5TG5y6vv24f1Pvy7
+taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
+            "]]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
+          {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], 
+           AbsoluteThickness[1.6], Dashing[{0, Small, Small, Small}]}, 
+          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6]}, 
+          {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
+           0.007333333333333334], AbsoluteThickness[1.6], 
+           Dashing[{Small, Small}]}, 
+          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
+           0.007333333333333334], AbsoluteThickness[
+           1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
+{}}}, {}},
+      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+      Axes->{False, False},
+      AxesLabel->{None, None},
+      AxesOrigin->{0.810416666666667, 1.0986122886681098`},
+      DisplayFunction->Identity,
+      Frame->{{True, True}, {True, True}},
+      FrameLabel->{{
+         FormBox[
+         "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(\[Tau]\\), \\(sub\\)]\\)\"", TraditionalForm], 
+         None}, {
+         FormBox["\"q\"", TraditionalForm], None}},
+      FrameStyle->Directive[
+        GrayLevel[0], Bold, 20],
+      FrameTicks->FrontEndValueCache[{{
+          Charting`ScaledTicks[{Log, Exp}], 
+          Charting`ScaledFrameTicks[{Log, Exp}]}, {
+         Automatic, Automatic}}, {{{{1.6094379124341003`, 
+            FormBox["5", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox["10", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox["50", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox["100", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox["500", TraditionalForm], {0.01, 0.}, {
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.003065458786462, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.090076835776092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.170119543449628, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.24422751560335, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.313220387090301, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.3777589082278725`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}, {{1.6094379124341003`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {2.302585092994046, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {3.912023005428146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {4.605170185988092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {6.214608098422191, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, {
+            
+             AbsoluteThickness[0.1]}}, {0., 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {0.6931471805599453, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.791759469228055, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {2.995732273553991, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.0943445622221, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.248495242049359, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.382026634673881, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {4.499809670330265, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.298317366548036, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.703782474656201, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {5.991464547107982, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.396929655216146, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.551080335043404, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.684611727667927, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.802394763324311, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {6.907755278982137, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.003065458786462, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.090076835776092, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.170119543449628, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.24422751560335, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.313220387090301, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}, {7.3777589082278725`, 
+            FormBox[
+             TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
+             AbsoluteThickness[0.1]}}}}, {Automatic, Automatic}}],
+      GridLines->FrontEndValueCache[{Automatic, 
+         Charting`ScaledTickValues[{Log, Exp}]}, {
+        Automatic, {{1.6094379124341003`, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {2.302585092994046, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {3.912023005428146, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {4.605170185988092, 
+           Directive[
+            AbsoluteThickness[0.1]]}, {6.214608098422191, 
+           Directive[
+            AbsoluteThickness[0.1]]}}}],
+      GridLinesStyle->Directive[
+        GrayLevel[0.5, 0.4]],
+      ImageSize->Large,
+      LabelStyle->Directive[
+        GrayLevel[0], Bold, 13],
+      Method->{
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}},
+      PlotLabel->None,
+      PlotRange->NCache[{{0.810416666666667, 10.1}, {
+          Log[3], 
+          Log[600]}}, {{0.810416666666667, 10.1}, {1.0986122886681098`, 
+        6.396929655216146}}],
+      PlotRangeClipping->True,
+      PlotRangePadding->{{
+         Scaled[0.02], 
+         Scaled[0.02]}, {0, 0}},
+      Ticks->{Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}], Scaled[{0.5, 0.5}], Center, 
+     Scaled[{1, 1}]], InsetBox[
+     TemplateBox[{
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(330\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(221\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=10 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(210\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(t\\), \\(0\\)]\\)=15 M\"",
+       "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(440\\)]\\): \
+\\!\\(\\*SubscriptBox[\\(A\\), \\(R\\)]\\)~0.1 M\""},
+      "LineLegend",
+      DisplayFunction->(FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.5, 0, 0.5], 
+                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
+                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
+                 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"], 
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {
+                    LineBox[{{0, 10}, {40, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[1.6], 
+                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
+                    AspectRatio -> Full, ImageSize -> {40, 10}, 
+                    PlotRangePadding -> None, ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
+                 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], {
+          Directive[
+           GrayLevel[0], Bold, 13], FontFamily -> "Arial"}, Background -> 
+         Automatic, StripOnInput -> False], TraditionalForm]& ),
+      Editable->True,
+      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.5, 0, 0.5], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
+                    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.5, 0, 0.5]; 
+                    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.5, 0, 0.5], Editable -> False, Selectable -> 
+                    False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
+                    "}"}], "]"}]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], 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.560181, 0.691569, 0.194885]; 
+                    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.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.5147193333333333, 0.28770266666666666`, 
+                    0.06825800000000001], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
+                     "]"}], 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.772079, 0.431554, 0.102387]; 
+                    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.772079, 0.431554, 0.102387], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"Dashing", "[", 
+                    RowBox[{"{", 
+                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
+                   ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
+                   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[{"{", 
+             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
+               "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 InterpretationBox[
+                  ButtonBox[
+                   TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"GrayLevel", "[", "0", "]"}], 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 = 
+                    GrayLevel[0]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["GrayLevelColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                   Automatic, Method -> "Preemptive"], 
+                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
+                 "Bold", ",", "13"}], "]"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], Scaled[
+     {0.53, 1.0001}], ImageScaled[{0.5, 0}],
+     BaseStyle->{FontSize -> Larger},
+     FormatType->StandardForm]},
+   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+   Axes->False,
+   AxesLabel->{None, None},
+   AxesOrigin->{0.810416666666667, 1.0986122886681098`},
+   DisplayFunction->Identity,
+   Frame->False,
+   FrameLabel->{{
+      FormBox[
+      "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Res\\)]\\) for \
+\\!\\(\\*SubscriptBox[\\(\[Tau]\\), \\(sub\\)]\\)\"", TraditionalForm], 
+      None}, {
+      FormBox["\"q\"", TraditionalForm], None}},
+   FrameStyle->Directive[
+     GrayLevel[0], Bold, 20],
+   FrameTicks->{{
+      Charting`ScaledTicks[{Log, Exp}], 
+      Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
+   ImagePadding->All,
+   ImageSize->Large,
+   LabelStyle->Directive[
+     GrayLevel[0], Bold, 13],
+   Method->{
+    "OptimizePlotMarkers" -> True, 
+     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+         (Identity[#]& )[
+          Part[#, 1]], 
+         (Exp[#]& )[
+          Part[#, 2]]}& )}},
+   PlotLabel->None,
+   PlotRange->Automatic,
+   PlotRangeClipping->False,
+   PlotRangePadding->{{
+      Scaled[0.02], 
+      Scaled[0.02]}, {0, 0}},
+   Ticks->{Automatic, 
+     Charting`ScaledTicks[{Log, Exp}]}],
+  InterpretTemplate[Legended[
+    Graphics[{{}, {{{}, {}, {
+         Hue[0.67, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]], 
+         Line[CompressedData["
+1:eJw10wlMU3ccwPHKPAh9r++9tlYEJ4eQ6FDnQLzL76+I4NgidDKZc/EK4hgq
+gnRMVFCkCji8JuFyHtXhmDLnhnifoAhsRBwzGo85N4c4hJ6vd9e+/PwlTfNL
+Xr/5/98nDVmxTpXmIxKJMjwf73dN2NSI+LoBUDyGCxsqRpJfO7wzANqytLSo
+Vn9iHrtk9w3TACzY0pR5hfUnQcWvks+N1oFsRtf+TPUIkvBso7whXgcTbBum
+BugUZL3S7742SweVk3U5jnwFqa7yjg7UX3dOqJcpyE2TN6iD2asheWvjcPKf
+p1b8Sgcx64Jbe5YOJ56Yp6iH7K7Anxq54STGm1PqYZDh9lq4IyerhNFDylVz
+6zyNnHgO5wnqob50X1tvvJx4a8nn9PDZKE1uBi0nwvGe6UGTNFS17Q8ZEXJ+
+Blgd3Z/ceVRGooQxQOHji/ud62VkiRA0wN2S7qyWWBkRrltsgHg/9aSXI2RE
+OF6DAQ50B+8a9FpKhNx9A/T1dbRxt6REJIwRzpqmLwo9LCXjhKARqg+2Pfoh
+X0pUwgGNYP/47p2rqVKSL1zYCDX7jixnp0rJMW9O63k+LumdFwopehghL3/0
+QwvPoYcRvnr7X5fPQw49TKBVZdSGXubQwwRKNqxDfYRDDxNEPu6YtVvDoYcJ
+JOU7uPJMjgiv74YJ/u48ELnqIw49TMA5+UrxTA49zMDsZJpjx3DoYYaiJPG2
+lRSHHmaoigj8xcfMkj1C0AyK+cpe9Z8sephh3oxx4sXtLHqYoZniw32aWPTg
+YSKv6PXTsujBwzPx4oLa3Sx68CCqe3Tt9CYWPXiIEge8np3BogcP+edjte+n
+sujBw23r3Lst81j0sMDvRUFnG6JZ9LCAonLNA1E4ix4WKGyNG10mZ9HDAl0n
+Q4q0g1n0sEB87Pb0yF4GPSxgObapJq+dQQ8LGD6Eb5tPMehhhUnX/UOW7mHQ
+wwqBNZW3q3MYIuSyrDBt1hm+dRGDHlao1d85GD2LQQ8rVEwQy6JCGPSwQsI/
+QWsvDWXQwwb94KoM7ZOghw3Kej7Z2XhPgh42yLmit9y6IEEPGxR/kfZIdVSC
+HjbYEpSuSimVkL8EDxtkyFNOtGVL0MMOjcv9Fv74qYRMFjzscEJn1rvnStDD
+DjKNOuH8RAl62MF3SrFY4y9BD8/vT55xDntLgh52OPdNXNPLPho9HNCphM1j
+H9Do4YC9jp5T15tp9HDAxq0X8lacptHDAb1kftr3tTR6OGCNbLs6toRGDwes
+T7w/52kujR6e/r2ElJErafRwgtE3V3Y4iUYPJ2yOfp45JoZGDyekuph+5Xga
+PZzA7NX6qAJo9HDCByUDDyy+NHo4IZtft7GCp9DDBbfulVy68YJCDxeMSI9U
+Pu+m0MMFg5vn5JW3UOjhAujmqyMaKfRwwcNN9e0LjlPo4YIpYRuurTxAoYcb
++hNbEuzFFHq4oUtbfqhQTaGHG967XB+jSafQww305IInX6ZS6OEG+bvT6l7M
+p9DDDWx4TRvMpNBDREohPaJ9PIXvU0QKji+bNKNOjLsvKb0pTQo85Iv3YUmR
++UkDmzAMdzlZVta04+muobj7kzbn576RAW/2USRuYeqVxN+G4P87mPycLc8M
+q3qzh5Kcqqz+xOw3exj57uj0i8aFQ8j/3IAAXA==
+          "]]}, {
+         Hue[0.9060679774997897, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]], 
+         Line[CompressedData["
+1:eJw10wtMU1cYB/BKMAJ2gASHY4LKRBkIjliJm8L/DjVOiLqCr01MiMBwirMa
+IqiTzOIjYqaIzghbMD6Kk022zAwV8UUVWCz4BCeCs+IjopC+n+ecrr2ce5Kb
+5ktu/v2+87vfpDUbswr8ZDLZd97H9zt8DBAKMh/MmUPxcc7BFmuct75Qvqws
+niLrYvTut0oDztz98KvNkRTbwxsW6LcZcOht9q54OcVpVWrQo1MGLHq8ZNEK
+D0GHzncMKD9570KfmcAW5ws0oKT4kqP7DcEEb9rFaCP2D60pb39G8IV+mzfR
+iCdVj7NGPCbY5ItTGfFttyZjzn2CmmrfMaKjOOByoY5Aa/UFGtHXlRGtaSN4
+p/Q1aMSWts07z2sJxPbCTWDTHyVlXydI88WlmhAfXq6SXyX4RjwmdNVrA9Oa
+CXzT5hw0YV4PqoIvE4jjXjSh9LY+Q9NEILanNyHq9/qnrd5ajAsyI7Q3TLnO
++/4M8ZihGz8g7PXmideXY8YLxfe9Y73/J46724z05lHdwd5+xPYazMhr8Lvx
+SwuBGPfIjDvJnmt7bxEMe1jwMnFwz7F2wj0s2NGWHT/NO/+whwVNh3rek98l
+3MMCMnJySf5Dwj0saHaErez8V/KwoLA97uiWPsnDAnNJcVLFc8nDisxj+z56
++FrysCIhskg/YVDysOKG6rVMZ5I8rCh/5so47SAQr6/FihC/SVc0TPKwIvec
+YmeHP+UeNpxT55xZOJpyDxumHwyLbRxDuYcNAy9v+W8eR1EpBtoQ7b+38YMJ
+lHvYoHt7Ils+hXIPG0pvWq+8mka5hx1r0tXvBygo97BDfU85Om025R525Fef
+fLcnnXIPO7SNh2P0Cyn3sEM/VJyQqaTcw44odqRGu5JyDwcSNTERC3Ol/XDg
+5uzpq3oKpf1wQPlfuKJuo7QfDgQmW4oyS6T9cKA42SNzllHu4cDZluXavj2U
+eziwNS/Fc+wA5R5O3N2/uGjfUco9nOifOH9ZWS2FGKdyYqohKHNBHeUeTsxL
+UN9Pb6DcwwlNxNFyoZFyDyeC3ZHncFXycKGLKOaGtkoeLvQn0bLQTsnDBfeu
+1StCuyUPF0a2NqWFPJU8XIgpivlD/oriuejhwvFV0fEBQ5KHGwq1bNYIG4VC
+9HDjwo/6QjuVPNyomBu7ZGAk4x5uXI/wXxcQzLiHG00xn+wzj2Xcww35+fXp
+PVGMexAURGV+3hzLuAfBzq6IlOpExj0IlpmqNhyfybgHwc2f6vI2pTLuQZBc
+17k9dT7jHgSvnoX1Jy9i3INg/WL9VuNSxj0o4v+6o67PYdyDora9JXB/PuMe
+FL8F5ypTihj3oFA3mn8OKGbcw/tdxqo2aLYz7kFRuu7S/bXljHswRDxfUGmr
+YNyDYW3FDzvqqxj3YIicnVgbV8O4B0Np/rgjuhOMezDcSHGd+Ows4x4MvX1/
+z+j8k3EPD/obnP8keN8b9vAgrXKwpuEa4x4eLJd/ne9ulTw8GLP6wJQNnZKH
+B1tnjur9tUvy8CAxZOKSwD7JQyYUhHaw3BfSfcqEF6cLNiUneHgdIBQFrrZe
+qpUJw/OECp6lVxK0s0bwOlyYPGTa2FQt1eMEfdtQSNUTqR4vPHgz4G8L8hOG
+93uikPXpqbyzSVIdI1QPTg3elSHVkwWdqvLL27l+wv9XHX3Q
+          "]]}, {
+         Hue[0.1421359549995791, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]], 
+         Line[CompressedData["
+1:eJw10wlMFGcUB/BFE5elpZ1vZmFXxIIgVpQWWxAJUd5nSsWr6G6xbhoIFgWp
+V/HCCtGKCBpL1S4pKmIwrK0ilnisrRADFrdVkFKbQr2qAuIBgrD3wR7dnbx5
+yWTyksk/732/b6Zkf6XMGScSidZ5H997/8Ko2deaRiH4ETRtq5xI/+zw1Sh0
+dHb2pCdOpJbpGYdbzaPAHbi8/Xm5nIaVvlJcfUcPW1f1iRa7ZHRhb6G0IVUP
+kg911K9ERjfPC7irydfD7fqFQQVyGa067is9fBa6KjqlKZjeMPsC9XDcNlJ+
+MjeYDnnTSl/p4XHNgsbJk4KpN8ybaIDufUUvO7uDaLIvbp4Bvph1gy08GkRz
++TLApIvaHQWZQdQ7nDfQAFXWDvkv7wZRX5riqgG+Ge41LrJIKT9erwGu7f90
+WeQtKeXjAozwW/yG3X3VUhrHlxFGlx/sSdgmpRl8oBEOw7Ohh59IKb9uqRFO
+ZE4bqYyWUn68BiPYaw/NvyOWUj7urhHidiWcuv6CoyK+TKBeYvP8dIuj0Xyg
+CRpPTplxtJ6jSn5AE2ySZ6nvHeZoEb+wCbpl/f6vtnP0tC9OY4Kk4KLTezM4
+9DCBbVZB29QUDj1MsPzQkzTVexx6mCHu2ZOVW2Qcephh51/zN7f7cehhhs3O
+Sfmlwyx6mGH68o9yXfdZyh9fqxlWX/n89bSbLHqYIZ3dU2vVsuhhAcuI/xy3
+hkUPCwyN5Cv8Klj0sMD8NFtkdAlLj/CBFhislJclb2XRwwIN6SHj161h0cMC
+661PswtWsOhhhV9Vl5TlqSx6WEG5v+nNt5NY9LBC+52Yb+0xLHpYoVJbHp4a
+zqKHFZbpLucbORY9rNBaHPalQ8yihw1amwaTVE6CHjaofbFlhURP0MMGp6N0
+RTXPCXrYYLRUFzL8kKCHDexdcvW+vwl62KAt9ECJ9SZBDxvsDBz4OKSZoIcd
+qqsT9ewVgh52aJdc/WPxeUL5uHw7qCRHImI0BD3scDE6643/qgh62OHIZPW/
+OjVBDzvkDq7V9B8k6OGAtnXXYs/sJejhgMmKJfbYIoIeDtjo6Kob3ErQwwFn
+mySN3RsIejhAHN/x80gOoX28hwMMCUsj52QR9BiDVYW21nMqQuN5jzGod85c
+sEhJ0GMM4gYqt5GlBD3GoKV4zlr1AoIeY5C4MTnxHCXoMQaLVWLVyySCHk5Y
+ed6vZclswcMJXQlz8/+JFTycUFK9Yl/gTMHDCY7XGc0PogQPJwQdO1TWFi54
+OCHblaJcGyp4OOEWydxZKRM8XJAT+F1zPyt4uOB+vcTw+C3BwwWgPW7PCxA8
+XNCvPTv+5ATBwwXz6pI8WeMEDxfUzd0+47abQQ83yLMjd+kcDHq44WDA1ylr
+rAx6uKHtaF7h90YGPdzQbkjYtXqUQQ83yM5sSmsdYtDDDZdm7VDpBhj08EDF
+1OETyucMengg8MbuY3ufMujhAY391NLkHgY9vN9LfkytesSghwcau/zLih8w
+6OGBiNXr68T3GPQQ0R8i4kNquxk8TxG9oCjXV7QIvT+98Hjc+5Irwj4M7cnO
+c2qDhfsmpeoPYrQ1u4VeTn/XaVvqHwl9KI1SmEomxAn/dzgtu959PWeP0EfQ
+iniNWHFT6KfSY2ElLaX+HP0fLX8LXw==
+          "]]}, {
+         Hue[0.37820393249936934`, 0.6, 0.6], 
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]], 
+         Line[CompressedData["
+1:eJw103lQlHUYB/CNYMYhXsURGVTkNPJWUhQw+v4iXRAoU0aSS4OwFFTWJTAW
+WBASlfusVMrxnBwVAmTcCZkJzDG8SB2DKA/U0sBg74N3d2n31eeZ2dn5/vOd
+5/l95vVNzdyw1UEkEu2y/ez/L0eJpdjdldTIsXlJ1T26uUqY2hc6bbblDQqv
+fSPrlRjZEd+XYst5bs0RQzIl6iIHHf1s+aQkzLn/hBLl4lXHnzZw7OYN+yiR
+6B7beMaW9XPthUqkv85r59uyt61N4aXCpeiqbdp6jkUOyWyNKuxp+SNCZsu7
+7XUSFeK/1mxysOXDh+yjAu/YUl5Rx7HLOnuhCl3OZ7bfreXYi/X2BVWojhbv
+9bRlYT03NXr6f/jnXA3H3rXXhakhbun26ajm2GfCqDFL5F3uaMv2a5Oq1eiy
+5Go3VnFMOFehRoU+uDOtkmPCekNqZHVFtGVXcEyoc9Yg6sWJGwfKObZMGA1y
+69vM35VxTHi+JA0GRzqDOg5yTDh3nwZ3rsRl3DrAMWG9Zg1UZ/NcT+/nmFDX
+r8GkBTK+sJRjLz20qD96OejoPvLQYjDobGzBV+ShxfAhp8bkEvLQoij0aJ5l
+L3locco9fMbjIvLQIvX8O4pfC8lDi/ux4tJMOXno8MYod9GjgDx0qDv5aZlT
+Pnno8LOz2K9dRh46PKsutqbmckx4vh4dcsvSp0//kjx0+KtWntybQx56uF/0
+voRs8tBDqqg9YMwiDz1EDaUPs6QcqxEK9ahKSOICd5OHHutmILg1kzz0sEbf
+PiHdRR4GRMx2LzLsIA8DRu+qr8szyMOA+pxH8knp5GHAOX1HTcM28jBAkZ9v
+8vucPAww+IS0tm8lDyOcmwp+FKeRhxF95gdjf6aShxG/mQM8VqaQhxGSXIvT
+7S3kYURw3qPZOzeThxEtGdMf9CWRhxHqm5ZcSSJ5mBB4R4KBePIwoax28Hj4
+Jo4JdRITvri3SP1vHHmY4Lk4PDB+I3mY8MS9yXQtljxMuFpwZDU2kMc4drhe
+wNhH5DGOkV9S3t62jjzGIY3xb3jyAXmMY3VHxZaUGPIYx/HhusqhKI49FjzG
+wXsMeaStJQ8eF24l8M8jOLZc8OBx5ZvkJRIxefBwWbqqxbSaPHgkzvK6/uH7
+5MFjuPh7j/vvkQePaInPsZ2MPMy499z1ExHIw4yq7pB1jWHkYYZEWx1gWEUe
+ZuyRJp+vCSUPM/aXzIxbGEIeZny74LXmxpXkYcZo5E99QSvIwwL+WqfjwHLy
+sEDsNbU5chl5WODbkIixQPKwoClY3pu2lDwsWJC66+SUJeRhgWG0mz+4iDys
+cC6UTw5ZSB5WzPx91EcxnzysUByZmpAxjzysUB8KnDb2FnlYcWrNaMrpAPKw
+omitS+viN8ljAlEDNxyH/cljAlPmdA7k+JHHBGSlMr8VvuQxgUHps+1Xvclj
+AtNkMw6XeZHHBApVbI3PbPIQsZ3+Uihm0XuKWPZ535X3JlOexFLOSByaOlxe
+3ePK0jtLwoarKLuxgLblCXFFlD1YSSS/6Wk+ZU8W4/1x5TG5y6vv24f1Pvy7
+taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
+          "]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.368417, 0.506779, 0.709798]]}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.5, 0, 0.5], 
+          Dashing[{0, Small, Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.560181, 0.691569, 0.194885]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          Dashing[{Small, Small}]]}, {
+         Directive[
+          PointSize[0.007333333333333334], 
+          AbsoluteThickness[1.6], 
+          RGBColor[
+          0.368417, 0.506779, 
+           0.709798]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
+{{}, {}}}, {DisplayFunction -> Identity, GridLines -> {Automatic, 
+        Charting`ScaledTickValues[{Log, Exp}]}, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, DisplayFunction -> Identity, 
+      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
+      Axes -> {False, False}, AxesLabel -> {None, None}, 
+      AxesOrigin -> {0.810416666666667, 1.0986122886681098`}, DisplayFunction :> 
+      Identity, Frame -> {{True, True}, {True, True}}, 
+      FrameLabel -> {{
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(Res\)]\) for \!\(\*SubscriptBox[\(\
+\[Tau]\), \(sub\)]\)", None}, {"q", None}}, FrameStyle -> Directive[
+        GrayLevel[0], Bold, 20], FrameTicks -> {{
+         Charting`ScaledTicks[{Log, Exp}], 
+         Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, 
+      GridLines -> {
+       Automatic, {1.6094379124341003`, 2.302585092994046, 3.912023005428146, 
+        4.605170185988092, 6.214608098422191}}, GridLinesStyle -> Directive[
+        GrayLevel[0.5, 0.4]], ImageSize -> Large, LabelStyle -> Directive[
+        GrayLevel[0], Bold, 13], 
+      Method -> {
+       "OptimizePlotMarkers" -> True, 
+        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+            (Identity[#]& )[
+             Part[#, 1]], 
+            (Exp[#]& )[
+             Part[#, 2]]}& )}}, PlotRange -> {{0.810416666666667, 10.1}, {
+         Log[3], 
+         Log[600]}}, PlotRangeClipping -> True, PlotRangePadding -> {{
+         Scaled[0.02], 
+         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, 
+        Charting`ScaledTicks[{Log, Exp}]}}], 
+    Placed[
+     Unevaluated[
+      LineLegend[{
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.5, 0, 0.5], 
+         Dashing[{0, Small, Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.560181, 0.691569, 0.194885]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         Dashing[{Small, Small}]], 
+        Directive[
+         PointSize[0.007333333333333334], 
+         AbsoluteThickness[1.6], 
+         RGBColor[0.368417, 0.506779, 0.709798]]}, {
+       "\!\(\*SubscriptBox[\(\[Rho]\), \(330\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(221\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=10 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(210\)]\): \!\(\*SubscriptBox[\(t\), \
+\(0\)]\)=15 M", 
+        "\!\(\*SubscriptBox[\(\[Rho]\), \(440\)]\): \!\(\*SubscriptBox[\(A\), \
+\(R\)]\)~0.1 M"}, 
+       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
+         False, Automatic}, {False, Automatic}}, 
+       Joined -> {True, True, True, True}, LabelStyle -> Directive[
+         GrayLevel[0], Bold, 13], LegendLayout -> {"Column", 4}]], {0.53, 
+     1.0001}, Identity]]& ],
+  AutoDelete->True,
+  Editable->True,
+  SelectWithContents->False,
+  Selectable->True]], "Output",
+ CellChangeTimes->{
+  3.799988631385356*^9, {3.799988693526799*^9, 3.799988730588513*^9}, {
+   3.7999887691330767`*^9, 3.799988816431958*^9}, {3.799988847564766*^9, 
+   3.799988873142033*^9}, {3.799988934258387*^9, 3.799989005029158*^9}, {
+   3.7999890393273697`*^9, 3.7999890670127687`*^9}},
+ CellLabel->
+  "Out[1135]=",ExpressionUUID->"cf7ed30e-cfaf-4e62-9d13-8e574d7ea64f"]
+}, Open  ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Resolvability v1", "Section",
+ CellChangeTimes->{{3.799979947797538*^9, 3.799979950520608*^9}, {
+  3.801558092519326*^9, 
+  3.8015580936977262`*^9}},ExpressionUUID->"4a640a44-63e9-4a61-ade8-\
+a7d3b1cee308"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Sigma]f", "[", 
+   RowBox[{"f1_", ",", "Q1_", ",", "f2_", ",", "Q2_", ",", "R_"}], "]"}], ":=", 
+  RowBox[{
+   RowBox[{"1", "/", 
+    RowBox[{"(", 
+     RowBox[{"2", 
+      RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"f1", "^", "3"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", "+", 
+         RowBox[{"16", 
+          RowBox[{"Q1", "^", "4"}]}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"Q1", "^", "7"}], ")"}]}], 
+      RowBox[{"(", " ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Q1", "^", "3"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"f1", 
+           RowBox[{"(", 
+            RowBox[{"1", "+", 
+             RowBox[{"4", 
+              RowBox[{"Q1", "^", "2"}]}]}], ")"}]}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"R", "^", "2"}], " ", 
+         RowBox[{
+          RowBox[{"Q2", "^", "3"}], "/", 
+          RowBox[{"(", 
+           RowBox[{"f2", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{"4", 
+               RowBox[{"Q2", "^", "2"}]}]}], ")"}]}], ")"}]}]}]}], ")"}]}], 
+     ")"}], "^", 
+    RowBox[{"(", 
+     RowBox[{"1", "/", "2"}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.7985405256329947`*^9, 3.7985406686842623`*^9}, {
+  3.798540707189432*^9, 3.798540760673064*^9}, {3.798540791851248*^9, 
+  3.7985408453218403`*^9}},
+ CellLabel->
+  "In[110]:=",ExpressionUUID->"0da8e937-b7e6-41b0-85a1-b2eb026dfb1a"],
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"f220", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f330", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"3", ",", "3", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f221", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "2", ",", "1", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f440", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"4", ",", "4", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"4", ",", "4", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f210", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{
+       RowBox[{"\[Omega]lmn", "[", 
+        RowBox[{"2", ",", "1", ",", "0", ",", 
+         RowBox[{"qq", "/", 
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"qq", "+", "1"}], ")"}], "^", "2"}]}], ",", "0", ",", "0",
+          ",", 
+         RowBox[{"\"\<ModesData\>\"", "->", 
+          RowBox[{"Modedata", "[", 
+           RowBox[{"[", 
+            RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
+         RowBox[{"\"\<ModesFile\>\"", "\[Rule]", "notdir"}]}], "]"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]}], "Input",
+ CellChangeTimes->{{3.798591721035592*^9, 3.798591738332911*^9}, {
+  3.798592133728931*^9, 3.798592133951769*^9}, {3.79859235034455*^9, 
+  3.798592396309044*^9}, {3.798592437510415*^9, 3.7985924381654*^9}, {
+  3.798592577661471*^9, 3.798592578354536*^9}, {3.7985926202760553`*^9, 
+  3.7985926534366007`*^9}, {3.7985935907339277`*^9, 3.7985936199004498`*^9}, {
+  3.799986980527821*^9, 3.799987103289311*^9}, {3.799987202725951*^9, 
+  3.799987204343218*^9}},
+ CellLabel->
+  "In[111]:=",ExpressionUUID->"6090c649-7ff6-4987-9f37-087aee933d80"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"qpints", "=", 
+   RowBox[{"Join", "[", 
+    RowBox[{
+     RowBox[{"Table", "[", 
+      RowBox[{"qq", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "1", ",", "2", ",", "0.01"}], "}"}]}], "]"}], ",", 
+     
+     RowBox[{"Table", "[", 
+      RowBox[{"qq", ",", 
+       RowBox[{"{", 
+        RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
+  ";"}]], "Input",
+ CellChangeTimes->{{3.79859281932397*^9, 3.7985928231030912`*^9}},
+ CellLabel->
+  "In[116]:=",ExpressionUUID->"419f481d-1afb-44b8-b699-0a6d2d61e5bc"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"\[Sigma]f", "[", 
+   RowBox[{"f1_", ",", "Q1_", ",", "f2_", ",", "Q2_", ",", "R_"}], "]"}], ":=", 
+  RowBox[{
+   RowBox[{"1", "/", 
+    RowBox[{"(", 
+     RowBox[{"4", 
+      RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}], 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{"f1", "^", "3"}], 
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"3", "+", 
+         RowBox[{"16", 
+          RowBox[{"Q1", "^", "4"}]}]}], ")"}], "/", 
+       RowBox[{"(", 
+        RowBox[{"f1", " ", 
+         RowBox[{"Q1", "^", "7"}]}], ")"}]}], 
+      RowBox[{"(", " ", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"Q1", "^", "3"}], "/", 
+         RowBox[{"(", 
+          RowBox[{"(", 
+           RowBox[{"1", "+", 
+            RowBox[{"4", 
+             RowBox[{"Q1", "^", "2"}]}]}], ")"}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"R", "^", "2"}], " ", 
+         RowBox[{"Q2", "^", "3"}], " ", 
+         RowBox[{"f1", "/", 
+          RowBox[{"(", 
+           RowBox[{"f2", 
+            RowBox[{"(", 
+             RowBox[{"1", "+", 
+              RowBox[{"4", 
+               RowBox[{"Q2", "^", "2"}]}]}], ")"}]}], ")"}]}]}]}], ")"}]}], 
+     ")"}], "^", 
+    RowBox[{"(", 
+     RowBox[{"1", "/", "2"}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.801558164763204*^9, 3.801558164904662*^9}, {
+  3.8015582818696527`*^9, 3.80155829081079*^9}},
+ CellLabel->
+  "In[142]:=",ExpressionUUID->"512b9473-7543-44af-99c5-974231575310"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Mf", "=", 
+   RowBox[{"1", "-", 
+    RowBox[{"EradUIB2017", "[", 
      RowBox[{
       RowBox[{"qpints", "/", 
        RowBox[{
@@ -38600,7 +63091,7 @@ Cell[BoxData[
       "0"}], "]"}]}]}], ";"}]], "Input",
  CellChangeTimes->{{3.798596338971361*^9, 3.7985963882626*^9}},
  CellLabel->
-  "In[1027]:=",ExpressionUUID->"584d7a2d-c68c-4d36-8cdb-4e52aead023e"],
+  "In[117]:=",ExpressionUUID->"4fb7080e-cc7d-47a2-87a8-796b06fbb095"],
 
 Cell[BoxData[{
  RowBox[{
@@ -38682,7 +63173,7 @@ Cell[BoxData[{
   3.798595021824266*^9, 3.798595032062045*^9}, {3.798596299487299*^9, 
   3.7985963046374702`*^9}, {3.798596410087097*^9, 3.798596430865203*^9}},
  CellLabel->
-  "In[1054]:=",ExpressionUUID->"ae009b82-220d-481d-9be5-1d6d81a60893"],
+  "In[118]:=",ExpressionUUID->"e72f0402-909a-4dfe-a390-4bd54559218b"],
 
 Cell[BoxData[{
  RowBox[{
@@ -38746,7 +63237,7 @@ Cell[BoxData[{
   3.798595036343956*^9}, {3.798596243049119*^9, 3.79859630945944*^9}, {
   3.7985964163207912`*^9, 3.798596452803376*^9}},
  CellLabel->
-  "In[1059]:=",ExpressionUUID->"96a254a7-d679-4f22-be1b-1622e20f018b"],
+  "In[123]:=",ExpressionUUID->"bee18523-0e81-4ec2-9af3-e4cdbb9e1f66"],
 
 Cell[BoxData[{
  RowBox[{
@@ -38806,7 +63297,52 @@ Cell[BoxData[{
   3.7985964163207912`*^9, 3.798596452803376*^9}, {3.798765846677607*^9, 
   3.798765876522251*^9}},
  CellLabel->
-  "In[1064]:=",ExpressionUUID->"edd45e2e-7f01-465b-a917-a78f3e3c4c28"],
+  "In[128]:=",ExpressionUUID->"56dd2278-dd2c-4820-be66-580f9cd471fe"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"\[Sigma]f", "[", 
+  RowBox[{"f1", ",", "Q1", ",", "f2", ",", "Q2", ",", "R"}], "]"}]], "Input",
+ CellChangeTimes->{{3.8015581037429256`*^9, 3.801558108127638*^9}},
+ CellLabel->
+  "In[139]:=",ExpressionUUID->"58d43c05-c40b-4aa1-b9f3-514705c4f376"],
+
+Cell[BoxData[
+ FractionBox[
+  SqrtBox[
+   FractionBox[
+    RowBox[{
+     SuperscriptBox["f1", "3"], " ", 
+     RowBox[{"(", 
+      RowBox[{"3", "+", 
+       RowBox[{"16", " ", 
+        SuperscriptBox["Q1", "4"]}]}], ")"}], " ", 
+     RowBox[{"(", 
+      RowBox[{
+       FractionBox[
+        SuperscriptBox["Q1", "3"], 
+        RowBox[{"f1", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["Q1", "2"]}]}], ")"}]}]], "+", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["Q2", "3"], " ", 
+         SuperscriptBox["R", "2"]}], 
+        RowBox[{"f2", " ", 
+         RowBox[{"(", 
+          RowBox[{"1", "+", 
+           RowBox[{"4", " ", 
+            SuperscriptBox["Q2", "2"]}]}], ")"}]}]]}], ")"}]}], 
+    SuperscriptBox["Q1", "7"]]], 
+  RowBox[{"2", " ", 
+   SqrtBox["2"]}]]], "Output",
+ CellChangeTimes->{3.8015581086652327`*^9},
+ CellLabel->
+  "Out[139]=",ExpressionUUID->"d4a20295-b76e-480d-a0c2-2c8205b987a5"]
+}, Open  ]],
 
 Cell[BoxData[{
  RowBox[{
@@ -38863,7 +63399,7 @@ Cell[BoxData[{
    3.798595337115513*^9}, {3.798595505642415*^9, 3.7985955083788548`*^9}, 
    3.7987649457702312`*^9, {3.7988040526024733`*^9, 3.798804054963251*^9}},
  CellLabel->
-  "In[1069]:=",ExpressionUUID->"59c6ee3a-e822-41a7-913f-5b9eecd0d8c6"],
+  "In[133]:=",ExpressionUUID->"91bb9413-5379-4dc8-865c-e1a7a4414e35"],
 
 Cell[BoxData[
  RowBox[{
@@ -38882,7 +63418,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.798595655508684*^9, 3.798595659612177*^9}},
  CellLabel->
-  "In[1072]:=",ExpressionUUID->"c8539ecd-a88e-4bd8-b06b-7b0232d854ac"],
+  "In[136]:=",ExpressionUUID->"9df6eda9-d80a-4f95-b938-d605209adf0d"],
 
 Cell[BoxData[
  RowBox[{
@@ -38901,7 +63437,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.7985965236880198`*^9, 3.798596527627768*^9}},
  CellLabel->
-  "In[1073]:=",ExpressionUUID->"6bf48941-4601-4318-9588-2805657cd25e"],
+  "In[137]:=",ExpressionUUID->"8d4f3ef0-59a5-4964-8737-a6d715aa0a60"],
 
 Cell[BoxData[
  RowBox[{
@@ -38919,10 +63455,24 @@ Cell[BoxData[
         RowBox[{"qq", ",", "2.1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{{3.798596710908485*^9, 3.7985967118078814`*^9}, {
-  3.798596850364151*^9, 3.798596886290959*^9}, {3.798765209031765*^9, 
-  3.798765209443832*^9}},
+   3.798596850364151*^9, 3.798596886290959*^9}, {3.798765209031765*^9, 
+   3.798765209443832*^9}, 3.8014713047291822`*^9},
  CellLabel->
-  "In[1074]:=",ExpressionUUID->"43dd9ec9-26f5-4bfb-b44b-b200a7b722f4"],
+  "In[138]:=",ExpressionUUID->"fb372ee2-5adf-45fc-a072-555f18bbecfd"],
+
+Cell[BoxData[
+ RowBox[{"Transpose", "[", 
+  RowBox[{"{", 
+   RowBox[{"qpints", ",", 
+    RowBox[{
+     RowBox[{"\[Sigma]f", "[", 
+      RowBox[{"f221f", ",", "q221tab", ",", "f220f", ",", "q220tab", ",", 
+       RowBox[{"1", "/", "Ar330"}]}], "]"}], "/", 
+     RowBox[{"(", 
+      RowBox[{"f330f", "-", "f220f"}], ")"}]}]}], "}"}], "]"}]], "Input",
+ CellChangeTimes->{{3.801471319655138*^9, 
+  3.801471323387454*^9}},ExpressionUUID->"e2af8cc4-a315-4732-9c20-\
+c77119a18961"],
 
 Cell[CellGroupData[{
 
@@ -39077,7 +63627,7 @@ Cell[BoxData[
    3.7988075578623857`*^9, 3.7988075583884172`*^9}, {3.798807903014657*^9, 
    3.7988079036780567`*^9}},
  CellLabel->
-  "In[1075]:=",ExpressionUUID->"07292ab0-33af-4f76-9b08-efb742e6b27b"],
+  "In[1075]:=",ExpressionUUID->"8197767f-dcc3-4315-b004-ac31f2095910"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -39114,7 +63664,7 @@ encountered.\"",2,1075,71,19648445566244506411,"Local"},
    3.79880790415145*^9, 3.799987450584072*^9},
  CellLabel->
   "During evaluation of \
-In[1075]:=",ExpressionUUID->"b9c4213a-0e7c-4799-943d-f364e7178e05"],
+In[1075]:=",ExpressionUUID->"54c6068e-c56e-443a-b285-10381a2ea9e1"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -39151,7 +63701,7 @@ encountered.\"",2,1075,72,19648445566244506411,"Local"},
    3.79880790415145*^9, 3.7999874506474857`*^9},
  CellLabel->
   "During evaluation of \
-In[1075]:=",ExpressionUUID->"ef115732-9ea8-4df9-a591-6bd4cca3c30d"],
+In[1075]:=",ExpressionUUID->"ea4da1c8-97a2-4171-bfd8-27c0dcaa7f4a"],
 
 Cell[BoxData[
  TagBox[
@@ -39785,8 +64335,9 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
                     RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
@@ -39837,8 +64388,9 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
                     0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
@@ -39886,8 +64438,9 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
                     0.06825800000000001], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
@@ -39939,8 +64492,9 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
                     0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                     None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
@@ -40000,8 +64554,9 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
                     FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                     False]], Appearance -> None, BaseStyle -> {}, 
@@ -40371,7 +64926,7 @@ p6qqm+dAefdfQ7JDgjQsB8lTUme2P4nR4H+oMoJR
    3.7987652828180037`*^9}, {3.798765440642407*^9, 3.7987654467856407`*^9}, 
    3.798807559201149*^9, 3.798807904285486*^9, 3.799987450875297*^9},
  CellLabel->
-  "Out[1075]=",ExpressionUUID->"961302d2-13d1-4375-ade9-c5a1c082a57b"]
+  "Out[1075]=",ExpressionUUID->"98d7e4af-a128-437e-ad78-e6d58c34bab3"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -40384,14 +64939,14 @@ Cell[BoxData[
  CellChangeTimes->{{3.798807908804771*^9, 3.79880792852024*^9}, {
   3.7999875060607843`*^9, 3.799987522714511*^9}},
  CellLabel->
-  "In[1078]:=",ExpressionUUID->"df6bf54d-d9ca-43d0-ab70-8833d9b66a8e"],
+  "In[1078]:=",ExpressionUUID->"a049b5ca-2db7-4e60-9b42-3390437800de"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/Resolvability_freq.\
 pdf\"\>"], "Output",
  CellChangeTimes->{
   3.7988079320378313`*^9, {3.799987511644061*^9, 3.799987523667961*^9}},
  CellLabel->
-  "Out[1078]=",ExpressionUUID->"04312f3a-d1a9-4d40-9f19-f177124215d9"]
+  "Out[1078]=",ExpressionUUID->"e8d96291-a2ec-442a-a50d-af2651b9d3ad"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -40442,7 +64997,7 @@ Cell[BoxData[
    3.798764912432824*^9, {3.798805401215663*^9, 3.798805402890616*^9}, {
    3.799987783123148*^9, 3.7999877847463627`*^9}},
  CellLabel->
-  "In[1161]:=",ExpressionUUID->"c061ac4b-7dd0-4488-981a-d9e39ad210ba"],
+  "In[1161]:=",ExpressionUUID->"881bd7c2-9b6e-4399-8d2c-aecf7d091356"],
 
 Cell[CellGroupData[{
 
@@ -40594,7 +65149,7 @@ Cell[BoxData[
   3.799988455985197*^9}, {3.799991082423862*^9, 3.7999910964702587`*^9}, {
   3.799991141693096*^9, 3.799991143268157*^9}},
  CellLabel->
-  "In[1165]:=",ExpressionUUID->"053a0694-e2aa-49a3-a5d3-0aaab3258a73"],
+  "In[1165]:=",ExpressionUUID->"1e548f61-da3c-4c1c-b692-02b8515df1a0"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -40610,7 +65165,7 @@ encountered.\"",2,1165,196,19648445566244506411,"Local"},
    3.799991096726769*^9}, 3.79999114395105*^9},
  CellLabel->
   "During evaluation of \
-In[1165]:=",ExpressionUUID->"aa85f409-b9df-4e22-aff1-85caa4af2abe"],
+In[1165]:=",ExpressionUUID->"70c56df7-9ffa-45c1-8c82-282160aad313"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -40626,7 +65181,7 @@ encountered.\"",2,1165,197,19648445566244506411,"Local"},
    3.799991096726769*^9}, 3.799991143961063*^9},
  CellLabel->
   "During evaluation of \
-In[1165]:=",ExpressionUUID->"d4222266-d98f-4733-89ca-ec5a4aa65d67"],
+In[1165]:=",ExpressionUUID->"7070e695-c056-43fd-8e39-f9ef342f2c8f"],
 
 Cell[BoxData[
  TagBox[
@@ -41264,8 +65819,9 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
                     RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
@@ -41316,8 +65872,9 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
                     0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
@@ -41365,8 +65922,9 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
                     0.06825800000000001], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
@@ -41418,8 +65976,9 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
                     0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                     None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
@@ -41479,8 +66038,9 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
                     FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                     False]], Appearance -> None, BaseStyle -> {}, 
@@ -41837,7 +66397,7 @@ GfUHrDgt+HloBrUPu7k6syJ2lSf7H0x/FJE=
    3.799991002536338*^9, {3.7999910845549173`*^9, 3.799991096859562*^9}, 
    3.799991144081962*^9},
  CellLabel->
-  "Out[1165]=",ExpressionUUID->"5fa4fc7a-3c0f-4e5c-8f1e-d27b1d9ea2ed"]
+  "Out[1165]=",ExpressionUUID->"07ea7daa-bb5c-4b01-aa79-86ef178f81bd"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -41851,7 +66411,7 @@ Cell[BoxData[
   3.7999875060607843`*^9, 3.799987522714511*^9}, {3.799988446858865*^9, 
   3.799988447192471*^9}},
  CellLabel->
-  "In[1105]:=",ExpressionUUID->"18eb66fe-9c48-41a0-9250-b1ca807dfaa8"],
+  "In[1105]:=",ExpressionUUID->"86d48f43-fee8-48a4-8b5b-56c1ca6c67bb"],
 
 Cell[BoxData["\<\"/Users/xisco/git/rdstackingproject/plots/Resolvability_tau.\
 pdf\"\>"], "Output",
@@ -41859,7 +66419,7 @@ pdf\"\>"], "Output",
   3.7988079320378313`*^9, {3.799987511644061*^9, 3.799987523667961*^9}, 
    3.799988459254353*^9},
  CellLabel->
-  "Out[1105]=",ExpressionUUID->"bdc71ec0-94c8-4813-b13b-c7dfcf5e18c6"]
+  "Out[1105]=",ExpressionUUID->"b98fb660-e31c-4cda-9b61-f2b4f533dc20"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -42025,7 +66585,7 @@ LO1B9K5TG5xB9IW37zxB9MNL931B9GVbvkAQvTlvSwSILvXsSQTRXaEFaSBa
 OMk5E0QDAHoYvm4=
   "],
  CellLabel->
-  "In[1135]:=",ExpressionUUID->"e64cc31c-ea3f-44b3-adef-155fe217d554"],
+  "In[1135]:=",ExpressionUUID->"0bad28f4-c483-4c8d-b296-d0c97102f065"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -42040,7 +66600,7 @@ encountered.\"",2,1135,165,19648445566244506411,"Local"},
    3.799989039154203*^9, 3.799989066904451*^9}},
  CellLabel->
   "During evaluation of \
-In[1135]:=",ExpressionUUID->"543ad54a-5889-49a4-98c1-da775ea204ee"],
+In[1135]:=",ExpressionUUID->"13b8f365-5df7-4d9f-8d63-7dca10fa78ef"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -42055,7 +66615,7 @@ encountered.\"",2,1135,166,19648445566244506411,"Local"},
    3.799989039154203*^9, 3.799989066917018*^9}},
  CellLabel->
   "During evaluation of \
-In[1135]:=",ExpressionUUID->"c0641c66-2419-453b-9ea9-d3c0cc81db60"],
+In[1135]:=",ExpressionUUID->"c59cbab4-bf2c-4879-ace0-64c4d5f2cbed"],
 
 Cell[BoxData[
  TagBox[
@@ -42661,8 +67221,9 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                     RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], 
@@ -42713,8 +67274,9 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                     0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                     FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
@@ -42762,8 +67324,9 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                     0.06825800000000001], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
@@ -42815,8 +67378,9 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                     0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                     None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"RGBColor", "[", 
                     RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
@@ -42876,8 +67440,9 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                     FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                     PlotRangePadding -> None, ImageSize -> 
                     Dynamic[{
-                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
-                    AbsoluteCurrentValue[Magnification]}]], 
+                    Automatic, 
+                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
+                    Magnification])}]], 
                     StyleBox[
                     RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                     False]], Appearance -> None, BaseStyle -> {}, 
@@ -42903,8 +67468,8 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
                  "Bold", ",", "13"}], "]"}]}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
              RowBox[{"{", 
-               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], Scaled[
-     {0.53, 1.0001}], ImageScaled[{0.5, 0}],
+               RowBox[{"\"Column\"", ",", "4"}], "}"}]}]}], "]"}]& )], 
+     Scaled[{0.53, 1.0001}], ImageScaled[{0.5, 0}],
      BaseStyle->{FontSize -> Larger},
      FormatType->StandardForm]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
@@ -43226,13 +67791,13 @@ taeYsh/zdbtU+d9+ynOYYTA0MLPShf0P0ggXDg==
    3.799988873142033*^9}, {3.799988934258387*^9, 3.799989005029158*^9}, {
    3.7999890393273697`*^9, 3.7999890670127687`*^9}},
  CellLabel->
-  "Out[1135]=",ExpressionUUID->"cf7ed30e-cfaf-4e62-9d13-8e574d7ea64f"]
+  "Out[1135]=",ExpressionUUID->"cb71628c-2215-47d2-a2a9-5fd6a96c6818"]
 }, Open  ]]
 }, Open  ]]
 }, Open  ]]
 },
 WindowSize->{808, 836},
-WindowMargins->{{Automatic, 122}, {48, Automatic}},
+WindowMargins->{{Automatic, 99}, {-58, Automatic}},
 FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
 StyleDefinitions->"Default.nb"
 ]
@@ -43249,580 +67814,836 @@ CellTagsIndex->{}
 Notebook[{
 Cell[CellGroupData[{
 Cell[580, 22, 224, 4, 98, "Title",ExpressionUUID->"ebae987a-97f3-43d6-8e8d-db69a6f7c313"],
-Cell[807, 28, 245, 4, 30, "Input",ExpressionUUID->"772fb280-3637-4d67-9a02-55c44dc8165e"],
-Cell[1055, 34, 308, 7, 35, "Text",ExpressionUUID->"dd455aef-3c07-4023-b8df-73ab29f25044"],
+Cell[807, 28, 250, 5, 30, "Input",ExpressionUUID->"772fb280-3637-4d67-9a02-55c44dc8165e"],
+Cell[1060, 35, 308, 7, 35, "Text",ExpressionUUID->"dd455aef-3c07-4023-b8df-73ab29f25044"],
 Cell[CellGroupData[{
-Cell[1388, 45, 227, 4, 67, "Section",ExpressionUUID->"bc13a3a4-d5ed-41f3-9604-9a0dded73c7f"],
+Cell[1393, 46, 227, 4, 67, "Section",ExpressionUUID->"bc13a3a4-d5ed-41f3-9604-9a0dded73c7f"],
 Cell[CellGroupData[{
-Cell[1640, 53, 162, 3, 54, "Subsection",ExpressionUUID->"f166d715-d1de-48fb-acd4-374a78be5341"],
-Cell[CellGroupData[{
-Cell[1827, 60, 304, 6, 72, "Code",ExpressionUUID->"56877143-cdc7-4e73-bf67-00d7581be25e"],
-Cell[2134, 68, 949, 18, 70, "Message",ExpressionUUID->"86621785-af15-44ca-bf0a-9554feb42ec5"],
-Cell[3086, 88, 673, 14, 70, "Message",ExpressionUUID->"b7f16fb7-bd99-4b3d-a2a1-2c8891f449f5"]
-}, Open  ]]
+Cell[1645, 54, 185, 3, 54, "Subsection",ExpressionUUID->"f166d715-d1de-48fb-acd4-374a78be5341"],
+Cell[1833, 59, 304, 6, 72, "Code",ExpressionUUID->"56877143-cdc7-4e73-bf67-00d7581be25e"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[3808, 108, 187, 3, 38, "Subsection",ExpressionUUID->"831d52fd-1e26-42a5-a850-15ae9b45528e"],
+Cell[2174, 70, 187, 3, 38, "Subsection",ExpressionUUID->"831d52fd-1e26-42a5-a850-15ae9b45528e"],
 Cell[CellGroupData[{
-Cell[4020, 115, 1469, 31, 224, "Code",ExpressionUUID->"374646f4-59ac-4219-a522-031053a7cccf"],
-Cell[5492, 148, 793, 11, 34, "Output",ExpressionUUID->"82b25bbf-e1ea-47ff-b776-72bffc00bc84"],
-Cell[6288, 161, 809, 11, 34, "Output",ExpressionUUID->"b2aa8394-8bfc-4edf-8c7d-6d40933c309c"],
-Cell[7100, 174, 811, 11, 34, "Output",ExpressionUUID->"19992387-55e4-4e6f-93a4-57ffb9548d12"],
-Cell[7914, 187, 815, 11, 34, "Output",ExpressionUUID->"a4f63cdc-3cfc-4fda-95bd-71b20b9e467d"],
-Cell[8732, 200, 773, 11, 34, "Output",ExpressionUUID->"1604a5f1-7809-4da2-a4bc-05ec140bc295"]
+Cell[2386, 77, 1611, 34, 224, "Code",ExpressionUUID->"374646f4-59ac-4219-a522-031053a7cccf"],
+Cell[4000, 113, 1035, 15, 70, "Output",ExpressionUUID->"1eacacc8-0164-4c78-9cb9-374e2b9076b9"],
+Cell[5038, 130, 1058, 15, 70, "Output",ExpressionUUID->"72848d77-e528-49ff-8d92-fc482f47e276"],
+Cell[6099, 147, 1060, 15, 70, "Output",ExpressionUUID->"13ee182a-9b46-4ed2-a394-5eb1b6bf4b72"],
+Cell[7162, 164, 1057, 15, 70, "Output",ExpressionUUID->"1155505d-5059-492c-b24a-2d19e18c87a1"],
+Cell[8222, 181, 1013, 15, 70, "Output",ExpressionUUID->"c6fc8c77-5b58-4eea-8137-2d04e2d218a2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[9542, 216, 1108, 26, 148, "Code",ExpressionUUID->"a0324010-844b-4a8c-9339-aff634cca7ed"],
-Cell[10653, 244, 1014, 16, 34, "Output",ExpressionUUID->"6bedc708-6bbb-4c99-b9ff-89b28ac5b443"],
-Cell[11670, 262, 27047, 713, 34, "Output",ExpressionUUID->"aeaa5baf-2d53-4faa-9a7a-1ee66abe1d06"]
+Cell[9272, 201, 1109, 26, 148, "Code",ExpressionUUID->"a0324010-844b-4a8c-9339-aff634cca7ed"],
+Cell[10384, 229, 1176, 18, 70, "Output",ExpressionUUID->"e8c475cb-bfce-467c-abc5-0b43e0d22e1d"],
+Cell[11563, 249, 27207, 715, 70, "Output",ExpressionUUID->"e5a240ff-7c75-42dd-91a8-f931ff107b5e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[38754, 980, 976, 23, 72, "Code",ExpressionUUID->"160a98f6-db7f-41d8-9082-7c465d32638e"],
-Cell[39733, 1005, 2666, 52, 530, "Output",ExpressionUUID->"3323638b-b60e-4b31-964d-ee00fd01520d"]
+Cell[38807, 969, 1025, 24, 72, "Code",ExpressionUUID->"160a98f6-db7f-41d8-9082-7c465d32638e"],
+Cell[39835, 995, 3039, 57, 70, "Output",ExpressionUUID->"621e8bd3-c259-4c2b-a2ed-c701c2ca504f"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[42448, 1063, 157, 3, 38, "Subsection",ExpressionUUID->"3202dbfe-b87c-4329-93bf-a95423d0778e"],
-Cell[42608, 1068, 317, 6, 30, "Input",ExpressionUUID->"7af738e7-6341-43dc-9500-b0e22c131bd5"],
+Cell[42923, 1058, 157, 3, 38, "Subsection",ExpressionUUID->"3202dbfe-b87c-4329-93bf-a95423d0778e"],
+Cell[43083, 1063, 317, 6, 30, "Input",ExpressionUUID->"7af738e7-6341-43dc-9500-b0e22c131bd5"],
 Cell[CellGroupData[{
-Cell[42950, 1078, 410, 11, 30, "Input",ExpressionUUID->"d9b9c755-a8f2-48fd-bbb6-6feae0d27e6c"],
-Cell[43363, 1091, 403, 11, 34, "Output",ExpressionUUID->"3eb6bf31-8069-4ae3-a808-208e2c25ec06"]
+Cell[43425, 1073, 410, 11, 30, "Input",ExpressionUUID->"d9b9c755-a8f2-48fd-bbb6-6feae0d27e6c"],
+Cell[43838, 1086, 566, 13, 70, "Output",ExpressionUUID->"e7864f86-b4ef-4561-b725-e99da15a995a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[43803, 1107, 901, 24, 30, "Input",ExpressionUUID->"768daf9a-1cd6-49d3-a4c8-f7577bcb4bda"],
-Cell[44707, 1133, 991, 25, 34, "Output",ExpressionUUID->"9abd8b3a-d4b7-4218-88f4-636105079151"]
+Cell[44441, 1104, 896, 23, 30, "Input",ExpressionUUID->"768daf9a-1cd6-49d3-a4c8-f7577bcb4bda"],
+Cell[45340, 1129, 1156, 27, 70, "Output",ExpressionUUID->"1e1fbe87-2149-41e4-a47c-a2f545ee1ebb"]
 }, Open  ]],
-Cell[45713, 1161, 266, 5, 30, "Input",ExpressionUUID->"16813d52-4a08-4c3b-b4d9-cf6a7c404040"],
+Cell[46511, 1159, 266, 5, 30, "Input",ExpressionUUID->"16813d52-4a08-4c3b-b4d9-cf6a7c404040"],
 Cell[CellGroupData[{
-Cell[46004, 1170, 1332, 33, 30, "Input",ExpressionUUID->"79b3f4ac-23b5-4bd9-a14e-6a44185c101d"],
-Cell[47339, 1205, 1161, 20, 77, "Output",ExpressionUUID->"78bb5154-5944-4294-ae86-bcd4caf38f16"]
+Cell[46802, 1168, 1468, 35, 52, "Input",ExpressionUUID->"79b3f4ac-23b5-4bd9-a14e-6a44185c101d"],
+Cell[48273, 1205, 1322, 21, 70, "Output",ExpressionUUID->"2974cf20-fd07-44a8-b373-5aec7dcbb2fc"]
 }, Open  ]],
-Cell[48515, 1228, 253, 4, 30, "Input",ExpressionUUID->"4bff1002-cc80-497d-a78f-63685f2d3e92"],
-Cell[48771, 1234, 380, 10, 30, "Input",ExpressionUUID->"b0e62724-0116-4f6c-98de-0904f8d188c7"]
-}, Closed]]
+Cell[49610, 1229, 253, 4, 30, "Input",ExpressionUUID->"4bff1002-cc80-497d-a78f-63685f2d3e92"],
+Cell[49866, 1235, 375, 9, 30, "Input",ExpressionUUID->"b0e62724-0116-4f6c-98de-0904f8d188c7"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[50278, 1249, 159, 3, 38, "Subsection",ExpressionUUID->"34a01b22-3729-4042-ad55-878d16b23e89"],
+Cell[CellGroupData[{
+Cell[50462, 1256, 2946, 61, 110, "Code",ExpressionUUID->"f5f14523-f7df-4577-9dc9-fdb8a828c10b"],
+Cell[CellGroupData[{
+Cell[53433, 1321, 874, 15, 44, "Print",ExpressionUUID->"457b64d8-90f9-4155-8b95-a8f19aeb968d"],
+Cell[54310, 1338, 694, 12, 24, "Print",ExpressionUUID->"94c8d55b-541e-4dbb-866a-24cd73a1b1e0"],
+Cell[55007, 1352, 694, 12, 24, "Print",ExpressionUUID->"3ac00b74-dd18-475e-b867-4b4978ea222b"],
+Cell[55704, 1366, 694, 12, 24, "Print",ExpressionUUID->"15e9dec7-3c67-4c2c-b096-f1a0639c29ae"],
+Cell[56401, 1380, 876, 15, 44, "Print",ExpressionUUID->"fdf8d52c-774e-4a5f-b72a-83df8e14c3de"],
+Cell[57280, 1397, 694, 12, 24, "Print",ExpressionUUID->"14e0620f-15c3-4080-bab3-12f35d6f126a"],
+Cell[57977, 1411, 693, 12, 24, "Print",ExpressionUUID->"80307c23-cc09-4bc8-a584-f9e32da1a779"],
+Cell[58673, 1425, 696, 12, 24, "Print",ExpressionUUID->"b859d15a-4916-424c-bec9-1a93b8298b98"]
+}, Open  ]],
+Cell[59384, 1440, 3799, 67, 566, "Output",ExpressionUUID->"f63f4bde-233f-406f-bbd3-638e01cca151"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[63220, 1512, 4089, 96, 129, "Code",ExpressionUUID->"d08787dc-bfc9-44b3-a2ef-fd911bf2ac0d"],
+Cell[67312, 1610, 9946, 151, 308, "Output",ExpressionUUID->"968d5f4b-432d-49a4-9e49-1874567390ad"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[49200, 1250, 156, 3, 67, "Section",ExpressionUUID->"979c8ab4-52f4-488b-95f4-e9c43f4624ef"],
+Cell[77295, 1766, 7314, 216, 509, "Code",ExpressionUUID->"971d56e2-1989-4b9f-81c2-1ed99f8d84fd"],
 Cell[CellGroupData[{
-Cell[49381, 1257, 2437, 47, 91, "Code",ExpressionUUID->"b9a8334d-da4b-48b6-87d7-d26171f572c6"],
+Cell[84634, 1986, 7522, 109, 24, "Print",ExpressionUUID->"85aa1955-9d09-4f93-a46e-1a741f655287"],
+Cell[92159, 2097, 7519, 109, 24, "Print",ExpressionUUID->"053ebf3d-7077-4a72-b97f-f849f3634096"],
+Cell[99681, 2208, 8770, 132, 44, "Print",ExpressionUUID->"c0355e0e-59bf-4944-9d17-92af114d0db0"],
+Cell[108454, 2342, 9053, 136, 44, "Print",ExpressionUUID->"8d6ca9fc-d92d-4e02-aea4-d8aa3a348fca"],
+Cell[117510, 2480, 9050, 135, 44, "Print",ExpressionUUID->"e78832fe-61e9-4e3f-919e-178ca3ecb5f1"],
+Cell[126563, 2617, 9072, 139, 49, "Print",ExpressionUUID->"7f734f68-fd7e-4fba-a5ee-621a12b922dd"],
+Cell[135638, 2758, 8988, 138, 49, "Print",ExpressionUUID->"1fa9a108-8c6a-4cad-8adf-dee394ac8940"],
+Cell[144629, 2898, 9079, 136, 24, "Print",ExpressionUUID->"c8bc9b2c-0ad6-4cf1-895a-4ec6136a1b58"],
+Cell[153711, 3036, 9152, 136, 44, "Print",ExpressionUUID->"6674db2c-dad8-4d78-8d20-80e0de422be4"],
+Cell[162866, 3174, 8842, 130, 44, "Print",ExpressionUUID->"a8dc68ab-7e08-47e7-b68f-28c3f3063512"],
+Cell[171711, 3306, 8823, 130, 44, "Print",ExpressionUUID->"a241e5a9-b2b2-4a90-9570-3c3ea8ecc240"],
+Cell[180537, 3438, 13260, 250, 159, "Print",ExpressionUUID->"2eec212d-73d9-4b67-8dc5-c2aea3989b13"]
+}, Open  ]]
+}, Open  ]],
+Cell[193824, 3692, 1644, 30, 52, "Code",ExpressionUUID->"cfbdedc9-084e-4c07-8b84-826e305f130c"],
 Cell[CellGroupData[{
-Cell[51843, 1308, 652, 11, 44, "Print",ExpressionUUID->"9b920fcb-2c50-4441-a20c-c882319d7e46"],
-Cell[52498, 1321, 472, 8, 24, "Print",ExpressionUUID->"de6944d0-5cfe-42bf-8936-bdd49d9194f0"],
-Cell[52973, 1331, 470, 8, 24, "Print",ExpressionUUID->"2f1ce847-e339-4877-a348-21882f709daf"],
-Cell[53446, 1341, 470, 8, 24, "Print",ExpressionUUID->"2fecaf32-ce44-44df-9c7b-56422a6dba71"]
+Cell[195493, 3726, 399, 10, 52, "Code",ExpressionUUID->"3e279ce1-ceee-4fc8-9d83-aa5999ebffa7"],
+Cell[195895, 3738, 1911, 34, 56, "Output",ExpressionUUID->"42f01b18-42bb-4b63-beb4-8132ef74c9a7"]
 }, Open  ]],
-Cell[53931, 1352, 3122, 55, 422, "Output",ExpressionUUID->"4b78bc20-ac63-4796-a336-d925c09ab128"]
+Cell[CellGroupData[{
+Cell[197843, 3777, 1529, 44, 91, "Code",ExpressionUUID->"41e96ae7-76f5-4d4e-8ba8-7255afd29edc"],
+Cell[199375, 3823, 1232, 21, 56, "Output",ExpressionUUID->"6d865615-c3e3-4673-878a-38456ff410ac"],
+Cell[200610, 3846, 1232, 21, 56, "Output",ExpressionUUID->"b3347f29-08cf-4cc8-bd3e-9e2aa9ceab7a"],
+Cell[201845, 3869, 1234, 21, 56, "Output",ExpressionUUID->"294843f7-e1eb-45cb-88ea-8c057c4fdfcb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[57090, 1412, 4092, 97, 129, "Code",ExpressionUUID->"87a21a2c-5348-43ca-ade2-29d6cf95f2c1"],
-Cell[61185, 1511, 9121, 139, 245, "Output",ExpressionUUID->"5645a3d3-4ef8-4923-b21b-4b8585cf6521"]
+Cell[203116, 3895, 4229, 104, 102, "Input",ExpressionUUID->"b250584f-77c8-4516-8110-8fd7749f89e5"],
+Cell[207348, 4001, 27365, 619, 414, "Output",ExpressionUUID->"02119c84-7f98-44c1-afa7-dbcaee7abc56"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[70343, 1655, 7314, 216, 509, "Code",ExpressionUUID->"a8e448eb-0992-4445-93e8-e9e4a1c952df"],
-Cell[CellGroupData[{
-Cell[77682, 1875, 7305, 106, 24, "Print",ExpressionUUID->"cf48e438-600a-496a-a71e-1af31c7efdf8"],
-Cell[84990, 1983, 7307, 106, 24, "Print",ExpressionUUID->"5be4f74c-346c-4531-b860-0498e35b2d30"],
-Cell[92300, 2091, 8213, 123, 44, "Print",ExpressionUUID->"a6830f1f-6c8f-4046-9c91-738e0d8d0e6f"],
-Cell[100516, 2216, 8435, 126, 24, "Print",ExpressionUUID->"ae74ba09-676f-4416-8f9a-34bed6219674"],
-Cell[108954, 2344, 8431, 126, 24, "Print",ExpressionUUID->"b5fc516a-7491-49ea-967b-4819e58fe8ef"],
-Cell[117388, 2472, 8403, 125, 49, "Print",ExpressionUUID->"ee5f05cc-8d1a-458f-819c-9dbe5b7f78ad"],
-Cell[125794, 2599, 8313, 125, 49, "Print",ExpressionUUID->"5a2baddc-ae89-4ca0-b71a-00cbb892a138"],
-Cell[134110, 2726, 8443, 126, 24, "Print",ExpressionUUID->"0f26f80b-4cb0-4a10-8111-94f108ffe945"],
-Cell[142556, 2854, 8505, 127, 24, "Print",ExpressionUUID->"50c15be9-debb-49de-8f14-175f9ab156dd"],
-Cell[151064, 2983, 8260, 122, 24, "Print",ExpressionUUID->"aa6b7b20-a5da-4320-a88f-62d432d6dec4"],
-Cell[159327, 3107, 8259, 122, 24, "Print",ExpressionUUID->"814b104d-494c-42fa-92aa-bfd2186ff832"],
-Cell[167589, 3231, 11529, 213, 115, "Print",ExpressionUUID->"70555118-6129-408e-be27-9e31a6baca56"]
+Cell[234750, 4625, 380, 9, 30, "Input",ExpressionUUID->"548fbc36-d6a4-4511-8d36-108f3f760c0e"],
+Cell[235133, 4636, 1128, 17, 34, "Output",ExpressionUUID->"0682e058-af62-4ca3-8589-83934c2db2b3"]
+}, Open  ]]
 }, Open  ]]
 }, Open  ]],
-Cell[179145, 3448, 1640, 29, 52, "Code",ExpressionUUID->"d9beedf2-ab81-4ad1-859c-abda1eecd2e4"],
 Cell[CellGroupData[{
-Cell[180810, 3481, 395, 9, 52, "Code",ExpressionUUID->"18e8dac7-cbdf-4769-b57e-a4ff78292b1e"],
-Cell[181208, 3492, 1623, 29, 34, "Output",ExpressionUUID->"f462f821-4212-4a12-ab51-5e3ceb106570"]
+Cell[236322, 4660, 159, 3, 67, "Section",ExpressionUUID->"66d535a6-95fa-4cd2-9f23-45dc8600b5e6"],
+Cell[236484, 4665, 225, 5, 30, "Input",ExpressionUUID->"b4fab541-fff2-4cf8-8e9f-0c4ed06a2bfb"],
+Cell[236712, 4672, 415, 7, 30, "Input",ExpressionUUID->"66bc501b-d793-4896-8a82-5f8be2b57e8a"],
+Cell[237130, 4681, 323, 6, 30, "Input",ExpressionUUID->"131f76b2-1a17-4f9d-8338-e72ebfa8e99f"],
+Cell[CellGroupData[{
+Cell[237478, 4691, 633, 17, 48, "Input",ExpressionUUID->"145ea971-74fa-4487-87d9-ea611b7cbc00"],
+Cell[238114, 4710, 638, 11, 34, "Output",ExpressionUUID->"06dfd6c1-891c-43d5-a6df-d3840c74f1bc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[238789, 4726, 771, 11, 45, "Subsubsection",ExpressionUUID->"ecf75cca-30cd-43d4-9be0-cffb842f80ee"],
+Cell[239563, 4739, 153, 4, 30, "Input",ExpressionUUID->"63748991-676f-4b51-9513-6e6301f33875"],
+Cell[CellGroupData[{
+Cell[239741, 4747, 1205, 25, 52, "Code",ExpressionUUID->"a78dffb7-8999-46bc-a665-9ebaf6008f9a"],
+Cell[240949, 4774, 3400, 61, 77, "Output",ExpressionUUID->"b9c66922-597f-401e-a8f2-7926a173abea"]
+}, Open  ]],
+Cell[244364, 4838, 5882, 126, 148, "Code",ExpressionUUID->"c0cbb8b7-6099-45b6-b37d-97cf025306da"],
+Cell[250249, 4966, 3407, 88, 94, "Input",ExpressionUUID->"addec5cc-ddd1-4a92-b04c-4587a0e3e468"],
+Cell[CellGroupData[{
+Cell[253681, 5058, 469, 9, 30, "Input",ExpressionUUID->"ac7b4b3d-3241-4604-8072-e0314060c171"],
+Cell[254153, 5069, 4283, 72, 77, "Output",ExpressionUUID->"80f212ea-a8e6-43dd-9cc6-7e86f33abe67"]
+}, Open  ]],
+Cell[258451, 5144, 1368, 35, 30, "Input",ExpressionUUID->"02a89714-1644-4274-acab-512087f8e244"],
+Cell[CellGroupData[{
+Cell[259844, 5183, 1616, 42, 52, "Input",ExpressionUUID->"eebace13-a0ae-4a58-bbc6-405078bdf309"],
+Cell[261463, 5227, 43971, 738, 376, "Output",ExpressionUUID->"cd05c256-492f-4862-85ca-436a5b043270"]
+}, Open  ]],
+Cell[305449, 5968, 274, 6, 30, "Input",ExpressionUUID->"7340534a-6a82-4a91-8c8e-e7d8fb8419be"],
+Cell[305726, 5976, 4491, 83, 157, "Input",ExpressionUUID->"bcc6e4f7-6497-452e-9e9b-519570c159d0"],
+Cell[310220, 6061, 5030, 92, 178, "Input",ExpressionUUID->"58d8890e-b628-4b0c-b1f6-9f494bb44289"],
+Cell[CellGroupData[{
+Cell[315275, 6157, 1517, 37, 52, "Input",ExpressionUUID->"b230cc14-783d-4228-a83f-d49d063fc887"],
+Cell[316795, 6196, 10850, 322, 70, "Output",ExpressionUUID->"80663a8e-be50-40b6-ab8b-0f3bede0bdc8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[327682, 6523, 2118, 59, 52, "Input",ExpressionUUID->"0a14146b-a4cf-48a8-9c7b-82445aca3c4d"],
+Cell[329803, 6584, 14460, 357, 70, "Output",ExpressionUUID->"2e9cd689-c6d2-4038-9d72-3d66b62c7aa7"]
+}, Open  ]],
+Cell[344278, 6944, 734, 21, 30, "Input",ExpressionUUID->"0f8180e8-276b-471f-9f12-7c6e2d2b9820"],
+Cell[CellGroupData[{
+Cell[345037, 6969, 1933, 42, 140, "Input",ExpressionUUID->"810dbad1-6ca1-4e80-a5e1-a36c24432ada"],
+Cell[346973, 7013, 454, 10, 70, "Output",ExpressionUUID->"7b793b44-bd04-4e61-be08-558d3ed43113"],
+Cell[347430, 7025, 1117, 26, 70, "Output",ExpressionUUID->"cf61ad0d-c246-4047-a557-4cebc50dbe4e"],
+Cell[348550, 7053, 1117, 26, 70, "Output",ExpressionUUID->"729a9872-c892-4005-8333-c771696ea7f6"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[349704, 7084, 2500, 60, 140, "Input",ExpressionUUID->"75a171bc-2230-4a85-9852-e197e2235650"],
+Cell[352207, 7146, 849, 16, 70, "Output",ExpressionUUID->"1e92a2b2-1030-4901-aa10-d1a5e566e74d"],
+Cell[353059, 7164, 1521, 32, 70, "Output",ExpressionUUID->"b9244653-2042-4731-9118-ed594cccd901"],
+Cell[354583, 7198, 1521, 32, 70, "Output",ExpressionUUID->"3429bcd7-d40c-4338-ac8f-ad75bc471ac1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[182868, 3526, 1525, 43, 91, "Code",ExpressionUUID->"f10f7400-c6d3-4720-9f4c-8341bdb2d43e"],
-Cell[184396, 3571, 826, 14, 34, "Output",ExpressionUUID->"2c6e4ee3-1a8a-44ea-91e2-8fd57aa7e65d"],
-Cell[185225, 3587, 825, 14, 34, "Output",ExpressionUUID->"3dfd10d8-2b58-45e4-acb3-28e7e8f95a34"],
-Cell[186053, 3603, 826, 14, 34, "Output",ExpressionUUID->"0d9a2482-a3c5-4108-9c08-2665ecce47af"]
+Cell[356141, 7235, 2572, 61, 140, "Input",ExpressionUUID->"2c52eaa7-17cf-4b27-955b-85489ada5b79"],
+Cell[358716, 7298, 799, 15, 70, "Output",ExpressionUUID->"299e85e6-9334-40ce-9d19-b2fd518c28a7"],
+Cell[359518, 7315, 1468, 31, 70, "Output",ExpressionUUID->"ba6e3f55-7da3-4382-9aa3-78e35b58c70f"],
+Cell[360989, 7348, 1468, 31, 70, "Output",ExpressionUUID->"6f89fad0-2896-4ef9-8c2a-08080c600cc6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[186916, 3622, 4225, 103, 102, "Input",ExpressionUUID->"6901138a-123c-4a9a-a17e-5dc69e534fa0"],
-Cell[191144, 3727, 26876, 608, 414, "Output",ExpressionUUID->"65f155e4-0764-4c30-a47f-d83e388b617b"]
+Cell[362494, 7384, 1976, 47, 73, "Input",ExpressionUUID->"e0cca4f6-085b-4875-b404-acfb81334ea6"],
+Cell[364473, 7433, 53180, 1112, 70, "Output",ExpressionUUID->"08215bd3-e6db-4a73-9232-4d0de0981b53"]
 }, Open  ]],
+Cell[417668, 8548, 450, 8, 30, "Input",ExpressionUUID->"34e23754-e6ba-478a-9518-52a0a20acdc0"],
+Cell[418121, 8558, 829, 20, 30, "Input",ExpressionUUID->"605ca4e2-a88a-435e-bd4c-35e4ff5c2db8"],
+Cell[418953, 8580, 1283, 39, 52, "Input",ExpressionUUID->"a3b4638a-b252-4854-bcc5-57f13a8a2040"],
+Cell[420239, 8621, 2678, 80, 94, "Input",ExpressionUUID->"ef2a9d60-b56a-45c3-8f1e-9c9e808adf25"],
+Cell[422920, 8703, 1845, 53, 84, "Input",ExpressionUUID->"966befb4-6b1b-43a8-913f-38b0276fd80b"],
+Cell[424768, 8758, 1962, 56, 84, "Input",ExpressionUUID->"1e3cea1b-7eb5-498a-a82b-bb3dbe195961"],
+Cell[426733, 8816, 2011, 56, 84, "Input",ExpressionUUID->"c7a7bc6b-e5f9-47f1-bd84-19c04226c4ec"],
 Cell[CellGroupData[{
-Cell[218057, 4340, 376, 8, 30, "Input",ExpressionUUID->"4359d45f-993a-4ef7-9dd4-0d7b3cd77a0c"],
-Cell[218436, 4350, 1008, 15, 34, "Output",ExpressionUUID->"d26436ee-d601-4f50-9e69-f1d8b736f9b8"]
+Cell[428769, 8876, 2137, 48, 136, "Input",ExpressionUUID->"5ffb47a3-46d0-40e7-bcfd-5f7fab11f3f7"],
+Cell[430909, 8926, 2896, 56, 70, "Output",ExpressionUUID->"13ab1f55-2590-44ca-84d8-7ba8aec5a44f"],
+Cell[433808, 8984, 1674, 25, 70, "Output",ExpressionUUID->"87ac42fa-b8ff-4171-9e0f-979af8f75edc"],
+Cell[435485, 9011, 3133, 61, 70, "Output",ExpressionUUID->"a9fa8e4e-e0fe-4573-a194-87d0d8489a5b"],
+Cell[438621, 9074, 3134, 61, 93, "Output",ExpressionUUID->"3b102d38-c034-4bc3-bdb3-84cd22bc02c0"],
+Cell[441758, 9137, 3133, 61, 93, "Output",ExpressionUUID->"2dc59bf2-c47e-4d07-a457-da9dd6108025"],
+Cell[444894, 9200, 3133, 61, 93, "Output",ExpressionUUID->"ae25fd4b-b2e3-4980-b281-848f65983aed"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[448064, 9266, 1415, 33, 94, "Input",ExpressionUUID->"0ca4e1a3-0b45-4f90-9c56-cf5f7bcfa867"],
+Cell[449482, 9301, 1972, 44, 64, "Output",ExpressionUUID->"68d693a0-1e7c-4ee8-bd39-b80836881ad8"],
+Cell[451457, 9347, 771, 14, 54, "Output",ExpressionUUID->"c7dfc5b7-4488-48bd-88e6-249b482df7ef"],
+Cell[452231, 9363, 2242, 50, 93, "Output",ExpressionUUID->"8f3529bf-9a7b-411d-995d-3f37cb675b83"],
+Cell[454476, 9415, 2242, 50, 93, "Output",ExpressionUUID->"0f7bca76-37c4-4e2b-a25e-6f5b34930d44"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[456755, 9470, 1466, 34, 94, "Input",ExpressionUUID->"3e3902f4-f766-4906-b8e3-826ca883e0e5"],
+Cell[458224, 9506, 1939, 44, 64, "Output",ExpressionUUID->"2c6f3740-5bf1-48fe-a3d0-735d9355c4d3"],
+Cell[460166, 9552, 738, 13, 54, "Output",ExpressionUUID->"e1b4f301-15df-4b69-9cb4-4a64e83c5622"],
+Cell[460907, 9567, 2200, 49, 93, "Output",ExpressionUUID->"76419d24-efc6-487a-93df-a2625c70a7b4"],
+Cell[463110, 9618, 2202, 49, 93, "Output",ExpressionUUID->"57987c3b-0377-46fa-958c-dbcf2ca989fb"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[465349, 9672, 1234, 27, 30, "Input",ExpressionUUID->"8db671d1-d722-467e-be39-8dd0f3c10927"],
+Cell[466586, 9701, 17882, 370, 247, "Output",ExpressionUUID->"d1dbe161-260d-438e-819f-67dddf0459e4"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[219493, 4371, 159, 3, 53, "Section",ExpressionUUID->"66d535a6-95fa-4cd2-9f23-45dc8600b5e6"],
-Cell[219655, 4376, 225, 5, 30, "Input",ExpressionUUID->"b4fab541-fff2-4cf8-8e9f-0c4ed06a2bfb"],
-Cell[219883, 4383, 415, 7, 30, "Input",ExpressionUUID->"66bc501b-d793-4896-8a82-5f8be2b57e8a"],
-Cell[220301, 4392, 327, 7, 30, "Input",ExpressionUUID->"131f76b2-1a17-4f9d-8338-e72ebfa8e99f"],
+Cell[484517, 10077, 821, 12, 37, "Subsubsection",ExpressionUUID->"9515e4e7-dc31-4520-930f-0bb9c1af754b"],
+Cell[485341, 10091, 835, 14, 30, "Input",ExpressionUUID->"362760d3-c755-42fc-84c6-343c0bce7cd5"],
+Cell[486179, 10107, 5813, 125, 167, "Code",ExpressionUUID->"fa12cada-64b8-46ea-b882-cd5e5d95417a"],
+Cell[491995, 10234, 3081, 81, 73, "Input",ExpressionUUID->"c62a227c-abd4-4122-97de-4da5438b5817"],
+Cell[CellGroupData[{
+Cell[495101, 10319, 420, 8, 30, "Input",ExpressionUUID->"fda350ab-85a4-453e-b8f1-65ebb10f4a57"],
+Cell[495524, 10329, 4314, 73, 77, "Output",ExpressionUUID->"fd7293a9-d4cf-4d17-a980-3756644055a5"]
+}, Open  ]],
+Cell[499853, 10405, 1368, 35, 30, "Input",ExpressionUUID->"80da3102-117d-46db-b898-f7a7ade24456"],
+Cell[CellGroupData[{
+Cell[501246, 10444, 1616, 42, 52, "Input",ExpressionUUID->"6fab61c1-c08c-410e-b307-bf63e7012778"],
+Cell[502865, 10488, 43987, 738, 376, "Output",ExpressionUUID->"fb691c95-6287-4cf1-97bb-ac2cbafbfd3e"]
+}, Open  ]],
+Cell[546867, 11229, 4491, 83, 157, "Input",ExpressionUUID->"6a1d7439-ea63-47df-ab64-8ba28fae006c"],
+Cell[551361, 11314, 5030, 92, 178, "Input",ExpressionUUID->"6d1c0148-cc2a-482c-8372-75b2cc28b948"],
+Cell[CellGroupData[{
+Cell[556416, 11410, 1358, 34, 30, "Input",ExpressionUUID->"547de131-ed31-4255-b6f6-2eccc251856a"],
+Cell[557777, 11446, 10891, 322, 70, "Output",ExpressionUUID->"b0dc387c-e7dd-47b0-a364-1b2d658e89c7"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[568705, 11773, 2118, 59, 52, "Input",ExpressionUUID->"05de9e54-a466-4a10-a602-49c2ec5301a4"],
+Cell[570826, 11834, 14509, 355, 70, "Output",ExpressionUUID->"b7998bfd-7961-4231-987d-9090f2ff2911"]
+}, Open  ]],
+Cell[585350, 12192, 1890, 50, 52, "Input",ExpressionUUID->"708fbea0-72a2-451b-b9af-3ec5c6b0c81e"],
+Cell[587243, 12244, 736, 21, 30, "Input",ExpressionUUID->"0292e097-3737-4b6a-82d0-154ae13c55ea"],
+Cell[CellGroupData[{
+Cell[588004, 12269, 1932, 42, 140, "Input",ExpressionUUID->"1c79c63a-e45b-4b34-9550-9c35b53c6511"],
+Cell[589939, 12313, 501, 11, 70, "Output",ExpressionUUID->"8a2b80f5-4f48-45a7-b051-f82f0a5f77af"],
+Cell[590443, 12326, 1163, 27, 70, "Output",ExpressionUUID->"83008937-58e5-464b-9088-ff837c5c68a6"],
+Cell[591609, 12355, 1161, 27, 70, "Output",ExpressionUUID->"f06480a4-d6d1-4d70-9f9b-7ba3859561fc"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[592807, 12387, 2550, 61, 140, "Input",ExpressionUUID->"4376d16c-6de7-4928-8116-63f90eff74d0"],
+Cell[595360, 12450, 791, 15, 70, "Output",ExpressionUUID->"ecb7701a-3d2e-4001-9c58-2dacd6afd12d"],
+Cell[596154, 12467, 1459, 31, 70, "Output",ExpressionUUID->"17f62e70-fce6-48e1-a165-10af9c34b875"],
+Cell[597616, 12500, 1457, 31, 70, "Output",ExpressionUUID->"c1ef60e6-2e4a-4dfc-b5b1-39d6bb492b68"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[599110, 12536, 2596, 61, 140, "Input",ExpressionUUID->"b2f9ecdf-fc88-4fd4-b786-5a346b16bc99"],
+Cell[601709, 12599, 756, 14, 70, "Output",ExpressionUUID->"0a9798fe-918b-43cc-984a-5eaf97f17dea"],
+Cell[602468, 12615, 1427, 30, 70, "Output",ExpressionUUID->"67ec9485-f57f-4d29-9fc7-53cbdce5df46"],
+Cell[603898, 12647, 1425, 30, 70, "Output",ExpressionUUID->"738a54e2-34f2-4596-a82b-521172dd8dc3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[605360, 12682, 2125, 49, 73, "Input",ExpressionUUID->"a975f9e1-dff1-4671-9a00-761335458bb9"],
+Cell[607488, 12733, 51278, 1061, 70, "Output",ExpressionUUID->"cdf471c5-2869-46a9-9656-9cd159803326"]
+}, Open  ]],
+Cell[658781, 13797, 829, 20, 30, "Input",ExpressionUUID->"d2dc0ec3-97b1-4064-9ec3-a70c62d06ad1"],
+Cell[659613, 13819, 779, 16, 30, "Input",ExpressionUUID->"70040933-a296-495e-8a30-d4eade043fd2"],
+Cell[660395, 13837, 1283, 39, 52, "Input",ExpressionUUID->"2ddd245e-1e99-486f-916e-7df10c5df70b"],
+Cell[661681, 13878, 2678, 80, 94, "Input",ExpressionUUID->"0b116b2f-0b20-4e7a-ae61-d999c51a6257"],
+Cell[664362, 13960, 1896, 54, 84, "Input",ExpressionUUID->"51b15147-46fb-4b7c-9f7f-77fc72f31a6e"],
+Cell[666261, 14016, 2008, 56, 84, "Input",ExpressionUUID->"35c61e8b-f950-434a-9109-a7a295cec037"],
+Cell[668272, 14074, 2060, 57, 84, "Input",ExpressionUUID->"8bfc8931-d1e9-449e-a62a-b89db4c133ef"],
+Cell[CellGroupData[{
+Cell[670357, 14135, 1491, 32, 94, "Input",ExpressionUUID->"ee0fdf24-4595-4382-87e0-df1e23ef3f6e"],
+Cell[671851, 14169, 2751, 54, 70, "Output",ExpressionUUID->"c743c3eb-79c9-4502-8c7e-aca3fa77d136"],
+Cell[674605, 14225, 1529, 23, 54, "Output",ExpressionUUID->"4f7d4ccf-f2a0-4209-87d8-289ae1595984"],
+Cell[676137, 14250, 2996, 59, 93, "Output",ExpressionUUID->"727761db-1a6e-4485-8a6d-1c85ba8edac3"],
+Cell[679136, 14311, 2996, 59, 93, "Output",ExpressionUUID->"205e77c5-380b-496b-9a95-36affb441026"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[682169, 14375, 1226, 29, 94, "Input",ExpressionUUID->"22493f5f-e0ce-4c50-a089-b005afbd28ef"],
+Cell[683398, 14406, 1941, 43, 64, "Output",ExpressionUUID->"402a3310-c1b1-4077-89f7-b503b1ec5767"],
+Cell[685342, 14451, 739, 13, 54, "Output",ExpressionUUID->"be011a8d-956f-4813-9c2e-dd986c62630b"],
+Cell[686084, 14466, 2210, 49, 93, "Output",ExpressionUUID->"d018fd22-ce58-436c-ad82-33d64b4f4e60"],
+Cell[688297, 14517, 2210, 49, 93, "Output",ExpressionUUID->"4ac399bd-d7ef-4979-88f1-df11de523c31"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[220653, 4403, 633, 17, 48, "Input",ExpressionUUID->"145ea971-74fa-4487-87d9-ea611b7cbc00"],
-Cell[221289, 4422, 610, 10, 34, "Output",ExpressionUUID->"5f2a7a21-cf75-4a10-b8f1-907b47415982"]
+Cell[690544, 14571, 1224, 29, 94, "Input",ExpressionUUID->"c4bb31a2-47e6-41c0-af43-8826fa0cf6ba"],
+Cell[691771, 14602, 1949, 44, 64, "Output",ExpressionUUID->"e3563d90-dfbc-414b-a66b-dab5e74ebfb2"],
+Cell[693723, 14648, 744, 13, 54, "Output",ExpressionUUID->"37cdf368-aa9c-4238-aecf-f64a6b748add"],
+Cell[694470, 14663, 2207, 49, 93, "Output",ExpressionUUID->"00c0feee-e7c3-43f0-8215-94442b2425f1"],
+Cell[696680, 14714, 2207, 49, 93, "Output",ExpressionUUID->"160a5171-61bd-4ad8-a573-902846c64a5e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[221936, 4437, 771, 11, 45, "Subsubsection",ExpressionUUID->"ecf75cca-30cd-43d4-9be0-cffb842f80ee"],
-Cell[222710, 4450, 153, 4, 30, "Input",ExpressionUUID->"63748991-676f-4b51-9513-6e6301f33875"],
+Cell[698924, 14768, 1229, 26, 30, "Input",ExpressionUUID->"46b8a754-c003-43f7-bc93-87485cb658e6"],
+Cell[700156, 14796, 17139, 352, 247, "Output",ExpressionUUID->"366a3c8c-17fd-43b6-b965-4f631d8ebd74"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[717344, 15154, 867, 12, 37, "Subsubsection",ExpressionUUID->"1e3ff86b-25a6-46ad-9d6c-e21102a6450d"],
+Cell[718214, 15168, 986, 16, 30, "Input",ExpressionUUID->"5bc7b50a-8972-4d49-812b-fca863b92d0d"],
+Cell[719203, 15186, 5815, 125, 167, "Code",ExpressionUUID->"5ebefe28-8b4e-44d7-9a93-fb2bea7f2162"],
+Cell[725021, 15313, 3081, 81, 73, "Input",ExpressionUUID->"c459ae4d-8376-4831-b40e-05f21aa5924d"],
 Cell[CellGroupData[{
-Cell[222888, 4458, 1205, 25, 52, "Code",ExpressionUUID->"a78dffb7-8999-46bc-a665-9ebaf6008f9a"],
-Cell[224096, 4485, 3400, 61, 70, "Output",ExpressionUUID->"b9c66922-597f-401e-a8f2-7926a173abea"]
+Cell[728127, 15398, 420, 8, 30, "Input",ExpressionUUID->"f320f75e-dd85-45ab-b7f6-5f840f7d3009"],
+Cell[728550, 15408, 4475, 75, 77, "Output",ExpressionUUID->"68954969-ef2e-4f5c-b6b7-cfb8f8087dc6"]
 }, Open  ]],
-Cell[227511, 4549, 5882, 126, 148, "Code",ExpressionUUID->"c0cbb8b7-6099-45b6-b37d-97cf025306da"],
-Cell[233396, 4677, 3407, 88, 94, "Input",ExpressionUUID->"addec5cc-ddd1-4a92-b04c-4587a0e3e468"],
+Cell[733040, 15486, 1368, 35, 30, "Input",ExpressionUUID->"172db7c5-1421-4f19-a39e-d08572cc16c9"],
 Cell[CellGroupData[{
-Cell[236828, 4769, 469, 9, 30, "Input",ExpressionUUID->"ac7b4b3d-3241-4604-8072-e0314060c171"],
-Cell[237300, 4780, 4283, 72, 70, "Output",ExpressionUUID->"80f212ea-a8e6-43dd-9cc6-7e86f33abe67"]
+Cell[734433, 15525, 1616, 42, 52, "Input",ExpressionUUID->"bf5d2b68-4d8e-4800-979b-f6831b7cd3e8"],
+Cell[736052, 15569, 44156, 741, 376, "Output",ExpressionUUID->"57e4c28f-0223-41c2-9033-b5f87ba0cce6"]
 }, Open  ]],
-Cell[241598, 4855, 1368, 35, 30, "Input",ExpressionUUID->"02a89714-1644-4274-acab-512087f8e244"],
+Cell[780223, 16313, 4491, 83, 157, "Input",ExpressionUUID->"bf89ffcd-ce7f-4f15-9fc8-12eb7f3ba3ec"],
+Cell[784717, 16398, 5030, 92, 178, "Input",ExpressionUUID->"26b208b1-1a3d-4848-b9c4-2cf1c266a26f"],
 Cell[CellGroupData[{
-Cell[242991, 4894, 1616, 42, 52, "Input",ExpressionUUID->"eebace13-a0ae-4a58-bbc6-405078bdf309"],
-Cell[244610, 4938, 43971, 738, 70, "Output",ExpressionUUID->"cd05c256-492f-4862-85ca-436a5b043270"]
+Cell[789772, 16494, 1358, 34, 30, "Input",ExpressionUUID->"d30930ea-8939-41fe-a522-9b21158d5e8a"],
+Cell[791133, 16530, 11115, 325, 272, "Output",ExpressionUUID->"e0eed536-318d-4934-afb8-ac2cb3274eff"]
 }, Open  ]],
-Cell[288596, 5679, 274, 6, 30, "Input",ExpressionUUID->"7340534a-6a82-4a91-8c8e-e7d8fb8419be"],
-Cell[288873, 5687, 4491, 83, 157, "Input",ExpressionUUID->"bcc6e4f7-6497-452e-9e9b-519570c159d0"],
-Cell[293367, 5772, 5030, 92, 178, "Input",ExpressionUUID->"58d8890e-b628-4b0c-b1f6-9f494bb44289"],
 Cell[CellGroupData[{
-Cell[298422, 5868, 1517, 37, 52, "Input",ExpressionUUID->"b230cc14-783d-4228-a83f-d49d063fc887"],
-Cell[299942, 5907, 10850, 322, 70, "Output",ExpressionUUID->"80663a8e-be50-40b6-ab8b-0f3bede0bdc8"]
+Cell[802285, 16860, 2118, 59, 52, "Input",ExpressionUUID->"70f0013c-c00a-46dd-a88d-ac7ea924aaa5"],
+Cell[804406, 16921, 14854, 378, 322, "Output",ExpressionUUID->"27d93c6d-ae68-45c3-b757-24dbda3dafe6"]
 }, Open  ]],
+Cell[819275, 17302, 786, 22, 30, "Input",ExpressionUUID->"8ef1d2d1-dca2-4fa6-9255-e9acc1337fbb"],
 Cell[CellGroupData[{
-Cell[310829, 6234, 2118, 59, 52, "Input",ExpressionUUID->"0a14146b-a4cf-48a8-9c7b-82445aca3c4d"],
-Cell[312950, 6295, 14460, 357, 70, "Output",ExpressionUUID->"2e9cd689-c6d2-4038-9d72-3d66b62c7aa7"]
+Cell[820086, 17328, 2015, 43, 140, "Input",ExpressionUUID->"931a88a1-04e1-47e8-b608-14cf4a2cef79"],
+Cell[822104, 17373, 1902, 43, 64, "Output",ExpressionUUID->"b174c027-51b4-4ec5-a36d-1dcb0c53cedc"],
+Cell[824009, 17418, 571, 11, 54, "Output",ExpressionUUID->"6e749e2f-f37d-4f05-a19c-486cebbde4ed"],
+Cell[824583, 17431, 1237, 27, 71, "Output",ExpressionUUID->"875458e3-2079-4582-b752-e266fe862e9c"],
+Cell[825823, 17460, 1237, 27, 71, "Output",ExpressionUUID->"ea338900-b4fc-4340-a6f9-6c6a31558d67"]
 }, Open  ]],
-Cell[327425, 6655, 734, 21, 30, "Input",ExpressionUUID->"0f8180e8-276b-471f-9f12-7c6e2d2b9820"],
 Cell[CellGroupData[{
-Cell[328184, 6680, 1933, 42, 140, "Input",ExpressionUUID->"810dbad1-6ca1-4e80-a5e1-a36c24432ada"],
-Cell[330120, 6724, 454, 10, 70, "Output",ExpressionUUID->"7b793b44-bd04-4e61-be08-558d3ed43113"],
-Cell[330577, 6736, 1117, 26, 70, "Output",ExpressionUUID->"cf61ad0d-c246-4047-a557-4cebc50dbe4e"],
-Cell[331697, 6764, 1117, 26, 70, "Output",ExpressionUUID->"729a9872-c892-4005-8333-c771696ea7f6"]
+Cell[827097, 17492, 2508, 58, 140, "Input",ExpressionUUID->"f222e693-8a25-4142-b501-6708e940220c"],
+Cell[829608, 17552, 475, 10, 54, "Output",ExpressionUUID->"1371d5ed-dbd5-40b0-8e4b-9c594709c99f"],
+Cell[830086, 17564, 1138, 26, 71, "Output",ExpressionUUID->"e2ab92cc-2f87-4014-98fd-00f0eb2d5073"],
+Cell[831227, 17592, 1138, 26, 71, "Output",ExpressionUUID->"8a196e80-4c91-4b81-8245-01cc883e03ae"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[332851, 6795, 2500, 60, 140, "Input",ExpressionUUID->"75a171bc-2230-4a85-9852-e197e2235650"],
-Cell[335354, 6857, 849, 16, 70, "Output",ExpressionUUID->"1e92a2b2-1030-4901-aa10-d1a5e566e74d"],
-Cell[336206, 6875, 1521, 32, 70, "Output",ExpressionUUID->"b9244653-2042-4731-9118-ed594cccd901"],
-Cell[337730, 6909, 1521, 32, 70, "Output",ExpressionUUID->"3429bcd7-d40c-4338-ac8f-ad75bc471ac1"]
+Cell[832402, 17623, 2749, 64, 161, "Input",ExpressionUUID->"341a2f56-fff3-4292-a7da-a2348f38dc74"],
+Cell[835154, 17689, 961, 17, 54, "Output",ExpressionUUID->"b442bc5b-28f2-499d-954f-5296930e44b0"],
+Cell[836118, 17708, 1628, 33, 71, "Output",ExpressionUUID->"c8212626-4ec3-4ce1-89a4-321ad78be6c7"],
+Cell[837749, 17743, 1627, 33, 71, "Output",ExpressionUUID->"c7b8b67d-4de4-45d1-942f-73f872498761"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[339288, 6946, 2572, 61, 140, "Input",ExpressionUUID->"2c52eaa7-17cf-4b27-955b-85489ada5b79"],
-Cell[341863, 7009, 799, 15, 70, "Output",ExpressionUUID->"299e85e6-9334-40ce-9d19-b2fd518c28a7"],
-Cell[342665, 7026, 1468, 31, 70, "Output",ExpressionUUID->"ba6e3f55-7da3-4382-9aa3-78e35b58c70f"],
-Cell[344136, 7059, 1468, 31, 70, "Output",ExpressionUUID->"6f89fad0-2896-4ef9-8c2a-08080c600cc6"]
+Cell[839413, 17781, 2670, 63, 140, "Input",ExpressionUUID->"cddbd38c-0925-459d-81fe-9f117670f9f3"],
+Cell[842086, 17846, 474, 10, 54, "Output",ExpressionUUID->"77bcafd1-36b6-47ba-8bf6-15626bd8b97e"],
+Cell[842563, 17858, 1145, 26, 71, "Output",ExpressionUUID->"7386163f-ffda-4151-8fc5-a92d29ceffd8"],
+Cell[843711, 17886, 1145, 26, 71, "Output",ExpressionUUID->"dcfefe5f-150a-4bf8-9d32-41987f86e11d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[345641, 7095, 1976, 47, 73, "Input",ExpressionUUID->"e0cca4f6-085b-4875-b404-acfb81334ea6"],
-Cell[347620, 7144, 53180, 1112, 70, "Output",ExpressionUUID->"08215bd3-e6db-4a73-9232-4d0de0981b53"]
+Cell[844893, 17917, 2129, 49, 73, "Input",ExpressionUUID->"4a148438-6274-4a21-873c-21a605df0ddd"],
+Cell[847025, 17968, 54428, 1132, 392, "Output",ExpressionUUID->"9e4094ac-17c3-4910-a6c9-b8a283d33f44"]
 }, Open  ]],
-Cell[400815, 8259, 450, 8, 30, "Input",ExpressionUUID->"34e23754-e6ba-478a-9518-52a0a20acdc0"],
-Cell[401268, 8269, 829, 20, 30, "Input",ExpressionUUID->"605ca4e2-a88a-435e-bd4c-35e4ff5c2db8"],
-Cell[402100, 8291, 1283, 39, 52, "Input",ExpressionUUID->"a3b4638a-b252-4854-bcc5-57f13a8a2040"],
-Cell[403386, 8332, 2678, 80, 94, "Input",ExpressionUUID->"ef2a9d60-b56a-45c3-8f1e-9c9e808adf25"],
-Cell[406067, 8414, 1845, 53, 84, "Input",ExpressionUUID->"966befb4-6b1b-43a8-913f-38b0276fd80b"],
-Cell[407915, 8469, 1962, 56, 84, "Input",ExpressionUUID->"1e3cea1b-7eb5-498a-a82b-bb3dbe195961"],
-Cell[409880, 8527, 2011, 56, 84, "Input",ExpressionUUID->"c7a7bc6b-e5f9-47f1-bd84-19c04226c4ec"],
-Cell[CellGroupData[{
-Cell[411916, 8587, 2137, 48, 136, "Input",ExpressionUUID->"5ffb47a3-46d0-40e7-bcfd-5f7fab11f3f7"],
-Cell[414056, 8637, 2896, 56, 70, "Output",ExpressionUUID->"13ab1f55-2590-44ca-84d8-7ba8aec5a44f"],
-Cell[416955, 8695, 1674, 25, 70, "Output",ExpressionUUID->"87ac42fa-b8ff-4171-9e0f-979af8f75edc"],
-Cell[418632, 8722, 3133, 61, 70, "Output",ExpressionUUID->"a9fa8e4e-e0fe-4573-a194-87d0d8489a5b"],
-Cell[421768, 8785, 3134, 61, 70, "Output",ExpressionUUID->"3b102d38-c034-4bc3-bdb3-84cd22bc02c0"],
-Cell[424905, 8848, 3133, 61, 70, "Output",ExpressionUUID->"2dc59bf2-c47e-4d07-a457-da9dd6108025"],
-Cell[428041, 8911, 3133, 61, 70, "Output",ExpressionUUID->"ae25fd4b-b2e3-4980-b281-848f65983aed"]
+Cell[901468, 19103, 829, 20, 30, "Input",ExpressionUUID->"65eb54d0-3c62-4ac5-a302-413db62c8adf"],
+Cell[902300, 19125, 779, 16, 30, "Input",ExpressionUUID->"23c716ab-9181-438b-a293-96e3b009e591"],
+Cell[903082, 19143, 1283, 39, 52, "Input",ExpressionUUID->"10616f11-7b46-4cb8-b278-00339c85777c"],
+Cell[904368, 19184, 2678, 80, 94, "Input",ExpressionUUID->"86a7d0c8-5316-46f5-86f5-a8af93cc9f72"],
+Cell[907049, 19266, 1943, 54, 84, "Input",ExpressionUUID->"cd88c5d6-8d2a-4520-b62d-d47214903cdb"],
+Cell[908995, 19322, 2059, 57, 84, "Input",ExpressionUUID->"195cc5af-6bae-42a7-85b6-11c529f1cd93"],
+Cell[911057, 19381, 2111, 58, 84, "Input",ExpressionUUID->"91ce2546-b1c0-4176-a83a-0463dc908701"],
+Cell[CellGroupData[{
+Cell[913193, 19443, 1698, 37, 94, "Input",ExpressionUUID->"ab768738-81c5-42e6-9548-d3e19f4fd1d4"],
+Cell[914894, 19482, 2967, 57, 64, "Output",ExpressionUUID->"c816238a-e750-48cb-938f-804a9ad7ebe4"],
+Cell[917864, 19541, 1743, 26, 54, "Output",ExpressionUUID->"a624b805-2947-493c-87a6-fae5d7803836"],
+Cell[919610, 19569, 3215, 62, 93, "Output",ExpressionUUID->"f2faa79e-c1b9-4985-879b-3296fd057bed"],
+Cell[922828, 19633, 3212, 62, 93, "Output",ExpressionUUID->"2bb2cd13-ca0d-412e-b151-d1576749bd34"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[431211, 8977, 1415, 33, 94, "Input",ExpressionUUID->"0ca4e1a3-0b45-4f90-9c56-cf5f7bcfa867"],
-Cell[432629, 9012, 1972, 44, 70, "Output",ExpressionUUID->"68d693a0-1e7c-4ee8-bd39-b80836881ad8"],
-Cell[434604, 9058, 771, 14, 70, "Output",ExpressionUUID->"c7dfc5b7-4488-48bd-88e6-249b482df7ef"],
-Cell[435378, 9074, 2242, 50, 70, "Output",ExpressionUUID->"8f3529bf-9a7b-411d-995d-3f37cb675b83"],
-Cell[437623, 9126, 2242, 50, 70, "Output",ExpressionUUID->"0f7bca76-37c4-4e2b-a25e-6f5b34930d44"]
+Cell[926077, 19700, 1279, 29, 94, "Input",ExpressionUUID->"db710362-7d5e-4981-a791-270a935063c3"],
+Cell[927359, 19731, 2078, 45, 64, "Output",ExpressionUUID->"4b3fb072-c81d-46bf-a8c0-db790a491fb1"],
+Cell[929440, 19778, 878, 15, 54, "Output",ExpressionUUID->"3beee5e0-c273-4b95-b6db-499403dbf651"],
+Cell[930321, 19795, 2345, 51, 93, "Output",ExpressionUUID->"03e343df-30bb-4b09-9a3f-2b0b5857c458"],
+Cell[932669, 19848, 2345, 51, 93, "Output",ExpressionUUID->"18b0eccb-58d4-4438-9bc2-004279f5af84"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[439902, 9181, 1466, 34, 94, "Input",ExpressionUUID->"3e3902f4-f766-4906-b8e3-826ca883e0e5"],
-Cell[441371, 9217, 1939, 44, 70, "Output",ExpressionUUID->"2c6f3740-5bf1-48fe-a3d0-735d9355c4d3"],
-Cell[443313, 9263, 738, 13, 70, "Output",ExpressionUUID->"e1b4f301-15df-4b69-9cb4-4a64e83c5622"],
-Cell[444054, 9278, 2200, 49, 70, "Output",ExpressionUUID->"76419d24-efc6-487a-93df-a2625c70a7b4"],
-Cell[446257, 9329, 2202, 49, 70, "Output",ExpressionUUID->"57987c3b-0377-46fa-958c-dbcf2ca989fb"]
+Cell[935051, 19904, 1299, 29, 115, "Input",ExpressionUUID->"154b7c06-ee4d-4857-b6ae-78bbc4606adc"],
+Cell[936353, 19935, 2112, 46, 64, "Output",ExpressionUUID->"f2887bd0-3c30-40ec-83c0-6d27898ce9e5"],
+Cell[938468, 19983, 914, 16, 54, "Output",ExpressionUUID->"962ca3e8-571b-45f6-9de9-07199a40bad0"],
+Cell[939385, 20001, 2373, 52, 93, "Output",ExpressionUUID->"22c13511-2d43-41f4-a8c4-437400c50e67"],
+Cell[941761, 20055, 2373, 52, 93, "Output",ExpressionUUID->"cb5ac21d-4b5a-4a87-8013-05a8eaa3f2a7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[448496, 9383, 1234, 27, 30, "Input",ExpressionUUID->"8db671d1-d722-467e-be39-8dd0f3c10927"],
-Cell[449733, 9412, 17882, 370, 70, "Output",ExpressionUUID->"d1dbe161-260d-438e-819f-67dddf0459e4"]
+Cell[944171, 20112, 1285, 27, 30, "Input",ExpressionUUID->"ac8b289a-cf41-470c-8733-a4e06d175284"],
+Cell[945459, 20141, 17262, 355, 247, "Output",ExpressionUUID->"b1e20b05-3ea8-4311-b429-db7e6e5eaf78"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[467664, 9788, 821, 12, 37, "Subsubsection",ExpressionUUID->"9515e4e7-dc31-4520-930f-0bb9c1af754b"],
-Cell[468488, 9802, 835, 14, 30, "Input",ExpressionUUID->"362760d3-c755-42fc-84c6-343c0bce7cd5"],
-Cell[469326, 9818, 5813, 125, 167, "Code",ExpressionUUID->"fa12cada-64b8-46ea-b882-cd5e5d95417a"],
-Cell[475142, 9945, 3081, 81, 73, "Input",ExpressionUUID->"c62a227c-abd4-4122-97de-4da5438b5817"],
+Cell[962770, 20502, 723, 10, 37, "Subsubsection",ExpressionUUID->"e13c7813-d5b6-4cd9-90c9-a2bbc301ce64"],
+Cell[963496, 20514, 734, 12, 30, "Input",ExpressionUUID->"5ac9f346-ba7b-4489-b763-90313fb0fed1"],
+Cell[964233, 20528, 5811, 125, 167, "Code",ExpressionUUID->"92aba750-de34-4762-8785-b80b845b2446"],
+Cell[970047, 20655, 3081, 81, 73, "Input",ExpressionUUID->"5213fddf-92b0-486b-9d22-c66f162c203f"],
 Cell[CellGroupData[{
-Cell[478248, 10030, 420, 8, 30, "Input",ExpressionUUID->"fda350ab-85a4-453e-b8f1-65ebb10f4a57"],
-Cell[478671, 10040, 4314, 73, 77, "Output",ExpressionUUID->"fd7293a9-d4cf-4d17-a980-3756644055a5"]
+Cell[973153, 20740, 420, 8, 30, "Input",ExpressionUUID->"9db2a42d-ca78-4705-bd47-7771b941d8e5"],
+Cell[973576, 20750, 4358, 73, 77, "Output",ExpressionUUID->"348a088e-3f0e-43cf-8903-86669b215d6c"]
 }, Open  ]],
-Cell[483000, 10116, 1368, 35, 30, "Input",ExpressionUUID->"80da3102-117d-46db-b898-f7a7ade24456"],
+Cell[977949, 20826, 1368, 35, 30, "Input",ExpressionUUID->"998d0d58-666e-4a61-8a5e-08b768f002bc"],
 Cell[CellGroupData[{
-Cell[484393, 10155, 1616, 42, 52, "Input",ExpressionUUID->"6fab61c1-c08c-410e-b307-bf63e7012778"],
-Cell[486012, 10199, 43987, 738, 376, "Output",ExpressionUUID->"fb691c95-6287-4cf1-97bb-ac2cbafbfd3e"]
+Cell[979342, 20865, 1616, 42, 52, "Input",ExpressionUUID->"dbba69c5-64ff-41d7-9ae0-a5294b4e896f"],
+Cell[980961, 20909, 44040, 739, 376, "Output",ExpressionUUID->"f8cd5aba-fed6-41e5-9766-def61c7d6b4b"]
 }, Open  ]],
-Cell[530014, 10940, 4491, 83, 157, "Input",ExpressionUUID->"6a1d7439-ea63-47df-ab64-8ba28fae006c"],
-Cell[534508, 11025, 5030, 92, 178, "Input",ExpressionUUID->"6d1c0148-cc2a-482c-8372-75b2cc28b948"],
+Cell[1025016, 21651, 4491, 83, 157, "Input",ExpressionUUID->"b756b054-b123-4669-a127-64f109d6365d"],
+Cell[1029510, 21736, 5030, 92, 178, "Input",ExpressionUUID->"950408a6-8a72-42d1-88b7-f14ea93e0f1f"],
 Cell[CellGroupData[{
-Cell[539563, 11121, 1358, 34, 30, "Input",ExpressionUUID->"547de131-ed31-4255-b6f6-2eccc251856a"],
-Cell[540924, 11157, 10891, 322, 70, "Output",ExpressionUUID->"b0dc387c-e7dd-47b0-a364-1b2d658e89c7"]
+Cell[1034565, 21832, 1309, 33, 30, "Input",ExpressionUUID->"e8f6b75f-491a-459d-831c-5de36abeeac1"],
+Cell[1035877, 21867, 11070, 324, 272, "Output",ExpressionUUID->"33314ffe-d55e-49a1-b527-ad6b28691eba"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[551852, 11484, 2118, 59, 52, "Input",ExpressionUUID->"05de9e54-a466-4a10-a602-49c2ec5301a4"],
-Cell[553973, 11545, 14509, 355, 70, "Output",ExpressionUUID->"b7998bfd-7961-4231-987d-9090f2ff2911"]
+Cell[1046984, 22196, 2076, 58, 52, "Input",ExpressionUUID->"56c0fb7e-fa37-455f-b86f-6970e22585e7"],
+Cell[1049063, 22256, 14917, 390, 322, "Output",ExpressionUUID->"947b8cf1-9897-4c00-b930-e92921cb2659"]
 }, Open  ]],
-Cell[568497, 11903, 1890, 50, 52, "Input",ExpressionUUID->"708fbea0-72a2-451b-b9af-3ec5c6b0c81e"],
-Cell[570390, 11955, 736, 21, 30, "Input",ExpressionUUID->"0292e097-3737-4b6a-82d0-154ae13c55ea"],
 Cell[CellGroupData[{
-Cell[571151, 11980, 1932, 42, 140, "Input",ExpressionUUID->"1c79c63a-e45b-4b34-9550-9c35b53c6511"],
-Cell[573086, 12024, 501, 11, 70, "Output",ExpressionUUID->"8a2b80f5-4f48-45a7-b051-f82f0a5f77af"],
-Cell[573590, 12037, 1163, 27, 70, "Output",ExpressionUUID->"83008937-58e5-464b-9088-ff837c5c68a6"],
-Cell[574756, 12066, 1161, 27, 70, "Output",ExpressionUUID->"f06480a4-d6d1-4d70-9f9b-7ba3859561fc"]
+Cell[1064017, 22651, 3808, 93, 224, "Input",ExpressionUUID->"eb1bdbf0-b0de-438c-89b3-e8f1ada99615"],
+Cell[1067828, 22746, 520, 11, 54, "Output",ExpressionUUID->"953049f8-e2f8-4d33-9faf-ddbe733cebf3"],
+Cell[1068351, 22759, 1187, 27, 71, "Output",ExpressionUUID->"082cacbc-62b7-4e2d-9ca7-1207dc26a89d"],
+Cell[1069541, 22788, 1187, 27, 71, "Output",ExpressionUUID->"4415fd86-2157-4890-aa49-0cd5c6ced128"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[575954, 12098, 2550, 61, 140, "Input",ExpressionUUID->"4376d16c-6de7-4928-8116-63f90eff74d0"],
-Cell[578507, 12161, 791, 15, 70, "Output",ExpressionUUID->"ecb7701a-3d2e-4001-9c58-2dacd6afd12d"],
-Cell[579301, 12178, 1459, 31, 70, "Output",ExpressionUUID->"17f62e70-fce6-48e1-a165-10af9c34b875"],
-Cell[580763, 12211, 1457, 31, 70, "Output",ExpressionUUID->"c1ef60e6-2e4a-4dfc-b5b1-39d6bb492b68"]
+Cell[1070765, 22820, 2456, 60, 161, "Input",ExpressionUUID->"481e3590-15f2-4e7a-b6d0-bffabad652ea"],
+Cell[1073224, 22882, 478, 10, 54, "Output",ExpressionUUID->"afac42d1-ae88-4d31-b23e-fa65fed92bbb"],
+Cell[1073705, 22894, 1138, 26, 71, "Output",ExpressionUUID->"73ca0d3d-6cf9-4672-8c79-9ab8b8f7c499"],
+Cell[1074846, 22922, 1138, 26, 71, "Output",ExpressionUUID->"7738ff01-e7ec-4578-8e45-8a2826bc07b2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[582257, 12247, 2596, 61, 140, "Input",ExpressionUUID->"b2f9ecdf-fc88-4fd4-b786-5a346b16bc99"],
-Cell[584856, 12310, 756, 14, 70, "Output",ExpressionUUID->"0a9798fe-918b-43cc-984a-5eaf97f17dea"],
-Cell[585615, 12326, 1427, 30, 70, "Output",ExpressionUUID->"67ec9485-f57f-4d29-9fc7-53cbdce5df46"],
-Cell[587045, 12358, 1425, 30, 70, "Output",ExpressionUUID->"738a54e2-34f2-4596-a82b-521172dd8dc3"]
+Cell[1076021, 22953, 2460, 59, 140, "Input",ExpressionUUID->"aac46334-c41e-423f-900e-c9df887237b4"],
+Cell[1078484, 23014, 475, 10, 54, "Output",ExpressionUUID->"082594c6-d878-4a22-8ceb-cc27f5344986"],
+Cell[1078962, 23026, 1146, 26, 71, "Output",ExpressionUUID->"3239975c-559c-402d-9c0f-83a4a5bfc243"],
+Cell[1080111, 23054, 1146, 26, 71, "Output",ExpressionUUID->"c34d702f-2365-454a-9548-01518f273d0b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[588507, 12393, 2125, 49, 73, "Input",ExpressionUUID->"a975f9e1-dff1-4671-9a00-761335458bb9"],
-Cell[590635, 12444, 51278, 1061, 70, "Output",ExpressionUUID->"cdf471c5-2869-46a9-9656-9cd159803326"]
+Cell[1081294, 23085, 1934, 47, 73, "Input",ExpressionUUID->"5314a2a8-2612-429f-85ff-00986b61ee3e"],
+Cell[1083231, 23134, 53503, 1107, 392, "Output",ExpressionUUID->"cbcc120e-595e-43ef-a377-9c9f6de33c76"]
 }, Open  ]],
-Cell[641928, 13508, 829, 20, 30, "Input",ExpressionUUID->"d2dc0ec3-97b1-4064-9ec3-a70c62d06ad1"],
-Cell[642760, 13530, 779, 16, 30, "Input",ExpressionUUID->"70040933-a296-495e-8a30-d4eade043fd2"],
-Cell[643542, 13548, 1283, 39, 52, "Input",ExpressionUUID->"2ddd245e-1e99-486f-916e-7df10c5df70b"],
-Cell[644828, 13589, 2678, 80, 94, "Input",ExpressionUUID->"0b116b2f-0b20-4e7a-ae61-d999c51a6257"],
-Cell[647509, 13671, 1896, 54, 84, "Input",ExpressionUUID->"51b15147-46fb-4b7c-9f7f-77fc72f31a6e"],
-Cell[649408, 13727, 2008, 56, 84, "Input",ExpressionUUID->"35c61e8b-f950-434a-9109-a7a295cec037"],
-Cell[651419, 13785, 2060, 57, 84, "Input",ExpressionUUID->"8bfc8931-d1e9-449e-a62a-b89db4c133ef"],
-Cell[CellGroupData[{
-Cell[653504, 13846, 1491, 32, 94, "Input",ExpressionUUID->"ee0fdf24-4595-4382-87e0-df1e23ef3f6e"],
-Cell[654998, 13880, 2751, 54, 70, "Output",ExpressionUUID->"c743c3eb-79c9-4502-8c7e-aca3fa77d136"],
-Cell[657752, 13936, 1529, 23, 54, "Output",ExpressionUUID->"4f7d4ccf-f2a0-4209-87d8-289ae1595984"],
-Cell[659284, 13961, 2996, 59, 93, "Output",ExpressionUUID->"727761db-1a6e-4485-8a6d-1c85ba8edac3"],
-Cell[662283, 14022, 2996, 59, 93, "Output",ExpressionUUID->"205e77c5-380b-496b-9a95-36affb441026"]
+Cell[1136749, 24244, 829, 20, 30, "Input",ExpressionUUID->"eead933d-5226-471c-8ad2-b24bba821fb6"],
+Cell[1137581, 24266, 779, 16, 30, "Input",ExpressionUUID->"66e0b176-6653-48bb-8922-df7f206b4759"],
+Cell[1138363, 24284, 1283, 39, 52, "Input",ExpressionUUID->"a052cc22-737d-48d0-90d3-d536df9486b0"],
+Cell[1139649, 24325, 2678, 80, 94, "Input",ExpressionUUID->"62adb83b-ed14-4d4c-ae6d-d799365b2c9b"],
+Cell[1142330, 24407, 1797, 52, 84, "Input",ExpressionUUID->"e1e4cc11-952a-4fc6-b8d9-acf6c5f3af65"],
+Cell[1144130, 24461, 1914, 55, 84, "Input",ExpressionUUID->"ab67c741-3a50-45e9-9fa4-267cf5195ece"],
+Cell[1146047, 24518, 1962, 56, 84, "Input",ExpressionUUID->"c479bb72-f329-41fa-a0dc-1598e1f1e4b5"],
+Cell[CellGroupData[{
+Cell[1148034, 24578, 1449, 32, 94, "Input",ExpressionUUID->"45a1ba5e-cbb2-4426-863f-e49aefdb71f2"],
+Cell[1149486, 24612, 3000, 58, 64, "Output",ExpressionUUID->"011c1179-968b-4cd2-8248-090a997f51a6"],
+Cell[1152489, 24672, 1772, 27, 54, "Output",ExpressionUUID->"d041f95d-8c90-45dc-b615-96fab80cc7d7"],
+Cell[1154264, 24701, 3235, 63, 93, "Output",ExpressionUUID->"75881f98-b9d8-4f32-ba90-c939c071fdeb"],
+Cell[1157502, 24766, 3236, 63, 93, "Output",ExpressionUUID->"f28a2c87-df1f-4555-aec2-c7846de4160c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[665316, 14086, 1226, 29, 94, "Input",ExpressionUUID->"22493f5f-e0ce-4c50-a089-b005afbd28ef"],
-Cell[666545, 14117, 1941, 43, 64, "Output",ExpressionUUID->"402a3310-c1b1-4077-89f7-b503b1ec5767"],
-Cell[668489, 14162, 739, 13, 54, "Output",ExpressionUUID->"be011a8d-956f-4813-9c2e-dd986c62630b"],
-Cell[669231, 14177, 2210, 49, 93, "Output",ExpressionUUID->"d018fd22-ce58-436c-ad82-33d64b4f4e60"],
-Cell[671444, 14228, 2210, 49, 93, "Output",ExpressionUUID->"4ac399bd-d7ef-4979-88f1-df11de523c31"]
+Cell[1160775, 24834, 1237, 29, 94, "Input",ExpressionUUID->"d6921b7b-0b04-4615-979e-155a0141a782"],
+Cell[1162015, 24865, 2140, 46, 64, "Output",ExpressionUUID->"76180a6d-1423-46d8-9583-d8bc83c76720"],
+Cell[1164158, 24913, 939, 16, 54, "Output",ExpressionUUID->"4244e3b5-0405-453e-aed9-c69e9b874003"],
+Cell[1165100, 24931, 2404, 52, 93, "Output",ExpressionUUID->"4da0733a-0165-4d94-b926-e5e83a59187d"],
+Cell[1167507, 24985, 2404, 52, 93, "Output",ExpressionUUID->"4fba846e-e7a5-47a9-af3a-eef084ff3f7a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[673691, 14282, 1224, 29, 94, "Input",ExpressionUUID->"c4bb31a2-47e6-41c0-af43-8826fa0cf6ba"],
-Cell[674918, 14313, 1949, 44, 64, "Output",ExpressionUUID->"e3563d90-dfbc-414b-a66b-dab5e74ebfb2"],
-Cell[676870, 14359, 744, 13, 54, "Output",ExpressionUUID->"37cdf368-aa9c-4238-aecf-f64a6b748add"],
-Cell[677617, 14374, 2207, 49, 93, "Output",ExpressionUUID->"00c0feee-e7c3-43f0-8215-94442b2425f1"],
-Cell[679827, 14425, 2207, 49, 93, "Output",ExpressionUUID->"160a5171-61bd-4ad8-a573-902846c64a5e"]
+Cell[1169948, 25042, 1123, 27, 94, "Input",ExpressionUUID->"522d1fa2-9c08-4bf8-ac2e-084e47a51350"],
+Cell[1171074, 25071, 2030, 44, 64, "Output",ExpressionUUID->"ddf3f216-e636-4c17-badb-ac6d45745a3d"],
+Cell[1173107, 25117, 833, 14, 54, "Output",ExpressionUUID->"55ebaf28-5097-4647-851d-b36abe22075b"],
+Cell[1173943, 25133, 2292, 50, 93, "Output",ExpressionUUID->"eb810d48-ec87-447d-801b-400c86e3103f"],
+Cell[1176238, 25185, 2294, 50, 93, "Output",ExpressionUUID->"b276be37-4da2-44ad-994b-d49e2e67fd88"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[682071, 14479, 1229, 26, 30, "Input",ExpressionUUID->"46b8a754-c003-43f7-bc93-87485cb658e6"],
-Cell[683303, 14507, 17139, 352, 247, "Output",ExpressionUUID->"366a3c8c-17fd-43b6-b965-4f631d8ebd74"]
+Cell[1178569, 25240, 1337, 28, 30, "Input",ExpressionUUID->"acaaf87d-605f-449f-a267-565d9485fdf8"],
+Cell[1179909, 25270, 17337, 355, 247, "Output",ExpressionUUID->"f15fea70-fdcd-4d80-a3fa-ccca0cebabe4"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[700491, 14865, 867, 12, 37, "Subsubsection",ExpressionUUID->"1e3ff86b-25a6-46ad-9d6c-e21102a6450d"],
-Cell[701361, 14879, 986, 16, 30, "Input",ExpressionUUID->"5bc7b50a-8972-4d49-812b-fca863b92d0d"],
-Cell[702350, 14897, 5815, 125, 167, "Code",ExpressionUUID->"5ebefe28-8b4e-44d7-9a93-fb2bea7f2162"],
-Cell[708168, 15024, 3081, 81, 73, "Input",ExpressionUUID->"c459ae4d-8376-4831-b40e-05f21aa5924d"],
+Cell[1197295, 25631, 273, 4, 37, "Subsubsection",ExpressionUUID->"a9554323-b56a-46dd-a836-f64f04d9841d"],
+Cell[CellGroupData[{
+Cell[1197593, 25639, 5676, 141, 142, "Input",ExpressionUUID->"16ad665d-3afa-499c-bedb-b1274fcd679e"],
+Cell[1203272, 25782, 142281, 2716, 414, "Output",ExpressionUUID->"bbbf7627-9081-4f84-b4a2-2de78e751b5a"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1345590, 28503, 349, 8, 30, "Input",ExpressionUUID->"b39206b7-4804-4f6d-8813-888c7c12453c"],
+Cell[1345942, 28513, 609, 10, 34, "Output",ExpressionUUID->"70034bf6-b7f5-46ba-9401-2f3cf6f903c8"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1346588, 28528, 1051, 26, 30, "Input",ExpressionUUID->"10df7f37-854e-41a4-8167-c7ab5fcc8abe"],
+Cell[1347642, 28556, 2897, 60, 56, "Output",ExpressionUUID->"e978d45a-e864-469e-bd2c-e0c25b6711d2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1350576, 28621, 1005, 26, 30, "Input",ExpressionUUID->"a3175abd-4dd3-47ab-93d1-55ff7013ad08"],
+Cell[1351584, 28649, 2881, 59, 56, "Output",ExpressionUUID->"334a5995-6edd-408e-a53b-f40843d962f3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1354502, 28713, 1005, 26, 30, "Input",ExpressionUUID->"eef8391e-d3f5-46a0-ad92-f1d1600f3ba9"],
+Cell[1355510, 28741, 2828, 58, 56, "Output",ExpressionUUID->"2175f6d5-f496-49f9-b5ee-052489f2ee87"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1358375, 28804, 1000, 26, 30, "Input",ExpressionUUID->"a933cb49-2398-48e1-96fb-22c81f8678da"],
+Cell[1359378, 28832, 2808, 58, 56, "Output",ExpressionUUID->"6ad4fea0-4ebb-47f5-9ba0-7ccd438c8546"]
+}, Open  ]],
+Cell[1362201, 28893, 1720, 49, 73, "Input",ExpressionUUID->"e254e124-6337-47c0-ab70-bd00769040b5"],
+Cell[1363924, 28944, 1710, 49, 73, "Input",ExpressionUUID->"1e5a26e8-3915-40bc-b425-099145151ed1"],
+Cell[1365637, 28995, 1766, 49, 73, "Input",ExpressionUUID->"1cfbf28c-e6c3-40b2-8f57-8524552c9d0f"],
+Cell[1367406, 29046, 2191, 57, 73, "Input",ExpressionUUID->"74876f18-4de6-449b-9667-1d03b46de9a7"],
 Cell[CellGroupData[{
-Cell[711274, 15109, 420, 8, 30, "Input",ExpressionUUID->"f320f75e-dd85-45ab-b7f6-5f840f7d3009"],
-Cell[711697, 15119, 4475, 75, 77, "Output",ExpressionUUID->"68954969-ef2e-4f5c-b6b7-cfb8f8087dc6"]
+Cell[1369622, 29107, 1106, 30, 30, "Input",ExpressionUUID->"bc430d15-73c1-4fb7-9073-0b448ea8ac0b"],
+Cell[1370731, 29139, 2917, 60, 56, "Output",ExpressionUUID->"43bcfb65-aabb-4fe7-8834-1c25d913b601"]
 }, Open  ]],
-Cell[716187, 15197, 1368, 35, 30, "Input",ExpressionUUID->"172db7c5-1421-4f19-a39e-d08572cc16c9"],
 Cell[CellGroupData[{
-Cell[717580, 15236, 1616, 42, 52, "Input",ExpressionUUID->"bf5d2b68-4d8e-4800-979b-f6831b7cd3e8"],
-Cell[719199, 15280, 44156, 741, 376, "Output",ExpressionUUID->"57e4c28f-0223-41c2-9033-b5f87ba0cce6"]
+Cell[1373685, 29204, 1108, 30, 30, "Input",ExpressionUUID->"f679edf9-38a6-4e4a-bc0e-846eb20517fd"],
+Cell[1374796, 29236, 2936, 60, 56, "Output",ExpressionUUID->"f5df4ca0-56aa-4618-9e21-f97016dfa573"]
 }, Open  ]],
-Cell[763370, 16024, 4491, 83, 157, "Input",ExpressionUUID->"bf89ffcd-ce7f-4f15-9fc8-12eb7f3ba3ec"],
-Cell[767864, 16109, 5030, 92, 178, "Input",ExpressionUUID->"26b208b1-1a3d-4848-b9c4-2cf1c266a26f"],
 Cell[CellGroupData[{
-Cell[772919, 16205, 1358, 34, 30, "Input",ExpressionUUID->"d30930ea-8939-41fe-a522-9b21158d5e8a"],
-Cell[774280, 16241, 11115, 325, 272, "Output",ExpressionUUID->"e0eed536-318d-4934-afb8-ac2cb3274eff"]
+Cell[1377769, 29301, 1109, 30, 30, "Input",ExpressionUUID->"ae13281f-f81c-4f2f-a684-67767858dcbf"],
+Cell[1378881, 29333, 2389, 52, 56, "Output",ExpressionUUID->"fe7439a0-f170-41da-9227-086ab3904de6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[785432, 16571, 2118, 59, 52, "Input",ExpressionUUID->"70f0013c-c00a-46dd-a88d-ac7ea924aaa5"],
-Cell[787553, 16632, 14854, 378, 322, "Output",ExpressionUUID->"27d93c6d-ae68-45c3-b757-24dbda3dafe6"]
+Cell[1381307, 29390, 1132, 30, 30, "Input",ExpressionUUID->"b01b60d2-1fd6-49a9-8162-b4eebe578d23"],
+Cell[1382442, 29422, 2702, 56, 56, "Output",ExpressionUUID->"a30c712b-0b38-4aad-a7f5-dc8fb44b950d"]
 }, Open  ]],
-Cell[802422, 17013, 786, 22, 30, "Input",ExpressionUUID->"8ef1d2d1-dca2-4fa6-9255-e9acc1337fbb"],
 Cell[CellGroupData[{
-Cell[803233, 17039, 2015, 43, 140, "Input",ExpressionUUID->"931a88a1-04e1-47e8-b608-14cf4a2cef79"],
-Cell[805251, 17084, 1902, 43, 64, "Output",ExpressionUUID->"b174c027-51b4-4ec5-a36d-1dcb0c53cedc"],
-Cell[807156, 17129, 571, 11, 54, "Output",ExpressionUUID->"6e749e2f-f37d-4f05-a19c-486cebbde4ed"],
-Cell[807730, 17142, 1237, 27, 71, "Output",ExpressionUUID->"875458e3-2079-4582-b752-e266fe862e9c"],
-Cell[808970, 17171, 1237, 27, 71, "Output",ExpressionUUID->"ea338900-b4fc-4340-a6f9-6c6a31558d67"]
+Cell[1385181, 29483, 1485, 34, 94, "Input",ExpressionUUID->"1e6bb84f-aa1f-4e46-ab59-9e7e2528ce12"],
+Cell[1386669, 29519, 2976, 65, 56, "Output",ExpressionUUID->"6a7e1325-c4db-4218-b061-edf3b266b521"],
+Cell[1389648, 29586, 2957, 63, 56, "Output",ExpressionUUID->"23ff7e7a-3eea-485b-9f0c-00b8a282a64e"],
+Cell[1392608, 29651, 2948, 61, 56, "Output",ExpressionUUID->"394aba21-b361-4ff3-b431-08fec9f55249"],
+Cell[1395559, 29714, 2944, 61, 56, "Output",ExpressionUUID->"b8c34a3a-b22c-4b4b-9a44-9ad6ec92ff45"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[810244, 17203, 2508, 58, 140, "Input",ExpressionUUID->"f222e693-8a25-4142-b501-6708e940220c"],
-Cell[812755, 17263, 475, 10, 54, "Output",ExpressionUUID->"1371d5ed-dbd5-40b0-8e4b-9c594709c99f"],
-Cell[813233, 17275, 1138, 26, 71, "Output",ExpressionUUID->"e2ab92cc-2f87-4014-98fd-00f0eb2d5073"],
-Cell[814374, 17303, 1138, 26, 71, "Output",ExpressionUUID->"8a196e80-4c91-4b81-8245-01cc883e03ae"]
+Cell[1398540, 29780, 6574, 152, 142, "Input",ExpressionUUID->"67964013-3a15-4f6d-85dc-54242dacf385"],
+Cell[1405117, 29934, 95016, 1993, 414, "Output",ExpressionUUID->"3e9414ab-8165-404d-aaeb-20abf3509e82"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[815549, 17334, 2749, 64, 161, "Input",ExpressionUUID->"341a2f56-fff3-4292-a7da-a2348f38dc74"],
-Cell[818301, 17400, 961, 17, 54, "Output",ExpressionUUID->"b442bc5b-28f2-499d-954f-5296930e44b0"],
-Cell[819265, 17419, 1628, 33, 71, "Output",ExpressionUUID->"c8212626-4ec3-4ce1-89a4-321ad78be6c7"],
-Cell[820896, 17454, 1627, 33, 71, "Output",ExpressionUUID->"c7b8b67d-4de4-45d1-942f-73f872498761"]
+Cell[1500170, 31932, 426, 9, 30, "Input",ExpressionUUID->"1f7b308e-be65-44b7-adfd-ffbde361075a"],
+Cell[1500599, 31943, 677, 11, 34, "Output",ExpressionUUID->"fbaaa07d-693c-4fa8-b4d5-9debc4f0d2af"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[822560, 17492, 2670, 63, 140, "Input",ExpressionUUID->"cddbd38c-0925-459d-81fe-9f117670f9f3"],
-Cell[825233, 17557, 474, 10, 54, "Output",ExpressionUUID->"77bcafd1-36b6-47ba-8bf6-15626bd8b97e"],
-Cell[825710, 17569, 1145, 26, 71, "Output",ExpressionUUID->"7386163f-ffda-4151-8fc5-a92d29ceffd8"],
-Cell[826858, 17597, 1145, 26, 71, "Output",ExpressionUUID->"dcfefe5f-150a-4bf8-9d32-41987f86e11d"]
+Cell[1501313, 31959, 7236, 169, 184, "Input",ExpressionUUID->"78c1145e-07d0-4aff-b413-821fb832bd7d"],
+Cell[1508552, 32130, 94627, 1886, 415, "Output",ExpressionUUID->"434a95ac-4325-4690-8638-cbe1fdbee546"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[828040, 17628, 2129, 49, 73, "Input",ExpressionUUID->"4a148438-6274-4a21-873c-21a605df0ddd"],
-Cell[830172, 17679, 54428, 1132, 392, "Output",ExpressionUUID->"9e4094ac-17c3-4910-a6c9-b8a283d33f44"]
+Cell[1603216, 34021, 350, 8, 30, "Input",ExpressionUUID->"122a995e-5ef3-45ed-87fd-969231ca115c"],
+Cell[1603569, 34031, 514, 8, 34, "Output",ExpressionUUID->"31f48f90-6f4f-4adc-8abf-04fd3ab85765"]
 }, Open  ]],
-Cell[884615, 18814, 829, 20, 30, "Input",ExpressionUUID->"65eb54d0-3c62-4ac5-a302-413db62c8adf"],
-Cell[885447, 18836, 779, 16, 30, "Input",ExpressionUUID->"23c716ab-9181-438b-a293-96e3b009e591"],
-Cell[886229, 18854, 1283, 39, 52, "Input",ExpressionUUID->"10616f11-7b46-4cb8-b278-00339c85777c"],
-Cell[887515, 18895, 2678, 80, 94, "Input",ExpressionUUID->"86a7d0c8-5316-46f5-86f5-a8af93cc9f72"],
-Cell[890196, 18977, 1943, 54, 84, "Input",ExpressionUUID->"cd88c5d6-8d2a-4520-b62d-d47214903cdb"],
-Cell[892142, 19033, 2059, 57, 84, "Input",ExpressionUUID->"195cc5af-6bae-42a7-85b6-11c529f1cd93"],
-Cell[894204, 19092, 2111, 58, 84, "Input",ExpressionUUID->"91ce2546-b1c0-4176-a83a-0463dc908701"],
-Cell[CellGroupData[{
-Cell[896340, 19154, 1698, 37, 94, "Input",ExpressionUUID->"ab768738-81c5-42e6-9548-d3e19f4fd1d4"],
-Cell[898041, 19193, 2967, 57, 64, "Output",ExpressionUUID->"c816238a-e750-48cb-938f-804a9ad7ebe4"],
-Cell[901011, 19252, 1743, 26, 54, "Output",ExpressionUUID->"a624b805-2947-493c-87a6-fae5d7803836"],
-Cell[902757, 19280, 3215, 62, 93, "Output",ExpressionUUID->"f2faa79e-c1b9-4985-879b-3296fd057bed"],
-Cell[905975, 19344, 3212, 62, 93, "Output",ExpressionUUID->"2bb2cd13-ca0d-412e-b151-d1576749bd34"]
+Cell[CellGroupData[{
+Cell[1604120, 34044, 7617, 178, 184, "Input",ExpressionUUID->"0616653d-f922-48dc-b2cf-1fe75f68efcb"],
+Cell[1611740, 34224, 94155, 1872, 414, "Output",ExpressionUUID->"4feef47f-fca9-41f9-a941-2fe9ccbcf12b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[909224, 19411, 1279, 29, 94, "Input",ExpressionUUID->"db710362-7d5e-4981-a791-270a935063c3"],
-Cell[910506, 19442, 2078, 45, 64, "Output",ExpressionUUID->"4b3fb072-c81d-46bf-a8c0-db790a491fb1"],
-Cell[912587, 19489, 878, 15, 54, "Output",ExpressionUUID->"3beee5e0-c273-4b95-b6db-499403dbf651"],
-Cell[913468, 19506, 2345, 51, 93, "Output",ExpressionUUID->"03e343df-30bb-4b09-9a3f-2b0b5857c458"],
-Cell[915816, 19559, 2345, 51, 93, "Output",ExpressionUUID->"18b0eccb-58d4-4438-9bc2-004279f5af84"]
+Cell[1705932, 36101, 403, 9, 30, "Input",ExpressionUUID->"df588757-3a5a-4944-b352-cd8c5342a678"],
+Cell[1706338, 36112, 544, 8, 34, "Output",ExpressionUUID->"7afa1e77-6c85-48e8-90fa-91e2c13a413d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[918198, 19615, 1299, 29, 115, "Input",ExpressionUUID->"154b7c06-ee4d-4857-b6ae-78bbc4606adc"],
-Cell[919500, 19646, 2112, 46, 64, "Output",ExpressionUUID->"f2887bd0-3c30-40ec-83c0-6d27898ce9e5"],
-Cell[921615, 19694, 914, 16, 54, "Output",ExpressionUUID->"962ca3e8-571b-45f6-9de9-07199a40bad0"],
-Cell[922532, 19712, 2373, 52, 93, "Output",ExpressionUUID->"22c13511-2d43-41f4-a8c4-437400c50e67"],
-Cell[924908, 19766, 2373, 52, 93, "Output",ExpressionUUID->"cb5ac21d-4b5a-4a87-8013-05a8eaa3f2a7"]
+Cell[1706919, 36125, 7448, 179, 163, "Input",ExpressionUUID->"0afd26fb-bcfe-42be-9291-2406fdcef70a"],
+Cell[1714370, 36306, 116939, 2270, 413, "Output",ExpressionUUID->"43da2203-4826-4172-bfd8-68ad2ad98683"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[927318, 19823, 1285, 27, 30, "Input",ExpressionUUID->"ac8b289a-cf41-470c-8733-a4e06d175284"],
-Cell[928606, 19852, 17262, 355, 247, "Output",ExpressionUUID->"b1e20b05-3ea8-4311-b429-db7e6e5eaf78"]
+Cell[1831346, 38581, 372, 8, 30, "Input",ExpressionUUID->"041d9b84-6ccc-4718-bb34-d6997746afac"],
+Cell[1831721, 38591, 368, 6, 34, "Output",ExpressionUUID->"87e0d370-32e1-408a-b724-624c84733bf7"]
 }, Open  ]]
-}, Closed]],
+}, Closed]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1832150, 38604, 222, 4, 67, "Section",ExpressionUUID->"cf6d279a-6e61-437b-a10d-c8c0839a4b6c"],
+Cell[1832375, 38610, 225, 5, 30, "Input",ExpressionUUID->"29e12a50-5603-4075-acad-7f1ef27d926f"],
+Cell[1832603, 38617, 415, 7, 30, "Input",ExpressionUUID->"28dcc857-91b5-4018-8c0d-d260298c1a23"],
+Cell[1833021, 38626, 323, 6, 30, "Input",ExpressionUUID->"8b78cabd-c2da-4b25-8579-468b133d62a5"],
 Cell[CellGroupData[{
-Cell[945917, 20213, 723, 10, 37, "Subsubsection",ExpressionUUID->"e13c7813-d5b6-4cd9-90c9-a2bbc301ce64"],
-Cell[946643, 20225, 734, 12, 30, "Input",ExpressionUUID->"5ac9f346-ba7b-4489-b763-90313fb0fed1"],
-Cell[947380, 20239, 5811, 125, 167, "Code",ExpressionUUID->"92aba750-de34-4762-8785-b80b845b2446"],
-Cell[953194, 20366, 3081, 81, 73, "Input",ExpressionUUID->"5213fddf-92b0-486b-9d22-c66f162c203f"],
+Cell[1833369, 38636, 633, 17, 48, "Input",ExpressionUUID->"f9d0f2b5-4df4-43c3-a6b3-dbe224c7e26f"],
+Cell[1834005, 38655, 732, 12, 34, "Output",ExpressionUUID->"cd0af42c-1c1c-4678-b878-a4444178968e"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1834774, 38672, 867, 12, 45, "Subsubsection",ExpressionUUID->"760bdf73-9cbe-4173-9780-d45e5efcbc6e"],
+Cell[1835644, 38686, 982, 15, 30, "Input",ExpressionUUID->"c2f103d7-814b-4e1a-9f21-ccab5e3bc52e"],
+Cell[1836629, 38703, 1518, 47, 157, "Input",ExpressionUUID->"23bcfa2e-08c5-4852-aeae-f9c703b27425"],
+Cell[CellGroupData[{
+Cell[1838172, 38754, 1239, 25, 52, "Code",ExpressionUUID->"30f6c9bd-0cc8-4d06-9941-67c71e14c323"],
+Cell[1839414, 38781, 4209, 71, 119, "Output",ExpressionUUID->"dadf5abb-3773-4519-8240-8398d74b964f"]
+}, Open  ]],
+Cell[1843638, 38855, 5898, 127, 167, "Code",ExpressionUUID->"13ad2966-8d6e-4bbe-8c5c-5203b1fd8558"],
+Cell[1849539, 38984, 3158, 82, 73, "Input",ExpressionUUID->"6c7cd4c1-ffc9-48ae-9ab0-981cadb7ccf0"],
+Cell[CellGroupData[{
+Cell[1852722, 39070, 420, 8, 30, "Input",ExpressionUUID->"e57b75e1-b450-435e-95f9-631296c21c14"],
+Cell[1853145, 39080, 5234, 88, 119, "Output",ExpressionUUID->"63869718-279f-4cec-b1b6-a078f2cad05e"]
+}, Open  ]],
+Cell[1858394, 39171, 1395, 35, 30, "Input",ExpressionUUID->"bb836641-a1b5-43e4-8217-8a1d20835727"],
+Cell[CellGroupData[{
+Cell[1859814, 39210, 1616, 42, 52, "Input",ExpressionUUID->"eca7dc10-ec0c-46a3-84e5-d7ef9972f630"],
+Cell[1861433, 39254, 32502, 549, 376, "Output",ExpressionUUID->"3ac3f42c-1446-478c-9f02-6c3f715125d1"]
+}, Open  ]],
+Cell[1893950, 39806, 4520, 84, 157, "Input",ExpressionUUID->"3cb8dcb7-b80a-45b9-9bf8-ba57292044a9"],
+Cell[1898473, 39892, 5055, 92, 178, "Input",ExpressionUUID->"5e0fb8fb-787e-4eaa-82d9-7c5d9046d929"],
+Cell[CellGroupData[{
+Cell[1903553, 39988, 1381, 34, 30, "Input",ExpressionUUID->"38f8dc55-8c1a-4ef8-b912-f0ad66b5a0e8"],
+Cell[1904937, 40024, 14474, 425, 358, "Output",ExpressionUUID->"35ba0f47-f099-424f-935a-b97a07bd3f92"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1919448, 40454, 2277, 61, 52, "Input",ExpressionUUID->"ac0de32a-930e-4336-97db-23e5e58c63e9"],
+Cell[1921728, 40517, 18177, 391, 536, "Output",ExpressionUUID->"39872acd-261a-4895-b78e-e4806332310b"]
+}, Open  ]],
+Cell[1939920, 40911, 786, 22, 30, "Input",ExpressionUUID->"34203ade-df6d-4fe4-89c2-d199ce36261b"],
+Cell[CellGroupData[{
+Cell[1940731, 40937, 3016, 80, 136, "Input",ExpressionUUID->"606f5078-2524-4a4d-abd5-c5c37118e9dc"],
+Cell[1943750, 41019, 10202, 289, 224, "Output",ExpressionUUID->"ce53abcd-3c16-47c3-94a2-b6e6aebd4902"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[1953989, 41313, 526, 14, 30, "Input",ExpressionUUID->"2df0beed-4914-4c4b-a83f-bf6769485687"],
+Cell[1954518, 41329, 2286, 53, 241, "Output",ExpressionUUID->"b02482f8-56c5-42ab-bc3e-c539163e8066"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[956300, 20451, 420, 8, 30, "Input",ExpressionUUID->"9db2a42d-ca78-4705-bd47-7771b941d8e5"],
-Cell[956723, 20461, 4358, 73, 77, "Output",ExpressionUUID->"348a088e-3f0e-43cf-8903-86669b215d6c"]
+Cell[1956841, 41387, 356, 7, 30, "Input",ExpressionUUID->"1ae7c79d-0793-44c0-9c40-93e9a06e9706"],
+Cell[1957200, 41396, 2403, 56, 246, "Output",ExpressionUUID->"a7a7cdca-05f0-47d5-8665-ebeaba050579"]
 }, Open  ]],
-Cell[961096, 20537, 1368, 35, 30, "Input",ExpressionUUID->"998d0d58-666e-4a61-8a5e-08b768f002bc"],
 Cell[CellGroupData[{
-Cell[962489, 20576, 1616, 42, 52, "Input",ExpressionUUID->"dbba69c5-64ff-41d7-9ae0-a5294b4e896f"],
-Cell[964108, 20620, 44040, 739, 376, "Output",ExpressionUUID->"f8cd5aba-fed6-41e5-9766-def61c7d6b4b"]
+Cell[1959640, 41457, 704, 20, 30, "Input",ExpressionUUID->"20a17ff4-d0db-4c7b-8304-55daf57db496"],
+Cell[1960347, 41479, 2233, 53, 242, "Output",ExpressionUUID->"3642f976-4e9d-4b33-a4ee-4492b5d22b18"]
 }, Open  ]],
-Cell[1008163, 21362, 4491, 83, 157, "Input",ExpressionUUID->"b756b054-b123-4669-a127-64f109d6365d"],
-Cell[1012657, 21447, 5030, 92, 178, "Input",ExpressionUUID->"950408a6-8a72-42d1-88b7-f14ea93e0f1f"],
 Cell[CellGroupData[{
-Cell[1017712, 21543, 1309, 33, 30, "Input",ExpressionUUID->"e8f6b75f-491a-459d-831c-5de36abeeac1"],
-Cell[1019024, 21578, 11070, 324, 272, "Output",ExpressionUUID->"33314ffe-d55e-49a1-b527-ad6b28691eba"]
+Cell[1962617, 41537, 364, 9, 30, "Input",ExpressionUUID->"bd0a6350-45bb-4504-a2a3-e4df66960614"],
+Cell[1962984, 41548, 2224, 52, 246, "Output",ExpressionUUID->"b3db8127-7b03-4e85-9cc3-d61f935786ac"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1030131, 21907, 2076, 58, 52, "Input",ExpressionUUID->"56c0fb7e-fa37-455f-b86f-6970e22585e7"],
-Cell[1032210, 21967, 14917, 390, 322, "Output",ExpressionUUID->"947b8cf1-9897-4c00-b930-e92921cb2659"]
+Cell[1965245, 41605, 2015, 43, 140, "Input",ExpressionUUID->"6b04288c-6535-4fa2-b0ee-50d259ad9e55"],
+Cell[1967263, 41650, 2151, 48, 64, "Output",ExpressionUUID->"7885bccc-0355-4da7-aa73-eba88666f423"],
+Cell[1969417, 41700, 670, 13, 54, "Output",ExpressionUUID->"4efb0dd4-d971-408b-82c8-7fd917238ce8"],
+Cell[1970090, 41715, 1323, 29, 71, "Output",ExpressionUUID->"77c5d7e2-9856-44d3-9d4f-f67a2f2c46cb"],
+Cell[1971416, 41746, 1323, 29, 71, "Output",ExpressionUUID->"cb12d93e-9fa1-4c46-b603-dfca7e57e65f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1047164, 22362, 3808, 93, 224, "Input",ExpressionUUID->"eb1bdbf0-b0de-438c-89b3-e8f1ada99615"],
-Cell[1050975, 22457, 520, 11, 54, "Output",ExpressionUUID->"953049f8-e2f8-4d33-9faf-ddbe733cebf3"],
-Cell[1051498, 22470, 1187, 27, 71, "Output",ExpressionUUID->"082cacbc-62b7-4e2d-9ca7-1207dc26a89d"],
-Cell[1052688, 22499, 1187, 27, 71, "Output",ExpressionUUID->"4415fd86-2157-4890-aa49-0cd5c6ced128"]
+Cell[1972776, 41780, 2508, 58, 140, "Input",ExpressionUUID->"01ee9c5e-ebb0-4991-b6ce-b7457df32146"],
+Cell[1975287, 41840, 475, 10, 54, "Output",ExpressionUUID->"58c5d2f1-7583-4df6-aa55-1e4978ee2379"],
+Cell[1975765, 41852, 1138, 26, 71, "Output",ExpressionUUID->"d9d2454b-fa7a-49da-aac8-49ecf993e4e5"],
+Cell[1976906, 41880, 1138, 26, 71, "Output",ExpressionUUID->"bbc1d825-3fc8-4fcf-8ef6-3b0e78237ec2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1053912, 22531, 2456, 60, 161, "Input",ExpressionUUID->"481e3590-15f2-4e7a-b6d0-bffabad652ea"],
-Cell[1056371, 22593, 478, 10, 54, "Output",ExpressionUUID->"afac42d1-ae88-4d31-b23e-fa65fed92bbb"],
-Cell[1056852, 22605, 1138, 26, 71, "Output",ExpressionUUID->"73ca0d3d-6cf9-4672-8c79-9ab8b8f7c499"],
-Cell[1057993, 22633, 1138, 26, 71, "Output",ExpressionUUID->"7738ff01-e7ec-4578-8e45-8a2826bc07b2"]
+Cell[1978081, 41911, 2749, 64, 161, "Input",ExpressionUUID->"bbb41ccc-845b-482d-bed3-4ad96e08bb29"],
+Cell[1980833, 41977, 961, 17, 54, "Output",ExpressionUUID->"04d40a62-890f-403c-a2b1-72d54b6827b8"],
+Cell[1981797, 41996, 1628, 33, 71, "Output",ExpressionUUID->"223acb7e-4a9b-4369-abd8-de7dbcd26f87"],
+Cell[1983428, 42031, 1627, 33, 71, "Output",ExpressionUUID->"e205e178-477b-4883-99d9-9d44c46c19b6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1059168, 22664, 2460, 59, 140, "Input",ExpressionUUID->"aac46334-c41e-423f-900e-c9df887237b4"],
-Cell[1061631, 22725, 475, 10, 54, "Output",ExpressionUUID->"082594c6-d878-4a22-8ceb-cc27f5344986"],
-Cell[1062109, 22737, 1146, 26, 71, "Output",ExpressionUUID->"3239975c-559c-402d-9c0f-83a4a5bfc243"],
-Cell[1063258, 22765, 1146, 26, 71, "Output",ExpressionUUID->"c34d702f-2365-454a-9548-01518f273d0b"]
+Cell[1985092, 42069, 2670, 63, 140, "Input",ExpressionUUID->"cadb8c2a-cb1d-4678-ae2f-a5f4252feca2"],
+Cell[1987765, 42134, 474, 10, 54, "Output",ExpressionUUID->"15156c90-c002-4964-bfc2-9e12c8073dff"],
+Cell[1988242, 42146, 1145, 26, 71, "Output",ExpressionUUID->"a9139835-719f-44ab-bee5-060d29629e67"],
+Cell[1989390, 42174, 1145, 26, 71, "Output",ExpressionUUID->"79a8705c-c316-4839-be0e-b6bf4dc379bd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1064441, 22796, 1934, 47, 73, "Input",ExpressionUUID->"5314a2a8-2612-429f-85ff-00986b61ee3e"],
-Cell[1066378, 22845, 53503, 1107, 392, "Output",ExpressionUUID->"cbcc120e-595e-43ef-a377-9c9f6de33c76"]
+Cell[1990572, 42205, 2129, 49, 73, "Input",ExpressionUUID->"012b5812-f444-4fd7-b1f4-32753eb27d37"],
+Cell[1992704, 42256, 54520, 1136, 392, "Output",ExpressionUUID->"eaa3160b-35c9-485a-a82e-bea6d2955a9c"]
 }, Open  ]],
-Cell[1119896, 23955, 829, 20, 30, "Input",ExpressionUUID->"eead933d-5226-471c-8ad2-b24bba821fb6"],
-Cell[1120728, 23977, 779, 16, 30, "Input",ExpressionUUID->"66e0b176-6653-48bb-8922-df7f206b4759"],
-Cell[1121510, 23995, 1283, 39, 52, "Input",ExpressionUUID->"a052cc22-737d-48d0-90d3-d536df9486b0"],
-Cell[1122796, 24036, 2678, 80, 94, "Input",ExpressionUUID->"62adb83b-ed14-4d4c-ae6d-d799365b2c9b"],
-Cell[1125477, 24118, 1797, 52, 84, "Input",ExpressionUUID->"e1e4cc11-952a-4fc6-b8d9-acf6c5f3af65"],
-Cell[1127277, 24172, 1914, 55, 84, "Input",ExpressionUUID->"ab67c741-3a50-45e9-9fa4-267cf5195ece"],
-Cell[1129194, 24229, 1962, 56, 84, "Input",ExpressionUUID->"c479bb72-f329-41fa-a0dc-1598e1f1e4b5"],
-Cell[CellGroupData[{
-Cell[1131181, 24289, 1449, 32, 94, "Input",ExpressionUUID->"45a1ba5e-cbb2-4426-863f-e49aefdb71f2"],
-Cell[1132633, 24323, 3000, 58, 64, "Output",ExpressionUUID->"011c1179-968b-4cd2-8248-090a997f51a6"],
-Cell[1135636, 24383, 1772, 27, 54, "Output",ExpressionUUID->"d041f95d-8c90-45dc-b615-96fab80cc7d7"],
-Cell[1137411, 24412, 3235, 63, 93, "Output",ExpressionUUID->"75881f98-b9d8-4f32-ba90-c939c071fdeb"],
-Cell[1140649, 24477, 3236, 63, 93, "Output",ExpressionUUID->"f28a2c87-df1f-4555-aec2-c7846de4160c"]
+Cell[2047239, 43395, 829, 20, 30, "Input",ExpressionUUID->"27834e1e-f297-4ee6-ad16-78c156070103"],
+Cell[2048071, 43417, 779, 16, 30, "Input",ExpressionUUID->"f45d3075-1098-4b28-8b0a-4325719a204c"],
+Cell[2048853, 43435, 1283, 39, 52, "Input",ExpressionUUID->"86c77730-5104-4b10-9c44-f29581ef63c1"],
+Cell[2050139, 43476, 2678, 80, 94, "Input",ExpressionUUID->"39b0c760-e145-433b-87c3-c0c8894baa00"],
+Cell[2052820, 43558, 1943, 54, 84, "Input",ExpressionUUID->"f8b4c8ad-7b88-4db2-a15d-bb3f15f12886"],
+Cell[2054766, 43614, 2059, 57, 84, "Input",ExpressionUUID->"ddcaa28b-db54-411a-99ad-aebbdae287a4"],
+Cell[2056828, 43673, 2111, 58, 84, "Input",ExpressionUUID->"3bd6e847-a73f-40e9-9ac0-1f10418b6e00"],
+Cell[CellGroupData[{
+Cell[2058964, 43735, 1698, 37, 94, "Input",ExpressionUUID->"dfeedb63-de3b-4c8c-b71e-2635601c86c5"],
+Cell[2060665, 43774, 2967, 57, 64, "Output",ExpressionUUID->"b25a827f-5a2a-4a6e-9506-ad7584ee1064"],
+Cell[2063635, 43833, 1743, 26, 54, "Output",ExpressionUUID->"98f2c9db-f006-4bff-9a78-0aa00cc4bb29"],
+Cell[2065381, 43861, 3215, 62, 93, "Output",ExpressionUUID->"08dc13d2-f42b-44d0-8fc2-7d98afc0622c"],
+Cell[2068599, 43925, 3212, 62, 93, "Output",ExpressionUUID->"f3eeb84d-375f-448e-a47e-bcec9cdb5ed8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1143922, 24545, 1237, 29, 94, "Input",ExpressionUUID->"d6921b7b-0b04-4615-979e-155a0141a782"],
-Cell[1145162, 24576, 2140, 46, 64, "Output",ExpressionUUID->"76180a6d-1423-46d8-9583-d8bc83c76720"],
-Cell[1147305, 24624, 939, 16, 54, "Output",ExpressionUUID->"4244e3b5-0405-453e-aed9-c69e9b874003"],
-Cell[1148247, 24642, 2404, 52, 93, "Output",ExpressionUUID->"4da0733a-0165-4d94-b926-e5e83a59187d"],
-Cell[1150654, 24696, 2404, 52, 93, "Output",ExpressionUUID->"4fba846e-e7a5-47a9-af3a-eef084ff3f7a"]
+Cell[2071848, 43992, 1279, 29, 94, "Input",ExpressionUUID->"b8d0a23d-13e0-4363-b92f-3a85d26fb9f3"],
+Cell[2073130, 44023, 2078, 45, 64, "Output",ExpressionUUID->"09ff5174-882c-4671-a9a5-ac217e1aff9e"],
+Cell[2075211, 44070, 878, 15, 54, "Output",ExpressionUUID->"2409ce7a-74e9-4c56-ba33-675b999599d8"],
+Cell[2076092, 44087, 2345, 51, 93, "Output",ExpressionUUID->"2995259d-0536-4ace-a470-64ac1ea72814"],
+Cell[2078440, 44140, 2345, 51, 93, "Output",ExpressionUUID->"34c99d4c-d1ac-411c-b927-27e6af127b9b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1153095, 24753, 1123, 27, 94, "Input",ExpressionUUID->"522d1fa2-9c08-4bf8-ac2e-084e47a51350"],
-Cell[1154221, 24782, 2030, 44, 64, "Output",ExpressionUUID->"ddf3f216-e636-4c17-badb-ac6d45745a3d"],
-Cell[1156254, 24828, 833, 14, 54, "Output",ExpressionUUID->"55ebaf28-5097-4647-851d-b36abe22075b"],
-Cell[1157090, 24844, 2292, 50, 93, "Output",ExpressionUUID->"eb810d48-ec87-447d-801b-400c86e3103f"],
-Cell[1159385, 24896, 2294, 50, 93, "Output",ExpressionUUID->"b276be37-4da2-44ad-994b-d49e2e67fd88"]
+Cell[2080822, 44196, 1299, 29, 115, "Input",ExpressionUUID->"30ff8fa7-61ac-474e-a9c8-609492223366"],
+Cell[2082124, 44227, 2112, 46, 64, "Output",ExpressionUUID->"645077fe-3622-4b28-a7dd-5b574bcee264"],
+Cell[2084239, 44275, 914, 16, 54, "Output",ExpressionUUID->"f0f63f94-2e83-4d4a-b5a1-ab216e2d2066"],
+Cell[2085156, 44293, 2373, 52, 93, "Output",ExpressionUUID->"849d8cd1-a129-4675-9c4d-6177516821eb"],
+Cell[2087532, 44347, 2373, 52, 93, "Output",ExpressionUUID->"e559911e-fcf5-4229-9a57-bbda72c1ea6a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1161716, 24951, 1337, 28, 30, "Input",ExpressionUUID->"acaaf87d-605f-449f-a267-565d9485fdf8"],
-Cell[1163056, 24981, 17337, 355, 247, "Output",ExpressionUUID->"f15fea70-fdcd-4d80-a3fa-ccca0cebabe4"]
+Cell[2089942, 44404, 1285, 27, 30, "Input",ExpressionUUID->"f856ad1e-4ec0-462b-b5bb-9f52e8fc7e8d"],
+Cell[2091230, 44433, 17262, 355, 247, "Output",ExpressionUUID->"095fa048-bb41-4bb9-983b-e270abab6ce3"]
 }, Open  ]]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[1180442, 25342, 273, 4, 37, "Subsubsection",ExpressionUUID->"a9554323-b56a-46dd-a836-f64f04d9841d"],
+Cell[2108541, 44794, 273, 4, 37, "Subsubsection",ExpressionUUID->"6d04a514-6e4f-4e73-b51a-dd8259a0389b"],
 Cell[CellGroupData[{
-Cell[1180740, 25350, 5676, 141, 142, "Input",ExpressionUUID->"16ad665d-3afa-499c-bedb-b1274fcd679e"],
-Cell[1186419, 25493, 142281, 2716, 414, "Output",ExpressionUUID->"bbbf7627-9081-4f84-b4a2-2de78e751b5a"]
+Cell[2108839, 44802, 5676, 141, 142, "Input",ExpressionUUID->"9bd3df73-9a49-4cd4-8174-aafbdfc6b798"],
+Cell[2114518, 44945, 142580, 2729, 414, "Output",ExpressionUUID->"566b0276-dfa0-405d-b96c-1168ce012006"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1328737, 28214, 349, 8, 30, "Input",ExpressionUUID->"b39206b7-4804-4f6d-8813-888c7c12453c"],
-Cell[1329089, 28224, 609, 10, 34, "Output",ExpressionUUID->"70034bf6-b7f5-46ba-9401-2f3cf6f903c8"]
+Cell[2257135, 47679, 349, 8, 30, "Input",ExpressionUUID->"64e3adf3-a796-498b-ac84-88ce92184d56"],
+Cell[2257487, 47689, 609, 10, 34, "Output",ExpressionUUID->"2d32156a-6fc1-4a15-a222-f01663053148"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1329735, 28239, 1051, 26, 30, "Input",ExpressionUUID->"10df7f37-854e-41a4-8167-c7ab5fcc8abe"],
-Cell[1330789, 28267, 2897, 60, 56, "Output",ExpressionUUID->"e978d45a-e864-469e-bd2c-e0c25b6711d2"]
+Cell[2258133, 47704, 1051, 26, 30, "Input",ExpressionUUID->"290b4491-fd7e-495a-9cde-ebb5e55cd772"],
+Cell[2259187, 47732, 2897, 60, 56, "Output",ExpressionUUID->"de0a5063-a855-4688-b3c7-aa8ccc3f7c91"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1333723, 28332, 1005, 26, 30, "Input",ExpressionUUID->"a3175abd-4dd3-47ab-93d1-55ff7013ad08"],
-Cell[1334731, 28360, 2881, 59, 56, "Output",ExpressionUUID->"334a5995-6edd-408e-a53b-f40843d962f3"]
+Cell[2262121, 47797, 1005, 26, 30, "Input",ExpressionUUID->"5f84b267-e801-49e5-a26a-aa7b8f2dba95"],
+Cell[2263129, 47825, 2881, 59, 56, "Output",ExpressionUUID->"9833adf8-acd4-4b90-ae27-bbbed5f210c4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1337649, 28424, 1005, 26, 30, "Input",ExpressionUUID->"eef8391e-d3f5-46a0-ad92-f1d1600f3ba9"],
-Cell[1338657, 28452, 2828, 58, 56, "Output",ExpressionUUID->"2175f6d5-f496-49f9-b5ee-052489f2ee87"]
+Cell[2266047, 47889, 1005, 26, 30, "Input",ExpressionUUID->"7782f120-3890-4451-b240-76c4a914d8df"],
+Cell[2267055, 47917, 2828, 58, 56, "Output",ExpressionUUID->"04144f92-c3bd-4568-96d1-c9638ec362c7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1341522, 28515, 1000, 26, 30, "Input",ExpressionUUID->"a933cb49-2398-48e1-96fb-22c81f8678da"],
-Cell[1342525, 28543, 2808, 58, 56, "Output",ExpressionUUID->"6ad4fea0-4ebb-47f5-9ba0-7ccd438c8546"]
+Cell[2269920, 47980, 1000, 26, 30, "Input",ExpressionUUID->"c5c64f18-24b7-4cda-b8dd-97ab873abb42"],
+Cell[2270923, 48008, 2808, 58, 56, "Output",ExpressionUUID->"3f1fa4da-a857-40c1-86a6-6ec7d3b0b2a8"]
 }, Open  ]],
-Cell[1345348, 28604, 1720, 49, 73, "Input",ExpressionUUID->"e254e124-6337-47c0-ab70-bd00769040b5"],
-Cell[1347071, 28655, 1710, 49, 73, "Input",ExpressionUUID->"1e5a26e8-3915-40bc-b425-099145151ed1"],
-Cell[1348784, 28706, 1766, 49, 73, "Input",ExpressionUUID->"1cfbf28c-e6c3-40b2-8f57-8524552c9d0f"],
-Cell[1350553, 28757, 2191, 57, 73, "Input",ExpressionUUID->"74876f18-4de6-449b-9667-1d03b46de9a7"],
+Cell[2273746, 48069, 1720, 49, 73, "Input",ExpressionUUID->"3858514b-521a-4afd-89be-b9503151e8a7"],
+Cell[2275469, 48120, 1710, 49, 73, "Input",ExpressionUUID->"efd3046f-f669-48e3-ad53-7b55ea7b94f7"],
+Cell[2277182, 48171, 1766, 49, 73, "Input",ExpressionUUID->"f3c54faa-9fbc-4c95-8a74-f9ad4e0efb6e"],
+Cell[2278951, 48222, 2191, 57, 73, "Input",ExpressionUUID->"9ea9cd48-e509-46cf-ab99-2d5d2f84f16a"],
 Cell[CellGroupData[{
-Cell[1352769, 28818, 1106, 30, 30, "Input",ExpressionUUID->"bc430d15-73c1-4fb7-9073-0b448ea8ac0b"],
-Cell[1353878, 28850, 2917, 60, 56, "Output",ExpressionUUID->"43bcfb65-aabb-4fe7-8834-1c25d913b601"]
+Cell[2281167, 48283, 1106, 30, 30, "Input",ExpressionUUID->"124baf1d-7248-49d9-be51-cd9fe219e64e"],
+Cell[2282276, 48315, 2917, 60, 56, "Output",ExpressionUUID->"8802193e-84e7-4d2c-86d4-97ba30ef0ee4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1356832, 28915, 1108, 30, 30, "Input",ExpressionUUID->"f679edf9-38a6-4e4a-bc0e-846eb20517fd"],
-Cell[1357943, 28947, 2936, 60, 56, "Output",ExpressionUUID->"f5df4ca0-56aa-4618-9e21-f97016dfa573"]
+Cell[2285230, 48380, 1108, 30, 30, "Input",ExpressionUUID->"ba28cb1e-71b2-46e9-a8f5-af007a0418f7"],
+Cell[2286341, 48412, 2936, 60, 56, "Output",ExpressionUUID->"32db8507-ebf6-4d06-890d-f6797415f804"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1360916, 29012, 1109, 30, 30, "Input",ExpressionUUID->"ae13281f-f81c-4f2f-a684-67767858dcbf"],
-Cell[1362028, 29044, 2389, 52, 56, "Output",ExpressionUUID->"fe7439a0-f170-41da-9227-086ab3904de6"]
+Cell[2289314, 48477, 1109, 30, 30, "Input",ExpressionUUID->"265bba19-b12b-4d73-85ce-a38bc8f2b0c3"],
+Cell[2290426, 48509, 2389, 52, 56, "Output",ExpressionUUID->"ad83f233-2ad8-4a70-bd18-55e383e127ac"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1364454, 29101, 1132, 30, 30, "Input",ExpressionUUID->"b01b60d2-1fd6-49a9-8162-b4eebe578d23"],
-Cell[1365589, 29133, 2702, 56, 56, "Output",ExpressionUUID->"a30c712b-0b38-4aad-a7f5-dc8fb44b950d"]
+Cell[2292852, 48566, 1132, 30, 30, "Input",ExpressionUUID->"eb27c548-a120-457b-beee-05fc95b2db3a"],
+Cell[2293987, 48598, 2702, 56, 56, "Output",ExpressionUUID->"2e72181e-2cf9-48bd-869a-a1167a73e122"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1368328, 29194, 1485, 34, 94, "Input",ExpressionUUID->"1e6bb84f-aa1f-4e46-ab59-9e7e2528ce12"],
-Cell[1369816, 29230, 2976, 65, 56, "Output",ExpressionUUID->"6a7e1325-c4db-4218-b061-edf3b266b521"],
-Cell[1372795, 29297, 2957, 63, 56, "Output",ExpressionUUID->"23ff7e7a-3eea-485b-9f0c-00b8a282a64e"],
-Cell[1375755, 29362, 2948, 61, 56, "Output",ExpressionUUID->"394aba21-b361-4ff3-b431-08fec9f55249"],
-Cell[1378706, 29425, 2944, 61, 56, "Output",ExpressionUUID->"b8c34a3a-b22c-4b4b-9a44-9ad6ec92ff45"]
+Cell[2296726, 48659, 1485, 34, 94, "Input",ExpressionUUID->"2afbd1e5-9043-474b-b354-f73ae9642d30"],
+Cell[2298214, 48695, 2976, 65, 56, "Output",ExpressionUUID->"0a7a6462-4ca5-4587-be52-bb38e0c4359e"],
+Cell[2301193, 48762, 2957, 63, 56, "Output",ExpressionUUID->"c5cc6e2a-3f92-4676-8e61-137e908ee958"],
+Cell[2304153, 48827, 2948, 61, 56, "Output",ExpressionUUID->"d1f7d6c7-6a11-4732-8ad4-25f4ae65027f"],
+Cell[2307104, 48890, 2944, 61, 56, "Output",ExpressionUUID->"3d0c18cb-01df-4ec1-809c-50fd73f58a36"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1381687, 29491, 6574, 152, 142, "Input",ExpressionUUID->"67964013-3a15-4f6d-85dc-54242dacf385"],
-Cell[1388264, 29645, 95016, 1993, 414, "Output",ExpressionUUID->"3e9414ab-8165-404d-aaeb-20abf3509e82"]
+Cell[2310085, 48956, 6574, 152, 142, "Input",ExpressionUUID->"a18592dc-afc9-4b9d-9e96-8f2b72bbdee4"],
+Cell[2316662, 49110, 95315, 2006, 414, "Output",ExpressionUUID->"dab1011c-88d6-4783-9d48-823cfb509efe"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1483317, 31643, 426, 9, 30, "Input",ExpressionUUID->"1f7b308e-be65-44b7-adfd-ffbde361075a"],
-Cell[1483746, 31654, 677, 11, 34, "Output",ExpressionUUID->"fbaaa07d-693c-4fa8-b4d5-9debc4f0d2af"]
+Cell[2412014, 51121, 426, 9, 30, "Input",ExpressionUUID->"6ae07d9a-d05d-44a2-8158-f638252911bb"],
+Cell[2412443, 51132, 677, 11, 34, "Output",ExpressionUUID->"2852eccd-c265-4c4b-b095-806bf85f4077"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1484460, 31670, 7236, 169, 184, "Input",ExpressionUUID->"78c1145e-07d0-4aff-b413-821fb832bd7d"],
-Cell[1491699, 31841, 94627, 1886, 415, "Output",ExpressionUUID->"434a95ac-4325-4690-8638-cbe1fdbee546"]
+Cell[2413157, 51148, 7236, 169, 184, "Input",ExpressionUUID->"ceb5819b-9acb-4bf7-9344-e7f0b597f51f"],
+Cell[2420396, 51319, 94834, 1895, 415, "Output",ExpressionUUID->"2ebd18d0-1c76-412c-9a1b-9e9ff9514d41"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1586363, 33732, 350, 8, 30, "Input",ExpressionUUID->"122a995e-5ef3-45ed-87fd-969231ca115c"],
-Cell[1586716, 33742, 514, 8, 34, "Output",ExpressionUUID->"31f48f90-6f4f-4adc-8abf-04fd3ab85765"]
+Cell[2515267, 53219, 350, 8, 30, "Input",ExpressionUUID->"68ace8e3-ce74-4c33-b92e-fabb376bb655"],
+Cell[2515620, 53229, 514, 8, 34, "Output",ExpressionUUID->"ed295764-b770-4b53-84bd-c64a10e9dda9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1587267, 33755, 7617, 178, 184, "Input",ExpressionUUID->"0616653d-f922-48dc-b2cf-1fe75f68efcb"],
-Cell[1594887, 33935, 94155, 1872, 414, "Output",ExpressionUUID->"4feef47f-fca9-41f9-a941-2fe9ccbcf12b"]
+Cell[2516171, 53242, 7617, 178, 184, "Input",ExpressionUUID->"79671a35-564a-44f3-a894-a7ba785c99ee"],
+Cell[2523791, 53422, 94362, 1881, 414, "Output",ExpressionUUID->"8a22349d-9626-40e4-b940-9b77b014b00b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1689079, 35812, 403, 9, 30, "Input",ExpressionUUID->"df588757-3a5a-4944-b352-cd8c5342a678"],
-Cell[1689485, 35823, 544, 8, 34, "Output",ExpressionUUID->"7afa1e77-6c85-48e8-90fa-91e2c13a413d"]
+Cell[2618190, 55308, 403, 9, 30, "Input",ExpressionUUID->"351351a7-c9ce-41b5-9a10-759e05fabfa2"],
+Cell[2618596, 55319, 544, 8, 34, "Output",ExpressionUUID->"8a42b001-334b-4959-9e80-c23e00b78ec4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1690066, 35836, 7448, 179, 163, "Input",ExpressionUUID->"0afd26fb-bcfe-42be-9291-2406fdcef70a"],
-Cell[1697517, 36017, 116939, 2270, 413, "Output",ExpressionUUID->"43da2203-4826-4172-bfd8-68ad2ad98683"]
+Cell[2619177, 55332, 7448, 179, 163, "Input",ExpressionUUID->"18f9384a-f0d3-4ae2-bd6d-3064f36c6123"],
+Cell[2626628, 55513, 117238, 2283, 413, "Output",ExpressionUUID->"c3f44ff4-5e4d-4818-8399-824cb62b2340"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1814493, 38292, 372, 8, 30, "Input",ExpressionUUID->"041d9b84-6ccc-4718-bb34-d6997746afac"],
-Cell[1814868, 38302, 368, 6, 34, "Output",ExpressionUUID->"87e0d370-32e1-408a-b724-624c84733bf7"]
+Cell[2743903, 57801, 372, 8, 30, "Input",ExpressionUUID->"445f8005-0027-46e5-9d8f-502074bf4253"],
+Cell[2744278, 57811, 368, 6, 34, "Output",ExpressionUUID->"d043ee31-786f-4d5e-84a7-f42d747ffe2e"]
 }, Open  ]]
 }, Closed]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1815297, 38315, 158, 3, 67, "Section",ExpressionUUID->"80ca7b39-5a03-4176-afda-6bed1f5c9a7d"],
-Cell[1815458, 38320, 1507, 47, 94, "Input",ExpressionUUID->"fbeac557-fafe-455b-9ead-08d635cc2d06"],
-Cell[1816968, 38369, 7427, 199, 535, "Input",ExpressionUUID->"e8e0b02d-0696-4186-9bcd-78a9a6c66605"],
-Cell[1824398, 38570, 567, 17, 30, "Input",ExpressionUUID->"edc9fa08-7cc7-4814-877f-15dff493bd32"],
-Cell[1824968, 38589, 447, 13, 30, "Input",ExpressionUUID->"584d7a2d-c68c-4d36-8cdb-4e52aead023e"],
-Cell[1825418, 38604, 2651, 80, 115, "Input",ExpressionUUID->"ae009b82-220d-481d-9be5-1d6d81a60893"],
-Cell[1828072, 38686, 2324, 62, 115, "Input",ExpressionUUID->"96a254a7-d679-4f22-be1b-1622e20f018b"],
-Cell[1830399, 38750, 2153, 58, 115, "Input",ExpressionUUID->"edd45e2e-7f01-465b-a917-a78f3e3c4c28"],
-Cell[1832555, 38810, 2193, 55, 73, "Input",ExpressionUUID->"59c6ee3a-e822-41a7-913f-5b9eecd0d8c6"],
-Cell[1834751, 38867, 578, 17, 30, "Input",ExpressionUUID->"c8539ecd-a88e-4bd8-b06b-7b0232d854ac"],
-Cell[1835332, 38886, 583, 17, 30, "Input",ExpressionUUID->"6bf48941-4601-4318-9588-2805657cd25e"],
-Cell[1835918, 38905, 667, 19, 30, "Input",ExpressionUUID->"43dd9ec9-26f5-4bfb-b44b-b200a7b722f4"],
-Cell[CellGroupData[{
-Cell[1836610, 38928, 6736, 151, 388, "Input",ExpressionUUID->"07292ab0-33af-4f76-9b08-efb742e6b27b"],
-Cell[1843349, 39081, 2282, 35, 40, "Message",ExpressionUUID->"b9c4213a-0e7c-4799-943d-f364e7178e05"],
-Cell[1845634, 39118, 2284, 35, 40, "Message",ExpressionUUID->"ef115732-9ea8-4df9-a591-6bd4cca3c30d"],
-Cell[1847921, 39155, 61703, 1218, 389, "Output",ExpressionUUID->"961302d2-13d1-4375-ade9-c5a1c082a57b"]
+Cell[2744707, 57824, 158, 3, 67, "Section",ExpressionUUID->"80ca7b39-5a03-4176-afda-6bed1f5c9a7d"],
+Cell[2744868, 57829, 1506, 47, 30, "Input",ExpressionUUID->"fbeac557-fafe-455b-9ead-08d635cc2d06"],
+Cell[2746377, 57878, 7426, 199, 220, "Input",ExpressionUUID->"e8e0b02d-0696-4186-9bcd-78a9a6c66605"],
+Cell[2753806, 58079, 566, 17, 30, "Input",ExpressionUUID->"edc9fa08-7cc7-4814-877f-15dff493bd32"],
+Cell[2754375, 58098, 446, 13, 30, "Input",ExpressionUUID->"584d7a2d-c68c-4d36-8cdb-4e52aead023e"],
+Cell[2754824, 58113, 2650, 80, 115, "Input",ExpressionUUID->"ae009b82-220d-481d-9be5-1d6d81a60893"],
+Cell[2757477, 58195, 2323, 62, 115, "Input",ExpressionUUID->"96a254a7-d679-4f22-be1b-1622e20f018b"],
+Cell[2759803, 58259, 2152, 58, 115, "Input",ExpressionUUID->"edd45e2e-7f01-465b-a917-a78f3e3c4c28"],
+Cell[2761958, 58319, 2192, 55, 73, "Input",ExpressionUUID->"59c6ee3a-e822-41a7-913f-5b9eecd0d8c6"],
+Cell[2764153, 58376, 577, 17, 30, "Input",ExpressionUUID->"c8539ecd-a88e-4bd8-b06b-7b0232d854ac"],
+Cell[2764733, 58395, 582, 17, 30, "Input",ExpressionUUID->"6bf48941-4601-4318-9588-2805657cd25e"],
+Cell[2765318, 58414, 692, 19, 30, "Input",ExpressionUUID->"43dd9ec9-26f5-4bfb-b44b-b200a7b722f4"],
+Cell[2766013, 58435, 474, 12, 30, "Input",ExpressionUUID->"e9319a53-dcb7-4a27-a799-45d35ef3b7b2"],
+Cell[CellGroupData[{
+Cell[2766512, 58451, 6736, 151, 157, "Input",ExpressionUUID->"07292ab0-33af-4f76-9b08-efb742e6b27b"],
+Cell[2773251, 58604, 2282, 35, 40, "Message",ExpressionUUID->"b9c4213a-0e7c-4799-943d-f364e7178e05"],
+Cell[2775536, 58641, 2284, 35, 40, "Message",ExpressionUUID->"ef115732-9ea8-4df9-a591-6bd4cca3c30d"],
+Cell[2777823, 58678, 61703, 1218, 389, "Output",ExpressionUUID->"961302d2-13d1-4375-ade9-c5a1c082a57b"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[2839563, 59901, 348, 8, 30, "Input",ExpressionUUID->"df6bf54d-d9ca-43d0-ab70-8833d9b66a8e"],
+Cell[2839914, 59911, 277, 5, 34, "Output",ExpressionUUID->"04312f3a-d1a9-4d40-9f19-f177124215d9"]
+}, Open  ]],
+Cell[2840206, 59919, 1789, 48, 30, "Input",ExpressionUUID->"c061ac4b-7dd0-4488-981a-d9e39ad210ba"],
+Cell[CellGroupData[{
+Cell[2842020, 59971, 6070, 148, 157, "Input",ExpressionUUID->"053a0694-e2aa-49a3-a5d3-0aaab3258a73"],
+Cell[2848093, 60121, 688, 14, 40, "Message",ExpressionUUID->"aa85f409-b9df-4e22-aff1-85caa4af2abe"],
+Cell[2848784, 60137, 689, 14, 40, "Message",ExpressionUUID->"d4222266-d98f-4733-89ca-ec5a4aa65d67"],
+Cell[2849476, 60153, 60462, 1209, 389, "Output",ExpressionUUID->"5fa4fc7a-3c0f-4e5c-8f1e-d27b1d9ea2ed"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[2909975, 61367, 396, 9, 30, "Input",ExpressionUUID->"18eb66fe-9c48-41a0-9250-b1ca807dfaa8"],
+Cell[2910374, 61378, 302, 6, 34, "Output",ExpressionUUID->"bdc71ec0-94c8-4813-b13b-c7dfcf5e18c6"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[2910713, 61389, 6275, 161, 178, "Input",ExpressionUUID->"e64cc31c-ea3f-44b3-adef-155fe217d554"],
+Cell[2916991, 61552, 613, 13, 40, "Message",ExpressionUUID->"543ad54a-5889-49a4-98c1-da775ea204ee"],
+Cell[2917607, 61567, 613, 13, 40, "Message",ExpressionUUID->"c0641c66-2419-453b-9ea9-d3c0cc81db60"],
+Cell[2918223, 61582, 58417, 1169, 389, "Output",ExpressionUUID->"cf7ed30e-cfaf-4e62-9d13-8e574d7ea64f"]
+}, Open  ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2976689, 62757, 212, 4, 53, "Section",ExpressionUUID->"4a640a44-63e9-4a61-ade8-a7d3b1cee308"],
+Cell[2976904, 62763, 1506, 47, 94, "Input",ExpressionUUID->"0da8e937-b7e6-41b0-85a1-b2eb026dfb1a"],
+Cell[2978413, 62812, 7426, 199, 535, "Input",ExpressionUUID->"6090c649-7ff6-4987-9f37-087aee933d80"],
+Cell[2985842, 63013, 566, 17, 30, "Input",ExpressionUUID->"419f481d-1afb-44b8-b699-0a6d2d61e5bc"],
+Cell[2986411, 63032, 1462, 46, 94, "Input",ExpressionUUID->"512b9473-7543-44af-99c5-974231575310"],
+Cell[2987876, 63080, 446, 13, 30, "Input",ExpressionUUID->"4fb7080e-cc7d-47a2-87a8-796b06fbb095"],
+Cell[2988325, 63095, 2650, 80, 115, "Input",ExpressionUUID->"e72f0402-909a-4dfe-a390-4bd54559218b"],
+Cell[2990978, 63177, 2323, 62, 115, "Input",ExpressionUUID->"bee18523-0e81-4ec2-9af3-e4cdbb9e1f66"],
+Cell[2993304, 63241, 2152, 58, 115, "Input",ExpressionUUID->"56dd2278-dd2c-4820-be66-580f9cd471fe"],
+Cell[CellGroupData[{
+Cell[2995481, 63303, 270, 5, 30, "Input",ExpressionUUID->"58d43c05-c40b-4aa1-b9f3-514705c4f376"],
+Cell[2995754, 63310, 992, 33, 100, "Output",ExpressionUUID->"d4a20295-b76e-480d-a0c2-2c8205b987a5"]
+}, Open  ]],
+Cell[2996761, 63346, 2192, 55, 73, "Input",ExpressionUUID->"91bb9413-5379-4dc8-865c-e1a7a4414e35"],
+Cell[2998956, 63403, 577, 17, 30, "Input",ExpressionUUID->"9df6eda9-d80a-4f95-b938-d605209adf0d"],
+Cell[2999536, 63422, 582, 17, 30, "Input",ExpressionUUID->"8d4f3ef0-59a5-4964-8737-a6d715aa0a60"],
+Cell[3000121, 63441, 692, 19, 30, "Input",ExpressionUUID->"fb372ee2-5adf-45fc-a072-555f18bbecfd"],
+Cell[3000816, 63462, 474, 12, 30, "Input",ExpressionUUID->"e2af8cc4-a315-4732-9c20-c77119a18961"],
+Cell[CellGroupData[{
+Cell[3001315, 63478, 6736, 151, 388, "Input",ExpressionUUID->"8197767f-dcc3-4315-b004-ac31f2095910"],
+Cell[3008054, 63631, 2282, 35, 40, "Message",ExpressionUUID->"54c6068e-c56e-443a-b285-10381a2ea9e1"],
+Cell[3010339, 63668, 2284, 35, 40, "Message",ExpressionUUID->"ea4da1c8-97a2-4171-bfd8-27c0dcaa7f4a"],
+Cell[3012626, 63705, 61818, 1223, 389, "Output",ExpressionUUID->"98d7e4af-a128-437e-ad78-e6d58c34bab3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1909661, 40378, 348, 8, 30, "Input",ExpressionUUID->"df6bf54d-d9ca-43d0-ab70-8833d9b66a8e"],
-Cell[1910012, 40388, 277, 5, 34, "Output",ExpressionUUID->"04312f3a-d1a9-4d40-9f19-f177124215d9"]
+Cell[3074481, 64933, 348, 8, 30, "Input",ExpressionUUID->"a049b5ca-2db7-4e60-9b42-3390437800de"],
+Cell[3074832, 64943, 277, 5, 34, "Output",ExpressionUUID->"e8d96291-a2ec-442a-a50d-af2651b9d3ad"]
 }, Open  ]],
-Cell[1910304, 40396, 1789, 48, 52, "Input",ExpressionUUID->"c061ac4b-7dd0-4488-981a-d9e39ad210ba"],
+Cell[3075124, 64951, 1789, 48, 30, "Input",ExpressionUUID->"881bd7c2-9b6e-4399-8d2c-aecf7d091356"],
 Cell[CellGroupData[{
-Cell[1912118, 40448, 6070, 148, 430, "Input",ExpressionUUID->"053a0694-e2aa-49a3-a5d3-0aaab3258a73"],
-Cell[1918191, 40598, 688, 14, 40, "Message",ExpressionUUID->"aa85f409-b9df-4e22-aff1-85caa4af2abe"],
-Cell[1918882, 40614, 689, 14, 40, "Message",ExpressionUUID->"d4222266-d98f-4733-89ca-ec5a4aa65d67"],
-Cell[1919574, 40630, 60462, 1209, 389, "Output",ExpressionUUID->"5fa4fc7a-3c0f-4e5c-8f1e-d27b1d9ea2ed"]
+Cell[3076938, 65003, 6070, 148, 157, "Input",ExpressionUUID->"1e548f61-da3c-4c1c-b692-02b8515df1a0"],
+Cell[3083011, 65153, 688, 14, 40, "Message",ExpressionUUID->"70c56df7-9ffa-45c1-8c82-282160aad313"],
+Cell[3083702, 65169, 689, 14, 40, "Message",ExpressionUUID->"7070e695-c056-43fd-8e39-f9ef342f2c8f"],
+Cell[3084394, 65185, 60577, 1214, 389, "Output",ExpressionUUID->"07ea7daa-bb5c-4b01-aa79-86ef178f81bd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1980073, 41844, 396, 9, 30, "Input",ExpressionUUID->"18eb66fe-9c48-41a0-9250-b1ca807dfaa8"],
-Cell[1980472, 41855, 302, 6, 34, "Output",ExpressionUUID->"bdc71ec0-94c8-4813-b13b-c7dfcf5e18c6"]
+Cell[3145008, 66404, 396, 9, 30, "Input",ExpressionUUID->"86d48f43-fee8-48a4-8b5b-56c1ca6c67bb"],
+Cell[3145407, 66415, 302, 6, 34, "Output",ExpressionUUID->"b98fb660-e31c-4cda-9b61-f2b4f533dc20"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1980811, 41866, 6275, 161, 514, "Input",ExpressionUUID->"e64cc31c-ea3f-44b3-adef-155fe217d554"],
-Cell[1987089, 42029, 613, 13, 40, "Message",ExpressionUUID->"543ad54a-5889-49a4-98c1-da775ea204ee"],
-Cell[1987705, 42044, 613, 13, 40, "Message",ExpressionUUID->"c0641c66-2419-453b-9ea9-d3c0cc81db60"],
-Cell[1988321, 42059, 58417, 1169, 389, "Output",ExpressionUUID->"cf7ed30e-cfaf-4e62-9d13-8e574d7ea64f"]
+Cell[3145746, 66426, 6275, 161, 178, "Input",ExpressionUUID->"0bad28f4-c483-4c8d-b296-d0c97102f065"],
+Cell[3152024, 66589, 613, 13, 40, "Message",ExpressionUUID->"13b8f365-5df7-4d9f-8d63-7dca10fa78ef"],
+Cell[3152640, 66604, 613, 13, 40, "Message",ExpressionUUID->"c59cbab4-bf2c-4879-ace0-64c4d5f2cbed"],
+Cell[3153256, 66619, 58532, 1174, 389, "Output",ExpressionUUID->"cb71628c-2215-47d2-a2a9-5fd6a96c6818"]
 }, Open  ]]
 }, Open  ]]
 }, Open  ]]
diff --git a/code/RDown.m b/code/RDown.m
index e38f7fa914ed45a0d7b3e2b9b8d21069c1efc55a..ce417c8103817e0c82a92c108fbc86de23be5729 100644
--- a/code/RDown.m
+++ b/code/RDown.m
@@ -651,14 +651,15 @@ sxsdiroutaux[[All,1]]]
 
 
 Options[\[Omega]lmn]={"ModesData"->{},"ModesFile"->""};
-\[Omega]lmn[l_,m_,n_,\[Eta]_,\[Chi]1_,\[Chi]2_,OptionsPattern[]]:=Module[{file,data,modesdata,modesfile,sp,fmass,f\[Chi],\[Chi]\[Omega]\[Tau],\[Omega],\[Tau],llim,ulim},
+\[Omega]lmn[l_,m_,n_,\[Eta]_,\[Chi]1_,\[Chi]2_,OptionsPattern[]]:=Module[{file,data,modesdata,modesfile,mstr,sp,fmass,f\[Chi],\[Chi]\[Omega]\[Tau],\[Omega],\[Tau],llim,ulim},
 modesdata=OptionValue["ModesData"];
 modesfile=OptionValue["ModesFile"];
 
 If[Length[modesdata]==0,
     If[n<=7,
-       file=modesfile<>"l"<>ToString[l]<>"/n"<>ToString[n+1]<>"l"<>ToString[l]<>"m"<>ToString[m]<>".dat";,
-       file=modesfile<>"l"<>ToString[l]<>"/n7l"<>ToString[l]<>"m"<>ToString[m]<>".dat"];
+       If[m>=0,mstr="m",mstr="mm"];
+       file=modesfile<>"l"<>ToString[l]<>"/n"<>ToString[n+1]<>"l"<>ToString[l]<>mstr<>ToString[Abs[m]]<>".dat";,
+       file=modesfile<>"l"<>ToString[l]<>"/n7l"<>ToString[l]<>"m"<>ToString[Abs[m]]<>".dat"];
        If[Not@FileExistsQ[file],Print["File not found"];Return[];];
        data=Import[file];,
        
diff --git a/code/RDown.nb b/code/RDown.nb
index 7e4a921e2e24c8f8287206755fda75005748050a..e5ba6c724b9497d12c980a48fefc14f77fd5b763 100644
--- a/code/RDown.nb
+++ b/code/RDown.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    230966,       5755]
-NotebookOptionsPosition[    224490,       5651]
-NotebookOutlinePosition[    224865,       5667]
-CellTagsIndexPosition[    224822,       5664]
+NotebookDataLength[    231382,       5766]
+NotebookOptionsPosition[    224906,       5662]
+NotebookOutlinePosition[    225281,       5678]
+CellTagsIndexPosition[    225238,       5675]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -2926,9 +2926,10 @@ Cell[BoxData[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
-     "file", ",", "data", ",", "modesdata", ",", "modesfile", ",", "sp", ",", 
-      "fmass", ",", "f\[Chi]", ",", "\[Chi]\[Omega]\[Tau]", ",", "\[Omega]", 
-      ",", "\[Tau]", ",", "llim", ",", "ulim"}], "}"}], ",", "\n", 
+     "file", ",", "data", ",", "modesdata", ",", "modesfile", ",", "mstr", 
+      ",", "sp", ",", "fmass", ",", "f\[Chi]", ",", "\[Chi]\[Omega]\[Tau]", 
+      ",", "\[Omega]", ",", "\[Tau]", ",", "llim", ",", "ulim"}], "}"}], ",", 
+    "\n", 
     RowBox[{
      RowBox[{"modesdata", "=", 
       RowBox[{"OptionValue", "[", "\"\<ModesData\>\"", "]"}]}], ";", "\n", 
@@ -2945,20 +2946,28 @@ Cell[BoxData[{
          RowBox[{
           RowBox[{"n", "\[LessEqual]", "7"}], ",", "\n", "       ", 
           RowBox[{
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{"m", "\[GreaterEqual]", "0"}], ",", 
+             RowBox[{"mstr", "=", "\"\<m\>\""}], ",", 
+             RowBox[{"mstr", "=", "\"\<mm\>\""}]}], "]"}], ";", "\n", 
+           "       ", 
            RowBox[{"file", "=", 
             RowBox[{"modesfile", "<>", "\"\<l\>\"", "<>", 
              RowBox[{"ToString", "[", "l", "]"}], "<>", "\"\</n\>\"", "<>", 
              RowBox[{"ToString", "[", 
               RowBox[{"n", "+", "1"}], "]"}], "<>", "\"\<l\>\"", "<>", 
-             RowBox[{"ToString", "[", "l", "]"}], "<>", "\"\<m\>\"", "<>", 
-             RowBox[{"ToString", "[", "m", "]"}], "<>", "\"\<.dat\>\""}]}], 
-           ";"}], ",", "\n", "       ", 
+             RowBox[{"ToString", "[", "l", "]"}], "<>", "mstr", "<>", 
+             RowBox[{"ToString", "[", 
+              RowBox[{"Abs", "[", "m", "]"}], "]"}], "<>", "\"\<.dat\>\""}]}],
+            ";"}], ",", "\n", "       ", 
           RowBox[{"file", "=", 
            RowBox[{"modesfile", "<>", "\"\<l\>\"", "<>", 
             RowBox[{"ToString", "[", "l", "]"}], "<>", "\"\</n7l\>\"", "<>", 
             RowBox[{"ToString", "[", "l", "]"}], "<>", "\"\<m\>\"", "<>", 
-            RowBox[{"ToString", "[", "m", "]"}], "<>", "\"\<.dat\>\""}]}]}], 
-         "]"}], ";", "\n", "       ", 
+            RowBox[{"ToString", "[", 
+             RowBox[{"Abs", "[", "m", "]"}], "]"}], "<>", 
+            "\"\<.dat\>\""}]}]}], "]"}], ";", "\n", "       ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Not", "@", 
@@ -3047,9 +3056,11 @@ Cell[BoxData[{
    3.799116586199287*^9}, {3.799116618186366*^9, 3.7991166756249866`*^9}, {
    3.79911685538968*^9, 3.799116880268477*^9}, 3.799121006420978*^9, {
    3.7991210836378813`*^9, 3.799121172549109*^9}, {3.7991212170706882`*^9, 
-   3.799121217898446*^9}, {3.7991213008580313`*^9, 3.7991213613184977`*^9}},
- CellLabel->"In[50]:=",ExpressionUUID->"bc897087-f67b-459c-87a4-ec5ee7ca2ba2"]
-}, Closed]],
+   3.799121217898446*^9}, {3.7991213008580313`*^9, 3.7991213613184977`*^9}, {
+   3.8012858331477957`*^9, 3.8012858942144833`*^9}, 
+   3.801285933534213*^9},ExpressionUUID->"bc897087-f67b-459c-87a4-\
+ec5ee7ca2ba2"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -5726,34 +5737,34 @@ Cell[59780, 1625, 51635, 1269, 5639, "Code",ExpressionUUID->"53efc507-6a18-4eaf-
 }, Closed]],
 Cell[CellGroupData[{
 Cell[111452, 2899, 497, 7, 38, "Subsection",ExpressionUUID->"f2291a02-b823-4df6-a581-4fcde9b9eb4e"],
-Cell[111952, 2908, 5965, 142, 528, "Code",ExpressionUUID->"bc897087-f67b-459c-87a4-ec5ee7ca2ba2"]
-}, Closed]],
+Cell[111952, 2908, 6381, 153, 547, "Code",ExpressionUUID->"bc897087-f67b-459c-87a4-ec5ee7ca2ba2"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[117954, 3055, 487, 7, 38, "Subsection",ExpressionUUID->"4969b6f9-be82-4f3e-abc6-45d648828266"],
-Cell[118444, 3064, 4454, 121, 186, "Code",ExpressionUUID->"eda9a3bd-b2dd-4fe8-9fcb-bd728e8a287d"],
-Cell[122901, 3187, 12341, 336, 224, "Code",ExpressionUUID->"7c11673b-6e54-49ee-822b-64e19a8a50a6"]
+Cell[118370, 3066, 487, 7, 54, "Subsection",ExpressionUUID->"4969b6f9-be82-4f3e-abc6-45d648828266"],
+Cell[118860, 3075, 4454, 121, 186, "Code",ExpressionUUID->"eda9a3bd-b2dd-4fe8-9fcb-bd728e8a287d"],
+Cell[123317, 3198, 12341, 336, 224, "Code",ExpressionUUID->"7c11673b-6e54-49ee-822b-64e19a8a50a6"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[135279, 3528, 223, 4, 38, "Subsection",ExpressionUUID->"150df7a9-0598-4dbe-b33a-3a640381122d"],
-Cell[135505, 3534, 4147, 137, 186, "Code",ExpressionUUID->"5a45b164-5323-4cf0-886c-ea802182cb1d"],
-Cell[139655, 3673, 3151, 95, 167, "Code",ExpressionUUID->"8b8ec213-3236-4399-a9d4-0d7dbfdcc7e4"]
+Cell[135695, 3539, 223, 4, 38, "Subsection",ExpressionUUID->"150df7a9-0598-4dbe-b33a-3a640381122d"],
+Cell[135921, 3545, 4147, 137, 186, "Code",ExpressionUUID->"5a45b164-5323-4cf0-886c-ea802182cb1d"],
+Cell[140071, 3684, 3151, 95, 167, "Code",ExpressionUUID->"8b8ec213-3236-4399-a9d4-0d7dbfdcc7e4"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[142843, 3773, 267, 4, 38, "Subsection",ExpressionUUID->"ef40d02e-f487-40e1-b6da-592e7b6c3f02"],
-Cell[143113, 3779, 3357, 82, 243, "Code",ExpressionUUID->"cb69a25b-ca49-41e1-ac39-61c32a4d9fb6"],
-Cell[146473, 3863, 16567, 384, 775, "Code",ExpressionUUID->"2820b72e-3d09-4482-8e84-0d295d489fa4"],
-Cell[163043, 4249, 53989, 1214, 1972, "Code",ExpressionUUID->"497c5c2c-74eb-4562-8f69-941dcd0056c7"]
+Cell[143259, 3784, 267, 4, 38, "Subsection",ExpressionUUID->"ef40d02e-f487-40e1-b6da-592e7b6c3f02"],
+Cell[143529, 3790, 3357, 82, 243, "Code",ExpressionUUID->"cb69a25b-ca49-41e1-ac39-61c32a4d9fb6"],
+Cell[146889, 3874, 16567, 384, 775, "Code",ExpressionUUID->"2820b72e-3d09-4482-8e84-0d295d489fa4"],
+Cell[163459, 4260, 53989, 1214, 1972, "Code",ExpressionUUID->"497c5c2c-74eb-4562-8f69-941dcd0056c7"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[217069, 5468, 165, 3, 38, "Subsection",ExpressionUUID->"3fb109b0-2e0f-4e1e-a4da-311a2f2e096d"],
-Cell[217237, 5473, 2443, 54, 218, "Code",ExpressionUUID->"7d702440-ce11-4f2f-a3fd-860210f78382"],
-Cell[219683, 5529, 2812, 59, 205, "Code",ExpressionUUID->"6a85250f-5ba5-40dd-bedb-945dda498b2a"],
-Cell[222498, 5590, 1570, 42, 110, "Code",ExpressionUUID->"dedb7461-041a-428c-ba62-81c1dfe604f2"]
+Cell[217485, 5479, 165, 3, 38, "Subsection",ExpressionUUID->"3fb109b0-2e0f-4e1e-a4da-311a2f2e096d"],
+Cell[217653, 5484, 2443, 54, 218, "Code",ExpressionUUID->"7d702440-ce11-4f2f-a3fd-860210f78382"],
+Cell[220099, 5540, 2812, 59, 205, "Code",ExpressionUUID->"6a85250f-5ba5-40dd-bedb-945dda498b2a"],
+Cell[222914, 5601, 1570, 42, 110, "Code",ExpressionUUID->"dedb7461-041a-428c-ba62-81c1dfe604f2"]
 }, Closed]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[224117, 5638, 85, 0, 67, "Section",ExpressionUUID->"f1741b14-531a-4442-958b-fde3bfdb7b10"],
-Cell[224205, 5640, 257, 7, 72, "Code",ExpressionUUID->"c8870d35-e01d-4f7c-b081-273dc39f3a98",
+Cell[224533, 5649, 85, 0, 67, "Section",ExpressionUUID->"f1741b14-531a-4442-958b-fde3bfdb7b10"],
+Cell[224621, 5651, 257, 7, 72, "Code",ExpressionUUID->"c8870d35-e01d-4f7c-b081-273dc39f3a98",
  InitializationCell->True]
 }, Open  ]]
 }, Open  ]]