PowerMaxwell.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    321313,       8059]
NotebookOptionsPosition[    317732,       7997]
NotebookOutlinePosition[    318092,       8013]
CellTagsIndexPosition[    318049,       8010]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"initialSeedPoly", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Expand", "[", 
    RowBox[{"exp", "/.", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{"x", "-", 
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"exp", ",", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Exponent", "[", 
                RowBox[{"exp", ",", "x"}], "]"}], "-", "1"}], ")"}]}]}], 
           "]"}], "/", 
          RowBox[{"Exponent", "[", 
           RowBox[{"exp", ",", "x"}], "]"}]}]}], ")"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"stageTwoSeedPoly", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"Exponent", "[", 
       RowBox[{"exp", ",", "x"}], "]"}]}], "+", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Abs", "[", 
          RowBox[{"Coefficient", "[", 
           RowBox[{"exp", ",", 
            RowBox[{"x", "^", "i"}]}], "]"}], "]"}]}], 
        RowBox[{"x", "^", "i"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{
          RowBox[{"Exponent", "[", 
           RowBox[{"exp", ",", "x"}], "]"}], "-", "2"}]}], "}"}]}], "]"}], 
     "-", 
     RowBox[{"Abs", "[", 
      RowBox[{"exp", "-", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Coefficient", "[", 
           RowBox[{"exp", ",", 
            RowBox[{"x", "^", "i"}]}], "]"}], 
          RowBox[{"x", "^", "i"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Exponent", "[", 
            RowBox[{"exp", ",", "x"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"initialSeed", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "exp1", ",", "i", ",", "c1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "=", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"n", " ", "=", 
       RowBox[{"Exponent", "[", 
        RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"c1", "=", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"exp", ",", 
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"exp1", "=", 
       RowBox[{"stageTwoSeedPoly", "[", 
        RowBox[{
         RowBox[{"initialSeedPoly", "[", 
          RowBox[{"exp", ",", "x"}], "]"}], ",", "x"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"While", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Not", "[", 
         RowBox[{"And", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"exp1", "/.", 
              RowBox[{"x", "\[Rule]", "i"}]}], ")"}], "\[LessEqual]", "0"}], 
           ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"exp1", "/.", 
              RowBox[{"x", "\[Rule]", 
               RowBox[{"i", "+", "1"}]}]}], ")"}], "\[GreaterEqual]", "0"}]}],
           "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"i", "=", 
          RowBox[{"i", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "c1"}], "/", "n"}], "+", 
          RowBox[{
           RowBox[{"Round", "[", 
            RowBox[{"i", "+", "1"}], "]"}], 
           RowBox[{"Exp", "[", 
            RowBox[{"I", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{"Pi", "/", "n"}], "*", 
                RowBox[{"(", 
                 RowBox[{"k", "-", "1"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"Pi", "/", "2"}], "/", "n"}]}], ")"}]}], "]"}]}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PACARootFinder", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"If", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Exponent", "[", 
       RowBox[{"exp", ",", "x"}], "]"}], "\[Equal]", "1"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"exp", "-", 
         RowBox[{"x", " ", 
          RowBox[{"Coefficient", "[", 
           RowBox[{"exp", ",", "x"}], "]"}]}]}], ")"}]}], "/", 
      RowBox[{"Coefficient", "[", 
       RowBox[{"exp", ",", "x"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n1", ",", "z", ",", "z1", ",", "i", ",", "flag"}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"n1", "=", 
         RowBox[{"Exponent", "[", 
          RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"z", " ", "=", 
         RowBox[{"N", "[", 
          RowBox[{"initialSeed", "[", 
           RowBox[{"exp", ",", "x"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{"True", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"z1", " ", "=", " ", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"z", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"exp", "/.", 
                  RowBox[{"x", "\[Rule]", 
                   RowBox[{"z", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"exp", "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"z", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}], "*", 
                   RowBox[{"Sum", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"k", "\[NotEqual]", "i"}], ",", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"z", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "-", 
                    RowBox[{"z", "[", 
                    RowBox[{"[", "k", "]"}], "]"}]}], ")"}]}], ",", "0"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", "1", ",", "n1"}], "}"}]}], "]"}]}], "-", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"exp", ",", "x"}], "]"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"z", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}]}], ")"}]}]}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "n1"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "n1"}], ",", 
             RowBox[{"i", "++"}], ",", 
             RowBox[{"flag", "=", 
              RowBox[{"And", "[", 
               RowBox[{"flag", ",", 
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{
                   RowBox[{"z", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "-", 
                   RowBox[{"z1", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "<", "0.01"}]}], 
               "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"flag", ",", 
             RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "n1"}], ",", 
             RowBox[{"i", "++"}], ",", 
             RowBox[{
              RowBox[{"z", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "=", 
              RowBox[{"z1", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"Round", "[", 
          RowBox[{"z1", ",", "0.000001"}], "]"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NewPACARootFinder", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "n", ",", "cp", ",", "exp1", ",", "exp2", ",", "exp3", ",", "c0"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"n", "=", 
       RowBox[{"Exponent", "[", 
        RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"cp", "=", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"exp", ",", 
         RowBox[{"x", "^", "n"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"exp1", "=", 
       RowBox[{"N", "[", 
        RowBox[{"Expand", "[", 
         RowBox[{"exp", "/", "cp"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"c0", "=", 
       RowBox[{"exp1", "/.", 
        RowBox[{"x", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Refining", " ", "the", " ", "coefficients"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"exp2", "=", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", "c0", "]"}], "<", "0.01"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Sign", "[", 
             RowBox[{"Re", "[", "c0", "]"}], "]"}], "0.01"}], "+", 
           RowBox[{"I", " ", 
            RowBox[{"Sign", "[", 
             RowBox[{"Im", "[", "c0", "]"}], "]"}], "0.01"}]}], ",", 
          RowBox[{"Round", "[", 
           RowBox[{"c0", ",", "0.01"}], "]"}]}], "]"}], "+", 
        RowBox[{"Sum", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"Coefficient", "[", 
                RowBox[{"exp1", ",", 
                 RowBox[{"x", "^", "i"}]}], "]"}], "]"}], "<", "0.01"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Sign", "[", 
                RowBox[{"Re", "[", 
                 RowBox[{"Coefficient", "[", 
                  RowBox[{"exp1", ",", 
                   RowBox[{"x", "^", "i"}]}], "]"}], "]"}], "]"}], "0.01"}], 
              "+", 
              RowBox[{"I", " ", 
               RowBox[{"Sign", "[", 
                RowBox[{"Im", "[", 
                 RowBox[{"Coefficient", "[", 
                  RowBox[{"exp1", ",", 
                   RowBox[{"x", "^", "i"}]}], "]"}], "]"}], "]"}], "0.01"}]}],
              ",", 
             RowBox[{"Round", "[", 
              RowBox[{
               RowBox[{"Coefficient", "[", 
                RowBox[{"exp1", ",", 
                 RowBox[{"x", "^", "i"}]}], "]"}], " ", ",", "0.01"}], 
              "]"}]}], "]"}], "*", 
           RowBox[{"x", "^", "i"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"cp", "=", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"exp2", ",", 
         RowBox[{"x", "^", "n"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"exp3", "=", 
       RowBox[{"N", "[", 
        RowBox[{"Expand", "[", 
         RowBox[{"exp2", "/", "cp"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"PACARootFinder", "[", 
        RowBox[{"exp3", ",", "x"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xp", "[", 
    RowBox[{"exp_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "exp1", ",", "n", ",", "slnroot", ",", "i", ",", "m", ",", "r", ",", 
       "im"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"exp1", "=", 
       RowBox[{"Numerator", "[", 
        RowBox[{"Together", "[", "exp", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"n", "=", 
       RowBox[{"Exponent", "[", 
        RowBox[{"exp1", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"slnroot", " ", "=", " ", 
       RowBox[{"NewPACARootFinder", "[", 
        RowBox[{"exp1", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"m", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "n"}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"r", "=", 
          RowBox[{"Re", "[", 
           RowBox[{"slnroot", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"im", "=", 
          RowBox[{"Abs", "[", 
           RowBox[{"Im", "[", 
            RowBox[{"slnroot", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"im", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "3"}], ")"}]}]}], "&&", 
            RowBox[{"m", "<", "r"}]}], ",", 
           RowBox[{"m", " ", "=", "r"}]}], "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "m", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"padZero", "[", 
    RowBox[{"S_", ",", "j_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "l", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "S", "]"}], "<", 
         RowBox[{"j", "+", "2"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "=", "S"}], ";", "\[IndentingNewLine]", 
           RowBox[{"l", "=", 
            RowBox[{"Length", "[", "S", "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"k", "=", "1"}], ",", 
             RowBox[{"k", "\[LessEqual]", 
              RowBox[{"j", "+", "2", "-", "l"}]}], ",", 
             RowBox[{"k", "++"}], ",", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"y", ",", "0"}], "]"}]}], "]"}], ";"}], 
          "\[IndentingNewLine]", ",", "1"}], "]"}]}], "\[IndentingNewLine]", 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "y", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"aExpression", "[", 
    RowBox[{
    "n_", ",", "exp_", ",", "x_", ",", "W_", ",", "\[Omega]_", ",", 
     "\[Beta]_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "S", ",", "T", ",", "U", ",", "S1", ",", "T1", ",", "U1", ",", "F", ",",
        "k", ",", "root", ",", "dexp", ",", "p", ",", "q", ",", "r", ",", 
       "R"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"root", " ", "=", 
       RowBox[{"xp", "[", 
        RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dexp", "=", 
       RowBox[{"D", "[", 
        RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"R", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"S", "=", 
       RowBox[{"N", "[", 
        RowBox[{"CoefficientList", "[", 
         RowBox[{
          RowBox[{"Series", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "^", "4"}], " ", "exp"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "root", ",", "n"}], "}"}]}], "]"}], ",", "x"}],
          "]"}], "]"}]}], ";", 
      RowBox[{"S1", "=", 
       RowBox[{"padZero", "[", 
        RowBox[{"S", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"T", "=", 
       RowBox[{"N", "[", 
        RowBox[{"CoefficientList", "[", 
         RowBox[{
          RowBox[{"Series", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "exp", " ", "root", " ", 
              SuperscriptBox["x", "3"]}], "+", 
             RowBox[{"2", " ", "exp", " ", 
              SuperscriptBox["x", "4"]}], "-", 
             RowBox[{"dexp", " ", "root", " ", 
              SuperscriptBox["x", "4"]}], "+", 
             RowBox[{"dexp", " ", 
              SuperscriptBox["x", "5"]}], "-", 
             RowBox[{
             "2", " ", "\[ImaginaryI]", " ", "root", " ", "x", " ", 
              "\[Omega]"}], "+", 
             RowBox[{"2", " ", "\[ImaginaryI]", " ", 
              SuperscriptBox["x", "2"], " ", "\[Omega]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "root", ",", "n"}], "}"}]}], "]"}], ",", "x"}],
          "]"}], "]"}]}], ";", 
      RowBox[{"T1", "=", 
       RowBox[{"padZero", "[", 
        RowBox[{"T", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"U", "=", 
       RowBox[{"N", "[", 
        RowBox[{"CoefficientList", "[", 
         RowBox[{
          RowBox[{"Series", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["root", "2"]}], " ", "W"}], "-", 
             RowBox[{
              SuperscriptBox["root", "2"], " ", 
              SuperscriptBox["W", "2"]}], "+", 
             RowBox[{"2", " ", "root", " ", "W", " ", "x"}], "+", 
             RowBox[{"2", " ", "root", " ", 
              SuperscriptBox["W", "2"], " ", "x"}], "-", 
             RowBox[{"W", " ", 
              SuperscriptBox["x", "2"]}], "-", 
             RowBox[{
              SuperscriptBox["W", "2"], " ", 
              SuperscriptBox["x", "2"]}], "+", 
             RowBox[{"dexp", " ", 
              SuperscriptBox["root", "2"], " ", 
              SuperscriptBox["x", "5"], " ", "\[Beta]"}], "-", 
             RowBox[{"2", " ", "dexp", " ", "root", " ", 
              SuperscriptBox["x", "6"], " ", "\[Beta]"}], "+", 
             RowBox[{"dexp", " ", 
              SuperscriptBox["x", "7"], " ", "\[Beta]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "root", ",", "n"}], "}"}]}], "]"}], ",", "x"}],
          "]"}], "]"}]}], ";", 
      RowBox[{"U1", "=", 
       RowBox[{"padZero", "[", 
        RowBox[{"U", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"q", "=", 
       RowBox[{"S1", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", 
      RowBox[{"r", "=", 
       RowBox[{"T1", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"F", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"l", 
             RowBox[{"(", 
              RowBox[{"l", "-", "1"}], ")"}], 
             RowBox[{"S1", "[", 
              RowBox[{"[", 
               RowBox[{"k", "-", "l", "+", "1"}], "]"}], "]"}]}], "+", 
            RowBox[{"l", " ", 
             RowBox[{"T1", "[", 
              RowBox[{"[", 
               RowBox[{"k", "-", "l", "+", "1"}], "]"}], "]"}]}], "+", 
            RowBox[{"U1", "[", 
             RowBox[{"[", 
              RowBox[{"k", "-", "l", "+", "1"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "1", ",", 
             RowBox[{"k", "-", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"p", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"k", "*", 
             RowBox[{"(", 
              RowBox[{"k", "-", "1"}], ")"}], "q"}], "+", 
            RowBox[{"k", " ", "r"}]}], " ", ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "2", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "2"}], ",", 
        RowBox[{"k", "\[LessEqual]", 
         RowBox[{"n", "+", "1"}]}], ",", 
        RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"R", "[", 
           RowBox[{"[", "k", "]"}], "]"}], "=", " ", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"R", "[", 
              RowBox[{"[", "l", "]"}], "]"}], 
             RowBox[{
              RowBox[{"F", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "1", ",", 
              RowBox[{"k", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"R", "[", 
           RowBox[{"[", "k", "]"}], "]"}], "=", 
          RowBox[{"Simplify", "[", 
           RowBox[{
            RowBox[{"p", " ", "[", 
             RowBox[{"[", 
              RowBox[{"k", "-", "1"}], "]"}], "]"}], 
            RowBox[{"R", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "R", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PACAGetModes", "[", 
    RowBox[{"m_", ",", "exp_", ",", "x_", ",", "W_", ",", "\[Beta]_"}], "]"}],
    ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "exp1", ",", "CoeffList", ",", "RootCalc", ",", "\[Omega]", ",", "s", 
       ",", "root", ",", "r"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"root", "=", 
       RowBox[{"xp", "[", 
        RowBox[{"exp", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"CoeffList", "=", 
       RowBox[{"aExpression", "[", 
        RowBox[{
        "m", ",", "exp", ",", "x", ",", "W", ",", "\[Omega]", ",", 
         "\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"RootCalc", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"-", "root"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"exp1", "=", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"CoeffList", "[", 
           RowBox[{"[", "n", "]"}], "]"}], 
          RowBox[{"RootCalc", "[", 
           RowBox[{"[", "n", "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "1", ",", 
           RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"s", "=", 
       RowBox[{"Numerator", "[", 
        RowBox[{"Together", "[", "exp1", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"r", "=", 
       RowBox[{"NewPACARootFinder", "[", 
        RowBox[{"s", ",", "\[Omega]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "r", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PACAPlotModes", "[", 
    RowBox[{"m_", ",", "exp_", ",", "x_", ",", "W_", ",", "\[Beta]_"}], "]"}],
    ":=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Tooltip", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Re", "[", "#1", "]"}], ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"Im", "[", "#1", "]"}], "]"}]}], "}"}], "]"}], "&"}], 
       ")"}], "/@", 
      RowBox[{"PACAGetModes", "[", 
       RowBox[{"m", ",", "exp", ",", "x", ",", "W", ",", "\[Beta]"}], "]"}]}],
      ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Re", "[", "\[Omega]", "]"}], ",", 
        RowBox[{"Im", "[", "\[Omega]", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PACATableModes", "[", 
    RowBox[{"m_", ",", "exp_", ",", "x_", ",", "W_", ",", "\[Beta]_"}], "]"}],
    ":=", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"modes", ",", "rearrange"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"modes", "=", 
       RowBox[{"PACAGetModes", "[", 
        RowBox[{"m", ",", "exp", ",", "x", ",", "W", ",", "\[Beta]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rearrange", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Re", "[", 
            RowBox[{"modes", "[", 
             RowBox[{"[", "k", "]"}], "]"}], "]"}], ",", 
           RowBox[{"Im", "[", 
            RowBox[{"modes", "[", 
             RowBox[{"[", "k", "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"TableForm", "[", 
        RowBox[{"rearrange", ",", 
         RowBox[{"TableHeadings", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Range", "[", "m", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"\"\<\[Omega]R\>\"", ",", "\"\<\[Omega]I\>\""}], "}"}]}],
            "}"}]}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PACAShowModes", "[", 
   RowBox[{"m_", ",", "exp_", ",", "x_", ",", "W_", ",", "\[Beta]_"}], "]"}], 
  ":=", 
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"PACAPlotModes", "[", 
       RowBox[{"m", ",", "exp", ",", "x", ",", "W", ",", "\[Beta]"}], "]"}], 
      ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], ",", "\"\<\\t\>\"", 
    ",", 
    RowBox[{"PACATableModes", "[", 
     RowBox[{"m", ",", "exp", ",", "x", ",", "W", ",", "\[Beta]"}], "]"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.7479956677056265`*^9, 3.747995669081092*^9}, {
   3.747995811258122*^9, 3.7479958830640574`*^9}, {3.747995954024107*^9, 
   3.7479959574484577`*^9}, {3.7480654741684217`*^9, 3.748065482115373*^9}, {
   3.748065539646758*^9, 3.7480655535890036`*^9}, {3.748065624984759*^9, 
   3.748065663373028*^9}, {3.7480660059670153`*^9, 3.7480660147756824`*^9}, {
   3.7480661510853963`*^9, 3.748066155551302*^9}, 3.748066380082491*^9, {
   3.7480666359896803`*^9, 3.748066655554598*^9}, {3.748071926589321*^9, 
   3.748072002763335*^9}, {3.7480720577505646`*^9, 3.7480722115097075`*^9}, {
   3.748072253221504*^9, 3.7480722691887827`*^9}, 3.748072318221156*^9, {
   3.7480723710916195`*^9, 3.748072371251828*^9}, {3.748072656540738*^9, 
   3.748072665953963*^9}, {3.748072755393999*^9, 3.748072755766926*^9}, {
   3.7480728054568367`*^9, 3.748072810890885*^9}, {3.748072848883874*^9, 
   3.748072881663124*^9}, {3.748072916216039*^9, 3.748072919508706*^9}, {
   3.7480730010173407`*^9, 3.7480730012872176`*^9}, {3.748177794790053*^9, 
   3.7481777967498302`*^9}, {3.748177874688118*^9, 3.748177935541658*^9}, {
   3.748178748597484*^9, 3.74817875781947*^9}, {3.748178790525358*^9, 
   3.7481788286565332`*^9}, {3.748178913676752*^9, 3.7481789758304768`*^9}, {
   3.748179009778496*^9, 3.7481790178255043`*^9}, {3.748179249017932*^9, 
   3.748179249232643*^9}, {3.748179402669407*^9, 3.7481794301108627`*^9}, {
   3.748179599973359*^9, 3.748179602982753*^9}, 3.748179783732864*^9, {
   3.748179952666272*^9, 3.748179961245298*^9}, {3.748180033378443*^9, 
   3.74818005389123*^9}, {3.748180128053108*^9, 
   3.748180158208619*^9}},ExpressionUUID->"a369357d-e1fa-4e24-8a9a-\
54917c64fcf0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", 
  RowBox[{"PACAGetModes", "[", 
   RowBox[{"45", ",", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", 
      RowBox[{"x", "^", "2"}]}], "+", 
     RowBox[{"0.4", 
      RowBox[{"x", "^", "3"}]}]}], ",", "x", ",", "3", ",", "0"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7479981223507338`*^9, 3.74799812697971*^9}, {
  3.7480002852556524`*^9, 3.748000295322241*^9}, {3.748064460206732*^9, 
  3.748064538313831*^9}, {3.7480645733772173`*^9, 3.7480646090400853`*^9}, {
  3.748064740333645*^9, 3.748064748905307*^9}, {3.748065022649193*^9, 
  3.748065073801915*^9}, {3.7480722855911355`*^9, 3.74807228773105*^9}, {
  3.7480723315616484`*^9, 3.7480723319433737`*^9}, {3.7480731445301194`*^9, 
  3.7480731574201274`*^9}, {3.748177391173378*^9, 3.748177451522544*^9}, {
  3.748177487953827*^9, 3.7481774885959597`*^9}, {3.7481779755007973`*^9, 
  3.7481779762517843`*^9}, {3.7481789916766768`*^9, 3.748178991859045*^9}, {
  3.748179028642922*^9, 3.748179049512823*^9}, {3.748179106116782*^9, 
  3.7481791067112513`*^9}, {3.748179975525392*^9, 3.748179976826391*^9}, {
  3.7481801767794523`*^9, 
  3.748180182128538*^9}},ExpressionUUID->"6809bb40-3782-48a5-abd5-\
a9f7b5d4a825"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.9047249534026919`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.42441517563525344`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8838809491481375`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.35145061141931794`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8586001529450729`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.29804734965656465`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8337625186926103`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.23967256325379727`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.7618383507016774`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.11983185135785918`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.7150983464903394`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.06093147916485726`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6602572609386128`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.0023771037334278156`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5962917886042111`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.056337351347123275`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.43767981435128034`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.18192751273672503`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.056332083264969954`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.5962854212581182`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.17935849478074056`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8013922071308236`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8013922071308236`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.17935849478074056`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5222004219448885`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.11667167899460247`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.3459641515556391`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.2576047246492448`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.18192751273672503`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.43767981435128034`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.11667167899460247`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.5222004219448885`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.002361961025328594`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.6602564493133597`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.06093147916485726`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.7150983464903394`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.11983185135785918`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.7618383507016774`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.23967256325379727`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8337625186926103`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.29804823019504395`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8585992939214414`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.351446032692177`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8838853511033378`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.4244140458216275`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9047155808820153`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.4472495286112734`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9385297762154413`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.534762506785384`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9315696102081625`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5425624058172788`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.0870795574410521`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6733798274349126`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.2710367390426889`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5635012302510292`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8024871565915701`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9328400129745805`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.4775325681034632`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6406042911518224`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9293701403865571`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.2576047246492448`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.3459641515556391`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.3360018712561745`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.3360018712561745`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.6806308339430167`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.6806308339430167`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6391863835741999`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.7342467112263179`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2.451528094882863`", "\[VeryThinSpace]", "-", 
    RowBox[{"2.451528094882863`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.548623582411168`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.548623582411168`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.7070944067095991`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.7070944067095991`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.8024687573008117`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5634306580617611`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9295035637794239`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.6406753273528252`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.4775325681034632`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9328400129745805`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9318289478164684`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5347692848217321`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.2710370462085205`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.673379664702225`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.087085446345767`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5425631462390119`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9385763615820562`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.44725449860298877`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.734201847068316`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.6391770898886528`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.748073158120268*^9, 3.748176930823167*^9, {3.748177412520028*^9, 
   3.7481774895006638`*^9}, 3.7481778937675457`*^9, 3.748177942538415*^9, 
   3.7481779854255943`*^9, 3.748178764772537*^9, {3.748178796374896*^9, 
   3.748178815480734*^9}, {3.748178982427243*^9, 3.748179066182036*^9}, 
   3.748179125217141*^9, 3.748179254546884*^9, {3.748179439179587*^9, 
   3.748179442587529*^9}, {3.748179611789116*^9, 3.7481796150975847`*^9}, 
   3.7481797901398373`*^9, {3.748179969234589*^9, 3.7481799779956827`*^9}, 
   3.748180143020359*^9, {3.7481801733352203`*^9, 
   3.7481801851094503`*^9}},ExpressionUUID->"61351d80-c920-4a21-8296-\
26c46cbff528"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Tooltip", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Re", "[", "#1", "]"}], ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"Im", "[", "#1", "]"}], "]"}]}], "}"}], "]"}], "&"}], 
       ")"}], "/@", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"PACAGetModes", "[", 
        RowBox[{"21", ",", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"x", "^", "2"}]}], "+", 
          RowBox[{"0.1", " ", 
           RowBox[{"x", "^", "3"}]}]}], ",", "x", ",", "3", ",", "0"}], "]"}],
        "]"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Re", "[", "\[Omega]", "]"}], ",", 
        RowBox[{"Im", "[", "\[Omega]", "]"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Tooltip", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"Re", "[", "#1", "]"}]}], ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"Im", "[", "#1", "]"}], "]"}]}], "}"}], "]"}], "&"}], 
       ")"}], "/@", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"PACAGetModes", "[", 
        RowBox[{"21", ",", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"x", "^", "2"}]}], "+", 
          RowBox[{"0.1", " ", 
           RowBox[{"x", "^", "3"}]}]}], ",", "x", ",", "3", ",", "0"}], "]"}],
        "]"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Re", "[", "\[Omega]", "]"}], ",", 
        RowBox[{"Im", "[", "\[Omega]", "]"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7480646251673107`*^9, 
  3.7480647150226374`*^9}},ExpressionUUID->"b1e4d48a-7042-46b4-a56b-\
b7c4a09f0040"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQvWMdU2W89zv7p1tmHvDmfmx/cIXKTY0tr+xjioWe
p+96aD9F7/xdhowX9u7l+0+xtjywX1xe9PVg7DP7kmvqJWa779rHXRd/41v5
2P7V94hlnZG37Yv/OqVNkrtj3/44XfeazwO4OEwdTB/MHJi5MHtg9sLcAXMX
zJ3T+C467Il/ap+efd5B4vxHe5f0BlMO1Vf2DjMPXp668Kt99VfVu2k7PtnH
XlxcwLLnlz2XB2uhm/1zOH0lpXvZVeO/cPrpxdlyzs3MDjAa5m6YP2DmwMyF
2QOzF+YOmLsAsoyshQ==
        "]]}, {}}, {
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.9467007983671101, 0.5951288949705967}}]},
        RowBox[{"{", 
          RowBox[{"0.9467007983671101`", ",", "0.5951288949705967`"}], "}"}]],
       Annotation[#, {0.9467007983671101, 0.5951288949705967}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.8344921341970563, 0.5540046227575703}}]},
        RowBox[{"{", 
          RowBox[{"0.8344921341970563`", ",", "0.5540046227575703`"}], "}"}]],
       Annotation[#, {0.8344921341970563, 0.5540046227575703}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.762695725652025, 0.5161160430832091}}]},
        RowBox[{"{", 
          RowBox[{"0.762695725652025`", ",", "0.5161160430832091`"}], "}"}]],
       Annotation[#, {0.762695725652025, 0.5161160430832091}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.6989450258149542, 0.4645515570003689}}]},
        RowBox[{"{", 
          RowBox[{"0.6989450258149542`", ",", "0.4645515570003689`"}], "}"}]],
       Annotation[#, {0.6989450258149542, 0.4645515570003689}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.608557664031405, 0.4273399471747995}}]},
        RowBox[{"{", 
          RowBox[{"0.608557664031405`", ",", "0.4273399471747995`"}], "}"}]],
       Annotation[#, {0.608557664031405, 0.4273399471747995}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.43936595903865977`, 0.5093794714767775}}]},
        RowBox[{"{", 
          RowBox[{"0.43936595903865977`", ",", "0.5093794714767775`"}], "}"}]],
       Annotation[#, {0.43936595903865977`, 0.5093794714767775}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.4273399471747995, 0.608557664031405}}]},
        RowBox[{"{", 
          RowBox[{"0.4273399471747995`", ",", "0.608557664031405`"}], "}"}]],
       Annotation[#, {0.4273399471747995, 0.608557664031405}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.4645515570003689, 0.6989450258149542}}]},
        RowBox[{"{", 
          RowBox[{"0.4645515570003689`", ",", "0.6989450258149542`"}], "}"}]],
       Annotation[#, {0.4645515570003689, 0.6989450258149542}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.5161160430832091, 0.762695725652025}}]},
        RowBox[{"{", 
          RowBox[{"0.5161160430832091`", ",", "0.762695725652025`"}], "}"}]],
       Annotation[#, {0.5161160430832091, 0.762695725652025}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.5540046227575703, 0.8344921341970563}}]},
        RowBox[{"{", 
          RowBox[{"0.5540046227575703`", ",", "0.8344921341970563`"}], "}"}]],
       Annotation[#, {0.5540046227575703, 0.8344921341970563}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.5951288949705967, 0.9467007983671101}}]},
        RowBox[{"{", 
          RowBox[{"0.5951288949705967`", ",", "0.9467007983671101`"}], "}"}]],
       Annotation[#, {0.5951288949705967, 0.9467007983671101}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.6679364458036214, 1.1130602389955244`}}]},
        RowBox[{"{", 
          RowBox[{"0.6679364458036214`", ",", "1.1130602389955244`"}], "}"}]],
       Annotation[#, {0.6679364458036214, 1.1130602389955244`}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.8170205159142161, 1.3519495269516284`}}]},
        RowBox[{"{", 
          RowBox[{"0.8170205159142161`", ",", "1.3519495269516284`"}], "}"}]],
       Annotation[#, {0.8170205159142161, 1.3519495269516284`}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{1.1700199736218042`, 1.6709026718136422`}}]},
        RowBox[{"{", 
          RowBox[{"1.1700199736218042`", ",", "1.6709026718136422`"}], "}"}]],
       Annotation[#, {1.1700199736218042`, 1.6709026718136422`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.7264740188059033, 0.7264740188059033}}]},
        RowBox[{"{", 
          RowBox[{"0.7264740188059033`", ",", "0.7264740188059033`"}], "}"}]],
       Annotation[#, {0.7264740188059033, 0.7264740188059033}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{1.8251549249310317`, 1.8251549249310317`}}]},
        RowBox[{"{", 
          RowBox[{"1.8251549249310317`", ",", "1.8251549249310317`"}], "}"}]],
       Annotation[#, {1.8251549249310317`, 1.8251549249310317`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{2.4390928641607723`, 2.4390928641607723`}}]},
        RowBox[{"{", 
          RowBox[{"2.4390928641607723`", ",", "2.4390928641607723`"}], "}"}]],
       Annotation[#, {2.4390928641607723`, 2.4390928641607723`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{0.5093794714767775, 0.43936595903865977`}}]},
        RowBox[{"{", 
          RowBox[{"0.5093794714767775`", ",", "0.43936595903865977`"}], "}"}]],
       Annotation[#, {0.5093794714767775, 0.43936595903865977`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{1.6709026718136422`, 1.1700199736218042`}}]},
        RowBox[{"{", 
          RowBox[{"1.6709026718136422`", ",", "1.1700199736218042`"}], "}"}]],
       Annotation[#, {1.6709026718136422`, 1.1700199736218042`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{1.3519495269516284`, 0.8170205159142161}}]},
        RowBox[{"{", 
          RowBox[{"1.3519495269516284`", ",", "0.8170205159142161`"}], "}"}]],
       Annotation[#, {1.3519495269516284`, 0.8170205159142161}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{1.1130602389955244`, 0.6679364458036214}}]},
        RowBox[{"{", 
          RowBox[{"1.1130602389955244`", ",", "0.6679364458036214`"}], "}"}]],
       Annotation[#, {1.1130602389955244`, 0.6679364458036214}, 
        "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQvWMdU2W897v9T7fMPODN/dj+4AqVmxpbXu2PKRZ6
nr7rof0UvfN3GTJe7Hcv33+KteWB/eLyoq8HY5/tL7mmXmK2+6593HXxN76V
j/e/+h6xrDPytn3xX6e0SXJ39rc/Tte95vPAHiq+H6rOHqpvP9Qce6i5+6H2
2EPt3Q91hz3UXfuh7rSfxnfRYU/80/3p2ecdJM5/tHdJbzDlUH2132HmwctT
F361r/6qejdtx6f9sRcXF7Ds+WXP5cFa6Gb/fD+Utr+S0r3sqvHf/VDa/unF
2XLOzcwHoLQD1N37of6wh5qzH2quPdSe/VB77aHu2A91lz0AoXW3BQ==
        "]]}, {}}, {
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.9467007983671101, 0.5951288949705967}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.9467007983671101`"}], ",", 
            "0.5951288949705967`"}], "}"}]],
       Annotation[#, {-0.9467007983671101, 0.5951288949705967}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.8344921341970563, 0.5540046227575703}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.8344921341970563`"}], ",", 
            "0.5540046227575703`"}], "}"}]],
       Annotation[#, {-0.8344921341970563, 0.5540046227575703}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.762695725652025, 0.5161160430832091}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.762695725652025`"}], ",", "0.5161160430832091`"}],
           "}"}]],
       Annotation[#, {-0.762695725652025, 0.5161160430832091}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.6989450258149542, 0.4645515570003689}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.6989450258149542`"}], ",", 
            "0.4645515570003689`"}], "}"}]],
       Annotation[#, {-0.6989450258149542, 0.4645515570003689}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.608557664031405, 0.4273399471747995}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.608557664031405`"}], ",", "0.4273399471747995`"}],
           "}"}]],
       Annotation[#, {-0.608557664031405, 0.4273399471747995}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.43936595903865977`, 0.5093794714767775}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.43936595903865977`"}], ",", 
            "0.5093794714767775`"}], "}"}]],
       Annotation[#, {-0.43936595903865977`, 0.5093794714767775}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.4273399471747995, 0.608557664031405}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.4273399471747995`"}], ",", "0.608557664031405`"}],
           "}"}]],
       Annotation[#, {-0.4273399471747995, 0.608557664031405}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.4645515570003689, 0.6989450258149542}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.4645515570003689`"}], ",", 
            "0.6989450258149542`"}], "}"}]],
       Annotation[#, {-0.4645515570003689, 0.6989450258149542}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.5161160430832091, 0.762695725652025}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.5161160430832091`"}], ",", "0.762695725652025`"}],
           "}"}]],
       Annotation[#, {-0.5161160430832091, 0.762695725652025}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.5540046227575703, 0.8344921341970563}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.5540046227575703`"}], ",", 
            "0.8344921341970563`"}], "}"}]],
       Annotation[#, {-0.5540046227575703, 0.8344921341970563}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.5951288949705967, 0.9467007983671101}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.5951288949705967`"}], ",", 
            "0.9467007983671101`"}], "}"}]],
       Annotation[#, {-0.5951288949705967, 0.9467007983671101}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.6679364458036214, 1.1130602389955244`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.6679364458036214`"}], ",", 
            "1.1130602389955244`"}], "}"}]],
       Annotation[#, {-0.6679364458036214, 1.1130602389955244`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.8170205159142161, 1.3519495269516284`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.8170205159142161`"}], ",", 
            "1.3519495269516284`"}], "}"}]],
       Annotation[#, {-0.8170205159142161, 1.3519495269516284`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-1.1700199736218042`, 1.6709026718136422`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "1.1700199736218042`"}], ",", 
            "1.6709026718136422`"}], "}"}]],
       Annotation[#, {-1.1700199736218042`, 1.6709026718136422`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.7264740188059033, 0.7264740188059033}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.7264740188059033`"}], ",", 
            "0.7264740188059033`"}], "}"}]],
       Annotation[#, {-0.7264740188059033, 0.7264740188059033}, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-1.8251549249310317`, 1.8251549249310317`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "1.8251549249310317`"}], ",", 
            "1.8251549249310317`"}], "}"}]],
       Annotation[#, {-1.8251549249310317`, 1.8251549249310317`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-2.4390928641607723`, 2.4390928641607723`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "2.4390928641607723`"}], ",", 
            "2.4390928641607723`"}], "}"}]],
       Annotation[#, {-2.4390928641607723`, 2.4390928641607723`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-0.5093794714767775, 0.43936595903865977`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "0.5093794714767775`"}], ",", 
            "0.43936595903865977`"}], "}"}]],
       Annotation[#, {-0.5093794714767775, 0.43936595903865977`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-1.6709026718136422`, 1.1700199736218042`}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "1.6709026718136422`"}], ",", 
            "1.1700199736218042`"}], "}"}]],
       Annotation[#, {-1.6709026718136422`, 1.1700199736218042`}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-1.3519495269516284`, 0.8170205159142161}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "1.3519495269516284`"}], ",", 
            "0.8170205159142161`"}], "}"}]],
       Annotation[#, {-1.3519495269516284`, 0.8170205159142161}, 
        "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {Opacity[0.], PointBox[{{-1.1130602389955244`, 0.6679364458036214}}]},
        RowBox[{"{", 
          RowBox[{
            RowBox[{"-", "1.1130602389955244`"}], ",", 
            "0.6679364458036214`"}], "}"}]],
       Annotation[#, {-1.1130602389955244`, 0.6679364458036214}, 
        "Tooltip"]& ]}}, {}, {}, {}, {}}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     RowBox[{"Re", "(", "\[Omega]", ")"}], TraditionalForm], 
    FormBox[
     RowBox[{"Im", "(", "\[Omega]", ")"}], TraditionalForm]},
  AxesOrigin->{0., 0.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 2.4390928641607723`}, {0., 2.4390928641607723`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.748064649463789*^9, 3.7480646803278036`*^9, 
  3.7480647247060328`*^9, 3.7481769395770903`*^9, 3.7481791384961367`*^9, 
  3.7481792596677637`*^9, 3.748179446938573*^9, 3.748179617686145*^9, 
  3.748179981984374*^9},ExpressionUUID->"96b8c660-6240-471c-bd2c-\
be7065339a55"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"q1", "=", "0.1"}], ",", 
   RowBox[{"q1", "\[LessEqual]", "0.9"}], ",", 
   RowBox[{"q1", "=", 
    RowBox[{"q1", "+", "0.1"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Tooltip", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Re", "[", "#1", "]"}], ",", 
              RowBox[{"-", 
               RowBox[{"Im", "[", "#1", "]"}]}]}], "}"}], "]"}], "&"}], ")"}],
          "/@", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"PACAGetModes", "[", 
           RowBox[{"20", ",", 
            RowBox[{
             RowBox[{"1", "-", 
              RowBox[{"\[Mu]", " ", 
               RowBox[{"x", "^", "2"}]}], "+", 
              RowBox[{"Q", " ", 
               RowBox[{"x", "^", 
                RowBox[{"(", 
                 RowBox[{"2", "\[Beta]"}], ")"}]}]}]}], "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]", "\[Rule]", "2"}], ",", 
               RowBox[{"\[Beta]", "\[Rule]", 
                RowBox[{"3", "/", "2"}]}], ",", 
               RowBox[{"Q", "\[Rule]", "q1"}]}], "}"}]}], ",", "x", ",", "3", 
            ",", "0"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListPlot", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Tooltip", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Re", "[", "#1", "]"}]}], ",", 
              RowBox[{"-", 
               RowBox[{"Im", "[", "#1", "]"}]}]}], "}"}], "]"}], "&"}], ")"}],
          "/@", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"PACAGetModes", "[", 
           RowBox[{"20", ",", 
            RowBox[{
             RowBox[{"1", "-", 
              RowBox[{"\[Mu]", " ", 
               RowBox[{"x", "^", "2"}]}], "+", 
              RowBox[{"Q", " ", 
               RowBox[{"x", "^", 
                RowBox[{"(", 
                 RowBox[{"2", "\[Beta]"}], ")"}]}]}]}], "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"\[Mu]", "\[Rule]", "2"}], ",", 
               RowBox[{"\[Beta]", "\[Rule]", 
                RowBox[{"3", "/", "2"}]}], ",", 
               RowBox[{"Q", "\[Rule]", "q1"}]}], "}"}]}], ",", "x", ",", "3", 
            ",", "0"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "\[IndentingNewLine]", 
      "]"}], ",", "\"\<q=\>\"", ",", "q1"}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7480011218141165`*^9, 3.748001183661626*^9}, {
  3.7480012495646396`*^9, 3.7480012928163767`*^9}, {3.7480013831292906`*^9, 
  3.748001516173651*^9}, {3.7480016420799875`*^9, 3.7480017645267725`*^9}, {
  3.7480026995062857`*^9, 3.7480027618063717`*^9}, {3.7480028555469527`*^9, 
  3.7480028970317836`*^9}, {3.748002944584319*^9, 3.7480029898029804`*^9}, {
  3.7480031704028006`*^9, 
  3.748003174555026*^9}},ExpressionUUID->"12ebb14d-8866-478d-8d87-\
aaa88d88e04d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvU1j0/nEr6/t932/12lq9sR+T9tjlhubX9nzLZ2T
p2//2D7efWWM3dvn9q+khTJfujywT1z959fCVU/spzWt93kodc+eY8KfiNjm
h/arMuY93HvqHpyGiavMmmse0I6gYfpg5sDMhdkDcwfMXScuSxpFz31mr+/k
HM51/oP9nGiva8KLX9vn+/t7H876Yu8958UsPaA7Ww9451wHujvj+80lUwM/
2wfMPHHrOcdP+/hf6WYLy/7AaTm3PfFve5kdYPQ+qQP3MwJe2cNomD6YOTB7
YPbC3AFzFwD03KpN
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8737038666306691, 0.6316173260490741}}]},
          RowBox[{"{", 
            RowBox[{"0.8737038666306691`", ",", "0.6316173260490741`"}], 
            "}"}]],
         Annotation[#, {0.8737038666306691, 0.6316173260490741}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8344535918697242, 0.6014630470646425}}]},
          RowBox[{"{", 
            RowBox[{"0.8344535918697242`", ",", "0.6014630470646425`"}], 
            "}"}]],
         Annotation[#, {0.8344535918697242, 0.6014630470646425}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7477104005613276, 0.5084120800173626}}]},
          RowBox[{"{", 
            RowBox[{"0.7477104005613276`", ",", "0.5084120800173626`"}], 
            "}"}]],
         Annotation[#, {0.7477104005613276, 0.5084120800173626}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.6458291914071702, 0.47039062966181555`}}]},
          RowBox[{"{", 
            RowBox[{"0.6458291914071702`", ",", "0.47039062966181555`"}], 
            "}"}]],
         Annotation[#, {0.6458291914071702, 0.47039062966181555`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.547285722543621, 0.4811243727978175}}]},
          RowBox[{"{", 
            RowBox[{"0.547285722543621`", ",", "0.4811243727978175`"}], "}"}]],
         Annotation[#, {0.547285722543621, 0.4811243727978175}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4811243727978175, 0.547285722543621}}]},
          RowBox[{"{", 
            RowBox[{"0.4811243727978175`", ",", "0.547285722543621`"}], "}"}]],
         Annotation[#, {0.4811243727978175, 0.547285722543621}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5477677427523457, 0.5477677427523457}}]},
          RowBox[{"{", 
            RowBox[{"0.5477677427523457`", ",", "0.5477677427523457`"}], 
            "}"}]],
         Annotation[#, {0.5477677427523457, 0.5477677427523457}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.47039062966181555`, 0.6458291914071702}}]},
          RowBox[{"{", 
            RowBox[{"0.47039062966181555`", ",", "0.6458291914071702`"}], 
            "}"}]],
         Annotation[#, {0.47039062966181555`, 0.6458291914071702}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5084120800173626, 0.7477104005613276}}]},
          RowBox[{"{", 
            RowBox[{"0.5084120800173626`", ",", "0.7477104005613276`"}], 
            "}"}]],
         Annotation[#, {0.5084120800173626, 0.7477104005613276}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6316173260490741, 0.8737038666306691}}]},
          RowBox[{"{", 
            RowBox[{"0.6316173260490741`", ",", "0.8737038666306691`"}], 
            "}"}]],
         Annotation[#, {0.6316173260490741, 0.8737038666306691}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7067085245640721, 1.0505469711971605`}}]},
          RowBox[{"{", 
            RowBox[{"0.7067085245640721`", ",", "1.0505469711971605`"}], 
            "}"}]],
         Annotation[#, {0.7067085245640721, 1.0505469711971605`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8636569199905924, 1.2760651532925882`}}]},
          RowBox[{"{", 
            RowBox[{"0.8636569199905924`", ",", "1.2760651532925882`"}], 
            "}"}]],
         Annotation[#, {0.8636569199905924, 1.2760651532925882`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6014626527365946, 0.8344533076433583}}]},
          RowBox[{"{", 
            RowBox[{"0.6014626527365946`", ",", "0.8344533076433583`"}], 
            "}"}]],
         Annotation[#, {0.6014626527365946, 0.8344533076433583}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.2074181022175825`, 1.5646742387994728`}}]},
          RowBox[{"{", 
            RowBox[{"1.2074181022175825`", ",", "1.5646742387994728`"}], 
            "}"}]],
         Annotation[#, {1.2074181022175825`, 1.5646742387994728`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7789623379936967`, 1.7789623379936967`}}]},
          RowBox[{"{", 
            RowBox[{"1.7789623379936967`", ",", "1.7789623379936967`"}], 
            "}"}]],
         Annotation[#, {1.7789623379936967`, 1.7789623379936967`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{2.444300411160625, 2.444300411160625}}]},
          RowBox[{"{", 
            RowBox[{"2.444300411160625`", ",", "2.444300411160625`"}], "}"}]],
         Annotation[#, {2.444300411160625, 2.444300411160625}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8223156328320653, 0.8223156328320653}}]},
          RowBox[{"{", 
            RowBox[{"0.8223156328320653`", ",", "0.8223156328320653`"}], 
            "}"}]],
         Annotation[#, {0.8223156328320653, 0.8223156328320653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.5646742387994728`, 1.2074181022175825`}}]},
          RowBox[{"{", 
            RowBox[{"1.5646742387994728`", ",", "1.2074181022175825`"}], 
            "}"}]],
         Annotation[#, {1.5646742387994728`, 1.2074181022175825`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2760651532925882`, 0.8636569199905924}}]},
          RowBox[{"{", 
            RowBox[{"1.2760651532925882`", ",", "0.8636569199905924`"}], 
            "}"}]],
         Annotation[#, {1.2760651532925882`, 0.8636569199905924}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0505469711971605`, 0.7067085245640721}}]},
          RowBox[{"{", 
            RowBox[{"1.0505469711971605`", ",", "0.7067085245640721`"}], 
            "}"}]],
         Annotation[#, {1.0505469711971605`, 0.7067085245640721}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvU1j0/nEr6/37/t+r9PU7In9nrbHLDc2v9rPt3RO
nr79Y/t495Uxdm+f738lLZT50uWBfeLqP78Wrnqyf1rTep+HUvfsOSb8iYht
frh/Vca8h3tP3bOH0vuh4vYqs+aaB7Q/3A+l7aH69kPNsYeaux9qjz3UHfuh
7rI/cVnSKHrus/36Ts7hXOc/2M+J9romvPj1/nx/f+/DWV/svee8mKVn/3h/
6wHvnOubX9lnfL+5ZGrg5/0BM0/ces7x0z7+V7rZwrI/+6G0vZzbnvi3vcwH
oLTDPqkD9zMCXu2H0vZQffuh5thD7dkPtdce6o79UHfZAwA/RbRN
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8737038666306691, 0.6316173260490741}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8737038666306691`"}], ",", 
              "0.6316173260490741`"}], "}"}]],
         Annotation[#, {-0.8737038666306691, 0.6316173260490741}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8344535918697242, 0.6014630470646425}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8344535918697242`"}], ",", 
              "0.6014630470646425`"}], "}"}]],
         Annotation[#, {-0.8344535918697242, 0.6014630470646425}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7477104005613276, 0.5084120800173626}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7477104005613276`"}], ",", 
              "0.5084120800173626`"}], "}"}]],
         Annotation[#, {-0.7477104005613276, 0.5084120800173626}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.6458291914071702, 0.47039062966181555`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6458291914071702`"}], ",", 
              "0.47039062966181555`"}], "}"}]],
         Annotation[#, {-0.6458291914071702, 0.47039062966181555`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.547285722543621, 0.4811243727978175}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.547285722543621`"}], ",", 
              "0.4811243727978175`"}], "}"}]],
         Annotation[#, {-0.547285722543621, 0.4811243727978175}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4811243727978175, 0.547285722543621}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4811243727978175`"}], ",", 
              "0.547285722543621`"}], "}"}]],
         Annotation[#, {-0.4811243727978175, 0.547285722543621}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5477677427523457, 0.5477677427523457}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5477677427523457`"}], ",", 
              "0.5477677427523457`"}], "}"}]],
         Annotation[#, {-0.5477677427523457, 0.5477677427523457}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.47039062966181555`, 0.6458291914071702}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.47039062966181555`"}], ",", 
              "0.6458291914071702`"}], "}"}]],
         Annotation[#, {-0.47039062966181555`, 0.6458291914071702}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5084120800173626, 0.7477104005613276}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5084120800173626`"}], ",", 
              "0.7477104005613276`"}], "}"}]],
         Annotation[#, {-0.5084120800173626, 0.7477104005613276}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6316173260490741, 0.8737038666306691}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6316173260490741`"}], ",", 
              "0.8737038666306691`"}], "}"}]],
         Annotation[#, {-0.6316173260490741, 0.8737038666306691}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7067085245640721, 1.0505469711971605`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7067085245640721`"}], ",", 
              "1.0505469711971605`"}], "}"}]],
         Annotation[#, {-0.7067085245640721, 1.0505469711971605`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8636569199905924, 1.2760651532925882`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8636569199905924`"}], ",", 
              "1.2760651532925882`"}], "}"}]],
         Annotation[#, {-0.8636569199905924, 1.2760651532925882`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6014626527365946, 0.8344533076433583}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6014626527365946`"}], ",", 
              "0.8344533076433583`"}], "}"}]],
         Annotation[#, {-0.6014626527365946, 0.8344533076433583}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2074181022175825`, 1.5646742387994728`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2074181022175825`"}], ",", 
              "1.5646742387994728`"}], "}"}]],
         Annotation[#, {-1.2074181022175825`, 1.5646742387994728`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7789623379936967`, 1.7789623379936967`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7789623379936967`"}], ",", 
              "1.7789623379936967`"}], "}"}]],
         Annotation[#, {-1.7789623379936967`, 1.7789623379936967`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-2.444300411160625, 2.444300411160625}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.444300411160625`"}], ",", 
              "2.444300411160625`"}], "}"}]],
         Annotation[#, {-2.444300411160625, 2.444300411160625}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8223156328320653, 0.8223156328320653}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8223156328320653`"}], ",", 
              "0.8223156328320653`"}], "}"}]],
         Annotation[#, {-0.8223156328320653, 0.8223156328320653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.5646742387994728`, 1.2074181022175825`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5646742387994728`"}], ",", 
              "1.2074181022175825`"}], "}"}]],
         Annotation[#, {-1.5646742387994728`, 1.2074181022175825`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2760651532925882`, 0.8636569199905924}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2760651532925882`"}], ",", 
              "0.8636569199905924`"}], "}"}]],
         Annotation[#, {-1.2760651532925882`, 0.8636569199905924}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0505469711971605`, 0.7067085245640721}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0505469711971605`"}], ",", 
              "0.7067085245640721`"}], "}"}]],
         Annotation[#, {-1.0505469711971605`, 0.7067085245640721}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.1`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvU1j0/nEr6/t932/12lq9sR+T9tjlhubX9nzLZ2T
p2//2D7efWWM3dvn9q+khTJfujywT1z959fCVU/spzWt93kodc+eY8KfiNjm
h/arMuY93HvqHpyGiavMmmse0I6gYfpg5sDMhdkDcwfMXScuSxpFz31mr+/k
HM51/oP9nGiva8KLX9vn+/t7H876Yu8958UsPaA7Ww9451wHujvj+80lUwM/
2wfMPHHrOcdP+/hf6WYLy/7AaTm3PfFve5kdYPQ+qQP3MwJe2cNomD6YOTB7
YPbC3AFzFwD03KpN
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8737038666306691, 0.6316173260490741}}]}, {
         0.8737038666306691, 0.6316173260490741}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8344535918697242, 0.6014630470646425}}]}, {
         0.8344535918697242, 0.6014630470646425}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7477104005613276, 0.5084120800173626}}]}, {
         0.7477104005613276, 0.5084120800173626}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6458291914071702, 0.47039062966181555`}}]}, {
         0.6458291914071702, 0.47039062966181555`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.547285722543621, 0.4811243727978175}}]}, {
         0.547285722543621, 0.4811243727978175}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4811243727978175, 0.547285722543621}}]}, {
         0.4811243727978175, 0.547285722543621}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5477677427523457, 0.5477677427523457}}]}, {
         0.5477677427523457, 0.5477677427523457}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.47039062966181555`, 0.6458291914071702}}]}, {
         0.47039062966181555`, 0.6458291914071702}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5084120800173626, 0.7477104005613276}}]}, {
         0.5084120800173626, 0.7477104005613276}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6316173260490741, 0.8737038666306691}}]}, {
         0.6316173260490741, 0.8737038666306691}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7067085245640721, 1.0505469711971605`}}]}, {
         0.7067085245640721, 1.0505469711971605`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8636569199905924, 1.2760651532925882`}}]}, {
         0.8636569199905924, 1.2760651532925882`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6014626527365946, 0.8344533076433583}}]}, {
         0.6014626527365946, 0.8344533076433583}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2074181022175825`, 1.5646742387994728`}}]}, {
         1.2074181022175825`, 1.5646742387994728`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7789623379936967`, 1.7789623379936967`}}]}, {
         1.7789623379936967`, 1.7789623379936967`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.444300411160625, 2.444300411160625}}]}, {
         2.444300411160625, 2.444300411160625}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8223156328320653, 0.8223156328320653}}]}, {
         0.8223156328320653, 0.8223156328320653}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5646742387994728`, 1.2074181022175825`}}]}, {
         1.5646742387994728`, 1.2074181022175825`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2760651532925882`, 0.8636569199905924}}]}, {
         1.2760651532925882`, 0.8636569199905924}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0505469711971605`, 0.7067085245640721}}]}, {
         1.0505469711971605`, 
         0.7067085245640721}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvU1j0/nEr6/37/t+r9PU7In9nrbHLDc2v9rPt3RO
