(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    422146,      11433]
NotebookOptionsPosition[    414806,      11197]
NotebookOutlinePosition[    415165,      11213]
CellTagsIndexPosition[    415122,      11210]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.443440862578437*^9, 3.443440869875255*^9}}],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.443453557476861*^9, 3.4434535577367268`*^9}}],

Cell["A Notebook for arXiv:0803.3295", "Title",
 CellChangeTimes->{{3.443440889823614*^9, 3.4434409163766747`*^9}}],

Cell["Building an AdS/CFT superconductor", "Subtitle",
 CellChangeTimes->{{3.4434409339394836`*^9, 3.443440939237104*^9}, 
   3.443466785999386*^9}],

Cell["Prepared by C. P. Herzog, February 12, 2009", "Subtitle",
 CellChangeTimes->{{3.443550753254333*^9, 3.443550764269203*^9}}],

Cell["The equations (6),  (7), and (13) from the paper.", "Text",
 CellChangeTimes->{{3.4434411402200327`*^9, 3.443441179708311*^9}, {
  3.443458753580001*^9, 3.4434587551719313`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"psieomoriginal", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Psi]", "''"}], "[", "r", "]"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"f0", "'"}], "[", "r", "]"}], "/", 
       RowBox[{"f0", "[", "r", "]"}]}], " ", "+", " ", 
      RowBox[{"2", "/", "r"}]}], ")"}], " ", 
    RowBox[{
     RowBox[{"\[Psi]", "'"}], "[", "r", "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Phi]", "[", "r", "]"}], "^", "2"}], "/", 
      RowBox[{
       RowBox[{"f0", "[", "r", "]"}], "^", "2"}]}], ")"}], " ", 
    RowBox[{"\[Psi]", "[", "r", "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "/", 
      RowBox[{"f0", "[", "r", "]"}]}], ")"}], " ", 
    RowBox[{"\[Psi]", "[", "r", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.443441014634301*^9, 3.4434410638266172`*^9}, {
   3.4434411261599483`*^9, 3.4434411342702007`*^9}, {3.443441603070622*^9, 
   3.4434416218721533`*^9}, 3.4434422057010393`*^9, {3.443442396976767*^9, 
   3.443442397657593*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"\[Psi]", "[", "r", "]"}]}], 
   RowBox[{"f0", "[", "r", "]"}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Phi]", "[", "r", "]"}], "2"], " ", 
    RowBox[{"\[Psi]", "[", "r", "]"}]}], 
   SuperscriptBox[
    RowBox[{"f0", "[", "r", "]"}], "2"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["2", "r"], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["f0", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], 
      RowBox[{"f0", "[", "r", "]"}]]}], ")"}], " ", 
   RowBox[{
    SuperscriptBox["\[Psi]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Psi]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "r", "]"}]}]], "Output",
 CellChangeTimes->{{3.44344105419652*^9, 3.443441064564466*^9}, {
   3.443441620156393*^9, 3.4434416223498087`*^9}, 3.443442210190715*^9, 
   3.443442408146359*^9, 3.4434474183087053`*^9, 3.443453563705381*^9, 
   3.443550165917788*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"phieomoriginal", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Phi]", "''"}], "[", "r", "]"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "/", "r"}], ")"}], " ", 
    RowBox[{
     RowBox[{"\[Phi]", "'"}], "[", "r", "]"}]}], " ", "-", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", "r", "]"}], "^", "2"}], "/", 
       RowBox[{"f0", "[", "r", "]"}]}]}], ")"}], 
    RowBox[{"\[Phi]", "[", "r", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4434410659317703`*^9, 3.443441088043456*^9}, {
   3.443441129797613*^9, 3.4434411328060427`*^9}, 3.4434416108776197`*^9, {
   3.443442399009766*^9, 3.443442400544426*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"\[Phi]", "[", "r", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", "r", "]"}], "2"]}], 
    RowBox[{"f0", "[", "r", "]"}]]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{
     SuperscriptBox["\[Phi]", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}]}], "r"], "+", 
  RowBox[{
   SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "r", "]"}]}]], "Output",
 CellChangeTimes->{3.443441090934683*^9, 3.443441624158039*^9, 
  3.443442211177206*^9, 3.443442408767612*^9, 3.443447419660688*^9, 
  3.4434535645791597`*^9, 3.4435501680567923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Axeomoriginal", "[", "\[Omega]_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Ax", "''"}], "[", "r", "]"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"f0", "'"}], "[", "r", "]"}], "/", 
      RowBox[{"f0", "[", "r", "]"}]}], ")"}], " ", 
    RowBox[{
     RowBox[{"Ax", "'"}], "[", "r", "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]", "^", "2"}], "/", 
       RowBox[{
        RowBox[{"f0", "[", "r", "]"}], "^", "2"}]}], " ", "-", " ", 
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Psi]", "[", "r", "]"}], "^", "2"}], "/", 
        RowBox[{"f0", "[", "r", "]"}]}]}]}], ")"}], " ", 
    RowBox[{"Ax", "[", "r", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.443441098578998*^9, 3.443441121957111*^9}, {
   3.443441613054338*^9, 3.443441617031125*^9}, 3.443441887491119*^9, {
   3.443442402529603*^9, 3.443442404008995*^9}, {3.4434610124440107`*^9, 
   3.443461014314642*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ax", "[", "r", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox["\[Omega]", "2"], 
      SuperscriptBox[
       RowBox[{"f0", "[", "r", "]"}], "2"]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", "r", "]"}], "2"]}], 
      RowBox[{"f0", "[", "r", "]"}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["Ax", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}], " ", 
    RowBox[{
     SuperscriptBox["f0", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}]}], 
   RowBox[{"f0", "[", "r", "]"}]], "+", 
  RowBox[{
   SuperscriptBox["Ax", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "r", "]"}]}]], "Output",
 CellChangeTimes->{
  3.443441122624701*^9, 3.443441625832024*^9, 3.443441888174822*^9, 
   3.443442211930194*^9, 3.443442409317647*^9, 3.443447420297051*^9, 
   3.4434535652626038`*^9, {3.443461016586026*^9, 3.443461028272687*^9}, 
   3.4435501698492317`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f0rel", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"f0", "\[Rule]", " ", 
    RowBox[{"Function", "[", 
     RowBox[{"r", ",", " ", 
      RowBox[{
       RowBox[{"r", "^", "2"}], " ", "-", " ", 
       RowBox[{"1", "/", "r"}]}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.443441242375567*^9, 3.443441259839878*^9}, {
  3.443441628222837*^9, 3.4434416298850307`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"f0", "\[Rule]", 
   RowBox[{"Function", "[", 
    RowBox[{"r", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], "-", 
      FractionBox["1", "r"]}]}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.443441631276496*^9, 3.443441889247118*^9, 
  3.443442212582982*^9, 3.443442409939685*^9, 3.4434474209661503`*^9, 
  3.443453565947598*^9, 3.443550175073277*^9}]
}, Open  ]],

Cell[TextData[{
 "I find it more convenient to work in terms of the coordinate z=1/r.  I also \
prefer to work with a function f = ",
 Cell[BoxData[
  RowBox[{"1", "-", 
   SuperscriptBox["z", "3"]}]],
  CellChangeTimes->{3.443442598568*^9, 3.4434474222872868`*^9, 
   3.443453567488508*^9},
  FontFamily->"Times"],
 " instead of f0 = ",
 "(",
 Cell[BoxData[
  RowBox[{"1", "-", 
   SuperscriptBox["z", "3"]}]],
  CellChangeTimes->{3.443442598568*^9, 3.4434474222872868`*^9, 
   3.443453567488508*^9},
  FontFamily->"Times"],
 ")/",
 Cell[BoxData[
  SuperscriptBox["z", "2"]],
  CellChangeTimes->{{3.417270922649523*^9, 3.417270950961733*^9}, 
    3.417271235567356*^9, 3.417711316453266*^9, 3.4182959632541*^9, 
    3.418380676237462*^9, 3.418382741637773*^9, 3.4220993162895317`*^9, 
    3.422816451933605*^9, 3.424467550953991*^9, 3.424531229387533*^9, 
    3.4310250423024893`*^9, 3.431422961339313*^9, 3.443447626540031*^9, 
    3.443453587326045*^9, 3.443453991277513*^9},
  FontFamily->"Times"],
 ".  Finally, I will rescale \[Psi] = z psi so that psi = a + b z + ... near \
the boundary z=0."
}], "Text",
 CellChangeTimes->{{3.443441182511238*^9, 3.44344119750008*^9}, 
   3.443441282481942*^9, {3.44344158049148*^9, 3.44344159533078*^9}, {
   3.4434416360381117`*^9, 3.4434416426754293`*^9}, {3.443442213352449*^9, 
   3.443442214079941*^9}, {3.443447349101399*^9, 3.44344738282656*^9}, {
   3.443458776056497*^9, 3.4434587963047543`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ftest", "[", "z_", "]"}], " ", "=", " ", 
  RowBox[{"1", "-", 
   RowBox[{"z", "^", "3"}]}]}]], "Input",
 CellChangeTimes->{{3.443442595267865*^9, 3.443442597990983*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SuperscriptBox["z", "3"]}]], "Output",
 CellChangeTimes->{3.443442598568*^9, 3.4434474222872868`*^9, 
  3.443453567488508*^9, 3.443550187008606*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myeom", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"psieom", " ", "=", " ", 
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"psieomoriginal", " ", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Psi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"psi", "[", 
                   RowBox[{"1", "/", "r"}], "]"}], "/", "r"}]}], "]"}]}], ",",
               " ", 
              RowBox[{"\[Phi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", 
                 RowBox[{"phi", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"Ax", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{"Ax", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"f0", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"r", "^", "2"}], " ", 
                  RowBox[{"f", "[", 
                   RowBox[{"1", "/", "r"}], "]"}]}]}], "]"}]}]}], "}"}]}], "/.",
            " ", 
           RowBox[{"r", "\[Rule]", " ", 
            RowBox[{"1", "/", "z"}]}]}], " ", "/.", " ", 
          RowBox[{"f", "\[Rule]", " ", "ftest"}]}], ")"}], "/", 
        RowBox[{"z", "^", "4"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Psi]", "''"}], "[", "z", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"\[Psi]", "'"}], "[", "z", "]"}], ",", " ", 
         RowBox[{"\[Psi]", "[", "z", "]"}]}], "}"}], ",", " ", "Simplify"}], 
      "]"}]}], "  ", ",", 
    RowBox[{"phieom", " ", "=", " ", 
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"phieomoriginal", " ", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Psi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"psi", "[", 
                   RowBox[{"1", "/", "r"}], "]"}], "/", "r"}]}], "]"}]}], ",",
               " ", 
              RowBox[{"\[Phi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", 
                 RowBox[{"phi", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"Ax", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{"Ax", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"f0", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"r", "^", "2"}], " ", 
                  RowBox[{"f", "[", 
                   RowBox[{"1", "/", "r"}], "]"}]}]}], "]"}]}]}], "}"}]}], "/.",
            " ", 
           RowBox[{"r", "\[Rule]", " ", 
            RowBox[{"1", "/", "z"}]}]}], " ", "/.", " ", 
          RowBox[{"f", "\[Rule]", "ftest"}]}], ")"}], "/", 
        RowBox[{"z", "^", "4"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Phi]", "''"}], "[", "z", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"\[Phi]", "'"}], "[", "z", "]"}], ",", " ", 
         RowBox[{"\[Phi]", "[", "z", "]"}]}], "}"}], ",", " ", "Simplify"}], 
      "]"}]}], ",", 
    RowBox[{
     RowBox[{"Axeom", "[", "\[Omega]_", "]"}], "=", " ", 
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Axeomoriginal", "[", "\[Omega]", "]"}], " ", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"\[Psi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"psi", "[", 
                   RowBox[{"1", "/", "r"}], "]"}], "/", "r"}]}], "]"}]}], ",",
               " ", 
              RowBox[{"\[Phi]", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", 
                 RowBox[{"phi", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"Ax", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{"Ax", "[", 
                  RowBox[{"1", "/", "r"}], "]"}]}], "]"}]}], ",", " ", 
              RowBox[{"f0", "\[Rule]", " ", 
               RowBox[{"Function", "[", 
                RowBox[{"r", ",", " ", 
                 RowBox[{
                  RowBox[{"r", "^", "2"}], " ", 
                  RowBox[{"f", "[", 
                   RowBox[{"1", "/", "r"}], "]"}]}]}], "]"}]}]}], "}"}]}], "/.",
            " ", 
           RowBox[{"r", "\[Rule]", " ", 
            RowBox[{"1", "/", "z"}]}]}], "/.", " ", 
          RowBox[{"f", "\[Rule]", "ftest"}]}], ")"}], "/", 
        RowBox[{"z", "^", "4"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Ax", "''"}], "[", "z", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"Ax", "'"}], "[", "z", "]"}], ",", " ", 
         RowBox[{"Ax", "[", "z", "]"}]}], "}"}], ",", " ", "Simplify"}], 
      "]"}]}]}], " ", "}"}], " "}]], "Input",
 CellChangeTimes->{{3.443441287531027*^9, 3.443441287776083*^9}, {
  3.443441342727729*^9, 3.44344148122718*^9}, {3.443441546465461*^9, 
  3.4434415759822493`*^9}, {3.443441660336686*^9, 3.4434418819189587`*^9}, {
  3.443442413027013*^9, 3.443442432357416*^9}, {3.443447393928135*^9, 
  3.443447437374712*^9}, {3.4434474808285933`*^9, 3.443447489360512*^9}, {
  3.4434477204909477`*^9, 3.44344773180134*^9}, {3.443461041213434*^9, 
  3.443461051683877*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"z", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "z"}], "+", 
          SuperscriptBox["z", "4"], "+", 
          SuperscriptBox[
           RowBox[{"phi", "[", "z", "]"}], "2"]}], ")"}], " ", 
        RowBox[{"psi", "[", "z", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["z", "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["z", "2"], " ", 
           RowBox[{
            SuperscriptBox["psi", "\[Prime]",
             MultilineFunction->None], "[", "z", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["z", "3"]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["psi", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "z", "]"}]}]}], ")"}]}]}], 
      ")"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["z", "3"]}], ")"}], "2"]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{"phi", "[", "z", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"psi", "[", "z", "]"}], "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["z", "3"]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["phi", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "z", "]"}]}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["z", "3"]}]], ",", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"Ax", "[", "z", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Omega]", "2"], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["z", "3"]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"psi", "[", "z", "]"}], "2"]}]}], ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["z", "3"]}], ")"}], "2"]], "+", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["z", "2"], " ", 
      RowBox[{
       SuperscriptBox["Ax", "\[Prime]",
        MultilineFunction->None], "[", "z", "]"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["z", "3"]}]], "+", 
    RowBox[{
     SuperscriptBox["Ax", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "z", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.443441443245912*^9, 3.44344148259072*^9}, 
   3.443441549289949*^9, 3.4434416871094093`*^9, {3.443441725804422*^9, 
   3.443441784954414*^9}, {3.44344181748913*^9, 3.443441891057817*^9}, 
   3.443442215588396*^9, {3.443442420101799*^9, 3.443442432859673*^9}, {
   3.443447414277225*^9, 3.443447437783798*^9}, 3.443447490505906*^9, 
   3.443447732158814*^9, 3.443453568222747*^9, {3.443461053962058*^9, 
   3.443461062011862*^9}, 3.443550192248176*^9}]
}, Open  ]],

Cell["\<\
We develop a power series for \[Phi] and \[Psi] near the horizon z=1.\
\>", "Subsection",
 CellChangeTimes->{{3.443442494047118*^9, 3.443442513225021*^9}, {
  3.443447438669064*^9, 3.443447439859625*^9}}],

Cell[TextData[{
 "Note that \[Phi] must vanish at the horizon in order that",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SubscriptBox["A", "\[Mu]"]}], TraditionalForm]]],
 " have a well defined norm, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "\[Mu]"], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "\[Nu]"], TraditionalForm]]],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"g", " "}], "\[Mu]\[Nu]"], TraditionalForm]]],
 "< \[Infinity]."
}], "Text",
 CellChangeTimes->{{3.443442881923764*^9, 3.443442908125753*^9}, {
  3.4434429438703938`*^9, 3.443443009312763*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"phitest", "[", "z_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"aa", 
    RowBox[{"(", 
     RowBox[{"z", "-", "1"}], ")"}]}], "  ", "+", " ", 
   RowBox[{"bb", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"z", "-", "1"}], ")"}], " ", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"cc", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"z", "-", "1"}], ")"}], " ", "^", "3"}]}], " ", "+", 
   RowBox[{"dd", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"z", "-", "1"}], ")"}], "^", "4"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4434539517767887`*^9, 3.443453957765082*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"aa", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "z"}], ")"}]}], "+", 
  RowBox[{"bb", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]}], "+", 
  RowBox[{"cc", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "3"]}], "+", 
  RowBox[{"dd", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "4"]}]}]], "Output",
 CellChangeTimes->{3.4434425409943867`*^9, 3.4434474427649183`*^9, 
  3.443453571790804*^9, 3.443453969948093*^9, 3.443550203937127*^9}]
}, Open  ]],

Cell["\<\
For psi on the other hand, we insist only that psi < \[Infinity].\
\>", "Text",
 CellChangeTimes->{{3.443442920161572*^9, 3.4434429415423603`*^9}, {
  3.443443018863803*^9, 3.443443023465232*^9}, {3.44344744609237*^9, 
  3.4434474491238823`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"psitest", "[", "z_", "]"}], " ", "=", 
  RowBox[{"(", 
   RowBox[{"AA", "+", 
    RowBox[{"BB", " ", 
     RowBox[{"(", 
      RowBox[{"z", "-", "1"}], ")"}]}], " ", "+", " ", 
    RowBox[{"CC", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"z", "-", "1"}], ")"}], " ", "^", "2"}]}], "+", 
    RowBox[{"DD", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"z", "-", "1"}], ")"}], " ", "^", "3"}]}], " ", "+", " ", 
    RowBox[{"EE", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"z", "-", "1"}], ")"}], "^", "4"}]}]}], " ", ")"}]}]], "Input",\

 CellChangeTimes->{{3.443453959829846*^9, 3.4434539674777107`*^9}}],

Cell[BoxData[
 RowBox[{"AA", "+", 
  RowBox[{"BB", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "z"}], ")"}]}], "+", 
  RowBox[{"CC", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]}], "+", 
  RowBox[{"DD", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "3"]}], "+", 
  RowBox[{"EE", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "4"]}]}]], "Output",
 CellChangeTimes->{3.4434425426497707`*^9, 3.4434535734146423`*^9, 
  3.4434539715737753`*^9, 3.443550217417735*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myphipsiseries", " ", "=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"{", 
         RowBox[{"psieom", ",", " ", "phieom"}], "}"}], " ", ")"}], " ", "/.",
        " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"phi", "\[Rule]", "phitest"}], ",", " ", 
         RowBox[{"psi", "\[Rule]", "psitest"}]}], "}"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"z", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443442547058674*^9, 3.443442587563105*^9}, {
   3.443442650516902*^9, 3.443442650633813*^9}, {3.443447452101877*^9, 
   3.4434474527361794`*^9}, {3.443447495153181*^9, 3.443447495566691*^9}, 
   3.443447738202375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["AA", "3"], "+", "BB"}], 
      RowBox[{"z", "-", "1"}]], "+", 
     RowBox[{
      FractionBox["1", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "+", 
           SuperscriptBox["aa", "2"]}], ")"}], " ", "AA"}], "+", 
        RowBox[{"21", " ", "BB"}], "+", 
        RowBox[{"36", " ", "CC"}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "AA"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox["aa", "2"], "-", 
           RowBox[{"2", " ", "aa", " ", "bb"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"9", "+", 
           SuperscriptBox["aa", "2"]}], ")"}], " ", "BB"}], "+", 
        RowBox[{"57", " ", "CC"}], "+", 
        RowBox[{"81", " ", "DD"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"z", "-", "1"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "27"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"aa", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "6"}], " ", "AA", " ", "bb"}], "+", 
           RowBox[{"6", " ", "bb", " ", "BB"}], "+", 
           RowBox[{"6", " ", "AA", " ", "cc"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["aa", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"AA", "-", 
           RowBox[{"3", " ", "BB"}], "+", 
           RowBox[{"3", " ", "CC"}]}], ")"}]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"AA", " ", 
            SuperscriptBox["bb", "2"]}], "-", 
           RowBox[{"4", " ", "BB"}], "+", 
           RowBox[{"15", " ", "CC"}], "+", 
           RowBox[{"111", " ", "DD"}], "+", 
           RowBox[{"144", " ", "EE"}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z", "-", "1"}], ")"}], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "27"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"BB", " ", 
         RowBox[{"(", 
          RowBox[{"3", "+", 
           SuperscriptBox["aa", "2"], "-", 
           RowBox[{"6", " ", "aa", " ", "bb"}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["bb", "2"]}], "+", 
           RowBox[{"6", " ", "aa", " ", "cc"}]}], ")"}]}], "-", 
        RowBox[{"21", " ", "CC"}], "-", 
        RowBox[{"3", " ", 
         SuperscriptBox["aa", "2"], " ", "CC"}], "+", 
        RowBox[{"6", " ", "aa", " ", "bb", " ", "CC"}], "+", 
        RowBox[{"AA", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox["aa", "2"], "-", 
           RowBox[{"3", " ", 
            SuperscriptBox["bb", "2"]}], "+", 
           RowBox[{"6", " ", "bb", " ", "cc"}], "+", 
           RowBox[{"2", " ", "aa", " ", 
            RowBox[{"(", 
             RowBox[{"bb", "-", 
              RowBox[{"3", " ", "cc"}], "+", 
              RowBox[{"3", " ", "dd"}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"63", " ", "DD"}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["aa", "2"], " ", "DD"}], "+", 
        RowBox[{"549", " ", "EE"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z", "-", "1"}], ")"}], "3"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", 
        RowBox[{"z", "-", "1"}], "]"}], "4"],
      SeriesData[$CellContext`z, 1, {}, -1, 4, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 1, {
     Rational[1, 3] $CellContext`AA + $CellContext`BB, 
      Rational[1, 9] ((3 + $CellContext`aa^2) $CellContext`AA + 
       21 $CellContext`BB + 36 $CellContext`CC), 
      Rational[1, 
        9] (-$CellContext`AA (1 + $CellContext`aa^2 - 
         2 $CellContext`aa $CellContext`bb) + (
         9 + $CellContext`aa^2) $CellContext`BB + 57 $CellContext`CC + 
       81 $CellContext`DD), 
      Rational[1, 
        27] ($CellContext`aa ((-6) $CellContext`AA $CellContext`bb + 
         6 $CellContext`bb $CellContext`BB + 
         6 $CellContext`AA $CellContext`cc) + $CellContext`aa^2 \
($CellContext`AA - 3 $CellContext`BB + 3 $CellContext`CC) + 
       3 ($CellContext`AA $CellContext`bb^2 - 4 $CellContext`BB + 
         15 $CellContext`CC + 111 $CellContext`DD + 144 $CellContext`EE)), 
      Rational[1, 
        27] ($CellContext`BB (3 + $CellContext`aa^2 - 
         6 $CellContext`aa $CellContext`bb + 3 $CellContext`bb^2 + 
         6 $CellContext`aa $CellContext`cc) - 21 $CellContext`CC - 
       3 $CellContext`aa^2 $CellContext`CC + 
       6 $CellContext`aa $CellContext`bb $CellContext`CC + $CellContext`AA (
         1 + $CellContext`aa^2 - 3 $CellContext`bb^2 + 
         6 $CellContext`bb $CellContext`cc + 
         2 $CellContext`aa ($CellContext`bb - 3 $CellContext`cc + 
           3 $CellContext`dd)) + 63 $CellContext`DD + 
       3 $CellContext`aa^2 $CellContext`DD + 549 $CellContext`EE)}, -1, 4, 1],
    
    Editable->False], ",", 
   InterpretationBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", " ", "aa", " ", 
         SuperscriptBox["AA", "2"]}], "3"], "+", 
       RowBox[{"2", " ", "bb"}]}], ")"}], "+", 
     RowBox[{
      FractionBox["2", "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["AA", "2"], " ", "bb"}], "-", 
        RowBox[{"aa", " ", "AA", " ", 
         RowBox[{"(", 
          RowBox[{"AA", "-", 
           RowBox[{"2", " ", "BB"}]}], ")"}]}], "+", 
        RowBox[{"9", " ", "cc"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"z", "-", "1"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["2", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"6", " ", "AA", " ", "bb", " ", "BB"}], "-", 
        RowBox[{"3", " ", 
         SuperscriptBox["AA", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"bb", "-", "cc"}], ")"}]}], "+", 
        RowBox[{"aa", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["AA", "2"]}], "-", 
           RowBox[{"6", " ", "AA", " ", "BB"}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["BB", "2"]}], "+", 
           RowBox[{"6", " ", "AA", " ", "CC"}]}], ")"}]}], "+", 
        RowBox[{"54", " ", "dd"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z", "-", "1"}], ")"}], "2"]}], "+", 
     RowBox[{
      FractionBox["2", "9"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", "bb", " ", 
         SuperscriptBox["BB", "2"]}], "+", 
        RowBox[{"AA", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "6"}], " ", "bb", " ", "BB"}], "+", 
           RowBox[{"6", " ", "BB", " ", "cc"}], "+", 
           RowBox[{"6", " ", "bb", " ", "CC"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["AA", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "bb"}], "-", 
           RowBox[{"3", " ", "cc"}], "+", 
           RowBox[{"3", " ", "dd"}]}], ")"}]}], "-", 
        RowBox[{"aa", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["AA", "2"], "+", 
           RowBox[{"3", " ", "BB", " ", 
            RowBox[{"(", 
             RowBox[{"BB", "-", 
              RowBox[{"2", " ", "CC"}]}], ")"}]}], "+", 
           RowBox[{"AA", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", "BB"}], "+", 
              RowBox[{"6", " ", "CC"}], "-", 
              RowBox[{"6", " ", "DD"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z", "-", "1"}], ")"}], "3"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", 
        RowBox[{"z", "-", "1"}], "]"}], "4"],
      SeriesData[$CellContext`z, 1, {}, 0, 4, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 1, {
     Rational[2, 3] $CellContext`aa $CellContext`AA^2 + 2 $CellContext`bb, 
      Rational[2, 
        3] ($CellContext`AA^2 $CellContext`bb - $CellContext`aa \
$CellContext`AA ($CellContext`AA - 2 $CellContext`BB) + 9 $CellContext`cc), 
      Rational[2, 9] (6 $CellContext`AA $CellContext`bb $CellContext`BB - 
       3 $CellContext`AA^2 ($CellContext`bb - $CellContext`cc) + \
$CellContext`aa (2 $CellContext`AA^2 - 6 $CellContext`AA $CellContext`BB + 
         3 $CellContext`BB^2 + 6 $CellContext`AA $CellContext`CC) + 
       54 $CellContext`dd), 
      Rational[2, 9] (
       3 $CellContext`bb $CellContext`BB^2 + $CellContext`AA ((-6) \
$CellContext`bb $CellContext`BB + 6 $CellContext`BB $CellContext`cc + 
         6 $CellContext`bb $CellContext`CC) + $CellContext`AA^2 (
         2 $CellContext`bb - 3 $CellContext`cc + 
         3 $CellContext`dd) - $CellContext`aa ($CellContext`AA^2 + 
        3 $CellContext`BB ($CellContext`BB - 
          2 $CellContext`CC) + $CellContext`AA ((-4) $CellContext`BB + 
          6 $CellContext`CC - 6 $CellContext`DD)))}, 0, 4, 1],
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{3.443442568762253*^9, 3.443442612587706*^9, 
  3.4434426509470654`*^9, 3.443447453928075*^9, 3.4434474960831127`*^9, 
  3.443447739346183*^9, 3.443453575093087*^9, 3.443453973754977*^9, 
  3.443550222755952*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myphipsirels", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SeriesCoefficient", "[", 
           RowBox[{
            RowBox[{"myphipsiseries", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", "i"}], "]"}], 
          "\[Equal]", "0"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SeriesCoefficient", "[", 
           RowBox[{
            RowBox[{"myphipsiseries", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", " ", "i"}], "]"}], 
          "\[Equal]", "0"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{
      "bb", ",", "cc", ",", "dd", ",", "BB", ",", "CC", ",", "DD", ",", 
       "EE"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.44344268529471*^9, 3.4434427150231113`*^9}, {
  3.443453977847991*^9, 3.443453980086697*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"dd", "\[Rule]", 
    RowBox[{
     FractionBox["1", "972"], " ", "aa", " ", 
     SuperscriptBox["AA", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "90"}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["aa", "2"]}], "-", 
       RowBox[{"40", " ", 
        SuperscriptBox["AA", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["AA", "4"]}]}], ")"}]}]}], ",", 
   RowBox[{"EE", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"AA", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "64"}], "+", 
         RowBox[{"1412", " ", 
          SuperscriptBox["aa", "2"]}], "-", 
         RowBox[{"9", " ", 
          SuperscriptBox["aa", "4"]}], "+", 
         RowBox[{"704", " ", 
          SuperscriptBox["aa", "2"], " ", 
          SuperscriptBox["AA", "2"]}], "+", 
         RowBox[{"60", " ", 
          SuperscriptBox["aa", "2"], " ", 
          SuperscriptBox["AA", "4"]}]}], ")"}]}], "46656"]}]}], ",", 
   RowBox[{"DD", "\[Rule]", 
    RowBox[{
     FractionBox["1", "972"], " ", "AA", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "28"}], "+", 
       RowBox[{"35", " ", 
        SuperscriptBox["aa", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["aa", "2"], " ", 
        SuperscriptBox["AA", "2"]}]}], ")"}]}]}], ",", 
   RowBox[{"cc", "\[Rule]", 
    RowBox[{
     FractionBox["1", "27"], " ", "aa", " ", 
     SuperscriptBox["AA", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"5", "+", 
       SuperscriptBox["AA", "2"]}], ")"}]}]}], ",", 
   RowBox[{"CC", "\[Rule]", 
    RowBox[{
     FractionBox["1", "36"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "AA"}], "-", 
       RowBox[{
        SuperscriptBox["aa", "2"], " ", "AA"}]}], ")"}]}]}], ",", 
   RowBox[{"bb", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"aa", " ", 
       SuperscriptBox["AA", "2"]}], "3"]}]}], ",", 
   RowBox[{"BB", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["AA", "3"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.4434427400581093`*^9, 3.443447457429138*^9, 
  3.443447497223127*^9, 3.443447741221352*^9, 3.443453575575341*^9, 
  3.44345398057691*^9, 3.443550228413782*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"psiic", "[", " ", 
    RowBox[{"aa_", ",", " ", "AA_"}], "]"}], "[", "z_", "]"}], " ", "=", " ", 
  
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"psitest", "[", "z", "]"}], " ", "/.", " ", "myphipsirels"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"AA", "-", 
  RowBox[{
   FractionBox["1", "3"], " ", "AA", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "z"}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "36"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "AA"}], "-", 
     RowBox[{
      SuperscriptBox["aa", "2"], " ", "AA"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "972"], " ", "AA", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "28"}], "+", 
     RowBox[{"35", " ", 
      SuperscriptBox["aa", "2"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["aa", "2"], " ", 
      SuperscriptBox["AA", "2"]}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "3"]}], "-", 
  FractionBox[
   RowBox[{"AA", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "64"}], "+", 
      RowBox[{"1412", " ", 
       SuperscriptBox["aa", "2"]}], "-", 
      RowBox[{"9", " ", 
       SuperscriptBox["aa", "4"]}], "+", 
      RowBox[{"704", " ", 
       SuperscriptBox["aa", "2"], " ", 
       SuperscriptBox["AA", "2"]}], "+", 
      RowBox[{"60", " ", 
       SuperscriptBox["aa", "2"], " ", 
       SuperscriptBox["AA", "4"]}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "z"}], ")"}], "4"]}], "46656"]}]], "Output",
 CellChangeTimes->{3.443442761199327*^9, 3.443447459622869*^9, 
  3.443447498262491*^9, 3.443447742076139*^9, 3.44345357637754*^9, 
  3.443453982086376*^9, 3.443550231828631*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"phiic", "[", 
    RowBox[{"aa_", ",", "AA_"}], "]"}], "[", "z_", "]"}], " ", "=", 
  RowBox[{"Evaluate", "[", " ", 
   RowBox[{
    RowBox[{"phitest", "[", "z", "]"}], " ", "/.", "myphipsirels"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aa", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "z"}], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", "3"], " ", "aa", " ", 
   SuperscriptBox["AA", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "27"], " ", "aa", " ", 
   SuperscriptBox["AA", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     SuperscriptBox["AA", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "3"]}], "+", 
  RowBox[{
   FractionBox["1", "972"], " ", "aa", " ", 
   SuperscriptBox["AA", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "90"}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["aa", "2"]}], "-", 
     RowBox[{"40", " ", 
      SuperscriptBox["AA", "2"]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["AA", "4"]}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "z"}], ")"}], "4"]}]}]], "Output",
 CellChangeTimes->{3.4434427625675697`*^9, 3.4434474620347767`*^9, 
  3.443447499101151*^9, 3.4434477428131933`*^9, 3.443453577130575*^9, 
  3.443453982839456*^9, 3.4435502337182083`*^9}]
}, Open  ]],

Cell["\<\
Here is the heart of the notebook, a call to NDSolve to solve numerically \
these two differential equations.\
\>", "Subsection",
 CellChangeTimes->{{3.443460772670239*^9, 3.4434607976182213`*^9}}],

Cell["\<\
As the differential equation is singular near the horizon, we will use these \
power series expansions to initialize the numerical differential equation \
solver a small distance \"small\" away from the horizon.  The numerical \
differential equation solver also has trouble near the boundary z=0.  Thus we \
will integrate to a distance \"delta\" away from z=0.\
\>", "Text",
 CellChangeTimes->{{3.4434427654503307`*^9, 3.443442845125602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"small", " ", "=", " ", 
  RowBox[{"1", "/", "100000"}]}]], "Input",
 CellChangeTimes->{{3.443442847670454*^9, 3.443442849569742*^9}}],

Cell[BoxData[
 FractionBox["1", "100000"]], "Output",
 CellChangeTimes->{3.443442850264791*^9, 3.443453579111578*^9, 
  3.443453985149592*^9, 3.443550250259789*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"delta", " ", "=", " ", 
  RowBox[{"1", "/", "1000000"}]}]], "Input",
 CellChangeTimes->{{3.4434428507465973`*^9, 3.443442853172737*^9}}],

Cell[BoxData[
 FractionBox["1", "1000000"]], "Output",
 CellChangeTimes->{3.443442853898919*^9, 3.443453579843687*^9, 
  3.4434539858353558`*^9, 3.443550252621915*^9}]
}, Open  ]],

Cell["\<\
The following is admittedly kind of dumb.  We should really just make one \
call to NDSolve, but my computer is fast enough it doesn't matter.\
\>", "Text",
 CellChangeTimes->{{3.443443052322233*^9, 3.443443099736862*^9}, {
  3.443458681339024*^9, 3.4434586821069527`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mypsi", "[", 
    RowBox[{
     RowBox[{"AA_", "?", "NumberQ"}], ",", " ", 
     RowBox[{"aa_", "?", "NumberQ"}]}], "]"}], " ", ":=", "  ", 
   RowBox[{"psi", " ", "/.", " ", 
    RowBox[{
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"psieom", "\[Equal]", "0"}], ",", " ", 
         RowBox[{"phieom", "\[Equal]", "0"}], ",", " ", 
         RowBox[{
          RowBox[{"phi", "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{"phiic", "[", " ", 
            RowBox[{"aa", ",", "AA"}], "]"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"psi", "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{"psiic", "[", " ", 
            RowBox[{"aa", ",", "AA"}], "]"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"phi", "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"phiic", "[", " ", 
             RowBox[{"aa", ",", "AA"}], "]"}], "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"psi", "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"psiic", "[", " ", 
             RowBox[{"aa", ",", "AA"}], "]"}], "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}]}], " ", "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"phi", ",", " ", "psi"}], "}"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{"z", ",", " ", 
         RowBox[{"1", "-", " ", "small"}], ",", "delta"}], "}"}], ",", " ", 
       RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.443447545195664*^9, 3.4434475496326313`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"myphi", "[", 
    RowBox[{
     RowBox[{"AA_", "?", "NumberQ"}], ",", " ", 
     RowBox[{"aa_", "?", "NumberQ"}]}], "]"}], " ", ":=", "  ", 
   RowBox[{"phi", " ", "/.", " ", 
    RowBox[{
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"psieom", "\[Equal]", "0"}], ",", " ", 
         RowBox[{"phieom", "\[Equal]", "0"}], ",", " ", 
         RowBox[{
          RowBox[{"phi", "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{"phiic", "[", " ", 
            RowBox[{"aa", ",", "AA"}], "]"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"psi", "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{"psiic", "[", " ", 
            RowBox[{"aa", ",", "AA"}], "]"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"phi", "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"phiic", "[", " ", 
             RowBox[{"aa", ",", "AA"}], "]"}], "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"psi", "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"psiic", "[", " ", 
             RowBox[{"aa", ",", "AA"}], "]"}], "'"}], "[", 
           RowBox[{"1", "-", "small"}], "]"}]}]}], " ", "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"phi", ",", " ", "psi"}], "}"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{"z", ",", " ", 
         RowBox[{"1", "-", " ", "small"}], ",", "delta"}], "}"}], ",", " ", 
       RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4434475513911667`*^9, 3.4434475557449837`*^9}}],