nr79Y/t495Uxdm+f738lLZT50uWBfeLqP78Wrnqyf1rTep+HUvfsOSb8iYht
frh/Vca8h3tP3bOH0vuh4vYqs+aaB7Q/3A+l7aH69kPNsYeaux9qjz3UHfuh
7rI/cVnSKHrus/36Ts7hXOc/2M+J9romvPj1/nx/f+/DWV/svee8mKVn/3h/
6wHvnOubX9lnfL+5ZGrg5/0BM0/ces7x0z7+V7rZwrI/+6G0vZzbnvi3vcwH
oLTDPqkD9zMCXu2H0vZQffuh5thD7dkPtdce6o79UHfZAwA/RbRN
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8737038666306691, 
           0.6316173260490741}}]}, {-0.8737038666306691, 0.6316173260490741}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8344535918697242, 
           0.6014630470646425}}]}, {-0.8344535918697242, 0.6014630470646425}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7477104005613276, 
           0.5084120800173626}}]}, {-0.7477104005613276, 0.5084120800173626}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6458291914071702, 
           0.47039062966181555`}}]}, {-0.6458291914071702, 
         0.47039062966181555`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.547285722543621, 
           0.4811243727978175}}]}, {-0.547285722543621, 0.4811243727978175}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4811243727978175, 
           0.547285722543621}}]}, {-0.4811243727978175, 0.547285722543621}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5477677427523457, 
           0.5477677427523457}}]}, {-0.5477677427523457, 0.5477677427523457}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.47039062966181555`, 
           0.6458291914071702}}]}, {-0.47039062966181555`, 
         0.6458291914071702}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5084120800173626, 
           0.7477104005613276}}]}, {-0.5084120800173626, 0.7477104005613276}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6316173260490741, 
           0.8737038666306691}}]}, {-0.6316173260490741, 0.8737038666306691}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7067085245640721, 
           1.0505469711971605`}}]}, {-0.7067085245640721, 
         1.0505469711971605`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8636569199905924, 
           1.2760651532925882`}}]}, {-0.8636569199905924, 
         1.2760651532925882`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6014626527365946, 
           0.8344533076433583}}]}, {-0.6014626527365946, 0.8344533076433583}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2074181022175825`, 
           1.5646742387994728`}}]}, {-1.2074181022175825`, 
         1.5646742387994728`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7789623379936967`, 
           1.7789623379936967`}}]}, {-1.7789623379936967`, 
         1.7789623379936967`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.444300411160625, 
           2.444300411160625}}]}, {-2.444300411160625, 2.444300411160625}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8223156328320653, 
           0.8223156328320653}}]}, {-0.8223156328320653, 0.8223156328320653}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5646742387994728`, 
           1.2074181022175825`}}]}, {-1.5646742387994728`, 
         1.2074181022175825`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2760651532925882`, 
           0.8636569199905924}}]}, {-1.2760651532925882`, 
         0.8636569199905924}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0505469711971605`, 
           0.7067085245640721}}]}, {-1.0505469711971605`, 
         0.7067085245640721}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.43954828932589673`, 0}, 
     PlotRange -> {{0.47039062966181555`, 2.444300411160625}, {
       0, 2.444300411160625}}, PlotRangeClipping -> True, ImagePadding -> All,
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.43954828932589673`, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.47039062966181555`, 2.444300411160625}, {
       0, 2.444300411160625}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.1],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.74817998780513*^9},ExpressionUUID->"04dca989-c332-4471-b0a2-6d357bd2a6e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQLfbpQGnQkbf2725+bWhOfGp/qlTIbJvda3v7FbkT
/nM+tj/9z0PxM+9z+wMr/+SGPb1vP/WaiEcz7xP72JAPEl4Wd+2z23JY5zE8
tM8/yLI77MFdOA0Th6mD6YOZAzNX9vm3DUzvHtq7eoXcnTT3BdxemDv2e/QK
Chg+t39V13D3xu8P9kdWTZksdvy1vcXTjlmXy77A3Q3zR/XJ7WveBX+2X77u
5rxd3D/td2St/n+i7A+c1t3t7vK2l9kBRsPshbkDpg9mDswemL0wd8DcBQA2
9q68
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9302151012303195, 0.6681535261876073}}]},
          RowBox[{"{", 
            RowBox[{"0.9302151012303195`", ",", "0.6681535261876073`"}], 
            "}"}]],
         Annotation[#, {0.9302151012303195, 0.6681535261876073}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.851405244454946, 0.5949704953066045}}]},
          RowBox[{"{", 
            RowBox[{"0.851405244454946`", ",", "0.5949704953066045`"}], "}"}]],
         Annotation[#, {0.851405244454946, 0.5949704953066045}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7204528474903439, 0.4983726572123963}}]},
          RowBox[{"{", 
            RowBox[{"0.7204528474903439`", ",", "0.4983726572123963`"}], 
            "}"}]],
         Annotation[#, {0.7204528474903439, 0.4983726572123963}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6266495139922933, 0.4565606349509091}}]},
          RowBox[{"{", 
            RowBox[{"0.6266495139922933`", ",", "0.4565606349509091`"}], 
            "}"}]],
         Annotation[#, {0.6266495139922933, 0.4565606349509091}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5313253503738457, 0.46681755317242496`}}]},
          RowBox[{"{", 
            RowBox[{"0.5313253503738457`", ",", "0.46681755317242496`"}], 
            "}"}]],
         Annotation[#, {0.5313253503738457, 0.46681755317242496`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46681755317242496`, 0.5313253503738457}}]},
          RowBox[{"{", 
            RowBox[{"0.46681755317242496`", ",", "0.5313253503738457`"}], 
            "}"}]],
         Annotation[#, {0.46681755317242496`, 0.5313253503738457}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4565606349509091, 0.6266495139922933}}]},
          RowBox[{"{", 
            RowBox[{"0.4565606349509091`", ",", "0.6266495139922933`"}], 
            "}"}]],
         Annotation[#, {0.4565606349509091, 0.6266495139922933}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4983726572123963, 0.7204528474903439}}]},
          RowBox[{"{", 
            RowBox[{"0.4983726572123963`", ",", "0.7204528474903439`"}], 
            "}"}]],
         Annotation[#, {0.4983726572123963, 0.7204528474903439}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5603040176713169, 0.7692350695454669}}]},
          RowBox[{"{", 
            RowBox[{"0.5603040176713169`", ",", "0.7692350695454669`"}], 
            "}"}]],
         Annotation[#, {0.5603040176713169, 0.7692350695454669}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5949704953066045, 0.851405244454946}}]},
          RowBox[{"{", 
            RowBox[{"0.5949704953066045`", ",", "0.851405244454946`"}], "}"}]],
         Annotation[#, {0.5949704953066045, 0.851405244454946}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7247391073999764, 1.061486115686359}}]},
          RowBox[{"{", 
            RowBox[{"0.7247391073999764`", ",", "1.061486115686359`"}], "}"}]],
         Annotation[#, {0.7247391073999764, 1.061486115686359}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8680527574955126, 1.2790103947175577`}}]},
          RowBox[{"{", 
            RowBox[{"0.8680527574955126`", ",", "1.2790103947175577`"}], 
            "}"}]],
         Annotation[#, {0.8680527574955126, 1.2790103947175577`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6681535261876073, 0.9302151012303195}}]},
          RowBox[{"{", 
            RowBox[{"0.6681535261876073`", ",", "0.9302151012303195`"}], 
            "}"}]],
         Annotation[#, {0.6681535261876073, 0.9302151012303195}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.2079912897866893`, 1.5653635220614122`}}]},
          RowBox[{"{", 
            RowBox[{"1.2079912897866893`", ",", "1.5653635220614122`"}], 
            "}"}]],
         Annotation[#, {1.2079912897866893`, 1.5653635220614122`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790002810567511`, 1.7790002810567511`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790002810567511`", ",", "1.7790002810567511`"}], 
            "}"}]],
         Annotation[#, {1.7790002810567511`, 1.7790002810567511`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443002066031085`, 2.4443002066031085`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443002066031085`", ",", "2.4443002066031085`"}], 
            "}"}]],
         Annotation[#, {2.4443002066031085`, 2.4443002066031085`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7692350695454669, 0.5603040176713169}}]},
          RowBox[{"{", 
            RowBox[{"0.7692350695454669`", ",", "0.5603040176713169`"}], 
            "}"}]],
         Annotation[#, {0.7692350695454669, 0.5603040176713169}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.5653635220614122`, 1.2079912897866893`}}]},
          RowBox[{"{", 
            RowBox[{"1.5653635220614122`", ",", "1.2079912897866893`"}], 
            "}"}]],
         Annotation[#, {1.5653635220614122`, 1.2079912897866893`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2790103947175577`, 0.8680527574955126}}]},
          RowBox[{"{", 
            RowBox[{"1.2790103947175577`", ",", "0.8680527574955126`"}], 
            "}"}]],
         Annotation[#, {1.2790103947175577`, 0.8680527574955126}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.061486115686359, 0.7247391073999764}}]},
          RowBox[{"{", 
            RowBox[{"1.061486115686359`", ",", "0.7247391073999764`"}], "}"}]],
         Annotation[#, {1.061486115686359, 0.7247391073999764}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQLfbpQGnQkbf739382tCc+NT+VKmQ2Ta71/vtV+RO
+M/52P70Pw/Fz7zP9x9Y+Sc37Ol9+6nXRDyaeZ/sjw35IOFlcdc+uy2HdR7D
w/35B1l2hz24aw+l90PF7aHq9kP12UPN2Q811172+bcNTO8e7nf1Crk7ae4L
e6i9+6HusN/v0SsoYPh8/6u6hrs3fn+wP7JqymSx46/3WzztmHW57Is91N37
of6wrz65fc274M/7l6+7OW8X90/7HVmr/58o+7MfStvr7nZ3edvLfABKO0Dt
3Q91hz1U336oOfZQe/ZD7bWHumM/1F32AIFQuLw=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9302151012303195, 0.6681535261876073}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9302151012303195`"}], ",", 
              "0.6681535261876073`"}], "}"}]],
         Annotation[#, {-0.9302151012303195, 0.6681535261876073}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.851405244454946, 0.5949704953066045}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.851405244454946`"}], ",", 
              "0.5949704953066045`"}], "}"}]],
         Annotation[#, {-0.851405244454946, 0.5949704953066045}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7204528474903439, 0.4983726572123963}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7204528474903439`"}], ",", 
              "0.4983726572123963`"}], "}"}]],
         Annotation[#, {-0.7204528474903439, 0.4983726572123963}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6266495139922933, 0.4565606349509091}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6266495139922933`"}], ",", 
              "0.4565606349509091`"}], "}"}]],
         Annotation[#, {-0.6266495139922933, 0.4565606349509091}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5313253503738457, 0.46681755317242496`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5313253503738457`"}], ",", 
              "0.46681755317242496`"}], "}"}]],
         Annotation[#, {-0.5313253503738457, 0.46681755317242496`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46681755317242496`, 0.5313253503738457}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46681755317242496`"}], ",", 
              "0.5313253503738457`"}], "}"}]],
         Annotation[#, {-0.46681755317242496`, 0.5313253503738457}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4565606349509091, 0.6266495139922933}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4565606349509091`"}], ",", 
              "0.6266495139922933`"}], "}"}]],
         Annotation[#, {-0.4565606349509091, 0.6266495139922933}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4983726572123963, 0.7204528474903439}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4983726572123963`"}], ",", 
              "0.7204528474903439`"}], "}"}]],
         Annotation[#, {-0.4983726572123963, 0.7204528474903439}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5603040176713169, 0.7692350695454669}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5603040176713169`"}], ",", 
              "0.7692350695454669`"}], "}"}]],
         Annotation[#, {-0.5603040176713169, 0.7692350695454669}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5949704953066045, 0.851405244454946}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5949704953066045`"}], ",", 
              "0.851405244454946`"}], "}"}]],
         Annotation[#, {-0.5949704953066045, 0.851405244454946}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7247391073999764, 1.061486115686359}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7247391073999764`"}], ",", 
              "1.061486115686359`"}], "}"}]],
         Annotation[#, {-0.7247391073999764, 1.061486115686359}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8680527574955126, 1.2790103947175577`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8680527574955126`"}], ",", 
              "1.2790103947175577`"}], "}"}]],
         Annotation[#, {-0.8680527574955126, 1.2790103947175577`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6681535261876073, 0.9302151012303195}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6681535261876073`"}], ",", 
              "0.9302151012303195`"}], "}"}]],
         Annotation[#, {-0.6681535261876073, 0.9302151012303195}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2079912897866893`, 1.5653635220614122`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2079912897866893`"}], ",", 
              "1.5653635220614122`"}], "}"}]],
         Annotation[#, {-1.2079912897866893`, 1.5653635220614122`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790002810567511`, 1.7790002810567511`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790002810567511`"}], ",", 
              "1.7790002810567511`"}], "}"}]],
         Annotation[#, {-1.7790002810567511`, 1.7790002810567511`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443002066031085`, 2.4443002066031085`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443002066031085`"}], ",", 
              "2.4443002066031085`"}], "}"}]],
         Annotation[#, {-2.4443002066031085`, 2.4443002066031085`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7692350695454669, 0.5603040176713169}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7692350695454669`"}], ",", 
              "0.5603040176713169`"}], "}"}]],
         Annotation[#, {-0.7692350695454669, 0.5603040176713169}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.5653635220614122`, 1.2079912897866893`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5653635220614122`"}], ",", 
              "1.2079912897866893`"}], "}"}]],
         Annotation[#, {-1.5653635220614122`, 1.2079912897866893`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2790103947175577`, 0.8680527574955126}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2790103947175577`"}], ",", 
              "0.8680527574955126`"}], "}"}]],
         Annotation[#, {-1.2790103947175577`, 0.8680527574955126}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.061486115686359, 0.7247391073999764}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.061486115686359`"}], ",", 
              "0.7247391073999764`"}], "}"}]],
         Annotation[#, {-1.061486115686359, 0.7247391073999764}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.2`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQLfbpQGnQkbf2725+bWhOfGp/qlTIbJvda3v7FbkT
/nM+tj/9z0PxM+9z+wMr/+SGPb1vP/WaiEcz7xP72JAPEl4Wd+2z23JY5zE8
tM8/yLI77MFdOA0Th6mD6YOZAzNX9vm3DUzvHtq7eoXcnTT3BdxemDv2e/QK
Chg+t39V13D3xu8P9kdWTZksdvy1vcXTjlmXy77A3Q3zR/XJ7WveBX+2X77u
5rxd3D/td2St/n+i7A+c1t3t7vK2l9kBRsPshbkDpg9mDswemL0wd8DcBQA2
9q68
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9302151012303195, 0.6681535261876073}}]}, {
         0.9302151012303195, 0.6681535261876073}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.851405244454946, 0.5949704953066045}}]}, {
         0.851405244454946, 0.5949704953066045}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7204528474903439, 0.4983726572123963}}]}, {
         0.7204528474903439, 0.4983726572123963}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6266495139922933, 0.4565606349509091}}]}, {
         0.6266495139922933, 0.4565606349509091}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5313253503738457, 0.46681755317242496`}}]}, {
         0.5313253503738457, 0.46681755317242496`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46681755317242496`, 0.5313253503738457}}]}, {
         0.46681755317242496`, 0.5313253503738457}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4565606349509091, 0.6266495139922933}}]}, {
         0.4565606349509091, 0.6266495139922933}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4983726572123963, 0.7204528474903439}}]}, {
         0.4983726572123963, 0.7204528474903439}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5603040176713169, 0.7692350695454669}}]}, {
         0.5603040176713169, 0.7692350695454669}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5949704953066045, 0.851405244454946}}]}, {
         0.5949704953066045, 0.851405244454946}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7247391073999764, 1.061486115686359}}]}, {
         0.7247391073999764, 1.061486115686359}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8680527574955126, 1.2790103947175577`}}]}, {
         0.8680527574955126, 1.2790103947175577`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6681535261876073, 0.9302151012303195}}]}, {
         0.6681535261876073, 0.9302151012303195}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2079912897866893`, 1.5653635220614122`}}]}, {
         1.2079912897866893`, 1.5653635220614122`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790002810567511`, 1.7790002810567511`}}]}, {
         1.7790002810567511`, 1.7790002810567511`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443002066031085`, 2.4443002066031085`}}]}, {
         2.4443002066031085`, 2.4443002066031085`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7692350695454669, 0.5603040176713169}}]}, {
         0.7692350695454669, 0.5603040176713169}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5653635220614122`, 1.2079912897866893`}}]}, {
         1.5653635220614122`, 1.2079912897866893`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2790103947175577`, 0.8680527574955126}}]}, {
         1.2790103947175577`, 0.8680527574955126}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.061486115686359, 0.7247391073999764}}]}, {
         1.061486115686359, 
         0.7247391073999764}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQLfbpQGnQkbf739382tCc+NT+VKmQ2Ta71/vtV+RO