Cell["I also need a series expansion near the boundary z=0.", "Subsection",
 CellChangeTimes->{{3.443447593138818*^9, 3.443447601132407*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"psizero", "[", "z_", "]"}], " ", "=", " ", 
  RowBox[{"A1", " ", "+", " ", 
   RowBox[{"B1", " ", "z"}], " ", "+", " ", 
   RowBox[{"C1", " ", 
    RowBox[{"z", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"D1", " ", 
    RowBox[{"z", "^", "3"}]}]}]}]], "Input",
 CellChangeTimes->{{3.417270893333712*^9, 3.4172709123977757`*^9}, {
  3.417271226936619*^9, 3.4172712298549*^9}}],

Cell[BoxData[
 RowBox[{"A1", "+", 
  RowBox[{"B1", " ", "z"}], "+", 
  RowBox[{"C1", " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"D1", " ", 
   SuperscriptBox["z", "3"]}]}]], "Output",
 CellChangeTimes->{3.417270913417761*^9, 3.41727094977884*^9, 
  3.417271231117378*^9, 3.4177113157215843`*^9, 3.418295962638715*^9, 
  3.418380675554182*^9, 3.418382741071661*^9, 3.4220993156408577`*^9, 
  3.422816451194909*^9, 3.424467550304367*^9, 3.424531228635536*^9, 
  3.431025041614649*^9, 3.4314229606864443`*^9, 3.4434476258547983`*^9, 
  3.443453586556415*^9, 3.44345399066118*^9, 3.443550263101798*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"phizero", "[", "z_", "]"}], " ", "=", " ", 
  RowBox[{"A2", " ", "+", " ", 
   RowBox[{"B2", " ", "z"}], " ", "+", " ", 
   RowBox[{"C2", " ", 
    RowBox[{"z", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"D2", " ", 
    RowBox[{"z", "^", "3"}]}]}]}]], "Input",
 CellChangeTimes->{{3.417270914863327*^9, 3.4172709379347754`*^9}, {
  3.4172712336285763`*^9, 3.417271235110807*^9}, {3.4434476223358517`*^9, 
  3.4434476235819807`*^9}}],

Cell[BoxData[
 RowBox[{"A2", "+", 
  RowBox[{"B2", " ", "z"}], "+", 
  RowBox[{"C2", " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"D2", " ", 
   SuperscriptBox["z", "3"]}]}]], "Output",
 CellChangeTimes->{{3.417270922649523*^9, 3.417270950961733*^9}, 
   3.417271235567356*^9, 3.417711316453266*^9, 3.4182959632541*^9, 
   3.418380676237462*^9, 3.418382741637773*^9, 3.4220993162895317`*^9, 
   3.422816451933605*^9, 3.424467550953991*^9, 3.424531229387533*^9, 
   3.4310250423024893`*^9, 3.431422961339313*^9, 3.443447626540031*^9, 
   3.443453587326045*^9, 3.443453991277513*^9, 3.443550264174541*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myzeroseries", " ", "=", " ", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"psieom", "/", "z"}], ",", " ", "phieom"}], "}"}], " ", "/.", 
     " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"psi", "\[Rule]", "psizero"}], ",", " ", 
       RowBox[{"phi", "\[Rule]", "phizero"}], ",", " ", 
       RowBox[{"f", "\[Rule]", " ", "ftest"}]}], "}"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4434476690626783`*^9, 3.4434477002638273`*^9}, {
  3.443447822682172*^9, 3.4434478227996473`*^9}, {3.44344795457307*^9, 
  3.443447966675652*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"A1", " ", 
        SuperscriptBox["A2", "2"]}], "+", 
       RowBox[{"2", " ", "C1"}]}], ")"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "A1"}], "+", 
        RowBox[{
         SuperscriptBox["A2", "2"], " ", "B1"}], "+", 
        RowBox[{"2", " ", "A1", " ", "A2", " ", "B2"}], "+", 
        RowBox[{"6", " ", "D1"}]}], ")"}], " ", "z"}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "2"],
      SeriesData[$CellContext`z, 0, {}, 0, 2, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {$CellContext`A1 $CellContext`A2^2 + 
      2 $CellContext`C1, -$CellContext`A1 + $CellContext`A2^2 $CellContext`B1 + 
      2 $CellContext`A1 $CellContext`A2 $CellContext`B2 + 6 $CellContext`D1}, 
     0, 2, 1],
    Editable->False], ",", 
   InterpretationBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["A1", "2"], " ", "A2"}], "+", 
       RowBox[{"2", " ", "C2"}]}], ")"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "A1", " ", "A2", " ", "B1"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["A1", "2"], " ", "B2"}], "+", 
        RowBox[{"6", " ", "D2"}]}], ")"}], " ", "z"}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "2"],
      SeriesData[$CellContext`z, 0, {}, 0, 2, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {(-2) $CellContext`A1^2 $CellContext`A2 + 
      2 $CellContext`C2, (-4) $CellContext`A1 $CellContext`A2 $CellContext`B1 - 
      2 $CellContext`A1^2 $CellContext`B2 + 6 $CellContext`D2}, 0, 2, 1],
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.443447695974975*^9, 3.443447700496313*^9}, 
   3.443447823763769*^9, {3.4434479555033503`*^9, 3.443447967004733*^9}, 
   3.443453620278246*^9, 3.443453991863926*^9, 3.443550265077032*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"SeriesCoefficient", "[", 
          RowBox[{
           RowBox[{"myzeroseries", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", " ", "i"}], "]"}], ",", " ", 
         
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"SeriesCoefficient", "[", 
          RowBox[{
           RowBox[{"myzeroseries", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", " ", "i"}], "]"}], ",", " ", 
         
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
     "\[Equal]", "0"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"C1", ",", "C2", ",", " ", "D1", ",", "D2"}], "}"}]}], "]"}], 
  "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.443447832144247*^9, 3.4434479227618237`*^9}, {
  3.4434479689269238`*^9, 3.443447975875808*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"C1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"A1", " ", 
       SuperscriptBox["A2", "2"]}], "2"]}]}], ",", 
   RowBox[{"D1", "\[Rule]", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     RowBox[{"(", 
      RowBox[{"A1", "-", 
       RowBox[{
        SuperscriptBox["A2", "2"], " ", "B1"}], "-", 
       RowBox[{"2", " ", "A1", " ", "A2", " ", "B2"}]}], ")"}]}]}], ",", 
   RowBox[{"C2", "\[Rule]", 
    RowBox[{
     SuperscriptBox["A1", "2"], " ", "A2"}]}], ",", 
   RowBox[{"D2", "\[Rule]", 
    RowBox[{
     FractionBox["1", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "A1", " ", "A2", " ", "B1"}], "+", 
       RowBox[{
        SuperscriptBox["A1", "2"], " ", "B2"}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.4434478897251377`*^9, 3.443447923258767*^9}, 
   3.443447976292369*^9, 3.443453621199911*^9, 3.4434539924648237`*^9, 
   3.4435502666678267`*^9}]
}, Open  ]],

Cell[TextData[{
 "I'll just use the series to order",
 Cell[BoxData[
  RowBox[{" ", 
   SuperscriptBox["z", "2"]}]],
  CellChangeTimes->{{3.417270922649523*^9, 3.417270950961733*^9}, 
    3.417271235567356*^9, 3.417711316453266*^9, 3.4182959632541*^9, 
    3.418380676237462*^9, 3.418382741637773*^9, 3.4220993162895317`*^9, 
    3.422816451933605*^9, 3.424467550953991*^9, 3.424531229387533*^9, 
    3.4310250423024893`*^9, 3.431422961339313*^9, 3.443447626540031*^9, 
    3.443453587326045*^9, 3.443453991277513*^9}],
 ", setting D1=D2=0."
}], "Text",
 CellChangeTimes->{{3.443458572489519*^9, 3.443458597452601*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"temprels", " ", "=", " ", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"phizero", "[", "z", "]"}], "\[Equal]", "phi0"}], ",", " ", 
         
         RowBox[{
          RowBox[{
           RowBox[{"phizero", "'"}], "[", "z", "]"}], "\[Equal]", "phip"}], 
         ",", 
         RowBox[{
          RowBox[{"psizero", "[", "z", "]"}], "\[Equal]", "psi0"}], ",", " ", 
         
         RowBox[{
          RowBox[{
           RowBox[{"psizero", "'"}], "[", "z", "]"}], "\[Equal]", "psip"}]}], 
        "}"}], " ", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C2", "\[Rule]", 
          RowBox[{
           SuperscriptBox["A1", "2"], " ", "A2"}]}], ",", 
         RowBox[{"D2", "\[Rule]", "0"}], ",", 
         RowBox[{"C1", "\[Rule]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"A1", " ", 
             SuperscriptBox["A2", "2"]}], "2"]}]}], ",", 
         RowBox[{"D1", "\[Rule]", "0"}]}], "}"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"A1", ",", " ", "A2", ",", "  ", "B1", ",", " ", "B2"}], 
       "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4434480516866713`*^9, 3.443448124561265*^9}}],

Cell["\<\
The idea is to propagate the solution out to a distance delta from the \
boundary and then use this series solution to compute the values A1, A2, B1, \
and B2 which have physical meaning as an expectation value and source for the \
scalar and a chemical potential and charge density for the gauge field.\
\>", "Text",
 CellChangeTimes->{{3.443458608870881*^9, 3.44345865445009*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bryvalues", " ", "=", " ", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"A1", ",", "B1", ",", "A2", ",", "B2"}], "}"}], " ", "/.", " ", 
     "temprels"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4434481427817783`*^9, 3.443448175002584*^9}, {
  3.443451262156584*^9, 3.443451263906527*^9}, {3.4434514756604357`*^9, 
  3.4434514782191257`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{"psi0", "-", 
     RowBox[{"psip", " ", "z"}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["phi0", "2"], " ", "psi0"}], ")"}], " ", 
      SuperscriptBox["z", "2"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "3"],
      SeriesData[$CellContext`z, 0, {}, 0, 3, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {$CellContext`psi0, -$CellContext`psip, 
      Rational[-1, 2] $CellContext`phi0^2 $CellContext`psi0}, 0, 3, 1],
    Editable->False], ",", 
   InterpretationBox[
    RowBox[{"psip", "+", 
     RowBox[{
      SuperscriptBox["phi0", "2"], " ", "psi0", " ", "z"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "phi0", " ", "phip", " ", "psi0"}], "-", 
        RowBox[{
         SuperscriptBox["phi0", "2"], " ", "psip"}]}], ")"}], " ", 
      SuperscriptBox["z", "2"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "3"],
      SeriesData[$CellContext`z, 0, {}, 0, 3, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {$CellContext`psip, $CellContext`phi0^2 $CellContext`psi0, (-2) \
$CellContext`phi0 $CellContext`phip $CellContext`psi0 - $CellContext`phi0^2 \
$CellContext`psip}, 0, 3, 1],
    Editable->False], ",", 
   InterpretationBox[
    RowBox[{"phi0", "-", 
     RowBox[{"phip", " ", "z"}], "+", 
     RowBox[{"phi0", " ", 
      SuperscriptBox["psi0", "2"], " ", 
      SuperscriptBox["z", "2"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "3"],
      SeriesData[$CellContext`z, 0, {}, 0, 3, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {$CellContext`phi0, -$CellContext`phip, $CellContext`phi0 \
$CellContext`psi0^2}, 0, 3, 1],
    Editable->False], ",", 
   InterpretationBox[
    RowBox[{"phip", "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"phi0", " ", 
        SuperscriptBox["psi0", "2"]}], ")"}], " ", "z"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "phip", " ", 
         SuperscriptBox["psi0", "2"]}], "+", 
        RowBox[{"4", " ", "phi0", " ", "psi0", " ", "psip"}]}], ")"}], " ", 
      SuperscriptBox["z", "2"]}], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "z", "]"}], "3"],
      SeriesData[$CellContext`z, 0, {}, 0, 3, 1],
      Editable->False]}],
    SeriesData[$CellContext`z, 
     0, {$CellContext`phip, (-2) $CellContext`phi0 $CellContext`psi0^2, 
      2 $CellContext`phip $CellContext`psi0^2 + 
      4 $CellContext`phi0 $CellContext`psi0 $CellContext`psip}, 0, 3, 1],
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.443448150186942*^9, 3.443448175433548*^9}, 
   3.443451264516465*^9, 3.443451478730844*^9, 3.443453623912053*^9, 
   3.443453994059774*^9, {3.443550283881473*^9, 3.443550291181115*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"myfalloffs", "[", 
    RowBox[{"AA_", ",", " ", "aa_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Normal", "[", "bryvalues", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"z", "\[Rule]", "delta"}], ",", " ", 
      RowBox[{"psi0", "\[Rule]", " ", 
       RowBox[{
        RowBox[{"mypsi", "[", 
         RowBox[{"AA", ",", "aa"}], "]"}], "[", "delta", "]"}]}], ",", " ", 
      RowBox[{"psip", "->", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"mypsi", "[", 
          RowBox[{"AA", ",", "aa"}], "]"}], "'"}], "[", "delta", "]"}]}], ",",
       
      RowBox[{"phi0", "->", 
       RowBox[{
        RowBox[{"myphi", "[", 
         RowBox[{"AA", ",", "aa"}], "]"}], "[", "delta", "]"}]}], ",", " ", 
      RowBox[{"phip", "\[Rule]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"myphi", "[", 
          RowBox[{"AA", ",", "aa"}], "]"}], "'"}], "[", "delta", "]"}]}]}], 
     "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4434512676494713`*^9, 3.443451325653658*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myfalloffs", "[", 
  RowBox[{
   RowBox[{"1", "/", "50"}], ",", " ", 
   RowBox[{"406", "/", "100"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.443452009382518*^9, 3.443452053981738*^9}, {
  3.44345378906584*^9, 3.443453807630171*^9}, {3.4434538862357264`*^9, 
  3.443453891802558*^9}, {3.443453998775303*^9, 3.443454012341453*^9}, {
  3.4434577122238083`*^9, 3.443457712517509*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0000293550548454496907239888632430436405369990498738363658`17.\
68648766612002", ",", 
   "0.0589061587403116661190423156470770607032107501319394539877`18.\
713026230391698", ",", 
   RowBox[{
   "-", "4.06071440453995753033952156280166016122`19.517926871107328"}], ",", 
   "4.06123429085552964202660700827511500208`17.142946858375556"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.443452016130521*^9, 3.443452054603063*^9}, 
   3.4434536315356894`*^9, {3.443453790327632*^9, 3.443453808059264*^9}, {
   3.4434538877977867`*^9, 3.443453892399645*^9}, {3.4434539958774137`*^9, 
   3.4434540127954693`*^9}, 3.443457713144034*^9, 3.4435502957541237`*^9}]
}, Open  ]],

Cell["\<\
A command to look for a solution where B1=0, i.e. a scalar of conformal \
dimension one.\
\>", "Text",
 CellChangeTimes->{{3.4434515030713167`*^9, 3.443451533170382*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mapitone", "[", " ", 
   RowBox[{"xseed_", ",", " ", "yseed_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"xx", "\[Rule]", "xseed"}], "}"}], ",", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"myfalloffs", "[", 
         RowBox[{"xseed", ",", "yy"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"yy", ",", "yseed"}], "}"}], ",", " ", 
      RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.443451380872813*^9, 3.443451408030113*^9}, {
  3.44345161597952*^9, 3.443451624967102*^9}, {3.443451907305518*^9, 
  3.443451932443515*^9}}],