+M/52P70Pw/Fz7zP9x9Y+Sc37Ol9+6nXRDyaeZ/sjw35IOFlcdc+uy2HdR7D
w/35B1l2hz24aw+l90PF7aHq9kP12UPN2Q811172+bcNTO8e7nf1Crk7ae4L
e6i9+6HusN/v0SsoYPh8/6u6hrs3fn+wP7JqymSx46/3WzztmHW57Is91N37
of6wrz65fc274M/7l6+7OW8X90/7HVmr/58o+7MfStvr7nZ3edvLfABKO0Dt
3Q91hz1U336oOfZQe/ZD7bWHumM/1F32AIFQuLw=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9302151012303195, 
           0.6681535261876073}}]}, {-0.9302151012303195, 0.6681535261876073}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.851405244454946, 
           0.5949704953066045}}]}, {-0.851405244454946, 0.5949704953066045}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7204528474903439, 
           0.4983726572123963}}]}, {-0.7204528474903439, 0.4983726572123963}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6266495139922933, 
           0.4565606349509091}}]}, {-0.6266495139922933, 0.4565606349509091}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5313253503738457, 
           0.46681755317242496`}}]}, {-0.5313253503738457, 
         0.46681755317242496`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46681755317242496`, 
           0.5313253503738457}}]}, {-0.46681755317242496`, 
         0.5313253503738457}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4565606349509091, 
           0.6266495139922933}}]}, {-0.4565606349509091, 0.6266495139922933}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4983726572123963, 
           0.7204528474903439}}]}, {-0.4983726572123963, 0.7204528474903439}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5603040176713169, 
           0.7692350695454669}}]}, {-0.5603040176713169, 0.7692350695454669}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5949704953066045, 
           0.851405244454946}}]}, {-0.5949704953066045, 0.851405244454946}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7247391073999764, 
           1.061486115686359}}]}, {-0.7247391073999764, 1.061486115686359}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8680527574955126, 
           1.2790103947175577`}}]}, {-0.8680527574955126, 
         1.2790103947175577`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6681535261876073, 
           0.9302151012303195}}]}, {-0.6681535261876073, 0.9302151012303195}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2079912897866893`, 
           1.5653635220614122`}}]}, {-1.2079912897866893`, 
         1.5653635220614122`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790002810567511`, 
           1.7790002810567511`}}]}, {-1.7790002810567511`, 
         1.7790002810567511`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443002066031085`, 
           2.4443002066031085`}}]}, {-2.4443002066031085`, 
         2.4443002066031085`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7692350695454669, 
           0.5603040176713169}}]}, {-0.7692350695454669, 0.5603040176713169}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5653635220614122`, 
           1.2079912897866893`}}]}, {-1.5653635220614122`, 
         1.2079912897866893`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2790103947175577`, 
           0.8680527574955126}}]}, {-1.2790103947175577`, 
         0.8680527574955126}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.061486115686359, 
           0.7247391073999764}}]}, {-1.061486115686359, 
         0.7247391073999764}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.4255022041438435, 0}, 
     PlotRange -> {{0.4565606349509091, 2.4443002066031085`}, {
       0, 2.4443002066031085`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.4255022041438435, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4565606349509091, 2.4443002066031085`}, {
       0, 2.4443002066031085`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.2],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.748179988350841*^9},ExpressionUUID->"c1457281-1b1a-4c5f-b189-\
99cd5fabd188"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7XE93WKqxxt7t8vWt24uemy/USnBjPPWS/st75+5
d918ZB/TlHs8fs5ze6FAfkNZowf2HqsDJHmCntiL5xROerz8rn3cfv5gHo2H
9vPiHTYd0r4Hp2HiMHUwfTBzYObC7IHZC3MHzF1sjz4yXEx8Zh93osL624EP
9p++deVLT3xtz+NQ5no94Yu9Z35YU+Wax3C6lMV8MkfAZ/vcrWpCJ1l/2s/6
m5CUWvYHTltpX9n/tpfZAUYzrvd4vPPSa3sYDdMHMwdmD8xemDtg7gIAonWc
Qg==
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8838602163002429, 0.6136292707802589}}]},
          RowBox[{"{", 
            RowBox[{"0.8838602163002429`", ",", "0.6136292707802589`"}], 
            "}"}]],
         Annotation[#, {0.8838602163002429, 0.6136292707802589}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8078657209417398, 0.5890551952684207}}]},
          RowBox[{"{", 
            RowBox[{"0.8078657209417398`", ",", "0.5890551952684207`"}], 
            "}"}]],
         Annotation[#, {0.8078657209417398, 0.5890551952684207}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7378386397431984, 0.5061174352836437}}]},
          RowBox[{"{", 
            RowBox[{"0.7378386397431984`", ",", "0.5061174352836437`"}], 
            "}"}]],
         Annotation[#, {0.7378386397431984, 0.5061174352836437}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6350155348239719, 0.4633721284969296}}]},
          RowBox[{"{", 
            RowBox[{"0.6350155348239719`", ",", "0.4633721284969296`"}], 
            "}"}]],
         Annotation[#, {0.6350155348239719, 0.4633721284969296}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5361386892600242, 0.47142093093270343`}}]},
          RowBox[{"{", 
            RowBox[{"0.5361386892600242`", ",", "0.47142093093270343`"}], 
            "}"}]],
         Annotation[#, {0.5361386892600242, 0.47142093093270343`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.47142093093270343`, 0.5361386892600242}}]},
          RowBox[{"{", 
            RowBox[{"0.47142093093270343`", ",", "0.5361386892600242`"}], 
            "}"}]],
         Annotation[#, {0.47142093093270343`, 0.5361386892600242}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4633721284969296, 0.6350155348239719}}]},
          RowBox[{"{", 
            RowBox[{"0.4633721284969296`", ",", "0.6350155348239719`"}], 
            "}"}]],
         Annotation[#, {0.4633721284969296, 0.6350155348239719}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5061174352836437, 0.7378386397431984}}]},
          RowBox[{"{", 
            RowBox[{"0.5061174352836437`", ",", "0.7378386397431984`"}], 
            "}"}]],
         Annotation[#, {0.5061174352836437, 0.7378386397431984}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5890551952684207, 0.8078657209417398}}]},
          RowBox[{"{", 
            RowBox[{"0.5890551952684207`", ",", "0.8078657209417398`"}], 
            "}"}]],
         Annotation[#, {0.5890551952684207, 0.8078657209417398}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6136292707802589, 0.8838602163002429}}]},
          RowBox[{"{", 
            RowBox[{"0.6136292707802589`", ",", "0.8838602163002429`"}], 
            "}"}]],
         Annotation[#, {0.6136292707802589, 0.8838602163002429}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6994404810384942, 1.047109825431583}}]},
          RowBox[{"{", 
            RowBox[{"0.6994404810384942`", ",", "1.047109825431583`"}], "}"}]],
         Annotation[#, {0.6994404810384942, 1.047109825431583}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8614632776804838, 1.2736427987438246`}}]},
          RowBox[{"{", 
            RowBox[{"0.8614632776804838`", ",", "1.2736427987438246`"}], 
            "}"}]],
         Annotation[#, {0.8614632776804838, 1.2736427987438246`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6148040338189072, 0.6148040338189072}}]},
          RowBox[{"{", 
            RowBox[{"0.6148040338189072`", ",", "0.6148040338189072`"}], 
            "}"}]],
         Annotation[#, {0.6148040338189072, 0.6148040338189072}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.2070394278128138`, 1.5639124592811087`}}]},
          RowBox[{"{", 
            RowBox[{"1.2070394278128138`", ",", "1.5639124592811087`"}], 
            "}"}]],
         Annotation[#, {1.2070394278128138`, 1.5639124592811087`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7789052813458057`, 1.7789052813458057`}}]},
          RowBox[{"{", 
            RowBox[{"1.7789052813458057`", ",", "1.7789052813458057`"}], 
            "}"}]],
         Annotation[#, {1.7789052813458057`, 1.7789052813458057`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{2.444301127111797, 2.444301127111797}}]},
          RowBox[{"{", 
            RowBox[{"2.444301127111797`", ",", "2.444301127111797`"}], "}"}]],
         Annotation[#, {2.444301127111797, 2.444301127111797}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8694734038485593, 0.8694734038485593}}]},
          RowBox[{"{", 
            RowBox[{"0.8694734038485593`", ",", "0.8694734038485593`"}], 
            "}"}]],
         Annotation[#, {0.8694734038485593, 0.8694734038485593}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.5639124592811087`, 1.2070394278128138`}}]},
          RowBox[{"{", 
            RowBox[{"1.5639124592811087`", ",", "1.2070394278128138`"}], 
            "}"}]],
         Annotation[#, {1.5639124592811087`, 1.2070394278128138`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2736427987438246`, 0.8614632776804838}}]},
          RowBox[{"{", 
            RowBox[{"1.2736427987438246`", ",", "0.8614632776804838`"}], 
            "}"}]],
         Annotation[#, {1.2736427987438246`, 0.8614632776804838}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.047109825431583, 0.6994404810384942}}]},
          RowBox[{"{", 
            RowBox[{"1.047109825431583`", ",", "0.6994404810384942`"}], "}"}]],
         Annotation[#, {1.047109825431583, 0.6994404810384942}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7XE93WKqx5v9bpetb91c9Nh+o1KCGeetl/u3vH/m
3nXzkX1MU+7x+DnP9wsF8hvKGj2w91gdIMkT9GS/eE7hpMfL79rH7ecP5tF4
uH9evMOmQ9r37KH0fqi4PVTdfqg+e6g5+6Hm2kPt2Q+11x7qjv1Qd9mzPfrI
cDHx2f64ExXW3w58sP/0rStfeuLr/TwOZa7XE77Ye+aHNVWuebwfStuXsphP
5gj4vD93q5rQSdaf9rP+JiSllv3ZD6XtrbSv7H/by3wASjswrvd4vPPS6/1Q
2h6qbz/UHHuoPfuh9tpD3bEf6i57AOzPpkI=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8838602163002429, 0.6136292707802589}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8838602163002429`"}], ",", 
              "0.6136292707802589`"}], "}"}]],
         Annotation[#, {-0.8838602163002429, 0.6136292707802589}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8078657209417398, 0.5890551952684207}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8078657209417398`"}], ",", 
              "0.5890551952684207`"}], "}"}]],
         Annotation[#, {-0.8078657209417398, 0.5890551952684207}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7378386397431984, 0.5061174352836437}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7378386397431984`"}], ",", 
              "0.5061174352836437`"}], "}"}]],
         Annotation[#, {-0.7378386397431984, 0.5061174352836437}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6350155348239719, 0.4633721284969296}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6350155348239719`"}], ",", 
              "0.4633721284969296`"}], "}"}]],
         Annotation[#, {-0.6350155348239719, 0.4633721284969296}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5361386892600242, 0.47142093093270343`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5361386892600242`"}], ",", 
              "0.47142093093270343`"}], "}"}]],
         Annotation[#, {-0.5361386892600242, 0.47142093093270343`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.47142093093270343`, 0.5361386892600242}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.47142093093270343`"}], ",", 
              "0.5361386892600242`"}], "}"}]],
         Annotation[#, {-0.47142093093270343`, 0.5361386892600242}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4633721284969296, 0.6350155348239719}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4633721284969296`"}], ",", 
              "0.6350155348239719`"}], "}"}]],
         Annotation[#, {-0.4633721284969296, 0.6350155348239719}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5061174352836437, 0.7378386397431984}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5061174352836437`"}], ",", 
              "0.7378386397431984`"}], "}"}]],
         Annotation[#, {-0.5061174352836437, 0.7378386397431984}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5890551952684207, 0.8078657209417398}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5890551952684207`"}], ",", 
              "0.8078657209417398`"}], "}"}]],
         Annotation[#, {-0.5890551952684207, 0.8078657209417398}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6136292707802589, 0.8838602163002429}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6136292707802589`"}], ",", 
              "0.8838602163002429`"}], "}"}]],
         Annotation[#, {-0.6136292707802589, 0.8838602163002429}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6994404810384942, 1.047109825431583}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6994404810384942`"}], ",", 
              "1.047109825431583`"}], "}"}]],
         Annotation[#, {-0.6994404810384942, 1.047109825431583}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8614632776804838, 1.2736427987438246`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8614632776804838`"}], ",", 
              "1.2736427987438246`"}], "}"}]],
         Annotation[#, {-0.8614632776804838, 1.2736427987438246`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6148040338189072, 0.6148040338189072}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6148040338189072`"}], ",", 
              "0.6148040338189072`"}], "}"}]],
         Annotation[#, {-0.6148040338189072, 0.6148040338189072}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2070394278128138`, 1.5639124592811087`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2070394278128138`"}], ",", 
              "1.5639124592811087`"}], "}"}]],
         Annotation[#, {-1.2070394278128138`, 1.5639124592811087`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7789052813458057`, 1.7789052813458057`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7789052813458057`"}], ",", 
              "1.7789052813458057`"}], "}"}]],
         Annotation[#, {-1.7789052813458057`, 1.7789052813458057`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-2.444301127111797, 2.444301127111797}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.444301127111797`"}], ",", 
              "2.444301127111797`"}], "}"}]],
         Annotation[#, {-2.444301127111797, 2.444301127111797}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8694734038485593, 0.8694734038485593}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8694734038485593`"}], ",", 
              "0.8694734038485593`"}], "}"}]],
         Annotation[#, {-0.8694734038485593, 0.8694734038485593}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.5639124592811087`, 1.2070394278128138`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5639124592811087`"}], ",", 
              "1.2070394278128138`"}], "}"}]],
         Annotation[#, {-1.5639124592811087`, 1.2070394278128138`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2736427987438246`, 0.8614632776804838}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2736427987438246`"}], ",", 
              "0.8614632776804838`"}], "}"}]],
         Annotation[#, {-1.2736427987438246`, 0.8614632776804838}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.047109825431583, 0.6994404810384942}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.047109825431583`"}], ",", 
              "0.6994404810384942`"}], "}"}]],
         Annotation[#, {-1.047109825431583, 0.6994404810384942}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.30000000000000004`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7XE93WKqxxt7t8vWt24uemy/USnBjPPWS/st75+5
d918ZB/TlHs8fs5ze6FAfkNZowf2HqsDJHmCntiL5xROerz8rn3cfv5gHo2H
9vPiHTYd0r4Hp2HiMHUwfTBzYObC7IHZC3MHzF1sjz4yXEx8Zh93osL624EP
9p++deVLT3xtz+NQ5no94Yu9Z35YU+Wax3C6lMV8MkfAZ/vcrWpCJ1l/2s/6
m5CUWvYHTltpX9n/tpfZAUYzrvd4vPPSa3sYDdMHMwdmD8xemDtg7gIAonWc
Qg==
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8838602163002429, 0.6136292707802589}}]}, {
         0.8838602163002429, 0.6136292707802589}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8078657209417398, 0.5890551952684207}}]}, {
         0.8078657209417398, 0.5890551952684207}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7378386397431984, 0.5061174352836437}}]}, {
         0.7378386397431984, 0.5061174352836437}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6350155348239719, 0.4633721284969296}}]}, {
         0.6350155348239719, 0.4633721284969296}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5361386892600242, 0.47142093093270343`}}]}, {
         0.5361386892600242, 0.47142093093270343`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.47142093093270343`, 0.5361386892600242}}]}, {
         0.47142093093270343`, 0.5361386892600242}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4633721284969296, 0.6350155348239719}}]}, {
         0.4633721284969296, 0.6350155348239719}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5061174352836437, 0.7378386397431984}}]}, {
         0.5061174352836437, 0.7378386397431984}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5890551952684207, 0.8078657209417398}}]}, {
         0.5890551952684207, 0.8078657209417398}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6136292707802589, 0.8838602163002429}}]}, {
         0.6136292707802589, 0.8838602163002429}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6994404810384942, 1.047109825431583}}]}, {
         0.6994404810384942, 1.047109825431583}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8614632776804838, 1.2736427987438246`}}]}, {
         0.8614632776804838, 1.2736427987438246`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6148040338189072, 0.6148040338189072}}]}, {
         0.6148040338189072, 0.6148040338189072}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2070394278128138`, 1.5639124592811087`}}]}, {
         1.2070394278128138`, 1.5639124592811087`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7789052813458057`, 1.7789052813458057`}}]}, {
         1.7789052813458057`, 1.7789052813458057`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.444301127111797, 2.444301127111797}}]}, {
         2.444301127111797, 2.444301127111797}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8694734038485593, 0.8694734038485593}}]}, {
         0.8694734038485593, 0.8694734038485593}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5639124592811087`, 1.2070394278128138`}}]}, {
         1.5639124592811087`, 1.2070394278128138`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2736427987438246`, 0.8614632776804838}}]}, {
         1.2736427987438246`, 0.8614632776804838}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.047109825431583, 0.6994404810384942}}]}, {
         1.047109825431583, 
         0.6994404810384942}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7XE93WKqx5v9bpetb91c9Nh+o1KCGeetl/u3vH/m
3nXzkX1MU+7x+DnP9wsF8hvKGj2w91gdIMkT9GS/eE7hpMfL79rH7ecP5tF4
uH9evMOmQ9r37KH0fqi4PVTdfqg+e6g5+6Hm2kPt2Q+11x7qjv1Qd9mzPfrI
cDHx2f64ExXW3w58sP/0rStfeuLr/TwOZa7XE77Ye+aHNVWuebwfStuXsphP
5gj4vD93q5rQSdaf9rP+JiSllv3ZD6XtrbSv7H/by3wASjswrvd4vPPS6/1Q
2h6qbz/UHHuoPfuh9tpD3bEf6i57AOzPpkI=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8838602163002429, 
           0.6136292707802589}}]}, {-0.8838602163002429, 0.6136292707802589}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8078657209417398, 
           0.5890551952684207}}]}, {-0.8078657209417398, 0.5890551952684207}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7378386397431984, 
           0.5061174352836437}}]}, {-0.7378386397431984, 0.5061174352836437}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6350155348239719, 
           0.4633721284969296}}]}, {-0.6350155348239719, 0.4633721284969296}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5361386892600242, 
           0.47142093093270343`}}]}, {-0.5361386892600242, 
         0.47142093093270343`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.47142093093270343`, 
           0.5361386892600242}}]}, {-0.47142093093270343`, 
         0.5361386892600242}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4633721284969296, 
           0.6350155348239719}}]}, {-0.4633721284969296, 0.6350155348239719}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5061174352836437, 
           0.7378386397431984}}]}, {-0.5061174352836437, 0.7378386397431984}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5890551952684207, 
           0.8078657209417398}}]}, {-0.5890551952684207, 0.8078657209417398}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6136292707802589, 
           0.8838602163002429}}]}, {-0.6136292707802589, 0.8838602163002429}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6994404810384942, 
           1.047109825431583}}]}, {-0.6994404810384942, 1.047109825431583}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8614632776804838, 
           1.2736427987438246`}}]}, {-0.8614632776804838, 
         1.2736427987438246`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6148040338189072, 
           0.6148040338189072}}]}, {-0.6148040338189072, 0.6148040338189072}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2070394278128138`, 
           1.5639124592811087`}}]}, {-1.2070394278128138`, 
         1.5639124592811087`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7789052813458057`, 
           1.7789052813458057`}}]}, {-1.7789052813458057`, 
         1.7789052813458057`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.444301127111797, 
           2.444301127111797}}]}, {-2.444301127111797, 2.444301127111797}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8694734038485593, 
           0.8694734038485593}}]}, {-0.8694734038485593, 0.8694734038485593}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5639124592811087`, 
           1.2070394278128138`}}]}, {-1.5639124592811087`, 
         1.2070394278128138`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2736427987438246`, 
           0.8614632776804838}}]}, {-1.2736427987438246`, 
         0.8614632776804838}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.047109825431583, 
           0.6994404810384942}}]}, {-1.047109825431583, 
         0.6994404810384942}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.4324201128935723, 0}, 
     PlotRange -> {{0.4633721284969296, 2.444301127111797}, {
       0, 2.444301127111797}}, PlotRangeClipping -> True, ImagePadding -> All,
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.4324201128935723, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4633721284969296, 2.444301127111797}, {
       0, 2.444301127111797}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 
   0.30000000000000004`],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.748179988879702*^9},ExpressionUUID->"c475b8ca-4e20-4da5-8819-\
f5d317d7327e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQbXTo8fET39/aB1898kbH7ol9qdi5gKh/L+1VItKC
XZc8tPf3ae/k/ffMPlP4pHxG9H37GLMDNVMYntjv7Aur+2981973lPTMrP8P
7M8kni5jenoXTsPEYepg+mDmwMyF2QOzF+YOmLsOLF/ItcL+uf1jU7UoA5OP
9n+sDC8du/3afn5yjfecui/2U+9U3cs+/8Q+fq6wVSrPS/sX3zWlNEM/2xt/
W+/0ieenvcXX7oobZX/g9PLSXrO3vcwOMBqmD2YOTB/MHJg9MHth7oC5CwBt
LaXY
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9364971069426871, 0.6325897812263669}}]},
          RowBox[{"{", 
            RowBox[{"0.9364971069426871`", ",", "0.6325897812263669`"}], 
            "}"}]],
         Annotation[#, {0.9364971069426871, 0.6325897812263669}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8122989252303358, 0.5513025883581162}}]},
          RowBox[{"{", 
            RowBox[{"0.8122989252303358`", ",", "0.5513025883581162`"}], 
            "}"}]],
         Annotation[#, {0.8122989252303358, 0.5513025883581162}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.7185123144248652, 0.48995402435348595`}}]},
          RowBox[{"{", 
            RowBox[{"0.7185123144248652`", ",", "0.48995402435348595`"}], 
            "}"}]],
         Annotation[#, {0.7185123144248652, 0.48995402435348595`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6250708042659414, 0.4562987073679597}}]},
          RowBox[{"{", 
            RowBox[{"0.6250708042659414`", ",", "0.4562987073679597`"}], 
            "}"}]],
         Annotation[#, {0.6250708042659414, 0.4562987073679597}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.531178759613178, 0.4671026382543715}}]},
          RowBox[{"{", 
            RowBox[{"0.531178759613178`", ",", "0.4671026382543715`"}], "}"}]],
         Annotation[#, {0.531178759613178, 0.4671026382543715}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4671026382543715, 0.531178759613178}}]},
          RowBox[{"{", 
            RowBox[{"0.4671026382543715`", ",", "0.531178759613178`"}], "}"}]],
         Annotation[#, {0.4671026382543715, 0.531178759613178}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4562987073679597, 0.6250708042659414}}]},
          RowBox[{"{", 
            RowBox[{"0.4562987073679597`", ",", "0.6250708042659414`"}], 
            "}"}]],
         Annotation[#, {0.4562987073679597, 0.6250708042659414}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.48995402435348595`, 0.7185123144248652}}]},
          RowBox[{"{", 
            RowBox[{"0.48995402435348595`", ",", "0.7185123144248652`"}], 
            "}"}]],
         Annotation[#, {0.48995402435348595`, 0.7185123144248652}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5513025883581162, 0.8122989252303358}}]},
          RowBox[{"{", 
            RowBox[{"0.5513025883581162`", ",", "0.8122989252303358`"}], 
            "}"}]],
         Annotation[#, {0.5513025883581162, 0.8122989252303358}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6325897812263669, 0.9364971069426871}}]},
          RowBox[{"{", 
            RowBox[{"0.6325897812263669`", ",", "0.9364971069426871`"}], 
            "}"}]],
         Annotation[#, {0.6325897812263669, 0.9364971069426871}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7265205581327265, 1.0752414246993502`}}]},
          RowBox[{"{", 
            RowBox[{"0.7265205581327265`", ",", "1.0752414246993502`"}], 
            "}"}]],
         Annotation[#, {0.7265205581327265, 1.0752414246993502`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8705782037085039, 1.280910773150232}}]},
          RowBox[{"{", 
            RowBox[{"0.8705782037085039`", ",", "1.280910773150232`"}], "}"}]],
         Annotation[#, {0.8705782037085039, 1.280910773150232}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.650319990664587, 0.7827631124791131}}]},
          RowBox[{"{", 
            RowBox[{"0.650319990664587`", ",", "0.7827631124791131`"}], "}"}]],
         Annotation[#, {0.650319990664587, 0.7827631124791131}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2082911512402408`, 1.56566072511431}}]},
          RowBox[{"{", 
            RowBox[{"1.2082911512402408`", ",", "1.56566072511431`"}], "}"}]],
         Annotation[#, {1.2082911512402408`, 1.56566072511431}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790150364738349`, 1.7790150364738349`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790150364738349`", ",", "1.7790150364738349`"}], 
            "}"}]],
         Annotation[#, {1.7790150364738349`, 1.7790150364738349`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7827631124791131, 0.650319990664587}}]},
          RowBox[{"{", 
            RowBox[{"0.7827631124791131`", ",", "0.650319990664587`"}], "}"}]],
         Annotation[#, {0.7827631124791131, 0.650319990664587}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.56566072511431, 1.2082911512402408`}}]},
          RowBox[{"{", 
            RowBox[{"1.56566072511431`", ",", "1.2082911512402408`"}], "}"}]],
         Annotation[#, {1.56566072511431, 1.2082911512402408`}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.280910773150232, 0.8705782037085039}}]},
          RowBox[{"{", 
            RowBox[{"1.280910773150232`", ",", "0.8705782037085039`"}], "}"}]],
         Annotation[#, {1.280910773150232, 0.8705782037085039}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0752414246993502`, 0.7265205581327265}}]},
          RowBox[{"{", 
            RowBox[{"1.0752414246993502`", ",", "0.7265205581327265`"}], 
            "}"}]],
         Annotation[#, {1.0752414246993502`, 0.7265205581327265}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQbXTo8fET39/uD7565I2O3RP7UrFzAVH/Xu5XiUgL
dl3y0N7fp72T99+z/ZnCJ+Uzou/bx5gdqJnC8GT/zr6wuv/Gd+19T0nPzPr/
YP+ZxNNlTE/v2kPp/VBxe6i6/VB99lBz9kPNtYfasx9qrz3UHfuh7rI/sHwh
1wr75/sfm6pFGZh8tP9jZXjp2O3X++cn13jPqftiP/VO1b3s80/2x88Vtkrl
eWn/4rumlGbo5/3G39Y7feL5aW/xtbviRtmf/VDafnlpr9nbXuYDUNoBqm8/
1Bx7qL79UHPsofbsh9prD3XHfqi77AG3h6/Y
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9364971069426871, 0.6325897812263669}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9364971069426871`"}], ",", 
              "0.6325897812263669`"}], "}"}]],
         Annotation[#, {-0.9364971069426871, 0.6325897812263669}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8122989252303358, 0.5513025883581162}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8122989252303358`"}], ",", 
              "0.5513025883581162`"}], "}"}]],
         Annotation[#, {-0.8122989252303358, 0.5513025883581162}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7185123144248652, 0.48995402435348595`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7185123144248652`"}], ",", 
              "0.48995402435348595`"}], "}"}]],
         Annotation[#, {-0.7185123144248652, 0.48995402435348595`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6250708042659414, 0.4562987073679597}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6250708042659414`"}], ",", 
              "0.4562987073679597`"}], "}"}]],
         Annotation[#, {-0.6250708042659414, 0.4562987073679597}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.531178759613178, 0.4671026382543715}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.531178759613178`"}], ",", 
              "0.4671026382543715`"}], "}"}]],
         Annotation[#, {-0.531178759613178, 0.4671026382543715}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4671026382543715, 0.531178759613178}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4671026382543715`"}], ",", 
              "0.531178759613178`"}], "}"}]],
         Annotation[#, {-0.4671026382543715, 0.531178759613178}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4562987073679597, 0.6250708042659414}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4562987073679597`"}], ",", 
              "0.6250708042659414`"}], "}"}]],
         Annotation[#, {-0.4562987073679597, 0.6250708042659414}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.48995402435348595`, 0.7185123144248652}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.48995402435348595`"}], ",", 
              "0.7185123144248652`"}], "}"}]],
         Annotation[#, {-0.48995402435348595`, 0.7185123144248652}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5513025883581162, 0.8122989252303358}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5513025883581162`"}], ",", 
              "0.8122989252303358`"}], "}"}]],
         Annotation[#, {-0.5513025883581162, 0.8122989252303358}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6325897812263669, 0.9364971069426871}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6325897812263669`"}], ",", 
              "0.9364971069426871`"}], "}"}]],
         Annotation[#, {-0.6325897812263669, 0.9364971069426871}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7265205581327265, 1.0752414246993502`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7265205581327265`"}], ",", 
              "1.0752414246993502`"}], "}"}]],
         Annotation[#, {-0.7265205581327265, 1.0752414246993502`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8705782037085039, 1.280910773150232}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8705782037085039`"}], ",", 
              "1.280910773150232`"}], "}"}]],
         Annotation[#, {-0.8705782037085039, 1.280910773150232}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.650319990664587, 0.7827631124791131}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.650319990664587`"}], ",", 
              "0.7827631124791131`"}], "}"}]],
         Annotation[#, {-0.650319990664587, 0.7827631124791131}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.2082911512402408`, 1.56566072511431}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2082911512402408`"}], ",", 
              "1.56566072511431`"}], "}"}]],
         Annotation[#, {-1.2082911512402408`, 1.56566072511431}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790150364738349`, 1.7790150364738349`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790150364738349`"}], ",", 
              "1.7790150364738349`"}], "}"}]],
         Annotation[#, {-1.7790150364738349`, 1.7790150364738349`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7827631124791131, 0.650319990664587}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7827631124791131`"}], ",", 
              "0.650319990664587`"}], "}"}]],
         Annotation[#, {-0.7827631124791131, 0.650319990664587}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.56566072511431, 1.2082911512402408`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.56566072511431`"}], ",", 
              "1.2082911512402408`"}], "}"}]],
         Annotation[#, {-1.56566072511431, 1.2082911512402408`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.280910773150232, 0.8705782037085039}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.280910773150232`"}], ",", 
              "0.8705782037085039`"}], "}"}]],
         Annotation[#, {-1.280910773150232, 0.8705782037085039}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0752414246993502`, 0.7265205581327265}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0752414246993502`"}], ",", 
              "0.7265205581327265`"}], "}"}]],
         Annotation[#, {-1.0752414246993502`, 0.7265205581327265}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.4`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQbXTo8fET39/aB1898kbH7ol9qdi5gKh/L+1VItKC
XZc8tPf3ae/k/ffMPlP4pHxG9H37GLMDNVMYntjv7Aur+2981973lPTMrP8P
7M8kni5jenoXTsPEYepg+mDmwMyF2QOzF+YOmLsOLF/ItcL+uf1jU7UoA5OP
9n+sDC8du/3afn5yjfecui/2U+9U3cs+/8Q+fq6wVSrPS/sX3zWlNEM/2xt/
W+/0ieenvcXX7oobZX/g9PLSXrO3vcwOMBqmD2YOTB/MHJg9MHth7oC5CwBt
LaXY
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9364971069426871, 0.6325897812263669}}]}, {
         0.9364971069426871, 0.6325897812263669}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8122989252303358, 0.5513025883581162}}]}, {
         0.8122989252303358, 0.5513025883581162}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7185123144248652, 0.48995402435348595`}}]}, {
         0.7185123144248652, 0.48995402435348595`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6250708042659414, 0.4562987073679597}}]}, {
         0.6250708042659414, 0.4562987073679597}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.531178759613178, 0.4671026382543715}}]}, {
         0.531178759613178, 0.4671026382543715}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4671026382543715, 0.531178759613178}}]}, {
         0.4671026382543715, 0.531178759613178}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4562987073679597, 0.6250708042659414}}]}, {
         0.4562987073679597, 0.6250708042659414}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.48995402435348595`, 0.7185123144248652}}]}, {
         0.48995402435348595`, 0.7185123144248652}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5513025883581162, 0.8122989252303358}}]}, {
         0.5513025883581162, 0.8122989252303358}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6325897812263669, 0.9364971069426871}}]}, {
         0.6325897812263669, 0.9364971069426871}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7265205581327265, 1.0752414246993502`}}]}, {
         0.7265205581327265, 1.0752414246993502`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8705782037085039, 1.280910773150232}}]}, {
         0.8705782037085039, 1.280910773150232}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.650319990664587, 0.7827631124791131}}]}, {
         0.650319990664587, 0.7827631124791131}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2082911512402408`, 1.56566072511431}}]}, {
         1.2082911512402408`, 1.56566072511431}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790150364738349`, 1.7790150364738349`}}]}, {
         1.7790150364738349`, 1.7790150364738349`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7827631124791131, 0.650319990664587}}]}, {
         0.7827631124791131, 0.650319990664587}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.56566072511431, 1.2082911512402408`}}]}, {
         1.56566072511431, 1.2082911512402408`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.280910773150232, 0.8705782037085039}}]}, {
         1.280910773150232, 0.8705782037085039}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0752414246993502`, 0.7265205581327265}}]}, {
         1.0752414246993502`, 
         0.7265205581327265}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQbXTo8fET39/uD7565I2O3RP7UrFzAVH/Xu5XiUgL