Cell["\<\
A command to look for a solution where A1=0, i.e. a scalar of conformal \
dimension two.\
\>", "Text",
 CellChangeTimes->{{3.443451545187522*^9, 3.443451549346805*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mapittwo", "[", " ", 
   RowBox[{"xseed_", ",", " ", "yseed_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"xx", "\[Rule]", "xseed"}], "}"}], ",", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"myfalloffs", "[", 
         RowBox[{"xseed", ",", "yy"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"yy", ",", "yseed"}], "}"}], ",", " ", 
      RowBox[{"WorkingPrecision", "\[Rule]", "20"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4434516731287937`*^9, 3.4434516764863157`*^9}, {
  3.443451887631205*^9, 3.4434519017725163`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mapitone", "[", 
  RowBox[{
   RowBox[{"1", "/", "10000"}], ",", " ", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.443458053135594*^9, 3.443458057405719*^9}, {
  3.4434599236233673`*^9, 3.443459923751045*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"xx", "\[Rule]", 
    FractionBox["1", "10000"]}], ",", 
   RowBox[{
   "yy", "\[Rule]", 
    "1.1204388911951099106335793123488008449662086948685047216942`20.\
000000000000007"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4434580596611137`*^9, 3.443459925127817*^9, 
  3.4435503217933283`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mapittwo", "[", 
  RowBox[{
   RowBox[{"1", "/", "10000"}], ",", " ", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.443459929353455*^9, 3.4434599360873127`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"xx", "\[Rule]", 
    FractionBox["1", "10000"]}], ",", 
   RowBox[{
   "yy", "\[Rule]", 
    "4.06371791161361771576685593902959599228`19.999999999999996"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.443459931670369*^9, 3.443459937418981*^9}, 
   3.443550323759748*^9}]
}, Open  ]],

Cell["\<\
I used commands like the following to find the solutions with the right \
boundary condition for the scalar.  In this data structure, xx and yy refer \
to the horizon values for psi and phi respectively.  Thus by looking for a \
solution with a small value of xx, we are looking for a solution near the \
phase transition.  The next four numbers in an item in the list describe the \
near boundary behavior of psi and phi.\
\>", "Text",
 CellChangeTimes->{{3.443459887671562*^9, 3.443459907941935*^9}, {
  3.443550340641028*^9, 3.443550425291212*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"y0", " ", "=", 
   RowBox[{"11", "/", "10"}]}], ";", 
  RowBox[{"mysweep", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"temprels", " ", "=", " ", 
           RowBox[{"mapitone", "[", 
            RowBox[{"ii", ",", " ", "y0"}], "]"}]}], ",", " ", 
          RowBox[{"y0", " ", "=", " ", 
           RowBox[{"yy", " ", "/.", " ", "temprels"}]}]}], " ", "}"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"myfalloffs", "[", 
         RowBox[{"xx", ",", "yy"}], "]"}], "/.", " ", "temprels"}]}], "}"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"1", "/", "100"}], ",", " ", 
       RowBox[{"1", "/", "10"}], ",", 
       RowBox[{"1", "/", "100"}]}], "}"}]}], "]"}]}], ";", 
  RowBox[{"InputForm", "[", 
   RowBox[{
    RowBox[{"Chop", "[", "mysweep", "]"}], ",", " ", 
    RowBox[{"NumberMarks", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4434578732640123`*^9, 3.4434580177516747`*^9}, {
   3.443458083842127*^9, 3.4434580851112022`*^9}, 3.443458124018127*^9, {
   3.44345817814097*^9, 3.443458181825849*^9}, {3.443458219677104*^9, 
   3.443458222308194*^9}, 3.4434582618749447`*^9, {3.44345831553163*^9, 
   3.443458342497054*^9}, {3.443458416086914*^9, 3.4434584688294277`*^9}, {
   3.4434592423646107`*^9, 3.443459301075315*^9}, {3.443459333213059*^9, 
   3.4434593366192102`*^9}, {3.443459371697311*^9, 3.443459379269107*^9}, {
   3.44345947688481*^9, 3.443459491567256*^9}, {3.443459831818321*^9, 
   3.443459869637834*^9}}],

Cell["\<\
{{{xx -> 1/100, yy -> 1.12038994941614570512}, 
  {0.0130316334914845403812, 0, -1.12046235975156058733, 
   1.120586839728098528}}, {{xx -> 1/50, yy -> 1.12024850424263952185}, 
  {0.0260635219050933215791, 0, -1.12053812923598571797, 
   1.121036055839203786}}, {{xx -> 3/100, yy -> 1.12001290825758601925}, 
  {0.039095918998004095583, 0, -1.12066450318131381936, 
   1.1217848630797973}}, {{xx -> 1/25, yy -> 1.11968317330358100938}, 
  {0.052129079337674902393, 0, -1.12084141170848991796, 
   1.122833224963956355}}, {{xx -> 1/20, yy -> 1.11925937737374263607}, 
  {0.065163256662464964077, 0, -1.12106881841641278493, 
   1.124181151729514106}}, {{xx -> 3/50, yy -> 1.11874163036027509509}, 
  {0.078198704465277758064, 0, -1.12134668620011704952, 
   1.125828666143914949}}, {{xx -> 7/100, yy -> 1.11813007086186424226}, 
  {0.091235675727179034641, 0, -1.12167497408173772184, 
   1.127775800254328124}}, {{xx -> 2/25, yy -> 1.11742485452851989931}, 
  {0.104274422477319895109, 0, -1.12205362562152434042, 
   1.130022583606975041}}, {{xx -> 9/100, yy -> 1.11662617125957554127}, 
  {0.117315196694507859769, 0, -1.12248258616190880166, 
   1.13256906058130615}}, {{xx -> 1/10, yy -> 1.11573422660422469723}, 
  {0.130358248896834924027, 0, -1.12296178433748317483, 
   1.135415271512116147}}}\
\>", "Output",
 CellChangeTimes->{3.443459885087181*^9, 3.443550343116127*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"y0", " ", "=", "4"}], ";", 
  RowBox[{"mysweep", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"temprels", " ", "=", " ", 
           RowBox[{"mapittwo", "[", 
            RowBox[{"ii", ",", " ", "y0"}], "]"}]}], ",", " ", 
          RowBox[{"y0", " ", "=", " ", 
           RowBox[{"yy", " ", "/.", " ", "temprels"}]}]}], " ", "}"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"myfalloffs", "[", 
         RowBox[{"xx", ",", "yy"}], "]"}], "/.", " ", "temprels"}]}], "}"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"1", "/", "100"}], ",", " ", 
       RowBox[{"1", "/", "10"}], ",", 
       RowBox[{"1", "/", "100"}]}], "}"}]}], "]"}]}], ";", 
  RowBox[{"InputForm", "[", 
   RowBox[{
    RowBox[{"Chop", "[", "mysweep", "]"}], ",", " ", 
    RowBox[{"NumberMarks", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443459876752689*^9, 3.443459879590624*^9}}],

Cell["\<\
{{{xx -> 1/100, yy -> 4.06361716974371018416}, 
  {0, 0.029455243191902686316, -4.0637958230817192792, 
   4.06392567357183878}}, {{xx -> 1/50, yy -> 4.06332775553708644135}, 
  {0, 0.0589135671447686892, -4.0640423629745752569, 
   4.06456178925639976}}, {{xx -> 3/100, yy -> 4.06284539824071780241}, 
  {0, 0.08837805515420927446, -4.0644532427438997259, 
   4.06562204304293188}}, {{xx -> 1/25, yy -> 4.06217018321341240887}, 
  {0, 0.11785179153945347585, -4.0650285178908532943, 
   4.06710661206500656}}, {{xx -> 1/20, yy -> 4.06130214818139720576}, 
  {0, 0.14733786104864236976, -4.065768184641939731, 
   4.06901566278485476}}, {{xx -> 3/50, yy -> 4.06024135638698136848}, 
  {0, 0.17683935036585520533, -4.0666722525526485661, 
   4.07134942363884159}}, {{xx -> 7/100, yy -> 4.05898793111037096999}, 
  {0, 0.20635934829550600155, -4.0677407795499595351, 
   4.07410822034025779}}, {{xx -> 2/25, yy -> 4.05754195637198630718}, 
  {0, 0.23590094870900247731, -4.0689737720119599407, 
   4.07729237546828158}}, {{xx -> 9/100, yy -> 4.05590357871011301668}, 
  {0, 0.26546724629561103419, -4.0703712870401096666, 
   4.08090231141127801}}, {{xx -> 1/10, yy -> 4.05407294498995457448}, 
  {0, 0.29506134142371051644, -4.0719333700112487181, 
   4.08493848763818518}}}\
\>", "Output",
 CellChangeTimes->{3.4434598991675873`*^9, 3.443550466831135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Data for the solutions", "Section",
 CellChangeTimes->{{3.443459199746215*^9, 3.443459202566156*^9}}],

Cell["\<\
xx and yy are the constants giving the horizon behavior of psi and phi.  The \
following set of four numbers give the boundary behavior of the fields.\
\>", "Text",
 CellChangeTimes->{{3.443465673176721*^9, 3.443465701221424*^9}, {
  3.443550465011187*^9, 3.443550467380464*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimonesweep", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043889119510991063"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.000130315716227508739042", ",", "0", ",", 
        RowBox[{"-", "1.12043889843628472562"}], ",", "1.12043891088417666"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "5000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043766313440755112"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.000260631425398699882435", ",", "0", ",", 
        RowBox[{"-", "1.120437692099176688"}], ",", "1.12043774189071211"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043715950211139551"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00039094735371692611689", ",", "0", ",", 
        RowBox[{"-", "1.12043722467282604709"}], ",", 
        "1.120437336703965201"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.1204383581629267182"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00052126321241103892799", ",", "0", ",", 
        RowBox[{"-", "1.12043847402199272512"}], ",", 
        "1.120438673188632524"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043801061117345985"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00065157954284247875964", ",", "0", ",", 
        RowBox[{"-", "1.12043819164043977299"}], ",", 
        "1.120438502839070558"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "5000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043796181456177665"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00078189546145633255056", ",", "0", ",", 
        RowBox[{"-", "1.12043822249673861307"}], ",", 
        "1.120438670622809639"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043762430070819839"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00091221137730928662926", ",", "0", ",", 
        RowBox[{"-", "1.12043797911809856255"}], ",", 
        "1.120438589067399683"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "1250"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043749131314523539"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00104252729716885104175", ",", "0", ",", 
        RowBox[{"-", "1.12043795474810022206"}], ",", 
        "1.120438751416594661"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043742530667802618"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00117284322312673176254", ",", "0", ",", 
        RowBox[{"-", "1.12043801184155254172"}], ",", 
        "1.120439020125184722"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043715761485207791"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00130315914036450189735", ",", "0", ",", 
        RowBox[{"-", "1.12043788173190249446"}], ",", 
        "1.120439126526321856"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12043548169784682243"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00260631849966171721994", ",", "0", ",", 
        RowBox[{"-", "1.12043837816364749506"}], ",", 
        "1.120443357341593366"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.1204330167445732368"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0039094784388731893433", ",", "0", ",", 
        RowBox[{"-", "1.12043953378675270483"}], ",", 
        "1.120450736939605501"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "250"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12042967262941909338"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0052126391296664820275", ",", "0", ",", 
        RowBox[{"-", "1.12044125846648530804"}], ",", 
        "1.120461175188611266"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "200"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.1204253557473098296"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0065158008306924269237", ",", "0", ",", 
        RowBox[{"-", "1.12044345858680835284"}], ",", 
        "1.120474578476666029"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12042018377384148385"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0078189638049388672101", ",", "0", ",", 
        RowBox[{"-", "1.12044625180871766226"}], ",", 
        "1.120491064472841829"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12041400934580006376"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.009122128271459129202", ",", "0", ",", 
        RowBox[{"-", "1.1204494907506141423"}], ",", "1.120510485799981005"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "125"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12040692331409500826"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0104252945812367651368", ",", "0", ",", 
        RowBox[{"-", "1.12045326624259863749"}], ",", 
        "1.120532933299555796"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12039891979803671945"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0117284628831747260228", ",", "0", ",", 
        RowBox[{"-", "1.1204575723794248143"}], ",", "1.120558401075577825"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12038994941614570512"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0130316334914845403812", ",", "0", ",", 
        RowBox[{"-", "1.12046235975156058733"}], ",", 
        "1.120586839728098528"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "50"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12024850424263952185"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.0260635219050933215791", ",", "0", ",", 
        RowBox[{"-", "1.12053812923598571797"}], ",", 
        "1.121036055839203786"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.12001290825758601925"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.039095918998004095583", ",", "0", ",", 
        RowBox[{"-", "1.12066450318131381936"}], ",", "1.1217848630797973"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "25"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11968317330358100938"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.052129079337674902393", ",", "0", ",", 
        RowBox[{"-", "1.12084141170848991796"}], ",", 
        "1.122833224963956355"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11925937737374263607"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.065163256662464964077", ",", "0", ",", 
        RowBox[{"-", "1.12106881841641278493"}], ",", 
        "1.124181151729514106"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "50"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11874163036027509509"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.078198704465277758064", ",", "0", ",", 
        RowBox[{"-", "1.12134668620011704952"}], ",", 
        "1.125828666143914949"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11813007086186424226"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.091235675727179034641", ",", "0", ",", 
        RowBox[{"-", "1.12167497408173772184"}], ",", 
        "1.127775800254328124"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"2", "/", "25"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11742485452851989931"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.104274422477319895109", ",", "0", ",", 
        RowBox[{"-", "1.12205362562152434042"}], ",", 
        "1.130022583606975041"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11662617125957554127"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.117315196694507859769", ",", "0", ",", 
        RowBox[{"-", "1.12248258616190880166"}], ",", "1.13256906058130615"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11573422660422469723"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.130358248896834924027", ",", "0", ",", 
        RowBox[{"-", "1.12296178433748317483"}], ",", 
        "1.135415271512116147"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.1098846103501463796"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.195616381363158521621", ",", "0", ",", 
        RowBox[{"-", "1.12610842125043313433"}], ",", 
        "1.154144200835539553"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.10174872769647512795"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.260968396293486804418", ",", "0", ",", 
        RowBox[{"-", "1.13049629789952934767"}], ",", 
        "1.180375560180743401"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "4"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.09137960881022997275"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.32644405452473453159", ",", "0", ",", 
        RowBox[{"-", "1.13610812871220975777"}], ",", 
        "1.214119146113768747"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.07884464489026174014"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3920718237552698508", ",", "0", ",", 
        RowBox[{"-", "1.14292187663837579199"}], ",", 
        "1.255386073077493827"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.06422498293536162294"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.45787858330936194333", ",", "0", ",", 
        RowBox[{"-", "1.15091089330252939112"}], ",", 
        "1.304187720481336909"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"2", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.04761479739272013528"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.52388934883280604497", ",", "0", ",", 
        RowBox[{"-", "1.16004411171714642558"}], ",", 
        "1.360534533250495017"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.02912039389263980374"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.59012701909090335226", ",", "0", ",", 
        RowBox[{"-", "1.17028625075880057623"}], ",", 
        "1.424434668537999312"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.00885920456891087256"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.65661215447842545345", ",", "0", ",", 
        RowBox[{"-", "1.18159808729952018071"}], ",", 
        "1.495892594956008433"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.986958634276734401709"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.72336278590898846867", ",", "0", ",", 
        RowBox[{"-", "1.19393675699071994333"}], ",", 
        "1.574907645896192098"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.963554773454148968385"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.79039426392979884077", ",", "0", ",", 
        RowBox[{"-", "1.2072560863689365255"}], ",", "1.661472587171007005"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.93879101118420364858"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.8577191480788181631", ",", "0", ",", 
        RowBox[{"-", "1.2215069780120982676"}], ",", "1.755572270753762935"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.912816540061000773638"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.92534714128465354445", ",", "0", ",", 
        RowBox[{"-", "1.23663782306468509426"}], ",", "1.85718240252416619"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "4"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.885784789926179315989"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.99328507249045837662", ",", "0", ",", 
        RowBox[{"-", "1.25259494528626945934"}], ",", "1.96626848341766576"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"4", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.85785180677726722204"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.06153692525766454602", ",", "0", ",", 
        RowBox[{"-", "1.26932307108589585805"}], ",", 
        "2.082784958240429593"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.82917460956846186887"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.13010391478719378228", ",", "0", ",", 
        RowBox[{"-", "1.28676581480550947049"}], ",", "2.20667460747362698"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.799909554798448089209"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.19898461007213367786", ",", "0", ",", 
        RowBox[{"-", "1.30486617239146291584"}], ",", "2.33786820610512784"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.770210744163412343769"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.26817509729700838303", ",", "0", ",", 
        RowBox[{"-", "1.3235670142896994429"}], ",", "2.47628445802192336"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "1"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.740228500283488245978"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.33766917978577627605", ",", "0", ",", 
        RowBox[{"-", "1.34281156755147971193"}], ",", "2.62183021267314051"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.679987737974656699883"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.47753333650378575189", ",", "0", ",", 
        RowBox[{"-", "1.38270923269032186454"}], ",", "2.93388149904868117"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"6", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.620263868459910194138"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.61849113316761637443", ",", "0", ",", 
        RowBox[{"-", "1.42412880953535533882"}], ",", "3.27306405697326708"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.561997776627018636795"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.76043660043680643919", ",", "0", ",", 
        RowBox[{"-", "1.46667137587268422015"}], ",", "3.63828394766999838"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.505972952896035743026"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.90325241272368193255", ",", "0", ",", 
        RowBox[{"-", "1.50997810665117097933"}], ",", "4.02835258952756369"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.452805789407482696517"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.04681775954558027774", ",", "0", ",", 
        RowBox[{"-", "1.55373553104808851977"}], ",", "4.4420312191878814"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"8", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.402946853101821375254"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.19101483316663493451", ",", "0", ",", 
        RowBox[{"-", "1.59767749881756666787"}], ",", "4.8780734055607134"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.35669114259411917411"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.33573363916339809968", ",", "0", ",", 
        RowBox[{"-", "1.64158433014957718709"}], ",", "5.33526176907208551"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.314194792338208941294"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.48087510903907437843", ",", "0", ",", 
        RowBox[{"-", "1.68527981931207636275"}], ",", "5.81243664501694537"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.275495615029562472395"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.62635269551260532402", ",", "0", ",", 
        RowBox[{"-", "1.72862681740853950497"}], ",", "6.30851594841825168"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "2"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.240535138376206727701"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.7720927498240265888", ",", "0", ",", 
        RowBox[{"-", "1.77152207499777826245"}], ",", "6.82250674906179888"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"21", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.209180327830243562685"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.9180340172255008616", ",", "0", ",", 
        RowBox[{"-", "1.81389089292053625797"}], ",", "7.35350980427598191"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.18124364873204649841"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.06412656957590633493", ",", "0", ",", 
        RowBox[{"-", "1.85568198320814696478"}], ",", "7.90071866827322453"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"23", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.156500738928779193561"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.21033043662720092111", ",", "0", ",", 
        RowBox[{"-", "1.89686279149774767311"}], ",", "8.46341498893567487"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"12", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.134705295382788373263"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.3566141394234888424", ",", "0", ",", 
        RowBox[{"-", "1.93741541857034667579"}], ",", "9.04096147303791173"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"5", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.115601146883158960346"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.5029532582172869555", ",", "0", ",", 
        RowBox[{"-", "1.97733317248546126444"}], ",", "9.63279363578194752"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0989316726853383085809"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.6493291206762478166", ",", "0", ",", 
        RowBox[{"-", "2.01661773960019122272"}], ",", 
        "10.23841124094847816"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"27", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0844468457294509491614"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.7957276504738448654", ",", "0", ",", 
        RowBox[{"-", "2.0552769122566582804"}], ",", "10.85736998777724188"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"14", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0719082529857888512412"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3.9421383899307100738", ",", "0", ",", 
        RowBox[{"-", "2.09332279860154728898"}], ",", 
        "11.48927379913860996"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"29", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0610924345703091748753"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.0885536921681477507", ",", "0", ",", 
        RowBox[{"-", "2.13077044060198126867"}], ",", "12.1337679167835781"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "3"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0517928814974309334203"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.2349680670428294618", ",", "0", ",", 
        RowBox[{"-", "2.16763676209742098354"}], ",", 
        "12.79053285129521982"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"31", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0438209838778947509557"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.3813776604948332599", ",", "0", ",", 
        RowBox[{"-", "2.20393978076845950376"}], ",", 
        "13.45927917290160695"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"16", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0370061982827673052665"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.5277798461937929471", ",", "0", ",", 
        RowBox[{"-", "2.23969802910978865342"}], ",", 
        "14.13974309507497556"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"33", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0311956363947966240215"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.6741729093695327689", ",", "0", ",", 
        RowBox[{"-", "2.27493013519236017167"}], ",", 
        "14.83168275688341946"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0262532599911390954576"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.8205558049124272278", ",", "0", ",", 
        RowBox[{"-", "2.30965452624760499753"}], ",", "15.5348751182611357"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.022058821284595718502"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.9669279728554456525", ",", "0", ",", 
        RowBox[{"-", "2.34388922348686181285"}], ",", 
        "16.24911336705209262"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"18", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0185066404655040058578"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.1132892009278695894", ",", "0", ",", 
        RowBox[{"-", "2.37765170764243944585"}], ",", "16.9742047781089772"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"37", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0155043257769224419706"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.2596395205793179234", ",", "0", ",", 
        RowBox[{"-", "2.41095883315066667154"}], ",", 
        "17.70996891874444973"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0129714801163141961282"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.4059791314736748479", ",", "0", ",", 
        RowBox[{"-", "2.44382678021469040662"}], ",", 
        "18.45623616399715633"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"39", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0108384356712201390936"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.5523083442718037609", ",", "0", ",", 
        RowBox[{"-", "2.47627103295971462239"}], ",", 
        "19.21284644850150761"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "4"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00904505166140285732389"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"5.6986275412375060964", ",", "0", ",", 
        RowBox[{"-", "2.5083063762329260917"}], ",", "19.97964822730492204"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"41", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00753959397317830576567"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"5.844937146029073029", ",", "0", ",", 
        RowBox[{"-", "2.53994690628295083437"}], ",", 
        "20.75649759780884956"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"21", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.006277703390198815926"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.9912376016966718389", ",", "0", ",", 
        RowBox[{"-", "2.57120604634594304603"}], ",", 
        "21.54325752511751252"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"43", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00522145392356614589339"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.137529359119052527", ",", "0", ",", 
        RowBox[{"-", "2.60209657770738398659"}], ",", 
        "22.33979727793403263"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"22", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00433850562916901459355"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.2838128634249113522", ",", "0", ",", 
        RowBox[{"-", "2.63263065745010230804"}], ",", "23.1459917771967902"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00360135660062840266041"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.4300885487981754344", ",", "0", ",", 
        RowBox[{"-", "2.66281985514991015076"}], ",", 
        "23.96172119719151813"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"23", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00298666960325476390709"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.5763568338600981929", ",", "0", ",", 
        RowBox[{"-", "2.6926751802348379011"}], ",", "24.78687052711547779"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"47", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00247468682293093158085"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.7226181182974432097", ",", "0", ",", 
        RowBox[{"-", "2.72220710979395336828"}], ",", "25.6213291850599363"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"24", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00204871262898958926397"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"6.8688727836518212725", ",", "0", ",", 
        RowBox[{"-", "2.75142562508352062696"}], ",", "26.4649907802669451"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"49", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00169466718272483509685"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"7.0151211905090184211", ",", "0", ",", 
        RowBox[{"-", "2.78034023286086633861"}], ",", 
        "27.31775275320559299"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "5"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00140069792296264504519"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"7.1613636771573605185", ",", "0", ",", 
        RowBox[{"-", "2.80895998776787569608"}], ",", "28.1795160612721272"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"51", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00115684236682746395628"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"7.3076005647838939377", ",", "0", ",", 
        RowBox[{"-", "2.83729353191634867439"}], ",", 
        "29.05018512252702282"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"26", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000954742106258895528933"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"7.4538321537760481103", ",", "0", ",", 
        RowBox[{"-", "2.86534910817401240118"}], ",", 
        "29.92966747468775947"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"53", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00078739367622109173808"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"7.6000587265250886508", ",", "0", ",", 
        RowBox[{"-", "2.89313458747863245291"}], ",", "30.8178736402188594"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"27", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000648936366321531018307"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"7.74628054796642353", ",", "0", ",", 
        RowBox[{"-", "2.92065748879316240776"}], ",", "31.7147169443152024"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000534477482506556749842"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"7.8924978659336818741", ",", "0", ",", 
        RowBox[{"-", "2.94792499915116701471"}], ",", "32.6201133503204012"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"28", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000439927889220144790772"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"8.0387109140568488375", ",", "0", ",", 
        RowBox[{"-", "2.97494399499261346442"}], ",", "33.5339813569279527"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"57", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000361882391784534747525"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"8.1849199107290660553", ",", "0", ",", 
        RowBox[{"-", "3.00172105679323626601"}], ",", "34.4562418247254878"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"29", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000297507806571249070161"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"8.3311250599329249381", ",", "0", ",", 
        RowBox[{"-", "3.02826248601261237907"}], ",", "35.3868178522821578"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"59", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000244445539995994051757"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"8.4773265540107677805", ",", "0", ",", 
        RowBox[{"-", "3.05457432255050529631"}], ",", "36.3256347042078695"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "6"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00020073636864074339765"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"8.6235245738448025581", ",", "0", ",", 
        RowBox[{"-", "3.08066235919426109238"}], ",", "37.272619700490212"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"61", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000164754782157367032666"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"8.7697192874880423518", ",", "0", ",", 
        RowBox[{"-", "3.10653215105604035204"}], ",", "38.2277020663330744"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"31", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00013515320057503456167"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"8.9159108544489645497", ",", "0", ",", 
        RowBox[{"-", "3.13218903346827553717"}], ",", "39.1908129138006018"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"63", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000110814706858798172563"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"9.0620994239640116551", ",", "0", ",", 
        RowBox[{"-", "3.15763813143092355445"}], ",", "40.1618851238361233"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"32", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000908150482132544129821"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.2082851361825592482", ",", "0", ",", 
        RowBox[{"-", "3.18288436917441903705"}], ",", "41.1408532526482603"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000743902251843899894425"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.3544681243657589717", ",", "0", ",", 
        RowBox[{"-", "3.20793248630967323838"}], ",", "42.127653535926722"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"33", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000609080317484719071143"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.500648511570420457", ",", "0", ",", 
        RowBox[{"-", "3.23278703923029937283"}], ",", "43.1222236993779679"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"67", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000498471808434101367411"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.6468264156054801625", ",", "0", ",", 
        RowBox[{"-", "3.25745241651461819562"}], ",", "44.124502991969239"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"34", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000407774899109065805762"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.7930019468349909519", ",", "0", ",", 
        RowBox[{"-", "3.2819328446103935442"}], ",", "45.1344320794662757"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"69", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000333441091516057555605"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"9.9391752095329405599", ",", "0", ",", 
        RowBox[{"-", "3.3062323974361854375"}], ",", "46.1519530093726799"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "7"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000272544238158547150851"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"10.0853463027229940361", ",", "0", ",", 
        RowBox[{"-", "3.3303550021166942851"}], ",", "47.1770091397904352"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"71", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000022268313621594453074"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"10.2315153181442380313", ",", "0", ",", 
        RowBox[{"-", "3.354304449373517866"}], ",", "48.209545121538348"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"36", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000181874649908223932713"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"10.3776823439029333099", ",", "0", ",", 
        RowBox[{"-", "3.378084394710524654"}], ",", "49.2495067812912715"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"73", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000148489832945368087082"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"10.5238474627463121642", ",", "0", ",", 
        RowBox[{"-", "3.4016983699854519004"}], ",", "50.2968411528838886"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"37", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000121187563697028023247"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"10.6700107549814770593", ",", "0", ",", 
        RowBox[{"-", "3.4251497867130118415"}], ",", "51.351496413210469"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"15", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "9.8871644405085804283*^-6"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"10.8161722924763193469", ",", "0", ",", 
        RowBox[{"-", "3.4484419416116075949"}], ",", "52.4134217873332964"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"38", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "8.06364165901395357843*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"10.9623321483481780982", ",", "0", ",", 
        RowBox[{"-", "3.4715780234114725951"}], ",", "53.4825676138383982"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"77", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "6.57428778921789165612*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.1084903870583410367", ",", "0", ",", 
        RowBox[{"-", "3.4945611151117870911"}], ",", "54.5588851828857462"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"39", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "5.35819348183049946642*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.2546470746213272062", ",", "0", ",", 
        RowBox[{"-", "3.5173942021173591209"}], ",", "55.642326837809653"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"79", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.36571938847147715716*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.4008022681490283834", ",", "0", ",", 
        RowBox[{"-", "3.5400801714819265239"}], ",", "56.7328457747605215"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "8"}], ",", 
        RowBox[{"yy", "\[Rule]", "3.55595065603078450483*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.5469560279721111585", ",", "0", ",", 
        RowBox[{"-", "3.5626218240297404009"}], ",", "57.830396233930217"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"81", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.89540425376565604092*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.6931084065246800132", ",", "0", ",", 
        RowBox[{"-", "3.5850218687404496464"}], ",", "58.934933219958303"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"41", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.35705045253135343771*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"11.8392594557542364995", ",", "0", ",", 
        RowBox[{"-", "3.6072829341459143319"}], ",", "60.046412667865506"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"83", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.9180969163720061871*^-6"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"11.9854092251994929978", ",", "0", ",", 
        RowBox[{"-", "3.6294075681312863299"}], ",", "61.1647913234653404"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"42", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.56050434255480193078*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"12.1315577616932513781", ",", "0", ",", 
        RowBox[{"-", "3.6513982418416686406"}], ",", "62.2900267400515176"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.26926092914959529609*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"12.2777051095280557924", ",", "0", ",", 
        RowBox[{"-", "3.6732573532077098118"}], ",", "63.422077245500072"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"43", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.0320502982097278925*^-6"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"12.4238513111056180406", ",", "0", ",", 
        RowBox[{"-", "3.6949872302575722422"}], ",", "64.560901932537308"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"87", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "8.38957989989072420021*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"12.569996407381346755", ",", "0", ",", 
        RowBox[{"-", "3.7165901330996082664"}], ",", "65.706460627426078"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"44", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "6.81818465890297218114*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"12.7161404370499066394", ",", "0", ",", 
        RowBox[{"-", "3.7380682568156005394"}], ",", "66.8587138567502994"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"89", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "5.53972213205786526132*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"12.8622834367093935747", ",", "0", ",", 
        RowBox[{"-", "3.7594237340733032368"}], ",", "68.017622838521216"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "9"}], ",", 
        RowBox[{"yy", "\[Rule]", "4.4998493102572332803*^-7"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"13.0084254416585669517", ",", "0", ",", 
        RowBox[{"-", "3.7806586385828482967"}], ",", "69.1831494763768209"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"91", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.65430173682113891105*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"13.1545664854599296787", ",", "0", ",", 
        RowBox[{"-", "3.8017749851219266971"}], ",", "70.3552562945471826"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"46", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.96696382561450100221*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"13.3007066008269488089", ",", "0", ",", 
        RowBox[{"-", "3.82277473544470285"}], ",", "71.5339065114359339"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"93", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.40831104004951594339*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"13.4468458177139232662", ",", "0", ",", 
        RowBox[{"-", "3.8436597950407567753"}], ",", "72.7190638770958667"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"47", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.9543863673595002036*^-7"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"13.5929841658214262591", ",", "0", ",", 
        RowBox[{"-", "3.864432020480988088"}], ",", "73.910692800079762"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.58568487395086000976*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"13.7391216736314032341", ",", "0", ",", 
        RowBox[{"-", "3.8850932176259232624"}], ",", "75.1087582406710832"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"48", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.28625797734521025067*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"13.8852583680197790375", ",", "0", ",", 
        RowBox[{"-", "3.9056451457533519927"}], ",", "76.3132257440176137"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"97", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.04314110647598661118*^-7"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.0313942747031037759", ",", "0", ",", 
        RowBox[{"-", "3.926089517708978286"}], ",", "77.524061391309993"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"49", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "8.45786435648186770107*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.1775294184033345378", ",", "0", ",", 
        RowBox[{"-", "3.9464280024345832734"}], ",", "78.7412318042593675"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"99", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "6.85697664480901243258*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.3236638246516371965", ",", "0", ",", 
        RowBox[{"-", "3.9666622265741062436"}], ",", "79.9647041494475982"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "10"}], ",", 
        RowBox[{"yy", "\[Rule]", "5.55765104182883446691*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.4697975134194413551", ",", "0", ",", 
        RowBox[{"-", "3.9867937746576710598"}], ",", "81.1944460441123687"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"101", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.50365695831887261941*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.6159305077127366715", ",", "0", ",", 
        RowBox[{"-", "4.0068241918280967744"}], ",", "82.4304256369418475"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"51", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.64883928243565601842*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.7620628287111123622", ",", "0", ",", 
        RowBox[{"-", "4.0267549864828462552"}], ",", "83.6726115807565322"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"103", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.95571665406009783969*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"14.9081944964445691511", ",", "0", ",", 
        RowBox[{"-", "4.0465876276086401119"}], ",", "84.920972953080178"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"52", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.39381473492549508673*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.0543255303090457811", ",", "0", ",", 
        RowBox[{"-", "4.0663235503158769397"}], ",", "86.1754793221785155"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"21", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.93836461005052279252*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.2004559488672415748", ",", "0", ",", 
        RowBox[{"-", "4.0859641544636538093"}], ",", "87.436100691977748"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"53", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.56930280318422743503*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.3465857701631583625", ",", "1.097471*^-10", ",", 
        RowBox[{"-", "4.1055108065573519698"}], ",", "88.702807504058736"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"107", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.2703132802921968784*^-8"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"15.4927150114414797241", ",", "2.606144*^-10", ",", 
        RowBox[{"-", "4.1249648409475882742"}], ",", "89.9755706279013757"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"54", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.02809393811130602492*^-8"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.6388436891353312356", ",", "0", ",", 
        RowBox[{"-", "4.1443275604441125494"}], ",", "91.2543613410885614"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"109", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "8.31921149167257521143*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.7849718192524661797", ",", "0", ",", 
        RowBox[{"-", "4.163600238102317307"}], ",", "92.539151338067672"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "11"}], ",", 
        RowBox[{"yy", "\[Rule]", "6.73069247199647777033*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"15.9310994171475716338", ",", "0", ",", 
        RowBox[{"-", "4.1827841174779910964"}], ",", "93.829912703475262"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"111", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "5.44461446960131347987*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.0772264976420354738", ",", "0", ",", 
        RowBox[{"-", "4.2018804139969655172"}], ",", "95.1266179125319633"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"56", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.40357166957430398361*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.2233530749068840026", ",", "0", ",", 
        RowBox[{"-", "4.2208903149487187687"}], ",", "96.4292398069093023"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"113", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.56102500395318708418*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.3694791627674667597", ",", "2.53921*^-10", ",", 
        RowBox[{"-", "4.2398149821452657961"}], ",", "97.7377516168093421"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"57", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.87924362878143893393*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.515604774469825409", ",", "6.872387*^-10", ",", 
        RowBox[{"-", "4.2586555511627117916"}], ",", "99.0521269252999311"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"23", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.32764055568115472294*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.6617299227459917998", ",", "0", ",", 
        RowBox[{"-", "4.2774131318025383572"}], ",", "100.3723396507492136"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"58", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.88143458006431179294*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.8078546198496637746", ",", "1.31066*^-10", ",", 
        RowBox[{"-", "4.2960888108699767431"}], ",", "101.69836408380598"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"117", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.52054276500624202503*^-9"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"16.9539788778886604635", ",", "4.498231*^-10", ",", 
        RowBox[{"-", "4.3146836520520104231"}], ",", "103.0301748576419559"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"59", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.2286997826456566805*^-9"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"17.1001027081297176527", ",", "1.5529726*^-9", ",", 
        RowBox[{"-", "4.3331986947443189803"}], ",", "104.3677469064981649"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"119", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "9.92728681517488435357*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"17.2462261216593958252", ",", "2.51099*^-10", ",", 
        RowBox[{"-", "4.3516349559348732799"}], ",", "105.7110554734676452"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "12"}], ",", 
        RowBox[{"yy", "\[Rule]", "8.01965512257300848049*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"17.3923491294187408503", ",", "1.071262*^-9", ",", 
        RowBox[{"-", "4.3699934343616430578"}], ",", "107.0600762017933921"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"121", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "6.47770760352693360925*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"17.5384717414295532614", ",", "4.533291*^-9", ",", 
        RowBox[{"-", "4.3882751056166360513"}], ",", "108.4147849808930515"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"61", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "5.23153628593002940958*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"17.6845939681271315427", ",", "1.61701*^-9", ",", 
        RowBox[{"-", "4.4064809225321183232"}], ",", "109.775157945329433"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"123", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.2245370722624748301*^-10"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"17.8307158186098014961", ",", "8.1211077*^-9", ",", 
        RowBox[{"-", "4.4246118258822835029"}], ",", "111.1411717122187014"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"62", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.41097816557872637238*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"17.976837302951339047", ",", "4.9894587*^-9", ",", 
        RowBox[{"-", "4.4426687269806208785"}], ",", "112.5128029334541994"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"25", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.75368588642754457062*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"18.1229584294931231252", ",", "4.245651*^-9", ",", 
        RowBox[{"-", "4.460652527200101024"}], ",", "113.890028748973224"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"63", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.22276719957859547576*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"18.2690792072783188069", ",", "4.908051*^-9", ",", 
        RowBox[{"-", "4.4785641071624900709"}], ",", "115.2728265231800133"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"127", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.79397049834503260468*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"18.4151996446541657646", ",", "7.493838*^-9", ",", 
        RowBox[{"-", "4.4964043295438930281"}], ",", "116.661173879395729"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"64", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.44770377197504554536*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"18.5613197498308529036", ",", "1.4520134*^-8", ",", 
        RowBox[{"-", "4.5141740412325732336"}], ",", "118.0550487359681566"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"129", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.16811827604795154567*^-10"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"18.7074395304596215613", ",", "3.4444645*^-8", ",", 
        RowBox[{"-", "4.5318740738219709222"}], ",", "119.4544293103202362"}],
        "}"}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.44345816093617*^9, 3.4434581716131983`*^9}, {
  3.443458213794067*^9, 3.443458214196885*^9}, {3.443458252776375*^9, 
  3.443458253241641*^9}, {3.443458328511039*^9, 3.4434583339983387`*^9}, {
  3.443458403343285*^9, 3.4434584038600807`*^9}, {3.44345908373055*^9, 
  3.443459084566043*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043889119510991063`20.049388175069687"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0001303157162275087390419999999999999999999999999999999999`20.\
114996795292686", ",", "0", ",", 
       RowBox[{"-", "1.12043889843628472562`20.04938817787645"}], ",", 
       "1.12043891088417666`17.049388182701374"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "5000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043766313440755112`20.049387699059533"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.000260631425398699882435`20.416026779198607", ",", "0", ",", 
       RowBox[{"-", "1.120437692099176688`18.049387710286613"}], ",", 
       "1.12043774189071211`17.04938772958638"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043715950211139551`20.049387503845836"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.00039094735371692611689`19.592118277780436", ",", "0", ",", 
       RowBox[{"-", "1.12043722467282604709`20.049387529106763"}], ",", 
       "1.120437336703965201`18.04938757253134"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.1204383581629267182`19.049387968460465"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0005212632124110389279900000000000000000000000000000000001`19.\
7170570761439", ",", "0", ",", 
       RowBox[{"-", "1.12043847402199272512`20.04938801336874"}], ",", 
       "1.120438673188632524`18.049388090567955"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043801061117345985`20.049387833745495"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0006515795428424787596400000000000000000000000000000000001`19.\
813967440630186", ",", "0", ",", 
       RowBox[{
       "-", "1.1204381916404397729900000000000000000000000000000000000001`20.\
049387903914482"}], ",", "1.120438502839070558`18.049388024538565"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "5000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043796181456177665`20.04938781483137"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0007818954614563325505599999999999999999999999999999999999`19.\
893148692257387", ",", "0", ",", 
       RowBox[{"-", "1.12043822249673861307`20.049387915874735"}], ",", 
       "1.120438670622809639`18.049388089573416"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1204376243007081983899999999999999999999999999999999999999`20.\
049387684007147"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0009122113773092866292600000000000000000000000000000000001`19.\
960095484558973", ",", "0", ",", 
       RowBox[{"-", "1.12043797911809856255`20.049387821538414"}], ",", 
       "1.120438589067399683`18.04938805796163"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "1250"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043749131314523539`20.049387632459634"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.00104252729716885104175`20.018087435208958", ",", "0", ",", 
       RowBox[{"-", "1.12043795474810022206`20.049387812092338"}], ",", 
       "1.120438751416594661`18.049388120889983"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1204374253066780261799999999999999999999999999999999999999`20.\
04938760687477"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.00117284322312673176254`20.069239962770734", ",", "0", ",", 
       RowBox[{"-", "1.12043801184155254172`20.049387834222394"}], ",", 
       "1.120439020125184722`18.049388225044396"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043715761485207791`20.049387503114325"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.00130315914036450189735`20.11499745451683", ",", "0", ",", 
       RowBox[{"-", "1.12043788173190249446`20.04938778379042"}], ",", 
       "1.120439126526321856`18.04938826628664"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12043548169784682243`20.049386853508903"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0026063184996617172199399999999999999999999999999999999999`20.\
41602748666187", ",", "0", ",", 
       RowBox[{
       "-", "1.1204383781636474950600000000000000000000000000000000000001`20.\
04938797621297"}], ",", "1.120443357341593366`18.04938990619391"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.1204330167445732368`19.049385898061836"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0.0039094784388731893433`19.592118822299184", ",", "0", ",", 
       RowBox[{"-", "1.12043953378675270483`20.04938842414523"}], ",", 
       "1.120450736939605501`18.04939276658673"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "250"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12042967262941909338`20.049384601837158"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.0052126391296664820275`19.717057659816835", ",", "0", ",", 
       RowBox[{"-", "1.12044125846648530804`20.04938909264922"}], ",", 
       "1.120461175188611266`18.049396812505645"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "200"]}], ",", 
       RowBox[{"yy", "\[Rule]", "1.1204253557473098296`19.04938292854902"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.0065158008306924269237`19.81396780070504", ",", "0", ",", 
       RowBox[{
       "-", "1.1204434585868083528400000000000000000000000000000000000001`20.\
04938994543751"}], ",", "1.120474578476666029`18.04940200763365"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1204201837738414838499999999999999999999999999999999999999`20.\
049380923806165"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0078189638049388672100999999999999999999999999999999999999`19.\
893149202725503", ",", "0", ",", 
       RowBox[{
       "-", "1.1204462518087176622599999999999999999999999999999999999999`20.\
049391028115398"}], ",", "1.120491064472841829`18.0494083975372"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12041400934580006376`20.049378530483143"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0091221282714591292019999999999999999999999999999999999999`18.\
960096174810783", ",", "0", ",", 
       RowBox[{"-", "1.1204494907506141423`19.049392283554965"}], ",", 
       "1.120510485799981005`18.049415925042222"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "125"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12040692331409500826`20.049375783789355"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.0104252945812367651368`20.0180883354154", ",", "0", ",", 
       RowBox[{"-", "1.12045326624259863749`20.049393746961016"}], ",", 
       "1.120532933299555796`18.04942462529775"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12039891979803671945`20.04937268143859"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0117284628831747260227999999999999999999999999999999999999`20.\
06924109778491", ",", "0", ",", 
       RowBox[{"-", "1.1204575723794248143`19.049395416042564"}], ",", 
       "1.120558401075577825`18.0494344959482"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12038994941614570512`20.04936920428159"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0130316334914845403812000000000000000000000000000000000001`20.\
11499885714575", ",", "0", ",", 
       RowBox[{
       "-", 
        "1.1204623597515605873300000000000000000000000000000000000001`20.\
049397271645937"}], ",", "1.120586839728098528`18.049445517768326"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "50"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1202485042426395218500000000000000000000000000000000000001`20.\
049314372714875"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.0260635219050933215791`20.416033100578456", ",", "0", ",", 
       RowBox[{"-", "1.12053812923598571797`20.049426639126377"}], ",", 
       "1.121036055839203786`18.049619581016188"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.12001290825758601925`20.04922302798513"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0390959189980040955830000000000000000000000000000000000001`19.\
592131426215623", ",", "0", ",", 
       RowBox[{
       "-", "1.1206645031813138193600000000000000000000000000000000000001`20.\
049475615962617"}], ",", "1.1217848630797973`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "25"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.11968317330358100938`20.049095151642238"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.052129079337674902393`19.71708005483114", ",", "0", ",", 
       RowBox[{"-", "1.12084141170848991796`20.049544168444957"}], ",", 
       "1.122833224963956355`18.050315255053448"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1192593773737426360700000000000000000000000000000000000001`20.\
04893074167475"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0651632566624649640770000000000000000000000000000000000001`19.\
814002780903426", ",", "0", ",", 
       RowBox[{
       "-", "1.1210688184164127849300000000000000000000000000000000000001`20.\
04963227320259"}], ",", "1.124181151729514106`18.05083629954037"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "50"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.11874163036027509509`20.048729799249603"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0781987044652777580640000000000000000000000000000000000001`19.\
893199558069547", ",", "0", ",", 
       RowBox[{"-", "1.12134668620011704952`20.049739903965524"}], ",", 
       "1.125828666143914949`18.05147230258464"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.11813007086186424226`20.048492327496543"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.091235675727179034641`19.960164692953477", ",", "0", ",", 
       RowBox[{"-", "1.12167497408173772184`20.049867030349546"}], ",", 
       "1.127775800254328124`18.052222771287294"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["2", "25"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.11742485452851989931`20.048218327006733"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.104274422477319895109`20.018177793189576", ",", "0", ",", 
       RowBox[{"-", "1.12205362562152434042`20.05001361338626"}], ",", 
       "1.130022583606975041`18.053087122985975"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1166261712595755412700000000000000000000000000000000000001`20.\
047907802540404"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.1173151966945078597690000000000000000000000000000000000001`20.\
06935427309666", ",", "0", ",", 
       RowBox[{"-", "1.12248258616190880166`20.050179612221058"}], ",", 
       "1.13256906058130615`17.05406469343536"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1157342266042246972299999999999999999999999999999999999999`20.\
04756075583328"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.130358248896834924027`20.115138517951824", ",", "0", ",", 
       RowBox[{"-", "1.12296178433748317483`20.05036497697939"}], ",", 
       "1.135415271512116147`18.05515473125705"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "20"]}], ",", 
       RowBox[{"yy", "\[Rule]", "1.1098846103501463796`19.04527782951357"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.195616381363158521621`20.291405220787638", ",", "0", ",", 
       RowBox[{"-", "1.12610842125043313433`20.05158020622045"}], ",", 
       "1.154144200835539553`18.06226007373715"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.10174872769647512795`20.04208255765737"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.2609683962934868044180000000000000000000000000000000000001`20.\
41658791673908", ",", "0", ",", 
       RowBox[{
       "-", "1.1304962978995293476699999999999999999999999999999999999999`20.\
05326914447489"}], ",", "1.180375560180743401`18.072020208801053"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "4"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.09137960881022997275`20.03797583522326"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0.32644405452473453159`19.51380876327403", ",", "0", ",", 
       RowBox[{"-", "1.13610812871220975777`20.055419667174554"}], ",", 
       "1.214119146113768747`18.084261307794204"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.0788446448902617401399999999999999999999999999999999999999`20.\
03295891018381"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3920718237552698508`18.593365632845238", ",", "0", ",", 
       RowBox[{"-", "1.14292187663837579199`20.058016545614525"}], ",", 
       "1.255386073077493827`18.098777306392805"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.06422498293536162294`20.027033449874942"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.45787858330936194333`19.66075033042858", ",", "0", ",", 
       RowBox[{
       "-", "1.1509108933025293911199999999999999999999999999999999999999`20.\
061041700654076"}], ",", "1.304187720481336909`18.115340106811253"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["2", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.04761479739272013528`20.020201624137144"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.52388934883280604497`19.719239568919104", ",", "0", ",", 
       RowBox[{"-", "1.16004411171714642558`20.064474503977866"}], ",", 
       "1.360534533250495017`18.13370956957024"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.02912039389263980374`20.01246618462122"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0.59012701909090335226`19.770945499359307", ",", "0", ",", 
       RowBox[{"-", "1.17028625075880057623`20.06829210270328"}], ",", 
       "1.424434668537999312`18.153642535187227"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.00885920456891087256`20.003830560740994"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.65661215447842545345`19.81730891764714", ",", "0", ",", 
       RowBox[{
       "-", "1.1815980872995201807099999999999999999999999999999999999999`20.\
07246977929447"}], ",", "1.495892594956008433`18.1749004123169"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.986958634276734401709`20.994298950763028"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.72336278590898846867`19.859356162304923", ",", "0", ",", 
       RowBox[{"-", "1.19393675699071994333`20.07698132275869"}], ",", 
       "1.574907645896192098`18.19725509142489"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.9635547734541489683850000000000000000000000000000000000001`20.\
983876407245514"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.79039426392979884077`19.897843779817585", ",", "0", ",", 
       RowBox[{"-", "1.2072560863689365255`19.081799403568994"}], ",", 
       "1.661472587171007005`18.220493180198797"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.93879101118420364858`19.972568922626824"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.8577191480788181631`18.93334510555643", ",", "0", ",", 
       RowBox[{"-", "1.2215069780120982676`19.086895952278347"}], ",", 
       "1.755572270753762935`18.24441871255017"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.9128165400610007736380000000000000000000000000000000000001`20.\
960383500814345"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.92534714128465354445`19.966304687616823", ",", "0", ",", 
       RowBox[{"-", "1.23663782306468509426`20.092242525437218"}], ",", 
       "1.85718240252416619`17.268854559916143"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "4"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.885784789926179315989`20.947328218613173"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.9932850724904583766199999999999999999999999999999999999999`19.\
997073908759024", ",", "0", ",", 
       RowBox[{"-", "1.25259494528626945934`20.09781065481962"}], ",", 
       "1.96626848341766576`17.293642818127758"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["4", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.8578518067772672220399999999999999999999999999999999999999`19.\
933412270299062"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.06153692525766454602`20.025935105573833", ",", "0", ",", 
       RowBox[{
       "-", "1.2693230710858958580499999999999999999999999999999999999999`20.\
103572173814634"}], ",", "2.082784958240429593`18.31864443256388"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.82917460956846186887`19.91864599494964"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "1.1301039147871937822799999999999999999999999999999999999999`20.\
05311837936283", ",", "0", ",", 
       RowBox[{"-", "1.28676581480550947049`20.109499514587302"}], ",", 
       "2.20667460747362698`17.343738297548935"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.799909554798448089209`20.903040884401275"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1.1989846100721336778599999999999999999999999999999999999999`20.\
07881360861708", ",", "0", ",", 
       RowBox[{
       "-", "1.3048661723914629158399999999999999999999999999999999999999`20.\
11556597253848"}], ",", "2.33786820610512784`17.368820024800762"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.770210744163412343769`20.8866095725811"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"1.26817509729700838303`20.103179220848517", ",", "0", ",", 
       RowBox[{"-", "1.3235670142896994429`19.121745935210033"}], ",", 
       "2.47628445802192336`17.393800531888214"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "1"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.7402285002834882459780000000000000000000000000000000000001`20.\
86936580229053"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1.3376691797857762760500000000000000000000000000000000000001`20.\
126348720936992", ",", "0", ",", 
       RowBox[{
       "-", "1.3428115675514797119299999999999999999999999999999999999999`20.\
12801507378997"}], ",", "2.62183021267314051`17.41860456375121"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.6799877379746566998829999999999999999999999999999999999999`20.\
832501081268063"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.47753333650378575189`20.169537288332524", ",", "0", ",", 
       RowBox[{"-", "1.38270923269032186454`20.14073086274516"}], ",", 
       "2.93388149904868117`17.46744256848866"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["6", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.620263868459910194138`20.792576483429176"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1.6184911331676163744299999999999999999999999999999999999999`20.\
20911032448192", ",", "0", ",", 
       RowBox[{
       "-", "1.4241288095353553388200000000000000000000000000000000000001`20.\
153549272124202"}], ",", "3.27306405697326708`17.5149545049468"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.561997776627018636795`20.74973459741866"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "1.7604366004368064391899999999999999999999999999999999999999`20.\
24562038920385", ",", "0", ",", 
       RowBox[{"-", "1.46667137587268422015`20.166332816206687"}], ",", 
       "3.63828394766999838`17.560896590300313"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.505972952896035743026`20.704127301974278"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1.90325241272368193255`20.279496389014103", ",", "0", ",", 
       RowBox[{"-", "1.50997810665117097933`20.178970650452428"}], ",", 
       "4.02835258952756369`17.6051274760287"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.4528057894074826965170000000000000000000000000000000000001`20.\
655911970944462"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "2.0468177595455802777399999999999999999999999999999999999999`20.\
31107917654279", ",", "0", ",", 
       RowBox[{
       "-", "1.5537355310480885197699999999999999999999999999999999999999`20.\
19137709735993"}], ",", "4.442031219187881`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["8", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.402946853101821375254`20.605247768407338"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.19101483316663493451`20.34064531774355", ",", "0", ",", 
       RowBox[{"-", "1.59767749881756666787`20.20348911877082"}], ",", 
       "4.878073405560714`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.35669114259411917411`19.55229232500906"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "2.3357336391633980996799999999999999999999999999999999999999`20.\
36842331547926", ",", "0", ",", 
       RowBox[{
       "-", "1.6415843301495771870900000000000000000000000000000000000001`20.\
21526319786517"}], ",", "5.33526176907208551`17.727155732490495"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.314194792338208941294`20.497198982494144"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.48087510903907437843`20.39460490178918", ",", "0", ",", 
       RowBox[{"-", "1.68527981931207636275`20.226672020277892"}], ",", 
       "5.81243664501694537`17.764358232157026"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.275495615029562472395`20.440114690724574"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.62635269551260532402`20.419353047507283", ",", "0", ",", 
       RowBox[{"-", "1.72862681740853950497`20.237701246233314"}], ",", 
       "6.30851594841825168`17.799927205327073"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "2"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.2405351383762067277009999999999999999999999999999999999999`20.\
381178528893567"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.7720927498240265888`19.442807756986994", ",", "0", ",", 
       RowBox[{"-", "1.77152207499777826245`20.24834656846146"}], ",", 
       "6.82250674906179888`17.833943973961407"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["21", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.209180327830243562685`20.32052083929422"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2.9180340172255008616`19.465090350411174", ",", "0", ",", 
       RowBox[{
       "-", "1.8138908929205362579699999999999999999999999999999999999999`20.\
258611160327366"}], ",", "7.35350980427598191`17.86649467579208"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "5"]}], ",", 
       RowBox[{"yy", "\[Rule]", "0.18124364873204649841`19.2582627966557"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.06412656957590633493`20.486306700690687", ",", "0", ",", 
       RowBox[{"-", "1.85568198320814696478`20.268503551208436"}], ",", 
       "7.90071866827322453`17.897666597552423"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["23", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.1565007389287791935610000000000000000000000000000000000001`20.\
194516392437954"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.21033043662720092111`20.506549736273417", ",", "0", ",", 
       RowBox[{
       "-", "1.8968627914977476731099999999999999999999999999999999999999`20.\
278035917577903"}], ",", "8.46341498893567487`17.92754563627692"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["12", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.134705295382788373263`20.12938466855388"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.3566141394234888424`19.525901419666024", ",", "0", ",", 
       RowBox[{"-", "1.93741541857034667579`20.287222751668686"}], ",", 
       "9.04096147303791173`17.95621461855401"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["5", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.115601146883158960346`20.062962142757147"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.5029532582172869555`19.544434342332327", ",", "0", ",", 
       RowBox[{"-", "1.97733317248546126444`20.296079852308626"}], ",", 
       "9.63279363578194752`17.98375225645546"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0989316726853383085809`20.99533535196502"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.6493291206762478166`19.562213032684458", ",", "0", ",", 
       RowBox[{"-", "2.01661773960019122272`20.304623583232267"}], ",", 
       "10.23841124094847816`18.010232569645538"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["27", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0844468457294509491614`20.926583432380948"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.7957276504738448654`19.57929504354987", ",", "0", ",", 
       RowBox[{"-", "2.0552769122566582804`19.31287034366373"}], ",", 
       "10.85736998777724188`18.035724637580294"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["14", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0719082529857888512412`20.856778737677693"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3.9421383899307100738`19.595731866246904", ",", "0", ",", 
       RowBox[{"-", "2.09332279860154728898`20.32083620341847"}], ",", 
       "11.48927379913860996`18.06029257916749"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["29", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0610924345703091748753`20.78598743237351"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.0885536921681477507`19.611569705416787", ",", "0", ",", 
       RowBox[{
       "-", "2.1307704406019812686699999999999999999999999999999999999999`20.\
328536663346284"}], ",", "12.1337679167835781`17.083995683914097"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "3"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0517928814974309334203000000000000000000000000000000000001`20.\
71427007366748"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.2349680670428294618`19.62685013996558", ",", "0", ",", 
       RowBox[{
       "-", "2.1676367620974209835399999999999999999999999999999999999999`20.\
335986507832455"}], ",", "12.79053285129521982`18.10688863748544"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["31", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0438209838778947509557`20.64168212420469"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.3813776604948332599`19.641610689562548", ",", "0", ",", 
       RowBox[{
       "-", "2.2039397807684595037599999999999999999999999999999999999999`20.\
34319972391966"}], ",", "13.45927917290160695`18.1290218013728"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["16", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0370061982827673052665000000000000000000000000000000000001`20.\
5682744714874"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.5277798461937929471`19.655885302034545", ",", "0", ",", 
       RowBox[{"-", "2.23969802910978865342`20.350189467828905"}], ",", 
       "14.13974309507497556`18.15044151883819"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["33", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0311956363947966240214999999999999999999999999999999999999`20.\
494093849717284"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.6741729093695327689`19.66970477399461", ",", "0", ",", 
       RowBox[{
       "-", "2.2749301351923601716700000000000000000000000000000000000001`20.\
35696806368925"}], ",", "14.83168275688341946`18.171190427533404"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0262532599911390954576`20.419183239485065"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.8205558049124272278`19.68309711481361", ",", "0", ",", 
       RowBox[{"-", "2.30965452624760499753`20.363547023803445"}], ",", 
       "15.5348751182611357`17.19130776639897"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0220588212845957185020000000000000000000000000000000000001`19.\
34358230215347"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4.9669279728554456525`19.696087862186037", ",", "0", ",", 
       RowBox[{"-", "2.34388922348686181285`20.36993708227557"}], ",", 
       "16.24911336705209262`18.210829668680926"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["18", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0185066404655040058578`20.26732758786609"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.1132892009278695894`19.708700356547233", ",", "0", ",", 
       RowBox[{"-", "2.37765170764243944585`20.37614823694068"}], ",", 
       "16.9742047781089772`17.229789437234196"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["37", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0155043257769224419706`20.190452885199033"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.2596395205793179234`19.720955979973514", ",", "0", ",", 
       RowBox[{"-", "2.41095883315066667154`20.382189794911618"}], ",", 
       "17.70996891874444973`18.248217798997555"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0129714801163141961282`20.112989534270092"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.4059791314736748479`19.732874364873005", ",", "0", ",", 
       RowBox[{"-", "2.44382678021469040662`20.388070419629866"}], ",", 
       "18.45623616399715633`18.2661431387337"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["39", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0108384356712201390936000000000000000000000000000000000001`20.\
0349666043073"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.5523083442718037609`19.74447357641246", ",", "0", ",", 
       RowBox[{"-", "2.47627103295971462239`20.39379817737429"}], ",", 
       "19.21284644850150761`18.283591711831985"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "4"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00904505166140285732389`20.956411051704197"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.6986275412375060964`19.75577027268337", ",", "0", ",", 
       RowBox[{"-", "2.5083063762329260917`19.399380582151057"}], ",", 
       "19.97964822730492204`18.30058783752934"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["41", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00753959397317830576567`20.877347958607686"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.844937146029073029`18.766779845304615", ",", "0", ",", 
       RowBox[{"-", "2.53994690628295083437`20.404824638450908"}], ",", 
       "20.75649759780884956`18.317154073537257"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["21", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.006277703390198815926`18.7978007922428"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"5.9912376016966718389`19.777516543269147", ",", "0", ",", 
       RowBox[{
       "-", "2.5712060463459430460300000000000000000000000000000000000001`20.\
41013688069011"}], ",", "21.54325752511751252`18.333311372973963"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["43", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0052214539235661458933900000000000000000000000000000000001`20.\
717791449949036"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.137529359119052527`18.787993582601153", ",", "0", ",", 
       RowBox[{"-", "2.60209657770738398659`20.41532341151343"}], ",", 
       "22.33979727793403263`18.349079227800452"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["22", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00433850562916901459355`20.637340165281074"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.2838128634249113522`19.798223242950993", ",", "0", ",", 
       RowBox[{"-", "2.63263065745010230804`20.42038993442599"}], ",", 
       "23.1459917771967902`17.36447579450037"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00360135660062840266041`20.556466126652438"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.4300885487981754344`19.808216953638006", ",", "0", ",", 
       RowBox[{
       "-", "2.6628198551499101507599999999999999999999999999999999999999`20.\
42534178658138"}], ",", "23.96172119719151813`18.379518010695357"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["23", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00298666960325476390709`20.475187181954755"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.5763568338600981929`19.817985370038677", ",", "0", ",", 
       RowBox[{"-", "2.6926751802348379011`19.430183967247448"}], ",", 
       "24.78687052711547779`18.394221698264435"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["47", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0024746868229309315808499999999999999999999999999999999999`20.\
39352024582359"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.7226181182974432097`19.827538441638982", ",", "0", ",", 
       RowBox[{"-", "2.72220710979395336828`20.43492116393086"}], ",", 
       "25.6213291850599363`17.408601656351802"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["24", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00204871262898958926397`20.311481044591186"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6.8688727836518212725`19.8368854730121", ",", "0", ",", 
       RowBox[{"-", "2.75142562508352062696`20.439557777713272"}], ",", 
       "26.4649907802669451`17.422671747030105"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["49", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0016946671827248350968499999999999999999999999999999999999`20.\
2290844194132"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.0151211905090184211`19.846035178131977", ",", "0", ",", 
       RowBox[{"-", "2.78034023286086633861`20.444097944196077"}], ",", 
       "27.31775275320559299`18.436444970008605"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "5"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0014006979229626450451899999999999999999999999999999999999`20.\
146344484653515"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.1613636771573605185`19.85499572916171", ",", "0", ",", 
       RowBox[{"-", "2.80895998776787569608`20.448545552937645"}], ",", 
       "28.1795160612721272`17.44993353051487"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["51", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00115684236682746395628`20.06327418532948"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.3076005647838939377`19.86377480068773", ",", "0", ",", 
       RowBox[{"-", "2.83729353191634867439`20.45290426801198"}], ",", 
       "29.05018512252702282`18.46314890428008"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["26", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000954742106258895528933`20.979886076343732"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.4538321537760481103`19.872379609036333", ",", "0", ",", 
       RowBox[{"-", "2.86534910817401240118`20.45717754306325"}], ",", 
       "29.92966747468775947`18.47610189175799"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["53", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00078739367622109173808`19.896191922527727"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.6000587265250886508`19.880816948137014", ",", "0", ",", 
       RowBox[{
       "-", "2.8931345874786324529100000000000000000000000000000000000001`20.\
461368637325737"}], ",", "30.8178736402188594`17.488802670132653"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["27", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0006489363663215310183069999999999999999999999999999999999`20.\
81220211265501"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.74628054796642353`17.889093221829942", ",", "0", ",", 
       RowBox[{
       "-", "2.9206574887931624077600000000000000000000000000000000000001`20.\
465480629397753"}], ",", "31.7147169443152024`17.501260839647387"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0005344774825065567498420000000000000000000000000000000001`20.\
72792941313854"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7.8924978659336818741`19.897214473134625", ",", "0", ",", 
       RowBox[{"-", "2.94792499915116701471`20.46951643004552"}], ",", 
       "32.6201133503204012`17.51348546581931"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["28", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000439927889220144790772`20.643381494939998"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.0387109140568488375`19.90518641096269", ",", "0", ",", 
       RowBox[{
       "-", "2.9749439949926134644199999999999999999999999999999999999999`20.\
47347879430167"}], ",", "33.5339813569279527`17.525485118555473"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["57", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000361882391784534747525`20.55856745203096"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.1849199107290660553`19.913014434206286", ",", "0", ",", 
       RowBox[{"-", "3.00172105679323626601`20.47737033176998"}], ",", 
       "34.4562418247254878`17.537267906780293"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["29", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000297507806571249070161`20.473498366052247"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.3311250599329249381`19.920703653787065", ",", "0", ",", 
       RowBox[{"-", "3.02826248601261237907`20.481193516563238"}], ",", 
       "35.3868178522821578`17.548841510607847"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["59", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0002444455399959940517569999999999999999999999999999999999`20.\
388182117800305"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.4773265540107677805`19.928258912881663", ",", "0", ",", 
       RowBox[{
       "-", "3.0545743225505052963100000000000000000000000000000000000001`20.\
48495069665771"}], ",", "36.3256347042078695`17.560213211301154"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "6"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0002007363686407433976499999999999999999999999999999999999`19.\
302626063414696"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.6235245738448025581`19.93568480528153", ",", "0", ",", 
       RowBox[{"-", "3.08066235919426109238`20.488644102220174"}], ",", 
       "37.27261970049021`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["61", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0001647547821573670326660000000000000000000000000000000001`20.\
21683802924125"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.7697192874880423518`19.94298569212932", ",", "0", ",", 
       RowBox[{"-", "3.10653215105604035204`20.49227585270335"}], ",", 
       "38.2277020663330744`17.58237819260689"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["31", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00013515320057503456167`19.130826334723004"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8.9159108544489645497`19.950165717545474", ",", "0", ",", 
       RowBox[{"-", "3.13218903346827553717`20.49584796466139"}], ",", 
       "39.1908129138006018`17.593184271906694"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["63", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000110814706858798172563`20.044597401942667"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.0620994239640116551`19.957228822690006", ",", "0", ",", 
       RowBox[{"-", "3.15763813143092355445`20.499362357930803"}], ",", 
       "40.1618851238361233`17.6038140895868"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["32", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000908150482132544129821`20.958157817843652"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.2082851361825592482`19.96417875883562", ",", "0", ",", 
       RowBox[{
       "-", "3.1828843691744190370499999999999999999999999999999999999999`20.\
502820861448"}], ",", "41.1408532526482603`17.614273294628376"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000743902251843899894425`20.871515873349995"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.3544681243657589717`19.971019099455514", ",", "0", ",", 
       RowBox[{"-", "3.20793248630967323838`20.506225219608485"}], ",", 
       "42.12765353592672`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["33", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000609080317484719071143000000000000000000000000000000001`20.\
784674565441513"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.500648511570420457`18.97775325111872", ",", "0", ",", 
       RowBox[{
       "-", "3.2327870392302993728300000000000000000000000000000000000001`20.\
509577096280783"}], ",", "43.1222236993779679`17.634701148177484"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["67", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000498471808434101367411`20.69764060138846"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.6468264156054801625`19.984384463926677", ",", "0", ",", 
       RowBox[{
       "-", "3.2574524165146181956199999999999999999999999999999999999999`20.\
51287808044109"}], ",", "44.12450299196924`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["34", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000407774899109065805762`20.610420488941063"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.7930019468349909519`19.990915840843225", ",", "0", ",", 
       RowBox[{"-", "3.2819328446103935442`19.516129690210825"}], ",", 
       "45.1344320794662757`17.654507982160652"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["69", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000333441091516057555605`20.52301911894435"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9.9391752095329405599`19.9973503464888", ",", "0", ",", 
       RowBox[{"-", "3.3062323974361854375`19.519333377177617"}], ",", 
       "46.1519530093726799`17.66419008376382"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "7"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000272544238158547150851`20.435437005067072"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.0853463027229940361`20.003690815268616", ",", "0", ",", 
       RowBox[{"-", "3.3303550021166942851`19.52249052997563"}], ",", 
       "47.1770091397904352`17.673730404645006"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["71", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000022268313621594453074`19.347687329177415"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.2315153181442380313`20.00993995879262", ",", "0", ",", 
       RowBox[{"-", "3.354304449373517866`18.525602478270763"}], ",", 
       "48.20954512153835`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["36", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000181874649908223932713`20.25977217035432"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.3776823439029333099`20.01610037300745", ",", "0", ",", 
       RowBox[{"-", "3.378084394710524654`18.528670495353186"}], ",", 
       "49.2495067812912715`17.692401885529346"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["73", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000148489832945368087081999999999999999999999999999999999`20.\
171696718657373"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.5238474627463121642`20.02217454460488", ",", "0", ",", 
       RowBox[{"-", "3.4016983699854519004`19.53169580191075"}], ",", 
       "50.2968411528838886`17.701540710444586"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["37", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000121187563697028023247`20.08345805469105"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.6700107549814770593`20.028164857177682", ",", "0", ",", 
       RowBox[{"-", "3.4251497867130118415`19.53467956856436"}], ",", 
       "51.35149641321047`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["15", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "9.8871644405085804283`19.99507175727858*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.8161722924763193469`20.034073596596436", ",", "0", ",", 
       RowBox[{"-", "3.4484419416116075949`19.537622918551737"}], ",", 
       "52.4134217873332964`17.719442513353567"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["38", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "8.06364165901395357843`20.906531219873926*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10.9623321483481780982`20.03990295664965", ",", "0", ",", 
       RowBox[{"-", "3.4715780234114725951`19.540526930432637"}], ",", 
       "53.4825676138383982`17.728212248884528"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["77", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "6.57428778921789165612`20.817848711387477*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.1084903870583410367`20.045655043538837", ",", "0", ",", 
       RowBox[{"-", "3.4945611151117870911`19.543392640094925"}], ",", 
       "54.5588851828857462`17.736865487677246"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["39", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "5.35819348183049946642`20.729018391723518*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.2546470746213272062`20.051331880860513", ",", "0", ",", 
       RowBox[{"-", "3.5173942021173591209`19.54622104338393"}], ",", 
       "55.642326837809655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["79", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.36571938847147715716`20.640055817503463*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.4008022681490283834`20.056935413474264", ",", "0", ",", 
       RowBox[{"-", "3.5400801714819265239`19.549013097516735"}], ",", 
       "56.7328457747605215`17.753834568744985"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "8"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.55595065603078450483`20.5509557258746*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.5469560279721111585`20.062467511978156", ",", "0", ",", 
       RowBox[{"-", "3.5626218240297404009`19.551769723991804"}], ",", 
       "57.830396233930216`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["81", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.8954042537656560409200000000000000000000000000000001`20.\
461709208105948*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.6931084065246800132`20.067929976033803", ",", "0", ",", 
       RowBox[{"-", "3.5850218687404496464`19.55449180922121"}], ",", 
       "58.9349332199583`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["41", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.35705045253135343771`20.372368878672585*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.8392594557542364995`20.073324538169185", ",", "0", ",", 
       RowBox[{"-", "3.6072829341459143319`19.55718020716985"}], ",", 
       "60.0464126678655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["83", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.9180969163720061871`19.282870547142362*^-6"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11.9854092251994929978`20.07865286700646", ",", "0", ",", 
       RowBox[{"-", "3.6294075681312863299`19.55983574049364"}], ",", 
       "61.1647913234653404`17.78650149838578"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["42", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.5605043425548019307799999999999999999999999999999999`20.\
193264981553078*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.1315577616932513781`20.083916570353026", ",", "0", ",", 
       RowBox[{"-", "3.6513982418416686406`19.562459202109487"}], ",", 
       "62.2900267400515176`17.794418517309435"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.2692609291495952960899999999999999999999999999999999`20.\
10355091164641*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.2777051095280557924`20.089117198123713", ",", "0", ",", 
       RowBox[{"-", "3.6732573532077098118`19.56505135664985"}], ",", 
       "63.42207724550007`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["43", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.0320502982097278924999999999999999999999999999999999`19.\
0137008636697*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.4238513111056180406`20.094256245106788", ",", "0", ",", 
       RowBox[{"-", "3.6949872302575722422`19.56761294182739"}], ",", 
       "64.5609019325373`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["87", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "8.38957989989072420021`20.923740214496505*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.569996407381346755`19.099335153560688", ",", "0", ",", 
       RowBox[{"-", "3.7165901330996082664`19.57014466958432"}], ",", 
       "65.70646062742608`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["44", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "6.81818465890297218114`20.8336687591775*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.7161404370499066394`20.10435531561731", ",", "0", ",", 
       RowBox[{"-", "3.7380682568156005394`19.57264722729635"}], ",", 
       "66.8587138567502994`17.825158017929766"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["89", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "5.53972213205786526132`20.74348798141788*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"12.8622834367093935747`20.10931807558127", ",", "0", ",", 
       RowBox[{"-", "3.7594237340733032368`19.57512127889244"}], ",", 
       "68.01762283852122`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "9"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.4998493102572332803`19.653197970482115*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.0084254416585669517`20.114224732120174", ",", "0", ",", 
       RowBox[{"-", "3.7806586385828482967`19.577567466023602"}], ",", 
       "69.1831494763768209`17.840000328841644"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["91", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.65430173682113891105`20.56280440432636*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.1545664854599296787`20.119076540291367", ",", "0", ",", 
       RowBox[{"-", "3.8017749851219266971`19.57998640879145"}], ",", 
       "70.3552562945471826`17.847296549452935"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["46", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.966963825614501002209999999999999999999999999999999`20.\
472312251260632*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.3007066008269488089`20.123874713500065", ",", "0", ",", 
       RowBox[{"-", "3.82277473544470285`17.582378707112483"}], ",", 
       "71.5339065114359339`17.854511942785706"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["93", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.40831104004951594339`20.381712576544928*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.4468458177139232662`20.128620425259687", ",", "0", ",", 
       RowBox[{"-", "3.8436597950407567753`19.584744940995723"}], ",", 
       "72.7190638770958667`17.86164827951495"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["47", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.954386367359500203599999999999999999999999999999999`19.\
291010424595147*^-7"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.5929841658214262591`20.133314810998723", ",", "0", ",", 
       RowBox[{"-", "3.864432020480988088`18.5870856719937"}], ",", 
       "73.91069280007976`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.58568487395086000976`20.200216883421493*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.7391216736314032341`20.13795896966037", ",", "0", ",", 
       RowBox[{"-", "3.8850932176259232624`19.589401443578346"}], ",", 
       "75.1087582406710832`17.875690581928524"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["48", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.28625797734521025067`20.10932808126418*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"13.8852583680197790375`20.142553965235816", ",", "0", ",", 
       RowBox[{"-", "3.9056451457533519927`19.59169278215665"}], ",", 
       "76.3132257440176137`17.88259981147894"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["97", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.04314110647598661118`20.018343059738978*^-7"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.0313942747031037759`20.14710082824317", ",", "0", ",", 
       RowBox[{"-", "3.926089517708978286`18.593960197608318"}], ",", 
       "77.52406139131`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["49", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "8.45786435648186770107`20.927260715842355*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.1775294184033345378`20.15160055712094", ",", "0", ",", 
       RowBox[{"-", "3.9464280024345832734`19.596204184062557"}], ",", 
       "78.7412318042593675`17.896202204480222"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["99", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "6.85697664480901243258000000000000000000000000000001`20.\
83613267024008*^-8"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.3236638246516371965`20.156054119599567", ",", "0", ",", 
       RowBox[{"-", "3.9666622265741062436`19.598425220544605"}], ",", 
       "79.9647041494475982`17.902898334796422"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "10"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "5.55765104182883446691000000000000000000000000000001`20.\
7448912744734*^-8"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.4697975134194413551`20.16046245375761", ",", "0", ",", 
       RowBox[{"-", "3.9867937746576710598`19.60062377144254"}], ",", 
       "81.1944460441123687`17.909526323146487"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["101", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.50365695831887261941`20.653565303072657*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.6159305077127366715`20.164826469471148", ",", "0", ",", 
       RowBox[{"-", "4.0068241918280967744`19.60280028723081"}], ",", 
       "82.4304256369418475`17.91608754236825"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["51", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.64883928243565601841999999999999999999999999999999`20.\
56215473475722*^-8"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.7620628287111123622`20.16914704939281", ",", "0", ",", 
       RowBox[{"-", "4.0267549864828462552`19.60495520515854"}], ",", 
       "83.6726115807565322`17.922583324350967"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["103", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.95571665406009783968999999999999999999999999999999`20.\
47066279864151*^-8"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"14.9081944964445691511`20.17342505004515", ",", "0", ",", 
       RowBox[{"-", "4.0465876276086401119`19.607088949343638"}], ",", 
       "84.92097295308018`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["52", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.39381473492549508673`20.379090535914596*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15.0543255303090457811`20.177661302855977", ",", "0", ",", 
       RowBox[{"-", "4.0663235503158769397`19.60920193173595"}], ",", 
       "86.1754793221785155`17.935383707703988"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["21", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.93836461005052279252`20.28743547201261*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15.2004559488672415748`20.181856615122882", ",", "0", ",", 
       RowBox[{"-", "4.0859641544636538093`19.611294552314316"}], ",", 
       "87.43610069197774`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["53", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.56930280318422743503`20.19570675051104*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "15.3465857701631583625`20.186011770946322", ",", "1.097471`*^-10", ",",
        
       RowBox[{"-", "4.1055108065573519698`19.613367199620612"}], ",", 
       "88.70280750405874`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["107", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.2703132802921968784`19.10391083837642*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "15.4927150114414797241`20.190127532101666", ",", "2.606144`*^-10", ",",
        
       RowBox[{"-", "4.1249648409475882742`19.615420251201694"}], ",", 
       "89.9755706279013757`17.95412460964296"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["54", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.02809393811130602492`20.012032798452545*^-8"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15.6388436891353312356`20.19420463887776", ",", "0", ",", 
       RowBox[{"-", "4.1443275604441125494`19.617454073974464"}], ",", 
       "91.2543613410885614`17.960253629962537"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["109", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "8.3192114916725752114300000000000000000000000000001`20.\
920082165107576*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15.7849718192524661797`20.19824381088747", ",", "0", ",", 
       RowBox[{"-", "4.163600238102317307`18.619469024700017"}], ",", 
       "92.53915133806767`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "11"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "6.73069247199647777033`20.828059747923252*^-9"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"15.9310994171475716338`20.202245747824033", ",", "0", ",", 
       RowBox[{"-", "4.1827841174779910964`19.621465450282884"}], ",", 
       "93.82991270347526`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["111", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "5.4446144696013134798699999999999999999999999999999`20.\
73596713300776*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16.0772264976420354738`20.206211130192283", ",", "0", ",", 
       RowBox[{"-", "4.2018804139969655172`19.62344368817459"}], ",", 
       "95.1266179125319633`17.978302056317492"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["56", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.4035716695743039836099999999999999999999999999999`20.\
643805069021994*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16.2233530749068840026`20.210140620000395", ",", "0", ",", 
       RowBox[{"-", "4.2208903149487187687`19.625404066622202"}], ",", 
       "96.4292398069093023`17.98420874304511"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["113", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.5610250039531870841799999999999999999999999999999`20.\
551575023110026*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "16.3694791627674667597`20.214034861431827", ",", "2.53921`*^-10", ",", 
       
       RowBox[{"-", "4.2398149821452657961`19.62734690518081"}], ",", 
       "97.7377516168093421`17.990062344190374"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["57", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.87924362878143893393`20.459278414499078*^-9"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "16.515604774469825409`19.21789448147315", ",", "6.872387`*^-10", ",", 
       RowBox[{"-", "4.2586555511627117916`19.629272514861533"}], ",", 
       "99.0521269252999311`17.99586380548793"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["23", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.3276405556811547229400000000000000000000000000001`20.3669159155239*^\
-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"16.6617299227459917998`20.221720090522112", ",", "0", ",", 
       RowBox[{"-", "4.2774131318025383572`19.631181198397382"}], ",", 
       "100.3723396507492136`18.001614047548895"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["58", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.88143458006431179294`20.274489121932515*^-9"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "16.8078546198496637746`20.22551228296821", ",", "1.31066`*^-10", ",", 
       RowBox[{"-", "4.2960888108699767431`19.633073250734352"}], ",", 
       "101.69836408380598`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["117", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.5205427650062420250299999999999999999999999999999`20.\
181998639110237*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "16.9539788778886604635`20.22927163775593", ",", "4.498231`*^-10", ",", 
       
       RowBox[{"-", "4.3146836520520104231`19.63494895921586"}], ",", 
       "103.0301748576419559`18.012964436889206"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["59", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.2286997826456566804999999999999999999999999999999`19.\
089445781448084*^-9"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.1001027081297176527`20.232998718897417", ",", "1.5529726`*^-9", ",",
        
       RowBox[{"-", "4.3331986947443189803`19.63680860365533"}], ",", 
       "104.3677469064981649`18.018566308008428"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["119", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "9.92728681517488435357`20.996830569522142*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.2462261216593958252`20.236694075997782", ",", "2.51099`*^-10", ",", 
       
       RowBox[{"-", "4.3516349559348732799`19.63865245671023"}], ",", 
       "105.7110554734676452`18.024120409067567"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "12"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "8.01965512257300848049`20.90415569227619*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.3923491294187408503`20.24035824474235", ",", "1.071262`*^-9", ",", 
       RowBox[{"-", "4.3699934343616430578`19.640480784470963"}], ",", 
       "107.0600762017933921`18.02962754816386"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["121", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "6.47770760352693360925`20.811421340549625*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.5384717414295532614`20.243991747343564", ",", "4.533291`*^-9", ",", 
       
       RowBox[{"-", "4.3882751056166360513`19.642293846137427"}], ",", 
       "108.4147849808930515`18.03508851280906"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["61", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "5.23153628593002940958`20.718629241931872*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.6845939681271315427`20.247595093021218", ",", "1.61701`*^-9", ",", 
       RowBox[{"-", "4.4064809225321183232`19.644091894222814"}], ",", 
       "109.775157945329433`17.040504070643067"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["123", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.224537072262474830099999999999999999999999999999`19.\
625779125598857*^-10"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.8307158186098014961`20.251168778387473", ",", "8.1211077`*^-9", ",",
        
       RowBox[{"-", "4.4246118258822835029`19.645875175763337"}], ",", 
       "111.1411717122187014`18.045874971048143"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["62", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.41097816557872637238`20.532878939401822*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "17.976837302951339047`19.254713287914793", ",", "4.9894587`*^-9", ",", 
       
       RowBox[{"-", "4.4426687269806208785`19.64764393074974"}], ",", 
       "112.5128029334541994`18.051201944020594"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["25", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.75368588642754457062`20.439914398676343*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "18.1229584294931231252`20.258229094264035", ",", "4.245651`*^-9", ",", 
       
       RowBox[{"-", "4.460652527200101024`18.649398394190506"}], ",", 
       "113.890028748973224`17.056485702578993"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["63", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.22276719957859547576`20.34689397946339*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "18.2690792072783188069`20.261716658722243", ",", "4.908051`*^-9", ",", 
       
       RowBox[{"-", "4.4785641071624900709`19.65113879518276"}], ",", 
       "115.2728265231800133`18.061726942317268"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["127", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.79397049834503260468`20.253815296840006*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "18.4151996446541657646`20.26517643153205", ",", "7.493838`*^-9", ",", 
       RowBox[{"-", "4.4964043295438930281`19.652865357319545"}], ",", 
       "116.661173879395729`17.066926342116105"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["64", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.447703771975045545359999999999999999999999999999`20.\
160679705950994*^-10"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "18.5613197498308529036`20.268608852254182", ",", "1.4520134`*^-8", ",",
        
       RowBox[{"-", "4.5141740412325732336`19.65457829902394"}], ",", 
       "118.0550487359681566`18.07208456482674"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["129", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.16811827604795154567`20.06748681883319*^-10"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "18.7074395304596215613`20.272014350092846", ",", "3.4444645`*^-8", ",",
        
       RowBox[{"-", "4.5318740738219709222`19.65627783371474"}], ",", 
       "119.4544293103202362`18.077202257806004"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.443459821108343*^9, 3.4435504750977383`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimtwosweep", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371791161361771577"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.00029454834161098045743", ",", 
        RowBox[{"-", "4.0637179294789956915"}], ",", "4.06371794246387482"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "5000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371610547587405215"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0005890957331777792548", ",", 
        RowBox[{"-", "4.0637161769373781813"}], ",", "4.06371622887685376"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371477912395701747"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0008836432887214580919", ",", 
        RowBox[{"-", "4.0637149399123453151"}], ",", "4.06371505677611097"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371414231176647187"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0011781901335398945155", ",", 
        RowBox[{"-", "4.0637144281576300638"}], ",", "4.06371463591519831"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371293873327733417"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0014727371686979156572", ",", 
        RowBox[{"-", "4.0637133853677826191"}], ",", "4.06371370998888469"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "5000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371289437853410678"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0017672842661492103787", ",", 
        RowBox[{"-", "4.0637135375321916263"}], ",", "4.06371400498655206"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371277826659286119"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0020618318623562112089", ",", 
        RowBox[{"-", "4.0637136536702930893"}], ",", "4.0637142899277354"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "1250"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371272299352859178"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0023563789738664994839", ",", 
        RowBox[{"-", "4.0637138663779347827"}], ",", "4.06371469740807028"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "10000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371259770163053382"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0026509263738963338364", ",", 
        RowBox[{"-", "4.0637140447975576994"}], ",", "4.06371509657012326"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.0637124204607407019"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.002945473811755635813", ",", 
        RowBox[{"-", "4.063714206998943259"}], ",", "4.06371550548362159"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06371008463696222097"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.005890950602600205146", ",", 
        RowBox[{"-", "4.0637172307888294139"}], ",", "4.06372242473166045"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06370498044428019333"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.008836433465603483079", ",", 
        RowBox[{"-", "4.0637210592826252924"}], ",", "4.06373274566053686"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "250"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.0636982275707010067"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.011781925259836462082", ",", 
        RowBox[{"-", "4.0637268121682080256"}], ",", "4.06374758797411367"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "200"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06368954637173854684"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.014727429366570265124", ",", 
        RowBox[{"-", "4.0637342097957383824"}], ",", "4.06376667203850279"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "500"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06367891340818991726"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.017672949088112199159", ",", 
        RowBox[{"-", "4.0637432287206112121"}], ",", "4.06378997442968282"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06366637881805605663"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.020618487123203849947", ",", 
        RowBox[{"-", "4.0637539190746035533"}], ",", "4.06381754530823877"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "125"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.0636519053755810756"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.023564046751232205298", ",", 
        RowBox[{"-", "4.0637662436239009697"}], ",", "4.06384934747098327"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "1000"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06363550118744317747"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.026509631159405860934", ",", 
        RowBox[{"-", "4.063780210466580209"}], ",", "4.06388538905165852"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06361716974371018416"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.029455243191902686316", ",", 
        RowBox[{"-", "4.0637958230817192792"}], ",", "4.06392567357183878"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "50"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06332775553708644135"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.0589135671447686892", ",", 
        RowBox[{"-", "4.0640423629745752569"}], ",", "4.06456178925639976"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06284539824071780241"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.08837805515420927446", ",", 
        RowBox[{"-", "4.0644532427438997259"}], ",", "4.06562204304293188"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "25"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06217018321341240887"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.11785179153945347585", ",", 
        RowBox[{"-", "4.0650285178908532943"}], ",", "4.06710661206500656"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06130214818139720576"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.14733786104864236976", ",", 
        RowBox[{"-", "4.065768184641939731"}], ",", "4.06901566278485476"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "50"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.06024135638698136848"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.17683935036585520533", ",", 
        RowBox[{"-", "4.0666722525526485661"}], ",", "4.07134942363884159"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.05898793111037096999"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.20635934829550600155", ",", 
        RowBox[{"-", "4.0677407795499595351"}], ",", "4.07410822034025779"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"2", "/", "25"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.05754195637198630718"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.23590094870900247731", ",", 
        RowBox[{"-", "4.0689737720119599407"}], ",", "4.07729237546828158"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "100"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.05590357871011301668"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.26546724629561103419", ",", 
        RowBox[{"-", "4.0703712870401096666"}], ",", "4.08090231141127801"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.05407294498995457448"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.29506134142371051644", ",", 
        RowBox[{"-", "4.0719333700112487181"}], ",", "4.08493848763818518"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.04204218790418546005"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.44355761574714731604", ",", 
        RowBox[{"-", "4.082214154302694182"}], ",", "4.11153273985639664"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.0252367485351082014"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.5932169586230489302", ",", 
        RowBox[{"-", "4.0966186207759052042"}], ",", "4.14888278197254733"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "4"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "4.00369446197627242145"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.7444342811527135925", ",", 
        RowBox[{"-", "4.1151580463785334493"}], ",", "4.19710703346071978"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.97746418578231425712"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.8976106302848189133", ",", 
        RowBox[{"-", "4.1378466992141044268"}], ",", "4.25635810275953917"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.94660600833753650362"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.0531546654189168924", ",", 
        RowBox[{"-", "4.1647017284839542616"}], ",", "4.32682309912011532"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"2", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.91119145477050887285"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.2114840823830119836", ",", 
        RowBox[{"-", "4.1957429695723009042"}], ",", "4.40872392140831923"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.87130370581367302652"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.373026978487790965", ",", 
        RowBox[{"-", "4.2309927010886502536"}], ",", "4.50231754984611137"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"1", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.82703786265919170337"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5382231363864297253", ",", 
        RowBox[{"-", "4.2704753818734729854"}], ",", "4.60789635003805961"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.77850119684358334952"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.7075252156446776497", ",", 
        RowBox[{"-", "4.3142173147316051281"}], ",", "4.72578830612386947"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.72581340865244321904"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.881399825736681834", ",", 
        RowBox[{"-", "4.3622462678639204198"}], ",", "4.8563571909612562"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.6691068743329856462"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.0603284462666285284", ",", 
        RowBox[{"-", "4.4145910279198896006"}], ",", "5.00000259971149267"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.60852686669740394858"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.2448081887233802802", ",", 
        RowBox[{"-", "4.4712809116139582936"}], ",", "5.15715986566833409"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "4"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.54423172908719857447"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.4353523414167339761", ",", 
        RowBox[{"-", "4.5323451881805013865"}], ",", "5.32829972280787647"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"4", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.47639299462957181718"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.6324906689510757275", ",", 
        RowBox[{"-", "4.5978124451505576378"}], ",", "5.5139277298387866"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.40519543468500130104"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2.8367694651187030982", ",", 
        RowBox[{"-", "4.667709903987634281"}], ",", "5.71458341849045767"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.33083698766046464999"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3.0487512508748134895", ",", 
        RowBox[{"-", "4.7420626303701019283"}], ",", "5.93083900600637265"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "20"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.25352859207357233391"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3.2690141554172366649", ",", 
        RowBox[{"-", "4.820892721455629457"}], ",", "6.16329775627048659"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "1"}], ",", 
        RowBox[{"yy", "\[Rule]", "3.17349385910716553754"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3.4981508937837159018", ",", 
        RowBox[{"-", "4.9042184082830669477"}], ",", "6.41259182195723188"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "3.00620012148922383182"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3.9854805989321282357", ",", 
        RowBox[{"-", "5.0844045689116611979"}], ",", "6.96434256751224522"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"6", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.83097501854544387801"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4.5157080802250010649", ",", 
        RowBox[{"-", "5.2826535772638139383"}], ",", "7.59161166708477382"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.64998895372854271389"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5.0938957123454145969", ",", 
        RowBox[{"-", "5.4988744866785602588"}], ",", "8.30015327557723892"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.46551769580294875589"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5.725090615427100618", ",", 
        RowBox[{"-", "5.7328237935779384332"}], ",", "9.09578969466230274"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"3", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.27988268081381846391"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "6.414191903193260595", ",", 
        RowBox[{"-", "5.9840818943481128919"}], ",", "9.98421739470316673"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"8", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "2.09537985802402459272"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "7.165805158038517226", ",", 
        RowBox[{"-", "6.2520389563513869627"}], ",", "10.9707980609005044"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.91420203212869462721"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "7.984098438756305366", ",", 
        RowBox[{"-", "6.5358935962861605637"}], ",", "12.0603542681865417"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.73836160945089735961"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8.872676510327662559", ",", 
        RowBox[{"-", "6.8346662702226746254"}], ",", "13.2569923610802651"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.56962163504273827834"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "9.834489060055682346", ",", 
        RowBox[{"-", "7.1472271898104105884"}], ",", "14.563973936624724"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "2"}], ",", 
        RowBox[{"yy", "\[Rule]", "1.40944239865993948932"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "10.871784287364283778", ",", 
        RowBox[{"-", "7.4723361737753372139"}], ",", "15.98365110428154059"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"21", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.25894884058165069145"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "11.986112183149310022", ",", 
        RowBox[{"-", "7.808689914439478643"}], ",", "17.5174709815722711"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "1.11892085524958669215"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "13.178373954098123078", ",", 
        RowBox[{"-", "8.1549710780889185137"}], ",", "19.1660438945019902"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"23", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.98980528079984659378"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "14.448907322856826446", ",", 
        RowBox[{"-", "8.5098938699124907254"}], ",", "20.9292607740393758"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"12", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.871745677529805881943"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "15.797593742839725365", ",", 
        RowBox[{"-", "8.8722418842536786928"}], ",", "22.8064400826109887"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"5", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.76462439222868665084"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "17.223972984422041414", ",", 
        RowBox[{"-", "9.240895852098402773"}], ",", "24.7964840839409825"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.668111079110995822151"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "18.727352735436562639", ",", 
        RowBox[{"-", "9.6148507136394580181"}], ",", "26.8980273744037031"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"27", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.581712511990462900973"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20.306904609576575113", ",", 
        RowBox[{"-", "9.9932229282035125831"}], ",", "29.109565918078709"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"14", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.504819709994971603315"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "21.961742017909527319", ",", 
        RowBox[{"-", "10.3752498486240986917"}], ",", "31.4295605162877903"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"29", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.436749796261827184095"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "23.690978655561290747", ",", 
        RowBox[{"-", "10.7602832987950104809"}], ",", "33.8565132872427718"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "3"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.376781287979916834717"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "25.493769080109752181", ",", 
        RowBox[{"-", "11.1477794949776277426"}], ",", "36.3890192266334917"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"31", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.32418246078914092343"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "27.36933397706482517", ",", 
        RowBox[{"-", "11.5372870715076278719"}], ",", "39.02579679776429"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"16", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.278233138297502069851"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "29.31697343172445635", ",", 
        RowBox[{"-", "11.928434564647393142"}], ",", "41.7657022319293881"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"33", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.238240606156653838144"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "31.336071394249151346", ",", 
        RowBox[{"-", "12.3209183064265840897"}], ",", "44.6077318720582495"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.203550564328793556948"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "33.426094104704691092", ",", 
        RowBox[{"-", "12.714491286320110802"}], ",", "47.5510166696498947"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"7", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.173554018797566146973"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "35.586584782372222946", ",", 
        RowBox[{"-", "13.108953271699035881"}], ",", "50.5948118371376295"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"18", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.147690991762839228325"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "37.817156248163463847", ",", 
        RowBox[{"-", "13.5041422974128855562"}], ",", "53.7384840354133001"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"37", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.125451801436056395099"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "40.117482649420769546", ",", 
        RowBox[{"-", "13.8999274562165443295"}], ",", "56.9814977360530937"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"19", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.106376569888022212128"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "42.487291216688046571", ",", 
        RowBox[{"-", "14.2962029264337459748"}], ",", "60.3234017568377846"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"39", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.090053439097017464664"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "44.926354396086523854", ",", 
        RowBox[{"-", "14.6928830717212917122"}], ",", "63.7638169438392019"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "4"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0761159706883698926616"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "47.434482755073247864", ",", 
        RowBox[{"-", "15.0898984463065438605"}], ",", "67.3024248066742756"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"41", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0642400076329610368917"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "50.011518666135375293", ",", 
        RowBox[{"-", "15.4871925887846636075"}], ",", "70.9389577599570002"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"21", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0541402602724918120197"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "52.65733095034754055", ",", 
        RowBox[{"-", "15.8847194416974374181"}], ",", "74.6731906089820204"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"43", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0455667955421396311983"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "55.37181027564024619", ",", 
        RowBox[{"-", "16.2824412882749694371"}], ",", "78.5049333209570587"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"22", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0383015602660726484261"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "58.15486520767091847", ",", 
        RowBox[{"-", "16.6803271242345061744"}], ",", "82.4340251055133384"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"9", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0321550284691045128242"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "61.00641925138737254", ",", 
        RowBox[{"-", "17.0783513588162143151"}], ",", "86.460329427530869"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"23", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0269630367729484435556"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "63.92640786089428624", ",", 
        RowBox[{"-", "17.4764927463015743865"}], ",", "90.583729588366811"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"47", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0225838353897541443653"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "66.91477657673901677", ",", 
        RowBox[{"-", "17.8747335939953782732"}], ",", "94.8041256202672152"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"24", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0188953858164677728163"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "69.97147918332150117", ",", 
        RowBox[{"-", "18.2730591015771028326"}], ",", "99.121431454797131"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"49", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0157929018242090973706"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "73.09647617578702975", ",", 
        RowBox[{"-", "18.6714568104848556211"}], ",", "103.535572443268805"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "5"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.013186636239423160725"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "76.28973372240880624", ",", 
        RowBox[{"-", "19.0699162055476842487"}], ",", 
        "108.0464835798566695"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"51", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0109999019203652391581"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "79.55122264078715389", ",", 
        RowBox[{"-", "19.4684283720657373884"}], ",", 
        "112.6541080586623562"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"26", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00916731393026877113775"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "82.88091761110724834", ",", 
        RowBox[{"-", "19.8669857241949211929"}], ",", 
        "117.3583959359856074"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"53", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00763323233898531697856"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "86.27879657561482874", ",", 
        RowBox[{"-", "20.2655817723406704942"}], ",", 
        "122.1593029887530039"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"27", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00635042409964503251992"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "89.74484031252352809", ",", 
        RowBox[{"-", "20.6642109633239717657"}], ",", "127.056790141408026"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"11", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00527883211675502496662"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "93.27903176752237799", ",", 
        RowBox[{"-", "21.0628685052068680154"}], ",", 
        "132.0508223042556146"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"28", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00438456522780647447924"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "96.8813560526182445", ",", 
        RowBox[{"-", "21.4615502933888730781"}], ",", "137.141368459164027"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"57", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00363898913480437830974"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "100.55179974606381459", ",", 
        RowBox[{"-", "21.8602527334890114458"}], ",", "142.328400229634856"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"29", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00301794901807089834308"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "104.29035102940868901", ",", 
        RowBox[{"-", "22.2589727392220015202"}], ",", "147.611892344282096"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"59", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00250109831980575976683"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "108.09699926495793828", ",", 
        RowBox[{"-", "22.6577076249809760514"}], ",", "152.991821969970827"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "6"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00207132207628791235493"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "111.97173496795937125", ",", 
        RowBox[{"-", "23.0564550506791873287"}], ",", 
        "158.4681681985202666"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"61", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00171424261258336333155"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "115.91454949140313577", ",", 
        RowBox[{"-", "23.4552129637877839292"}], ",", "164.040912070615036"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"31", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00141779694226098805812"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "119.92543513473231533", ",", 
        RowBox[{"-", "23.8539795893246362898"}], ",", "169.71003636647684"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"63", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.00117187686195076429385"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "124.00438483913428131", ",", 
        RowBox[{"-", "24.2527533629818422634"}], ",", "175.475525222303774"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"32", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000968019615461428272752"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "128.15139226242612012", ",", 
        RowBox[{"-", "24.6515329219695610048"}], ",", "181.337364175323468"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"13", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000799151030346430022068"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "132.36645146406268226", ",", 
        RowBox[{"-", "25.0503170550575413658"}], ",", "187.295539676136986"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"33", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000659361823957796006346"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "136.64955728248032784", ",", 
        RowBox[{"-", "25.4491047254712143042"}], ",", "193.350039644713892"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"67", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000543721304840961869827"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "141.0007046060026156", ",", 
        RowBox[{"-", "25.847895010714921849"}], ",", "199.50085270977978"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"34", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000448119664531294379764"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "145.419889187959516", ",", 
        RowBox[{"-", "26.2466870886800105731"}], ",", "205.74796816136954"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"69", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000369132819044062594417"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "149.90710677275438566", ",", 
        RowBox[{"-", "26.6454802612264247366"}], ",", "212.091376446039281"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "7"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000303912066388793504642"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "154.46235370169044314", ",", 
        RowBox[{"-", "27.0442739037268936166"}], ",", "218.531068546993168"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"71", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000250091211528939705457"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "159.08562632880174472", ",", 
        RowBox[{"-", "27.4430674686812992856"}], ",", "225.06703603469983"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"36", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000205703308182023411606"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "163.7769214146884453", ",", 
        RowBox[{"-", "27.8418604637279563388"}], ",", "231.699270846997112"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"73", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000169112272883966544972"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "168.53623615338751901", ",", 
        RowBox[{"-", "28.2406524872281125658"}], ",", "238.427765994648096"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"37", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000138967351957903496241"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "173.36356755039188139", ",", 
        RowBox[{"-", "28.6394431629082154069"}], ",", "245.252514556448901"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"15", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000114144964474092849929"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "178.25891317401349123", ",", 
        RowBox[{"-", "29.0382321771732592008"}], ",", "252.173510305454879"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"38", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.000093715411942963882828"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "183.22227044503796637", ",", 
        RowBox[{"-", "29.4370192419430355028"}], ",", "259.190746968400728"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"77", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000769101005296297639485"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "188.25363726406117043", ",", 
        RowBox[{"-", "29.835804121169616464"}], ",", "266.304219226471351"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"39", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000630925371901777279217"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "193.35301148063514387", ",", 
        RowBox[{"-", "30.2345866033022155207"}], ",", "273.513921758394038"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"79", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000517360655309242261127"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "198.52039119437173292", ",", 
        RowBox[{"-", "30.633366511165467008"}], ",", "280.819849709096235"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "8"}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000424073757693117537976"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "203.75577453682429666", ",", 
        RowBox[{"-", "31.0321436914075854913"}], ",", "288.221998492477578"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"81", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000347474693132131666907"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "209.05915977442252163", ",", 
        RowBox[{"-", "31.4309180007259682306"}], ",", "295.720363558959899"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"41", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000284603883679333622903"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "214.43054529391722285", ",", 
        RowBox[{"-", "31.8296893291114687087"}], ",", "303.314940803571792"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"83", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000233026291725925181349"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "219.86992971450025314", ",", 
        RowBox[{"-", "32.2284575890288979963"}], ",", "311.005726531835662"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"42", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000190727505160341561619"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "225.37731147064563924", ",", 
        RowBox[{"-", "32.6272227011547660657"}], ",", "318.792717028085627"}],
        "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"17", "/", "2"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000156052201212448734589"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "230.95268925933851767", ",", 
        RowBox[{"-", "33.025984599102197076"}], ",", "326.675908773744654"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"43", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000127637964121058271458"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "236.5960618479961231", ",", 
        RowBox[{"-", "33.424743236659917649"}], ",", "334.655298667503358"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"87", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "0.0000104362794671435330196"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "242.30742807909910604", ",", 
        RowBox[{"-", "33.823498562430426665"}], ",", "342.730883336390154"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"44", "/", "5"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "8.5304488388624016685*^-6"}]}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"0", ",", "248.08678682623896995", ",", 
        RowBox[{"-", "34.222250561529607382"}], ",", "350.902660160229683"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", 
         RowBox[{"89", "/", "10"}]}], ",", 
        RowBox[{"yy", "\[Rule]", "6.97022174960425213661*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "253.93413708111171119", ",", 
        RowBox[{"-", "34.62099920805084179"}], ",", "359.170626285069577"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"xx", "\[Rule]", "9"}], ",", 
        RowBox[{"yy", "\[Rule]", "5.69377542995780354868*^-6"}]}], "}"}], ",",
       
      RowBox[{"{", 
       RowBox[{"0", ",", "259.8494777498354889", ",", 
        RowBox[{"-", "35.019744486768894725"}], ",", "367.53477899781611"}], 
       "}"}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.443459159917163*^9, 3.443459161888587*^9}, 
   3.443459290028473*^9, {3.443459324678438*^9, 3.443459325020562*^9}, {
   3.4434593632377167`*^9, 3.443459424739834*^9}, {3.443459817279385*^9, 
   3.443459817816862*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371791161361771577`20.60892355319279"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.00029454834161098045743`19.469156581880274", ",", 
       RowBox[{"-", "4.0637179294789956915`19.608923555102088"}], ",", 
       "4.06371794246387482`17.6089235564898"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "5000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371610547587405215`20.608923360168614"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0005890957331777792548`18.770185877151107", ",", 
       RowBox[{"-", "4.0637161769373781813`19.608923367805794"}], ",", 
       "4.06371622887685376`17.60892337335663"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371477912395701747`20.608923218419687"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0008836432887214580919`18.946276983333792", ",", 
       RowBox[{"-", "4.0637149399123453151`19.60892323560335"}], ",", 
       "4.06371505677611097`17.608923248092722"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371414231176647187`20.608923150362727"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0011781901335398945155000000000000000000000000000000000001`19.\
071215381524127", ",", 
       RowBox[{"-", "4.0637144281576300638`19.608923180911457"}], ",", 
       "4.06371463591519831`17.60892320311477"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0637129387332773341699999999999999999999999999999999999999`20.\
6089230217347"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0014727371686979156572`19.168125247610398", ",", 
       RowBox[{"-", "4.0637133853677826191`19.608923069467117"}], ",", 
       "4.06371370998888469`17.608923104159814"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "5000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371289437853410678`20.608923016994446"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0017672842661492103786999999999999999999999999999999999999`19.\
247306411018155", ",", 
       RowBox[{"-", "4.0637135375321916263`19.60892308572914"}], ",", 
       "4.06371400498655206`17.608923135686606"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0637127782665928611900000000000000000000000000000000000001`20.\
608923004585403"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0020618318623562112089`19.31425324667583", ",", 
       RowBox[{"-", "4.0637136536702930893`19.608923098140966"}], ",", 
       "4.063714289927735`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "1250"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371272299352859178`20.608922998678292"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0023563789738664994839`19.372245138841375", ",", 
       RowBox[{"-", "4.0637138663779347827`19.608923120873317"}], ",", 
       "4.06371469740807028`17.6089232096866"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "10000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371259770163053382`20.608922985288178"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0026509263738963338364`19.4233976659245", ",", 
       RowBox[{"-", "4.0637140447975576994`19.608923139941258"}], ",", 
       "4.06371509657012326`17.608923252345566"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.0637124204607407019`19.608922966346203"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0029454738117556358130000000000000000000000000000000000001`18.\
46915516577152", ",", 
       RowBox[{"-", "4.063714206998943259`18.60892315727594"}], ",", 
       "4.06371550548362159`17.60892329604668"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06371008463696222097`20.608922716713458"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0058909506026002051460000000000000000000000000000000000001`18.\
77018538106088", ",", 
       RowBox[{"-", "4.0637172307888294139`19.608923480432217"}], ",", 
       "4.06372242473166045`17.608924035514946"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06370498044428019333`20.60892217122078"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0088364334656034830789999999999999999999999999999999999999`18.\
94627701176055", ",", 
       RowBox[{"-", "4.0637210592826252924`19.60892388958789"}], ",", 
       "4.06373274566053686`17.608925138522554"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "250"]}], ",", 
       RowBox[{"yy", "\[Rule]", "4.0636982275707010067`19.60892144953006"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.011781925259836462082`19.071216263405617", ",", 
       RowBox[{"-", "4.0637268121682080256`19.608924504404865"}], ",", 
       "4.06374758797411367`17.608926724729997"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "200"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06368954637173854684`20.60892052175427"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.014727429366570265124`19.168126948516687", ",", 
       RowBox[{"-", "4.0637342097957383824`19.608925294995874"}], ",", 
       "4.06376667203850279`17.608928764247516"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "500"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0636789134081899172600000000000000000000000000000000000001`20.\
60891938538709"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.017672949088112199159`19.247309026350365", ",", 
       RowBox[{"-", "4.0637432287206112121`19.608926258854424"}], ",", 
       "4.06378997442968282`17.608931254565416"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06366637881805605663`20.608918045785256"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.020618487123203849947`19.314256795857844", ",", 
       RowBox[{"-", "4.0637539190746035533`19.60892740133695"}], ",", 
       "4.06381754530823877`17.60893420103654"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "125"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.0636519053755810756`19.608916498968462"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0235640467512322052979999999999999999999999999999999999999`19.\
37224987570807", ",", 
       RowBox[{"-", "4.0637662436239009697`19.608928718462874"}], ",", 
       "4.06384934747098327`17.608937599675766"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "1000"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06363550118744317747`20.608914745800885"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.026509631159405860934`19.423403685237844", ",", 
       RowBox[{"-", "4.063780210466580209`18.60893021109604"}], ",", 
       "4.06388538905165852`17.608941451341728"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06361716974371018416`20.608912786653026"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0294552431919026863159999999999999999999999999999999999999`19.\
469162612760872", ",", 
       RowBox[{"-", "4.0637958230817192792`19.60893187960645"}], ",", 
       "4.06392567357183878`17.608945756398697"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "50"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06332775553708644135`20.608881854736012"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.0589135671447686892`17.770215319534287", ",", 
       RowBox[{"-", "4.0640423629745752569`19.608958226320695"}], ",", 
       "4.06456178925639976`17.609013730061324"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06284539824071780241`20.608830296614286"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.0883780551542092744599999999999999999999999999999999999999`18.\
946344440255373", ",", 
       RowBox[{"-", "4.0644532427438997259`19.609002131816954"}], ",", 
       "4.06562204304293188`17.609127002376198"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "25"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06217018321341240887`20.608758114066887"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.11785179153945347585`19.071336188895003", ",", 
       RowBox[{"-", "4.0650285178908532943`19.609063596699876"}], ",", 
       "4.06710661206500656`17.609285556821767"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06130214818139720576`20.608665300843544"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.14733786104864236976`19.168314360771248", ",", 
       RowBox[{"-", "4.065768184641939731`18.609142613111448"}], ",", 
       "4.06901566278485476`17.60948936157802"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "50"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.06024135638698136848`20.60855185048151"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.17683935036585520533`19.24757891081967", ",", 
       RowBox[{"-", "4.0666722525526485661`19.609239172492252"}], ",", 
       "4.07134942363884159`17.60973837731084"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0589879311103709699900000000000000000000000000000000000001`20.\
60841775999925"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.20635934829550600155`19.314624147655856", ",", 
       RowBox[{"-", "4.0677407795499595351`19.609353269324938"}], ",", 
       "4.07410822034025779`17.61003256096075"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["2", "25"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0575419563719863071799999999999999999999999999999999999999`20.\
608263019275007"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.23590094870900247731`19.37272968746574", ",", 
       RowBox[{"-", "4.0689737720119599407`19.60948489046592"}], ",", 
       "4.07729237546828158`17.6103718550626"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "100"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "4.0559035787101130166799999999999999999999999999999999999999`20.\
608087621933784"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.2654672462956110341899999999999999999999999999999999999999`19.\
424010944888014", ",", 
       RowBox[{"-", "4.0703712870401096666`19.609634026069994"}], ",", 
       "4.08090231141127801`17.610756198761802"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.05407294498995457448`20.607891558693858"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", 
       "0.2950613414237105164400000000000000000000000000000000000001`19.\
469912312495", ",", 
       RowBox[{"-", "4.0719333700112487181`19.609800662925657"}], ",", 
       "4.08493848763818518`17.611185521166984"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.04204218790418546005`20.60660084205371"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.44355761574714731604`19.646950040347818", ",", 
       RowBox[{"-", "4.082214154302694182`18.61089578420963"}], ",", 
       "4.11153273985639664`17.614003752866452"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.0252367485351082014`19.604791428942065"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.5932169586230489302`18.773213557951653", ",", 
       RowBox[{"-", "4.0966186207759052042`19.61242553471173"}], ",", 
       "4.14888278197254733`17.61793116491776"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "4"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "4.00369446197627242145`20.602460927313583"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.7444342811527135925`18.87182636415332", ",", 
       RowBox[{"-", "4.1151580463785334493`19.614386519342215"}], ",", 
       "4.19710703346071978`17.62295004461026"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.97746418578231425712`20.599606277825306"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.8976106302848189133`18.953087987235065", ",", 
       RowBox[{"-", "4.1378466992141044268`19.616774396692534"}], ",", 
       "4.25635810275953917`17.629038159585377"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.9466060083375365036200000000000000000000000000000000000001`20.\
59622377272297"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.0531546654189168924`19.02249215599598", ",", 
       RowBox[{"-", "4.1647017284839542616`19.61958390314687"}], ",", 
       "4.32682309912011532`17.636169139560526"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["2", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.91119145477050887285`20.592309075403747"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.2114840823830119836`19.083317712341763", ",", 
       RowBox[{"-", "4.1957429695723009042`19.622808875537853"}], ",", 
       "4.40872392140831923`17.644312903733795"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.87130370581367302652`20.587857243286187"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.373026978487790965`18.137679070735132", ",", 
       RowBox[{"-", "4.2309927010886502536`19.62644227612788"}], ",", 
       "4.50231754984611137`17.65343612266858"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.82703786265919170337`20.58286275892234"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.5382231363864297253`19.18701933928354", ",", 
       RowBox[{"-", "4.2704753818734729854`19.630476222620548"}], ",", 
       "4.60789635003805961`17.663502701510463"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.7785011968435833495199999999999999999999999999999999999999`20.\
57731956411698"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.7075252156446776497`19.23236712578518", ",", 
       RowBox[{"-", "4.3142173147316051281`19.63490201749618"}], ",", 
       "4.72578830612386947`17.674474263309595"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.72581340865244321904`20.571221101332714"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.881399825736681834`18.274481099462704", ",", 
       RowBox[{"-", "4.3622462678639204198`19.639710179756054"}], ",", 
       "4.856357190961257`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "20"]}], ",", 
       RowBox[{"yy", "\[Rule]", "3.6691068743329856462`19.56456036213945"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.0603284462666285284`19.313936458733696", ",", 
       RowBox[{"-", "4.4145910279198896006`19.644890476306667"}], ",", 
       "5.00000259971149267`17.69897023014403"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.6085268666974039485799999999999999999999999999999999999999`20.\
557329943114468"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.2448081887233802802`19.35117923792827", ",", 
       RowBox[{"-", "4.4712809116139582936`19.650431955605328"}], ",", 
       "5.15715986566833409`17.712410594214838"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "4"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.5442317290871985744700000000000000000000000000000000000001`20.\
549522109200854"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.4353523414167339761`19.38656180286614", ",", 
       RowBox[{"-", "4.5323451881805013865`19.65632297877589"}], ",", 
       "5.32829972280787647`17.72658864639882"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["4", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.4763929946295718171799999999999999999999999999999999999999`20.\
541128866094105"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.6324906689510757275`19.420366840472816", ",", 
       RowBox[{"-", "4.5978124451505576378`19.66255125147056"}], ",", 
       "5.5139277298387865`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.40519543468500130104`20.532142042466017"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.8367694651187030982`19.45282404355231", ",", 
       RowBox[{"-", "4.667709903987634281`18.6691038570108"}], ",", 
       "5.71458341849045767`17.756984576700678"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "3.33083698766046464999`20.522553378685807"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3.0487512508748134895`19.484121991508886", ",", 
       RowBox[{"-", "4.7420626303701019283`19.67596728558576"}], ",", 
       "5.93083900600637265`17.7731161351694"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "20"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.2535285920735723339100000000000000000000000000000000000001`20.\
512354627675133"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3.2690141554172366649`19.51441680115739", ",", 
       RowBox[{"-", "4.820892721455629457`18.683127467305816"}], ",", 
       "6.16329775627048659`17.78981314952226"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "1"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.1734938591071655375400000000000000000000000000000000000001`20.\
50153766226604"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3.4981508937837159018`19.54383853896891", ",", 
       RowBox[{"-", "4.9042184082830669477`19.69056980314983"}], ",", 
       "6.41259182195723188`17.807033596830802"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "3.0062001214892238318199999999999999999999999999999999999999`20.\
478017888015888"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3.9854805989321282357`19.600480699352993", ",", 
       RowBox[{"-", "5.0844045689116611979`19.706240100311426"}], ",", 
       "6.96434256751224522`17.842880125386298"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["6", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.83097501854544387801`20.45193603702469"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4.5157080802250010649`19.654725859017947", ",", 
       RowBox[{"-", "5.2826535772638139383`19.722852131713694"}], ",", 
       "7.59161166708477382`17.880333984567336"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.6499889537285427138899999999999999999999999999999999999999`20.\
42324406361804"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5.0938957123454145969`19.707050049379752", ",", 
       RowBox[{"-", "5.4988744866785602588`19.740273806904106"}], ",", 
       "8.30015327557723892`17.919086112390872"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.46551769580294875589`20.39190812394767"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5.725090615427100618`18.757782364980226", ",", 
       RowBox[{"-", "5.7328237935779384332`19.758368593326598"}], ",", 
       "9.09578969466230274`17.95884041039741"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "2.2798826808138184639099999999999999999999999999999999999999`20.\
357912499462692"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "6.414191903193260595`18.807141949239305", ",", 
       RowBox[{"-", "5.9840818943481128919`19.77699752837581"}], ",", 
       "9.98421739470316673`17.999314028697736"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["8", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "2.09537985802402459272`20.321262764910742"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "7.165805158038517226`18.855264995298256", ",", 
       RowBox[{"-", "6.2520389563513869627`19.796021675437316"}], ",", 
       "10.9707980609005044`17.040238221087805"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "1.91420203212869462721`20.28198777294355"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "7.984098438756305366`18.90222588288166", ",", 
       RowBox[{"-", "6.5358935962861605637`19.815304973309868"}], ",", 
       "12.0603542681865417`17.081360065221944"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "5"]}], ",", 
       RowBox[{"yy", "\[Rule]", "1.73836160945089735961`20.2401401223163"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "8.872676510327662559`18.948054647827895", ",", 
       RowBox[{"-", "6.8346662702226746254`19.83471731326533"}], ",", 
       "13.2569923610802651`17.12244500603366"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.5696216350427382783399999999999999999999999999999999999999`20.\
1957949762202"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "9.834489060055682346`18.99275180155454", ",", 
       RowBox[{"-", "7.1472271898104105884`19.85413758729395"}], ",", 
       "14.563973936624723`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "2"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.4094423986599394893200000000000000000000000000000000000001`20.\
14904733174696"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "10.871784287364283778`19.03630082675086", ",", 
       RowBox[{"-", "7.4723361737753372139`19.873456402185013"}], ",", 
       "15.98365110428154059`18.203675991080914"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["21", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.2589488405816506914500000000000000000000000000000000000001`20.\
10000808220913"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "11.986112183149310022`19.078678338127258", ",", 
       RowBox[{"-", "7.808689914439478643`18.892578177199283"}], ",", 
       "17.5174709815722711`17.243471406739133"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "1.1189208552495866921499999999999999999999999999999999999999`20.\
048799368615956"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "13.178373954098123078`19.11986182707683", ",", 
       RowBox[{"-", "8.1549710780889185137`19.911422425137342"}], ",", 
       "19.1660438945019902`17.282532478444292"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["23", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.98980528079984659378`19.995549766525166"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "14.448907322856826446`19.159835005459584", ",", 
       RowBox[{"-", "8.5098938699124907254`19.92992414386852"}], ",", 
       "20.9292607740393758`17.320753889235725"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["12", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.871745677529805881943`20.940389802644393"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "15.797593742839725365`19.19859094114489", ",", 
       RowBox[{"-", "8.8722418842536786928`19.948033373488787"}], ",", 
       "22.8064400826109887`17.358057500395656"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["5", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.76462439222868665084`19.883448148301568"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "17.223972984422041414`19.23613333563071", ",", 
       RowBox[{"-", "9.240895852098402773`18.96571407563175"}], ",", 
       "24.7964840839409825`17.394390106181397"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.668111079110995822151`20.824848673605032"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "18.727352735436562639`19.272476390634857", ",", 
       RowBox[{"-", "9.6148507136394580181`19.982942545491202"}], ",", 
       "26.8980273744037031`17.429720431235697"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["27", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.5817125119904629009730000000000000000000000000000000000001`20.\
764708405091092"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20.306904609576575113`19.307643728750353", ",", 
       RowBox[{"-", "9.9932229282035125831`19.99970557573354"}], ",", 
       "29.109565918078708`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["14", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.5048197099949716033150000000000000000000000000000000000001`20.\
70313630300103"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "21.961742017909527319`19.341666785630505", ",", 
       RowBox[{"-", "10.3752498486240986917`20.01599856384893"}], ",", 
       "31.4295605162877903`17.49733830826271"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["29", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.436749796261827184095`20.640232711062215"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "23.690978655561290747`19.374583001454347", ",", 
       RowBox[{"-", "10.7602832987950104809`20.03182370566901"}], ",", 
       "33.8565132872427718`17.52964223026196"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "3"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.3767812879799168347170000000000000000000000000000000000001`20.\
576089326369097"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "25.493769080109752181`19.406434047697047", ",", 
       RowBox[{"-", "11.1477794949776277426`20.04718836970564"}], ",", 
       "36.3890192266334917`17.56097035044193"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["31", "10"]}], ",", 
       RowBox[{"yy", "\[Rule]", "0.32418246078914092343`19.5107895145577"}]}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "27.36933397706482517`18.437264229138112", ",", 
       RowBox[{"-", "11.5372870715076278719`20.062103698907414"}], ",", 
       "39.02579679776429`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["16", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.278233138297502069851`20.44440885434999"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "29.31697343172445635`18.46711913344021", ",", 
       RowBox[{"-", "11.928434564647393142`19.076583452509876"}], ",", 
       "41.7657022319293881`17.620819787858196"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["33", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.2382406061566538381439999999999999999999999999999999999999`20.\
377015785386924"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "31.336071394249151346`19.496044548011763", ",", 
       RowBox[{"-", "12.3209183064265840897`20.090643078003012"}], ",", 
       "44.6077318720582495`17.649410141634544"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.203550564328793556948`20.308672310766227"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "33.426094104704691092`19.524085631516947", ",", 
       RowBox[{"-", "12.714491286320110802`19.104298988502"}], ",", 
       "47.5510166696498947`17.677159806852796"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["7", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.1735540187975661469730000000000000000000000000000000000001`20.\
239434674598613"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "35.586584782372222946`19.551286311090692", ",", 
       RowBox[{"-", "13.108953271699035881`19.117568015376303"}], ",", 
       "50.5948118371376295`17.70410598510021"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["18", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.1476909917628392283250000000000000000000000000000000000001`20.\
169354006842084"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "37.817156248163463847`19.57768886792085", ",", 
       RowBox[{"-", "13.5041422974128855562`20.130467005603826"}], ",", 
       "53.7384840354133001`17.730285410806843"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["37", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.125451801436056395099`20.098476901984803"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "40.117482649420769546`19.603333673456905", ",", 
       RowBox[{"-", "13.8999274562165443295`20.143012533675172"}], ",", 
       "56.9814977360530937`17.755733860311576"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["19", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.106376569888022212128`20.02684598238688"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "42.487291216688046571`19.62825904346548", ",", 
       RowBox[{"-", "14.2962029264337459748`20.15522070410342"}], ",", 
       "60.3234017568377846`17.780485824283584"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["39", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0900534390970174646639999999999999999999999999999999999999`19.\
954500302967187"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "44.926354396086523854`19.652501178666498", ",", 
       RowBox[{"-", "14.6928830717212917122`20.167107022426492"}], ",", 
       "63.7638169438392019`17.804574306318287"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "4"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0761159706883698926616`20.881475790201915"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "47.434482755073247864`19.676094169218544", ",", 
       RowBox[{"-", "15.0898984463065438605`20.178686317021644"}], ",", 
       "67.3024248066742756`17.828030711492733"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["41", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0642400076329610368916999999999999999999999999999999999999`20.\
80780558387325"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "50.011518666135375293`19.699070042676208", ",", 
       RowBox[{"-", "15.4871925887846636075`20.18997269899222"}], ",", 
       "70.9389577599570002`17.850884803498428"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["21", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0541402602724918120196999999999999999999999999999999999999`20.\
733520339255605"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "52.65733095034754055`18.7214588421815", ",", 
       RowBox[{"-", "15.8847194416974374181`20.20097954865648"}], ",", 
       "74.6731906089820204`17.873164708101683"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["43", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0455667955421396311983`20.658648488154547"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "55.37181027564024619`18.743288722173116", ",", 
       RowBox[{"-", "16.2824412882749694371`20.211719520856615"}], ",", 
       "78.5049333209570587`17.894896949060524"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["22", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0383015602660726484261`20.58321646590449"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "58.15486520767091847`18.76458605344897", ",", 
       RowBox[{"-", "16.6803271242345061744`20.222204563499375"}], ",", 
       "82.4340251055133384`17.916106506181627"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["9", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0321550284691045128242000000000000000000000000000000000001`20.\
507248898430355"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "61.00641925138737254`18.78537553499074", ",", 
       RowBox[{"-", "17.0783513588162143151`20.232445944202716"}], ",", 
       "86.46032942753087`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["23", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0269630367729484435556`20.430768804015436"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "63.92640786089428624`18.805680301336388", ",", 
       RowBox[{"-", "17.4764927463015743865`20.2424542810583"}], ",", 
       "90.58372958836681`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["47", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0225838353897541443653000000000000000000000000000000000001`20.\
353797699641962"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "66.91477657673901677`18.82552203222405", ",", 
       RowBox[{"-", "17.8747335939953782732`20.252239577772706"}], ",", 
       "94.8041256202672152`17.97682723707573"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["24", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0188953858164677728162999999999999999999999999999999999999`20.\
27635576400918"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "69.97147918332150117`18.844921054909197", ",", 
       RowBox[{"-", "18.2730591015771028326`20.26181125888629"}], ",", 
       "99.12143145479713`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["49", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0157929018242090973706`20.1984619356102"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "73.09647617578702975`18.86389644105774", ",", 
       RowBox[{"-", "18.6714568104848556211`20.27117820440179"}], ",", 
       "103.535572443268805`17.01508958903515"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "5"}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.013186636239423160725`19.120134026102406"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "76.28973372240880624`18.882466099059876", ",", 
       RowBox[{"-", "19.0699162055476842487`20.280348784731995"}], ",", 
       "108.0464835798566695`18.033610637145078"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["51", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0109999019203652391580999999999999999999999999999999999999`20.\
041388812827858"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "79.55122264078715389`18.90064685880431", ",", 
       RowBox[{"-", "19.4684283720657373884`20.289330893641825"}], ",", 
       "112.6541080586623562`18.051747033385002"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["26", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0091673139302687711377499999999999999999999999999999999999`20.\
962242103810976"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "82.88091761110724834`18.91845455069308", ",", 
       RowBox[{"-", "19.8669857241949211929`20.298131979709062"}], ",", 
       "117.3583959359856074`18.069514164903808"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["53", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00763323233898531697856`20.88270848156195"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "86.27879657561482874`18.935904078894403", ",", 
       RowBox[{"-", "20.2655817723406704942`20.306759075725907"}], ",", 
       "122.1593029887530039`18.08692654607684"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["27", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0063504240996450325199199999999999999999999999999999999999`20.\
802802729699113"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "89.74484031252352809`18.95300948913655", ",", 
       RowBox[{"-", "20.6642109633239717657`20.31521882695058"}], ",", 
       "127.056790141408026`17.103997879478055"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["11", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0052788321167550249666200000000000000000000000000000000001`20.\
72253785030816"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "93.27903176752237799`18.96978402947964", ",", 
       RowBox[{"-", "21.0628685052068680154`20.323517516476677"}], ",", 
       "132.0508223042556146`18.120741109981324"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["28", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00438456522780647447924`20.641926535324444"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "96.8813560526182445`17.98624020901658", ",", 
       RowBox[{"-", "21.4615502933888730781`20.331661090395354"}], ",", 
       "137.141368459164027`17.137168478739525"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["57", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0036389891348043783097399999999999999999999999999999999999`20.\
560980758883417"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "100.55179974606381459`19.002389848307093", ",", 
       RowBox[{"-", "21.8602527334890114458`20.33965517866241"}], ",", 
       "142.328400229634856`17.15329156791537"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["29", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00301794901807089834308`20.47971189900568"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "104.29035102940868901`19.01824412924599", ",", 
       RowBox[{"-", "22.2589727392220015202`20.3475051175916"}], ",", 
       "147.611892344282096`17.169121347808453"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["59", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0025010983198057597668300000000000000000000000000000000001`20.\
398130764465332"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "108.09699926495793828`19.03381363825712", ",", 
       RowBox[{"-", "22.6577076249809760514`20.35521596836135"}], ",", 
       "152.991821969970827`17.184668216646106"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "6"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0020713220762879123549300000000000000000000000000000000001`20.\
31624763393892"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "111.97173496795937125`19.04910840752153", ",", 
       RowBox[{"-", "23.0564550506791873287`20.362792534950174"}], ",", 
       "158.4681681985202666`18.19994203775817"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["61", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0017142426125833633315499999999999999999999999999999999999`20.\
234072286577728"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "115.91454949140313577`19.064137951643072", ",", 
       RowBox[{"-", "23.4552129637877839292`20.370239380518225"}], ",", 
       "164.040912070615036`17.2149521753078"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["31", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00141779694226098805812`20.15161403538136"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "119.92543513473231533`19.07891130292505", ",", 
       RowBox[{"-", "23.8539795893246362898`20.377560843313557"}], ",", 
       "169.71003636647683`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["63", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.00117187686195076429385`20.06888197944242"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "124.00438483913428131`19.09343704224103", ",", 
       RowBox[{"-", "24.2527533629818422634`20.38476105025666"}], ",", 
       "175.475525222303774`17.244216550989126"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["32", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000968019615461428272752`20.985884157721976"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "128.15139226242612012`19.10772332880824", ",", 
       RowBox[{"-", "24.6515329219695610048`20.391843930463278"}], ",", 
       "181.337364175323468`17.25848729876332"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["13", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000799151030346430022068`20.90262886372905"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "132.36645146406268226`19.121777926264798", ",", 
       RowBox[{"-", "25.0503170550575413658`20.398813226985325"}], ",", 
       "187.295539676136986`17.272527435052194"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["33", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000659361823957796006346`20.819123798548066"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "136.64955728248032784`19.135608229002795", ",", 
       RowBox[{"-", "25.4491047254712143042`20.405672508887843"}], ",", 
       "193.350039644713892`17.286344265457327"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["67", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0005437213048409618698269999999999999999999999999999999999`20.\
735376350462797"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "141.0007046060026156`18.149221282908815", ",", 
       RowBox[{"-", "25.847895010714921849`19.412425180990716"}], ",", 
       "199.5008527097798`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["34", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000448119664531294379764`20.65139400218139"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "145.419889187959516`17.162623809369357", ",", 
       RowBox[{"-", "26.2466870886800105731`20.41907449365038"}], ",", 
       "205.74796816136953`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["69", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000369132819044062594417`20.567182659381803"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "149.90710677275438566`19.17582222230144", ",", 
       RowBox[{"-", "26.6454802612264247366`20.425623552421584"}], ",", 
       "212.091376446039281`17.326523010628602"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "7"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0003039120663887935046420000000000000000000000000000000001`20.\
482747943456175"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "154.46235370169044314`19.18882264834431", ",", 
       RowBox[{"-", "27.0442739037268936166`20.43207532580996"}], ",", 
       "218.531068546993168`17.339513189312537"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["71", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000250091211528939705457`20.39809843042883"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "159.08562632880174472`19.201630942135058", ",", 
       RowBox[{"-", "27.4430674686812992856`20.43843265332721"}], ",", 
       "225.06703603469984`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["36", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0002057033081820234116060000000000000000000000000000000001`20.\
313241276204426"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "163.7769214146884453`18.2142527032339", ",", 
       RowBox[{"-", "27.8418604637279563388`20.444698252566916"}], ",", 
       "231.699270846997112`17.364924667076018"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["73", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000169112272883966544972`20.22817512653548"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "168.53623615338751901`19.226693290783352", ",", 
       RowBox[{"-", "28.2406524872281125658`20.45087472666904"}], ",", 
       "238.427765994648096`17.377356829575294"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["37", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0001389673519579034962409999999999999999999999999999999999`20.\
142912782053088"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "173.36356755039188139`19.2389578355032", ",", 
       RowBox[{"-", "28.6394431629082154069`20.456964569724256"}], ",", 
       "245.252514556448901`17.389613468864997"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["15", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0001141449644740928499290000000000000000000000000000000001`20.\
057456757268636"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "178.25891317401349123`19.251051254347257", ",", 
       RowBox[{"-", "29.0382321771732592008`20.46297017335491"}], ",", 
       "252.173510305454879`17.401699463948457"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["38", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.000093715411942963882828`19.971811018543917"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "183.22227044503796637`19.26297826050847", ",", 
       RowBox[{"-", "29.4370192419430355028`20.468893831741727"}], ",", 
       "259.190746968400728`17.413619493293105"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["77", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000769101005296297639485`20.885983379024132"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "188.25363726406117043`19.27474337599333", ",", 
       RowBox[{"-", "29.835804121169616464`19.47473774724734"}], ",", 
       "266.304219226471351`17.42537804729609"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["39", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000630925371901777279217`20.799977992385188"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "193.35301148063514387`19.28635094061512", ",", 
       RowBox[{"-", "30.2345866033022155207`20.480504034885666"}], ",", 
       "273.513921758394038`17.436979436662043"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["79", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000517360655309242261127`20.71379339803379"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "198.52039119437173292`19.297805122325155", ",", 
       RowBox[{"-", "30.633366511165467008`19.486194727034512"}], ",", 
       "280.819849709096235`17.448427802583296"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "8"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000424073757693117537975999999999999999999999999999999999`20.\
627441398510896"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "203.75577453682429666`19.309109925701296", ",", 
       RowBox[{"-", "31.0321436914075854913`20.491811777556197"}], ",", 
       "288.221998492477578`17.45972712519167"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["81", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000347474693132131666907`20.540923180053362"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "209.05915977442252163`19.320269200598887", ",", 
       RowBox[{"-", "31.4309180007259682306`20.497357065612793"}], ",", 
       "295.720363558959899`17.47088123144795"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["41", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000284603883679333622903000000000000000000000000000000001`20.\
45424082213265"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "214.43054529391722285`19.331286649993284", ",", 
       RowBox[{"-", "31.8296893291114687087`20.502832399748524"}], ",", 
       "303.314940803571792`17.48189380348156"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["83", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000233026291725925181349000000000000000000000000000000001`20.\
367404924061706"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "219.86992971450025314`19.3421658375825", ",", 
       RowBox[{"-", "32.2284575890288979963`20.50823952125535"}], ",", 
       "311.005726531835662`17.492768385741563"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["42", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000190727505160341561618999999999999999999999999999999999`20.\
28041332795943"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "225.37731147064563924`19.352910193879318", ",", 
       RowBox[{"-", "32.6272227011547660657`20.513580107287805"}], ",", 
       "318.792717028085627`17.503508391172502"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["17", "2"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", "0.0000156052201212448734589`20.193269899035815"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "230.95268925933851767`19.36352302362388", ",", 
       RowBox[{"-", "33.025984599102197076`19.51885577404078"}], ",", 
       "326.675908773744654`17.514117107929955"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["43", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000127637964121058271457999999999999999999999999999999999`20.\
10597986839799"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "236.5960618479961231`18.37400751150105", ",", 
       RowBox[{"-", "33.424743236659917649`19.524068079768572"}], ",", 
       "334.655298667503358`17.52459770566954"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["87", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "0.0000104362794671435330195999999999999999999999999999999999`20.\
018545700306795"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "242.30742807909910604`19.384366727898612", ",", 
       RowBox[{"-", "33.823498562430426665`19.529218527205394"}], ",", 
       "342.730883336390154`17.53495324028707"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["44", "5"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "8.5304488388624016684999999999999999999999999999999999`19.\
930971882646183*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "248.08678682623896995`19.394603634238898", ",", 
       RowBox[{"-", "34.222250561529607382`19.53430856669878"}], ",", 
       "350.902660160229683`17.545186660573716"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", 
        FractionBox["89", "10"]}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "6.9702217496042521366100000000000000000000000000000001`20.\
843246594898233*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "253.93413708111171119`19.40472108822855", ",", 
       RowBox[{"-", "34.62099920805084179`18.539339598036214"}], ",", 
       "359.170626285069577`17.555300811948683"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx", "\[Rule]", "9"}], ",", 
       RowBox[{
       "yy", "\[Rule]", 
        "5.6937754299578035486799999999999999999999999999999999`20.\
7554003339993*^-6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "259.8494777498354889`18.414721848306872", ",", 
       RowBox[{"-", "35.019744486768894725`19.544312973032664"}], ",", 
       "367.5347789978161`"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.443459821325021*^9, 3.443550475219385*^9}]
}, Open  ]]
}, Closed]],

Cell["Reproducing Figure 1", "Section",
 CellChangeTimes->{{3.443460659880149*^9, 3.443460662506922*^9}}],

Cell["\<\
An approximation for the critical temperature, measured in units of Sqrt[\
\[Rho]], for the dimension one case.\
\>", "Text",
 CellChangeTimes->{{3.443550508588955*^9, 3.443550544189439*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myTc1", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"dimonesweep", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.443460200628386*^9, 3.443460231805884*^9}, {
  3.443460320586256*^9, 3.443460323487306*^9}}],

Cell[BoxData["0.225536740349798564735464144393097952`17.350418178365356"], \
"Output",
 CellChangeTimes->{{3.443460216117985*^9, 3.44346023229102*^9}, {
   3.4434603214245872`*^9, 3.4434603238189297`*^9}, 3.443550476796303*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure1a", " ", "=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "[", 
            RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", " ",
         
        RowBox[{
         RowBox[{"Sqrt", "[", "2", "]"}], 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"dimonesweep", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}]}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "dimonesweep", "]"}]}], "}"}]}], "]"}], ",", 
    " ", 
    RowBox[{"FrameLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "/", 
        SubscriptBox["T", "c"]}], ",", " ", 
       RowBox[{"\"\<<\!\(\*SubscriptBox[\(O\), \(1\)]\)>\>\"", "/", 
        SubscriptBox["T", "c"]}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4434599887195177`*^9, 3.4434601876558857`*^9}, {
   3.4434602212261477`*^9, 3.443460239393396*^9}, {3.44346032564464*^9, 
   3.4434603269311733`*^9}, 3.4434605190659227`*^9, {3.443465271504722*^9, 
   3.4434652729038267`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlzQk0FAoXB3BFslSULbLMSvYhW5R7PVpEkTySFEWpnpJnyVY+RLK2yEsl
Iop4KY9hGAYztpGylSWhbFmmeogkH993z/mfe37nf8+5xBMX7DxW8/HxPV7O
yv7/fIHjurs+VFlZQgRLKG7FxPMahSwrJwhzuVm+4pyiBc3WuRPwEgLlV8yd
1VeptjoDTaYDtBWXVT+LKkq7AMNTdf/rY3b7Z7bO+YDplzjlFQdc6iRbkfyh
da+cxIqVzkQE11gFguBs29DSEg8K2uxKTPxCIFbWgbtiqpClcFHaFbjdWdK5
sOyAcAvr52mJcD+mbGp62aIZCm5LxSlgyllQHV+2j7dwXnraQyDf+5LWt+z8
w37rFWoyIeyYj07Lsj9GvGj4VJwDnswegYpl5xoefJSdmwe/TQTwP1m2zCHd
RLe0v8FLh6WVtOwjqqG7RRoKYUfpw5t+y76To+r4ofolRGtxXd8s8qBX51TY
KKsGHuuqhUst8CCs4SSfb3ozMCz9O3/7zgPjpWq3Dcw2UCNg9JFvPFgac/D8
/vQd+J6niB2b4ME+BSXxkFvvgf7dabvNEA9+TehYbNo5ANFifGTaex6YNe8x
rCj4CA0HzfX523kgqRcVGak4DNZJPSpNDTzw7v5PhVbcKLzj9DRdjuaBlSx/
fbrFN9CvPEs7oMmDn3wsEyvZOZg+9Pbf+xVTcPHSYjaldBGsuz3FaCZTIEKL
yCuKX4VHR8NTVz+dBP2dxsmt8gL4e3GzvYLIJFhfdvujPVoQ7+ntsPB1mwBv
FS3TgmYhvPM8V5lbOA4WKRlWO6dEkPJaS+fJ4mc4OunirPR5HR4ezI2APZ/B
tEUm9Vr1Buyz/CoZmDQGhWxWbfwOcXQ4lvhgonsUUtuNHw2u3YhT2xT4R1RG
4ZCf1EOb2o0oH+s7431pBDLeqniM+2zCH2tmChyahyFT4K5Us6QE7vlLdgNN
ZRgYY+W71uRJYD3lVqhn1BD0Mh5svGsgiXruXXa7xz9BTrF2/2W6JLbfF9QK
5HyErK9vaZxHUhgcelbjF30QWvTMNQ29pfE3gUcj4tUDkPd87355ZRlcHzIj
4dLfD06zAzV19TJYTU/V2b2pH5R4Z3WLnTcj48NuW41nfaDLTE94MbAZH7+X
ytOzfw8M65Ft34/K4jbt2yfOyPbCPjC7uq9FFt+Md65rnOsGstHEK2ljOTw+
D7KpvC4YfbD5n9A0Obw3p55wYuEduNJjq04vyiG7zG2AJ/sOMl465SY5bsFH
UoUP91u+hQMP/ua7kb8Fb4/5LVVFd8JN/7XPhpa2oBg1UbKmrQN050XrZw7I
Y9Tse4kF9Q4w6RnXkLknj7JMlxGjxHbIkM6ZvvFJHjeJ7dbz/tkGY5MJhpnq
CmiQcbv/pU8bCMyXaF7xVsDwEY6s7tdWWNvm22X3UgFvGS120gJaoWDBwmHX
tAL6eDZyRQRa4b7hhoFL2xTxW3RsnUbKG3CymHkqelERue+vuUrQ3kC8/dqQ
zfmKKEItWW356jXY3iVYlIwookzoBT33i6+B1q14eZGghBni/AqCsq/h1MzG
hF+HldA2Ri34RUwLHBW6LsxNVEIzrvkzwtgraMjSn/ZjK+FscXh/o80rWF13
/ZvIDyUUGHsuqVvRDOfDNhlzpQm4xLtQMUhrBl7h93NSNALy6X+K+DOXC5+N
+NnDewnostVOM1KVCwJlXom73AgYp9CUWZ7fBDEPLhYZBBLw6B4rRa5BE6Qc
0OIwkwioHdR7wrO2EYbztwsN5hCwwMlZcb9DI8w75PlnMQkYycKDJhMNECMy
zRXuIKCW6ObmuasN4KrzNlZqnIDKPlNMG3IDXKtsWmzkI2KUOcFyQ209HJxd
u0NTmojJXz8pC3rWw369w7qgTkTrX0ZH1onVw5rj7Ef8SMSvfR6Dc/Q6yKrq
2BpqT0Sj2O7AbI86IIQ47yjwJGKDCzh/k6yDv3P19O6GELG3SGddOYcDkaX5
ezGJiONbBDWHgjjgpZKU/DiTiHGiwfsP6nCgpUFevqmYiEnRbPbQGBsib/+o
fdFAxPfw9GZMFhuGOgvcjvUSMe/CKX2qGxtYeuoFLVNEPEILvPNIiQ05W9FO
aBUJH0bd+jzxoRaMVLIGhSVIeJ/6OvVLRi1IsM4PdlBIOBsgpnXPoxaE/P6t
8TIgYZJqj16PWi2Ebmgba91DwlcpdIP0rzVQa9KVI+hEQoPT2hndpTUwkTti
LnKWhEE5a+nBETVgTkia7Qta/pehEu13oAYqgkkTV2OX7wulOsrkasAvX3gX
330SHn/aJw2j1XCg4pa0zTMSmsQJeMwWV0PeSPi5P8tJSK/jendEVcO1u4kW
57kkrPQTDX7jWA3BHnx3sZeEN0X69vWrVoMyU9BxfJyEKfWT1LmfLEgXdnW/
sEDCAtCvF3vDAnT3TWsWIWN++z0XxWwWdI0o9gjKkVFTuz9oSwgL7BSKRreo
krE7uFxmyY4FlYvxCeuNyNhmohrDUmNBu7F1fO9uMpqMyIQ487PAMX7rw5jf
yTiDIV/YvVVwTsjkkpQ7GZVGS/R+FFeB3UAdJ8yHjM0F9gNfb1RBslH4Nm4Y
GW0/z7dne1XBpbFqt7kEMrYbZ9Ek9lUBw6mSt+YBGdOTttvrqCz3zC7/mVwy
BviK9ywIVEG3XGZsHZ2M7BZz3R5OJRzxcmSGcMio/JyhzX+1ErqMOalS7WTU
sQKVUxaVIH2m4MnNATImCEt++yFQCcZODeemp8hI6Hdl0zlMmBIVdjf5ScaT
m1M1U2KYMEAqWu8pTMEnY9tEEvYz4b5o7ECQNAUJ6kMxyZuYYJrMs/clU1An
4rZy9rsKAFvBbnsaBTleXRn0hxVweQ3rg/xOCsp+71jFOV0BvcXkVq4lBZv3
vY6vo1WA9HoTOQ8HCj53cGwq/lEOx/n3Kw6foODFMo/geHY5vMmZNLO9QMH1
sf+k7LpRDkVZUsOZwRSU4IFtl0s5bLUzPTMQTUF7fq6QuXo5BGpcVBG+TcEP
d4odQucZMG3jHrQlnYKt8pxf4fUM+OPL9dLNzyjYT1P/98BfDEh01TZeRadg
L/HKwV5PBmzfGmjTUUNBG0M+N2VjBvzjd31fcgsFtV26krauY4BLbnKQWQ8F
wxiu/n19ZXCysUuje5iC3IxbTeYvysDDhfns+DcK5hjledlHlcGHvEnz1kUK
OofmOK9zLoM4xnFjXWEqGimxik7TymAqxrTziiQV/3LxLjkhWAYlfVpHGUpU
HIvSrJrvLYVNJ13FhtSoGBbZuEe1qBSsG9R1FvWpWC9s8HEythQKswZWCZhR
MSg70szCvRSkdUWq5q2omCTura66sxT2nBl50udAxVVSVuF3pUtBI+L03As3
KsoZroabX+hgGUAc8/+DiusPGV4Ub6LDoUSnIrUAKv4XGZTMRw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox["T", 
      SubscriptBox["T", "c"]], TraditionalForm], 
    FormBox[
     FractionBox["\"<\\!\\(\\*SubscriptBox[\\(O\\), \\(1\\)]\\)>\"", 
      SubscriptBox["T", "c"]], TraditionalForm]},
  PlotRange->{{0., 1.0000007024844706`}, {0., 10.732747684414482`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  RotateLabel->False]], "Output",
 CellChangeTimes->{{3.443460019601242*^9, 3.443460074507749*^9}, {
   3.443460161050728*^9, 3.443460188179337*^9}, 3.4434602398520193`*^9, 
   3.4434605197455606`*^9, 3.443465297709116*^9, 3.443550478043627*^9}]
}, Open  ]],

Cell["\<\
An approximation for the critical temperature for the dimension two case.\
\>", "Text",
 CellChangeTimes->{{3.443550548568343*^9, 3.443550557397307*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myTc2", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"dimtwosweep", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.443460332072178*^9, 3.443460336559617*^9}}],

Cell[BoxData["0.11842669584606009266715628537581647584`17.90995355215378"], \
"Output",
 CellChangeTimes->{3.4434603370455914`*^9, 3.4435504792067327`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure1b", " ", "=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"dimtwosweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "[", 
            RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", " ",
         
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"dimtwosweep", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{
             RowBox[{
              RowBox[{"dimtwosweep", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], 
           RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}], "/", "myTc2"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "dimtwosweep", "]"}]}], "}"}]}], "]"}], ",", 
    " ", 
    RowBox[{"FrameLabel", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "/", 
        SubscriptBox["T", "c"]}], ",", 
       RowBox[{
        RowBox[{
        "Sqrt", "[", " ", "\"\<<\!\(\*SubscriptBox[\(O\), \(2\)]\)>\>\"", 
         "]"}], "/", 
        SubscriptBox["T", "c"]}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4434602701865263`*^9, 3.443460343179648*^9}, {
   3.443460419383889*^9, 3.44346046114322*^9}, {3.4434605286208277`*^9, 
   3.443460530648691*^9}, 3.443460630903359*^9, {3.443465266952697*^9, 
   3.4434652690238667`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl0Hs01GsXB3CX3Eudcr/+coSaoqlck/2IVEto6GhKN9eSqFCNF+c4eqWQ
bhQdXRBN9KYIGWLGIHfGpUFDExIjpoxel8T7zHr3Wnvt9flj77XXd63PWXd/
KQkJiT9xi+f/6xsY5hRvbhwsBpfWNCuxM2z8jl8TVYKhpdtxsV1e6FcZT1dD
W5F5sNj3vT1a6wdrQTO3MVHsmHBZby1aPXw/ujxWbCc69+t8SyOk6GbTxE51
9trYIGqGfPamILGns+RXXBW1Arlq8ajYDpcU7NVOt0PA7uj9YpNUpoN8XTiQ
UiTgLi4JYfC75FcNWg/wKMamC9hB5iQjwUw/bI9nHJrFHrje5nvC5RO02+kF
i7CpHL8EM+oQ3FLjB05g6x1ZSX2/+TOYvHy1bwRbYvlD5cihESg6qKgxgB2f
fIcsTxuFYnnfpi7sCfPYQ79EY3B5zeWARuwNKoIjXl7jEEwsczbCLmtoEvEO
isB+W2WvyqIQmB5ZynYvZ4DS1Wt8d0EI7pTc6KuHfkK3035q3rwQIoP5TYzb
i3DeQP0eZVYIDjuVJVdWSqD2bLZa0g98z83oc7CKFOL2aKsfnhJCu0ZxTom7
NLKvQAPlk0I4p9w1Yxu9DK3Rr6p4JcD7Wg+pRvdkUODr0EXrdiF8dfR/V+ej
iKgz+9Wj8oWwVnvl2VMnlNFcaPpEbZQQ+OFllBTBKlQ25v0PzVEI7MQVH1aH
rkYBYTEUWWkh5CfQzqzgrEGuh43mhG8mYZW5k72jsiqyPvHsWXXAJHwU2Nw8
b6qGdLPlFVRXTELA1sx16ubqiG936tW/n09AMD2kVGiogR7tCflP0a4JcPA5
HEaW0EQbZb30nHq/AuUlaaqkXhOlDDJU+Se/grug1VkzRgu9tLN4+fvUOBTu
cFvLMtZGDxjrwgpo4wDZztPfmdpImm4yqbMgAIc8gw7OPh20OpOTvRQlgKTv
3NshzTrIReqZ2fDPMYja+1sUC+miMjke3S1iDJZsuO2v8nTRXmst7tPzo2Bt
6LP7jY8eii6gjyYHfgFP92SpG/N6qCk32U/ebwSyUu9Zh13SR0bSn36k+X6G
gtaK+NF+fRRIt55yOT0Md+rzqz5rEEjyyHKLuogh4B8qjCZvJxA7Gf2x/c4g
/N26PtTqIIE2jdh1JJR+gko1eeu1IQRqMVS+CF/4UD+9qedjDIF497Jk/zHg
Q/ercskdNwnUF2C/gDoHwDyYxuBlEOjTvdwjO2j9cMV6i4fjUwL9sLOQuriV
B6yEqvyPBQQ6dbukbkb6A9wlqbJkSgn0bdl87ZPRXphPn76+UEGg1216sIvf
A02i284LLAIp7c3LSR3jQqoS22BLHYHIGQFVFGku7ImtOV7dQKBf2/2mbDe+
h7y4EpvGZgJdbzurYuLbDRdlfjp5txEo6XXVuh+5XfDL3zvtPodAD9vG/dP/
2wksz63P4zoJlOY/S9KjdIKXdpCBWTeBKiqO9D0u7gC6udAt8z2Bmkd7rdx/
7wCZiGuFw1wC5VjWnLmQzoGL9KJ9Er0EMpNVYxxT50DHkN3kHPY0s5YUmtEO
7huTQ9734XzP+1oamLSDQzO5L/0DgQrfT3fzwtpgh/qWtN08Ai2Pv0qtyWoF
s0nX+EHsG92eusa8FtCy1FQL7idQ6GDBZUf9FigtA88xbOXSXnJwUDNE9b5V
OjRAoKcOBw5IMptgy+rNjLfYw4xbSmd1mqBokPtC4yP+h+QiRY5phFUNPgpB
2LaJsaQWQQOkpPCqi7EnF/7O7vRqgF+cR0Vz2CO2yQX9HfXgrrE/zZJPIJ1I
Wm+SWz2cr8xWPYddNe5rmMB5B48ch8uzsQP7rhyMo76Dmx9mFTqxw6NqvLYN
14Gt54Ozi9jXbjDy3cPrwGTZdTejTwSy2UDhPJavA0tXJUln7M4akmjocS08
TKzknMH+sSI86LNtLdweuCObhM2izp0O5dXAwF99PDq2buSFHK+/asArIjWR
jU0+ekfmwroauGjW4MDDJt1nnEptZYPHugiyCNvULtv77r/YcC6eFCU/SKCC
1OMSB9az4apR2G4dbMebGx4/76sGVw+/IlPsY/oLb2KSq+HPw0IeYOs+iS4p
dKyGxRjpATdsWRm1DqNfLFB89rr1GHYQf05YXcoCOTPbmjPY6SIiJiScBfEh
dh0R2JaMYO/VW1mgv3RC8Qr2UGHkuzQRE1RiZ6NuYV9qUDGYKGZCwkmmVQa2
ZEmF3EIEE1LGVZ1zsV+kyq4tAiaoJlCZBdhWcUfVJOWYoPO0L/sN9hTKX8h7
VAUtDwRLTGyTo5wM+21VsFtfdqAeu8vAI43eVAnL6kec2rFpyoNLbP9KSDCN
28nFLl+jR4mQqoRvodSefuzSzF3HCzLfgidj48ph7IlKeTtXh7fQyN8zMYa9
s8fCFL5UgEXkSZoQm/zcJfHM9QqYlP1ePI1Nv+TNYJlXQJ5pc96c2BZ8LRK/
HCwbCr0WxXnkb5tJTSoHhT/YzVJDBCJ29F36ZlMOe58sScph/9YVcHf9OANi
5pSWFLH/B/1ZzZ8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox["T", 
      SubscriptBox["T", "c"]], TraditionalForm], 
    FormBox[
     FractionBox[
      SqrtBox["\"<\\!\\(\\*SubscriptBox[\\(O\\), \\(2\\)]\\)>\""], 
      SubscriptBox["T", "c"]], TraditionalForm]},
  PlotRange->{{0., 1.00000052076428}, {0., 8.44344326993155}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  RotateLabel->False]], "Output",
 CellChangeTimes->{{3.443460307363184*^9, 3.443460311742938*^9}, 
   3.4434603476012297`*^9, 3.443460461581175*^9, 3.44346053146259*^9, 
   3.443460631731003*^9, 3.443465297893303*^9, 3.443550479987924*^9}]
}, Open  ]],

Cell["The conductivity", "Section",
 CellChangeTimes->{{3.443460831786476*^9, 3.443460833932804*^9}}],

Cell["We develop a series solution for the Axeom near the horizon.", "Text",
 CellChangeTimes->{{3.443465476292246*^9, 3.443465491625821*^9}, 
   3.443465729741663*^9, {3.4434658669903793`*^9, 3.4434658703481607`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Atest", "[", "z_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"I", " ", 
      RowBox[{"\[Omega]", "/", "3"}]}], ")"}]}], 
   RowBox[{"(", 
    RowBox[{"1", " ", "+", " ", 
     RowBox[{"aa", 
      RowBox[{"(", 
       RowBox[{"1", "-", "z"}], ")"}]}], "+", " ", 
     RowBox[{"bb", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "z"}], ")"}], "^", "2"}]}], " ", "+", " ", 
     RowBox[{"cc", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "z"}], ")"}], "^", "3"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.4434609436833487`*^9, 3.4434609557042627`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"aa", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}]}], "+", 
    RowBox[{"bb", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "z"}], ")"}], "2"]}], "+", 
    RowBox[{"cc", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "z"}], ")"}], "3"]}]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", "z"}], ")"}], 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "3"]]}]], "Output",
 CellChangeTimes->{3.443460956666066*^9, 3.4435504994165707`*^9, 
  3.443550567755471*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myAeqseries", " ", "=", " ", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Series", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Axeom", "[", "\[Omega]", "]"}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"I", "  ", 
            RowBox[{"\[Omega]", "/", "3"}]}], ")"}]}]}], " ", "/.", " ", 
        RowBox[{"Ax", "\[Rule]", " ", "Atest"}]}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"z", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4434609602512417`*^9, 3.443460977920329*^9}, {
   3.443461076091736*^9, 3.4434610775059757`*^9}, 3.443461184768013*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myAeqrels", " ", "=", " ", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SeriesCoefficient", "[", 
           RowBox[{"myAeqseries", ",", " ", "i"}], "]"}], "\[Equal]", "0"}], 
         ",", " ", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "bb", ",", "cc"}], "}"}]}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.443461187453157*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Aic", "[", " ", 
     RowBox[{"\[Omega]_", ",", " ", "psi_"}], "]"}], "[", "z_", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"Atest", "[", "z", "]"}], " ", "/.", " ", "myAeqrels"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.443461197966597*^9, 3.44346120751901*^9}}],

Cell["\<\
We use this series solution to give NDSolve initial conditions.  We also do a \
little reformatting of the data structures (probably for unnecessary \
reasons).\
\>", "Text",
 CellChangeTimes->{{3.443465497855587*^9, 3.443465526586329*^9}, {
  3.443550582384346*^9, 3.443550585117833*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"realAic", "[", 
     RowBox[{"\[Omega]_", ",", " ", "aa_", ",", " ", "AA_"}], "]"}], "[", 
    "z_", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"Aic", "[", 
     RowBox[{"\[Omega]", ",", " ", 
      RowBox[{"psiic", "[", 
       RowBox[{"aa", ",", "AA"}], "]"}]}], "]"}], "[", "z", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.443461390547525*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Aeq", "[", 
   RowBox[{"\[Omega]_", ",", " ", "psi_"}], "]"}], " ", "=", " ", 
  RowBox[{"Axeom", "[", "\[Omega]", "]"}]}]], "Input",
 CellChangeTimes->{{3.443461484890822*^9, 3.443461501485711*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"Ax", "[", "z", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Omega]", "2"], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["z", "3"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"psi", "[", "z", "]"}], "2"]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["z", "3"]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["z", "2"], " ", 
    RowBox[{
     SuperscriptBox["Ax", "\[Prime]",
      MultilineFunction->None], "[", "z", "]"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["z", "3"]}]], "+", 
  RowBox[{
   SuperscriptBox["Ax", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "z", "]"}]}]], "Output",
 CellChangeTimes->{{3.4434614874045467`*^9, 3.4434615281523333`*^9}, 
   3.44355057822075*^9}]
}, Open  ]],

Cell["\<\
The heart of the notebook as concerns conductivity calculations.\
\>", "Text",
 CellChangeTimes->{{3.443465532394104*^9, 3.4434655433946037`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"myAx", "[", 
   RowBox[{"\[Omega]_", ",", " ", "AA_", ",", " ", "aa_"}], "]"}], " ", ":=", 
  " ", 
  RowBox[{"Ax", " ", "/.", " ", 
   RowBox[{
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Aeq", "[", 
          RowBox[{"\[Omega]", ",", 
           RowBox[{"mypsi", "[", 
            RowBox[{"AA", ",", "aa"}], "]"}]}], "]"}], "\[Equal]", "0"}], ",",
         " ", 
        RowBox[{
         RowBox[{"Ax", "[", 
          RowBox[{"(", 
           RowBox[{"1", "-", "small"}], ")"}], "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{"realAic", "[", 
           RowBox[{"\[Omega]", ",", "aa", ",", "AA"}], "]"}], "[", 
          RowBox[{"1", "-", "small"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Ax", "'"}], "[", 
          RowBox[{"1", "-", "small"}], "]"}], " ", "\[Equal]", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"realAic", "[", 
            RowBox[{"\[Omega]", ",", "aa", ",", "AA"}], "]"}], "'"}], "[", 
          RowBox[{"1", "-", "small"}], "]"}]}]}], "}"}], ",", " ", "Ax", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"z", ",", 
        RowBox[{"(", 
         RowBox[{"1", "-", "small"}], ")"}], ",", " ", "delta"}], "}"}]}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.443461519811891*^9, 3.4434615240970182`*^9}, {
  3.443461617982287*^9, 3.4434616505802937`*^9}}],

Cell["\<\
We'll be sloppy here and evaluate the conductivity by looking at z=delta \
rather than matching to a series expansion near the boundary.\
\>", "Text",
 CellChangeTimes->{{3.443465546590868*^9, 3.443465571947225*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mycond", "[", 
   RowBox[{"\[Omega]_", ",", "AA_", ",", " ", "aa_"}], "]"}], " ", ":=", " ", 
  
  RowBox[{"I", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"myAx", "[", 
        RowBox[{"\[Omega]", ",", " ", "AA", ",", "aa"}], "]"}], "'"}], "[", 
      "delta", "]"}], "/", 
     RowBox[{
      RowBox[{"myAx", "[", 
       RowBox[{"\[Omega]", ",", " ", "AA", ",", "aa"}], "]"}], "[", "delta", 
      "]"}]}], "/", "\[Omega]"}]}]}]], "Input",
 CellChangeTimes->{{3.443461629069469*^9, 3.443461656691074*^9}}],

Cell["Reproducing Figure 2", "Section",
 CellChangeTimes->{{3.443463173568709*^9, 3.443463176411578*^9}}],

Cell["\<\
Note the temperatures used in this replot of figure 2 are different than the \
ones used in the paper.\
\>", "Text",
 CellChangeTimes->{{3.4435506278562727`*^9, 3.4435506547260237`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"figure2curve1", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", " ", 
        RowBox[{"Re", "[", 
         RowBox[{"mycond", "[", 
          RowBox[{
           RowBox[{"\[Omega]", "  ", 
            RowBox[{
             RowBox[{"3", "/", "4"}], "/", "Pi"}]}], ",", " ", 
           RowBox[{"xx", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"yy", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "]"}]}], "}"}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "2", ",", "200", ",", " ", "2"}], "}"}]}], 
     "]"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "200"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Omega]", "/", "T"}], ",", " ", 
       RowBox[{"Re", "[", "\[Sigma]", "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463180697616*^9, 3.4434633953100863`*^9}, {
  3.443463764420395*^9, 3.443463764813799*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "dimonesweep", "]"}]], "Input",
 CellChangeTimes->{{3.443463860287355*^9, 3.443463866719119*^9}}],

Cell[BoxData["165"], "Output",
 CellChangeTimes->{{3.443463867255579*^9, 3.4434638695155773`*^9}, 
   3.4435506017423077`*^9}]
}, Open  ]],

Cell["The T/Tc ratios for the plot.", "Text",
 CellChangeTimes->{{3.4434657828868723`*^9, 3.443465790545237*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimoneTs", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "50", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "100", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "165", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4434635126063967`*^9, 3.443463631483903*^9}, 
   3.44346387700566*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.`17.049388182701374", ",", 
   "0.52738813303210606954922324983674076685`17.24384034890476", ",", 
   "0.16502792689641659421397456498506222464`17.24581425803995", ",", 
   "0.09684851421418390407980660125066360774`17.311481709734974"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.443463552794343*^9, 3.443463564562524*^9}, {
   3.443463604341044*^9, 3.443463631747871*^9}, {3.4434638702203407`*^9, 
   3.443463878506937*^9}, 3.443550603934711*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure2a", " ", "=", " ", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"figure2curve1", "[", "1", "]"}], ",", 
     RowBox[{"figure2curve1", "[", "50", "]"}], ",", 
     RowBox[{"figure2curve1", "[", "100", "]"}], ",", " ", 
     RowBox[{"figure2curve1", "[", "165", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463279576578*^9, 3.4434632814751596`*^9}, 
   3.443463404060772*^9, {3.4434637612021637`*^9, 3.443463791712381*^9}, {
   3.443463884219404*^9, 3.443463888095543*^9}, {3.443465070677959*^9, 
   3.443465072277486*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFVAtMjWEY/tPJqZO5LUQzsSRKqOg40nnK/RI5la7q3E/HEqqtmeHbRG7N
5pKxaLRMGmVmsciZUdmysFCajnTYEpVEuc1leN+z/Tt79jzv937v87z/P1m/
WWMaIkmS8ffz5//fDyFzoiNHSb3qv3AklPWizZWwJ+ZXBbo8+dnzD3tjyyR/
mUS8D1SZnhp3wn6oSmoY3kH6AEzaqN0pJ3427vrez3MhHIRHEx9+ZX0I7O4D
0xTEz8PFr9crhhBW4sYYWcYb0qvw3X4klPuHITSm34vvF46ohCeBb0kP7AsI
r2N9BFZHXljwjfhI3C7rM3YTXoSDBTJpGOkXI8Px7dJn4pegY4TV3kd4Kdrk
u1v4/GWoe5pYzvxyODuf3jJAeAV0u46uZP1KHBqYurGH+FV49ezjiO+EV6O5
YaiJ/YlCmVtY6zvi12Aw0T+a51+Lis5gXzfC0XhcuHBC13+9iEZGt9MO9ncd
bsqmF1FeYh26zxf5sX8a9KVo98iI1+D4uOetnGcM4q/1uZFexKBNfSpuKPGx
yL0s3jpTfSzOX6mq5PPjkH3VvYP7x6Hd4NruRPXrsc1d4UnzivWodrNO4fni
UVx6oPgn8fFQF76aw3kmICIkV0H+iQQ0VngVcP6JOGsucvRSfSJK9POOs99J
KFT4Xab8RBLujM8d00/1yVB5P7jF5ydD8fquN/MpmOwaeJHrU+CrVuXz+Rvg
kXNW/oH4DXi9PyKP75eK0XlSP80rUtF0z2Mbz5cG/06PHTx/GmpFpyv7o0Vl
zbH95B+0cMlSVJO/QgtHrLGR/LdpkTnWvoz2RdIB28NKKT/okNsrNJSv0OHZ
GnUN5WnTIXxw1ibeDz2a8puLaX+gh7K4sIf3RQ91fr0z99fjxbDsWt5PA3bd
UbfQfWDAzMV5yfS9EgZUta99SvtvMyBWOS3rPd3fiDM/AqzkB4w4EPTS9oP6
G1E6el85vX82I8wOTx/OxwTrYGXXF+pvQlPrjK30fgsTgnN89pLeZkLJweQo
/l6YURa8pPwT1ZtxrlpVwPtiht3iJP9I/c3wOjF3AfWTLKi93agkPSxo8Dkc
yPtqgTrrpAvNY7NAjCst4PzTkdVY4iA/kA6Npiab/BLp0OVcOkR+2tKRlLkw
lL8vVnTJK9L+5PELCq7lig==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1y3lM02ccx/HfBjGC/IGCpnhwWIcVcQFFGJXBByqnygSKBaTQu90MwwHC
DFCLEVGoB7ELExWZgUUmlU0OxyijAQayBatAmIBxgFxKOZxbNpddLvt9n+TJ
k1fez8dDlhmvfJNhGMXr+9/LHrhXza8yTV0J+Z+OEDbm8UO1taw5KNbH7hgU
N7J2R7nByedkXCfrLdBHXpjNOv2ANQ+frl2n+F40ytobR2Ym/F1WTbL2wX27
t/TWh9Osd8KpKfybbPkcaz/4+t3O5nCes/aHb8vcpFYwz/od/NJwtK5+vZU1
H8au5lMX2shBYMr+6Y4PWGAdjNqylrc9LpOB8JkTeDRLDsWlFJtvF7Yusg5D
YVJb7w4xWYAFO17ByFnyXjQUG5uzGsjhULsXBvdYyBG4U9HnXTNPjsSuZGPZ
VZsl1lHgjuledXPI0Qg6ujiQtJ0cg++0S6Xle8j78IbtMdXuGPJ+IN8gDRCR
D2BDoLCyUUaORVipAzcyg/wePqluX2zLJR/Ebk6pZtsJ1rqDaP3jM2ZNCfU4
8PNK0jzPU49DRYfXmVMG6vHg2QdZLldSj8cKr+ieFdXUE3Dx95CsX2uoJ4Dn
tFzdUUddCIPh45g/jdSF6Jn4vOvpV9QTIcpNE5iaqSfiWnC+mNNK/RAu9nLt
Q0zUD0FYlCuRdVAX4bf6KOe1ndRF+HpmYPxWN/UkOGRs3ri3l3oStEPjLTl9
1JOxsR1Hqn6gnoybtUXH+vqpp+C4eZvJYKGegv1uL0o+eEj9MJpy7zoHD1I/
jKT6wcrWIeqpMNaE28QOU09FqnJgy+iP1MWQyC/lrBuhLkaHR49f3ij1NPje
5a28N0Y9DfqrHIeBx9TTsdNVJrN7Qj0d/oGdfN5P1CXIu2UJsB9nDQnuC+ss
bhP0XwJNw0c2zpOszRKEDccEDZMZKV6eV/dbntJeionMmxHXp2gvhWkpOidq
mvZSWC0xe7xmaC+DIOL2kxEyZMjlt2kzZ2kvg/ZMeUXQHO1lEHv+de4BmZGD
G7rdVfSM9nLwUzfdW/2c9nL4BTg2niOb5fhCXDO2cp72Cmy6wnx5hwwFbF3D
LC5W2isgUet1erJZga3t16o8F2ivRNPxgmf5ZCgRp/gwZ46sU2I5wbEme5H2
SjhFCUZbyYwK/aeLbDcv0V6FgBtTQ1VknQrpxT5nH5HNKrhMeVe8u0x7NaK7
3PLqyVAjsGDD6sdknRqJIzfGg1/QXg3voWmfajKjQcauAy97ydCgrajkFe9n
2muQZtm3ppBs1sDUKeFeJzPvwypYf/Lv1/4Xa0f51w==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1yw8wFnYcx/GHsckUKR7JLhOXMzP589QwPv7/fcz/fw/xeJ7H87RV24pq
dkKJyp0dRmh7lkgmxkVZPSJ5RLsx1nPmaG0a4VmztFPPLPbnfH+/u9/97nWf
3/v19A+iJNocDkf83/3/pQOdktyOuNnGd9ZohJc0T/wss9rJZjBPFqz/JOU2
2RIxkT2XP0y/R7bGOmFRM0/nEdkW3Pe+Vpr7LZPtMZe5Ujfkb+S5ZkfY6zy7
6tlnTXZC6NbOUJWtO9kF2rNdS7NWUWQexnhDOxOaZeTdsPLlWInX55Pd4Gdn
99Rz7izZAynVygSt521kTyy0qhbPRA+SgROG1r1jFVNkb2wJ3nFAr/Qvsg92
GP+97FJr7LVmX1htNmioNXuD7AeFZVWjqtiX7I+n1x4WaK4LyAGIyutddN98
iByI3ftGsg5rTpGDUMifLxK5ysnB6OaslB2NaCOHwGKkslR9ppscin8KNxkZ
lA2SwxBSIPz4c/4omQ9uZpt24Ktj5HA4vtV8o5E3QX4XXy7aNmYP/ESOgGnf
lhm+7Jc150Xg+MmcxzMdU7RHwujHowpL1UPaI3HT/4/iquFfaY+CS75t2kTT
NO1RMHUWTC7tn6E9GoOqr+5wLR7RHo2gFlnDwW/InBjYvnkh5ID/LO0xCG64
6+rTT+bEoq/QtE7x9hztsfh+xOGacT2ZE4eLLudvlujO0x6HOyfO5wtSyZx4
HBRXjVtcYXs8drmvyCtX2Z6AoYQBeZ2/mvYEnN774M/qIjInEd65sQYLSrYn
IsSmxS18le1JaNquUzvj/BvtSXD6tP3QkoTMEUCLn6rYWMF2AezUpW1hvWxP
hlet0qxfzfZkFAztLF/d+Jj2FFS6Req/4JHzUrDPpP4zZSLb9yD1tQrv0Wy2
70HAfLnSvIbtqdD7gnv3bCfbU6Fl0ZZ34x7b0zC9IUU3c4GMNJTzj/e3vvI7
/U/DTKJH/uQ28q00GAQdWprikTlCBPyQbX0pjAwhjG2e61YKWS+EptpQVp7F
eiGetHpPHTvF+nSIrup39tawPh2GTg6Dbs2sT8ex0Q0tA12sT4evlcXFke9Y
L4JXz7TU4T7rRejxEMi71awXQbumTjWnYb0I6pHT4bkvL1Avhkmsa5lwExli
TEZLc59tI+eJoYl+cW6dPfmWGEfaFXM5u1gvgb76QdJ1H9ZLUDPVcDKPz3oJ
Bp22JiriWS+BpeO4dFjI+gyYcDXuR95nfQb8xi/r1WeyPgOVHwWHdeawPgPc
ie5z0kLWSzGcbS1vKmG9FDE4PPtzJeulMLG+EtopZ70UNjzxskMD62W4v/ht
+YUW1stQsp3fpOhgvQyBGZdG8xWsl2G/S3hx6G3W74Vzted41+CC17+LCOKd

      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{4.857142857142858, 0.}, {6., 3.72039306454254*^-15}, {8., 
      1.6276719657373612`*^-15}, {10., 2.9763144516340323`*^-15}, {
      11.315068493150685`, 0.}}], 
     LineBox[{{16.22222222222222, 0.}, {18., 3.72039306454254*^-15}, {
      19.904761904761905`, 0.}}], 
     LineBox[{{22., 0.}, {24., 6.200655107570901*^-16}, {26., 
      1.4309204094394385`*^-15}, {27.147540983606557`, 0.}}], 
     LineBox[{{29.48148148148148, 0.}, {30., 3.7203930645425404`*^-16}, {32., 
      1.4532785408369298`*^-17}, {32.124542124542124`, 0.}}], 
     LineBox[CompressedData["
1:eJxVy39Q03Ucx/EvM6SSm54S2CJrKduJXoIrOEzwJeKv9QM2fgzYD/f7O6AV
pwEXP2IonHrHLUFdJbYub7swMLyLLpHCb2C3zogGFGKigENI/cMhI+sOW3V7
80efu8997nHPz0uof1tu4jEMI/v3/veKOj/watIzwPzv7ER8dM1QlKhva8i7
4Kv5pSR99xB5NzZ3O7d4q74j78GQUFJbfe0BeS8E4pjmS0+tSA1ZilRepW65
REx+FbFjn6y9vQDya9ge3JDsry4gv4721sLhv188QH4D7wTzqw7+1UjOxOxU
c8OyBTc5C7KKFWOKHi5kWxZy2yXxkyevUZchaoeg1n5qjroMvsvW1X8K+Gmh
LkdeMMNYJBKHbJOD//UXK5O926lnQxk29xXLKqlnQ7Imb/3eyDLqOZiIvPrM
wJpj1HOwNOvx53460Uo9F+eU/KN9zl7qudA8n7BKMX+deh5K2d6A9dsA9Tyc
9aSXp0j520JdgTrnw0FdW1zINgXsnKNGkJBGPR++TanuJzJzqOcjs/PLq7LY
YuoFOJq94fyPn9ZSL0DbZyb/uz1N1AsxeHiH8XLMGeqFMN0vbDIeOk9dieJ7
00ldIxepK6E+1VZyrrmPugpxLrHGGnWFugqrfRfeS37ZS12NKzcjNEfihqmr
8XFjXOP0wK/UNRA9+abdtXmUugYzKdqpVsVv1PehrmVJZfSuMer7sL/nYH9l
+E3qWmwK7/FUnB4PGVp0Z19fojkyQf+1ePiKhy2WTIbMabGy9wV30iCZ0UGi
notmDbdor8MhU4RbdY9s0+GYf2N5bLGP9jp0hScuOCbIjB4u+2zMxcwp2ush
+uhzf/wFsk0PcZe93iq4TXs95K7S5vUVZMaA6o6A8MYAGQa096tE/cJp2hug
4KkdllIyZ8BoxzAn7CYzRnD1x6UC3gztjVg+/pjHsZNsM+KHLY51wQYyZ4Tr
/mRTUR+ZMUEaXz0aeLS4N6G14M66sKTfaW+CKuHRs+4SMmdCeZltZNJJZsxI
kzeMR3rJMGMuLGVPRnBxb0ZiYKn1wMY7tDej0/yg7paCzLCoz5jydNWRwSK8
hb925CzZxuKtqlRXqXdxz2Je9HPEN/OLewsC3PcdjU/fpb0FH77k/GPZVrLN
gks3ZmbL1GTOgkSpT9hSQ2aKsJ/nf//k6bvb/gFMS4M0
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox["\[Omega]", "T"], TraditionalForm], 
    FormBox[
     RowBox[{"Re", "(", "\[Sigma]", ")"}], TraditionalForm]},
  PlotRange->{{0, 200}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{
  3.443463287892744*^9, 3.443463338841833*^9, {3.443463374679296*^9, 
   3.443463412848701*^9}, 3.443463859213005*^9, 3.443463941423513*^9, 
   3.443465349937963*^9, 3.4435506562817698`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"figure2curve2", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", " ", 
        RowBox[{"Re", "[", 
         RowBox[{"mycond", "[", 
          RowBox[{
           RowBox[{"\[Omega]", "  ", 
            RowBox[{
             RowBox[{"3", "/", "4"}], "/", "Pi"}]}], ",", " ", 
           RowBox[{"xx", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimtwosweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"yy", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimtwosweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "]"}]}], "}"}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "2", ",", "200", ",", " ", "2"}], "}"}]}], 
     "]"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "200"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Omega]", "/", "T"}], ",", " ", 
       RowBox[{"Re", "[", "\[Sigma]", "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463180697616*^9, 3.4434633953100863`*^9}, {
  3.443463764420395*^9, 3.443463764813799*^9}, {3.443463929223304*^9, 
  3.443463934805601*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "dimtwosweep", "]"}]], "Input",
 CellChangeTimes->{{3.443463860287355*^9, 3.443463866719119*^9}, {
  3.443463938092135*^9, 3.443463938947473*^9}}],

Cell[BoxData["126"], "Output",
 CellChangeTimes->{{3.443463867255579*^9, 3.4434638695155773`*^9}, 
   3.443463964509213*^9, 3.443550656390257*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimoneTs", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "40", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "80", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "126", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4434635126063967`*^9, 3.443463631483903*^9}, 
   3.44346387700566*^9, {3.443463940534498*^9, 3.4434639767922087`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.`17.6089235564898", ",", 
   "0.88768009418625350963579892294599022457`17.65759187942764", ",", 
   "0.22202839788536049039999948050110915803`17.735903607163234", ",", 
   "0.10515079423824171`"}], "}"}]], "Output",
 CellChangeTimes->{{3.443463552794343*^9, 3.443463564562524*^9}, {
   3.443463604341044*^9, 3.443463631747871*^9}, {3.4434638702203407`*^9, 
   3.443463878506937*^9}, 3.443463977651732*^9, 3.44355065648497*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure2b", " ", "=", " ", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"figure2curve2", "[", "1", "]"}], ",", 
     RowBox[{"figure2curve2", "[", "40", "]"}], ",", 
     RowBox[{"figure2curve2", "[", "80", "]"}], ",", " ", 
     RowBox[{"figure2curve2", "[", "126", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463279576578*^9, 3.4434632814751596`*^9}, 
   3.443463404060772*^9, {3.4434637612021637`*^9, 3.443463791712381*^9}, {
   3.443463884219404*^9, 3.443463888095543*^9}, {3.443463984295212*^9, 
   3.4434639938456583`*^9}, {3.443465076776011*^9, 3.443465078615274*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFVH1MjHEcf5JKkY523MIoldZSHK6I+uRyXvJyTnmpXN3Lc12NCTMLtcdL
2TVtZ6HZIm9pdXm3+QN5NspbGzNMy8SyTOGOvJO34fu97dnts8/n+/v+vp/P
93lCzWsMYj9BEKy/nz///364mdyrHSJ4kv9CBYSSHx0DCKtglmW/Bz/d//AY
lL+a6iMQHw5FqMcwkHAUWjUjFJ2kj0GV+2mJH/ETkFYYU+pDWI0XDwq+sX4y
zs6YFBVAvAaaZ92n+hFOwN3K9FVdpJ+G8KYL8dx/Op54DR3J90uCZrNvXDfp
AWNhxnXWp2Bw9J3Eb8TPRERSiPiGsBYHYoOFQaRPhfqY6uRH4mfhXo6+4x1h
HaoDqtr4/NmYYrS6mJ8DV+TFwk+E56LhWNU81s/DTpeuwE18Gm6XBSm+E54P
KWKwyP4sQJAxrf0V8QsRHB+j5/kXoeNtXKQ/YT3KfVNDev7rJT1eqgcWs7+L
oa2Pqaa8pMWYU10bxf4ZsOmwrbQ/8QaU3G9v5zyXoODAD3/SS0uwPeBghi/x
6QjTb+/2pvp0nHZeOs3nZ+CrO6iT+2cgerj/My+qX4o4p1JF80pLMfplfhjP
twzJbbtrfhK/DFpP10TOczkOWYoCyD9pORqvjKzg/FegzrfmuYfqV8AoJOxl
vzNRVx19kvKTMjHOuUX5nuqzoLrWepnPz4L4pXkM89kIaYlr4PpsKL2n7uTz
V6Iy8IjfW+JXwsc+awffz4ijGq/3NK9khBwYXMTz5aA3RVnM8+dg0YaeAexP
Ls7U73OQf8jFiLGBF8lfKRd9zbY75L+cC4Xj+WzaF8GEnseJtZQfTGjx3mag
fCUTNpxDE+Upm6A9r17N+2GGp/VRDe0PzBA/O928L2Y04ZY39zcj+eP6Ft5P
C6ocKW10H1gQVb41i75XkgXDInQPaf9lC3TypHWv6f5W3Lg1Pp/8gBXFVx/K
fdTfisj9Dhe9f7IV0XtGhXM+IhRe53q+UH8RqorRa+n9lkSUOELLSC+LqOnM
XsDfCxtulOpcH6jeho2mxAreFxvWmPv79VJ/G+rr1YnUT8jD8ay7CaRHHspO
VcbyvuZhgq7Ih+aR86BsqK3g/O1ojI/tIj9ghxjWuJ78kuxw9J3YRX7Kdtid
SfH8fclH3esLOX/y+AXagd3q
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFkwtMU1cYxy8ttdKxUbGURxRlDNSmVtjQkIrbv4plE5ylViiitvS9OWaB
gWLWUF1INaLxwUQTtrgZF6YTM3xsUYw1gtHNiG+zLXFWGQviCkXJwLF1Gnu+
e5Obm19+3+Oc75ybZlmntws4jrM9f198Iw8ui7q+c8349Z2XKMW1Q59s/lYW
iHASancJT40e6IvwdHCB9C+vtw5E+A0k/qE4cf/rYIRn4tOsjSkHhwYjrIQ5
6t4Tj2Iowlmolt1ofqxi/CYmS46N5WUyzsGJRqfaNIXxPIzHzQ4vlDHORb+y
I63sNcZqTDoz465RwjgPiaVlwQ1ixm8j+mdTx0YRY2Bqi82XFc1Yg+HN9b5M
IeOF2OJ/WPmRgPEijN52tzyLYpyPPvXhBY3Ei/HAKHiWS6zFePqdwTjiAoTX
Kjb0cIzfRaC5SnGM+D2IG34UfUW8BHE53fPqiAtx9eLSrg+Ji9AhOd7hIF6K
6pujSVri9/Hb4wQVz8sQk/dDxmJiHT4fvlmsYOzVYZdosCGbfDE0VX8WZJEv
RvZopyeZvB4fpx42ZpDXI+14r/l18suRezQ+Oo78ciQEo0amkjdAnzLLk0Te
AKdKUjOR/ApsmjtfR/28KzBrz17ZJPIlePpomzuafAnOtW7XyMmXIrh6pOAV
8qVQdplmC8gbMeGBKlFG3oiepiMtE8iX4WysIz2KfBmmr9tnjSe/ElqxvJPq
eVciI5g8xpEvh/J33X0p+XJUpuxMCIfZ/7AK0vFUN19/FQL5O+00L241Jkvr
742xeO9z/uy0kV//GgxptL+8SvlrMC3Yf3KE6pswVtS7VUjehO5/tyljKd+M
dndj0zCLhxnxb+l6+XmaUZIxp1zC2G9GW91A6RDVr4DsanchzQsVqHxodtD5
eSsQWp8nHWTx/gpc+qKpTUz9LRjuP2Tg8y244JMfCdJ+Lei8Na2P6vktmNtz
bg6tj7NCZhROofqwQnRp4pMY6m9FWt1uIc3Lb0W7vV3Pr9+G7J8Kz9P+YINa
4e6k8/HasEfuU9N8/DYcVMRo6T5xdlx8VNP6D/W3o6275sxTyrdDk7ujnuL9
doQM7gt/U38Hvrky/zQxHDhatMnI31cH1tbvXUb1/A6UC8Ry6sc5keoJB/j1
OxHaMtMQov5ONJzd//1/lO9E/oHaZIrnXLAKVCGaN1yo9jTn8PfRBeU+X5if
vwuWBZmqv6j/B6gdqIp9cb/+B+eQw/8=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw90n9M1HUcx/Evv0MUjvgZYwUIyBILD3Qg1/XCAzlOibuTH8cPgbvjgEzj
R0qKUSeDkNsCFauD+JHESC+wsMZY8jMS0DQwDhnEj1A6N5It6deaY2Tz877v
9t13jz0/r+3zx9dXVSDXWHIcl/Pk/f/LHli7zR+YfL9C+JQ8zOluXXDbfpbZ
E07/xrq0zzYz+6ChR7fJ/YOvmP3Rcfja2LYdw8xBuJPkrk4tnmYOxtbqCDGW
VplD0Nwac26m0+rVp+ZjXFs37d3mxRyGrpIH3aPFfObdcJDVxhyzkTCHI2b2
Ql93vYp5DyrLUjZ6r5cyC/CNrfHXyzvrmIXw2X8pY2DJwAwcse7Rn+8cYo5C
m2FZvTXFyLwXV40FkbzRe8wiiAQGgXF9hTkaP6lm3uE5/c4cg8SN9ZL0yEfM
++B5Qte0/TNyLGrDLh+1v0oW4yWpfqKikRyH7ts7Zh1KyRKUj0S41ieS98Pd
1WYgPoR8AEoR9+OaIzkep0WnnCwe0X1eg+f9F4eld8kJODXFH7rRT5bCQS6f
8DMwa6WI5m175ZePqctwPPnzFWMVdRmaPypfHDlJXY78G8vhkqPU5QgYNX24
T0X9IKoknG+TgvpBLOijvP9KoJ6IgsBgkVhMPREJnyoMuijqSXgo4g0VRlJP
QueQ7HmL3dST8ebsb36RO6knYzU6rPHnYOopsJqMSF0Lop6CuaLAsYoA6gq0
3frTNsmPugLHI3TrJ1+gngr/Yt/Gx97UU/HWtV2VLV7U0zDW3tVW7kk9DR4h
Hd92uFNPR7XUIDS5Uk/HTckZocyFegbOjevr/nCmnoH7/Rxfz6N+CLwvCm9r
6P/SHkJo4J61TEfqmZCkt4fKtlDPxPeCxKK8zdSzUMRPXmpxoJ6Ftq6R537Y
RD0bwyX9lzzIyMZk/eaWd+3pfDamOecg4zPMg9mwOy0zxZE5JXT8gKhJO9or
UTuDVjFZq8Tdt+VOC7a0V2JkMW1FS+ZU8FEs1TuSoUJTwM3uXhvaq+D+SWlZ
MXlQhSrTlJ0LmVNDOL/cYLSmvRpurjWZerJWjV3H7o3HkgfVEPetLnqSuRws
zBU9MFnRPgdTNc7KVrI2BxcPd828Rx7MQU1vtyyJzGlQ+/BKv5d5r4FpRvCy
pXmvQeXXQ2tzlrTXYLI1dsJA5nLhkd4nbCAjF4V7GzpPkLW56DriaIo373Nx
fUvWFZF5nwcFv+C8v3mfB0FvXBpn3ufBNvhv98cWtM/DPz3P1s6TuXyctR+U
DpCRj8rvLO70kbX5yAjdEFw07/NRWlxWfca8fx1fhr/RV/3E/wGRVM69
      
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{3.706666666666667, 0.}, {4., 3.1972127898412456`*^-16}, {
      4.186968838526912, 0.}}], LineBox[CompressedData["
1:eJxVkGtM01cYhztAjEOQguIkBOkQOwcy4qRgBfvrGJSr0HKTe/sv7R+WdWwF
xIBIoxMZGzpUvG3CHLHEbMwhgvDBAGkIhJHgQG6yDBwOMmNQcDAy0M2F837Y
yTl58+Q5z5dXxOWpdFYCgYB79f6bhznxq+sOwf+OB3T5uwNVXfeC1ngHVk9/
rKupnWH8FvOC4DX2gX3Z9KP2AkfGfihrVmoMoV6M98BweiK4ec9+xnuRqOm3
6R1WMpZg15yi98kwzzgQ0qdH1pe9aWIsheSMi8+k7wXGQWi74JRsP/0D4wPw
qxUvh1i6GQPS0s+DG6wmGcuxwfF4ypn4Jcbv4djR36PbpI4H1jgE9Y3b+JsD
YsbvI7/Uv3DpaznjUIT77A8dkqcyDsO95qiA8dv5jBV4Yff6qKyrinE4/h7Z
Wbn+nJlxBJKyN8+J/LoYRyI8sLVIJH3AOAphR68meFr/yTga/EhsYl2Rg2yN
YyAqXJrkHMWMDyJhxdJZFylnHIu48X2Ff1WkMI7DMfVjebnBuMamONSY3M+2
tH7GvBL+nOjuNsdrzCsR71ZQ3GnVwrwKAfMF1/W7e5hXoQOCxYvrRpiPR4Ok
/E7WlYfMx6NaLR6wzM8yn4CXP37vtH3wCfMJ0Hp0H99o+4z5RDzfNyrM/Yex
KREu6mDJyS/mmU/C/XJf+29GGJuSwJsFziHL5JNhDLNdPf/aAvPJqK+dKtGt
kj8E0UKTumeO+kNoOzhWm/UL+RTo9LWHM3vIp2Do7vhiaBP5VDQ+imxd9xX5
VMSUStrsTpJPg+El79CaRz4NrlEvhKo08un4UFop/FVBPh3l3UNFmf7kM1DB
uZUte5LPwFTSzM/nnMlnYmqv/WVnG/KZ6DiRdvvsIu0vC9r2XvPKLO0vC/KA
JrPnBHk1Lp7wnhYNMIYaQ0Njnz620H81ZoXWLdHtjDvVkMm2bMm4Sb0GJZ9E
bnY1U6+Bl8NkRdxV6jXoH1FWONVQr0FeiaWKr6KeA1ynbd3KqeeQabwVJyuj
nkPLb745U0eo5/BHZ59fv5F6LbxtdlZuMlCvhSTaNbmDp16LIIk54gZHvRYf
PC/2HMugPhtvcBHJuhTqs7HR8o5heyL12ahTdVRuUlKfjbzLgmpVDPU6KC4N
3roTQb0OLumxQkUY9Tr4X3pq7RFCvQ4NnFOkE6jX47u+hVyvYOr1wHxudbGU
ej1Werc2PgygXo+0Ce94zp96Hh02Mz+5v0s9jy8rHFZm/Kjn4RD1kZ3Fl3oe
Sd/2Dw77UJ+DB9c3LMy9TX0OrGxP3di6i/ochNpcGzWKqc9By5xv/YAX9bkw
9QXeD9zxTPYvw1fE4w==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox["\[Omega]", "T"], TraditionalForm], 
    FormBox[
     RowBox[{"Re", "(", "\[Sigma]", ")"}], TraditionalForm]},
  PlotRange->{{0, 200}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{
  3.443463287892744*^9, 3.443463338841833*^9, {3.443463374679296*^9, 
   3.443463412848701*^9}, 3.443463859213005*^9, 3.443464047260706*^9, 
   3.4434654033504353`*^9, 3.443550707728005*^9}]
}, Open  ]],

Cell["Reproducing Figure 3", "Section",
 CellChangeTimes->{{3.443464082875205*^9, 3.443464086253903*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"figure3curve1", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", " ", 
        RowBox[{"Re", "[", 
         RowBox[{"mycond", "[", 
          RowBox[{
           RowBox[{"\[Omega]", "  ", 
            RowBox[{
             RowBox[{
              RowBox[{"dimonesweep", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", 
            RowBox[{"Sqrt", "[", "2", "]"}]}], ",", " ", 
           RowBox[{"xx", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"yy", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimonesweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "]"}]}], "}"}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "0.01", ",", "2.5", ",", " ", "0.02"}], 
       "}"}]}], "]"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "\[Omega]", "/", "\"\<<\!\(\*SubscriptBox[\(O\), \(1\)]\)>\>\""}], ",",
        " ", 
       RowBox[{"Re", "[", "\[Sigma]", "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463180697616*^9, 3.4434633953100863`*^9}, {
  3.443463764420395*^9, 3.443463764813799*^9}, {3.443464114108428*^9, 
  3.443464114191944*^9}, {3.4434642075264053`*^9, 3.443464314681745*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimoneTs", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "75", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "100", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimonesweep", "[", 
          RowBox[{"[", "165", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc1"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4434635126063967`*^9, 3.443463631483903*^9}, 
   3.44346387700566*^9, {3.4434641387942257`*^9, 3.443464147417745*^9}, {
   3.44346443454753*^9, 3.443464441351158*^9}, {3.443464820707203*^9, 
   3.4434648255844183`*^9}, {3.443464928481737*^9, 3.443464929048882*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.`17.049388182701374", ",", 
   "0.2414894906174556519458717072930772775`17.325802334570763", ",", 
   "0.16502792689641659421397456498506222464`17.24581425803995", ",", 
   "0.09684851421418390407980660125066360774`17.311481709734974"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.443463552794343*^9, 3.443463564562524*^9}, {
   3.443463604341044*^9, 3.443463631747871*^9}, {3.4434638702203407`*^9, 
   3.443463878506937*^9}, 3.443464150714937*^9, {3.443464291160684*^9, 
   3.443464317011257*^9}, {3.443464437688148*^9, 3.4434644420736303`*^9}, 
   3.443464829199472*^9, 3.44346492961854*^9, 3.4435507078573303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure3a", " ", "=", " ", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"figure3curve1", "[", "1", "]"}], ",", 
     RowBox[{"figure3curve1", "[", "75", "]"}], ",", 
     RowBox[{"figure3curve1", "[", "100", "]"}], ",", " ", 
     RowBox[{"figure3curve1", "[", "165", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463279576578*^9, 3.4434632814751596`*^9}, 
   3.443463404060772*^9, {3.4434637612021637`*^9, 3.443463791712381*^9}, {
   3.443463884219404*^9, 3.443463888095543*^9}, {3.443464130543017*^9, 
   3.4434641358232727`*^9}, {3.44346433529422*^9, 3.44346434274951*^9}, {
   3.443464424732894*^9, 3.4434644327447042`*^9}, {3.443464852152297*^9, 
   3.443464858775428*^9}, {3.443464926167225*^9, 3.443464926750227*^9}, {
   3.443465059149682*^9, 3.44346506078934*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFlQtQVFUcxvdh5sDusiJgjxHwFYLikFJYit8FNQIzy0HS3GKCidXQXCyb
UnzgAyQDxTJD1EllhlDxleQqNtIS5qiYqAgDSIAPENBdHruwsHA7557u6cww
zG/Oved89//7GMYmrF70qUqhUGwgP/T3eq+TUU3rtmHZsdaPYhxWmH23t79v
PoTLtebgBKcV+3PpKsSNMz8EJg9YQTbJE2ew59a2E4kuK9yqj5rC3c4j48iD
4keEAw27LPZJl3AuVPfmxEEr8slu9dFSRJTM//M04dDpdJXhsd8swwXCZfZJ
5I1y1J4pMowYsmKRFOAqbIcMa/WEm9fRgNeQFRGUOpNwCj3OVIH72QnjVxBW
SOsWfje/XJxG+O0m+kIljl376+ZGwrst9ILbmBp2+1QeYSlu9R2UnjZF/kbY
j36ubxUaT6SXHCdsTKLrHorevXvaQphOx+tkNc6uKrxaQdhB49prsFds3Hef
8GxpALVY2fBeiI2wdNz2OsyteG6EQrSi4gZd9cgPSLeLZN9bOrABnn7lJhdh
aVyGfyAI6QVKUf7+RgTkxH3gLsr3NWKos7zcW5R9NGH6wmcb/UX5/mbcnVI3
bCxh6fObmqHav7c+WJTzPIC7M9AzRJT9PESDW4EQxPM9RFt2WSndZ/N9hIOF
iqmhopz3MYINF7tmEL4g9eMxxvk3pM0W5fwtGHu55PBcUfbRir7E1FHzRdl/
K9bPu30nWpT9PMHiiLSCWMIdUp+eICh2Sid9nvlqg9qzJSOOsFSX6e1I8Gup
XCDK/tox5w/3MLrP+tuB9hVfLV8syj6fIta8tX6pKPfrKdpi68INouz3GQ4V
51bFi3J/rSg425acKMq+rQgen2dM4vOy4bh+1Oef8ftsuOltvLCSz8+G7C1z
Xkzh93cityq1aw2fZyeyXsvMWM3zdCLzYe3GNXy+XXD4BPm+pLD9l68LB37d
fYIy+3vsgo8mLOYFwixvN1IEe8dowmz+3djtYdpF91n+bowb2vSIvs989CBg
51t76fOsXz243qASfQgzPz0oLIsw0n3Wtx4Yt+58h77PfNlRvdL/Ft1n/bPD
cD7BmzLzZ0d5WvqrlFkfHfipdVYmZebTgZkekeX0PtZPBxa+3jGDMvPbC/ea
aIlZX3sRv9xc4k2Y+e7FK7lLxlBmPvowIXhGkRdh5qMPlZnLEikzH31YcC+l
dhRh5sMJR3zyEsrMhxN5+tG9noSZDye+2VD2HWXmox85w+d6eHIf/Yg5rskf
SZj1vx8f+iTPH8l9DODrJ9//rec+BqAM60nScx8DKE6KU+u5DxcqiuIveXAf
Llyc8InZg/twYceRvjg99+GCXmfcqeM+BrFg+7QoHfcxCP9MZbCO+xhEyDLT
GzruYwhdaUuv67iPIfzid8DlwX0MIS/QZ7KO+xBRvtx2Rct9iOgrmLZFy32I
cO0IX0tZGr+XQqiZ+nwVZWm84QohdNORWnqeNL4khXDzlGkJZWk8uxTC4Ga7
U8v7rRB+rLmyT8vzKISWbQEfa/l8lYKxMipBy/MphcJv59zV8nkrhf5rS3/+
P69S+GL4wRgtn79SsJwLHdTw/Eph2OZIi4b7UAnx9avyNbxfKuHOjnmlGu5H
JajUWWs1vG8qIXtiaghl6bijKkHXmPPMnbBUvxsqoexwcTFlqV52lRA9+cs9
lKXP9VULx5qdGZSleFGEx/iFUZaOM6kFVdbZATfCkt5ctbA6us5CWRqfRS2s
mxCUQ5n9P1YLSd0bjJT/BRDGw3A=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlXtYTGkcx6eZ3KK1PZLL2hRF7bpWa3M739MSotLGrkU8i3VZnmxaWbKo
FB6sJhShpMu6RGStYlUqkUvE0CAyM9U0zZzpPk102+ac3+95zjN/nDnv+32/
n8+ZsV/9m/9asUgk2tVzmT53WmfMVYZGwvF6yJ7nolQm2zZK9312InanDv59
3N1U5lS8aS4i9OuqjIc+fzM9N3u+kYnkb1OWhhZfYCzkKUEzLbKwwbn44p2f
LzPOAdEFBqc7OHvfzWlGxjUmteeuPOUuEvyc9nl9doNxczVNIaRjLHLMj2Uz
hQannieKUBLh2fjpRC7jzwcohrHsc/amTyGjCjUFfATZ+HDn6LRiZotpuaAS
jMtzmRrz6Bkj4qcUW2JdbY5cfcnMU5oeeA7rKbmRa+zKGWmBaYMX+MmYXqGu
UTJ8XLkMOd8t2lT6oIYZaTqu7SscdXBxmJJfz6xfZ5oy5CjTTiT6GhhTO9YZ
ckjcyxS9bnUwraa4htc4pr4yZkyQBEIBb+E7uczu/XoL8MtFlSNBN0Kt77JC
yRPTvMPdj4N8608NxWB+wQrIwuWRIRV24OsK+ABNVrLTukljIZxfgfmK8sjs
pokQ9lNg6ZQ8aT/LKRB4KJG0chxKdjG0vwreccHsHyM8wR9fqUKJ+4kfr83y
oTyVuH7PfKxhwWIIfKqgXHzc28M5gPJV4ewBs5HLDqyB0G81Qrx1hX8O2kR5
1Zh42uVMck4wbvF+qOFmXjpgduUOyl+DN6PiFmbKwiHw0OBUYsjZbVsPQOCv
wfDIlb2HX5NC4FOLOYZQb1VSHDjep1rcyI6eujcoEQIvLcIypZdr56SC18VV
B5vCMJ9f/r0EgZ8OBnM2r3l5JgR/OaSsDZSUTbsJgaceYtHtV/aiOxD80mN+
YHvekEX5EPjWwc9THru/fxEEf+thrfJYXGjzEALverjvNe9KCiihvhoQPflG
2mxlKe3XgNYVZVPnDpFRfw1QiR3zq2e/ov0bYel/abt4lZz6bETambBM97Vv
KE8j4g3XT2b7lFO/TRif1624MPQ95WtCzr5HZ04WVUB4H5tgP3W3Z8JXCsrb
jMStzvmHqhTUfzOijpyOj4pRUv5mVDlL7211URGPFpStky+bU6wiv1rwti4h
2biokvi0oM4lq35HWSX51oI1MXP7H/WrIl4GvNTbr9IUVJF/BnwY1mA9fkI1
8TPg16yN5wYeqyYfWxEV8yxraFM18WyFgUl9mL5ATX62op/snnJykpr4GtFr
8EGFY4OafDWiabndgLrpNcTbCKvRMx7f31tDPNpwSJS7UP2ghni0QT3twcbE
vhri0Qb3iJiMWXM0xOMjOte2h5mHa4jHR7x7cN/dmK0hHh/BpQUGedVpiMcn
9GmTzvewryUen/ClZVbQZ/615P8nPN3m4XA7rJZ4tEPkYGnwv1JLPNqxMzjA
s//rWuLRjsOjXrcOMdMSjw4czo6at89JSzw6oNw/cJifr5Z4dMDd1TLvr2At
8egACq+WBsdqiUcnclO8/huepSUenfB1nHUyVK4lHp1Ydt51hbRVSzy6sM22
tCncWkc8ujBty4sj2yfriEcXOg1PIrb66IhHN9arktNXb9ARj27EPu5d6heh
Ix7dsKqsatx4Wge+fmsRyzA4WPSPDny9M0Xs8cRl1d6PdeDrWydi0x56BhqU
OvD1RIvYJZvcrCqMOvJbxD4rmO8zzpKjPCK2uaLE9509R/2asZ4i53TZNxzl
M2NPdp3fP9SLo77N2PvnQybIlnOU14zNXdjhNWQzR/2bsUsUdk9K9nCU34x1
s7hZXynliIeYPSf9oi34HEd+idm+Pyzqk5TJER8xe2P6rPr1+Rz5JmZTk+3r
00t7fnd4XmLWZV//5o0fOPD6PRGz5RZK6SM9B14vg5gNOmhVo2jnwB/XVsJO
C4zrjuunBx9vroQ999RNLbPRg18uSMLahG76cGm0HjzeeAkb59JR5zFJD76+
Agm7Qt5yNn6GHsL/sYRlZJuN0nl6/A9f5doY
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlXlQE2cchnOoRYjodEChUhwqalCUUryqk33XqgPGAxEUQVSqAo4nWBis
Zz2L9YKqKFZACugoKqcIKh4BFA8UD8BySQiBHBslQIJIgJLd75vJ7B/Z/X7v
9z7Pzjqt274sRMDj8fYO/MzX3Ta3POW7DsNpZuAhU2i6pMDxiNanIAlnN+nt
Q/65KrmYYF7XkCPt8J2484Zk4M+BO7JRkLunJP6PHIlldWq4xPIONtb35708
XChxCTotM4jvI7O0frfdGpkkLdx8yyNcueh2f533C8lUD/MqRoLoSaam8r2k
2CAeeKIUcseQgP2zGyXL2ABluGjcUO2Rr5Y07TIHfI7E0hJ7QVqnJIKdWI7A
mwvTLUp5FI9dFTjyeVyF8pgV5SU3P/AGf5b4L71XMZKKlZkHvMWchvrvB1mP
pdi41e+QbyPe1G3xIzXGfFzHSoyq8ho70XU2FRZqXlXwFMeteefiSZnbsblV
jWh59Jzldb6U0RzX8AGnEytsFo/5laLYAmpwJferpX3GVord7kgtbly4My/1
7e9U+UvzqsPD19tkq88cpWzZDRsw4oS6qL3iDMXWFfQRnl1Rq/2iUiju/I2o
FByrK2i4ReY1QuTnJCsIvkdxPOSYkS9wM64sI/ObkGsdltOQV0mxx5c3AZfj
N0s3KEgeBWao/fxrAvQUx6cZzY6Wk6pt+0m+ZjS+eN40vs4KXL9KTPzFOqvG
aAcubwvaZ8+7PTpgPApZP1owOw6yVV0e4PK3YnpSxjPj0zngeKjAcx/3qfaI
Nzj+KoQmiddukK0Cx0eN8K075sbO2giG9UmNgvKpS8QtkeB4abB55Mkg4aMD
YHXx0OLo8uvVmadOguOnRUrPXw5l/efB+cug8pWD+EHzv+B46rAkqLxw+80b
4PzSIc1qvYVTYx44vp/QliW89Ld1ETh/PyP39gpprE8xON6fcSAv1e71uTJw
fbWhXnbYQTHiFZnXBm36ao8E2Rtw/bXBNzkiIH3dezJfj6iFHiJlTRXpU49g
9+x8g/N/JI8edglGEY+uJf22w8t5SOeLyfUkXzsaFhwPrtE3gHsf27E+tNMw
2quR5O2AckSNs3SInPTfgc21t/Ijb8tJ/g4svdznPda/ifDoRIdba1450wTO
r07kneHtfx+tIHw6kd2xzveHbgU43zoRduVQXm1EM+FlwJqM4T4lTc3g/DNg
sGnJkkOLlISfAQEHbS7pM5XgfDTi6gQMDhvWQngakbQtgHcwpAWcn0Y8+TRN
VjzgEce3C7Z3In0Dv2kF52sXRNPUDnKfVsK7C84BCRaHL7QSHl9wuirLbl9t
K+HxBS7DrKYvGq0iPL7gw+AhUoW/ivDoxt7JK4JS4lSERzd8XZ3qn5apCI9u
rNwiGDO3V0V4fEX3Jvfqo25qwuMr3tROLY5bqyb+f4XefeXw8JNqwqMHmutj
SmIK1YRHD65UZf12Q6EmPHrQdc6tYpRIQ3iYUNYYkSH00BAeJgz7ojw5c6WG
8DDh2cYuvt0eDeFhgoNj0v7EJA3h0Qtx4OP4zIcawqMXHfbJTN5HDeHRi10+
rplRfRrCow+uiyKlIgct4dGHLY/2JT+aqSU8+lCbfO7efD8t4dGPaMvo9NZt
WsKjHzHXvvO6E6MlPPoxfcHjwugULdj6bXj0KasnFacKteA+CDw69IMq5l2F
Fmx9oTza74DAe3qrFmw9p3l0muOBSTa9WuI3jy6yVZc6fMuQPDw6WokHO8cz
pF8+LZ0iig+axZB8fHqtFFMiFjOkbz4dNbQ5VhTMkLx8eodkY4bLDob0z6c/
eWU/OHGIIfn5dNWEyoeJZxnCQ0CbHob+7JTOEL8EdHnR+hjr2wzhI6CH3tWn
F5UwxDcBrcjaHv72HQN2u1QBLbb2MO1pYsDq91JARzQHvVC1MWD1MgjowJE5
YYV9DNjjOgrpuYrzrxeIdGDjeQrpwUpt+HF7HdjtwoX0zfl3I+eM14HFmyCk
A5YGF1T+pANbn0xIa/k9dYOgA/c9FtL8AsXnJ1Id/gdzOtb5
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.01, 0.}, {0.03, 2.7976257896888855`*^-16}, {0.05, 
      6.7143018952533245`*^-15}, {0.0693103448275862, 0.}}], 
     LineBox[{{0.13, 0.}, {0.15000000000000002`, 0.}, {0.17, 
      1.9747946750745072`*^-16}, {0.18055555555555555`, 0.}}], 
     LineBox[{{0.19168674698795182`, 0.}, {0.21000000000000002`, 
      1.9183719700723785`*^-15}, {0.23, 5.838523387176804*^-16}, {0.25, 
      2.417148682291197*^-15}, {0.27, 1.2433892398617267`*^-16}, {
      0.28035714285714286`, 0.}}], 
     LineBox[{{0.31694736842105264`, 0.}, {0.33, 4.069273875911106*^-16}, {
      0.35000000000000003`, 1.9183719700723783`*^-16}, {0.354180790960452, 
      0.}}], LineBox[CompressedData["
1:eJwtknlMFHccxWcXUnSNqBRoEEqlFjls0aKxCM6+n0ilVUxEq6WVxhWLFAHB
K+GwoBLxiHQteABtlXjglWJjq6yioIsVrQsiIqCCuMty7M4sh9ywQNmZ3zeZ
zD8z7/u+7/PcIuLXREoZhtk68VjejU6LR6/5vARDRy6rO5fAvkLj7g3Xl+6t
WHKAC1W5HniNlqw4v9PHu5dUaCzTAMX98Bk2AVNZh8JgbbL9G6xM8Q60qfRg
w5XqPs/wJhjPu+6c/2EQu2biby70LQIXPXuyqk/B9ntavngLRdIul4J/97B5
uZbR4kh05vGKozmsuF+HofiadbZTb7AT4hMbdHivJDmxYVY1K/ppRsfaUivn
9Z2sl7BQD6c/6zKKPKfIRX96bHvwZD5OeMi3sxbBFiSvcKmISA2Si35bIXEe
bojVbJLfsthTtSLps1s11i9T5aL/NiSmrZ3leCZPLqbSji/ODlU+q74pP59g
EWxHjSLSO2LTc/lXgkEDznVcdzAs6ZLzFnucAfeadJdcVDIcs8gpjYiz3XPn
zE53LBCGQ3Lv1sndVwgs18rqOJSlTLrX/DgMKZZzk3l0LHSPGdq4HR8JB5vA
z0zlFGkZKLPIqU1Ia6gJtSN5iNpimQ4kuqqY9O4rEOKTdaL1qiZfO14E4dzC
TsSa7tj6F6gh5tWFX5JuX75Z/5ju68JcPj67Kq4KYn5dKA0sy6u68Jzu74bP
suzeqIxaiHl2o/iSXn/2/ZfUTzd87VSF/3z7GmK+77A+0c3u0A+N1N87ZFUc
ca/2aYJQB9U71NgwkZXRb6nfHqiCf/f93EsLMf8eBD8Nf+Vbr6X+e9AUpOiU
JuloT3tRPdDjsmNqM8R+9aIkaqSq72QzRD69yOl8eu+2ox5i33pRO/5my6NM
PURefShLlfnPGNVD7F8fpg+YJ2+KbIHIrw/8qPf50PIWiH3sh1fAweio2a2U
Zz9e6QevzUtuhdjPfmxb7r9nnqaV8h2A3VLP5WqnNoh9HcDs/IYN3pvbKO8B
+Nywn3P3UhvlMYiCF+VnGoxtlMcg5jh9b/3Iq53yGMS+o7m//hHZTnkMIc6/
Yuax0+2UxxCScmQnTTXtlMcQ/D79L7ZtkoHyGIYxzKjJ8DdQHsNYXXzIoz3a
ALH/w7idH7Jg1SkD5TGCeYuy8pvUBspjBB8UeHj+xhsojxGklCseZtobKQ8z
1PHryrr9jZSHGTnZ4/u4jUbKw4wvfTUz4tKNlIcZ6RGywykXjJTHKGIUj9hV
D42Uxyji5+vVklYj5TEKmbV2Y7o1R3mMwXvKzyer3TjKYwy64jr2EzlHeYxh
MOyvnKzvOMpjHFOY2rmSXRzlMY6opkBlfCZHeYxDrXS8bFfAQYjfniEfrwvx
H7vLQYiXZUhjW1jPtBcchPi2MORHnWPp1xwHIR4lQ1i3+wFahqf9ZohvVNF0
nQNP/TAkQxnxjbs3T/OVkBWLHwZcZ3nqT0LOVjwtLlnN07wlJFmztjBkM0/9
Ssj+vaoE3908zV9CrhozJ6Vl8NS/hNjYY3XUKZ7ykJKVulmN2os87ZeUxOxP
Mj8o4ikfKQn3c9rgVc7TvknJweyxIFLLQ5A7JyUFzkv9evU8hPpppGTZiZZ6
1x4eQr36pGRaoSqkmTFBONfVijTofrKNtTVBsBdsRWKcK0tOOZsgyCVYEYea
3MBgTxMEvLlWZEepuvDiQhOE+NRW5G+zxlxPTBDO5axIftUc5bUQE/4HqdxC
rw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox[
     "\[Omega]", "\"<\\!\\(\\*SubscriptBox[\\(O\\), \\(1\\)]\\)>\""], 
     TraditionalForm], 
    FormBox[
     RowBox[{"Re", "(", "\[Sigma]", ")"}], TraditionalForm]},
  PlotRange->{{0, 2.5}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{
  3.443463287892744*^9, 3.443463338841833*^9, {3.443463374679296*^9, 
   3.443463412848701*^9}, 3.443463859213005*^9, 3.443463941423513*^9, 
   3.4434643041953497`*^9, 3.443464346193677*^9, 3.443464411732552*^9, 
   3.4434645085629597`*^9, 3.443464850163065*^9, 3.443464915515911*^9, 
   3.4434649912675*^9, 3.4434654640383043`*^9, 3.443550766359968*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"figure3curve2", "[", "i_", "]"}], " ", ":=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", " ", 
        RowBox[{"Re", "[", 
         RowBox[{"mycond", "[", 
          RowBox[{
           RowBox[{"\[Omega]", "  ", 
            RowBox[{"Sqrt", "[", " ", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"dimtwosweep", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}], " ", 
              RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]}], ",", " ", 
           RowBox[{"xx", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimtwosweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"yy", " ", "/.", " ", 
            RowBox[{
             RowBox[{"dimtwosweep", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "]"}]}], "}"}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", "0.01", ",", "2.5", ",", " ", "0.02"}], 
       "}"}]}], "]"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Omega]", "/", 
        RowBox[{
        "Sqrt", "[", "\"\<<\!\(\*SubscriptBox[\(O\), \(2\)]\)>\>\"", "]"}]}], 
       ",", " ", 
       RowBox[{"Re", "[", "\[Sigma]", "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463180697616*^9, 3.4434633953100863`*^9}, {
  3.443463764420395*^9, 3.443463764813799*^9}, {3.443463929223304*^9, 
  3.443463934805601*^9}, {3.443464119305838*^9, 3.443464119416751*^9}, {
  3.443464367678298*^9, 3.443464369492361*^9}, {3.443464888928315*^9, 
  3.4434648929983673`*^9}, {3.44346497989091*^9, 3.4434649841766577`*^9}, {
  3.443465103825201*^9, 3.4434651228248672`*^9}, {3.443465229794409*^9, 
  3.443465229874881*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "dimtwosweep", "]"}]], "Input",
 CellChangeTimes->{{3.443463860287355*^9, 3.443463866719119*^9}, {
  3.443463938092135*^9, 3.443463938947473*^9}}],

Cell[BoxData["126"], "Output",
 CellChangeTimes->{{3.443463867255579*^9, 3.4434638695155773`*^9}, 
   3.443463964509213*^9, 3.443464995196019*^9, 3.443465107165285*^9, 
   3.443550766531357*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dimtwoTs", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "80", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "100", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "4"}], "/", "Pi"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dimtwosweep", "[", 
          RowBox[{"[", "126", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "/", "myTc2"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.4434635126063967`*^9, 3.443463631483903*^9}, 
   3.44346387700566*^9, {3.443463940534498*^9, 3.4434639767922087`*^9}, {
   3.443464389137731*^9, 3.4434643954969997`*^9}, {3.443464915393346*^9, 
   3.4434649164161243`*^9}, {3.443464998722508*^9, 3.4434650033226643`*^9}, {
   3.4434652525999517`*^9, 3.443465253287086*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.`17.6089235564898", ",", 
   "0.22202839788536049039999948050110915803`17.735903607163234", ",", 
   "0.14969873445731482391531211654615619148`17.399278392428286", ",", 
   "0.10515079423824171`"}], "}"}]], "Output",
 CellChangeTimes->{{3.443463552794343*^9, 3.443463564562524*^9}, {
   3.443463604341044*^9, 3.443463631747871*^9}, {3.4434638702203407`*^9, 
   3.443463878506937*^9}, 3.443463977651732*^9, 3.443465004605007*^9, 
   3.443465107935534*^9, 3.4434658134768972`*^9, 3.4435507666795597`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"figure3b", " ", "=", " ", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"figure3curve2", "[", "1", "]"}], ",", 
     RowBox[{"figure3curve2", "[", "80", "]"}], ",", 
     RowBox[{"figure3curve2", "[", "100", "]"}], ",", " ", 
     RowBox[{"figure3curve2", "[", "126", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.443463279576578*^9, 3.4434632814751596`*^9}, 
   3.443463404060772*^9, {3.4434637612021637`*^9, 3.443463791712381*^9}, {
   3.443463884219404*^9, 3.443463888095543*^9}, {3.443463984295212*^9, 
   3.4434639938456583`*^9}, {3.443464122223483*^9, 3.443464127078786*^9}, {
   3.443465012378236*^9, 3.443465015240074*^9}, {3.443465063606167*^9, 
   3.443465064973364*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFlW1QVFUcxvfFiKxRJHDqQ6hjGjI0DSKNE+JzPmRqoyOBC+LyYryWhKBD
gJAF4kuCCmVZ6uggFAI1zFgfonIo2NYMYRLMAHWUN1dtOXcX2F1YZNnuOcyc
c2Z2dn6z957z3P/vubAsNTcmQ6fRaA6oH/ZdEtC8cbD4EH4YzF26z2tDS9Bh
6zstF7AuVpfoo7Hj7Bm2GhHgn7JKq7L6o3rFZQw+3OiaUa+f31uXFzX/J5Rd
WnvTrfKqxKp2Z/AVPPgy7bZL5W/UX3vrfkfblksLGa8JZ8sEj2H6OafKJmew
eocZLRHZNydUjuEBrqGmvMgxrvJQMQvYgfO9x9oZ72Xb5XXhjdJzaYw1fN3A
y1FX74+pvGmQ3dANU7BpN+PqdnZAD6zRRj1jHrf3JnxqTjbYVV7CHjfoFv6x
NhoYZ2Wy9S/CXghZx5hNJ6C5F96t/ZGMXSyusw/HrU6HTeX1fAC34edn72fM
tzt8B0drolsZd3WydRfh9bHljAP5hvegDYxJYszHlXgf1du8kTbx/AOYXXfP
zybOG8DJZaM2ReU5H4NILzT/rYjzh3ChpK+TMX/8wSEYHMavFJFnGH4VEacU
4WcElabOCkXkG0FDcvxeRcz3AX4ZmsxVRF4LPuzZlM34Z94PC9q2W7YrIv9D
xG2uj1aEj0doaup4UxH+H6HwpWfCFeHnMSI2B4YyHuV9eoy8xsVBivD1H/z9
by9gzOsSbsXb6Wk+ivBnxfR4iZuqPNffUeQvzhqlwifF3YycISr6RTERbO6j
wq+CqQ3RXVT0V33OrkYTFb5tiKg/9isV87Kj6PrwZXmeHb7TukYq5mfHamtq
rTx/DO9l9NRQMc8xvNWW8p3MM4YFTU9XUjHfcSzaoDsi843j+qvF5VS8j+M4
lZx1VOadwNiR9dVUzH8CPRdRLvNPoJJ2fESFDweyl+8vpKJfDuQM5OdT4ceh
vi+fFVDRNwfgvnCQCl9OrDCV76eif05U7N7J75/z50TOopFcKvrowrygp3Ko
8OlCb38y57l+uqCLzs6jwu8kKr8+sYeKvk6i1LdlNxW+J3FtdUaW9DGFhJDW
dOljCisja9OkjymcmEfTpA83njcUZEkfbuQnm9+VPtwYWLsrRfqYhs2TnCR9
TGPX63eMVPR/GssOfGqUPp4gpeK1ROnjCeyezUbp4wmiwroTpI8ZRFR9skP6
mIG3pSBe+pjB8dKGOOljBiFhB+OkDw+Wb10ZL314cC6lbYf04cH3z56Nkz5m
sc0UGid9zMISOmyQPmbxouuWQfrwoiLNaZA+vDBW/hgnfXgReaORn8/HH6Ah
rR9bOPPxRmmI4/xanoePL1NDNMHVnPl4qjTE98+lCbLfGlLrY06QedTrO7t3
yvlqyYqxv4wyn5ZcKSpMkvPWEt/cghSZV0ssJDZVzl9Lkk9bMmV+LTGvSd8j
fejI9mFLquyXjnzRty9d+tGRPbWLM2XfdMTn9ADvE9+uTkcOFf32PmNev04d
WVJw8QPGvF5OHVnY/S1/P/jjBulJVLt7H2Meb6OelG0J5O8f3y5PT7ZW9Zcw
5nrP6Enu1c/LGPPxtevJH5nN/O/B3P9jPXkl1HqS8f/Od1Y5
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1lQs0VHkcx8cMx1nVqmhXttiUnqqJ1Krc7y3aSWd1StraONtqQ5RIi4ge
EhUO1abSORS1PYQk0W4PlF4eJSF6iDzG+38xSB47c+9/fufcM+ee/72/3/f3
/XxnZspWbwdXsUgkClFeqs99+mmy2qAwGJudTB0fcojJMTrSui4nAa3Lcm1z
nEOZ+HOquoY12at/uWARxigPlU9k4E1wslWmeQSjU5nsY62TjUtmaYXZVyOZ
Wc4x+YqZ9zBpJPHlVK0TzCXlaWVyLpKM9J4XHTjNLLRQ1SNEfLBwTr9/nnmk
mKl8owA6scc9QxYnMQ68gGfQ+PnKqJN2V5m6IJXAF8i0D/8u0u0ms1vVzqcY
VoHk6SjXO4yIr1cwN0kUyz4+YFbVql4ohX3cxieaewqY2HzVgNcovbB99GPt
EoaXW1kGaf2iFHZ2OWOsWteoHKN8RFuDNT8y7m6qqsBUs8JAb/cGRuWOflol
IhxTbTJSO5helVzFW8xYcX+D5PteRjCgGq6hoY2GPSMM3+7IO2Q2+kSUL9RG
cZGq3mNdh6F7S8tYTOAbfkTP2ckv3+QagLfLuQZ3DeRzt88xgbD/J5x5rVUm
z5sNYd4nPKm4vWB2vgUEHrUwTYzT3LncGsL8OlR5Gn2TkrUS/Pq1dRBNrnZs
nLYWgp7PaMh9aVs1ZhMEPvW4HCJPlXS5UH31SNsRd6qw2BOCvw04uDSs/bL2
X1RvIw5aBTm/7wzBXT4fjbB16Aha6xRO9TdhfJ5uwZaUWAg85HC4Pnfvjhdn
IfCXI9Evz3+LUxIEPs2oKF7yOUozBW18nprRnbOmMDQrEwKvFqwKP+a03OMe
+LhYtKLHO9Hl6PTHEPi1ov+HepIxVAghv22IDdl1xp68hsCzHfOPeu9vq3gL
IV/tWKTp3z/sWwOBbwd8G3bG/DH3M4T8dmKc2Zgt8441QuDdiZG80krtuGbq
F0FfsXnYFGkbnUeQcHvY2nF1B/WP4LSXXvbL5k46n8Muy/4egxhC/VTeD+iZ
eQ0RqofDtzaHtQ7ZcdTfLhhE5lpk7+Oovi7sjh40vRPPQfg+dsHVsKzpQgpH
9XbDsLo2YO8tjvrfjVtepYXzlfeC/m5s3F2S9foGR3n0oNtAuqw9maP56kGz
3pX8/85ylE8Pjt9OCh8bxdG89cBoBSPfsZ+jvBRoM7TZaqPcQ8ifAo6OWRNH
XDjKT4FDH3VTi9dzNI+9gE51d+5KjvLshd3SNc6Snziaz15sexJQc282R/n2
wZOkpsonczSvfRj94GLVvnEc5d2HPu0l7dFaHOXRjxuTjKKkA4Ty6IexYp+H
fSehPPrhfFkS9aaeUB5f4DWpZlV1tZrHF2zY9CrarVTN4ws+K/7Nc35GKI8B
2Jr3LU5/SCiPAex5/k+7bzah+R/AxG3yrdfTCeXxFXUmli2LrhLK4yv6C3Yb
614klMdXpP/d4mQXTyiPQZT3SazqTxHKYxDPjG9k5EYTymMQftry4aoIQnkM
wvq83mFZKKE8huB1wCVDM4RQHkN4cc1P1B1AKI8hfBk7vXvcHkJ5DMNpwsMD
gbsI5TGMhKGN6008CeUxjNq0V2UdroTyGEH7dOlvdS6E8hhBWOS2Qf3fCeUx
Aq8EJxK8mYC3X1/EVtvG5g79SsDbay1iPaXvTBLWE/D2uYnYaU8/cX5rCXh7
YkRsWtdMaaA9ofkWse6+jteiVqv1KM9TSgfvytT+arAHjRBusFKtT4N9luLh
EL9C7bcG+2eFS6Apq9arwZpOtTN5Yq32X4OVmMwYOLlUrV+DXae1URZspeYh
ZiuPt+z1WExovsSs/9t5Ddst1XzE7AbLWLdYC3XexGzblKDMkgUEfLtkMatV
xoWPlhLw8SsSsx+a03/cPI+Aj5dCzM4vOOZfZEbAr2skYc98qildO4eAlyeT
sOODDa1LZxHw7XwkrDTT48IW5e8Oj/echI1tutmhO4OAty9fwnaesJOVmBII
/8cSNkC2v+nINIL/AfSa2VU=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1lX0wVWkcx697azXatRSVRl5KRSFFtWnu+R6yVLZCRS9WelHSbLEl7zNr
h5YaaUerlCxFVlthJ0nKe9HSC2pJwhUiled4ydvFuuc895m5c/845zy/7/P9
fO49hvuOuXiJRSJR2ORH8R2iddtBFhwBjzRdW1WXO9J7epHdzveS4PEsYmz0
zF3ppQTFygDztupbvYh86eTFyTuyURMYedRwWYlUre6ar1QtF+n791Son34i
NXGPLRkwfoDbul4JXgU10lRfxS1FICuGssr8GqVWlopViv3x0WNY0iEtHTCe
fOIR4ooDPB+lclIXPkAFaouaAl7GyqWtwYqA/2KdyQ2TcT9Vxo+f+BRbKswL
RWEzGRG/XuBE6Mk/9D0NmPUyxQPVaLBINm17vJQ5V6IYUINZJlenG5auZvi4
dbXIz96eXBpmx+grjqv3Cosuxll0VDozhw4q1n+QxNVPrZm3h1G0o3W7Djl6
Ubr2nkeYL4q4A/UYmZ4d+feaQIbhC2hA0rY08b6YSIbfLvIN+rvPiZfbxzFP
qxSrEWkD7+QilxRGm9+wCerPdz0Itstk+Lrcm/HdCe9Zg24PGOH8Lcg5Zij2
rXxC57UgymPDtomzdYzAQwa716FcdHw7nd+K5sMuU6zq+hj++LJWuG423pLv
IIaQ5x3u5qs7N7doQODThpRVreqZq/Uh5GvDijusZVq7KYR+25G36LrrSLE1
hLwd+Fr7mZ5N6Xrk8X50IKTC12mXzBVC/vd4nT7s36DlBYFHJ07F6Rjtdz0O
gX8nzNrzcg/8GQ6BTxcqjkYZltXE4iPvUxe+/+nQzQL3RAi8PuCWwZkW59q/
wOti2Q2jtK3nipfnQODXjTwNq6udYcUQ/P2Ip+tGXj1JrITA8xOczUVW1xJf
QvDrE8bjSjIC6xsh8P2MiwZb/OwbWiH424PnTR9X6sx5D4F3D34YnntkcdEH
2hdBbl73+Yepn+g8AmdVtvHEkx7aH8Huqvm24uuEzucwy2euQ40xR/vk4OOl
Yf0wjKN5ONjP1WR1/+Fov70oWjjTrPA5R/P1omDRmcWX3nIQfo+98HEunFHe
wtG8fWi9lZEY08jR/vvQ31d9KqSWo/n7oHbd7YpVOUd59MPAWtX+1T0Ogl/9
cNLx3L07g6N8+iHv90pbksBB8K0f2ioezc+iOMprAGMZp0tPB3IQ/BuAb2XX
Rn9vjvIbQLl+1zzZDg6Cj19wt9dm850NHOX5Bcu/rZNrr+Ug+PkFZHZ19Bwz
jvIdhEQ2RzNen6O+DiIpqFi3bAZHeQ/idodTePBXHOUxBOMTB8rvjxDKYwhp
Oo6VyT2E8hiC/HNKQm+bkscw/B1jzRoaCOUxjKnZ3u/YakJ5DGPVqZg3ahWE
8hhBikfTpwOFhPIYQeRj9hvtXEL9H8EL6x3PLDIJ5TGKJSXWs4vSCeUxCp8s
U7fYZEJ5jGK4RaxbnUAoDzmMRl5t9YgjlIccV4IcPMxiCOUhR7fcPOLAb4Ty
kCNkgcq08nBCeYwh+fiQa1AooTzGkB0S+uvJAEJ5jGFH1lDx+Z8J5TGOUs0C
Y7WjhPIYB/ELWZ9+mFAe46h3e6rr60UojwlIi/ZWRuwllMcEfDQNL2b8SCiP
CSQyVjnTdxHw9WuJ2GbHlNIrrgTCC0HEVmUmVku3EvD1HRSx7gZNtfOdCPh6
YkVs9MMZPXM2Eeq3iL0RfuG16UZlHhHrOHuvXbCDsl8VtvN3t5bHdsp8Kmxe
6r56O1tl3ypslO28uzIo86qwFtyFy79Ilf2rsP757dd2rFXmV2G9kZ5huUbJ
Q8xuuTwUuGA1oX6JWePV1do2K5V8xKz/cSObrZZK38SsRcrNN2eXE/DbXROz
AfnbS5qWEfD6VYnZsqSdJcbmBLxeA2I2U+Jhl2pKwB9XT8JOa03RmLuUgI/n
IGFzg0bXJJkQ8Nv5StgpAVkzN0z+7/B4EyTs/eTceNkiAr6+Egkbkmdff2Uh
gfA+lrA7dTbZeBsR/A/NftFj
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.02333333333333333, 0.}, {0.03, 4.633207959224741*^-15}, {
      0.05, 2.8957549745154623`*^-16}, {0.06999999999999999, 0.}}], 
     LineBox[CompressedData["
1:eJw1lHtUjHkcxmemRO3WSslB2tXB6qSL5BK987xRm0tpjRQVK6HcQ4oKm1uy
0mX35KRa2cilow2rJusQnSX3rAqp7V4y6PdOTffJzrzvb77nvGf++n2f5/t8
njMT1+2QbZCIRKJ9mk/7K3IXH3VNLYaIjk1Q0n3V1Nvoc7LIs42ocT0fzhi9
zinBhKbVIXuriavzDO2UwoiN9gq+RlxLVVM1L/7BzawM48IQI0YmtzqqWFaG
5wG29mlrJzCN0eb5ng2PsdU3YcGO9Q7MTu268Gf4IzvfK0bfjRFUy3FneHHa
uAMyZmGD9sFLXIiICx+1bD2TfF8r8C96rh7/xjAlktE81mx4BdvuinWuXgnM
txo1uVUl9gTuM4hOz2RCN2qnCsn2VutblxQwGnHNwtdoe2SzsqjoPtOttat6
A5PgPLvVFysZqdYOU425skKP53PaGX7d0XdwTO64JEtVM8+eaqcG566Pz/kQ
biodzS/8Dw5O1kPV1yZJ+biC6lCyfF/IwJ9zpML99Vgnk5X7nfGWCnr1cHlQ
YJtbESw9k66dBry45yXKS90jFfQbkdX/8PcrTiek/PkNjTAuPDZqseKsVPDT
hK8GL27KPHBDKvBpRu4E5d6cdw+lgr9m1B5wD7rnUisV8m2BurPGek0rR/22
YsGUNfWRLcNQrLUnbwUb1fA06OY4CP7bUPQTd6txpiPtwXvI7y5eGZCwAAL/
9wizinLp9PaHwKcdbYtmtruEbcFHrT1FO6oSr9elZB6EwOsDLoitWyJLUsDX
ZYYCXKU4MH5ODgR+Clj80v2ypuwGYrTnRn/Ei0P75z8Tl0Lg+QlSH6tlgQXl
EPr1CRfy889HL6+GwPcz9FJjWladagQfn1EHbK72ZczNboPAuwNe05zS+ksU
EPIiSPVwO5xY9pnqEXR5GZ6u3kYg5Eewb896u23jOarPIea3Zy3+xzkIeXJY
FLx1Q9wjjvrhEPfqbffmTxyEfJVwS55tVqPmqD8ldj84lREvVoKvg1yJFX7G
sbmDHPXbiagdoUkBSo7m3wl5nO/p/c0c9d8J/SMRkXEVHOXRhYAQmVpWykHo
VxfUGS8sDl3jKJ8uTOze7nX+LAehb12Yrm/+5FUiR3mpoE7adjkmloPQPxUM
zriYHN/CUX4qXBmu9J8XyEHoYzcsT/dVHV7CUZ7dmJfivTHClYPQz24s1E/b
Y2HPUb49aDYsUC39joPQ1x7U7z7JeJhxlHcP0ipVu+4YcJRHL2ItG3yU/YTy
6IXcQX45s0PHoxfGS6TXSDOhPPqgKIu1llcTyqMPxcGmkSYvCeXRhx/sNn1d
85BQHv0waQ17MPYuoTz6YeZokVZRSGj/+9HDNpk35RPKYwCH7pW67bxIKI8B
ZI1+MshkE8pjAI4msyTH0gnlMQj/8JH7xb8SymMQfzWoEhUnCeUxCMngCMmI
eEJ5DOLNuVyHg3GE8lCjLmCYj0MsoTzUeGew0dc6ilAealRN3npw5S5CeQxh
kqRdUazpq8BjCCXtXF/oJkJ5DKH+1pi3dhsI5fEFVl11KzyCCeXxBScsszaF
rSaUxxd4GB6e/m4VAR+/uYi19E1oW+FHwMfLiNissWZKi+UEfHwbRez2g1Z+
zT4EfDxJItbceN6u916E9lvEThGN8dFbrPMjYjPtnbLdPHX5itmVjnlcjrvO
n5gNfczaWczX5S1mV7V/qZFD51fMfl+XOCKQ0eUvZt0iWlxnzdP5F7O9nLOj
gYuOh4S9sdb5oulsQvslYRud/15rMlPHR8KKPW2s58/Q9U3C+kdf6tk8nYBf
lyNhzXv2dt11IODr91TCpsUafzazJ+DrpZKw3qaG8UemEfDnWumxwSW1t8W2
BLw9Tz0223bayBM2BPy6cD3Wbnnlz3aa/x0eb7oeW57ZvPfJFAI+vvt6rOjH
ooHkyQT8uQo9tmRprY37JIL/AbOgpKY=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox[
     FractionBox["\[Omega]", 
      SqrtBox["\"<\\!\\(\\*SubscriptBox[\\(O\\), \\(2\\)]\\)>\""]], 
     TraditionalForm], 
    FormBox[
     RowBox[{"Re", "(", "\[Sigma]", ")"}], TraditionalForm]},
  PlotRange->{{0, 2.5}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  RotateLabel->False]], "Output",
 CellChangeTimes->{
  3.443463287892744*^9, 3.443463338841833*^9, {3.443463374679296*^9, 
   3.443463412848701*^9}, 3.443463859213005*^9, 3.443464047260706*^9, 
   3.443465081563551*^9, 3.443465126484118*^9, 3.4434651954990788`*^9, 
   3.443465297470155*^9, 3.443550830457502*^9}]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{640, 690},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 92, 1, 27, "Input"],
Cell[663, 24, 98, 1, 27, "Input"],
Cell[764, 27, 115, 1, 76, "Title"],
Cell[882, 30, 148, 2, 46, "Subtitle"],
Cell[1033, 34, 129, 1, 46, "Subtitle"],
Cell[1165, 37, 184, 2, 26, "Text"],
Cell[CellGroupData[{
Cell[1374, 43, 1114, 31, 43, "Input"],
Cell[2491, 76, 1069, 31, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3597, 112, 733, 20, 27, "Input"],
Cell[4333, 134, 697, 19, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5067, 158, 1067, 30, 43, "Input"],
Cell[6137, 190, 1061, 31, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7235, 226, 400, 10, 27, "Input"],
Cell[7638, 238, 402, 10, 44, "Output"]
}, Open  ]],
Cell[8055, 251, 1448, 34, 59, "Text"],
Cell[CellGroupData[{
Cell[9528, 289, 205, 5, 27, "Input"],
Cell[9736, 296, 184, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9957, 305, 6215, 153, 298, "Input"],
Cell[16175, 460, 3180, 95, 147, "Output"]
}, Open  ]],
Cell[19370, 558, 214, 4, 34, "Subsection"],
Cell[19587, 564, 623, 22, 27, "Text"],
Cell[CellGroupData[{
Cell[20235, 590, 611, 19, 27, "Input"],
Cell[20849, 611, 667, 22, 30, "Output"]
}, Open  ]],
Cell[21531, 636, 256, 5, 26, "Text"],
Cell[CellGroupData[{
Cell[21812, 645, 657, 21, 27, "Input"],
Cell[22472, 668, 658, 22, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23167, 695, 815, 20, 73, "Input"],
Cell[23985, 717, 9468, 246, 361, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33490, 968, 1248, 35, 73, "Input"],
Cell[34741, 1005, 2259, 69, 159, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37037, 1079, 284, 9, 27, "Input"],
Cell[37324, 1090, 1649, 53, 120, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39010, 1148, 266, 8, 27, "Input"],
Cell[39279, 1158, 1279, 41, 80, "Output"]
}, Open  ]],
Cell[40573, 1202, 207, 4, 49, "Subsection"],
Cell[40783, 1208, 454, 7, 68, "Text"],
Cell[CellGroupData[{
Cell[41262, 1219, 157, 3, 27, "Input"],
Cell[41422, 1224, 164, 3, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41623, 1232, 160, 3, 27, "Input"],
Cell[41786, 1237, 167, 3, 45, "Output"]
}, Open  ]],
Cell[41968, 1243, 283, 5, 41, "Text"],
Cell[42254, 1250, 2237, 57, 148, "Input"],
Cell[44494, 1309, 2239, 57, 148, "Input"],
Cell[46736, 1368, 141, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[46902, 1373, 408, 10, 21, "Input"],
Cell[47313, 1385, 608, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47958, 1402, 465, 11, 27, "Input"],
Cell[48426, 1415, 611, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49074, 1432, 700, 18, 58, "Input"],
Cell[49777, 1452, 2108, 57, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51922, 1514, 1079, 31, 58, "Input"],
Cell[53004, 1547, 981, 30, 84, "Output"]
}, Open  ]],
Cell[54000, 1580, 619, 13, 29, "Text"],
Cell[54622, 1595, 1337, 39, 117, "Input"],
Cell[55962, 1636, 392, 6, 56, "Text"],
Cell[CellGroupData[{
Cell[56379, 1646, 486, 12, 27, "Input"],
Cell[56868, 1660, 3066, 83, 109, "Output"]
}, Open  ]],
Cell[59949, 1746, 1071, 30, 73, "Input"],
Cell[CellGroupData[{
Cell[61045, 1780, 406, 8, 27, "Input"],
Cell[61454, 1790, 697, 14, 43, "Output"]
}, Open  ]],
Cell[62166, 1807, 180, 4, 26, "Text"],
Cell[62349, 1813, 789, 21, 58, "Input"],
Cell[63141, 1836, 178, 4, 26, "Text"],
Cell[63322, 1842, 747, 20, 58, "Input"],
Cell[CellGroupData[{
Cell[64094, 1866, 234, 5, 27, "Input"],
Cell[64331, 1873, 344, 10, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64712, 1888, 185, 4, 27, "Input"],
Cell[64900, 1894, 324, 10, 45, "Output"]
}, Open  ]],
Cell[65239, 1907, 561, 9, 71, "Text"],
Cell[CellGroupData[{
Cell[65825, 1920, 1682, 39, 88, "Input"],
Cell[67510, 1961, 1393, 23, 299, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68940, 1989, 1109, 30, 88, "Input"],
Cell[70052, 2021, 1365, 23, 299, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71454, 2049, 107, 1, 67, "Section"],
Cell[71564, 2052, 289, 5, 41, "Text"],
Cell[CellGroupData[{
Cell[71878, 2061, 68526, 1900, 7453, "Input"],
Cell[140407, 3963, 84504, 2323, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224948, 6291, 51671, 1423, 5698, "Input"],
Cell[276622, 7716, 63347, 1712, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[339996, 9432, 105, 1, 37, "Section"],
Cell[340104, 9435, 201, 4, 23, "Text"],
Cell[CellGroupData[{
Cell[340330, 9443, 467, 13, 27, "Input"],
Cell[340800, 9458, 227, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341064, 9466, 2027, 54, 103, "Input"],
Cell[343094, 9522, 4318, 80, 261, "Output"]
}, Open  ]],
Cell[347427, 9605, 163, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[347615, 9612, 413, 12, 27, "Input"],
Cell[348031, 9626, 155, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[348223, 9633, 2084, 57, 118, "Input"],
Cell[350310, 9692, 3433, 67, 255, "Output"]
}, Open  ]],
Cell[353758, 9762, 101, 1, 67, "Section"],
Cell[353862, 9765, 218, 2, 23, "Text"],
Cell[CellGroupData[{
Cell[354105, 9771, 723, 23, 27, "Input"],
Cell[354831, 9796, 642, 21, 41, "Output"]
}, Open  ]],
Cell[355488, 9820, 794, 21, 58, "Input"],
Cell[356285, 9843, 643, 18, 58, "Input"],
Cell[356931, 9863, 335, 10, 27, "Input"],
Cell[357269, 9875, 299, 6, 41, "Text"],
Cell[357571, 9883, 416, 13, 27, "Input"],
Cell[CellGroupData[{
Cell[358012, 9900, 234, 5, 27, "Input"],
Cell[358249, 9907, 1003, 33, 57, "Output"]
}, Open  ]],
Cell[359267, 9943, 156, 3, 26, "Text"],
Cell[359426, 9948, 1493, 42, 103, "Input"],
Cell[360922, 9992, 226, 4, 41, "Text"],
Cell[361151, 9998, 574, 17, 27, "Input"],
Cell[361728, 10017, 105, 1, 67, "Section"],
Cell[361836, 10020, 196, 4, 23, "Text"],
Cell[362035, 10026, 1666, 44, 118, "Input"],
Cell[CellGroupData[{
Cell[363726, 10074, 135, 2, 27, "Input"],
Cell[363864, 10078, 126, 2, 27, "Output"]
}, Open  ]],
Cell[364005, 10083, 113, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[364143, 10088, 1632, 50, 73, "Input"],
Cell[365778, 10140, 493, 10, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[366308, 10155, 590, 12, 58, "Input"],
Cell[366901, 10169, 6628, 122, 257, "Output"]
}, Open  ]],
Cell[373544, 10294, 1715, 45, 118, "Input"],
Cell[CellGroupData[{
Cell[375284, 10343, 184, 3, 27, "Input"],
Cell[375471, 10348, 146, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[375654, 10355, 1679, 50, 73, "Input"],
Cell[377336, 10407, 471, 9, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377844, 10421, 637, 12, 58, "Input"],
Cell[378484, 10435, 6204, 115, 257, "Output"]
}, Open  ]],
Cell[384703, 10553, 105, 1, 67, "Section"],
Cell[384811, 10556, 2045, 52, 112, "Input"],
Cell[CellGroupData[{
Cell[386881, 10612, 1827, 52, 73, "Input"],
Cell[388711, 10666, 662, 12, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[389410, 10683, 833, 15, 58, "Input"],
Cell[390246, 10700, 9524, 169, 260, "Output"]
}, Open  ]],
Cell[399785, 10872, 2412, 59, 118, "Input"],
Cell[CellGroupData[{
Cell[402222, 10935, 184, 3, 27, "Input"],
Cell[402409, 10940, 194, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402640, 10948, 1884, 53, 73, "Input"],
Cell[404527, 11003, 547, 10, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405111, 11018, 738, 14, 58, "Input"],
Cell[405852, 11034, 8938, 160, 266, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)