dl3y0N7fp72T99+z/ZnCJ+Uzou/bx5gdqJnC8GT/zr6wuv/Gd+19T0nPzPr/
YP+ZxNNlTE/v2kPp/VBxe6i6/VB99lBz9kPNtYfasx9qrz3UHfuh7rI/sHwh
1wr75/sfm6pFGZh8tP9jZXjp2O3X++cn13jPqftiP/VO1b3s80/2x88Vtkrl
eWn/4rumlGbo5/3G39Y7feL5aW/xtbviRtmf/VDafnlpr9nbXuYDUNoBqm8/
1Bx7qL79UHPsofbsh9prD3XHfqi77AG3h6/Y
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9364971069426871, 
           0.6325897812263669}}]}, {-0.9364971069426871, 0.6325897812263669}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8122989252303358, 
           0.5513025883581162}}]}, {-0.8122989252303358, 0.5513025883581162}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7185123144248652, 
           0.48995402435348595`}}]}, {-0.7185123144248652, 
         0.48995402435348595`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6250708042659414, 
           0.4562987073679597}}]}, {-0.6250708042659414, 0.4562987073679597}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.531178759613178, 
           0.4671026382543715}}]}, {-0.531178759613178, 0.4671026382543715}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4671026382543715, 
           0.531178759613178}}]}, {-0.4671026382543715, 0.531178759613178}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4562987073679597, 
           0.6250708042659414}}]}, {-0.4562987073679597, 0.6250708042659414}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.48995402435348595`, 
           0.7185123144248652}}]}, {-0.48995402435348595`, 
         0.7185123144248652}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5513025883581162, 
           0.8122989252303358}}]}, {-0.5513025883581162, 0.8122989252303358}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6325897812263669, 
           0.9364971069426871}}]}, {-0.6325897812263669, 0.9364971069426871}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7265205581327265, 
           1.0752414246993502`}}]}, {-0.7265205581327265, 
         1.0752414246993502`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8705782037085039, 
           1.280910773150232}}]}, {-0.8705782037085039, 1.280910773150232}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.650319990664587, 
           0.7827631124791131}}]}, {-0.650319990664587, 0.7827631124791131}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2082911512402408`, 
           1.56566072511431}}]}, {-1.2082911512402408`, 1.56566072511431}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790150364738349`, 
           1.7790150364738349`}}]}, {-1.7790150364738349`, 
         1.7790150364738349`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7827631124791131, 
           0.650319990664587}}]}, {-0.7827631124791131, 0.650319990664587}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.56566072511431, 
           1.2082911512402408`}}]}, {-1.56566072511431, 1.2082911512402408`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.280910773150232, 
           0.8705782037085039}}]}, {-1.280910773150232, 0.8705782037085039}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0752414246993502`, 
           0.7265205581327265}}]}, {-1.0752414246993502`, 
         0.7265205581327265}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.4252361855405162, 0}, 
     PlotRange -> {{0.4562987073679597, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.4252361855405162, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4562987073679597, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.4],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.7481799894185963`*^9},ExpressionUUID->"abd5260b-9e5e-4546-8455-\
199f7d4c0413"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/UI51X9K+Tv7D1s+FTutfGKfrnPeeD7Pa3udU8VS
zCKP7J/uiPv5eupze7nyVoffz+/b/xaLMlQze2LP3a25qC3prn2Efk2aq8hD
+21/pwmnMd2D0zBxmDqYPpg5MHN1zgRXTd3/2P5TW6L/YbNncHfA3DX5im79
sbzn9kVv9CcqGn+0t1jlZff33mv7y0/Fe0prv8DdCXP3++MXtCxCP9s/q3lz
5SPPT/sDL13m3Sj7A6eXl/aave1ldoDR6aWp/EeA9pbuDQiaBnQHTB/MHJg9
MHth7oC5CwCkfKW5
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9520970869717731, 0.6456615700350579}}]},
          RowBox[{"{", 
            RowBox[{"0.9520970869717731`", ",", "0.6456615700350579`"}], 
            "}"}]],
         Annotation[#, {0.9520970869717731, 0.6456615700350579}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8452907573604421, 0.5649428860327297}}]},
          RowBox[{"{", 
            RowBox[{"0.8452907573604421`", ",", "0.5649428860327297`"}], 
            "}"}]],
         Annotation[#, {0.8452907573604421, 0.5649428860327297}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7370509977825149, 0.4985340242472932}}]},
          RowBox[{"{", 
            RowBox[{"0.7370509977825149`", ",", "0.4985340242472932`"}], 
            "}"}]],
         Annotation[#, {0.7370509977825149, 0.4985340242472932}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.6316100086121134, 0.45913854442748975`}}]},
          RowBox[{"{", 
            RowBox[{"0.6316100086121134`", ",", "0.45913854442748975`"}], 
            "}"}]],
         Annotation[#, {0.6316100086121134, 0.45913854442748975`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5337244989072856, 0.46889640725199955`}}]},
          RowBox[{"{", 
            RowBox[{"0.5337244989072856`", ",", "0.46889640725199955`"}], 
            "}"}]],
         Annotation[#, {0.5337244989072856, 0.46889640725199955`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46889640725199955`, 0.5337244989072856}}]},
          RowBox[{"{", 
            RowBox[{"0.46889640725199955`", ",", "0.5337244989072856`"}], 
            "}"}]],
         Annotation[#, {0.46889640725199955`, 0.5337244989072856}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.45913854442748975`, 0.6316100086121134}}]},
          RowBox[{"{", 
            RowBox[{"0.45913854442748975`", ",", "0.6316100086121134`"}], 
            "}"}]],
         Annotation[#, {0.45913854442748975`, 0.6316100086121134}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4985340242472932, 0.7370509977825149}}]},
          RowBox[{"{", 
            RowBox[{"0.4985340242472932`", ",", "0.7370509977825149`"}], 
            "}"}]],
         Annotation[#, {0.4985340242472932, 0.7370509977825149}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6171367062764879, 0.6941849279794197}}]},
          RowBox[{"{", 
            RowBox[{"0.6171367062764879`", ",", "0.6941849279794197`"}], 
            "}"}]],
         Annotation[#, {0.6171367062764879, 0.6941849279794197}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6456615700350579, 0.9520970869717731}}]},
          RowBox[{"{", 
            RowBox[{"0.6456615700350579`", ",", "0.9520970869717731`"}], 
            "}"}]],
         Annotation[#, {0.6456615700350579, 0.9520970869717731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.732272385021718, 1.074983183991915}}]},
          RowBox[{"{", 
            RowBox[{"0.732272385021718`", ",", "1.074983183991915`"}], "}"}]],
         Annotation[#, {0.732272385021718, 1.074983183991915}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8709703652032834, 1.2806296799084194`}}]},
          RowBox[{"{", 
            RowBox[{"0.8709703652032834`", ",", "1.2806296799084194`"}], 
            "}"}]],
         Annotation[#, {0.8709703652032834, 1.2806296799084194`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5649428860327297, 0.8452907573604421}}]},
          RowBox[{"{", 
            RowBox[{"0.5649428860327297`", ",", "0.8452907573604421`"}], 
            "}"}]],
         Annotation[#, {0.5649428860327297, 0.8452907573604421}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.2083055183870746`, 1.5656603162131488`}}]},
          RowBox[{"{", 
            RowBox[{"1.2083055183870746`", ",", "1.5656603162131488`"}], 
            "}"}]],
         Annotation[#, {1.2083055183870746`, 1.5656603162131488`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790151770010283`", ",", "1.7790151770010283`"}], 
            "}"}]],
         Annotation[#, {1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6941852856358935, 0.617137108585594}}]},
          RowBox[{"{", 
            RowBox[{"0.6941852856358935`", ",", "0.617137108585594`"}], "}"}]],
         Annotation[#, {0.6941852856358935, 0.617137108585594}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.5656603162131488`, 1.2083055183870746`}}]},
          RowBox[{"{", 
            RowBox[{"1.5656603162131488`", ",", "1.2083055183870746`"}], 
            "}"}]],
         Annotation[#, {1.5656603162131488`, 1.2083055183870746`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2806296799084194`, 0.8709703652032834}}]},
          RowBox[{"{", 
            RowBox[{"1.2806296799084194`", ",", "0.8709703652032834`"}], 
            "}"}]],
         Annotation[#, {1.2806296799084194`, 0.8709703652032834}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.074983183991915, 0.732272385021718}}]},
          RowBox[{"{", 
            RowBox[{"1.074983183991915`", ",", "0.732272385021718`"}], "}"}]],
         Annotation[#, {1.074983183991915, 0.732272385021718}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/UI51X9K+bv9H7Z8KnZa+cQ+Xee88Xye1/t1ThVL
MYs8sn+6I+7n66nP98uVtzr8fn7f/rdYlKGa2ZP93N2ai9qS7tpH6NekuYo8
3L/t7zThNKZ79lB6P1TcHqpuP1SfPdSc/VBz7XXOBFdN3f94/6e2RP/DZs/s
oe7YD3WX/eQruvXH8p7vL3qjP1HR+KO9xSovu7/3Xu+//FS8p7T2iz3Unfuh
7rZ/f/yClkXo5/3Pat5c+cjz0/7AS5d5N8r+7IfS9stLe83e9jIfgNIO6aWp
/EfMnu0v3RsQNG3/Y3uovv1Qc+yh9uyH2msPdcd+qLvsAe7Wr7k=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9520970869717731, 0.6456615700350579}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9520970869717731`"}], ",", 
              "0.6456615700350579`"}], "}"}]],
         Annotation[#, {-0.9520970869717731, 0.6456615700350579}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8452907573604421, 0.5649428860327297}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8452907573604421`"}], ",", 
              "0.5649428860327297`"}], "}"}]],
         Annotation[#, {-0.8452907573604421, 0.5649428860327297}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7370509977825149, 0.4985340242472932}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7370509977825149`"}], ",", 
              "0.4985340242472932`"}], "}"}]],
         Annotation[#, {-0.7370509977825149, 0.4985340242472932}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.6316100086121134, 0.45913854442748975`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6316100086121134`"}], ",", 
              "0.45913854442748975`"}], "}"}]],
         Annotation[#, {-0.6316100086121134, 0.45913854442748975`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5337244989072856, 0.46889640725199955`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5337244989072856`"}], ",", 
              "0.46889640725199955`"}], "}"}]],
         Annotation[#, {-0.5337244989072856, 0.46889640725199955`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46889640725199955`, 0.5337244989072856}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46889640725199955`"}], ",", 
              "0.5337244989072856`"}], "}"}]],
         Annotation[#, {-0.46889640725199955`, 0.5337244989072856}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.45913854442748975`, 0.6316100086121134}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.45913854442748975`"}], ",", 
              "0.6316100086121134`"}], "}"}]],
         Annotation[#, {-0.45913854442748975`, 0.6316100086121134}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4985340242472932, 0.7370509977825149}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4985340242472932`"}], ",", 
              "0.7370509977825149`"}], "}"}]],
         Annotation[#, {-0.4985340242472932, 0.7370509977825149}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6171367062764879, 0.6941849279794197}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6171367062764879`"}], ",", 
              "0.6941849279794197`"}], "}"}]],
         Annotation[#, {-0.6171367062764879, 0.6941849279794197}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6456615700350579, 0.9520970869717731}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6456615700350579`"}], ",", 
              "0.9520970869717731`"}], "}"}]],
         Annotation[#, {-0.6456615700350579, 0.9520970869717731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.732272385021718, 1.074983183991915}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.732272385021718`"}], ",", 
              "1.074983183991915`"}], "}"}]],
         Annotation[#, {-0.732272385021718, 1.074983183991915}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8709703652032834, 1.2806296799084194`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8709703652032834`"}], ",", 
              "1.2806296799084194`"}], "}"}]],
         Annotation[#, {-0.8709703652032834, 1.2806296799084194`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5649428860327297, 0.8452907573604421}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5649428860327297`"}], ",", 
              "0.8452907573604421`"}], "}"}]],
         Annotation[#, {-0.5649428860327297, 0.8452907573604421}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2083055183870746`, 1.5656603162131488`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2083055183870746`"}], ",", 
              "1.5656603162131488`"}], "}"}]],
         Annotation[#, {-1.2083055183870746`, 1.5656603162131488`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790151770010283`"}], ",", 
              "1.7790151770010283`"}], "}"}]],
         Annotation[#, {-1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6941852856358935, 0.617137108585594}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6941852856358935`"}], ",", 
              "0.617137108585594`"}], "}"}]],
         Annotation[#, {-0.6941852856358935, 0.617137108585594}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.5656603162131488`, 1.2083055183870746`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5656603162131488`"}], ",", 
              "1.2083055183870746`"}], "}"}]],
         Annotation[#, {-1.5656603162131488`, 1.2083055183870746`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2806296799084194`, 0.8709703652032834}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2806296799084194`"}], ",", 
              "0.8709703652032834`"}], "}"}]],
         Annotation[#, {-1.2806296799084194`, 0.8709703652032834}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.074983183991915, 0.732272385021718}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.074983183991915`"}], ",", 
              "0.732272385021718`"}], "}"}]],
         Annotation[#, {-1.074983183991915, 0.732272385021718}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.5`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/UI51X9K+Tv7D1s+FTutfGKfrnPeeD7Pa3udU8VS
zCKP7J/uiPv5eupze7nyVoffz+/b/xaLMlQze2LP3a25qC3prn2Efk2aq8hD
+21/pwmnMd2D0zBxmDqYPpg5MHN1zgRXTd3/2P5TW6L/YbNncHfA3DX5im79
sbzn9kVv9CcqGn+0t1jlZff33mv7y0/Fe0prv8DdCXP3++MXtCxCP9s/q3lz
5SPPT/sDL13m3Sj7A6eXl/aave1ldoDR6aWp/EeA9pbuDQiaBnQHTB/MHJg9
MHth7oC5CwCkfKW5
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9520970869717731, 0.6456615700350579}}]}, {
         0.9520970869717731, 0.6456615700350579}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8452907573604421, 0.5649428860327297}}]}, {
         0.8452907573604421, 0.5649428860327297}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7370509977825149, 0.4985340242472932}}]}, {
         0.7370509977825149, 0.4985340242472932}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6316100086121134, 0.45913854442748975`}}]}, {
         0.6316100086121134, 0.45913854442748975`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5337244989072856, 0.46889640725199955`}}]}, {
         0.5337244989072856, 0.46889640725199955`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46889640725199955`, 0.5337244989072856}}]}, {
         0.46889640725199955`, 0.5337244989072856}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.45913854442748975`, 0.6316100086121134}}]}, {
         0.45913854442748975`, 0.6316100086121134}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4985340242472932, 0.7370509977825149}}]}, {
         0.4985340242472932, 0.7370509977825149}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6171367062764879, 0.6941849279794197}}]}, {
         0.6171367062764879, 0.6941849279794197}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6456615700350579, 0.9520970869717731}}]}, {
         0.6456615700350579, 0.9520970869717731}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.732272385021718, 1.074983183991915}}]}, {
         0.732272385021718, 1.074983183991915}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8709703652032834, 1.2806296799084194`}}]}, {
         0.8709703652032834, 1.2806296799084194`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5649428860327297, 0.8452907573604421}}]}, {
         0.5649428860327297, 0.8452907573604421}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2083055183870746`, 1.5656603162131488`}}]}, {
         1.2083055183870746`, 1.5656603162131488`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790151770010283`, 1.7790151770010283`}}]}, {
         1.7790151770010283`, 1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6941852856358935, 0.617137108585594}}]}, {
         0.6941852856358935, 0.617137108585594}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5656603162131488`, 1.2083055183870746`}}]}, {
         1.5656603162131488`, 1.2083055183870746`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2806296799084194`, 0.8709703652032834}}]}, {
         1.2806296799084194`, 0.8709703652032834}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.074983183991915, 0.732272385021718}}]}, {
         1.074983183991915, 
         0.732272385021718}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/UI51X9K+bv9H7Z8KnZa+cQ+Xee88Xye1/t1ThVL
MYs8sn+6I+7n66nP98uVtzr8fn7f/rdYlKGa2ZP93N2ai9qS7tpH6NekuYo8
3L/t7zThNKZ79lB6P1TcHqpuP1SfPdSc/VBz7XXOBFdN3f94/6e2RP/DZs/s
oe7YD3WX/eQruvXH8p7vL3qjP1HR+KO9xSovu7/3Xu+//FS8p7T2iz3Unfuh
7rZ/f/yClkXo5/3Pat5c+cjz0/7AS5d5N8r+7IfS9stLe83e9jIfgNIO6aWp
/EfMnu0v3RsQNG3/Y3uovv1Qc+yh9uyH2msPdcd+qLvsAe7Wr7k=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9520970869717731, 
           0.6456615700350579}}]}, {-0.9520970869717731, 0.6456615700350579}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8452907573604421, 
           0.5649428860327297}}]}, {-0.8452907573604421, 0.5649428860327297}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7370509977825149, 
           0.4985340242472932}}]}, {-0.7370509977825149, 0.4985340242472932}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6316100086121134, 
           0.45913854442748975`}}]}, {-0.6316100086121134, 
         0.45913854442748975`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5337244989072856, 
           0.46889640725199955`}}]}, {-0.5337244989072856, 
         0.46889640725199955`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46889640725199955`, 
           0.5337244989072856}}]}, {-0.46889640725199955`, 
         0.5337244989072856}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.45913854442748975`, 
           0.6316100086121134}}]}, {-0.45913854442748975`, 0.6316100086121134}
         ], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4985340242472932, 
           0.7370509977825149}}]}, {-0.4985340242472932, 0.7370509977825149}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6171367062764879, 
           0.6941849279794197}}]}, {-0.6171367062764879, 0.6941849279794197}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6456615700350579, 
           0.9520970869717731}}]}, {-0.6456615700350579, 0.9520970869717731}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.732272385021718, 
           1.074983183991915}}]}, {-0.732272385021718, 1.074983183991915}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8709703652032834, 
           1.2806296799084194`}}]}, {-0.8709703652032834, 
         1.2806296799084194`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5649428860327297, 
           0.8452907573604421}}]}, {-0.5649428860327297, 0.8452907573604421}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2083055183870746`, 
           1.5656603162131488`}}]}, {-1.2083055183870746`, 
         1.5656603162131488`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790151770010283`, 
           1.7790151770010283`}}]}, {-1.7790151770010283`, 
         1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6941852856358935, 
           0.617137108585594}}]}, {-0.6941852856358935, 0.617137108585594}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5656603162131488`, 
           1.2083055183870746`}}]}, {-1.5656603162131488`, 
         1.2083055183870746`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2806296799084194`, 
           0.8709703652032834}}]}, {-1.2806296799084194`, 
         0.8709703652032834}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.074983183991915, 
           0.732272385021718}}]}, {-1.074983183991915, 
         0.732272385021718}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.42812039505410143`, 0}, 
     PlotRange -> {{0.45913854442748975`, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.42812039505410143`, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.45913854442748975`, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.5],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.748179990022677*^9},ExpressionUUID->"6fb4c2ec-0892-420f-a946-\
bc7d76ab7062"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{"0.9400840776583349`", ",", "0.6382742929702889`"}], 
            "}"}]],
         Annotation[#, {0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{"0.8082704722559748`", ",", "0.5495190227106762`"}], 
            "}"}]],
         Annotation[#, {0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{"0.7156817112302731`", ",", "0.48624408663704277`"}], 
            "}"}]],
         Annotation[#, {0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{"0.6232667855920156`", ",", "0.4551895056151928`"}], 
            "}"}]],
         Annotation[#, {0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{"0.5304309047511475`", ",", "0.46657255032322775`"}], 
            "}"}]],
         Annotation[#, {0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{"0.46657301778716115`", ",", "0.5304303733073913`"}], 
            "}"}]],
         Annotation[#, {0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{"0.4551900287891124`", ",", "0.6232671676809496`"}], 
            "}"}]],
         Annotation[#, {0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{"0.48624408663704277`", ",", "0.7156817112302731`"}], 
            "}"}]],
         Annotation[#, {0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{"0.5495185996529202`", ",", "0.8082701846316653`"}], 
            "}"}]],
         Annotation[#, {0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{"0.6382742929702889`", ",", "0.9400840776583349`"}], 
            "}"}]],
         Annotation[#, {0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{"0.7288895183079084`", ",", "1.0751608855883545`"}], 
            "}"}]],
         Annotation[#, {0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{"0.8707668958008908`", ",", "1.2807888142948154`"}], 
            "}"}]],
         Annotation[#, {0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{"0.6278484305899944`", ",", "0.8101429823150472`"}], 
            "}"}]],
         Annotation[#, {0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{"1.208298180357672`", ",", "1.5656607207998996`"}], "}"}]],
         Annotation[#, {1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790151770010283`", ",", "1.7790151770010283`"}], 
            "}"}]],
         Annotation[#, {1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{"0.8101426834890575`", ",", "0.6278480450004215`"}], 
            "}"}]],
         Annotation[#, {0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{"1.5656607207998996`", ",", "1.208298180357672`"}], "}"}]],
         Annotation[#, {1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{"1.2807888142948154`", ",", "0.8707668958008908`"}], 
            "}"}]],
         Annotation[#, {1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{"1.0751608855883545`", ",", "0.7288895183079084`"}], 
            "}"}]],
         Annotation[#, {1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9400840776583349`"}], ",", 
              "0.6382742929702889`"}], "}"}]],
         Annotation[#, {-0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8082704722559748`"}], ",", 
              "0.5495190227106762`"}], "}"}]],
         Annotation[#, {-0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7156817112302731`"}], ",", 
              "0.48624408663704277`"}], "}"}]],
         Annotation[#, {-0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6232667855920156`"}], ",", 
              "0.4551895056151928`"}], "}"}]],
         Annotation[#, {-0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5304309047511475`"}], ",", 
              "0.46657255032322775`"}], "}"}]],
         Annotation[#, {-0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46657301778716115`"}], ",", 
              "0.5304303733073913`"}], "}"}]],
         Annotation[#, {-0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4551900287891124`"}], ",", 
              "0.6232671676809496`"}], "}"}]],
         Annotation[#, {-0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.48624408663704277`"}], ",", 
              "0.7156817112302731`"}], "}"}]],
         Annotation[#, {-0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5495185996529202`"}], ",", 
              "0.8082701846316653`"}], "}"}]],
         Annotation[#, {-0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6382742929702889`"}], ",", 
              "0.9400840776583349`"}], "}"}]],
         Annotation[#, {-0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7288895183079084`"}], ",", 
              "1.0751608855883545`"}], "}"}]],
         Annotation[#, {-0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8707668958008908`"}], ",", 
              "1.2807888142948154`"}], "}"}]],
         Annotation[#, {-0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6278484305899944`"}], ",", 
              "0.8101429823150472`"}], "}"}]],
         Annotation[#, {-0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.208298180357672`"}], ",", 
              "1.5656607207998996`"}], "}"}]],
         Annotation[#, {-1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790151770010283`"}], ",", 
              "1.7790151770010283`"}], "}"}]],
         Annotation[#, {-1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8101426834890575`"}], ",", 
              "0.6278480450004215`"}], "}"}]],
         Annotation[#, {-0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5656607207998996`"}], ",", 
              "1.208298180357672`"}], "}"}]],
         Annotation[#, {-1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2807888142948154`"}], ",", 
              "0.8707668958008908`"}], "}"}]],
         Annotation[#, {-1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0751608855883545`"}], ",", 
              "0.7288895183079084`"}], "}"}]],
         Annotation[#, {-1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.6`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9400840776583349, 0.6382742929702889}}]}, {
         0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8082704722559748, 0.5495190227106762}}]}, {
         0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7156817112302731, 0.48624408663704277`}}]}, {
         0.7156817112302731, 0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6232667855920156, 0.4551895056151928}}]}, {
         0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5304309047511475, 0.46657255032322775`}}]}, {
         0.5304309047511475, 0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46657301778716115`, 0.5304303733073913}}]}, {
         0.46657301778716115`, 0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4551900287891124, 0.6232671676809496}}]}, {
         0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.48624408663704277`, 0.7156817112302731}}]}, {
         0.48624408663704277`, 0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5495185996529202, 0.8082701846316653}}]}, {
         0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6382742929702889, 0.9400840776583349}}]}, {
         0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7288895183079084, 1.0751608855883545`}}]}, {
         0.7288895183079084, 1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8707668958008908, 1.2807888142948154`}}]}, {
         0.8707668958008908, 1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6278484305899944, 0.8101429823150472}}]}, {
         0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.208298180357672, 1.5656607207998996`}}]}, {
         1.208298180357672, 1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790151770010283`, 1.7790151770010283`}}]}, {
         1.7790151770010283`, 1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8101426834890575, 0.6278480450004215}}]}, {
         0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5656607207998996`, 1.208298180357672}}]}, {
         1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2807888142948154`, 0.8707668958008908}}]}, {
         1.2807888142948154`, 0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0751608855883545`, 0.7288895183079084}}]}, {
         1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9400840776583349, 
           0.6382742929702889}}]}, {-0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8082704722559748, 
           0.5495190227106762}}]}, {-0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7156817112302731, 
           0.48624408663704277`}}]}, {-0.7156817112302731, 
         0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6232667855920156, 
           0.4551895056151928}}]}, {-0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5304309047511475, 
           0.46657255032322775`}}]}, {-0.5304309047511475, 
         0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46657301778716115`, 
           0.5304303733073913}}]}, {-0.46657301778716115`, 
         0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4551900287891124, 
           0.6232671676809496}}]}, {-0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.48624408663704277`, 
           0.7156817112302731}}]}, {-0.48624408663704277`, 
         0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5495185996529202, 
           0.8082701846316653}}]}, {-0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6382742929702889, 
           0.9400840776583349}}]}, {-0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7288895183079084, 
           1.0751608855883545`}}]}, {-0.7288895183079084, 
         1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8707668958008908, 
           1.2807888142948154`}}]}, {-0.8707668958008908, 
         1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6278484305899944, 
           0.8101429823150472}}]}, {-0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.208298180357672, 
           1.5656607207998996`}}]}, {-1.208298180357672, 
         1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790151770010283`, 
           1.7790151770010283`}}]}, {-1.7790151770010283`, 
         1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8101426834890575, 
           0.6278480450004215}}]}, {-0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5656607207998996`, 
           1.208298180357672}}]}, {-1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2807888142948154`, 
           0.8707668958008908}}]}, {-1.2807888142948154`, 
         0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0751608855883545`, 
           0.7288895183079084}}]}, {-1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.42411018385887445`, 0}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.42411018385887445`, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.6],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.748179990540628*^9},ExpressionUUID->"eeea0204-898a-4198-8080-\
930b859189a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQHX/VIbhQ5539jR1h977mPrEvKIp/fyjilX2O8pOY
658e2utPVr3ySum5ff/0BTqrWu7btxltuXyU+4n99xVFiess7tobHPqaf4/p
of2DpU6b5724C6dh4jB1MH0wc2DmwuyB2QtzB8xdeltedgiGPLf/1LHwYaDJ
R/u1THySYXdf28dybDwrU/fF/vnca5oTpJ/Y22jZmdsHvrCvsWWvNAj9bO9V
1e74ieen/YGXLvNulP2B08tLe83e9jI7wGiYPpg5MH0wc2D2wOyFuQPmLgBg
R6XA
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.94292513142015, 0.6384229033044688}}]},
          RowBox[{"{", 
            RowBox[{"0.94292513142015`", ",", "0.6384229033044688`"}], "}"}]],
         Annotation[#, {0.94292513142015, 0.6384229033044688}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8233351397753506, 0.5608937086372925}}]},
          RowBox[{"{", 
            RowBox[{"0.8233351397753506`", ",", "0.5608937086372925`"}], 
            "}"}]],
         Annotation[#, {0.8233351397753506, 0.5608937086372925}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.7230123656741848, 0.49247221334587093`}}]},
          RowBox[{"{", 
            RowBox[{"0.7230123656741848`", ",", "0.49247221334587093`"}], 
            "}"}]],
         Annotation[#, {0.7230123656741848, 0.49247221334587093`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.6264371046869008, 0.45658454433818413`}}]},
          RowBox[{"{", 
            RowBox[{"0.6264371046869008`", ",", "0.45658454433818413`"}], 
            "}"}]],
         Annotation[#, {0.6264371046869008, 0.45658454433818413`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5316002070158614, 0.46732299333470273`}}]},
          RowBox[{"{", 
            RowBox[{"0.5316002070158614`", ",", "0.46732299333470273`"}], 
            "}"}]],
         Annotation[#, {0.5316002070158614, 0.46732299333470273`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46732299333470273`, 0.5316002070158614}}]},
          RowBox[{"{", 
            RowBox[{"0.46732299333470273`", ",", "0.5316002070158614`"}], 
            "}"}]],
         Annotation[#, {0.46732299333470273`, 0.5316002070158614}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.45658454433818413`, 0.6264371046869008}}]},
          RowBox[{"{", 
            RowBox[{"0.45658454433818413`", ",", "0.6264371046869008`"}], 
            "}"}]],
         Annotation[#, {0.45658454433818413`, 0.6264371046869008}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.49247221334587093`, 0.7230123656741848}}]},
          RowBox[{"{", 
            RowBox[{"0.49247221334587093`", ",", "0.7230123656741848`"}], 
            "}"}]],
         Annotation[#, {0.49247221334587093`, 0.7230123656741848}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5608937086372925, 0.8233351397753506}}]},
          RowBox[{"{", 
            RowBox[{"0.5608937086372925`", ",", "0.8233351397753506`"}], 
            "}"}]],
         Annotation[#, {0.5608937086372925, 0.8233351397753506}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6384229033044688, 0.94292513142015}}]},
          RowBox[{"{", 
            RowBox[{"0.6384229033044688`", ",", "0.94292513142015`"}], "}"}]],
         Annotation[#, {0.6384229033044688, 0.94292513142015}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7290122675018489, 1.0752734006605889`}}]},
          RowBox[{"{", 
            RowBox[{"0.7290122675018489`", ",", "1.0752734006605889`"}], 
            "}"}]],
         Annotation[#, {0.7290122675018489, 1.0752734006605889`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8707685937261737, 1.280789187891535}}]},
          RowBox[{"{", 
            RowBox[{"0.8707685937261737`", ",", "1.280789187891535`"}], "}"}]],
         Annotation[#, {0.8707685937261737, 1.280789187891535}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6283646409182752, 0.7599178389512597}}]},
          RowBox[{"{", 
            RowBox[{"0.6283646409182752`", ",", "0.7599178389512597`"}], 
            "}"}]],
         Annotation[#, {0.6283646409182752, 0.7599178389512597}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{"1.208298180357672`", ",", "1.5656607207998996`"}], "}"}]],
         Annotation[#, {1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790151770010283`", ",", "1.7790151770010283`"}], 
            "}"}]],
         Annotation[#, {1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7599178389512597, 0.6283646409182752}}]},
          RowBox[{"{", 
            RowBox[{"0.7599178389512597`", ",", "0.6283646409182752`"}], 
            "}"}]],
         Annotation[#, {0.7599178389512597, 0.6283646409182752}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{"1.5656607207998996`", ",", "1.208298180357672`"}], "}"}]],
         Annotation[#, {1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.280789187891535, 0.8707685937261737}}]},
          RowBox[{"{", 
            RowBox[{"1.280789187891535`", ",", "0.8707685937261737`"}], "}"}]],
         Annotation[#, {1.280789187891535, 0.8707685937261737}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0752734006605889`, 0.7290122675018489}}]},
          RowBox[{"{", 
            RowBox[{"1.0752734006605889`", ",", "0.7290122675018489`"}], 
            "}"}]],
         Annotation[#, {1.0752734006605889`, 0.7290122675018489}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQHX/VIbhQ593+GzvC7n3NfWJfUBT//lDEq/05yk9i
rn96aK8/WfXKK6Xn+/unL9BZ1XLfvs1oy+Wj3E/2f19RlLjO4q69waGv+feY
Hu5/sNRp87wXd+2h9H6ouD1U3X6oPnuoOfuh5tpD7dkPtdce6o79UHfZ6215
2SEY8nz/p46FDwNNPtqvZeKTDLv7en8sx8azMnVf7J/PvaY5QfrJfhstO3P7
wBf2NbbslQahn/d7VbU7fuL5aX/gpcu8G2V/9kNp++WlvWZve5kPQGkHqL79
UHPsofr2Q82xh9qzH2qvPdQd+6HusgcAqqGvwA==
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.94292513142015, 0.6384229033044688}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.94292513142015`"}], ",", 
              "0.6384229033044688`"}], "}"}]],
         Annotation[#, {-0.94292513142015, 0.6384229033044688}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8233351397753506, 0.5608937086372925}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8233351397753506`"}], ",", 
              "0.5608937086372925`"}], "}"}]],
         Annotation[#, {-0.8233351397753506, 0.5608937086372925}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7230123656741848, 0.49247221334587093`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7230123656741848`"}], ",", 
              "0.49247221334587093`"}], "}"}]],
         Annotation[#, {-0.7230123656741848, 0.49247221334587093`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.6264371046869008, 0.45658454433818413`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6264371046869008`"}], ",", 
              "0.45658454433818413`"}], "}"}]],
         Annotation[#, {-0.6264371046869008, 0.45658454433818413`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5316002070158614, 0.46732299333470273`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5316002070158614`"}], ",", 
              "0.46732299333470273`"}], "}"}]],
         Annotation[#, {-0.5316002070158614, 0.46732299333470273`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46732299333470273`, 0.5316002070158614}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46732299333470273`"}], ",", 
              "0.5316002070158614`"}], "}"}]],
         Annotation[#, {-0.46732299333470273`, 0.5316002070158614}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.45658454433818413`, 0.6264371046869008}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.45658454433818413`"}], ",", 
              "0.6264371046869008`"}], "}"}]],
         Annotation[#, {-0.45658454433818413`, 0.6264371046869008}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.49247221334587093`, 0.7230123656741848}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.49247221334587093`"}], ",", 
              "0.7230123656741848`"}], "}"}]],
         Annotation[#, {-0.49247221334587093`, 0.7230123656741848}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5608937086372925, 0.8233351397753506}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5608937086372925`"}], ",", 
              "0.8233351397753506`"}], "}"}]],
         Annotation[#, {-0.5608937086372925, 0.8233351397753506}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6384229033044688, 0.94292513142015}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6384229033044688`"}], ",", 
              "0.94292513142015`"}], "}"}]],
         Annotation[#, {-0.6384229033044688, 0.94292513142015}, "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7290122675018489, 1.0752734006605889`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7290122675018489`"}], ",", 
              "1.0752734006605889`"}], "}"}]],
         Annotation[#, {-0.7290122675018489, 1.0752734006605889`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8707685937261737, 1.280789187891535}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8707685937261737`"}], ",", 
              "1.280789187891535`"}], "}"}]],
         Annotation[#, {-0.8707685937261737, 1.280789187891535}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6283646409182752, 0.7599178389512597}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6283646409182752`"}], ",", 
              "0.7599178389512597`"}], "}"}]],
         Annotation[#, {-0.6283646409182752, 0.7599178389512597}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.208298180357672`"}], ",", 
              "1.5656607207998996`"}], "}"}]],
         Annotation[#, {-1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790151770010283`"}], ",", 
              "1.7790151770010283`"}], "}"}]],
         Annotation[#, {-1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.7599178389512597, 0.6283646409182752}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7599178389512597`"}], ",", 
              "0.6283646409182752`"}], "}"}]],
         Annotation[#, {-0.7599178389512597, 0.6283646409182752}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5656607207998996`"}], ",", 
              "1.208298180357672`"}], "}"}]],
         Annotation[#, {-1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.280789187891535, 0.8707685937261737}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.280789187891535`"}], ",", 
              "0.8707685937261737`"}], "}"}]],
         Annotation[#, {-1.280789187891535, 0.8707685937261737}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0752734006605889`, 0.7290122675018489}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0752734006605889`"}], ",", 
              "0.7290122675018489`"}], "}"}]],
         Annotation[#, {-1.0752734006605889`, 0.7290122675018489}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.7`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQHX/VIbhQ5539jR1h977mPrEvKIp/fyjilX2O8pOY
658e2utPVr3ySum5ff/0BTqrWu7btxltuXyU+4n99xVFiess7tobHPqaf4/p
of2DpU6b5724C6dh4jB1MH0wc2DmwuyB2QtzB8xdeltedgiGPLf/1LHwYaDJ
R/u1THySYXdf28dybDwrU/fF/vnca5oTpJ/Y22jZmdsHvrCvsWWvNAj9bO9V
1e74ieen/YGXLvNulP2B08tLe83e9jI7wGiYPpg5MH0wc2D2wOyFuQPmLgBg
R6XA
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.94292513142015, 0.6384229033044688}}]}, {0.94292513142015,
          0.6384229033044688}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8233351397753506, 0.5608937086372925}}]}, {
         0.8233351397753506, 0.5608937086372925}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7230123656741848, 0.49247221334587093`}}]}, {
         0.7230123656741848, 0.49247221334587093`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6264371046869008, 0.45658454433818413`}}]}, {
         0.6264371046869008, 0.45658454433818413`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5316002070158614, 0.46732299333470273`}}]}, {
         0.5316002070158614, 0.46732299333470273`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46732299333470273`, 0.5316002070158614}}]}, {
         0.46732299333470273`, 0.5316002070158614}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.45658454433818413`, 0.6264371046869008}}]}, {
         0.45658454433818413`, 0.6264371046869008}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.49247221334587093`, 0.7230123656741848}}]}, {
         0.49247221334587093`, 0.7230123656741848}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5608937086372925, 0.8233351397753506}}]}, {
         0.5608937086372925, 0.8233351397753506}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6384229033044688, 0.94292513142015}}]}, {
         0.6384229033044688, 0.94292513142015}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7290122675018489, 1.0752734006605889`}}]}, {
         0.7290122675018489, 1.0752734006605889`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8707685937261737, 1.280789187891535}}]}, {
         0.8707685937261737, 1.280789187891535}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6283646409182752, 0.7599178389512597}}]}, {
         0.6283646409182752, 0.7599178389512597}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.208298180357672, 1.5656607207998996`}}]}, {
         1.208298180357672, 1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790151770010283`, 1.7790151770010283`}}]}, {
         1.7790151770010283`, 1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7599178389512597, 0.6283646409182752}}]}, {
         0.7599178389512597, 0.6283646409182752}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5656607207998996`, 1.208298180357672}}]}, {
         1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.280789187891535, 0.8707685937261737}}]}, {
         1.280789187891535, 0.8707685937261737}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0752734006605889`, 0.7290122675018489}}]}, {
         1.0752734006605889`, 
         0.7290122675018489}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQHX/VIbhQ593+GzvC7n3NfWJfUBT//lDEq/05yk9i
rn96aK8/WfXKK6Xn+/unL9BZ1XLfvs1oy+Wj3E/2f19RlLjO4q69waGv+feY
Hu5/sNRp87wXd+2h9H6ouD1U3X6oPnuoOfuh5tpD7dkPtdce6o79UHfZ6215
2SEY8nz/p46FDwNNPtqvZeKTDLv7en8sx8azMnVf7J/PvaY5QfrJfhstO3P7
wBf2NbbslQahn/d7VbU7fuL5aX/gpcu8G2V/9kNp++WlvWZve5kPQGkHqL79
UHPsofr2Q82xh9qzH2qvPdQd+6HusgcAqqGvwA==
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.94292513142015, 
           0.6384229033044688}}]}, {-0.94292513142015, 0.6384229033044688}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8233351397753506, 
           0.5608937086372925}}]}, {-0.8233351397753506, 0.5608937086372925}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7230123656741848, 
           0.49247221334587093`}}]}, {-0.7230123656741848, 
         0.49247221334587093`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6264371046869008, 
           0.45658454433818413`}}]}, {-0.6264371046869008, 
         0.45658454433818413`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5316002070158614, 
           0.46732299333470273`}}]}, {-0.5316002070158614, 
         0.46732299333470273`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46732299333470273`, 
           0.5316002070158614}}]}, {-0.46732299333470273`, 
         0.5316002070158614}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.45658454433818413`, 
           0.6264371046869008}}]}, {-0.45658454433818413`, 
         0.6264371046869008}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.49247221334587093`, 
           0.7230123656741848}}]}, {-0.49247221334587093`, 
         0.7230123656741848}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5608937086372925, 
           0.8233351397753506}}]}, {-0.5608937086372925, 0.8233351397753506}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6384229033044688, 
           0.94292513142015}}]}, {-0.6384229033044688, 0.94292513142015}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7290122675018489, 
           1.0752734006605889`}}]}, {-0.7290122675018489, 
         1.0752734006605889`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8707685937261737, 
           1.280789187891535}}]}, {-0.8707685937261737, 1.280789187891535}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6283646409182752, 
           0.7599178389512597}}]}, {-0.6283646409182752, 0.7599178389512597}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.208298180357672, 
           1.5656607207998996`}}]}, {-1.208298180357672, 
         1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790151770010283`, 
           1.7790151770010283`}}]}, {-1.7790151770010283`, 
         1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7599178389512597, 
           0.6283646409182752}}]}, {-0.7599178389512597, 0.6283646409182752}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5656607207998996`, 
           1.208298180357672}}]}, {-1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.280789187891535, 
           0.8707685937261737}}]}, {-1.280789187891535, 0.8707685937261737}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0752734006605889`, 
           0.7290122675018489}}]}, {-1.0752734006605889`, 
         0.7290122675018489}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.4255264887134004, 0}, 
     PlotRange -> {{0.45658454433818413`, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.4255264887134004, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.45658454433818413`, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 0.7],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.74817999152521*^9},ExpressionUUID->"1adc1810-2fd1-47fb-9d68-995d42f1303a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{"0.9400840776583349`", ",", "0.6382742929702889`"}], 
            "}"}]],
         Annotation[#, {0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{"0.8082704722559748`", ",", "0.5495190227106762`"}], 
            "}"}]],
         Annotation[#, {0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{"0.7156817112302731`", ",", "0.48624408663704277`"}], 
            "}"}]],
         Annotation[#, {0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{"0.6232667855920156`", ",", "0.4551895056151928`"}], 
            "}"}]],
         Annotation[#, {0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{"0.5304309047511475`", ",", "0.46657255032322775`"}], 
            "}"}]],
         Annotation[#, {0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{"0.46657301778716115`", ",", "0.5304303733073913`"}], 
            "}"}]],
         Annotation[#, {0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{"0.4551900287891124`", ",", "0.6232671676809496`"}], 
            "}"}]],
         Annotation[#, {0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{"0.48624408663704277`", ",", "0.7156817112302731`"}], 
            "}"}]],
         Annotation[#, {0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{"0.5495185996529202`", ",", "0.8082701846316653`"}], 
            "}"}]],
         Annotation[#, {0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{"0.6382742929702889`", ",", "0.9400840776583349`"}], 
            "}"}]],
         Annotation[#, {0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{"0.7288895183079084`", ",", "1.0751608855883545`"}], 
            "}"}]],
         Annotation[#, {0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{"0.8707668958008908`", ",", "1.2807888142948154`"}], 
            "}"}]],
         Annotation[#, {0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{"0.6278484305899944`", ",", "0.8101429823150472`"}], 
            "}"}]],
         Annotation[#, {0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{"1.208298180357672`", ",", "1.5656607207998996`"}], "}"}]],
         Annotation[#, {1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790151770010283`", ",", "1.7790151770010283`"}], 
            "}"}]],
         Annotation[#, {1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{"0.8101426834890575`", ",", "0.6278480450004215`"}], 
            "}"}]],
         Annotation[#, {0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{"1.5656607207998996`", ",", "1.208298180357672`"}], "}"}]],
         Annotation[#, {1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{"1.2807888142948154`", ",", "0.8707668958008908`"}], 
            "}"}]],
         Annotation[#, {1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{"1.0751608855883545`", ",", "0.7288895183079084`"}], 
            "}"}]],
         Annotation[#, {1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9400840776583349`"}], ",", 
              "0.6382742929702889`"}], "}"}]],
         Annotation[#, {-0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8082704722559748`"}], ",", 
              "0.5495190227106762`"}], "}"}]],
         Annotation[#, {-0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7156817112302731`"}], ",", 
              "0.48624408663704277`"}], "}"}]],
         Annotation[#, {-0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6232667855920156`"}], ",", 
              "0.4551895056151928`"}], "}"}]],
         Annotation[#, {-0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5304309047511475`"}], ",", 
              "0.46657255032322775`"}], "}"}]],
         Annotation[#, {-0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46657301778716115`"}], ",", 
              "0.5304303733073913`"}], "}"}]],
         Annotation[#, {-0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4551900287891124`"}], ",", 
              "0.6232671676809496`"}], "}"}]],
         Annotation[#, {-0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.48624408663704277`"}], ",", 
              "0.7156817112302731`"}], "}"}]],
         Annotation[#, {-0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5495185996529202`"}], ",", 
              "0.8082701846316653`"}], "}"}]],
         Annotation[#, {-0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6382742929702889`"}], ",", 
              "0.9400840776583349`"}], "}"}]],
         Annotation[#, {-0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7288895183079084`"}], ",", 
              "1.0751608855883545`"}], "}"}]],
         Annotation[#, {-0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8707668958008908`"}], ",", 
              "1.2807888142948154`"}], "}"}]],
         Annotation[#, {-0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6278484305899944`"}], ",", 
              "0.8101429823150472`"}], "}"}]],
         Annotation[#, {-0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.208298180357672`"}], ",", 
              "1.5656607207998996`"}], "}"}]],
         Annotation[#, {-1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790151770010283`"}], ",", 
              "1.7790151770010283`"}], "}"}]],
         Annotation[#, {-1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8101426834890575`"}], ",", 
              "0.6278480450004215`"}], "}"}]],
         Annotation[#, {-0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5656607207998996`"}], ",", 
              "1.208298180357672`"}], "}"}]],
         Annotation[#, {-1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2807888142948154`"}], ",", 
              "0.8707668958008908`"}], "}"}]],
         Annotation[#, {-1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0751608855883545`"}], ",", 
              "0.7288895183079084`"}], "}"}]],
         Annotation[#, {-1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.7999999999999999`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9400840776583349, 0.6382742929702889}}]}, {
         0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8082704722559748, 0.5495190227106762}}]}, {
         0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7156817112302731, 0.48624408663704277`}}]}, {
         0.7156817112302731, 0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6232667855920156, 0.4551895056151928}}]}, {
         0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5304309047511475, 0.46657255032322775`}}]}, {
         0.5304309047511475, 0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46657301778716115`, 0.5304303733073913}}]}, {
         0.46657301778716115`, 0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4551900287891124, 0.6232671676809496}}]}, {
         0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.48624408663704277`, 0.7156817112302731}}]}, {
         0.48624408663704277`, 0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5495185996529202, 0.8082701846316653}}]}, {
         0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6382742929702889, 0.9400840776583349}}]}, {
         0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7288895183079084, 1.0751608855883545`}}]}, {
         0.7288895183079084, 1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8707668958008908, 1.2807888142948154`}}]}, {
         0.8707668958008908, 1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6278484305899944, 0.8101429823150472}}]}, {
         0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.208298180357672, 1.5656607207998996`}}]}, {
         1.208298180357672, 1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790151770010283`, 1.7790151770010283`}}]}, {
         1.7790151770010283`, 1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8101426834890575, 0.6278480450004215}}]}, {
         0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5656607207998996`, 1.208298180357672}}]}, {
         1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2807888142948154`, 0.8707668958008908}}]}, {
         1.2807888142948154`, 0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0751608855883545`, 0.7288895183079084}}]}, {
         1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9400840776583349, 
           0.6382742929702889}}]}, {-0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8082704722559748, 
           0.5495190227106762}}]}, {-0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7156817112302731, 
           0.48624408663704277`}}]}, {-0.7156817112302731, 
         0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6232667855920156, 
           0.4551895056151928}}]}, {-0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5304309047511475, 
           0.46657255032322775`}}]}, {-0.5304309047511475, 
         0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46657301778716115`, 
           0.5304303733073913}}]}, {-0.46657301778716115`, 
         0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4551900287891124, 
           0.6232671676809496}}]}, {-0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.48624408663704277`, 
           0.7156817112302731}}]}, {-0.48624408663704277`, 
         0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5495185996529202, 
           0.8082701846316653}}]}, {-0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6382742929702889, 
           0.9400840776583349}}]}, {-0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7288895183079084, 
           1.0751608855883545`}}]}, {-0.7288895183079084, 
         1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8707668958008908, 
           1.2807888142948154`}}]}, {-0.8707668958008908, 
         1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6278484305899944, 
           0.8101429823150472}}]}, {-0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.208298180357672, 
           1.5656607207998996`}}]}, {-1.208298180357672, 
         1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790151770010283`, 
           1.7790151770010283`}}]}, {-1.7790151770010283`, 
         1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8101426834890575, 
           0.6278480450004215}}]}, {-0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5656607207998996`, 
           1.208298180357672}}]}, {-1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2807888142948154`, 
           0.8707668958008908}}]}, {-1.2807888142948154`, 
         0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0751608855883545`, 
           0.7288895183079084}}]}, {-1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.42411018385887445`, 0}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.42411018385887445`, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 
   0.7999999999999999],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.7481799920414667`*^9},ExpressionUUID->"5aec1162-944f-4ba5-b1da-\
6e4f9e85cac5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   GraphicsBox[{{{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{"0.9400840776583349`", ",", "0.6382742929702889`"}], 
            "}"}]],
         Annotation[#, {0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{"0.8082704722559748`", ",", "0.5495190227106762`"}], 
            "}"}]],
         Annotation[#, {0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{"0.7156817112302731`", ",", "0.48624408663704277`"}], 
            "}"}]],
         Annotation[#, {0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{"0.6232667855920156`", ",", "0.4551895056151928`"}], 
            "}"}]],
         Annotation[#, {0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{"0.5304309047511475`", ",", "0.46657255032322775`"}], 
            "}"}]],
         Annotation[#, {0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{"0.46657301778716115`", ",", "0.5304303733073913`"}], 
            "}"}]],
         Annotation[#, {0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{"0.4551900287891124`", ",", "0.6232671676809496`"}], 
            "}"}]],
         Annotation[#, {0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{"0.48624408663704277`", ",", "0.7156817112302731`"}], 
            "}"}]],
         Annotation[#, {0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{"0.5495185996529202`", ",", "0.8082701846316653`"}], 
            "}"}]],
         Annotation[#, {0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{"0.6382742929702889`", ",", "0.9400840776583349`"}], 
            "}"}]],
         Annotation[#, {0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{"0.7288895183079084`", ",", "1.0751608855883545`"}], 
            "}"}]],
         Annotation[#, {0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{"0.8707668958008908`", ",", "1.2807888142948154`"}], 
            "}"}]],
         Annotation[#, {0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{"0.6278484305899944`", ",", "0.8101429823150472`"}], 
            "}"}]],
         Annotation[#, {0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{"1.208298180357672`", ",", "1.5656607207998996`"}], "}"}]],
         Annotation[#, {1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{"1.7790151770010283`", ",", "1.7790151770010283`"}], 
            "}"}]],
         Annotation[#, {1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{"2.4443001043243444`", ",", "2.4443001043243444`"}], 
            "}"}]],
         Annotation[#, {2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{"0.8101426834890575`", ",", "0.6278480450004215`"}], 
            "}"}]],
         Annotation[#, {0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{"1.5656607207998996`", ",", "1.208298180357672`"}], "}"}]],
         Annotation[#, {1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{"1.2807888142948154`", ",", "0.8707668958008908`"}], 
            "}"}]],
         Annotation[#, {1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{"1.0751608855883545`", ",", "0.7288895183079084`"}], 
            "}"}]],
         Annotation[#, {1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}, {{}, {{{}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.9400840776583349, 0.6382742929702889}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.9400840776583349`"}], ",", 
              "0.6382742929702889`"}], "}"}]],
         Annotation[#, {-0.9400840776583349, 0.6382742929702889}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8082704722559748, 0.5495190227106762}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8082704722559748`"}], ",", 
              "0.5495190227106762`"}], "}"}]],
         Annotation[#, {-0.8082704722559748, 0.5495190227106762}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7156817112302731, 0.48624408663704277`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7156817112302731`"}], ",", 
              "0.48624408663704277`"}], "}"}]],
         Annotation[#, {-0.7156817112302731, 0.48624408663704277`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6232667855920156, 0.4551895056151928}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6232667855920156`"}], ",", 
              "0.4551895056151928`"}], "}"}]],
         Annotation[#, {-0.6232667855920156, 0.4551895056151928}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.5304309047511475, 0.46657255032322775`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5304309047511475`"}], ",", 
              "0.46657255032322775`"}], "}"}]],
         Annotation[#, {-0.5304309047511475, 0.46657255032322775`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.46657301778716115`, 0.5304303733073913}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.46657301778716115`"}], ",", 
              "0.5304303733073913`"}], "}"}]],
         Annotation[#, {-0.46657301778716115`, 0.5304303733073913}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.4551900287891124, 0.6232671676809496}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.4551900287891124`"}], ",", 
              "0.6232671676809496`"}], "}"}]],
         Annotation[#, {-0.4551900287891124, 0.6232671676809496}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.48624408663704277`, 0.7156817112302731}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.48624408663704277`"}], ",", 
              "0.7156817112302731`"}], "}"}]],
         Annotation[#, {-0.48624408663704277`, 0.7156817112302731}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.5495185996529202, 0.8082701846316653}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.5495185996529202`"}], ",", 
              "0.8082701846316653`"}], "}"}]],
         Annotation[#, {-0.5495185996529202, 0.8082701846316653}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6382742929702889, 0.9400840776583349}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6382742929702889`"}], ",", 
              "0.9400840776583349`"}], "}"}]],
         Annotation[#, {-0.6382742929702889, 0.9400840776583349}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.7288895183079084, 1.0751608855883545`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.7288895183079084`"}], ",", 
              "1.0751608855883545`"}], "}"}]],
         Annotation[#, {-0.7288895183079084, 1.0751608855883545`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-0.8707668958008908, 1.2807888142948154`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8707668958008908`"}], ",", 
              "1.2807888142948154`"}], "}"}]],
         Annotation[#, {-0.8707668958008908, 1.2807888142948154`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.6278484305899944, 0.8101429823150472}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.6278484305899944`"}], ",", 
              "0.8101429823150472`"}], "}"}]],
         Annotation[#, {-0.6278484305899944, 0.8101429823150472}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.208298180357672, 1.5656607207998996`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.208298180357672`"}], ",", 
              "1.5656607207998996`"}], "}"}]],
         Annotation[#, {-1.208298180357672, 1.5656607207998996`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.7790151770010283`, 1.7790151770010283`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.7790151770010283`"}], ",", 
              "1.7790151770010283`"}], "}"}]],
         Annotation[#, {-1.7790151770010283`, 1.7790151770010283`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-2.4443001043243444`, 2.4443001043243444`}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "2.4443001043243444`"}], ",", 
              "2.4443001043243444`"}], "}"}]],
         Annotation[#, {-2.4443001043243444`, 2.4443001043243444`}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-0.8101426834890575, 0.6278480450004215}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "0.8101426834890575`"}], ",", 
              "0.6278480450004215`"}], "}"}]],
         Annotation[#, {-0.8101426834890575, 0.6278480450004215}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], PointBox[{{-1.5656607207998996`, 1.208298180357672}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.5656607207998996`"}], ",", 
              "1.208298180357672`"}], "}"}]],
         Annotation[#, {-1.5656607207998996`, 1.208298180357672}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.2807888142948154`, 0.8707668958008908}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.2807888142948154`"}], ",", 
              "0.8707668958008908`"}], "}"}]],
         Annotation[#, {-1.2807888142948154`, 0.8707668958008908}, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[
          {Opacity[0.], 
           PointBox[{{-1.0751608855883545`, 0.7288895183079084}}]},
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1.0751608855883545`"}], ",", 
              "0.7288895183079084`"}], "}"}]],
         Annotation[#, {-1.0751608855883545`, 0.7288895183079084}, 
          "Tooltip"]& ]}}, {}, {}, {}, {}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    ImageSize->Medium,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{-2, 2}, {0, 2}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], "\[InvisibleSpace]", "\<\"q=\"\>", 
   "\[InvisibleSpace]", "0.8999999999999999`"}],
  SequenceForm[
   Graphics[{{{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+s7+wqujpvtyntjr6U3ljLr70v6g/6NX
K6Y+tP/UyRR699kz+y/r61rmy923Pzh/pv7Zj4/tbyWwaV1WvGuvZzLN2uvn
A/uqeDPZ4Dt37bMfqgqHAulARVc5T6D4hJDj0VeB6n617f4D0gczB2auw6aD
7CB7SlK18iOB9sLcAXPXz08FMgLBz+3Tls54dtv4o/3+9zWdQXdf28etTM+U
qftiPzm4fXqo+BP7VQJHfm5489K+xpa90iD0s71XVbvjJ56f9gdeusy7UfYH
Ti8v7TV728vsAKNv7Q6NBOmb6NNyIgRoDkwfzByYPTB7Ye6AuQsAqyim5w==

          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          Point[{{0.9400840776583349, 0.6382742929702889}}]}, {
         0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8082704722559748, 0.5495190227106762}}]}, {
         0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7156817112302731, 0.48624408663704277`}}]}, {
         0.7156817112302731, 0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6232667855920156, 0.4551895056151928}}]}, {
         0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5304309047511475, 0.46657255032322775`}}]}, {
         0.5304309047511475, 0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.46657301778716115`, 0.5304303733073913}}]}, {
         0.46657301778716115`, 0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.4551900287891124, 0.6232671676809496}}]}, {
         0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.48624408663704277`, 0.7156817112302731}}]}, {
         0.48624408663704277`, 0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.5495185996529202, 0.8082701846316653}}]}, {
         0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6382742929702889, 0.9400840776583349}}]}, {
         0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.7288895183079084, 1.0751608855883545`}}]}, {
         0.7288895183079084, 1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8707668958008908, 1.2807888142948154`}}]}, {
         0.8707668958008908, 1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.6278484305899944, 0.8101429823150472}}]}, {
         0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.208298180357672, 1.5656607207998996`}}]}, {
         1.208298180357672, 1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.7790151770010283`, 1.7790151770010283`}}]}, {
         1.7790151770010283`, 1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{2.4443001043243444`, 2.4443001043243444`}}]}, {
         2.4443001043243444`, 2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{0.8101426834890575, 0.6278480450004215}}]}, {
         0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.5656607207998996`, 1.208298180357672}}]}, {
         1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.2807888142948154`, 0.8707668958008908}}]}, {
         1.2807888142948154`, 0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          Point[{{1.0751608855883545`, 0.7288895183079084}}]}, {
         1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}, {{}, {{{}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Point[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c2raKIt+m7/hVdHTfflPLHX05vKGXX35f6D/o9e
rZj60P5TJ1Po3WfP9n9ZX9cyX+6+/cH5M/XPfny8/1YCm9Zlxbv2eibTrL1+
PthfFW8mG3znrn32Q1Xh0Dt39wcqusp5/nxgPyHkePRVxbv7f7Xt/gPUZw81
Zz/UXHuHTQfZgfbsL0nVyo+8+9Ie6o79UHfZ//xUICMQ/Hx/2tIZz24bf7Tf
/76mM+ju6/1xK9MzZeq+2E8Obp8eKv5k/yqBIz83vHlpX2PLXmkQ+nm/V1W7
4yeen/YHXrrMu1H2Zz+Utl9e2mv2tpf5AJR2uLU7NBKob/9En5YTIeJP7KH6
9kPNsYfasx9qrz3UHfuh7rIHAPWCsOc=
          "]]}, {}}, {
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.9400840776583349, 
           0.6382742929702889}}]}, {-0.9400840776583349, 0.6382742929702889}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8082704722559748, 
           0.5495190227106762}}]}, {-0.8082704722559748, 0.5495190227106762}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7156817112302731, 
           0.48624408663704277`}}]}, {-0.7156817112302731, 
         0.48624408663704277`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6232667855920156, 
           0.4551895056151928}}]}, {-0.6232667855920156, 0.4551895056151928}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5304309047511475, 
           0.46657255032322775`}}]}, {-0.5304309047511475, 
         0.46657255032322775`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.46657301778716115`, 
           0.5304303733073913}}]}, {-0.46657301778716115`, 
         0.5304303733073913}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.4551900287891124, 
           0.6232671676809496}}]}, {-0.4551900287891124, 0.6232671676809496}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.48624408663704277`, 
           0.7156817112302731}}]}, {-0.48624408663704277`, 
         0.7156817112302731}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.5495185996529202, 
           0.8082701846316653}}]}, {-0.5495185996529202, 0.8082701846316653}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6382742929702889, 
           0.9400840776583349}}]}, {-0.6382742929702889, 0.9400840776583349}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.7288895183079084, 
           1.0751608855883545`}}]}, {-0.7288895183079084, 
         1.0751608855883545`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8707668958008908, 
           1.2807888142948154`}}]}, {-0.8707668958008908, 
         1.2807888142948154`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.6278484305899944, 
           0.8101429823150472}}]}, {-0.6278484305899944, 0.8101429823150472}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.208298180357672, 
           1.5656607207998996`}}]}, {-1.208298180357672, 
         1.5656607207998996`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.7790151770010283`, 
           1.7790151770010283`}}]}, {-1.7790151770010283`, 
         1.7790151770010283`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-2.4443001043243444`, 
           2.4443001043243444`}}]}, {-2.4443001043243444`, 
         2.4443001043243444`}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-0.8101426834890575, 
           0.6278480450004215}}]}, {-0.8101426834890575, 0.6278480450004215}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.5656607207998996`, 
           1.208298180357672}}]}, {-1.5656607207998996`, 1.208298180357672}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.2807888142948154`, 
           0.8707668958008908}}]}, {-1.2807888142948154`, 
         0.8707668958008908}], 
        Tooltip[{
          Opacity[0.], 
          
          Point[{{-1.0751608855883545`, 
           0.7288895183079084}}]}, {-1.0751608855883545`, 
         0.7288895183079084}]}}, {}, {}, {}, {}}}, {
    PlotRange -> {{-2, 2}, {0, 2}}, AxesOrigin -> {0, 0}, ImageSize -> Medium,
      DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0.42411018385887445`, 0}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0.42411018385887445`, 0}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0.4551900287891124, 2.4443001043243444`}, {
       0, 2.4443001043243444`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], "q=", 
   0.8999999999999999],
  Editable->False]], "Print",
 CellChangeTimes->{3.748002868339957*^9, 3.7480029073621902`*^9, 
  3.748002969551442*^9, 3.7480030223591866`*^9, 3.748003176612439*^9, 
  3.748176946189313*^9, 3.7481791444646387`*^9, 3.7481792631630993`*^9, 
  3.7481794492036037`*^9, 3.748179622485009*^9, 
  3.7481799927968473`*^9},ExpressionUUID->"b6b75f5f-c91b-4e48-8a4c-\
71d88bb7d427"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "l", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"PACAGetModes", "[", 
      RowBox[{"20", ",", 
       RowBox[{"1", "-", 
        RowBox[{"2", 
         RowBox[{"x", "^", "2"}]}], "+", 
        RowBox[{"0.4", 
         RowBox[{"x", "^", "3"}]}]}], ",", "x", ",", "3", ",", "0"}], "]"}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"StandardDeviation", "[", "l", "]"}]}], "Input",
 CellChangeTimes->{{3.7479978869268*^9, 3.747997972439476*^9}, {
  3.747998012450391*^9, 3.7479980756937647`*^9}, {3.74799861439398*^9, 
  3.747998614793682*^9}, {3.747999252458864*^9, 3.7479992579456472`*^9}, {
  3.7480018557119107`*^9, 3.7480018764430428`*^9}, {3.748001912206172*^9, 
  3.7480019128103156`*^9}, {3.7480020946880198`*^9, 3.7480021259529104`*^9}, {
  3.748002193783211*^9, 3.7480021962949734`*^9}, {3.748065134455652*^9, 
  3.748065250410302*^9}, {3.7480652936696563`*^9, 
  3.748065429278325*^9}},ExpressionUUID->"3f1c0ecf-4287-492d-b169-\
17079877a2c8"],

Cell[BoxData["0.5113476982167102`"], "Output",
 CellChangeTimes->{{3.747997988451995*^9, 3.747998065037125*^9}, 
   3.747998113605065*^9, 3.7479986304020433`*^9, 3.74799927224017*^9, {
   3.748001862024864*^9, 3.748001881565913*^9}, 3.7480019144624357`*^9, {
   3.7480020969047422`*^9, 3.748002127296483*^9}, 3.7480021977231727`*^9, {
   3.748065202125342*^9, 3.748065251735206*^9}, {3.7480652952025213`*^9, 
   3.7480654301823273`*^9}, 3.748176962601542*^9, 3.748179179102749*^9, 
   3.7481794912890787`*^9, 3.748179631385666*^9, 
   3.748179802445557*^9},ExpressionUUID->"2556f349-72d1-4427-acb0-\
1ebf1d56f3e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"Im", "[", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"PACAGetModes", "[", 
     RowBox[{"20", ",", 
      RowBox[{
       RowBox[{"1", "-", 
        RowBox[{"\[Mu]", " ", 
         RowBox[{"x", "^", "2"}]}], "+", 
        RowBox[{"Q", " ", 
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"2", "\[Beta]"}], ")"}]}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Mu]", "\[Rule]", "2"}], ",", 
         RowBox[{"\[Beta]", "\[Rule]", 
          RowBox[{"3", "/", "2"}]}], ",", 
         RowBox[{"Q", "\[Rule]", "0.1"}]}], "}"}]}], ",", "x", ",", "3", ",", 
      "0"}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7479986434492197`*^9, 3.747998644469742*^9}, {
  3.7480018870792465`*^9, 3.748001906386839*^9}, {3.748002104320489*^9, 
  3.7480021053413715`*^9}, {3.748002138870349*^9, 3.748002139979657*^9}, {
  3.748002200686219*^9, 
  3.7480022029163084`*^9}},ExpressionUUID->"46731318-7415-4013-ab0c-\
b54ec20b162a"],

Cell[BoxData[
 RowBox[{"-", "0.9302204291779225`"}]], "Output",
 CellChangeTimes->{
  3.747998659946342*^9, {3.748001903007411*^9, 3.748001907758645*^9}, 
   3.74800210647126*^9, 3.7480021415728283`*^9, 3.748002204170624*^9, 
   3.748176964251087*^9, 3.74817918157412*^9, 3.748179493316581*^9, 
   3.748179632686726*^9, 
   3.748179803596137*^9},ExpressionUUID->"6ed09c37-6428-4a6b-a622-\
87e2571635be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"w", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"PACAGetModes", "[", 
        RowBox[{"45", ",", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"x", "^", "2"}]}], "+", 
          RowBox[{"q", " ", 
           RowBox[{"x", "^", "3"}]}]}], ",", "x", ",", "3", ",", "0"}], "]"}],
        "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "0.1", ",", "0.9", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "w", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Re", "[", "w", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Im", "[", "w", "]"}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdy08ow3EABfA10hbalm1SY838Cy1jamXKhIOaWNlhsqR2IJIUKQe15SJu
JGscFqVM/mSFzdY2JiPZbbVZWxttsyjbbcbvfQ+vT6/XE03OqfV0Go0moAKf
WxaWHZ9ppcDFMUJzzrUOffumDWj3OKOkazMxOJrwFGAiNfJH9uA445Yy28Qq
g1/JRbaT0s0XVsO2nysxXFEHiF55qAPmWzkyOFxb0gfP1ap+6JfeD8JHV5BY
KrKkw5TcsSRxV3t98UZpSGlssKdi4gZu5Q12uOrSuuH3r8YLQ111HzD1YCQ2
WB30CGUhLGXAGt5rJbSZZ0Uwu9OtgKz6XmLVy3Y0StkZmYrDk73yJJQUFVIw
MOB/4mbSymL9WhDK5jfj0GefSUBuSGzhUerYXuLpUu4Yxo4kZ/A922iDTKac
qJgu3EGVo9kHjXGdkI+fySqCh5fMIRg5aCf+A43ODqU=
  "],ExpressionUUID->"9ef9a66b-e6bc-4890-94b9-0ce2469e8a83"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.6995687624577865`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877969972739469`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995590520850362`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877985599089308`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995651276855139`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877997828554845`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995664686189131`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877951640324811`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995623800887548`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877972565980881`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995601253307722`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.58780317331985`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995627899288871`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5878007203340875`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995644968437321`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877960129703337`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.6995665977338719`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.5877949105227882`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.7481792331091833`*^9, 3.7481792779752827`*^9, {3.7481793081869917`*^9, 
   3.748179342660822*^9}, 3.7481793829112597`*^9, {3.748179501037059*^9, 
   3.748179516783189*^9}, 3.748179639182156*^9, 3.748179810544343*^9, {
   3.748180232136503*^9, 3.748180243929782*^9}, 
   3.748180614604033*^9},ExpressionUUID->"2497ff72-d625-42c4-8ba7-\
c614c3885766"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], 
     LineBox[{{1., 0.6995687624577865}, {2., 0.6995590520850362}, {3., 
      0.6995651276855139}, {4., 0.6995664686189131}, {5., 
      0.6995623800887548}, {6., 0.6995601253307722}, {7., 
      0.6995627899288871}, {8., 0.6995644968437321}, {9., 
      0.6995665977338719}}]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.6995585665663986},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 9.}, {0.6995590520850362, 0.6995687624577865}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7479987686813188`*^9, 3.747999201116969*^9, 3.7479996904790545`*^9, 
   3.74799980539939*^9, 3.748000227624952*^9, {3.74800197757866*^9, 
   3.748002004879615*^9}, 3.7480020398590155`*^9, 3.7480020903186617`*^9, 
   3.748002223239286*^9, 3.748002340187373*^9, {3.7480023878492355`*^9, 
   3.748002395741647*^9}, {3.7480667223622847`*^9, 3.748066752881551*^9}, {
   3.748066837395645*^9, 3.7480668520302134`*^9}, {3.7480673446954956`*^9, 
   3.748067406375614*^9}, 3.748067528543402*^9, 3.7480675676611977`*^9, 
   3.7480678048791494`*^9, 3.748067843558447*^9, 3.74806791748991*^9, 
   3.748073310788853*^9, 3.74817697133578*^9, 3.748177513176772*^9, 
   3.748177545437253*^9, 3.748177616307995*^9, {3.748177708223961*^9, 
   3.748177716366064*^9}, {3.748179157304337*^9, 3.7481791644498997`*^9}, 
   3.7481792331947107`*^9, 3.7481792780521917`*^9, {3.7481793082740307`*^9, 
   3.748179342731407*^9}, 3.748179382980919*^9, {3.748179501100259*^9, 
   3.7481795168420773`*^9}, 3.748179639239925*^9, 3.748179810627345*^9, {
   3.748180232230768*^9, 3.748180244016609*^9}, 
   3.748180614689052*^9},ExpressionUUID->"ee1db75e-2d1d-4537-bd00-\
e7ef27203854"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], 
     LineBox[{{1., -0.5877969972739469}, {2., -0.5877985599089308}, {
      3., -0.5877997828554845}, {4., -0.5877951640324811}, {
      5., -0.5877972565980881}, {6., -0.58780317331985}, {
      7., -0.5878007203340875}, {8., -0.5877960129703337}, {
      9., -0.5877949105227882}}]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -0.5877944973829352},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 9.}, {-0.58780317331985, -0.5877949105227882}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7479987686813188`*^9, 3.747999201116969*^9, 3.7479996904790545`*^9, 
   3.74799980539939*^9, 3.748000227624952*^9, {3.74800197757866*^9, 
   3.748002004879615*^9}, 3.7480020398590155`*^9, 3.7480020903186617`*^9, 
   3.748002223239286*^9, 3.748002340187373*^9, {3.7480023878492355`*^9, 
   3.748002395741647*^9}, {3.7480667223622847`*^9, 3.748066752881551*^9}, {
   3.748066837395645*^9, 3.7480668520302134`*^9}, {3.7480673446954956`*^9, 
   3.748067406375614*^9}, 3.748067528543402*^9, 3.7480675676611977`*^9, 
   3.7480678048791494`*^9, 3.748067843558447*^9, 3.74806791748991*^9, 
   3.748073310788853*^9, 3.74817697133578*^9, 3.748177513176772*^9, 
   3.748177545437253*^9, 3.748177616307995*^9, {3.748177708223961*^9, 
   3.748177716366064*^9}, {3.748179157304337*^9, 3.7481791644498997`*^9}, 
   3.7481792331947107`*^9, 3.7481792780521917`*^9, {3.7481793082740307`*^9, 
   3.748179342731407*^9}, 3.748179382980919*^9, {3.748179501100259*^9, 
   3.7481795168420773`*^9}, 3.748179639239925*^9, 3.748179810627345*^9, {
   3.748180232230768*^9, 3.748180244016609*^9}, 
   3.7481806147753353`*^9},ExpressionUUID->"96fc984d-c299-4592-a229-\
34637395a12e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"start", " ", "=", " ", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"NewPACARootFinder", "[", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RandomReal", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "23"}], "}"}], "]"}], "*", 
      RowBox[{"x", "^", "i"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "60"}], "}"}]}], "]"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"end", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"end", "-", "start"}]}], "Input",
 CellChangeTimes->{{3.74817701841786*^9, 3.748177062817786*^9}, 
   3.748177250094873*^9, {3.748180097928473*^9, 
   3.7481800992878437`*^9}},ExpressionUUID->"30cf6817-2e8b-40a0-97d7-\
5905989f2e5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1.004314`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.10500999999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.875157`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.39273399999999997`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.976011`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.220241`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9365129999999999`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.321102`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.852815`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.438723`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.80252`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.550464`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.760235`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.630734`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.658952`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.764014`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.605837`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.8210029999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.478159`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.866397`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5699569999999999`", "\[VeryThinSpace]", "+", 
    RowBox[{"1.0160019999999998`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.358041`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.951645`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.225536`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.9606389999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.040833999999999995`"}], "+", 
    RowBox[{"0.9307529999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.079568`", "\[VeryThinSpace]", "+", 
    RowBox[{"1.094121`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.000279`"}], "+", 
    RowBox[{"1.087143`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.146302`"}], "+", 
    RowBox[{"1.086126`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.223236`"}], "+", 
    RowBox[{"0.934008`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.351659`"}], "+", 
    RowBox[{"0.9112279999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.571857`"}], "+", 
    RowBox[{"0.7697069999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.548254`"}], "+", 
    RowBox[{"1.038468`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.5262789999999999`"}], "+", 
    RowBox[{"0.8087989999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.664215`"}], "+", 
    RowBox[{"0.7676719999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.760872`"}], "+", 
    RowBox[{"0.61864`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.844858`"}], "+", 
    RowBox[{"0.5424249999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.865675`"}], "+", 
    RowBox[{"0.440984`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.8837969999999999`"}], "+", 
    RowBox[{"0.364872`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.9431149999999999`"}], "+", 
    RowBox[{"0.278228`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.990628`"}], "+", 
    RowBox[{"0.13649`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.951754`"}], "+", 
    RowBox[{"0.009675`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.951754`"}], "-", 
    RowBox[{"0.009675`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.990628`"}], "-", 
    RowBox[{"0.13649`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.9431149999999999`"}], "-", 
    RowBox[{"0.278228`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.8837969999999999`"}], "-", 
    RowBox[{"0.364872`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.865675`"}], "-", 
    RowBox[{"0.440984`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.844858`"}], "-", 
    RowBox[{"0.5424249999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.760872`"}], "-", 
    RowBox[{"0.61864`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.571857`"}], "-", 
    RowBox[{"0.7697069999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.664215`"}], "-", 
    RowBox[{"0.7676719999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.5262789999999999`"}], "-", 
    RowBox[{"0.8087989999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.548254`"}], "-", 
    RowBox[{"1.038468`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.351659`"}], "-", 
    RowBox[{"0.9112279999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.223236`"}], "-", 
    RowBox[{"0.934008`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.146302`"}], "-", 
    RowBox[{"1.086126`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.040833999999999995`"}], "-", 
    RowBox[{"0.9307529999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.000279`"}], "-", 
    RowBox[{"1.087143`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.079568`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.094121`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.225536`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.9606389999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.358041`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.951645`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.478159`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.866397`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.5699569999999999`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.0160019999999998`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.605837`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.8210029999999999`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.658952`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.764014`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.760235`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.630734`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.80252`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.550464`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.852815`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.438723`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.875157`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.39273399999999997`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.9365129999999999`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.321102`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"0.976011`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.220241`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.004314`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.10500999999999999`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7481770634401197`*^9, 3.748177176467173*^9, 3.748177251199819*^9, 
   3.7481793224094753`*^9, 3.748179577754654*^9, 3.748179648657803*^9, 
   3.748179816133563*^9, 3.748180025747877*^9, {3.748180101325523*^9, 
   3.7481801056662397`*^9}},ExpressionUUID->"5cd056b9-644a-494f-99fe-\
91a40845ef20"],

Cell[BoxData["0.984108`6.44458775577919"], "Output",
 CellChangeTimes->{
  3.7481770634401197`*^9, 3.748177176467173*^9, 3.748177251199819*^9, 
   3.7481793224094753`*^9, 3.748179577754654*^9, 3.748179648657803*^9, 
   3.748179816133563*^9, 3.748180025747877*^9, {3.748180101325523*^9, 
   3.748180105678068*^9}},ExpressionUUID->"aee0470f-7a5e-4f03-ba0f-\
b0845a8202c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"start", " ", "=", " ", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"NewPACARootFinder", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "5"}], "-", 
    RowBox[{"9", "x"}], "+", "70"}], ",", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"end", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"end", "-", "start"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"start", " ", "=", " ", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "5"}], "-", 
     RowBox[{"9", "x"}], "+", "70"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"end", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"end", "-", "start"}]}], "Input",
 CellChangeTimes->{{3.748179659629401*^9, 3.748179693830133*^9}, {
  3.748179760065729*^9, 3.748179763659439*^9}, {3.748179913881803*^9, 
  3.7481799325021267`*^9}, {3.7481800088031673`*^9, 
  3.7481800119588127`*^9}},ExpressionUUID->"fe70035b-a88c-42c2-ba49-\
fcf959ae5335"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1.851793`", "\[VeryThinSpace]", "+", 
    RowBox[{"1.2326549999999998`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.615964`"}], "+", 
    RowBox[{"2.311636`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"-", "2.471659`"}], ",", 
   RowBox[{
    RowBox[{"-", "0.615964`"}], "-", 
    RowBox[{"2.311636`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.851793`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.2326549999999998`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7481796679591923`*^9, 3.7481796943337307`*^9}, {
   3.748179764159668*^9, 3.748179769077322*^9}, 3.7481798175345488`*^9, {
   3.748179926264515*^9, 3.74817993309661*^9}, {3.748180012609796*^9, 
   3.748180019340682*^9}},ExpressionUUID->"9d970ed0-dd7e-44b6-9598-\
9be7f73fa0a8"],

Cell[BoxData["0.002004`3.753442710691181"], "Output",
 CellChangeTimes->{{3.7481796679591923`*^9, 3.7481796943337307`*^9}, {
   3.748179764159668*^9, 3.748179769077322*^9}, 3.7481798175345488`*^9, {
   3.748179926264515*^9, 3.74817993309661*^9}, {3.748180012609796*^9, 
   3.748180019347735*^9}},ExpressionUUID->"cb7fd1a9-c0a1-4be2-94c0-\
14b511447abe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "2.471658692224696`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.6159640124758877`"}], "-", 
      RowBox[{"2.3116358192292217`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.6159640124758877`"}], "+", 
      RowBox[{"2.3116358192292217`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1.8517933585882356`", "\[VeryThinSpace]", "-", 
      RowBox[{"1.2326550580995013`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1.8517933585882356`", "\[VeryThinSpace]", "+", 
      RowBox[{"1.2326550580995013`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7481796679591923`*^9, 3.7481796943337307`*^9}, {
   3.748179764159668*^9, 3.748179769077322*^9}, 3.7481798175345488`*^9, {
   3.748179926264515*^9, 3.74817993309661*^9}, {3.748180012609796*^9, 
   3.748180019352632*^9}},ExpressionUUID->"10a2ccab-2bd3-4375-859f-\
7150d7c5bca4"],

Cell[BoxData["0.002107`3.775209529104073"], "Output",
 CellChangeTimes->{{3.7481796679591923`*^9, 3.7481796943337307`*^9}, {
   3.748179764159668*^9, 3.748179769077322*^9}, 3.7481798175345488`*^9, {
   3.748179926264515*^9, 3.74817993309661*^9}, {3.748180012609796*^9, 
   3.748180019356933*^9}},ExpressionUUID->"5365ec7b-7d7a-4680-969a-\
16da892f305d"]
}, Open  ]]
},
WindowSize->{1184, 631},
WindowMargins->{{290, Automatic}, {Automatic, 9}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 29675, 766, 2477, "Input",ExpressionUUID->"a369357d-e1fa-4e24-8a9a-54917c64fcf0"],
Cell[CellGroupData[{
Cell[30258, 790, 1215, 23, 30, "Input",ExpressionUUID->"6809bb40-3782-48a5-abd5-a9f7b5d4a825"],
Cell[31476, 815, 6460, 104, 182, "Output",ExpressionUUID->"61351d80-c920-4a21-8296-26c46cbff528"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37973, 924, 2349, 67, 136, "Input",ExpressionUUID->"b1e4d48a-7042-46b4-a56b-b7c4a09f0040"],
Cell[40325, 993, 15733, 370, 360, "Output",ExpressionUUID->"96b8c660-6240-471c-bd2c-be7065339a55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56095, 1368, 3629, 91, 178, "Input",ExpressionUUID->"12ebb14d-8866-478d-8d87-aaa88d88e04d"],
Cell[CellGroupData[{
Cell[59749, 1463, 25929, 657, 244, "Print",ExpressionUUID->"04dca989-c332-4471-b0a2-6d357bd2a6e8"],
Cell[85681, 2122, 25882, 658, 244, "Print",ExpressionUUID->"c1457281-1b1a-4c5f-b189-99cd5fabd188"],
Cell[111566, 2782, 25866, 657, 244, "Print",ExpressionUUID->"c475b8ca-4e20-4da5-8819-f5d317d7327e"],
Cell[137435, 3441, 25615, 642, 244, "Print",ExpressionUUID->"abd5260b-9e5e-4546-8455-199f7d4c0413"],
Cell[163053, 4085, 26045, 665, 244, "Print",ExpressionUUID->"6fb4c2ec-0892-420f-a946-bc7d76ab7062"],
Cell[189101, 4752, 26265, 671, 244, "Print",ExpressionUUID->"eeea0204-898a-4198-8080-930b859189a7"],
Cell[215369, 5425, 25908, 658, 244, "Print",ExpressionUUID->"1adc1810-2fd1-47fb-9d68-995d42f1303a"],
Cell[241280, 6085, 26301, 672, 244, "Print",ExpressionUUID->"5aec1162-944f-4ba5-b1da-6e4f9e85cac5"],
Cell[267584, 6759, 26301, 672, 244, "Print",ExpressionUUID->"b6b75f5f-c91b-4e48-8a4c-71d88bb7d427"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[293934, 7437, 1107, 24, 73, "Input",ExpressionUUID->"3f1c0ecf-4287-492d-b169-17079877a2c8"],
Cell[295044, 7463, 614, 9, 34, "Output",ExpressionUUID->"2556f349-72d1-4427-acb0-1ebf1d56f3e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295695, 7477, 1020, 26, 30, "Input",ExpressionUUID->"46731318-7415-4013-ab0c-b54ec20b162a"],
Cell[296718, 7505, 403, 8, 34, "Output",ExpressionUUID->"6ed09c37-6428-4a6b-a622-87e2571635be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[297158, 7518, 1375, 32, 94, "Input",ExpressionUUID->"9ef9a66b-e6bc-4890-94b9-0ce2469e8a83"],
Cell[298536, 7552, 1567, 27, 44, "Print",ExpressionUUID->"2497ff72-d625-42c4-8ba7-c614c3885766"],
Cell[300106, 7581, 2594, 55, 231, "Output",ExpressionUUID->"ee1db75e-2d1d-4537-bd00-e7ef27203854"],
Cell[302703, 7638, 2604, 55, 213, "Output",ExpressionUUID->"96fc984d-c299-4592-a229-34637395a12e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[305344, 7698, 848, 23, 94, "Input",ExpressionUUID->"30cf6817-2e8b-40a0-97d7-5905989f2e5c"],
Cell[306195, 7723, 7138, 161, 182, "Output",ExpressionUUID->"5cd056b9-644a-494f-99fe-91a40845ef20"],
Cell[313336, 7886, 370, 6, 34, "Output",ExpressionUUID->"aee0470f-7a5e-4f03-ba0f-b0845a8202c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313743, 7897, 1207, 31, 178, "Input",ExpressionUUID->"fe70035b-a88c-42c2-ba49-fcf959ae5335"],
Cell[314953, 7930, 841, 19, 34, "Output",ExpressionUUID->"9d970ed0-dd7e-44b6-9598-9be7f73fa0a8"],
Cell[315797, 7951, 353, 5, 34, "Output",ExpressionUUID->"cb7fd1a9-c0a1-4be2-94c0-14b511447abe"],
Cell[316153, 7958, 1207, 29, 34, "Output",ExpressionUUID->"10a2ccab-2bd3-4375-859f-7150d7c5bca4"],
Cell[317363, 7989, 353, 5, 34, "Output",ExpressionUUID->"5365ec7b-7d7a-4680-969a-16da892f305d"]
}, Open  ]]
}
]
*)