Figures of theoretical model of coupled catastrophes - share on Github.nb

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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    923805,      19968]
NotebookOptionsPosition[    916109,      19703]
NotebookOutlinePosition[    916467,      19719]
CellTagsIndexPosition[    916424,      19716]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Coupled catastrophes: sudden shifts cascade and hop among interdependent \
systems\
\>", "Title",
 CellChangeTimes->{{3.6686115627618513`*^9, 3.668611579185033*^9}}],

Cell[CellGroupData[{

Cell["Charles D. Brummitt, George Barnett, Raissa M. \
D\[CloseCurlyQuote]Souza", "Chapter",
 CellChangeTimes->{{3.668611582705346*^9, 3.668611598459258*^9}}],

Cell[CellGroupData[{

Cell["About this document", "Section",
 CellChangeTimes->{{3.668611669534007*^9, 3.668611671573916*^9}}],

Cell["\<\
This document provides the code used to make the figures for the theoretical \
model in the open access paper \
\>", "Text",
 CellChangeTimes->{{3.668611608340171*^9, 3.66861166053407*^9}, {
  3.668613745720118*^9, 3.668613755428829*^9}}],

Cell[TextData[{
 "Brummitt, C. D., Barnett, G., & D\[CloseCurlyQuote]Souza, R. M. (2015). ",
 StyleBox["Coupled catastrophes: sudden shifts cascade and hop among \
interdependent systems",
  FontWeight->"Bold"],
 ". ",
 StyleBox["Journal of the Royal Society Interface",
  FontSlant->"Italic"],
 ", 12(112), 20150712. ",
 ButtonBox["http://doi.org/10.1098/rsif.2015.0712",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://doi.org/10.1098/rsif.2015.0712"], None},
  ButtonNote->"http://doi.org/10.1098/rsif.2015.0712"]
}], "Text",
 CellChangeTimes->{{3.668611630873197*^9, 3.66861164614281*^9}}],

Cell[CellGroupData[{

Cell["Contact information", "Subsection",
 CellChangeTimes->{{3.6686116793028173`*^9, 3.668611681893882*^9}}],

Cell[TextData[{
 "Charlie Brummitt: ",
 ButtonBox["c.brummitt@columbia.edu",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:c.brummitt@columbia.edu"], None},
  ButtonNote->"mailto:c.brummitt@columbia.edu"]
}], "Text",
 CellChangeTimes->{{3.668611665638721*^9, 3.6686117213550453`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Locations of saddle-node bifurcations", "Section",
 CellChangeTimes->{{3.608215076238027*^9, 3.608215077623959*^9}, {
  3.668611819087749*^9, 3.668611825044202*^9}}],

Cell[CellGroupData[{

Cell["master subsystem", "Subsection",
 CellChangeTimes->{{3.668611829932972*^9, 3.668611832740136*^9}}],

Cell[TextData[{
 "The saddle-node bifurcations for the master system are the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "a"}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " at which ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "t"], 
     RowBox[{"x", "(", "t", ")"}]}], "==", 
    RowBox[{"0", " ", "and", " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"x", ",", "t"}]], 
      RowBox[{"x", "(", "t", ")"}]}]}], "==", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":"
}], "Text",
 CellChangeTimes->{{3.608226213998666*^9, 3.608226217637143*^9}, {
  3.668611377104745*^9, 3.668611439321282*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], "\[Equal]", "0"}], 
     ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], ",", "x"}], "]"}],
       "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "a"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6082262309785852`*^9, 3.6082262366011477`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"a", "\[Rule]", 
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.60822623703904*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["slave subsystem", "Subsection",
 CellChangeTimes->{{3.6686118355641317`*^9, 3.668611837404192*^9}}],

Cell["\<\
Similarly, the saddle-node bifurcations for the slave system occur at\
\>", "Text",
 CellChangeTimes->{{3.608226251643077*^9, 3.608226263090042*^9}, {
  3.6686114538939953`*^9, 3.6686114643744497`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "@", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"slaveFlow", "=", 
      RowBox[{
       SuperscriptBox["y", "3"], "-", "y", "+", "b", "+", 
       RowBox[{"coupling", "[", 
        RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6082263278901453`*^9, 3.608226336230287*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["2", 
         RowBox[{"3", " ", 
          SqrtBox["3"]}]]}], "-", 
       RowBox[{"coupling", "[", 
        RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]], "-", 
       RowBox[{"coupling", "[", 
        RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.608226331337761*^9, 3.608226336536984*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"slaveFlow", "=", 
     RowBox[{
      SuperscriptBox["y", "3"], "-", "y", "+", "b", "+", 
      RowBox[{"\[Epsilon]", " ", "x"}]}]}], "}"}], ",", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.608226305452682*^9, 3.608226318601554*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       FractionBox["1", "9"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SqrtBox["3"]}], "-", 
         RowBox[{"9", " ", "x", " ", "\[Epsilon]"}]}], ")"}]}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       FractionBox["1", "9"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SqrtBox["3"]}], "-", 
         RowBox[{"9", " ", "x", " ", "\[Epsilon]"}]}], ")"}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.608226309289793*^9, 3.6082263190329113`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
code to compute the saddle-node bifurcations for the slave system\
\>", "Subsection",
 CellChangeTimes->{{3.668611840316383*^9, 3.668611852676186*^9}}],

Cell[TextData[{
 "Here, ",
 StyleBox["coupling[x,\[Epsilon]]", "Code"],
 " is a coupling function."
}], "Text",
 CellChangeTimes->{{3.66861185368412*^9, 3.6686118682847*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"computeSNBsForB", "[", 
   RowBox[{"a_", ",", "\[Epsilon]_", ",", "coupling_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}], "-", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}], ",", 
     RowBox[{
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]], "-", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
   RowBox[{"(", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], ")"}], 
           "\[Equal]", "0"}], ",", "x"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Chop", "[", 
           RowBox[{"Im", "[", 
            RowBox[{"x", "/.", "#"}], "]"}], "]"}], "\[Equal]", "0."}], 
         "&"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "/.", "#1"}], ")"}], "<", 
        RowBox[{"(", 
         RowBox[{"x", "/.", "#2"}], ")"}]}], "&"}]}], "]"}], 
    ")"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.603830522382676*^9, 3.6038306030211897`*^9}, {
   3.603830633791767*^9, 3.603830639783646*^9}, {3.603830699476246*^9, 
   3.603830731719466*^9}, 3.668611483268358*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 1: Single system in isolation", "Section",
 CellChangeTimes->{{3.6079521816133547`*^9, 3.607952188078229*^9}, {
  3.6686118903693237`*^9, 3.668611891390729*^9}}],

Cell[CellGroupData[{

Cell["figure for the paper (Fig. 1)", "Subsection",
 CellChangeTimes->{{3.668611954791479*^9, 3.668611956294373*^9}, {
  3.668612038214004*^9, 3.668612040942038*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"x0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<  \>\""}], 
     RowBox[{"(*", "\"\<\\t\>\"", "*)"}], ",", "masterSNBs", ",", 
     "aValuesToPlot", ",", 
     RowBox[{"fs", "=", "12"}], ",", 
     RowBox[{"imgSize", "=", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".65", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"(*", 
       RowBox[{"1", "/", "GoldenRatio"}], "*)"}], ".7"}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", 
     RowBox[{"pointSize", "=", ".04"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"aValuesToPlot", "=", 
       RowBox[{"Sort", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a", "\[Rule]", "0"}], "}"}], "~", "Join", "~", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", "\[Rule]", "#"}], ")"}], "&"}], "/@", 
            RowBox[{"(", 
             RowBox[{"2.5", " ", "masterSNBs"}], ")"}]}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "/.", "#1"}], ")"}], "<", 
           RowBox[{"(", 
            RowBox[{"a", "/.", "#2"}], ")"}]}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"masterFlow", "/.", "av"}], ",", 
               RowBox[{"{", 
                RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}], "]"}], 
            RowBox[{"(*", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"masterFlow", "/.", 
                RowBox[{"a", "\[Rule]", "0"}]}], ",", 
               RowBox[{"masterFlow", "/.", 
                RowBox[{"a", "\[Rule]", 
                 RowBox[{
                  RowBox[{
                  "masterSNBs", "\[LeftDoubleBracket]", "1", 
                   "\[RightDoubleBracket]"}], " ", "1.5"}]}]}]}], "}"}], 
             "*)"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                 "]"}], "&"}], "/@", 
               RowBox[{"{", 
                RowBox[{"x", ",", 
                 OverscriptBox["x", "."]}], "}"}]}], ")"}]}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Black", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"Black", ",", 
                 RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"Black", ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}]}], 
              "}"}]}], ",", 
            RowBox[{"Ticks", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
            
            RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], ",", 
                    RowBox[{"Which", "[", 
                    RowBox[{
                    RowBox[{"#", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"lowerColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"#", ">", 
                    FractionBox["1", 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"upperColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    "True", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Black", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", " ", "1.1"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"White", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", "*", ".8"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}],
                     "]"}], ",", 
                    RowBox[{"{", "}"}]}], "]"}], "&"}], "/@", 
                  RowBox[{"Sort", "[", 
                   RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"masterFlow", "/.", "av"}], ")"}], "\[Equal]", 
                    "0"}], ",", "x"}], "]"}]}], "]"}]}], ")"}], ",", 
                RowBox[{"{", 
                 RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}], "~", 
              "Join", "~", 
              RowBox[{"{", 
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<(a)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.15", ",", ".95"}], "}"}], "]"}]}], "]"}], 
               "}"}]}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"PlotLegends", "\[Rule]", 
             RowBox[{"Placed", "[", 
              RowBox[{
               RowBox[{"LineLegend", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], "&"}], "/@", 
                  RowBox[{"{", 
                   RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"LegendMarkerSize", "\[Rule]", "11"}], ",", 
                 RowBox[{"LegendLayout", "\[Rule]", 
                  RowBox[{"Function", "[", 
                   RowBox[{"pairs", ",", 
                    RowBox[{"TableForm", "[", 
                    RowBox[{"pairs", ",", 
                    RowBox[{"TableAlignments", "\[Rule]", "Left"}], ",", 
                    RowBox[{"TableSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".4"}], "}"}]}]}], "]"}]}], "]"}]}]}], 
                "\[IndentingNewLine]", "]"}], ",", 
               RowBox[{"Scaled", "[", 
                RowBox[{"{", 
                 RowBox[{".83", ",", ".95"}], "}"}], "]"}]}], "]"}]}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{"x", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", 
              RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                 "]"}], "&"}], "/@", 
               RowBox[{"{", 
                RowBox[{"a", ",", 
                 SuperscriptBox["x", "*"]}], "}"}]}], ")"}]}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"lowerColor", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"upperColor", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"Black", ",", "Dashed", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], 
              "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], 
            RowBox[{"(*", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], "*)"}], ",", 
            RowBox[{"Ticks", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Transpose", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Sort", "@", "masterSNBs"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}], 
                "]"}], ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<(b)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.15", ",", ".95"}], "}"}], "]"}]}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                  "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Min", "@", 
                    RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                  "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Max", "@", 
                    RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                "short", " ", "arrows", " ", "to", " ", "the", " ", 
                 "critical", " ", "manifold", " ", 
                 RowBox[{"(", 
                  RowBox[{"the", " ", "fast", " ", "flow"}], ")"}]}], "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", ".5"}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", "1"}], "}"}]}],
                    "}"}], "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{".5", "-", ".1"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"1", "-", ".1", "-", ".1"}]}], "}"}]}], "}"}], 
                  "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".4"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".8"}]}], "}"}]}], "}"}], "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", ".6"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
               "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                "long", " ", "arrows", " ", "along", " ", "the", " ", 
                 "critical", " ", "manifold", " ", 
                 RowBox[{"(", 
                  RowBox[{"the", " ", "slow", " ", "flow"}], ")"}]}], "*)"}], 
               "\[IndentingNewLine]", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "1"}], "}"}], "}"}], "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{".09", "+", 
                    RowBox[{"Max", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"+", ".05"}], "*)"}], ",", 
                    RowBox[{"-", ".05"}]}], "}"}]}], "]"}], 
                  "\[IndentingNewLine]", "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"-", ".09"}], "+", 
                    RowBox[{"Min", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", ".05"}], "}"}]}], 
                   "]"}], "\[IndentingNewLine]", "]"}]}], "}"}]}], 
              "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", 
           "]"}]}], "}"}], ",", "sep"}], "]"}]}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.613749541275899*^9, 3.6137496269983377`*^9}, {
  3.6137497471658983`*^9, 3.613749819934846*^9}, {3.61375035358531*^9, 
  3.613750463393203*^9}, {3.613750494155267*^9, 3.6137505164353228`*^9}, {
  3.613750547994486*^9, 3.613750655166278*^9}, {3.613750689038537*^9, 
  3.613750718600368*^9}, {3.613750763326893*^9, 3.613750776835216*^9}, {
  3.61375081740628*^9, 3.613751020927266*^9}, {3.613751069179131*^9, 
  3.613751079694043*^9}, {3.613751109734027*^9, 3.6137514145892*^9}, {
  3.613821589942424*^9, 3.613821645808991*^9}, {3.6138216853164587`*^9, 
  3.6138220002240763`*^9}, {3.613822033751361*^9, 3.613822035008995*^9}, {
  3.614090609488216*^9, 3.6140906341316853`*^9}, {3.61985273101223*^9, 
  3.619852806866033*^9}, {3.668611901961123*^9, 3.668611930710718*^9}}],

Cell[BoxData[
 TemplateBox[{"  ","\"  \"",TagBox[
    GraphicsBox[{{{{}, {}, {
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          AbsoluteThickness[1]], 
         LineBox[CompressedData["
1:eJwt2Xk01N//B3DJFirZQiiUNkulRcglKoRKJUqSRCm7QvYlJHtCSLZkqVSW
JHlNkpQWS0S2mfcsdsaYMT5Ufvd7zu8v53HeM+POfb9er/t8n1Fy9LC6zMvD
w/NtGQ/P//5eqkieXlrigk386h8H9kwiUpKCqu4fLuT9CYKpFZNI3rPM7uY8
F3ak0J9UDE6g7h1NnyeYXPDszbW+GDuBTF5xC3spXChq8qRH9o8jjWp7m8oP
XNiwGJv+IWYMzdepvXeO4YJJ4sGadWPDKL65JfXbKi6wwzKuFgwQaIMcxfPE
ijnQdivNmfdvR556J09sleIAT+uxs64bwpDDk7nDrZvYUJI4eyzn41eot7zl
p6I8C1W2vHuPP+2HzqYzZT80WSBUzVSM3U6D035SMru2zkDe2r18N/NH4aCW
0pdtm2bAKjJUV7N6FDSm1YJUlGagf+cnl76WURByMSZLys6AdcK9clHmKNRZ
+5RwhWYg5PX0ns4DY6C4t1373QgTzIp28s12jwGDHW9rUsIE/wN1C6lL4+Dv
zZdtvxlft2ufWto2BXn3ZR/mqDBBOKtMxFtnCj7Vajz6vZ4JVUp1Ab2mUyC9
ZFNoLcOEIhmPk7FXpqDq7rNyyxVMODXWddD58RSQTZ/5B3dPw+kj7/U3KUzD
j+cn3h6wnwaawo44B14mPPfPMmhwm4KL3UWk4N9MIJOy5zIuT8G2IP+jNyhM
EF/x8KnX+SlgV2hMOON1+z14JLPJYgqmorNuaM8xwaCuiHlXbQo0bbp/pq2Z
gc7F53m245PgW71my+4jMzAf8oGHc2USUj/t0JV5PgPbPjXVfHeYhMOfe9NO
V82A3erm6yU2kyAWpbIvoW4G3j9q6TlnMglmY8xz480zEEf69qJx8yTwDvVa
XRqaAQXeHodkxgTIZKy1NVrNgoO3J0jbnSbA8Xkf+bsrC8ayedYm203AXrXV
5xc8WJD6StKNfWoCTvoLCivdYAF1SE/23aEJmM3yWLwQyoIonQQvy80TEME4
4FB0jwUfp9WVvcbGISio3crkLQtMznpE1niOw7+2Viq/4CwwPSN75a6OQ/35
qPkHIrOQGZOhGXpxHHiqzVy2is3CaBX0HbEahwJiq42O7CzErRbb3as1Dnxr
rco3bp+F1qYXtMW5MaB9NtGWt5wFS03WIcPgMVC73cx+lDwLum0VE603xqAo
Z/FJQtosbPFyu2ftPgaxfIYifpmzsLxyhHztwhjs8ull6OXNQu3eocB0wzFw
vWsqeb9iFpT0v74c5x+DgwXXbfy/zQLbvFghPXEUzAymBCUE2ECZvNS0IWYU
zoeskQlYwYbviUrXykNHoTtg29JvUTaUtuXUkjxH4YG13JlUCTbYn7p3ctxq
FMB54diPDWxoORd2x2DtKNj0L7sZqcOGbNeznLFHIxA7e15qwJUN11dOW3Rm
jEDpx3eCS25s0HsRWfw2aQT4/9M+KO/FhkHO0zPxoSMgc/b1fRM/NmwIX3qj
fmEEjtLMiSuRbCjKKArxVBwBzsoCt89ZbHjWNCU4lzMMFHu17VLNbAhxiXQY
TBsGfytRlcIWNlgKy7xpjh+GdLuaNLVWNjCPGbpmBA3Dqru54zvb2LCr795X
bTt8XVP7nsBvNtTMaKcErhsGqfgzm3on2ACKkXLLshhwRjdES2M1BwSSt0n4
pjLgWYKmkegaDpgv6xAZjmOA/sviBIY4B3qoG/5+DWRA5Z+ZX0nSHGCVNAxl
nsfvf2BxuVqBA6paC0U7lBigkpAXbLGdA9eL8h8WyjJgF2NF+7QaByqlTNOl
xRkgeNLFJ1GDAwbzGTF/eBlQML+ijLSTA7bv9ri20OggdQXx/rePA/FHvDQd
SugQG8jyrzPiQEetzJbOPDr8XT5vpXyIA7LbSBsOP6BDI7E+OfowB4pFV4ur
xdFhUIvQNjblAKn9KZt7jQ6/ZCJc0iw5MHtu5E2SJh3sUmpO3rHhgM63pFe8
W+hA9dLjvrblQJj+vvIbG+hweFxcnHqWA6JK0Tnn1tBBf/+7Vxrn8fdjqIRu
nqWB116bD9kXOXDW84Ix1GDbaup9v8qBKOrAVNJzGqi1n77V68qB59Z2DxyK
aeAtZl1KvsaBZQdsp5al04CPcpxMuHGgZMXJTOMbNGCVbhuq8cLfL6j9oJQb
Dd4dkGvP9+bAn+ljk3QnGvxOekeK9eHAsW7zgzGnaODqGv/I7AYH5goOT3zW
okFmz6HYXH8ObJD+mJ6F53a+/ve0qwEcMLtjZHhNhQaNtrTyHbc48NDDIF1U
ggblZao8lYEcMNbTMTjGokJn+j+32BAOuFfUjq0fo4Lp7elFrVAOZCrvu8+k
UOHhepP8Puxxod1jKe1UOHDyofb6cA6kdqmn/XxBBen0jma/SA7UmzzVf1xC
hS0fFvX4ojjAeLtt9EYeFfpTnX/FY+8v2Ky/NpkKiVLuoam3OeAoVTwyHEMF
/cOGyauj8f2O3XivNpQKbMkPrbHYZHelEVsPvL4Y9NkjhgPCxKPUbS5UeFbq
mTiAvfu04oFFeyownd5FHYnlQIzuutQcSyqIF0qLiN3hwIvnD/TcDlOhoNA2
1x37t5LM8AF9KvzT3nT1M7aGkJTekDoVAhQ+lPvEccAm8B6jYhMVjo61qn7A
jphakxKmgH3ky9Cquxzo+rmKobSSCtrPJMWzsf8dSUhm8VHhl1ZGYh/2lrci
uh/+ECB4OOiYTDwHgvKFkp0mCAgS6iuKxi6WjNHZQyPAZ+9dvVrsthh+On8/
AfbjwusZ2AsLkUndnQRIO3MsxBI4sNGdV+dJK349nf5lL7YlJYzm94GAYyV+
GbbY/qeWEk3eEhA+eajaH7vgU/B+2UoCiNnxTWnYrTp/qKNlBFgs8I2XY+to
bxwiFxDQtOvmC8Au2WP++1cWARcG/aZ/YK/V8u36nkpAilRSaT929I6cto9x
BHxlGpDp2Bz1ptb6CAKiY8Xvj2M7bZ9orrxFwC5O7OdJ7M4tko1l3gQYH9sa
OoF9UFXvXb4rARoV/q+HsV+qONVmOhLgrP7HZwh7g1J8ZdJZAhwI7ZpO7ETF
qufRVgQkMipDm7D/rusvDTYjwMmK1f4S+7os32PfgwTY6Ac8z8b+La2Wd02H
gL7Gb9IR2KaSp7IddxHgOO8rehm7dk1Quu02bO5ssjH25tVFKceV8X70/Hi8
ATtd9Gv8ETkCMioTzP/D+88nzI7RFyegKv9V9HdsH0H5yD3CBMi+/XA6D5vg
Mw5R4yVAW+bwW3fs47zXA1QWKBDd3lC7H1vj71uPNWMUCKp7Ev4R18PDBaqr
EEEB0XXKx6OxRedFnJd6KZC1/0m9EfYo65zd5GcKhIgzblT9r/6YkWdo7ylQ
/7f0owt282S5Vd8bCnwSSnizFrtoZNHkcykFJMhN99xw/UowVIxJ+RTQG1AJ
lsCOoB5Frx9QYOlcjVgN7ocLg9l7Ht+hgJpBnN4M7he5n7rK4Vcp8PZYUDvC
/XWn/ZKC/0UKuAsI7GvF/Tj//a6Mhy0FzvFOWJ3E7v7ct+q8KQWqtlMqbXH/
pkDgovZWCgjP/DNGEThXviuc01SigG7IfzEv8Dxwr2udUZWlgLFkQIIitnn1
uhHJFRSoqF/HYOL5IVT+9idzhAzp5cHz7sEcCElffFZSQga289a5dj88Dxz3
mm7LJ8MZ1XZDBewjGl608gdk8FORbr98kwNizQy5ijgynDdzhilfDhRy2mOq
r5Nhybvo7xCeny2nSi427iCDltd7SUM8b59toP4x2koG4TQNjYt4HqdOKGR+
VCKDTyMrNwTP63NR9763iJPharX73ZcuHOhz+Xszd3QIFOXrXnEv4XmvWrat
1msILDVaLAXsOMB8t/7iW8choKRkeP3B58Ob0/czGk4OQe93v6VpfH6Y3w7j
+7hnCK6b2F78cYYDXjTrwfb/BuG44yYHj5N4PhYsTx0PH4RX3iL2e8w4cGL9
+f8UUwfgq7jtH8oeXF91YfcGwgcgUc0kzHU3B7yti9RzvAbg4Ua0lbkLrz9h
/KLsiQG47ZnEZGni82Ix4IuE2ACMvWsK697KAaue9GyhxH6QdewXXIvPY6uU
tgOsO33QdSWlMnYZ/nw19q8XAX2g9u4lrXaJDd4ta709rvbBOq6mG+MvG1KX
7IsnTPqgvD85bv8CGzrcJlcNC/bBXNW0MonFBiszYXLf7d9w4lvgtuNUNpxc
bhzxMbwXBvc8yohuxHlKN8HugXcv6K4W23WHxAYz3+69bpd6Yflbiyd3Gthw
kH5lXPJQL6SfsNgcVYfzyaeEU05CvSA9o55/4RUbxO7+Ul2e1AOfyuezXuaz
8b5cazXI+QV5Be1ZX0LYYKycKllf0wVJ20Ouy2ixIdr+jtXR4i5Ql9sR6byD
DZ+zwpJ/3+8C3edmN16p43wk4SH6n28XbN6sxzLawgYbPnO+vVpdELKUF2Sh
wIZrDH52RcVPiHTioj84H6aWBXQWlnSCa8cSrbNnFii7LqbezWqHhfaPn5tv
4vz5deyzgEorCDmZVb4pYIFKCSU8PfsDXH7/6KjclxnQ/lGl9IJaA/yaX/Y+
b2NC2rDo/W/3cyHRSH5pH0xDxCEXsbwdD5FPmLygG2US2FI+cCHiNepw7in8
Rh4H59cZZeUnPiC/au5QmPgYBPD45t6IakVyZ+T9hXRH4CDvJV+/lnbUaeiz
ySidAfYrOlQDf7WjgZDi4dBkBgSKGfaGMNoROX4pG3Buq1Jcrx/N14EMn62k
HwllwCbdPsH7Bh3o0H/L9YOuMEDI92T2q9oO5J5QsvemLgO+040aJ0s6EV3x
+EMSlQ62nzeKOd3pQtfKRSV19Onw/Cvd/umDLrTzElO4X5sOfG3Fz9ilXSjp
dKpWhBYdXnRvOXr7SxfqDqlR7cO5SoCmFl0s0o0m2QKTIEGHqn+7/4wkdCOF
BZ6GM2M0WLX70Ihb6i+UCQr3urNo4LRPYF9NwS90pPcPhQ/npDqdT7f/vfqF
KjqbP+1LocFlQ1OVpM5fyHWJ5FQeQ8PPrxb2LyR70JhRl94XXxpcvXr6Jyu9
By2K1GwdPUaDptzLJL/sXuQ0LS/TuIIGGvzLfpSV9SIDswrFdn6cm67lDAy8
6UWBK1YF05bR4Lp254JRTy8aPnTrqMwCFSQ7DPaISf1GV56K+VXhXHSJX76s
JPE3ejJobvr+KxV4r3fc6w3vQwxz0m/9NCpc73ArEE3pQ5yz4d0DOOd0a694
ifL6kOipc0HhCVQo4zf4/rihD23JLGzrjqaC1aNnQt6LfWjifCz1TQAV8jti
g4Vv9CO9xDrWJQcqGOxHLrpXBlDjXMhr251U2HA35qeS3wDy8NxIz9OgAs/A
D0Oh6AGkaHduYGI7FUhhDvJdhQNINUFj3z1VKqCW8Hb3oQFk5WH4U1Ye56wz
TboF1oOobam9Q0yICoqloqWxlwcRScDi62N+nIsWTkl7+A4i/USF12g5FRpy
6Uzd1EEUp+zpGvGPgAMMgeKub4OoP+DVXSMOAXo3TMVWHBpCayqcftVQCZD/
lBI8fXIIiavNCeVQCPgj83usy3EIaWjnW0UPEVBf7/qxIGwI2S/j7HPtI0CX
L/6WXv0QEvNyTfTAueehqQvrtSwZ3Uw5dMe7iYB4b5Gt25XI6IybxoWyRpyj
sisu5G4hIzKD7TNMIsBukvs1ah8ZpdS0XvJ6h/9/SuyTE6fJiKD45TXVEJDT
U2o3nkxGTK3Ip644B5Us3aTwPCAjDxMJ/Z4SAqpVjZ2l88nINvPpNvMnBHz3
HfQwfImvf7RTOlJEwLI1EpEZ7WQUfcKh704uAau0yYLPesnIUn84e9tDAuQu
PItvpJBRkLxuW3s2AbufHUmfnCEj/tjyPK0HOOeYBpUaiVNQrYzdvkNpBHh7
mmrYylFQZgJ3QvYeAaEZ0pXuyhTUXaqiyUkhIJP+ov7BLgryqEy6DEkEfAmn
/5i2oqB5QaeZgrsEdJe8OsV/joIaqnY6PsW5jPojtFfuEgX1N5z0r7+D91tB
jnrIh4JUmufymDEEaNZZzmXfo6D6h5d1SqPw/aKsC3yZTUF7d0WqjUQSYCI0
utRcSEF8v2v71bEdrSNXsCopKE3/e+S3cALcg48nCtbj9Y0Mhm3GDixSkFBo
oqAr4VdNYsMISGO9ljf5SUEBNpZG9qEE5Mnezj/fT0F+Ub1BnSEEPDOwUvWh
UdD7AIOEY9h1LuvLYycoaG1Ftl9HMAHNiROauWwK2p+9HNlhd1S/qar8Q0GM
qmTGRBABQ/3R+z/zEajf+5xXFPb8NiUjtiSBCmtEDrQEEsBnNfVphQKBWFuV
o3yx1wS8NV+/iUCx8j11m7EV82Lbd6sTaCP/YRoF59Rtn05bm+0h0O2zUcsL
sfdNKfddOEAg13vl665hG0sxL9w4RKA01Z+aOtjH9d7R4iwIRIqTNhLDPn8p
7mreaQI933vXZjKAANe4M1PV5wmkmG/m04598+VGn9bLBPpu4JZejx3ZM8Ml
uxEoJF7k43Ps5KWGoLkbBJpYOMBbgp2jGr9MNIRAv3kVTvzPpRa20UrRBOJb
976qArvGV1VkXyKB1OoO7mjAbsyeTTJPJ9DqM3XNndi27Ge+vx4SKO4An/UU
NtP8iq3jYwKpzs7KrsbrjX6srD/5lEBc+ZVSe7EV/vUr+1cRSMKh0/QSdpV1
huDyegIlXfxSl45tVnFiIuEDgcKab7i2YVMERdtlWgn0V8v2nBjeT3+H5urC
DgLJHptPssZe/SYsS+M3gcbru4ULsYvX6Ia+oeD9V/b/zsHWc+VcMh4lkMAm
hwFLfP86GytMfjAJFHBVXOc5tus6V/Wz83h9aeLDEvj+8/huFKcvESjdnMYI
xdbY9KBvYRUVxbGFR11x/XwMPkm6LU1FwpouzFFsu+6Vj8UUqYgnrvCUB66/
OzER7qrqVFSwp/VAAq7PDWS9ky93U9GttnefNuH6rdHm7tPToyL5DY9qm7Bp
o9eWWR2lIllvvV4pXP+3Dqoy+q2oKLdhaWUL9pps8heXs1RkfIpUGYb7R9/8
dFrwVSo6Mn3Ejj+agAfP9TeXxlBRBKvbxQ733w7B/0R2J1GRY/qY60Hcn80X
KpkN6VS0+qnMrAbuX7bYlrqfj6low/uOnHUJBFj6rLHgacLry9uYY4T7n97a
uvNuK349xWuVPX4OC9oYLS3diddXPycbiudFadfC0HaCika6qgW67uP616Z5
n+GhoYZij+A2/ByXnZx7hhCkIbvPQ0vrc/Bz2aiNnttqGpKvKNK8iefVhaxv
/JGKNHTaRjd/bx7uxz81mc/1aIhvB6+EUDEBnu/vNPAH0JCAi6rT9CsCNsq4
zewKp6HoO3rhbVUE/HI/vtHhDg3Fy+UWv8HzVV9+bVzdAxr67i2xtqiOABG/
otMedTRk4nxzpBfP62I1mOhZpKGMsky5rz8JOBtZsF6Aj47itT7oaf4iYOXv
21ZaonTk3uWfldVLgG+MeW2CPB0lW56WihskwJDojTx4gI7CwiIcv44Q0J/B
lnsagq/v3rqFgs+j5KlfFr3RdGTwxTHy8zIqGB16GyaQREcHVVws6vBzeRkr
nOHwiI46VuTpVAtTwc9i9SspEh0dl4joFFtLBfHl20xDlzGQ5dWIrxfx+Wri
fsHPKoqBdj6zPBJ+nQrRc5rCnLsMpPyjpHu/JxU+hPA8zLjHQPUjUbILPvg8
Tcpv7C9gINKtnU0pgVTY/YK60uU9A8U7XJxTuIvPa5ZLUeA/Bnrpclj6aTkV
5m94thf5DyM9Ib/bL1lU2PvPwOlI2DBap5qaeplLBZ/oNdzRmGHEs1BQrPSH
ClPpr+Q1M4bRU13JqZc4r9Bes13eVA+jVW46RlqyNGj7z//fN9Ywiq8Hy7eG
NCgNDt/OvT6C7F8tbZ/NpEFBYImbj+8I4mOsOZWcS4OsgB8V04EjSIseFLmn
iAZxNxR2j8SNIM33O3kzK3D+cXuj11syghrNGR/eNdNgx/kZi7e0EaSazQlJ
nKNBrd5Fz1C7UdRyLkrQ2g7nPZ3YV4uXRpF/evbAvCMdSrUr2H7XRlGHb8WK
oqt0yNr919/z1iiKyMh3k/CjQ5Dag/CLmaNotj2k1DqVDgby7alGP0fR/PLM
tV5f6NCyaFAtaD6GnArllwkaMmCAm3xI9dQYMvyJChxMGcCaJXcZ242hi3Ys
96YTDJCfCJsLvz6G6CIpGWWODPDqJ+37Ez+GzOSig2eiGCD3zqCO+W0MrYvp
OXu9lQHXQwyg99g4Mtlz7ZiawzCsWWbwufzkBDoT87QxqnQEXmgEv0HnJlCf
uCpfc+UIHLerK+10nED3xza1iTWMQOLr3XGLXhOo4vr4mg8dIyDqvvXo0eQJ
VHOAFZn1ZwQE+sS/jX2dQA0bJc6vtRqFhSp629bDk8gprbH+LN8YEFfu9jzR
nkKSLv0L6dHjkJs2Iz1oMIVWHw9qv5A2DmdJZ05Lmk4h95tWObsLxqFj7caO
MNsp1CWbs463YRwam+tbbW9NoQ6x0HXqc+OQv3GqQaR+Cnlfs+Z+vDIBDuTj
jz3QNFqlRe6SPTMJ09tF3qxTYaKzK0SoSzbTUBY0WqGymYn6hWuDk69Og/O3
T8XbtzORCUvdWf3WNPS7R6XpajFRTUW9Wnz2NHx5+dfjnBET2SRdYAwMTkPx
PqZq9iUmWi/XdH5Miwn2Rl1pckVMNPJzuDr1PRO+nn3kKbtpBjHmPl5bmp6B
ybreTR+kWMhQ1i69wJUNhYNaeTVys+iJl8fQ0RguPNTaLWO9io22mEa6uv9e
gDm0PHD7XzbaWLpnIj36H9BWswrMeOZQyaNrtfahy0jSa2JapFhzqMI6RUyx
YzkpaZ+Kl8XcHBLw0LcVHFhOErIH2dsLc2jPQ7VrnOHlpMUyriubl4vSnI5P
Df1dTiIbX1nZKcFFlPdWcVNb+Uil/qZWyXu4aOzL9kFWBB9JjyzSLxzARY61
fvK52vykaoGSqIPBXER7fNRQ2ZifpKFurH4rnIuMOOFHy4/xk5RuBYWM3uEi
ReoDia/O/CQByckNLVlc9EZB8q7JfX5S25Hvl2/XcxEor+tXn+Unmbq7rnpH
4qIdIqkkniV+UmOawGt2ExeFLwZm9ggLkKop+kJO37jITEFdNUNZgJQVWFF2
cJCLJmLy249ZCZAkCo6evEVw0Ui7hauZvQApvmV48SWDi1pu3vhr6ipACpHa
YKE0zUUvF+qkbSIESFzdeo7NLBfdmsrKdU4UIHk62uQmc7noifOtjbeyBEhj
sezDLYtclOWmU5paLED6/98v0fOV9eovXgmQ/g97ojGd
          "]]}, {
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          AbsoluteThickness[2]], 
         LineBox[CompressedData["
1:eJwtmXk4Vd/XwCUVUakQQoZGRaWBSpZQUZKQKGXKtzJlKqkUSUrmZMwsoUQp
U2oJGZPx3nvMdzLPkitD3vN7nvev+3yeve8+e+/1WWvv8xwZq5sGNtxcXFx1
S7i4/vdrnR0ytrjIwR/jD5MWFxegJFhy65F5Dvan54mZDC6AhFOm2e0ZDu75
PRhY0LIA1D3l1cPjHNSPPGkTmrEA2h85Ka0MDg4G5LxLNlwAxc9XTHLLOLg9
XdVXI2MeZop2ff/Pj4PFzmIvHS/OQUBFVVjdag6uGyob3dsyA9LiDKdzfNPY
6yvLiC/7DU6qhud2CP9Bs3BTSU3+MbB4M32idssUPnH+bX4xug+K9e66y8n+
RuPtYybRbnRoLr+QWb97Eo3UFzNc1Chw3l1YVGnHBKpM939TeF0OGvtkauS3
TOCdk2UMbeNyUBzbdV9OZgL1A1P3RK0oB95rWnQhsQm8vslVptm2DIqMXdM5
vBNYdZt7pmBfKUgdbFT52j+Oe/z+eLrGI/ROBZhqp49jydecalfTPLjjwhN7
ZRvJEt0pe2ZeQOJLsbhXciRfzecd4QuDygLFhLZN4+h1s+LEokQIiCyapBiL
jiOX3Flp7aCn8Ol51ls9PpIdDwRGZbkAXSfrjid1DNWfqX6ajHqM9e/PfTl6
ZQwtbvxbPpuQgu/vxKh/cxjFkOIa24Zz+UgviZ2OtBlFUbFlojrf83EdX9w7
58ujWHD+upz1ngJ0j04Q3XJmFE1+bCm6t6oQ1YtSx5/vGkWnVmbWsbIibJ57
n2g6NIIFWVGMg5LfcOZBGdef6yPY0FfOV3y8FOUry/N+WYyg0x8BWpp7KZqt
qbBPNxnB8tqLA9YZpfg9oYq4pD2CIQs/1pwXKEP/krqc0m0jaJSyqlKooQwl
uQmLkN5h5Lo6NyN09gdq+A6X7Lw6jEZSEsrOO6twMJZrQ4jZMA4LFIjWGVVh
2EchhymjYSQc7npxP6hCVreq2Nfjw9jy6Av/bH0VPj4c6Ky3bRh1uxWUJF2q
8ceYgqzz4BBKB9dUqGbXoPbFmz55TkO4a1+c3o5VdTju5NMqfoNsj7acqt5b
h1F+kbsfWg6humG47XHjOhz4hO0nDYZQvyRw4md8HfqvEdzfum8Ir1rX+29S
/IW15TnsuelBtJh9PNl+vB71dk8eP+Y5iPq2h4bm3zXgkYbs4dpbg7inalVB
bnEDbnd2eGHsOIil1+SOm/5swKW5/XQ780G8Luub6zTUgAUHu+9FHBvEUz7H
bzRub0QZtZ8fhpYNYmZXo8eVxEac0k2TjAgawApjQrn6URMyRqzLpf0GUOSs
zR3LkCb8FSRj9/bhAM6qVgsNxDVhRsOrghKnAVye89StoqAJrxi9MBwyGMDY
cV6TopEmrLrk9Ux9wwByV24d9zdqxljbi38GE/qxRC7SYUK4Be1XjZ1pjuxH
TXsRZQ/ZFlTN8Un7EtyPnw8tlRlVbMGuP+8uBDzsR65v844JJ1tQ2nuxUMG8
H+t6DZKk77RgamTqAyepfnQLfPMrmdKCWeWjK6Zf9eG2xobyxkcUfHDNx6Ir
vA+9E/RT+QIpqLdStLAioA9nKmdsd0dScPzsMdvI+31I846u0HpLQaX2Fz9V
zPqQs57LJrKJgnkTKqH3NvbhlK9nFkOSiijlI74kphdnNUR7D7yh4vIQ+fVu
Yb1oFNC5+f17KuouaeLv8+/FaPEivQ15VCRY0gs/7/WivXafe3E5FSfTv3VH
Xe7F+aLzWQYMKm7dN5u6R6YXd/knrc7dQEP71KS4FLFevDF6wkxVioa5wjoR
Iut6sTCpuCdvMw3VZyL95rl7cZvKyZKHe2lo+vWAbRW7B//8kZCxPEXDgJPO
uy3Se7BUc2DuPw8aNhWIbm9O7MGXNovWyx/SUEy+RPpEdA+m0+NNIh/TME1g
zbpd/j0oviV9LjCYhiWN76Y4dj04V7At71cqDX9f6i8M3t2Dq2L//pf8k4aH
64I/cm/vwV2Sa/+YNdLQS0357S3pHszjtrPgo9JQQObJq0trezD6sBBLuZuG
W3vlHm77zUbr3V5bhsdpeNHJXAvz2GjzpYM3by2Bj1mdo8Hv2agfc3sJS5jA
98Zm0RZpbLwR6f51UYzAJUdNR5dEsPFDq1U0ryyB6XyGUVq32Hh9oTrcZC+B
TfcbNYQd2Biu+9SM5wCB82NnR3qusnH5S+GNiSoEnqXqavgZsVFrUT/iDRA4
nXxiuHofG//lHzzE0SVQWuRHRMxONm7WN7GT0yfw1DPNY3ZybEwvzqkEQwLj
bqpHCKxnox5XkaiOKYFaqofVz06ycDhHrCH+KoGO2QWDmwZZWGHbueLMNQKj
ZJVfjjNYuK4F4oZuEDjEu38wtJGFL5LDZ/86EhhGUQhvyWHhbNaNfWZ3CCzW
fqf2Op2FalarBYLuEtj7RX7gViILVycV3sq5T+Ch5G1qG0JY2PqWJlzpRaCV
cFp/nx8LYxw3m355RGDA080vCh6y0Clj58nExwTSHWX6TW+ycNBN8qjqUwJX
MhPC5K+x0Giece73MwL3n5c6OneFhRYDQjtjnxPod2Rj2Cs9FvYyPLS+BhGY
8z5a1eEEC7ezfUOVQwhskxHtO6rGwohDn4qTQwlU5BVW7VZg4ZPanZWnwwk0
ufeiN3sLC3/+08t99pLAR6NrQ70kSXbRjiyIIJDSsrpXZhULvVa6WAxEEfjv
ZGDIJA8L5zffNxiKJnD7F/4jZfNMLHIQNO6KIfB+Em/I1WEmhrg/fxv5isA0
Ib/DB9hMdNitu/JKHIENfst6lnUwUXzp6XDheAJnZ32Cqc1MnBmZOvuN5M2O
3Iff1DLRcShP0ySBQD2GF9u9jIlt0wu3WCTfMVoM0v7CxBR+5RHzRAKTKz0P
ieUycceW+uw6kmsPz7MGMpnYoLavfFcSgYdVNnfTk5n4UXqm9R7J6Qd022gx
TJSs/0cpJnnDPjfKrzAmMt9e+jZG8pM9rxp++DOxUVQuWiiZwD8K5bXFj5hY
4H7DfifJV3cOV+TeZeJ1eU21/SQ3bxcqzXRhYlZYudBukjW2qn5NsmWiyTru
6Y0kf5C7WhBlxcTD/IL9s+T40jIBucEXmSjVzT1RS3KQ1Kf3TwyYSB0bFQkm
eWFjR4bnKSYqJfSba5FsL8bz2k2Dif/0eJqGyPW1iexKtDvMRAFLY1dfknWE
jGKtlJgor/xbZy3JBWvvR5jKM8m6NHYpmNyvbWtSQ/VlmdiUdyV7kdzfCIGf
ASfFmTgvZ3zKimSelVN+auuY6NwxoJRPxsd1hYTPgZVM5NZQvPmPjB+TR+vB
Lm4meuUpL1MhWZ/b3kNuloF5seJz1rGkTwtfbq4dZGAIfJN6QfoQN8uy5WUy
sPH7G5MI0heBGf7/FlsZyKdavDIgksCByUtmI9UMjEnIH9MjfTMZ97nA/s7A
MN1KRQnSx4qRtwbthQz8esfwX3sYgan9c9rVGQwcoihd20f6vL5XTqskiYEB
Ne8FaknfH7FOQ340A+N+zFw8H0igeVfsgdfPGKhnrL1Sw59A8ZYjst43yP7h
glfu+xD4rNFa8o4lA01uKk9leBM48+u56E1TBq42r7eueUggtbp99WUdBrrw
pPax7hEYivfmVHYwsEZs4667rgRyfU2Z3i3DQH+9ZSrgTNaPotqJrWIMzE5b
qsch64Pu5439QnwMvKwdlKNuSyDv2y8t4/10nFkqMqtiQeCDiLms9HQ6Ok6U
j5frkPXA6qCOfBId50etN02eIPCkojP7bTQd77DczYS0CBSs6BXP9qfj+ocF
wipqBKb8afT7bE/HGJkPqxfI+llllG5ZuoeOduJb7Lw3EJglzZrX3EHH2tet
DUuEyHo1LBn1Q4aO9uaDL9wFCbz0+MWvqnV01NjZdlyTj8D2awu34we6UbRi
BevSLFnvt2bKFzh3I221umFEGw3Hv26y/GLVjZvjPLscyfOh8PzLyG+G3cgT
+k/4aBMNdX29eH4c6EY998dxRdU0dGYbdzX+7cLurk9RhwtoWJy8NGzIuwuv
SZ8JMXhBw3ObLv+VCuvExkQfvmUaNGQWeb3o9O7EjhXqYttUaehinKrwyrkT
hfo3fj16kIZhgUOWYuc6MX/D5TZtefI8nPOoWS/YiTpnlDbS1tLQgIiI5Q3q
wOVdIcqtXVQ0CG04OvmsHadnrvYmOFGRuWuKluPRjudO9WZa3KCiS9UGl5s3
2nGVUvdPESsqhi1eSRvWbsczVVYa1oZUbHIYWd23oh09dnSleB4gxzu1kt7u
24Zs/9WlXzkUNFyq9eiHdyuKKLy6HelGwV9HAs2iXVrxeZg5PcmegqfcqAcd
rFvx3THjzylXKajRc31I6HgrzscafQ40Iu8nlYFGV3lb8a8Y7dXcPgoKPqdt
XRpMniM83I81J1rw5zq7WvVXNNxEt/F5Y9OCWrJhQsV5FOxcKlrTdbAZn1x5
ZnA6jYL637o3b9jVjNUxXiFtLykYsPrUyAmZZtRbf1PgLzmvQ5NrGAH8zWjC
o8tzkHxOpGHKytzuJrTrXTaVnd2CmX3zGxyfNGFYpkdzSnoz6iRIvftZ14gM
Jcuw5zGN+DzuIEQdJ++fPwerl8vV4uPa0JrKwWqUS2d4R8SWoUOeauDPLWWo
Uv9JJoeVh+UnpOton/IwvE/gZd3LeCyq9bRpDIrHR8evCSbuiYOEyLsxgfJx
MCXsiuaP8mHSBb3iz+bDf/mRmW/PlQHjAfMsN6MUPLjc4m89rgWTmbNjLLUa
0OC2dnOvaoTCrbOv5q83wBW+pq33aI3w+t0LUR+3BrgneKz1QW8jxIcwspd6
NcAnqU1qT3iaoOvsD8nfEQ2w5Uj7ipfqTUDNJ+z8yxuA180w9mNBE/gGB9+N
kGqEXz2apSPpzRBhr5615FcjmFZvFrz6jAL+hpW4WqwZ3v/sufIumgILrMXG
Grlm4GlIy5rKoIDG4hevB4rNkEPdftq3hgKf3rnG/NRshuXsXU/S+KngV9K0
aqljM3z6t3++P5AK2/K67JpLmmH1/uP9DmE02Lvz9XeKeQtcVV6unJdMgyZO
r5zHjRYoOlzp++8jDZYuNTRZ79oCNsd05IKbaRD49orUrict5PvrmSs5QgQE
yB50HH3bAjdunG+ZjCDALswtPOdPC5TH25S4x7ZCZG1a/j9vCiguW1KfmdkK
dOFHmXRyXVF2rzo7C1vBNrJ8pDCUAvYqzbOaRCuESQ3rGyRRQKhJ/YCgcBuE
nCMVLaGA9TKJzPSgNlg3cuI81zwFuO2bXrR6t0O4oIXSMgcq2Dc5JAuEtoP7
VOfhSlcqUFX4PkBiO2hzy489vEuFzGXqv15/awfBu9EnKH5UMEjI4nWZa4en
o/XSa5KpkNT01HPlrQ4YCLTj/tJCBfVDcO3I9U7oKGbeqVeigfRzvxYZ907w
ro6UPKZCA67O+mO8TzpBbnKHQsZRGpR4WUhQUjpBKMTHw0ybBlDl3ejY3QnF
tZfh7GUaqF0oP5Js3AWYqaph6UsDqQyBjKc2XcB4deKssj8N/s0aidx06wJ2
4GuPpcE0+BbfM34krAtO23CtfxBFg6O9y9ModV2QkXevYS6TBqq3dAT5jnfD
Ud0Nh4R/0UCiMtRzzLAbVA2mKKeaaDAv2jZIseoGnsPxGrepNCgutv2R7NUN
qW+m3d930eAIT8Bd1eJuUK/ir00ZpUGczrXJfDE6uPmdp8QJkHF14d+xU4YO
H+t9digKEnA/Nts8fjsdEjqmF3PXE2A2wvn5WJkOakd1pBPFCZAIffrm3Hk6
xPWOp/3dRsArIsNsKIQOXhptQVnqBKQv3mZwRdPhkViRXZMmAZ+3av0nkkSH
9x5+YYMnCPjl1nXz2AeyfdO211O6BCxZu94nspEOhiuk9940IWC1Cn1FVisd
yhXW5ShcIkDcPCuglEGH6862J7svE7A/62TEyAQdjGOepW20JuA/nfsZmusY
MH5nu8eMPQEuTjqKpuIM2Bs8sersTQIeRorkOsoy4JNx9LMoZwKienKKo5UY
8EjzuwTPbQJqvHvqxwwY4BQjuuzoAwKo6R+Nll1iAFvdU07eiwBW/cNWcWsG
vNl1iMP3iIB5SXHWcVcGiEv9fp3kS8DuIr3p2BcM6HMUdt0TQIAqY+O9D7EM
+H28LehjIAHavAOLFSkMMJl2VNwWTICVsQ/fZC4DlBW06H2hBDh66getKGZA
LiHbu+8FAfdSJddLljMg5M2qCy7hBIRP5ktotzDA8a+mZQWZd4livkmXOxjg
kqQw2h5JQJa6wVZXNgO68szrWFEEFF3b9PbpMAOUdDNmOqMJqAga3h0/xYBR
19YbNTEENH0u/JQ7z4CX6iieEUtAd8eTQ9U8TMgo37Hs7isCZuRlNKeEmCB+
tNphMo4AHoPRSj5JJtw3ftUdHU/AWo8vupu2MEHfeY/LvgQCpBKfNu5XYIJY
otEmJFm+8rzxqQNMMP5Do6smEqA8KttufpQJAT7Pct6RrCU8bn7rOBMOXVZ5
ujqJAH3Vr2z/M0ygh+daWpF82dr/RuJ5JvAcrTmYTrKt/4XRz5eZsOX66SV0
km9/2Oxaa8OE8u3Lv/AlE+BDTHDoDkywCa2+vIXkkMVv96dvMeHpp6ssJZJf
bQ1YIvCACVmpacf/xxlnTJ/IPGHCBbcrD+RIznPbyq8cxATeg5f8lpNcGvs7
WDeCCRrzdhfbyeeZTmW50eKYcHo3cSSN5HHd66ZWr5kgVD6Te5XkJ69l1Ube
MUnvKr6KkCz5r0P2zicmHB48ZFRMrveTceSKpcXkeH2nXc6TfCr73HBgGRMs
JP+sY5L7xVgh0Chay4T/NBT3WpF8x6Lic0oTExQFxisp5H6vKfSKUWxjgv+e
fU2qJKetPfKwkMGEszbjpyLJ+Kja/rHWGmCCkYW0Qg8Zv+bSbO36cSY40r64
biXZdqOtwsUZcn5eX8QukfHmctu8rmeRCfvXior7kD4obolun13NgjPfa4Sz
SH9+eBqW+IqwQFd33Yps0i8z6qrXglIssIyIVksl/Xvm98hxqwILJOCU/XXS
T2m6quGH/Syw57MxUSb9zVPhKKuqsmCbbfLtv6Tf7AG7JQanWaBYce3ABdL/
uxpbezsMWLBZgVE7SebH2lh6zbWLLCCWWHh5k/mjpns+3PMGC5pq9XffeUZA
9Hu1bRl+LLj8Q0m0hsy/PSv+8u8PZkGsJ/+6f2R+Vpjnjn+LYIGGQfaSLQ8J
mBLcXtTymgWbth95f/oeAXqua89wlbPA7kZk9pwLAT21tXuf15L9++drKpzI
erf5iYhIMzk/pd+5jx1JPyiz3TuZLAj959ZG3CD9V2G7XOBiA9tsyQjDnIDY
kPgLzBVsSN8g069B1iOlARNVhzVs2K4b+TTiIgHmMXXLfKTYkPf3xmvh82Q+
zudFvVdlg8mpju8uOgQ4fX/2bZkHG4w6XmxK3U3AZlGHCSVvNpyPvNbD2EkA
zVF/s8UzNpy8lRqzZju5HxIb/Iui2fCjvLDwsDQB/O6p528WsaGx87dI/RrS
h104TMyxQel89sfBIRpc9EnetJynB7Q1Lzpu7qPBqjZfg30CPeC7OPrxDJNG
1n3dgkCJHlBfdfCrI0GDY8xWH42jPWCe0S47WEaDjsgp8XcPyPZjQZElkTQI
GaWdaX3SA93CGxljoTTQPP7Fa3lwD3RYrzuzOoAGmZPevRYJPfA1ItFF1IsG
7mfWfBQu6QH06VC3vEaDdUvldR4u6YUyWrsekuertqO5u8HjXvh3VtPUq5gK
T6Z3r/zzvBckBYIPr/lMhbIHXHGRL3qhj6B+CsqiglpwUmlHci90f/I0N4+n
wv4c1qpr33tBe0By7sRDKkhPXku9948cr83wi7waFWZuOTWm3umDgejJjk05
FDj4T/3qSa8+kL9SXJqfRgHXJ2s5A359YJ4XEwNxFBiN+CixO7IP+PYV8G/y
pwA7f+pa4ec+0Gyws5SwpkDD3zv/6ib7QGev5SmBdRTI8PTeybHvh5TjjOBX
1i2QfC/dwdWtHy50FYOVSQvEeNRnj93rh9nuXvqGMy3gf0tyf79/P3Bv92QZ
HGwBe4dC1db0fugUFLJYwdsCey5PnPnC7gchtz8DNuS9sEDV0umh2QDUT9II
akcT5Bx++nHOegBuembsCq1vggyV7Cl3uwEoLvFuOVzaBDH7F+443R0As3tx
AmZvmuD+rmhvy6gBuLucFU5xagJ1icYwzZYBcErOKUjkaoKqOfXPK3QHIcr6
TY/b+kbo5IQc32o0CF1LLFO+czfC5G86RctsEOIn5vhmJxpAYthr2tt+ECLC
vhUoNDSAc0eJ8nzAIPy81TKc8LwBxL+qF43XDYKRivlVo4V6sH+gjq1nhyDx
oVCYUWYdrF2iXv3WcJi8d675Mfm4CnIUPQvh0jAY8e3AkUtVoG9WlNFsNQz2
mTuCS5WqICh/v/+c8zDwJK9/+re7EgQcd5w+HTIM/ZdnMFalEpa3r6sb/DkM
Vd/dLqUzf8Dsp56GHSdGYM/S/I4YsTJgXn9OvFEZBbpTQpWhTBHEh0+IdKmP
Au+OxPWrcgvhYsmF80I6oyA4PVr8n1YhNG3Y3ORlOgpEW1LprE0BlFYU15re
HYVxWf+y5NQ8SNo8+o2/mOQz9ez2NblgQdd/fRPGQFqWm+Fx+A2M7eQv3Cg3
Duq+xqy6ylDMvD+QLbdtHLw+T6swWl/gf3WVaTt3jgNXSu7JByMvscPxcfiR
feNQov9c7IJYDNZ8WLh5SZPsn/x7a+WxJExTHt8aaz0O9HFPj/2NGXhFkxIu
nkr+//Xst01ln/HnxQQnsS0T4GTlGPTHqBxHilq3lAlPQmpRsPMK4RZM6dqX
mCf+G6SCRk9RNekYt2+/qPHqKZA+KmK5cbAXp2HpvZ0LUyC6cPeqvcYostdM
Jp/imoYCoe48s+jfKLLWr0p4choqHslfa1ebwWBlOecz09Pgmvt4JstoBnmv
oJjv7DQ0rbGU8LedwblMju0UNwdC49NlzSNmkK51fVXzeg7Im2ZdvD86gxl3
dAxCDnDgqJ05t2/iX1Sl83es9ODArhOcB+38c/h5efpjDU8O7JVJqGLJzqGi
gpbCXW8OjCJ/559Dcyhz9/6DgWcceB17xEH5+hwuFxqRrorhQJvgHrM9P+aw
4eQvG99iDvSKq/2b9ZpHHUfb1V9LOFA5tLMyMWoeS8OX50+Vc8D25+Jt/Zx5
/MxQ471ax4G5NVZhdd3zGHMvO1OjiwPqPacG1GAB1yefNrzL5MAhjxTx/RcW
MKCqb+5DLwdmSifV991cwAfC0mdkxjhQU+PpejZhATlHiv+Y/ObApY9Hfezz
F9DJyiQ+hMOBvOT5oBf1Czj4dOpE1RwHXuXcjyrvW8D//34J///9Ev8Pxw+9
/Q==
          "]]}, {
         Directive[
          Opacity[1.], 
          GrayLevel[0], 
          AbsoluteThickness[3]], 
         LineBox[CompressedData["
1:eJwt2Xk8VN/7AHBKspUlKiJJUYp8SmmRR6KISpbKkhaiJEtR9myRCFF2ipAl
JUtl60hlKSUkZJu5d2aMsQ1mTKH6ne/r9ftrXu/XnTn33Hue5znPeY3SBXfz
i4v4+Pi+8PPx/e/T4UX85L9/PPR8Wa16aZmgXn2cgsq+BR6qv9x9uf+poJ68
R5HdjV88RIudeiKWKaj3Q/NDyxibhziUR+K+kYJ6RmW8J71UHnpna1keYieo
p1Fpf7r8PQ+du5z26MRSQb1f1VvfOUXykNrXO0+Hzy7Ri2lsTviynIe6ROwt
W+QF9NbJUT1OCM8iOH3vy60H/HoeOhYnNstwUSMn12jR6F8493T20OeNHGRL
To0s2z4Ptcf8biqvn0Hv37o7lTziQeeHU0Vt26ZRydxNxz8VHLC6KbN6++Yp
dNa4y1Nwbgr0dyh9Uts4hSITNX9sZk+BxuTWAGWlKaRfK1ZvwZgCIWcDirTs
FLodq7K2pmMKqk9eL+AJTSFP31893cVTsHZX++46JhuJhnVPHT47BQxOjLVR
ARt57Uqc5X1ig881gXR7VTZaeUz8d6jLJDx+KJuZocxGJyV29UvYTkLTG41H
PxXZ6NkdFbdCk0lY+e/0k5Or2aj2vueDua2TUBFdUnxMmI3E6kXy5NkTQDEu
8Qn8MYlEHRQLz/hMQNvzEzX77SdRmltw57v4cXjuk6b39uoEyvqT5BRJGQVK
ffps8sUJtKxs0iylYxSkhDOfeZ6ZQL5HwsQrP4zCzdRHqzcenUC3M4oXJAtH
Qa86lx29dQItmtuha31tFDrnnz+2Hh1HvlCXLLd0FH4FvefjXhpHOmtueZrv
YYFa04dXX8+No++r1N92b2WBnXija8HpcQQ5qb6X1rHg3aPmHlujcdTa9Xfb
s6UsuFv/pbRBdRzZjm3Vr/0xAgqLes7FM8aQZsDLnQs3RkD/9lj9FscxlH50
swodMYGVzrcq3m4McU80qMdWMiGhTPoqx3IMVVe1d+oVM4Ec0pGtMxxD/l78
Uw1JTAjfe8/zmOoYOjPgqLrXjQkfJ9XXe7JG0aWX+/Wn1zLByMY97JXHKLoo
ZLzuZuQwsD3CeuUujyLmRPfssaBhSIlM3nbr/Cg6p2ciq+k9DCMVqO+w+SiS
p8doL3cYhrviElq9O0bRqQCd+3tgGD5/KKXNz7JQysrjN4/8ZsCxbdOGBwJZ
SOixxV99Lwbs+/Zi7LM3C632HEl2dmXAJs+riSfdWOh4tn37A0cGLC5nUq6c
ZaGF9+pywlYMeLNryD/pAAtFJx5Fp3cxQEm39eXoEhbqu7hUO2GODhzTfIWk
2BH0ZbNAj10UHajjDh/WRY6gvJK61/GhdPgaq3Sl+NYIKn8VPdLqT4fCbxlv
6j1GkPqf4j32bnSwt0y0GDUfQUT/6GGaBR2abYOj9FaNoBdT/fP+6+iQ7mLD
ZT1iIrP3G+qaEQ1cl00e7UxmouWKF3vCq2igUxqWXxPHRCffuDkcKafBIPfZ
qZhbTKQ561k7lU+DdSH/qtTPMtEn6iHll7E0yE3ODfJYy0Q3YjPE2GdpUPJh
YulsxjDKGIu8f1qYBkHOYecGHwwjjyXN2ToCNDgmsrqqMWYYaU1df7v5Hwns
4wdckgOGkcGDJxKKXBK29yW27rbD10083nlTSXg1tfu+/5phtCvhv8xvNSSg
tWFy/GkMVL6DFqxykwTBeLUVXgkMJBgXct7lOgmm/B2iw3cZiHY4sbXSnYQe
ct2fVn8Gmitd0Ha4RMJ0wduhlDMMVHbTUGG1DQkqO+ZyNZUYSC7+0diwLgmu
udmZT2QZaGGg1fDJPhLKZYyTVkoxkKWAFL/TbhL0fiVHLixiIPmq1kT+7SRY
1+10aabR0a6f58n4jSTEHPbcdq6Ajo6Xz3OXLSeh483qTZ2P6cgph31AV5QE
WbX6dYdS6aif9rjJW4iEfDFxqa136eiJvvyNuUUk1Lc/4/Cu0FGZT/9qm18E
zNgyq+K20VFR5HU9DxoBe7/ElS3aREdpjc6/pQgCgnW1i73X0VFXZ/X72iEC
xJQiMmwl6Yim7RS6sY8AFYbyLdUZGgrar3nepIMAG4+zBugVNi/EnfGOgHBy
YCLuOQ0JCe2caUMEPD9pl3oun4YCorQevqsjgH+/9QR/Eg2dZuqq1lURUCBs
kWLgja+fjN4sU0ZAR0C7vsxVGmJoPDOEUgIWJo+P0x1pqOTuRSfP5wQc/2Gq
H2lJQ7FdTQXjRQTM5hwaa9lBQ//9tuw2zCVg3cqPSWlbaGitusHbFzkEHIk6
eOCKMg31z66KV8omINNdL0lsBQ0JWyUOy2cRYKCzV+/4NImqA0jRaykEuL14
w1JkkejLI362XDIBKeu1H7KpJFK9Ypb3+SEBo0JarPvtJGIszr9hkEhAQpf6
g++lJNoRtM8mMZaAWqNnunkFJJLcMHLV7x4BjBq1Ee/HJCoMX7HncgwBe3JU
dVfFk8jglsDImbsEXJDJZw5HkohUsG9yiCIg5s6GxDe3SOQTbGPmeYcAipsS
09qdRDVp562eRBAgQjxKUHMmkeCpf5+abhOgZbV2/7w9iYIpFwdnwgmI3Lcm
IeMYifY7lrdfCCOg9HmqztVDJJJ3UC/OCyXgp9Lq4f26JLq4O0mGHUKAhpCM
zpA6ia6628SnBxNw2j+R8WIjiT51GaUt3CIgdELyfrAC9hrTTRexu74vZygt
IxH7+Ov3pkEE/D18L35agERl+mWfPgcSsKlGdN/7BQJZrGUamWMHZAvFO44R
6FKqWpZ3AAH50pF7d9II5Lf/k5sU9rfIJfQl/QR60vmp8JU/AXNzYXE/Ogmk
Ncg1uYC9wW3R3qefCeQ7JG0ug32MGky7+Z5A762n3rT5EeBj+S/WqIZA9m2W
gfexc5oC98iWEyijQSjDBvvz3gVypIhAzZU/JLdg7929YYiSQ6BuA07EYuyC
naY/u9MIlDPOFiJ9CVi1w6vrawKB4FbDgxbsCM2Mbx/v4t8326u+xuaqf/hc
G0ogy9SaumJsxy1jjeV+BFpAXy2fYndukm4oukagn6KxI4XY+io6ddkuBBIw
nfQpx36p7Pgm5QKBEo8z/73HXqcUUx5nQ6Bsupt/H3bs2ornEeYEMhzwYf7G
/rOmvzDwCIGSlywcVMTzdZUVyPPSJ9BL9Ym7Jtg/V259fGUvgYo2GFYHYRtL
W6Zf2E6g9KrZr2+w30gGJFmrESiz5tfH39iq4rn3zdYTqOm3XsYB/D6TxFpj
DssRaPvBj8fisQVEOJG6UgT65eT/k459fal82E4RAm3TstbRx+tFCBgEbV1E
ILavpWcettkiV1/lOSqyWupwQxyvt8afGndJFhVd2nmfxsPOnCNdhAgqMvLK
OHwDx4vYL1Gnf71UtFU7wW0ee2Ta1m68hYocbksvyP4v/thhp2jvqGj4eYxd
OXbjeLF5XxUVdaQ0elngeM1lzhu1FFLRXtbJ+qc4nlcwlA3qs6mINZkybovj
PZQ0gdepVHRh+nrjSpwPZwfTd+ZFUZGwWqvbY5wvct/3rQ+5jL8vwjRYjPMt
qt1Bwec8FYVnfvcdw/71NXq1uzUVFeYJ6ffj/PzR0rf8jDEV8czXBrfh/L2P
/Od3b6Yik2bijMB9AvjqnsxuU6Ki0ZLxbqUEXD+qP0+pyFJRT8hEqyGuD6aV
a5jSwlS06L/CNdm4fggV13xnMylIy4I+m5tGQFDSfElBAQX59t+bH8zD9eDC
LmO1bAoqO6PraPSUgMManrTiVArycqgwfF1AgEQjQ+7FXQrKl5G+nFdMwBNu
e2SlKwU5fEgea3hJQLNlwfkGTQqaazrzlg/X35J15MLBzRR0JDQsur4e16sx
hZSPShTkt3G+8HYDAbbhiV+bpSgoDha3KzYS0Of850bWyBDacM01NPELrvcq
RWpvPIfQx6NmR24MEMCuUzxfc2EIZUW8FLiL94cqq4fJby2G0HOxKWYOFT/v
7WCBjzuHUJSsxkYanQBP2snB9t+DqJ7+UDV3AtfHnMUJoyGDaOFDy5bV/CSc
UDzze23CAGoO15h8u5kEojo4cSBkAOmfMBsu2UrCtZO56hmeA0jl/IWHOdtI
SLg3el72xACyanknmLkT74fzvp9WSAygGI1TjK4DJJj3JKULxfYjdYZqj6Ut
9v1v+6ej+lBlT12wZwIefyunu9S3DwlpBq6VTMLjN6+65n65D6nVBi97lYrH
/2efP2bUh0Sm3naIZ+Pxr44vH17ah7z0+HMWleLxjohQ+m7/RG/FRxKIryRY
LDYI/RjSi3J1c954S9Dg6757dqnXetFodH2YhzQNjnj92HXVoRfZaBmmuq+m
gT790qi0YS/avvRQqt86GmxvumfpKNSLtJrD895r0kAiultlcVwP6jCffKlo
ToNWqSuf9TK60bqL+8vGk2lgsD5BuvZVF9K3oC0330aHCPsoc5P8LiR0I5ha
qUWHlrTg+J8Pu9DoUZM/CnvpcGyFu9hvry4kbXdp8bwBHU4LmArs2tGFHIuz
JoZt6HCFsYTz4sV3ZEudcr4bSYeEIt/OJwWdKGYJVaGPxP3i9vMJ0Wnt6Iqg
lSX3Ke4/W1ktgsqf0XHCJETcjAnKBdSQpPT36KFqttkxfhbsbqtQKiVfoVOm
pn4qnFF4MCz28MvDLNTh9IF55Mc4hBo6SzzWzITxzR8oMhWTwJG5js6GvoYm
JYEcm59scHqdXFR84j14+XEWh7ybAl8+ryzv8M/wZDOhvb9kGvQXOXjdbG6H
QxW7qI9uzYC9cIeKf3c7NMgoBIeEzoC/xIHeIEY71Mey887fnoGKtYq6EQId
EBd0OUQhegY27utb+lCvA+6dnrAMS5oBIS+L9LI3HeC7POO0YMkMfKUfbBgv
6IS3hkYbqT0zYN2yQcIxqgv8/o1czt3CgeetdPtnqV2QouzjZqHBAYFv+SWc
wi64pKZqw/cfB0p/bDK5/akLPso8pFjs4oAgbWtEvugPqP7pGkjV40DFX60F
5r0fsL5n8sFDKw4s1zJkXk3ohove59VOBnLAUVtQ+1VON8QwpxahWxyo3tt0
+29ZN5weFYvfGMqBiweMleM6u8G/K+7daAQHn1+P2pdK98C+8ttWdvEcuHzZ
6vt0Ug9sPy4z1JrDgQ9ZF+tvpvdC0ADVmfKRAxpL+NuKinpBsjSF1tPEgZQr
GQMDVb1wzezyzrYWDrju7pw72NMLOtt3HKv8wgHpDr2dEjI/YeGv827nLg44
LJEvKoj9CQN047ZzNA4scu1I7A3pgzqNeMEcPi64dlzNEbvfB6+evrhjvogL
P3YLv4THfbCluKGST4ALRUv0vua97QP5qCzRk0u5YP6oROjafB/sVdkaSlvG
heyOO4Ei3v0gtTzRL06OC3p7wHnfpQFo69VMkd7OhXXRkd+Vbg7AL3l7fs8d
XOAbaDsgFDEASk/1l3zW4kJ98Dn5ricDkLncuuemNhegOaTdbWgAIjPboip0
uKB76sO+nJODYGQVKVJ1iAtrC8UK71wchPb2lnsTh7nwd85ypbvXIEjFnk9R
MubC2yw6e1/CIIwefKMbbMKF/QzB/K4vg6C/etVzRTMu6HgbSwgbDsHTP/uF
GKe5IN90P3DSYghUwdt9xpoLC6t/srouDIFs1aMjf224UFvr8jEneAhCvnNP
iZ3hwj6BGD+d2iEokK95JnyeC5nGztOvZSngFXN0251LXIi5Jrp5ixIFbq+1
NnC9zIWA9BdnszZRoJ7KrTrqwgW7cV5ruDYFhn1FGoRc8f3v33l6wooC4Fih
fNadCxk9hXaj8RTYXfNcIcabCwX/blD5Uinwu5RhaXWDC5UqBk4rsymwWDjN
fs1NLnz1GnQ/8JICPtMHyEwfLvBLrghLbqeA61a9iAB/LizfTVla0ksB4VcL
G7cGcEHubElMA5UC040d0T3YWiWHk8anKKBxP+2JahAXnIwDCg9KUeG7kX5P
VjAXrnkYa1jLUcEx1itQK4QLt5JXlrutp8KhYPv+RuwUemlt6nYq+PhvekcN
5cKnEHrbpDkVtE7ozk+G43gqKLNcYkuFdr9u/Su3uUC23eqVc6BCg3ejNom9
oCBHGl6nguK0l3JLBBe2VR+bTU+kgnlE3Q/XO3i9qGv8X6ZTQab2+Zkv2EZC
I/8an1BBg5l4Wy2KCxdOhglPl1OBsVO47Ce2W6BZ7NJaKnykBJer3+WCf67C
CoUPVAh4UHM8EPvB9Gt5o+9UmNlkbC4VzYXHsrezz/RTgZsQVnkKu0TPXOU6
jQrHV5uVpGJXOysW3xmjQm7g+t092I2xY9uyOFR4EOlmuSKGCx2VVRXlC1So
m3vKZ4I91B+xp0WAgPfp+vtuYf9SUzrIkSZgyNfFagBbwHyiSViBAG29of+W
3uOCpG+NqeJGAsYOhSepY699fKddS52ALPMvIWbYak1WJ4/sJGBCVWPaHVt7
Yn3f2f0E+EfLMaKxDWTYZ70N8bnlgKBdLraZTh3t7lHcp4tfNK/CPuNw9/Jj
KwJ6qoqaPmG73D01UXmGgGwBk+oe7BsvN1z/fJGAloqqTSR2WM8Uj3KVgOlY
F0kWdvy/twGz3gRUn2q/No6doRLDL4b7wPed503+58Kj1hFK+JxT0hSXOoL9
yktFVBufq+R+fbUlsBvSZ+JMk3DfvjkxvhvbmlPi1Z1JgMuuCaP/zYdtesn6
Au6jMm1nGf+bb0Teet3xZwRUNF6+nI+t8Ld/vU8F7mvyBNvisCtOJi9dXEvA
5Q3RK29gH3lxYuzee9zneFbqWmNTl4q1r/5MwH81Bw/twfY511j5BJ97c9U5
W1Zii1cFp2n8JKBmNnxiEq9HvuS+W1W4Dxo7WBHTiK3jwnUwGMHPo6+3JA27
s+GFURubAK91wyddsF3WuKj/71xeIeIcrI3N57VBiv6PALpGUDA/tsbG1L45
fO4f/enyLxrHy8dAi/rbK0korqv1N8W2+7EsT2ItCZrxWS3C2FGRoW4q6iTY
V4t0+eH4XEfRsXipRcKMq2S8Bvar3TxtHR0S1n98vGoIxzdt5Aq/uQkJyvLm
kbuw/fRVGP3mJFC92a4DOD8k0ymfnG1IWL5FQi4EW9fU6kHgZRLunWn9+DaS
C6nPdVULI0mY7BPQW4HzTXPpb1GtOBL+CfvrPsb52Hi2nP0W91mb/znMbcbm
SGyq/p5HwmNORN4OnM/Hrkse5fuA5ycwmKeI853++fN/0Z9JKHB87ZqA60HA
hoiVKzvx/HgcBj92Ydfc0BaCxO/1IfvHLRz/u2nXTvHRoD1k907rQC6kx2ed
IpbSINSDz+slrkfbR07rXBWnQc4fBTtB7LNpX5aEraWBYKG5cr4fzseFVynP
dWigsd/dpQ7XP493UW+X+NKgRGngnbEnFzasvjq1PYQGVyXMd1h7cKHbzWzD
uSgasA5nP3bE9VVXftXd6lQatKQ7XXK/ygXRm7lW7tU0WLa+8pYlrtf5W9FY
zzwNaP+eONme44JNWI6ioAAdXGpiuzaf5cKyn7fNd4jRwZdVrsLB+4FXpOmb
e/J0YJYYXg6w5cIBojdMfz8dJqVf6Nue5EJ/MkfuWRC+Xt03ZIb3o/iJ7qO9
EXSQYOuW9eP96qBhTbBgHB3i3+scdTTC++10COPcIzocNnv8w8mQCzePipfJ
1NPhjsk2kT3ABanFasa3+BkQte7FPQm8vxq5nb1pHs6AlL9G34Klcf7MbhPh
RjPg0Xj6nVwpLrwP4stMTmRAB0Xd+YMEfv647Ib+HAZ8S+6+/0sM1/9Scpnz
OwawcpHP9iU4/qadc/3/MuC00pdLoxwO/PL2aM/1GQapdq2Xl9o5sOuvnuPh
4GFYr/+0aHkbB65HSPJGIodBsyfrcWkrByaSyuS3JQ+DjTYjgIn7FdprjnNV
5TAUrrXoUH3LgW+/ff5+mR4G1o34VrKQA4WBIVt4rkzgC2APHA7iQI5/wdXr
XkzQuDBs7OvPgTTftheT/kxIIv4ry/fhwF1vBS3mXSakeHVf417D/c/VKp3e
Aia0afy5f8GZA5pnpo7W0JiQGemt5XecA290znvcshsBU1UNjyR53O/tvVM2
7zACnKj1Swxl8f13v+DcvDICjWmr3Sdl8P20/vh4+I2Ae5RinbY4BwK2poac
TxmBXWOaikn8HNCTb084+H0EtCw2MO/QZ6B5Xq9yqSkLghZfmNlfNAMDvHhD
FUsWiF/5tl4yfwamZyhdBnYs4FO9qTOUPQPyY8GzIa4s0G1T3eSaOgOe/fXa
CzEsEDFSrzS6MwNydXrV7C8syJEMPyR6cQZcg/RQ7/FRiKnea1osNwOS/Hot
xRZjEC6ZJvXPexpKNQKrwHYMGkwGPAc9psHMrrqw88IYMM4OiFZdmYbY11p3
5z3HoCdrjnX2/DSIuW02MYkfA6tdvP+8TKdBsE/qC6t1DNobnD5WKk3DXAX9
2+ZD4/BXJE7mQfMUEJeie57unoB8pdBZ76VTkPVgauWg3gRsUt8efZ9vCmzq
T1lJG0/Ab9mmjU9/s6Fj1YaOYOsJOGS03ql+lA0NjbWfrf0moKlVk1HUxobs
DRNvRWsn4IaioY99EhvOUczy3GESCvfxRWkpsmFyi2jVGmU2CGZ3CYTpTEBR
wMgLZVU2hD/a5DK9ZQKcvjTlb9nChtVvykKs1kxAv1v4g3072FA0p1wz+3sc
Pr384257kA1Ca0L4816NQ742WyXdgQ3rb5ze+lx9HOwPdj2Qy2VDPJ9kwBmp
MWi1eeQhu3EKHtRaSoRXjsB4de/G9zLT0H9zU83+eho8Gdzx+BV+75tiF5v/
WIb71B1aq08u58Duc5dMUkLbYBYW+2/5wwG+xcUT2SL3gSY+nXOEbxaCC9Jn
Jtu+oZWSkc0y07NgV+powy2jojhtZc+js7NQISkbmDZIRUL2SPb23Cx4fWr/
YC5CoPkingtnEQ/Yw+faF84TiGJwaVnnCh5sOONyQFuKRIU+xubxO3lgGvI1
3ugGDelQRPtFfHmwSftvFNd0GFUKFoTrB/JAa/yogqD/MNJQN1D3C+HBMzXV
Q2qFw0jJLyBoJIoH8kSEU8kSJhKUHl/XnMaD8FZ3g0eIib4d/nrxdi0PMijR
d7S0WcjYzWV5XT0PzoU6ywU7sVDDA8HXnA88yD0o7jf0kIUqqbpCjl940Pyp
s7SXw0Jp/i+K9Ad5YOadZ19bPopW5JhY+BE80Ms8+S6fHEUxzcPzLxk8qNfk
LstbMYaCZNYdVZrkgaOe6PWB62OIt6+We3oGz0c8OmFV7hjyuHA6K57HAx22
UNHF72OIdYdzqHmeB0JiwnVNAuPo//+/hNMx4m37d46j/wPRJWvO
          "]]}}}, {
       InsetBox[
        FormBox[
         TemplateBox[{
           StyleBox[
           "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)< \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"sustain\\\"]\\)\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> 
            False], 
           StyleBox[
           "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\) \
= 0\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
           StyleBox[
           "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)> \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"break\\\"]\\)\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> 
            False]}, "LineLegend", DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[1]], {
                    LineBox[{{0, 11}, {11, 11}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {11, 11}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.13636363636363638`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 11}, {11, 11}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {11, 11}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.13636363636363638`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 11}, {11, 11}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {11, 11}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.13636363636363638`] -> 
                    Baseline)], #3}}, RowSpacings -> 0, ColumnSpacings -> 0.4,
                  RowAlignments -> Baseline, ColumnAlignments -> Left], 
                Function[BoxForm`e$, 
                 TableForm[
                 BoxForm`e$, TableAlignments -> Left, 
                  TableSpacing -> {0, 0.4}]]], Alignment -> Left, 
               AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, 
               ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, 
              StripOnInput -> False], {FontFamily -> "Arial"}, Background -> 
             Automatic, StripOnInput -> False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"Function", "[", 
                   RowBox[{"pairs", ",", 
                    TagBox["pairs", 
                    Function[BoxForm`e$, 
                    TableForm[
                    BoxForm`e$, TableAlignments -> Left, 
                    TableSpacing -> {0, 0.4}]]]}], "]"}]}], ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", "11"}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], 
        Scaled[{0.83, 0.95}], 
        ImageScaled[{0.5, 0.5}], FormatType -> StandardForm, 
        BaseStyle -> {FontSize -> Larger}]}}, {
     DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
      0.7, Axes -> {True, True}, AxesLabel -> {
        FormBox[
         StyleBox[
         "x", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False],
          TraditionalForm], 
        FormBox[
         StyleBox[
          OverscriptBox["x", "."], {FontSize -> 12, FontFamily -> "Times"}, 
          StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
      DisplayFunction :> Identity, Epilog -> {{{
          RGBColor[0, 0, 1], 
          PointSize[0.04], 
          PointBox[{-1.315792109681497, 0}]}, {}, {}}, {{
          RGBColor[0, 0, 1], 
          PointSize[0.04], 
          PointBox[{-1, 0}]}, {{
           GrayLevel[0], 
           PointSize[0.044000000000000004`], 
           PointBox[{0, 0}]}, {
           GrayLevel[1], 
           PointSize[0.032], 
           PointBox[{0, 0}]}}, {
          RGBColor[1, 0, 0], 
          PointSize[0.04], 
          PointBox[{1, 0}]}}, {{}, {}, {
          RGBColor[1, 0, 0], 
          PointSize[0.04], 
          PointBox[{1.3157921096814968`, 0}]}}, 
        InsetBox[
         BoxData[
          FormBox[
           StyleBox[
           "\"(a)\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> 
            False], TraditionalForm]], 
         Scaled[{0.15, 0.95}]]}, 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]], ImageSize -> 154.7716535433071, 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
      PlotRange -> {{-1.5, 1.5}, {-2.837250096608577, 2.837250096608577}}, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, Ticks -> {None, None}}], 
    InterpretTemplate[Legended[
      Graphics[{{{}, {}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[1]], 
          Line[CompressedData["
1:eJwt2Xk01N//B3DJFirZQiiUNkulRcglKoRKJUqSRCm7QvYlJHtCSLZkqVSW
JHlNkpQWS0S2mfcsdsaYMT5Ufvd7zu8v53HeM+POfb9er/t8n1Fy9LC6zMvD
w/NtGQ/P//5eqkieXlrigk386h8H9kwiUpKCqu4fLuT9CYKpFZNI3rPM7uY8
F3ak0J9UDE6g7h1NnyeYXPDszbW+GDuBTF5xC3spXChq8qRH9o8jjWp7m8oP
XNiwGJv+IWYMzdepvXeO4YJJ4sGadWPDKL65JfXbKi6wwzKuFgwQaIMcxfPE
ijnQdivNmfdvR556J09sleIAT+uxs64bwpDDk7nDrZvYUJI4eyzn41eot7zl
p6I8C1W2vHuPP+2HzqYzZT80WSBUzVSM3U6D035SMru2zkDe2r18N/NH4aCW
0pdtm2bAKjJUV7N6FDSm1YJUlGagf+cnl76WURByMSZLys6AdcK9clHmKNRZ
+5RwhWYg5PX0ns4DY6C4t1373QgTzIp28s12jwGDHW9rUsIE/wN1C6lL4+Dv
zZdtvxlft2ufWto2BXn3ZR/mqDBBOKtMxFtnCj7Vajz6vZ4JVUp1Ab2mUyC9
ZFNoLcOEIhmPk7FXpqDq7rNyyxVMODXWddD58RSQTZ/5B3dPw+kj7/U3KUzD
j+cn3h6wnwaawo44B14mPPfPMmhwm4KL3UWk4N9MIJOy5zIuT8G2IP+jNyhM
EF/x8KnX+SlgV2hMOON1+z14JLPJYgqmorNuaM8xwaCuiHlXbQo0bbp/pq2Z
gc7F53m245PgW71my+4jMzAf8oGHc2USUj/t0JV5PgPbPjXVfHeYhMOfe9NO
V82A3erm6yU2kyAWpbIvoW4G3j9q6TlnMglmY8xz480zEEf69qJx8yTwDvVa
XRqaAQXeHodkxgTIZKy1NVrNgoO3J0jbnSbA8Xkf+bsrC8ayedYm203AXrXV
5xc8WJD6StKNfWoCTvoLCivdYAF1SE/23aEJmM3yWLwQyoIonQQvy80TEME4
4FB0jwUfp9WVvcbGISio3crkLQtMznpE1niOw7+2Viq/4CwwPSN75a6OQ/35
qPkHIrOQGZOhGXpxHHiqzVy2is3CaBX0HbEahwJiq42O7CzErRbb3as1Dnxr
rco3bp+F1qYXtMW5MaB9NtGWt5wFS03WIcPgMVC73cx+lDwLum0VE603xqAo
Z/FJQtosbPFyu2ftPgaxfIYifpmzsLxyhHztwhjs8ull6OXNQu3eocB0wzFw
vWsqeb9iFpT0v74c5x+DgwXXbfy/zQLbvFghPXEUzAymBCUE2ECZvNS0IWYU
zoeskQlYwYbviUrXykNHoTtg29JvUTaUtuXUkjxH4YG13JlUCTbYn7p3ctxq
FMB54diPDWxoORd2x2DtKNj0L7sZqcOGbNeznLFHIxA7e15qwJUN11dOW3Rm
jEDpx3eCS25s0HsRWfw2aQT4/9M+KO/FhkHO0zPxoSMgc/b1fRM/NmwIX3qj
fmEEjtLMiSuRbCjKKArxVBwBzsoCt89ZbHjWNCU4lzMMFHu17VLNbAhxiXQY
TBsGfytRlcIWNlgKy7xpjh+GdLuaNLVWNjCPGbpmBA3Dqru54zvb2LCr795X
bTt8XVP7nsBvNtTMaKcErhsGqfgzm3on2ACKkXLLshhwRjdES2M1BwSSt0n4
pjLgWYKmkegaDpgv6xAZjmOA/sviBIY4B3qoG/5+DWRA5Z+ZX0nSHGCVNAxl
nsfvf2BxuVqBA6paC0U7lBigkpAXbLGdA9eL8h8WyjJgF2NF+7QaByqlTNOl
xRkgeNLFJ1GDAwbzGTF/eBlQML+ijLSTA7bv9ri20OggdQXx/rePA/FHvDQd
SugQG8jyrzPiQEetzJbOPDr8XT5vpXyIA7LbSBsOP6BDI7E+OfowB4pFV4ur
xdFhUIvQNjblAKn9KZt7jQ6/ZCJc0iw5MHtu5E2SJh3sUmpO3rHhgM63pFe8
W+hA9dLjvrblQJj+vvIbG+hweFxcnHqWA6JK0Tnn1tBBf/+7Vxrn8fdjqIRu
nqWB116bD9kXOXDW84Ix1GDbaup9v8qBKOrAVNJzGqi1n77V68qB59Z2DxyK
aeAtZl1KvsaBZQdsp5al04CPcpxMuHGgZMXJTOMbNGCVbhuq8cLfL6j9oJQb
Dd4dkGvP9+bAn+ljk3QnGvxOekeK9eHAsW7zgzGnaODqGv/I7AYH5goOT3zW
okFmz6HYXH8ObJD+mJ6F53a+/ve0qwEcMLtjZHhNhQaNtrTyHbc48NDDIF1U
ggblZao8lYEcMNbTMTjGokJn+j+32BAOuFfUjq0fo4Lp7elFrVAOZCrvu8+k
UOHhepP8Puxxod1jKe1UOHDyofb6cA6kdqmn/XxBBen0jma/SA7UmzzVf1xC
hS0fFvX4ojjAeLtt9EYeFfpTnX/FY+8v2Ky/NpkKiVLuoam3OeAoVTwyHEMF
/cOGyauj8f2O3XivNpQKbMkPrbHYZHelEVsPvL4Y9NkjhgPCxKPUbS5UeFbq
mTiAvfu04oFFeyownd5FHYnlQIzuutQcSyqIF0qLiN3hwIvnD/TcDlOhoNA2
1x37t5LM8AF9KvzT3nT1M7aGkJTekDoVAhQ+lPvEccAm8B6jYhMVjo61qn7A
jphakxKmgH3ky9Cquxzo+rmKobSSCtrPJMWzsf8dSUhm8VHhl1ZGYh/2lrci
uh/+ECB4OOiYTDwHgvKFkp0mCAgS6iuKxi6WjNHZQyPAZ+9dvVrsthh+On8/
AfbjwusZ2AsLkUndnQRIO3MsxBI4sNGdV+dJK349nf5lL7YlJYzm94GAYyV+
GbbY/qeWEk3eEhA+eajaH7vgU/B+2UoCiNnxTWnYrTp/qKNlBFgs8I2XY+to
bxwiFxDQtOvmC8Au2WP++1cWARcG/aZ/YK/V8u36nkpAilRSaT929I6cto9x
BHxlGpDp2Bz1ptb6CAKiY8Xvj2M7bZ9orrxFwC5O7OdJ7M4tko1l3gQYH9sa
OoF9UFXvXb4rARoV/q+HsV+qONVmOhLgrP7HZwh7g1J8ZdJZAhwI7ZpO7ETF
qufRVgQkMipDm7D/rusvDTYjwMmK1f4S+7os32PfgwTY6Ac8z8b+La2Wd02H
gL7Gb9IR2KaSp7IddxHgOO8rehm7dk1Quu02bO5ssjH25tVFKceV8X70/Hi8
ATtd9Gv8ETkCMioTzP/D+88nzI7RFyegKv9V9HdsH0H5yD3CBMi+/XA6D5vg
Mw5R4yVAW+bwW3fs47zXA1QWKBDd3lC7H1vj71uPNWMUCKp7Ev4R18PDBaqr
EEEB0XXKx6OxRedFnJd6KZC1/0m9EfYo65zd5GcKhIgzblT9r/6YkWdo7ylQ
/7f0owt282S5Vd8bCnwSSnizFrtoZNHkcykFJMhN99xw/UowVIxJ+RTQG1AJ
lsCOoB5Frx9QYOlcjVgN7ocLg9l7Ht+hgJpBnN4M7he5n7rK4Vcp8PZYUDvC
/XWn/ZKC/0UKuAsI7GvF/Tj//a6Mhy0FzvFOWJ3E7v7ct+q8KQWqtlMqbXH/
pkDgovZWCgjP/DNGEThXviuc01SigG7IfzEv8Dxwr2udUZWlgLFkQIIitnn1
uhHJFRSoqF/HYOL5IVT+9idzhAzp5cHz7sEcCElffFZSQga289a5dj88Dxz3
mm7LJ8MZ1XZDBewjGl608gdk8FORbr98kwNizQy5ijgynDdzhilfDhRy2mOq
r5Nhybvo7xCeny2nSi427iCDltd7SUM8b59toP4x2koG4TQNjYt4HqdOKGR+
VCKDTyMrNwTP63NR9763iJPharX73ZcuHOhz+Xszd3QIFOXrXnEv4XmvWrat
1msILDVaLAXsOMB8t/7iW8choKRkeP3B58Ob0/czGk4OQe93v6VpfH6Y3w7j
+7hnCK6b2F78cYYDXjTrwfb/BuG44yYHj5N4PhYsTx0PH4RX3iL2e8w4cGL9
+f8UUwfgq7jtH8oeXF91YfcGwgcgUc0kzHU3B7yti9RzvAbg4Ua0lbkLrz9h
/KLsiQG47ZnEZGni82Ix4IuE2ACMvWsK697KAaue9GyhxH6QdewXXIvPY6uU
tgOsO33QdSWlMnYZ/nw19q8XAX2g9u4lrXaJDd4ta709rvbBOq6mG+MvG1KX
7IsnTPqgvD85bv8CGzrcJlcNC/bBXNW0MonFBiszYXLf7d9w4lvgtuNUNpxc
bhzxMbwXBvc8yohuxHlKN8HugXcv6K4W23WHxAYz3+69bpd6Yflbiyd3Gthw
kH5lXPJQL6SfsNgcVYfzyaeEU05CvSA9o55/4RUbxO7+Ul2e1AOfyuezXuaz
8b5cazXI+QV5Be1ZX0LYYKycKllf0wVJ20Ouy2ixIdr+jtXR4i5Ql9sR6byD
DZ+zwpJ/3+8C3edmN16p43wk4SH6n28XbN6sxzLawgYbPnO+vVpdELKUF2Sh
wIZrDH52RcVPiHTioj84H6aWBXQWlnSCa8cSrbNnFii7LqbezWqHhfaPn5tv
4vz5deyzgEorCDmZVb4pYIFKCSU8PfsDXH7/6KjclxnQ/lGl9IJaA/yaX/Y+
b2NC2rDo/W/3cyHRSH5pH0xDxCEXsbwdD5FPmLygG2US2FI+cCHiNepw7in8
Rh4H59cZZeUnPiC/au5QmPgYBPD45t6IakVyZ+T9hXRH4CDvJV+/lnbUaeiz
ySidAfYrOlQDf7WjgZDi4dBkBgSKGfaGMNoROX4pG3Buq1Jcrx/N14EMn62k
HwllwCbdPsH7Bh3o0H/L9YOuMEDI92T2q9oO5J5QsvemLgO+040aJ0s6EV3x
+EMSlQ62nzeKOd3pQtfKRSV19Onw/Cvd/umDLrTzElO4X5sOfG3Fz9ilXSjp
dKpWhBYdXnRvOXr7SxfqDqlR7cO5SoCmFl0s0o0m2QKTIEGHqn+7/4wkdCOF
BZ6GM2M0WLX70Ihb6i+UCQr3urNo4LRPYF9NwS90pPcPhQ/npDqdT7f/vfqF
KjqbP+1LocFlQ1OVpM5fyHWJ5FQeQ8PPrxb2LyR70JhRl94XXxpcvXr6Jyu9
By2K1GwdPUaDptzLJL/sXuQ0LS/TuIIGGvzLfpSV9SIDswrFdn6cm67lDAy8
6UWBK1YF05bR4Lp254JRTy8aPnTrqMwCFSQ7DPaISf1GV56K+VXhXHSJX76s
JPE3ejJobvr+KxV4r3fc6w3vQwxz0m/9NCpc73ArEE3pQ5yz4d0DOOd0a694
ifL6kOipc0HhCVQo4zf4/rihD23JLGzrjqaC1aNnQt6LfWjifCz1TQAV8jti
g4Vv9CO9xDrWJQcqGOxHLrpXBlDjXMhr251U2HA35qeS3wDy8NxIz9OgAs/A
D0Oh6AGkaHduYGI7FUhhDvJdhQNINUFj3z1VKqCW8Hb3oQFk5WH4U1Ye56wz
TboF1oOobam9Q0yICoqloqWxlwcRScDi62N+nIsWTkl7+A4i/USF12g5FRpy
6Uzd1EEUp+zpGvGPgAMMgeKub4OoP+DVXSMOAXo3TMVWHBpCayqcftVQCZD/
lBI8fXIIiavNCeVQCPgj83usy3EIaWjnW0UPEVBf7/qxIGwI2S/j7HPtI0CX
L/6WXv0QEvNyTfTAueehqQvrtSwZ3Uw5dMe7iYB4b5Gt25XI6IybxoWyRpyj
sisu5G4hIzKD7TNMIsBukvs1ah8ZpdS0XvJ6h/9/SuyTE6fJiKD45TXVEJDT
U2o3nkxGTK3Ip644B5Us3aTwPCAjDxMJ/Z4SAqpVjZ2l88nINvPpNvMnBHz3
HfQwfImvf7RTOlJEwLI1EpEZ7WQUfcKh704uAau0yYLPesnIUn84e9tDAuQu
PItvpJBRkLxuW3s2AbufHUmfnCEj/tjyPK0HOOeYBpUaiVNQrYzdvkNpBHh7
mmrYylFQZgJ3QvYeAaEZ0pXuyhTUXaqiyUkhIJP+ov7BLgryqEy6DEkEfAmn
/5i2oqB5QaeZgrsEdJe8OsV/joIaqnY6PsW5jPojtFfuEgX1N5z0r7+D91tB
jnrIh4JUmufymDEEaNZZzmXfo6D6h5d1SqPw/aKsC3yZTUF7d0WqjUQSYCI0
utRcSEF8v2v71bEdrSNXsCopKE3/e+S3cALcg48nCtbj9Y0Mhm3GDixSkFBo
oqAr4VdNYsMISGO9ljf5SUEBNpZG9qEE5Mnezj/fT0F+Ub1BnSEEPDOwUvWh
UdD7AIOEY9h1LuvLYycoaG1Ftl9HMAHNiROauWwK2p+9HNlhd1S/qar8Q0GM
qmTGRBABQ/3R+z/zEajf+5xXFPb8NiUjtiSBCmtEDrQEEsBnNfVphQKBWFuV
o3yx1wS8NV+/iUCx8j11m7EV82Lbd6sTaCP/YRoF59Rtn05bm+0h0O2zUcsL
sfdNKfddOEAg13vl665hG0sxL9w4RKA01Z+aOtjH9d7R4iwIRIqTNhLDPn8p
7mreaQI933vXZjKAANe4M1PV5wmkmG/m04598+VGn9bLBPpu4JZejx3ZM8Ml
uxEoJF7k43Ps5KWGoLkbBJpYOMBbgp2jGr9MNIRAv3kVTvzPpRa20UrRBOJb
976qArvGV1VkXyKB1OoO7mjAbsyeTTJPJ9DqM3XNndi27Ge+vx4SKO4An/UU
NtP8iq3jYwKpzs7KrsbrjX6srD/5lEBc+ZVSe7EV/vUr+1cRSMKh0/QSdpV1
huDyegIlXfxSl45tVnFiIuEDgcKab7i2YVMERdtlWgn0V8v2nBjeT3+H5urC
DgLJHptPssZe/SYsS+M3gcbru4ULsYvX6Ia+oeD9V/b/zsHWc+VcMh4lkMAm
hwFLfP86GytMfjAJFHBVXOc5tus6V/Wz83h9aeLDEvj+8/huFKcvESjdnMYI
xdbY9KBvYRUVxbGFR11x/XwMPkm6LU1FwpouzFFsu+6Vj8UUqYgnrvCUB66/
OzER7qrqVFSwp/VAAq7PDWS9ky93U9GttnefNuH6rdHm7tPToyL5DY9qm7Bp
o9eWWR2lIllvvV4pXP+3Dqoy+q2oKLdhaWUL9pps8heXs1RkfIpUGYb7R9/8
dFrwVSo6Mn3Ejj+agAfP9TeXxlBRBKvbxQ733w7B/0R2J1GRY/qY60Hcn80X
KpkN6VS0+qnMrAbuX7bYlrqfj6low/uOnHUJBFj6rLHgacLry9uYY4T7n97a
uvNuK349xWuVPX4OC9oYLS3diddXPycbiudFadfC0HaCika6qgW67uP616Z5
n+GhoYZij+A2/ByXnZx7hhCkIbvPQ0vrc/Bz2aiNnttqGpKvKNK8iefVhaxv
/JGKNHTaRjd/bx7uxz81mc/1aIhvB6+EUDEBnu/vNPAH0JCAi6rT9CsCNsq4
zewKp6HoO3rhbVUE/HI/vtHhDg3Fy+UWv8HzVV9+bVzdAxr67i2xtqiOABG/
otMedTRk4nxzpBfP62I1mOhZpKGMsky5rz8JOBtZsF6Aj47itT7oaf4iYOXv
21ZaonTk3uWfldVLgG+MeW2CPB0lW56WihskwJDojTx4gI7CwiIcv44Q0J/B
lnsagq/v3rqFgs+j5KlfFr3RdGTwxTHy8zIqGB16GyaQREcHVVws6vBzeRkr
nOHwiI46VuTpVAtTwc9i9SspEh0dl4joFFtLBfHl20xDlzGQ5dWIrxfx+Wri
fsHPKoqBdj6zPBJ+nQrRc5rCnLsMpPyjpHu/JxU+hPA8zLjHQPUjUbILPvg8
Tcpv7C9gINKtnU0pgVTY/YK60uU9A8U7XJxTuIvPa5ZLUeA/Bnrpclj6aTkV
5m94thf5DyM9Ib/bL1lU2PvPwOlI2DBap5qaeplLBZ/oNdzRmGHEs1BQrPSH
ClPpr+Q1M4bRU13JqZc4r9Bes13eVA+jVW46RlqyNGj7z//fN9Ywiq8Hy7eG
NCgNDt/OvT6C7F8tbZ/NpEFBYImbj+8I4mOsOZWcS4OsgB8V04EjSIseFLmn
iAZxNxR2j8SNIM33O3kzK3D+cXuj11syghrNGR/eNdNgx/kZi7e0EaSazQlJ
nKNBrd5Fz1C7UdRyLkrQ2g7nPZ3YV4uXRpF/evbAvCMdSrUr2H7XRlGHb8WK
oqt0yNr919/z1iiKyMh3k/CjQ5Dag/CLmaNotj2k1DqVDgby7alGP0fR/PLM
tV5f6NCyaFAtaD6GnArllwkaMmCAm3xI9dQYMvyJChxMGcCaJXcZ242hi3Ys
96YTDJCfCJsLvz6G6CIpGWWODPDqJ+37Ez+GzOSig2eiGCD3zqCO+W0MrYvp
OXu9lQHXQwyg99g4Mtlz7ZiawzCsWWbwufzkBDoT87QxqnQEXmgEv0HnJlCf
uCpfc+UIHLerK+10nED3xza1iTWMQOLr3XGLXhOo4vr4mg8dIyDqvvXo0eQJ
VHOAFZn1ZwQE+sS/jX2dQA0bJc6vtRqFhSp629bDk8gprbH+LN8YEFfu9jzR
nkKSLv0L6dHjkJs2Iz1oMIVWHw9qv5A2DmdJZ05Lmk4h95tWObsLxqFj7caO
MNsp1CWbs463YRwam+tbbW9NoQ6x0HXqc+OQv3GqQaR+Cnlfs+Z+vDIBDuTj
jz3QNFqlRe6SPTMJ09tF3qxTYaKzK0SoSzbTUBY0WqGymYn6hWuDk69Og/O3
T8XbtzORCUvdWf3WNPS7R6XpajFRTUW9Wnz2NHx5+dfjnBET2SRdYAwMTkPx
PqZq9iUmWi/XdH5Miwn2Rl1pckVMNPJzuDr1PRO+nn3kKbtpBjHmPl5bmp6B
ybreTR+kWMhQ1i69wJUNhYNaeTVys+iJl8fQ0RguPNTaLWO9io22mEa6uv9e
gDm0PHD7XzbaWLpnIj36H9BWswrMeOZQyaNrtfahy0jSa2JapFhzqMI6RUyx
YzkpaZ+Kl8XcHBLw0LcVHFhOErIH2dsLc2jPQ7VrnOHlpMUyriubl4vSnI5P
Df1dTiIbX1nZKcFFlPdWcVNb+Uil/qZWyXu4aOzL9kFWBB9JjyzSLxzARY61
fvK52vykaoGSqIPBXER7fNRQ2ZifpKFurH4rnIuMOOFHy4/xk5RuBYWM3uEi
ReoDia/O/CQByckNLVlc9EZB8q7JfX5S25Hvl2/XcxEor+tXn+Unmbq7rnpH
4qIdIqkkniV+UmOawGt2ExeFLwZm9ggLkKop+kJO37jITEFdNUNZgJQVWFF2
cJCLJmLy249ZCZAkCo6evEVw0Ui7hauZvQApvmV48SWDi1pu3vhr6ipACpHa
YKE0zUUvF+qkbSIESFzdeo7NLBfdmsrKdU4UIHk62uQmc7noifOtjbeyBEhj
sezDLYtclOWmU5paLED6/98v0fOV9eovXgmQ/g97ojGd
           "]]}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwtmXk4Vd/XwCUVUakQQoZGRaWBSpZQUZKQKGXKtzJlKqkUSUrmZMwsoUQp
U2oJGZPx3nvMdzLPkitD3vN7nvev+3yeve8+e+/1WWvv8xwZq5sGNtxcXFx1
S7i4/vdrnR0ytrjIwR/jD5MWFxegJFhy65F5Dvan54mZDC6AhFOm2e0ZDu75
PRhY0LIA1D3l1cPjHNSPPGkTmrEA2h85Ka0MDg4G5LxLNlwAxc9XTHLLOLg9
XdVXI2MeZop2ff/Pj4PFzmIvHS/OQUBFVVjdag6uGyob3dsyA9LiDKdzfNPY
6yvLiC/7DU6qhud2CP9Bs3BTSU3+MbB4M32idssUPnH+bX4xug+K9e66y8n+
RuPtYybRbnRoLr+QWb97Eo3UFzNc1Chw3l1YVGnHBKpM939TeF0OGvtkauS3
TOCdk2UMbeNyUBzbdV9OZgL1A1P3RK0oB95rWnQhsQm8vslVptm2DIqMXdM5
vBNYdZt7pmBfKUgdbFT52j+Oe/z+eLrGI/ROBZhqp49jydecalfTPLjjwhN7
ZRvJEt0pe2ZeQOJLsbhXciRfzecd4QuDygLFhLZN4+h1s+LEokQIiCyapBiL
jiOX3Flp7aCn8Ol51ls9PpIdDwRGZbkAXSfrjid1DNWfqX6ajHqM9e/PfTl6
ZQwtbvxbPpuQgu/vxKh/cxjFkOIa24Zz+UgviZ2OtBlFUbFlojrf83EdX9w7
58ujWHD+upz1ngJ0j04Q3XJmFE1+bCm6t6oQ1YtSx5/vGkWnVmbWsbIibJ57
n2g6NIIFWVGMg5LfcOZBGdef6yPY0FfOV3y8FOUry/N+WYyg0x8BWpp7KZqt
qbBPNxnB8tqLA9YZpfg9oYq4pD2CIQs/1pwXKEP/krqc0m0jaJSyqlKooQwl
uQmLkN5h5Lo6NyN09gdq+A6X7Lw6jEZSEsrOO6twMJZrQ4jZMA4LFIjWGVVh
2EchhymjYSQc7npxP6hCVreq2Nfjw9jy6Av/bH0VPj4c6Ky3bRh1uxWUJF2q
8ceYgqzz4BBKB9dUqGbXoPbFmz55TkO4a1+c3o5VdTju5NMqfoNsj7acqt5b
h1F+kbsfWg6humG47XHjOhz4hO0nDYZQvyRw4md8HfqvEdzfum8Ir1rX+29S
/IW15TnsuelBtJh9PNl+vB71dk8eP+Y5iPq2h4bm3zXgkYbs4dpbg7inalVB
bnEDbnd2eGHsOIil1+SOm/5swKW5/XQ780G8Luub6zTUgAUHu+9FHBvEUz7H
bzRub0QZtZ8fhpYNYmZXo8eVxEac0k2TjAgawApjQrn6URMyRqzLpf0GUOSs
zR3LkCb8FSRj9/bhAM6qVgsNxDVhRsOrghKnAVye89StoqAJrxi9MBwyGMDY
cV6TopEmrLrk9Ux9wwByV24d9zdqxljbi38GE/qxRC7SYUK4Be1XjZ1pjuxH
TXsRZQ/ZFlTN8Un7EtyPnw8tlRlVbMGuP+8uBDzsR65v844JJ1tQ2nuxUMG8
H+t6DZKk77RgamTqAyepfnQLfPMrmdKCWeWjK6Zf9eG2xobyxkcUfHDNx6Ir
vA+9E/RT+QIpqLdStLAioA9nKmdsd0dScPzsMdvI+31I846u0HpLQaX2Fz9V
zPqQs57LJrKJgnkTKqH3NvbhlK9nFkOSiijlI74kphdnNUR7D7yh4vIQ+fVu
Yb1oFNC5+f17KuouaeLv8+/FaPEivQ15VCRY0gs/7/WivXafe3E5FSfTv3VH
Xe7F+aLzWQYMKm7dN5u6R6YXd/knrc7dQEP71KS4FLFevDF6wkxVioa5wjoR
Iut6sTCpuCdvMw3VZyL95rl7cZvKyZKHe2lo+vWAbRW7B//8kZCxPEXDgJPO
uy3Se7BUc2DuPw8aNhWIbm9O7MGXNovWyx/SUEy+RPpEdA+m0+NNIh/TME1g
zbpd/j0oviV9LjCYhiWN76Y4dj04V7At71cqDX9f6i8M3t2Dq2L//pf8k4aH
64I/cm/vwV2Sa/+YNdLQS0357S3pHszjtrPgo9JQQObJq0trezD6sBBLuZuG
W3vlHm77zUbr3V5bhsdpeNHJXAvz2GjzpYM3by2Bj1mdo8Hv2agfc3sJS5jA
98Zm0RZpbLwR6f51UYzAJUdNR5dEsPFDq1U0ryyB6XyGUVq32Hh9oTrcZC+B
TfcbNYQd2Biu+9SM5wCB82NnR3qusnH5S+GNiSoEnqXqavgZsVFrUT/iDRA4
nXxiuHofG//lHzzE0SVQWuRHRMxONm7WN7GT0yfw1DPNY3ZybEwvzqkEQwLj
bqpHCKxnox5XkaiOKYFaqofVz06ycDhHrCH+KoGO2QWDmwZZWGHbueLMNQKj
ZJVfjjNYuK4F4oZuEDjEu38wtJGFL5LDZ/86EhhGUQhvyWHhbNaNfWZ3CCzW
fqf2Op2FalarBYLuEtj7RX7gViILVycV3sq5T+Ch5G1qG0JY2PqWJlzpRaCV
cFp/nx8LYxw3m355RGDA080vCh6y0Clj58nExwTSHWX6TW+ycNBN8qjqUwJX
MhPC5K+x0Giece73MwL3n5c6OneFhRYDQjtjnxPod2Rj2Cs9FvYyPLS+BhGY
8z5a1eEEC7ezfUOVQwhskxHtO6rGwohDn4qTQwlU5BVW7VZg4ZPanZWnwwk0
ufeiN3sLC3/+08t99pLAR6NrQ70kSXbRjiyIIJDSsrpXZhULvVa6WAxEEfjv
ZGDIJA8L5zffNxiKJnD7F/4jZfNMLHIQNO6KIfB+Em/I1WEmhrg/fxv5isA0
Ib/DB9hMdNitu/JKHIENfst6lnUwUXzp6XDheAJnZ32Cqc1MnBmZOvuN5M2O
3Iff1DLRcShP0ySBQD2GF9u9jIlt0wu3WCTfMVoM0v7CxBR+5RHzRAKTKz0P
ieUycceW+uw6kmsPz7MGMpnYoLavfFcSgYdVNnfTk5n4UXqm9R7J6Qd022gx
TJSs/0cpJnnDPjfKrzAmMt9e+jZG8pM9rxp++DOxUVQuWiiZwD8K5bXFj5hY
4H7DfifJV3cOV+TeZeJ1eU21/SQ3bxcqzXRhYlZYudBukjW2qn5NsmWiyTru
6Y0kf5C7WhBlxcTD/IL9s+T40jIBucEXmSjVzT1RS3KQ1Kf3TwyYSB0bFQkm
eWFjR4bnKSYqJfSba5FsL8bz2k2Dif/0eJqGyPW1iexKtDvMRAFLY1dfknWE
jGKtlJgor/xbZy3JBWvvR5jKM8m6NHYpmNyvbWtSQ/VlmdiUdyV7kdzfCIGf
ASfFmTgvZ3zKimSelVN+auuY6NwxoJRPxsd1hYTPgZVM5NZQvPmPjB+TR+vB
Lm4meuUpL1MhWZ/b3kNuloF5seJz1rGkTwtfbq4dZGAIfJN6QfoQN8uy5WUy
sPH7G5MI0heBGf7/FlsZyKdavDIgksCByUtmI9UMjEnIH9MjfTMZ97nA/s7A
MN1KRQnSx4qRtwbthQz8esfwX3sYgan9c9rVGQwcoihd20f6vL5XTqskiYEB
Ne8FaknfH7FOQ340A+N+zFw8H0igeVfsgdfPGKhnrL1Sw59A8ZYjst43yP7h
glfu+xD4rNFa8o4lA01uKk9leBM48+u56E1TBq42r7eueUggtbp99WUdBrrw
pPax7hEYivfmVHYwsEZs4667rgRyfU2Z3i3DQH+9ZSrgTNaPotqJrWIMzE5b
qsch64Pu5439QnwMvKwdlKNuSyDv2y8t4/10nFkqMqtiQeCDiLms9HQ6Ok6U
j5frkPXA6qCOfBId50etN02eIPCkojP7bTQd77DczYS0CBSs6BXP9qfj+ocF
wipqBKb8afT7bE/HGJkPqxfI+llllG5ZuoeOduJb7Lw3EJglzZrX3EHH2tet
DUuEyHo1LBn1Q4aO9uaDL9wFCbz0+MWvqnV01NjZdlyTj8D2awu34we6UbRi
BevSLFnvt2bKFzh3I221umFEGw3Hv26y/GLVjZvjPLscyfOh8PzLyG+G3cgT
+k/4aBMNdX29eH4c6EY998dxRdU0dGYbdzX+7cLurk9RhwtoWJy8NGzIuwuv
SZ8JMXhBw3ObLv+VCuvExkQfvmUaNGQWeb3o9O7EjhXqYttUaehinKrwyrkT
hfo3fj16kIZhgUOWYuc6MX/D5TZtefI8nPOoWS/YiTpnlDbS1tLQgIiI5Q3q
wOVdIcqtXVQ0CG04OvmsHadnrvYmOFGRuWuKluPRjudO9WZa3KCiS9UGl5s3
2nGVUvdPESsqhi1eSRvWbsczVVYa1oZUbHIYWd23oh09dnSleB4gxzu1kt7u
24Zs/9WlXzkUNFyq9eiHdyuKKLy6HelGwV9HAs2iXVrxeZg5PcmegqfcqAcd
rFvx3THjzylXKajRc31I6HgrzscafQ40Iu8nlYFGV3lb8a8Y7dXcPgoKPqdt
XRpMniM83I81J1rw5zq7WvVXNNxEt/F5Y9OCWrJhQsV5FOxcKlrTdbAZn1x5
ZnA6jYL637o3b9jVjNUxXiFtLykYsPrUyAmZZtRbf1PgLzmvQ5NrGAH8zWjC
o8tzkHxOpGHKytzuJrTrXTaVnd2CmX3zGxyfNGFYpkdzSnoz6iRIvftZ14gM
Jcuw5zGN+DzuIEQdJ++fPwerl8vV4uPa0JrKwWqUS2d4R8SWoUOeauDPLWWo
Uv9JJoeVh+UnpOton/IwvE/gZd3LeCyq9bRpDIrHR8evCSbuiYOEyLsxgfJx
MCXsiuaP8mHSBb3iz+bDf/mRmW/PlQHjAfMsN6MUPLjc4m89rgWTmbNjLLUa
0OC2dnOvaoTCrbOv5q83wBW+pq33aI3w+t0LUR+3BrgneKz1QW8jxIcwspd6
NcAnqU1qT3iaoOvsD8nfEQ2w5Uj7ipfqTUDNJ+z8yxuA180w9mNBE/gGB9+N
kGqEXz2apSPpzRBhr5615FcjmFZvFrz6jAL+hpW4WqwZ3v/sufIumgILrMXG
Grlm4GlIy5rKoIDG4hevB4rNkEPdftq3hgKf3rnG/NRshuXsXU/S+KngV9K0
aqljM3z6t3++P5AK2/K67JpLmmH1/uP9DmE02Lvz9XeKeQtcVV6unJdMgyZO
r5zHjRYoOlzp++8jDZYuNTRZ79oCNsd05IKbaRD49orUrict5PvrmSs5QgQE
yB50HH3bAjdunG+ZjCDALswtPOdPC5TH25S4x7ZCZG1a/j9vCiguW1KfmdkK
dOFHmXRyXVF2rzo7C1vBNrJ8pDCUAvYqzbOaRCuESQ3rGyRRQKhJ/YCgcBuE
nCMVLaGA9TKJzPSgNlg3cuI81zwFuO2bXrR6t0O4oIXSMgcq2Dc5JAuEtoP7
VOfhSlcqUFX4PkBiO2hzy489vEuFzGXqv15/awfBu9EnKH5UMEjI4nWZa4en
o/XSa5KpkNT01HPlrQ4YCLTj/tJCBfVDcO3I9U7oKGbeqVeigfRzvxYZ907w
ro6UPKZCA67O+mO8TzpBbnKHQsZRGpR4WUhQUjpBKMTHw0ybBlDl3ejY3QnF
tZfh7GUaqF0oP5Js3AWYqaph6UsDqQyBjKc2XcB4deKssj8N/s0aidx06wJ2
4GuPpcE0+BbfM34krAtO23CtfxBFg6O9y9ModV2QkXevYS6TBqq3dAT5jnfD
Ud0Nh4R/0UCiMtRzzLAbVA2mKKeaaDAv2jZIseoGnsPxGrepNCgutv2R7NUN
qW+m3d930eAIT8Bd1eJuUK/ir00ZpUGczrXJfDE6uPmdp8QJkHF14d+xU4YO
H+t9digKEnA/Nts8fjsdEjqmF3PXE2A2wvn5WJkOakd1pBPFCZAIffrm3Hk6
xPWOp/3dRsArIsNsKIQOXhptQVnqBKQv3mZwRdPhkViRXZMmAZ+3av0nkkSH
9x5+YYMnCPjl1nXz2AeyfdO211O6BCxZu94nspEOhiuk9940IWC1Cn1FVisd
yhXW5ShcIkDcPCuglEGH6862J7svE7A/62TEyAQdjGOepW20JuA/nfsZmusY
MH5nu8eMPQEuTjqKpuIM2Bs8sersTQIeRorkOsoy4JNx9LMoZwKienKKo5UY
8EjzuwTPbQJqvHvqxwwY4BQjuuzoAwKo6R+Nll1iAFvdU07eiwBW/cNWcWsG
vNl1iMP3iIB5SXHWcVcGiEv9fp3kS8DuIr3p2BcM6HMUdt0TQIAqY+O9D7EM
+H28LehjIAHavAOLFSkMMJl2VNwWTICVsQ/fZC4DlBW06H2hBDh66getKGZA
LiHbu+8FAfdSJddLljMg5M2qCy7hBIRP5ktotzDA8a+mZQWZd4livkmXOxjg
kqQw2h5JQJa6wVZXNgO68szrWFEEFF3b9PbpMAOUdDNmOqMJqAga3h0/xYBR
19YbNTEENH0u/JQ7z4CX6iieEUtAd8eTQ9U8TMgo37Hs7isCZuRlNKeEmCB+
tNphMo4AHoPRSj5JJtw3ftUdHU/AWo8vupu2MEHfeY/LvgQCpBKfNu5XYIJY
otEmJFm+8rzxqQNMMP5Do6smEqA8KttufpQJAT7Pct6RrCU8bn7rOBMOXVZ5
ujqJAH3Vr2z/M0ygh+daWpF82dr/RuJ5JvAcrTmYTrKt/4XRz5eZsOX66SV0
km9/2Oxaa8OE8u3Lv/AlE+BDTHDoDkywCa2+vIXkkMVv96dvMeHpp6ssJZJf
bQ1YIvCACVmpacf/xxlnTJ/IPGHCBbcrD+RIznPbyq8cxATeg5f8lpNcGvs7
WDeCCRrzdhfbyeeZTmW50eKYcHo3cSSN5HHd66ZWr5kgVD6Te5XkJ69l1Ube
MUnvKr6KkCz5r0P2zicmHB48ZFRMrveTceSKpcXkeH2nXc6TfCr73HBgGRMs
JP+sY5L7xVgh0Chay4T/NBT3WpF8x6Lic0oTExQFxisp5H6vKfSKUWxjgv+e
fU2qJKetPfKwkMGEszbjpyLJ+Kja/rHWGmCCkYW0Qg8Zv+bSbO36cSY40r64
biXZdqOtwsUZcn5eX8QukfHmctu8rmeRCfvXior7kD4obolun13NgjPfa4Sz
SH9+eBqW+IqwQFd33Yps0i8z6qrXglIssIyIVksl/Xvm98hxqwILJOCU/XXS
T2m6quGH/Syw57MxUSb9zVPhKKuqsmCbbfLtv6Tf7AG7JQanWaBYce3ABdL/
uxpbezsMWLBZgVE7SebH2lh6zbWLLCCWWHh5k/mjpns+3PMGC5pq9XffeUZA
9Hu1bRl+LLj8Q0m0hsy/PSv+8u8PZkGsJ/+6f2R+Vpjnjn+LYIGGQfaSLQ8J
mBLcXtTymgWbth95f/oeAXqua89wlbPA7kZk9pwLAT21tXuf15L9++drKpzI
erf5iYhIMzk/pd+5jx1JPyiz3TuZLAj959ZG3CD9V2G7XOBiA9tsyQjDnIDY
kPgLzBVsSN8g069B1iOlARNVhzVs2K4b+TTiIgHmMXXLfKTYkPf3xmvh82Q+
zudFvVdlg8mpju8uOgQ4fX/2bZkHG4w6XmxK3U3AZlGHCSVvNpyPvNbD2EkA
zVF/s8UzNpy8lRqzZju5HxIb/Iui2fCjvLDwsDQB/O6p528WsaGx87dI/RrS
h104TMyxQel89sfBIRpc9EnetJynB7Q1Lzpu7qPBqjZfg30CPeC7OPrxDJNG
1n3dgkCJHlBfdfCrI0GDY8xWH42jPWCe0S47WEaDjsgp8XcPyPZjQZElkTQI
GaWdaX3SA93CGxljoTTQPP7Fa3lwD3RYrzuzOoAGmZPevRYJPfA1ItFF1IsG
7mfWfBQu6QH06VC3vEaDdUvldR4u6YUyWrsekuertqO5u8HjXvh3VtPUq5gK
T6Z3r/zzvBckBYIPr/lMhbIHXHGRL3qhj6B+CsqiglpwUmlHci90f/I0N4+n
wv4c1qpr33tBe0By7sRDKkhPXku9948cr83wi7waFWZuOTWm3umDgejJjk05
FDj4T/3qSa8+kL9SXJqfRgHXJ2s5A359YJ4XEwNxFBiN+CixO7IP+PYV8G/y
pwA7f+pa4ec+0Gyws5SwpkDD3zv/6ib7QGev5SmBdRTI8PTeybHvh5TjjOBX
1i2QfC/dwdWtHy50FYOVSQvEeNRnj93rh9nuXvqGMy3gf0tyf79/P3Bv92QZ
HGwBe4dC1db0fugUFLJYwdsCey5PnPnC7gchtz8DNuS9sEDV0umh2QDUT9II
akcT5Bx++nHOegBuembsCq1vggyV7Cl3uwEoLvFuOVzaBDH7F+443R0As3tx
AmZvmuD+rmhvy6gBuLucFU5xagJ1icYwzZYBcErOKUjkaoKqOfXPK3QHIcr6
TY/b+kbo5IQc32o0CF1LLFO+czfC5G86RctsEOIn5vhmJxpAYthr2tt+ECLC
vhUoNDSAc0eJ8nzAIPy81TKc8LwBxL+qF43XDYKRivlVo4V6sH+gjq1nhyDx
oVCYUWYdrF2iXv3WcJi8d675Mfm4CnIUPQvh0jAY8e3AkUtVoG9WlNFsNQz2
mTuCS5WqICh/v/+c8zDwJK9/+re7EgQcd5w+HTIM/ZdnMFalEpa3r6sb/DkM
Vd/dLqUzf8Dsp56GHSdGYM/S/I4YsTJgXn9OvFEZBbpTQpWhTBHEh0+IdKmP
Au+OxPWrcgvhYsmF80I6oyA4PVr8n1YhNG3Y3ORlOgpEW1LprE0BlFYU15re
HYVxWf+y5NQ8SNo8+o2/mOQz9ez2NblgQdd/fRPGQFqWm+Fx+A2M7eQv3Cg3
Duq+xqy6ylDMvD+QLbdtHLw+T6swWl/gf3WVaTt3jgNXSu7JByMvscPxcfiR
feNQov9c7IJYDNZ8WLh5SZPsn/x7a+WxJExTHt8aaz0O9HFPj/2NGXhFkxIu
nkr+//Xst01ln/HnxQQnsS0T4GTlGPTHqBxHilq3lAlPQmpRsPMK4RZM6dqX
mCf+G6SCRk9RNekYt2+/qPHqKZA+KmK5cbAXp2HpvZ0LUyC6cPeqvcYostdM
Jp/imoYCoe48s+jfKLLWr0p4choqHslfa1ebwWBlOecz09Pgmvt4JstoBnmv
oJjv7DQ0rbGU8LedwblMju0UNwdC49NlzSNmkK51fVXzeg7Im2ZdvD86gxl3
dAxCDnDgqJ05t2/iX1Sl83es9ODArhOcB+38c/h5efpjDU8O7JVJqGLJzqGi
gpbCXW8OjCJ/559Dcyhz9/6DgWcceB17xEH5+hwuFxqRrorhQJvgHrM9P+aw
4eQvG99iDvSKq/2b9ZpHHUfb1V9LOFA5tLMyMWoeS8OX50+Vc8D25+Jt/Zx5
/MxQ471ax4G5NVZhdd3zGHMvO1OjiwPqPacG1GAB1yefNrzL5MAhjxTx/RcW
MKCqb+5DLwdmSifV991cwAfC0mdkxjhQU+PpejZhATlHiv+Y/ObApY9Hfezz
F9DJyiQ+hMOBvOT5oBf1Czj4dOpE1RwHXuXcjyrvW8D//34J///9Ev8Pxw+9
/Q==
           "]]}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwt2Xk8VN/7AHBKspUlKiJJUYp8SmmRR6KISpbKkhaiJEtR9myRCFF2ipAl
JUtl60hlKSUkZJu5d2aMsQ1mTKH6ne/r9ftrXu/XnTn33Hue5znPeY3SBXfz
i4v4+Pi+8PPx/e/T4UX85L9/PPR8Wa16aZmgXn2cgsq+BR6qv9x9uf+poJ68
R5HdjV88RIudeiKWKaj3Q/NDyxibhziUR+K+kYJ6RmW8J71UHnpna1keYieo
p1Fpf7r8PQ+du5z26MRSQb1f1VvfOUXykNrXO0+Hzy7Ri2lsTviynIe6ROwt
W+QF9NbJUT1OCM8iOH3vy60H/HoeOhYnNstwUSMn12jR6F8493T20OeNHGRL
To0s2z4Ptcf8biqvn0Hv37o7lTziQeeHU0Vt26ZRydxNxz8VHLC6KbN6++Yp
dNa4y1Nwbgr0dyh9Uts4hSITNX9sZk+BxuTWAGWlKaRfK1ZvwZgCIWcDirTs
FLodq7K2pmMKqk9eL+AJTSFP31893cVTsHZX++46JhuJhnVPHT47BQxOjLVR
ARt57Uqc5X1ig881gXR7VTZaeUz8d6jLJDx+KJuZocxGJyV29UvYTkLTG41H
PxXZ6NkdFbdCk0lY+e/0k5Or2aj2vueDua2TUBFdUnxMmI3E6kXy5NkTQDEu
8Qn8MYlEHRQLz/hMQNvzEzX77SdRmltw57v4cXjuk6b39uoEyvqT5BRJGQVK
ffps8sUJtKxs0iylYxSkhDOfeZ6ZQL5HwsQrP4zCzdRHqzcenUC3M4oXJAtH
Qa86lx29dQItmtuha31tFDrnnz+2Hh1HvlCXLLd0FH4FvefjXhpHOmtueZrv
YYFa04dXX8+No++r1N92b2WBnXija8HpcQQ5qb6X1rHg3aPmHlujcdTa9Xfb
s6UsuFv/pbRBdRzZjm3Vr/0xAgqLes7FM8aQZsDLnQs3RkD/9lj9FscxlH50
swodMYGVzrcq3m4McU80qMdWMiGhTPoqx3IMVVe1d+oVM4Ec0pGtMxxD/l78
Uw1JTAjfe8/zmOoYOjPgqLrXjQkfJ9XXe7JG0aWX+/Wn1zLByMY97JXHKLoo
ZLzuZuQwsD3CeuUujyLmRPfssaBhSIlM3nbr/Cg6p2ciq+k9DCMVqO+w+SiS
p8doL3cYhrviElq9O0bRqQCd+3tgGD5/KKXNz7JQysrjN4/8ZsCxbdOGBwJZ
SOixxV99Lwbs+/Zi7LM3C632HEl2dmXAJs+riSfdWOh4tn37A0cGLC5nUq6c
ZaGF9+pywlYMeLNryD/pAAtFJx5Fp3cxQEm39eXoEhbqu7hUO2GODhzTfIWk
2BH0ZbNAj10UHajjDh/WRY6gvJK61/GhdPgaq3Sl+NYIKn8VPdLqT4fCbxlv
6j1GkPqf4j32bnSwt0y0GDUfQUT/6GGaBR2abYOj9FaNoBdT/fP+6+iQ7mLD
ZT1iIrP3G+qaEQ1cl00e7UxmouWKF3vCq2igUxqWXxPHRCffuDkcKafBIPfZ
qZhbTKQ561k7lU+DdSH/qtTPMtEn6iHll7E0yE3ODfJYy0Q3YjPE2GdpUPJh
YulsxjDKGIu8f1qYBkHOYecGHwwjjyXN2ToCNDgmsrqqMWYYaU1df7v5Hwns
4wdckgOGkcGDJxKKXBK29yW27rbD10083nlTSXg1tfu+/5phtCvhv8xvNSSg
tWFy/GkMVL6DFqxykwTBeLUVXgkMJBgXct7lOgmm/B2iw3cZiHY4sbXSnYQe
ct2fVn8Gmitd0Ha4RMJ0wduhlDMMVHbTUGG1DQkqO+ZyNZUYSC7+0diwLgmu
udmZT2QZaGGg1fDJPhLKZYyTVkoxkKWAFL/TbhL0fiVHLixiIPmq1kT+7SRY
1+10aabR0a6f58n4jSTEHPbcdq6Ajo6Xz3OXLSeh483qTZ2P6cgph31AV5QE
WbX6dYdS6aif9rjJW4iEfDFxqa136eiJvvyNuUUk1Lc/4/Cu0FGZT/9qm18E
zNgyq+K20VFR5HU9DxoBe7/ElS3aREdpjc6/pQgCgnW1i73X0VFXZ/X72iEC
xJQiMmwl6Yim7RS6sY8AFYbyLdUZGgrar3nepIMAG4+zBugVNi/EnfGOgHBy
YCLuOQ0JCe2caUMEPD9pl3oun4YCorQevqsjgH+/9QR/Eg2dZuqq1lURUCBs
kWLgja+fjN4sU0ZAR0C7vsxVGmJoPDOEUgIWJo+P0x1pqOTuRSfP5wQc/2Gq
H2lJQ7FdTQXjRQTM5hwaa9lBQ//9tuw2zCVg3cqPSWlbaGitusHbFzkEHIk6
eOCKMg31z66KV8omINNdL0lsBQ0JWyUOy2cRYKCzV+/4NImqA0jRaykEuL14
w1JkkejLI362XDIBKeu1H7KpJFK9Ypb3+SEBo0JarPvtJGIszr9hkEhAQpf6
g++lJNoRtM8mMZaAWqNnunkFJJLcMHLV7x4BjBq1Ee/HJCoMX7HncgwBe3JU
dVfFk8jglsDImbsEXJDJZw5HkohUsG9yiCIg5s6GxDe3SOQTbGPmeYcAipsS
09qdRDVp562eRBAgQjxKUHMmkeCpf5+abhOgZbV2/7w9iYIpFwdnwgmI3Lcm
IeMYifY7lrdfCCOg9HmqztVDJJJ3UC/OCyXgp9Lq4f26JLq4O0mGHUKAhpCM
zpA6ia6628SnBxNw2j+R8WIjiT51GaUt3CIgdELyfrAC9hrTTRexu74vZygt
IxH7+Ov3pkEE/D18L35agERl+mWfPgcSsKlGdN/7BQJZrGUamWMHZAvFO44R
6FKqWpZ3AAH50pF7d9II5Lf/k5sU9rfIJfQl/QR60vmp8JU/AXNzYXE/Ogmk
Ncg1uYC9wW3R3qefCeQ7JG0ug32MGky7+Z5A762n3rT5EeBj+S/WqIZA9m2W
gfexc5oC98iWEyijQSjDBvvz3gVypIhAzZU/JLdg7929YYiSQ6BuA07EYuyC
naY/u9MIlDPOFiJ9CVi1w6vrawKB4FbDgxbsCM2Mbx/v4t8326u+xuaqf/hc
G0ogy9SaumJsxy1jjeV+BFpAXy2fYndukm4oukagn6KxI4XY+io6ddkuBBIw
nfQpx36p7Pgm5QKBEo8z/73HXqcUUx5nQ6Bsupt/H3bs2ornEeYEMhzwYf7G
/rOmvzDwCIGSlywcVMTzdZUVyPPSJ9BL9Ym7Jtg/V259fGUvgYo2GFYHYRtL
W6Zf2E6g9KrZr2+w30gGJFmrESiz5tfH39iq4rn3zdYTqOm3XsYB/D6TxFpj
DssRaPvBj8fisQVEOJG6UgT65eT/k459fal82E4RAm3TstbRx+tFCBgEbV1E
ILavpWcettkiV1/lOSqyWupwQxyvt8afGndJFhVd2nmfxsPOnCNdhAgqMvLK
OHwDx4vYL1Gnf71UtFU7wW0ee2Ta1m68hYocbksvyP4v/thhp2jvqGj4eYxd
OXbjeLF5XxUVdaQ0elngeM1lzhu1FFLRXtbJ+qc4nlcwlA3qs6mINZkybovj
PZQ0gdepVHRh+nrjSpwPZwfTd+ZFUZGwWqvbY5wvct/3rQ+5jL8vwjRYjPMt
qt1Bwec8FYVnfvcdw/71NXq1uzUVFeYJ6ffj/PzR0rf8jDEV8czXBrfh/L2P
/Od3b6Yik2bijMB9AvjqnsxuU6Ki0ZLxbqUEXD+qP0+pyFJRT8hEqyGuD6aV
a5jSwlS06L/CNdm4fggV13xnMylIy4I+m5tGQFDSfElBAQX59t+bH8zD9eDC
LmO1bAoqO6PraPSUgMManrTiVArycqgwfF1AgEQjQ+7FXQrKl5G+nFdMwBNu
e2SlKwU5fEgea3hJQLNlwfkGTQqaazrzlg/X35J15MLBzRR0JDQsur4e16sx
hZSPShTkt3G+8HYDAbbhiV+bpSgoDha3KzYS0Of850bWyBDacM01NPELrvcq
RWpvPIfQx6NmR24MEMCuUzxfc2EIZUW8FLiL94cqq4fJby2G0HOxKWYOFT/v
7WCBjzuHUJSsxkYanQBP2snB9t+DqJ7+UDV3AtfHnMUJoyGDaOFDy5bV/CSc
UDzze23CAGoO15h8u5kEojo4cSBkAOmfMBsu2UrCtZO56hmeA0jl/IWHOdtI
SLg3el72xACyanknmLkT74fzvp9WSAygGI1TjK4DJJj3JKULxfYjdYZqj6Ut
9v1v+6ej+lBlT12wZwIefyunu9S3DwlpBq6VTMLjN6+65n65D6nVBi97lYrH
/2efP2bUh0Sm3naIZ+Pxr44vH17ah7z0+HMWleLxjohQ+m7/RG/FRxKIryRY
LDYI/RjSi3J1c954S9Dg6757dqnXetFodH2YhzQNjnj92HXVoRfZaBmmuq+m
gT790qi0YS/avvRQqt86GmxvumfpKNSLtJrD895r0kAiultlcVwP6jCffKlo
ToNWqSuf9TK60bqL+8vGk2lgsD5BuvZVF9K3oC0330aHCPsoc5P8LiR0I5ha
qUWHlrTg+J8Pu9DoUZM/CnvpcGyFu9hvry4kbXdp8bwBHU4LmArs2tGFHIuz
JoZt6HCFsYTz4sV3ZEudcr4bSYeEIt/OJwWdKGYJVaGPxP3i9vMJ0Wnt6Iqg
lSX3Ke4/W1ktgsqf0XHCJETcjAnKBdSQpPT36KFqttkxfhbsbqtQKiVfoVOm
pn4qnFF4MCz28MvDLNTh9IF55Mc4hBo6SzzWzITxzR8oMhWTwJG5js6GvoYm
JYEcm59scHqdXFR84j14+XEWh7ybAl8+ryzv8M/wZDOhvb9kGvQXOXjdbG6H
QxW7qI9uzYC9cIeKf3c7NMgoBIeEzoC/xIHeIEY71Mey887fnoGKtYq6EQId
EBd0OUQhegY27utb+lCvA+6dnrAMS5oBIS+L9LI3HeC7POO0YMkMfKUfbBgv
6IS3hkYbqT0zYN2yQcIxqgv8/o1czt3CgeetdPtnqV2QouzjZqHBAYFv+SWc
wi64pKZqw/cfB0p/bDK5/akLPso8pFjs4oAgbWtEvugPqP7pGkjV40DFX60F
5r0fsL5n8sFDKw4s1zJkXk3ohove59VOBnLAUVtQ+1VON8QwpxahWxyo3tt0
+29ZN5weFYvfGMqBiweMleM6u8G/K+7daAQHn1+P2pdK98C+8ttWdvEcuHzZ
6vt0Ug9sPy4z1JrDgQ9ZF+tvpvdC0ADVmfKRAxpL+NuKinpBsjSF1tPEgZQr
GQMDVb1wzezyzrYWDrju7pw72NMLOtt3HKv8wgHpDr2dEjI/YeGv827nLg44
LJEvKoj9CQN047ZzNA4scu1I7A3pgzqNeMEcPi64dlzNEbvfB6+evrhjvogL
P3YLv4THfbCluKGST4ALRUv0vua97QP5qCzRk0u5YP6oROjafB/sVdkaSlvG
heyOO4Ei3v0gtTzRL06OC3p7wHnfpQFo69VMkd7OhXXRkd+Vbg7AL3l7fs8d
XOAbaDsgFDEASk/1l3zW4kJ98Dn5ricDkLncuuemNhegOaTdbWgAIjPboip0
uKB76sO+nJODYGQVKVJ1iAtrC8UK71wchPb2lnsTh7nwd85ypbvXIEjFnk9R
MubC2yw6e1/CIIwefKMbbMKF/QzB/K4vg6C/etVzRTMu6HgbSwgbDsHTP/uF
GKe5IN90P3DSYghUwdt9xpoLC6t/srouDIFs1aMjf224UFvr8jEneAhCvnNP
iZ3hwj6BGD+d2iEokK95JnyeC5nGztOvZSngFXN0251LXIi5Jrp5ixIFbq+1
NnC9zIWA9BdnszZRoJ7KrTrqwgW7cV5ruDYFhn1FGoRc8f3v33l6wooC4Fih
fNadCxk9hXaj8RTYXfNcIcabCwX/blD5Uinwu5RhaXWDC5UqBk4rsymwWDjN
fs1NLnz1GnQ/8JICPtMHyEwfLvBLrghLbqeA61a9iAB/LizfTVla0ksB4VcL
G7cGcEHubElMA5UC040d0T3YWiWHk8anKKBxP+2JahAXnIwDCg9KUeG7kX5P
VjAXrnkYa1jLUcEx1itQK4QLt5JXlrutp8KhYPv+RuwUemlt6nYq+PhvekcN
5cKnEHrbpDkVtE7ozk+G43gqKLNcYkuFdr9u/Su3uUC23eqVc6BCg3ejNom9
oCBHGl6nguK0l3JLBBe2VR+bTU+kgnlE3Q/XO3i9qGv8X6ZTQab2+Zkv2EZC
I/8an1BBg5l4Wy2KCxdOhglPl1OBsVO47Ce2W6BZ7NJaKnykBJer3+WCf67C
CoUPVAh4UHM8EPvB9Gt5o+9UmNlkbC4VzYXHsrezz/RTgZsQVnkKu0TPXOU6
jQrHV5uVpGJXOysW3xmjQm7g+t092I2xY9uyOFR4EOlmuSKGCx2VVRXlC1So
m3vKZ4I91B+xp0WAgPfp+vtuYf9SUzrIkSZgyNfFagBbwHyiSViBAG29of+W
3uOCpG+NqeJGAsYOhSepY699fKddS52ALPMvIWbYak1WJ4/sJGBCVWPaHVt7
Yn3f2f0E+EfLMaKxDWTYZ70N8bnlgKBdLraZTh3t7lHcp4tfNK/CPuNw9/Jj
KwJ6qoqaPmG73D01UXmGgGwBk+oe7BsvN1z/fJGAloqqTSR2WM8Uj3KVgOlY
F0kWdvy/twGz3gRUn2q/No6doRLDL4b7wPed503+58Kj1hFK+JxT0hSXOoL9
yktFVBufq+R+fbUlsBvSZ+JMk3DfvjkxvhvbmlPi1Z1JgMuuCaP/zYdtesn6
Au6jMm1nGf+bb0Teet3xZwRUNF6+nI+t8Ld/vU8F7mvyBNvisCtOJi9dXEvA
5Q3RK29gH3lxYuzee9zneFbqWmNTl4q1r/5MwH81Bw/twfY511j5BJ97c9U5
W1Zii1cFp2n8JKBmNnxiEq9HvuS+W1W4Dxo7WBHTiK3jwnUwGMHPo6+3JA27
s+GFURubAK91wyddsF3WuKj/71xeIeIcrI3N57VBiv6PALpGUDA/tsbG1L45
fO4f/enyLxrHy8dAi/rbK0korqv1N8W2+7EsT2ItCZrxWS3C2FGRoW4q6iTY
V4t0+eH4XEfRsXipRcKMq2S8Bvar3TxtHR0S1n98vGoIxzdt5Aq/uQkJyvLm
kbuw/fRVGP3mJFC92a4DOD8k0ymfnG1IWL5FQi4EW9fU6kHgZRLunWn9+DaS
C6nPdVULI0mY7BPQW4HzTXPpb1GtOBL+CfvrPsb52Hi2nP0W91mb/znMbcbm
SGyq/p5HwmNORN4OnM/Hrkse5fuA5ycwmKeI853++fN/0Z9JKHB87ZqA60HA
hoiVKzvx/HgcBj92Ydfc0BaCxO/1IfvHLRz/u2nXTvHRoD1k907rQC6kx2ed
IpbSINSDz+slrkfbR07rXBWnQc4fBTtB7LNpX5aEraWBYKG5cr4fzseFVynP
dWigsd/dpQ7XP493UW+X+NKgRGngnbEnFzasvjq1PYQGVyXMd1h7cKHbzWzD
uSgasA5nP3bE9VVXftXd6lQatKQ7XXK/ygXRm7lW7tU0WLa+8pYlrtf5W9FY
zzwNaP+eONme44JNWI6ioAAdXGpiuzaf5cKyn7fNd4jRwZdVrsLB+4FXpOmb
e/J0YJYYXg6w5cIBojdMfz8dJqVf6Nue5EJ/MkfuWRC+Xt03ZIb3o/iJ7qO9
EXSQYOuW9eP96qBhTbBgHB3i3+scdTTC++10COPcIzocNnv8w8mQCzePipfJ
1NPhjsk2kT3ABanFasa3+BkQte7FPQm8vxq5nb1pHs6AlL9G34Klcf7MbhPh
RjPg0Xj6nVwpLrwP4stMTmRAB0Xd+YMEfv647Ib+HAZ8S+6+/0sM1/9Scpnz
OwawcpHP9iU4/qadc/3/MuC00pdLoxwO/PL2aM/1GQapdq2Xl9o5sOuvnuPh
4GFYr/+0aHkbB65HSPJGIodBsyfrcWkrByaSyuS3JQ+DjTYjgIn7FdprjnNV
5TAUrrXoUH3LgW+/ff5+mR4G1o34VrKQA4WBIVt4rkzgC2APHA7iQI5/wdXr
XkzQuDBs7OvPgTTftheT/kxIIv4ry/fhwF1vBS3mXSakeHVf417D/c/VKp3e
Aia0afy5f8GZA5pnpo7W0JiQGemt5XecA290znvcshsBU1UNjyR53O/tvVM2
7zACnKj1Swxl8f13v+DcvDICjWmr3Sdl8P20/vh4+I2Ae5RinbY4BwK2poac
TxmBXWOaikn8HNCTb084+H0EtCw2MO/QZ6B5Xq9yqSkLghZfmNlfNAMDvHhD
FUsWiF/5tl4yfwamZyhdBnYs4FO9qTOUPQPyY8GzIa4s0G1T3eSaOgOe/fXa
CzEsEDFSrzS6MwNydXrV7C8syJEMPyR6cQZcg/RQ7/FRiKnea1osNwOS/Hot
xRZjEC6ZJvXPexpKNQKrwHYMGkwGPAc9psHMrrqw88IYMM4OiFZdmYbY11p3
5z3HoCdrjnX2/DSIuW02MYkfA6tdvP+8TKdBsE/qC6t1DNobnD5WKk3DXAX9
2+ZD4/BXJE7mQfMUEJeie57unoB8pdBZ76VTkPVgauWg3gRsUt8efZ9vCmzq
T1lJG0/Ab9mmjU9/s6Fj1YaOYOsJOGS03ql+lA0NjbWfrf0moKlVk1HUxobs
DRNvRWsn4IaioY99EhvOUczy3GESCvfxRWkpsmFyi2jVGmU2CGZ3CYTpTEBR
wMgLZVU2hD/a5DK9ZQKcvjTlb9nChtVvykKs1kxAv1v4g3072FA0p1wz+3sc
Pr384257kA1Ca0L4816NQ742WyXdgQ3rb5ze+lx9HOwPdj2Qy2VDPJ9kwBmp
MWi1eeQhu3EKHtRaSoRXjsB4de/G9zLT0H9zU83+eho8Gdzx+BV+75tiF5v/
WIb71B1aq08u58Duc5dMUkLbYBYW+2/5wwG+xcUT2SL3gSY+nXOEbxaCC9Jn
Jtu+oZWSkc0y07NgV+powy2jojhtZc+js7NQISkbmDZIRUL2SPb23Cx4fWr/
YC5CoPkingtnEQ/Yw+faF84TiGJwaVnnCh5sOONyQFuKRIU+xubxO3lgGvI1
3ugGDelQRPtFfHmwSftvFNd0GFUKFoTrB/JAa/yogqD/MNJQN1D3C+HBMzXV
Q2qFw0jJLyBoJIoH8kSEU8kSJhKUHl/XnMaD8FZ3g0eIib4d/nrxdi0PMijR
d7S0WcjYzWV5XT0PzoU6ywU7sVDDA8HXnA88yD0o7jf0kIUqqbpCjl940Pyp
s7SXw0Jp/i+K9Ad5YOadZ19bPopW5JhY+BE80Ms8+S6fHEUxzcPzLxk8qNfk
LstbMYaCZNYdVZrkgaOe6PWB62OIt6+We3oGz0c8OmFV7hjyuHA6K57HAx22
UNHF72OIdYdzqHmeB0JiwnVNAuPo//+/hNMx4m37d46j/wPRJWvO
           "]]}}}, {
       DisplayFunction -> Identity, AspectRatio -> 0.7, Axes -> {True, True}, 
        AxesLabel -> {
          Style[$CellContext`x, {FontSize -> 12, FontFamily -> "Times"}], 
          Style[
           OverDot[$CellContext`x, 1], {
           FontSize -> 12, FontFamily -> "Times"}]}, AxesOrigin -> {0, 0}, 
        DisplayFunction :> Identity, Epilog -> {{{
            RGBColor[0, 0, 1], 
            PointSize[0.04], 
            Point[{-1.315792109681497, 0}]}, {}, {}}, {{
            RGBColor[0, 0, 1], 
            PointSize[0.04], 
            Point[{-1, 0}]}, {{
             GrayLevel[0], 
             PointSize[0.044000000000000004`], 
             Point[{0, 0}]}, {
             GrayLevel[1], 
             PointSize[0.032], 
             Point[{0, 0}]}}, {
            RGBColor[1, 0, 0], 
            PointSize[0.04], 
            Point[{1, 0}]}}, {{}, {}, {
            RGBColor[1, 0, 0], 
            PointSize[0.04], 
            Point[{1.3157921096814968`, 0}]}}, 
          Inset[
           Style["(a)", {FontSize -> 12, FontFamily -> "Times"}], 
           Scaled[{0.15, 0.95}]]}, 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]], ImageSize -> 154.7716535433071, 
        Method -> {
         "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
        PlotRange -> {{-1.5, 1.5}, {-2.837250096608577, 2.837250096608577}}, 
        PlotRangePadding -> {{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.05], 
           Scaled[0.05]}}, Ticks -> {None, None}}], 
      Placed[
       Unevaluated[
        LineLegend[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[1]], 
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[2]], 
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[3]]}, {
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[\n StyleBox[\"a\",\n\
FontSlant->\"Italic\"], \"sustain\"]\)", {
           FontSize -> 12, FontFamily -> "Times"}], 
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\) = 0", {
           FontSize -> 12, FontFamily -> "Times"}], 
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[\n StyleBox[\"a\",\n\
FontSlant->\"Italic\"], \"break\"]\)", {
           FontSize -> 12, FontFamily -> "Times"}]}, LabelStyle -> {}, 
         LegendLayout -> Function[$CellContext`pairs, 
           
           TableForm[$CellContext`pairs, TableAlignments -> Left, 
            TableSpacing -> {0, 0.4}]], LegendMarkerSize -> 11]], 
       Scaled[{0.83, 0.95}], Identity]]& ], Editable -> True, Selectable -> 
    True, SelectWithContents -> False, AutoDelete -> True],
   GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0, 0, 1], 
        AbsoluteThickness[1.5]], 
       LineBox[CompressedData["
1:eJwVjnk41fkex4WMdEIkp8tjMCQ7wyXCN0uWksnSsZQl9zi4KftkxChkynad
uiO5IcTTgmY0Kc3jfoQoHeZwtp/95PzOYj+LRIXb/eP9vJ7XH6/neRvEJgfF
ycvJyZ3/uv/z3k21UApFAKtc/E7RFxlcHAyYeR8rgGZtTx/CV3eRL4+PjBbA
epHNEvWzDLBUQlZImAAqSX8Y1nySgXrgrjsexwXgVe1m/3RdBnlqChN6VgKw
6AgWT63KIKp0LYrzgQ+PtfT7LJdkoFs0RfG9xof2HMfKjikZpJvyJM5UHEgN
w+s9f8pA0h3VG97KAxt6t1LRf2Qw+nfBonhoFr53ss8nX5ZBeUQTtWriPSRu
ssiLoTJITR/PSdrggkZLSr6jgwxsXHx4pxS5sOhE3L+tLoOGvjzPMybTkDVw
8MvzBSnYbpw9eYEyCSU+VEX3N1K4VPbw5L28ccjpcHGSq5fCbpXZcfNODAS+
Bh8rLkuB7P498cFnNuxPD8O0SFLIwCQnjhFZ4JbbGpBrIYXR0BrCkdMMOOYX
f6ZbUQpChxe9gUkj4JUgen4Hk0BBPet0O/EvcNGffazdIgFGk4Zb2p13YFMw
bZp1VQLURCvNjOEBIGQRXi4HSmBu00DexKsPdLicWFcjCTwJXJ3SudgNO7Wm
rc0kYpB3WLTDgzvhAenZDv8uMUwk1s1I/dtBv9rmtVOJGAyc9AdVIptA49w9
l4UgMWAFBRJ6SSngcrp/HdUVA7Ew3yPdrQQpWXgmfHizAseNTcwOSpqQeimr
7qfjK0C1Myn/8E07Gq9cNb4/vAwNp3MtmW2dSH9vSoqV+zIEeDsrrVd1o28i
t/wHW5fAZu/0BPNAH6rOyO+P0FmC+7qNfcmCAeTT0ts+lLIIP4dW3ApPe4eK
V36yUetbAJpugHzs4jBquHar7bHKApCo+z32hY8gsqVCxSvTeeiuEyTpxYwg
NmUy5ujBeTBv67h9KH4E1W4WnuoynAe5d6Qll8wR1JCge/V3nXl4pHi7Ko46
gjIpbzn5e+Zh+5L2SsfbEVR85EZ/v3gOHkQR74Y7jyJ6Yg+l69kcbJj/ba1W
h4HYPbtS/n14DvAc9Zqj3zFQlZFFrYn9HNCHlLxmzRhIwFu/8Nz6a58soxo7
MxCDusCiHZwD0lOaZUsYA4UEqm0M7ZuDP5zz4jp/ZaBrq6mvDMUiSPbDmQw1
JloMftQ01iiCiOrxy5naTGTw+fWmuFYE3gt0Q+1vmWhMgcdWqBaBXllXSoQV
E3F9R6d0KkRAo1cS3vszUX9X0IpmjgjMwvy8lm8wkVFi+ioxWAR8SttTZUUW
uj7EVlPfFIKNcur6od0sRH7/NmnioxCyH9q5+mmwUMjHaNt6qRBUF1/039Bn
odvNga06IiEcTu0dU3FlIdVuxSuDo0IovYxtE35kIcKM3chWsxDsK+T994pY
SMWq0cbouBB+tn1dYbvCQoXxm0WaXkJ4O/oLK3CNhYpDuO6fXIUQpbUn+qYi
G7m5nw1vtRXC9WrtNE0DNlIqu6bUTBTC5H2LKq0INsrya7vRhQugsJOEH6Cx
ES1BaV03QwD45zDKfgYb5XqbLfUkCcDT7YxIY5yNxqImX4XHCUC+N3pxt4iN
GuxK6sJIAsijJaxuKnDQG/rL9ApHAWTPZCvOHuEg0lacWuEaH8YNcoumPTio
3mG+UnGZD07kPOUJPw4K8p61vsjnw7qogMAM5aADWhN/bjD4kCkt3defzkEK
HS2EySd8SNlZZ/ToMQdl+O+wlJzjA92nvrm5nYMa5mtP3grlg3Vx46HGTg4q
N6yqI5zkw7LqA4u7AxzkkcPxzHXkw3ni7/blPA7a0bRFJqrwYTDiaUfxPAcl
xXxb47CFg1nNs8O/SDioJeThJ20pDiKDly5XtjlIP3vFWGsMB4p5r1eaDoZU
p/4bfKkRh/4Lr/svGmJI+3yJu9WvOBj/NuB73hRDvGp105wiHHB7mj/ZEUNy
DdyojngcvC4ND8e4Yaj9iUJmSSgOjZ30U5HHMGThgZ14441DrBsrhBSMISvz
fwVYf4dDzxUOOygCQ+Rhrp2ZOg4GvWNhP5zDkKHySKr5Fx5c2Tk5fiIBQ2nk
+//cJeQB12f6rG8yhuxP4dlldB6gYu60149f/26tJV94wYNa2myMey6GBD53
9xyt5cGWKn/WtRBDGjuD9eKv8iAyUEh2LsGQmQcjlBvDAze22j+Gb2LIvSzt
uqMjD/TOHD4XW40h5cpaTbkdPNieiYleq8cQrUbbpII6C/8DWl+kYw==
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[1, 0, 0], 
        AbsoluteThickness[1.5]], 
       LineBox[CompressedData["
1:eJwV1Hk81fkeBvDjcEO5aTD2iGypZDAM7vjIiyy5hGtJjjAyHbn2VKIoXEJC
tkoiS9M2jSVL8jUxCJU62y8HiXN+x7EczvlJthj3j+f1vN5/PP8+WiFRnqfI
JBIpaiv/74aValnTKgw5f3jTpJE8ASn/bL7rVY4hp9V7/6njTECg2+M8SjGG
jqQXeIjtmQTrvMqUX/MwVNhhLbXsMgnKQ8UxMZkYqpVZo5+MnISlXTkhF1Mx
pNY+FL0/dxLoHqle6YkYajz20bznwST8UZBgnxeHIbF1A2fSq0mIUAjWu38K
QznUWYHl/CS4ePsoPQnEkCJFgk8X54B+8VGpZl8MSepieSeVODChZD7d74wh
q1xG73trDnT67WfT7TB08V1cj8CVA+VlewbHrDH0KuDjJyqFA35qO56KDmKI
clBxuSWJA280xmNU5TAUfAwbWGviwMOTjBCdHRiyf+SyFNTFgcx7/V5GEhjS
0WiROzvEATvtph/tllgoourxUAefAy2611aowyyUsZmk4qbCheKwy9NxtC1j
ciY1OlyIq4tnJw+y0KXujBevD3HBaN/Jl/kdLCSoPN6V5sCF+wfMUlurWIiZ
LPvLeiQXrpuOSUmfYaF/yb9s9n7BhYh42opcKAspOv3vm383F5yb+qbVKSxk
2phGc3jDBQmLhkFjdxYK+6k4890YFy5YZd7wM2Uh8dJe0z4SDqGHTZQfrDGR
oDHnFtsWh04Qy1VdZCJqYs92E2cc1G2GxHJnmWiX+NnmeA8cGFaRMzGjTCT1
NW2wMxiHI2YPO6wRE5XGkedSUnEw0Nc+9e4KE7npKk2vvsRhVkaufkmaiRrH
Fv9YP8ADpx2f9ahkJpJW61LNNeVBtfSz2+xVBpoh8iPkrXhA2eaW3jnDQC37
RhPIjjx4u5nld+0NAyUOjZREBvHgmUhsc3c+Az33VbGvyOdBPCY86qDMQCFT
haKfBDyIzVjUtvyOgf7CbQ2oBA+izL6uHNjOQJHHJpiFyzwIv7Fep7BOR4vD
KuMYeQqCnCQlOJ/oyF5jx/G9SlPg2qLefqWOjoprHZ/12EzB3lLHA53mdETP
7m2/d20KPviWy1h705Dox70/Y4p8cOu68GvJv2mIVKQxFKDGh34jn1eEAw3Z
uO4cHtXkQ9c/ZM8/NqehDE2jGIYBHxobUiZ3K9MQePpdvG3FhxLZ0DYS+wPa
HVyrk0XhQ0Cv4emeoA/ohxcXQ5Qq+cAzb+nyiHiP5KKcyPv2TMPVSoZ3vfI7
ZLazOUpEmgFajZxNbNkAknpSedixfQbyqUby8W97Ed14Revg2Vngf9Mi69t3
IymBi5OZwhz87rE4qhbZie78lmCb1zgHZPNZU45XK0pmn0sQOAqATa34JHKt
R0rZfjsHXgtAy3JP/3ZKDbowUlsb4T4P2NWrwqHsHJQW2P7ItWcelNOu2MXZ
ZIOfO09uVXUBXHT1DfWENbARkLSh7L0A+ab6179I1kOna3qQQ9YCVHknH6Q/
bQW6a3hZH1oAtyNW25ZLOyHJu1osklgA4+/G2HSVbtBYlG+X0xZCtfr97ii8
F/qzEp5regnhku+NwuOxA3BlY2hX0WUhDKq7kUNm34Ke1jcz8kMh+OQr2ikc
fw+ivwIHmEwhrOxXXbqrRoPpukd9tzeFwA172iAlwYD6xt2cVkMRpLX6cFQG
mWBiIIiV9hQBxYMXapWNQXtbL6v9nAguZ0nNW0YPQ5Vy8MuOChF4ffx5dtxs
BLDmGyqu3SKIfi1OhGmOgULgrSrlGRGEbmI6l0jjEKY7SpzeRQBfty1L/fM4
jCc2/XndhICCO7/EPaR/hmqlRFvchwAFzRJFmZYJmFEflLI4T4BZd0fwl+JJ
ML6W88yrlIDzrU9/eJvJgWE77cM32wgoajN4kRjOBZ+EaFvxYQKWvEup4Vu/
cJctlnR9yz5CSWX/WC7UXmI9UWEToGjAi7dM5MJqkc/ioRECiotqjJazuBB7
kyETMEZAabR21dnfuLASGfzf+gkCbumpZ0VPcaEjcHrZd4aA1T+zLYJmuVDn
QiVNbNmfssZ1X+BCg0XoxplZAtRuDtsdWubC1Rn66OU5Au6Ila3PSeKwN/G9
Yd08AeUj30ef0cchvLBhgyAI2DiXrnFiPw7rtR2RyYsEBMp/GXQ5hIMnO4ix
7QsBGi70fYYWOJAoMRkqSwTcbS6YnDqCw1Sd8JzN8tbek1yAueBQ9oBzp3fL
gYIY2z43HPoNk1qOrRCgqetRXueDw6h/BS1klYCUzs6jJf44aJwwos1sefyE
8WpGIA73U0+/jl8jwPZrxYOEEByoCe7Pv235XoGsb1gYDovjnLKMdQL+Bneb
s3w=
        "]]}, {
       Directive[
        Opacity[1.], 
        GrayLevel[0], 
        Dashing[{Small, Small}], 
        AbsoluteThickness[1.5]], 
       LineBox[CompressedData["
1:eJwVy2tcjHkbwHElplWp6KwHJSpGixKFLpIUSWlVIiUVrUNHrOigFDqpMOs0
lQ60tJWyNGivVm0loyYz99z/pjnck0EYbLJtPQ49+7z4fb6vflYRsVuiNCdM
mPDTv/3fxrFKfcdyguasbu73hwcgXe9eSQCXYInqngGtNwA7fWvOhnIIii0j
hwN6lbDi7LX0PWcJUl/iJjpVKcFMwImPP00wuzxZVZ6uhBGDvIhjJwj+sfaY
7NdwJYj8TwRkJRN0lfmde71WCbeLD3ucTSRIP1A+z7JXwn6jXfMqogg2RAma
RscY2LA10PTXnQRrPqaKHVUM2HI2at8LImj/LtQhrYeBAVPnN13eBK+WJlU3
VTPQErygX+ROsOIiOzSewwD30my+fAXBy77DsicnGQieoVP7cSHBbfzkWtvd
DDydycRbTCP4uDUgxWUuAzfDqAgbHYKBfhtX/mLCwOmyrgAHLYK6o399iNFm
wN36t6XuIzSeidDXPdengKa5OWMxEhqbp5zaaxqvAE502ptEIY2FZVmJhsEK
SLyR1J/Cp9GyA2PiQAEO9mHNRb/T+CDbVOitr4AKttMJXjmNte4+s/5pkEOB
o1z7u300hh+5+zqRJYfINUvMqj+L8XiEF7tMLIUW0Mi3+CTGVJvrWbtapWDp
JtDIV4vx4dAmuw31UqBcD76Nl4lxwo8XVubnSMHT6ebvK1CM/FdLCltWS8HO
1jqqJ0OMr5a/NLBr7Ae17rSGke/EuEMR61dzSwJJZGjjOjMKl9oUbM2kCCRk
f7J2MaTQd975jbWdBGKd/hljT6HwZl2UieoBgR8Lv9ww+iJCVtKk6thyAuFe
LC2VQoTrZwf5TIwj4NNk+TDjhgi/Xksd0dQjMOfienaLswhvs+JldZtoeBbE
1V2xVYiLeYHDfi8oeOXc1Oq/vxffPjLoN7IWQuY1amuDWQ/mRFoIjtYKQFg1
zS3h0hOMijrgVWnxFIpiHKYndXegztdUrz/ud8Lrr1aath5teN/r3N/mvW1Q
5/9JNuNgCzZrmKQY3WsBTWe1oyqAh2UFnD0+F3jQH1Oq+OjTgKu91zFroxrA
ymV215TQKmwLKbHnRlcBycwcEuTmYXjvYMnK/DwwO5nhnuiWC4Kb0og6yMUN
c23nzxuqgk75kmdZn6uwyNG24G9WAywyridOsxqwfGvKQlEtD5w9bKabDPPQ
19N18ujFFuhYZt/nqWrBRYbyfpF5G2R0X2ifX9GGlZYVbbEvO2AJt2qwnerE
1KDCc9sSnsDLpWVt+9R85Fv6akaou8H/6NPDt4sFGFhk4m60rRe+PUzSIywh
ji2wGCmZIYT/ml9x98ynUHXcgLt6jhDc6/sOSi5SKHg62WNgvhB0ytT6hyop
rI4dLprrKoSRqfZvmh9QGNjIX1gTLIS6nmhu6RsK77imRfEuCEEdkV1V7y3G
WG+VSKgvgrinDgsy9WgMuSw5dshUBKczSxdOtqDR863A2nSWCPSNzw8WzaNx
Zn5zXIiDCI66/qVqBRr5Ao6u0kcEHsf6fz6fQOP8YG+P92dE8Gh85ebxPhpf
RNc2amtRcGfZ47iOeoKLtONH7XQoOGPq1VrTTDD5F8dV3tMouJrI6HC7CE5V
N7WfmU0B64CMVaoiuDy+tW/KKgrcVlvls837MO8YGdc9TMFMsU7w2ZN96FSo
6WM4SMFXu3dO9VESTF38Z+HiDxTo3ana7pkkwcfPTlH+IxS0G+9Nf5chwZ3G
emHFWmIgx7WlsWUSPH3ZNGG6lRguC1Pf+0glKK1kXzQOEUO1vWRBfVA/nuQF
qsz5YljUc6v/bZgUVZ+Do02EYgiMMyvWiJfiWrftg9MkYrgSsPmHpRlS1GwN
U+sMiiEnW7d3rFKKafy9n75OpCGjufM/umopJiuStQZW0GDA6Xw/84QMJVYp
2XJ3Gkz8TzkdPy9Dl8g07X5vGgQek+awqmU4OpipKwqiIefT9LpbPTI89DHP
qD2Rhp+0Nz3fbiXHuEmlNjdv0XBojkmhoUCOgvXXrl9voGHfXc5uu1dy/D6n
wq6CR0Nxx6Oywm9yfD+1mn21gwbfU3RapIMC95nddip4TkPAkU1zOMUK7App
vJvzhoYvhlbsxhoFzuf+tvzUEA33nZV3vTsUOGh1f2X6OA0/d+/ZovFNgdEL
Wj0SZhDIVKtdN7sw2H7gz/aD1gRu93muavNicG59h9c+ewIDaw6xy4MZVDnx
fSKXEWDHdAXhUQY9jnR3h7sR6FhtwzfOZbCCJ/ALXUdgiW9ctBaXwQg36ofA
AALftn8ZG37E4KN0WrwlhICrL3GxoRm0au0L3ryLAEfZw/JVM5g+SSrZuPff
36ZS44qmEpn18h1esQR2rOntWmOhRMhh5B6HCeReHbmQ56jEEv5A+JoUAqMf
tpWqfJX4beqLgVUnCUSNnLAc3K/EUP9Xka65BPwcHwZdKlCim1h/d3cxAe2q
vvYsnhJnbl++K+IyAcbpefOEISWOK8LDRq4R0GqcpX9n1wD+D11uAKw=
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 0.7, Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        StyleBox[
        "a", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
        TraditionalForm], 
       FormBox[
        StyleBox[
         SuperscriptBox["x", "*"], {FontSize -> 12, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Epilog -> {
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"(b)\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.15, 0.95}]], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
           FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
          TraditionalForm]], 
        NCache[{
         Rational[-2, 3] 3^Rational[-1, 2], 0}, {-0.3849001794597505, 
          0}], {-0.5, 0.8}], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
           FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
          TraditionalForm]], 
        NCache[{Rational[2, 3] 3^Rational[-1, 2], 0}, {
         0.3849001794597505, 0}], {-0.5, 0.8}], {
        Arrowheads[
         NCache[{{Small, 0}, {Small, 
            Rational[1, 2]}, {Small, 1}}, {{Small, 0}, {Small, 0.5}, {
           Small, 1}}]], 
        ArrowBox[
         NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.5}, {
           Rational[2, 3] 3^Rational[-1, 2], 1}}, {{0.3849001794597505, 
           0.5}, {0.3849001794597505, 1}}]], 
        ArrowBox[{{0.08490017945975054, 0.4}, {0.08490017945975054, 0.8}}], 
        ArrowBox[{{0.08490017945975054, -0.4}, {0.08490017945975054, -0.8}}], 
        
        ArrowBox[
         NCache[{{Rational[-2, 3] 3^Rational[-1, 2], -0.6}, {
           Rational[-2, 3] 
            3^Rational[-1, 
               2], -1.1}}, {{-0.3849001794597505, -0.6}, \
{-0.3849001794597505, -1.1}}]]}, {
        Arrowheads[{{Small, 1}}], 
        ArrowBox[{{0.3849001794597505, 1.2447005383792515`}, {
         0.33490017945975054`, 1.227701852119218}, {0.28490017945975055`, 
         1.2099899316441598`}, {0.2349001794597505, 1.1914802075547748`}, {
         0.1849001794597505, 1.1720703755088817`}, {0.13490017945975052`, 
         1.1516347548441792`}, {0.08490017945975048, 1.1300161166470677`}, {
         0.03490017945975049, 1.1070134416054385`}, {-0.015099820540249498`, 
         1.0823628227399429`}, {-0.06509982054024949, 
         1.0557061538497434`}, {-0.11509982054024948`, 
         1.0265364623370539`}, {-0.16509982054024952`, 
         0.9940943006446117}, {-0.21509982054024956`, 
         0.9571480076189861}, {-0.2650998205402495, 
         0.9134437325564974}, {-0.31509982054024954`, 
         0.8578899499361915}, {-0.3650998205402495, 0.7712015305444364}}], 
        ArrowBox[{{-0.3849001794597505, -1.2447005383792515`}, \
{-0.33490017945975054`, -1.227701852119218}, {-0.28490017945975055`, \
-1.2099899316441598`}, {-0.2349001794597505, -1.1914802075547748`}, \
{-0.1849001794597505, -1.1720703755088817`}, {-0.13490017945975052`, \
-1.1516347548441792`}, {-0.08490017945975048, -1.130016116647068}, \
{-0.03490017945975049, -1.1070134416054385`}, {
         0.015099820540249498`, -1.0823628227399429`}, {
         0.06509982054024949, -1.0557061538497432`}, {
         0.11509982054024948`, -1.026536462337054}, {
         0.16509982054024952`, -0.9940943006446117}, {
         0.21509982054024956`, -0.9571480076189862}, {
         0.2650998205402495, -0.9134437325564972}, {
         0.31509982054024954`, -0.8578899499361915}, {
         0.3650998205402495, -0.7712015305444364}}]}}, 
     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]], ImageSize -> 154.7716535433071, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{-0.7, 0.7}, {-1.2491518031584379`, 1.2491518031584379`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {{{
         NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
         FormBox["\"\"", TraditionalForm]}, {
         NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
         FormBox["\"\"", TraditionalForm]}}, None}}]},
  "RowWithSeparators"]], "Output",
 CellChangeTimes->{{3.613749545570072*^9, 3.6137496276699057`*^9}, 
   3.613749669888371*^9, 3.6137497011290894`*^9, {3.613749748208303*^9, 
   3.613749820575451*^9}, {3.613750335323806*^9, 3.6137503809395103`*^9}, {
   3.613750427033105*^9, 3.6137504638680143`*^9}, {3.613750494710103*^9, 
   3.613750517029389*^9}, {3.613750623402582*^9, 3.613750655961171*^9}, {
   3.613750693507297*^9, 3.613750719176572*^9}, 3.613750777625081*^9, {
   3.6137508179897833`*^9, 3.613751021324072*^9}, {3.61375116560817*^9, 
   3.613751327393714*^9}, {3.613751360586*^9, 3.6137514153954678`*^9}, {
   3.613821592227088*^9, 3.613821646722617*^9}, {3.6138216982787724`*^9, 
   3.6138217132576637`*^9}, {3.6138217488770323`*^9, 3.613821770320858*^9}, {
   3.613821812499474*^9, 3.6138220009898367`*^9}, 3.6138220360953407`*^9, {
   3.614090629780898*^9, 3.6140906353051767`*^9}, {3.6198527325088863`*^9, 
   3.61985275128258*^9}, 3.619852811878004*^9}]
}, {2}]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<figure1.pdf\>\""}], 
      "}"}], "]"}], ",", "%"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6137496378659773`*^9, 3.613749698000524*^9}, {
  3.668612090579887*^9, 3.668612093451499*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["figure for talks", "Subsection",
 CellChangeTimes->{{3.619851595610586*^9, 3.619851597376648*^9}}],

Cell[CellGroupData[{

Cell["with legend and tick labels", "Subsubsection",
 CellChangeTimes->{{3.668612007230383*^9, 3.6686120130621967`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"x0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<  \>\""}], 
     RowBox[{"(*", "\"\<\\t\>\"", "*)"}], ",", "masterSNBs", ",", 
     "aValuesToPlot", ",", 
     RowBox[{"fs", "=", "12"}], ",", 
     RowBox[{"imgSize", "=", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".65", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"(*", 
       RowBox[{"1", "/", "GoldenRatio"}], "*)"}], ".7"}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", 
     RowBox[{"pointSize", "=", ".04"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"aValuesToPlot", "=", 
       RowBox[{"Sort", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a", "\[Rule]", "0"}], "}"}], "~", "Join", "~", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", "\[Rule]", "#"}], ")"}], "&"}], "/@", 
            RowBox[{"(", 
             RowBox[{"2.5", " ", "masterSNBs"}], ")"}]}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "/.", "#1"}], ")"}], "<", 
           RowBox[{"(", 
            RowBox[{"a", "/.", "#2"}], ")"}]}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"masterFlow", "/.", "av"}], ",", 
             RowBox[{"{", 
              RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}], "]"}], 
          RowBox[{"(*", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "/.", 
              RowBox[{"a", "\[Rule]", "0"}]}], ",", 
             RowBox[{"masterFlow", "/.", 
              RowBox[{"a", "\[Rule]", 
               RowBox[{
                RowBox[{
                "masterSNBs", "\[LeftDoubleBracket]", "1", 
                 "\[RightDoubleBracket]"}], " ", "1.5"}]}]}]}], "}"}], "*)"}],
           ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}],
               "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{
              "x", ",", 
               "\"\<\!\(\*OverscriptBox[\(x\), \(.\)]\) = \
-\!\(\*SuperscriptBox[\(x\), \(3\)]\) + \!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + \!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ")"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}]}], 
            "}"}]}], ",", 
          RowBox[{"Ticks", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], ",", 
                  RowBox[{"Which", "[", 
                   RowBox[{
                    RowBox[{"#", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"lowerColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"#", ">", 
                    FractionBox["1", 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"upperColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    "True", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Black", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", " ", "1.1"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"White", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", "*", ".8"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}],
                    "]"}], ",", 
                  RowBox[{"{", "}"}]}], "]"}], "&"}], "/@", 
               RowBox[{"Sort", "[", 
                RowBox[{"x", "/.", 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"masterFlow", "/.", "av"}], ")"}], "\[Equal]", 
                    "0"}], ",", "x"}], "]"}]}], "]"}]}], ")"}], ",", 
             RowBox[{"{", 
              RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}]}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{
             RowBox[{"LineLegend", "[", 
              RowBox[{"(*", 
               RowBox[{"TableForm", "[", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], "&"}], "/@", 
                  RowBox[{"{", 
                   RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ")"}], "]"}], "*)"}], 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{"#", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", 
                    RowBox[{"fs", "-", "2"}]}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], "&"}], "/@", 
                RowBox[{"{", 
                 RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"LegendMarkerSize", "\[Rule]", "8"}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"Function", "[", 
                 RowBox[{"pairs", ",", 
                  RowBox[{"TableForm", "[", 
                   RowBox[{"pairs", ",", 
                    RowBox[{"TableAlignments", "\[Rule]", "Left"}], ",", 
                    RowBox[{"TableSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0.3"}], "}"}]}]}], "]"}]}], "]"}]}]}], 
              "\[IndentingNewLine]", "]"}], ",", 
             RowBox[{"Scaled", "[", 
              RowBox[{"{", 
               RowBox[{".83", ",", ".9"}], "}"}], "]"}]}], "]"}]}]}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"x", "/.", 
            RowBox[{"Solve", "[", 
             RowBox[{
              RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", 
            RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}],
               "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{"a", ",", 
               SuperscriptBox["x", "*"]}], "}"}]}], ")"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"lowerColor", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"upperColor", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Dashed", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], 
            "}"}]}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "Full"}], 
          RowBox[{"(*", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], "*)"}], ",", 
          RowBox[{"Ticks", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Sort", "@", "masterSNBs"}], ",", 
                RowBox[{"{", 
                 RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}], "]"}],
              ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{
                "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Min", "@", 
                  RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Max", "@", 
                  RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
              "short", " ", "arrows", " ", "to", " ", "the", " ", "critical", 
               " ", "manifold", " ", 
               RowBox[{"(", 
                RowBox[{"the", " ", "fast", " ", "flow"}], ")"}]}], "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"Small", ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Small", ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Small", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", ".5"}], "}"}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", "1"}], "}"}]}],
                  "}"}], "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{".5", "-", ".1"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"1", "-", ".1", "-", ".1"}]}], "}"}]}], "}"}], 
                "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".4"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".8"}]}], "}"}]}], "}"}], "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", ".6"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
              "long", " ", "arrows", " ", "along", " ", "the", " ", 
               "critical", " ", "manifold", " ", 
               RowBox[{"(", 
                RowBox[{"the", " ", "slow", " ", "flow"}], ")"}]}], "*)"}], 
             "\[IndentingNewLine]", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"Small", ",", "1"}], "}"}], "}"}], "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"a", ",", 
                    RowBox[{".09", "+", 
                    RowBox[{"Max", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"a", ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"+", ".05"}], "*)"}], ",", 
                    RowBox[{"-", ".05"}]}], "}"}]}], "]"}], 
                "\[IndentingNewLine]", "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"-", ".09"}], "+", 
                    RowBox[{"Min", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"a", ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", ".05"}], "}"}]}], 
                 "]"}], "\[IndentingNewLine]", "]"}]}], "}"}]}], 
            "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
       "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.619851609401215*^9, 3.619851679403064*^9}, {
  3.6198518269317913`*^9, 3.619851827078169*^9}, {3.619851863914898*^9, 
  3.61985190417892*^9}, {3.6198525674352016`*^9, 3.6198526127594957`*^9}, {
  3.6198526686413307`*^9, 3.619852684490807*^9}, {3.6198529504821863`*^9, 
  3.619852977410531*^9}, {3.668611963855957*^9, 3.6686119853401623`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    GraphicsBox[{{{}, {}, 
       {GrayLevel[0], AbsoluteThickness[1], Opacity[1.], 
        LineBox[CompressedData["
1:eJwt2Xk01N//B3DJFirZQiiUNkulRcglKoRKJUqSRCm7QvYlJHtCSLZkqVSW
JHlNkpQWS0S2mfcsdsaYMT5Ufvd7zu8v53HeM+POfb9er/t8n1Fy9LC6zMvD
w/NtGQ/P//5eqkieXlrigk386h8H9kwiUpKCqu4fLuT9CYKpFZNI3rPM7uY8
F3ak0J9UDE6g7h1NnyeYXPDszbW+GDuBTF5xC3spXChq8qRH9o8jjWp7m8oP
XNiwGJv+IWYMzdepvXeO4YJJ4sGadWPDKL65JfXbKi6wwzKuFgwQaIMcxfPE
ijnQdivNmfdvR556J09sleIAT+uxs64bwpDDk7nDrZvYUJI4eyzn41eot7zl
p6I8C1W2vHuPP+2HzqYzZT80WSBUzVSM3U6D035SMru2zkDe2r18N/NH4aCW
0pdtm2bAKjJUV7N6FDSm1YJUlGagf+cnl76WURByMSZLys6AdcK9clHmKNRZ
+5RwhWYg5PX0ns4DY6C4t1373QgTzIp28s12jwGDHW9rUsIE/wN1C6lL4+Dv
zZdtvxlft2ufWto2BXn3ZR/mqDBBOKtMxFtnCj7Vajz6vZ4JVUp1Ab2mUyC9
ZFNoLcOEIhmPk7FXpqDq7rNyyxVMODXWddD58RSQTZ/5B3dPw+kj7/U3KUzD
j+cn3h6wnwaawo44B14mPPfPMmhwm4KL3UWk4N9MIJOy5zIuT8G2IP+jNyhM
EF/x8KnX+SlgV2hMOON1+z14JLPJYgqmorNuaM8xwaCuiHlXbQo0bbp/pq2Z
gc7F53m245PgW71my+4jMzAf8oGHc2USUj/t0JV5PgPbPjXVfHeYhMOfe9NO
V82A3erm6yU2kyAWpbIvoW4G3j9q6TlnMglmY8xz480zEEf69qJx8yTwDvVa
XRqaAQXeHodkxgTIZKy1NVrNgoO3J0jbnSbA8Xkf+bsrC8ayedYm203AXrXV
5xc8WJD6StKNfWoCTvoLCivdYAF1SE/23aEJmM3yWLwQyoIonQQvy80TEME4
4FB0jwUfp9WVvcbGISio3crkLQtMznpE1niOw7+2Viq/4CwwPSN75a6OQ/35
qPkHIrOQGZOhGXpxHHiqzVy2is3CaBX0HbEahwJiq42O7CzErRbb3as1Dnxr
rco3bp+F1qYXtMW5MaB9NtGWt5wFS03WIcPgMVC73cx+lDwLum0VE603xqAo
Z/FJQtosbPFyu2ftPgaxfIYifpmzsLxyhHztwhjs8ull6OXNQu3eocB0wzFw
vWsqeb9iFpT0v74c5x+DgwXXbfy/zQLbvFghPXEUzAymBCUE2ECZvNS0IWYU
zoeskQlYwYbviUrXykNHoTtg29JvUTaUtuXUkjxH4YG13JlUCTbYn7p3ctxq
FMB54diPDWxoORd2x2DtKNj0L7sZqcOGbNeznLFHIxA7e15qwJUN11dOW3Rm
jEDpx3eCS25s0HsRWfw2aQT4/9M+KO/FhkHO0zPxoSMgc/b1fRM/NmwIX3qj
fmEEjtLMiSuRbCjKKArxVBwBzsoCt89ZbHjWNCU4lzMMFHu17VLNbAhxiXQY
TBsGfytRlcIWNlgKy7xpjh+GdLuaNLVWNjCPGbpmBA3Dqru54zvb2LCr795X
bTt8XVP7nsBvNtTMaKcErhsGqfgzm3on2ACKkXLLshhwRjdES2M1BwSSt0n4
pjLgWYKmkegaDpgv6xAZjmOA/sviBIY4B3qoG/5+DWRA5Z+ZX0nSHGCVNAxl
nsfvf2BxuVqBA6paC0U7lBigkpAXbLGdA9eL8h8WyjJgF2NF+7QaByqlTNOl
xRkgeNLFJ1GDAwbzGTF/eBlQML+ijLSTA7bv9ri20OggdQXx/rePA/FHvDQd
SugQG8jyrzPiQEetzJbOPDr8XT5vpXyIA7LbSBsOP6BDI7E+OfowB4pFV4ur
xdFhUIvQNjblAKn9KZt7jQ6/ZCJc0iw5MHtu5E2SJh3sUmpO3rHhgM63pFe8
W+hA9dLjvrblQJj+vvIbG+hweFxcnHqWA6JK0Tnn1tBBf/+7Vxrn8fdjqIRu
nqWB116bD9kXOXDW84Ix1GDbaup9v8qBKOrAVNJzGqi1n77V68qB59Z2DxyK
aeAtZl1KvsaBZQdsp5al04CPcpxMuHGgZMXJTOMbNGCVbhuq8cLfL6j9oJQb
Dd4dkGvP9+bAn+ljk3QnGvxOekeK9eHAsW7zgzGnaODqGv/I7AYH5goOT3zW
okFmz6HYXH8ObJD+mJ6F53a+/ve0qwEcMLtjZHhNhQaNtrTyHbc48NDDIF1U
ggblZao8lYEcMNbTMTjGokJn+j+32BAOuFfUjq0fo4Lp7elFrVAOZCrvu8+k
UOHhepP8Puxxod1jKe1UOHDyofb6cA6kdqmn/XxBBen0jma/SA7UmzzVf1xC
hS0fFvX4ojjAeLtt9EYeFfpTnX/FY+8v2Ky/NpkKiVLuoam3OeAoVTwyHEMF
/cOGyauj8f2O3XivNpQKbMkPrbHYZHelEVsPvL4Y9NkjhgPCxKPUbS5UeFbq
mTiAvfu04oFFeyownd5FHYnlQIzuutQcSyqIF0qLiN3hwIvnD/TcDlOhoNA2
1x37t5LM8AF9KvzT3nT1M7aGkJTekDoVAhQ+lPvEccAm8B6jYhMVjo61qn7A
jphakxKmgH3ky9Cquxzo+rmKobSSCtrPJMWzsf8dSUhm8VHhl1ZGYh/2lrci
uh/+ECB4OOiYTDwHgvKFkp0mCAgS6iuKxi6WjNHZQyPAZ+9dvVrsthh+On8/
AfbjwusZ2AsLkUndnQRIO3MsxBI4sNGdV+dJK349nf5lL7YlJYzm94GAYyV+
GbbY/qeWEk3eEhA+eajaH7vgU/B+2UoCiNnxTWnYrTp/qKNlBFgs8I2XY+to
bxwiFxDQtOvmC8Au2WP++1cWARcG/aZ/YK/V8u36nkpAilRSaT929I6cto9x
BHxlGpDp2Bz1ptb6CAKiY8Xvj2M7bZ9orrxFwC5O7OdJ7M4tko1l3gQYH9sa
OoF9UFXvXb4rARoV/q+HsV+qONVmOhLgrP7HZwh7g1J8ZdJZAhwI7ZpO7ETF
qufRVgQkMipDm7D/rusvDTYjwMmK1f4S+7os32PfgwTY6Ac8z8b+La2Wd02H
gL7Gb9IR2KaSp7IddxHgOO8rehm7dk1Quu02bO5ssjH25tVFKceV8X70/Hi8
ATtd9Gv8ETkCMioTzP/D+88nzI7RFyegKv9V9HdsH0H5yD3CBMi+/XA6D5vg
Mw5R4yVAW+bwW3fs47zXA1QWKBDd3lC7H1vj71uPNWMUCKp7Ev4R18PDBaqr
EEEB0XXKx6OxRedFnJd6KZC1/0m9EfYo65zd5GcKhIgzblT9r/6YkWdo7ylQ
/7f0owt282S5Vd8bCnwSSnizFrtoZNHkcykFJMhN99xw/UowVIxJ+RTQG1AJ
lsCOoB5Frx9QYOlcjVgN7ocLg9l7Ht+hgJpBnN4M7he5n7rK4Vcp8PZYUDvC
/XWn/ZKC/0UKuAsI7GvF/Tj//a6Mhy0FzvFOWJ3E7v7ct+q8KQWqtlMqbXH/
pkDgovZWCgjP/DNGEThXviuc01SigG7IfzEv8Dxwr2udUZWlgLFkQIIitnn1
uhHJFRSoqF/HYOL5IVT+9idzhAzp5cHz7sEcCElffFZSQga289a5dj88Dxz3
mm7LJ8MZ1XZDBewjGl608gdk8FORbr98kwNizQy5ijgynDdzhilfDhRy2mOq
r5Nhybvo7xCeny2nSi427iCDltd7SUM8b59toP4x2koG4TQNjYt4HqdOKGR+
VCKDTyMrNwTP63NR9763iJPharX73ZcuHOhz+Xszd3QIFOXrXnEv4XmvWrat
1msILDVaLAXsOMB8t/7iW8choKRkeP3B58Ob0/czGk4OQe93v6VpfH6Y3w7j
+7hnCK6b2F78cYYDXjTrwfb/BuG44yYHj5N4PhYsTx0PH4RX3iL2e8w4cGL9
+f8UUwfgq7jtH8oeXF91YfcGwgcgUc0kzHU3B7yti9RzvAbg4Ua0lbkLrz9h
/KLsiQG47ZnEZGni82Ix4IuE2ACMvWsK697KAaue9GyhxH6QdewXXIvPY6uU
tgOsO33QdSWlMnYZ/nw19q8XAX2g9u4lrXaJDd4ta709rvbBOq6mG+MvG1KX
7IsnTPqgvD85bv8CGzrcJlcNC/bBXNW0MonFBiszYXLf7d9w4lvgtuNUNpxc
bhzxMbwXBvc8yohuxHlKN8HugXcv6K4W23WHxAYz3+69bpd6Yflbiyd3Gthw
kH5lXPJQL6SfsNgcVYfzyaeEU05CvSA9o55/4RUbxO7+Ul2e1AOfyuezXuaz
8b5cazXI+QV5Be1ZX0LYYKycKllf0wVJ20Ouy2ixIdr+jtXR4i5Ql9sR6byD
DZ+zwpJ/3+8C3edmN16p43wk4SH6n28XbN6sxzLawgYbPnO+vVpdELKUF2Sh
wIZrDH52RcVPiHTioj84H6aWBXQWlnSCa8cSrbNnFii7LqbezWqHhfaPn5tv
4vz5deyzgEorCDmZVb4pYIFKCSU8PfsDXH7/6KjclxnQ/lGl9IJaA/yaX/Y+
b2NC2rDo/W/3cyHRSH5pH0xDxCEXsbwdD5FPmLygG2US2FI+cCHiNepw7in8
Rh4H59cZZeUnPiC/au5QmPgYBPD45t6IakVyZ+T9hXRH4CDvJV+/lnbUaeiz
ySidAfYrOlQDf7WjgZDi4dBkBgSKGfaGMNoROX4pG3Buq1Jcrx/N14EMn62k
HwllwCbdPsH7Bh3o0H/L9YOuMEDI92T2q9oO5J5QsvemLgO+040aJ0s6EV3x
+EMSlQ62nzeKOd3pQtfKRSV19Onw/Cvd/umDLrTzElO4X5sOfG3Fz9ilXSjp
dKpWhBYdXnRvOXr7SxfqDqlR7cO5SoCmFl0s0o0m2QKTIEGHqn+7/4wkdCOF
BZ6GM2M0WLX70Ihb6i+UCQr3urNo4LRPYF9NwS90pPcPhQ/npDqdT7f/vfqF
KjqbP+1LocFlQ1OVpM5fyHWJ5FQeQ8PPrxb2LyR70JhRl94XXxpcvXr6Jyu9
By2K1GwdPUaDptzLJL/sXuQ0LS/TuIIGGvzLfpSV9SIDswrFdn6cm67lDAy8
6UWBK1YF05bR4Lp254JRTy8aPnTrqMwCFSQ7DPaISf1GV56K+VXhXHSJX76s
JPE3ejJobvr+KxV4r3fc6w3vQwxz0m/9NCpc73ArEE3pQ5yz4d0DOOd0a694
ifL6kOipc0HhCVQo4zf4/rihD23JLGzrjqaC1aNnQt6LfWjifCz1TQAV8jti
g4Vv9CO9xDrWJQcqGOxHLrpXBlDjXMhr251U2HA35qeS3wDy8NxIz9OgAs/A
D0Oh6AGkaHduYGI7FUhhDvJdhQNINUFj3z1VKqCW8Hb3oQFk5WH4U1Ye56wz
TboF1oOobam9Q0yICoqloqWxlwcRScDi62N+nIsWTkl7+A4i/USF12g5FRpy
6Uzd1EEUp+zpGvGPgAMMgeKub4OoP+DVXSMOAXo3TMVWHBpCayqcftVQCZD/
lBI8fXIIiavNCeVQCPgj83usy3EIaWjnW0UPEVBf7/qxIGwI2S/j7HPtI0CX
L/6WXv0QEvNyTfTAueehqQvrtSwZ3Uw5dMe7iYB4b5Gt25XI6IybxoWyRpyj
sisu5G4hIzKD7TNMIsBukvs1ah8ZpdS0XvJ6h/9/SuyTE6fJiKD45TXVEJDT
U2o3nkxGTK3Ip644B5Us3aTwPCAjDxMJ/Z4SAqpVjZ2l88nINvPpNvMnBHz3
HfQwfImvf7RTOlJEwLI1EpEZ7WQUfcKh704uAau0yYLPesnIUn84e9tDAuQu
PItvpJBRkLxuW3s2AbufHUmfnCEj/tjyPK0HOOeYBpUaiVNQrYzdvkNpBHh7
mmrYylFQZgJ3QvYeAaEZ0pXuyhTUXaqiyUkhIJP+ov7BLgryqEy6DEkEfAmn
/5i2oqB5QaeZgrsEdJe8OsV/joIaqnY6PsW5jPojtFfuEgX1N5z0r7+D91tB
jnrIh4JUmufymDEEaNZZzmXfo6D6h5d1SqPw/aKsC3yZTUF7d0WqjUQSYCI0
utRcSEF8v2v71bEdrSNXsCopKE3/e+S3cALcg48nCtbj9Y0Mhm3GDixSkFBo
oqAr4VdNYsMISGO9ljf5SUEBNpZG9qEE5Mnezj/fT0F+Ub1BnSEEPDOwUvWh
UdD7AIOEY9h1LuvLYycoaG1Ftl9HMAHNiROauWwK2p+9HNlhd1S/qar8Q0GM
qmTGRBABQ/3R+z/zEajf+5xXFPb8NiUjtiSBCmtEDrQEEsBnNfVphQKBWFuV
o3yx1wS8NV+/iUCx8j11m7EV82Lbd6sTaCP/YRoF59Rtn05bm+0h0O2zUcsL
sfdNKfddOEAg13vl665hG0sxL9w4RKA01Z+aOtjH9d7R4iwIRIqTNhLDPn8p
7mreaQI933vXZjKAANe4M1PV5wmkmG/m04598+VGn9bLBPpu4JZejx3ZM8Ml
uxEoJF7k43Ps5KWGoLkbBJpYOMBbgp2jGr9MNIRAv3kVTvzPpRa20UrRBOJb
976qArvGV1VkXyKB1OoO7mjAbsyeTTJPJ9DqM3XNndi27Ge+vx4SKO4An/UU
NtP8iq3jYwKpzs7KrsbrjX6srD/5lEBc+ZVSe7EV/vUr+1cRSMKh0/QSdpV1
huDyegIlXfxSl45tVnFiIuEDgcKab7i2YVMERdtlWgn0V8v2nBjeT3+H5urC
DgLJHptPssZe/SYsS+M3gcbru4ULsYvX6Ia+oeD9V/b/zsHWc+VcMh4lkMAm
hwFLfP86GytMfjAJFHBVXOc5tus6V/Wz83h9aeLDEvj+8/huFKcvESjdnMYI
xdbY9KBvYRUVxbGFR11x/XwMPkm6LU1FwpouzFFsu+6Vj8UUqYgnrvCUB66/
OzER7qrqVFSwp/VAAq7PDWS9ky93U9GttnefNuH6rdHm7tPToyL5DY9qm7Bp
o9eWWR2lIllvvV4pXP+3Dqoy+q2oKLdhaWUL9pps8heXs1RkfIpUGYb7R9/8
dFrwVSo6Mn3Ejj+agAfP9TeXxlBRBKvbxQ733w7B/0R2J1GRY/qY60Hcn80X
KpkN6VS0+qnMrAbuX7bYlrqfj6low/uOnHUJBFj6rLHgacLry9uYY4T7n97a
uvNuK349xWuVPX4OC9oYLS3diddXPycbiudFadfC0HaCika6qgW67uP616Z5
n+GhoYZij+A2/ByXnZx7hhCkIbvPQ0vrc/Bz2aiNnttqGpKvKNK8iefVhaxv
/JGKNHTaRjd/bx7uxz81mc/1aIhvB6+EUDEBnu/vNPAH0JCAi6rT9CsCNsq4
zewKp6HoO3rhbVUE/HI/vtHhDg3Fy+UWv8HzVV9+bVzdAxr67i2xtqiOABG/
otMedTRk4nxzpBfP62I1mOhZpKGMsky5rz8JOBtZsF6Aj47itT7oaf4iYOXv
21ZaonTk3uWfldVLgG+MeW2CPB0lW56WihskwJDojTx4gI7CwiIcv44Q0J/B
lnsagq/v3rqFgs+j5KlfFr3RdGTwxTHy8zIqGB16GyaQREcHVVws6vBzeRkr
nOHwiI46VuTpVAtTwc9i9SspEh0dl4joFFtLBfHl20xDlzGQ5dWIrxfx+Wri
fsHPKoqBdj6zPBJ+nQrRc5rCnLsMpPyjpHu/JxU+hPA8zLjHQPUjUbILPvg8
Tcpv7C9gINKtnU0pgVTY/YK60uU9A8U7XJxTuIvPa5ZLUeA/Bnrpclj6aTkV
5m94thf5DyM9Ib/bL1lU2PvPwOlI2DBap5qaeplLBZ/oNdzRmGHEs1BQrPSH
ClPpr+Q1M4bRU13JqZc4r9Bes13eVA+jVW46RlqyNGj7z//fN9Ywiq8Hy7eG
NCgNDt/OvT6C7F8tbZ/NpEFBYImbj+8I4mOsOZWcS4OsgB8V04EjSIseFLmn
iAZxNxR2j8SNIM33O3kzK3D+cXuj11syghrNGR/eNdNgx/kZi7e0EaSazQlJ
nKNBrd5Fz1C7UdRyLkrQ2g7nPZ3YV4uXRpF/evbAvCMdSrUr2H7XRlGHb8WK
oqt0yNr919/z1iiKyMh3k/CjQ5Dag/CLmaNotj2k1DqVDgby7alGP0fR/PLM
tV5f6NCyaFAtaD6GnArllwkaMmCAm3xI9dQYMvyJChxMGcCaJXcZ242hi3Ys
96YTDJCfCJsLvz6G6CIpGWWODPDqJ+37Ez+GzOSig2eiGCD3zqCO+W0MrYvp
OXu9lQHXQwyg99g4Mtlz7ZiawzCsWWbwufzkBDoT87QxqnQEXmgEv0HnJlCf
uCpfc+UIHLerK+10nED3xza1iTWMQOLr3XGLXhOo4vr4mg8dIyDqvvXo0eQJ
VHOAFZn1ZwQE+sS/jX2dQA0bJc6vtRqFhSp629bDk8gprbH+LN8YEFfu9jzR
nkKSLv0L6dHjkJs2Iz1oMIVWHw9qv5A2DmdJZ05Lmk4h95tWObsLxqFj7caO
MNsp1CWbs463YRwam+tbbW9NoQ6x0HXqc+OQv3GqQaR+Cnlfs+Z+vDIBDuTj
jz3QNFqlRe6SPTMJ09tF3qxTYaKzK0SoSzbTUBY0WqGymYn6hWuDk69Og/O3
T8XbtzORCUvdWf3WNPS7R6XpajFRTUW9Wnz2NHx5+dfjnBET2SRdYAwMTkPx
PqZq9iUmWi/XdH5Miwn2Rl1pckVMNPJzuDr1PRO+nn3kKbtpBjHmPl5bmp6B
ybreTR+kWMhQ1i69wJUNhYNaeTVys+iJl8fQ0RguPNTaLWO9io22mEa6uv9e
gDm0PHD7XzbaWLpnIj36H9BWswrMeOZQyaNrtfahy0jSa2JapFhzqMI6RUyx
YzkpaZ+Kl8XcHBLw0LcVHFhOErIH2dsLc2jPQ7VrnOHlpMUyriubl4vSnI5P
Df1dTiIbX1nZKcFFlPdWcVNb+Uil/qZWyXu4aOzL9kFWBB9JjyzSLxzARY61
fvK52vykaoGSqIPBXER7fNRQ2ZifpKFurH4rnIuMOOFHy4/xk5RuBYWM3uEi
ReoDia/O/CQByckNLVlc9EZB8q7JfX5S25Hvl2/XcxEor+tXn+Unmbq7rnpH
4qIdIqkkniV+UmOawGt2ExeFLwZm9ggLkKop+kJO37jITEFdNUNZgJQVWFF2
cJCLJmLy249ZCZAkCo6evEVw0Ui7hauZvQApvmV48SWDi1pu3vhr6ipACpHa
YKE0zUUvF+qkbSIESFzdeo7NLBfdmsrKdU4UIHk62uQmc7noifOtjbeyBEhj
sezDLYtclOWmU5paLED6/98v0fOV9eovXgmQ/g97ojGd
         "]]}, 
       {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
        LineBox[CompressedData["
1:eJwtmXk4Vd/XwCUVUakQQoZGRaWBSpZQUZKQKGXKtzJlKqkUSUrmZMwsoUQp
U2oJGZPx3nvMdzLPkitD3vN7nvev+3yeve8+e+/1WWvv8xwZq5sGNtxcXFx1
S7i4/vdrnR0ytrjIwR/jD5MWFxegJFhy65F5Dvan54mZDC6AhFOm2e0ZDu75
PRhY0LIA1D3l1cPjHNSPPGkTmrEA2h85Ka0MDg4G5LxLNlwAxc9XTHLLOLg9
XdVXI2MeZop2ff/Pj4PFzmIvHS/OQUBFVVjdag6uGyob3dsyA9LiDKdzfNPY
6yvLiC/7DU6qhud2CP9Bs3BTSU3+MbB4M32idssUPnH+bX4xug+K9e66y8n+
RuPtYybRbnRoLr+QWb97Eo3UFzNc1Chw3l1YVGnHBKpM939TeF0OGvtkauS3
TOCdk2UMbeNyUBzbdV9OZgL1A1P3RK0oB95rWnQhsQm8vslVptm2DIqMXdM5
vBNYdZt7pmBfKUgdbFT52j+Oe/z+eLrGI/ROBZhqp49jydecalfTPLjjwhN7
ZRvJEt0pe2ZeQOJLsbhXciRfzecd4QuDygLFhLZN4+h1s+LEokQIiCyapBiL
jiOX3Flp7aCn8Ol51ls9PpIdDwRGZbkAXSfrjid1DNWfqX6ajHqM9e/PfTl6
ZQwtbvxbPpuQgu/vxKh/cxjFkOIa24Zz+UgviZ2OtBlFUbFlojrf83EdX9w7
58ujWHD+upz1ngJ0j04Q3XJmFE1+bCm6t6oQ1YtSx5/vGkWnVmbWsbIibJ57
n2g6NIIFWVGMg5LfcOZBGdef6yPY0FfOV3y8FOUry/N+WYyg0x8BWpp7KZqt
qbBPNxnB8tqLA9YZpfg9oYq4pD2CIQs/1pwXKEP/krqc0m0jaJSyqlKooQwl
uQmLkN5h5Lo6NyN09gdq+A6X7Lw6jEZSEsrOO6twMJZrQ4jZMA4LFIjWGVVh
2EchhymjYSQc7npxP6hCVreq2Nfjw9jy6Av/bH0VPj4c6Ky3bRh1uxWUJF2q
8ceYgqzz4BBKB9dUqGbXoPbFmz55TkO4a1+c3o5VdTju5NMqfoNsj7acqt5b
h1F+kbsfWg6humG47XHjOhz4hO0nDYZQvyRw4md8HfqvEdzfum8Ir1rX+29S
/IW15TnsuelBtJh9PNl+vB71dk8eP+Y5iPq2h4bm3zXgkYbs4dpbg7inalVB
bnEDbnd2eGHsOIil1+SOm/5swKW5/XQ780G8Luub6zTUgAUHu+9FHBvEUz7H
bzRub0QZtZ8fhpYNYmZXo8eVxEac0k2TjAgawApjQrn6URMyRqzLpf0GUOSs
zR3LkCb8FSRj9/bhAM6qVgsNxDVhRsOrghKnAVye89StoqAJrxi9MBwyGMDY
cV6TopEmrLrk9Ux9wwByV24d9zdqxljbi38GE/qxRC7SYUK4Be1XjZ1pjuxH
TXsRZQ/ZFlTN8Un7EtyPnw8tlRlVbMGuP+8uBDzsR65v844JJ1tQ2nuxUMG8
H+t6DZKk77RgamTqAyepfnQLfPMrmdKCWeWjK6Zf9eG2xobyxkcUfHDNx6Ir
vA+9E/RT+QIpqLdStLAioA9nKmdsd0dScPzsMdvI+31I846u0HpLQaX2Fz9V
zPqQs57LJrKJgnkTKqH3NvbhlK9nFkOSiijlI74kphdnNUR7D7yh4vIQ+fVu
Yb1oFNC5+f17KuouaeLv8+/FaPEivQ15VCRY0gs/7/WivXafe3E5FSfTv3VH
Xe7F+aLzWQYMKm7dN5u6R6YXd/knrc7dQEP71KS4FLFevDF6wkxVioa5wjoR
Iut6sTCpuCdvMw3VZyL95rl7cZvKyZKHe2lo+vWAbRW7B//8kZCxPEXDgJPO
uy3Se7BUc2DuPw8aNhWIbm9O7MGXNovWyx/SUEy+RPpEdA+m0+NNIh/TME1g
zbpd/j0oviV9LjCYhiWN76Y4dj04V7At71cqDX9f6i8M3t2Dq2L//pf8k4aH
64I/cm/vwV2Sa/+YNdLQS0357S3pHszjtrPgo9JQQObJq0trezD6sBBLuZuG
W3vlHm77zUbr3V5bhsdpeNHJXAvz2GjzpYM3by2Bj1mdo8Hv2agfc3sJS5jA
98Zm0RZpbLwR6f51UYzAJUdNR5dEsPFDq1U0ryyB6XyGUVq32Hh9oTrcZC+B
TfcbNYQd2Biu+9SM5wCB82NnR3qusnH5S+GNiSoEnqXqavgZsVFrUT/iDRA4
nXxiuHofG//lHzzE0SVQWuRHRMxONm7WN7GT0yfw1DPNY3ZybEwvzqkEQwLj
bqpHCKxnox5XkaiOKYFaqofVz06ycDhHrCH+KoGO2QWDmwZZWGHbueLMNQKj
ZJVfjjNYuK4F4oZuEDjEu38wtJGFL5LDZ/86EhhGUQhvyWHhbNaNfWZ3CCzW
fqf2Op2FalarBYLuEtj7RX7gViILVycV3sq5T+Ch5G1qG0JY2PqWJlzpRaCV
cFp/nx8LYxw3m355RGDA080vCh6y0Clj58nExwTSHWX6TW+ycNBN8qjqUwJX
MhPC5K+x0Giece73MwL3n5c6OneFhRYDQjtjnxPod2Rj2Cs9FvYyPLS+BhGY
8z5a1eEEC7ezfUOVQwhskxHtO6rGwohDn4qTQwlU5BVW7VZg4ZPanZWnwwk0
ufeiN3sLC3/+08t99pLAR6NrQ70kSXbRjiyIIJDSsrpXZhULvVa6WAxEEfjv
ZGDIJA8L5zffNxiKJnD7F/4jZfNMLHIQNO6KIfB+Em/I1WEmhrg/fxv5isA0
Ib/DB9hMdNitu/JKHIENfst6lnUwUXzp6XDheAJnZ32Cqc1MnBmZOvuN5M2O
3Iff1DLRcShP0ySBQD2GF9u9jIlt0wu3WCTfMVoM0v7CxBR+5RHzRAKTKz0P
ieUycceW+uw6kmsPz7MGMpnYoLavfFcSgYdVNnfTk5n4UXqm9R7J6Qd022gx
TJSs/0cpJnnDPjfKrzAmMt9e+jZG8pM9rxp++DOxUVQuWiiZwD8K5bXFj5hY
4H7DfifJV3cOV+TeZeJ1eU21/SQ3bxcqzXRhYlZYudBukjW2qn5NsmWiyTru
6Y0kf5C7WhBlxcTD/IL9s+T40jIBucEXmSjVzT1RS3KQ1Kf3TwyYSB0bFQkm
eWFjR4bnKSYqJfSba5FsL8bz2k2Dif/0eJqGyPW1iexKtDvMRAFLY1dfknWE
jGKtlJgor/xbZy3JBWvvR5jKM8m6NHYpmNyvbWtSQ/VlmdiUdyV7kdzfCIGf
ASfFmTgvZ3zKimSelVN+auuY6NwxoJRPxsd1hYTPgZVM5NZQvPmPjB+TR+vB
Lm4meuUpL1MhWZ/b3kNuloF5seJz1rGkTwtfbq4dZGAIfJN6QfoQN8uy5WUy
sPH7G5MI0heBGf7/FlsZyKdavDIgksCByUtmI9UMjEnIH9MjfTMZ97nA/s7A
MN1KRQnSx4qRtwbthQz8esfwX3sYgan9c9rVGQwcoihd20f6vL5XTqskiYEB
Ne8FaknfH7FOQ340A+N+zFw8H0igeVfsgdfPGKhnrL1Sw59A8ZYjst43yP7h
glfu+xD4rNFa8o4lA01uKk9leBM48+u56E1TBq42r7eueUggtbp99WUdBrrw
pPax7hEYivfmVHYwsEZs4667rgRyfU2Z3i3DQH+9ZSrgTNaPotqJrWIMzE5b
qsch64Pu5439QnwMvKwdlKNuSyDv2y8t4/10nFkqMqtiQeCDiLms9HQ6Ok6U
j5frkPXA6qCOfBId50etN02eIPCkojP7bTQd77DczYS0CBSs6BXP9qfj+ocF
wipqBKb8afT7bE/HGJkPqxfI+llllG5ZuoeOduJb7Lw3EJglzZrX3EHH2tet
DUuEyHo1LBn1Q4aO9uaDL9wFCbz0+MWvqnV01NjZdlyTj8D2awu34we6UbRi
BevSLFnvt2bKFzh3I221umFEGw3Hv26y/GLVjZvjPLscyfOh8PzLyG+G3cgT
+k/4aBMNdX29eH4c6EY998dxRdU0dGYbdzX+7cLurk9RhwtoWJy8NGzIuwuv
SZ8JMXhBw3ObLv+VCuvExkQfvmUaNGQWeb3o9O7EjhXqYttUaehinKrwyrkT
hfo3fj16kIZhgUOWYuc6MX/D5TZtefI8nPOoWS/YiTpnlDbS1tLQgIiI5Q3q
wOVdIcqtXVQ0CG04OvmsHadnrvYmOFGRuWuKluPRjudO9WZa3KCiS9UGl5s3
2nGVUvdPESsqhi1eSRvWbsczVVYa1oZUbHIYWd23oh09dnSleB4gxzu1kt7u
24Zs/9WlXzkUNFyq9eiHdyuKKLy6HelGwV9HAs2iXVrxeZg5PcmegqfcqAcd
rFvx3THjzylXKajRc31I6HgrzscafQ40Iu8nlYFGV3lb8a8Y7dXcPgoKPqdt
XRpMniM83I81J1rw5zq7WvVXNNxEt/F5Y9OCWrJhQsV5FOxcKlrTdbAZn1x5
ZnA6jYL637o3b9jVjNUxXiFtLykYsPrUyAmZZtRbf1PgLzmvQ5NrGAH8zWjC
o8tzkHxOpGHKytzuJrTrXTaVnd2CmX3zGxyfNGFYpkdzSnoz6iRIvftZ14gM
Jcuw5zGN+DzuIEQdJ++fPwerl8vV4uPa0JrKwWqUS2d4R8SWoUOeauDPLWWo
Uv9JJoeVh+UnpOton/IwvE/gZd3LeCyq9bRpDIrHR8evCSbuiYOEyLsxgfJx
MCXsiuaP8mHSBb3iz+bDf/mRmW/PlQHjAfMsN6MUPLjc4m89rgWTmbNjLLUa
0OC2dnOvaoTCrbOv5q83wBW+pq33aI3w+t0LUR+3BrgneKz1QW8jxIcwspd6
NcAnqU1qT3iaoOvsD8nfEQ2w5Uj7ipfqTUDNJ+z8yxuA180w9mNBE/gGB9+N
kGqEXz2apSPpzRBhr5615FcjmFZvFrz6jAL+hpW4WqwZ3v/sufIumgILrMXG
Grlm4GlIy5rKoIDG4hevB4rNkEPdftq3hgKf3rnG/NRshuXsXU/S+KngV9K0
aqljM3z6t3++P5AK2/K67JpLmmH1/uP9DmE02Lvz9XeKeQtcVV6unJdMgyZO
r5zHjRYoOlzp++8jDZYuNTRZ79oCNsd05IKbaRD49orUrict5PvrmSs5QgQE
yB50HH3bAjdunG+ZjCDALswtPOdPC5TH25S4x7ZCZG1a/j9vCiguW1KfmdkK
dOFHmXRyXVF2rzo7C1vBNrJ8pDCUAvYqzbOaRCuESQ3rGyRRQKhJ/YCgcBuE
nCMVLaGA9TKJzPSgNlg3cuI81zwFuO2bXrR6t0O4oIXSMgcq2Dc5JAuEtoP7
VOfhSlcqUFX4PkBiO2hzy489vEuFzGXqv15/awfBu9EnKH5UMEjI4nWZa4en
o/XSa5KpkNT01HPlrQ4YCLTj/tJCBfVDcO3I9U7oKGbeqVeigfRzvxYZ907w
ro6UPKZCA67O+mO8TzpBbnKHQsZRGpR4WUhQUjpBKMTHw0ybBlDl3ejY3QnF
tZfh7GUaqF0oP5Js3AWYqaph6UsDqQyBjKc2XcB4deKssj8N/s0aidx06wJ2
4GuPpcE0+BbfM34krAtO23CtfxBFg6O9y9ModV2QkXevYS6TBqq3dAT5jnfD
Ud0Nh4R/0UCiMtRzzLAbVA2mKKeaaDAv2jZIseoGnsPxGrepNCgutv2R7NUN
qW+m3d930eAIT8Bd1eJuUK/ir00ZpUGczrXJfDE6uPmdp8QJkHF14d+xU4YO
H+t9digKEnA/Nts8fjsdEjqmF3PXE2A2wvn5WJkOakd1pBPFCZAIffrm3Hk6
xPWOp/3dRsArIsNsKIQOXhptQVnqBKQv3mZwRdPhkViRXZMmAZ+3av0nkkSH
9x5+YYMnCPjl1nXz2AeyfdO211O6BCxZu94nspEOhiuk9940IWC1Cn1FVisd
yhXW5ShcIkDcPCuglEGH6862J7svE7A/62TEyAQdjGOepW20JuA/nfsZmusY
MH5nu8eMPQEuTjqKpuIM2Bs8sersTQIeRorkOsoy4JNx9LMoZwKienKKo5UY
8EjzuwTPbQJqvHvqxwwY4BQjuuzoAwKo6R+Nll1iAFvdU07eiwBW/cNWcWsG
vNl1iMP3iIB5SXHWcVcGiEv9fp3kS8DuIr3p2BcM6HMUdt0TQIAqY+O9D7EM
+H28LehjIAHavAOLFSkMMJl2VNwWTICVsQ/fZC4DlBW06H2hBDh66getKGZA
LiHbu+8FAfdSJddLljMg5M2qCy7hBIRP5ktotzDA8a+mZQWZd4livkmXOxjg
kqQw2h5JQJa6wVZXNgO68szrWFEEFF3b9PbpMAOUdDNmOqMJqAga3h0/xYBR
19YbNTEENH0u/JQ7z4CX6iieEUtAd8eTQ9U8TMgo37Hs7isCZuRlNKeEmCB+
tNphMo4AHoPRSj5JJtw3ftUdHU/AWo8vupu2MEHfeY/LvgQCpBKfNu5XYIJY
otEmJFm+8rzxqQNMMP5Do6smEqA8KttufpQJAT7Pct6RrCU8bn7rOBMOXVZ5
ujqJAH3Vr2z/M0ygh+daWpF82dr/RuJ5JvAcrTmYTrKt/4XRz5eZsOX66SV0
km9/2Oxaa8OE8u3Lv/AlE+BDTHDoDkywCa2+vIXkkMVv96dvMeHpp6ssJZJf
bQ1YIvCACVmpacf/xxlnTJ/IPGHCBbcrD+RIznPbyq8cxATeg5f8lpNcGvs7
WDeCCRrzdhfbyeeZTmW50eKYcHo3cSSN5HHd66ZWr5kgVD6Te5XkJ69l1Ube
MUnvKr6KkCz5r0P2zicmHB48ZFRMrveTceSKpcXkeH2nXc6TfCr73HBgGRMs
JP+sY5L7xVgh0Chay4T/NBT3WpF8x6Lic0oTExQFxisp5H6vKfSKUWxjgv+e
fU2qJKetPfKwkMGEszbjpyLJ+Kja/rHWGmCCkYW0Qg8Zv+bSbO36cSY40r64
biXZdqOtwsUZcn5eX8QukfHmctu8rmeRCfvXior7kD4obolun13NgjPfa4Sz
SH9+eBqW+IqwQFd33Yps0i8z6qrXglIssIyIVksl/Xvm98hxqwILJOCU/XXS
T2m6quGH/Syw57MxUSb9zVPhKKuqsmCbbfLtv6Tf7AG7JQanWaBYce3ABdL/
uxpbezsMWLBZgVE7SebH2lh6zbWLLCCWWHh5k/mjpns+3PMGC5pq9XffeUZA
9Hu1bRl+LLj8Q0m0hsy/PSv+8u8PZkGsJ/+6f2R+Vpjnjn+LYIGGQfaSLQ8J
mBLcXtTymgWbth95f/oeAXqua89wlbPA7kZk9pwLAT21tXuf15L9++drKpzI
erf5iYhIMzk/pd+5jx1JPyiz3TuZLAj959ZG3CD9V2G7XOBiA9tsyQjDnIDY
kPgLzBVsSN8g069B1iOlARNVhzVs2K4b+TTiIgHmMXXLfKTYkPf3xmvh82Q+
zudFvVdlg8mpju8uOgQ4fX/2bZkHG4w6XmxK3U3AZlGHCSVvNpyPvNbD2EkA
zVF/s8UzNpy8lRqzZju5HxIb/Iui2fCjvLDwsDQB/O6p528WsaGx87dI/RrS
h104TMyxQel89sfBIRpc9EnetJynB7Q1Lzpu7qPBqjZfg30CPeC7OPrxDJNG
1n3dgkCJHlBfdfCrI0GDY8xWH42jPWCe0S47WEaDjsgp8XcPyPZjQZElkTQI
GaWdaX3SA93CGxljoTTQPP7Fa3lwD3RYrzuzOoAGmZPevRYJPfA1ItFF1IsG
7mfWfBQu6QH06VC3vEaDdUvldR4u6YUyWrsekuertqO5u8HjXvh3VtPUq5gK
T6Z3r/zzvBckBYIPr/lMhbIHXHGRL3qhj6B+CsqiglpwUmlHci90f/I0N4+n
wv4c1qpr33tBe0By7sRDKkhPXku9948cr83wi7waFWZuOTWm3umDgejJjk05
FDj4T/3qSa8+kL9SXJqfRgHXJ2s5A359YJ4XEwNxFBiN+CixO7IP+PYV8G/y
pwA7f+pa4ec+0Gyws5SwpkDD3zv/6ib7QGev5SmBdRTI8PTeybHvh5TjjOBX
1i2QfC/dwdWtHy50FYOVSQvEeNRnj93rh9nuXvqGMy3gf0tyf79/P3Bv92QZ
HGwBe4dC1db0fugUFLJYwdsCey5PnPnC7gchtz8DNuS9sEDV0umh2QDUT9II
akcT5Bx++nHOegBuembsCq1vggyV7Cl3uwEoLvFuOVzaBDH7F+443R0As3tx
AmZvmuD+rmhvy6gBuLucFU5xagJ1icYwzZYBcErOKUjkaoKqOfXPK3QHIcr6
TY/b+kbo5IQc32o0CF1LLFO+czfC5G86RctsEOIn5vhmJxpAYthr2tt+ECLC
vhUoNDSAc0eJ8nzAIPy81TKc8LwBxL+qF43XDYKRivlVo4V6sH+gjq1nhyDx
oVCYUWYdrF2iXv3WcJi8d675Mfm4CnIUPQvh0jAY8e3AkUtVoG9WlNFsNQz2
mTuCS5WqICh/v/+c8zDwJK9/+re7EgQcd5w+HTIM/ZdnMFalEpa3r6sb/DkM
Vd/dLqUzf8Dsp56GHSdGYM/S/I4YsTJgXn9OvFEZBbpTQpWhTBHEh0+IdKmP
Au+OxPWrcgvhYsmF80I6oyA4PVr8n1YhNG3Y3ORlOgpEW1LprE0BlFYU15re
HYVxWf+y5NQ8SNo8+o2/mOQz9ez2NblgQdd/fRPGQFqWm+Fx+A2M7eQv3Cg3
Duq+xqy6ylDMvD+QLbdtHLw+T6swWl/gf3WVaTt3jgNXSu7JByMvscPxcfiR
feNQov9c7IJYDNZ8WLh5SZPsn/x7a+WxJExTHt8aaz0O9HFPj/2NGXhFkxIu
nkr+//Xst01ln/HnxQQnsS0T4GTlGPTHqBxHilq3lAlPQmpRsPMK4RZM6dqX
mCf+G6SCRk9RNekYt2+/qPHqKZA+KmK5cbAXp2HpvZ0LUyC6cPeqvcYostdM
Jp/imoYCoe48s+jfKLLWr0p4choqHslfa1ebwWBlOecz09Pgmvt4JstoBnmv
oJjv7DQ0rbGU8LedwblMju0UNwdC49NlzSNmkK51fVXzeg7Im2ZdvD86gxl3
dAxCDnDgqJ05t2/iX1Sl83es9ODArhOcB+38c/h5efpjDU8O7JVJqGLJzqGi
gpbCXW8OjCJ/559Dcyhz9/6DgWcceB17xEH5+hwuFxqRrorhQJvgHrM9P+aw
4eQvG99iDvSKq/2b9ZpHHUfb1V9LOFA5tLMyMWoeS8OX50+Vc8D25+Jt/Zx5
/MxQ471ax4G5NVZhdd3zGHMvO1OjiwPqPacG1GAB1yefNrzL5MAhjxTx/RcW
MKCqb+5DLwdmSifV991cwAfC0mdkxjhQU+PpejZhATlHiv+Y/ObApY9Hfezz
F9DJyiQ+hMOBvOT5oBf1Czj4dOpE1RwHXuXcjyrvW8D//34J///9Ev8Pxw+9
/Q==
         "]]}, 
       {GrayLevel[0], AbsoluteThickness[3], Opacity[1.], 
        LineBox[CompressedData["
1:eJwt2Xk8VN/7AHBKspUlKiJJUYp8SmmRR6KISpbKkhaiJEtR9myRCFF2ipAl
JUtl60hlKSUkZJu5d2aMsQ1mTKH6ne/r9ftrXu/XnTn33Hue5znPeY3SBXfz
i4v4+Pi+8PPx/e/T4UX85L9/PPR8Wa16aZmgXn2cgsq+BR6qv9x9uf+poJ68
R5HdjV88RIudeiKWKaj3Q/NDyxibhziUR+K+kYJ6RmW8J71UHnpna1keYieo
p1Fpf7r8PQ+du5z26MRSQb1f1VvfOUXykNrXO0+Hzy7Ri2lsTviynIe6ROwt
W+QF9NbJUT1OCM8iOH3vy60H/HoeOhYnNstwUSMn12jR6F8493T20OeNHGRL
To0s2z4Ptcf8biqvn0Hv37o7lTziQeeHU0Vt26ZRydxNxz8VHLC6KbN6++Yp
dNa4y1Nwbgr0dyh9Uts4hSITNX9sZk+BxuTWAGWlKaRfK1ZvwZgCIWcDirTs
FLodq7K2pmMKqk9eL+AJTSFP31893cVTsHZX++46JhuJhnVPHT47BQxOjLVR
ARt57Uqc5X1ig881gXR7VTZaeUz8d6jLJDx+KJuZocxGJyV29UvYTkLTG41H
PxXZ6NkdFbdCk0lY+e/0k5Or2aj2vueDua2TUBFdUnxMmI3E6kXy5NkTQDEu
8Qn8MYlEHRQLz/hMQNvzEzX77SdRmltw57v4cXjuk6b39uoEyvqT5BRJGQVK
ffps8sUJtKxs0iylYxSkhDOfeZ6ZQL5HwsQrP4zCzdRHqzcenUC3M4oXJAtH
Qa86lx29dQItmtuha31tFDrnnz+2Hh1HvlCXLLd0FH4FvefjXhpHOmtueZrv
YYFa04dXX8+No++r1N92b2WBnXija8HpcQQ5qb6X1rHg3aPmHlujcdTa9Xfb
s6UsuFv/pbRBdRzZjm3Vr/0xAgqLes7FM8aQZsDLnQs3RkD/9lj9FscxlH50
swodMYGVzrcq3m4McU80qMdWMiGhTPoqx3IMVVe1d+oVM4Ec0pGtMxxD/l78
Uw1JTAjfe8/zmOoYOjPgqLrXjQkfJ9XXe7JG0aWX+/Wn1zLByMY97JXHKLoo
ZLzuZuQwsD3CeuUujyLmRPfssaBhSIlM3nbr/Cg6p2ciq+k9DCMVqO+w+SiS
p8doL3cYhrviElq9O0bRqQCd+3tgGD5/KKXNz7JQysrjN4/8ZsCxbdOGBwJZ
SOixxV99Lwbs+/Zi7LM3C632HEl2dmXAJs+riSfdWOh4tn37A0cGLC5nUq6c
ZaGF9+pywlYMeLNryD/pAAtFJx5Fp3cxQEm39eXoEhbqu7hUO2GODhzTfIWk
2BH0ZbNAj10UHajjDh/WRY6gvJK61/GhdPgaq3Sl+NYIKn8VPdLqT4fCbxlv
6j1GkPqf4j32bnSwt0y0GDUfQUT/6GGaBR2abYOj9FaNoBdT/fP+6+iQ7mLD
ZT1iIrP3G+qaEQ1cl00e7UxmouWKF3vCq2igUxqWXxPHRCffuDkcKafBIPfZ
qZhbTKQ561k7lU+DdSH/qtTPMtEn6iHll7E0yE3ODfJYy0Q3YjPE2GdpUPJh
YulsxjDKGIu8f1qYBkHOYecGHwwjjyXN2ToCNDgmsrqqMWYYaU1df7v5Hwns
4wdckgOGkcGDJxKKXBK29yW27rbD10083nlTSXg1tfu+/5phtCvhv8xvNSSg
tWFy/GkMVL6DFqxykwTBeLUVXgkMJBgXct7lOgmm/B2iw3cZiHY4sbXSnYQe
ct2fVn8Gmitd0Ha4RMJ0wduhlDMMVHbTUGG1DQkqO+ZyNZUYSC7+0diwLgmu
udmZT2QZaGGg1fDJPhLKZYyTVkoxkKWAFL/TbhL0fiVHLixiIPmq1kT+7SRY
1+10aabR0a6f58n4jSTEHPbcdq6Ajo6Xz3OXLSeh483qTZ2P6cgph31AV5QE
WbX6dYdS6aif9rjJW4iEfDFxqa136eiJvvyNuUUk1Lc/4/Cu0FGZT/9qm18E
zNgyq+K20VFR5HU9DxoBe7/ElS3aREdpjc6/pQgCgnW1i73X0VFXZ/X72iEC
xJQiMmwl6Yim7RS6sY8AFYbyLdUZGgrar3nepIMAG4+zBugVNi/EnfGOgHBy
YCLuOQ0JCe2caUMEPD9pl3oun4YCorQevqsjgH+/9QR/Eg2dZuqq1lURUCBs
kWLgja+fjN4sU0ZAR0C7vsxVGmJoPDOEUgIWJo+P0x1pqOTuRSfP5wQc/2Gq
H2lJQ7FdTQXjRQTM5hwaa9lBQ//9tuw2zCVg3cqPSWlbaGitusHbFzkEHIk6
eOCKMg31z66KV8omINNdL0lsBQ0JWyUOy2cRYKCzV+/4NImqA0jRaykEuL14
w1JkkejLI362XDIBKeu1H7KpJFK9Ypb3+SEBo0JarPvtJGIszr9hkEhAQpf6
g++lJNoRtM8mMZaAWqNnunkFJJLcMHLV7x4BjBq1Ee/HJCoMX7HncgwBe3JU
dVfFk8jglsDImbsEXJDJZw5HkohUsG9yiCIg5s6GxDe3SOQTbGPmeYcAipsS
09qdRDVp562eRBAgQjxKUHMmkeCpf5+abhOgZbV2/7w9iYIpFwdnwgmI3Lcm
IeMYifY7lrdfCCOg9HmqztVDJJJ3UC/OCyXgp9Lq4f26JLq4O0mGHUKAhpCM
zpA6ia6628SnBxNw2j+R8WIjiT51GaUt3CIgdELyfrAC9hrTTRexu74vZygt
IxH7+Ov3pkEE/D18L35agERl+mWfPgcSsKlGdN/7BQJZrGUamWMHZAvFO44R
6FKqWpZ3AAH50pF7d9II5Lf/k5sU9rfIJfQl/QR60vmp8JU/AXNzYXE/Ogmk
Ncg1uYC9wW3R3qefCeQ7JG0ug32MGky7+Z5A762n3rT5EeBj+S/WqIZA9m2W
gfexc5oC98iWEyijQSjDBvvz3gVypIhAzZU/JLdg7929YYiSQ6BuA07EYuyC
naY/u9MIlDPOFiJ9CVi1w6vrawKB4FbDgxbsCM2Mbx/v4t8326u+xuaqf/hc
G0ogy9SaumJsxy1jjeV+BFpAXy2fYndukm4oukagn6KxI4XY+io6ddkuBBIw
nfQpx36p7Pgm5QKBEo8z/73HXqcUUx5nQ6Bsupt/H3bs2ornEeYEMhzwYf7G
/rOmvzDwCIGSlywcVMTzdZUVyPPSJ9BL9Ym7Jtg/V259fGUvgYo2GFYHYRtL
W6Zf2E6g9KrZr2+w30gGJFmrESiz5tfH39iq4rn3zdYTqOm3XsYB/D6TxFpj
DssRaPvBj8fisQVEOJG6UgT65eT/k459fal82E4RAm3TstbRx+tFCBgEbV1E
ILavpWcettkiV1/lOSqyWupwQxyvt8afGndJFhVd2nmfxsPOnCNdhAgqMvLK
OHwDx4vYL1Gnf71UtFU7wW0ee2Ta1m68hYocbksvyP4v/thhp2jvqGj4eYxd
OXbjeLF5XxUVdaQ0elngeM1lzhu1FFLRXtbJ+qc4nlcwlA3qs6mINZkybovj
PZQ0gdepVHRh+nrjSpwPZwfTd+ZFUZGwWqvbY5wvct/3rQ+5jL8vwjRYjPMt
qt1Bwec8FYVnfvcdw/71NXq1uzUVFeYJ6ffj/PzR0rf8jDEV8czXBrfh/L2P
/Od3b6Yik2bijMB9AvjqnsxuU6Ki0ZLxbqUEXD+qP0+pyFJRT8hEqyGuD6aV
a5jSwlS06L/CNdm4fggV13xnMylIy4I+m5tGQFDSfElBAQX59t+bH8zD9eDC
LmO1bAoqO6PraPSUgMManrTiVArycqgwfF1AgEQjQ+7FXQrKl5G+nFdMwBNu
e2SlKwU5fEgea3hJQLNlwfkGTQqaazrzlg/X35J15MLBzRR0JDQsur4e16sx
hZSPShTkt3G+8HYDAbbhiV+bpSgoDha3KzYS0Of850bWyBDacM01NPELrvcq
RWpvPIfQx6NmR24MEMCuUzxfc2EIZUW8FLiL94cqq4fJby2G0HOxKWYOFT/v
7WCBjzuHUJSsxkYanQBP2snB9t+DqJ7+UDV3AtfHnMUJoyGDaOFDy5bV/CSc
UDzze23CAGoO15h8u5kEojo4cSBkAOmfMBsu2UrCtZO56hmeA0jl/IWHOdtI
SLg3el72xACyanknmLkT74fzvp9WSAygGI1TjK4DJJj3JKULxfYjdYZqj6Ut
9v1v+6ej+lBlT12wZwIefyunu9S3DwlpBq6VTMLjN6+65n65D6nVBi97lYrH
/2efP2bUh0Sm3naIZ+Pxr44vH17ah7z0+HMWleLxjohQ+m7/RG/FRxKIryRY
LDYI/RjSi3J1c954S9Dg6757dqnXetFodH2YhzQNjnj92HXVoRfZaBmmuq+m
gT790qi0YS/avvRQqt86GmxvumfpKNSLtJrD895r0kAiultlcVwP6jCffKlo
ToNWqSuf9TK60bqL+8vGk2lgsD5BuvZVF9K3oC0330aHCPsoc5P8LiR0I5ha
qUWHlrTg+J8Pu9DoUZM/CnvpcGyFu9hvry4kbXdp8bwBHU4LmArs2tGFHIuz
JoZt6HCFsYTz4sV3ZEudcr4bSYeEIt/OJwWdKGYJVaGPxP3i9vMJ0Wnt6Iqg
lSX3Ke4/W1ktgsqf0XHCJETcjAnKBdSQpPT36KFqttkxfhbsbqtQKiVfoVOm
pn4qnFF4MCz28MvDLNTh9IF55Mc4hBo6SzzWzITxzR8oMhWTwJG5js6GvoYm
JYEcm59scHqdXFR84j14+XEWh7ybAl8+ryzv8M/wZDOhvb9kGvQXOXjdbG6H
QxW7qI9uzYC9cIeKf3c7NMgoBIeEzoC/xIHeIEY71Mey887fnoGKtYq6EQId
EBd0OUQhegY27utb+lCvA+6dnrAMS5oBIS+L9LI3HeC7POO0YMkMfKUfbBgv
6IS3hkYbqT0zYN2yQcIxqgv8/o1czt3CgeetdPtnqV2QouzjZqHBAYFv+SWc
wi64pKZqw/cfB0p/bDK5/akLPso8pFjs4oAgbWtEvugPqP7pGkjV40DFX60F
5r0fsL5n8sFDKw4s1zJkXk3ohove59VOBnLAUVtQ+1VON8QwpxahWxyo3tt0
+29ZN5weFYvfGMqBiweMleM6u8G/K+7daAQHn1+P2pdK98C+8ttWdvEcuHzZ
6vt0Ug9sPy4z1JrDgQ9ZF+tvpvdC0ADVmfKRAxpL+NuKinpBsjSF1tPEgZQr
GQMDVb1wzezyzrYWDrju7pw72NMLOtt3HKv8wgHpDr2dEjI/YeGv827nLg44
LJEvKoj9CQN047ZzNA4scu1I7A3pgzqNeMEcPi64dlzNEbvfB6+evrhjvogL
P3YLv4THfbCluKGST4ALRUv0vua97QP5qCzRk0u5YP6oROjafB/sVdkaSlvG
heyOO4Ei3v0gtTzRL06OC3p7wHnfpQFo69VMkd7OhXXRkd+Vbg7AL3l7fs8d
XOAbaDsgFDEASk/1l3zW4kJ98Dn5ricDkLncuuemNhegOaTdbWgAIjPboip0
uKB76sO+nJODYGQVKVJ1iAtrC8UK71wchPb2lnsTh7nwd85ypbvXIEjFnk9R
MubC2yw6e1/CIIwefKMbbMKF/QzB/K4vg6C/etVzRTMu6HgbSwgbDsHTP/uF
GKe5IN90P3DSYghUwdt9xpoLC6t/srouDIFs1aMjf224UFvr8jEneAhCvnNP
iZ3hwj6BGD+d2iEokK95JnyeC5nGztOvZSngFXN0251LXIi5Jrp5ixIFbq+1
NnC9zIWA9BdnszZRoJ7KrTrqwgW7cV5ruDYFhn1FGoRc8f3v33l6wooC4Fih
fNadCxk9hXaj8RTYXfNcIcabCwX/blD5Uinwu5RhaXWDC5UqBk4rsymwWDjN
fs1NLnz1GnQ/8JICPtMHyEwfLvBLrghLbqeA61a9iAB/LizfTVla0ksB4VcL
G7cGcEHubElMA5UC040d0T3YWiWHk8anKKBxP+2JahAXnIwDCg9KUeG7kX5P
VjAXrnkYa1jLUcEx1itQK4QLt5JXlrutp8KhYPv+RuwUemlt6nYq+PhvekcN
5cKnEHrbpDkVtE7ozk+G43gqKLNcYkuFdr9u/Su3uUC23eqVc6BCg3ejNom9
oCBHGl6nguK0l3JLBBe2VR+bTU+kgnlE3Q/XO3i9qGv8X6ZTQab2+Zkv2EZC
I/8an1BBg5l4Wy2KCxdOhglPl1OBsVO47Ce2W6BZ7NJaKnykBJer3+WCf67C
CoUPVAh4UHM8EPvB9Gt5o+9UmNlkbC4VzYXHsrezz/RTgZsQVnkKu0TPXOU6
jQrHV5uVpGJXOysW3xmjQm7g+t092I2xY9uyOFR4EOlmuSKGCx2VVRXlC1So
m3vKZ4I91B+xp0WAgPfp+vtuYf9SUzrIkSZgyNfFagBbwHyiSViBAG29of+W
3uOCpG+NqeJGAsYOhSepY699fKddS52ALPMvIWbYak1WJ4/sJGBCVWPaHVt7
Yn3f2f0E+EfLMaKxDWTYZ70N8bnlgKBdLraZTh3t7lHcp4tfNK/CPuNw9/Jj
KwJ6qoqaPmG73D01UXmGgGwBk+oe7BsvN1z/fJGAloqqTSR2WM8Uj3KVgOlY
F0kWdvy/twGz3gRUn2q/No6doRLDL4b7wPed503+58Kj1hFK+JxT0hSXOoL9
yktFVBufq+R+fbUlsBvSZ+JMk3DfvjkxvhvbmlPi1Z1JgMuuCaP/zYdtesn6
Au6jMm1nGf+bb0Teet3xZwRUNF6+nI+t8Ld/vU8F7mvyBNvisCtOJi9dXEvA
5Q3RK29gH3lxYuzee9zneFbqWmNTl4q1r/5MwH81Bw/twfY511j5BJ97c9U5
W1Zii1cFp2n8JKBmNnxiEq9HvuS+W1W4Dxo7WBHTiK3jwnUwGMHPo6+3JA27
s+GFURubAK91wyddsF3WuKj/71xeIeIcrI3N57VBiv6PALpGUDA/tsbG1L45
fO4f/enyLxrHy8dAi/rbK0korqv1N8W2+7EsT2ItCZrxWS3C2FGRoW4q6iTY
V4t0+eH4XEfRsXipRcKMq2S8Bvar3TxtHR0S1n98vGoIxzdt5Aq/uQkJyvLm
kbuw/fRVGP3mJFC92a4DOD8k0ymfnG1IWL5FQi4EW9fU6kHgZRLunWn9+DaS
C6nPdVULI0mY7BPQW4HzTXPpb1GtOBL+CfvrPsb52Hi2nP0W91mb/znMbcbm
SGyq/p5HwmNORN4OnM/Hrkse5fuA5ycwmKeI853++fN/0Z9JKHB87ZqA60HA
hoiVKzvx/HgcBj92Ydfc0BaCxO/1IfvHLRz/u2nXTvHRoD1k907rQC6kx2ed
IpbSINSDz+slrkfbR07rXBWnQc4fBTtB7LNpX5aEraWBYKG5cr4fzseFVynP
dWigsd/dpQ7XP493UW+X+NKgRGngnbEnFzasvjq1PYQGVyXMd1h7cKHbzWzD
uSgasA5nP3bE9VVXftXd6lQatKQ7XXK/ygXRm7lW7tU0WLa+8pYlrtf5W9FY
zzwNaP+eONme44JNWI6ioAAdXGpiuzaf5cKyn7fNd4jRwZdVrsLB+4FXpOmb
e/J0YJYYXg6w5cIBojdMfz8dJqVf6Nue5EJ/MkfuWRC+Xt03ZIb3o/iJ7qO9
EXSQYOuW9eP96qBhTbBgHB3i3+scdTTC++10COPcIzocNnv8w8mQCzePipfJ
1NPhjsk2kT3ABanFasa3+BkQte7FPQm8vxq5nb1pHs6AlL9G34Klcf7MbhPh
RjPg0Xj6nVwpLrwP4stMTmRAB0Xd+YMEfv647Ib+HAZ8S+6+/0sM1/9Scpnz
OwawcpHP9iU4/qadc/3/MuC00pdLoxwO/PL2aM/1GQapdq2Xl9o5sOuvnuPh
4GFYr/+0aHkbB65HSPJGIodBsyfrcWkrByaSyuS3JQ+DjTYjgIn7FdprjnNV
5TAUrrXoUH3LgW+/ff5+mR4G1o34VrKQA4WBIVt4rkzgC2APHA7iQI5/wdXr
XkzQuDBs7OvPgTTftheT/kxIIv4ry/fhwF1vBS3mXSakeHVf417D/c/VKp3e
Aia0afy5f8GZA5pnpo7W0JiQGemt5XecA290znvcshsBU1UNjyR53O/tvVM2
7zACnKj1Swxl8f13v+DcvDICjWmr3Sdl8P20/vh4+I2Ae5RinbY4BwK2poac
TxmBXWOaikn8HNCTb084+H0EtCw2MO/QZ6B5Xq9yqSkLghZfmNlfNAMDvHhD
FUsWiF/5tl4yfwamZyhdBnYs4FO9qTOUPQPyY8GzIa4s0G1T3eSaOgOe/fXa
CzEsEDFSrzS6MwNydXrV7C8syJEMPyR6cQZcg/RQ7/FRiKnea1osNwOS/Hot
xRZjEC6ZJvXPexpKNQKrwHYMGkwGPAc9psHMrrqw88IYMM4OiFZdmYbY11p3
5z3HoCdrjnX2/DSIuW02MYkfA6tdvP+8TKdBsE/qC6t1DNobnD5WKk3DXAX9
2+ZD4/BXJE7mQfMUEJeie57unoB8pdBZ76VTkPVgauWg3gRsUt8efZ9vCmzq
T1lJG0/Ab9mmjU9/s6Fj1YaOYOsJOGS03ql+lA0NjbWfrf0moKlVk1HUxobs
DRNvRWsn4IaioY99EhvOUczy3GESCvfxRWkpsmFyi2jVGmU2CGZ3CYTpTEBR
wMgLZVU2hD/a5DK9ZQKcvjTlb9nChtVvykKs1kxAv1v4g3072FA0p1wz+3sc
Pr384257kA1Ca0L4816NQ742WyXdgQ3rb5ze+lx9HOwPdj2Qy2VDPJ9kwBmp
MWi1eeQhu3EKHtRaSoRXjsB4de/G9zLT0H9zU83+eho8Gdzx+BV+75tiF5v/
WIb71B1aq08u58Duc5dMUkLbYBYW+2/5wwG+xcUT2SL3gSY+nXOEbxaCC9Jn
Jtu+oZWSkc0y07NgV+powy2jojhtZc+js7NQISkbmDZIRUL2SPb23Cx4fWr/
YC5CoPkingtnEQ/Yw+faF84TiGJwaVnnCh5sOONyQFuKRIU+xubxO3lgGvI1
3ugGDelQRPtFfHmwSftvFNd0GFUKFoTrB/JAa/yogqD/MNJQN1D3C+HBMzXV
Q2qFw0jJLyBoJIoH8kSEU8kSJhKUHl/XnMaD8FZ3g0eIib4d/nrxdi0PMijR
d7S0WcjYzWV5XT0PzoU6ywU7sVDDA8HXnA88yD0o7jf0kIUqqbpCjl940Pyp
s7SXw0Jp/i+K9Ad5YOadZ19bPopW5JhY+BE80Ms8+S6fHEUxzcPzLxk8qNfk
LstbMYaCZNYdVZrkgaOe6PWB62OIt6+We3oGz0c8OmFV7hjyuHA6K57HAx22
UNHF72OIdYdzqHmeB0JiwnVNAuPo//+/hNMx4m37d46j/wPRJWvO
         "]]}}, 
      InsetBox[
       TemplateBox[{
        StyleBox[
         "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\
\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)< \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"sustain\\\"]\\)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
          False],StyleBox[
         "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\) = \
0\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> False],
         StyleBox[
         "\"\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\
\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)> \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"], \
\\\"break\\\"]\\)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
          False]},
        "LineLegend",
        DisplayFunction->(FormBox[
          StyleBox[
           StyleBox[
            PaneBox[
             TagBox[
              GridBox[{{
                 GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[1]], {
                    LineBox[{{0, 8}, {8, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[1]], {}}}, AspectRatio -> Full, 
                  ImageSize -> {8, 8}, PlotRangePadding -> None, ImagePadding -> 
                  Automatic, 
                  BaselinePosition -> (Scaled[0.022500000000000006`] -> 
                   Baseline)], #}, {
                 GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 8}, {8, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                  ImageSize -> {8, 8}, PlotRangePadding -> None, ImagePadding -> 
                  Automatic, 
                  BaselinePosition -> (Scaled[0.022500000000000006`] -> 
                   Baseline)], #2}, {
                 GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 8}, {8, 8}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    GrayLevel[0], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                  ImageSize -> {8, 8}, PlotRangePadding -> None, ImagePadding -> 
                  Automatic, 
                  BaselinePosition -> (Scaled[0.022500000000000006`] -> 
                   Baseline)], #3}}, RowSpacings -> 0, ColumnSpacings -> 0.3, 
               RowAlignments -> Baseline, ColumnAlignments -> Left], 
              Function[BoxForm`e$, 
               TableForm[
               BoxForm`e$, TableAlignments -> Left, 
                TableSpacing -> {0, 0.3}]]], Alignment -> Left, 
             AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, 
             ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
            False], {FontFamily -> "Arial"}, Background -> Automatic, 
           StripOnInput -> False], TraditionalForm]& ),
        Editable->True,
        InterpretationFunction:>(RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], 
                 ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "]"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"Function", "[", 
                 RowBox[{"pairs", ",", 
                   TagBox["pairs", 
                    Function[BoxForm`e$, 
                    TableForm[
                    BoxForm`e$, TableAlignments -> Left, 
                    TableSpacing -> {0, 0.3}]]]}], "]"}]}], ",", 
             RowBox[{"LegendMarkerSize", "\[Rule]", "8"}]}], "]"}]& )], 
       Scaled[{0.83, 0.9}], ImageScaled[{0.5, 0.5}],
       BaseStyle->{FontSize -> Larger},
       FormatType->StandardForm]},
     AspectRatio->0.7,
     Axes->{True, True},
     AxesLabel->{
       FormBox[
        StyleBox[
        "x", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
        TraditionalForm], 
       FormBox[
        StyleBox[
        "\"\\!\\(\\*OverscriptBox[\\(x\\), \\(.\\)]\\) = \
-\\!\\(\\*SuperscriptBox[\\(x\\), \\(3\\)]\\) + \
\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\\) + \
\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", {
         FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
        TraditionalForm]},
     AxesOrigin->{0, 0},
     DisplayFunction->Identity,
     Epilog->{{{
         RGBColor[0, 0, 1], 
         PointSize[0.04], 
         PointBox[{-1.315792109681497, 0}]}, {}, {}}, {{
         RGBColor[0, 0, 1], 
         PointSize[0.04], 
         PointBox[{-1, 0}]}, {{
          GrayLevel[0], 
          PointSize[0.044000000000000004`], 
          PointBox[{0, 0}]}, {
          GrayLevel[1], 
          PointSize[0.032], 
          PointBox[{0, 0}]}}, {
         RGBColor[1, 0, 0], 
         PointSize[0.04], 
         PointBox[{1, 0}]}}, {{}, {}, {
         RGBColor[1, 0, 0], 
         PointSize[0.04], 
         PointBox[{1.3157921096814968`, 0}]}}},
     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]],
     ImageSize->154.7716535433071,
     Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
     PlotRange->{{-1.5, 1.5}, {-2.837250096608577, 2.837250096608577}},
     PlotRangePadding->{{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}},
     Ticks->{None, None}],
    InterpretTemplate[Legended[
      Graphics[{{{}, {}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[1]], 
          Line[CompressedData["
1:eJwt2Xk01N//B3DJFirZQiiUNkulRcglKoRKJUqSRCm7QvYlJHtCSLZkqVSW
JHlNkpQWS0S2mfcsdsaYMT5Ufvd7zu8v53HeM+POfb9er/t8n1Fy9LC6zMvD
w/NtGQ/P//5eqkieXlrigk386h8H9kwiUpKCqu4fLuT9CYKpFZNI3rPM7uY8
F3ak0J9UDE6g7h1NnyeYXPDszbW+GDuBTF5xC3spXChq8qRH9o8jjWp7m8oP
XNiwGJv+IWYMzdepvXeO4YJJ4sGadWPDKL65JfXbKi6wwzKuFgwQaIMcxfPE
ijnQdivNmfdvR556J09sleIAT+uxs64bwpDDk7nDrZvYUJI4eyzn41eot7zl
p6I8C1W2vHuPP+2HzqYzZT80WSBUzVSM3U6D035SMru2zkDe2r18N/NH4aCW
0pdtm2bAKjJUV7N6FDSm1YJUlGagf+cnl76WURByMSZLys6AdcK9clHmKNRZ
+5RwhWYg5PX0ns4DY6C4t1373QgTzIp28s12jwGDHW9rUsIE/wN1C6lL4+Dv
zZdtvxlft2ufWto2BXn3ZR/mqDBBOKtMxFtnCj7Vajz6vZ4JVUp1Ab2mUyC9
ZFNoLcOEIhmPk7FXpqDq7rNyyxVMODXWddD58RSQTZ/5B3dPw+kj7/U3KUzD
j+cn3h6wnwaawo44B14mPPfPMmhwm4KL3UWk4N9MIJOy5zIuT8G2IP+jNyhM
EF/x8KnX+SlgV2hMOON1+z14JLPJYgqmorNuaM8xwaCuiHlXbQo0bbp/pq2Z
gc7F53m245PgW71my+4jMzAf8oGHc2USUj/t0JV5PgPbPjXVfHeYhMOfe9NO
V82A3erm6yU2kyAWpbIvoW4G3j9q6TlnMglmY8xz480zEEf69qJx8yTwDvVa
XRqaAQXeHodkxgTIZKy1NVrNgoO3J0jbnSbA8Xkf+bsrC8ayedYm203AXrXV
5xc8WJD6StKNfWoCTvoLCivdYAF1SE/23aEJmM3yWLwQyoIonQQvy80TEME4
4FB0jwUfp9WVvcbGISio3crkLQtMznpE1niOw7+2Viq/4CwwPSN75a6OQ/35
qPkHIrOQGZOhGXpxHHiqzVy2is3CaBX0HbEahwJiq42O7CzErRbb3as1Dnxr
rco3bp+F1qYXtMW5MaB9NtGWt5wFS03WIcPgMVC73cx+lDwLum0VE603xqAo
Z/FJQtosbPFyu2ftPgaxfIYifpmzsLxyhHztwhjs8ull6OXNQu3eocB0wzFw
vWsqeb9iFpT0v74c5x+DgwXXbfy/zQLbvFghPXEUzAymBCUE2ECZvNS0IWYU
zoeskQlYwYbviUrXykNHoTtg29JvUTaUtuXUkjxH4YG13JlUCTbYn7p3ctxq
FMB54diPDWxoORd2x2DtKNj0L7sZqcOGbNeznLFHIxA7e15qwJUN11dOW3Rm
jEDpx3eCS25s0HsRWfw2aQT4/9M+KO/FhkHO0zPxoSMgc/b1fRM/NmwIX3qj
fmEEjtLMiSuRbCjKKArxVBwBzsoCt89ZbHjWNCU4lzMMFHu17VLNbAhxiXQY
TBsGfytRlcIWNlgKy7xpjh+GdLuaNLVWNjCPGbpmBA3Dqru54zvb2LCr795X
bTt8XVP7nsBvNtTMaKcErhsGqfgzm3on2ACKkXLLshhwRjdES2M1BwSSt0n4
pjLgWYKmkegaDpgv6xAZjmOA/sviBIY4B3qoG/5+DWRA5Z+ZX0nSHGCVNAxl
nsfvf2BxuVqBA6paC0U7lBigkpAXbLGdA9eL8h8WyjJgF2NF+7QaByqlTNOl
xRkgeNLFJ1GDAwbzGTF/eBlQML+ijLSTA7bv9ri20OggdQXx/rePA/FHvDQd
SugQG8jyrzPiQEetzJbOPDr8XT5vpXyIA7LbSBsOP6BDI7E+OfowB4pFV4ur
xdFhUIvQNjblAKn9KZt7jQ6/ZCJc0iw5MHtu5E2SJh3sUmpO3rHhgM63pFe8
W+hA9dLjvrblQJj+vvIbG+hweFxcnHqWA6JK0Tnn1tBBf/+7Vxrn8fdjqIRu
nqWB116bD9kXOXDW84Ix1GDbaup9v8qBKOrAVNJzGqi1n77V68qB59Z2DxyK
aeAtZl1KvsaBZQdsp5al04CPcpxMuHGgZMXJTOMbNGCVbhuq8cLfL6j9oJQb
Dd4dkGvP9+bAn+ljk3QnGvxOekeK9eHAsW7zgzGnaODqGv/I7AYH5goOT3zW
okFmz6HYXH8ObJD+mJ6F53a+/ve0qwEcMLtjZHhNhQaNtrTyHbc48NDDIF1U
ggblZao8lYEcMNbTMTjGokJn+j+32BAOuFfUjq0fo4Lp7elFrVAOZCrvu8+k
UOHhepP8Puxxod1jKe1UOHDyofb6cA6kdqmn/XxBBen0jma/SA7UmzzVf1xC
hS0fFvX4ojjAeLtt9EYeFfpTnX/FY+8v2Ky/NpkKiVLuoam3OeAoVTwyHEMF
/cOGyauj8f2O3XivNpQKbMkPrbHYZHelEVsPvL4Y9NkjhgPCxKPUbS5UeFbq
mTiAvfu04oFFeyownd5FHYnlQIzuutQcSyqIF0qLiN3hwIvnD/TcDlOhoNA2
1x37t5LM8AF9KvzT3nT1M7aGkJTekDoVAhQ+lPvEccAm8B6jYhMVjo61qn7A
jphakxKmgH3ky9Cquxzo+rmKobSSCtrPJMWzsf8dSUhm8VHhl1ZGYh/2lrci
uh/+ECB4OOiYTDwHgvKFkp0mCAgS6iuKxi6WjNHZQyPAZ+9dvVrsthh+On8/
AfbjwusZ2AsLkUndnQRIO3MsxBI4sNGdV+dJK349nf5lL7YlJYzm94GAYyV+
GbbY/qeWEk3eEhA+eajaH7vgU/B+2UoCiNnxTWnYrTp/qKNlBFgs8I2XY+to
bxwiFxDQtOvmC8Au2WP++1cWARcG/aZ/YK/V8u36nkpAilRSaT929I6cto9x
BHxlGpDp2Bz1ptb6CAKiY8Xvj2M7bZ9orrxFwC5O7OdJ7M4tko1l3gQYH9sa
OoF9UFXvXb4rARoV/q+HsV+qONVmOhLgrP7HZwh7g1J8ZdJZAhwI7ZpO7ETF
qufRVgQkMipDm7D/rusvDTYjwMmK1f4S+7os32PfgwTY6Ac8z8b+La2Wd02H
gL7Gb9IR2KaSp7IddxHgOO8rehm7dk1Quu02bO5ssjH25tVFKceV8X70/Hi8
ATtd9Gv8ETkCMioTzP/D+88nzI7RFyegKv9V9HdsH0H5yD3CBMi+/XA6D5vg
Mw5R4yVAW+bwW3fs47zXA1QWKBDd3lC7H1vj71uPNWMUCKp7Ev4R18PDBaqr
EEEB0XXKx6OxRedFnJd6KZC1/0m9EfYo65zd5GcKhIgzblT9r/6YkWdo7ylQ
/7f0owt282S5Vd8bCnwSSnizFrtoZNHkcykFJMhN99xw/UowVIxJ+RTQG1AJ
lsCOoB5Frx9QYOlcjVgN7ocLg9l7Ht+hgJpBnN4M7he5n7rK4Vcp8PZYUDvC
/XWn/ZKC/0UKuAsI7GvF/Tj//a6Mhy0FzvFOWJ3E7v7ct+q8KQWqtlMqbXH/
pkDgovZWCgjP/DNGEThXviuc01SigG7IfzEv8Dxwr2udUZWlgLFkQIIitnn1
uhHJFRSoqF/HYOL5IVT+9idzhAzp5cHz7sEcCElffFZSQga289a5dj88Dxz3
mm7LJ8MZ1XZDBewjGl608gdk8FORbr98kwNizQy5ijgynDdzhilfDhRy2mOq
r5Nhybvo7xCeny2nSi427iCDltd7SUM8b59toP4x2koG4TQNjYt4HqdOKGR+
VCKDTyMrNwTP63NR9763iJPharX73ZcuHOhz+Xszd3QIFOXrXnEv4XmvWrat
1msILDVaLAXsOMB8t/7iW8choKRkeP3B58Ob0/czGk4OQe93v6VpfH6Y3w7j
+7hnCK6b2F78cYYDXjTrwfb/BuG44yYHj5N4PhYsTx0PH4RX3iL2e8w4cGL9
+f8UUwfgq7jtH8oeXF91YfcGwgcgUc0kzHU3B7yti9RzvAbg4Ua0lbkLrz9h
/KLsiQG47ZnEZGni82Ix4IuE2ACMvWsK697KAaue9GyhxH6QdewXXIvPY6uU
tgOsO33QdSWlMnYZ/nw19q8XAX2g9u4lrXaJDd4ta709rvbBOq6mG+MvG1KX
7IsnTPqgvD85bv8CGzrcJlcNC/bBXNW0MonFBiszYXLf7d9w4lvgtuNUNpxc
bhzxMbwXBvc8yohuxHlKN8HugXcv6K4W23WHxAYz3+69bpd6Yflbiyd3Gthw
kH5lXPJQL6SfsNgcVYfzyaeEU05CvSA9o55/4RUbxO7+Ul2e1AOfyuezXuaz
8b5cazXI+QV5Be1ZX0LYYKycKllf0wVJ20Ouy2ixIdr+jtXR4i5Ql9sR6byD
DZ+zwpJ/3+8C3edmN16p43wk4SH6n28XbN6sxzLawgYbPnO+vVpdELKUF2Sh
wIZrDH52RcVPiHTioj84H6aWBXQWlnSCa8cSrbNnFii7LqbezWqHhfaPn5tv
4vz5deyzgEorCDmZVb4pYIFKCSU8PfsDXH7/6KjclxnQ/lGl9IJaA/yaX/Y+
b2NC2rDo/W/3cyHRSH5pH0xDxCEXsbwdD5FPmLygG2US2FI+cCHiNepw7in8
Rh4H59cZZeUnPiC/au5QmPgYBPD45t6IakVyZ+T9hXRH4CDvJV+/lnbUaeiz
ySidAfYrOlQDf7WjgZDi4dBkBgSKGfaGMNoROX4pG3Buq1Jcrx/N14EMn62k
HwllwCbdPsH7Bh3o0H/L9YOuMEDI92T2q9oO5J5QsvemLgO+040aJ0s6EV3x
+EMSlQ62nzeKOd3pQtfKRSV19Onw/Cvd/umDLrTzElO4X5sOfG3Fz9ilXSjp
dKpWhBYdXnRvOXr7SxfqDqlR7cO5SoCmFl0s0o0m2QKTIEGHqn+7/4wkdCOF
BZ6GM2M0WLX70Ihb6i+UCQr3urNo4LRPYF9NwS90pPcPhQ/npDqdT7f/vfqF
KjqbP+1LocFlQ1OVpM5fyHWJ5FQeQ8PPrxb2LyR70JhRl94XXxpcvXr6Jyu9
By2K1GwdPUaDptzLJL/sXuQ0LS/TuIIGGvzLfpSV9SIDswrFdn6cm67lDAy8
6UWBK1YF05bR4Lp254JRTy8aPnTrqMwCFSQ7DPaISf1GV56K+VXhXHSJX76s
JPE3ejJobvr+KxV4r3fc6w3vQwxz0m/9NCpc73ArEE3pQ5yz4d0DOOd0a694
ifL6kOipc0HhCVQo4zf4/rihD23JLGzrjqaC1aNnQt6LfWjifCz1TQAV8jti
g4Vv9CO9xDrWJQcqGOxHLrpXBlDjXMhr251U2HA35qeS3wDy8NxIz9OgAs/A
D0Oh6AGkaHduYGI7FUhhDvJdhQNINUFj3z1VKqCW8Hb3oQFk5WH4U1Ye56wz
TboF1oOobam9Q0yICoqloqWxlwcRScDi62N+nIsWTkl7+A4i/USF12g5FRpy
6Uzd1EEUp+zpGvGPgAMMgeKub4OoP+DVXSMOAXo3TMVWHBpCayqcftVQCZD/
lBI8fXIIiavNCeVQCPgj83usy3EIaWjnW0UPEVBf7/qxIGwI2S/j7HPtI0CX
L/6WXv0QEvNyTfTAueehqQvrtSwZ3Uw5dMe7iYB4b5Gt25XI6IybxoWyRpyj
sisu5G4hIzKD7TNMIsBukvs1ah8ZpdS0XvJ6h/9/SuyTE6fJiKD45TXVEJDT
U2o3nkxGTK3Ip644B5Us3aTwPCAjDxMJ/Z4SAqpVjZ2l88nINvPpNvMnBHz3
HfQwfImvf7RTOlJEwLI1EpEZ7WQUfcKh704uAau0yYLPesnIUn84e9tDAuQu
PItvpJBRkLxuW3s2AbufHUmfnCEj/tjyPK0HOOeYBpUaiVNQrYzdvkNpBHh7
mmrYylFQZgJ3QvYeAaEZ0pXuyhTUXaqiyUkhIJP+ov7BLgryqEy6DEkEfAmn
/5i2oqB5QaeZgrsEdJe8OsV/joIaqnY6PsW5jPojtFfuEgX1N5z0r7+D91tB
jnrIh4JUmufymDEEaNZZzmXfo6D6h5d1SqPw/aKsC3yZTUF7d0WqjUQSYCI0
utRcSEF8v2v71bEdrSNXsCopKE3/e+S3cALcg48nCtbj9Y0Mhm3GDixSkFBo
oqAr4VdNYsMISGO9ljf5SUEBNpZG9qEE5Mnezj/fT0F+Ub1BnSEEPDOwUvWh
UdD7AIOEY9h1LuvLYycoaG1Ftl9HMAHNiROauWwK2p+9HNlhd1S/qar8Q0GM
qmTGRBABQ/3R+z/zEajf+5xXFPb8NiUjtiSBCmtEDrQEEsBnNfVphQKBWFuV
o3yx1wS8NV+/iUCx8j11m7EV82Lbd6sTaCP/YRoF59Rtn05bm+0h0O2zUcsL
sfdNKfddOEAg13vl665hG0sxL9w4RKA01Z+aOtjH9d7R4iwIRIqTNhLDPn8p
7mreaQI933vXZjKAANe4M1PV5wmkmG/m04598+VGn9bLBPpu4JZejx3ZM8Ml
uxEoJF7k43Ps5KWGoLkbBJpYOMBbgp2jGr9MNIRAv3kVTvzPpRa20UrRBOJb
976qArvGV1VkXyKB1OoO7mjAbsyeTTJPJ9DqM3XNndi27Ge+vx4SKO4An/UU
NtP8iq3jYwKpzs7KrsbrjX6srD/5lEBc+ZVSe7EV/vUr+1cRSMKh0/QSdpV1
huDyegIlXfxSl45tVnFiIuEDgcKab7i2YVMERdtlWgn0V8v2nBjeT3+H5urC
DgLJHptPssZe/SYsS+M3gcbru4ULsYvX6Ia+oeD9V/b/zsHWc+VcMh4lkMAm
hwFLfP86GytMfjAJFHBVXOc5tus6V/Wz83h9aeLDEvj+8/huFKcvESjdnMYI
xdbY9KBvYRUVxbGFR11x/XwMPkm6LU1FwpouzFFsu+6Vj8UUqYgnrvCUB66/
OzER7qrqVFSwp/VAAq7PDWS9ky93U9GttnefNuH6rdHm7tPToyL5DY9qm7Bp
o9eWWR2lIllvvV4pXP+3Dqoy+q2oKLdhaWUL9pps8heXs1RkfIpUGYb7R9/8
dFrwVSo6Mn3Ejj+agAfP9TeXxlBRBKvbxQ733w7B/0R2J1GRY/qY60Hcn80X
KpkN6VS0+qnMrAbuX7bYlrqfj6low/uOnHUJBFj6rLHgacLry9uYY4T7n97a
uvNuK349xWuVPX4OC9oYLS3diddXPycbiudFadfC0HaCika6qgW67uP616Z5
n+GhoYZij+A2/ByXnZx7hhCkIbvPQ0vrc/Bz2aiNnttqGpKvKNK8iefVhaxv
/JGKNHTaRjd/bx7uxz81mc/1aIhvB6+EUDEBnu/vNPAH0JCAi6rT9CsCNsq4
zewKp6HoO3rhbVUE/HI/vtHhDg3Fy+UWv8HzVV9+bVzdAxr67i2xtqiOABG/
otMedTRk4nxzpBfP62I1mOhZpKGMsky5rz8JOBtZsF6Aj47itT7oaf4iYOXv
21ZaonTk3uWfldVLgG+MeW2CPB0lW56WihskwJDojTx4gI7CwiIcv44Q0J/B
lnsagq/v3rqFgs+j5KlfFr3RdGTwxTHy8zIqGB16GyaQREcHVVws6vBzeRkr
nOHwiI46VuTpVAtTwc9i9SspEh0dl4joFFtLBfHl20xDlzGQ5dWIrxfx+Wri
fsHPKoqBdj6zPBJ+nQrRc5rCnLsMpPyjpHu/JxU+hPA8zLjHQPUjUbILPvg8
Tcpv7C9gINKtnU0pgVTY/YK60uU9A8U7XJxTuIvPa5ZLUeA/Bnrpclj6aTkV
5m94thf5DyM9Ib/bL1lU2PvPwOlI2DBap5qaeplLBZ/oNdzRmGHEs1BQrPSH
ClPpr+Q1M4bRU13JqZc4r9Bes13eVA+jVW46RlqyNGj7z//fN9Ywiq8Hy7eG
NCgNDt/OvT6C7F8tbZ/NpEFBYImbj+8I4mOsOZWcS4OsgB8V04EjSIseFLmn
iAZxNxR2j8SNIM33O3kzK3D+cXuj11syghrNGR/eNdNgx/kZi7e0EaSazQlJ
nKNBrd5Fz1C7UdRyLkrQ2g7nPZ3YV4uXRpF/evbAvCMdSrUr2H7XRlGHb8WK
oqt0yNr919/z1iiKyMh3k/CjQ5Dag/CLmaNotj2k1DqVDgby7alGP0fR/PLM
tV5f6NCyaFAtaD6GnArllwkaMmCAm3xI9dQYMvyJChxMGcCaJXcZ242hi3Ys
96YTDJCfCJsLvz6G6CIpGWWODPDqJ+37Ez+GzOSig2eiGCD3zqCO+W0MrYvp
OXu9lQHXQwyg99g4Mtlz7ZiawzCsWWbwufzkBDoT87QxqnQEXmgEv0HnJlCf
uCpfc+UIHLerK+10nED3xza1iTWMQOLr3XGLXhOo4vr4mg8dIyDqvvXo0eQJ
VHOAFZn1ZwQE+sS/jX2dQA0bJc6vtRqFhSp629bDk8gprbH+LN8YEFfu9jzR
nkKSLv0L6dHjkJs2Iz1oMIVWHw9qv5A2DmdJZ05Lmk4h95tWObsLxqFj7caO
MNsp1CWbs463YRwam+tbbW9NoQ6x0HXqc+OQv3GqQaR+Cnlfs+Z+vDIBDuTj
jz3QNFqlRe6SPTMJ09tF3qxTYaKzK0SoSzbTUBY0WqGymYn6hWuDk69Og/O3
T8XbtzORCUvdWf3WNPS7R6XpajFRTUW9Wnz2NHx5+dfjnBET2SRdYAwMTkPx
PqZq9iUmWi/XdH5Miwn2Rl1pckVMNPJzuDr1PRO+nn3kKbtpBjHmPl5bmp6B
ybreTR+kWMhQ1i69wJUNhYNaeTVys+iJl8fQ0RguPNTaLWO9io22mEa6uv9e
gDm0PHD7XzbaWLpnIj36H9BWswrMeOZQyaNrtfahy0jSa2JapFhzqMI6RUyx
YzkpaZ+Kl8XcHBLw0LcVHFhOErIH2dsLc2jPQ7VrnOHlpMUyriubl4vSnI5P
Df1dTiIbX1nZKcFFlPdWcVNb+Uil/qZWyXu4aOzL9kFWBB9JjyzSLxzARY61
fvK52vykaoGSqIPBXER7fNRQ2ZifpKFurH4rnIuMOOFHy4/xk5RuBYWM3uEi
ReoDia/O/CQByckNLVlc9EZB8q7JfX5S25Hvl2/XcxEor+tXn+Unmbq7rnpH
4qIdIqkkniV+UmOawGt2ExeFLwZm9ggLkKop+kJO37jITEFdNUNZgJQVWFF2
cJCLJmLy249ZCZAkCo6evEVw0Ui7hauZvQApvmV48SWDi1pu3vhr6ipACpHa
YKE0zUUvF+qkbSIESFzdeo7NLBfdmsrKdU4UIHk62uQmc7noifOtjbeyBEhj
sezDLYtclOWmU5paLED6/98v0fOV9eovXgmQ/g97ojGd
           "]]}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwtmXk4Vd/XwCUVUakQQoZGRaWBSpZQUZKQKGXKtzJlKqkUSUrmZMwsoUQp
U2oJGZPx3nvMdzLPkitD3vN7nvev+3yeve8+e+/1WWvv8xwZq5sGNtxcXFx1
S7i4/vdrnR0ytrjIwR/jD5MWFxegJFhy65F5Dvan54mZDC6AhFOm2e0ZDu75
PRhY0LIA1D3l1cPjHNSPPGkTmrEA2h85Ka0MDg4G5LxLNlwAxc9XTHLLOLg9
XdVXI2MeZop2ff/Pj4PFzmIvHS/OQUBFVVjdag6uGyob3dsyA9LiDKdzfNPY
6yvLiC/7DU6qhud2CP9Bs3BTSU3+MbB4M32idssUPnH+bX4xug+K9e66y8n+
RuPtYybRbnRoLr+QWb97Eo3UFzNc1Chw3l1YVGnHBKpM939TeF0OGvtkauS3
TOCdk2UMbeNyUBzbdV9OZgL1A1P3RK0oB95rWnQhsQm8vslVptm2DIqMXdM5
vBNYdZt7pmBfKUgdbFT52j+Oe/z+eLrGI/ROBZhqp49jydecalfTPLjjwhN7
ZRvJEt0pe2ZeQOJLsbhXciRfzecd4QuDygLFhLZN4+h1s+LEokQIiCyapBiL
jiOX3Flp7aCn8Ol51ls9PpIdDwRGZbkAXSfrjid1DNWfqX6ajHqM9e/PfTl6
ZQwtbvxbPpuQgu/vxKh/cxjFkOIa24Zz+UgviZ2OtBlFUbFlojrf83EdX9w7
58ujWHD+upz1ngJ0j04Q3XJmFE1+bCm6t6oQ1YtSx5/vGkWnVmbWsbIibJ57
n2g6NIIFWVGMg5LfcOZBGdef6yPY0FfOV3y8FOUry/N+WYyg0x8BWpp7KZqt
qbBPNxnB8tqLA9YZpfg9oYq4pD2CIQs/1pwXKEP/krqc0m0jaJSyqlKooQwl
uQmLkN5h5Lo6NyN09gdq+A6X7Lw6jEZSEsrOO6twMJZrQ4jZMA4LFIjWGVVh
2EchhymjYSQc7npxP6hCVreq2Nfjw9jy6Av/bH0VPj4c6Ky3bRh1uxWUJF2q
8ceYgqzz4BBKB9dUqGbXoPbFmz55TkO4a1+c3o5VdTju5NMqfoNsj7acqt5b
h1F+kbsfWg6humG47XHjOhz4hO0nDYZQvyRw4md8HfqvEdzfum8Ir1rX+29S
/IW15TnsuelBtJh9PNl+vB71dk8eP+Y5iPq2h4bm3zXgkYbs4dpbg7inalVB
bnEDbnd2eGHsOIil1+SOm/5swKW5/XQ780G8Luub6zTUgAUHu+9FHBvEUz7H
bzRub0QZtZ8fhpYNYmZXo8eVxEac0k2TjAgawApjQrn6URMyRqzLpf0GUOSs
zR3LkCb8FSRj9/bhAM6qVgsNxDVhRsOrghKnAVye89StoqAJrxi9MBwyGMDY
cV6TopEmrLrk9Ux9wwByV24d9zdqxljbi38GE/qxRC7SYUK4Be1XjZ1pjuxH
TXsRZQ/ZFlTN8Un7EtyPnw8tlRlVbMGuP+8uBDzsR65v844JJ1tQ2nuxUMG8
H+t6DZKk77RgamTqAyepfnQLfPMrmdKCWeWjK6Zf9eG2xobyxkcUfHDNx6Ir
vA+9E/RT+QIpqLdStLAioA9nKmdsd0dScPzsMdvI+31I846u0HpLQaX2Fz9V
zPqQs57LJrKJgnkTKqH3NvbhlK9nFkOSiijlI74kphdnNUR7D7yh4vIQ+fVu
Yb1oFNC5+f17KuouaeLv8+/FaPEivQ15VCRY0gs/7/WivXafe3E5FSfTv3VH
Xe7F+aLzWQYMKm7dN5u6R6YXd/knrc7dQEP71KS4FLFevDF6wkxVioa5wjoR
Iut6sTCpuCdvMw3VZyL95rl7cZvKyZKHe2lo+vWAbRW7B//8kZCxPEXDgJPO
uy3Se7BUc2DuPw8aNhWIbm9O7MGXNovWyx/SUEy+RPpEdA+m0+NNIh/TME1g
zbpd/j0oviV9LjCYhiWN76Y4dj04V7At71cqDX9f6i8M3t2Dq2L//pf8k4aH
64I/cm/vwV2Sa/+YNdLQS0357S3pHszjtrPgo9JQQObJq0trezD6sBBLuZuG
W3vlHm77zUbr3V5bhsdpeNHJXAvz2GjzpYM3by2Bj1mdo8Hv2agfc3sJS5jA
98Zm0RZpbLwR6f51UYzAJUdNR5dEsPFDq1U0ryyB6XyGUVq32Hh9oTrcZC+B
TfcbNYQd2Biu+9SM5wCB82NnR3qusnH5S+GNiSoEnqXqavgZsVFrUT/iDRA4
nXxiuHofG//lHzzE0SVQWuRHRMxONm7WN7GT0yfw1DPNY3ZybEwvzqkEQwLj
bqpHCKxnox5XkaiOKYFaqofVz06ycDhHrCH+KoGO2QWDmwZZWGHbueLMNQKj
ZJVfjjNYuK4F4oZuEDjEu38wtJGFL5LDZ/86EhhGUQhvyWHhbNaNfWZ3CCzW
fqf2Op2FalarBYLuEtj7RX7gViILVycV3sq5T+Ch5G1qG0JY2PqWJlzpRaCV
cFp/nx8LYxw3m355RGDA080vCh6y0Clj58nExwTSHWX6TW+ycNBN8qjqUwJX
MhPC5K+x0Giece73MwL3n5c6OneFhRYDQjtjnxPod2Rj2Cs9FvYyPLS+BhGY
8z5a1eEEC7ezfUOVQwhskxHtO6rGwohDn4qTQwlU5BVW7VZg4ZPanZWnwwk0
ufeiN3sLC3/+08t99pLAR6NrQ70kSXbRjiyIIJDSsrpXZhULvVa6WAxEEfjv
ZGDIJA8L5zffNxiKJnD7F/4jZfNMLHIQNO6KIfB+Em/I1WEmhrg/fxv5isA0
Ib/DB9hMdNitu/JKHIENfst6lnUwUXzp6XDheAJnZ32Cqc1MnBmZOvuN5M2O
3Iff1DLRcShP0ySBQD2GF9u9jIlt0wu3WCTfMVoM0v7CxBR+5RHzRAKTKz0P
ieUycceW+uw6kmsPz7MGMpnYoLavfFcSgYdVNnfTk5n4UXqm9R7J6Qd022gx
TJSs/0cpJnnDPjfKrzAmMt9e+jZG8pM9rxp++DOxUVQuWiiZwD8K5bXFj5hY
4H7DfifJV3cOV+TeZeJ1eU21/SQ3bxcqzXRhYlZYudBukjW2qn5NsmWiyTru
6Y0kf5C7WhBlxcTD/IL9s+T40jIBucEXmSjVzT1RS3KQ1Kf3TwyYSB0bFQkm
eWFjR4bnKSYqJfSba5FsL8bz2k2Dif/0eJqGyPW1iexKtDvMRAFLY1dfknWE
jGKtlJgor/xbZy3JBWvvR5jKM8m6NHYpmNyvbWtSQ/VlmdiUdyV7kdzfCIGf
ASfFmTgvZ3zKimSelVN+auuY6NwxoJRPxsd1hYTPgZVM5NZQvPmPjB+TR+vB
Lm4meuUpL1MhWZ/b3kNuloF5seJz1rGkTwtfbq4dZGAIfJN6QfoQN8uy5WUy
sPH7G5MI0heBGf7/FlsZyKdavDIgksCByUtmI9UMjEnIH9MjfTMZ97nA/s7A
MN1KRQnSx4qRtwbthQz8esfwX3sYgan9c9rVGQwcoihd20f6vL5XTqskiYEB
Ne8FaknfH7FOQ340A+N+zFw8H0igeVfsgdfPGKhnrL1Sw59A8ZYjst43yP7h
glfu+xD4rNFa8o4lA01uKk9leBM48+u56E1TBq42r7eueUggtbp99WUdBrrw
pPax7hEYivfmVHYwsEZs4667rgRyfU2Z3i3DQH+9ZSrgTNaPotqJrWIMzE5b
qsch64Pu5439QnwMvKwdlKNuSyDv2y8t4/10nFkqMqtiQeCDiLms9HQ6Ok6U
j5frkPXA6qCOfBId50etN02eIPCkojP7bTQd77DczYS0CBSs6BXP9qfj+ocF
wipqBKb8afT7bE/HGJkPqxfI+llllG5ZuoeOduJb7Lw3EJglzZrX3EHH2tet
DUuEyHo1LBn1Q4aO9uaDL9wFCbz0+MWvqnV01NjZdlyTj8D2awu34we6UbRi
BevSLFnvt2bKFzh3I221umFEGw3Hv26y/GLVjZvjPLscyfOh8PzLyG+G3cgT
+k/4aBMNdX29eH4c6EY998dxRdU0dGYbdzX+7cLurk9RhwtoWJy8NGzIuwuv
SZ8JMXhBw3ObLv+VCuvExkQfvmUaNGQWeb3o9O7EjhXqYttUaehinKrwyrkT
hfo3fj16kIZhgUOWYuc6MX/D5TZtefI8nPOoWS/YiTpnlDbS1tLQgIiI5Q3q
wOVdIcqtXVQ0CG04OvmsHadnrvYmOFGRuWuKluPRjudO9WZa3KCiS9UGl5s3
2nGVUvdPESsqhi1eSRvWbsczVVYa1oZUbHIYWd23oh09dnSleB4gxzu1kt7u
24Zs/9WlXzkUNFyq9eiHdyuKKLy6HelGwV9HAs2iXVrxeZg5PcmegqfcqAcd
rFvx3THjzylXKajRc31I6HgrzscafQ40Iu8nlYFGV3lb8a8Y7dXcPgoKPqdt
XRpMniM83I81J1rw5zq7WvVXNNxEt/F5Y9OCWrJhQsV5FOxcKlrTdbAZn1x5
ZnA6jYL637o3b9jVjNUxXiFtLykYsPrUyAmZZtRbf1PgLzmvQ5NrGAH8zWjC
o8tzkHxOpGHKytzuJrTrXTaVnd2CmX3zGxyfNGFYpkdzSnoz6iRIvftZ14gM
Jcuw5zGN+DzuIEQdJ++fPwerl8vV4uPa0JrKwWqUS2d4R8SWoUOeauDPLWWo
Uv9JJoeVh+UnpOton/IwvE/gZd3LeCyq9bRpDIrHR8evCSbuiYOEyLsxgfJx
MCXsiuaP8mHSBb3iz+bDf/mRmW/PlQHjAfMsN6MUPLjc4m89rgWTmbNjLLUa
0OC2dnOvaoTCrbOv5q83wBW+pq33aI3w+t0LUR+3BrgneKz1QW8jxIcwspd6
NcAnqU1qT3iaoOvsD8nfEQ2w5Uj7ipfqTUDNJ+z8yxuA180w9mNBE/gGB9+N
kGqEXz2apSPpzRBhr5615FcjmFZvFrz6jAL+hpW4WqwZ3v/sufIumgILrMXG
Grlm4GlIy5rKoIDG4hevB4rNkEPdftq3hgKf3rnG/NRshuXsXU/S+KngV9K0
aqljM3z6t3++P5AK2/K67JpLmmH1/uP9DmE02Lvz9XeKeQtcVV6unJdMgyZO
r5zHjRYoOlzp++8jDZYuNTRZ79oCNsd05IKbaRD49orUrict5PvrmSs5QgQE
yB50HH3bAjdunG+ZjCDALswtPOdPC5TH25S4x7ZCZG1a/j9vCiguW1KfmdkK
dOFHmXRyXVF2rzo7C1vBNrJ8pDCUAvYqzbOaRCuESQ3rGyRRQKhJ/YCgcBuE
nCMVLaGA9TKJzPSgNlg3cuI81zwFuO2bXrR6t0O4oIXSMgcq2Dc5JAuEtoP7
VOfhSlcqUFX4PkBiO2hzy489vEuFzGXqv15/awfBu9EnKH5UMEjI4nWZa4en
o/XSa5KpkNT01HPlrQ4YCLTj/tJCBfVDcO3I9U7oKGbeqVeigfRzvxYZ907w
ro6UPKZCA67O+mO8TzpBbnKHQsZRGpR4WUhQUjpBKMTHw0ybBlDl3ejY3QnF
tZfh7GUaqF0oP5Js3AWYqaph6UsDqQyBjKc2XcB4deKssj8N/s0aidx06wJ2
4GuPpcE0+BbfM34krAtO23CtfxBFg6O9y9ModV2QkXevYS6TBqq3dAT5jnfD
Ud0Nh4R/0UCiMtRzzLAbVA2mKKeaaDAv2jZIseoGnsPxGrepNCgutv2R7NUN
qW+m3d930eAIT8Bd1eJuUK/ir00ZpUGczrXJfDE6uPmdp8QJkHF14d+xU4YO
H+t9digKEnA/Nts8fjsdEjqmF3PXE2A2wvn5WJkOakd1pBPFCZAIffrm3Hk6
xPWOp/3dRsArIsNsKIQOXhptQVnqBKQv3mZwRdPhkViRXZMmAZ+3av0nkkSH
9x5+YYMnCPjl1nXz2AeyfdO211O6BCxZu94nspEOhiuk9940IWC1Cn1FVisd
yhXW5ShcIkDcPCuglEGH6862J7svE7A/62TEyAQdjGOepW20JuA/nfsZmusY
MH5nu8eMPQEuTjqKpuIM2Bs8sersTQIeRorkOsoy4JNx9LMoZwKienKKo5UY
8EjzuwTPbQJqvHvqxwwY4BQjuuzoAwKo6R+Nll1iAFvdU07eiwBW/cNWcWsG
vNl1iMP3iIB5SXHWcVcGiEv9fp3kS8DuIr3p2BcM6HMUdt0TQIAqY+O9D7EM
+H28LehjIAHavAOLFSkMMJl2VNwWTICVsQ/fZC4DlBW06H2hBDh66getKGZA
LiHbu+8FAfdSJddLljMg5M2qCy7hBIRP5ktotzDA8a+mZQWZd4livkmXOxjg
kqQw2h5JQJa6wVZXNgO68szrWFEEFF3b9PbpMAOUdDNmOqMJqAga3h0/xYBR
19YbNTEENH0u/JQ7z4CX6iieEUtAd8eTQ9U8TMgo37Hs7isCZuRlNKeEmCB+
tNphMo4AHoPRSj5JJtw3ftUdHU/AWo8vupu2MEHfeY/LvgQCpBKfNu5XYIJY
otEmJFm+8rzxqQNMMP5Do6smEqA8KttufpQJAT7Pct6RrCU8bn7rOBMOXVZ5
ujqJAH3Vr2z/M0ygh+daWpF82dr/RuJ5JvAcrTmYTrKt/4XRz5eZsOX66SV0
km9/2Oxaa8OE8u3Lv/AlE+BDTHDoDkywCa2+vIXkkMVv96dvMeHpp6ssJZJf
bQ1YIvCACVmpacf/xxlnTJ/IPGHCBbcrD+RIznPbyq8cxATeg5f8lpNcGvs7
WDeCCRrzdhfbyeeZTmW50eKYcHo3cSSN5HHd66ZWr5kgVD6Te5XkJ69l1Ube
MUnvKr6KkCz5r0P2zicmHB48ZFRMrveTceSKpcXkeH2nXc6TfCr73HBgGRMs
JP+sY5L7xVgh0Chay4T/NBT3WpF8x6Lic0oTExQFxisp5H6vKfSKUWxjgv+e
fU2qJKetPfKwkMGEszbjpyLJ+Kja/rHWGmCCkYW0Qg8Zv+bSbO36cSY40r64
biXZdqOtwsUZcn5eX8QukfHmctu8rmeRCfvXior7kD4obolun13NgjPfa4Sz
SH9+eBqW+IqwQFd33Yps0i8z6qrXglIssIyIVksl/Xvm98hxqwILJOCU/XXS
T2m6quGH/Syw57MxUSb9zVPhKKuqsmCbbfLtv6Tf7AG7JQanWaBYce3ABdL/
uxpbezsMWLBZgVE7SebH2lh6zbWLLCCWWHh5k/mjpns+3PMGC5pq9XffeUZA
9Hu1bRl+LLj8Q0m0hsy/PSv+8u8PZkGsJ/+6f2R+Vpjnjn+LYIGGQfaSLQ8J
mBLcXtTymgWbth95f/oeAXqua89wlbPA7kZk9pwLAT21tXuf15L9++drKpzI
erf5iYhIMzk/pd+5jx1JPyiz3TuZLAj959ZG3CD9V2G7XOBiA9tsyQjDnIDY
kPgLzBVsSN8g069B1iOlARNVhzVs2K4b+TTiIgHmMXXLfKTYkPf3xmvh82Q+
zudFvVdlg8mpju8uOgQ4fX/2bZkHG4w6XmxK3U3AZlGHCSVvNpyPvNbD2EkA
zVF/s8UzNpy8lRqzZju5HxIb/Iui2fCjvLDwsDQB/O6p528WsaGx87dI/RrS
h104TMyxQel89sfBIRpc9EnetJynB7Q1Lzpu7qPBqjZfg30CPeC7OPrxDJNG
1n3dgkCJHlBfdfCrI0GDY8xWH42jPWCe0S47WEaDjsgp8XcPyPZjQZElkTQI
GaWdaX3SA93CGxljoTTQPP7Fa3lwD3RYrzuzOoAGmZPevRYJPfA1ItFF1IsG
7mfWfBQu6QH06VC3vEaDdUvldR4u6YUyWrsekuertqO5u8HjXvh3VtPUq5gK
T6Z3r/zzvBckBYIPr/lMhbIHXHGRL3qhj6B+CsqiglpwUmlHci90f/I0N4+n
wv4c1qpr33tBe0By7sRDKkhPXku9948cr83wi7waFWZuOTWm3umDgejJjk05
FDj4T/3qSa8+kL9SXJqfRgHXJ2s5A359YJ4XEwNxFBiN+CixO7IP+PYV8G/y
pwA7f+pa4ec+0Gyws5SwpkDD3zv/6ib7QGev5SmBdRTI8PTeybHvh5TjjOBX
1i2QfC/dwdWtHy50FYOVSQvEeNRnj93rh9nuXvqGMy3gf0tyf79/P3Bv92QZ
HGwBe4dC1db0fugUFLJYwdsCey5PnPnC7gchtz8DNuS9sEDV0umh2QDUT9II
akcT5Bx++nHOegBuembsCq1vggyV7Cl3uwEoLvFuOVzaBDH7F+443R0As3tx
AmZvmuD+rmhvy6gBuLucFU5xagJ1icYwzZYBcErOKUjkaoKqOfXPK3QHIcr6
TY/b+kbo5IQc32o0CF1LLFO+czfC5G86RctsEOIn5vhmJxpAYthr2tt+ECLC
vhUoNDSAc0eJ8nzAIPy81TKc8LwBxL+qF43XDYKRivlVo4V6sH+gjq1nhyDx
oVCYUWYdrF2iXv3WcJi8d675Mfm4CnIUPQvh0jAY8e3AkUtVoG9WlNFsNQz2
mTuCS5WqICh/v/+c8zDwJK9/+re7EgQcd5w+HTIM/ZdnMFalEpa3r6sb/DkM
Vd/dLqUzf8Dsp56GHSdGYM/S/I4YsTJgXn9OvFEZBbpTQpWhTBHEh0+IdKmP
Au+OxPWrcgvhYsmF80I6oyA4PVr8n1YhNG3Y3ORlOgpEW1LprE0BlFYU15re
HYVxWf+y5NQ8SNo8+o2/mOQz9ez2NblgQdd/fRPGQFqWm+Fx+A2M7eQv3Cg3
Duq+xqy6ylDMvD+QLbdtHLw+T6swWl/gf3WVaTt3jgNXSu7JByMvscPxcfiR
feNQov9c7IJYDNZ8WLh5SZPsn/x7a+WxJExTHt8aaz0O9HFPj/2NGXhFkxIu
nkr+//Xst01ln/HnxQQnsS0T4GTlGPTHqBxHilq3lAlPQmpRsPMK4RZM6dqX
mCf+G6SCRk9RNekYt2+/qPHqKZA+KmK5cbAXp2HpvZ0LUyC6cPeqvcYostdM
Jp/imoYCoe48s+jfKLLWr0p4choqHslfa1ebwWBlOecz09Pgmvt4JstoBnmv
oJjv7DQ0rbGU8LedwblMju0UNwdC49NlzSNmkK51fVXzeg7Im2ZdvD86gxl3
dAxCDnDgqJ05t2/iX1Sl83es9ODArhOcB+38c/h5efpjDU8O7JVJqGLJzqGi
gpbCXW8OjCJ/559Dcyhz9/6DgWcceB17xEH5+hwuFxqRrorhQJvgHrM9P+aw
4eQvG99iDvSKq/2b9ZpHHUfb1V9LOFA5tLMyMWoeS8OX50+Vc8D25+Jt/Zx5
/MxQ471ax4G5NVZhdd3zGHMvO1OjiwPqPacG1GAB1yefNrzL5MAhjxTx/RcW
MKCqb+5DLwdmSifV991cwAfC0mdkxjhQU+PpejZhATlHiv+Y/ObApY9Hfezz
F9DJyiQ+hMOBvOT5oBf1Czj4dOpE1RwHXuXcjyrvW8D//34J///9Ev8Pxw+9
/Q==
           "]]}, {
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[3]], 
          Line[CompressedData["
1:eJwt2Xk8VN/7AHBKspUlKiJJUYp8SmmRR6KISpbKkhaiJEtR9myRCFF2ipAl
JUtl60hlKSUkZJu5d2aMsQ1mTKH6ne/r9ftrXu/XnTn33Hue5znPeY3SBXfz
i4v4+Pi+8PPx/e/T4UX85L9/PPR8Wa16aZmgXn2cgsq+BR6qv9x9uf+poJ68
R5HdjV88RIudeiKWKaj3Q/NDyxibhziUR+K+kYJ6RmW8J71UHnpna1keYieo
p1Fpf7r8PQ+du5z26MRSQb1f1VvfOUXykNrXO0+Hzy7Ri2lsTviynIe6ROwt
W+QF9NbJUT1OCM8iOH3vy60H/HoeOhYnNstwUSMn12jR6F8493T20OeNHGRL
To0s2z4Ptcf8biqvn0Hv37o7lTziQeeHU0Vt26ZRydxNxz8VHLC6KbN6++Yp
dNa4y1Nwbgr0dyh9Uts4hSITNX9sZk+BxuTWAGWlKaRfK1ZvwZgCIWcDirTs
FLodq7K2pmMKqk9eL+AJTSFP31893cVTsHZX++46JhuJhnVPHT47BQxOjLVR
ARt57Uqc5X1ig881gXR7VTZaeUz8d6jLJDx+KJuZocxGJyV29UvYTkLTG41H
PxXZ6NkdFbdCk0lY+e/0k5Or2aj2vueDua2TUBFdUnxMmI3E6kXy5NkTQDEu
8Qn8MYlEHRQLz/hMQNvzEzX77SdRmltw57v4cXjuk6b39uoEyvqT5BRJGQVK
ffps8sUJtKxs0iylYxSkhDOfeZ6ZQL5HwsQrP4zCzdRHqzcenUC3M4oXJAtH
Qa86lx29dQItmtuha31tFDrnnz+2Hh1HvlCXLLd0FH4FvefjXhpHOmtueZrv
YYFa04dXX8+No++r1N92b2WBnXija8HpcQQ5qb6X1rHg3aPmHlujcdTa9Xfb
s6UsuFv/pbRBdRzZjm3Vr/0xAgqLes7FM8aQZsDLnQs3RkD/9lj9FscxlH50
swodMYGVzrcq3m4McU80qMdWMiGhTPoqx3IMVVe1d+oVM4Ec0pGtMxxD/l78
Uw1JTAjfe8/zmOoYOjPgqLrXjQkfJ9XXe7JG0aWX+/Wn1zLByMY97JXHKLoo
ZLzuZuQwsD3CeuUujyLmRPfssaBhSIlM3nbr/Cg6p2ciq+k9DCMVqO+w+SiS
p8doL3cYhrviElq9O0bRqQCd+3tgGD5/KKXNz7JQysrjN4/8ZsCxbdOGBwJZ
SOixxV99Lwbs+/Zi7LM3C632HEl2dmXAJs+riSfdWOh4tn37A0cGLC5nUq6c
ZaGF9+pywlYMeLNryD/pAAtFJx5Fp3cxQEm39eXoEhbqu7hUO2GODhzTfIWk
2BH0ZbNAj10UHajjDh/WRY6gvJK61/GhdPgaq3Sl+NYIKn8VPdLqT4fCbxlv
6j1GkPqf4j32bnSwt0y0GDUfQUT/6GGaBR2abYOj9FaNoBdT/fP+6+iQ7mLD
ZT1iIrP3G+qaEQ1cl00e7UxmouWKF3vCq2igUxqWXxPHRCffuDkcKafBIPfZ
qZhbTKQ561k7lU+DdSH/qtTPMtEn6iHll7E0yE3ODfJYy0Q3YjPE2GdpUPJh
YulsxjDKGIu8f1qYBkHOYecGHwwjjyXN2ToCNDgmsrqqMWYYaU1df7v5Hwns
4wdckgOGkcGDJxKKXBK29yW27rbD10083nlTSXg1tfu+/5phtCvhv8xvNSSg
tWFy/GkMVL6DFqxykwTBeLUVXgkMJBgXct7lOgmm/B2iw3cZiHY4sbXSnYQe
ct2fVn8Gmitd0Ha4RMJ0wduhlDMMVHbTUGG1DQkqO+ZyNZUYSC7+0diwLgmu
udmZT2QZaGGg1fDJPhLKZYyTVkoxkKWAFL/TbhL0fiVHLixiIPmq1kT+7SRY
1+10aabR0a6f58n4jSTEHPbcdq6Ajo6Xz3OXLSeh483qTZ2P6cgph31AV5QE
WbX6dYdS6aif9rjJW4iEfDFxqa136eiJvvyNuUUk1Lc/4/Cu0FGZT/9qm18E
zNgyq+K20VFR5HU9DxoBe7/ElS3aREdpjc6/pQgCgnW1i73X0VFXZ/X72iEC
xJQiMmwl6Yim7RS6sY8AFYbyLdUZGgrar3nepIMAG4+zBugVNi/EnfGOgHBy
YCLuOQ0JCe2caUMEPD9pl3oun4YCorQevqsjgH+/9QR/Eg2dZuqq1lURUCBs
kWLgja+fjN4sU0ZAR0C7vsxVGmJoPDOEUgIWJo+P0x1pqOTuRSfP5wQc/2Gq
H2lJQ7FdTQXjRQTM5hwaa9lBQ//9tuw2zCVg3cqPSWlbaGitusHbFzkEHIk6
eOCKMg31z66KV8omINNdL0lsBQ0JWyUOy2cRYKCzV+/4NImqA0jRaykEuL14
w1JkkejLI362XDIBKeu1H7KpJFK9Ypb3+SEBo0JarPvtJGIszr9hkEhAQpf6
g++lJNoRtM8mMZaAWqNnunkFJJLcMHLV7x4BjBq1Ee/HJCoMX7HncgwBe3JU
dVfFk8jglsDImbsEXJDJZw5HkohUsG9yiCIg5s6GxDe3SOQTbGPmeYcAipsS
09qdRDVp562eRBAgQjxKUHMmkeCpf5+abhOgZbV2/7w9iYIpFwdnwgmI3Lcm
IeMYifY7lrdfCCOg9HmqztVDJJJ3UC/OCyXgp9Lq4f26JLq4O0mGHUKAhpCM
zpA6ia6628SnBxNw2j+R8WIjiT51GaUt3CIgdELyfrAC9hrTTRexu74vZygt
IxH7+Ov3pkEE/D18L35agERl+mWfPgcSsKlGdN/7BQJZrGUamWMHZAvFO44R
6FKqWpZ3AAH50pF7d9II5Lf/k5sU9rfIJfQl/QR60vmp8JU/AXNzYXE/Ogmk
Ncg1uYC9wW3R3qefCeQ7JG0ug32MGky7+Z5A762n3rT5EeBj+S/WqIZA9m2W
gfexc5oC98iWEyijQSjDBvvz3gVypIhAzZU/JLdg7929YYiSQ6BuA07EYuyC
naY/u9MIlDPOFiJ9CVi1w6vrawKB4FbDgxbsCM2Mbx/v4t8326u+xuaqf/hc
G0ogy9SaumJsxy1jjeV+BFpAXy2fYndukm4oukagn6KxI4XY+io6ddkuBBIw
nfQpx36p7Pgm5QKBEo8z/73HXqcUUx5nQ6Bsupt/H3bs2ornEeYEMhzwYf7G
/rOmvzDwCIGSlywcVMTzdZUVyPPSJ9BL9Ym7Jtg/V259fGUvgYo2GFYHYRtL
W6Zf2E6g9KrZr2+w30gGJFmrESiz5tfH39iq4rn3zdYTqOm3XsYB/D6TxFpj
DssRaPvBj8fisQVEOJG6UgT65eT/k459fal82E4RAm3TstbRx+tFCBgEbV1E
ILavpWcettkiV1/lOSqyWupwQxyvt8afGndJFhVd2nmfxsPOnCNdhAgqMvLK
OHwDx4vYL1Gnf71UtFU7wW0ee2Ta1m68hYocbksvyP4v/thhp2jvqGj4eYxd
OXbjeLF5XxUVdaQ0elngeM1lzhu1FFLRXtbJ+qc4nlcwlA3qs6mINZkybovj
PZQ0gdepVHRh+nrjSpwPZwfTd+ZFUZGwWqvbY5wvct/3rQ+5jL8vwjRYjPMt
qt1Bwec8FYVnfvcdw/71NXq1uzUVFeYJ6ffj/PzR0rf8jDEV8czXBrfh/L2P
/Od3b6Yik2bijMB9AvjqnsxuU6Ki0ZLxbqUEXD+qP0+pyFJRT8hEqyGuD6aV
a5jSwlS06L/CNdm4fggV13xnMylIy4I+m5tGQFDSfElBAQX59t+bH8zD9eDC
LmO1bAoqO6PraPSUgMManrTiVArycqgwfF1AgEQjQ+7FXQrKl5G+nFdMwBNu
e2SlKwU5fEgea3hJQLNlwfkGTQqaazrzlg/X35J15MLBzRR0JDQsur4e16sx
hZSPShTkt3G+8HYDAbbhiV+bpSgoDha3KzYS0Of850bWyBDacM01NPELrvcq
RWpvPIfQx6NmR24MEMCuUzxfc2EIZUW8FLiL94cqq4fJby2G0HOxKWYOFT/v
7WCBjzuHUJSsxkYanQBP2snB9t+DqJ7+UDV3AtfHnMUJoyGDaOFDy5bV/CSc
UDzze23CAGoO15h8u5kEojo4cSBkAOmfMBsu2UrCtZO56hmeA0jl/IWHOdtI
SLg3el72xACyanknmLkT74fzvp9WSAygGI1TjK4DJJj3JKULxfYjdYZqj6Ut
9v1v+6ej+lBlT12wZwIefyunu9S3DwlpBq6VTMLjN6+65n65D6nVBi97lYrH
/2efP2bUh0Sm3naIZ+Pxr44vH17ah7z0+HMWleLxjohQ+m7/RG/FRxKIryRY
LDYI/RjSi3J1c954S9Dg6757dqnXetFodH2YhzQNjnj92HXVoRfZaBmmuq+m
gT790qi0YS/avvRQqt86GmxvumfpKNSLtJrD895r0kAiultlcVwP6jCffKlo
ToNWqSuf9TK60bqL+8vGk2lgsD5BuvZVF9K3oC0330aHCPsoc5P8LiR0I5ha
qUWHlrTg+J8Pu9DoUZM/CnvpcGyFu9hvry4kbXdp8bwBHU4LmArs2tGFHIuz
JoZt6HCFsYTz4sV3ZEudcr4bSYeEIt/OJwWdKGYJVaGPxP3i9vMJ0Wnt6Iqg
lSX3Ke4/W1ktgsqf0XHCJETcjAnKBdSQpPT36KFqttkxfhbsbqtQKiVfoVOm
pn4qnFF4MCz28MvDLNTh9IF55Mc4hBo6SzzWzITxzR8oMhWTwJG5js6GvoYm
JYEcm59scHqdXFR84j14+XEWh7ybAl8+ryzv8M/wZDOhvb9kGvQXOXjdbG6H
QxW7qI9uzYC9cIeKf3c7NMgoBIeEzoC/xIHeIEY71Mey887fnoGKtYq6EQId
EBd0OUQhegY27utb+lCvA+6dnrAMS5oBIS+L9LI3HeC7POO0YMkMfKUfbBgv
6IS3hkYbqT0zYN2yQcIxqgv8/o1czt3CgeetdPtnqV2QouzjZqHBAYFv+SWc
wi64pKZqw/cfB0p/bDK5/akLPso8pFjs4oAgbWtEvugPqP7pGkjV40DFX60F
5r0fsL5n8sFDKw4s1zJkXk3ohove59VOBnLAUVtQ+1VON8QwpxahWxyo3tt0
+29ZN5weFYvfGMqBiweMleM6u8G/K+7daAQHn1+P2pdK98C+8ttWdvEcuHzZ
6vt0Ug9sPy4z1JrDgQ9ZF+tvpvdC0ADVmfKRAxpL+NuKinpBsjSF1tPEgZQr
GQMDVb1wzezyzrYWDrju7pw72NMLOtt3HKv8wgHpDr2dEjI/YeGv827nLg44
LJEvKoj9CQN047ZzNA4scu1I7A3pgzqNeMEcPi64dlzNEbvfB6+evrhjvogL
P3YLv4THfbCluKGST4ALRUv0vua97QP5qCzRk0u5YP6oROjafB/sVdkaSlvG
heyOO4Ei3v0gtTzRL06OC3p7wHnfpQFo69VMkd7OhXXRkd+Vbg7AL3l7fs8d
XOAbaDsgFDEASk/1l3zW4kJ98Dn5ricDkLncuuemNhegOaTdbWgAIjPboip0
uKB76sO+nJODYGQVKVJ1iAtrC8UK71wchPb2lnsTh7nwd85ypbvXIEjFnk9R
MubC2yw6e1/CIIwefKMbbMKF/QzB/K4vg6C/etVzRTMu6HgbSwgbDsHTP/uF
GKe5IN90P3DSYghUwdt9xpoLC6t/srouDIFs1aMjf224UFvr8jEneAhCvnNP
iZ3hwj6BGD+d2iEokK95JnyeC5nGztOvZSngFXN0251LXIi5Jrp5ixIFbq+1
NnC9zIWA9BdnszZRoJ7KrTrqwgW7cV5ruDYFhn1FGoRc8f3v33l6wooC4Fih
fNadCxk9hXaj8RTYXfNcIcabCwX/blD5Uinwu5RhaXWDC5UqBk4rsymwWDjN
fs1NLnz1GnQ/8JICPtMHyEwfLvBLrghLbqeA61a9iAB/LizfTVla0ksB4VcL
G7cGcEHubElMA5UC040d0T3YWiWHk8anKKBxP+2JahAXnIwDCg9KUeG7kX5P
VjAXrnkYa1jLUcEx1itQK4QLt5JXlrutp8KhYPv+RuwUemlt6nYq+PhvekcN
5cKnEHrbpDkVtE7ozk+G43gqKLNcYkuFdr9u/Su3uUC23eqVc6BCg3ejNom9
oCBHGl6nguK0l3JLBBe2VR+bTU+kgnlE3Q/XO3i9qGv8X6ZTQab2+Zkv2EZC
I/8an1BBg5l4Wy2KCxdOhglPl1OBsVO47Ce2W6BZ7NJaKnykBJer3+WCf67C
CoUPVAh4UHM8EPvB9Gt5o+9UmNlkbC4VzYXHsrezz/RTgZsQVnkKu0TPXOU6
jQrHV5uVpGJXOysW3xmjQm7g+t092I2xY9uyOFR4EOlmuSKGCx2VVRXlC1So
m3vKZ4I91B+xp0WAgPfp+vtuYf9SUzrIkSZgyNfFagBbwHyiSViBAG29of+W
3uOCpG+NqeJGAsYOhSepY699fKddS52ALPMvIWbYak1WJ4/sJGBCVWPaHVt7
Yn3f2f0E+EfLMaKxDWTYZ70N8bnlgKBdLraZTh3t7lHcp4tfNK/CPuNw9/Jj
KwJ6qoqaPmG73D01UXmGgGwBk+oe7BsvN1z/fJGAloqqTSR2WM8Uj3KVgOlY
F0kWdvy/twGz3gRUn2q/No6doRLDL4b7wPed503+58Kj1hFK+JxT0hSXOoL9
yktFVBufq+R+fbUlsBvSZ+JMk3DfvjkxvhvbmlPi1Z1JgMuuCaP/zYdtesn6
Au6jMm1nGf+bb0Teet3xZwRUNF6+nI+t8Ld/vU8F7mvyBNvisCtOJi9dXEvA
5Q3RK29gH3lxYuzee9zneFbqWmNTl4q1r/5MwH81Bw/twfY511j5BJ97c9U5
W1Zii1cFp2n8JKBmNnxiEq9HvuS+W1W4Dxo7WBHTiK3jwnUwGMHPo6+3JA27
s+GFURubAK91wyddsF3WuKj/71xeIeIcrI3N57VBiv6PALpGUDA/tsbG1L45
fO4f/enyLxrHy8dAi/rbK0korqv1N8W2+7EsT2ItCZrxWS3C2FGRoW4q6iTY
V4t0+eH4XEfRsXipRcKMq2S8Bvar3TxtHR0S1n98vGoIxzdt5Aq/uQkJyvLm
kbuw/fRVGP3mJFC92a4DOD8k0ymfnG1IWL5FQi4EW9fU6kHgZRLunWn9+DaS
C6nPdVULI0mY7BPQW4HzTXPpb1GtOBL+CfvrPsb52Hi2nP0W91mb/znMbcbm
SGyq/p5HwmNORN4OnM/Hrkse5fuA5ycwmKeI853++fN/0Z9JKHB87ZqA60HA
hoiVKzvx/HgcBj92Ydfc0BaCxO/1IfvHLRz/u2nXTvHRoD1k907rQC6kx2ed
IpbSINSDz+slrkfbR07rXBWnQc4fBTtB7LNpX5aEraWBYKG5cr4fzseFVynP
dWigsd/dpQ7XP493UW+X+NKgRGngnbEnFzasvjq1PYQGVyXMd1h7cKHbzWzD
uSgasA5nP3bE9VVXftXd6lQatKQ7XXK/ygXRm7lW7tU0WLa+8pYlrtf5W9FY
zzwNaP+eONme44JNWI6ioAAdXGpiuzaf5cKyn7fNd4jRwZdVrsLB+4FXpOmb
e/J0YJYYXg6w5cIBojdMfz8dJqVf6Nue5EJ/MkfuWRC+Xt03ZIb3o/iJ7qO9
EXSQYOuW9eP96qBhTbBgHB3i3+scdTTC++10COPcIzocNnv8w8mQCzePipfJ
1NPhjsk2kT3ABanFasa3+BkQte7FPQm8vxq5nb1pHs6AlL9G34Klcf7MbhPh
RjPg0Xj6nVwpLrwP4stMTmRAB0Xd+YMEfv647Ib+HAZ8S+6+/0sM1/9Scpnz
OwawcpHP9iU4/qadc/3/MuC00pdLoxwO/PL2aM/1GQapdq2Xl9o5sOuvnuPh
4GFYr/+0aHkbB65HSPJGIodBsyfrcWkrByaSyuS3JQ+DjTYjgIn7FdprjnNV
5TAUrrXoUH3LgW+/ff5+mR4G1o34VrKQA4WBIVt4rkzgC2APHA7iQI5/wdXr
XkzQuDBs7OvPgTTftheT/kxIIv4ry/fhwF1vBS3mXSakeHVf417D/c/VKp3e
Aia0afy5f8GZA5pnpo7W0JiQGemt5XecA290znvcshsBU1UNjyR53O/tvVM2
7zACnKj1Swxl8f13v+DcvDICjWmr3Sdl8P20/vh4+I2Ae5RinbY4BwK2poac
TxmBXWOaikn8HNCTb084+H0EtCw2MO/QZ6B5Xq9yqSkLghZfmNlfNAMDvHhD
FUsWiF/5tl4yfwamZyhdBnYs4FO9qTOUPQPyY8GzIa4s0G1T3eSaOgOe/fXa
CzEsEDFSrzS6MwNydXrV7C8syJEMPyR6cQZcg/RQ7/FRiKnea1osNwOS/Hot
xRZjEC6ZJvXPexpKNQKrwHYMGkwGPAc9psHMrrqw88IYMM4OiFZdmYbY11p3
5z3HoCdrjnX2/DSIuW02MYkfA6tdvP+8TKdBsE/qC6t1DNobnD5WKk3DXAX9
2+ZD4/BXJE7mQfMUEJeie57unoB8pdBZ76VTkPVgauWg3gRsUt8efZ9vCmzq
T1lJG0/Ab9mmjU9/s6Fj1YaOYOsJOGS03ql+lA0NjbWfrf0moKlVk1HUxobs
DRNvRWsn4IaioY99EhvOUczy3GESCvfxRWkpsmFyi2jVGmU2CGZ3CYTpTEBR
wMgLZVU2hD/a5DK9ZQKcvjTlb9nChtVvykKs1kxAv1v4g3072FA0p1wz+3sc
Pr384257kA1Ca0L4816NQ742WyXdgQ3rb5ze+lx9HOwPdj2Qy2VDPJ9kwBmp
MWi1eeQhu3EKHtRaSoRXjsB4de/G9zLT0H9zU83+eho8Gdzx+BV+75tiF5v/
WIb71B1aq08u58Duc5dMUkLbYBYW+2/5wwG+xcUT2SL3gSY+nXOEbxaCC9Jn
Jtu+oZWSkc0y07NgV+powy2jojhtZc+js7NQISkbmDZIRUL2SPb23Cx4fWr/
YC5CoPkingtnEQ/Yw+faF84TiGJwaVnnCh5sOONyQFuKRIU+xubxO3lgGvI1
3ugGDelQRPtFfHmwSftvFNd0GFUKFoTrB/JAa/yogqD/MNJQN1D3C+HBMzXV
Q2qFw0jJLyBoJIoH8kSEU8kSJhKUHl/XnMaD8FZ3g0eIib4d/nrxdi0PMijR
d7S0WcjYzWV5XT0PzoU6ywU7sVDDA8HXnA88yD0o7jf0kIUqqbpCjl940Pyp
s7SXw0Jp/i+K9Ad5YOadZ19bPopW5JhY+BE80Ms8+S6fHEUxzcPzLxk8qNfk
LstbMYaCZNYdVZrkgaOe6PWB62OIt6+We3oGz0c8OmFV7hjyuHA6K57HAx22
UNHF72OIdYdzqHmeB0JiwnVNAuPo//+/hNMx4m37d46j/wPRJWvO
           "]]}}}, {
       DisplayFunction -> Identity, AspectRatio -> 0.7, Axes -> {True, True}, 
        AxesLabel -> {
          Style[$CellContext`x, {FontSize -> 12, FontFamily -> "Times"}], 
          Style[
          "\!\(\*OverscriptBox[\(x\), \(.\)]\) = -\!\(\*SuperscriptBox[\(x\), \
\(3\)]\) + \!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\) + \!\(\*\n\
StyleBox[\"a\",\nFontSlant->\"Italic\"]\)", {
           FontSize -> 12, FontFamily -> "Times"}]}, AxesOrigin -> {0, 0}, 
        DisplayFunction :> Identity, Epilog -> {{{
            RGBColor[0, 0, 1], 
            PointSize[0.04], 
            Point[{-1.315792109681497, 0}]}, {}, {}}, {{
            RGBColor[0, 0, 1], 
            PointSize[0.04], 
            Point[{-1, 0}]}, {{
             GrayLevel[0], 
             PointSize[0.044000000000000004`], 
             Point[{0, 0}]}, {
             GrayLevel[1], 
             PointSize[0.032], 
             Point[{0, 0}]}}, {
            RGBColor[1, 0, 0], 
            PointSize[0.04], 
            Point[{1, 0}]}}, {{}, {}, {
            RGBColor[1, 0, 0], 
            PointSize[0.04], 
            Point[{1.3157921096814968`, 0}]}}}, 
        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]], ImageSize -> 154.7716535433071, 
        Method -> {
         "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
        PlotRange -> {{-1.5, 1.5}, {-2.837250096608577, 2.837250096608577}}, 
        PlotRangePadding -> {{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.05], 
           Scaled[0.05]}}, Ticks -> {None, None}}], 
      Placed[
       Unevaluated[
        LineLegend[{
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[1]], 
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[2]], 
          Directive[
           Opacity[1.], 
           GrayLevel[0], 
           AbsoluteThickness[3]]}, {
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[\n StyleBox[\"a\",\n\
FontSlant->\"Italic\"], \"sustain\"]\)", {
           FontSize -> 10, FontFamily -> "Times"}], 
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\) = 0", {
           FontSize -> 10, FontFamily -> "Times"}], 
          Style[
          "\!\(\*\nStyleBox[\"a\",\nFontSlant->\"Italic\"]\)\!\(\*\nStyleBox[\
\" \",\nFontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[\n StyleBox[\"a\",\n\
FontSlant->\"Italic\"], \"break\"]\)", {
           FontSize -> 10, FontFamily -> "Times"}]}, LabelStyle -> {}, 
         LegendLayout -> Function[$CellContext`pairs, 
           
           TableForm[$CellContext`pairs, TableAlignments -> Left, 
            TableSpacing -> {0, 0.3}]], LegendMarkerSize -> 8]], 
       Scaled[{0.83, 0.9}], Identity]]& ],
    AutoDelete->True,
    Editable->True,
    SelectWithContents->False,
    Selectable->True], ",", 
   GraphicsBox[{{}, {}, 
     {RGBColor[0, 0, 1], AbsoluteThickness[1.5], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjnk41fkex4WMdEIkp8tjMCQ7wyXCN0uWksnSsZQl9zi4KftkxChkynad
uiO5IcTTgmY0Kc3jfoQoHeZwtp/95PzOYj+LRIXb/eP9vJ7XH6/neRvEJgfF
ycvJyZ3/uv/z3k21UApFAKtc/E7RFxlcHAyYeR8rgGZtTx/CV3eRL4+PjBbA
epHNEvWzDLBUQlZImAAqSX8Y1nySgXrgrjsexwXgVe1m/3RdBnlqChN6VgKw
6AgWT63KIKp0LYrzgQ+PtfT7LJdkoFs0RfG9xof2HMfKjikZpJvyJM5UHEgN
w+s9f8pA0h3VG97KAxt6t1LRf2Qw+nfBonhoFr53ss8nX5ZBeUQTtWriPSRu
ssiLoTJITR/PSdrggkZLSr6jgwxsXHx4pxS5sOhE3L+tLoOGvjzPMybTkDVw
8MvzBSnYbpw9eYEyCSU+VEX3N1K4VPbw5L28ccjpcHGSq5fCbpXZcfNODAS+
Bh8rLkuB7P498cFnNuxPD8O0SFLIwCQnjhFZ4JbbGpBrIYXR0BrCkdMMOOYX
f6ZbUQpChxe9gUkj4JUgen4Hk0BBPet0O/EvcNGffazdIgFGk4Zb2p13YFMw
bZp1VQLURCvNjOEBIGQRXi4HSmBu00DexKsPdLicWFcjCTwJXJ3SudgNO7Wm
rc0kYpB3WLTDgzvhAenZDv8uMUwk1s1I/dtBv9rmtVOJGAyc9AdVIptA49w9
l4UgMWAFBRJ6SSngcrp/HdUVA7Ew3yPdrQQpWXgmfHizAseNTcwOSpqQeimr
7qfjK0C1Myn/8E07Gq9cNb4/vAwNp3MtmW2dSH9vSoqV+zIEeDsrrVd1o28i
t/wHW5fAZu/0BPNAH6rOyO+P0FmC+7qNfcmCAeTT0ts+lLIIP4dW3ApPe4eK
V36yUetbAJpugHzs4jBquHar7bHKApCo+z32hY8gsqVCxSvTeeiuEyTpxYwg
NmUy5ujBeTBv67h9KH4E1W4WnuoynAe5d6Qll8wR1JCge/V3nXl4pHi7Ko46
gjIpbzn5e+Zh+5L2SsfbEVR85EZ/v3gOHkQR74Y7jyJ6Yg+l69kcbJj/ba1W
h4HYPbtS/n14DvAc9Zqj3zFQlZFFrYn9HNCHlLxmzRhIwFu/8Nz6a58soxo7
MxCDusCiHZwD0lOaZUsYA4UEqm0M7ZuDP5zz4jp/ZaBrq6mvDMUiSPbDmQw1
JloMftQ01iiCiOrxy5naTGTw+fWmuFYE3gt0Q+1vmWhMgcdWqBaBXllXSoQV
E3F9R6d0KkRAo1cS3vszUX9X0IpmjgjMwvy8lm8wkVFi+ioxWAR8SttTZUUW
uj7EVlPfFIKNcur6od0sRH7/NmnioxCyH9q5+mmwUMjHaNt6qRBUF1/039Bn
odvNga06IiEcTu0dU3FlIdVuxSuDo0IovYxtE35kIcKM3chWsxDsK+T994pY
SMWq0cbouBB+tn1dYbvCQoXxm0WaXkJ4O/oLK3CNhYpDuO6fXIUQpbUn+qYi
G7m5nw1vtRXC9WrtNE0DNlIqu6bUTBTC5H2LKq0INsrya7vRhQugsJOEH6Cx
ES1BaV03QwD45zDKfgYb5XqbLfUkCcDT7YxIY5yNxqImX4XHCUC+N3pxt4iN
GuxK6sJIAsijJaxuKnDQG/rL9ApHAWTPZCvOHuEg0lacWuEaH8YNcoumPTio
3mG+UnGZD07kPOUJPw4K8p61vsjnw7qogMAM5aADWhN/bjD4kCkt3defzkEK
HS2EySd8SNlZZ/ToMQdl+O+wlJzjA92nvrm5nYMa5mtP3grlg3Vx46HGTg4q
N6yqI5zkw7LqA4u7AxzkkcPxzHXkw3ni7/blPA7a0bRFJqrwYTDiaUfxPAcl
xXxb47CFg1nNs8O/SDioJeThJ20pDiKDly5XtjlIP3vFWGsMB4p5r1eaDoZU
p/4bfKkRh/4Lr/svGmJI+3yJu9WvOBj/NuB73hRDvGp105wiHHB7mj/ZEUNy
DdyojngcvC4ND8e4Yaj9iUJmSSgOjZ30U5HHMGThgZ14441DrBsrhBSMISvz
fwVYf4dDzxUOOygCQ+Rhrp2ZOg4GvWNhP5zDkKHySKr5Fx5c2Tk5fiIBQ2nk
+//cJeQB12f6rG8yhuxP4dlldB6gYu60149f/26tJV94wYNa2myMey6GBD53
9xyt5cGWKn/WtRBDGjuD9eKv8iAyUEh2LsGQmQcjlBvDAze22j+Gb2LIvSzt
uqMjD/TOHD4XW40h5cpaTbkdPNieiYleq8cQrUbbpII6C/8DWl+kYw==
       "]]}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.5], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hk81fkeBvDjcEO5aTD2iGypZDAM7vjIiyy5hGtJjjAyHbn2VKIoXEJC
tkoiS9M2jSVL8jUxCJU62y8HiXN+x7EczvlJthj3j+f1vN5/PP8+WiFRnqfI
JBIpaiv/74aValnTKgw5f3jTpJE8ASn/bL7rVY4hp9V7/6njTECg2+M8SjGG
jqQXeIjtmQTrvMqUX/MwVNhhLbXsMgnKQ8UxMZkYqpVZo5+MnISlXTkhF1Mx
pNY+FL0/dxLoHqle6YkYajz20bznwST8UZBgnxeHIbF1A2fSq0mIUAjWu38K
QznUWYHl/CS4ePsoPQnEkCJFgk8X54B+8VGpZl8MSepieSeVODChZD7d74wh
q1xG73trDnT67WfT7TB08V1cj8CVA+VlewbHrDH0KuDjJyqFA35qO56KDmKI
clBxuSWJA280xmNU5TAUfAwbWGviwMOTjBCdHRiyf+SyFNTFgcx7/V5GEhjS
0WiROzvEATvtph/tllgoourxUAefAy2611aowyyUsZmk4qbCheKwy9NxtC1j
ciY1OlyIq4tnJw+y0KXujBevD3HBaN/Jl/kdLCSoPN6V5sCF+wfMUlurWIiZ
LPvLeiQXrpuOSUmfYaF/yb9s9n7BhYh42opcKAspOv3vm383F5yb+qbVKSxk
2phGc3jDBQmLhkFjdxYK+6k4890YFy5YZd7wM2Uh8dJe0z4SDqGHTZQfrDGR
oDHnFtsWh04Qy1VdZCJqYs92E2cc1G2GxHJnmWiX+NnmeA8cGFaRMzGjTCT1
NW2wMxiHI2YPO6wRE5XGkedSUnEw0Nc+9e4KE7npKk2vvsRhVkaufkmaiRrH
Fv9YP8ADpx2f9ahkJpJW61LNNeVBtfSz2+xVBpoh8iPkrXhA2eaW3jnDQC37
RhPIjjx4u5nld+0NAyUOjZREBvHgmUhsc3c+Az33VbGvyOdBPCY86qDMQCFT
haKfBDyIzVjUtvyOgf7CbQ2oBA+izL6uHNjOQJHHJpiFyzwIv7Fep7BOR4vD
KuMYeQqCnCQlOJ/oyF5jx/G9SlPg2qLefqWOjoprHZ/12EzB3lLHA53mdETP
7m2/d20KPviWy1h705Dox70/Y4p8cOu68GvJv2mIVKQxFKDGh34jn1eEAw3Z
uO4cHtXkQ9c/ZM8/NqehDE2jGIYBHxobUiZ3K9MQePpdvG3FhxLZ0DYS+wPa
HVyrk0XhQ0Cv4emeoA/ohxcXQ5Qq+cAzb+nyiHiP5KKcyPv2TMPVSoZ3vfI7
ZLazOUpEmgFajZxNbNkAknpSedixfQbyqUby8W97Ed14Revg2Vngf9Mi69t3
IymBi5OZwhz87rE4qhbZie78lmCb1zgHZPNZU45XK0pmn0sQOAqATa34JHKt
R0rZfjsHXgtAy3JP/3ZKDbowUlsb4T4P2NWrwqHsHJQW2P7ItWcelNOu2MXZ
ZIOfO09uVXUBXHT1DfWENbARkLSh7L0A+ab6179I1kOna3qQQ9YCVHknH6Q/
bQW6a3hZH1oAtyNW25ZLOyHJu1osklgA4+/G2HSVbtBYlG+X0xZCtfr97ii8
F/qzEp5regnhku+NwuOxA3BlY2hX0WUhDKq7kUNm34Ke1jcz8kMh+OQr2ikc
fw+ivwIHmEwhrOxXXbqrRoPpukd9tzeFwA172iAlwYD6xt2cVkMRpLX6cFQG
mWBiIIiV9hQBxYMXapWNQXtbL6v9nAguZ0nNW0YPQ5Vy8MuOChF4ffx5dtxs
BLDmGyqu3SKIfi1OhGmOgULgrSrlGRGEbmI6l0jjEKY7SpzeRQBfty1L/fM4
jCc2/XndhICCO7/EPaR/hmqlRFvchwAFzRJFmZYJmFEflLI4T4BZd0fwl+JJ
ML6W88yrlIDzrU9/eJvJgWE77cM32wgoajN4kRjOBZ+EaFvxYQKWvEup4Vu/
cJctlnR9yz5CSWX/WC7UXmI9UWEToGjAi7dM5MJqkc/ioRECiotqjJazuBB7
kyETMEZAabR21dnfuLASGfzf+gkCbumpZ0VPcaEjcHrZd4aA1T+zLYJmuVDn
QiVNbNmfssZ1X+BCg0XoxplZAtRuDtsdWubC1Rn66OU5Au6Ila3PSeKwN/G9
Yd08AeUj30ef0cchvLBhgyAI2DiXrnFiPw7rtR2RyYsEBMp/GXQ5hIMnO4ix
7QsBGi70fYYWOJAoMRkqSwTcbS6YnDqCw1Sd8JzN8tbek1yAueBQ9oBzp3fL
gYIY2z43HPoNk1qOrRCgqetRXueDw6h/BS1klYCUzs6jJf44aJwwos1sefyE
8WpGIA73U0+/jl8jwPZrxYOEEByoCe7Pv235XoGsb1gYDovjnLKMdQL+Bneb
s3w=
       "]]}, 
     {GrayLevel[0], AbsoluteThickness[1.5], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVy2tcjHkbwHElplWp6KwHJSpGixKFLpIUSWlVIiUVrUNHrOigFDqpMOs0
lQ60tJWyNGivVm0loyYz99z/pjnck0EYbLJtPQ49+7z4fb6vflYRsVuiNCdM
mPDTv/3fxrFKfcdyguasbu73hwcgXe9eSQCXYInqngGtNwA7fWvOhnIIii0j
hwN6lbDi7LX0PWcJUl/iJjpVKcFMwImPP00wuzxZVZ6uhBGDvIhjJwj+sfaY
7NdwJYj8TwRkJRN0lfmde71WCbeLD3ucTSRIP1A+z7JXwn6jXfMqogg2RAma
RscY2LA10PTXnQRrPqaKHVUM2HI2at8LImj/LtQhrYeBAVPnN13eBK+WJlU3
VTPQErygX+ROsOIiOzSewwD30my+fAXBy77DsicnGQieoVP7cSHBbfzkWtvd
DDydycRbTCP4uDUgxWUuAzfDqAgbHYKBfhtX/mLCwOmyrgAHLYK6o399iNFm
wN36t6XuIzSeidDXPdengKa5OWMxEhqbp5zaaxqvAE502ptEIY2FZVmJhsEK
SLyR1J/Cp9GyA2PiQAEO9mHNRb/T+CDbVOitr4AKttMJXjmNte4+s/5pkEOB
o1z7u300hh+5+zqRJYfINUvMqj+L8XiEF7tMLIUW0Mi3+CTGVJvrWbtapWDp
JtDIV4vx4dAmuw31UqBcD76Nl4lxwo8XVubnSMHT6ebvK1CM/FdLCltWS8HO
1jqqJ0OMr5a/NLBr7Ae17rSGke/EuEMR61dzSwJJZGjjOjMKl9oUbM2kCCRk
f7J2MaTQd975jbWdBGKd/hljT6HwZl2UieoBgR8Lv9ww+iJCVtKk6thyAuFe
LC2VQoTrZwf5TIwj4NNk+TDjhgi/Xksd0dQjMOfienaLswhvs+JldZtoeBbE
1V2xVYiLeYHDfi8oeOXc1Oq/vxffPjLoN7IWQuY1amuDWQ/mRFoIjtYKQFg1
zS3h0hOMijrgVWnxFIpiHKYndXegztdUrz/ud8Lrr1aath5teN/r3N/mvW1Q
5/9JNuNgCzZrmKQY3WsBTWe1oyqAh2UFnD0+F3jQH1Oq+OjTgKu91zFroxrA
ymV215TQKmwLKbHnRlcBycwcEuTmYXjvYMnK/DwwO5nhnuiWC4Kb0og6yMUN
c23nzxuqgk75kmdZn6uwyNG24G9WAywyridOsxqwfGvKQlEtD5w9bKabDPPQ
19N18ujFFuhYZt/nqWrBRYbyfpF5G2R0X2ifX9GGlZYVbbEvO2AJt2qwnerE
1KDCc9sSnsDLpWVt+9R85Fv6akaou8H/6NPDt4sFGFhk4m60rRe+PUzSIywh
ji2wGCmZIYT/ml9x98ynUHXcgLt6jhDc6/sOSi5SKHg62WNgvhB0ytT6hyop
rI4dLprrKoSRqfZvmh9QGNjIX1gTLIS6nmhu6RsK77imRfEuCEEdkV1V7y3G
WG+VSKgvgrinDgsy9WgMuSw5dshUBKczSxdOtqDR863A2nSWCPSNzw8WzaNx
Zn5zXIiDCI66/qVqBRr5Ao6u0kcEHsf6fz6fQOP8YG+P92dE8Gh85ebxPhpf
RNc2amtRcGfZ47iOeoKLtONH7XQoOGPq1VrTTDD5F8dV3tMouJrI6HC7CE5V
N7WfmU0B64CMVaoiuDy+tW/KKgrcVlvls837MO8YGdc9TMFMsU7w2ZN96FSo
6WM4SMFXu3dO9VESTF38Z+HiDxTo3ana7pkkwcfPTlH+IxS0G+9Nf5chwZ3G
emHFWmIgx7WlsWUSPH3ZNGG6lRguC1Pf+0glKK1kXzQOEUO1vWRBfVA/nuQF
qsz5YljUc6v/bZgUVZ+Do02EYgiMMyvWiJfiWrftg9MkYrgSsPmHpRlS1GwN
U+sMiiEnW7d3rFKKafy9n75OpCGjufM/umopJiuStQZW0GDA6Xw/84QMJVYp
2XJ3Gkz8TzkdPy9Dl8g07X5vGgQek+awqmU4OpipKwqiIefT9LpbPTI89DHP
qD2Rhp+0Nz3fbiXHuEmlNjdv0XBojkmhoUCOgvXXrl9voGHfXc5uu1dy/D6n
wq6CR0Nxx6Oywm9yfD+1mn21gwbfU3RapIMC95nddip4TkPAkU1zOMUK7App
vJvzhoYvhlbsxhoFzuf+tvzUEA33nZV3vTsUOGh1f2X6OA0/d+/ZovFNgdEL
Wj0SZhDIVKtdN7sw2H7gz/aD1gRu93muavNicG59h9c+ewIDaw6xy4MZVDnx
fSKXEWDHdAXhUQY9jnR3h7sR6FhtwzfOZbCCJ/ALXUdgiW9ctBaXwQg36ofA
AALftn8ZG37E4KN0WrwlhICrL3GxoRm0au0L3ryLAEfZw/JVM5g+SSrZuPff
36ZS44qmEpn18h1esQR2rOntWmOhRMhh5B6HCeReHbmQ56jEEv5A+JoUAqMf
tpWqfJX4beqLgVUnCUSNnLAc3K/EUP9Xka65BPwcHwZdKlCim1h/d3cxAe2q
vvYsnhJnbl++K+IyAcbpefOEISWOK8LDRq4R0GqcpX9n1wD+D11uAKw=
       "]]}},
    AspectRatio->0.7,
    Axes->{True, True},
    AxesLabel->{
      FormBox[
       StyleBox[
       "a", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
       TraditionalForm], 
      FormBox[
       StyleBox[
        SuperscriptBox["x", "*"], {FontSize -> 12, FontFamily -> "Times"}, 
        StripOnInput -> False], TraditionalForm]},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Epilog->{
      InsetBox[
       BoxData[
        FormBox[
         StyleBox[
         "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
          FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
         TraditionalForm]], 
       NCache[{
        Rational[-2, 3] 3^Rational[-1, 2], 0}, {-0.3849001794597505, 
         0}], {-0.5, 0.8}], 
      InsetBox[
       BoxData[
        FormBox[
         StyleBox[
         "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
          FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
         TraditionalForm]], 
       NCache[{Rational[2, 3] 3^Rational[-1, 2], 0}, {
        0.3849001794597505, 0}], {-0.5, 0.8}], {
       Arrowheads[
        NCache[{{Small, 0}, {Small, 
           Rational[1, 2]}, {Small, 1}}, {{Small, 0}, {Small, 0.5}, {
          Small, 1}}]], 
       ArrowBox[
        NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.5}, {
          Rational[2, 3] 3^Rational[-1, 2], 1}}, {{0.3849001794597505, 0.5}, {
          0.3849001794597505, 1}}]], 
       ArrowBox[{{0.08490017945975054, 0.4}, {0.08490017945975054, 0.8}}], 
       ArrowBox[{{0.08490017945975054, -0.4}, {0.08490017945975054, -0.8}}], 
       ArrowBox[
        NCache[{{Rational[-2, 3] 3^Rational[-1, 2], -0.6}, {
          Rational[-2, 3] 
           3^Rational[-1, 
              2], -1.1}}, {{-0.3849001794597505, -0.6}, {-0.3849001794597505, \
-1.1}}]]}, {
       Arrowheads[{{Small, 1}}], 
       ArrowBox[{{0.3849001794597505, 1.2447005383792515`}, {
        0.33490017945975054`, 1.227701852119218}, {0.28490017945975055`, 
        1.2099899316441598`}, {0.2349001794597505, 1.1914802075547748`}, {
        0.1849001794597505, 1.1720703755088817`}, {0.13490017945975052`, 
        1.1516347548441792`}, {0.08490017945975048, 1.1300161166470677`}, {
        0.03490017945975049, 1.1070134416054385`}, {-0.015099820540249498`, 
        1.0823628227399429`}, {-0.06509982054024949, 
        1.0557061538497434`}, {-0.11509982054024948`, 
        1.0265364623370539`}, {-0.16509982054024952`, 
        0.9940943006446117}, {-0.21509982054024956`, 
        0.9571480076189861}, {-0.2650998205402495, 
        0.9134437325564974}, {-0.31509982054024954`, 
        0.8578899499361915}, {-0.3650998205402495, 0.7712015305444364}}], 
       ArrowBox[{{-0.3849001794597505, -1.2447005383792515`}, \
{-0.33490017945975054`, -1.227701852119218}, {-0.28490017945975055`, \
-1.2099899316441598`}, {-0.2349001794597505, -1.1914802075547748`}, \
{-0.1849001794597505, -1.1720703755088817`}, {-0.13490017945975052`, \
-1.1516347548441792`}, {-0.08490017945975048, -1.130016116647068}, \
{-0.03490017945975049, -1.1070134416054385`}, {
        0.015099820540249498`, -1.0823628227399429`}, {
        0.06509982054024949, -1.0557061538497432`}, {
        0.11509982054024948`, -1.026536462337054}, {
        0.16509982054024952`, -0.9940943006446117}, {
        0.21509982054024956`, -0.9571480076189862}, {
        0.2650998205402495, -0.9134437325564972}, {
        0.31509982054024954`, -0.8578899499361915}, {
        0.3650998205402495, -0.7712015305444364}}]}},
    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]],
    ImageSize->154.7716535433071,
    Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
    
    PlotRange->{{-0.7, 0.7}, {-1.2491518031584379`, 1.2491518031584379`}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{{{
        NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
        FormBox["\"\"", TraditionalForm]}, {
        NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
        FormBox["\"\"", TraditionalForm]}}, None}]}], "}"}]], "Output",
 CellChangeTimes->{{3.619851618506463*^9, 3.619851632940049*^9}, 
   3.6198516807306137`*^9, 3.61985182933892*^9, 3.619851906484747*^9, {
   3.619852571489686*^9, 3.619852613398567*^9}, {3.6198526747515717`*^9, 
   3.619852685087735*^9}, {3.6198529560261602`*^9, 3.619852988742362*^9}}]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["without legend nor tick labels", "Subsubsection",
 CellChangeTimes->{{3.6686120003501987`*^9, 3.668612018430194*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"x0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<  \>\""}], 
     RowBox[{"(*", "\"\<\\t\>\"", "*)"}], ",", "masterSNBs", ",", 
     "aValuesToPlot", ",", 
     RowBox[{"fs", "=", "12"}], ",", 
     RowBox[{"imgSize", "=", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".65", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"(*", 
       RowBox[{"1", "/", "GoldenRatio"}], "*)"}], ".7"}], ",", 
     RowBox[{"upperColor", "=", "Blue"}], ",", 
     RowBox[{"lowerColor", "=", "Red"}], ",", 
     RowBox[{"pointSize", "=", ".04"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"aValuesToPlot", "=", 
       RowBox[{"Sort", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a", "\[Rule]", "0"}], "}"}], "~", "Join", "~", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", "\[Rule]", "#"}], ")"}], "&"}], "/@", 
            RowBox[{"(", 
             RowBox[{"2.5", " ", "masterSNBs"}], ")"}]}], ")"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "/.", "#1"}], ")"}], "<", 
           RowBox[{"(", 
            RowBox[{"a", "/.", "#2"}], ")"}]}], "&"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"masterFlow", "/.", "av"}], ",", 
             RowBox[{"{", 
              RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}], "]"}], 
          RowBox[{"(*", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "/.", 
              RowBox[{"a", "\[Rule]", "0"}]}], ",", 
             RowBox[{"masterFlow", "/.", 
              RowBox[{"a", "\[Rule]", 
               RowBox[{
                RowBox[{
                "masterSNBs", "\[LeftDoubleBracket]", "1", 
                 "\[RightDoubleBracket]"}], " ", "1.5"}]}]}]}], "}"}], "*)"}],
           ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}],
               "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{
              "x", ",", 
               "\"\<\!\(\*OverscriptBox[\(x\), \(.\)]\) = \
-\!\(\*SuperscriptBox[\(x\), \(3\)]\) + \!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\) + \!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ")"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}]}], 
            "}"}]}], ",", 
          RowBox[{"Ticks", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"(*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Which", "[", 
                  RowBox[{
                   RowBox[{"#", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "lowerColor", ",", 
                   RowBox[{"#", ">", 
                    FractionBox["1", 
                    SqrtBox["3"]]}], ",", "upperColor", ",", "True", ",", 
                   "White"}], "]"}], ",", 
                 RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                 RowBox[{"Point", "[", 
                  RowBox[{"{", 
                   RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], "&"}], "/@", 
              RowBox[{"Sort", "[", 
               RowBox[{"x", "/.", 
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], "/.", 
                    RowBox[{"a", "\[Rule]", "0"}]}], ")"}], "\[Equal]", "0"}],
                   ",", "x"}], "]"}]}], "]"}]}], ")"}], "*)"}], 
           RowBox[{"(*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Which", "[", 
                RowBox[{
                 RowBox[{"#", "\[LessEqual]", 
                  FractionBox[
                   RowBox[{"-", "1"}], 
                   SqrtBox["3"]]}], ",", 
                 RowBox[{"{", 
                  RowBox[{"lowerColor", ",", 
                   RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                   RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                 RowBox[{"#", ">", 
                  FractionBox["1", 
                   SqrtBox["3"]]}], ",", 
                 RowBox[{"{", 
                  RowBox[{"upperColor", ",", 
                   RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                   RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                 "True", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Black", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", " ", "1.1"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"White", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", "*", ".8"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}],
                 "]"}], "&"}], "/@", 
              RowBox[{"Sort", "[", 
               RowBox[{"x", "/.", 
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"masterFlow", "/.", 
                    RowBox[{"a", "\[Rule]", "0"}]}], ")"}], "\[Equal]", "0"}],
                   ",", "x"}], "]"}]}], "]"}]}], ")"}], "*)"}], 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], ",", 
                  RowBox[{"Which", "[", 
                   RowBox[{
                    RowBox[{"#", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"lowerColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"#", ">", 
                    FractionBox["1", 
                    SqrtBox["3"]]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"upperColor", ",", 
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    "True", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Black", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", " ", "1.1"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"White", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"pointSize", "*", ".8"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}]}],
                    "]"}], ",", 
                  RowBox[{"{", "}"}]}], "]"}], "&"}], "/@", 
               RowBox[{"Sort", "[", 
                RowBox[{"x", "/.", 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"masterFlow", "/.", "av"}], ")"}], "\[Equal]", 
                    "0"}], ",", "x"}], "]"}]}], "]"}]}], ")"}], ",", 
             RowBox[{"{", 
              RowBox[{"av", ",", "aValuesToPlot"}], "}"}]}], "]"}]}]}], 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"Inset", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<(a)\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                 "}"}]}], "]"}], ",", 
              RowBox[{"Scaled", "[", 
               RowBox[{"{", 
                RowBox[{"0.15", ",", ".95"}], "}"}], "]"}]}], "]"}], 
            RowBox[{"(*", 
             RowBox[{",", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"a", "<", 
                   SubscriptBox["a", "sustain"]}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{"0.8", ",", ".1"}], "}"}], "]"}]}], "]"}], ",", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                  RowBox[{"a", ">", 
                   SubscriptBox["a", "sustain"]}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{"0.8", ",", ".8"}], "}"}], "]"}]}], "]"}]}], "*)"}],
             "}"}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{",", 
           RowBox[{"PlotLegends", "\[Rule]", 
            RowBox[{"Placed", "[", 
             RowBox[{
              RowBox[{"LineLegend", "[", 
               RowBox[{"(*", 
                RowBox[{"TableForm", "[", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], "&"}], "/@", 
                   RowBox[{"{", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ")"}], "]"}], "*)"}], 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", 
                    RowBox[{"fs", "-", "2"}]}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                   "]"}], "&"}], "/@", 
                 RowBox[{"{", 
                  RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"LegendMarkerSize", "\[Rule]", "8"}], ",", 
                RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"Function", "[", 
                  RowBox[{"pairs", ",", 
                   RowBox[{"TableForm", "[", 
                    RowBox[{"pairs", ",", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"TableHeadings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], "&"}], "/@", 
                    RowBox[{"{", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)< \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"sustain\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\) = 0\>\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)> \!\(\*SubscriptBox[
StyleBox[\"a\",
FontSlant->\"Italic\"], \"break\"]\)\>\""}], "}"}]}], ")"}], ",", "None"}], 
                    "}"}]}], ","}], "*)"}], 
                    RowBox[{"TableAlignments", "\[Rule]", "Left"}], ",", 
                    RowBox[{"TableSpacing", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0.3"}], "}"}]}]}], "]"}]}], "]"}]}]}], 
               "\[IndentingNewLine]", "]"}], ",", 
              RowBox[{"Scaled", "[", 
               RowBox[{"{", 
                RowBox[{".83", ",", ".9"}], "}"}], "]"}]}], "]"}]}]}], "*)"}],
          "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"x", "/.", 
            RowBox[{"Solve", "[", 
             RowBox[{
              RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", 
            RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}],
               "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{"a", ",", 
               SuperscriptBox["x", "*"]}], "}"}]}], ")"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"lowerColor", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"upperColor", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Dashed", ",", 
               RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], 
            "}"}]}], ",", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Epilog", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"PointSize", "[", "Large", "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"x0", "\[LessEqual]", 
                  FractionBox[
                   RowBox[{"-", "1"}], 
                   SqrtBox["3"]]}], ",", "lowerColor", ",", "upperColor"}], 
                "]"}], ",", 
               RowBox[{"Point", "[", 
                RowBox[{"{", 
                 RowBox[{"a0", ",", "x0"}], "}"}], "]"}]}], "}"}]}], ","}], 
           "*)"}], 
          RowBox[{"PlotRange", "\[Rule]", "Full"}], 
          RowBox[{"(*", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], "*)"}], ",", 
          RowBox[{"Ticks", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"(*", 
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Sort", "@", "masterSNBs"}], ",", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], "&"}], "/@", 
                  RowBox[{"{", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    "\"\<     \!\(\*SubscriptBox[\(a\), \(break\)]\)\>\""}], 
                   "}"}]}], ")"}]}], "}"}], "]"}], "*)"}], 
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Sort", "@", "masterSNBs"}], ",", 
                RowBox[{"{", 
                 RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}], "]"}],
              ",", "None"}], "}"}]}]}], 
         RowBox[{"(*", 
          RowBox[{",", "\[IndentingNewLine]", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<(b)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"0.15", ",", ".95"}], "}"}], "]"}]}], "]"}], ","}],
               "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                 "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Min", "@", 
                   RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                 "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Max", "@", 
                   RowBox[{"Sort", "@", "masterSNBs"}]}], ",", "0"}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", ".5"}], ",", ".8"}], "}"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
               "short", " ", "arrows", " ", "to", " ", "the", " ", "critical",
                 " ", "manifold", " ", 
                RowBox[{"(", 
                 RowBox[{"the", " ", "fast", " ", "flow"}], ")"}]}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "0"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", ".5"}], "}"}], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], ",", "1"}], "}"}]}],
                   "}"}], "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{".5", "-", ".1"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"1", "-", ".1", "-", ".1"}]}], "}"}]}], "}"}], 
                 "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".4"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "@", "masterSNBs"}], "-", ".3"}], ",", 
                    RowBox[{"-", ".8"}]}], "}"}]}], "}"}], "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", ".6"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".4"}], "*)"}], ",", 
                    RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
               "long", " ", "arrows", " ", "along", " ", "the", " ", 
                "critical", " ", "manifold", " ", 
                RowBox[{"(", 
                 RowBox[{"the", " ", "slow", " ", "flow"}], ")"}]}], "*)"}], 
              "\[IndentingNewLine]", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                 RowBox[{"{", 
                  RowBox[{"(*", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Small", ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ","}], "*)"}], 
                  RowBox[{"{", 
                   RowBox[{"Small", ",", "1"}], "}"}], "}"}], "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"Table", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{".09", "+", 
                    RowBox[{"Max", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"+", ".05"}], "*)"}], ",", 
                    RowBox[{"-", ".05"}]}], "}"}]}], "]"}], 
                 "\[IndentingNewLine]", "]"}], ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"Table", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"-", ".09"}], "+", 
                    RowBox[{"Min", "@", 
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"x", "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}]}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"Last", "@", "masterSNBs"}], ",", 
                    RowBox[{"First", "@", "masterSNBs"}], 
                    RowBox[{"(*", 
                    RowBox[{"-", ".05"}], "*)"}], ",", ".05"}], "}"}]}], 
                  "]"}], "\[IndentingNewLine]", "]"}]}], "}"}]}], 
             "\[IndentingNewLine]", "}"}]}]}], "*)"}], "\[IndentingNewLine]", 
         "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.619853060587792*^9, 3.6198531078060713`*^9, {3.6198532128975897`*^9, 
   3.6198532148033237`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {}, 
     {GrayLevel[0], AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk01N//B3DJFirZQiiUNkulRcglKoRKJUqSRCm7QvYlJHtCSLZkqVSW
JHlNkpQWS0S2mfcsdsaYMT5Ufvd7zu8v53HeM+POfb9er/t8n1Fy9LC6zMvD
w/NtGQ/P//5eqkieXlrigk386h8H9kwiUpKCqu4fLuT9CYKpFZNI3rPM7uY8
F3ak0J9UDE6g7h1NnyeYXPDszbW+GDuBTF5xC3spXChq8qRH9o8jjWp7m8oP
XNiwGJv+IWYMzdepvXeO4YJJ4sGadWPDKL65JfXbKi6wwzKuFgwQaIMcxfPE
ijnQdivNmfdvR556J09sleIAT+uxs64bwpDDk7nDrZvYUJI4eyzn41eot7zl
p6I8C1W2vHuPP+2HzqYzZT80WSBUzVSM3U6D035SMru2zkDe2r18N/NH4aCW
0pdtm2bAKjJUV7N6FDSm1YJUlGagf+cnl76WURByMSZLys6AdcK9clHmKNRZ
+5RwhWYg5PX0ns4DY6C4t1373QgTzIp28s12jwGDHW9rUsIE/wN1C6lL4+Dv
zZdtvxlft2ufWto2BXn3ZR/mqDBBOKtMxFtnCj7Vajz6vZ4JVUp1Ab2mUyC9
ZFNoLcOEIhmPk7FXpqDq7rNyyxVMODXWddD58RSQTZ/5B3dPw+kj7/U3KUzD
j+cn3h6wnwaawo44B14mPPfPMmhwm4KL3UWk4N9MIJOy5zIuT8G2IP+jNyhM
EF/x8KnX+SlgV2hMOON1+z14JLPJYgqmorNuaM8xwaCuiHlXbQo0bbp/pq2Z
gc7F53m245PgW71my+4jMzAf8oGHc2USUj/t0JV5PgPbPjXVfHeYhMOfe9NO
V82A3erm6yU2kyAWpbIvoW4G3j9q6TlnMglmY8xz480zEEf69qJx8yTwDvVa
XRqaAQXeHodkxgTIZKy1NVrNgoO3J0jbnSbA8Xkf+bsrC8ayedYm203AXrXV
5xc8WJD6StKNfWoCTvoLCivdYAF1SE/23aEJmM3yWLwQyoIonQQvy80TEME4
4FB0jwUfp9WVvcbGISio3crkLQtMznpE1niOw7+2Viq/4CwwPSN75a6OQ/35
qPkHIrOQGZOhGXpxHHiqzVy2is3CaBX0HbEahwJiq42O7CzErRbb3as1Dnxr
rco3bp+F1qYXtMW5MaB9NtGWt5wFS03WIcPgMVC73cx+lDwLum0VE603xqAo
Z/FJQtosbPFyu2ftPgaxfIYifpmzsLxyhHztwhjs8ull6OXNQu3eocB0wzFw
vWsqeb9iFpT0v74c5x+DgwXXbfy/zQLbvFghPXEUzAymBCUE2ECZvNS0IWYU
zoeskQlYwYbviUrXykNHoTtg29JvUTaUtuXUkjxH4YG13JlUCTbYn7p3ctxq
FMB54diPDWxoORd2x2DtKNj0L7sZqcOGbNeznLFHIxA7e15qwJUN11dOW3Rm
jEDpx3eCS25s0HsRWfw2aQT4/9M+KO/FhkHO0zPxoSMgc/b1fRM/NmwIX3qj
fmEEjtLMiSuRbCjKKArxVBwBzsoCt89ZbHjWNCU4lzMMFHu17VLNbAhxiXQY
TBsGfytRlcIWNlgKy7xpjh+GdLuaNLVWNjCPGbpmBA3Dqru54zvb2LCr795X
bTt8XVP7nsBvNtTMaKcErhsGqfgzm3on2ACKkXLLshhwRjdES2M1BwSSt0n4
pjLgWYKmkegaDpgv6xAZjmOA/sviBIY4B3qoG/5+DWRA5Z+ZX0nSHGCVNAxl
nsfvf2BxuVqBA6paC0U7lBigkpAXbLGdA9eL8h8WyjJgF2NF+7QaByqlTNOl
xRkgeNLFJ1GDAwbzGTF/eBlQML+ijLSTA7bv9ri20OggdQXx/rePA/FHvDQd
SugQG8jyrzPiQEetzJbOPDr8XT5vpXyIA7LbSBsOP6BDI7E+OfowB4pFV4ur
xdFhUIvQNjblAKn9KZt7jQ6/ZCJc0iw5MHtu5E2SJh3sUmpO3rHhgM63pFe8
W+hA9dLjvrblQJj+vvIbG+hweFxcnHqWA6JK0Tnn1tBBf/+7Vxrn8fdjqIRu
nqWB116bD9kXOXDW84Ix1GDbaup9v8qBKOrAVNJzGqi1n77V68qB59Z2DxyK
aeAtZl1KvsaBZQdsp5al04CPcpxMuHGgZMXJTOMbNGCVbhuq8cLfL6j9oJQb
Dd4dkGvP9+bAn+ljk3QnGvxOekeK9eHAsW7zgzGnaODqGv/I7AYH5goOT3zW
okFmz6HYXH8ObJD+mJ6F53a+/ve0qwEcMLtjZHhNhQaNtrTyHbc48NDDIF1U
ggblZao8lYEcMNbTMTjGokJn+j+32BAOuFfUjq0fo4Lp7elFrVAOZCrvu8+k
UOHhepP8Puxxod1jKe1UOHDyofb6cA6kdqmn/XxBBen0jma/SA7UmzzVf1xC
hS0fFvX4ojjAeLtt9EYeFfpTnX/FY+8v2Ky/NpkKiVLuoam3OeAoVTwyHEMF
/cOGyauj8f2O3XivNpQKbMkPrbHYZHelEVsPvL4Y9NkjhgPCxKPUbS5UeFbq
mTiAvfu04oFFeyownd5FHYnlQIzuutQcSyqIF0qLiN3hwIvnD/TcDlOhoNA2
1x37t5LM8AF9KvzT3nT1M7aGkJTekDoVAhQ+lPvEccAm8B6jYhMVjo61qn7A
jphakxKmgH3ky9Cquxzo+rmKobSSCtrPJMWzsf8dSUhm8VHhl1ZGYh/2lrci
uh/+ECB4OOiYTDwHgvKFkp0mCAgS6iuKxi6WjNHZQyPAZ+9dvVrsthh+On8/
AfbjwusZ2AsLkUndnQRIO3MsxBI4sNGdV+dJK349nf5lL7YlJYzm94GAYyV+
GbbY/qeWEk3eEhA+eajaH7vgU/B+2UoCiNnxTWnYrTp/qKNlBFgs8I2XY+to
bxwiFxDQtOvmC8Au2WP++1cWARcG/aZ/YK/V8u36nkpAilRSaT929I6cto9x
BHxlGpDp2Bz1ptb6CAKiY8Xvj2M7bZ9orrxFwC5O7OdJ7M4tko1l3gQYH9sa
OoF9UFXvXb4rARoV/q+HsV+qONVmOhLgrP7HZwh7g1J8ZdJZAhwI7ZpO7ETF
qufRVgQkMipDm7D/rusvDTYjwMmK1f4S+7os32PfgwTY6Ac8z8b+La2Wd02H
gL7Gb9IR2KaSp7IddxHgOO8rehm7dk1Quu02bO5ssjH25tVFKceV8X70/Hi8
ATtd9Gv8ETkCMioTzP/D+88nzI7RFyegKv9V9HdsH0H5yD3CBMi+/XA6D5vg
Mw5R4yVAW+bwW3fs47zXA1QWKBDd3lC7H1vj71uPNWMUCKp7Ev4R18PDBaqr
EEEB0XXKx6OxRedFnJd6KZC1/0m9EfYo65zd5GcKhIgzblT9r/6YkWdo7ylQ
/7f0owt282S5Vd8bCnwSSnizFrtoZNHkcykFJMhN99xw/UowVIxJ+RTQG1AJ
lsCOoB5Frx9QYOlcjVgN7ocLg9l7Ht+hgJpBnN4M7he5n7rK4Vcp8PZYUDvC
/XWn/ZKC/0UKuAsI7GvF/Tj//a6Mhy0FzvFOWJ3E7v7ct+q8KQWqtlMqbXH/
pkDgovZWCgjP/DNGEThXviuc01SigG7IfzEv8Dxwr2udUZWlgLFkQIIitnn1
uhHJFRSoqF/HYOL5IVT+9idzhAzp5cHz7sEcCElffFZSQga289a5dj88Dxz3
mm7LJ8MZ1XZDBewjGl608gdk8FORbr98kwNizQy5ijgynDdzhilfDhRy2mOq
r5Nhybvo7xCeny2nSi427iCDltd7SUM8b59toP4x2koG4TQNjYt4HqdOKGR+
VCKDTyMrNwTP63NR9763iJPharX73ZcuHOhz+Xszd3QIFOXrXnEv4XmvWrat
1msILDVaLAXsOMB8t/7iW8choKRkeP3B58Ob0/czGk4OQe93v6VpfH6Y3w7j
+7hnCK6b2F78cYYDXjTrwfb/BuG44yYHj5N4PhYsTx0PH4RX3iL2e8w4cGL9
+f8UUwfgq7jtH8oeXF91YfcGwgcgUc0kzHU3B7yti9RzvAbg4Ua0lbkLrz9h
/KLsiQG47ZnEZGni82Ix4IuE2ACMvWsK697KAaue9GyhxH6QdewXXIvPY6uU
tgOsO33QdSWlMnYZ/nw19q8XAX2g9u4lrXaJDd4ta709rvbBOq6mG+MvG1KX
7IsnTPqgvD85bv8CGzrcJlcNC/bBXNW0MonFBiszYXLf7d9w4lvgtuNUNpxc
bhzxMbwXBvc8yohuxHlKN8HugXcv6K4W23WHxAYz3+69bpd6Yflbiyd3Gthw
kH5lXPJQL6SfsNgcVYfzyaeEU05CvSA9o55/4RUbxO7+Ul2e1AOfyuezXuaz
8b5cazXI+QV5Be1ZX0LYYKycKllf0wVJ20Ouy2ixIdr+jtXR4i5Ql9sR6byD
DZ+zwpJ/3+8C3edmN16p43wk4SH6n28XbN6sxzLawgYbPnO+vVpdELKUF2Sh
wIZrDH52RcVPiHTioj84H6aWBXQWlnSCa8cSrbNnFii7LqbezWqHhfaPn5tv
4vz5deyzgEorCDmZVb4pYIFKCSU8PfsDXH7/6KjclxnQ/lGl9IJaA/yaX/Y+
b2NC2rDo/W/3cyHRSH5pH0xDxCEXsbwdD5FPmLygG2US2FI+cCHiNepw7in8
Rh4H59cZZeUnPiC/au5QmPgYBPD45t6IakVyZ+T9hXRH4CDvJV+/lnbUaeiz
ySidAfYrOlQDf7WjgZDi4dBkBgSKGfaGMNoROX4pG3Buq1Jcrx/N14EMn62k
HwllwCbdPsH7Bh3o0H/L9YOuMEDI92T2q9oO5J5QsvemLgO+040aJ0s6EV3x
+EMSlQ62nzeKOd3pQtfKRSV19Onw/Cvd/umDLrTzElO4X5sOfG3Fz9ilXSjp
dKpWhBYdXnRvOXr7SxfqDqlR7cO5SoCmFl0s0o0m2QKTIEGHqn+7/4wkdCOF
BZ6GM2M0WLX70Ihb6i+UCQr3urNo4LRPYF9NwS90pPcPhQ/npDqdT7f/vfqF
KjqbP+1LocFlQ1OVpM5fyHWJ5FQeQ8PPrxb2LyR70JhRl94XXxpcvXr6Jyu9
By2K1GwdPUaDptzLJL/sXuQ0LS/TuIIGGvzLfpSV9SIDswrFdn6cm67lDAy8
6UWBK1YF05bR4Lp254JRTy8aPnTrqMwCFSQ7DPaISf1GV56K+VXhXHSJX76s
JPE3ejJobvr+KxV4r3fc6w3vQwxz0m/9NCpc73ArEE3pQ5yz4d0DOOd0a694
ifL6kOipc0HhCVQo4zf4/rihD23JLGzrjqaC1aNnQt6LfWjifCz1TQAV8jti
g4Vv9CO9xDrWJQcqGOxHLrpXBlDjXMhr251U2HA35qeS3wDy8NxIz9OgAs/A
D0Oh6AGkaHduYGI7FUhhDvJdhQNINUFj3z1VKqCW8Hb3oQFk5WH4U1Ye56wz
TboF1oOobam9Q0yICoqloqWxlwcRScDi62N+nIsWTkl7+A4i/USF12g5FRpy
6Uzd1EEUp+zpGvGPgAMMgeKub4OoP+DVXSMOAXo3TMVWHBpCayqcftVQCZD/
lBI8fXIIiavNCeVQCPgj83usy3EIaWjnW0UPEVBf7/qxIGwI2S/j7HPtI0CX
L/6WXv0QEvNyTfTAueehqQvrtSwZ3Uw5dMe7iYB4b5Gt25XI6IybxoWyRpyj
sisu5G4hIzKD7TNMIsBukvs1ah8ZpdS0XvJ6h/9/SuyTE6fJiKD45TXVEJDT
U2o3nkxGTK3Ip644B5Us3aTwPCAjDxMJ/Z4SAqpVjZ2l88nINvPpNvMnBHz3
HfQwfImvf7RTOlJEwLI1EpEZ7WQUfcKh704uAau0yYLPesnIUn84e9tDAuQu
PItvpJBRkLxuW3s2AbufHUmfnCEj/tjyPK0HOOeYBpUaiVNQrYzdvkNpBHh7
mmrYylFQZgJ3QvYeAaEZ0pXuyhTUXaqiyUkhIJP+ov7BLgryqEy6DEkEfAmn
/5i2oqB5QaeZgrsEdJe8OsV/joIaqnY6PsW5jPojtFfuEgX1N5z0r7+D91tB
jnrIh4JUmufymDEEaNZZzmXfo6D6h5d1SqPw/aKsC3yZTUF7d0WqjUQSYCI0
utRcSEF8v2v71bEdrSNXsCopKE3/e+S3cALcg48nCtbj9Y0Mhm3GDixSkFBo
oqAr4VdNYsMISGO9ljf5SUEBNpZG9qEE5Mnezj/fT0F+Ub1BnSEEPDOwUvWh
UdD7AIOEY9h1LuvLYycoaG1Ftl9HMAHNiROauWwK2p+9HNlhd1S/qar8Q0GM
qmTGRBABQ/3R+z/zEajf+5xXFPb8NiUjtiSBCmtEDrQEEsBnNfVphQKBWFuV
o3yx1wS8NV+/iUCx8j11m7EV82Lbd6sTaCP/YRoF59Rtn05bm+0h0O2zUcsL
sfdNKfddOEAg13vl665hG0sxL9w4RKA01Z+aOtjH9d7R4iwIRIqTNhLDPn8p
7mreaQI933vXZjKAANe4M1PV5wmkmG/m04598+VGn9bLBPpu4JZejx3ZM8Ml
uxEoJF7k43Ps5KWGoLkbBJpYOMBbgp2jGr9MNIRAv3kVTvzPpRa20UrRBOJb
976qArvGV1VkXyKB1OoO7mjAbsyeTTJPJ9DqM3XNndi27Ge+vx4SKO4An/UU
NtP8iq3jYwKpzs7KrsbrjX6srD/5lEBc+ZVSe7EV/vUr+1cRSMKh0/QSdpV1
huDyegIlXfxSl45tVnFiIuEDgcKab7i2YVMERdtlWgn0V8v2nBjeT3+H5urC
DgLJHptPssZe/SYsS+M3gcbru4ULsYvX6Ia+oeD9V/b/zsHWc+VcMh4lkMAm
hwFLfP86GytMfjAJFHBVXOc5tus6V/Wz83h9aeLDEvj+8/huFKcvESjdnMYI
xdbY9KBvYRUVxbGFR11x/XwMPkm6LU1FwpouzFFsu+6Vj8UUqYgnrvCUB66/
OzER7qrqVFSwp/VAAq7PDWS9ky93U9GttnefNuH6rdHm7tPToyL5DY9qm7Bp
o9eWWR2lIllvvV4pXP+3Dqoy+q2oKLdhaWUL9pps8heXs1RkfIpUGYb7R9/8
dFrwVSo6Mn3Ejj+agAfP9TeXxlBRBKvbxQ733w7B/0R2J1GRY/qY60Hcn80X
KpkN6VS0+qnMrAbuX7bYlrqfj6low/uOnHUJBFj6rLHgacLry9uYY4T7n97a
uvNuK349xWuVPX4OC9oYLS3diddXPycbiudFadfC0HaCika6qgW67uP616Z5
n+GhoYZij+A2/ByXnZx7hhCkIbvPQ0vrc/Bz2aiNnttqGpKvKNK8iefVhaxv
/JGKNHTaRjd/bx7uxz81mc/1aIhvB6+EUDEBnu/vNPAH0JCAi6rT9CsCNsq4
zewKp6HoO3rhbVUE/HI/vtHhDg3Fy+UWv8HzVV9+bVzdAxr67i2xtqiOABG/
otMedTRk4nxzpBfP62I1mOhZpKGMsky5rz8JOBtZsF6Aj47itT7oaf4iYOXv
21ZaonTk3uWfldVLgG+MeW2CPB0lW56WihskwJDojTx4gI7CwiIcv44Q0J/B
lnsagq/v3rqFgs+j5KlfFr3RdGTwxTHy8zIqGB16GyaQREcHVVws6vBzeRkr
nOHwiI46VuTpVAtTwc9i9SspEh0dl4joFFtLBfHl20xDlzGQ5dWIrxfx+Wri
fsHPKoqBdj6zPBJ+nQrRc5rCnLsMpPyjpHu/JxU+hPA8zLjHQPUjUbILPvg8
Tcpv7C9gINKtnU0pgVTY/YK60uU9A8U7XJxTuIvPa5ZLUeA/Bnrpclj6aTkV
5m94thf5DyM9Ib/bL1lU2PvPwOlI2DBap5qaeplLBZ/oNdzRmGHEs1BQrPSH
ClPpr+Q1M4bRU13JqZc4r9Bes13eVA+jVW46RlqyNGj7z//fN9Ywiq8Hy7eG
NCgNDt/OvT6C7F8tbZ/NpEFBYImbj+8I4mOsOZWcS4OsgB8V04EjSIseFLmn
iAZxNxR2j8SNIM33O3kzK3D+cXuj11syghrNGR/eNdNgx/kZi7e0EaSazQlJ
nKNBrd5Fz1C7UdRyLkrQ2g7nPZ3YV4uXRpF/evbAvCMdSrUr2H7XRlGHb8WK
oqt0yNr919/z1iiKyMh3k/CjQ5Dag/CLmaNotj2k1DqVDgby7alGP0fR/PLM
tV5f6NCyaFAtaD6GnArllwkaMmCAm3xI9dQYMvyJChxMGcCaJXcZ242hi3Ys
96YTDJCfCJsLvz6G6CIpGWWODPDqJ+37Ez+GzOSig2eiGCD3zqCO+W0MrYvp
OXu9lQHXQwyg99g4Mtlz7ZiawzCsWWbwufzkBDoT87QxqnQEXmgEv0HnJlCf
uCpfc+UIHLerK+10nED3xza1iTWMQOLr3XGLXhOo4vr4mg8dIyDqvvXo0eQJ
VHOAFZn1ZwQE+sS/jX2dQA0bJc6vtRqFhSp629bDk8gprbH+LN8YEFfu9jzR
nkKSLv0L6dHjkJs2Iz1oMIVWHw9qv5A2DmdJZ05Lmk4h95tWObsLxqFj7caO
MNsp1CWbs463YRwam+tbbW9NoQ6x0HXqc+OQv3GqQaR+Cnlfs+Z+vDIBDuTj
jz3QNFqlRe6SPTMJ09tF3qxTYaKzK0SoSzbTUBY0WqGymYn6hWuDk69Og/O3
T8XbtzORCUvdWf3WNPS7R6XpajFRTUW9Wnz2NHx5+dfjnBET2SRdYAwMTkPx
PqZq9iUmWi/XdH5Miwn2Rl1pckVMNPJzuDr1PRO+nn3kKbtpBjHmPl5bmp6B
ybreTR+kWMhQ1i69wJUNhYNaeTVys+iJl8fQ0RguPNTaLWO9io22mEa6uv9e
gDm0PHD7XzbaWLpnIj36H9BWswrMeOZQyaNrtfahy0jSa2JapFhzqMI6RUyx
YzkpaZ+Kl8XcHBLw0LcVHFhOErIH2dsLc2jPQ7VrnOHlpMUyriubl4vSnI5P
Df1dTiIbX1nZKcFFlPdWcVNb+Uil/qZWyXu4aOzL9kFWBB9JjyzSLxzARY61
fvK52vykaoGSqIPBXER7fNRQ2ZifpKFurH4rnIuMOOFHy4/xk5RuBYWM3uEi
ReoDia/O/CQByckNLVlc9EZB8q7JfX5S25Hvl2/XcxEor+tXn+Unmbq7rnpH
4qIdIqkkniV+UmOawGt2ExeFLwZm9ggLkKop+kJO37jITEFdNUNZgJQVWFF2
cJCLJmLy249ZCZAkCo6evEVw0Ui7hauZvQApvmV48SWDi1pu3vhr6ipACpHa
YKE0zUUvF+qkbSIESFzdeo7NLBfdmsrKdU4UIHk62uQmc7noifOtjbeyBEhj
sezDLYtclOWmU5paLED6/98v0fOV9eovXgmQ/g97ojGd
       "]]}, 
     {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData["
1:eJwtmXk4Vd/XwCUVUakQQoZGRaWBSpZQUZKQKGXKtzJlKqkUSUrmZMwsoUQp
U2oJGZPx3nvMdzLPkitD3vN7nvev+3yeve8+e+/1WWvv8xwZq5sGNtxcXFx1
S7i4/vdrnR0ytrjIwR/jD5MWFxegJFhy65F5Dvan54mZDC6AhFOm2e0ZDu75
PRhY0LIA1D3l1cPjHNSPPGkTmrEA2h85Ka0MDg4G5LxLNlwAxc9XTHLLOLg9
XdVXI2MeZop2ff/Pj4PFzmIvHS/OQUBFVVjdag6uGyob3dsyA9LiDKdzfNPY
6yvLiC/7DU6qhud2CP9Bs3BTSU3+MbB4M32idssUPnH+bX4xug+K9e66y8n+
RuPtYybRbnRoLr+QWb97Eo3UFzNc1Chw3l1YVGnHBKpM939TeF0OGvtkauS3
TOCdk2UMbeNyUBzbdV9OZgL1A1P3RK0oB95rWnQhsQm8vslVptm2DIqMXdM5
vBNYdZt7pmBfKUgdbFT52j+Oe/z+eLrGI/ROBZhqp49jydecalfTPLjjwhN7
ZRvJEt0pe2ZeQOJLsbhXciRfzecd4QuDygLFhLZN4+h1s+LEokQIiCyapBiL
jiOX3Flp7aCn8Ol51ls9PpIdDwRGZbkAXSfrjid1DNWfqX6ajHqM9e/PfTl6
ZQwtbvxbPpuQgu/vxKh/cxjFkOIa24Zz+UgviZ2OtBlFUbFlojrf83EdX9w7
58ujWHD+upz1ngJ0j04Q3XJmFE1+bCm6t6oQ1YtSx5/vGkWnVmbWsbIibJ57
n2g6NIIFWVGMg5LfcOZBGdef6yPY0FfOV3y8FOUry/N+WYyg0x8BWpp7KZqt
qbBPNxnB8tqLA9YZpfg9oYq4pD2CIQs/1pwXKEP/krqc0m0jaJSyqlKooQwl
uQmLkN5h5Lo6NyN09gdq+A6X7Lw6jEZSEsrOO6twMJZrQ4jZMA4LFIjWGVVh
2EchhymjYSQc7npxP6hCVreq2Nfjw9jy6Av/bH0VPj4c6Ky3bRh1uxWUJF2q
8ceYgqzz4BBKB9dUqGbXoPbFmz55TkO4a1+c3o5VdTju5NMqfoNsj7acqt5b
h1F+kbsfWg6humG47XHjOhz4hO0nDYZQvyRw4md8HfqvEdzfum8Ir1rX+29S
/IW15TnsuelBtJh9PNl+vB71dk8eP+Y5iPq2h4bm3zXgkYbs4dpbg7inalVB
bnEDbnd2eGHsOIil1+SOm/5swKW5/XQ780G8Luub6zTUgAUHu+9FHBvEUz7H
bzRub0QZtZ8fhpYNYmZXo8eVxEac0k2TjAgawApjQrn6URMyRqzLpf0GUOSs
zR3LkCb8FSRj9/bhAM6qVgsNxDVhRsOrghKnAVye89StoqAJrxi9MBwyGMDY
cV6TopEmrLrk9Ux9wwByV24d9zdqxljbi38GE/qxRC7SYUK4Be1XjZ1pjuxH
TXsRZQ/ZFlTN8Un7EtyPnw8tlRlVbMGuP+8uBDzsR65v844JJ1tQ2nuxUMG8
H+t6DZKk77RgamTqAyepfnQLfPMrmdKCWeWjK6Zf9eG2xobyxkcUfHDNx6Ir
vA+9E/RT+QIpqLdStLAioA9nKmdsd0dScPzsMdvI+31I846u0HpLQaX2Fz9V
zPqQs57LJrKJgnkTKqH3NvbhlK9nFkOSiijlI74kphdnNUR7D7yh4vIQ+fVu
Yb1oFNC5+f17KuouaeLv8+/FaPEivQ15VCRY0gs/7/WivXafe3E5FSfTv3VH
Xe7F+aLzWQYMKm7dN5u6R6YXd/knrc7dQEP71KS4FLFevDF6wkxVioa5wjoR
Iut6sTCpuCdvMw3VZyL95rl7cZvKyZKHe2lo+vWAbRW7B//8kZCxPEXDgJPO
uy3Se7BUc2DuPw8aNhWIbm9O7MGXNovWyx/SUEy+RPpEdA+m0+NNIh/TME1g
zbpd/j0oviV9LjCYhiWN76Y4dj04V7At71cqDX9f6i8M3t2Dq2L//pf8k4aH
64I/cm/vwV2Sa/+YNdLQS0357S3pHszjtrPgo9JQQObJq0trezD6sBBLuZuG
W3vlHm77zUbr3V5bhsdpeNHJXAvz2GjzpYM3by2Bj1mdo8Hv2agfc3sJS5jA
98Zm0RZpbLwR6f51UYzAJUdNR5dEsPFDq1U0ryyB6XyGUVq32Hh9oTrcZC+B
TfcbNYQd2Biu+9SM5wCB82NnR3qusnH5S+GNiSoEnqXqavgZsVFrUT/iDRA4
nXxiuHofG//lHzzE0SVQWuRHRMxONm7WN7GT0yfw1DPNY3ZybEwvzqkEQwLj
bqpHCKxnox5XkaiOKYFaqofVz06ycDhHrCH+KoGO2QWDmwZZWGHbueLMNQKj
ZJVfjjNYuK4F4oZuEDjEu38wtJGFL5LDZ/86EhhGUQhvyWHhbNaNfWZ3CCzW
fqf2Op2FalarBYLuEtj7RX7gViILVycV3sq5T+Ch5G1qG0JY2PqWJlzpRaCV
cFp/nx8LYxw3m355RGDA080vCh6y0Clj58nExwTSHWX6TW+ycNBN8qjqUwJX
MhPC5K+x0Giece73MwL3n5c6OneFhRYDQjtjnxPod2Rj2Cs9FvYyPLS+BhGY
8z5a1eEEC7ezfUOVQwhskxHtO6rGwohDn4qTQwlU5BVW7VZg4ZPanZWnwwk0
ufeiN3sLC3/+08t99pLAR6NrQ70kSXbRjiyIIJDSsrpXZhULvVa6WAxEEfjv
ZGDIJA8L5zffNxiKJnD7F/4jZfNMLHIQNO6KIfB+Em/I1WEmhrg/fxv5isA0
Ib/DB9hMdNitu/JKHIENfst6lnUwUXzp6XDheAJnZ32Cqc1MnBmZOvuN5M2O
3Iff1DLRcShP0ySBQD2GF9u9jIlt0wu3WCTfMVoM0v7CxBR+5RHzRAKTKz0P
ieUycceW+uw6kmsPz7MGMpnYoLavfFcSgYdVNnfTk5n4UXqm9R7J6Qd022gx
TJSs/0cpJnnDPjfKrzAmMt9e+jZG8pM9rxp++DOxUVQuWiiZwD8K5bXFj5hY
4H7DfifJV3cOV+TeZeJ1eU21/SQ3bxcqzXRhYlZYudBukjW2qn5NsmWiyTru
6Y0kf5C7WhBlxcTD/IL9s+T40jIBucEXmSjVzT1RS3KQ1Kf3TwyYSB0bFQkm
eWFjR4bnKSYqJfSba5FsL8bz2k2Dif/0eJqGyPW1iexKtDvMRAFLY1dfknWE
jGKtlJgor/xbZy3JBWvvR5jKM8m6NHYpmNyvbWtSQ/VlmdiUdyV7kdzfCIGf
ASfFmTgvZ3zKimSelVN+auuY6NwxoJRPxsd1hYTPgZVM5NZQvPmPjB+TR+vB
Lm4meuUpL1MhWZ/b3kNuloF5seJz1rGkTwtfbq4dZGAIfJN6QfoQN8uy5WUy
sPH7G5MI0heBGf7/FlsZyKdavDIgksCByUtmI9UMjEnIH9MjfTMZ97nA/s7A
MN1KRQnSx4qRtwbthQz8esfwX3sYgan9c9rVGQwcoihd20f6vL5XTqskiYEB
Ne8FaknfH7FOQ340A+N+zFw8H0igeVfsgdfPGKhnrL1Sw59A8ZYjst43yP7h
glfu+xD4rNFa8o4lA01uKk9leBM48+u56E1TBq42r7eueUggtbp99WUdBrrw
pPax7hEYivfmVHYwsEZs4667rgRyfU2Z3i3DQH+9ZSrgTNaPotqJrWIMzE5b
qsch64Pu5439QnwMvKwdlKNuSyDv2y8t4/10nFkqMqtiQeCDiLms9HQ6Ok6U
j5frkPXA6qCOfBId50etN02eIPCkojP7bTQd77DczYS0CBSs6BXP9qfj+ocF
wipqBKb8afT7bE/HGJkPqxfI+llllG5ZuoeOduJb7Lw3EJglzZrX3EHH2tet
DUuEyHo1LBn1Q4aO9uaDL9wFCbz0+MWvqnV01NjZdlyTj8D2awu34we6UbRi
BevSLFnvt2bKFzh3I221umFEGw3Hv26y/GLVjZvjPLscyfOh8PzLyG+G3cgT
+k/4aBMNdX29eH4c6EY998dxRdU0dGYbdzX+7cLurk9RhwtoWJy8NGzIuwuv
SZ8JMXhBw3ObLv+VCuvExkQfvmUaNGQWeb3o9O7EjhXqYttUaehinKrwyrkT
hfo3fj16kIZhgUOWYuc6MX/D5TZtefI8nPOoWS/YiTpnlDbS1tLQgIiI5Q3q
wOVdIcqtXVQ0CG04OvmsHadnrvYmOFGRuWuKluPRjudO9WZa3KCiS9UGl5s3
2nGVUvdPESsqhi1eSRvWbsczVVYa1oZUbHIYWd23oh09dnSleB4gxzu1kt7u
24Zs/9WlXzkUNFyq9eiHdyuKKLy6HelGwV9HAs2iXVrxeZg5PcmegqfcqAcd
rFvx3THjzylXKajRc31I6HgrzscafQ40Iu8nlYFGV3lb8a8Y7dXcPgoKPqdt
XRpMniM83I81J1rw5zq7WvVXNNxEt/F5Y9OCWrJhQsV5FOxcKlrTdbAZn1x5
ZnA6jYL637o3b9jVjNUxXiFtLykYsPrUyAmZZtRbf1PgLzmvQ5NrGAH8zWjC
o8tzkHxOpGHKytzuJrTrXTaVnd2CmX3zGxyfNGFYpkdzSnoz6iRIvftZ14gM
Jcuw5zGN+DzuIEQdJ++fPwerl8vV4uPa0JrKwWqUS2d4R8SWoUOeauDPLWWo
Uv9JJoeVh+UnpOton/IwvE/gZd3LeCyq9bRpDIrHR8evCSbuiYOEyLsxgfJx
MCXsiuaP8mHSBb3iz+bDf/mRmW/PlQHjAfMsN6MUPLjc4m89rgWTmbNjLLUa
0OC2dnOvaoTCrbOv5q83wBW+pq33aI3w+t0LUR+3BrgneKz1QW8jxIcwspd6
NcAnqU1qT3iaoOvsD8nfEQ2w5Uj7ipfqTUDNJ+z8yxuA180w9mNBE/gGB9+N
kGqEXz2apSPpzRBhr5615FcjmFZvFrz6jAL+hpW4WqwZ3v/sufIumgILrMXG
Grlm4GlIy5rKoIDG4hevB4rNkEPdftq3hgKf3rnG/NRshuXsXU/S+KngV9K0
aqljM3z6t3++P5AK2/K67JpLmmH1/uP9DmE02Lvz9XeKeQtcVV6unJdMgyZO
r5zHjRYoOlzp++8jDZYuNTRZ79oCNsd05IKbaRD49orUrict5PvrmSs5QgQE
yB50HH3bAjdunG+ZjCDALswtPOdPC5TH25S4x7ZCZG1a/j9vCiguW1KfmdkK
dOFHmXRyXVF2rzo7C1vBNrJ8pDCUAvYqzbOaRCuESQ3rGyRRQKhJ/YCgcBuE
nCMVLaGA9TKJzPSgNlg3cuI81zwFuO2bXrR6t0O4oIXSMgcq2Dc5JAuEtoP7
VOfhSlcqUFX4PkBiO2hzy489vEuFzGXqv15/awfBu9EnKH5UMEjI4nWZa4en
o/XSa5KpkNT01HPlrQ4YCLTj/tJCBfVDcO3I9U7oKGbeqVeigfRzvxYZ907w
ro6UPKZCA67O+mO8TzpBbnKHQsZRGpR4WUhQUjpBKMTHw0ybBlDl3ejY3QnF
tZfh7GUaqF0oP5Js3AWYqaph6UsDqQyBjKc2XcB4deKssj8N/s0aidx06wJ2
4GuPpcE0+BbfM34krAtO23CtfxBFg6O9y9ModV2QkXevYS6TBqq3dAT5jnfD
Ud0Nh4R/0UCiMtRzzLAbVA2mKKeaaDAv2jZIseoGnsPxGrepNCgutv2R7NUN
qW+m3d930eAIT8Bd1eJuUK/ir00ZpUGczrXJfDE6uPmdp8QJkHF14d+xU4YO
H+t9digKEnA/Nts8fjsdEjqmF3PXE2A2wvn5WJkOakd1pBPFCZAIffrm3Hk6
xPWOp/3dRsArIsNsKIQOXhptQVnqBKQv3mZwRdPhkViRXZMmAZ+3av0nkkSH
9x5+YYMnCPjl1nXz2AeyfdO211O6BCxZu94nspEOhiuk9940IWC1Cn1FVisd
yhXW5ShcIkDcPCuglEGH6862J7svE7A/62TEyAQdjGOepW20JuA/nfsZmusY
MH5nu8eMPQEuTjqKpuIM2Bs8sersTQIeRorkOsoy4JNx9LMoZwKienKKo5UY
8EjzuwTPbQJqvHvqxwwY4BQjuuzoAwKo6R+Nll1iAFvdU07eiwBW/cNWcWsG
vNl1iMP3iIB5SXHWcVcGiEv9fp3kS8DuIr3p2BcM6HMUdt0TQIAqY+O9D7EM
+H28LehjIAHavAOLFSkMMJl2VNwWTICVsQ/fZC4DlBW06H2hBDh66getKGZA
LiHbu+8FAfdSJddLljMg5M2qCy7hBIRP5ktotzDA8a+mZQWZd4livkmXOxjg
kqQw2h5JQJa6wVZXNgO68szrWFEEFF3b9PbpMAOUdDNmOqMJqAga3h0/xYBR
19YbNTEENH0u/JQ7z4CX6iieEUtAd8eTQ9U8TMgo37Hs7isCZuRlNKeEmCB+
tNphMo4AHoPRSj5JJtw3ftUdHU/AWo8vupu2MEHfeY/LvgQCpBKfNu5XYIJY
otEmJFm+8rzxqQNMMP5Do6smEqA8KttufpQJAT7Pct6RrCU8bn7rOBMOXVZ5
ujqJAH3Vr2z/M0ygh+daWpF82dr/RuJ5JvAcrTmYTrKt/4XRz5eZsOX66SV0
km9/2Oxaa8OE8u3Lv/AlE+BDTHDoDkywCa2+vIXkkMVv96dvMeHpp6ssJZJf
bQ1YIvCACVmpacf/xxlnTJ/IPGHCBbcrD+RIznPbyq8cxATeg5f8lpNcGvs7
WDeCCRrzdhfbyeeZTmW50eKYcHo3cSSN5HHd66ZWr5kgVD6Te5XkJ69l1Ube
MUnvKr6KkCz5r0P2zicmHB48ZFRMrveTceSKpcXkeH2nXc6TfCr73HBgGRMs
JP+sY5L7xVgh0Chay4T/NBT3WpF8x6Lic0oTExQFxisp5H6vKfSKUWxjgv+e
fU2qJKetPfKwkMGEszbjpyLJ+Kja/rHWGmCCkYW0Qg8Zv+bSbO36cSY40r64
biXZdqOtwsUZcn5eX8QukfHmctu8rmeRCfvXior7kD4obolun13NgjPfa4Sz
SH9+eBqW+IqwQFd33Yps0i8z6qrXglIssIyIVksl/Xvm98hxqwILJOCU/XXS
T2m6quGH/Syw57MxUSb9zVPhKKuqsmCbbfLtv6Tf7AG7JQanWaBYce3ABdL/
uxpbezsMWLBZgVE7SebH2lh6zbWLLCCWWHh5k/mjpns+3PMGC5pq9XffeUZA
9Hu1bRl+LLj8Q0m0hsy/PSv+8u8PZkGsJ/+6f2R+Vpjnjn+LYIGGQfaSLQ8J
mBLcXtTymgWbth95f/oeAXqua89wlbPA7kZk9pwLAT21tXuf15L9++drKpzI
erf5iYhIMzk/pd+5jx1JPyiz3TuZLAj959ZG3CD9V2G7XOBiA9tsyQjDnIDY
kPgLzBVsSN8g069B1iOlARNVhzVs2K4b+TTiIgHmMXXLfKTYkPf3xmvh82Q+
zudFvVdlg8mpju8uOgQ4fX/2bZkHG4w6XmxK3U3AZlGHCSVvNpyPvNbD2EkA
zVF/s8UzNpy8lRqzZju5HxIb/Iui2fCjvLDwsDQB/O6p528WsaGx87dI/RrS
h104TMyxQel89sfBIRpc9EnetJynB7Q1Lzpu7qPBqjZfg30CPeC7OPrxDJNG
1n3dgkCJHlBfdfCrI0GDY8xWH42jPWCe0S47WEaDjsgp8XcPyPZjQZElkTQI
GaWdaX3SA93CGxljoTTQPP7Fa3lwD3RYrzuzOoAGmZPevRYJPfA1ItFF1IsG
7mfWfBQu6QH06VC3vEaDdUvldR4u6YUyWrsekuertqO5u8HjXvh3VtPUq5gK
T6Z3r/zzvBckBYIPr/lMhbIHXHGRL3qhj6B+CsqiglpwUmlHci90f/I0N4+n
wv4c1qpr33tBe0By7sRDKkhPXku9948cr83wi7waFWZuOTWm3umDgejJjk05
FDj4T/3qSa8+kL9SXJqfRgHXJ2s5A359YJ4XEwNxFBiN+CixO7IP+PYV8G/y
pwA7f+pa4ec+0Gyws5SwpkDD3zv/6ib7QGev5SmBdRTI8PTeybHvh5TjjOBX
1i2QfC/dwdWtHy50FYOVSQvEeNRnj93rh9nuXvqGMy3gf0tyf79/P3Bv92QZ
HGwBe4dC1db0fugUFLJYwdsCey5PnPnC7gchtz8DNuS9sEDV0umh2QDUT9II
akcT5Bx++nHOegBuembsCq1vggyV7Cl3uwEoLvFuOVzaBDH7F+443R0As3tx
AmZvmuD+rmhvy6gBuLucFU5xagJ1icYwzZYBcErOKUjkaoKqOfXPK3QHIcr6
TY/b+kbo5IQc32o0CF1LLFO+czfC5G86RctsEOIn5vhmJxpAYthr2tt+ECLC
vhUoNDSAc0eJ8nzAIPy81TKc8LwBxL+qF43XDYKRivlVo4V6sH+gjq1nhyDx
oVCYUWYdrF2iXv3WcJi8d675Mfm4CnIUPQvh0jAY8e3AkUtVoG9WlNFsNQz2
mTuCS5WqICh/v/+c8zDwJK9/+re7EgQcd5w+HTIM/ZdnMFalEpa3r6sb/DkM
Vd/dLqUzf8Dsp56GHSdGYM/S/I4YsTJgXn9OvFEZBbpTQpWhTBHEh0+IdKmP
Au+OxPWrcgvhYsmF80I6oyA4PVr8n1YhNG3Y3ORlOgpEW1LprE0BlFYU15re
HYVxWf+y5NQ8SNo8+o2/mOQz9ez2NblgQdd/fRPGQFqWm+Fx+A2M7eQv3Cg3
Duq+xqy6ylDMvD+QLbdtHLw+T6swWl/gf3WVaTt3jgNXSu7JByMvscPxcfiR
feNQov9c7IJYDNZ8WLh5SZPsn/x7a+WxJExTHt8aaz0O9HFPj/2NGXhFkxIu
nkr+//Xst01ln/HnxQQnsS0T4GTlGPTHqBxHilq3lAlPQmpRsPMK4RZM6dqX
mCf+G6SCRk9RNekYt2+/qPHqKZA+KmK5cbAXp2HpvZ0LUyC6cPeqvcYostdM
Jp/imoYCoe48s+jfKLLWr0p4choqHslfa1ebwWBlOecz09Pgmvt4JstoBnmv
oJjv7DQ0rbGU8LedwblMju0UNwdC49NlzSNmkK51fVXzeg7Im2ZdvD86gxl3
dAxCDnDgqJ05t2/iX1Sl83es9ODArhOcB+38c/h5efpjDU8O7JVJqGLJzqGi
gpbCXW8OjCJ/559Dcyhz9/6DgWcceB17xEH5+hwuFxqRrorhQJvgHrM9P+aw
4eQvG99iDvSKq/2b9ZpHHUfb1V9LOFA5tLMyMWoeS8OX50+Vc8D25+Jt/Zx5
/MxQ471ax4G5NVZhdd3zGHMvO1OjiwPqPacG1GAB1yefNrzL5MAhjxTx/RcW
MKCqb+5DLwdmSifV991cwAfC0mdkxjhQU+PpejZhATlHiv+Y/ObApY9Hfezz
F9DJyiQ+hMOBvOT5oBf1Czj4dOpE1RwHXuXcjyrvW8D//34J///9Ev8Pxw+9
/Q==
       "]]}, 
     {GrayLevel[0], AbsoluteThickness[3], Opacity[1.], LineBox[CompressedData["
1:eJwt2Xk8VN/7AHBKspUlKiJJUYp8SmmRR6KISpbKkhaiJEtR9myRCFF2ipAl
JUtl60hlKSUkZJu5d2aMsQ1mTKH6ne/r9ftrXu/XnTn33Hue5znPeY3SBXfz
i4v4+Pi+8PPx/e/T4UX85L9/PPR8Wa16aZmgXn2cgsq+BR6qv9x9uf+poJ68
R5HdjV88RIudeiKWKaj3Q/NDyxibhziUR+K+kYJ6RmW8J71UHnpna1keYieo
p1Fpf7r8PQ+du5z26MRSQb1f1VvfOUXykNrXO0+Hzy7Ri2lsTviynIe6ROwt
W+QF9NbJUT1OCM8iOH3vy60H/HoeOhYnNstwUSMn12jR6F8493T20OeNHGRL
To0s2z4Ptcf8biqvn0Hv37o7lTziQeeHU0Vt26ZRydxNxz8VHLC6KbN6++Yp
dNa4y1Nwbgr0dyh9Uts4hSITNX9sZk+BxuTWAGWlKaRfK1ZvwZgCIWcDirTs
FLodq7K2pmMKqk9eL+AJTSFP31893cVTsHZX++46JhuJhnVPHT47BQxOjLVR
ARt57Uqc5X1ig881gXR7VTZaeUz8d6jLJDx+KJuZocxGJyV29UvYTkLTG41H
PxXZ6NkdFbdCk0lY+e/0k5Or2aj2vueDua2TUBFdUnxMmI3E6kXy5NkTQDEu
8Qn8MYlEHRQLz/hMQNvzEzX77SdRmltw57v4cXjuk6b39uoEyvqT5BRJGQVK
ffps8sUJtKxs0iylYxSkhDOfeZ6ZQL5HwsQrP4zCzdRHqzcenUC3M4oXJAtH
Qa86lx29dQItmtuha31tFDrnnz+2Hh1HvlCXLLd0FH4FvefjXhpHOmtueZrv
YYFa04dXX8+No++r1N92b2WBnXija8HpcQQ5qb6X1rHg3aPmHlujcdTa9Xfb
s6UsuFv/pbRBdRzZjm3Vr/0xAgqLes7FM8aQZsDLnQs3RkD/9lj9FscxlH50
swodMYGVzrcq3m4McU80qMdWMiGhTPoqx3IMVVe1d+oVM4Ec0pGtMxxD/l78
Uw1JTAjfe8/zmOoYOjPgqLrXjQkfJ9XXe7JG0aWX+/Wn1zLByMY97JXHKLoo
ZLzuZuQwsD3CeuUujyLmRPfssaBhSIlM3nbr/Cg6p2ciq+k9DCMVqO+w+SiS
p8doL3cYhrviElq9O0bRqQCd+3tgGD5/KKXNz7JQysrjN4/8ZsCxbdOGBwJZ
SOixxV99Lwbs+/Zi7LM3C632HEl2dmXAJs+riSfdWOh4tn37A0cGLC5nUq6c
ZaGF9+pywlYMeLNryD/pAAtFJx5Fp3cxQEm39eXoEhbqu7hUO2GODhzTfIWk
2BH0ZbNAj10UHajjDh/WRY6gvJK61/GhdPgaq3Sl+NYIKn8VPdLqT4fCbxlv
6j1GkPqf4j32bnSwt0y0GDUfQUT/6GGaBR2abYOj9FaNoBdT/fP+6+iQ7mLD
ZT1iIrP3G+qaEQ1cl00e7UxmouWKF3vCq2igUxqWXxPHRCffuDkcKafBIPfZ
qZhbTKQ561k7lU+DdSH/qtTPMtEn6iHll7E0yE3ODfJYy0Q3YjPE2GdpUPJh
YulsxjDKGIu8f1qYBkHOYecGHwwjjyXN2ToCNDgmsrqqMWYYaU1df7v5Hwns
4wdckgOGkcGDJxKKXBK29yW27rbD10083nlTSXg1tfu+/5phtCvhv8xvNSSg
tWFy/GkMVL6DFqxykwTBeLUVXgkMJBgXct7lOgmm/B2iw3cZiHY4sbXSnYQe
ct2fVn8Gmitd0Ha4RMJ0wduhlDMMVHbTUGG1DQkqO+ZyNZUYSC7+0diwLgmu
udmZT2QZaGGg1fDJPhLKZYyTVkoxkKWAFL/TbhL0fiVHLixiIPmq1kT+7SRY
1+10aabR0a6f58n4jSTEHPbcdq6Ajo6Xz3OXLSeh483qTZ2P6cgph31AV5QE
WbX6dYdS6aif9rjJW4iEfDFxqa136eiJvvyNuUUk1Lc/4/Cu0FGZT/9qm18E
zNgyq+K20VFR5HU9DxoBe7/ElS3aREdpjc6/pQgCgnW1i73X0VFXZ/X72iEC
xJQiMmwl6Yim7RS6sY8AFYbyLdUZGgrar3nepIMAG4+zBugVNi/EnfGOgHBy
YCLuOQ0JCe2caUMEPD9pl3oun4YCorQevqsjgH+/9QR/Eg2dZuqq1lURUCBs
kWLgja+fjN4sU0ZAR0C7vsxVGmJoPDOEUgIWJo+P0x1pqOTuRSfP5wQc/2Gq
H2lJQ7FdTQXjRQTM5hwaa9lBQ//9tuw2zCVg3cqPSWlbaGitusHbFzkEHIk6
eOCKMg31z66KV8omINNdL0lsBQ0JWyUOy2cRYKCzV+/4NImqA0jRaykEuL14
w1JkkejLI362XDIBKeu1H7KpJFK9Ypb3+SEBo0JarPvtJGIszr9hkEhAQpf6
g++lJNoRtM8mMZaAWqNnunkFJJLcMHLV7x4BjBq1Ee/HJCoMX7HncgwBe3JU
dVfFk8jglsDImbsEXJDJZw5HkohUsG9yiCIg5s6GxDe3SOQTbGPmeYcAipsS
09qdRDVp562eRBAgQjxKUHMmkeCpf5+abhOgZbV2/7w9iYIpFwdnwgmI3Lcm
IeMYifY7lrdfCCOg9HmqztVDJJJ3UC/OCyXgp9Lq4f26JLq4O0mGHUKAhpCM
zpA6ia6628SnBxNw2j+R8WIjiT51GaUt3CIgdELyfrAC9hrTTRexu74vZygt
IxH7+Ov3pkEE/D18L35agERl+mWfPgcSsKlGdN/7BQJZrGUamWMHZAvFO44R
6FKqWpZ3AAH50pF7d9II5Lf/k5sU9rfIJfQl/QR60vmp8JU/AXNzYXE/Ogmk
Ncg1uYC9wW3R3qefCeQ7JG0ug32MGky7+Z5A762n3rT5EeBj+S/WqIZA9m2W
gfexc5oC98iWEyijQSjDBvvz3gVypIhAzZU/JLdg7929YYiSQ6BuA07EYuyC
naY/u9MIlDPOFiJ9CVi1w6vrawKB4FbDgxbsCM2Mbx/v4t8326u+xuaqf/hc
G0ogy9SaumJsxy1jjeV+BFpAXy2fYndukm4oukagn6KxI4XY+io6ddkuBBIw
nfQpx36p7Pgm5QKBEo8z/73HXqcUUx5nQ6Bsupt/H3bs2ornEeYEMhzwYf7G
/rOmvzDwCIGSlywcVMTzdZUVyPPSJ9BL9Ym7Jtg/V259fGUvgYo2GFYHYRtL
W6Zf2E6g9KrZr2+w30gGJFmrESiz5tfH39iq4rn3zdYTqOm3XsYB/D6TxFpj
DssRaPvBj8fisQVEOJG6UgT65eT/k459fal82E4RAm3TstbRx+tFCBgEbV1E
ILavpWcettkiV1/lOSqyWupwQxyvt8afGndJFhVd2nmfxsPOnCNdhAgqMvLK
OHwDx4vYL1Gnf71UtFU7wW0ee2Ta1m68hYocbksvyP4v/thhp2jvqGj4eYxd
OXbjeLF5XxUVdaQ0elngeM1lzhu1FFLRXtbJ+qc4nlcwlA3qs6mINZkybovj
PZQ0gdepVHRh+nrjSpwPZwfTd+ZFUZGwWqvbY5wvct/3rQ+5jL8vwjRYjPMt
qt1Bwec8FYVnfvcdw/71NXq1uzUVFeYJ6ffj/PzR0rf8jDEV8czXBrfh/L2P
/Od3b6Yik2bijMB9AvjqnsxuU6Ki0ZLxbqUEXD+qP0+pyFJRT8hEqyGuD6aV
a5jSwlS06L/CNdm4fggV13xnMylIy4I+m5tGQFDSfElBAQX59t+bH8zD9eDC
LmO1bAoqO6PraPSUgMManrTiVArycqgwfF1AgEQjQ+7FXQrKl5G+nFdMwBNu
e2SlKwU5fEgea3hJQLNlwfkGTQqaazrzlg/X35J15MLBzRR0JDQsur4e16sx
hZSPShTkt3G+8HYDAbbhiV+bpSgoDha3KzYS0Of850bWyBDacM01NPELrvcq
RWpvPIfQx6NmR24MEMCuUzxfc2EIZUW8FLiL94cqq4fJby2G0HOxKWYOFT/v
7WCBjzuHUJSsxkYanQBP2snB9t+DqJ7+UDV3AtfHnMUJoyGDaOFDy5bV/CSc
UDzze23CAGoO15h8u5kEojo4cSBkAOmfMBsu2UrCtZO56hmeA0jl/IWHOdtI
SLg3el72xACyanknmLkT74fzvp9WSAygGI1TjK4DJJj3JKULxfYjdYZqj6Ut
9v1v+6ej+lBlT12wZwIefyunu9S3DwlpBq6VTMLjN6+65n65D6nVBi97lYrH
/2efP2bUh0Sm3naIZ+Pxr44vH17ah7z0+HMWleLxjohQ+m7/RG/FRxKIryRY
LDYI/RjSi3J1c954S9Dg6757dqnXetFodH2YhzQNjnj92HXVoRfZaBmmuq+m
gT790qi0YS/avvRQqt86GmxvumfpKNSLtJrD895r0kAiultlcVwP6jCffKlo
ToNWqSuf9TK60bqL+8vGk2lgsD5BuvZVF9K3oC0330aHCPsoc5P8LiR0I5ha
qUWHlrTg+J8Pu9DoUZM/CnvpcGyFu9hvry4kbXdp8bwBHU4LmArs2tGFHIuz
JoZt6HCFsYTz4sV3ZEudcr4bSYeEIt/OJwWdKGYJVaGPxP3i9vMJ0Wnt6Iqg
lSX3Ke4/W1ktgsqf0XHCJETcjAnKBdSQpPT36KFqttkxfhbsbqtQKiVfoVOm
pn4qnFF4MCz28MvDLNTh9IF55Mc4hBo6SzzWzITxzR8oMhWTwJG5js6GvoYm
JYEcm59scHqdXFR84j14+XEWh7ybAl8+ryzv8M/wZDOhvb9kGvQXOXjdbG6H
QxW7qI9uzYC9cIeKf3c7NMgoBIeEzoC/xIHeIEY71Mey887fnoGKtYq6EQId
EBd0OUQhegY27utb+lCvA+6dnrAMS5oBIS+L9LI3HeC7POO0YMkMfKUfbBgv
6IS3hkYbqT0zYN2yQcIxqgv8/o1czt3CgeetdPtnqV2QouzjZqHBAYFv+SWc
wi64pKZqw/cfB0p/bDK5/akLPso8pFjs4oAgbWtEvugPqP7pGkjV40DFX60F
5r0fsL5n8sFDKw4s1zJkXk3ohove59VOBnLAUVtQ+1VON8QwpxahWxyo3tt0
+29ZN5weFYvfGMqBiweMleM6u8G/K+7daAQHn1+P2pdK98C+8ttWdvEcuHzZ
6vt0Ug9sPy4z1JrDgQ9ZF+tvpvdC0ADVmfKRAxpL+NuKinpBsjSF1tPEgZQr
GQMDVb1wzezyzrYWDrju7pw72NMLOtt3HKv8wgHpDr2dEjI/YeGv827nLg44
LJEvKoj9CQN047ZzNA4scu1I7A3pgzqNeMEcPi64dlzNEbvfB6+evrhjvogL
P3YLv4THfbCluKGST4ALRUv0vua97QP5qCzRk0u5YP6oROjafB/sVdkaSlvG
heyOO4Ei3v0gtTzRL06OC3p7wHnfpQFo69VMkd7OhXXRkd+Vbg7AL3l7fs8d
XOAbaDsgFDEASk/1l3zW4kJ98Dn5ricDkLncuuemNhegOaTdbWgAIjPboip0
uKB76sO+nJODYGQVKVJ1iAtrC8UK71wchPb2lnsTh7nwd85ypbvXIEjFnk9R
MubC2yw6e1/CIIwefKMbbMKF/QzB/K4vg6C/etVzRTMu6HgbSwgbDsHTP/uF
GKe5IN90P3DSYghUwdt9xpoLC6t/srouDIFs1aMjf224UFvr8jEneAhCvnNP
iZ3hwj6BGD+d2iEokK95JnyeC5nGztOvZSngFXN0251LXIi5Jrp5ixIFbq+1
NnC9zIWA9BdnszZRoJ7KrTrqwgW7cV5ruDYFhn1FGoRc8f3v33l6wooC4Fih
fNadCxk9hXaj8RTYXfNcIcabCwX/blD5Uinwu5RhaXWDC5UqBk4rsymwWDjN
fs1NLnz1GnQ/8JICPtMHyEwfLvBLrghLbqeA61a9iAB/LizfTVla0ksB4VcL
G7cGcEHubElMA5UC040d0T3YWiWHk8anKKBxP+2JahAXnIwDCg9KUeG7kX5P
VjAXrnkYa1jLUcEx1itQK4QLt5JXlrutp8KhYPv+RuwUemlt6nYq+PhvekcN
5cKnEHrbpDkVtE7ozk+G43gqKLNcYkuFdr9u/Su3uUC23eqVc6BCg3ejNom9
oCBHGl6nguK0l3JLBBe2VR+bTU+kgnlE3Q/XO3i9qGv8X6ZTQab2+Zkv2EZC
I/8an1BBg5l4Wy2KCxdOhglPl1OBsVO47Ce2W6BZ7NJaKnykBJer3+WCf67C
CoUPVAh4UHM8EPvB9Gt5o+9UmNlkbC4VzYXHsrezz/RTgZsQVnkKu0TPXOU6
jQrHV5uVpGJXOysW3xmjQm7g+t092I2xY9uyOFR4EOlmuSKGCx2VVRXlC1So
m3vKZ4I91B+xp0WAgPfp+vtuYf9SUzrIkSZgyNfFagBbwHyiSViBAG29of+W
3uOCpG+NqeJGAsYOhSepY699fKddS52ALPMvIWbYak1WJ4/sJGBCVWPaHVt7
Yn3f2f0E+EfLMaKxDWTYZ70N8bnlgKBdLraZTh3t7lHcp4tfNK/CPuNw9/Jj
KwJ6qoqaPmG73D01UXmGgGwBk+oe7BsvN1z/fJGAloqqTSR2WM8Uj3KVgOlY
F0kWdvy/twGz3gRUn2q/No6doRLDL4b7wPed503+58Kj1hFK+JxT0hSXOoL9
yktFVBufq+R+fbUlsBvSZ+JMk3DfvjkxvhvbmlPi1Z1JgMuuCaP/zYdtesn6
Au6jMm1nGf+bb0Teet3xZwRUNF6+nI+t8Ld/vU8F7mvyBNvisCtOJi9dXEvA
5Q3RK29gH3lxYuzee9zneFbqWmNTl4q1r/5MwH81Bw/twfY511j5BJ97c9U5
W1Zii1cFp2n8JKBmNnxiEq9HvuS+W1W4Dxo7WBHTiK3jwnUwGMHPo6+3JA27
s+GFURubAK91wyddsF3WuKj/71xeIeIcrI3N57VBiv6PALpGUDA/tsbG1L45
fO4f/enyLxrHy8dAi/rbK0korqv1N8W2+7EsT2ItCZrxWS3C2FGRoW4q6iTY
V4t0+eH4XEfRsXipRcKMq2S8Bvar3TxtHR0S1n98vGoIxzdt5Aq/uQkJyvLm
kbuw/fRVGP3mJFC92a4DOD8k0ymfnG1IWL5FQi4EW9fU6kHgZRLunWn9+DaS
C6nPdVULI0mY7BPQW4HzTXPpb1GtOBL+CfvrPsb52Hi2nP0W91mb/znMbcbm
SGyq/p5HwmNORN4OnM/Hrkse5fuA5ycwmKeI853++fN/0Z9JKHB87ZqA60HA
hoiVKzvx/HgcBj92Ydfc0BaCxO/1IfvHLRz/u2nXTvHRoD1k907rQC6kx2ed
IpbSINSDz+slrkfbR07rXBWnQc4fBTtB7LNpX5aEraWBYKG5cr4fzseFVynP
dWigsd/dpQ7XP493UW+X+NKgRGngnbEnFzasvjq1PYQGVyXMd1h7cKHbzWzD
uSgasA5nP3bE9VVXftXd6lQatKQ7XXK/ygXRm7lW7tU0WLa+8pYlrtf5W9FY
zzwNaP+eONme44JNWI6ioAAdXGpiuzaf5cKyn7fNd4jRwZdVrsLB+4FXpOmb
e/J0YJYYXg6w5cIBojdMfz8dJqVf6Nue5EJ/MkfuWRC+Xt03ZIb3o/iJ7qO9
EXSQYOuW9eP96qBhTbBgHB3i3+scdTTC++10COPcIzocNnv8w8mQCzePipfJ
1NPhjsk2kT3ABanFasa3+BkQte7FPQm8vxq5nb1pHs6AlL9G34Klcf7MbhPh
RjPg0Xj6nVwpLrwP4stMTmRAB0Xd+YMEfv647Ib+HAZ8S+6+/0sM1/9Scpnz
OwawcpHP9iU4/qadc/3/MuC00pdLoxwO/PL2aM/1GQapdq2Xl9o5sOuvnuPh
4GFYr/+0aHkbB65HSPJGIodBsyfrcWkrByaSyuS3JQ+DjTYjgIn7FdprjnNV
5TAUrrXoUH3LgW+/ff5+mR4G1o34VrKQA4WBIVt4rkzgC2APHA7iQI5/wdXr
XkzQuDBs7OvPgTTftheT/kxIIv4ry/fhwF1vBS3mXSakeHVf417D/c/VKp3e
Aia0afy5f8GZA5pnpo7W0JiQGemt5XecA290znvcshsBU1UNjyR53O/tvVM2
7zACnKj1Swxl8f13v+DcvDICjWmr3Sdl8P20/vh4+I2Ae5RinbY4BwK2poac
TxmBXWOaikn8HNCTb084+H0EtCw2MO/QZ6B5Xq9yqSkLghZfmNlfNAMDvHhD
FUsWiF/5tl4yfwamZyhdBnYs4FO9qTOUPQPyY8GzIa4s0G1T3eSaOgOe/fXa
CzEsEDFSrzS6MwNydXrV7C8syJEMPyR6cQZcg/RQ7/FRiKnea1osNwOS/Hot
xRZjEC6ZJvXPexpKNQKrwHYMGkwGPAc9psHMrrqw88IYMM4OiFZdmYbY11p3
5z3HoCdrjnX2/DSIuW02MYkfA6tdvP+8TKdBsE/qC6t1DNobnD5WKk3DXAX9
2+ZD4/BXJE7mQfMUEJeie57unoB8pdBZ76VTkPVgauWg3gRsUt8efZ9vCmzq
T1lJG0/Ab9mmjU9/s6Fj1YaOYOsJOGS03ql+lA0NjbWfrf0moKlVk1HUxobs
DRNvRWsn4IaioY99EhvOUczy3GESCvfxRWkpsmFyi2jVGmU2CGZ3CYTpTEBR
wMgLZVU2hD/a5DK9ZQKcvjTlb9nChtVvykKs1kxAv1v4g3072FA0p1wz+3sc
Pr384257kA1Ca0L4816NQ742WyXdgQ3rb5ze+lx9HOwPdj2Qy2VDPJ9kwBmp
MWi1eeQhu3EKHtRaSoRXjsB4de/G9zLT0H9zU83+eho8Gdzx+BV+75tiF5v/
WIb71B1aq08u58Duc5dMUkLbYBYW+2/5wwG+xcUT2SL3gSY+nXOEbxaCC9Jn
Jtu+oZWSkc0y07NgV+powy2jojhtZc+js7NQISkbmDZIRUL2SPb23Cx4fWr/
YC5CoPkingtnEQ/Yw+faF84TiGJwaVnnCh5sOONyQFuKRIU+xubxO3lgGvI1
3ugGDelQRPtFfHmwSftvFNd0GFUKFoTrB/JAa/yogqD/MNJQN1D3C+HBMzXV
Q2qFw0jJLyBoJIoH8kSEU8kSJhKUHl/XnMaD8FZ3g0eIib4d/nrxdi0PMijR
d7S0WcjYzWV5XT0PzoU6ywU7sVDDA8HXnA88yD0o7jf0kIUqqbpCjl940Pyp
s7SXw0Jp/i+K9Ad5YOadZ19bPopW5JhY+BE80Ms8+S6fHEUxzcPzLxk8qNfk
LstbMYaCZNYdVZrkgaOe6PWB62OIt6+We3oGz0c8OmFV7hjyuHA6K57HAx22
UNHF72OIdYdzqHmeB0JiwnVNAuPo//+/hNMx4m37d46j/wPRJWvO
       "]]}},
    AspectRatio->0.7,
    Axes->{True, True},
    AxesLabel->{
      FormBox[
       StyleBox[
       "x", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
       TraditionalForm], 
      FormBox[
       StyleBox[
       "\"\\!\\(\\*OverscriptBox[\\(x\\), \\(.\\)]\\) = \
-\\!\\(\\*SuperscriptBox[\\(x\\), \\(3\\)]\\) + \
\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\\) + \
\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", {
        FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
       TraditionalForm]},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Epilog->{{{
        RGBColor[1, 0, 0], 
        PointSize[0.04], 
        PointBox[{-1.315792109681497, 0}]}, {}, {}}, {{
        RGBColor[1, 0, 0], 
        PointSize[0.04], 
        PointBox[{-1, 0}]}, {{
         GrayLevel[0], 
         PointSize[0.044000000000000004`], 
         PointBox[{0, 0}]}, {
         GrayLevel[1], 
         PointSize[0.032], 
         PointBox[{0, 0}]}}, {
        RGBColor[0, 0, 1], 
        PointSize[0.04], 
        PointBox[{1, 0}]}}, {{}, {}, {
        RGBColor[0, 0, 1], 
        PointSize[0.04], 
        PointBox[{1.3157921096814968`, 0}]}}},
    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]],
    ImageSize->154.7716535433071,
    Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
    
    PlotRange->{{-1.5, 1.5}, {-2.837250096608577, 2.837250096608577}},
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{None, None}], ",", 
   GraphicsBox[{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.5], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjnk41fkex4WMdEIkp8tjMCQ7wyXCN0uWksnSsZQl9zi4KftkxChkynad
uiO5IcTTgmY0Kc3jfoQoHeZwtp/95PzOYj+LRIXb/eP9vJ7XH6/neRvEJgfF
ycvJyZ3/uv/z3k21UApFAKtc/E7RFxlcHAyYeR8rgGZtTx/CV3eRL4+PjBbA
epHNEvWzDLBUQlZImAAqSX8Y1nySgXrgrjsexwXgVe1m/3RdBnlqChN6VgKw
6AgWT63KIKp0LYrzgQ+PtfT7LJdkoFs0RfG9xof2HMfKjikZpJvyJM5UHEgN
w+s9f8pA0h3VG97KAxt6t1LRf2Qw+nfBonhoFr53ss8nX5ZBeUQTtWriPSRu
ssiLoTJITR/PSdrggkZLSr6jgwxsXHx4pxS5sOhE3L+tLoOGvjzPMybTkDVw
8MvzBSnYbpw9eYEyCSU+VEX3N1K4VPbw5L28ccjpcHGSq5fCbpXZcfNODAS+
Bh8rLkuB7P498cFnNuxPD8O0SFLIwCQnjhFZ4JbbGpBrIYXR0BrCkdMMOOYX
f6ZbUQpChxe9gUkj4JUgen4Hk0BBPet0O/EvcNGffazdIgFGk4Zb2p13YFMw
bZp1VQLURCvNjOEBIGQRXi4HSmBu00DexKsPdLicWFcjCTwJXJ3SudgNO7Wm
rc0kYpB3WLTDgzvhAenZDv8uMUwk1s1I/dtBv9rmtVOJGAyc9AdVIptA49w9
l4UgMWAFBRJ6SSngcrp/HdUVA7Ew3yPdrQQpWXgmfHizAseNTcwOSpqQeimr
7qfjK0C1Myn/8E07Gq9cNb4/vAwNp3MtmW2dSH9vSoqV+zIEeDsrrVd1o28i
t/wHW5fAZu/0BPNAH6rOyO+P0FmC+7qNfcmCAeTT0ts+lLIIP4dW3ApPe4eK
V36yUetbAJpugHzs4jBquHar7bHKApCo+z32hY8gsqVCxSvTeeiuEyTpxYwg
NmUy5ujBeTBv67h9KH4E1W4WnuoynAe5d6Qll8wR1JCge/V3nXl4pHi7Ko46
gjIpbzn5e+Zh+5L2SsfbEVR85EZ/v3gOHkQR74Y7jyJ6Yg+l69kcbJj/ba1W
h4HYPbtS/n14DvAc9Zqj3zFQlZFFrYn9HNCHlLxmzRhIwFu/8Nz6a58soxo7
MxCDusCiHZwD0lOaZUsYA4UEqm0M7ZuDP5zz4jp/ZaBrq6mvDMUiSPbDmQw1
JloMftQ01iiCiOrxy5naTGTw+fWmuFYE3gt0Q+1vmWhMgcdWqBaBXllXSoQV
E3F9R6d0KkRAo1cS3vszUX9X0IpmjgjMwvy8lm8wkVFi+ioxWAR8SttTZUUW
uj7EVlPfFIKNcur6od0sRH7/NmnioxCyH9q5+mmwUMjHaNt6qRBUF1/039Bn
odvNga06IiEcTu0dU3FlIdVuxSuDo0IovYxtE35kIcKM3chWsxDsK+T994pY
SMWq0cbouBB+tn1dYbvCQoXxm0WaXkJ4O/oLK3CNhYpDuO6fXIUQpbUn+qYi
G7m5nw1vtRXC9WrtNE0DNlIqu6bUTBTC5H2LKq0INsrya7vRhQugsJOEH6Cx
ES1BaV03QwD45zDKfgYb5XqbLfUkCcDT7YxIY5yNxqImX4XHCUC+N3pxt4iN
GuxK6sJIAsijJaxuKnDQG/rL9ApHAWTPZCvOHuEg0lacWuEaH8YNcoumPTio
3mG+UnGZD07kPOUJPw4K8p61vsjnw7qogMAM5aADWhN/bjD4kCkt3defzkEK
HS2EySd8SNlZZ/ToMQdl+O+wlJzjA92nvrm5nYMa5mtP3grlg3Vx46HGTg4q
N6yqI5zkw7LqA4u7AxzkkcPxzHXkw3ni7/blPA7a0bRFJqrwYTDiaUfxPAcl
xXxb47CFg1nNs8O/SDioJeThJ20pDiKDly5XtjlIP3vFWGsMB4p5r1eaDoZU
p/4bfKkRh/4Lr/svGmJI+3yJu9WvOBj/NuB73hRDvGp105wiHHB7mj/ZEUNy
DdyojngcvC4ND8e4Yaj9iUJmSSgOjZ30U5HHMGThgZ14441DrBsrhBSMISvz
fwVYf4dDzxUOOygCQ+Rhrp2ZOg4GvWNhP5zDkKHySKr5Fx5c2Tk5fiIBQ2nk
+//cJeQB12f6rG8yhuxP4dlldB6gYu60149f/26tJV94wYNa2myMey6GBD53
9xyt5cGWKn/WtRBDGjuD9eKv8iAyUEh2LsGQmQcjlBvDAze22j+Gb2LIvSzt
uqMjD/TOHD4XW40h5cpaTbkdPNieiYleq8cQrUbbpII6C/8DWl+kYw==
       "]]}, 
     {RGBColor[0, 0, 1], AbsoluteThickness[1.5], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hk81fkeBvDjcEO5aTD2iGypZDAM7vjIiyy5hGtJjjAyHbn2VKIoXEJC
tkoiS9M2jSVL8jUxCJU62y8HiXN+x7EczvlJthj3j+f1vN5/PP8+WiFRnqfI
JBIpaiv/74aValnTKgw5f3jTpJE8ASn/bL7rVY4hp9V7/6njTECg2+M8SjGG
jqQXeIjtmQTrvMqUX/MwVNhhLbXsMgnKQ8UxMZkYqpVZo5+MnISlXTkhF1Mx
pNY+FL0/dxLoHqle6YkYajz20bznwST8UZBgnxeHIbF1A2fSq0mIUAjWu38K
QznUWYHl/CS4ePsoPQnEkCJFgk8X54B+8VGpZl8MSepieSeVODChZD7d74wh
q1xG73trDnT67WfT7TB08V1cj8CVA+VlewbHrDH0KuDjJyqFA35qO56KDmKI
clBxuSWJA280xmNU5TAUfAwbWGviwMOTjBCdHRiyf+SyFNTFgcx7/V5GEhjS
0WiROzvEATvtph/tllgoourxUAefAy2611aowyyUsZmk4qbCheKwy9NxtC1j
ciY1OlyIq4tnJw+y0KXujBevD3HBaN/Jl/kdLCSoPN6V5sCF+wfMUlurWIiZ
LPvLeiQXrpuOSUmfYaF/yb9s9n7BhYh42opcKAspOv3vm383F5yb+qbVKSxk
2phGc3jDBQmLhkFjdxYK+6k4890YFy5YZd7wM2Uh8dJe0z4SDqGHTZQfrDGR
oDHnFtsWh04Qy1VdZCJqYs92E2cc1G2GxHJnmWiX+NnmeA8cGFaRMzGjTCT1
NW2wMxiHI2YPO6wRE5XGkedSUnEw0Nc+9e4KE7npKk2vvsRhVkaufkmaiRrH
Fv9YP8ADpx2f9ahkJpJW61LNNeVBtfSz2+xVBpoh8iPkrXhA2eaW3jnDQC37
RhPIjjx4u5nld+0NAyUOjZREBvHgmUhsc3c+Az33VbGvyOdBPCY86qDMQCFT
haKfBDyIzVjUtvyOgf7CbQ2oBA+izL6uHNjOQJHHJpiFyzwIv7Fep7BOR4vD
KuMYeQqCnCQlOJ/oyF5jx/G9SlPg2qLefqWOjoprHZ/12EzB3lLHA53mdETP
7m2/d20KPviWy1h705Dox70/Y4p8cOu68GvJv2mIVKQxFKDGh34jn1eEAw3Z
uO4cHtXkQ9c/ZM8/NqehDE2jGIYBHxobUiZ3K9MQePpdvG3FhxLZ0DYS+wPa
HVyrk0XhQ0Cv4emeoA/ohxcXQ5Qq+cAzb+nyiHiP5KKcyPv2TMPVSoZ3vfI7
ZLazOUpEmgFajZxNbNkAknpSedixfQbyqUby8W97Ed14Revg2Vngf9Mi69t3
IymBi5OZwhz87rE4qhbZie78lmCb1zgHZPNZU45XK0pmn0sQOAqATa34JHKt
R0rZfjsHXgtAy3JP/3ZKDbowUlsb4T4P2NWrwqHsHJQW2P7ItWcelNOu2MXZ
ZIOfO09uVXUBXHT1DfWENbARkLSh7L0A+ab6179I1kOna3qQQ9YCVHknH6Q/
bQW6a3hZH1oAtyNW25ZLOyHJu1osklgA4+/G2HSVbtBYlG+X0xZCtfr97ii8
F/qzEp5regnhku+NwuOxA3BlY2hX0WUhDKq7kUNm34Ke1jcz8kMh+OQr2ikc
fw+ivwIHmEwhrOxXXbqrRoPpukd9tzeFwA172iAlwYD6xt2cVkMRpLX6cFQG
mWBiIIiV9hQBxYMXapWNQXtbL6v9nAguZ0nNW0YPQ5Vy8MuOChF4ffx5dtxs
BLDmGyqu3SKIfi1OhGmOgULgrSrlGRGEbmI6l0jjEKY7SpzeRQBfty1L/fM4
jCc2/XndhICCO7/EPaR/hmqlRFvchwAFzRJFmZYJmFEflLI4T4BZd0fwl+JJ
ML6W88yrlIDzrU9/eJvJgWE77cM32wgoajN4kRjOBZ+EaFvxYQKWvEup4Vu/
cJctlnR9yz5CSWX/WC7UXmI9UWEToGjAi7dM5MJqkc/ioRECiotqjJazuBB7
kyETMEZAabR21dnfuLASGfzf+gkCbumpZ0VPcaEjcHrZd4aA1T+zLYJmuVDn
QiVNbNmfssZ1X+BCg0XoxplZAtRuDtsdWubC1Rn66OU5Au6Ila3PSeKwN/G9
Yd08AeUj30ef0cchvLBhgyAI2DiXrnFiPw7rtR2RyYsEBMp/GXQ5hIMnO4ix
7QsBGi70fYYWOJAoMRkqSwTcbS6YnDqCw1Sd8JzN8tbek1yAueBQ9oBzp3fL
gYIY2z43HPoNk1qOrRCgqetRXueDw6h/BS1klYCUzs6jJf44aJwwos1sefyE
8WpGIA73U0+/jl8jwPZrxYOEEByoCe7Pv235XoGsb1gYDovjnLKMdQL+Bneb
s3w=
       "]]}, 
     {GrayLevel[0], AbsoluteThickness[1.5], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVy2tcjHkbwHElplWp6KwHJSpGixKFLpIUSWlVIiUVrUNHrOigFDqpMOs0
lQ60tJWyNGivVm0loyYz99z/pjnck0EYbLJtPQ49+7z4fb6vflYRsVuiNCdM
mPDTv/3fxrFKfcdyguasbu73hwcgXe9eSQCXYInqngGtNwA7fWvOhnIIii0j
hwN6lbDi7LX0PWcJUl/iJjpVKcFMwImPP00wuzxZVZ6uhBGDvIhjJwj+sfaY
7NdwJYj8TwRkJRN0lfmde71WCbeLD3ucTSRIP1A+z7JXwn6jXfMqogg2RAma
RscY2LA10PTXnQRrPqaKHVUM2HI2at8LImj/LtQhrYeBAVPnN13eBK+WJlU3
VTPQErygX+ROsOIiOzSewwD30my+fAXBy77DsicnGQieoVP7cSHBbfzkWtvd
DDydycRbTCP4uDUgxWUuAzfDqAgbHYKBfhtX/mLCwOmyrgAHLYK6o399iNFm
wN36t6XuIzSeidDXPdengKa5OWMxEhqbp5zaaxqvAE502ptEIY2FZVmJhsEK
SLyR1J/Cp9GyA2PiQAEO9mHNRb/T+CDbVOitr4AKttMJXjmNte4+s/5pkEOB
o1z7u300hh+5+zqRJYfINUvMqj+L8XiEF7tMLIUW0Mi3+CTGVJvrWbtapWDp
JtDIV4vx4dAmuw31UqBcD76Nl4lxwo8XVubnSMHT6ebvK1CM/FdLCltWS8HO
1jqqJ0OMr5a/NLBr7Ae17rSGke/EuEMR61dzSwJJZGjjOjMKl9oUbM2kCCRk
f7J2MaTQd975jbWdBGKd/hljT6HwZl2UieoBgR8Lv9ww+iJCVtKk6thyAuFe
LC2VQoTrZwf5TIwj4NNk+TDjhgi/Xksd0dQjMOfienaLswhvs+JldZtoeBbE
1V2xVYiLeYHDfi8oeOXc1Oq/vxffPjLoN7IWQuY1amuDWQ/mRFoIjtYKQFg1
zS3h0hOMijrgVWnxFIpiHKYndXegztdUrz/ud8Lrr1aath5teN/r3N/mvW1Q
5/9JNuNgCzZrmKQY3WsBTWe1oyqAh2UFnD0+F3jQH1Oq+OjTgKu91zFroxrA
ymV215TQKmwLKbHnRlcBycwcEuTmYXjvYMnK/DwwO5nhnuiWC4Kb0og6yMUN
c23nzxuqgk75kmdZn6uwyNG24G9WAywyridOsxqwfGvKQlEtD5w9bKabDPPQ
19N18ujFFuhYZt/nqWrBRYbyfpF5G2R0X2ifX9GGlZYVbbEvO2AJt2qwnerE
1KDCc9sSnsDLpWVt+9R85Fv6akaou8H/6NPDt4sFGFhk4m60rRe+PUzSIywh
ji2wGCmZIYT/ml9x98ynUHXcgLt6jhDc6/sOSi5SKHg62WNgvhB0ytT6hyop
rI4dLprrKoSRqfZvmh9QGNjIX1gTLIS6nmhu6RsK77imRfEuCEEdkV1V7y3G
WG+VSKgvgrinDgsy9WgMuSw5dshUBKczSxdOtqDR863A2nSWCPSNzw8WzaNx
Zn5zXIiDCI66/qVqBRr5Ao6u0kcEHsf6fz6fQOP8YG+P92dE8Gh85ebxPhpf
RNc2amtRcGfZ47iOeoKLtONH7XQoOGPq1VrTTDD5F8dV3tMouJrI6HC7CE5V
N7WfmU0B64CMVaoiuDy+tW/KKgrcVlvls837MO8YGdc9TMFMsU7w2ZN96FSo
6WM4SMFXu3dO9VESTF38Z+HiDxTo3ana7pkkwcfPTlH+IxS0G+9Nf5chwZ3G
emHFWmIgx7WlsWUSPH3ZNGG6lRguC1Pf+0glKK1kXzQOEUO1vWRBfVA/nuQF
qsz5YljUc6v/bZgUVZ+Do02EYgiMMyvWiJfiWrftg9MkYrgSsPmHpRlS1GwN
U+sMiiEnW7d3rFKKafy9n75OpCGjufM/umopJiuStQZW0GDA6Xw/84QMJVYp
2XJ3Gkz8TzkdPy9Dl8g07X5vGgQek+awqmU4OpipKwqiIefT9LpbPTI89DHP
qD2Rhp+0Nz3fbiXHuEmlNjdv0XBojkmhoUCOgvXXrl9voGHfXc5uu1dy/D6n
wq6CR0Nxx6Oywm9yfD+1mn21gwbfU3RapIMC95nddip4TkPAkU1zOMUK7App
vJvzhoYvhlbsxhoFzuf+tvzUEA33nZV3vTsUOGh1f2X6OA0/d+/ZovFNgdEL
Wj0SZhDIVKtdN7sw2H7gz/aD1gRu93muavNicG59h9c+ewIDaw6xy4MZVDnx
fSKXEWDHdAXhUQY9jnR3h7sR6FhtwzfOZbCCJ/ALXUdgiW9ctBaXwQg36ofA
AALftn8ZG37E4KN0WrwlhICrL3GxoRm0au0L3ryLAEfZw/JVM5g+SSrZuPff
36ZS44qmEpn18h1esQR2rOntWmOhRMhh5B6HCeReHbmQ56jEEv5A+JoUAqMf
tpWqfJX4beqLgVUnCUSNnLAc3K/EUP9Xka65BPwcHwZdKlCim1h/d3cxAe2q
vvYsnhJnbl++K+IyAcbpefOEISWOK8LDRq4R0GqcpX9n1wD+D11uAKw=
       "]]}},
    AspectRatio->0.7,
    Axes->{True, True},
    AxesLabel->{
      FormBox[
       StyleBox[
       "a", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
       TraditionalForm], 
      FormBox[
       StyleBox[
        SuperscriptBox["x", "*"], {FontSize -> 12, FontFamily -> "Times"}, 
        StripOnInput -> False], 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]],
    ImageSize->154.7716535433071,
    Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
    
    PlotRange->{{-0.7, 0.7}, {-1.2491518031584379`, 1.2491518031584379`}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{{{
        NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
        FormBox["\"\"", TraditionalForm]}, {
        NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
        FormBox["\"\"", TraditionalForm]}}, None}]}], "}"}]], "Output",
 CellChangeTimes->{3.619853061262892*^9, 3.619853108308922*^9, 
  3.6198532152314863`*^9}]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 2: Master\[Dash]slave with linear coupling", "Section",
 CellChangeTimes->{{3.607981655944887*^9, 3.607981662632291*^9}, {
  3.668613700999107*^9, 3.6686137020931396`*^9}}],

Cell[CellGroupData[{

Cell["Figure 2", "Subsection",
 CellChangeTimes->{{3.60806458270439*^9, 3.6080645957791443`*^9}, {
  3.668612480755436*^9, 3.6686124853057423`*^9}}],

Cell[TextData[{
 "Here, the slave subsystem\[CloseCurlyQuote]s saddle-node bifurcations are \
determined by the equilibria ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "*"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " of the master system. \n\nWe choose ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "0"], ":=", "0.7"}], TraditionalForm]]],
 " to be larger than its \[OpenCurlyDoubleQuote]break point\
\[CloseCurlyDoubleQuote] saddle-node bifurcation ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["a", "break"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", so that the master system is facilitating the slave system (encouraging \
it to pass its break point ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "break"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ")."
}], "Text",
 CellChangeTimes->{{3.668612341494389*^9, 3.66861240511185*^9}, {
  3.668612488073317*^9, 3.6686125046970663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", ".7"}], ",", 
     RowBox[{"x0", "=", "1.6"}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", 
      RowBox[{"(*", "\"\<\\t\>\"", "*)"}], "\"\<\>\""}], ",", "masterSNBs", 
     ",", "slaveSNBs", ",", 
     RowBox[{"\[Epsilon]0", "=", ".1"}], ",", 
     RowBox[{"b0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"c0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"fs", "=", "12"}], ",", 
     RowBox[{"fsTicks", "=", "11"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}], ",", 
     RowBox[{"imgSize", "=", " ", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".65", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"(*", 
       RowBox[{"1", "/", "GoldenRatio"}], "*)"}], "1"}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", 
     RowBox[{"pointSize", "=", ".035"}], ",", "syncWindow"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"coupling", "=", 
       RowBox[{
        RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"slaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSlaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"N", "@", "x0"}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"y0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"y", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"slaveFlow", "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                   "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
            ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "y0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"N", "@", "masterSNBs"}], "]"}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"b", "/.", 
         RowBox[{"NSolve", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}], 
              "}"}], "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", "\[Rule]", "x0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
            ")"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yFixedPoints", "=", 
       RowBox[{"y", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"zFixedPoints", "=", 
       RowBox[{"z", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveSlaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"y", "\[Rule]", "y0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "z"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"syncWindow", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Last", "@", 
          RowBox[{"First", "@", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"computeSNBsForB", "[", 
               RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "/.", 
             RowBox[{"a", "\[Rule]", 
              RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Part", "[", 
            RowBox[{"#", ",", "2", ",", "2"}], "]"}], "&"}], "@", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"computeSNBsForB", "[", 
              RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], "/.", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], 
        "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Grid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{"yFixedPoints", ",", 
             RowBox[{"{", 
              RowBox[{"b", ",", 
               RowBox[{"-", ".59"}], ",", ".42"}], "}"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{"#", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                  "]"}], "&"}], "/@", 
                RowBox[{"{", 
                 RowBox[{"b", ",", 
                  SuperscriptBox["y", "*"]}], "}"}]}], ")"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Black", ",", 
                  RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"Black", ",", 
                  RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"Black", ",", "Dashed", ",", 
                  RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], "}"}]}], 
               "}"}]}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
             RowBox[{"Ticks", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"Transpose", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Sort", "@", "slaveSNBs"}], ",", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], "&"}], "/@", 
                    RowBox[{"{", 
                    RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], ")"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{".05", ",", ".05"}], "}"}]}], "}"}], "]"}], "~", 
                 "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[Epsilon]0"}], " ", "x0"}], ",", 
                    "\"\<\>\"", ",", ".05"}], "}"}], "}"}]}], ",", "None"}], 
               "}"}]}], ",", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Inset", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<(a)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                  ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{".05", ",", "1.1"}], "}"}], "]"}]}], "]"}], ",", 
                RowBox[{"Inset", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<-\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], 
StyleBox[\"*\",
FontSlant->\"Plain\"]]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                   "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[Epsilon]0"}], " ", "x0"}], ",", "0"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{".0", ",", 
                    RowBox[{"-", "1.5"}]}], "}"}]}], "]"}], ",", 
                RowBox[{"Inset", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(b\), \(sustain\)]\)(\[Sigma]\!\(\
\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\)) \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                   "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Min", "[", 
                    RowBox[{"Sort", "@", "slaveSNBs"}], "]"}], ",", "0"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", ".55"}], ",", "1.5"}], "}"}]}], "]"}], ",", 
                RowBox[{"Inset", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\))\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                   "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Max", "[", 
                    RowBox[{"Sort", "@", "slaveSNBs"}], "]"}], ",", "0"}], 
                   "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "0.2"}], ",", "1.5"}], "}"}]}], "]"}], ",", 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                 "short", " ", "arrows", " ", "to", " ", "the", " ", 
                  "critical", " ", "manifold", " ", 
                  RowBox[{"(", 
                   RowBox[{"the", " ", "fast", " ", "flow"}], ")"}]}], "*)"}],
                 "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
                  RowBox[{"Arrow", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "slaveSNBs"}], ",", ".4"}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "@", "slaveSNBs"}], ",", "1"}], "}"}]}], 
                    "}"}], "]"}], ",", 
                  RowBox[{"Arrow", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "slaveSNBs"}], ",", 
                    RowBox[{"-", ".5"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Last", "@", "slaveSNBs"}], ",", 
                    RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
                "\[IndentingNewLine]", "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                 "long", " ", "arrows", " ", "along", " ", "the", " ", 
                  "critical", " ", "manifold", " ", 
                  RowBox[{"(", 
                   RowBox[{"the", " ", "slow", " ", "flow"}], ")"}]}], "*)"}],
                 "\[IndentingNewLine]", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Arrowheads", "[", "\[IndentingNewLine]", 
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "1"}], "}"}], "}"}], "]"}], ",", 
                  RowBox[{"Arrow", "[", 
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"b", ",", 
                    RowBox[{
                    RowBox[{"-", ".09"}], "+", 
                    RowBox[{"Min", "@", 
                    RowBox[{"Re", "@", 
                    RowBox[{"Chop", "@", "yFixedPoints"}]}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"b", ",", 
                    RowBox[{"Min", "@", "slaveSNBs"}], ",", 
                    RowBox[{
                    RowBox[{"Max", "@", "slaveSNBs"}], "-", ".05"}], ",", 
                    ".05"}], "}"}]}], "]"}], "\[IndentingNewLine]", "]"}], 
                  ",", 
                  RowBox[{"Arrow", "[", 
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"b", ",", 
                    RowBox[{".09", "+", 
                    RowBox[{"Max", "@", 
                    RowBox[{"Re", "@", 
                    RowBox[{"Chop", "@", "yFixedPoints"}]}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"b", ",", 
                    RowBox[{"Max", "@", "slaveSNBs"}], ",", 
                    RowBox[{
                    RowBox[{"Min", "@", "slaveSNBs"}], "+", ".05"}], ",", 
                    RowBox[{"-", ".05"}]}], "}"}]}], "]"}], 
                   "\[IndentingNewLine]", "]"}]}], "}"}]}], "}"}]}], ",", 
             RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"Show", "[", 
            RowBox[{
             RowBox[{"Plot", "[", 
              RowBox[{
               RowBox[{"Evaluate", "@", 
                RowBox[{"Flatten", "[", 
                 RowBox[{
                  RowBox[{"computeSNBsForB", "[", 
                   RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], 
                  "/.", 
                  RowBox[{"Solve", "[", 
                   RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                   "]"}]}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"a", ",", 
                 RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
               RowBox[{"AxesLabel", "\[Rule]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    "Italic"}], "}"}]}], "]"}], "&"}], "/@", 
                  RowBox[{"{", 
                   RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], 
                   RowBox[{"(*", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\)),\>\"", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\< \!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", "Bold"}], 
                    "]"}]}], "}"}], "]"}], "*)"}], "}"}]}], ")"}]}], ",", 
               RowBox[{"PlotStyle", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", "Blue", "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
                  RowBox[{"{", "Red", "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
                 "}"}]}], ",", 
               RowBox[{"Filling", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"1", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "2", "}"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Blue"}], ",", 
                    RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}], 
                  ",", 
                  RowBox[{"3", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "4", "}"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Red"}], ",", 
                    RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}]}],
                  "}"}]}], ",", 
               RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
               RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
               RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
               RowBox[{"Ticks", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}]}], "}"}], ",", "None"}], 
                 "}"}]}], ",", 
               RowBox[{"Epilog", "\[Rule]", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"x0", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "Blue", ",", "Red"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"a0", ",", "b0"}], "}"}], "]"}]}], "}"}], "}"}], 
                 "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\))\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "Bold"}], 
                    "}"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".2", ",", ".67"}], "}"}], "]"}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BezierCurve", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".65"}], ",", ".25"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".55"}], ",", ".5"}], "}"}]}], "}"}], "]"}], 
                   ",", "\[IndentingNewLine]", 
                   RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\))\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".88", ",", ".12"}], "}"}], "]"}]}], "]"}], ",", 
                   RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<(b)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                    ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".05", ",", "1.1"}], "}"}], "]"}]}], "]"}], 
                   "\[IndentingNewLine]", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"First", "[", "masterSNBs", "]"}]}], "}"}], ",", 
                    "syncWindow"}], "}"}], "]"}], "]"}]}], "}"}], 
                   "\[IndentingNewLine]", ",", 
                   RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"Darker", "@", "Green"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"Darker", "@", "Green"}]}], "}"}]}], "]"}]}], 
                    "}"}], ",", "Left", ",", ".1"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"Mean", "@", "syncWindow"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.4"}], ",", 
                    RowBox[{"-", "1.6"}]}], "}"}]}], "]"}], 
                   "\[IndentingNewLine]", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".7", ",", ".3"}], "}"}], ".", "syncWindow"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "+", ".07"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"Mean", "@", "syncWindow"}], "+", ".18"}]}], 
                    "}"}]}], "}"}], "]"}], "\[IndentingNewLine]", 
                   "\[IndentingNewLine]", ",", 
                   RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "-", ".3"}], 
                    ",", 
                    RowBox[{"-", ".49"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "-", ".15"}], 
                    ",", 
                    RowBox[{"-", ".43"}]}], "}"}]}], "}"}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}]}]}], ",", 
               RowBox[{"PlotLegends", "\[Rule]", 
                RowBox[{"Placed", "[", 
                 RowBox[{
                  RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Directive", "[", 
                    RowBox[{"lowerColor", ",", "Thick"}], "]"}], ",", 
                    RowBox[{"Directive", "@@", 
                    RowBox[{"{", 
                    RowBox[{"Dashed", ",", "Black", ",", "Thick"}], "}"}]}], 
                    ",", 
                    RowBox[{"Directive", "@@", 
                    RowBox[{"{", 
                    RowBox[{"upperColor", ",", "Thick"}], "}"}]}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<lower \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
                    "lowerColor"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<middle \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<upper branch\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
                    "upperColor"}], "}"}]}], "]"}]}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on its \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], "}"}], "~", "Join", "~", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#", ",", "\"\< \>\""}], "]"}], "&"}], "/@", 
                    "#"}], ")"}]}], ",", "\"\<\>\""}], "]"}], "&"}], ")"}]}], 
                    ",", 
                    RowBox[{"LegendMarkerSize", "\[Rule]", "7"}]}], "]"}], 
                  ",", "Bottom"}], "]"}]}]}], "]"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", " ", "aspectRatio"}]}], 
            "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", 
        RowBox[{"Spacings", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", ".5"}], ",", "0"}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.613751801065422*^9, 3.61375180180436*^9}, {
   3.6137518370311203`*^9, 3.613751953892585*^9}, {3.613752006655964*^9, 
   3.6137520246070423`*^9}, {3.613752057947803*^9, 3.6137521359942093`*^9}, {
   3.613752202487631*^9, 3.613752293295854*^9}, {3.6137523897505207`*^9, 
   3.6137524988147783`*^9}, {3.6137525288326473`*^9, 3.613752570379616*^9}, {
   3.6137526016383867`*^9, 3.613752634502563*^9}, {3.613752676746476*^9, 
   3.6137526770567513`*^9}, {3.6137527097463417`*^9, 3.613752754006626*^9}, {
   3.613752786616658*^9, 3.613752786739336*^9}, {3.613752828289412*^9, 
   3.613752828499511*^9}, {3.613752862418624*^9, 3.613753099373645*^9}, {
   3.61375317648343*^9, 3.613753208901681*^9}, {3.613753254333848*^9, 
   3.613753405617632*^9}, {3.613753450076497*^9, 3.613753462929941*^9}, {
   3.613753530163156*^9, 3.613753560880392*^9}, {3.613753593078298*^9, 
   3.613753645812399*^9}, {3.613820538265053*^9, 3.613820597395317*^9}, 
   3.613820632101099*^9, {3.6138206663561287`*^9, 3.6138207060679207`*^9}, {
   3.613820745036706*^9, 3.613820983614299*^9}, {3.6138210347192707`*^9, 
   3.6138211272358923`*^9}, {3.6138214179722433`*^9, 3.613821440192749*^9}, {
   3.613822072201762*^9, 3.613822145445718*^9}, {3.6138221976942596`*^9, 
   3.6138222243118*^9}, {3.613822255524457*^9, 3.613822641946088*^9}, {
   3.6138226759262657`*^9, 3.613822822750483*^9}, {3.613824037202713*^9, 
   3.613824072359281*^9}, {3.613824612271295*^9, 3.6138246350872183`*^9}, {
   3.6138246793478622`*^9, 3.613824892734086*^9}, {3.6138341192673388`*^9, 
   3.6138343251646757`*^9}, {3.6138405027910433`*^9, 3.613840518539673*^9}, {
   3.613908823202292*^9, 3.613908834170388*^9}, {3.613908901910818*^9, 
   3.6139089538414*^9}, {3.6139092526209927`*^9, 3.613909264689217*^9}, {
   3.614977268715317*^9, 3.614977269920435*^9}, {3.614977381980927*^9, 
   3.614977382645835*^9}, {3.614979173147786*^9, 3.614979173675921*^9}, {
   3.6151187407754583`*^9, 3.615118792052713*^9}, 3.622286053278335*^9, 
   3.622286096167943*^9, {3.622286171147114*^9, 3.622286248885981*^9}, {
   3.622286289072155*^9, 3.622286290994903*^9}, {3.62228638115239*^9, 
   3.622286421051384*^9}, {3.6222864622175713`*^9, 3.6222865025321302`*^9}, {
   3.622286537047261*^9, 3.622286605266657*^9}, {3.622286672564801*^9, 
   3.62228672975424*^9}, {3.622286777356822*^9, 3.6222868988322563`*^9}, {
   3.641655763698711*^9, 3.6416558349033527`*^9}, {3.641655866119437*^9, 
   3.6416559291980467`*^9}, {3.641655981894759*^9, 3.641655992597056*^9}, {
   3.641656048115295*^9, 3.6416561362780333`*^9}, {3.641656174188416*^9, 
   3.641656273895196*^9}, {3.6416563252440643`*^9, 3.64165655108289*^9}, {
   3.64165664908*^9, 3.6416566570152683`*^9}, 3.641656688777866*^9, {
   3.641656748992012*^9, 3.6416568037520227`*^9}, {3.6416568469428368`*^9, 
   3.641656853913782*^9}, {3.641656886996849*^9, 3.641656979749784*^9}, 
   3.6416570128731003`*^9, {3.668612264226667*^9, 3.6686122796843557`*^9}, {
   3.668612411473587*^9, 3.6686124461914062`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{}, {}, 
        {GrayLevel[0], AbsoluteThickness[1.5], Opacity[1.], 
         LineBox[CompressedData["
1:eJwVkHk81PkfxwvrZ9GQLtvhNyJrLG0krWN9VoVcOSIi5Rr3uYnBFia5Q8f4
9cOSWlLWUYRcb2E9GGPmi34IOebGxMzQliPW74/n4/V4/vl6qvpEOBElduzY
Eb7N/3fjruRTy1kmPGp0qhawxCB1IV6yfYoJquQ6Suq2y+NEvvqTTMDcgmLx
234oZ0pddZQJB6YwgjNTDEY5b8rXaEzoPkaybpkRAykn4kVVExP4S2Hx6R/E
sJIz8XJPHhOUTqvkqoyK4WNuXce0KROiQzWuGFLF0OogbKbnzMLX9h/OiavE
8Pg/H4oD52dgZ6ONrNoDMUzQupVMrGbghbSb6g2SGOaSo3po+tNAXq/Ww3mI
wSKm2Sh28QMUpBgvE5AYrvEPBzKyJyF+qlYrFC8GzdPXXxfoTsBc95PgVzvF
cPC+1kjLx/fAxWn1p7JF0Be8XpOZMwZ4k9UJ+24RlNrreNZYjMKvQ3Evn5eJ
gLD7opblNyNQvSA7IZ8mgjCH+7XZFe/geFHejBZRBOOFerKavsOg2IPDs8+J
QIooOBwlMQS3HGJ81FVFMCVbYK9TgcFxvEm20VchdMU5Vt6i0sGaJVP8aVwI
Z9+XEjZ30cCLd/d3Vr0Q9jnWXyAk9UHKgGDwep4QvLtXOTUtPfDu9pmM+QAh
yIs02g5LdUPxZHHhF1MhfGuw3/hUwltQmtqtU3lACFuCyEtOsW2QN+viljy6
BHnFhin3XJrgh2WJxFHyEsx0Dur+blcHl+IsTuN1lsC8tSQNaivhqF7JWzpt
EfY6/2GxnFQKxUfUXyZELIJqwLDhxfEM8OWsv9CSXoTvBOEVnUnJyCnEtE+u
4CMof7BUyP1ShJzNvosOP/ERtPW9ioS/PkczibjNT40COCMvm3Vj9CW6u3Ke
stdMADVZe8+XTzQgz791E8h/LQBh7xs83q4VrTSqJigYLMDWa4FLaW0HinQ9
5ZddNg+RXCuCa1QXkugbajdZm4PcTbaLt2QPwtlxGx3Oz8EFz0dn7qT3ogSC
dn4VmQ8TV8l+0Q96UWpsffmeRD4EeoWm+hb3Iqr3zC+xCXwg+/5CNavvRfMh
JlsG0XxoDOI7bk73Ir2/rx1+ROQDPuYn79jTfcjRWM1/0pIPopyxxCBuH2p2
rV00l+XDrbzOUjdRH/K08utxkuaD/P0/uyw3+pD/xmTYFQk+aFCS/qWhREVe
ZTgF/zUeuBdq5jJ/pqKmNnGv4zwPOp+Rij0oVKSXmaad0seDhx3KbXbn+hFS
7zm1/w4POt4EnCBf6EfuRd9/+yWJB4JXDU8b3PpR8DE/pZHfeHC2zDnz32H9
6GbZYHFqNA/EGXmuIko/cqkoSGry5YHjRRnxQ14/cpqT+Z+LGQ9w3M8ak5k0
JO853qayygWjaYsCRQoNFe1RNo9c4YL/GGWXeQkNnfA46N66xIU26smVqjoa
aoqeZJ/lciG0JuJt4iQNDYUMBuOGudBP4nmoHR9A60+GdBIruZAuN5oXPDiA
Ms/NeRx15ULPT575cZMDKGvDZlHVkQtS/qzCdN4AujpfoX3AhgtJHUvl5V8H
ECllY2rWlAukGzJtTAId2daJ94iPcSFg2nDOnUxHP7ZETPeIOPCHfMdi0F06
cqvuFkgtcIBpaLFCekRHgZ8PxeizOXD1odNWfjUdSWdZ5/qPcOCSVci+4XE6
Supa2ZJr5oBFXZGZzUkGOqMxof/pJgdSZo5aupsy0Jv4Px/uj+FA567ntkFW
DFQQyQ9SDeeAaeBr17RrDIRPex4t9OSAwRF6WFcWAw3N7s+8YsKBaGvn60P5
DMQmhtm/OsmBV7HjpNlSBnLy9jOb1+LA8SHu7a1GBpLr/ub9ujIHjqVt/deY
zUAa2tVHEpfZ4FN/p8R6iYGqL8WvwRwbHs/KlV1eYyCBmm3nyDQbcCryY8Yy
GPKq8wi62c+GTJIy67IKhuy63Fr9H7OBkDtBnFXDkOK+Z+EKFDb0lhXzAwkY
0mHhnGIy2CA9rL4Yq4+h4BKiVGgUG8g6uqsUawxZ/7awav8zG6qjo2skHTAU
uMPHPe1HNoy3NBKjXDA0v0RtsVBlw0lr0yFbLwz1KryT15Rkg9e95PRmIoba
yU/iNJdZkD3WbaoZgiGDvypPhDJZwPa3qZSMwdAivpNm3s4Cxeoc76gEDEVS
H9hkvGCByafBA9NJGEoJ+JzsQ2FBoMk+um0qhnR1de1Jt1hAue2W0pyFoYaK
B5XmRBZ0UguNNO9hyGfnoarl8yxY3D0tpORjSHaypmbtexYcvHz0mWTRdh/5
y4rzm0yweEz0jCrd/uNUkjvQwYSdPfldrk8xxPPPb5C8z4R/AGXL0G8=
          "]]}, 
        {GrayLevel[0], AbsoluteThickness[1.5], Opacity[1.], 
         LineBox[CompressedData["
1:eJwVz3k81PkfB3CNa7MjrWtzFGtra2REuY/exTZIjkrZ+kXoYU02QqSWylCO
Ma2rtgi5cqRfU+lQjo9jKGGT25c5ModxZWa+1YM2/Ob3x/vxejz/eD0er/dP
IWcPhRIUFBRi5Pf/zJgU2nn48tAhl6bi2zmTsDNvS/w+bx4qKGMe72NPgorF
Z1aLJw9JktMNXNT5MN7D0nTy4KH9Jr9N1ljw4UGhSmMShYceNC9fu+DLh8Qz
7qEdrjw04TnTrHGGDwec6OvU9vJQdvNTUutVPhgSe1547+YhkxN1uw/c4cPc
uHpwniMPEQq0FU0f8aGp1kdt1I6HzPKCGh608yHQc+BE8C4eSiRmdV2a4oO5
gY5KpQUPUa2dx/UW+bA6c5Q5Q+YhTZNbViuqAiihY2tit8n/SfzrhXSLACa7
PlSmbuShpD9S3HROCOBJ/s++3fryfs2xtVVUAaScDl3S2MBDfjUR9sJYAWxe
O+2Zr8lDeb8777vMEECou0RSq8pDNNbytXv1Aui7vhxXxuei2AX8dZGqEKLJ
tDfbOVwU43KupGu9EDR7lQyejXJR0HzuyQE9IRwmElte93IRdUmwNnW7EIbp
+mrzL7jIUu9ueYaXECbSbIttGVwUqS58yWMIYZoW3dljxUVqeEpo0LIQXt1z
iarbwUX+LG2ji4oiYHRp6ReYctGRg09oqWtFYP7D84gwYy56qHiFnKQjgtiS
r9oEIhdN+HE3fzYTgQJKOWXL56DIYmX/9cdFsOHbTYWyHA7aaJSPbXooghmj
sPvpDA6qCPDimNSJoMHVzu9sGgd5X686ZlwvgsBMrMrpEgdlZ+/S/a5NBBX6
Rj4jVA4aHMg1vj4kgh321UXEPRzkl67x8Mq/IqCcf+UQ/5GNTJyuCJNdp2Cd
QtQdiZiNmE5arnbuUzCSseXbaT4bDYZX0MQHpoBalN10YpSNZvxrufZHpyCD
9fselzY26luyaimlTkGPphZF/W82eki3tcllTMEh5h8Hy53ZSMVVNrr//RSc
FBtS3zEmUEgNUW+HrxgK9h66GZI2gXbabi2dPCyG4YK0ts+0CXR+aImW5y+G
A14yQ8P4CcRS6Q+ZDxSD3ZPX76nBE+jrnQ8WyRFi0EyMcSTYTKDV8wEUK7oY
WBpv1llzx9FmgXXxWKsYttmee1ZgOY7oshT4ZjoN+rmmww3zY6gkm7ubyp6G
rvB/mfS/RtG3NR8jvtBnoNSHHMCkjKDaex8M0KZZIP1w2NRNeRiRPCpJ392b
hQjf3EeM6kGknJZAUCLPAXZnp9q2UwPI2TC7f0/FHCiFzhlGE/rRuraKf8I3
zQNHrcCHXN2HiIqK0q3Z89B+8WDt5bf/oPLgu6TQz/PgOlZKWlHvQSmN5T3p
gR9B5+BTb1JSF8q9fzawpfEjBLOWhMyGTmTTESBeY7QAROkvTYZKLBRi5FH9
JWEB1troOlontKJBq4aRgXcLsDoXdfRQfBNS+sXwBq4lgexi+6s5R+pR80jk
0yFHCfDa3lsWedWhqjlhFjtYAvsa76ahR7XowukL/QS6BLT9Kih4UikiLFw4
k/RQAj+FDdgfxjLQrFlTqcaQBPTmIqvbkmjw9Wrx069LEtjAdtPIWiyE85eG
x0oMpGBmFVQoiamBVxf9dHxBCi5Etcy4kcdQHDT4XHxSCsxMbffK8eewsju/
2eGKFEjaL42NvRpBpDz5jl4ihdVnc0dKH7UAscJARQVJIUrkQfKPbodOo2XV
GK4UslYER4IVO+FUeqey6bIUvANuu1xLfwP1rPhbvXoyuNGyocnr127wWWOu
fNROBunfj2SHv++FSvMc0XE/GSSTLZdu7u+DyMeSKLsYGWQvEuiKle9hD/tH
A40sGcS9OOdmMNMPx/B2PUaNDIoW33pe8xiE211ekqEOGRSSWxPzc4aA8njo
HcaVwey19usOA8MAJoQzhCUZXA56ICRbjMKn3cV/z2rhIDa3Cu+OGwP/wole
phkOj7fNHr+YMAZKcceqNpJx+NOkzHMrTe6xs39myv297npyCmMMvEkR6mHm
OJgvzy44lI/BE1KHaKMFDrHd5XH3+8bgxmB7GH0XDgpULVrGdgwa79bXBDrg
0BX8NtrWEoPV6X313XLn/ocWIrTB4PKlzBY7Rxx+9llw3euCwTZ312ZNJxwo
Nt0qS79hwB6+EtnpjANDKYVBTcUAi1gtM9uLw5EV+0u6DAys9yR75cu9aVES
wcrBgB/UI1V2wYE5G+hjXIRBAuXVVq7c/f0OmqN1GNRX6nrk/IpDQY+UkPoS
gxDpfOuy3Kc6q/FdSL7vS55V+D4cPr3UHcp6i4GJ0EfVlYJDU11vh3MfBhsq
w8KYcqf+9+rz2SEM5voPthq44eBd5ViVP44BxV9DJ13uH0tlt9w+YHB7U2nI
J7n/B/mvuX0=
          "]]}, 
        {GrayLevel[0], AbsoluteThickness[1.5], Opacity[1.], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVzns0VAkcB/Ax65HxaFPr5FEp1KidkmycUj962Mkjhh5sbcTRVhJqpI1l
d50KO6vCtplSSA+pODZ3HKXf7DZJc0eJMA937r1oox1rHDpFxdo/vuf7z/d8
z2dhXHJEApfD4QRP5//O633luyWcQWmn+9nqvb3gVeSevnkrgxJ7Yf+TOb1g
7vlWIQ9mMLPh+bLsfhZ0KoWd3xYGef/sjPWXs3D7kvmDHwMZPDJLk5x7hYXM
Q8KExxsZfP9aprXIYSHEL9+WF8BgUPs3pkkHWHC2Vsm2rmewrne/+L2IBYPO
Zm/RWgYrJmrdV/qx0FQdxlP7Mhiw/WaHYgkLe4I7du9dxeDq9kfxLlwWljt9
YX7dc/pvzD5famRg6s2OmjeCaX95aLSKZqAsX2si5jNoqHUcN5Uz0PuUvX5q
HoOF64xjvqcYqCtxDScdGeRKg4YfHGcg50DC+My5014Om1icyICb5WBwiR2D
CTda8hdHMJAgNBqrLRh0OlPfv20RA22/fkqr6KPxkkdCp+UFGlIFP7Us09Mo
2ZdWpcuhwa7V1KleTaNgF3t2JJmGSGtr+ZNWGtVWkVV6IQ1d+Y68IRmNi/FQ
14lPeug57XPZR0Kjz9U72TYpehj8KbVZ5U3jmMW9qfRUChqvbUj5YwWNPOGw
4pd4CiRPZztKl9Jomj3fmdhOwfJZRNJ3LjR6ZyRXhayhQFw2MYdrTWPsD1He
aaYUcDAn3qdPj33PS7P2XOqBuR9/41Sc0+O2iltliWodBB5rXJP+L4Xu0mGT
ijQt2HJSLhoHKHTKHKkNO6iF7jz3jwf6KMxKbMqwiNHC/tKzTbvVFO5wkA8U
C7WQp9jnv+EvCivXGShXZy2o7GYH2pynkFsdOjiu0EBETaLo6joKjSdE53qc
NRAz4Lz/uaQH3ZbcOh7BdgPf52i9dKUOJctzlr2o7QTHwqVd94c0GOU4eDeo
uwOeHvxQk1+gxpOGGcURH15AeZjg25rAbkyddC3gR7eBx6zIpV+bdaHC9+HK
wMpWSAovrJXcfIk7Hp+fCExTgvaiF48f34F5+BUx7/wTME0wOKdy27ExY4Em
/YwC9DxpmOBmG8Lbl6XeVX/Co+9F1VnKZ3h8SVGRp+lD2Kgp95i0UaHxnPzo
aHQDLHJd3dX8mQrtxJW7Rjc1ADdJ+fOZcRLN44M2j61oADlnVOfyisTPY1od
xs0aYD1/U8HGByReuBVTbVsng3lH1Gus60g8fIVz0r5UBh/vH3r98gaJx9xE
UQtyZdBjZlJcWkpiYX+4m8dRGYywhpbEYhLXm72JC4mVQXbbJ/7tXBIfXnE/
skoogxN9TSXvskj8+87hiBBvGUQLIgLlYhInKz3fRS+QQaS/ncwqkUTukPai
2EoGjRPZopYYEi+7TtzbM0aALqDv9O/bSRxICqrMpAno2nb1fW/w9H4qykxK
EiDttGL5ASQK+zedLqsnoHiAFIl9SEwJpe5iOQFir9hJPwGJemwZ6JAQ4NWc
u/PZXBLVSstFU3EEfKkRtjjMJNHNNk6+MIyAjGZJu8uMaV882dbjT0C91qHk
2rgSy07eDV3rSkDNkMZyZFiJiw0vCmJnEhAsK5sdOqjE+faju0gTAv4Da0OA
aQ==
          "]], LineBox[CompressedData["
1:eJwVjXk41Akcxi37lJDUUlI5V2seUWh1yXeoJUKI0JYocielDCVHuSu3CjF2
cm27FGpi6TshOWd+qJ1hhvnNECorZ7UdZu0f7/P+8Xmfz6t1MtTZV1pKSspp
Kf+3wdVs6gnHEiQ7XNSVE5hoyRM70/VK0GX8xQ7aHSZyddQ0/lik45orjc6S
KiZqOCUmZA/QceN5Um9FMxMJRff55Hw6asolMXzFTNRNS5pX86FjYLuti/si
E2u1Y2aIg3T0GV2o6JV7gp0+RRHlGnRsO2NQFKv1BKXfbXNiXr6LxsWLLG3u
ExQYrFdJ/ngLn+aXVDjta0Atv/5dhwdTsIgx13JPownXT56paI6Ng/iozzFl
fs9Qdch6VfqnQjg55rBot6EVt2z3Kpw+VwnO7ICaCrUXaKkgl3aB+xDQOMZ7
7nMHVqcpHyjjP4ZIdWnZ7pFupCjXa2raN0JN+X4bhbUESh5NupY8YMFhkYyj
5EEvnh2zobiFtYDKPw6/OaT0Y/riqKu3TBuEJdmXL/N5hQ7Hb1smJLfDBCYa
8b25yPeM9wnPbge3V07iL4Fc9PcKTjxV1A5Ux8BjWuFcjD9F7bSoa4fUiKC+
qEQuMgMmnBaF7QCGda/873NR8+JO74gdHTDLz9LZ/YGLMzd5MQFjHeCQE1Yo
lcHDHJZqk/3+LmA16lfqcweQVe+3Ld6hC/I3pY/oiwZwsuYx47F7F+joduSY
vBvAfaUuqRohXZAjULzvIRnA2ZQMt5ncpb3Rz6+l9QbR6bDsbM54F0zZL28Q
RA2i4tjHzYLUbthoEb/K8yc+7hZa5SvldkNM+Nm9l4z5eJqXu/KX4m4o+ypl
wtjLx6ZOk/k/a7th7G+zZcoufAyuDn0WI1jiqTXnouP42EUb/1XHsAcaYynR
2cN8TJbnZgT29kCS0TnxZoYA23Yez4sU9ECpZ1HBiocC/P70SEHyeA/Qgqv5
UijAWNb7srJvPTAhtrhhyBcg7YJsk5jChuBISXOW8hD6CXe9ORrPBn8F/72T
aUN4T4E1FXCDDc5HVs0cKhhC8S6redptNphT36YRvw+hZ46zJK+KDQkRXs76
nUN4xCZIpX+QDRez3AePyQ2jVW2hxUETDtzbwtscnTmM10ht66PmHCCoHfqq
jGFsXllpF2DDga+MKF2ybhjN/R+5JZ3gwHVS++NX3jCabmKHtKRx4Iegu2vv
6Agx3NblfF8eB+BTr32nqRBrIgZpohIOJFJS5HfYCtGwb+yqhMmBDPvZp91h
QtRNktzZM8oB2hWNSNNWIZ6sSyi2fc+BRYpubMaAEOki+VKPzxy4Va+Uaf5e
iIrqCrw9sgR0y39b/XIliak01REPdQIEH/RJuhmJlHS+r0iHgIlo6s3XB0hs
Ly2a8KcQcKDO9kuQK4nL+n+cithOgCpLqcExlMR4A6N/c20JyBlbGNcsJ7Eq
PLxaxpGAmgtZ6/oekTj4F9M3zJUAr5p50y+tJJrYmvfZeRGgi3X1b0dJ9MqM
S27wJYCW/qa4b4HE67xWc70gAqYNy7ZELBfh6OmD92UuLvmnQ96GGIhQqeqm
d9glAoKxPm6NpQjNFnrXCWMJ2FlLddZyF6G/mQrbLpGAvK3PLs+FijD3qvu1
hrSlv0PvZBVTRdjcWbBbL5OAzsjnpHW5CKdWC6dz8wjYUBlQodchQjUP7XKZ
QgI2MvqlteZEaEX3PR5WQsBzavRWXWMxfteW1+LGIOCldYMa1VuM/wHG+8Dz

          "]]}}, {}},
      AspectRatio->1,
      Axes->{True, True},
      AxesLabel->{
        FormBox[
         StyleBox[
         "b", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> False],
          TraditionalForm], 
        FormBox[
         StyleBox[
          SuperscriptBox["y", "*"], {FontSize -> 11, FontFamily -> "Times"}, 
          StripOnInput -> False], TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Epilog->{
        InsetBox[
         BoxData[
          FormBox[
           StyleBox[
           "\"(a)\"", {FontFamily -> "Times", FontSize -> 12}, StripOnInput -> 
            False], TraditionalForm]], 
         Scaled[{0.05, 1.1}]], 
        InsetBox[
         BoxData[
          FormBox[
           StyleBox[
           "\"-\[Sigma]\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\n \
StyleBox[\\\"*\\\",\\nFontSlant->\\\"Plain\\\"]]\\)\"", {
            FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
           TraditionalForm]], {-0.12491518109200068`, 0}, {0., -1.5}], 
        InsetBox[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(sustain\\)]\\)(\[Sigma]\\!\\(\
\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\
\\\"]\\)) \"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> 
            False], TraditionalForm]], {-0.5098153605517513, 0}, {-0.55, 
         1.5}], 
        InsetBox[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\))\"", {
            FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
           TraditionalForm]], {0.2599849983677498, 0}, {-0.2, 1.5}], {
         Arrowheads[
          NCache[{{Small, 0}, {Small, 
             Rational[1, 2]}, {Small, 1}}, {{Small, 0}, {Small, 0.5}, {
            Small, 1}}]], 
         ArrowBox[{{0.2599849983677498, 0.4}, {0.2599849983677498, 1}}], 
         ArrowBox[{{-0.5098153605517513, -0.5}, {-0.5098153605517513, \
-1.1}}]}, {
         Arrowheads[{{Small, 1}}], 
         ArrowBox[{{-0.5098153605517513, -1.2447005383792515`}, \
{-0.45981536055175126`, -1.227701852119218}, {-0.4098153605517513, \
-1.20998993164416}, {-0.35981536055175123`, -1.1914802075547748`}, \
{-0.30981536055175124`, -1.1720703755088817`}, {-0.25981536055175125`, \
-1.1516347548441792`}, {-0.2098153605517512, -1.1300161166470681`}, \
{-0.15981536055175122`, -1.1070134416054385`}, {-0.10981536055175123`, \
-1.082362822739943}, {-0.05981536055175124, -1.0557061538497432`}, \
{-0.009815360551751251, -1.026536462337054}, {
          0.04018463944824879, -0.9940943006446117}, {
          0.09018463944824884, -0.9571480076189863}, {
          0.14018463944824877`, -0.9134437325564974}, {
          0.19018463944824882`, -0.8578899499361917}}], 
         ArrowBox[{{0.2599849983677498, 1.2447005383792515`}, {
          0.2099849983677498, 1.2277018521192178`}, {0.1599849983677498, 
          1.2099899316441596`}, {0.10998499836774978`, 1.1914802075547744`}, {
          0.05998499836774979, 1.1720703755088815`}, {0.009984998367749798, 
          1.151634754844179}, {-0.04001500163225025, 
          1.1300161166470677`}, {-0.09001500163225024, 
          1.1070134416054382`}, {-0.14001500163225022`, 
          1.0823628227399429`}, {-0.1900150016322502, 
          1.0557061538497432`}, {-0.2400150016322502, 
          1.0265364623370539`}, {-0.29001500163225025`, 
          0.9940943006446116}, {-0.3400150016322503, 
          0.957148007618986}, {-0.3900150016322502, 
          0.913443732556497}, {-0.44001500163225027`, 0.8578899499361913}}]}},
      
      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->154.7716535433071,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None},
      PlotRange->{{-0.59, 0.42}, {-1.180645638417877, 1.2050670483312498`}},
      PlotRangeClipping->False,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{{{-0.5098153605517513, 
          FormBox[
           StyleBox[
           "\"\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
            False], TraditionalForm], 0.05}, {0.2599849983677498, 
          FormBox[
           StyleBox[
           "\"\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
            False], TraditionalForm], 0.05}, {-0.12491518109200068`, 
          FormBox["\"\"", TraditionalForm], 0.05}}, None}], 
     TemplateBox[{GraphicsBox[{
         GraphicsComplexBox[CompressedData["
1:eJx1mXk4lN//uIk2tFgqIUVZQqS0kQ4iIgolKVkqSspSSiIqlVDZdwpZklYt
VDpKSZJmzPPMjHmeMVPZskRIaf3O7/o55/NH1/uf+sO5jNezzH3uc6t5Bzjt
GScmJtYm+uf//X8ladpWH58O+PK04dyMQgZUOcv3sTnTDo9Z8Z17bjHgoYUf
vxgntsG8fcajkdUM+KVmZ+22Gx9hWGyL5p4GBmxe1tE78PYDLE9u3Q44DHjR
rSgxg3oPX7fm+ga0M2DQIV64/6gQOv31+No9yICLV1t/3CQphCl1n5ybxJmw
4EXk2u1arXDkQkTiw+lMaDi6w/6ADw2fuFVpdaoy4dEL1+yvRPLgsxTz8ix9
JpSW+sDTreLC35odo8mmTLjbfIli6U82jA5fPiFpAxMe5n6xs1IkIa81LHCZ
OxM2b82VMdnCgleH0vKUDjBh5/LKWkd/0e+597q89gQTns4nt9xVfAdLc5fY
JSYwIatIbk1w5hsofySrPTefCRP36csfbnoFY8I+X8+/x4SffquN07J8Ae/P
yc3uqmPCW47DfOWDNTB2kvhtF4oJxy3vXdrmXAXXfy77OmOACal9lwWDG+7C
ilXy5nMkm6HaqnkNUu5FcG73BtlCpWbIPX36CyMuHmZMv8+OWtwMFaNPWRxa
EwcGibsKjHXN0FZDS0fzSxE4fzF1sopnM0xcqnXx68S74NWg9hZhaDMs2BKx
iLhZBarMpsvrpjZDh3XGE75n1ICnuy9EFd1thotlWyli9gsw0bNFvP9dM7yq
UvgioOMVUIz5u1J6sBme2JqQvC34DeDcOFyVrsCCjSoO47x7m8DlHauvXF/F
gi6JMy0UtjFBOTEISnxYcFRXaSRPmQX058Qd+5jGgu0+NysmSZKA26k/9Jtk
wegql7bZjWyw2GDwW8oCAro7du42juOCaIb3iYnPCRh5flL/qkAeuFx0jFHS
RcCd8SM7OV/b4Yf8jpLH1xiwdKdizjbjZvD65xIbKoIFA9a3EaxpBEjwYR4s
uMeCRgnjNsh2kWDBQf+qulEWDBx/eUHZdQ6gjYbO+m0n4MG+bwsfRbSAfJ5g
bUGv6POmSVCq+h3wuP74XaXFDPj36Kz+B6+Z4GpeULZMMAveM47cU5XKAsHr
juR4FrFg/HHuX5kjJBiI2Jhp1MmCYYIwyQ8mHGAjK4ivMCWgz+UA6zDJFvDh
27i6ws8E1HFdb/n5PAHmGlz7Xv+CBemrehkz3Njg8DK/w1Onitbr1loGK3PB
wKys9lMnCXjEJErmx0gL8H9gdqWwm4DTHSdnWth2wOAJh9/PLWLAMsn0jD2J
TFBq8Ga3vb/o+lc0Lip3ZYEZvgM60nksuDKotkXKlAQuDzXWBreyYGTj3uHf
Ehzwp8JX7s5iAnqH6rrwXnEBZPblFvUTsJGRJvN+AwEyosPr0p6wYEzWrGB5
NTaIe8Z9Vi5BwP2Kd4wufuSAbS4XbH75EzBYYbWy26MW4DKtN62gh4Ahg/EK
dYc4AM6V1CLtCOhXV7FSybwF1GYdKi3oE33eGnKzizMXdOcXduhkEzDM+8Xv
zKU8kO0Vu7PoEwG5QTKhm107YLRaaNf2qwwo9salb3UIEzTX91kc3ceCpQFD
iRrGLPBLM/FNUBYLTu2trDs/jwT5/bdY+jwWHFfr0SvdxQYTDlydfF6HgNPs
13tsLeCCiT5rz1oNEFD1QnWgmz4BPMftWpxayYI7Z0zxSJJkgw6J97bX/7Dg
56mlejmvOOBu4k/lrl0EHBDLUpfKaQHLzp1zURc9H9+7TssQWzngXMsPiRxL
AnbdlTVrUG8BJl/Gz5svur9tRo0bdq/gAs3YuvVHLojWO6iPt53BAwo/qL0L
RPevLe6tg04HFyQ1pmUtEF3vLrVHq6P+ckDvzoTHr48QcFirVb6M2wKeFn6Q
nC+6nr0tWwz9PFpAudI8D3XR9RNat+6wCeCCU1lJZXeuE/BXiM/IJ0ceuDRX
/aSm6PqtHnfR192jA+pMFf4eFX0/6958kK7tywTGrdzIqXtZkPF2guUHHRbQ
vf1s3bUM0fN6banpejkS3JK7MVeBy4Jr12zvkuOxgb5hyrsYLdH12r7SyzuL
C55ClqsRScB1PQz1WXMJ8INO+pP5gAVfN58jHUdIcDWz7tSyXyxoEFuoXVjF
AVJS5OoMDwKu2h05iVrPAeE5es6q5gTUuP3KZv9CLtDTGHjkcE70PuTeX3nu
Cwf4+eTpvA4ioFpti+tGLy5wmrb42PcCAhZWMTa5W3HBQ4lUe5kUAuY1fvA0
j+CCl8sIzWf3Re9vg4PgvXcHtCOkp7wWzVtzucNf1ZMJ6r1f3XLzZcG28Om5
ZvNZwKSwe3JdOgsunhT0XVuaBKERhmGTOKKf/3T1mclig0M50Z5TNAm4hj1t
V1MSF8zefu3wjgYCumXxjofMIsDZ6xm1ufdZ8IThywTDfhLIvK4x//1DdD2t
84uL73LAqhnG9hHuBOSpRZxtteCA5uZvV30AAesOvKw7qM4Fn72ubtwZTcAG
t4oHsd0cUPa7qnBHAAGfR3HYTm5cYHWyrvJ7HgEtjzY1ea7hgnd9GnJ3EwgI
YoWtlke4INbyqyD6NgH/Cjw9RvK5oGFrzOcI0fMRNZ7m2e3lAotdl8OWlBDw
z9T2D6bRXOByJHz+2ccERLy2PKVlv3eTECBe++Uz766xFQLE663T5nseXisE
iNefTji/FjcVAsTrTT8YN1OWCwHi9fPNX0rDDYQA8TrCcvqHp9pCgHhNe75Z
Yq8mBIjXuhHiKdzZQoB4XZ/2sb5GTggQr+uOXZ7QKSUEiNeli996+EkIAeJ1
vbRtBfubACBeB18bv35ppwAgXpemfFJy4AgA4rU58UCm6KUAIF5f7bY/yKkQ
AMTrVXIdrIYCAUC8fjElacqrSwKAeJ3u93FOVIQAIF4/j4ycLLdPABCvJbLI
WqfNAoB4nelwINTOTAAQrxflLS19uVAAEK/vHX3zoVNeABCv3SreXs343QoQ
r2tHu29taGsFiNdnUrfujnnTChCvk60Di01vtQLE64vzh1bWJrYCxGsr7ZKH
xw63AsRrI7GTUe5OrQDxOoQnLcY0aAWI1zd0LWdXS7UCxOsrFReOPePzAeK1
6v6v4MwNPkC8PnzFsc7vIB8gXqtsu/iMNZcPEK/rH84x8TpFA8TrGx8mfKrZ
TgPE62VDjTEu9kKAeH063j7oQh0fIF4/UbtlW3eJDxCvtZUUxAps+QDxOtD5
wpI/XTRAvL5+40pI3VbR543xuqvcVFfoIASI16WfpqruaOYDxGueudScSZf5
APF6h5ThPCN3PkC8ljyar3d/Ah8gXvslRAy92EIDxOtF2zg1lyP5APGa6zTT
ym25aP0Yr3cEdrDan9MA8VrIBLNfbqMB4nWf2QT/qxuFAPH6quv9zcpcPkC8
XqGWcNG9mA8Qr0cYbkdG9vAB4rUDoVjyUJ4PEK8vPEhSrt1MA8TrexKSQ8xz
fIB4/ayu5NtjMz5AvB4yHAr059AA8XokNEW9zpUGiNcX9oYnJX+nAeL1+T4Z
2ToXGiBee3fQzabXaIB4fUdzxK3WjQaI17uXRu+dIPp+QbwOg0lHvvD4APF6
k1d/38g1PkC8vp7BaF/lxweI1+uU6VuC2XyAeG2lbrp0vmg+xOveM3POs+L4
APHaJ/rywWorPkC8zhqJzo0S0gDxepb4qPc60XyI1y9vnrnf+JcGiNey6WGZ
VqL5MK//VAUMPhCtH+P1yotXN1mK5kO8fvT4k6ql6HlAvPZcOPA77y0NEK8v
tuXesxLdb8TrKwc83daJnk/E64a+vqkPM2iAeF29d+dKC9H7gXgta8pwXyG6
fojXcmUlq9xoPkC8VuM+DYbXRc/rGK9zQ1iZm/35APFadWvvJ4EKHyBeX6wv
9zQKoAHitdP1vkdNF/gA8br0c9XypTZ8gHhtceJ6OKONBojXjB5nH1sJPkC8
nrcr4c/satH7MMbrD2ofLl5upgHi9Y/QTWaB+TRAvE6N7tm/4zYNEK/POZUn
lVwUvb9jvBZ3M2ZvFM2LeB2tUTV5quj7B/Fatj31VkE5HyBeE1IbgecB0c/H
eN3S89N1uyofIF4vXcSxlAmjAeJ1Hd35teEiHyBem0F4dP960fUc47X8oXX+
PR00QLwOux+jMG48HyBe79Sk90nV0ADxuiC2boYMSQPE64kTH4kFFtEA8Toi
y63kQQUNEK+fr41r+ZhMA8TrU4u/N3SLnkfEaymN92uW59IA8XpEVjLtQwyN
eae+7Nrx5Bl87KesorKh4P187KfVyinj6or52E9HhsR12BQf+2m6sA28mdSK
/VT7rXyuhX4r9tNN9+J2mTq3Yj/V5u3Nkz7Uiv1UsESaMSe5FfspKFxjnn67
FfupbvJ+vYSGVuynawJvzrJtb8V+yps/O3L671bsp+sbVAz3yAuwn8bnxD2/
qiPAfmr2WnvTaSDAfmrzutvHcYsA++mXv+LfRvcJsJ8ukUk1LwgXYD8te68u
Y54gwH5ac+RG2uQCAfbTcT1x0uMqBNhP53nOvjnwQoD9NPoR8xggBdhPjbf9
fXiiQ4D99MojpwUrRwTYT1cpxGwrHifEfppVU/yoWEoInVtMe4VGNCiSj1g6
IiuEga8lhnzmijjcZHe/crYQ7v7LXXBCTAi0awd1DdSE8JPGo/Mq74Wg2Ngx
RkJbCJNydh0qI94DcTcrExsDIVSYmz5TpvIDmLa9/9eXZUJo9OKp19e0j+CB
abjqztVCGFp107Appg1wU8XIFWuFMPWR9uMwv3bwxX+tycn1QrT/A2P7P1ip
ETu6j8eBvOnF+kd5NOyVkbs7MpkNbwcusH9ryYfzM6z1apYTsFuvq+tRLB/u
eKWzt86zGabtA6b+z/kwS1PlfGBXO7jStD35+wYh/DBreXfDei7c4+moqnuT
htpa6nvenWLD5e0vnmbq8+GGSpUnp0T70rKMpg2XjvNh+rTdj8SoZjharbD7
0z0+zAhULwi51g7kxvP4pnZCeHFp66TJ+znwr/VsZcEPGt4eFP87J5GEd7a8
ZPS58mEuPSNwv1YH0G7Z5HXHQQhHpsd7Hz/JhR4S3TKmcTRcZ1T21ASyYevw
kOtJdT70tJko2SYgYNbtr0T+IT68VxH1cY4iC/qojZ/Wd4MP01KL9L+fbwfu
LbENHrZCWKhndLKqgAMf1i6UyuqhYdPf866xb0nIPdBrPWsjH+aIZ/7qm9gB
7h0YWE7aC+FbVWGQkhwXHjjX05NZR8NjxjEJrks5cLj+5Nvnk/gw72HSx651
HSBkuo78hY1CGDXlYZ5zLhdm0+smnt9HQ9L4YE8Qnw2HKV6llgof+iX8KlH4
RcAFhd/7kwL4sHb8tNDy5SzIu/1LxqOMD2dqdx5eFdYOrA4FJQ2I7q/+Qo/q
xKcc+CR9ZbfDRxq6T3A4U9NDwhMbqkrEbflQOYVnYfC9HXhGbx32Ef29rsrS
NwcXcWFzxzctzcc0lFxR0bh4Iwfmn5IN/SbOh6q2xEKdFR1APnvt+rmiv9df
wUuzcA8XTtM8H9+SR0ML9fvLLEY4cPWfGfOGGTScq+GYW+LSAYqzZsMfovUq
axjiF3rZMEF2jUO7Ih8GGH0b1ZMiIbvPWe3MAT5s0Hd5PmTFgkvm1X5OLuVD
ly8TFd2C20H2wafdlaJ5DpUcpiIaOTB4/9SNI600vDr5djb1g4QxU48G77fm
Qzf3n+0bB9qBn2fJKwPRPLmZ8xpbTbjQfkB1/sd7NFx/v75bxZ0DG8Snngv5
Q8Od8l8bbQ06QLXSlG1douflTtIRy0uHuLDm2k/JplQaxlxpcNaX5MKU2yc8
29+I1n8OMqt36ACku6C3VjSPyaX8KN9LXMiXyEz8G0FDrTS7SQ+3cuHwHVX5
98U0FG5f/OPszg5gFECdNxS9XzVA/ILSMBuajHTuXDOLD4PPDquvkiWhQ7BY
Rrg/HzrUHvNNt2fBbfV6zjdK+HBkS8Y+v4PtoFHph3yuaP40n8juQywOPByg
8/YxTUMb6fea+8ax4fNwJe856/jwx7O4FZ697UDcMERfQTR/jasuRVhwoQxh
6ph+h4b+h1mjcrs5MNGJ+lr+i4Z/jp5R3a7bAeT4c1sbRfMTjiedz4RxYcS5
St/nCTQs8yC9F0hzYVbmsmfWr0XrncYlcW07wJu1w1Glovl3OpRfck8T/Vz3
KMs3hIa2W1xm3djJhTrVbnHfC2gYVVNjl+7WAaJ892nMFM1fMXp12tICLhxn
8kCJ2ExDRUZaUFAMFyrc0NiscIaGZt8ulx7x7gAXJwT2bhCtR7zTceaYkqJ9
HuLdsQ/ky69cFva7S/69DwpyWdjvXFJOXEray8J+d78k+1iuCQv73YLH/iqa
M1nY736xhrfofmnGfrfg5ixld2Yz9rsDW0I+2d5pxn43pd08lJncjP1O7avC
Be6xZux3UxWb81U9mrHfBe/2NXa1bsZ+J/F0V4yEYTP2u5qe4ZHa2c3Y72Tg
1n3tks3Y7yRhqtOsfib2u+0xJ54f5DGx3ymF9xyte8XEfldQ7H5D6x4T+128
LEvdo4CJ/c42d/iGj8gzEO/0tH2lQyOZ2O/q394ECwOY2O/kDE6Kd7szsd+V
v12UutiBif2O8gicoAKY2O8UJy61VDZgAsQ7Ca+zTuHzmADxzrGny+HbdCZA
vPstnu0lNY4JEO/E5FtLvYYZAPHOjvhqwW1nAMQ7/eZ8GM1lAMQ7oUxMePkb
BkC8y9kROW20mgEQ7/xujlr43GEAxLsX/79PAMS74KO82C/7RB4xxrucWTv8
s/+yAOKd9/YMxo0qFkC8e6BqHv7rJAsg3k3pqU86WsYAiHedWgbZpmkEQLyb
Wfj4R9MMAiDeFfTf8W+pZwHEO+eG/VsiL7EA4t3CE42/e28wAOKdvZlv3vn1
BEC8y17yuCushwUQ736RrSPjSxgA8a4vOq1ct4oAiHcHk+M9O9UIgHh3lxPb
VsdgAcS7Dp/jZcfTWADxLon0W3DtFgMg3qW+cLnV5EoAxLvDSilBjl9ZAPGu
vfyy3dNSBkC8E4ilvm2KIADinSv801NkQgDEu12+eskORQyAeHfn+qq7Ah4B
EO9cy4vEzLUJgHin3X7uNUmwAOJdMOd0+eQsFkC8e56fm3LuNgMg3iUMWL+b
7UUAxLsmk1eyvj9YAPEuLpLJyLrGAIh3YfkxiRYij0e8uz4+wDzIggCId5pO
o5o6xQyAeGfq/U3vUhEBEO+mx/plHj5EAMQ7cWd7k0NXGQDx7skRi/2ndQmA
eHckSy/jI5sFEO+U9lY3ENksgHg367pE24hoHsQ7nkqwX/AeAiDevTg22fr3
LxZAvAt9ZagzWfT8Id79TfdKO3OJAIh3p84GLxmyIgDiXbOTz8QM0TyId/Gt
0feybhIA8a6SI77tdKho/RjvChqfCYSieRDvAqI7tfbVEQDxzpXtVXwulwCI
d+3XXheNF61HvJNNynDTWUQAxLs/M6LUejksgHg3BJ19HuewAOLdPaf4RH3R
+4p4x1V06S33JQDiXay0z1a7PyyAeGermbbDTDQ/4p3ZPYu9zCQCIN49XlZU
+9iaAIh32k1mv5tE8yPevROrdyyuIADi3d3Ptt/nHRetH+PdA7GMh7NEzyvi
3d0dkzvE3hEA8U79jYZ+YD4BEO/sq24cXC2aH/HO1r4hL6WfAIh3Kym3PZsh
ARDvDI5fETaJvo8Q7xqVvFKORlPY715aK98dnkNhv5OtnhHypJmH/S5oQQiQ
iOdhvzNyWBhnZs/DfrfyfFLyk5k87HdZuXUTnra2YL9LI4zp0vIW7HeTE43S
tENbsN91G28V9Fu1YL9L+fustH9WC/a7GcFWfbc6uNjvxDOCa6SruNjvViwK
YvjGc7HfuefPtaW3c7Hf7Z/eH7hKn4v9Lui5Vc68Xxzsd8997+T9fs3BfrfK
s7lZOouD/e62typzk+g+I97xSlTrfhpwsN8xo0P9+kfZ2O+K0420xz9mY7+r
Gf6oHhbGxn7nFSe3f54OG/td/oefo+/ekNjvwllv22zmktjvroz1R8ST5p2+
SnNeUdifwnmGb75voLA/Oeq2D74c4eEeKZ5mUjRlMxv3SF58aWzAHxL3SPGS
rU17LpD/9EjEm9AGKUXNbxT2K6kIqe+OvhT2q8G+RqpzMoX7pIVx5t0CXzbu
ky42g6xBBTbuk3HZcqFtN8l/+iTi0frTTlpDBRTulXovWEQWYONe6V3s7rq6
g8S9suh9QnfsLvKfXol4VeEIngwo/8/P1LSTmGEhFPazlB/1tk3yFO6XKd45
PguC2Lhf9g6s7ro1l4375RJDvZrGahL3y5qxfol4JnnivWD2PQr3zOaHCfaD
69m4Z+5KrZBNHiRxz2Q6jtccPEb+0zMR77okmSEtNIX7ZtRInkdrHvmffXNo
t1aihA2J+2bOWN9EPBQE2SUnrfmf/23bO24mHU5h/6t5VzOvRZHCvfPwJfUk
IoSNeyfXyd3iywI27p0nJIB+1wsS985JY70T8dI/z8J1SzWF+2cnx1xv4kY2
7p9lK+KTL30ncf9cuemFyrfT5D/9E/F0/IHgDas/UbiHKspJZ0wuIf+zhz6s
T79T4kL+00MRbyNcNyn7TKT/s4+2zfhkbBRA/tNHEZ+NxL/yLzGp/+yl1n5p
WReWk7iXJoz1UsRvJzplUUEUhX21e9Lul7uVKdxLXX2/lmiHsnEvbdhfOzVO
i4176a4tlcbe9STupXX+erlZ0iT2WQvpPjHN5xTup0GlbbrxjmzcT7+bq0ic
/knifvrnlyASxpDYb1udtz4Z6adwT211aQkWu07inprEKJ1n7U5iv3WUOFfd
NZ3GffXG02u/yw+T2Hd3TIvdNpND4d5qYrt4+1NAYt+NXmuqU7SQxv11ozj/
feZGEvuvt9kEn84/FO6xw0Lrwgl6JPbfpTfndMeeorD/prxXNixXoXCPrWqf
Xul4jI17bMbUVevZ2mzcYx+O/5Kl1EDiHrtg/k+jipkk9uNs486TOS8o3Gcz
Ni12fevExn3Wtd173o9fJO6zXYaGVTPjSOzLwlSD1SeGKNxrTfvbq4fLSdxr
cxTvnj7kSWJfXmKaKzSYSeN+O7R9ftGWoyT257xHy971t1C45540qu8eXUti
f3a8bewWuoTGffePRJXYYmcS+/Stw8XnpCVo3HtN47SLThiS2Kdfhn6aEeRM
4/6r0Ve1bfrX//VflcDLl2xMSOzbU99wBzar07gHy60rHhivSWLfjjowV+ML
JLFvnzPbM/GwJhv7tskbP8vyIDb2bWqXdNieSjb2bUXjrfra39jYtxX+9mmU
L+Jg377bXXW3bA8H+/aDCis+TOdg3177zW6+WSMH+7a3/UJe6B8O9u3KmKfT
j+lxsW+vmGnSWOnOxb5tNzBldIeI02j/MWP7tE9ilVzs2/0dngHxXVzs2++P
JtoYzGzBvk29NJ5jY9OCfTt23jul/WEt2LfltW927Chrwb6do+HdNUvYgn07
WOg15K/Aw759XGLSxmO2POzbxQN2ibvO87BvxyfnpH1+zcO+3fPrgIONEoV9
+3pRNMwIpbBvM+7dJeZq/K+nlo/1VLT/CFs4+7JdBIl9lnHD4XPANxL77M8d
2XUF9mzcV+0GLRW2D/BwXw3+ydEftaJwX7V7r90z7iH1T19F+w+iOiTfwp7E
vmshfeTZTD6Jfdctq4IfZczGvVXKoXNCHc3DvXUEXGwPMaBwb33We8A8OpX6
p7ei/YfEeP2kkHwS99d5L8rb3kpSuL92v1f30ttJ4f5aUtzfxBdS//RXtP/I
XG7++6g2iX1Z1/NzZ18TiX258sLDg1mL2bjHVmq0OVmyeLjHeqavZVYuoHCP
Vdq6eTT7LIV7bPxYj0X7Dxupyy0OCSTus2GM/v1HfvBwn/002FhCOlK4zx5f
fjz5SAP1T59F+4/dp2+tveRL4l7bmPh+W2wR9Z+9dtv8bdp7flG4194e67Vo
/3Fg5jJN9ngS+/jQ3BOF8a9I7OPxlTDjki4b91vud3etlCYe7reHl80/enQu
hfttU7R5XFQkhfut5Vi/RfsP4SdTL/lzJO65e26vueD1lYd7bsGmYY0WOwr3
XIWVT3KCaqh/ei7af1grTz2gt53EfdfoSIiaRy71n303FXZNfNZH/dN30f7j
ncHivHGi+/xfvXdvcPoJI5L6p/ei/YfiuTiKG0z+Z/8dr9qtSk35X/99MtZ/
0f7jx/WeuLpaEp8feEeqDEssZOP+OzwvTtaskYf77ymV6jK+CoX776cl9Scm
hFO4/55V3qzStJLG5wtSEcmVFqdI3IMpQfYFepCHe/DmdbsftNtQuAc7xF1Z
de0xhc8bDhot/B20mcR9+KBhybq9mRTuw48ecjLUOil83vAzevRn5FIS9+LL
r9mPH7+j8PnDQOiIh9MBEvdj2TWbdpZJ0vj8od5y7aVaJRL35N9nCzlNwxQ+
j+i2DnM+aUXivuxasnKmtyKNzyNm87zf8Z+R+Dyisnh3zBMtNu7LyQUB4rPe
8HBfvnfMOjBJmcJ9OfXUJVWHMAr3Ze09Z6LvL6LxecUd+8wVjZEk7s33Vmzy
yv7Cw715uGBO5kFrCvfm3S4bxZyqKHx+4T+4KaJ7E4n787TMrJ+H0incn28H
NC37+pHC5xdKdh+5K/VJ3KO36bkryL+l8HnGzbe23aF+JO7Tb5wrmw6K0fg8
4yfHymNAlsS92iH6VeXKLxQ+38iV5xm6m5O4X0/7vVWhW47G5xvnpqUXfhsg
cM/Wyq7zcN34v569WPH9wnmTaXz+saa6pF5encR929iCV++tSoP/A3konkA=

          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             EdgeForm[], 
             Directive[
              RGBColor[
               NCache[
                Rational[1, 3], 0.3333333333333333], 
               NCache[
                Rational[1, 3], 0.3333333333333333], 1], 
              Opacity[0.1]], 
             GraphicsGroupBox[{
               
               PolygonBox[{{1, 106, 91, 71, 57, 47, 41, 2, 3, 4, 5, 6, 7, 8, 
                9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
                 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 107, 92, 72, 58, 
                48, 42, 36, 108, 93, 73, 59, 49, 43, 112, 97, 77, 63, 53, 37, 
                109, 94, 74, 60, 50, 44, 113, 98, 78, 64, 54, 38, 110, 95, 75,
                 61, 51, 115, 100, 81, 67, 45, 114, 99, 79, 65, 117, 102, 86, 
                55, 116, 101, 83, 119, 104, 69, 118, 103, 122, 89, 120, 105, 
                123, 39, 111, 96, 121, 244, 219, 234, 162, 246, 228, 243, 212,
                 245, 226, 241, 192, 227, 242, 206, 224, 239, 178, 209, 225, 
                240, 188, 202, 222, 237, 168, 190, 204, 223, 238, 174, 184, 
                198, 218, 233, 161, 177, 187, 201, 221, 236, 167, 173, 183, 
                197, 217, 232, 160, 176, 186, 200, 220, 235, 166, 172, 182, 
                196, 216, 231, 159, 165, 171, 181, 195, 215, 230, 158, 157, 
                156, 155, 154, 153, 152, 151, 150, 149, 148, 147, 146, 145, 
                144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 
                132, 131, 130, 129, 128, 127, 126, 125, 164, 170, 180, 194, 
                214, 229, 
                124}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {
             EdgeForm[], 
             Directive[
              RGBColor[1, 
               NCache[
                Rational[1, 3], 0.3333333333333333], 
               NCache[
                Rational[1, 3], 0.3333333333333333]], 
              Opacity[0.1]], 
             GraphicsGroupBox[{
               PolygonBox[CompressedData["
1:eJwlz1VTFgAQBdAPsFuxxcDCALuwsFtRFDsxMMHu7kBFxVZUxO7Gwu5AxWf/
hh1nxoczd2fuzuxseEJyXFJwIBAI4gvjDc0ZS38mUI9R9KUD4xhAdYbTi3Y0
YTT96EhlhtCd1jQkghH0pj1N+eruQNmZFtSnBlUYSg/a0Ig6fLM/SHahJZHU
pCrfdfGyK62IohbV+KH7yS9+84e/gf/PBxFMCHnISz7yU4CCFKIwRShKMYpT
gpKUIpTSlKEs5ShPBSpSicF0I5oG1CacYfSkLY2py0j6EEMzxhBLJxKIYyJh
bOEzj/jIFbJ5z3Eucpc37OMo58jiJans5jCnucEzNrOJjWxgPetYyxpWs4qV
rGA5y1jKEhaziIUsYD7zmMscZjOLmSSTxAymM42pTGE7aRziFNd5ymS2sYuD
nOQaT0hkL0c4yy1esJWdHOAEV3nMJDK4wB1es4d0znCT56Rwmfu84xjnuc0r
dvCQD1ziHm/ZTy4PyCGTT/wDGIZkbg==
                
                "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             
             LineBox[{1, 106, 91, 71, 57, 47, 41, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
              11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
              27, 28, 29, 30, 31, 32, 33, 34, 35, 107, 92, 72, 58, 48, 42, 36,
               108, 93, 73, 59, 49, 43, 112, 97, 77, 63, 53, 37, 109, 94, 74, 
              60, 50, 44, 113, 98, 78, 64, 54, 38, 110, 95, 75, 61, 51, 115, 
              100, 81, 67, 45, 114, 99, 79, 65, 117, 102, 86, 55, 116, 101, 
              83, 119, 104, 69, 118, 103, 122, 89, 120, 105, 123, 39, 111, 96,
               121}]}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1], 
              Thickness[Large]], 
             
             LineBox[{124, 229, 214, 194, 180, 170, 164, 125, 126, 127, 128, 
              129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141,
               142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 
              154, 155, 156, 157, 158, 230, 215, 195, 181, 171, 165, 159, 231,
               216, 196, 182, 172, 166, 235, 220, 200, 186, 176, 160, 232, 
              217, 197, 183, 173, 167, 236, 221, 201, 187, 177, 161, 233, 218,
               198, 184, 174, 238, 223, 204, 190, 168, 237, 222, 202, 188, 
              240, 225, 209, 178, 239, 224, 206, 242, 227, 192, 241, 226, 245,
               212, 243, 228, 246, 162, 234, 219, 244}]}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             LineBox[CompressedData["
1:eJwNzVVTggEUBNAPsQvsVrC7O7GxFbsV9VV+vh3n4czemd2ZG09nUq+hIAgy
PDkmeOCQZ3q5ZY8EjxzRyhXbLDDKHfss08Q5m8wyRBfX7LDIGG/+HstVJumj
jWYuSDLHMN2825/INabop50WPnSncp1pBuggxqfui29++OWPQBciizDZ5JBL
HvkUUEgRxZRQSoQoZZRTQSVVVFNDLXXU08AZG8wwSCdxLtlinhF6uGGXJca5
54AV0qR4oZF/mNQfew==
              "]]}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0], 
              Thickness[Large]], 
             LineBox[CompressedData["
1:eJwVz0VSAwEAAMHlKXyJJ3DAYSG4W3B31xDc3d3dHkRz6Kq5TmJymJSTEARB
yLeY44MLfhjhlVM2+OSSHp44YpUZ3jhjk3bu2WeJSQZ55pg1Zknhmm3ijNJL
Bw8csMwUQ6Ryww7zjNFHJ2ncsssC4/TTRToZZJJFNv/jIbnkESGfAgopopgS
SimjnAoqqaKaGmqpo54oDTTSRDMttHLHHotMMEA3jxyywjTDvHDCOjHeOWeL
L674pY0/YAlGpQ==
              "]]}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              GrayLevel[0], 
              Dashing[{Small, Small}]], 
             LineBox[CompressedData["
1:eJwNzcVKAFEAhtFRTAwUMTFQRETE7u7urpUPoFtf1O5uxcREz+Lw3/mGuZO7
vDqxEhIEwRpzoUGQzBStLBLGGI0UMEM7Hz4atnXkksAEzRTx5H2/rSKTGP60
dTqdS0ghnE/tmQ26PJeSSgRf2gubbLHNDrvssc8BhxxxzAmnnHHOBZdccc0N
t9zR7R9lpBHJt/bKgHM1WcQScK/32HLSieJHe2PQuYZs4gjhQe+1FWQQza82
YuvJI5F3bcjWkkM84zRRSCijNJDPNG0kMUkLCxQzSwdLPLq3z1Yyzz+93Tam

              "]]}, {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              GrayLevel[0], 
              Dashing[{Small, Small}], 
              Thickness[Large]], 
             LineBox[CompressedData["
1:eJwNw+cunQEAANCPN/FK/lu39rhau1bMFDFjhIgZJUREROyt9q6954M4JzlR
oezocEQQBEW+RQZBn0/u+Wmjd2475YsHVnjthuN2++COM/72whVHbPePMR45
Z79NVlpsrMfOO2CzVZYYZ7wJhvxhokkmm2KqaaabYaZZhs32p7/MMdc8T1xw
0BarLfW/q/61wzrzPXXRIVutscxL1xy103oLPHPJYdus9cZNJ+yx3CvXHbPL
e/85bYO3bjnps/v2+uiuH8766qFfFnrusu9+A6DPTo4=
              "]]}}}], {}}, {
        AspectRatio -> 1, DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, PlotRangeClipping -> False, ImagePadding -> All, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            StyleBox[
            "\"a\"", {FontSize -> 12, FontFamily -> "Times", Italic}, 
             StripOnInput -> False], TraditionalForm], 
           FormBox[
            StyleBox[
            "\"b\"", {FontSize -> 12, FontFamily -> "Times", Italic}, 
             StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
         DisplayFunction :> Identity, Epilog -> {{
            PointSize[Large], 
            RGBColor[1, 0, 0], 
            PointBox[{0.7, -1}]}, 
           InsetBox[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\))\"", {
               FontSize -> 12, FontFamily -> "Times", Bold}, StripOnInput -> 
               False], TraditionalForm]], 
            Scaled[{0.2, 0.67}]], 
           BezierCurveBox[{{-0.65, 0.25}, {-0.55, 0.5}}], 
           InsetBox[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(sustain\\)]\\)(\[Sigma]\\!\
\\(\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\
\"*\\\"]\\))\"", {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> 
               False], TraditionalForm]], 
            Scaled[{0.88, 0.12}]], 
           InsetBox[
            BoxData[
             FormBox[
              StyleBox[
              "\"(b)\"", {FontFamily -> "Times", FontSize -> 12}, 
               StripOnInput -> False], TraditionalForm]], 
            Scaled[{0.05, 1.1}]], {
            RGBColor[0, 
             NCache[
              Rational[2, 3], 0.6666666666666666], 0], 
            AbsoluteThickness[3], 
            LineBox[
             
             NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.4426352063787131}, {
               Rational[2, 3] 3^Rational[-1, 2], 0.2694301256218254}}, {{
              0.3849001794597505, 0.4426352063787131}, {0.3849001794597505, 
              0.2694301256218254}}]]}, 
           InsetBox[
            BoxData[
             FormBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"sync.\"", {FontSize -> 12, FontFamily -> "Times", 
                    RGBColor[0, 
                    Rational[2, 3], 0]}, StripOnInput -> False]}, {
                  StyleBox[
                  "\"window\"", {FontSize -> 12, FontFamily -> "Times", 
                    RGBColor[0, 
                    Rational[2, 3], 0]}, StripOnInput -> False]}}, 
                GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
                "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{0.1}}}], "Column"], 
              TraditionalForm]], 
            
            NCache[{Rational[2, 3] 3^Rational[-1, 2], 0.3560326660002693}, {
             0.3849001794597505, 0.3560326660002693}], {-1.4, -1.6}], 
           LineBox[
            
            NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.3906736821516468}, {
              0.45490017945975053`, 0.5360326660002692}}, {{
             0.3849001794597505, 0.3906736821516468}, {0.45490017945975053`, 
             0.5360326660002692}}]], 
           
           LineBox[{{0.08490017945975054, -0.49}, {
            0.23490017945975053`, -0.43}}]}, 
         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]], ImageSize -> 154.7716535433071, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
           True}, PlotRange -> {{-0.7, 0.7}, {-0.5098153597755943, 
          0.5098153597755943}}, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {{{
             NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
               FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> False],
               TraditionalForm], 0.05}, {
             NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
               FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> False],
               TraditionalForm], 0.05}}, None}}],FormBox[
        FormBox[
         TemplateBox[{
           StyleBox["\"lower \"", {FontSize -> 11, FontFamily -> "Times", 
             RGBColor[0, 0, 1]}, StripOnInput -> False], 
           StyleBox[
           "\"middle \"", {FontSize -> 11, FontFamily -> "Times"}, 
            StripOnInput -> False], 
           StyleBox[
           "\"upper branch\"", {FontSize -> 11, FontFamily -> "Times", 
             RGBColor[1, 0, 0]}, StripOnInput -> False]}, "LineLegend", 
          DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TemplateBox[{
                 StyleBox[
                 "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                  FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                  False], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {7, 7}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                    Baseline)], #}, "RowWithSeparators"], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {7, 7}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                    Baseline)], #2}, "RowWithSeparators"], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {7, 7}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                    Baseline)], #3}, "RowWithSeparators"]}, "RowDefault"], 
               Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
             FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
             False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                     BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    StyleBox[
                    "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                    FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                    False], "}"}], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#1", ",", "\" \""}], "]"}], "&"}], ")"}], "/@", 
                    "#1"}]}], "]"}], ",", "\"\""}], "]"}], "&"}], ")"}]}], 
               ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", "7"}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{-0.5}}, "Rows" -> {{0}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6686122810994463`*^9, 3.66861244836439*^9}]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["show paths through the \[OpenCurlyDoubleQuote]synchronizing window\
\[CloseCurlyDoubleQuote]", "Subsection",
 CellChangeTimes->{3.6686124749403477`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"x0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}], ",", "masterSNBs", ",", "slaveSNBs",
      ",", 
     RowBox[{"\[Epsilon]0", "=", ".1"}], ",", 
     RowBox[{"b0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"c0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"fs", "=", "14"}], ",", 
     RowBox[{"fsTicks", "=", "11"}], ",", 
     RowBox[{"imgSize", "=", " ", 
      RowBox[{"8.7", " ", 
       FractionBox["72", "2.54"]}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", 
     RowBox[{"pointSize", "=", 
      RowBox[{".035", " ", ".75"}]}], ",", "syncWindow", ",", 
     RowBox[{"initialParameters", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", ".6"}], ",", 
        RowBox[{"-", ".5"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"coupling", "=", 
       RowBox[{
        RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"slaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSlaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"y0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"y", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"slaveFlow", "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                   "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
            ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "y0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"b", "/.", 
         RowBox[{"NSolve", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}], 
              "}"}], "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", "\[Rule]", "x0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
            ")"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yFixedPoints", "=", 
       RowBox[{"y", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"zFixedPoints", "=", 
       RowBox[{"z", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveSlaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"y", "\[Rule]", "y0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "z"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"syncWindow", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Last", "@", 
          RowBox[{"First", "@", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"computeSNBsForB", "[", 
               RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "/.", 
             RowBox[{"a", "\[Rule]", 
              RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Part", "[", 
            RowBox[{"#", ",", "2", ",", "2"}], "]"}], "&"}], "@", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"computeSNBsForB", "[", 
              RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], "/.", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], 
        "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Print", "[", "masterSNBs", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"First", "@", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"computeSNBsForB", "[", 
              RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], "/.", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}], "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Last", "@", 
            RowBox[{"First", "@", 
             RowBox[{"Chop", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"computeSNBsForB", "[", 
                 RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                 "]"}]}], "/.", 
               RowBox[{"a", "\[Rule]", 
                RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Part", "[", 
              RowBox[{"#", ",", "2", ",", "2"}], "]"}], "&"}], "@", 
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"computeSNBsForB", "[", 
                RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
               RowBox[{"Solve", "[", 
                RowBox[{
                 RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}],
               "/.", 
              RowBox[{"a", "\[Rule]", 
               RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], 
          "}"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Labeled", "[", 
       RowBox[{
        RowBox[{"Column", "[", 
         RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"Row", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Show", "[", 
              RowBox[{"Plot", "[", 
               RowBox[{
                RowBox[{"Evaluate", "@", 
                 RowBox[{"Flatten", "[", 
                  RowBox[{
                   RowBox[{"computeSNBsForB", "[", 
                    RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}],
                    "/.", 
                   RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"a", ",", 
                  RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                RowBox[{"AxesLabel", "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", "Italic"}], 
                    "}"}]}], "]"}], "&"}], "/@", 
                   RowBox[{"{", 
                    RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], 
                    RowBox[{"(*", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\)),\>\"", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\< \!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", "Bold"}], 
                    "]"}]}], "}"}], "]"}], "*)"}], "}"}]}], ")"}]}], ",", 
                RowBox[{"PlotStyle", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", "Blue", "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
                   RowBox[{"{", "Red", "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
                  "}"}]}], ",", 
                RowBox[{"Filling", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"1", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "2", "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Blue"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}], "}"}]}], 
                    "}"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"3", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "4", "}"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Red"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}]}], "}"}]}], 
                    "}"}]}], "}"}]}], ",", 
                RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
                RowBox[{"PlotRange", "\[Rule]", "Full"}], 
                RowBox[{"(*", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", ".8"}], "}"}]}], "}"}], "*)"}], 
                RowBox[{"(*", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
                RowBox[{"Ticks", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}]}], "}"}]}],
                     "}"}], ",", "None"}], "}"}]}], ",", 
                RowBox[{"Epilog", "\[Rule]", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"x0", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "Blue", ",", "Red"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"a0", ",", "b0"}], "}"}], "]"}]}], "}"}], "}"}], 
                  "~", "Join", "~", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".87", ",", ".66"}], "}"}], "]"}]}], "]"}], ",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".87", ",", ".1"}], "}"}], "]"}]}], "]"}], 
                    RowBox[{"(*", 
                    RowBox[{",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<B\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".05", ",", ".8"}], "}"}], "]"}]}], "]"}]}], 
                    "*)"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"First", "[", "masterSNBs", "]"}]}], "}"}], ",", 
                    "syncWindow"}], "}"}], "]"}], "]"}]}], "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync. window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}]}], "}"}]}], "]"}], 
                    RowBox[{"(*", 
                    RowBox[{",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}]}], "}"}]}], "]"}]}], 
                    "*)"}], "}"}], ",", 
                    RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"Mean", "@", "syncWindow"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".9"}], ",", 
                    RowBox[{"-", "4.2"}]}], "}"}]}], 
                    RowBox[{"(*", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".45"}], ",", 
                    RowBox[{"-", "5"}]}], "}"}], "*)"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".7", ",", ".2"}], "}"}], ".", "syncWindow"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "+", ".09"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"Mean", "@", "syncWindow"}], "+", ".24"}]}], 
                    "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"PointSize", "[", "pointSize", "]"}], ",", 
                    RowBox[{"Point", "[", "initialParameters", "]"}]}], "}"}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"Arrow", "@", 
                    RowBox[{"BezierCurve", "[", 
                    RowBox[{"{", 
                    RowBox[{"initialParameters", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "initialParameters", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], ",", ".6"}], "}"}]}], "}"}], 
                    "]"}]}], ","}], "*)"}], "\[IndentingNewLine]", 
                    RowBox[{"Arrow", "@", 
                    RowBox[{"BezierCurve", "[", 
                    RowBox[{"{", 
                    RowBox[{"initialParameters", ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", ".2"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".1", ",", ".2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "+", ".2"}], 
                    ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".7"}], "}"}], ".", "syncWindow"}], 
                    "+", ".15"}]}], "}"}]}], "}"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Arrow", "@", 
                    RowBox[{"BezierCurve", "[", 
                    RowBox[{"{", 
                    RowBox[{"initialParameters", ",", 
                    RowBox[{"{", 
                    RowBox[{"0.15", ",", 
                    RowBox[{"-", ".25"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".25", ",", ".2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], "+", ".24"}], 
                    ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".7"}], "}"}], ".", "syncWindow"}], 
                    "+", ".025"}]}], "}"}]}], "}"}], "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".86", ",", ".94"}], "}"}], "]"}]}], "]"}], ",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<delay\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".88", ",", ".812"}], "}"}], "]"}]}], "]"}]}], 
                   "\[IndentingNewLine]", "}"}]}]}], ",", 
                RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
                RowBox[{"ImagePadding", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"10", ",", "20"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}]}], "]"}], 
              "]"}], "\[IndentingNewLine]", "}"}], ",", "sep"}], "]"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", ",", "\"\<\>\"", ",", 
        "Top"}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.608215096781886*^9, 3.608215177274734*^9}, {
  3.6082152147094603`*^9, 3.608215394211152*^9}, {3.608215747450082*^9, 
  3.608215841327422*^9}, {3.608216973724203*^9, 3.6082169878028*^9}, {
  3.608217077277636*^9, 3.608217083568316*^9}, {3.608412463061903*^9, 
  3.60841248605256*^9}, {3.612189004586429*^9, 3.612189266973036*^9}, {
  3.6121893012882137`*^9, 3.612189317408526*^9}, {3.668612205106724*^9, 
  3.6686122074742327`*^9}}],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       TemplateBox[{"\t", "\"\\t\"", 
         GraphicsBox[
          GraphicsComplexBox[CompressedData["
1:eJx1mXk4VG/Av1UoKkmytCLJVlqlzaNdKm2oKKQoUmkjSwpZQwttllIhWoiy
Jo+tLFGznDMz5pxZkLKPIqHFb97r1/N8/3iv95/6Y1yX85wzM/fndmu7nNrt
OlpGRiZA+s///L8AqHWMjEjg0MVlLrXzGNDn05UTR0t7YP0h8HfElAEJYnxH
+aFuOH39uaT6zQw4s+yU6vIZXXDYbndw7V4GzDteJTdJ0AHrauJWVRxlQOfo
Rb2Nwe3w+e4hg1O+DDh40z8CgjYYq1jO2hTFgI+VhJp3m75AWSPtwu4kBkyy
WnSGHdkKZxNaRs+yGTDY89AFgy2fod3oON3Ycgb0H/PU50x3Myy7FjfBk2TA
Q5c/6XIymqCuyK7Yq40Bb71tvZvkIYavmeO9Y38xYLFIf8JzHSGcVuk6TaDM
hHOULdbZ3KdgSrgNuXMuE+YaRng0t/DgBbkjQH81E4re5WiZmnLg1vcm0bv2
MGGr8a3FMJ8Na24pfHzkzoSTAzNNF4xiQu1FzwNyg5nQ2FRinNZXD/eeVwkZ
TGDCkA3djKIL1dA0wuuiXT4TTrXJur5fvQKODlyYfowl/X0D7ybV6BZD7+Rr
zxq6mTCNao1pv5IFN+vdzhiZwIIHd814TR2OhzymmCw2YsEiRX+y4nwcmCzS
y7y3lQWXNY+aFbQvG8QGTd90wYsF5/S+GVpZUQTOfZ0iOXeLBbc8bmyw3lcB
LP09ubLlLLhxu8qYH3nVwHj0lDmbe1nwmhP38sKCelDpwanI12bDauuZE3eq
MMF6U1ZTthMbdmtPDWQlsIF8r2nsSBobnj9ndOiaGgcolcBgxigCcmnl3W41
PGBYV7TlsYSAu8Mbni1xkkBd4VazAyYMGPs3YnvbiU9AzS9knQtgQ3uzextv
2LHAlunVVs2X2XDR1hTJSx4BBlyaTcs+sWG6/v1Gv1NcIF9gb//KioAWLd/q
7mVLoNuEA3nXjRhQyWTh0WiVj+Dj+Pb4tQvZ8Pp6h0yv10wQNnopS3CKDa/l
8/PLVxDgIKfgqkoxG8Z+PDJTrpIDBPWV01/qEFB3PrcpZ5AFTprPGCu6yYZs
kat+ig8JoqdtKj77lQ1Lg7m3eqfzQNJ7/y95QQRcPvkKv54rgVtdroU9N2BA
6+ox54RHGsAsd9UTHfpsaLxltYPzYSZYNf4678VRNjTv8plm1cEGJr3yg/xs
NgzWtgR1nhzQ1+jrHz+ZgHBxYdzDJyzwoz5pPoyUvj51TLS+Pgm6+HfLdlJs
mEsWF+S94wLnl/sEOw4TMME/6BfQ5IKAq2Bc2DIC1pn0nzU6wwPT8xe0pr4g
4GL97S5fOiXwoMiIXazPgCfjTviNVWoAR7P8Nm6by4bDH4yX8lYygYLrGmbG
YTZUC9+0LbaCDd6VibY3P2XD33UrGM/XcsAOj+cbohUIGJ2X4al5iQU8GhRz
LUOlz+sl862nDAnexd8+5ENKz3vpueXdBC74oj+209eOgKpzz0br9HDA9BdX
GygjAm5obJVV2swDA+IJreJ4ApoZ1+qxe7ngjNr1WVGnCbgzbHSLZTIPrNKx
t6rhE/Dlq0V6fT8k8JyMm8o66fUH+j76k9hcD6pOKZ29PIcNnSemacXrMUGJ
ey399JD0fhHzXV9msUG8s9/akxlsWPggV2OWMQec3axqmyZHwL4Brf2kBwsM
tFGhU0LY8P2fQk5sFwE82m9n3GGxYfueuTcUQrlg3wK73As7Ccgc6iTieBxg
rn3Ucvk8Ao7Kctx+aREPkHp3HJlRBPwhs+7UBooLRrJFXis8CDjRwd+oOJwH
trR9/5FRSsBw2RMlSQd4YKdi/8p1KQQ8NTQnYmhYAs3OrCqUk54nrGs1+FJf
Dzzcp+1N1GFD1QVNamdmMIGma5PMC2c2NPN/eLo8lQ0MxEXmpk+kz0dRUmKn
zQHPRk0qKBxDwHT1gzteObOAWueR48NBbBiQatzyoJkA8S9/dxgy2dCy9NCy
dX5cMGBc0x+7nYALj+j71jdwgG+lcF6vLgGdNRK/FejxQNuLI5YGYQS0OR44
5SKDC8bVGNYUuhHQ813Bp+8BPODi1pcdkkfALyczncldPHBPIm/slEDAzMhp
93Qe8cDbllth+d0EfLReJ3PTah6wTAruzbtGwKxe8/CgmzzgNa6i428tAfUT
FmocOcoD1UuKHj5KJyDih2Fo2rMdsWKA+GERl3LwdZgYIH7c1QlTsg4UA8SP
TI07iTu8xQDxo9xpwHzPSTFA/GAkVFYHuIoB4oeo1KlP+aAYIH6kZmVffrtH
DBA/1Pkm1Y5WYoD48avC2+rEWjFA/NgU4G0XuFwMED/iifiRX/PFAPFjm0Ox
9gldMUD8uOcS8+mdphggftjJqH2/OkkMED881iqt0ZIVA8SPURU756t/EwHE
jyvfvTvf8UUA8cNoL7E6v1wEED9+qJw09coUAcQPNRnl1SqxIoD4YaW4c4rM
GRFA/OB09E5MtBMBxA85lw5l9+UigPhxLv9BywsNEUD8WJW5X/nToBAgfpTK
u57tZQsB4gcvxbOuL0sIED9kJ6o2Hw4RAsQPrbATt7VthADxI3Lm04EcHSFA
/FDYncUt/CwAiB+b7m4xcr8vAIgf5vVlpnfXCQDih07p+1PvbGiA+KFqm2AR
FiUGiB+mSn+85eWEAPFjzImik2GVAoD4YTf3fnDGOQFA/NjEnOuUN0QDxI++
NSqjPaPFAPEjMOCO7jxVIUD8eB+67WsUIQCIH5Kcmvl2UQKA+HHqTUlyobYA
IH4ItxzJjcwRAMSPshMrR/oPCADix8tyWXZuBQ0QP2TiLmg6xogB4seC2Z7b
AqcLAeLH5Iu94mJaABA/Zt71LY+JFwDEj/1Z8ubEYgFA/Nj7puVqZrH09X/8
cH7xdVDdXQAQP7q482iNJhogfjB+W+Q0KwkA4sci1i6i8jYNED8u2Bj2caTX
h/jR2ih3bsZsIUD8WD9nfRsUCwDiR3h1yvGwewKA+PFnJnGOXikAiB/NxefH
akEBQPwI72vf++2kACB+uDn5fuzppgHixyKqvzNaQwAQP+yenCXCs2mA+ME/
3ZsgZNEA8WOym96pFHcaIH50rY/ZM0X6/YL4EaFxZlOblhAgflyfVUC/bZbe
r3/8KJwnf2E4UQAQPxotPI9UmgsA4ofdg9QltuUCgPjRfL9dmXlaABA/+vcb
ju3towHih9JRzdOLZgoA4ofPoXb7O0U0QPzYzkuxNOHTAPFjTEpMJQylAeLH
74vRgXqpNED8ULz66PIi6XkQP5pnubk0aAsB4seSOQ8K37QIAOLHnIz3fouT
pc/nHz8ehp0e/dJC+nn4xw/T5OnWJysEAPGjkBvycc1ZAUD8sHMorGocoAHi
B7vq4Y0LswUA8eMIf/ppUEoDxI8NZbbfsgU0QPzo0I5RaI2lAeLHq7u+MQpP
aYD4cS21Y3GuHQ0QP2S7/tTkvqYB4gd9qfSjux8NED9CbarV3yfT+PvzTPrY
oW+rBXh/dwkeHf6dIMD7O3goSPfwFwHe32OLvGYt1RLi/X18YmXrfjsh3t8d
2gMOQaFCvL/lmFt6/V8I8f7mqGzsdyWFeH8vGPxRrzgoxPv7+ozjlf3qIry/
NfaVLksxE+H97dFx/Xm4rQjv76OvCUf7syK8v3/OjbK3uibC+7t+2M7BMkOE
97daPP/h3goR3t/fsmvn1jSK8P4+/exJtkyvCO/vSUlua5+NEUNn39Vfx26j
AOvz8AozJTGsNFoeVSn93qwfHdW+S1MM9RRK2lItxeBA1n6LI3PEcGbJ8Y1y
EU2gKCw9aPR8MZQZHp15prkZzBnTzjZeLoY/d711fDf3M6ibIXQ9YSGG1FKn
6XOvtAKl2zGZplZi6LVXebIO/QXMunyRuLNHDDXjP++TndkGnq0wuaF3QAyz
HFKe9F1oB7mP1juvchXDvWsuWda87QCFWYkfI06IYY7jCZ2VvzuBpsyvU1fO
i+Gg4voxRbbdIMvTSHVMoBjuZq4ynXm3B5iy4eq6UDHaE+DfnoCWg0kbJ8Rw
4ekZI0Yl32jo4vs402+AgL/fOOS5eAmgv+2D1wMOLGgcme/0rUIA52lqN8j4
f4Iq84H1aVkhtBhncF1pmwTkHrLZqBIlhhdvqOzzMePBNftC/57Lp2HKA0PX
fbdJKHsmbobGPgFcuDahz15ButO8NFkp2QK4Wy7Zeq8TA6q8jxh+80MAaz0X
t0z93gP8/dPvScLFUNVp3pKHTRwobs9VXjddAHX3zOhJku5mM4fw3PAwASx4
PHvN2HQJOFYVYLk4Wgw1HLc3Gcfy4Eul/dD2Eg3LFves2/yFhHM8Ql9JrARQ
sUB9ykTpbuz+9WXuxTQBzF37uGLdSwZ8QQwun9sjgEqzC6I13/WAbeu+rhWE
Se+/kUuJ3XIuVCwxf9cwVgDXfxF9uCrdZTV/bQJy/AXwt23qF0VfCVBrPJWo
c1UMm6u4H8ubpfdzsNEsh0tDv5tdmZ1XObCqjT2RbSyAZ74lxI1hS0C8T9T2
tTFi6FrVkTa2iAf1zei+EBsa7vz9KcdciQOVrZ62TNwggIOnOTpuV9kwJ63n
l2WKADY7pQcU8hjwfH1DxZYO6f284HsoMasHDNirkHuk1/vrxsjlRS5c2Fk2
ndD/Q0NWdvnKkI9Sb1hyd+o0bwGcle32JtpFAoZG4kMTpM9rodH5uKSJPLiz
cKajXQ0NqwcjT77P50B47GGxua4AxlsdPBZaIgFez76LiqT3t+5n9ozdh3kw
Qd96BUih4S3HlYpfC7jQafimxt5W6fXf5ZUGtUvAojTXGzXS82k0Wbiv1OHA
WnWbiHALATz5Ke+pykOpdwQGMNOSBXC458n+vi4G/Ga8V7i3TQDLU/lbDzzu
AV3yDkqTpOfR2Wjdct+HC1d0vtOI/UnDhPjF3wObCbgq8NGVdWcFMJuqTtu+
VwJUYis97KTnsRNW/lCYI33/1Vn8roU07HnGYyyp58D2UVa7P84WQD2f0t2b
ciSgMv68prf0PN+e/g2EF3jQd8WztKk3aVgyOdLTpoEL00626uQKadhUtSJz
nVACdKJf9F+Rnifx+mr670MerJ2vOBi3j4apGw4Vf94u/X37X5irPachPO5D
lPVLwJXO/DkTpJ+vgD1DG8yMOTDoJMwtNRdAw8C0nrZnUs8NuNG6K0kAw/L1
a5R/MuCc+gb64Ffp+3PV+PKS5B6QubAjvUv6ec27fz7eNpgL+RnzPZ730/Cv
fGdDQBcBaf2fGezT//P+GJyWtUsCOvuc9i+Vnr9jeWd62XwebA0d07PqDQ2D
5GSCOzgceDc/78PVmdL7P1FSnf5MArS/Wi62kZ7/iqzeQu8QHvQ2vZN6LZKG
O46/nDmex4WqJx+rmFM0NHTwmPWYJwHfH7vrHJaef/n9iOOJ+3iw+n5E0uF0
Go4bnbFFWyIB68R8hw7p6467uA3jTvJg93zKI+oeDZ8VnLvZcpcHLZaFvXp6
mobe5CYn52EJSN863DZfen8Qn/hNF8q8xxJ43zs/Fdh6ZrLxvq+L/Rsv58jG
+37jp0mJS3XZeN83+b1lK/Ww8L53cYs6+LWUhff95gLT2q7bLLzvvc+vejf6
FAvv+1nXo7oObmPhfV9yfOrAWWMW3vdLF1aE1Ixn4X3fnCyZ0NTDxPu+lf3M
XonJxPve1mXAcVYeE+/7yzEGjlpJTLzvTfvT1CcHM/G+d+Dlx6V4MPG+p2ie
wjEbJt73JjtfmaqsYQLEp4zSqI2D85gA8el1sOeXqslMgPgUb9RglvKHARCf
+H5L8g93MADi09jgrMmTOAyA+FRkXdUdU8kAiE8LD7i6/cpmAMSnSRGhyiuS
GQDxaUBV5870aAZAfGpbNzT4zZcBEJ9owy0z9rozAOLTtIioRqf9DID41Jtl
cMPFkgEQn5qaZCwIMwZAfBr8/38vBYhP1PGgmOe7CYD4tLNeV1aeYAPEJ62R
2v0+QWyA+LTSYe3xn4ANEJ++VnEXbFjIAIhPkxb+Ku6LIQDik6Vad9LOLjZA
fDLVOPq1Op4NEJ9WVvwsfW7NBohPdjeWhEUuZQDEJ8/7DRl6BgRAfFKdPyTf
9JYNEJ/8R8L0ZY0ZAPEpyXfesMo7AiA+Gcz6Jec7xAaIT07R9+I677MB4tOD
V+FB6+3YAPEpb0zusixT6f3/x6d19Wv7E1YTAPHpSqTRmoIaNkB8ms1JCZ6z
gAEQn6hr6ZcLPAmA+BTx4PmzW+oEQHzSvXd81hcDBkB80t2Z+u6zhACIT6vN
OaS9DAEQnxKbb7ydLd3RiE/cN7kDs+yl9/Mfn5xYDpPKlzMA4tOh6iOtYDMB
EJ9+27Q9tv7IBohP9hF2WUtMGADx6fcnFweVAAIgPsXMFv010CIA4pPnosSh
fkMGQHzKdVp82SCVAIhP3THdKZOdpNf/j08da/Juc/Wlz+Mfn0K8jBc1jSEA
4lO8gmxbRTobID45OBhQygfYAPHpnF9dkpX0/Yr4NCW5OIW/jQCIT5MVhUv1
mGyA+KTvOdTyRnoexKdJpeDt/SsEQHw6HGZ6NEGXAIhP7x1vhQUYMQDiE9ua
nLInlwCIT080E2/nuxIA8UnBay7DUfq8EJ9C7L3LiU4CID5NMmH77b5LAMSn
DTkqZ3ZKz4/49EGzXP6pHAEQn5QmSNhqGWyA+GRQkksrHpS+P//xaVjv+fFr
0vMjPp0R7d5RsoMAiE9eTpHKt1hsgPjknVImLyP9/CE+HR198YNxJAEQn14z
67ppPen9/8cnxeIemzLp+RGfOLvaVRuLCYD4ZDZNkG7oLr3ef3w6ZvHi3CPp
+RGfQtt/zpC7TwDEp9rqulHx0vMiPjnZp1kLnxIA8WnCnmG5UhYBEJ9Geq9+
nSD9ecSnPCeFG/vtKOxPpfviP/9p4mN/+vhQ5Xz4RT72J9X7b895GfGxPzFN
J77qamzE/hRmPE31VWwj9qefB4/67dnaiP3JNs7Vd7lsI/anE6M9znIreNif
mIysTCXpfUF8qv/ulnBlDQ/7U/xwol/KLy72p8qkEdGaXC72px2pj++OP8rF
/tTiNmUweQYX+9O00fE3b1VxsD/5G1u4kG4c7E99RxpbPvST/6tfoO/rth16
HqtfUNgn5B8U7eaqU9gn3Bp3Ce+/4OOeUXG9jLh+h4N7hnHRqpCmRRzcM8Q2
C/fPTSGxX1zY2p+9uYfCfpFrKGv7chmF/WLv3dn5RtV83Des11yq98ni4L4R
Imro1tnOwX3j8bSJM2Q/kv/5ho9o5ZeLFO4dB+7/flh6iYN7xyvLxMI0VQ7u
HU+vtT/fc5jE/hHote7iBv3//GPR9/SXiRsp7B+m1rJKxwg+7h8hgYtG3S/i
4P5h/XeoXN+eg/vHrLWdK1SaSewjt/dpm26Ip3AP2RflkFAt/R5Hf8/6fLPc
4+ocDu4hpultbx9cIbGf0ElRnYZ1FO4js4/F0eaFJPYVlyXA65g7hXvJBXPH
rKCl5P/pKw+nxnUJtlPYVxZOcF46j+LjfqJestZ9NuTgfnL4gGZGpDMH9xMz
/23N8Z0k9pdPMpBzIIXCPSVlnAL/1Q0O7in6OU3Lqg05uKfMWVLb2H6TxD7z
6sDu4wN8CvcV0mv0AedKEvvN+syzsWfPUri3XB/sbci3JrHfmHw0S+ySo3F/
sVdao/79HIl9Z71BSdqUNxTuMX7Tc9q75UjsO9cHx69S3U1h37mkZhF+TcjH
PUY985SIKufgHrPRi9bMPczBPSa2TLx3RS+J/eejsYlWTjqF+8x3Ud+y1HgO
7jNCYo/7vgUc3GdyOrROp90jsQ+t+PqYu/IzhXvNlgy5T2U1JPajqOxxkx9c
oHC/Oal83PjSfhL70abheL8GVRr3nDj9ZU6/A0jsSxvXp7udrqBw36l62mn7
TofEvrQhUsc/eweNe4+R0npG0joS+1Oz6aNpjkMU9iW1gNChpTYU9iXvmbLf
N4r5uP+MtUpWXlHJwf3HLHvxoQ2uHNx/5Kss6q98J7E/vXvjFyLJpHAPWvWt
6te02xzcg15lb/8xcyEH9yCJeqRXVxKJfYobO7dRt53CfYhndGLI9QOJ/crb
aXgy8KdwLxo0Li8LcSSxX6k6lU3KnknjfqRx79DXxssk9q1INae6te8p3JOc
v1UVbTImcU/K+DJxPm1JYv9qOGlz2XOEwn3pb/JmS873//rSjCdn9c1tSOxj
y/S9p/6ZQOPe5BKxYscUdRL72eeSSLmtpjTuT6nbn8wTryKxn93R99Gf1ENi
P4s16SI8XDjYzwK/nNjQ9J6D/cyso2LDoAYX+5n/rrPyAR5c7GfvHdzS8vK4
2M9sDTXB1CEu9rOf/dMsFlnwsJ+JQtU23QjiYT/zL2BOsi/nYT+7fEtz9mf5
RuxnhTGfzWssG7GfRXZebjS82Yj97E8LrXVQ0Ij9zF37RHndPD72s8VhXXrs
S3zsZ0wHi71xAj72s/1znpBJO6j/1V8Q/46Y2e8wvkNiX9nU/t7thvRzjfj3
JWsBVXubg3tM1E/4mfucj3uM1qcNpuEqFO4xnkt2Oq9PpbC/EKujFbTtSOwv
CQcDjhQqcbC//JA4j1lzkYP7zF+rUd29t/i4z9Rm5H7Y+JOP+0zmibPJR7yp
/3xG+WFg8HsS95re9hD1p1V83GvugVaZShMK95pHg7cnTG2isN98VDdfrTuD
xH4z/XbjuIa/JPYbtZUBz2S8OLjf1CrsKKyL4uN+8zcy7Cfo4ON+s2DzrUt2
LhT2nXwTpxDdlyTuOf1/dGc/LOTjnnPsR6m1QIvCPUet+c6vGkhh//Hq/NGw
xo/EfWe+VjdtEE1hH+qwWbtFhiJx7yG26Iz/Oon+P33o2Znu+qgBEvvQjACt
0LXuHNx/ltWb79wSysf9p93o6GRRCx/3H9WJS7nsfRT2o4vh5c3jU0ncg55f
8hG9zuXjHqTLvR/yUJPCPcjAtkAUmENhX7pntMD6jDuJ+5CPeuDBcUEU9icF
0QSjHwwS96KSa9c6c35Q2J9mFm+eFWBO4n703Xf9I+9PFPYpBaeqKbaRJO5J
LM9Pn/zMaexTJdfOBdp8J7FPNZy2WNzoysE9aZlImR8dzMc9aaxG6oN8MR/3
pNLqB4dMbCjsV4EOu+4VJJO4L9lnRIdUZfNxXzr5yninshqF+1JispNl5VMK
+9aUh3TTfGcS96YxYr+OJ/4U9q8Knk9G7QcS9yehz9SY9g4K+5d8bKd5ogmJ
e1SR01Z7z2oK+9jYjfzdP4NI3KciBPGHH2vT2MfGjRw0L+oncK/S9lvT/mEU
jf3MQzqHFbeS2MdMJ/yCS3pJ7GMcj4BqnSMc3K82mrdkmATxcb9Sbdy+T1fE
x/1qUxXobtlFYT8Lr5cz9U0gcc+afOfN2+1ZfNyz7vEWV1mpUrhnHfT6aRnw
hMK+dn7IXrzegcR969yBKWWjfSnsbxz9sCcGtSTuXTYOcPBzK4X9zcygLLNI
j8T9a6lkFiu2ksI+V3laW6IXSOIe1nX7zYi2xn89LPXhmejoXxT2u0uaxit+
byBxH7PuMDt9c9d/fWxh04Qbhr0U9j11Z8XU48tJ3Ms6RjZ52M6nsf8d+zDw
aqYSiftZxsrGGxHjaPD/AEJ+cdo=
           
           "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
              RGBColor[
               NCache[
                Rational[1, 3], 0.3333333333333333], 
               NCache[
                Rational[1, 3], 0.3333333333333333], 1], 
              Opacity[0.05], 
              EdgeForm[None], 
              GraphicsGroupBox[
               
               PolygonBox[{{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9,
                 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 
                25, 26, 27, 28, 29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 
                73, 61, 51, 43, 38, 89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 
                44, 39, 90, 77, 65, 55, 47, 34, 88, 75, 63, 53, 45, 92, 79, 
                67, 57, 40, 91, 78, 66, 56, 94, 81, 69, 48, 93, 80, 98, 68, 
                96, 83, 100, 58, 95, 82, 99, 70, 97, 197, 170, 199, 182, 195, 
                158, 200, 183, 196, 168, 198, 180, 193, 148, 169, 181, 194, 
                156, 166, 178, 191, 140, 157, 167, 179, 192, 145, 153, 163, 
                175, 188, 134, 147, 155, 165, 177, 190, 139, 144, 152, 162, 
                174, 187, 133, 146, 154, 164, 176, 189, 138, 143, 151, 161, 
                173, 186, 132, 137, 142, 150, 160, 172, 185, 131, 130, 129, 
                128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 
                116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 
                104, 103, 102, 136, 141, 149, 159, 171, 184, 
                101}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {
              RGBColor[1, 
               NCache[
                Rational[1, 3], 0.3333333333333333], 
               NCache[
                Rational[1, 3], 0.3333333333333333]], 
              Opacity[0.05], 
              EdgeForm[None], 
              GraphicsGroupBox[
               PolygonBox[CompressedData["
1:eJwtz2VTlVEUBeB7GRUTELsF7G6wkTSwsFBUFDsG7MYOTFRs/EN2dysWtmJj
PDPw4Zm11z7nzLxvVHZuek5IIBAIcpXmhu78MHeUTehGGF1owUdn7WRDagTL
H3eiKeG8sWot61GVP/pX2psbUZMgZ+yiZG0q8VP/xFva6PWpxl/9G2eJ1iOp
zC/9M+84R4xdHarwW//Ce85zgYtc4jJXKv73Gte5wU1ucZs73OUe93nAQx7x
mCc85RnFPOcFL3nFa1r5jrqEUqaX8oG2egOq80//TgdzY2oRQmeaEUFXWtKD
EnfHy9Ps4STr2MVxFrOa7RxhJgtYwRYOMZnpzGUpGznAONIZyxhGM4qRpDGC
4QxjKKmkkEwSiSQwhHgGM4iBDKA//ehLHLH0IYNpzGEJeeynN5OYymxy2cA+
ejGD+SxnMweZSCazyGE9e+nJIlaxjUKymMcyNlHABNayk2MsZCVbOcwUdnOC
NZxiB0fJpoh8/gMZemOF
                
                "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}}, {{}, {}, {}, {
              RGBColor[0, 0, 1], 
              
              LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
               11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
                27, 28, 29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 
               51, 43, 38, 89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90,
                77, 65, 55, 47, 34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 
               91, 78, 66, 56, 94, 81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 
               58, 95, 82, 99, 70, 97}]}, {
              RGBColor[0, 0, 1], 
              Thickness[Large], 
              
              LineBox[{101, 184, 171, 159, 149, 141, 136, 102, 103, 104, 105, 
               106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 
               118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 
               130, 131, 185, 172, 160, 150, 142, 137, 132, 186, 173, 161, 
               151, 143, 138, 189, 176, 164, 154, 146, 133, 187, 174, 162, 
               152, 144, 139, 190, 177, 165, 155, 147, 134, 188, 175, 163, 
               153, 145, 192, 179, 167, 157, 140, 191, 178, 166, 156, 194, 
               181, 169, 148, 193, 180, 198, 168, 196, 183, 200, 158, 195, 
               182, 199, 170, 197}]}, {
              RGBColor[1, 0, 0], 
              LineBox[CompressedData["
1:eJwVztVSAgEUgOHFMRAsVOwAu0UfxUfwzht9TrsTbMTubj8vvjnnP7s7s8nx
qbHJUBAEE7RYRniz95uNpChjiFbuPOsx64j+f8gATZRz6dRpxgnzrZ/ptddT
Qohpt6QZI593fc8VXbqGYn70CzO06UoK+NAPXDNLu1sVhXzqR26YY54FFlli
mRVWWWOdDTbZYpsd0mTYZY99DjjkiGOynJDjlDPO6fAf1RTxpZ+4pVvXEuFX
v9Jnb6CUPAZppoJhEoxy4d0/K7c4Qw==
               "]]}, {
              RGBColor[1, 0, 0], 
              Thickness[Large], 
              LineBox[CompressedData["
1:eJwVzuc2ggEAgOHPpbgGkcyQPSJ7RmY4skfZyd57XazHj+ec9+dbnMokVoqC
IEhzKX5I8UaBb3b55IoRnjlli0XeOWePfh44Yp15kryQZ5slSrghx//ANKMM
8MgxGywwSYhb9skwwxiDlHLHAavMMs4QZYQpJ0IFlVRRTQ21RKmjngZiNNJE
My200kY7HXTSRZxuekjQyz2HrDHHBMM8ccImaaZ45YwdlvnggixfXPNLH39Q
UCz0
               "]]}, {
              GrayLevel[0], 
              Dashing[{Small, Small}], 
              LineBox[CompressedData["
1:eJwV0cVRBEAQQNHZxSUJUiIEAlgiwl0Ld3dYKNzd3d15HF796epbT1ZObnYs
EkKIce+REQ1hQCN6rWm6pcn6qG18c84aUyTY3eoODbxzzBJj9PDLJRtMk8cT
e8wySDuN5PPMPnMM0UETBRRSRDEllFJGORVUUkU1NdTywgHzDNNJMx+csMw4
vdTxyiELjNBFC5+cssIEfdTzxhGLjNLNDxesE6eVL85YZZKo293oNv3/H2G+
0lTd1CR90Eyd0US903Td1RT9A4H1URg=
               "]]}, {
              GrayLevel[0], 
              Thickness[Large], 
              Dashing[{Small, Small}], 
              LineBox[CompressedData["
1:eJwNw2NThGEAAMCnvmdzumwbk+3Lrst6L/vHtzuzsUQyHqWEECLPUkP4td1n
j/x2yQ/PrfXRPecc9NUTV6zw1i2n7LXZpAcuOGyaF645aod1xkz30nXH7LTe
SjPMNMtsc8w1z3wLLLTIYkss9cq443bZYJV3bjttny2Wee2GE3bbaLX37jhj
v62We+Omk/bYZOS+8w5Z44O7zjrgi8cu2+aTh3656LsJ/xzxzVN/XPXTf1T8
IJk=
               "]]}}}], AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, 
          AxesLabel -> {
            FormBox[
             StyleBox[
             "\"a\"", {FontSize -> 14, Italic}, StripOnInput -> False], 
             TraditionalForm], 
            FormBox[
             StyleBox[
             "\"b\"", {FontSize -> 14, Italic}, StripOnInput -> False], 
             TraditionalForm]}, AxesOrigin -> {0, 0}, Epilog -> {{
             PointSize[Large], 
             RGBColor[0, 0, 1], 
             PointBox[{-1, -1}]}, 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox[
               "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\\!\\(\\*SuperscriptBox[\\(x\\), \\(*\\)]\\))\"", FontSize -> 
                14, StripOnInput -> False], TraditionalForm]], 
             Scaled[{0.87, 0.66}]], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox[
               "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(sustain\\)]\\)(\\!\\(\\*SuperscriptBox[\\(x\\), \\(*\\)]\\))\"", FontSize -> 
                14, StripOnInput -> False], TraditionalForm]], 
             Scaled[{0.87, 0.1}]], {
             RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], 
             AbsoluteThickness[1.5], 
             LineBox[
              
              NCache[{{
                Rational[2, 3] 3^Rational[-1, 2], 0.4426352063787131}, {
                Rational[2, 3] 3^Rational[-1, 2], 0.2694301256218254}}, {{
               0.3849001794597505, 0.4426352063787131}, {0.3849001794597505, 
               0.2694301256218254}}]]}, 
            InsetBox[
             BoxData[
              FormBox[
               TagBox[
                GridBox[{{
                   StyleBox["\"sync. window\"", {FontSize -> 14, 
                    RGBColor[0, 
                    Rational[2, 3], 0]}, StripOnInput -> False]}}, 
                 GridBoxAlignment -> {"Columns" -> {{Right}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Column"], TraditionalForm]], 
             
             NCache[{Rational[2, 3] 3^Rational[-1, 2], 0.3560326660002693}, {
              0.3849001794597505, 0.3560326660002693}], {-0.9, -4.2}], 
            LineBox[
             
             NCache[{{
               Rational[2, 3] 3^Rational[-1, 2], 0.36373066958946426`}, {
               0.4749001794597505, 0.5960326660002693}}, {{0.3849001794597505,
               0.36373066958946426`}, {0.4749001794597505, 
              0.5960326660002693}}]], {
             PointSize[0.026250000000000002`], 
             PointBox[{-0.6, -0.5}]}, 
            ArrowBox[
             
             BezierCurveBox[{{-0.6, -0.5}, {0, -0.2}, {0.1, 0.2}, {
               0.5849001794597506, 0.4713916498488917}}]], 
            ArrowBox[
             
             BezierCurveBox[{{-0.6, -0.5}, {0.15, -0.25}, {0.25, 0.2}, {
              0.6249001794597505, 0.3463916498488917}}]], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["\"sync.\"", FontSize -> 14, StripOnInput -> False], 
               TraditionalForm]], 
             Scaled[{0.86, 0.94}]], 
            InsetBox[
             BoxData[
              FormBox[
               StyleBox["\"delay\"", FontSize -> 14, StripOnInput -> False], 
               TraditionalForm]], 
             Scaled[{0.88, 0.812}]]}, ImagePadding -> {{10, 20}, {0, 25}}, 
          ImageSize -> 246.61417322834643`, Method -> {"AxesInFront" -> True},
           PlotRange -> {{-1, 1}, {-0.5173719742271363, 0.5173719742271363}}, 
          PlotRangePadding -> {
            Scaled[0.02], 
            Scaled[0.02]}, Ticks -> {{{
              NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
              
              FormBox[
               StyleBox[
               "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", 
                FontSize -> 14, StripOnInput -> False], TraditionalForm]}, {
              NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
              FormBox[
               StyleBox[
               "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", FontSize -> 
                14, StripOnInput -> False], TraditionalForm]}}, None}]}, 
        "RowWithSeparators"]}}, DefaultBaseStyle -> "Column", 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"],"\"\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.608215088546608*^9, 3.608215177827251*^9}, {
  3.608215223562153*^9, 3.608215259088192*^9}, {3.608215290887244*^9, 
  3.608215394779315*^9}, {3.6082157523831367`*^9, 3.608215841959343*^9}, {
  3.608216974385517*^9, 3.6082169883630133`*^9}, {3.6082170778859673`*^9, 
  3.608217084159075*^9}, {3.608412465664825*^9, 3.608412487697845*^9}, {
  3.612189005310007*^9, 3.6121892679611263`*^9}, {3.612189303852577*^9, 
  3.612189317903234*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure SM-1: Length of the synchronizing window", "Section",
 CellChangeTimes->{{3.604152701097534*^9, 3.604152704898899*^9}, {
  3.668612631828431*^9, 3.6686126349626093`*^9}}],

Cell[CellGroupData[{

Cell["calculation", "Subsection",
 CellChangeTimes->{{3.608218056728971*^9, 3.608218057649336*^9}}],

Cell["The critical points of the master equation are", "Text",
 CellChangeTimes->{{3.607280262089443*^9, 3.607280269143922*^9}, {
  3.668612652300694*^9, 3.668612654818727*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"masterFlow", ",", "slaveFlow", ",", "coupling", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"a0", "=", 
        RowBox[{"-", "1"}]}], ","}], "*)"}], 
     RowBox[{"x0", "=", ".6"}], ",", 
     RowBox[{"y0", "=", ".6"}], ",", "yFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"a", ",", "b", ","}], "*)"}], 
       RowBox[{"a", ",", "x", ",", "y", ",", "\[Epsilon]"}], "}"}], ","}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"masterFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"coupling", "=", 
     RowBox[{
      RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"slaveFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], "}"}],
       ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.607280249224783*^9, 3.607280250039633*^9}, {
  3.607280294322028*^9, 3.607280298607628*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"a", "\[Rule]", 
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6072802510896463`*^9, {3.607280296106423*^9, 3.607280298941327*^9}}]
}, Open  ]],

Cell[TextData[{
 "Next we solve for the upper-branch value of x to which the master system \
snaps to at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    FractionBox["2", 
     RowBox[{"3", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.607280322679687*^9, 3.60728032418874*^9}, {
  3.6072807020647583`*^9, 3.6072807205994167`*^9}, {3.668612656587718*^9, 
  3.668612658666346*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"masterFlow", ",", "slaveFlow", ",", "coupling", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"a0", "=", 
        RowBox[{"-", "1"}]}], ","}], "*)"}], 
     RowBox[{"x0", "=", ".6"}], ",", 
     RowBox[{"y0", "=", ".6"}], ",", "yFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"a", ",", "b", ","}], "*)"}], 
       RowBox[{"a", ",", "x", ",", "y", ",", "\[Epsilon]"}], "}"}], ","}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"masterFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"coupling", "=", 
     RowBox[{
      RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"slaveFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "a"}], "}"}]}], "]"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"masterFlow", "\[Equal]", "0"}], "/.", 
       RowBox[{"a", "\[Rule]", 
        FractionBox["2", 
         RowBox[{"3", " ", 
          SqrtBox["3"]}]]}]}], ",", "x"}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.607280612805933*^9, 3.607280626488228*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox["2", 
      SqrtBox["3"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6072806220330973`*^9, 3.607280626939992*^9}}]
}, Open  ]],

Cell[TextData[{
 "Now we solve for the value of ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]]],
 " such that, at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    FractionBox["2", 
     SqrtBox["3"]]}], TraditionalForm]]],
 ", the slave flow is at a critical point:"
}], "Text",
 CellChangeTimes->{{3.607280751759513*^9, 3.607280757814644*^9}, {
  3.607280797744647*^9, 3.607280825269919*^9}, {3.668612663586707*^9, 
  3.668612663746292*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"masterFlow", ",", "slaveFlow", ",", "coupling", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"a0", "=", 
        RowBox[{"-", "1"}]}], ","}], "*)"}], 
     RowBox[{"x0", "=", ".6"}], ",", 
     RowBox[{"y0", "=", ".6"}], ",", "yFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"a", ",", "b", ","}], "*)"}], 
       RowBox[{"a", ",", "x", ",", "y", ",", "\[Epsilon]"}], "}"}], ","}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"masterFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"coupling", "=", 
     RowBox[{
      RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"slaveFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"FullSimplify", "@", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"slaveFlow", "/.", 
            RowBox[{"x", "\[Rule]", 
             FractionBox["2", 
              SqrtBox["3"]]}]}], ")"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"slaveFlow", "/.", 
             RowBox[{"x", "\[Rule]", 
              FractionBox["2", 
               SqrtBox["3"]]}]}], ",", "y"}], "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.6072801821761093`*^9, 3.607280230409133*^9, {3.6686136844403877`*^9, 
   3.668613685063017*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.607280309403576*^9}]
}, Open  ]],

Cell[TextData[{
 "The larger of these two, ",
 Cell[BoxData[
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
   RowBox[{"3", " ", 
    SqrtBox["3"]}]]],
  CellChangeTimes->{3.607280309403576*^9}],
 ", is what we want."
}], "Text",
 CellChangeTimes->{{3.607280833327655*^9, 3.6072808427119293`*^9}}],

Cell[TextData[{
 "Now solve for the value of ",
 Cell[BoxData[
  FormBox["b", TraditionalForm]]],
 " such that, at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    FractionBox[
     RowBox[{"-", "1"}], 
     SqrtBox["3"]]}], TraditionalForm]]],
 ", the slave flow is at a critical point:"
}], "Text",
 CellChangeTimes->{{3.6072808448962708`*^9, 3.607280864762368*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"masterFlow", ",", "slaveFlow", ",", "coupling", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"a0", "=", 
        RowBox[{"-", "1"}]}], ","}], "*)"}], 
     RowBox[{"x0", "=", ".6"}], ",", 
     RowBox[{"y0", "=", ".6"}], ",", "yFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{"a", ",", "b", ","}], "*)"}], 
       RowBox[{"a", ",", "x", ",", "y", ",", "\[Epsilon]"}], "}"}], ","}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"masterFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"coupling", "=", 
     RowBox[{
      RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"slaveFlow", "=", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
      RowBox[{"coupling", "[", 
       RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"FullSimplify", "@", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"slaveFlow", "/.", 
            RowBox[{"x", "\[Rule]", 
             FractionBox[
              RowBox[{"-", "1"}], 
              SqrtBox["3"]]}]}], ")"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"slaveFlow", "/.", 
             RowBox[{"x", "\[Rule]", 
              FractionBox[
               RowBox[{"-", "1"}], 
               SqrtBox["3"]]}]}], ",", "y"}], "]"}], "\[Equal]", "0"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", 
  
  RowBox[{"(*", 
   RowBox[{"First", "[", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"x", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"masterFlow", "/.", 
              RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], ",",
            "x"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], "]"}], 
      ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"#1", "-", "x0"}], "]"}], "<", 
        RowBox[{"Abs", "[", 
         RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}], "*)"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.607280870923164*^9, 3.607280874619144*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{"2", "+", 
        RowBox[{"3", " ", "\[Epsilon]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"3", " ", "\[Epsilon]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6072808748852463`*^9}]
}, Open  ]],

Cell[TextData[{
 "The larger of these two, ",
 Cell[BoxData[
  FractionBox[
   RowBox[{"2", "+", 
    RowBox[{"3", " ", "\[Epsilon]"}]}], 
   RowBox[{"3", " ", 
    SqrtBox["3"]}]]],
  CellChangeTimes->{3.6072808748852463`*^9}],
 ", is what we want."
}], "Text",
 CellChangeTimes->{{3.60728088223844*^9, 3.607280898364498*^9}}],

Cell["In conclusion, the endpoints of the synchronizing window are", "Text",
 CellChangeTimes->{{3.607280901253376*^9, 3.607280909999187*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
    RowBox[{"3", " ", 
     SqrtBox["3"]}]], ",", 
   FractionBox[
    RowBox[{"2", "+", 
     RowBox[{"3", " ", "\[Epsilon]"}]}], 
    RowBox[{"3", " ", 
     SqrtBox["3"]}]]}], "}"}]], "Input",
 CellChangeTimes->{{3.607280913517497*^9, 3.6072809360478992`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
      RowBox[{"3", " ", 
       SqrtBox["3"]}]], ",", 
     FractionBox[
      RowBox[{"2", "+", 
       RowBox[{"3", " ", "\[Epsilon]"}]}], 
      RowBox[{"3", " ", 
       SqrtBox["3"]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Epsilon]", ",", "0", ",", ".5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.607280923613674*^9, 3.607280939184965*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVkWs0lHkAh6WTXZGkdZnYRAp1Wo7brlp+NoSkGIrtRE4iimipzdq2VFqX
IssqQjSjdZl1L7ep/zCz5lWuM8a8ub0UNlIum5zTFtt+eM7z7fnyGByLZAcr
KigoeHzif+8NftkjmHS2d4pleVrdo/F3+aFjDMsIC1m5+R53aWipyFJrWFYo
rtV/HZJL4yvbL4ryWE5Qnd2SnJ1FY2e3ZeVvLB/0hViIlpJpCO4IrW+wjiPM
x/2btmgaV+JTziezYpBqdmFTgDON4zEzrCTWVcjHR2Z/fSnH55luhbNzmcgf
MT5hpy9HXbeFi8vGu0jtp2vdgvrgd2WwX5jCRamf57NVZTJEVkXvuP22BIvH
XaSbX/Ri/mYftWJFBSKiirm3TXpBNbeSrm+robU6yT0yQIqwWLc130/XYsrY
vG3hlgTNyhbLvIg6TDp9t1E63IP7HNHShi2N0JntcdXQ6oGD1qN73uV8nMlp
31t8uBs7xIP1rdsIptN1XQadu9Dr4P2m5I0Ah1XyONvrOhC++pREZt4C3Svz
5SaO7XhK+z5SSxUC2i7BkxVP4L3Hb3RsTISmGpM2ZaM22BSk+BYYtSJ5//CA
vFqMkaWM3tCLYvBXZWSHGbZi3K2LoyWkgCZdpRKeCJXZTGyPwROY3uB8ydMW
oihxZZLpT08RdqL+uVpyMxaCDk+FNLXjXxQe0tcWQMXpGrtKuxMTYRqvJpQf
4Wf1cdXRI10475l8bWpDI1Qfb1eQe3SjzkXvwp8762B37sBH4ftuPP6R17ao
W4tc7nXO5twenOSORedZVCHgoFWHsrsE/PU2LzM1eXggC854/E6C5eW+/IgX
RbBtr1ScyJIifVys/lG3AJucQxYynHoRHXvS36YiA9ZW1um1E734EJqJSzMX
wczfaOMkyGC5TpDU+uIUmbb0SmBZ9GH+XH1t6FAa2fpqx9QKaR/0L4+EX065
Q0RGZyVR8XKMzz/IYK3jkrReWRDbiEZwWZl101wJmfEWpCuKaCTvjjAYrq0g
1Qc1HW3PPMN6q2zz2PfVhNNxJe+5Rj+sn0jnjccfkEXxkTiNln5kGKsfPaDW
QEbSyYL66QE4xlhE1ZnwybueXazLaoNwFfE2i9YQEpVpKIjlD4KKyBRwdZqJ
doeh+ljAEDTjfhE0pLUQbxnvg97SEFQvDWhELgvJ/NHC8MHSYRSG2jYGpv5F
SGBFgto+BiNsYTVXUUwau8Ldh/cz8FRXmjNUFpOH9tvWlXsx4He4mhWuFROe
XlGuhy+D266dZXl6YpJD59RcP8aAbf+Mm2UjJmc9r42ujmXQYjqTlXhSTLY7
+Nt9dp9BgYJuXLhETLZWbFgpL2Y+ffZvmKLFxHAjTd0vY3AxrmAxlBETnQ9s
nz1VDHzfbYkJnhYTpXrXUwl8BmunzSMClCgyamaVvVLKIF6+56jnTooM5s8F
SGUM3mQm5XU6UIReU2HEoRn4s9sH9rlQpPOVaeXuYQY2HV5+bj4U4f+hL46f
ZDDXcsRr92mK1GsNXfeaZhB46W6aIIYiNQk5bIMZBu12zzvs4yhSGqQ5LHjL
oKz+xN5diRQpkkg4NxcZ6JwrTWxIpUjBdzfDAt8zuGr5uvXr3ymSW+lhZv6R
wT+zZqse3qHILX2VheXlT/3yHxyt7lHkPw6XhX8=
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVkXk41HkAhx1PhyPbdqixxapJxeM+Wl2fDh02FGpFJRFPItokja6dUIRS
dBDCoLStI1rFYDSuJdcw5ocZXzPmF6mtiJLE2j/e5/O8/3z+eXU9A528lRQU
FOyn+X9/9R5o5b3ZtvFuznwviwwK/bm/eRIGE+VagtKHHAqaasLrhQwL0NFx
C37KomBkvSArhWED84A5NYqPKKxtMc+/xdiLJrNZq5v/osC7z7eMZRzFDO74
e98XFMLY0WevMU7jVJM09EELhaOnPzCiGOGw/5R3S3WKwuwE2/SPQwkYDI4R
5Xl1orjFbMcO7QcYHivMz6nsxP4wcRc/OhNy67OpDUu7EFgQZHhvJAdlhefT
uewuDMd11Ckq5kHJ6NUvSqQLdZU1Fc3rn8JIeoDWtOmGL8t2juu7Itg4RWY7
P+xGpYrZ1JMTxajmT32TK4uRzama1FpRAqOAYp9tx8TYpFmW4ZzLhQKjxHu8
WgzDWvHzGv0KlLNdWSJdCdo3Ob/Pec+D13LrjLAICfxV/QRCk5c4Ve11OFwm
QQPlUqZxnQ/ftCbTvTt64Lx9v1Qur8Iu647Fdo97YJUW7ZLGrMEdwaqEezMJ
eifj249dqkV9Zimz6DgBbdvM0eTXwTck0ZZZR5CfSFituvUIqeyuLNDsRVak
ctTq0AYY61n7eu/sxaiX26BP6SssVeO68c/0Qs3milPBoiZcVCcds3N6cX4u
rS492IyF11emjIl6oV5uoCCyb0F6QPmJiRlSbDiz+zt/fNr9Ruv610iRnBnD
WZ7cCuGAY8AFHync91k0quwS4OJlh9Txe1I8E3rHl38WYOm5RCq6XgrrV/lK
r++04eMnlUO1Y1L8vM1nNN6mHWuitPwH9WWwtLC8WfS6HUWpe6qLXWUgw7H/
cCKEWDFfuCrxqgzvzB0jGGYdUM38qun5Qga9t4aDim0dWPFs625hvwxVzGDB
SbYIRTLDeSZafbjRLvRyYlI4G7dBx9K2Dx+ceTeVqiiYpty3cgjpw9N9C7da
/94J95pEyiGnD5zGsBTZvC7wAsuqvor68KX24Ll5L7tw25K9LkZVjt6bFaNz
A7pxxC2ea7Zejs+t6xiXNcQ4MlV/Ney4HCcTlvFYXDGEvAxJabIcixqXzZW7
S3BJKe1CaoMczsInE0smJdDmvF15+6scw4fT/cXTnU09RAeDDGhUeORFaNgR
sFIGur+50ihp9t/V40CgN5rPaXCj8fdG/R9zHQna7Vh+9w/QeLIkK9nehcB4
QuXb2kM0kqikwhhPgn43A61QDxrBe65IVVkE+xYH7B/zoWGw6dCGWdkEJvGf
2keCaOjlaSmLHhH0DJYmV52msUybqsv+kyBmS/jRhGAaiyec9m4vmP4bWjBi
HkJj5vOdfhFcgtQ9VvODQmlIjS0SldsI1DVYjkN/0BCnDrm3CQlKvDczKtk0
qDl5TA5FcKxMRRp3mUbT29X5W3oI+P5JJ03CaXAf6tSy3xCENpTeCLxK47mm
JMbxHcGq5eEuiKRRGJHkpPuBoCPUTueHKBqPvRb28EYIzPQlubnXaGQJBJy4
LwSEnXXmYjSNtM1xvh7jBLGdJzY6xNBIzrc3NvlOsM7UaqZ2LI27OmqjU1ME
A5GTjf9O+3+GKYEk
      "]]}}, {}},
  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,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 0.5}, {-0.1924500779472167, 0.6735753081632341}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6072809278845778`*^9, 3.6072809395860786`*^9}, 
   3.668613668096455*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["create Figure SM-1", "Subsection",
 CellChangeTimes->{{3.608218078722205*^9, 3.6082180827444687`*^9}, {
  3.668612685420835*^9, 3.668612686978183*^9}, {3.668613710822961*^9, 
  3.668613711413028*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "synchronizing window ",
 Cell[BoxData[
  FormBox["S", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " versus coupling strenght ",
 Cell[BoxData[
  FormBox["\[Sigma]", TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Subsubsection",
 CellChangeTimes->{{3.668612692450664*^9, 3.6686127020665197`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fs", "=", "10"}], ",", 
     RowBox[{"fsTicks", "=", "10"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}], ",", 
     RowBox[{"imgSize", "=", " ", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".95", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}]}], "}"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"2", "+", 
         RowBox[{"3", " ", "\[Epsilon]"}]}], 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]], ",", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]], ",", 
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<coupling strength \[Sigma]\>\"", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
               RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], "]"}], 
           "}"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<\!\(\*
StyleBox[\"b\",
FontSlant->\"Italic\"]\)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
             RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], "]"}]}], 
        "}"}], ")"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "None"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "2", "}"}], ",", 
          RowBox[{"(*", "LightGray", "*)"}], 
          RowBox[{"Directive", "[", 
           RowBox[{"Darker", "@", "Green"}], 
           RowBox[{"(*", 
            RowBox[{",", 
             RowBox[{"Opacity", "[", ".3", "]"}]}], "*)"}], "]"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"lowerColor", ",", "upperColor", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
     RowBox[{"FrameTicksStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
          RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
          RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Column", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<simultaneous regime shifts\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "White", 
                  ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}], ",", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<(synchronizing window)\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "White", 
                  ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}]}], "}"}], ",", 
            RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".68", ",", ".08"}], "}"}]}], "]"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Column", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<regime shift first occurs\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}], ",", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<in master subsystem\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}]}], "}"}], ",", 
            RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
            RowBox[{"Spacings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"0", ",", ".2"}], "}"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".28", ",", 
            RowBox[{"-", ".5"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Column", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<regime shift first occurs\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}], ",", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<in slave subsystem\>\"", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
               "]"}]}], "}"}], ",", 
            RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
            RowBox[{"Spacings", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"0", ",", ".2"}], "}"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{".29", ",", ".82"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.668612999144346*^9, 3.668613003728285*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxN1Hs01ekawPHEdEHSDRunhnY6MaUpEpVHEaGM3FNhXDqj6MZodEe67ShJ
h1IZW0W5laSbXiJU5LaxE/bebPzcfr+YNtUpprNWz6/5413v+v73rOd910fH
d5dTwPhx48a9/nr+f9sFULVFPa7mk6f+J9AoVQj+oQznFOcChKZeqxBvfgOT
Ltj++W4wDbJuejgZzGuGgpolNjazc4Bk3VSYI2kGj6iW5hLePUg1XCz2TXoL
u+6ELEx8/xBc55p2Wf3aAkPnGivk5AiI1IUza7RaoaK4jFSvfAYmh0eCP3a2
QmC47ZRN/aXg6+P4bm9mGxRPXjKWGVwOfpZwOSFABDf4paOa816C5nr35Qbq
YrBQK0x1zq6EgeFNJuJQMSwsb3lQpl8Nt70/2hXWiEFg4Uxn0DXgKPcmJNBI
AkGKO+oaFteBN1/+5+1xEngldC9Uia0Ht8M75c2GJeBs7SGRSgVgoh7W+/Om
dliWwnNP4TZCVG5FwOH8dhCPxgt+O9IEBZGbh5M4HdBpW81XKxGCm6upluK+
DshNEoXX6jRDi4+7q21LB1w/KX9qwf63sF5/elouSEHm59m77XELzH+vfiIo
WQpKVsed7qi3Qc/w1iMj4zrhoGqnsmSLCNQ/0UpNXp2g/NRgXNMGMRg+1s5q
e9QJq8J++VLySQyL8k/75c/uguS0M/y5yRJIyrHMFh/oAi9Xo6rJ9u3Q275S
5a24C/IbAuKfDreDnqAu8otlN5hW5o7vutgBVc/zeKEp3fDj2m2yeCspeL4T
ZDxSoMDYyDjuXpcUXLRWb3H1pUA0FPOCH90JyxXs5mo8paB/6cZozpIukNOL
H8vQ6QG9voW9cvVdYLJu/u5zh3uglPt73e6IbnDl/0+2tqMHzgoa/Jy4FLSO
aqo6ru4FxrkobnwpBb9oNJlHXumFu66zLE339ED69vrIKLk+4FdFXWmf3gvB
hZqb33j1wUj5lgPTn/WChm3qutGSPhDHEZnqzj7IPl9mZz+/H4ZrV3AiVfoh
p8VY0h/VD7sv6BaFP+mHRO/OM1upflCv0lWVeg1AX7uoUtd6AJwbMj9rjw7A
Au4+HdXUARjy/jOo5RYNDlcdeJU/0EB8cqJV1jMg0thzqtWXhv/OUZKNjTFQ
yCQHF7+kISqC98dpzjEgHvJJimNCMLDYumriDQYcFE4cqL5IQ9HlEuMYTihI
lxpHXKsRwu+OxyWK4QxcVDkY2XiQBomhUZJ8PQMTPsWFVuTSYFazNPc8xx/C
dBxkgQ+FcEl4Ke+MLwOP44d/aN5Fw4QH63ZEP2FA/4jyh1d8Gp7cnFMe0cOA
JFR9sLSQhkWmM69f4bgAJHoaVmcJIVP7evIGdwbsG/PKNwfSoPHZycX6DgNP
il883HCFhtd9C3LXtDEQUiC4a11Awy2/WW1F7xnYuMTT0LKUBjWlhtg8jhWk
1ftUyqUL4b65/rTsjQwk7Dufrr2NBt3Zwoobt7/O75d+SeUSDcIpOVy+8Ot+
PPLiJ96jIS/6kpMOw0BS/XJVhWIaUlafC/T5xMDEuAMOkeU0dGe7+Yo4RuA2
2KGpdV0Ij6qD7NscGDCrkOMc8qdBL0dTvimdgYw8daVdiTS0XB30qm9g4NcM
XYXf7tLwQK31zMZ+Bsy56Uf9CQ3X6+r450YYyJT0Pm1/TkNy7gbDxV8Y8LVQ
btN5QQN65pO91/Kfnp0+IRf9dlET65naobN7rJMbWM9kuweVvbkC1rOfgsWu
TXl1rGfl0a9tZ3BrWc8CTXXefNxazXqmnMIPdTGuZD3zVrfYsVPrBeuZG+8Y
6VhWxnqmtrw8UDyjhPUsXHJnz3K9ItYzTZPgjGuxj1jParVDtFqd77GepY3E
xaVOzGI9K0tcZpUenMJ6ljE0JSbL7Cjr2b48c+1zfTEEPXP+K5DjNson6JmR
DTffMzOHoGeyt3s//6h/n6Bnsr1zqASfJwQ9c5tkrqyvVkzQs22zd76OMCsl
6JnAZHjJ4QXlBD1LsPBf+XjyS4KexaoKmN3/riLo2eBgVWrnpBqCnpmQu7rV
ybWE9eyYosxjQT1Bz57ZxWoYXxYQ9OzD++lxG35qJOhZW0qJ54PUJoKe7bDq
DiuZ9oagZwmvlCjFlGaCnm132XIrbUYLQc9ERVnF+2+0EvRsbJGBPn+2iKBn
/i9jhvJtxAQ909h1fP+DqRKCnqXMnGXg/1JC0LMPBtwJ2RfaCXrGJUGK6zZ3
EPRsnrO9CW+mlKBnIx63YoNapQQ9u+p9TWUksZOgZ5z2qoJaxy6Cnvk1HuTZ
aXQT9CzqVfGJoLpugp5ZhnMcjVIpgp7JNM2kJ6gm1jO/1IEdjmYUQc9u+zfO
8Fr73bP395vCvSZQBD0TxMh7rdlJEfQs+lSawYuQ756tLK48GtDfTdAzrcQP
/rYuFEHPeFEq7itOUgQ9++syr2D09HfPvK1tFAJF3QQ9g3+FUOttKIKeZU86
1Wx+gCLoWeBofL1JAkXQM/15Rw4lXfzu2eBJhbJeYTdBz+q8F996bUER9GyN
vXVyUShF0LOPFhsTHsZSBD1reNw47f5liqBnz3v+EG9L/u7ZCv2OG7cbugl6
xpGbyju7iiLo2el+7qGIPRRBzyzbDcP28yiCns3Zmj8UlkgR9CxG88Ni2VWK
oGd6VkVb/ukZNnqGjZ5ho2fY6Bk2eoaNnmGjZ9joGTZ6ho2eYaNn2OgZNnqG
jZ5ho2fY6Bk2eoaNnmGjZ9joGTZ6ho2eYaNn2OgZNnqGjZ5ho2fYrGffGj3D
Rs+w0TNs9AwbPcNGz7DRM2z0DBs9w0bPsNEzbPSM3f83z7DRM2z0DBs9Y9/3
m2fsf/zmGTZ6ho2eYaNn2OgZ9t/kopwo
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 
        NCache[
         Rational[2, 3], 0.6666666666666666], 0], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84,
          85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
         101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 
         143, 138, 134, 131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136,
          152, 146, 141, 153, 147, 154, 127, 50, 77, 70, 76, 64, 69, 75, 59, 
         63, 68, 74, 55, 58, 62, 67, 73, 52, 54, 57, 61, 66, 72, 49, 48, 47, 
         46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 
         29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 
         12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 51, 53, 56, 60, 65, 71, 
         1}}]]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}, 
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], 
       LineBox[{155, 205, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 
        166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 
        180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 
        194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 206, 204}]}}}], {}},
  
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     BoxData[
      FormBox[
       TagBox[
        GridBox[{{
           StyleBox[
           "\"simultaneous regime shifts\"", {FontFamily -> "Times", 
             GrayLevel[1], FontSize -> 10}, StripOnInput -> False]}, {
           StyleBox["\"(synchronizing window)\"", {FontFamily -> "Times", 
             GrayLevel[1], FontSize -> 10}, StripOnInput -> False]}}, 
         GridBoxAlignment -> {"Columns" -> {{Right}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
       TraditionalForm]], {0.68, 0.08}], 
    InsetBox[
     BoxData[
      FormBox[
       TagBox[
        GridBox[{{
           StyleBox[
           "\"regime shift first occurs\"", {
            FontFamily -> "Times", FontSize -> 10}, StripOnInput -> False]}, {
          
           StyleBox[
           "\"in master subsystem\"", {FontFamily -> "Times", FontSize -> 10},
             StripOnInput -> False]}}, 
         GridBoxAlignment -> {"Columns" -> {{Center}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.2}}}], 
        "Column"], TraditionalForm]], {0.28, -0.5}], 
    InsetBox[
     BoxData[
      FormBox[
       TagBox[
        GridBox[{{
           StyleBox[
           "\"regime shift first occurs\"", {
            FontFamily -> "Times", FontSize -> 10}, StripOnInput -> False]}, {
          
           StyleBox[
           "\"in slave subsystem\"", {FontFamily -> "Times", FontSize -> 10}, 
            StripOnInput -> False]}}, 
         GridBoxAlignment -> {"Columns" -> {{Center}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.2}}}], 
        "Column"], TraditionalForm]], {0.29, 0.82}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox[
      "\"\\!\\(\\*\\nStyleBox[\\\"b\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", {
       FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
       GridBox[{{
          StyleBox[
          "\"coupling strength \[Sigma]\"", {
           FontSize -> 10, FontFamily -> Times}, StripOnInput -> False]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
      TraditionalForm], None}},
  FrameStyle->GrayLevel[0],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  FrameTicksStyle->{{FontFamily -> "Times", FontSize -> 10}, {
    FontFamily -> "Times", FontSize -> 10}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->226.2047244094488,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> True},
  PlotRange->{{0, 1}, {-0.7698003353541839, 0.9622504368667176}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.66861300406098*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Make figures showing how the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["b", "break"], "(", 
    RowBox[{"\[Sigma]", " ", 
     SuperscriptBox["x", "*"]}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " S-shaped curves stretch as \[Sigma] increases:"
}], "Subsubsection",
 CellChangeTimes->{{3.668612840291003*^9, 3.6686128573054247`*^9}, {
   3.668612914786778*^9, 3.668612942753951*^9}, 3.668613023900302*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", ".7"}], ",", 
     RowBox[{"x0", "=", "1.6"}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", 
      RowBox[{"(*", "\"\<\\t\>\"", "*)"}], "\"\<\>\""}], ",", "masterSNBs", 
     ",", "slaveSNBs", ",", 
     RowBox[{"\[Epsilon]0", "=", ".1"}], ",", 
     RowBox[{"\[Epsilon]1", "=", ".2"}], ",", 
     RowBox[{"b0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"c0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"fs", "=", "10"}], ",", 
     RowBox[{"fsTicks", "=", "10"}], ",", 
     RowBox[{"imgSize", "=", " ", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{
       FractionBox["1", "3"], " ", "2", "*", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", 
     RowBox[{"pointSize", "=", ".035"}], ",", "syncWindow", ",", 
     "syncWindowLargerCoupling"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"coupling", "=", 
       RowBox[{
        RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"slaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSlaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";", 
      RowBox[{"Print", "[", 
       RowBox[{"N", "@", "x0"}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"y0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"y", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"slaveFlow", "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                   "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
            ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "y0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"masterSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"a", "/.", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      RowBox[{"Print", "[", 
       RowBox[{"N", "@", "masterSNBs"}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"slaveSNBs", "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{"b", "/.", 
         RowBox[{"NSolve", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}], 
              "}"}], "/.", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", "\[Rule]", "x0"}], ",", 
               RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
            ")"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yFixedPoints", "=", 
       RowBox[{"y", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"zFixedPoints", "=", 
       RowBox[{"z", "/.", 
        RowBox[{"Quiet", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"slaveSlaveFlow", "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"y", "\[Rule]", "y0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], "\[Equal]", "0"}], ",", "z"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"syncWindow", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Last", "@", 
          RowBox[{"First", "@", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"computeSNBsForB", "[", 
               RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "/.", 
             RowBox[{"a", "\[Rule]", 
              RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Part", "[", 
            RowBox[{"#", ",", "2", ",", "2"}], "]"}], "&"}], "@", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"computeSNBsForB", "[", 
              RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], "/.", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], 
        "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"syncWindowLargerCoupling", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Last", "@", 
          RowBox[{"First", "@", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"computeSNBsForB", "[", 
               RowBox[{"a", ",", "\[Epsilon]1", ",", "coupling"}], "]"}], "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "/.", 
             RowBox[{"a", "\[Rule]", 
              RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Part", "[", 
            RowBox[{"#", ",", "2", ",", "2"}], "]"}], "&"}], "@", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"computeSNBsForB", "[", 
              RowBox[{"a", ",", "\[Epsilon]1", ",", "coupling"}], "]"}], "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], "/.", 
            RowBox[{"a", "\[Rule]", 
             RowBox[{"First", "[", "masterSNBs", "]"}]}]}], "]"}]}]}], 
        "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"stretchFigures", "=", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"\"\<(a)\>\"", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                  "}"}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<(b)\>\"", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                  "}"}]}], "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Show", "[", 
                RowBox[{
                 RowBox[{"Plot", "[", 
                  RowBox[{
                   RowBox[{"Evaluate", "@", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"computeSNBsForB", "[", 
                    RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}],
                     "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
                   RowBox[{"AxesLabel", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
                    "Italic"}], "}"}]}], "]"}], "&"}], "/@", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<a \>\"", ",", 
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\))\>\""}], 
                    RowBox[{"(*", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\)),\>\"", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\< \!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", "Bold"}], 
                    "]"}]}], "}"}], "]"}], "*)"}], "}"}]}], ")"}]}], ",", 
                   RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", "Blue", "}"}], ","}], "*)"}], 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", "Red", "}"}], ","}], "*)"}], 
                    RowBox[{"{", 
                    RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed"}], "}"}], ","}], "*)"}], 
                    RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
                    "}"}]}], ",", 
                   RowBox[{"Filling", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "2", "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Blue"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}], "}"}]}], 
                    "}"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"3", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "4", "}"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Red"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}]}], "}"}]}], 
                    "}"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".65"}], "}"}]}], ",", 
                   RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], 
                   RowBox[{"(*", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
                   RowBox[{"ImagePadding", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", "25"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"Ticks", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}]}], "}"}], ",", "None"}], 
                    "}"}]}], ",", 
                   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
                   RowBox[{"Epilog", "\[Rule]", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Framed", "[", 
                    RowBox[{"\[Sigma]", " ", "==", " ", "0.1"}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".2", ",", ".2"}], "}"}], "]"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"x0", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "Blue", ",", "Red"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"a0", ",", "b0"}], "}"}], "]"}]}], "}"}]}], "}"}],
                     "~", "Join", "~", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"First", "[", "masterSNBs", "]"}]}], "}"}], ",", 
                    "syncWindow"}], "}"}], "]"}], "]"}]}], "}"}], 
                    "\[IndentingNewLine]", ",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}]}], "}"}], ",", "Left", ",", "0"}], "]"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"Mean", "@", "syncWindow"}]}], "}"}], ",", 
                    RowBox[{"(*", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.23"}], ",", 
                    RowBox[{"-", ".5"}]}], "}"}], "*)"}], 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.3"}], ",", 
                    RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}], 
                    "\[IndentingNewLine]", "}"}]}]}]}], "]"}], ",", 
                 RowBox[{"AspectRatio", "\[Rule]", 
                  RowBox[{"(*", ".8", "*)"}], " ", "aspectRatio"}]}], "]"}], 
               "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
               RowBox[{"Show", "[", 
                RowBox[{
                 RowBox[{"Plot", "[", 
                  RowBox[{
                   RowBox[{"Evaluate", "@", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"computeSNBsForB", "[", 
                    RowBox[{"a", ",", "\[Epsilon]1", ",", "coupling"}], "]"}],
                     "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "/.", 
                    RowBox[{"Solve", "[", 
                    RowBox[{
                    RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                    "]"}]}], "]"}]}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{"-", ".7"}], ",", ".7"}], "}"}], ",", 
                   RowBox[{"AxesLabel", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
                    "Italic"}], "}"}]}], "]"}], "&"}], "/@", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<a\>\"", ",", 
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\))\>\""}], 
                    RowBox[{"(*", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\)),\>\"", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\< \!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", "Bold"}], 
                    "]"}]}], "}"}], "]"}], "*)"}], "}"}]}], ")"}]}], ",", 
                   RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", "Blue", "}"}], ","}], "*)"}], 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", "Red", "}"}], ","}], "*)"}], 
                    RowBox[{"{", 
                    RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed"}], "}"}], ","}], "*)"}], 
                    RowBox[{"{", 
                    RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
                    "}"}]}], ",", 
                   RowBox[{"ImagePadding", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Automatic", ",", "25"}], "}"}]}], "}"}]}], ",", 
                   RowBox[{"Filling", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "2", "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Blue"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}], "}"}]}], 
                    "}"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"3", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "4", "}"}], ",", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Lighter", "@", "Red"}], ",", 
                    RowBox[{"Opacity", "[", ".05", "]"}]}], "]"}]}], "}"}]}], 
                    "}"}]}], "}"}]}], ",", 
                   RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
                   RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".65"}], "}"}]}], ",", 
                   RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], 
                   RowBox[{"(*", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
                   RowBox[{"Ticks", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                    "]"}], ",", ".05"}], "}"}]}], "}"}], ",", "None"}], 
                    "}"}]}], ",", 
                   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
                   RowBox[{"Epilog", "\[Rule]", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Framed", "[", 
                    RowBox[{"\[Sigma]", " ", "==", " ", "0.2"}], "]"}], ",", 
                    RowBox[{"Scaled", "[", 
                    RowBox[{"{", 
                    RowBox[{".2", ",", ".2"}], "}"}], "]"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"x0", "\[LessEqual]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "Blue", ",", "Red"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"a0", ",", "b0"}], "}"}], "]"}]}], "}"}]}], "}"}],
                     "~", "Join", "~", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
                    RowBox[{"Line", "[", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"First", "[", "masterSNBs", "]"}]}], "}"}], ",", 
                    "syncWindowLargerCoupling"}], "}"}], "]"}], "]"}]}], 
                    "}"}], "\[IndentingNewLine]", ",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                    RowBox[{"Darker", "@", "Green"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}]}], "}"}], ",", "Left", ",", "0"}], "]"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"First", "[", "masterSNBs", "]"}], ",", 
                    RowBox[{"Mean", "@", "syncWindowLargerCoupling"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.3"}], ",", 
                    RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}], 
                    "\[IndentingNewLine]", "}"}]}]}]}], "]"}], ",", 
                 RowBox[{"AspectRatio", "\[Rule]", 
                  RowBox[{"(*", ".8", "*)"}], " ", "aspectRatio"}]}], "]"}]}],
               "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], 
           ",", 
           RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
           RowBox[{"Spacings", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", ".5"}]}], "}"}]}]}], "]"}], ",", 
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Directive", "[", 
              RowBox[{"lowerColor", ",", "Thick"}], "]"}], ",", 
             RowBox[{"Directive", "@@", 
              RowBox[{"{", 
               RowBox[{"Dashed", ",", "Black", ",", "Thick"}], "}"}]}], ",", 
             RowBox[{"Directive", "@@", 
              RowBox[{"{", 
               RowBox[{"upperColor", ",", "Thick"}], "}"}]}]}], "}"}], ",", 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{"\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) = \!\(\*SubscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"upper\"]\)(a)\>\"", ",", "\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) = \!\(\*SubscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"lower\"]\)(a)\>\""}], "}"}], "*)"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{"\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on lower branch\>\"", ",", 
              "\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on middle branch\>\"", ",", 
              "\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on upper branch\>\""}], "}"}], "*)"}], 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<lower \>\"", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
                 "lowerColor"}], "}"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<middle \>\"", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                "}"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<upper branch\>\"", ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
                 "upperColor"}], "}"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on its \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                    "}"}]}], "]"}], "}"}], "~", "Join", "~", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#", ",", "\"\< \>\""}], "]"}], "&"}], "/@", 
                   "#"}], ")"}]}], ",", "\"\<\>\""}], "]"}], "&"}], ")"}]}], 
           ",", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"LegendLabel", "\[Rule]", 
              RowBox[{"Placed", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\) on its\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], 
                   "}"}]}], "]"}], ",", "Left"}], "]"}]}], ","}], "*)"}], 
           RowBox[{"LegendMarkerSize", "\[Rule]", "7"}]}], "]"}]}], 
        "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.618921765886945*^9, 3.618921771174151*^9}, {
   3.618921857643096*^9, 3.618921973680299*^9}, {3.64165710718009*^9, 
   3.641657111153223*^9}, {3.641657144103413*^9, 3.641657147235881*^9}, {
   3.6416573144414062`*^9, 3.641657329704027*^9}, 3.6416574139387493`*^9, {
   3.668612768997491*^9, 3.668612797498083*^9}}],

Cell[CellGroupData[{

Cell[BoxData["1.2491518109200068`"], "Print",
 CellChangeTimes->{{3.618921915494875*^9, 3.618921974079619*^9}, 
   3.618988201024332*^9, 3.641657111847433*^9, 3.64165714772771*^9, {
   3.641657319082217*^9, 3.641657331163321*^9}, 3.6416574146975*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3849001794597505`", ",", 
   RowBox[{"-", "0.3849001794597505`"}]}], "}"}]], "Print",
 CellChangeTimes->{{3.618921915494875*^9, 3.618921974079619*^9}, 
   3.618988201024332*^9, 3.641657111847433*^9, 3.64165714772771*^9, {
   3.641657319082217*^9, 3.641657331163321*^9}, 3.641657414703966*^9}]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       StyleBox[
       "\"(a)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
        False], 
       StyleBox[
       "\"(b)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
        False]}, {
       GraphicsBox[
        GraphicsComplexBox[CompressedData["
1:eJx112k4VO0fwHFbm5REEVKULVI9VOLhh0gRhUJ2QiXZsqVEpVK2KGtJlEhS
0UI9dZSShGbMOTPHnBkmy9grkVKp//yvK/fzout5NS/mvmaue+Y+9+f3VfYJ
tvcTERISChcWEvr/65UMSSd/fz5mflzdZu92Hiie4vpvPtmDBRTSK42teHBQ
s2vEIL0bc5Jc5hW+kQcjtR51u251Yf1HHV4LG/GgdS1/6GNzJ7b9G63iwjoe
pLoUp+dQ77DnO0ZKj6ziQehB9pHACR4Waz6v86kGD1b/bdm1XYyHcbze/GWj
zIOiF3EbXdXbMa1Y4QvkIh6smXCzOeDPwRqyuhpq5/MgKuWGzZU4NlZ/qGB6
rzgPZot3srVqSKx0dbNngCgPfE3/kiv9zsQaZltVMb90QDg5Ym0hR2BhN6Zt
0e3tgFanfAnDnQys9EK/vC2rA3rXVdfZBdIxU/yBRPHLDjhRSOyslHuLXRuw
CWJVdQCjeL5xWO4bbMN8PqOxqAPS9+lIh7e8wl7MyZjzKq0D+ieVRdTNX2DZ
AV2L42M74LbdGFchqBZ7Hhc3a/6+DhBZN6Tb7VCDieYRdfY7OoDaV9DxaWsl
lmt7INrapAOUNyxtFHcvxlZe1i19qdkB5IkTI7SkZOxe1JvOXukOkEs4bnbQ
OAlcqpqv5Uy2g5Wq+gq1kWKomxi4vbW7HdJ11VM/z6iEk5lOvolv2qFoZ+xK
vKIGzluGXDe63Q62mwymf82phdRlo/p16e2wWqqdwhe9AAuNkoeHwtvhmuLV
F8H8V6AndCze3b4djjqdO78r7A1EsGcL0Ve1Q5OirYjPUAvc0jJf9ES8HRzT
F5rJ7KLDlaqUQ8+4XJjQkh+/rMAApf2f4eQtLvT4V1TNFCMg/IpdfUAQFxJq
HLsXNTFBcVfqM8YSLrjb9foaJJHQ8HCxofdxDsSdmflhQwgbbnVO76915YBH
8rgH63MPtna0KdHRhgelHnKXdhm0wolkm9CUei4Eb+nGGZI4/KN826o+jQt6
50S2SvURoCEvI1RkxYWQaQXLy26yIMQh5a+ffRwIGv6i+Si2DW7euhJR7yT4
PklRSkmHj/WVG2nxbHnwK0r2w4PXdCjtn6vk1sqFewZxfjWZDGCbii+eWcCF
5MPkL4lIAtzE1yzVc+dCTEeMWKchC8SiCrXvT+eCf0GwZYxYGwScix19sZMD
K5y3mL8/g8PKXazagjgucK5p5yxwYQJpv9DCZZ1gvVadeZgCCW4hfEbPcw5E
GsZLfBtvAx4dFr3cxYF5drNyzaz42LDJ9MBr23hQJpad45dOh2vO93cokFxw
rGpaWe7MgPXK51Ldr3NBP7SuTdyIgHGaS+S4HxfimvaOTYqywBaXK3kozQWf
aC1H9isSUh5kKNTt4EATLUvi3VYc7omKjdJPcyExTzZMWpkJz+pLvjw24cJ+
ubt6qV0sGF0zGhLI4kCYzN8KLo/aYDz6gkq9MwciPiXL1B9kQcreIxnnv3Ig
oL5KX960Dc4MS0jVO3LAx5jY4ehAgg+f02p0gwMxPi8mc3XZcFdt3KXOhQNk
qET0Dmc+5qubsHe64H4ReuM4/HcEHWKwjMgRNhdKg0fTVQ0YsN37w/D4DS7M
HaquP7OUgJs5tJ4NAVwQqfMcmt3HhE0KnNsdi7ggabPF06mIBAsVI91lgv0p
pTwJcdHBYejk4jOMJC54LJjjmSHGBP+EgqAnFlx4P7dU+9IrFuSNJ+TH8zjw
UShPRfxSG8gKT/hsEuzva98JCdyJBS8rTt5v+sWBvkopk0aVNpDKjsm1EOyv
W69pq+96EtR+1gR/eiBYb6syzWoBG/RTr203F+yvO6nZdgWfhEeP+5XMBeeh
T/nR3/G/WOCl+XHycjMHxtTbpcvINkjtzr9nIfi/h9p2rgnwbIMrB7xcNgnO
J8+y3W1zMAmNw8NzH+Zw4EeE/3i/HRue7PXQNxM8H3+LpO5x9+RjUkY09/WC
30+r4kG2xh46zC8r2eDC4QKtebp55woGKJNPw7CbgvN6Q9doy3wC8iMYuTsC
ubDR2LVvPpsJSk5D/R2KXFBy1ff2ySMhtaHcSy+YA5sGaSqyS3Cwvzn8qCWF
C69bTxN24wSUvq9Zp7uZC6vOXtW4WsMCs6M3j9C6ObDBN24mtYUFtEEHfytR
LqjeebV5vyYJS3ef+7noieB5yL+vf3qEBZ3KnakFrRxQrmtz3uZNwrfo7SYh
hRy4WkPb7m5BQmbC4H63Oxy43NTpZRpLwmn78oySVMHz22jb8c6Hjwm7GDC3
CfZbW8APVPKiQ4Jqzay5gvun+8i8fJNlDJDqybxdVM6F1TNDv2rMJgAX3wZe
BwTvf3f2X8hgQtvgd2dXJS4YMyV3t2SQoLuSZS4RwwGXPPbhCFkc6jm9nxtT
uXB0zctzaz4QYIJhUfu3CH5Py8Lr1ytZIH1wU+AgnwNs5dhT7WYsiLmfKCMy
jQv1B17WB6mQ4KHG2Sdey4FGl6oHZwdYUHS2foEEwYHn8SymvQsJM2Y8Egop
5oB5VEuLlzEJsXkuJQ+qOABnee3mkSQ835jU1nWeA786vDzHC0k4vvpr44Dg
PMZP47Ct95IgrvrOeF0+B37O7ek0SiBhXEosqzORg7xb4cAyIgTnfsq7Q53E
y88kA3mXFjj0oCifgbxzvHA0LWMvA3l3v+TioXxDBvJu+eNARbWFDOTdD8bY
Tq2RVuTd8gpZBXd6K/LuwM6Ifqu7rci7OT2m0fTzrcg75c8yKeShVuTdXLnW
QiXPVuRdmO8eA2fLVuSd6NPdiaJrWpF3tYNj43WLWpF3EpjTvh6xVuSdGJZp
L/uBjrxzTTz6PIhNR97JHxmMqn9FR94VXXe/pX6PjrxLlmKoeBbRkXdW+WO3
/AX37pR32hp7ZkfH0ZF3Dc0VoBlMR97NX3VMeMCdjrwrb16ZudqWjryjPEOm
KwIdeSc3Q9dcYRUdHNqMhnh6HBD1PmV/ZCkdQl6LjvovaQe7wT7bL/Po4PuL
XH5UiAeTwhe9xUXo0K/66IziO8G9Kd1e6j1Gg4xLuw+W4e/AGv9sRvbQQGZJ
9kKJ6k7QaS3EEkga6L146v05qwt4EolHyt/QILqmYk1LYjdccouTnHhCg8xH
Go9jAnogoGLCzP8uDX7Pf/DixJolOVdpUK16dmIfm4WFRbHPjuwT3KsS8yvH
ZzGxS7JugRd/MWBZjqV27Toc83HNod2qYYDbqxV7671asQdKpkd+HGNAnpri
mZC+Hpgz2JARVUaDTtl1A41bSKxXfdVFoywcNNRV/N4eZ2ILrz7+1rIAh63V
iv8cL8Gxog93A9saGJAt6ftIiGrFHBr374xLY0BOiEpRxI0e0DzaNDl0iwap
uu0zZ+1nYTYmey6f2YLDnU/CvxanE9jFvx73xQwyIJ+zIGS/Oh9+EO3j00po
MD4v2efwMRIbTsgq16rBYZNe2VNDjIkFnU/26lXGwWvzDLHuDhyrZJ3trqcx
4F5VfNdiOQbG9z9cdjiLAVmZxTpfz/RABhGw/MZtGlzV1jtWU8TCMl843m5x
xqHl1xnns80EFi5/IdTuMwMuCef+GJ7Bh57yAuunpTRoVuKFys8nsQ6hzOaW
WBwOGSSec9ZlYc7Yz8FiQxwuP8zo6tvEh917tM/bFtMgfs7Dyw75JHb35obK
DjYOhEHQYCiXiTmXFwuZauCCueNHicwPHNPoOf2awBlQN00yunwdAwtjnSif
lceAhRq94RtieuB5Yf6F03dooKPp+ST9KQs799Hy7SJvHNyn256sHSSwFsNX
Unu+MUDhAtts1dceSIqj0/Ju0MBZYXbFp5UkFlOYmG4mmGvE1lc1rd7Gwm5O
CzYNNcNByQrXXLGeD2r2E2orrtMgUMZb7aofiRn5fNFOK8bBTOX+WrNxFjbv
bEBu+EEclqja5Zc48kHYwcbw4DUaKBrThFOGmNg/kWb7T2jhEKz3ZUJbnMAi
87RzupgMaNRxfD5qwcDk9z5pxC8ywHFkhpxLWA/I3hTtHhfs52BJOBXbxMLY
imEBYX44XJt15yL1jcBeHJplOfmDAS7u33u2feyB6FdrVswSnL/83KVN7YYk
9ivbO+tkGg5b7jcMKLqzsOOnwv4atcDBQ/pzk9UqPrTa+8/IEeznbkakedpB
EktuT7iXV4FD4pVGBx0xEqtmCe86ES1Y/z7UpMGWD0VNzzp4gv0YphXG70kj
seCEXvV99TioZ1nPfOhEYs5M7+un83Hgua7+dspDcB5uvC6eJlhfC8Ip8mNM
TCojx2XFShzCTo2pbJAisJ8L4pWHWAywrTu0J9uGgY1iDv6PLzFgfGfOvoCg
Hrhnn5yuI3hes/zjBg4yWBgp5zhUvgeHzbPfqe0TYWJnZ/s7Wf9kwLdnSeu9
hnrASi3LzUSw/1pnLQo3IzGTe2Z76Rk4BIYzJub7srDHa4vrHlvi8DPqpJKr
Fh80WkwmWwT7x+2OOZyMIbG3Qg1216twKPMkfJbPJrHK91Zflx4WrLcXySCt
+PBAKOehrOC8etiWp7lnCd53m8UXeouD1U5H2VseJKbyRlUnpBCH+Npa62wX
PtjU3Ar6W7D/qolrkrpFJGZl03j5wgcc5GhZoaGJJKZPufjtwHAw+VJQGunD
h1WHr/BaBPfRlHfxB5aojmAE8u60id+McDUm8s7wTYB5eSgTeUftnh3jV81E
3skZOOlofGEi72R+DauWr2Qh7yoHairL/FjIuwdVFlwsm4W82/jFeplJEwt5
52OjyY7+yULeVSc+nXdIm0TerV9o2FTtTiLvrD/OmXATuDDl3QJXyX6hahJ5
94HvFZzcRyLv3kWlb161sA15R700WLx5cxvy7uzSt/L7Y9qQd9IaFXy3sjbk
3SVVnz5ZXhvyLoznPRoow0beHRadue2QFRt5d/2jdfruM2zkXfL5S1nvX7OR
d4M/DthulqeQdzeLE7CcaAp5R7tXiS9R/bfvyn/33ZQnMZqLCqxjCeQJ7Zbt
++AvBPLku9vF+iIbJuo960/mMq4f2aj3wr6zdCYsKNR71u80BkUeUn/03pQ3
+JOIQjMbAnljNjvy2UIugbxxyavixhswUf+J2/ZOr+ewUf+NQ2pPxCoK9d+z
oQOmCZnUH/035ZHoNJ2MiEIC9eDSF+XdzWIU6sGBdyre2h4U6sGS6x9auDzq
jx6c8ip3nelklAaBvNLyet873EIgr6pTHgblrWaiPqxW7bY3Z7BRH3plb6RX
L6dQH8o77Zi4eIpCfZj8uw+nPNssXtBme45AvRhD+7A/8hsb9WL/p6YSwo5C
vXh43eHzkY3UH7045Z3vidsb0/YQqB+b0t/tOltM/Wc/7lq2S8PvB4X68c7v
fpzy8MDCtWrMaQTycHTJ0avJrwjkYXI1lpOmxUQ9SX51V7/QwkY9Gb52WVTU
Egr1ZEuCaVJ8HIV60vx3T055yes38pY+TaC+9LtjnOL9mY36smj7mGqbNYX6
Ukb/n0uhtdQffTnlqaXC3APargTqTb3ICGXPfOo/ezMT65vxbJj6ozenvH27
avVlEcH//F/9uTcs+6geQf3Rn1M+y51Oosgw4j97dJrSgBI1598e/ed3j075
/e3mYFJ9HYH89olTHBPVZKIeHVuaJGXSxEY9elzxSRlXkUI92v9Xw9HpRyjU
o6cUdii26HOQ7+Kx56vNjhOoT6mOiymcT2zUpzs2+T7o2UyhPrVNurLhxmMK
eR+kpzkZuoNAvRq0pmTT3lwK9eqjh6wc5V4Kef89YeJ7nC6B+rXgNfPx47cU
8v9j9Lin/QEC9ayU8XaPMjEO8r/BfGNanTyB+nby1FVWyxiF5oEByxiHYxYE
6l3nEv2FPnIcNA8sYvu85T4j0DxQfd038R91Jurd80XBwrJv2Kh37x2yDMlQ
oFDvZh5PU7KNoVDvavidTLi/koPmhbs2ueub4gjUv/fWb/e+OMJG/TtWtDg3
yJJC/evruE3IvoZC80Pgp+2xA9sJ1MOSuXnfD2ZTqIfvBLes/dxFoflB3rqL
1NchUB/v0naXkW6m0DxR0Ww1EB1AoF5+41DdEiTEQfPEd5aF50cpAvWzbcKr
av0RCs0X+dLsNe6mBOppyUknmYH5HDRfnJbMvvrlI476Wv1ivafztn/7erXc
O82lszho/jB+UtIgrUKg3jYwYzf4KP37eeFKtwNniPLQ51XG7Zx0NabD/wCs
cgKZ
         "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {
            EdgeForm[], 
            Directive[
             RGBColor[
              NCache[
               Rational[1, 3], 0.3333333333333333], 
              NCache[
               Rational[1, 3], 0.3333333333333333], 1], 
             Opacity[0.05]], 
            GraphicsGroupBox[{
              PolygonBox[CompressedData["
1:eJwt0GlPDwAABvB/3suRcoaibNFWjLZkMrMVi8nWZiulk6F0u3J3iEjkA4gl
0zpWy8S0LMMyLWNlWZZpfIt+bV789rx7tueJyC1JL14QCASCeM5fXvGHb/yj
ixnGGWGW77QzzReGGeA3X3nPY6YY5S19vOAXY7zjJZeY4AODdPOMNn7ymSH6
6aSGST7ymh46eMJlfvCJN/T+3/WUK1zlGte5wU1qqaOeBm7RyG3u0MRd7tHM
fVp4wENaeUSFE8/LHErYxEVOco6jXKCIKvZxgmqOUDDfQQIZFFLJHg6RRxmx
7OUw+ZSzjV0cIJtiotlBMgfJpZQtbCWJ/RzjDFFsZzdpHOcsm4lnJ6lkcZqN
xBBHIilkcooNRBLBetaxlnDWsJpVrGQFywkjlGWEsJQlLGYRwSyc3+vnOZo6
URY=
               "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwtz2cvgwEAhdHXpvZo7VEzVqoEsYKIWEGQSMRoldpae/55p4kPJ8+3m9xo
KrufyQuC4IFc7zhmjRliDJJPAYUUUUwJpZQRopwKXg1VahXV1FBLHfU0ECZC
I00000IrbbTTQSddROmmh3tOWGeWMYbo/f9xygZzxBnmiXO2WWSSPh45Y5N5
xhnhmRQ7LDFFPxkSbLHARO4vl+yxwigvXLDLMu9cccg0b6Q54JMbVvngmh+O
+OKWXwbIkuSbP0D4G/I=
             "]]}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwN0LVVRAEAAMFPKbRECRQABIS4u3O4u7vcHe7u7m5VMMG8zTc2PjEuISYI
giR+iPDJJb+M8cYZm3xxRR/PHLPGHO+cs0UnDxywzDTDvHDCOvOkcMMOUcbp
p4tHDllhhhFSuWWXBSYYoJs07thjkUkG6SGdDDLJIpsccskjnwIKKaKYEkop
o5wKKqmimhpqCZFsYp3W00AjTTTTQitttHPPPktMMUQvTxyxyiyjvHLKBmE+
uGCbb675o4N/eKpQNg==
             "]]}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             GrayLevel[0], 
             Dashing[{Small, Small}], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwVzdVKBAAUBNBdAxMTAxMDRUwMFBERsdu1W9fOVZ/8Z7s7jg+HuTAwtyQc
CZ0EA4HABf9HNQfMcEYeO0zSwRFzpLDJGK1UsMcUXcSxxhCNlJDFpT8Lsoca
8kklnivdouyllgLSSOBad8Mtd9zzwCNPPPPCK2+888EnX3zzwy8Be0GiWKKP
OgpJJ5F1hmmilGyiWaafeorIIIkNRmimjBxiWGGABorJZItx2qgkmTCjtFDO
LiE6yWWbCdo5ZJYq9pnmlG6OmeecWFYZJMIfzjstkQ==
             "]]}}}], {
        AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            StyleBox[
            "\"a \"", {FontSize -> 10, FontFamily -> Times, Italic}, 
             StripOnInput -> False], TraditionalForm], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\))\"", {
             FontSize -> 10, FontFamily -> Times, Italic}, StripOnInput -> 
             False], TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
         GrayLevel[0], DisplayFunction :> Identity, Epilog -> {
           InsetBox[
            BoxData[
             FormBox[
              FrameBox[
               RowBox[{"\[Sigma]", "\[LongEqual]", "0.1`"}], StripOnInput -> 
               False], TraditionalForm]], 
            Scaled[{0.2, 0.2}]], {
            PointSize[Large], 
            RGBColor[1, 0, 0], 
            PointBox[{0.7, -1}]}, {
            RGBColor[0, 
             NCache[
              Rational[2, 3], 0.6666666666666666], 0], 
            AbsoluteThickness[3], 
            LineBox[
             
             NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.4426352063787131}, {
               Rational[2, 3] 3^Rational[-1, 2], 0.2694301256218254}}, {{
              0.3849001794597505, 0.4426352063787131}, {0.3849001794597505, 
              0.2694301256218254}}]]}, 
           InsetBox[
            BoxData[
             FormBox[
              TagBox[
               GridBox[{{
                  StyleBox["\"sync.\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                   False]}, {
                  StyleBox["\"window\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                   False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                DefaultBaseStyle -> "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
              TraditionalForm]], 
            
            NCache[{Rational[2, 3] 3^Rational[-1, 2], 0.3560326660002693}, {
             0.3849001794597505, 0.3560326660002693}], {-1.3, -0.1}]}, 
         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 -> {{Automatic, Automatic}, {Automatic, 25}}, ImageSize -> 
         158.74015748031496`, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
           True}, PlotRange -> {{-0.6999999714285714, 0.6999999714285714}, {
           0, 0.65}}, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {{{
             NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
               FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
              TraditionalForm], 0.05}, {
             NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
               FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
              TraditionalForm], 0.05}}, None}}], 
       GraphicsBox[
        GraphicsComplexBox[CompressedData["
1:eJx113k4VO3/wHHkqSylRRFKRAl5KFG2D1KypChLsvRIJGXf0oIWRRR6lIoW
paSSiNCjY6yJYVZzLDNzhiFElmQp8ZvfdT3d3+v6dn3/mj/mXOe+7jP3mdfn
reQV6HBUREhIKExYSOj/Px+kSTn7+PRiYV1f/Ev28kEhnu2z+1IPVrl2h/6R
HXwI3dg9apDKxzJnelKbt/JhtNKj+uDLbqyyY5d3vxofaFt7B0fIXVgyzexP
KQU+XHPNSc3o4GFBl8+v4y7iQ3Bo+5kT0wT2yacy/YgQH7SNLLv3iRJYzn09
/djRbsiuidlxaAMH24FnT9/s6gadabc9J306sXMSvkd8Gd0Qmfxsz4OYdiyK
yuEU1XSDhHhXu0YZjhmBQWp5cTd4m22Wzf3RipX091/850k3hOGjNjtlmZjn
5Ry5VTe7geacJWnoSMfSQxIGt8R3wye90mr7E1RMq9CJkxjWDRceMh0LZVuw
tA9DUOHVDfScZSYhtxux9SOXcgrsuyHVT2t5WHM9VvhZh/vCpBv6fyqJbLCo
wS7uvjB8VLMbXtmPs+UDKrFX7oodkzLdIKI3uIW/vwwbiQxP3zavGzr87nPH
bAuxeM1F1jrDXaC0fe1HcfccTO4M/dRzvAvwCxdGKVeTsGxH/zfkqi6QvXje
PNTkKuxOPRlx7kUXWKtuUF8/mgMFrMS4zTe6IHXLhmvfFhRCSOjk1oDoLsh2
PLuJkV8GsapLotZ5dIHdLoP5UxmVcFr4hvgz0y7QXsrpYKyqgc3zLRM813XB
Y4VHNYG99aDEWeuwQ7gLzjmn3DgY0ghepc+pJRweNCnYiXgNNsMdMf5AdhkP
nFJXmksfpMK11E02T5N4MK0hN3FPng4SVulL/d140OOTX7RQlAle50Zv7VvN
g4tlTvxVTa0gpq91o6yZAHf7T94GV3EoTq+QtNQhICZh4fD2oHa4U/mk/Ik4
AR5JEx6sbz2Yc8327jQrPuR6yGYeNKBB0PEh89BwHgRa8Rl0KQY8m7NTeGHC
A90UEdulfUxYMVVEvTxNQNAf91XynrPAQ2eTKP8WAQFDkxvLz7ZBxlVTyxfz
BetJzetYo9WLvdeXV3tiy4e5SJnhkgYqpNfnD5vF8eCNQczRsnQ61CvmfRna
w4Ok0/icZAQTrPooo6skeRDNjRbtMmTB6AGz2TvFBPjcD7SMFm0D54DVtXmi
BKi7WFl8SWCAnH5k2iUtHnQ+1sxY4doKtdolK017BNdrVFuEyONgZRef0xhM
QIRhrOT3iTYgv+IO5C0kYIm92G1z617sg+eLZ1p2fMgTvZVxNJUKqXqO64Uv
C55/UdOmFy50UJn78/AORx5sC65uEzdmQnf+d8tOaR7ENB0b/zmPBYaFpVFZ
VQR4RWk4tdfjEP335qHceQQ0UW5K8mwZ8JD3qOatHg+u3JEJWa7UCvmPLRse
DhPgL/ta91o3CwipG+YO8QSESBvJu5a3Ad9Jd/z5AgLCx5Kk60JZEL1LwfvU
UwKO1xVtkzNrg4jGF13P/xCsZ8I84LQfh301Zx6vcyEg2qvm5+0t7XBP9Kbm
MzEC8GDJqAMuvVixRW72mGB/Qo1OQ0bhVPDN2ryblcCD3MCvqaoGdDCG61in
Cw8WD5bWJaxlQkZE0FvFVTwQqfYclOhrBd3p03G1HwiQ2mPl6ZyNw2YhtqiY
YH9rkiuCXLUY0H6kwrXMgAceKxZ5pom2wn4vMH00TsCXxbmamfUsuMxQCfS5
TsCI0B1l8cw2EOVm6GoK9jfVd0GS4cyCwiTVy4X5BPQVLjX9qNwGs2Fy/hqC
/fF1m2y99XFY3nnQDD8quN5O+Q/rFe2gesJCWV2wP/5Vsp16Lw65txNGNgrO
Q59SuVHsHAv2LEhpuXiGgPENnOV5eBucrjKO1xD83oNtjjrHPdsg2UZIU1Nw
PglLjtvuQBzeNiYTmZYEzIT7TPTbt0PerlkxNcH7YSRyzdfdsxdb4mKafEDw
/6yRX3JLzZcKQlcsJUyv8oBCnm/RpU6HxSUeFjmugvP6bIux1TImJO4P9TeQ
58EOk0N9y9pbQWJr0rvaRsHzOrTtL687OJx+YrtZbg0Buz5TlGUUGWCSkJz0
xogHDbTLTPsJJqQ3HVy4apKAPxMfqT0qY4G2m41dyQ0CtnvHLOywYkFFw1d9
7UICVAvqd/tvxGGRmTZlzl/wPmQVb7s8yoKWubjDl+IIUKpuc9n7Fw6fnEaW
Ou0j4FEZZZ/7ThzOe101Nvck4F5T12GzsziEadt6JxsL3t+PdlyeVy/2JVX6
3CXBfivv955Yc5gKwfMOdnwV7Jd/ZkmW6To6zFZtjbtyiAfaC4On1CSYQOr7
smSXguD7Hy4+K+mtUNdwV92MTIBJq9SR5jQc1kpErhxTI8D1TvvpcBkGFJVf
ri8w5sE5ndoUnWEmaGV5WtlPEUCxfPjkSSELhOx7janpBLQrnY3nmLPA54Za
76ciAupO1tYFKONgI3rGcCSAgI+uRSWJAyy4fszn0+gFAqpiWa0OrjiM8w/S
HA8QYBHZ3HzYBIfjUd+jMr0IgESCYxGBQ4GSxvMGcwLmuIc9Jx7iELg4I5Mi
OI+xf3S22xzDYVIkbomCLQGzi3u6jC/iwB9+5PtBn0DeudZ0Gg9GtCDvbgmz
3AMUm5F3Ixt1lJU3k5F34g2nLvLcm5B3V1Z+0VyU14i82+m9ufRP6UbkXXa9
wz2L2I/Iu53anEIJ4Y/Iu2PkA4NVsQ3Iuz6JyxvY4g3Iu+229Ojp7A/Iu8+s
evLSbR+Qd2fEVmtP4fXIOyxw8bGcmHrkXfH6/cpPleuRdz2hnM+aLXXIu9rQ
1pTxyDrkneLtU/scVOuQdwrHNq1/3V6LvDNaNvFja1It8q6ropG6fGct8q5z
0H5WR7gWeeclqxAWWVaDvGPmG+w0iqpB3s1suWgLW2qQd175encPjlcj7xQn
TQ8vKK1G3q3428ZZNKoa9rcZDxK6nYD9yEi5YlwNQQ3zvvoocmBKZd35sLkq
8J7DVc4JEZAb87mpsroK+lXLExR4BBRWT/avTq6CtMwjoXkMHnA/ODlMOVSB
tOKtlZKlXXCycv7OvNVVoFvz/q9vgrln8/P726wGSBBVlq/TfIUPygNnLp4u
IkF6udq76OM94Kbj46AdR4J/5z+ojd9ZPWlFglLVxGm/dhZWkTdemq9DgUHJ
ZYUTYq2YcuvwpGh5M6zLsNSs1GNgRj3EFbtsMrjVqx+rO0zDro5d0E+oboI7
6xUSgvp6oG/do9TwoyToktEb+GiFY7kS99p2JVJAbYPy0Zbzrdgi0QAd+rIW
sC1V+Of8UwZmoGc5PcMhwy0p73KhDhom/FAr8+/pJsgIUs4Of9YDzkGvjW1C
SXBtC2ehmD8L649SqKzgtUDBmPDc6lQmpmR+ov+8XzNkda4I8t/QC9kt35Ve
OZNgYkmS1+k4HCuuPTGjTKHALt2894ZYK3ai9vUH3R0tcHj3AlE+l4Gdac3D
C2fJ8KYotnu1LB2zXX5y5NIKMtxMz9GaSuiBGbI6bhhNgkeaunFl2SxMdOeQ
sJ8UBZrnElwSyUzsIq9Fkp3SDJnCt2eGFvSCpcZsWIoHCchriGC5ZTiWUeFn
4neQAqcMrqS4bGFhK8OjJ7TyWuDe27Tuvl29ACt0blD3kSB20dt7+7ME8+3y
ogVXl1OBaRDwOZjdii3buNLqrlsLHE+ZeSo9w8AcJe+f+LK4Gar/kIp6oUfH
opnXpirWkWGl2qew7dE98M/st4zisyTQ2uhZkfqehX3PbDGbU6SA+3y7S5Wf
mdigT2bylpxmkP+73fzPqR4gwmsTRLxI4CIvkT+2CceaZ/fV7QuigKh+UZP2
Xhb21zVDW7faFlhjzdiort8LtpXeXXCABCek/1r/6CiOHYjV+tmfSwFz5eKt
5hOC9VqkW99YUEBR1T7rqVMvvK1+s8V7DwkUTCjCyYOtWI5DwtfHfi0QqDs5
rSnOxJJ5Ok9VZZrho5ZT1deddExONjx4QJ0MTqMLZF1DekBK5VprSAwJQp+G
dZxtYmHJ39ZFFahR4LFYwd2O70ys2iPHK+lVM7i6/+jZO9IDf6fvGn53hARZ
t9c2cQxxDP8sQmk9QwGr4g8DCu6C851qtcSb3gIey781Wf/ZCzNVst6TjiR4
nRZhcT0Ux8airCSF31HgyoOP+7VEcczaf4cjzY4CHl+CTT/Y9YJRXnyt3F4S
GF5/GOt7HcdKaxZ/zRqgwIabNgvfOuNY4rF5I+0ZFCAOaX+P9xCcB8Un7Jc2
JKgE4WS58VZsCuMVmAa1QEj8uPL2pUwsvyWmyVK+GeyqT/ne2kPHYiKbuRe1
yDDhmOF3PKAHzlcVJNnHkuCmT8xAKJ2FJQ59Pq26iQK7JXjr/URaMU6OzOOa
N83wnXRV//BgD7QvwUszvAXruWh0MMxx7JBKbWjABQqcCKNPL/NmYQ/tpB3j
21tgNvLSmkMaveBQcN6Q7kQChn3c/kvROBZV0bJLtpYCeZ5MLxUJHDO5zbyx
6AAFZh1E0nDrXkiM5qpMCPbvYffiuvtNHDMOdwgk/6CAtaOTzEsPHFvtcHXu
+QMKxFZW2txy7YU+Nz3hBFsSFE0/ltqSjWOBTgxi3IgKspSbwcFXBM835NvJ
sE4KmE7ez43w6oUgb+EGmjUJedd+89zQSzYNeddnJF5YlEdH3u11WKGpYsZA
3qVccLp1s5mBvBPX/jInb8tE3omUyw+vK2Mi70xSixYqbWxF3lmua3S3SW5F
3h3OY/XbTLQi7+45pTlXuLKQd1bkf2oqSljIu919xYbGq3DkXXDmofRLYTjy
TjTEI5xMxpF3pQnC5/labci7zOdeuuqJbci765bF7ENf2pB3QzNs/KFDO/JO
SDIz6FJhO/Ju2QLRsB+rO5B3FWfmJebEdyDvKFV7zd6PdSDv1mexatOCOpF3
Y11RlNzRTuRdQbG8qVsaG3mnvcBK+acdB3l3SjXHViKX+1vf/fKEvDiE5+VC
Q55Ey7BjntvSkSct4RHaS6fpqPeCHjQ0xpmwUe9hhcNC7/vZqPeCz6WeojZy
fuu9X97E6Wv07puiIm88aBrrp2XoyJvkkSceZBod9d+w8+LXzjJs1H91hm4B
b/9ho/5zS5dfz7jC+a3/fnlE1N6tL3lA+08PWtw+4evLRj2YH3PpqIocB/Xg
BjFFs8uK3N968JdXkhurst7lU5FX2mcUQp/+oCGvbFj5sUIYHfWh1YKFVgdE
2agPbw/U7TR+ykZ9uOh4X/o8fw7qw1P/9uEvz45Tzjr5naOhXiS7KZ4udWCj
Xnz+sG0sQpiDepGipvexdIzzWy/+8i676p76gCYN9WMwV8SZyOX8z35MEhn7
mu7ERf2Y9W8//vLwTd+z4Ui//3hY+cNwgD9IQx6OamKMgTd01JOJL3+Mfv3e
iXqStD4+tTyTjXoyvLaqrMmN81tP/vLyzvV3R8f8aagvcxQqKq7tZqO+XOOu
Nnz2Gxv1pYhmaWc+h/NbX/7y1G/s0FkVaRrqTfNc9d6EDM7/7E1Rw6VFe7Zz
f+vNX95GyT/gUlhU1J9P/6s/nz8IeKC7kPtbf/7yWfyjk+vZHTTUo0n/1aP8
yeW8uFPc33r0l9/k5TLvXHpoyO975VFX6a/oqEerfjrW2Ux0oh7ljpdNxd9i
ox59oUR5gDtyUI/2jn3q8G3hIt+Hin2k7b1oqE9TTke+v7iDjfo0bvfCJbeG
2ahPI2ixK9cwOcj7YpW0rFfzaahXS9Zc085M4aBe3aMxzFisyUXeU2o3322s
oaJ+ld07JLfjJwf5/+6l5pGgbTTUszP6hOdaXy7y//jOOpLDDSrqW0ZDvIOf
JRfNA69sdK2b+6iodxPEX7dcv8ZF88CioD/ML/NoaB6wFhN7Y/GSjnpXSFjx
yfTXTtS75q+aL4z8zUa9K0ryIHwdOKh3N8Zbv9Ar46J5wcg5ZJm3Ow31r5kG
cVTEjI36t0r4NDN3kI36N/sY51EghYPmh8IHvKwHc1TUw5NDYXeKkjiohw3u
di4uUeWi+UHKYb6jcTkV9XGS9PfG0UkOmif0nZmRFZtpqJeDjhSYPvPgonmC
4t/414s4KurniJpmaWNTLpovpLu/zo8nqKinJ4uHG+9f4KL5or/95EA5UFFf
q401eZ2Z4aK+NhgUnpQI4qL5w1nvuu7Xh1TU23am47qpd/5zP7rcbN74m250
v+gIpuGC4mr4P6lE78A=
         "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {
            EdgeForm[], 
            Directive[
             RGBColor[
              NCache[
               Rational[1, 3], 0.3333333333333333], 
              NCache[
               Rational[1, 3], 0.3333333333333333], 1], 
             Opacity[0.05]], 
            GraphicsGroupBox[{
              PolygonBox[CompressedData["
1:eJwt0GlPDwAABvB/3suRcoaibNFWjLZkMrMVi8nWZiulk6F0u3J3iEjkA4gl
0zpWy8S0LMMyLWNlWZZpfIt+bV789rx7tueJyC1JL14QCASCeM5fXvGHb/yj
ixnGGWGW77QzzReGGeA3X3nPY6YY5S19vOAXY7zjJZeY4AODdPOMNn7ymSH6
6aSGST7ymh46eMJlfvCJN/T+3/WUK1zlGte5wU1qqaOeBm7RyG3u0MRd7tHM
fVp4wENaeUSFE8/LHErYxEVOco6jXKCIKvZxgmqOUDDfQQIZFFLJHg6RRxmx
7OUw+ZSzjV0cIJtiotlBMgfJpZQtbCWJ/RzjDFFsZzdpHOcsm4lnJ6lkcZqN
xBBHIilkcooNRBLBetaxlnDWsJpVrGQFywkjlGWEsJQlLGYRwSyc3+vnOZo6
URY=
               "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwtz2cvgwEAhdHXpvZo7VEzVqoEsYKIWEGQSMRoldpae/55p4kPJ8+3m9xo
KrufyQuC4IFc7zhmjRliDJJPAYUUUUwJpZQRopwKXg1VahXV1FBLHfU0ECZC
I00000IrbbTTQSddROmmh3tOWGeWMYbo/f9xygZzxBnmiXO2WWSSPh45Y5N5
xhnhmRQ7LDFFPxkSbLHARO4vl+yxwigvXLDLMu9cccg0b6Q54JMbVvngmh+O
+OKWXwbIkuSbP0D4G/I=
             "]]}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwN0LVVRAEAAMFPKbRECRQABIS4u3O4u7vcHe7u7m5VMMG8zTc2PjEuISYI
giR+iPDJJb+M8cYZm3xxRR/PHLPGHO+cs0UnDxywzDTDvHDCOvOkcMMOUcbp
p4tHDllhhhFSuWWXBSYYoJs07thjkUkG6SGdDDLJIpsccskjnwIKKaKYEkop
o5wKKqmimhpqCZFsYp3W00AjTTTTQitttHPPPktMMUQvTxyxyiyjvHLKBmE+
uGCbb675o4N/eKpQNg==
             "]]}, {
            Directive[
             Opacity[1.], 
             AbsoluteThickness[1.6], 
             GrayLevel[0], 
             Dashing[{Small, Small}], 
             Thickness[Large]], 
            LineBox[CompressedData["
1:eJwVzdVKBAAUBNBdAxMTAxMDRUwMFBERsdu1W9fOVZ/8Z7s7jg+HuTAwtyQc
CZ0EA4HABf9HNQfMcEYeO0zSwRFzpLDJGK1UsMcUXcSxxhCNlJDFpT8Lsoca
8kklnivdouyllgLSSOBad8Mtd9zzwCNPPPPCK2+888EnX3zzwy8Be0GiWKKP
OgpJJ5F1hmmilGyiWaafeorIIIkNRmimjBxiWGGABorJZItx2qgkmTCjtFDO
LiE6yWWbCdo5ZJYq9pnmlG6OmeecWFYZJMIfzjstkQ==
             "]]}}}], {
        AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            StyleBox[
            "\"a\"", {FontSize -> 10, FontFamily -> Times, Italic}, 
             StripOnInput -> False], TraditionalForm], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\))\"", {
             FontSize -> 10, FontFamily -> Times, Italic}, StripOnInput -> 
             False], TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
         GrayLevel[0], DisplayFunction :> Identity, Epilog -> {
           InsetBox[
            BoxData[
             FormBox[
              FrameBox[
               RowBox[{"\[Sigma]", "\[LongEqual]", "0.2`"}], StripOnInput -> 
               False], TraditionalForm]], 
            Scaled[{0.2, 0.2}]], {
            PointSize[Large], 
            RGBColor[1, 0, 0], 
            PointBox[{0.7, -1}]}, {
            RGBColor[0, 
             NCache[
              Rational[2, 3], 0.6666666666666666], 0], 
            AbsoluteThickness[3], 
            LineBox[
             
             NCache[{{Rational[2, 3] 3^Rational[-1, 2], 0.5003702332976757}, {
               Rational[2, 3] 3^Rational[-1, 2], 0.15396007178390023`}}, {{
              0.3849001794597505, 0.5003702332976757}, {0.3849001794597505, 
              0.15396007178390023`}}]]}, 
           InsetBox[
            BoxData[
             FormBox[
              TagBox[
               GridBox[{{
                  StyleBox["\"sync.\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                   False]}, {
                  StyleBox["\"window\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                   False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                DefaultBaseStyle -> "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
              TraditionalForm]], 
            
            NCache[{Rational[2, 3] 3^Rational[-1, 2], 0.327165152540788}, {
             0.3849001794597505, 0.327165152540788}], {-1.3, -0.1}]}, 
         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 -> {{Automatic, Automatic}, {Automatic, 25}}, ImageSize -> 
         158.74015748031496`, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
           True}, PlotRange -> {{-0.6999999714285714, 0.6999999714285714}, {
           0, 0.65}}, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {{{
             NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
               FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
              TraditionalForm], 0.05}, {
             NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
               FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
              TraditionalForm], 0.05}}, None}}]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{-0.5}}}], "Grid"],
   TemplateBox[{
     StyleBox["\"lower \"", {FontSize -> 10, FontFamily -> "Times", 
       RGBColor[0, 0, 1]}, StripOnInput -> False], 
     StyleBox[
     "\"middle \"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
      False], 
     StyleBox["\"upper branch\"", {FontSize -> 10, FontFamily -> "Times", 
       RGBColor[1, 0, 0]}, StripOnInput -> False]}, "LineLegend", 
    DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TemplateBox[{
          StyleBox[
          "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
           FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> False], 
          TemplateBox[{"\[ThinSpace]", "\" \"", 
            GraphicsBox[{{
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                RGBColor[0, 0, 1], 
                Thickness[Large]], {
                LineBox[{{0, 7}, {7, 7}}]}}, {
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                RGBColor[0, 0, 1], 
                Thickness[Large]], {}}}, AspectRatio -> Full, 
             ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
             Automatic, 
             BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
              Baseline)], #}, "RowWithSeparators"], 
          TemplateBox[{"\[ThinSpace]", "\" \"", 
            GraphicsBox[{{
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                GrayLevel[0], 
                Thickness[Large]], {
                LineBox[{{0, 7}, {7, 7}}]}}, {
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                GrayLevel[0], 
                Thickness[Large]], {}}}, AspectRatio -> Full, 
             ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
             Automatic, 
             BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
              Baseline)], #2}, "RowWithSeparators"], 
          TemplateBox[{"\[ThinSpace]", "\" \"", 
            GraphicsBox[{{
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                RGBColor[1, 0, 0], 
                Thickness[Large]], {
                LineBox[{{0, 7}, {7, 7}}]}}, {
               Directive[
                EdgeForm[
                 Directive[
                  Opacity[0.3], 
                  GrayLevel[0]]], 
                PointSize[0.5], 
                AbsoluteThickness[1.6], 
                RGBColor[1, 0, 0], 
                Thickness[Large]], {}}}, AspectRatio -> Full, 
             ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
             Automatic, 
             BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
              Baseline)], #3}, "RowWithSeparators"]}, "RowDefault"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
      Background -> Automatic, StripOnInput -> False]& ), 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], Appearance -> 
                   None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 
                 RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> 
                   None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{"Row", "[", 
                 RowBox[{
                   RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    StyleBox[
                    "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                    FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
                    False], "}"}], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#1", ",", "\" \""}], "]"}], "&"}], ")"}], "/@", 
                    "#1"}]}], "]"}], ",", "\"\""}], "]"}], "&"}], ")"}]}], 
         ",", 
         RowBox[{"LegendMarkerSize", "\[Rule]", "7"}]}], "]"}]& ), Editable -> 
    True]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.618921916130816*^9, 3.6189219746715603`*^9}, 
   3.6189882015436707`*^9, 3.641657112676557*^9, 3.64165714851607*^9, {
   3.641657319866693*^9, 3.641657331851597*^9}, 3.641657415604322*^9}]
}, {4}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Combine these three figures in a row", "Subsubsection",
 CellChangeTimes->{{3.6686128656653214`*^9, 3.6686128725052547`*^9}, {
  3.668613034427628*^9, 3.668613040385387*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fs", "=", "10"}], ",", 
     RowBox[{"fsTicks", "=", "10"}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}], ",", 
     RowBox[{"imgSize", "=", " ", 
      RowBox[{"(*", 
       RowBox[{"8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{".95", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}]}], "}"}], ",", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"List", "@", 
      RowBox[{"{", 
       RowBox[{"stretchFigures", ",", 
        RowBox[{"Column", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<(c)\>\"", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], "]"}], 
            ",", 
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                FractionBox[
                 RowBox[{"2", "+", 
                  RowBox[{"3", " ", "\[Epsilon]"}]}], 
                 RowBox[{"3", " ", 
                  SqrtBox["3"]}]], ",", 
                FractionBox[
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
                 RowBox[{"3", " ", 
                  SqrtBox["3"]}]], ",", 
                FractionBox["2", 
                 RowBox[{"3", " ", 
                  SqrtBox["3"]}]]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Epsilon]", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"Frame", "\[Rule]", "True"}], ",", 
              RowBox[{"FrameLabel", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Column", "[", 
                   RowBox[{"{", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<coupling strength \[Sigma]\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                    "]"}], "}"}], "]"}], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<\!\(\*
StyleBox[\"b\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                   "]"}]}], "}"}], ")"}]}], ",", 
              RowBox[{"Axes", "\[Rule]", "None"}], ",", 
              RowBox[{"Filling", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", "2", "}"}], ",", 
                   RowBox[{"(*", "LightGray", "*)"}], 
                   RowBox[{"Directive", "[", 
                    RowBox[{"Darker", "@", "Green"}], 
                    RowBox[{"(*", 
                    RowBox[{",", 
                    RowBox[{"Opacity", "[", ".3", "]"}]}], "*)"}], "]"}]}], 
                  "}"}]}], "}"}]}], ",", 
              RowBox[{"Axes", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"True", ",", "True"}], "}"}]}], ",", 
              RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"lowerColor", ",", "upperColor", ",", 
                 RowBox[{"{", 
                  RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
              RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
              RowBox[{"FrameTicksStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                "}"}]}], ",", 
              RowBox[{"Epilog", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<simultaneous regime shifts\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "White", 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<(synchronizing window)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "White", 
                    ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}]}], "}"}], ",", 
                    RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{".68", ",", ".08"}], "}"}]}], "]"}], ",", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<regime shift first occurs\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<in master subsystem\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}]}], "}"}], ",", 
                    RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
                    RowBox[{"Spacings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".2"}], "}"}]}]}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{".28", ",", 
                    RowBox[{"-", ".5"}]}], "}"}]}], "]"}], ",", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<regime shift first occurs\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<in slave subsystem\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                    "]"}]}], "}"}], ",", 
                    RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
                    RowBox[{"Spacings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".2"}], "}"}]}]}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{".29", ",", ".82"}], "}"}]}], "]"}]}], "}"}]}]}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"Spacings", "\[Rule]", "0"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Alignment", "\[Rule]", "Top"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.618921582621235*^9, 3.618921590585498*^9}, {
   3.618921703723153*^9, 3.6189217043814697`*^9}, {3.618921985532506*^9, 
   3.6189219963599977`*^9}, {3.618922336409953*^9, 3.618922380180973*^9}, 
   3.618988215173711*^9, {3.618988324598317*^9, 3.618988359807189*^9}, {
   3.641657193934566*^9, 3.641657287071167*^9}, {3.641657351255417*^9, 
   3.641657405467059*^9}, {3.668612806853671*^9, 3.6686128181652308`*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{TagBox[
        GridBox[{{
           StyleBox[
           "\"(a)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
            False], 
           StyleBox[
           "\"(b)\"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
            False]}, {
           GraphicsBox[
            GraphicsComplexBox[CompressedData["
1:eJx112k4VO0fwHFbm5REEVKULVI9VOLhh0gRhUJ2QiXZsqVEpVK2KGtJlEhS
0UI9dZSShGbMOTPHnBkmy9grkVKp//yvK/fzout5NS/mvmaue+Y+9+f3VfYJ
tvcTERISChcWEvr/65UMSSd/fz5mflzdZu92Hiie4vpvPtmDBRTSK42teHBQ
s2vEIL0bc5Jc5hW+kQcjtR51u251Yf1HHV4LG/GgdS1/6GNzJ7b9G63iwjoe
pLoUp+dQ77DnO0ZKj6ziQehB9pHACR4Waz6v86kGD1b/bdm1XYyHcbze/GWj
zIOiF3EbXdXbMa1Y4QvkIh6smXCzOeDPwRqyuhpq5/MgKuWGzZU4NlZ/qGB6
rzgPZot3srVqSKx0dbNngCgPfE3/kiv9zsQaZltVMb90QDg5Ym0hR2BhN6Zt
0e3tgFanfAnDnQys9EK/vC2rA3rXVdfZBdIxU/yBRPHLDjhRSOyslHuLXRuw
CWJVdQCjeL5xWO4bbMN8PqOxqAPS9+lIh7e8wl7MyZjzKq0D+ieVRdTNX2DZ
AV2L42M74LbdGFchqBZ7Hhc3a/6+DhBZN6Tb7VCDieYRdfY7OoDaV9DxaWsl
lmt7INrapAOUNyxtFHcvxlZe1i19qdkB5IkTI7SkZOxe1JvOXukOkEs4bnbQ
OAlcqpqv5Uy2g5Wq+gq1kWKomxi4vbW7HdJ11VM/z6iEk5lOvolv2qFoZ+xK
vKIGzluGXDe63Q62mwymf82phdRlo/p16e2wWqqdwhe9AAuNkoeHwtvhmuLV
F8H8V6AndCze3b4djjqdO78r7A1EsGcL0Ve1Q5OirYjPUAvc0jJf9ES8HRzT
F5rJ7KLDlaqUQ8+4XJjQkh+/rMAApf2f4eQtLvT4V1TNFCMg/IpdfUAQFxJq
HLsXNTFBcVfqM8YSLrjb9foaJJHQ8HCxofdxDsSdmflhQwgbbnVO76915YBH
8rgH63MPtna0KdHRhgelHnKXdhm0wolkm9CUei4Eb+nGGZI4/KN826o+jQt6
50S2SvURoCEvI1RkxYWQaQXLy26yIMQh5a+ffRwIGv6i+Si2DW7euhJR7yT4
PklRSkmHj/WVG2nxbHnwK0r2w4PXdCjtn6vk1sqFewZxfjWZDGCbii+eWcCF
5MPkL4lIAtzE1yzVc+dCTEeMWKchC8SiCrXvT+eCf0GwZYxYGwScix19sZMD
K5y3mL8/g8PKXazagjgucK5p5yxwYQJpv9DCZZ1gvVadeZgCCW4hfEbPcw5E
GsZLfBtvAx4dFr3cxYF5drNyzaz42LDJ9MBr23hQJpad45dOh2vO93cokFxw
rGpaWe7MgPXK51Ldr3NBP7SuTdyIgHGaS+S4HxfimvaOTYqywBaXK3kozQWf
aC1H9isSUh5kKNTt4EATLUvi3VYc7omKjdJPcyExTzZMWpkJz+pLvjw24cJ+
ubt6qV0sGF0zGhLI4kCYzN8KLo/aYDz6gkq9MwciPiXL1B9kQcreIxnnv3Ig
oL5KX960Dc4MS0jVO3LAx5jY4ehAgg+f02p0gwMxPi8mc3XZcFdt3KXOhQNk
qET0Dmc+5qubsHe64H4ReuM4/HcEHWKwjMgRNhdKg0fTVQ0YsN37w/D4DS7M
HaquP7OUgJs5tJ4NAVwQqfMcmt3HhE0KnNsdi7ggabPF06mIBAsVI91lgv0p
pTwJcdHBYejk4jOMJC54LJjjmSHGBP+EgqAnFlx4P7dU+9IrFuSNJ+TH8zjw
UShPRfxSG8gKT/hsEuzva98JCdyJBS8rTt5v+sWBvkopk0aVNpDKjsm1EOyv
W69pq+96EtR+1gR/eiBYb6syzWoBG/RTr203F+yvO6nZdgWfhEeP+5XMBeeh
T/nR3/G/WOCl+XHycjMHxtTbpcvINkjtzr9nIfi/h9p2rgnwbIMrB7xcNgnO
J8+y3W1zMAmNw8NzH+Zw4EeE/3i/HRue7PXQNxM8H3+LpO5x9+RjUkY09/WC
30+r4kG2xh46zC8r2eDC4QKtebp55woGKJNPw7CbgvN6Q9doy3wC8iMYuTsC
ubDR2LVvPpsJSk5D/R2KXFBy1ff2ySMhtaHcSy+YA5sGaSqyS3Cwvzn8qCWF
C69bTxN24wSUvq9Zp7uZC6vOXtW4WsMCs6M3j9C6ObDBN24mtYUFtEEHfytR
LqjeebV5vyYJS3ef+7noieB5yL+vf3qEBZ3KnakFrRxQrmtz3uZNwrfo7SYh
hRy4WkPb7m5BQmbC4H63Oxy43NTpZRpLwmn78oySVMHz22jb8c6Hjwm7GDC3
CfZbW8APVPKiQ4Jqzay5gvun+8i8fJNlDJDqybxdVM6F1TNDv2rMJgAX3wZe
BwTvf3f2X8hgQtvgd2dXJS4YMyV3t2SQoLuSZS4RwwGXPPbhCFkc6jm9nxtT
uXB0zctzaz4QYIJhUfu3CH5Py8Lr1ytZIH1wU+AgnwNs5dhT7WYsiLmfKCMy
jQv1B17WB6mQ4KHG2Sdey4FGl6oHZwdYUHS2foEEwYHn8SymvQsJM2Y8Egop
5oB5VEuLlzEJsXkuJQ+qOABnee3mkSQ835jU1nWeA786vDzHC0k4vvpr44Dg
PMZP47Ct95IgrvrOeF0+B37O7ek0SiBhXEosqzORg7xb4cAyIgTnfsq7Q53E
y88kA3mXFjj0oCifgbxzvHA0LWMvA3l3v+TioXxDBvJu+eNARbWFDOTdD8bY
Tq2RVuTd8gpZBXd6K/LuwM6Ifqu7rci7OT2m0fTzrcg75c8yKeShVuTdXLnW
QiXPVuRdmO8eA2fLVuSd6NPdiaJrWpF3tYNj43WLWpF3EpjTvh6xVuSdGJZp
L/uBjrxzTTz6PIhNR97JHxmMqn9FR94VXXe/pX6PjrxLlmKoeBbRkXdW+WO3
/AX37pR32hp7ZkfH0ZF3Dc0VoBlMR97NX3VMeMCdjrwrb16ZudqWjryjPEOm
KwIdeSc3Q9dcYRUdHNqMhnh6HBD1PmV/ZCkdQl6LjvovaQe7wT7bL/Po4PuL
XH5UiAeTwhe9xUXo0K/66IziO8G9Kd1e6j1Gg4xLuw+W4e/AGv9sRvbQQGZJ
9kKJ6k7QaS3EEkga6L146v05qwt4EolHyt/QILqmYk1LYjdccouTnHhCg8xH
Go9jAnogoGLCzP8uDX7Pf/DixJolOVdpUK16dmIfm4WFRbHPjuwT3KsS8yvH
ZzGxS7JugRd/MWBZjqV27Toc83HNod2qYYDbqxV7671asQdKpkd+HGNAnpri
mZC+Hpgz2JARVUaDTtl1A41bSKxXfdVFoywcNNRV/N4eZ2ILrz7+1rIAh63V
iv8cL8Gxog93A9saGJAt6ftIiGrFHBr374xLY0BOiEpRxI0e0DzaNDl0iwap
uu0zZ+1nYTYmey6f2YLDnU/CvxanE9jFvx73xQwyIJ+zIGS/Oh9+EO3j00po
MD4v2efwMRIbTsgq16rBYZNe2VNDjIkFnU/26lXGwWvzDLHuDhyrZJ3trqcx
4F5VfNdiOQbG9z9cdjiLAVmZxTpfz/RABhGw/MZtGlzV1jtWU8TCMl843m5x
xqHl1xnns80EFi5/IdTuMwMuCef+GJ7Bh57yAuunpTRoVuKFys8nsQ6hzOaW
WBwOGSSec9ZlYc7Yz8FiQxwuP8zo6tvEh917tM/bFtMgfs7Dyw75JHb35obK
DjYOhEHQYCiXiTmXFwuZauCCueNHicwPHNPoOf2awBlQN00yunwdAwtjnSif
lceAhRq94RtieuB5Yf6F03dooKPp+ST9KQs799Hy7SJvHNyn256sHSSwFsNX
Unu+MUDhAtts1dceSIqj0/Ju0MBZYXbFp5UkFlOYmG4mmGvE1lc1rd7Gwm5O
CzYNNcNByQrXXLGeD2r2E2orrtMgUMZb7aofiRn5fNFOK8bBTOX+WrNxFjbv
bEBu+EEclqja5Zc48kHYwcbw4DUaKBrThFOGmNg/kWb7T2jhEKz3ZUJbnMAi
87RzupgMaNRxfD5qwcDk9z5pxC8ywHFkhpxLWA/I3hTtHhfs52BJOBXbxMLY
imEBYX44XJt15yL1jcBeHJplOfmDAS7u33u2feyB6FdrVswSnL/83KVN7YYk
9ivbO+tkGg5b7jcMKLqzsOOnwv4atcDBQ/pzk9UqPrTa+8/IEeznbkakedpB
EktuT7iXV4FD4pVGBx0xEqtmCe86ES1Y/z7UpMGWD0VNzzp4gv0YphXG70kj
seCEXvV99TioZ1nPfOhEYs5M7+un83Hgua7+dspDcB5uvC6eJlhfC8Ip8mNM
TCojx2XFShzCTo2pbJAisJ8L4pWHWAywrTu0J9uGgY1iDv6PLzFgfGfOvoCg
Hrhnn5yuI3hes/zjBg4yWBgp5zhUvgeHzbPfqe0TYWJnZ/s7Wf9kwLdnSeu9
hnrASi3LzUSw/1pnLQo3IzGTe2Z76Rk4BIYzJub7srDHa4vrHlvi8DPqpJKr
Fh80WkwmWwT7x+2OOZyMIbG3Qg1216twKPMkfJbPJrHK91Zflx4WrLcXySCt
+PBAKOehrOC8etiWp7lnCd53m8UXeouD1U5H2VseJKbyRlUnpBCH+Npa62wX
PtjU3Ar6W7D/qolrkrpFJGZl03j5wgcc5GhZoaGJJKZPufjtwHAw+VJQGunD
h1WHr/BaBPfRlHfxB5aojmAE8u60id+McDUm8s7wTYB5eSgTeUftnh3jV81E
3skZOOlofGEi72R+DauWr2Qh7yoHairL/FjIuwdVFlwsm4W82/jFeplJEwt5
52OjyY7+yULeVSc+nXdIm0TerV9o2FTtTiLvrD/OmXATuDDl3QJXyX6hahJ5
94HvFZzcRyLv3kWlb161sA15R700WLx5cxvy7uzSt/L7Y9qQd9IaFXy3sjbk
3SVVnz5ZXhvyLoznPRoow0beHRadue2QFRt5d/2jdfruM2zkXfL5S1nvX7OR
d4M/DthulqeQdzeLE7CcaAp5R7tXiS9R/bfvyn/33ZQnMZqLCqxjCeQJ7Zbt
++AvBPLku9vF+iIbJuo960/mMq4f2aj3wr6zdCYsKNR71u80BkUeUn/03pQ3
+JOIQjMbAnljNjvy2UIugbxxyavixhswUf+J2/ZOr+ewUf+NQ2pPxCoK9d+z
oQOmCZnUH/035ZHoNJ2MiEIC9eDSF+XdzWIU6sGBdyre2h4U6sGS6x9auDzq
jx6c8ip3nelklAaBvNLyet873EIgr6pTHgblrWaiPqxW7bY3Z7BRH3plb6RX
L6dQH8o77Zi4eIpCfZj8uw+nPNssXtBme45AvRhD+7A/8hsb9WL/p6YSwo5C
vXh43eHzkY3UH7045Z3vidsb0/YQqB+b0t/tOltM/Wc/7lq2S8PvB4X68c7v
fpzy8MDCtWrMaQTycHTJ0avJrwjkYXI1lpOmxUQ9SX51V7/QwkY9Gb52WVTU
Egr1ZEuCaVJ8HIV60vx3T055yes38pY+TaC+9LtjnOL9mY36smj7mGqbNYX6
Ukb/n0uhtdQffTnlqaXC3APargTqTb3ICGXPfOo/ezMT65vxbJj6ozenvH27
avVlEcH//F/9uTcs+6geQf3Rn1M+y51Oosgw4j97dJrSgBI1598e/ed3j075
/e3mYFJ9HYH89olTHBPVZKIeHVuaJGXSxEY9elzxSRlXkUI92v9Xw9HpRyjU
o6cUdii26HOQ7+Kx56vNjhOoT6mOiymcT2zUpzs2+T7o2UyhPrVNurLhxmMK
eR+kpzkZuoNAvRq0pmTT3lwK9eqjh6wc5V4Kef89YeJ7nC6B+rXgNfPx47cU
8v9j9Lin/QEC9ayU8XaPMjEO8r/BfGNanTyB+nby1FVWyxiF5oEByxiHYxYE
6l3nEv2FPnIcNA8sYvu85T4j0DxQfd038R91Jurd80XBwrJv2Kh37x2yDMlQ
oFDvZh5PU7KNoVDvavidTLi/koPmhbs2ueub4gjUv/fWb/e+OMJG/TtWtDg3
yJJC/evruE3IvoZC80Pgp+2xA9sJ1MOSuXnfD2ZTqIfvBLes/dxFoflB3rqL
1NchUB/v0naXkW6m0DxR0Ww1EB1AoF5+41DdEiTEQfPEd5aF50cpAvWzbcKr
av0RCs0X+dLsNe6mBOppyUknmYH5HDRfnJbMvvrlI476Wv1ivafztn/7erXc
O82lszho/jB+UtIgrUKg3jYwYzf4KP37eeFKtwNniPLQ51XG7Zx0NabD/wCs
cgKZ
             "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {
                EdgeForm[], 
                Directive[
                 RGBColor[
                  NCache[
                   Rational[1, 3], 0.3333333333333333], 
                  NCache[
                   Rational[1, 3], 0.3333333333333333], 1], 
                 Opacity[0.05]], 
                GraphicsGroupBox[{
                  PolygonBox[CompressedData["
1:eJwt0GlPDwAABvB/3suRcoaibNFWjLZkMrMVi8nWZiulk6F0u3J3iEjkA4gl
0zpWy8S0LMMyLWNlWZZpfIt+bV789rx7tueJyC1JL14QCASCeM5fXvGHb/yj
ixnGGWGW77QzzReGGeA3X3nPY6YY5S19vOAXY7zjJZeY4AODdPOMNn7ymSH6
6aSGST7ymh46eMJlfvCJN/T+3/WUK1zlGte5wU1qqaOeBm7RyG3u0MRd7tHM
fVp4wENaeUSFE8/LHErYxEVOco6jXKCIKvZxgmqOUDDfQQIZFFLJHg6RRxmx
7OUw+ZSzjV0cIJtiotlBMgfJpZQtbCWJ/RzjDFFsZzdpHOcsm4lnJ6lkcZqN
xBBHIilkcooNRBLBetaxlnDWsJpVrGQFywkjlGWEsJQlLGYRwSyc3+vnOZo6
URY=
                   "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[0, 0, 1], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwtz2cvgwEAhdHXpvZo7VEzVqoEsYKIWEGQSMRoldpae/55p4kPJ8+3m9xo
KrufyQuC4IFc7zhmjRliDJJPAYUUUUwJpZQRopwKXg1VahXV1FBLHfU0ECZC
I00000IrbbTTQSddROmmh3tOWGeWMYbo/f9xygZzxBnmiXO2WWSSPh45Y5N5
xhnhmRQ7LDFFPxkSbLHARO4vl+yxwigvXLDLMu9cccg0b6Q54JMbVvngmh+O
+OKWXwbIkuSbP0D4G/I=
                 "]]}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwN0LVVRAEAAMFPKbRECRQABIS4u3O4u7vcHe7u7m5VMMG8zTc2PjEuISYI
giR+iPDJJb+M8cYZm3xxRR/PHLPGHO+cs0UnDxywzDTDvHDCOvOkcMMOUcbp
p4tHDllhhhFSuWWXBSYYoJs07thjkUkG6SGdDDLJIpsccskjnwIKKaKYEkop
o5wKKqmimhpqCZFsYp3W00AjTTTTQitttHPPPktMMUQvTxyxyiyjvHLKBmE+
uGCbb675o4N/eKpQNg==
                 "]]}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwVzdVKBAAUBNBdAxMTAxMDRUwMFBERsdu1W9fOVZ/8Z7s7jg+HuTAwtyQc
CZ0EA4HABf9HNQfMcEYeO0zSwRFzpLDJGK1UsMcUXcSxxhCNlJDFpT8Lsoca
8kklnivdouyllgLSSOBad8Mtd9zzwCNPPPPCK2+888EnX3zzwy8Be0GiWKKP
OgpJJ5F1hmmilGyiWaafeorIIIkNRmimjBxiWGGABorJZItx2qgkmTCjtFDO
LiE6yWWbCdo5ZJYq9pnmlG6OmeecWFYZJMIfzjstkQ==
                 "]]}}}], {
            AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
             DisplayFunction -> Identity, AspectRatio -> 
             NCache[GoldenRatio^(-1), 0.6180339887498948], 
             Axes -> {True, True}, AxesLabel -> {
               FormBox[
                StyleBox[
                "\"a \"", {FontSize -> 10, FontFamily -> Times, Italic}, 
                 StripOnInput -> False], TraditionalForm], 
               FormBox[
                StyleBox[
                "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(break\\)]\\)(\[Sigma]\\!\
\\(\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\
\"*\\\"]\\))\"", {FontSize -> 10, FontFamily -> Times, Italic}, StripOnInput -> 
                 False], TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
             GrayLevel[0], DisplayFunction :> Identity, Epilog -> {
               InsetBox[
                BoxData[
                 FormBox[
                  FrameBox[
                   RowBox[{"\[Sigma]", "\[LongEqual]", "0.1`"}], StripOnInput -> 
                   False], TraditionalForm]], 
                Scaled[{0.2, 0.2}]], {
                PointSize[Large], 
                RGBColor[1, 0, 0], 
                PointBox[{0.7, -1}]}, {
                RGBColor[0, 
                 NCache[
                  Rational[2, 3], 0.6666666666666666], 0], 
                AbsoluteThickness[3], 
                LineBox[
                 
                 NCache[{{
                   Rational[2, 3] 3^Rational[-1, 2], 0.4426352063787131}, {
                   Rational[2, 3] 3^Rational[-1, 2], 0.2694301256218254}}, {{
                  0.3849001794597505, 0.4426352063787131}, {
                  0.3849001794597505, 0.2694301256218254}}]]}, 
               InsetBox[
                BoxData[
                 FormBox[
                  TagBox[
                   GridBox[{{
                    StyleBox["\"sync.\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                    False]}, {
                    StyleBox["\"window\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                    False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                    DefaultBaseStyle -> "Column", 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
                  TraditionalForm]], 
                
                NCache[{
                 Rational[2, 3] 3^Rational[-1, 2], 0.3560326660002693}, {
                 0.3849001794597505, 0.3560326660002693}], {-1.3, -0.1}]}, 
             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 -> {{Automatic, Automatic}, {Automatic, 25}}, 
             ImageSize -> 158.74015748031496`, 
             Method -> {
              "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
               AbsolutePointSize[6], "ScalingFunctions" -> None, 
               "AxesInFront" -> True}, 
             PlotRange -> {{-0.6999999714285714, 0.6999999714285714}, {
               0, 0.65}}, PlotRangePadding -> {{
                Scaled[0.02], 
                Scaled[0.02]}, {0, 0}}, Ticks -> {{{
                 NCache[
                 Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
                 FormBox[
                  StyleBox[
                  "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
                   FontSize -> 10, FontFamily -> Times}, StripOnInput -> 
                   False], TraditionalForm], 0.05}, {
                 NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
                 FormBox[
                  StyleBox[
                  "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
                   FontSize -> 10, FontFamily -> Times}, StripOnInput -> 
                   False], TraditionalForm], 0.05}}, None}}], 
           GraphicsBox[
            GraphicsComplexBox[CompressedData["
1:eJx113k4VO3/wHHkqSylRRFKRAl5KFG2D1KypChLsvRIJGXf0oIWRRR6lIoW
paSSiNCjY6yJYVZzLDNzhiFElmQp8ZvfdT3d3+v6dn3/mj/mXOe+7jP3mdfn
reQV6HBUREhIKExYSOj/Px+kSTn7+PRiYV1f/Ev28kEhnu2z+1IPVrl2h/6R
HXwI3dg9apDKxzJnelKbt/JhtNKj+uDLbqyyY5d3vxofaFt7B0fIXVgyzexP
KQU+XHPNSc3o4GFBl8+v4y7iQ3Bo+5kT0wT2yacy/YgQH7SNLLv3iRJYzn09
/djRbsiuidlxaAMH24FnT9/s6gadabc9J306sXMSvkd8Gd0Qmfxsz4OYdiyK
yuEU1XSDhHhXu0YZjhmBQWp5cTd4m22Wzf3RipX091/850k3hOGjNjtlmZjn
5Ry5VTe7geacJWnoSMfSQxIGt8R3wye90mr7E1RMq9CJkxjWDRceMh0LZVuw
tA9DUOHVDfScZSYhtxux9SOXcgrsuyHVT2t5WHM9VvhZh/vCpBv6fyqJbLCo
wS7uvjB8VLMbXtmPs+UDKrFX7oodkzLdIKI3uIW/vwwbiQxP3zavGzr87nPH
bAuxeM1F1jrDXaC0fe1HcfccTO4M/dRzvAvwCxdGKVeTsGxH/zfkqi6QvXje
PNTkKuxOPRlx7kUXWKtuUF8/mgMFrMS4zTe6IHXLhmvfFhRCSOjk1oDoLsh2
PLuJkV8GsapLotZ5dIHdLoP5UxmVcFr4hvgz0y7QXsrpYKyqgc3zLRM813XB
Y4VHNYG99aDEWeuwQ7gLzjmn3DgY0ghepc+pJRweNCnYiXgNNsMdMf5AdhkP
nFJXmksfpMK11E02T5N4MK0hN3FPng4SVulL/d140OOTX7RQlAle50Zv7VvN
g4tlTvxVTa0gpq91o6yZAHf7T94GV3EoTq+QtNQhICZh4fD2oHa4U/mk/Ik4
AR5JEx6sbz2Yc8327jQrPuR6yGYeNKBB0PEh89BwHgRa8Rl0KQY8m7NTeGHC
A90UEdulfUxYMVVEvTxNQNAf91XynrPAQ2eTKP8WAQFDkxvLz7ZBxlVTyxfz
BetJzetYo9WLvdeXV3tiy4e5SJnhkgYqpNfnD5vF8eCNQczRsnQ61CvmfRna
w4Ok0/icZAQTrPooo6skeRDNjRbtMmTB6AGz2TvFBPjcD7SMFm0D54DVtXmi
BKi7WFl8SWCAnH5k2iUtHnQ+1sxY4doKtdolK017BNdrVFuEyONgZRef0xhM
QIRhrOT3iTYgv+IO5C0kYIm92G1z617sg+eLZ1p2fMgTvZVxNJUKqXqO64Uv
C55/UdOmFy50UJn78/AORx5sC65uEzdmQnf+d8tOaR7ENB0b/zmPBYaFpVFZ
VQR4RWk4tdfjEP335qHceQQ0UW5K8mwZ8JD3qOatHg+u3JEJWa7UCvmPLRse
DhPgL/ta91o3CwipG+YO8QSESBvJu5a3Ad9Jd/z5AgLCx5Kk60JZEL1LwfvU
UwKO1xVtkzNrg4jGF13P/xCsZ8I84LQfh301Zx6vcyEg2qvm5+0t7XBP9Kbm
MzEC8GDJqAMuvVixRW72mGB/Qo1OQ0bhVPDN2ryblcCD3MCvqaoGdDCG61in
Cw8WD5bWJaxlQkZE0FvFVTwQqfYclOhrBd3p03G1HwiQ2mPl6ZyNw2YhtqiY
YH9rkiuCXLUY0H6kwrXMgAceKxZ5pom2wn4vMH00TsCXxbmamfUsuMxQCfS5
TsCI0B1l8cw2EOVm6GoK9jfVd0GS4cyCwiTVy4X5BPQVLjX9qNwGs2Fy/hqC
/fF1m2y99XFY3nnQDD8quN5O+Q/rFe2gesJCWV2wP/5Vsp16Lw65txNGNgrO
Q59SuVHsHAv2LEhpuXiGgPENnOV5eBucrjKO1xD83oNtjjrHPdsg2UZIU1Nw
PglLjtvuQBzeNiYTmZYEzIT7TPTbt0PerlkxNcH7YSRyzdfdsxdb4mKafEDw
/6yRX3JLzZcKQlcsJUyv8oBCnm/RpU6HxSUeFjmugvP6bIux1TImJO4P9TeQ
58EOk0N9y9pbQWJr0rvaRsHzOrTtL687OJx+YrtZbg0Buz5TlGUUGWCSkJz0
xogHDbTLTPsJJqQ3HVy4apKAPxMfqT0qY4G2m41dyQ0CtnvHLOywYkFFw1d9
7UICVAvqd/tvxGGRmTZlzl/wPmQVb7s8yoKWubjDl+IIUKpuc9n7Fw6fnEaW
Ou0j4FEZZZ/7ThzOe101Nvck4F5T12GzsziEadt6JxsL3t+PdlyeVy/2JVX6
3CXBfivv955Yc5gKwfMOdnwV7Jd/ZkmW6To6zFZtjbtyiAfaC4On1CSYQOr7
smSXguD7Hy4+K+mtUNdwV92MTIBJq9SR5jQc1kpErhxTI8D1TvvpcBkGFJVf
ri8w5sE5ndoUnWEmaGV5WtlPEUCxfPjkSSELhOx7janpBLQrnY3nmLPA54Za
76ciAupO1tYFKONgI3rGcCSAgI+uRSWJAyy4fszn0+gFAqpiWa0OrjiM8w/S
HA8QYBHZ3HzYBIfjUd+jMr0IgESCYxGBQ4GSxvMGcwLmuIc9Jx7iELg4I5Mi
OI+xf3S22xzDYVIkbomCLQGzi3u6jC/iwB9+5PtBn0DeudZ0Gg9GtCDvbgmz
3AMUm5F3Ixt1lJU3k5F34g2nLvLcm5B3V1Z+0VyU14i82+m9ufRP6UbkXXa9
wz2L2I/Iu53anEIJ4Y/Iu2PkA4NVsQ3Iuz6JyxvY4g3Iu+229Ojp7A/Iu8+s
evLSbR+Qd2fEVmtP4fXIOyxw8bGcmHrkXfH6/cpPleuRdz2hnM+aLXXIu9rQ
1pTxyDrkneLtU/scVOuQdwrHNq1/3V6LvDNaNvFja1It8q6ropG6fGct8q5z
0H5WR7gWeeclqxAWWVaDvGPmG+w0iqpB3s1suWgLW2qQd175encPjlcj7xQn
TQ8vKK1G3q3428ZZNKoa9rcZDxK6nYD9yEi5YlwNQQ3zvvoocmBKZd35sLkq
8J7DVc4JEZAb87mpsroK+lXLExR4BBRWT/avTq6CtMwjoXkMHnA/ODlMOVSB
tOKtlZKlXXCycv7OvNVVoFvz/q9vgrln8/P726wGSBBVlq/TfIUPygNnLp4u
IkF6udq76OM94Kbj46AdR4J/5z+ojd9ZPWlFglLVxGm/dhZWkTdemq9DgUHJ
ZYUTYq2YcuvwpGh5M6zLsNSs1GNgRj3EFbtsMrjVqx+rO0zDro5d0E+oboI7
6xUSgvp6oG/do9TwoyToktEb+GiFY7kS99p2JVJAbYPy0Zbzrdgi0QAd+rIW
sC1V+Of8UwZmoGc5PcMhwy0p73KhDhom/FAr8+/pJsgIUs4Of9YDzkGvjW1C
SXBtC2ehmD8L649SqKzgtUDBmPDc6lQmpmR+ov+8XzNkda4I8t/QC9kt35Ve
OZNgYkmS1+k4HCuuPTGjTKHALt2894ZYK3ai9vUH3R0tcHj3AlE+l4Gdac3D
C2fJ8KYotnu1LB2zXX5y5NIKMtxMz9GaSuiBGbI6bhhNgkeaunFl2SxMdOeQ
sJ8UBZrnElwSyUzsIq9Fkp3SDJnCt2eGFvSCpcZsWIoHCchriGC5ZTiWUeFn
4neQAqcMrqS4bGFhK8OjJ7TyWuDe27Tuvl29ACt0blD3kSB20dt7+7ME8+3y
ogVXl1OBaRDwOZjdii3buNLqrlsLHE+ZeSo9w8AcJe+f+LK4Gar/kIp6oUfH
opnXpirWkWGl2qew7dE98M/st4zisyTQ2uhZkfqehX3PbDGbU6SA+3y7S5Wf
mdigT2bylpxmkP+73fzPqR4gwmsTRLxI4CIvkT+2CceaZ/fV7QuigKh+UZP2
Xhb21zVDW7faFlhjzdiort8LtpXeXXCABCek/1r/6CiOHYjV+tmfSwFz5eKt
5hOC9VqkW99YUEBR1T7rqVMvvK1+s8V7DwkUTCjCyYOtWI5DwtfHfi0QqDs5
rSnOxJJ5Ok9VZZrho5ZT1deddExONjx4QJ0MTqMLZF1DekBK5VprSAwJQp+G
dZxtYmHJ39ZFFahR4LFYwd2O70ys2iPHK+lVM7i6/+jZO9IDf6fvGn53hARZ
t9c2cQxxDP8sQmk9QwGr4g8DCu6C851qtcSb3gIey781Wf/ZCzNVst6TjiR4
nRZhcT0Ux8airCSF31HgyoOP+7VEcczaf4cjzY4CHl+CTT/Y9YJRXnyt3F4S
GF5/GOt7HcdKaxZ/zRqgwIabNgvfOuNY4rF5I+0ZFCAOaX+P9xCcB8Un7Jc2
JKgE4WS58VZsCuMVmAa1QEj8uPL2pUwsvyWmyVK+GeyqT/ne2kPHYiKbuRe1
yDDhmOF3PKAHzlcVJNnHkuCmT8xAKJ2FJQ59Pq26iQK7JXjr/URaMU6OzOOa
N83wnXRV//BgD7QvwUszvAXruWh0MMxx7JBKbWjABQqcCKNPL/NmYQ/tpB3j
21tgNvLSmkMaveBQcN6Q7kQChn3c/kvROBZV0bJLtpYCeZ5MLxUJHDO5zbyx
6AAFZh1E0nDrXkiM5qpMCPbvYffiuvtNHDMOdwgk/6CAtaOTzEsPHFvtcHXu
+QMKxFZW2txy7YU+Nz3hBFsSFE0/ltqSjWOBTgxi3IgKspSbwcFXBM835NvJ
sE4KmE7ez43w6oUgb+EGmjUJedd+89zQSzYNeddnJF5YlEdH3u11WKGpYsZA
3qVccLp1s5mBvBPX/jInb8tE3omUyw+vK2Mi70xSixYqbWxF3lmua3S3SW5F
3h3OY/XbTLQi7+45pTlXuLKQd1bkf2oqSljIu919xYbGq3DkXXDmofRLYTjy
TjTEI5xMxpF3pQnC5/labci7zOdeuuqJbci765bF7ENf2pB3QzNs/KFDO/JO
SDIz6FJhO/Ju2QLRsB+rO5B3FWfmJebEdyDvKFV7zd6PdSDv1mexatOCOpF3
Y11RlNzRTuRdQbG8qVsaG3mnvcBK+acdB3l3SjXHViKX+1vf/fKEvDiE5+VC
Q55Ey7BjntvSkSct4RHaS6fpqPeCHjQ0xpmwUe9hhcNC7/vZqPeCz6WeojZy
fuu9X97E6Wv07puiIm88aBrrp2XoyJvkkSceZBod9d+w8+LXzjJs1H91hm4B
b/9ho/5zS5dfz7jC+a3/fnlE1N6tL3lA+08PWtw+4evLRj2YH3PpqIocB/Xg
BjFFs8uK3N968JdXkhurst7lU5FX2mcUQp/+oCGvbFj5sUIYHfWh1YKFVgdE
2agPbw/U7TR+ykZ9uOh4X/o8fw7qw1P/9uEvz45Tzjr5naOhXiS7KZ4udWCj
Xnz+sG0sQpiDepGipvexdIzzWy/+8i676p76gCYN9WMwV8SZyOX8z35MEhn7
mu7ERf2Y9W8//vLwTd+z4Ui//3hY+cNwgD9IQx6OamKMgTd01JOJL3+Mfv3e
iXqStD4+tTyTjXoyvLaqrMmN81tP/vLyzvV3R8f8aagvcxQqKq7tZqO+XOOu
Nnz2Gxv1pYhmaWc+h/NbX/7y1G/s0FkVaRrqTfNc9d6EDM7/7E1Rw6VFe7Zz
f+vNX95GyT/gUlhU1J9P/6s/nz8IeKC7kPtbf/7yWfyjk+vZHTTUo0n/1aP8
yeW8uFPc33r0l9/k5TLvXHpoyO975VFX6a/oqEerfjrW2Ux0oh7ljpdNxd9i
ox59oUR5gDtyUI/2jn3q8G3hIt+Hin2k7b1oqE9TTke+v7iDjfo0bvfCJbeG
2ahPI2ixK9cwOcj7YpW0rFfzaahXS9Zc085M4aBe3aMxzFisyUXeU2o3322s
oaJ+ld07JLfjJwf5/+6l5pGgbTTUszP6hOdaXy7y//jOOpLDDSrqW0ZDvIOf
JRfNA69sdK2b+6iodxPEX7dcv8ZF88CioD/ML/NoaB6wFhN7Y/GSjnpXSFjx
yfTXTtS75q+aL4z8zUa9K0ryIHwdOKh3N8Zbv9Ar46J5wcg5ZJm3Ow31r5kG
cVTEjI36t0r4NDN3kI36N/sY51EghYPmh8IHvKwHc1TUw5NDYXeKkjiohw3u
di4uUeWi+UHKYb6jcTkV9XGS9PfG0UkOmif0nZmRFZtpqJeDjhSYPvPgonmC
4t/414s4KurniJpmaWNTLpovpLu/zo8nqKinJ4uHG+9f4KL5or/95EA5UFFf
q401eZ2Z4aK+NhgUnpQI4qL5w1nvuu7Xh1TU23am47qpd/5zP7rcbN74m250
v+gIpuGC4mr4P6lE78A=
             "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {
                EdgeForm[], 
                Directive[
                 RGBColor[
                  NCache[
                   Rational[1, 3], 0.3333333333333333], 
                  NCache[
                   Rational[1, 3], 0.3333333333333333], 1], 
                 Opacity[0.05]], 
                GraphicsGroupBox[{
                  PolygonBox[CompressedData["
1:eJwt0GlPDwAABvB/3suRcoaibNFWjLZkMrMVi8nWZiulk6F0u3J3iEjkA4gl
0zpWy8S0LMMyLWNlWZZpfIt+bV789rx7tueJyC1JL14QCASCeM5fXvGHb/yj
ixnGGWGW77QzzReGGeA3X3nPY6YY5S19vOAXY7zjJZeY4AODdPOMNn7ymSH6
6aSGST7ymh46eMJlfvCJN/T+3/WUK1zlGte5wU1qqaOeBm7RyG3u0MRd7tHM
fVp4wENaeUSFE8/LHErYxEVOco6jXKCIKvZxgmqOUDDfQQIZFFLJHg6RRxmx
7OUw+ZSzjV0cIJtiotlBMgfJpZQtbCWJ/RzjDFFsZzdpHOcsm4lnJ6lkcZqN
xBBHIilkcooNRBLBetaxlnDWsJpVrGQFywkjlGWEsJQlLGYRwSyc3+vnOZo6
URY=
                   "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[0, 0, 1], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwtz2cvgwEAhdHXpvZo7VEzVqoEsYKIWEGQSMRoldpae/55p4kPJ8+3m9xo
KrufyQuC4IFc7zhmjRliDJJPAYUUUUwJpZQRopwKXg1VahXV1FBLHfU0ECZC
I00000IrbbTTQSddROmmh3tOWGeWMYbo/f9xygZzxBnmiXO2WWSSPh45Y5N5
xhnhmRQ7LDFFPxkSbLHARO4vl+yxwigvXLDLMu9cccg0b6Q54JMbVvngmh+O
+OKWXwbIkuSbP0D4G/I=
                 "]]}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwN0LVVRAEAAMFPKbRECRQABIS4u3O4u7vcHe7u7m5VMMG8zTc2PjEuISYI
giR+iPDJJb+M8cYZm3xxRR/PHLPGHO+cs0UnDxywzDTDvHDCOvOkcMMOUcbp
p4tHDllhhhFSuWWXBSYYoJs07thjkUkG6SGdDDLJIpsccskjnwIKKaKYEkop
o5wKKqmimhpqCZFsYp3W00AjTTTTQitttHPPPktMMUQvTxyxyiyjvHLKBmE+
uGCbb675o4N/eKpQNg==
                 "]]}, {
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJwVzdVKBAAUBNBdAxMTAxMDRUwMFBERsdu1W9fOVZ/8Z7s7jg+HuTAwtyQc
CZ0EA4HABf9HNQfMcEYeO0zSwRFzpLDJGK1UsMcUXcSxxhCNlJDFpT8Lsoca
8kklnivdouyllgLSSOBad8Mtd9zzwCNPPPPCK2+888EnX3zzwy8Be0GiWKKP
OgpJJ5F1hmmilGyiWaafeorIIIkNRmimjBxiWGGABorJZItx2qgkmTCjtFDO
LiE6yWWbCdo5ZJYq9pnmlG6OmeecWFYZJMIfzjstkQ==
                 "]]}}}], {
            AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
             DisplayFunction -> Identity, AspectRatio -> 
             NCache[GoldenRatio^(-1), 0.6180339887498948], 
             Axes -> {True, True}, AxesLabel -> {
               FormBox[
                StyleBox[
                "\"a\"", {FontSize -> 10, FontFamily -> Times, Italic}, 
                 StripOnInput -> False], TraditionalForm], 
               FormBox[
                StyleBox[
                "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(break\\)]\\)(\[Sigma]\\!\
\\(\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\
\"*\\\"]\\))\"", {FontSize -> 10, FontFamily -> Times, Italic}, StripOnInput -> 
                 False], TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
             GrayLevel[0], DisplayFunction :> Identity, Epilog -> {
               InsetBox[
                BoxData[
                 FormBox[
                  FrameBox[
                   RowBox[{"\[Sigma]", "\[LongEqual]", "0.2`"}], StripOnInput -> 
                   False], TraditionalForm]], 
                Scaled[{0.2, 0.2}]], {
                PointSize[Large], 
                RGBColor[1, 0, 0], 
                PointBox[{0.7, -1}]}, {
                RGBColor[0, 
                 NCache[
                  Rational[2, 3], 0.6666666666666666], 0], 
                AbsoluteThickness[3], 
                LineBox[
                 
                 NCache[{{
                   Rational[2, 3] 3^Rational[-1, 2], 0.5003702332976757}, {
                   Rational[2, 3] 3^Rational[-1, 2], 
                    0.15396007178390023`}}, {{0.3849001794597505, 
                  0.5003702332976757}, {0.3849001794597505, 
                  0.15396007178390023`}}]]}, 
               InsetBox[
                BoxData[
                 FormBox[
                  TagBox[
                   GridBox[{{
                    StyleBox["\"sync.\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                    False]}, {
                    StyleBox["\"window\"", {FontSize -> 10, 
                    RGBColor[0, 
                    Rational[2, 3], 0], FontFamily -> "Times"}, StripOnInput -> 
                    False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                    DefaultBaseStyle -> "Column", 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
                  TraditionalForm]], 
                
                NCache[{
                 Rational[2, 3] 3^Rational[-1, 2], 0.327165152540788}, {
                 0.3849001794597505, 0.327165152540788}], {-1.3, -0.1}]}, 
             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 -> {{Automatic, Automatic}, {Automatic, 25}}, 
             ImageSize -> 158.74015748031496`, 
             Method -> {
              "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
               AbsolutePointSize[6], "ScalingFunctions" -> None, 
               "AxesInFront" -> True}, 
             PlotRange -> {{-0.6999999714285714, 0.6999999714285714}, {
               0, 0.65}}, PlotRangePadding -> {{
                Scaled[0.02], 
                Scaled[0.02]}, {0, 0}}, Ticks -> {{{
                 NCache[
                 Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
                 FormBox[
                  StyleBox[
                  "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
                   FontSize -> 10, FontFamily -> Times}, StripOnInput -> 
                   False], TraditionalForm], 0.05}, {
                 NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
                 FormBox[
                  StyleBox[
                  "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
                   FontSize -> 10, FontFamily -> Times}, StripOnInput -> 
                   False], TraditionalForm], 0.05}}, None}}]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{-0.5}}}], 
        "Grid"],TemplateBox[{
         StyleBox["\"lower \"", {FontSize -> 10, FontFamily -> "Times", 
           RGBColor[0, 0, 1]}, StripOnInput -> False], 
         StyleBox[
         "\"middle \"", {FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
          False], 
         StyleBox[
         "\"upper branch\"", {FontSize -> 10, FontFamily -> "Times", 
           RGBColor[1, 0, 0]}, StripOnInput -> False]}, "LineLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TemplateBox[{
              StyleBox[
              "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
               FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> False], 
              TemplateBox[{"\[ThinSpace]", "\" \"", 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
                 Automatic, 
                 BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                  Baseline)], #}, "RowWithSeparators"], 
              TemplateBox[{"\[ThinSpace]", "\" \"", 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
                 Automatic, 
                 BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                  Baseline)], #2}, "RowWithSeparators"], 
              TemplateBox[{"\[ThinSpace]", "\" \"", 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 7}, {7, 7}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {7, 7}, PlotRangePadding -> None, ImagePadding -> 
                 Automatic, 
                 BaselinePosition -> (Scaled[-0.032857142857142835`] -> 
                  Baseline)], #3}, "RowWithSeparators"]}, "RowDefault"], 
            Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   RowBox[{"Row", "[", 
                    RowBox[{
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    StyleBox[
                    "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                    FontSize -> 10, FontFamily -> "Times"}, StripOnInput -> 
                    False], "}"}], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#1", ",", "\" \""}], "]"}], "&"}], ")"}], "/@", 
                    "#1"}]}], "]"}], ",", "\"\""}], "]"}], "&"}], ")"}]}], 
             ",", 
             RowBox[{"LegendMarkerSize", "\[Rule]", "7"}]}], "]"}]& ), 
        Editable -> True]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TagBox[GridBox[{
        {
         StyleBox["\<\"(c)\"\>",
          StripOnInput->False,
          FontFamily->Times,
          FontSize->10]},
        {
         GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxN1Hs01ekawPHEdEHSDRunhnY6MaUpEpVHEaGM3FNhXDqj6MZodEe67ShJ
h1IZW0W5laSbXiJU5LaxE/bebPzcfr+YNtUpprNWz6/5413v+v73rOd910fH
d5dTwPhx48a9/nr+f9sFULVFPa7mk6f+J9AoVQj+oQznFOcChKZeqxBvfgOT
Ltj++W4wDbJuejgZzGuGgpolNjazc4Bk3VSYI2kGj6iW5hLePUg1XCz2TXoL
u+6ELEx8/xBc55p2Wf3aAkPnGivk5AiI1IUza7RaoaK4jFSvfAYmh0eCP3a2
QmC47ZRN/aXg6+P4bm9mGxRPXjKWGVwOfpZwOSFABDf4paOa816C5nr35Qbq
YrBQK0x1zq6EgeFNJuJQMSwsb3lQpl8Nt70/2hXWiEFg4Uxn0DXgKPcmJNBI
AkGKO+oaFteBN1/+5+1xEngldC9Uia0Ht8M75c2GJeBs7SGRSgVgoh7W+/Om
dliWwnNP4TZCVG5FwOH8dhCPxgt+O9IEBZGbh5M4HdBpW81XKxGCm6upluK+
DshNEoXX6jRDi4+7q21LB1w/KX9qwf63sF5/elouSEHm59m77XELzH+vfiIo
WQpKVsed7qi3Qc/w1iMj4zrhoGqnsmSLCNQ/0UpNXp2g/NRgXNMGMRg+1s5q
e9QJq8J++VLySQyL8k/75c/uguS0M/y5yRJIyrHMFh/oAi9Xo6rJ9u3Q275S
5a24C/IbAuKfDreDnqAu8otlN5hW5o7vutgBVc/zeKEp3fDj2m2yeCspeL4T
ZDxSoMDYyDjuXpcUXLRWb3H1pUA0FPOCH90JyxXs5mo8paB/6cZozpIukNOL
H8vQ6QG9voW9cvVdYLJu/u5zh3uglPt73e6IbnDl/0+2tqMHzgoa/Jy4FLSO
aqo6ru4FxrkobnwpBb9oNJlHXumFu66zLE339ED69vrIKLk+4FdFXWmf3gvB
hZqb33j1wUj5lgPTn/WChm3qutGSPhDHEZnqzj7IPl9mZz+/H4ZrV3AiVfoh
p8VY0h/VD7sv6BaFP+mHRO/OM1upflCv0lWVeg1AX7uoUtd6AJwbMj9rjw7A
Au4+HdXUARjy/jOo5RYNDlcdeJU/0EB8cqJV1jMg0thzqtWXhv/OUZKNjTFQ
yCQHF7+kISqC98dpzjEgHvJJimNCMLDYumriDQYcFE4cqL5IQ9HlEuMYTihI
lxpHXKsRwu+OxyWK4QxcVDkY2XiQBomhUZJ8PQMTPsWFVuTSYFazNPc8xx/C
dBxkgQ+FcEl4Ke+MLwOP44d/aN5Fw4QH63ZEP2FA/4jyh1d8Gp7cnFMe0cOA
JFR9sLSQhkWmM69f4bgAJHoaVmcJIVP7evIGdwbsG/PKNwfSoPHZycX6DgNP
il883HCFhtd9C3LXtDEQUiC4a11Awy2/WW1F7xnYuMTT0LKUBjWlhtg8jhWk
1ftUyqUL4b65/rTsjQwk7Dufrr2NBt3Zwoobt7/O75d+SeUSDcIpOVy+8Ot+
PPLiJ96jIS/6kpMOw0BS/XJVhWIaUlafC/T5xMDEuAMOkeU0dGe7+Yo4RuA2
2KGpdV0Ij6qD7NscGDCrkOMc8qdBL0dTvimdgYw8daVdiTS0XB30qm9g4NcM
XYXf7tLwQK31zMZ+Bsy56Uf9CQ3X6+r450YYyJT0Pm1/TkNy7gbDxV8Y8LVQ
btN5QQN65pO91/Kfnp0+IRf9dlET65naobN7rJMbWM9kuweVvbkC1rOfgsWu
TXl1rGfl0a9tZ3BrWc8CTXXefNxazXqmnMIPdTGuZD3zVrfYsVPrBeuZG+8Y
6VhWxnqmtrw8UDyjhPUsXHJnz3K9ItYzTZPgjGuxj1jParVDtFqd77GepY3E
xaVOzGI9K0tcZpUenMJ6ljE0JSbL7Cjr2b48c+1zfTEEPXP+K5DjNson6JmR
DTffMzOHoGeyt3s//6h/n6Bnsr1zqASfJwQ9c5tkrqyvVkzQs22zd76OMCsl
6JnAZHjJ4QXlBD1LsPBf+XjyS4KexaoKmN3/riLo2eBgVWrnpBqCnpmQu7rV
ybWE9eyYosxjQT1Bz57ZxWoYXxYQ9OzD++lxG35qJOhZW0qJ54PUJoKe7bDq
DiuZ9oagZwmvlCjFlGaCnm132XIrbUYLQc9ERVnF+2+0EvRsbJGBPn+2iKBn
/i9jhvJtxAQ909h1fP+DqRKCnqXMnGXg/1JC0LMPBtwJ2RfaCXrGJUGK6zZ3
EPRsnrO9CW+mlKBnIx63YoNapQQ9u+p9TWUksZOgZ5z2qoJaxy6Cnvk1HuTZ
aXQT9CzqVfGJoLpugp5ZhnMcjVIpgp7JNM2kJ6gm1jO/1IEdjmYUQc9u+zfO
8Fr73bP395vCvSZQBD0TxMh7rdlJEfQs+lSawYuQ756tLK48GtDfTdAzrcQP
/rYuFEHPeFEq7itOUgQ9++syr2D09HfPvK1tFAJF3QQ9g3+FUOttKIKeZU86
1Wx+gCLoWeBofL1JAkXQM/15Rw4lXfzu2eBJhbJeYTdBz+q8F996bUER9GyN
vXVyUShF0LOPFhsTHsZSBD1reNw47f5liqBnz3v+EG9L/u7ZCv2OG7cbugl6
xpGbyju7iiLo2el+7qGIPRRBzyzbDcP28yiCns3Zmj8UlkgR9CxG88Ni2VWK
oGd6VkVb/ukZNnqGjZ5ho2fY6Bk2eoaNnmGjZ9joGTZ6ho2eYaNn2OgZNnqG
jZ5ho2fY6Bk2eoaNnmGjZ9joGTZ6ho2eYaNn2OgZNnqGjZ5ho2fYrGffGj3D
Rs+w0TNs9AwbPcNGz7DRM2z0DBs9w0bPsNEzbPSM3f83z7DRM2z0DBs9Y9/3
m2fsf/zmGTZ6ho2eYaNn2OgZ9t/kopwo
           
           "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, 
             {RGBColor[0, 
               NCache[
                Rational[2, 3], 0.6666666666666666], 0], EdgeForm[None], 
              GraphicsGroupBox[
               PolygonBox[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 
                83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 
                98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110,
                 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
                123, 124, 125, 126, 149, 143, 138, 134, 131, 129, 150, 144, 
                139, 135, 132, 151, 145, 140, 136, 152, 146, 141, 153, 147, 
                154, 127, 50, 77, 70, 76, 64, 69, 75, 59, 63, 68, 74, 55, 58, 
                62, 67, 73, 52, 54, 57, 61, 66, 72, 49, 48, 47, 46, 45, 44, 
                43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 
                28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 
                13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 51, 53, 56, 60, 65, 
                71, 1}}]]}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, 
             {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
              LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
               11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
                27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
               42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67,
                62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
             {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
              LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 
               84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
                100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 
               112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 
               124, 125, 126, 149, 143, 138, 134, 131, 129, 150, 144, 139, 
               135, 132, 151, 145, 140, 136, 152, 146, 141, 153, 147, 154, 
               127}]}, 
             {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
              Dashing[{Small, Small}], 
              LineBox[{155, 205, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
               165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 
               177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 
               189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 
               201, 202, 203, 206, 204}]}}}],
          AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
          Axes->{False, False},
          AxesLabel->{None, None},
          AxesOrigin->{0, 0},
          DisplayFunction->Identity,
          Epilog->{
            InsetBox[
             BoxData[
              FormBox[
               TagBox[
                GridBox[{{
                   StyleBox[
                   "\"simultaneous regime shifts\"", {FontFamily -> "Times", 
                    GrayLevel[1], FontSize -> 10}, StripOnInput -> False]}, {
                   StyleBox[
                   "\"(synchronizing window)\"", {FontFamily -> "Times", 
                    GrayLevel[1], FontSize -> 10}, StripOnInput -> False]}}, 
                 GridBoxAlignment -> {"Columns" -> {{Right}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Column"], TraditionalForm]], {0.68, 0.08}], 
            InsetBox[
             BoxData[
              FormBox[
               TagBox[
                GridBox[{{
                   StyleBox[
                   "\"regime shift first occurs\"", {
                    FontFamily -> "Times", FontSize -> 10}, StripOnInput -> 
                    False]}, {
                   StyleBox[
                   "\"in master subsystem\"", {
                    FontFamily -> "Times", FontSize -> 10}, StripOnInput -> 
                    False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.2}}}], 
                "Column"], TraditionalForm]], {0.28, -0.5}], 
            InsetBox[
             BoxData[
              FormBox[
               TagBox[
                GridBox[{{
                   StyleBox[
                   "\"regime shift first occurs\"", {
                    FontFamily -> "Times", FontSize -> 10}, StripOnInput -> 
                    False]}, {
                   StyleBox[
                   "\"in slave subsystem\"", {
                    FontFamily -> "Times", FontSize -> 10}, StripOnInput -> 
                    False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                 DefaultBaseStyle -> "Column", 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.2}}}], 
                "Column"], TraditionalForm]], {0.29, 0.82}]},
          Frame->{{True, True}, {True, True}},
          FrameLabel->{{
             FormBox[
              StyleBox[
              "\"\\!\\(\\*\\nStyleBox[\\\"b\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontSize -> 10, FontFamily -> Times}, StripOnInput -> False], 
              TraditionalForm], None}, {
             FormBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"coupling strength \[Sigma]\"", {
                   FontSize -> 10, FontFamily -> Times}, StripOnInput -> 
                   False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                DefaultBaseStyle -> "Column", 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Column"], TraditionalForm], None}},
          FrameStyle->GrayLevel[0],
          FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
          
          FrameTicksStyle->{{FontFamily -> "Times", FontSize -> 10}, {
            FontFamily -> "Times", FontSize -> 10}},
          GridLines->{None, None},
          GridLinesStyle->Directive[
            GrayLevel[0.5, 0.4]],
          ImageSize->226.2047244094488,
          
          Method->{
           "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
            AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
            True},
          PlotRange->{{0, 1}, {-0.7698003353541839, 0.9622504368667176}},
          PlotRangeClipping->True,
          PlotRangePadding->{{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.05], 
             Scaled[0.05]}},
          Ticks->{Automatic, Automatic}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{0}}}],
      "Column"]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Rows" -> {{Top}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.618921585533249*^9, 3.618921591923354*^9}, {
   3.618921689099222*^9, 3.6189217047810593`*^9}, {3.618921981197666*^9, 
   3.61892199678045*^9}, {3.618922338651799*^9, 3.618922380607781*^9}, 
   3.6189882199431353`*^9, {3.618988340451103*^9, 3.618988360128318*^9}, 
   3.641657115686428*^9, 3.6416571505620613`*^9, {3.641657196043604*^9, 
   3.641657212349174*^9}, {3.641657246987504*^9, 3.6416572874760036`*^9}, {
   3.6416573343434772`*^9, 3.641657418372168*^9}}]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["export", "Subsubsection",
 CellChangeTimes->{{3.668613649471249*^9, 3.66861365030927*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<figures\>\"", ",", 
      "\"\<sync_window_vs_coupling_3panels.pdf\>\""}], "}"}], "]"}], ",", 
   "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.641657440294538*^9, 3.641657440648388*^9}}],

Cell[BoxData["\<\"/Users/charliebrummitt/Documents/Research/Coupled fold \
catastrophes/figures/sync_window_vs_coupling_3panels.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.618922020763995*^9, 3.6189223855693083`*^9, 3.618988257091857*^9, 
   3.6189883745480137`*^9, 3.641657121965498*^9, 3.6416571560525627`*^9, 
   3.641657216402244*^9, {3.641657249413232*^9, 3.64165728978331*^9}, {
   3.641657335582398*^9, 3.641657365869038*^9}, 3.6416574365183764`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<figureS1_revised.pdf\>\""}], "}"}], "]"}], ",", "%%"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.64165712378894*^9, 3.641657159767354*^9}}],

Cell[BoxData["\<\"/Users/charliebrummitt/Documents/Research/Coupled fold \
catastrophes/figureS1_revised.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.641657161063137*^9, 3.641657217706428*^9, {3.641657249875763*^9, 
   3.641657290319228*^9}, {3.64165733604878*^9, 3.641657367180243*^9}, 
   3.6416574375015097`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Figure SM-2 Different couplings for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", "drives", " ", "y"}], TraditionalForm]]]
}], "Section",
 CellChangeTimes->{{3.608226435933573*^9, 3.6082264418312883`*^9}, {
  3.668613611222248*^9, 3.668613614646543*^9}}],

Cell[CellGroupData[{

Cell["Code to create the figure", "Subsection",
 CellChangeTimes->{{3.608231639905609*^9, 3.608231642789246*^9}, {
  3.668613415752825*^9, 3.6686134171433887`*^9}, {3.668613618574749*^9, 
  3.6686136208053627`*^9}}],

Cell[CellGroupData[{

Cell["\<\
Variables for the plot range and image size of the three panels\
\>", "Subsubsection",
 CellChangeTimes->{{3.668613581983214*^9, 3.668613590110675*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"plotRangeForFiguresWithVariousCouplings", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", ".55"}], ",", ".52"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imageSizeForFiguresWithVariousCouplings", "=", 
   RowBox[{"1.3", " ", 
    FractionBox["2", "3"], "  ", "8.7", " ", 
    FractionBox["72", "2.54"]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.608232410767982*^9, 3.60823244069107*^9}, {
  3.608232485512586*^9, 3.608232492152903*^9}, {3.6082329813990183`*^9, 
  3.608232995855474*^9}, {3.608233067744236*^9, 3.608233068078145*^9}, {
  3.641657703640437*^9, 3.641657730422817*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["panel (a)", "Subsubsection",
 CellChangeTimes->{{3.6686135458378057`*^9, 3.668613547077941*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"panel1", "=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
      ",", 
      RowBox[{"a0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"x0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"y0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"z0", "=", 
       RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
      RowBox[{"sep", "=", "\"\<\\t\>\""}], ",", "masterSNBs", ",", 
      "slaveSNBs", ",", 
      RowBox[{"\[Epsilon]0", "=", 
       RowBox[{"-", ".1"}]}], ",", 
      RowBox[{"b0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"c0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"fs", "=", "13"}], ",", 
      RowBox[{"fsTicks", "=", "11"}], ",", 
      RowBox[{"imgSize", "=", "imageSizeForFiguresWithVariousCouplings"}], 
      ",", 
      RowBox[{"aspectRatio", "=", 
       RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
      RowBox[{"upperColor", "=", "Red"}], ",", 
      RowBox[{"lowerColor", "=", "Blue"}], ",", 
      RowBox[{"pointSize", "=", ".035"}], ",", 
      RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"masterFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"coupling", "=", 
        RowBox[{
         RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"slaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSlaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"x0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"x", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"masterFlow", "/.", 
                   RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}],
                 ",", "x"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "x0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"y0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"y", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"slaveFlow", "/.", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                    "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
             ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "y0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"masterSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"a", "/.", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"b", "/.", 
          RowBox[{"NSolve", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}],
                "}"}], "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"yFixedPoints", "=", 
        RowBox[{"y", "/.", 
         RowBox[{"Quiet", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"slaveFlow", "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "\[Rule]", "x0"}], ",", 
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
              ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"zFixedPoints", "=", 
        RowBox[{"z", "/.", 
         RowBox[{"Quiet", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"slaveSlaveFlow", "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"y", "\[Rule]", "y0"}], ",", 
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
              ")"}], "\[Equal]", "0"}], ",", "z"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "@", 
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{"computeSNBsForB", "[", 
               RowBox[{"a", ",", "\[Epsilon]0", ",", "coupling"}], "]"}], "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
             "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", 
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", "Italic", ",", 
                   
                   RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                "]"}], "&"}], "/@", 
              RowBox[{"{", 
               RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], 
               RowBox[{"(*", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", 
                  RowBox[{
                  "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\)),\>\"", ",", 
                   RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\< \!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(x\), \(*\)]\))\>\"", ",", "Bold"}], 
                    "]"}]}], "}"}], "]"}], "*)"}], "}"}]}], ")"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", "Blue", "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", "Red", "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
             "}"}]}], ",", 
           RowBox[{"Filling", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"1", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "2", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Lighter", "@", "Blue"}], ",", 
                   RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}], 
              ",", 
              RowBox[{"3", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "4", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Lighter", "@", "Red"}], ",", 
                   RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}]}], 
             "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
           RowBox[{
           "PlotRange", "\[Rule]", 
            "plotRangeForFiguresWithVariousCouplings"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
           RowBox[{"Ticks", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}]}],
                  "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  FractionBox["2", 
                   RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}]}],
                  "}"}]}], "}"}], ",", "None"}], "}"}]}], ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"x0", "\[LessEqual]", 
                   FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}], ",", "Blue", ",", "Red"}], "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{"a0", ",", "b0"}], "}"}], "]"}]}], "}"}], "}"}], 
             "~", "Join", "~", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                  "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\!\(\*SuperscriptBox[
StyleBox[
RowBox[{\"\[Sigma]\", 
StyleBox[\"x\",
FontSlant->\"Italic\"]}]], \"*\"]\))\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "Bold"}], 
                    "}"}]}], "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{".85", ",", ".92"}], "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Style", "[", 
                  RowBox[{
                  "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\!\(\*SuperscriptBox[
StyleBox[
RowBox[{\"\[Sigma]\", 
StyleBox[\"x\",
FontSlant->\"Italic\"]}]], \"*\"]\))\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                  "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{".85", ",", ".2"}], "}"}], "]"}]}], "]"}]}], 
              RowBox[{"(*", 
               RowBox[{",", 
                RowBox[{"Inset", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<B\>\"", ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "]"}], ",", 
                  RowBox[{"Scaled", "[", 
                   RowBox[{"{", 
                    RowBox[{".05", ",", ".8"}], "}"}], "]"}]}], "]"}]}], 
               "*)"}], "}"}]}]}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<(a) coupling = \[Sigma]\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)with\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\[Sigma] < 0\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
             RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}], ",",
          "Bottom"}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.622461170070952*^9, 3.622461171712236*^9}, {
  3.622461237843273*^9, 3.622461253828796*^9}, {3.622461286723494*^9, 
  3.62246132069928*^9}, {3.622461427012334*^9, 3.6224614483194237`*^9}, {
  3.641657466077882*^9, 3.64165747393635*^9}, {3.6416577896429577`*^9, 
  3.641657792335705*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[
    GraphicsComplexBox[CompressedData["
1:eJx1mXlcTG3Av0MeiZJ4yJZKaJUl2tRdCUmEFqJCiWTfK2mlVLRQoZJKJWmz
tKJb0SKVac45M9OcOTNTFCpNREJ45/f5ue/nj/fz/sMf+tB9d+Zc38ul7nlk
i/doGRmZQOkv/+/3RWBaz58/EqhzIeeeQ6wYVsntPryvuh8eJHPcH0WIYXAL
p7dm90eotCFBcWOQGH7ImTHdaHYfvPPnTqrDaTHUEdmOn8T0wEhVBeB4WAyz
p9z+0h72AfYNihsCvcXw+Y6myxC8h94R4YNK7mI4+9Zstesd3VDnGT/kqaMY
rl+1w5+I6oLvDnk2eNiJ4dyfe0O0172F1iUldoesxFC/6GbI8Y+d8OGrCpcg
IzEUn8xcxMnrgEu8RX9+6ovh/rSE22m+Ymh4SkHjkKYYbgtynVegIYSjN/S8
rpshhlq92juc0mnocifwc8wkMTywcdOFzjc86KEXYq4mK4bbTziYr1jBgbO3
2S+a/kkEr8L3m2AZAcu3RffV8UUQjOa5LBrVBtfeGWNRViOCvrzaozmDzfDb
o0qjo3dFcOWNUJUqvwaoYXzOXDlWBH2YT7Tr9FqYX94xVea4CDqI9QobNaug
jmvepFQXEVwBU7k954tgWdVr5f1GImgy4O4l9EqEcpWlXYUqIqgbLpF/duoq
GGWeq/x6WAiLG/rvBm8rBk+eDZ0aIITw6bomY9PaSnDebX3LYJEQ9uZn7d+4
rRYccHPt8goXwpuFi1K/lDaAU+sNU9SdhPDJ7oh/F5c3g7wK5Z/3pfcSMPUG
5aDcBppmT2cq3jKwmUXasFMIYBdgs3R/OgOPvTJaEDeNA0omzrO6bs3A7Nc2
/+5t5IF9rc8P1zkJ4JfbZgXLdkpgsyTNMiJaet+r3cTvDr0GVrHcs/+MFcLb
n1coJLiwgapfy8mI5wxU3RhRWsIjQcTTjui8kwyM3lB9M+AIF5i9Fx0u/S6A
CZ+0Xt0olkBh1JTRBy+JYbTjpx8xyq0gWnWF9sKpQhg7xufY0UdtoGz52I/R
JANPxemfqzEhwWKWy3KXaAYGTfzZIfucA1aJlPIr1BlY0TH27v1hNnhr2VkR
dZ+BjRNFH2+docA+6C331Y2B12JDXQdm8cCT7ft6H9QK4K7rt/jNXAlMNfaf
4XFZDG/zzeSEe1pAk7JkU9AsIZS9FDJvl1cbeDEY3F0lYKDa4lEd63oIILpQ
1Xg5kYHDB2bINh3kgPT41evIpQxc5Ku6I/MOG1gX6ly5W8XAE4UPNmtpUaD1
zLVRKvsZqNR/62xpHResiu/rV+kQQNlCAQQzuED5sgzsVJTel4GXke5xHmg9
0P7rebIANvRu9+zulcBFd3QGOdLvb7Fqh+I4xRZg73fWb/ZcIQSsSyNc0zZQ
NFT9EYoZeFqmVzm2lgByzNPjETcY+ChVK6nAigPmidKDBaYM9CnSMZwRzAYz
q7MU1KD0fs6lhR+UoUBL/+5dnw4zsGVO8cTrKVzQNTlK1P9RAGsEvZs0+jlA
deOn4UsqDOR7HG9UWMsDhvLrP0cWC6BTdXwPe4ALXC7JlAjZArj7j2Ou7U0e
SGw1GMzYL4ABScYLBr9KoPWhy45TpO+XIbjsSmpnM7DR7bB7ryaEbp+VP1xd
0AbI7dqdTzsZmPlepFtSRICBgcnBP1IZeGVZCTNHjwNCD4068tyCgRGsEjXK
lw1y5epMnGsYOOidkBbbRwJSZu2MtmMMLChd4Tz+AhecvH5h+sCgAGacPHHj
Ko8DDKurzy2ZI30+hr4rBS/hgfihzFPXKgVwqYvKMhuaC64cOuFmwBdAy2t0
f2UkD5yxF/6EFwRwpL4nOM2NB16qMhkLsqXn9V148fsPCXx0KytkifQ87UoM
0dXcDJwG2/a2qAvhgTEuomOz28DkrInVj98wsMxtu3FNNgHcP70MXXqTgWF/
BkNd1DmgsrdvYoklAxM7Bqc93MUGU1nLnQ7XMlCOP+HurU4ShJuRHPMTDEwN
DfhuFcAFw+Qzsn1IAOMsy82bWzhgAWtOut9cBubVmpeWL+AB+CYpGlQLoLqG
GzeQxQXrjNJkSxgBNPCae/VzIA8cn0sbd8UKYO+VRZrUZh7w/eZYOD5fAPeV
+LhpZPFAdcGd2DIXAXypU3ZwzUoe8DRf0PXgkQBuenXNLvQKDySpL1PxDRBA
hZ+5tNc+Hhira2hef1MAET++n1vu+XIhCyB+nBIZ/v6zggUQP/T63dOa17IA
4sfvi4vDXm5lAcQPi/V7zWr3sQDix8mMau0j/iyA+BF21p+9JpoFED+Gx70q
/5jGAogfQQWPde4VswDix8uFczVja1gA8ePdgOLEgxQLIH70PK2pPPqeBRA/
3tz0PhX7kwUQP2z7781glNoA4kemSSS5aX4bQPyINwix0FrZBhA/Fi82jNns
2AYQP5IMhpqz9rcBxI+xHYFnH4S1AcQPZ6I+dDilDSB+6GwaE+hS1gYQP7JY
6dk+7DaA+KFhwLvb8rENIH4kt5Tk/pnIBogfNq+biCpdNkD8WL+en3tjPRsg
fsQ3RK3yO8oGiB+Nusv7TiaxAeJHh+5CUraGDRA/uCvt564dYAPEj+zXh6rL
1AmA+BF2YL+geCcBED9GK66M/JNDAMSPtLPufqxRJED86Kp8YndbQgLEj4d5
a4zdDKT3/ZcfE37kmXsCAiB+LFJ6aNMZQgDEj/qm9EXPXhMA8WNyRobdQzsS
IH7En3QtjddlAcSP2v128VaLCYD4kbzlbDNzhACIH7MrtM8rVxEA8WP83SOT
SjRIgPjhszZdRnSFAIgfXY0z7594RwDEj3j9Ga2loSRA/Jg2PTaiQJsFED/C
TiX49GgRAPHjYqIMUbiPAIgfh0bXD/CLCYD4UfTN9GjiZBIgfsjTzgthFAEQ
P4KUPpRvogmA+DF++GqTgxcJED9Mfwb/uLCcBIgfQbPvPM4uJAHix4CJLlGl
xQKIHzJKY63s5xMA8SM9oeZVnhcBED9s7tWu6cwnAOKH9t0Ok0vjSYD4sbSJ
uWd7QXo/f/kRfEPV9QxFAMSPfae/tfu7kADxY5Fp3DNalwSIHypByxvEiSRA
/Bj6GTw++hgJED8qKjfVN/BJgPjRWOitbC39/hE/5NxvHQ6ZRwDEDz/9rdz8
3QRA/HC7dtj0cB4BED9ezQy2yxkr3SGIH8GPg6eEEwDxwy/SJOMamwCIHzzJ
j0y/TSRA/FBpqjEzWih9Pv7y40mCcFVbNAkQP6pmKrib+JIA8YMyy3qaV00C
xI/w/bdVrDOk5/3Ljy5bs4qx0vMgfgwnFm1J1SAA4odZ94mfBbsIgPghSS4z
WnGHAIgfV9OuFlSMIQHih3GFnfePUCn3//LjpX1Bp04bARA/nB7Ct7EbSID5
UeE5a0CTBIgfl7N7FmlHkADxY8zmt48q9pIA8YPvkxMSXkoCxI/OeL2JO1NI
gPgRS/N0HnyU/rt/+dFjt50sjSMB4kf53g2Zv1+SAPFjrbt9YFYuid+fyYq5
dafHkXh/b0pOdT14l8D729lrzvWxHgTe39FPmZuGmgTe3wEqThzFfjbe3xKn
kZ3vqtl4fyv2xb3qS2bj/c1khTSMPsLG+9vCv6bf3Z6N97ftDqvhE3psvL8f
VL+90DiBjff3aYsJkzr62/D+nhpU46bY1ob3t+bRcbtVS9vw/jZYZrRLLa0N
72+ZRyUzJoe14f29MgwmZfi24f1d8U00wcepDe/vbINKY2XzNnipoDxvnD0N
cqm4tcML2+Coq+S652OFIHD6sfcvJrfB6XfvNWTbioHc5TbTjF8syLkTMm/s
xQ4g6DSq8OphwR33dCKOd3aC3VoPp0zisODK1HFmdfPfgtNuLyWXn7Pgm7jK
Ic3zXYAve8DnZzELPpoX3Ksu6AYv+mOUTW6yoPj2maWyc96DXDvtG7MusSBb
a3XIoN8H6ftu1M9P/iw4N2W1WuPTHrBi9xbVrftZMDnf9bvJSC94wEqkd7qy
IAGt2yucP4IIw+VXPW1Z8ECNx4Q51/tB0C0Fa9KYhfYEGP7/ewJ2ih12T7zM
hfxm/aSCLSQ8PWN2Q8AQCX30fOT+IQn4YZeYGNrBhmNUddzPhBLw5GGTSaPO
voYt9UsPfwMEtA+pClC0l4CRK7SBzWIWzJ2+6cQZYx60/nOkYfCy9O+pXx62
LZmC5/ZdydzUR0CL+D3KO8ZL/e/Up56GRAI+cTM9snUnC57d+7umYCMBBRkT
n//7uR8wBo8jowxZUDXfwSGzgwPfl/OLFmiT8PzB0RNvupBwq+xn+Y6nBHy6
02fpuFwJOLZaTltWjwXllm0a0Yvlwb0qk6dPqSNhR1rtzrXdFJy2Wijv/52A
7+/kLlHYRcADLiuv9aYTMMhg/BvrEhb0GJdyfpULATXvL983o64fxIwLNCpa
wYIhdQ48FyMunJkz/CNlJQl/Wcd9iMklYcXGtVbljQSUPZrAkfeXgHNGXuHz
FrGgzYhDT00nF+5174wqP0jCJ7EO9b0xHNhUb3Y/abr0fh2kyCQkwHhqgWq3
NgtWWbKejavkwYuFS+reSkioKhfVaqHIgc9yBfztMiSsfrjWam8MAW+IrGrm
ZhNQeH0grYLHgicNX31X3U5AWxM7k9SifnBWa+3kGiMWXEK8TlviyYXtL6L6
wFoSmhY5bwtvJWGy9fS8ja0E1BrOybvkKQGCJJPiZQYs+HU8qyhNgQdj9MXe
yoEkPJT2Orq+jAO//8qT1VEjYQrXcdeFJxLwcdzI9y86LLh1PstoixcPns/f
G6+dLX2f9L+e/66cC+tKV9+dvJOEWxp0noR+kICLx6hkrhYLPjHvu2CqwYE/
a1av6BhDwjwTlZfKmQS82FXVW5tLwNgNb/0H+1hQ9MNGqORGwO3nnDTcbveD
vND6dDvp8yrPn/Qn/QwXdl6dm8e3JyHvTcWk4E4SBoydbrKgjYCmK0sSNmyV
gL3cvrePpedpVVKaLD+PB+9lXW9MP0/CNbcnfVzWzIHlbLVDKZokLJjlsW7N
fQkI8v0nMlCXBRfrKaVAP+nXK/AWOj4g4cGvky46tXChn6vbrTJvEu6ZsDzH
WigB3S+cWR7Sn9cQe8m335k8GKLeK6J6SRikGk+93cCDvbNeXdxynYSW4WrE
sy8ScL1R4/gm6fljeDd3G+txoLfJ2wn5Y0mYHiij8OEeAav33+VOyyNg90KP
90rfWHDfl9cieXcCet5qT35ysx9UXCw5FCc9/2nGoMQ5jAunRvJdnjiQ8E6Q
b29gHwknhDVMTWITcJXH8n+KNktAwMon42Sknz/TqYtrn+nzoN93V65eFAkf
5Bqk93A40NqwflCwgISPzN88zb0nAZad+5yfSc+fZrB4/elwHgxVWKLXXiW9
32EDkwk8Ltym1V6ss1/6POhXzbjNk4DaO10ns6Tn71EviUjdxoONUf26Y9NJ
uC4nZ626RAKy+zpHJUrP+0Jr4L3cYR4kDU/tEuaT8OSKo4Vvrku/H53IxdVs
EhrtTvXY9UMCJoxcfTdR+vWIT2X+/MFPKxm870c+vd05ksLgff9N00vdq5vB
+762KWuWoZoQ73v2Eb03ri5CvO/dl513Db0gxPveIm3g49lCId73R7r+fPKm
hHjfK06CTfLDQrzvZfVBzZfpIrzvU16mLsswFuF9z1l3Kj/SWYT3vbE8dNt+
QoT3vZaK/za7OBHe93Oc17na5onwvrcnX9/aWivC+17pn5p5je0ivO8T4zMK
ZQZEeN87FXhZ3hsjBohPjq7DxsaKYoD45FMR+X7zDDFAfMo6txXsmScGiE8V
W7JDRuuLAeLTUHE3W89IDBCfepPoPYcsxQDxqbImOm+FnRhgPtkHENccxQDx
iUjXjV/gJgaIT95RYKeZtxggPsVMudZy8ZAYID610F8Pnz8lBohPb+7OnzIm
SAwQn/adrDRruiAGiE9//78UID4df7xF88knAUB8ertD5b7nUQYgPq3zdXH7
VMsAxKfgmg3rj8kKAeJTXgDbRjlaDBCf5KOUPp8sEwDEp9dq/dNVtjEA8SlJ
Oa41o5gBiE9t6mHfHn9lAOKTcUHndUmkGCA+7WHlyFvPYgDi09fw2KLICAYg
Ph1WX2m79JJ0N/zlU/eRI1nOwQKA+LRiVVaRxI4BiE8dS2w0zuUwAPGpP6Tb
cH4/AxCfdlmOtmIixADxaembyOqWcQxAfEo0MfG7f5YBiE8+eYqpGjFigPjU
rZNucJ8rAIhPYTU2coQeAxCf5E19N1hdFgPEpxf8jV/CnQQA8elSx22hgg0D
EJ8e5lkM22YwAPGJ51gK1/UwAPHpffFs0lH6/SI+nXg+1Kz1SwAQn8pW7588
8zQDEJ+M/eddSJH+vBCfarZnOLo0CgDik2M095GFJgMQnxZb1ooqpfeL+NTI
zNAGGQKA+BTJNlXa2iUAiE+eMc4JjdLzIT5trjcNj7RkAOLTi6y6lpybDEB8
OnTZjN76ngGIT1vGuCtMkp4H8cn3y67Jsd8EAPGJHbY/xPoEAxCfTvCkT6j0
PIhPmV3vBl5CAUB8Sirdad86lwGIT+8UzWeclp4H8SkzIC/h3ysCgPhELtKc
+UAoAIhPD3cnfTkvPQ/iU/PepPYr2wQA8Wn3wdLF0woEAPGJLyqaN1H6+UJ8
ercxrbDaggGIT7Gq3I7NaQxAfOq6WtLu/o4BiE9Nf97l9Ek/r4hPxqNyPQu+
CADik9U/ldnEMQYgPn2Y37nNUHp+xCcydkGn2WMBQHySd6qqi5nDAMSnfxwn
LnWSnh/x6VWAw+W4KOn9/uXTl513xlvQ0ufhL59WH92g4SU9P+LT+d8Jl71y
BQDxiWxp3dEj/XPEJz/HCa7RNwQA8Yl0/34x/5gAID6prRl6ry+9H8SnZ94b
NSb1U9ifDjAzWb6eHOxPnJq5lh31HOxPn1zvWg6rcLE/cc8eGR3oy8X+1A49
M0tLudifTCLlzP79zsX+JD48YLbEkof9SS/lpVVCKA/7k7ah64TtNTzsT7Ib
vGe+/acd+5Pfkh6TRtt27E+fP80nda60Y39qVxo7y51px/6UIh6qalrIx/6U
99NvLhHMx/7U+3rlxqsMH/uTfKP5yzQH+n/1C/S+ztxWvUbvGoV94qNV4O4E
6XOG3tdOwYWcl8kc3DNk1mUJuAV83DNKPL/rRirTuGfsLIzbuCqbxn6RzdIf
UXOhsF/8yqc8KqTvJfT+7vd58nvlOQ7uG78OWXQNJPFx39B0mF27+hsf942I
iypxe07T2DfqA9LPhNVTuHccZI0o5r/g495R7//ga60BjXtHkdmiz1M7aOwf
/NpDqpqzKewfJUPfRrf8prB/XCmozZU5ysH9gz2ntKQpmo/7R7SOeT/o4eP+
8fyMw3EXTxr7SI+g9KxmCYV7yLx8clpmBR/3kMzIcTaMGo17yKyO5u5GSGM/
8b3a8tw8gMJ9JH14QYv2JRr7ysK8SmsZmsK9xK04UdQ9SfB/+srdMT310UMU
9pWdB3aEWO3n4H4S51Fhu+4CH/cT/kUrOdEbPu4nOraeTcQ2GvtLZOw9/oRs
CveUST8suY8e8HFPsVOb6585g8Y9RXZtZnPQfRr7zILHddbH91O4r5weDtgo
F0pjvymWsdf8yqJwb7k/88Gr+19p7Dcxa3QVAi0o3F/2aevHnH5NY985sCxI
3jmKwj3GbeqzdQEWAuw7ugMefk6fKew7811P6bd7c3CPGTV0lX0pjI97zMKH
ccllYj7uMWTMGGcDJxr7z4uFI/HlNyncZ5YUeJ59UczHfSY9qmG10jQa95mm
77+WP8+nsQ892XOD0t9F4V5jym6l75ylsR+lbbyW+fIVhftNY4PL0Q89NPaj
/p2jdFINKNxztGKO2xxsoLEv2VXrrvsWSuG+U2VsoX1bXYB9qVxvzNyKLyTu
PcLX3S9ejRJgf+oO/RUnv57CvhT7g65cNkBhX6ozK6rV2MPB/Udp/IFMg1A+
7j8qH60cNEV83H/m2T0Vv9lMY3+atTZW3z+F+q8HvbxWuqGIj3vQ81x+pd1U
Gveg6EvvVwTeobFPTZNLJFbtoHAf0kuKvz/an8Z+5fohMUP7JYV7UfRSwLzt
orFfvduekFC5gML9yNSQ/ST2OY1963eAcdeCIAr3pJa0fa3qKv/1JLXlV3wv
/aSxfyUP2muP2FC4L038cmpK7Ob/+pKlv/C4zgCNfaykckvCASMK9yYF32ZV
Z30B9jOjlPCLcxQp3J9G79zre1FOgP3sksbSa64uNPazjnzvD786+NjPTtfv
8o88x8d+tmMR1++oLh/72amJk8v72tuxn51onKPyMLYd+9mUUX5BjuvbsZ8d
nBF/zki2HfuZWn/ZGW4tD/vZPKeFRYrhPOxntmazbp0352E/I12SgzN+crGf
bU/e3mX+gIv97MSZs+kT9nGxnz24E/X75mwu9rPsS+NSkl5wsJ/trlh1gNrL
wX5m/cx64NUX6n/1F8S/ewa1x1cW0thXdq6R3cadTmNfGZYjOtML+bjH2AOh
IP4aB/eYtPmRlzuWcHCP+cgf8J2fQWF/ySvf8nRtP439xYHJ316ynMb+4jH3
RZVuAx/3GYeZ1uSZIg7uM1ome75pbODgPlP/Z5+ObCuFfSZCodOq+xyNe424
PDy/OpiDe02EYuvznKkc3GvS7bc0OHpR2G+O1ymn2mj95zdpCRfLUlfT2G+q
6KfKPiQf95sA31dy6ZUc3G9q3Ve90trOwf0mSmnJWuVOCvuO570mc5tEGvcc
beG9rIYYDu4592T8T8XM4+Ces+TOQ/at8xT2n84vD77qNNG47xTFufZZVFDY
h+aL60/77Kdx7xng9baHGlL/pw/dPp/8mdlAYx/6OHu+yUKaj/vPU+3Go3Mh
B/ef438s7kft4uD+o2GpKknspbAf1X0nhW4ZNO5B5rGg82ECB/eg0T67LRt0
OLgH2VqJ+j5cobAvLWipOj3Ep3Ef4sSNPbDrOYX96WakYdKJEzTuRamHWj+W
baSwP9VYORf0jRXgftTl4bjo80kK+1SH0+jiKY9p3JMGTjw70j+Wwj6lfl3d
auoWGvvUQoMJl+KEfNyT1l/p66ZrOLgnzacGNB54cXBP8hsJ3GMyQGG/urjr
vNb9XBr3pVmCORbZiRzcl4p+V5zYtoiD+1JYbFh4zg0K+1b8vHdvTN/SuDcp
l91nnjVS2L9KTD5Mv+VH4/50/pn2umBXCvuXh1ZwXMtUAe5Rmr8UTo0EUtjH
Rjc5HT1WS+M+dcXBOr5Og8I+lrTjXEqJgwD3qsMVN76kWVPYz/b+E67t8Z3G
PlZ9OfuPoRONfSzSnj20WszH/Wpl8L8qJtLPLeKfYaqFr403B/crbYvnvPOf
KexnS6w+x0ju0v/1LPh+zKxkDu5ZUR05f+Ys5uCeVfvzWlhfGoV9bUVIX5fm
Bxr3LbVBybi9ryjsb4PpvSrgLI17V62zlSDcg8L+5q0vWVg8R4D7l7JT0Uh7
CIV9bqOCLWlVT+MeFtyr0rtGj8I9TM+xf6PAlsJ+V5a4LP7gHxr3MctE+Vz+
5//62MRJWWssnCjse2mt+lq/JgpwLwOqj1KmTKew//3bP7J4/QoB7md22jMd
xGYU+B/+2J5K
     
     "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333], 1], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
           11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
            28, 29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 
           38, 89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55,
            47, 34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 
           94, 81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 
           97, 197, 170, 199, 182, 195, 158, 200, 183, 196, 168, 198, 180, 
           193, 148, 169, 181, 194, 156, 166, 178, 191, 140, 157, 167, 179, 
           192, 145, 153, 163, 175, 188, 134, 147, 155, 165, 177, 190, 139, 
           144, 152, 162, 174, 187, 133, 146, 154, 164, 176, 189, 138, 143, 
           151, 161, 173, 186, 132, 137, 142, 150, 160, 172, 185, 131, 130, 
           129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 
           116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 
           103, 102, 136, 141, 149, 159, 171, 184, 
           101}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[1, 
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333]], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwtz2VTlVEUBeB7GRUTELsF7G6wkTSwsFBUFDsG7MYOTFRs/EN2dysWtmJj
PDPw4Zm11z7nzLxvVHZuek5IIBAIcpXmhu78MHeUTehGGF1owUdn7WRDagTL
H3eiKeG8sWot61GVP/pX2psbUZMgZ+yiZG0q8VP/xFva6PWpxl/9G2eJ1iOp
zC/9M+84R4xdHarwW//Ce85zgYtc4jJXKv73Gte5wU1ucZs73OUe93nAQx7x
mCc85RnFPOcFL3nFa1r5jrqEUqaX8oG2egOq80//TgdzY2oRQmeaEUFXWtKD
EnfHy9Ps4STr2MVxFrOa7RxhJgtYwRYOMZnpzGUpGznAONIZyxhGM4qRpDGC
4QxjKKmkkEwSiSQwhHgGM4iBDKA//ehLHLH0IYNpzGEJeeynN5OYymxy2cA+
ejGD+SxnMweZSCazyGE9e+nJIlaxjUKymMcyNlHABNayk2MsZCVbOcwUdnOC
NZxiB0fJpoh8/gMZemOF
           
           "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
         12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
         29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 89, 
         76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47, 34, 
         88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 81, 69, 
         48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 97}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        LineBox[{101, 184, 171, 159, 149, 141, 136, 102, 103, 104, 105, 106, 
         107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120,
          121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 185, 172, 
         160, 150, 142, 137, 132, 186, 173, 161, 151, 143, 138, 189, 176, 164,
          154, 146, 133, 187, 174, 162, 152, 144, 139, 190, 177, 165, 155, 
         147, 134, 188, 175, 163, 153, 145, 192, 179, 167, 157, 140, 191, 178,
          166, 156, 194, 181, 169, 148, 193, 180, 198, 168, 196, 183, 200, 
         158, 195, 182, 199, 170, 197}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        LineBox[CompressedData["
1:eJwVztVSAgEUgOHFMRAsVOwAu0UfxUfwzht9TrsTbMTubj8vvjnnP7s7s8nx
qbHJUBAEE7RYRniz95uNpChjiFbuPOsx64j+f8gATZRz6dRpxgnzrZ/ptddT
Qohpt6QZI593fc8VXbqGYn70CzO06UoK+NAPXDNLu1sVhXzqR26YY54FFlli
mRVWWWOdDTbZYpsd0mTYZY99DjjkiGOynJDjlDPO6fAf1RTxpZ+4pVvXEuFX
v9Jnb6CUPAZppoJhEoxy4d0/K7c4Qw==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwVzuc2ggEAgOHPpbgGkcyQPSJ7RmY4skfZyd57XazHj+ec9+dbnMokVoqC
IEhzKX5I8UaBb3b55IoRnjlli0XeOWePfh44Yp15kryQZ5slSrghx//ANKMM
8MgxGywwSYhb9skwwxiDlHLHAavMMs4QZYQpJ0IFlVRRTQ21RKmjngZiNNJE
My200kY7HXTSRZxuekjQyz2HrDHHBMM8ccImaaZ45YwdlvnggixfXPNLH39Q
UCz0
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}]], 
        LineBox[CompressedData["
1:eJwV0cVRBEAQQNHZxSUJUiIEAlgiwl0Ld3dYKNzd3d15HF796epbT1ZObnYs
EkKIce+REQ1hQCN6rWm6pcn6qG18c84aUyTY3eoODbxzzBJj9PDLJRtMk8cT
e8wySDuN5PPMPnMM0UETBRRSRDEllFJGORVUUkU1NdTywgHzDNNJMx+csMw4
vdTxyiELjNBFC5+cssIEfdTzxhGLjNLNDxesE6eVL85YZZKo293oNv3/H2G+
0lTd1CR90Eyd0US903Td1RT9A4H1URg=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwNw2NThGEAAMCnvmdzumwbk+3Lrst6L/vHtzuzsUQyHqWEECLPUkP4td1n
j/x2yQ/PrfXRPecc9NUTV6zw1i2n7LXZpAcuOGyaF645aod1xkz30nXH7LTe
SjPMNMtsc8w1z3wLLLTIYkss9cq443bZYJV3bjttny2Wee2GE3bbaLX37jhj
v62We+Omk/bYZOS+8w5Z44O7zjrgi8cu2+aTh3656LsJ/xzxzVN/XPXTf1T8
IJk=
         "]]}}}], {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        StyleBox[
        "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm], 
       FormBox[
        StyleBox[
        "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Epilog -> {{
        PointSize[Large], 
        RGBColor[0, 0, 1], 
        PointBox[{-1, -1}]}, 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\\!\\(\\*SuperscriptBox[\\n StyleBox[\\n  \
RowBox[{\\\"\[Sigma]\\\", \\n   StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\
\"]}]], \\\"*\\\"]\\))\"", {FontSize -> 11, FontFamily -> "Times", Bold}, 
           StripOnInput -> False], TraditionalForm]], 
        Scaled[{0.85, 0.92}]], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(sustain\\)]\\)(\\!\\(\\*SuperscriptBox[\\n StyleBox[\\n  RowBox[{\\\"\
\[Sigma]\\\", \\n   StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]}]], \
\\\"*\\\"]\\))\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.85, 0.2}]]}, 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]], ImageSize -> 213.7322834645669, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
       True}, PlotRange -> {{-0.9999999591836735, 0.9999999591836735}, {-0.55,
       0.52}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {{{
         NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
           FontFamily -> "Times", FontSize -> 13}, StripOnInput -> False], 
          TraditionalForm]}, {
         NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
           FontFamily -> "Times", FontSize -> 13}, StripOnInput -> False], 
          TraditionalForm]}}, None}}],StyleBox[
   "\"(a) coupling = \[Sigma]\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)with\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\[Sigma] < 0\"", {FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> 
    False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.622461153219163*^9, 3.622461173205823*^9}, {
   3.622461238494369*^9, 3.622461254496282*^9}, 3.6224612907908278`*^9, {
   3.62246132154001*^9, 3.622461333149181*^9}, {3.622461428939414*^9, 
   3.622461449035119*^9}, 3.6416574754013233`*^9, {3.64165770505949*^9, 
   3.641657732813408*^9}, {3.6416577907404423`*^9, 3.641657792952977*^9}}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["panel (b)", "Subsubsection",
 CellChangeTimes->{{3.668613538837933*^9, 3.6686135400379467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"panel2", "=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
      ",", 
      RowBox[{"a0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"x0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"y0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"z0", "=", 
       RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
      RowBox[{"sep", "=", "\"\<\\t\>\""}], ",", "masterSNBs", ",", 
      "slaveSNBs", ",", "slaveSNBfunction", ",", 
      RowBox[{"\[Epsilon]0", "=", ".1"}], ",", 
      RowBox[{"b0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"c0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"fs", "=", "13"}], ",", 
      RowBox[{"fsTicks", "=", "11"}], ",", 
      RowBox[{"imgSize", "=", "imageSizeForFiguresWithVariousCouplings"}], 
      ",", 
      RowBox[{"aspectRatio", "=", 
       RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
      RowBox[{"upperColor", "=", "Red"}], ",", 
      RowBox[{"lowerColor", "=", "Blue"}], ",", 
      RowBox[{"pointSize", "=", ".035"}], ",", 
      RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"masterFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"coupling", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", "#1", "]"}], " ", "#2"}], "&"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSlaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"x0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"x", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"masterFlow", "/.", 
                   RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}],
                 ",", "x"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "x0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"y0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"y", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"slaveFlow", "/.", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                    "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
             ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "y0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"masterSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"a", "/.", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"b", "/.", 
          RowBox[{"NSolve", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}],
                "}"}], "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"yFixedPoints", "=", 
        RowBox[{"y", "/.", 
         RowBox[{"Quiet", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"slaveFlow", "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "\[Rule]", "x0"}], ",", 
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
              ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"slaveSNBfunction", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"x", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"Im", "[", "x", "]"}], "]"}], "<", 
                SuperscriptBox["10", 
                 RowBox[{"-", "6."}]]}], ",", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox["2", 
                  RowBox[{"3", " ", 
                   SqrtBox["3"]}]]}], "-", 
                RowBox[{"\[Epsilon]0", " ", 
                 RowBox[{"Abs", "[", "x", "]"}]}]}]}], "]"}]}], "]"}], "/@", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["2", "3"], ")"}], 
                 RowBox[{"1", "/", "3"}]], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]]}], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "9"}], " ", "a"}], "+", 
                  RowBox[{
                   SqrtBox["3"], " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                RowBox[{"1", "/", "3"}]], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}]}], "}"}]}], ")"}], "~", "Join",
          "~", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"x", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"Im", "[", "x", "]"}], "]"}], "<", 
                SuperscriptBox["10", 
                 RowBox[{"-", "6."}]]}], ",", 
               RowBox[{
                FractionBox["2", 
                 RowBox[{"3", " ", 
                  SqrtBox["3"]}]], "-", 
                RowBox[{"\[Epsilon]0", " ", 
                 RowBox[{"Abs", "[", "x", "]"}]}]}]}], "]"}]}], "]"}], "/@", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["2", "3"], ")"}], 
                 RowBox[{"1", "/", "3"}]], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]]}], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "9"}], " ", "a"}], "+", 
                  RowBox[{
                   SqrtBox["3"], " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                RowBox[{"1", "/", "3"}]], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}]}], "}"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Plot", "[", "\[IndentingNewLine]", 
          RowBox[{"slaveSNBfunction", ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", 
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", "Italic", ",", 
                   
                   RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                "]"}], "&"}], "/@", 
              RowBox[{"{", 
               RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], "}"}]}], ")"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", "lowerColor", "}"}], ",", 
              RowBox[{"{", "upperColor", "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"lowerColor", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"upperColor", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
             "}"}]}], ",", 
           RowBox[{"Filling", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"1", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "4", "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Lighter", "@", "lowerColor"}], ",", 
                    RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}], "}"}]}], 
                "}"}]}], ",", 
              RowBox[{"2", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "5", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Lighter", "@", "upperColor"}], ",", 
                   RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}]}], 
             "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
           RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
           RowBox[{
           "PlotRange", "\[Rule]", 
            "plotRangeForFiguresWithVariousCouplings"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".7"}], ",", ".5"}], "}"}], "*)"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
           RowBox[{"Ticks", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                   "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  FractionBox["2", 
                   RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", "None"}], "}"}]}], ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]|\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\)|)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", "Bold"}],
                    "}"}]}], "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{".88", ",", ".84"}], "}"}], "]"}]}], "]"}], ",", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\[Sigma]|\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\)|)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                 "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{".88", ",", ".10"}], "}"}], "]"}]}], "]"}]}], 
             "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<(b) coupling = \[Sigma]\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"|\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"|\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)with\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\[Sigma] > 0\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
             RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}], ",",
          "Bottom"}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.622461360525837*^9, 3.6224614423772583`*^9}, {
  3.6416574835909033`*^9, 3.6416574874989157`*^9}, {3.641657613540284*^9, 
  3.641657631969337*^9}, {3.6416576795148*^9, 3.641657683965851*^9}, {
  3.6416577613373957`*^9, 3.6416577790020523`*^9}, {3.641657916576564*^9, 
  3.641657918239503*^9}, {3.668613376021661*^9, 3.668613389659129*^9}, {
  3.668613513477262*^9, 3.668613535181395*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[
    GraphicsComplexBox[CompressedData["
1:eJx1mHk0VV/g9lUqCUl9S5PQYE6DisSOVJJSGUohUZISkUIyl1CGDBUSQshc
xsoOGVJyuefee9zBvYSEUEoq5T3v+tm7td7fevuj/tCqs8/wPM/nI2fncvj0
dCEhIYL67f/+uQ4s6p+cHIbK1zOemEQIYKXIyQtnqobgeSLD+tkNAfRrZg5U
n/wM5++PljjgK4CfMpYs3rp8EGZNPk40uSyAynzDOfN4/TBERhyYXhDA9AWP
vrUHfoKDo4IGn9MCWHu86TYEffD0jaBRSWsBXP5wuey9zl6o/Irt/9JUAPft
PO5FD+2Bfc52DTZGArjyt4O/0t5uqF9YaOSsJ4Bq+Q/83T53wadvyy18twqg
4FLqOmZWJ9x4mj/5W00AzyZFP0pyEsDNHuLyzqsF8Kiv5apc+Q44fX9/S90S
AVQcUDpulsyBFo99vobPE8BzBw5e7/pAQhtVfx1ZYQE85m6is2ULEy4/arxu
8Rc+jIF9B2EpHZYdDRusY/MhmE5arJvWCvc8nqFbWs2HTmSNa8boO/jjWcVW
12w+3H4/QLrSswHKa17TkYrgQ0feF47l4hqYU9a5UMiND00EqnmNqyuhsmXW
vEQLPtwCE1n9wfmwtLJF6uxWPtQasbbvsI+FIhUlPXnSfKgSNCz6yiMGTNPJ
lGoZ74AFDUPZfkcLwItXYx4j9A74cm+T5raaChBsta95NL8DDuSknT1wtAac
s7LssQ/qgA/y1iV+K2kAHvs0EuTMOuCLkzf+W1/2DmSVS/0uou6L98L7DBOp
VtC0fDGvvJsH39EIg7YEOjDyNth4NpkHL77dujZyERMUiq3Su6fPg0L/z69v
j7RzN50Yhs3DSTtuhFH3e5eV4KNzC9CLYF2dNbMDPvq6RTzaog3IeDZfulHL
gzIHbpQUkgS48bIzLOsSD4btr3rg7cIC2n38CyU/uTD6i+Lb+wXDsCN0wfTz
twQwzPTLr3Cp9yBMZouSwsIOGDHD8aLrs1ZQunnm5zCCBz0i1a5VaxFgPc1i
s0UYD/qK/e4UrmWCnXzJnHI5HizvnJldNN4Gund0lYcW8WCjGP/zwysMcAae
FvluxYN3IwIsR5aR4MWxMwPFNVxoe+8h+x1rGCZqei2xuS2Aj9jaIh2nmkGT
1PBB32UdUPiW/ypb+1bwetSvt5LLg7Lrp3Xu7acD/vXKxtuxPDh+bolw03km
SI7atZfYyIPrnGSOpz5uA/p5yneyK3nQPa/4kKIiA7y/cnea9FkelBx6eLWk
jgV2Rg0OSXdyoXAeF4IlLCB1Wwh2SVD3S91+q4obCd6fa/9TG8+FDQPH7HoH
huG6x8qjTOr61st0SsyWaAbGnlc9l6/sgIB2a4K1rRXkj1V9hgIevCw0IBVR
QwcivJduN+7z4LNExbhcPSZYxU/2427jQcd8ZY0lfm1gaVWauCyk7s+1pKDz
QgzQPHTS9ssFHmxeUSB2L4EFeuaH8oc+c2E1d+Cg/BATyBz4Mn5LmgfZNm6N
4ntIoCG672tIAReaVUX1t42wgMUtocKONi48OWmaafiABLHv1UdTznKhd5zm
2tHvw1Df+bbpAipfxuCmO4ld74CBSqdRn2wHtPoq9SlmbSsgjil1veziwdQ+
vkphPh2MjMz3+5XIg3c2FfJWqDJBgPM0l1pdHrxBK5RlOLWBTJE6LfNqHhw9
HZ0UMUgAQmjPktaLPJhbssV8znUWuHTv+uKRUS5MueR+P4ZkAo2qqmsbVlDv
x9hPSb8NJIgaS/W4W8GFGy2kNxlwWOCOs7uVOpsLd9zlDFWEkOCKccdveJ0L
J+r7/ZKsSPBGhpeyNp06r5PCzZ+/huGzh2n+G6jztEvy6D3v3gGz0VaHZrkO
eG6GBf/i8lYwP02s6vkHHiy1OqZZnU4H1l/eBGx8wIOBk6MBFnJMUDEwKFa4
gwdjO0cXPbVtAwtpm80u1PCgCHtu9sMuAgRpE0wddx5MDPD+qefNAuPEK6J9
jAsjd5TpvGtmgrW0FcmeK3kwq0anpGwtCeCHuDBQxYVy8lYsHxoL7N2aJFzI
40J1+5UxX31I4LaSo9kTwYUDd9atZhwigdMP07w5OVx4ptDRSj6NBFW5jyNK
LbjwjXLp+d3bSWCns7an+BkXHnx71yjgDgni5DZJO3lzofjvTI79GRLMVNHQ
qX/AxflZ6sUe/bKdh/Nz4kv3iYkEHs7PH6vt5ex7eTg/a5rSlmlQzx/lZ5uL
6gdLiw6cn9abgi0Drnfg/NRNGvl8Na8D56dLz+SX04wOnJ8S82CTKJWXKD+F
1UD1t8V8nJ8JbxI3pWjycX4y93rkhJjzcX5qikKrY+58nJ+K0l5HjSL5OD9X
mO+1NMzi4/w0JloeHqnh4/yUnFW9qrGdj/MzNiolT2iED9NbDP5zaCSBWa79
jiczBPBWblnWbGMOMLUc19SUEMBpMcTe2pkdwLE8pO8Q1VeLs580pBsKQNq1
I+DUKgFkPvZfNfNmJyg/nO4/neq740+Ub7h1dYGxgt42VaoPtyfO1q5b0w0G
4jinnHcI4IfIirHVwT2gojosawvVp89W+Q3IcXvBa2Nv+l2qbwWPrmwUXtEH
6MkqUWutBLBNcZf/qOcncDoUnNCm+nplwi7Zxpf9IHzB3eabzgIYn2P5U2ti
ADRzvl8I9hBAOtRvLzf/DD5kr1kwg9oD56pt5q64NwTOXKrQbrougFN7AqA9
0SUwOSl2mwXdnh9e/eILF15esrzBe4yA3celi+xcefCTrYA+drwN7nWysPpC
vf+XLmjNm3a1BfpV7993UbgDGvtXeksYD4Ms7zYDKapvMhcfdL+iSULRUMmv
l0q50LF+c+DReAZskR1aLH2UB3WjTkkdn0OHcVKR71MKePCF1TaXIydosFUu
8Mfz7zzITRGr/e/rENDM7bo3HCKAMjkmJqmdTHiKliGqv4wHg89PF3tgQcDv
QRH5ITd48OUJx42zM4fBBbnthhupfhLZdHBCNYKEvS4uaeZ+XNiZVHNiTy8D
btmZlj9sxIN9jzM3iNvSYecGA/lrGVQ/qc/5oF9Ig0P+vRprhnhwddHmM0vq
hoDtjul6PGpf+deZkBZbWXDjh5Cq5tk8+Ec/8lN4JgFjtbQ8i67yoLBrNFPU
axg4ZkkkyocLoMGESX91Fwv2KierF7G48EWESf1AOBMGVhuI0FWp/DcBETPo
w0B0m9N+vdvoehunrvcdlBEJfa8rwYS3Oh91iBvwYNXTPXoO4XT4NEt33DCF
BzvujSSVkzRImpbAvf08aKhlpJWYPwT6CpYTptT1bqC3JG2wY0H32rF3in+4
cFu++dGg9wQs3XV2/tLLPKg4npF1y24YaHqtup5APa/vc2j5SeIkrD6WYmrR
yIXOSS1h9aVMaBrGeqa7mgcTWKa2118Mg/U7avgV1P09soa29bA9CRt5S5RA
ChfGDLWs+VjGgiFt2ySP9HDh4QblFwGfhoFduHl0I3W+FzqD17fJM+Gh+m1B
IVSeZmlJv5FKpcPXaXXNGVTeRuzv9hodpEHn29qcI308eOyambzVoyFweIa1
+DzqPKLseZPJV1jQ6Zvt/IgfXEh+KJ/n10XAtsCz/vpU/m7bXhi9/8gwcCep
N5Q6z3tJyfmiq0iY2vNx5A3kwt2P5n3e9I4J40pOGL+n8jh3mc3e3UXD4KOE
zpLL1HnWq0omQE/q73tnRf93hwvPf59306yZBYl1q5cWd3DhqbmbM/Q7hsHT
k3HfgqnzjLVt+PE3lYTvHOLa7xzlQl+ZKEb3fhKePF+yflEu1U9BsvRX34YB
m5+/Soz6vsLJByc1VZnw44GkvCqqH5N9hMQ/PaHDCBlW56EkHuxVsOmT/EGD
PTGF7dYfedDuYXv8iwdDoGnyY8Yg9b1e5qkXmgeyoOa0TLvcb1z42NdpwGeQ
gHqzKtLpVJ/utNk8K//QMPi0puuoBnX+bQvX17xSIyERsbZL+zkXFmeqJ/cz
mVDUrLIunOrXZzofXmY+GQazTMU2mlHnT1Jfv+9yEAnfepvcjgyl7u+4utZc
kgW/nXg8R5dDvQ9qlUsekcNgl+t+eXvq/P1yhTcSj5Iw+G/0bftMLtybkbFH
bngYEM3vj/dTP3+tONIncoGEnqZzLcPuc+GlLa55H+5R12P982bORS7cejLR
xvbXMJDdPdanFvFv39+S33jX0oKD+6kz5/SnP51s3E+X6229Qq6xcT8dX8fy
dFVh437yEJtfNtjejvvJvXGF9NOIdtxPC6Z5+prua8f9dH5J1LWtwu24n2SH
Sq+wakjcT0oalnOPVZO4n4T3n17aPasd95Pnhn6tRsN23E9fv6whlO+0435q
l5y5zJrXjvspQTBW2aTAxv2U9dtzJd2PjftpoGX7gRgeG/eTaKPOmyQTzv/a
9yivn6jXuG3P4+C8PrFb+ChrMQfn9bgIvSs5jw2zj2cIOx9Ph2VFs5zcKa56
ldos/rZWB4ZNuHC+ppEwzeApqyA0HdS6spVEuknMB0J707isXDbmg0K7nyoh
UhzMByfyIg/sTOfgvM8qO/xyzxAH570JL+dY4WYOznubla8rVRrY0PW27JCK
azb1PCVXtYxS17M2LvIzOxgeCUj++qGYhJqzVHiRBsngpOPEQG4bifnij7Nu
z0gcG/PFapPlNbt+sDFf3LgpHXnqMgf3xQ3xLr3eaxxYb2q2xep2MpxVZ1ci
RydhunF5R+HfQKAaH9ruUERiHjlPm5DIec3GPFLvVfy9Rp2DeSRfe93XhZ0c
3C9udVKJBor/+iUp+mZp4i4O7pdKzkspR4INTdd22IX/egIbDsdHT5sg4f0g
RRXz1gjoOL5en1dJwmID8W8KvHtgTOJ6yvQmEvNM24qSwqYwNuaZMGWdIdDP
xjxTe8XEzcKOg/vJ7kmTjkEsdd6aj5HiranQ+YuJ514OCeP5e2/ckXQDPDXV
bReyScw/q3KIRanlbMw/qSGzDXiyHMw/yzrf9TZCDu6zrm/F35WbOPB9zIy+
uW884HwrT92BHBLzUfL42malWxzcd2sE9Zcdz3IwL1kVxPJ753Fx3/3P/fvX
d4+C47/y9nNw331evkZLgcOGr79uX/Ec5EHfGn+p5ULtcMYSLx+D3mjosyxM
m11FwiF730l3pXjQeEx5TX4diXkr0qbccO91NuYt9k09Ef4HNuYtZUO7JvpR
Du7Lup9Eh1UKB2pG7jbSWfQIXvHastaGT0Lvmc4Mcw1bIHHAUsQtg8R8Nu/X
DtazYjbmMyPZlV6pSziYz4T3pL7zLeLgfl3bXHl5jM2Bj0fig9yhH3RrqQ39
mE9ifrs87n1AJICD+/dBiEacuzsH81zR0uK3Rd85uH+r9cxzB2dyoct2ntyv
WT7AYUWLj1MeiXnvjJJa+OUWDu7nTrPpBQuec2C/s+CeYcYZKNvtPns4k8Q8
aLXw1V5vXS7ua7l7cnoLD3NwXyuoz70V2cGGf46e/3W4Kw8uXrAoR2l6O0wO
HnCZvyYGnj1cSCNfkfDW6JaZCS2xwDaCJhZcS2J+nDYW03YrkI35UeFpZHyp
gI35kQifYa5uxsF9f9M2WLEokwNdv3soMMofwUdrXz5z7KR6J83hY/kPQ/Dr
L+ur+yMS8+aGXLurrwvYmDeTQxt2SS7iYN5s+vlnc20OB++DqFUfP2zrpvLM
pDDL1DoQzknvr+gpJDGPbmt7z3l8lYP3Q6HWp8UPPTmYTxsbLFw/9XPwfrBR
9ItsXsiF0yMWmNXPvQLqt7YcPf+ExPyqGO5mcL6Bg/fF9CYz14s1HGjXo7WU
bHaFHwqmyX3OIjHfVmrqKj2S4+K9EXf8WkKhCRea2gldfKnsBOrkXq50fUxi
/u1o6X39dtq/PeIwK0jJ5icHyssn/Kq2Pg7dNTNHRtJJvEeqbqdPalD3G+2R
EOO2sV3U81gqJvwpeVM+/FW849b6Ge3wfGX6pyuvY2Acs1uOpPrQSnuBSJ58
LFAIPTjHhepLxNOSc86lqgewMU9Lf9YzWc1nY55eZfRS8OEQB++ZDXpfw4ez
OfBWlvgiOdF0aDtxSfRCFwkNH02+ylRZDdbHuvRdovoJ8/ebuyX789mYv2sz
2RVGCzmYv8Nu9W3xeczB+2eL/2DP6k8cuOa5fJJsUhD0PS7L6KbyHvG5alxU
0XQvDt5Ho8kD0oB63ojXwzYCXncPB++j02rDCgUruPBd6Tpn1YhLgJ/RbehM
5R/i+W0abS8iajl4Px0QNyT06jnw3guZaW773KG0tZr6IJW/iPebk868l5Pm
wt6nWx6Fqp8GLlYvFlykvkfE/7Kb7zjd+s3Be6s0dlPU+UkO9IWL3i7MsYN3
4xp+D1N5hPyA2DePBRGHuHBZ/u55Bm4WIFtw4Y8b9byRL9jh1eGmPMLB+yzp
vZriH7F//kDc6Z2Mudq/vfbf0MT6fVv++YTpJxycbopQe69u1oljZw7BZWX9
PV+o7w/56fFrm+3eKNAA8tOX+Bp/J7fQAPLTykPWSe/20ADy039urg98c4QG
kJ/W3eegXXOGBpCfvpRSpeTiRQPITwde9WrbHUYDyE+Pz35b9jmJBpCfvpb7
XPlJAQ0gP92osHJ1RDUNID/dOyIhdp5BA8hPf3pZXeHaRwPIT394cNoj4jcN
ID9tOPRkCU+yFSA/naoVQhxc0wqQn45S99dV3N4K0H5dv14j/JBpK0D7NU59
7F3a2VaA9uvMTp+rxYGtAO1Xc3p9wHhCK0D7VfngDB+L0laA9msaLTndsa0V
oP0qr05mN39uBWi/xjcXZk6KtQG0Xw1amuiVKm0A7dd9+9iZ9/e1AbRfoxpC
d3q6tgG0XxtVNg9eimsDaL92qigQwtVtAO1X1nbjlXtG2gDar+ktzlWlcnSA
9mvgubPcghN0gPbrdIntIZMZdID2a9JVa0/aNAL8//x0cdZuTSt16n5P+em5
v7J07AAdoP25TvKpQZc/HaD9Wd+UvO5VC7WDpvbn/JQUo6dGBEB+OuqSZUmU
Cg0gP11z1ihKbz0doP0Yf/jqO54LHaD9uLxcKViqkg7QfpyT7TKvUJ4AaA86
7kkW4t+hA7QHexqXFrl/pAO0B6PUlrwvCSAA8tOLFkfcyFWiAeSnAz2iHfsV
6QDtuZuxQvS8M3SA9pzz9PoRdgEdoD2X/2Oba+x8AqB9JsoxV4ChdID2ma/k
p7KDHDpA+2zOeEyTiT0B0P7a9tvv1/XNBEB7y3f54+fpeQRAfnpES4VeqUgD
yE8LSc7UM15DB2gvJUdXv82ypwO0lwye1OzuyqEDtJeUsju1bs0hANo/G5t4
TwyvU/dnav/43ZexvMKgA7R/zlz+0e5lQQC0b9Zti3zFUSEA2jPSvpsbBLEE
QHtl7LffnLCLBEB7pLziYH0DmwDITzfmnZbSp64f+WkR64cX/FfRAdoXnmpH
WDkn6QDtC6u7F7ZdyKIDtC/eLvUzyphJAOyn/Z77LQiiA7QXPEO0Uu620QHa
C+Twr1TPgwRAe0C6qVp7qwL1fkz1/4vojp2tYQRA/V65VNxay4kAqL8Z2mkv
s6oIgPo56Owjaf0U6rxTfrrbULt8JnUe5KfHY/MPJ8rTAepT7V7337m2dID6
dDi+dOuWx3SA+jQmKSa3fAYBUD9qlhud/hVAB6gf3xjndim30gHqR7OnsDti
PwGwny63WzaymgCo726n969TukEA1GczDnU/K3cgAOortmOGf1AJAVA/dUWp
ip1IIADqnwgOqVz8mfp/p/qm3+gYURJJANQvZQ77U/++IQDqkz3Wxj5pmQTO
z3iJzLrLswmcnwfjEy3PZ9Nxfprbr7g304aO8zPsJe+Bxmo6zk9vaTOmxFAb
zs9hs4kTH6vacH5KDEa+HYxvw/nJS/NvmO7yLz91vaqHrI3/5afhcb1xd9V/
+Vlc1X29ce6//LysO3de51Arzs+FvtVWEq2tOD9Xu84+KVPSivNTfdNWW9mk
VpyfQs8Kl8yn+gDl5/ZAGJfi1Irzs/wHf66jWStAfjpdvUJTSqcVID+dyYjc
M65A7eopP+2z+GLf6/mtAPlpkdut21L+0ADy09yureX2/TSA/PRJxacL5jFp
APnpy1Zvhm/X0gDy02zhc46/qT7FfnooXErrAdWfU34600jp/rJbNID8dKDH
tN9fqL5GfnrLycMyR87SAPLTxbRYzglLGkB++obG5hg7QxpAftr3obg+oUkD
yE+jPYF8B/udWlzuYQIg3+Go6igyi6AD5DtmyChbX6Hef+Snm+s3XvhB9Qny
0xN3OOoG62kA+Qr9SZeG0dtUnk35imtn7qQeHKQD5CvKPL70N8TSAfLTVx3+
VuceoAPkp3nqz0NCNWgA+Ya+Mnb+WiUCID99RPiraOdLOkB++uIuESVhVRpA
/sBBev7iBXUEQP5g0a4OUa+fdID8wTmL7XcHkql+mvLTNrMTgnda0AHy0+Gz
fbbmU/sK8f/SjPFfCdsJgPx0+YE9emWNVP9M+elrW+2DVq2jAcTzDtZdoWXn
CYB4valeuyhuMXV/p/y05sJcmV4ldL2NU9f7GiBef5XJZR8TIgDi9ft8veqV
VE4hP31J4+1PmWN0gPz0VcU986u30gDi7fbXoYNgDwGQn47XX5x14D0dID/N
jdMq2ETtA8TP4WqC01I+BEB8/PNPlrCyLAGQn/48e+LnN2UaQHwcnOMQpZRO
5ckU/9aV7Mqef4IAyE/fvMiIZ1H5i3j3d/WuLZ1UniLevdlTOVCTSe2HKT/N
/2XQIWlFB8hPZwXUJxtR7yvi1a6YlVlsYwIgP+09c7HWWip/kZ92YA12P6fO
g/jzSdq9xuRgAiC+LGuTdU6g8hj5aV+nWSE+1J5BfPlEnFQwLSYA4kdPS6uH
pacJgPx072tzmg31vBAv+ssN8BkDBEA8OLDs7c3D96h+mvLT9xrl3Q5S50c8
eFqre24O1Y+IB6vOZrMWUf2J/PSZby18UWs6QH66/GahcyR1fsRzC0PYFi9M
CID89NzAhoVxVJ8iP+29/cVsIer7Q3zm+dOSpRpKAMRf+hr1o9y1BEB+ekfX
GfNX1PkRfwWIb1Btr6Tu7xRfHVVsL1A+S70PU3665nHPpTTq/IiXGkOHVGYm
EwD56fTBrmmx1HkR/xAaHrYdOQRAvOOpHLK+qo0AyE/PnYj5KEb9fdRPr04f
kJ83xMD9dI63lOZkx8T9xKxeuaOznon76Ytl9o5xaRbuJ9ZVl+k+TizcT+3Q
LrWkhIX7SStERPu/nyzcT4ILI9obdpC4n1QT3uhFB5C4n1aZKeRLBJG4nwy1
lz0M1iFxPxEW8X4pv1m4n47FH+vRKWbhfnK/cjV57hkW7qfix6F/Hyxn4X5K
vzU7Ie41E/fTyfKd5xgOTNxP+q/0R95+Y/yvfY/yOvVo1W7Vuwyc15/1fE5G
UzsM5bWZXx7zTTwTID8dx/Qy+W5LAuSna8IlOzxSSYD8dOjizEhb6ueID4xB
BzfqLhPzQdKakNudG5iYDz6zR5zWpDBw3qfT1CZkLRg47//kMGzKJZg474cc
X/zdfo0JkJ9mVrvE3z9IXc+Un/4+q6s+OJoEyE8PrAxufn6RxHxhslSfuJLP
xHyhqHXqh/x+JuaL+skzysLvGbgv6r2TrwTWMwDy07trVwjvof495Kdlv47x
p8WQmEcEZUE5VX5MzCM3JN7XZixkYh5JNj7cYGrPwP3CrnGWWb2cgfulcOzH
9Oa/DNwvd3JrMoVcmQD56eub+xXOGJIA+enuSJMr4aEkQH7awuu3tIM3iXnG
2+mtSHIFE/NMjfXOt4rHmJhnQiU37JHqYuB+6ueWXF1dSJ13yk/z49frrTxL
AuSnXY6Z+f1KIDH/KHU8SWsIZ2L+eSLk5RG+ion5Z8Pjp20Pgxm4z5ximmt1
vBkA+WltVZGr1+6TmI/yIy0HdcsZuO8Usir0hTgMzEsj5EB7gAYD993/3L86
3HfZM/rrw8YYuO9OnDvur3eWCZCffl83mWlsQALkp2nnx65FXCcB8tPBahax
lb4k5q2XSo2uKyET85bbpG5RqC0T85b8Dpnh2AEG7suQiCfsuekMgPw0Q8Io
RvQ0CZCf1t2mUDSWTGI+04kAXU+jmZjPpjue3NGgzMR8ZqjHH/x0h4H7de3z
On23swyA/DS7/IV6QByJ+Y0ZOfOcbS0D92+BkPHq7zQG5rlE5/efSw8wcP+G
71YR99FlAOSne52Ktv+NJzHv9diYrvt6iYH7+dwmX1HzUAZAflo1XazYi+JA
xIMj7q9chmYycF+rjNh4mn1l4L5eY+mh1n6aCZCf3uzhNA/oU9/FlJ/+sJnW
F0nlJfLTgz8Lcrv9ScyP++4M9nKqmZgf1zBG5IvtmZgfPSd8TmmNMHDfv1aY
iCp7wADIT2efrBUWsicB8tOHQ7Pqv6WQmDeXcVfopscyMW/m/y13P7qOiXkz
MCIwKOM+A++DF6fuM9RsGQD56Z3dcZOBVB4gHpUqLeK9amTg/ZB04G7qm7cM
zKfBr5T2+lky8H4YOjFNOVGdeg+m/PSNg0W2E/dIzK+r/4h7TPgw8L4wqlLZ
+yOAAZCfPkv63ruaSGK+vWOiH1Unz8B7o0x1xsrybwRAfjrEofb+eBKJ+fdC
+f1vSfoMvEd6A/5Eiu5jAOSn203YjVcekniPRPziVGyi7jfaI3Xa+TXyp5gA
+enDDKCmqUcC5KfLihLvRgVSz3PKT6+ZVC/8SfUl4untfv9Ja1E5jHhaI1HX
yYB6XxBPK+nWksHU+4T2zLI9EWpeCQyA/PRg+NyCXydJgPz08m+SraNUP2H+
hn0zllF9hvg7tDNjcsV6Jubvmt93AweTGHj/LBKJpe88zgDIT79Xte0OojgZ
8bns6PBsB+p5on1k+Sk2RekNA/N6jbkeN8iGgffRx2PR0RVrGQD5aeeuRNff
VP4hnpcyy59o92fg/fTXW7NnrS8DID+toWIa5kPlL+J9vwHpgd2qDID8NE/l
dcYP6jtE/K9qOnSAa8jAeyt+1FhpwoB6vlN+uuRr+UtPKo+QH9gRK5rJ/koA
5KcfPZ7/4jv1vJEvEJuXtlvXjIH3WWHF4ehzWxnYHwCZZwkLFjPwXtuaEHRz
hQQD+wQjpaUmAm0GQH56Q2sc/TL1/f0fWg1dpg==
     
     "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333], 1], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwt0VdXDwAAxuG/EcrMyqaOkb1lRWZFiswIiTsUEVFSZuIgK7KyV6EIGclo
WZ/J4xwXz/ndvHdveHpmckbrQCDQisb/XUUss5jISIbyb9eGtgTRjvZ0IJgQ
OtKJznShK90IpTs96EkvehNGH/rSj/4MYCCDGMxq4pjNJEYxjCGsIZ5oJjOa
4aSQQAzTGEc4a1nCHKYwhhGsZxnziGI8EaxjKXOZylhSSWIBM4hkA4nMZzqb
WMEiJrCR5aSzkDRWso2ZbCaZrSxmCz+d8ZLffKSF+/zhEz94zi/e00QZL/hA
M3ep4B0NXOAeldTSSCm3eUINXznDNe7wjLd8p4Qr3OIxr/nCaa5SzlPe8I3z
XOYmj3hFPcWc4xI3eEg1nzlFESc5wXGOcZQjFFLAYfI5RB65HOQAOexnH9ns
ZQ9Z7GYXmWSwkx2c5SLXeUAVdWznLw6hUws=
           
           "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[1, 
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333]], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwV0ndXDlAcB/CnzIPInuEhhOz5OrwE52REZYSyZ5kZyebYCtkro+xNZEQ2
2bNsEh9/fM73/r73/nHPuTfYP6FffGggEAihgMNcYTHnOMhltnKRI8zlNPvY
wirOc4htpHKC3WxkOQs5w34yWU0Mx8hmLRnMYyYn2cMmVrCIAeSyg3UsIY1Z
DCSPnaxnKfOZzSAGE8sQhhJHPAkMYzgjGEkioxjNGJJIZizjGM8EJjKJyUxh
KtOYzgyOs4sNLGMBczjFXjazknTOcoAs1nCBHLZziaNcJYVPHquvR2tLLxrQ
mh5UpS4t6cofZyvJcCLoxFfdL0Ktw2hCBz7qPvCed7zlDa95xUte8JxinvGU
JzzmEQ95wH3uUcRd7lDIbW5xkxsU8IWfhLhDDRrTnuu6z/z4/znN1WlEFNd0
ZVS0rkUzoinVfecv1cwNaUe+uYqsQwu68FtXQdakKR0p0dWXrehOZWrTnM58
s99G9qQevQnSjXJ7fWQk/wBasXSD
           
           "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
         12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
         29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 89, 
         76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47, 34, 
         88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 81, 69, 
         48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 97}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        LineBox[{186, 205, 148, 199, 183, 204, 170, 202, 187, 140, 196, 180, 
         167, 156, 200, 184, 171, 135, 193, 177, 164, 153, 145, 197, 181, 168,
          157, 101, 189, 173, 160, 149, 141, 136, 194, 178, 165, 154, 146, 
         102, 190, 174, 161, 150, 142, 137, 103, 191, 175, 162, 151, 143, 138,
          104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130,
          131, 132, 133, 192, 176, 163, 152, 144, 139, 195, 179, 166, 155, 
         147, 198, 182, 169, 158, 201, 185, 172, 203, 188, 206, 134}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}]], 
        LineBox[CompressedData["
1:eJwV0VlXjmEYBeCvaM4qijSgDCGpqCSVBiFNSCMNCk0H+T/+lFKUaFgNJFQo
UipXB9fa+97vc/am9bxsGAoKBAKvKFf62dLbZBG9nKabSr761iivcYII2rnJ
OeZ8r5c5JHCAdVuLLCSVaF7b7sgLxLDt/sY8w9y1XSSWf+7vLDDCG0YZ4y3v
qPIug8PsuFdY5L77Csc5yIZtnHv6JY6w616lSS/gJJF0UEo6PdxmkE/ePpBX
eU4iXVQQwmOKOcNvbyeo1jOJY8+9xmfeM8kHPjLFNDXeXSZ+/+fwQyzxUM8l
iVD+2Gao1bM4ShA/bV9o0PNIJoxN2yx1ejbHCOaXrVle5xRRLNseyXxSCOcJ
JZzlr++t8gYvSOMptxjgEJ2U0cd5nvEfcQNEJw==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwVytc6ggEAgOHfpbgll8AhykhkhjLiITuj7FHZO3tlc01eB+/zfAdfZXW4
KlQRBEENteKOIzZZZIox6qjnfw7TQCNNNBOhhSittBGjnQ466aKbHuL00kc/
CZIMMMgQw9xzzBZLTDNOigdO2CbLDGmeOafAChlGeOSUHXLMMsELFxRZZZ5R
njgjzzJzvFJij3UmKXPJLmu8c80BC7xxxTf7fHLLLxt8cMMPh3zxB0WjPw8=

         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwNzkVWA0AQBcBJAoSHB/ckuLudgyOwYwNHRYO7u7umFvV+9+9ZTHpmfnou
EkKYpS0awiR/imGZZoJKxmjnzW1ANpMgjxFaqOLRvVc2UEKMb92gTFJOnAVd
p6yhgH/7O0/02RspJYcf3SJd5loKCXzonlmi215HERE+dS8ss8IqGdZYZ4NN
tthmh1322OeAQ4445oRTzjjngkuuuOaGW+64p8cf6ikmypfulX5zE2Xk8qsb
kikqyGeUVqoZp4MpHrzNAtx7NSg=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwNw4c2UAEAANCnP+kzqKyUciqhZDWQhEJFDrJSNCmz7BWJomgYRURSkvRB
3XvO3ZtVlFgYEgRBlxN7guCvF131hX985E/feNovDtjoDdd9abPH/GSXdV71
nF8d9oE3DXXaFsvNMdnjhvnWViu85BlPuM/9HjDcCCN9Z5uV5ppivHN2e9tC
zxvljO3e8rKpLjnoPUv87rhP/OWU/zzpvD3+tt4fTlrkN0d97AWjnbXDKvNM
M8GDxnjIw8Z6xPd2Wm2+6Sa6YK93LDbTo37wmTUWmGGSi/Z512tmGedHn1vr
Fc+67JD3LfWUn+23weuuOWaT2a444rYP3fS1u5a54St3fOqW/wHBzlS1
         "]]}}}], {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        StyleBox[
        "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm], 
       FormBox[
        StyleBox[
        "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Epilog -> {
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]|\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\)|)\"", {
           FontFamily -> "Times", FontSize -> 11, Bold}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.88, 0.84}]], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(sustain\\)]\\)(\[Sigma]|\\!\\(\
\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\
\\\"]\\)|)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.88, 0.1}]]}, 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]], ImageSize -> 213.7322834645669, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
       True}, PlotRange -> {{-0.9999999591836735, 0.9999999591836735}, {-0.55,
       0.52}}, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {{{
         NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
           FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}, {
         NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", FontFamily -> 
           "Times", FontSize -> 11, StripOnInput -> False], 
          TraditionalForm]}}, None}}],StyleBox[
   "\"(b) coupling = \[Sigma]\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)with\\!\\(\\*\
\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\[Sigma] > 0\"", {
    FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.622461355064967*^9, 3.622461457608046*^9}, 
   3.641657488250579*^9, {3.641657623835906*^9, 3.641657632703993*^9}, {
   3.641657680243986*^9, 3.641657779550437*^9}, 3.641657918831019*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["panel (c)", "Subsubsection",
 CellChangeTimes->{{3.66861346352733*^9, 3.66861346458226*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"panel3", "=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
      ",", 
      RowBox[{"a0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"x0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"y0", "=", 
       RowBox[{"-", ".6"}]}], ",", 
      RowBox[{"z0", "=", 
       RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
      RowBox[{"sep", "=", "\"\<\\t\>\""}], ",", "masterSNBs", ",", 
      "slaveSNBs", ",", "slaveSNBfunction", ",", 
      RowBox[{"\[Epsilon]0", "=", 
       RowBox[{"-", ".1"}]}], ",", 
      RowBox[{"b0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"c0", "=", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"fs", "=", "13"}], ",", 
      RowBox[{"fsTicks", "=", "11"}], ",", 
      RowBox[{"imgSize", "=", "imageSizeForFiguresWithVariousCouplings"}], 
      ",", 
      RowBox[{"aspectRatio", "=", 
       RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
      RowBox[{"upperColor", "=", "Red"}], ",", 
      RowBox[{"lowerColor", "=", "Blue"}], ",", 
      RowBox[{"pointSize", "=", ".035"}], ",", 
      RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"masterFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"coupling", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", "#1", "]"}], " ", "#2"}], "&"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSlaveFlow", "=", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
         RowBox[{"coupling", "[", 
          RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"x0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"x", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"masterFlow", "/.", 
                   RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}],
                 ",", "x"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "x0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"y0", "=", 
        RowBox[{"First", "[", 
         RowBox[{"Sort", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"y", "/.", 
              RowBox[{"Solve", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"slaveFlow", "/.", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                    "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
             ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
            "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"#1", "-", "y0"}], "]"}], "<", 
             RowBox[{"Abs", "[", 
              RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"masterSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"a", "/.", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"masterFlow", "\[Equal]", "0"}], ",", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{"masterFlow", ",", "x"}], "]"}], "\[Equal]", "0"}]}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"slaveSNBs", "=", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"b", "/.", 
          RowBox[{"NSolve", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", 
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{"slaveFlow", ",", "y"}], "]"}], "\[Equal]", "0"}]}],
                "}"}], "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "\[Rule]", "x0"}], ",", 
                RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
             ")"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", "slaveSNBs", "]"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"yFixedPoints", "=", 
        RowBox[{"y", "/.", 
         RowBox[{"Quiet", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"slaveFlow", "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"x", "\[Rule]", "x0"}], ",", 
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], "}"}]}], 
              ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"slaveSNBfunction", "=", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Evaluate", "@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Function", "[", 
             RowBox[{"x", ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{"Im", "[", "x", "]"}], "]"}], "<", 
                 SuperscriptBox["10", 
                  RowBox[{"-", "6."}]]}], ",", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["2", 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                 RowBox[{"\[Epsilon]0", " ", 
                  RowBox[{"Abs", "[", "x", "]"}]}]}]}], 
               RowBox[{"(*", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                   RowBox[{"\[Epsilon]0", " ", 
                    RowBox[{"Abs", "[", "x", "]"}]}]}], ",", 
                  RowBox[{
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                   RowBox[{"\[Epsilon]0", " ", 
                    RowBox[{"Abs", "[", "x", "]"}]}]}]}], "}"}], "*)"}], 
               "]"}]}], "]"}], "/@", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox["2", "3"], ")"}], 
                  RowBox[{"1", "/", "3"}]], 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                    RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                  RowBox[{"1", "/", "3"}]]]}], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]], 
                RowBox[{
                 SuperscriptBox["2", 
                  RowBox[{"1", "/", "3"}]], " ", 
                 SuperscriptBox["3", 
                  RowBox[{"2", "/", "3"}]]}]]}], ",", 
              RowBox[{
               FractionBox[
                RowBox[{"1", "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  SqrtBox["3"]}]}], 
                RowBox[{
                 SuperscriptBox["2", 
                  RowBox[{"2", "/", "3"}]], " ", 
                 SuperscriptBox["3", 
                  RowBox[{"1", "/", "3"}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                    RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                  RowBox[{"1", "/", "3"}]]}]], "+", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox["3"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                    RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                  RowBox[{"1", "/", "3"}]]}], 
                RowBox[{"2", " ", 
                 SuperscriptBox["2", 
                  RowBox[{"1", "/", "3"}]], " ", 
                 SuperscriptBox["3", 
                  RowBox[{"2", "/", "3"}]]}]]}], ",", 
              RowBox[{
               FractionBox[
                RowBox[{"1", "-", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  SqrtBox["3"]}]}], 
                RowBox[{
                 SuperscriptBox["2", 
                  RowBox[{"2", "/", "3"}]], " ", 
                 SuperscriptBox["3", 
                  RowBox[{"1", "/", "3"}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                    RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                  RowBox[{"1", "/", "3"}]]}]], "+", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox["3"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                    RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                  RowBox[{"1", "/", "3"}]]}], 
                RowBox[{"2", " ", 
                 SuperscriptBox["2", 
                  RowBox[{"1", "/", "3"}]], " ", 
                 SuperscriptBox["3", 
                  RowBox[{"2", "/", "3"}]]}]]}]}], "}"}]}], ")"}]}], "~", 
         "Join", "~", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"x", ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"Im", "[", "x", "]"}], "]"}], "<", 
                SuperscriptBox["10", 
                 RowBox[{"-", "6."}]]}], ",", 
               RowBox[{
                FractionBox["2", 
                 RowBox[{"3", " ", 
                  SqrtBox["3"]}]], "-", 
                RowBox[{"\[Epsilon]0", " ", 
                 RowBox[{"Abs", "[", "x", "]"}]}]}]}], "]"}]}], "]"}], "/@", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox["2", "3"], ")"}], 
                 RowBox[{"1", "/", "3"}]], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]]}], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "9"}], " ", "a"}], "+", 
                  RowBox[{
                   SqrtBox["3"], " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                RowBox[{"1", "/", "3"}]], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"1", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 SqrtBox["3"]}]}], 
               RowBox[{
                SuperscriptBox["2", 
                 RowBox[{"2", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}]], "+", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   SqrtBox["3"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "9"}], " ", "a"}], "+", 
                   RowBox[{
                    SqrtBox["3"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"-", "4"}], "+", 
                    RowBox[{"27", " ", 
                    SuperscriptBox["a", "2"]}]}]]}]}], ")"}], 
                 RowBox[{"1", "/", "3"}]]}], 
               RowBox[{"2", " ", 
                SuperscriptBox["2", 
                 RowBox[{"1", "/", "3"}]], " ", 
                SuperscriptBox["3", 
                 RowBox[{"2", "/", "3"}]]}]]}]}], "}"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Plot", "[", "\[IndentingNewLine]", 
          RowBox[{"slaveSNBfunction", ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", 
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", "Italic", ",", 
                   
                   RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                "]"}], "&"}], "/@", 
              RowBox[{"{", 
               RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], "}"}]}], ")"}]}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", "lowerColor", "}"}], ",", 
              RowBox[{"{", "upperColor", "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"lowerColor", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"upperColor", ",", "Thick"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed", ",", "Thick"}], "}"}]}], 
             "}"}]}], ",", 
           RowBox[{"Filling", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"1", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "4", "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Lighter", "@", "lowerColor"}], ",", 
                    RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}], "}"}]}], 
                "}"}]}], ",", 
              RowBox[{"2", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "5", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Lighter", "@", "upperColor"}], ",", 
                   RowBox[{"Opacity", "[", ".1", "]"}]}], "]"}]}], "}"}]}]}], 
             "}"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
           RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
           RowBox[{
           "PlotRange", "\[Rule]", 
            "plotRangeForFiguresWithVariousCouplings"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".7"}], ",", ".5"}], "}"}], "*)"}], 
           RowBox[{"(*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".5"}], ",", ".5"}], "}"}], "*)"}], ",", 
           RowBox[{"Ticks", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox["2", 
                    RowBox[{"3", 
                    SqrtBox["3"]}]]}], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(sustain\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                   "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  FractionBox["2", 
                   RowBox[{"3", 
                    SqrtBox["3"]}]], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{
                   "\"\<\!\(\*SubscriptBox[\(a\), \(break\)]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                   "]"}]}], "}"}]}], "}"}], ",", "None"}], "}"}]}], ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(b\), \
\(break\)]\)(\[Sigma]|\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\)|)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", "Bold"}], 
                   "}"}]}], "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{".88", ",", ".92"}], "}"}], "]"}]}], "]"}], ",", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(b\), \
\(sustain\)]\)(\[Sigma]|\!\(\*SuperscriptBox[
StyleBox[\"x\",
FontSlant->\"Italic\"], \"*\"]\)|)\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                 "]"}], ",", 
                RowBox[{"Scaled", "[", 
                 RowBox[{"{", 
                  RowBox[{".88", ",", ".2"}], "}"}], "]"}]}], "]"}]}], 
             "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<(c) coupling = \[Sigma] \!\(\*
StyleBox[\"|\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"|\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)with\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\[Sigma] < 0\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
             RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}], ",",
          "Bottom"}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.622461470025791*^9, 3.622461546356563*^9}, {
  3.622461629748597*^9, 3.622461632827138*^9}, {3.641657497853245*^9, 
  3.641657506777699*^9}, {3.6416575709490337`*^9, 3.641657604169917*^9}, {
  3.641657746211074*^9, 3.641657749779212*^9}, {3.641657909718319*^9, 
  3.641657912037869*^9}, {3.668613470707912*^9, 3.6686135005561123`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[
    GraphicsComplexBox[CompressedData["
1:eJx1mHk0VV/g9lUqCUl9S5PQYI5KRWJHKkmpDKUoEaFENCCZSyhDhgoJIWQu
Qyo7ZEjhcs+997iDewkJoZRUynt+69ferfW+6+2P+oPVOvsMz/N8PnJ2bocc
pgsJCRHUX//z7zqwaGBqagROXN1k90aBBitFTp47XTUML/A1/0xtpkH/ZuZg
9clPUHnYJvndbhr8mLlk8ZblQ/D3DY2gN4dpUJlvNGcebwDq7XXUqTlNgxkL
Hn7tCPoIL6RWKbl502DtsaZbEPTDoCve7bvCaXD5g+Wyd7v64MTst+Wfkmlw
745j3vSwXng177ny40IaXPnLMUBpTw9sVFi5OrKaBtUK7gd4fOqGfaMSYmcZ
NCi4kLaOmd0FP76sfubeT4POyTEPk10E8P19h4uRv2jwiJ/Vqjz5Tmg0/HgJ
T7INKg4qHTNP4cA07VDiwJo2eGb/gWvd70kYrR6gp7itDR71NNXdvJkJNTQ0
Iw6atcFY2H8AltFhvPr4u3TnNgimk5brprXBmV2+V0qC2qALWeOeOfYOWtDr
AycS2+C2e4HSlV4NUPnADF/LsjboxPvMsVpcA9NpKRlO7W3QVKCa37i6Esqr
kznNn9rgZpjEGggpgAnNRVlTYu1Qe9TGvtM+Dhq2NtErVdqhSvCI6KuLsWDv
XnbWvb3tsLBhOMf/SCGIbgjb4eXeDl/uadLaWvMMNKpsGroQ3w4Hc9Od9x+p
AV0qCoRwdTu8n78u6WtpA2BtM1m5e7Qdvjh5/T+N8ncgo9W1qkyODn0W3mOY
SrWBoDPO3MITdPiORhi2J9LBdIltoVOZdHj+7Za1UYuYIPmKjRdtGgGF/q8/
Xx/q5G08MQJLsndpWatT93unteCDayuY+zNb1w7Q4cMvm8VjLNvBOsknht0B
dCiz/3ppEUmA+qaUda9a6TB8X9V9HzcWmJ+aavzEmIAxnxXf3iscgdEXrEqj
VWgw3OzzzwipFlDjbBytr0GHkTOczrs/bQMJh66847nR4cUotavV2gRYXqEU
IlVJh35iv7qEa5lgTo7bvCJ5AlZ0zcwpnmgHTrtThPi36bBRjP/pwWUG6G1c
Wuz5gQ7vRAZajS4jQbTakpbSQALa3n3AfscagYsWR17PU6LBh2wdkc5TzSDo
YozTgCIdCt8MWGVr3wZuxAnR80/ToazGtK49A3TgOr1+lF1IhxNnlgg3nWWC
gu9b3ePmE3Cdi8yxtEftQJRjoQDD6NAzv+SgoiID+El+LD/AoUPJ4QdXSutY
YM5EbJOpPQGF87kQLGGBrb/8f17bREAZdfstKh4k8Fv+6HlGPgEbBo/a9Q2O
wFFtFXqlIg1qyHRJzJZoBkKSM/VN1tAhoN2cZG1tAykx1W+z7enwktCgVGQN
HRg+rtnVnUuHT5MU4/P0mUApp0v75hwCOhUoay7xbwcbmniPja5R9+dqcvBZ
IQbwvydjdZlBh80rCsXuJrLA6UvfO7wtCVjNHTwgP8wE67ZGveKoEJB93KNR
fDcJpP02NQjiCGheFT3QPsoC47/854SfJ+DJKbMso/skqHh2oL6BTUCfeK21
Y99GYGO+g5QBdf3jcOPtpO53QMTmwbmAVXRo/UXqY+zaNuCldpiVe5IO0/r5
KkUFdGB959zWc9l0eHtjEW+FKhO8XepvnDmTgNdpRbIMl3aQ5f/cf0EwHY45
xCRHDhHAK1Q79U47HeaVbraYc40FyJGfaV4HCJh6wfNeLMkE0k3VOlsUqPdj
/Iek/3oSvIjp3NEWTsANltIbDTksULlU3EbbhYDb73CGn4WSgKGT/jK7ioCT
9QP+ydYkCHZ+KG2QSp3XReHGj58jsMdIp2ImdZ4OSR699907MBFXcChJng7P
zLDkn1/eBnT6PH/l2dJhmfVRreoMOhhJKNuy+REdBk2NBVrKMUFscmxexQwC
xnWNLXpi2w60KowdfgbSoQh7bs6DbgK8McnrVm6jw6RAnx/6Pixg/gT2RO4j
YNT2ct13zUywtsJu2ehqAmbX6JaWryXBrYyBdUrXCSgnb83ypbHAjIM9Tysc
CahuvzL2iy8J2E6ZAcGlBBy8vW414yAJuqNVxU4kEvB0kZO1fDoJIjmkcskn
Ar5RLju7axsJBoyPEqVRBDzw9o5x4G0SlDvuS/vzhoDiv7I49qdJsNvGxDc9
i8D5mSCRVXdpNoHz80BCktXZHDrOTwv7FXdnHqfj/Ax/ybuvuZqO89NH2pwp
MdyO83PEfPLEh6p2nJ8SQ1FvhxLacX7y0gMaprv9y0897+phG5N/+Wl0TH/C
U/VffpZU9VxrnPsvPy/pzZ3XNdyG83OhX7W1RFsbzs/V7rNPypS24fxU37jF
Vja5Deen0NOiJfOpPkD5uS0Ixqe6tOH8rPjOn+tk3gYzWg3/c2wkQYb6My0p
3TZ4M688e7YJB2QxonZPKLTBabHEntqZncB38fn+1/Pb4OKcxw0ZRgIgcqtt
a+pvGmQ+Clg180YX4HZvqbAfoMFjj5Wve3R3g5OKTxbMY9LgtqTZOnVresAl
6zcjt2pp8H3Us/HVIb2ALXzG6RfVp09X+Q/KcfvA6+EIKe37VH8+vLxBeEU/
yDJWurfsJg22K+4MGPP6SOXdtF+fqb5embhTtvHlANh88pDMYWcaTMi1+qE9
OQhKaHGcE1Y0SIcGHRUWn8B1zU2xdkY0eKb6+NwVd4eB3wNxA0KLBv/uCYD2
RLfA9KTYLRZkv1OLzztEwEtLljf4jFM5pOokMougw4+2Avr4sXY4Q0bZ5jL1
/l84pz1v2pVW2Fy/4dx3qk9MAip9JExGwORtjrqhBg1mLT7geVmLhAZTbg1j
t6j/p35T0JEEBrx6+nbagSE61Is+JXVsDh2WX/w80BBHhy+st7odPkGDVxz/
VOftp0Nuqljtf1+GAU/9eWiYJg3K5JqapnUxYX85u2CtEgFDzk4Xu0/l3mHh
L6JdL+nw5QmnDbOzRsD5nSJKwqo0KLLxwKRqJAkdpecvXlBHwK7kmhO7+xhw
0c5OUe8fdNj/KGu9OPXdn7Hcdmcwheon9TnvDYpo8PjsxJAdlnS4unjT6SV1
wyBitu+WAmpfBdSZkpZbWHBp5sTPxG0E/G0Q9TGC+q4q9u/WL2+k+sc9hinq
PQKubrEPXrWOBg0nTQequ1nQ0aY7rPwsAV9EmtYPRjBhU71Ocfxi6v6agsgZ
9BGgtTBPpk8JXW/j3+t9DWVEwlr0JJjwVRaXfVSIgFVPdus7RtDhPb5+9coM
Ouy8O5pcQdLgBc23P2SO0qGRtrF2UsEwuKK4e371FhpcT29NXm/Hgh2vw4bA
bgJuLbA4EtxCwASDxdn7W+hQcSIz+6bdCODGaxdupPbBtzm0gmRxEkaoCRyk
fAnomtwaXl/GhD9+ZwsryxIwkWVme+3FCPg0e/LHV2UaPLyGtuWQPQlDch2j
lTKoPBluXfOhnAXrSnfmzD9BwEMNyi8CP46AG+cZCSwqf1/oDl3bKs+Ev6p3
bu6i8jRbW/qNVBod3uitHKzJovbDvh7vsSEa5P807JS0psOjV83lrR8Og+zA
+hRj6n0VZc+bSrnMgt2xK7PZJgQk31fM8++memvmYu21VP5u3VYUs+/wCHBk
DfU8p87TIik5X3QVCR+n321MCSHgrofzPm18x4Tl7bKuiVQe5y07vmdX8Qjw
c5kV6kvtGQ1VyUToRf2+OKlgVkLAs9/m3TBvZkEvK+sHZQ4EPDV3U6ZB5wjo
e21BO049r/H29d//pJEwQG6QzxgkoJ9MNKNnHwkHl729cegu1U/BsvRXX0fA
3UZ5jwPU+SPI+ye1VJnQQbtnbi7Vjym+QuIfH9NhlXMOaxHVn30Kx/slv9Pg
6a+tfFEbOrR70JHw4v4wqLhR5BpFnf8ST73IIogFF4ayLV+YEvCRn8ug7xAB
5wY1LIyn+nTH8U2zCg6OAJ9tL2YLUd/f1oUaNa/USOj1w4qlGkbAkiz1lAEm
Expo1o9x1xLwqe77l1mPR8D27tMWr6jzJ6tr7L0UTMJA8fWqHZXU/Z1Q155L
suARxY5CZWfqfVCrXPKQHAE1j3ovpFPnH5Arup50hISNYcMqM1MIuCczc7fc
yAjIGOqeFked97XiaL/IORISmhdtO3MJeGGze/77u9T1KIdqVLUTcMvJpOO2
P0fA3MnYD2LU76N+euWwX37eMAP30xneUpqLHRP3E7N65faueibup89WOdsn
pFm4n1hX3Kb7urBwP3VAu7TSUhbuJ+1QEZ3/frBwPwnOjeqs307iflJNfKMf
E0jiflplrlAgQd0X1E9GOssehOiSuJ8IywT/1F8s3E9HE4726pawcD95Xr6S
Mvc0C/dTyaOwP/eXs3A/ZdycnRj/mon76WTFjjMMRybuJ4NXBqNvvzL+n32P
8jrtSNUu1TsMnNef9H1PxlDvGcprc/985psEJsw5linseiwDxjO9Tb/ZkvBV
WrP421pdWBMh2XmReo/TDZ+wCsMyQNjirChb6ueID0xAJzf6DhPzQfKa0Ftd
65mYDz6xR13WpDJw3mfQ1CZlLRk473/nMo5XUDmG8n7Y6cWfbVeZ0P2W7LCK
ew71PN0S7h2grmdtfNQndgj8Nqu7PiSGhFqzVHhRhilgcGVI8/PzJOYL06UG
xOUCJuYLRe1T3+X3MTFf1E+dVhZuYeC+qPdJuRxUz4D1ZuabrW+lwF21K4R3
U/9fhklFZ9GfICD7ZZw/LZbEPCIoD86t8mdiHrku0VKbuZCJeSTF5FCDmT0D
9wu7xlVm9XIG7pei8e/Tm/8wcL/czqvJEnJnQrO1nXYRPx/Da5sGFE4bkfBe
sKKKRVsk7IkyvRwRRsISQ/GvCry7wNL7l7SjD4l5xsflrUjKMybmmRqbHW8V
jzIxz4RJrt8t1c3A/TTALb2yuog6b82HKPG2NMhP0NBf6UzCBP6e67clPYDb
UXP/n4kk5h+lzsfpDVQvIf55LOR9MWIVE/PP+kdP2h+EMHCfucQ21+r6MGBL
7Iz+uW8uQh1VkStX75GYjwqirIb0Khi47xSynxkIcRiYl0bJwY5ATQbuu/+9
f3W473JmDNSHjzNw3504cyxA35kJX3/ZtuI5yIctdVNZJoYknLHE29ewLwbS
zo5fjbxGwmF7vylPpQQQomYZV+lHYt56qdTovhIyMW95TOkVh9kyMW/Jb5cZ
iRtk4L4MjXzMnpvBgFpRu4x1Fz2EDAnjWFEHkuoZV4aFpi3Q26pQPJ5CYj7T
jQTdT2KYmM+mO53c3qDMxHxmpM8f+nibgft17fM6Aw9nBnw0mhDsCf0hu+KF
emA8ifmNGTXzjG0tA/dvoZDJ6m80Bua5JNeWT2X7Gbh/I3apiPvqMaDbNp7c
z1m+oM+leNufBBLzXu9xs3VfLjBwP5/Z6CdqEcaAA66Cu0aZp6FqhliJ930S
8+Co5yu34ZkM3Ncqo8e9zL8wcF+vsbqo1uHAhL+PnP15qDsfbrroMg8YkDAl
ZNBt/ppY+H4TrT+KysubY5tnJrbGgaEfhXk9ASTmx723h/o41UzMj2sYo/Il
9kzMj16Tvqe0Rxm4718rTEaX32dA928XFRgVD2HOyVphof/ZHemOHyq+G4FD
Ydn1X1NJzJvLuCv0MuKYmDcL/lR4HlnHxLwZFBkUnHmPgffBi1P3GGq2DBhu
WpRtZhMEd/TETwVReYB4VKqsmPeqkYH3Q/L+O2lv3jIwn4a8Utrjb8XA+2H4
xDTlJHUGnB65wLx+7mVw/UCx7STVe4hfV/8Wvzjpy8D7wrhKZc/3QAa069Ve
Sja7Q2fS7+6VJBLz7W1Tg+g6eQbeG+WqM1ZWfCWgmZ3Q+ZfKLiDUsfbeRDKJ
+fdcxb2vyQYMvEf6An9Hie5lQHn5xJ/VNsdghym78fIDEu+RyJ+cZxup+432
SJ1OQY38KSZcKib8MWVjATzEAGpa+iQ8W5nx8fLrWFhenHQnOoh6njoLRPLl
48CaKfWiH1RfIp7e5v+ftHYtE/O0ZpKeiyH1viCeVtKrJUOo9wntmWW7I9W8
ExnwZrb4IjnRDDgUMbfw50kSGj2cepWlshos/yrZNkadG/M37J+xjOozxN9h
XZlTKzSYmL9rft0JGkpm4P2zSCSOvuMYA655Lp8smxwMW1Rte4Jvk5jPZcdG
ZjtSzxPtI6uPcalKbxiY12ss9LnBxxl4H304GhPzbC0Dvitb56oaeQG4die5
/6LyD/G8lHnBZEcAA++nPz5avWv9GPDuC5lpHns9oaaKWbgvlb+I9/0HpQd3
qTJg35PND8PUHQBP5XXmd+p7RPyvaja8n2vEwHsrYcxEadKQer5w0duFuXaw
9EvFSy8qj5Af2B4nmsX+QsBlBbvmGXpYgoeP5r/4Rj1v5AvE5qXv0jNn4H1W
9OxQzJktDOwPgMzTxAWLGXivbUkMvrFCgoF9grHSUlOBDgPuqZt14ujpg3B9
Wzz9EvX9IT+tfC3zsWmkACA/fZbItHl6XQCQn56/L0Ziv58AID+dPfUoyfSS
ACA/HSojDszOCQDy00NjggZfBwFAftrhevCYpI0AID+t/Iod8NJMAJCf7ne1
azhuLADITxsUFRm76gsA8tNP3lZY+m0RAOSnNzjwp36pCQDy05suisu7rhYA
5Ken7xtorVsiAMhPWz7y/RIxTwCQnz6uGqArKywAaL8uP2KybvFnPkD7tfxI
+FAdmw/Qft39aIZeWTUfoP36/emzLe45fID2q7zWVV2pSD5A+zW3vGuhkAcf
oP2qbJU9L8mSD9B+LatslXLewgdov4o8K+3Nl+YDtF+n6WZJtU50ArRfX7wa
vzhK7wRov4ZY720eK+gEaL+esbbqtQ/uBGi/XtyrmShn3gnQfs2ukPpVLN8J
0H5tWr6YV9HDA2i/GvsYbnBO4QG0X4vEVunfNeCB/5+fbh5J3n49nLrff/20
fiTryqyZnQDtTxmv5gvXa3kA7c/rL7vCsy/wANqfOv38c6U/uAD56c6wBdPP
3hQA5KfDZTYrKSzsBGg/lm2a+Smc4AG0HzVolpssw3kA7ccdfMncCjkeQHuw
Z3t3RVgxD6A9eBo6iHyz5gG0B18cPT1YUsMFyE8naXkvOX5LAJCfbpIaOeC3
rBOgPfd6zL+vkssDaM/xr1U23orjAbTnUqJ37iE28ADaZwb5yrdzKnkA7bOW
y3emSTvzANpnO6KHhqW7uADtL6lbQrBbgrpff/dWy5mO37UJXID89LpHymNM
6vqQnzbxuuK1fGUnQHupYLzqExTwANpLIryXHtfv8QDaS6v4Kf7crTyA9s/S
qnRxWUjdn7/7p3n4pO3nczyA9k/v/DD+8CcuQPtGZv/niZvSPID2jKbo3i+h
hVyA9orlTaGiznYuQHskrkV9LNWZC5CfNnC9ZbaAyhfkpw1Vuoz7ZTsB2hfE
UaXul908gPbF6Oh8/59JPID2RaDrNLdaPR7AflqkTtuimgfQXiCEdi9pO88D
aC9cuHtt8egYF6A9oFlVdXX9Cur9+Nv/0eNpF+884wLU77ddPa3V2VyA+vuy
SecveI0LUD+/keGlrs2gzvvXTz99kB6wnjoP8tPmY22OzXKdAPXp/HSxqufv
eQD1qc3nN4Eb7vMA6tNng0NiRdt5APXjQtom83M1PID6MViHYOp68gDqxwni
FdExzgXYT9NWpHit5AHUd/B9fDio4gLUZ3u2JAsX8bgA9ZXHSo5WbyQXoH5y
+W6WPyeXC1D/VOU9iiyz5ALUN3a6a3tLnnIB6pd4uY3SLj5cgPpkpoqmbv19
Ls7PMm/22OdtPJyfk597Tkwm8nB+fl9tL2ffx8P5WdOUvkyTev4oP9vdVN9b
WXbi/LTZGGIVeK0T56de8uinK/mdOD/deqc+OzA6cX5KzINNolReovwUVgPV
XxfzcX4mvknamKrFx/nJ3HMxN9SCj/NTSxRaH/Xk4/xUlPY+YhzFx/m5wmKP
lVE2H+enCdH64HANH+en5KzqVY0dfJyfcdGp+UKjfID8tHme/fbHMwQA+Wkz
qwktLQkBQH7aqSK0/yDVV8hPp189DE6tEgDkpysOZQRMp/oO+enxwr52VaoP
kZ8ejOecct0uAMhPP6sOz95M9Sn20yY+9DtU3yI/TU9RiV5rLQDITzuEgRM6
VF8jPx2x4E7zDVcBQH66mfPtXMhFAUB++n3OmgUzqD2A/PTpC890mq4JAPLT
aE8g3+Hx/NDqF5+5APmOnmPSxXbuPIB8xx4XS+vP1PuP/LR/9b6954U7AfLT
2T7thlJU3yBfIRom+eVCGRcgX9EqO7xY+ggPIF8RLxXVklrIA8hPt8kFfX/+
jQeQn9bK6747EioAyDecomWKGizjAeSnvwVHFoRe5wHkp8/JbTPaQPUT8gd9
bm7pFv5cgPzB5h3pBSPGPID8Qdd6Q/mrmVQ//fXTwwF9mmuGeQD5advt0/V5
1L5C/L/hfWhV82weQH46Tlvbq/gKDyA/7ZQtkSQfIQCI5/uUU9SLWVyAeD2o
2lCErkrl/18/LbrVZZ/+LXS9jX+v9x1AvH6z62GnuCEPIF5/kq03YZTKA8hP
k2alcM8ADyA/3V+4nDCjrhfxtmft+DvF31yA/HTZTuf5Sy/xAPLTWt6rriVS
zwvxc/XRVDPLRi5AfGwWznqqt5oHkJ/W2F7Df0bdX8THjbwlSiCVCxD/hrZv
lTzcywXIT9tFWMQ0UudDvHuwfmtwKJWniHdfp9c1Z1J5i/y06y0dzuF+HkB+
+tAMG/F51HkQr7p8tZ0f+Z0LkJ9uD3IOMKDyF/lpT5J6Q6nzIP5M6/0w+gZy
AeLL+NITJi1UHiM//UFCd8kl6jyIL9N8smP+u80FiB+JdauXlnRyAfLTT07G
fw2hzoN48Z1jfMftI1yAePDk2VKNRXlUP/3102x+wSox6vtCPPhhf3J+FdWP
iAcjZVhdB5N5APnp3tiiDpsPPID8dNPUh8wh6ntFPKc1Lcsu7ysXID+tP+tZ
Bp3qU+SnP67pPqJJnR/xGRG5tlvnORcg/hI1r6yLoPoV+elZZmIbzKnzI/56
62N6KyqMur9/+erriUdz9DjU+/DXT+903ydvT50f8VLIn5hb9llcgPw00dxy
bID6OeIfL7O5VuH3uADxDmHz40bueS5Aflp213i/WuS/fX9TfsMdK0sO7qeu
XIePv7vYuJ8u1dt6h15l4346to7l5a7Cxv10UWx++VBHB+4nz8YV0k8iO3A/
LZjm5We2twP309kl0Ve3CHfgfpIdLrvMqiFxPylpWs09Wk3ifhLe57C0Z1YH
7iev9QPajUYduJ++fF5DKN/uwP3UITlzmQ2vA/dTomC8skmBjfsp+5fXSro/
G/fTYOu2/bE8Nu4n0UbdN8mmnP9n36O8fqxe47Etn4Pz+sQu4SOsxRyc1xMi
9O6UfDZAfrq8eJaL53sSID8dPunG+ULtCuSna93ZSiI9JOYDoT3pXFYeG/NB
kd0PlVApDuaDE/lR+3dkcHDeZ5cferl7mIPz3pSXe7RoEwfn/fGVrytVGtgA
+elL9ZKrWseo6/nrpw8Hpnx5X0IC5KdPOk0O5rWTmC9+u+r1jsazMV+sNl1e
s/M7G/PF9RvSUacucXBfXBfv1u+7ygHIT8+qsyuVo5MA+WnVhLAOx2IS88hZ
2qRE7ms25pF675JvNeoczCMFOuu+LOzi4H7xqJNKMlT81y/JMTfKknZycL9U
cl5KORFsgPx0w6GEmGmTJEB+2mlCw4BXSQLkp8clrqVObyIxz7SvKC1qCmdj
nglX1h0GA2zMM7WXTT0s7Ti4n+weN+kaxlHn/eunXT+beu3hkAD5aZ6a6tZz
OSTmn1W5xKK0Cjbmn7TQ2YY8WQ7mn2Vd7/oaIQf3WffXkm/KTRyA/PR8ay+9
wVwS81HKxNpmpZsc3HdrBPWXnJw5mJesC+P4ffO4uO/+9/7967uHIQlfePs4
uO8+LV+jrcBhA+Sn/WoCpJYLdQDkp32Xheuwq0iA/HTjUeU1BXUk5q2o4xVG
e66xMW+xb+iL8N+zMW8pG9k10Y9wcF/W/SA6rVM5APnpy96b1x7nkwD5aYn9
ViIemSTms3k/t7OelrAxnxnLrvROW8LBfCa8O+2dXzEH9+va5spL42wOQH7a
o7U27EMBifnt0oTPfpFADu7f+6Ga8Z6eHMxzxUtL3hZ/4+D+rda3yBuayQXI
TzuuaPV1yScx751WUou41MrB/dxlPr1wwXMOQH5atsdz9kgWiXnQeuGrPT56
XNzXcnfl9Bce4uC+VlCfezOqkw2Qn168YFGu0vQOgPy086EiGvmKBMhP20bS
xEJqScyP08Zj228GsTE/KjyJSigTsDE/EhEzLNTNObjvb9iGKBZncQDy0w/X
vnzq1EUC5Kd//mF98XxIYt5cn2d35XUhG/NmSljDTslFHMybTT9+b6rN5eB9
EL3qw/utPVSe/fXTczIGnvUWkZhHt7a3cB5d4eD9UKT9cfEDLw7m08YGS/eP
Axy8H44r+kc1L+QC5Kfrt7QeOfuYxPyqGOFheLaBg/fF9CZz9/M1HID89PvC
aXKfsknMt5VaekoP5bh4b8Qfu5pYZMoFyE/Xyb1c6f6IxPzb2dr3+u20f3vE
cVaw0vEfHID8tKdW1uhoBon3SNWtjClN6n6jPRJq0j6+k3oeyE//LNl+U2NG
B0B+Op7ZI0dSfYj8tELYgTluVF8inpaccyZNPZCNeVr6k77paj4b8/Qq45eC
9wc5eM+s1/8SMZLDAchP205eED3XTQLkpzXi3PovUP2E+fvNndJ9BWzM37VZ
7GfGCzmYv8Nv9m/2fcTB+2dzwFDv6o8cgPy03zFZRg+V94jPVeOji6d7c/A+
GksZlAbU80a8Hr4B8Hp6OXgfOaiNKBSu4ALkp/mZPUauVP4hnt+q2f4ispaD
99N+cSNCv54DkJ+WtlFTH6LyF/F+c/LpFjlpLkB+2s36xYLz1PeI+F92022X
m784eG+VxW2MPjvFAchP34lv+DVC5RHyA2JfLy6IPMgFyE/nCM799qCeN/IF
2707PZRHOXifJbeoKf4W++cPxF3eyVio/dtr/w1Pauzd/M8nTD/h6HJDhNp7
f/30svKB3s/U9/d/ABzrXaY=
     
     "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333], 1], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwt0VdXDwAAxuG/EcrMyqaOkb1lRWZFiswIiTsUEVFSZuIgK7KyV6EIGclo
WZ/J4xwXz/ndvHdveHpmckbrQCDQisb/XUUss5jISIbyb9eGtgTRjvZ0IJgQ
OtKJznShK90IpTs96EkvehNGH/rSj/4MYCCDGMxq4pjNJEYxjCGsIZ5oJjOa
4aSQQAzTGEc4a1nCHKYwhhGsZxnziGI8EaxjKXOZylhSSWIBM4hkA4nMZzqb
WMEiJrCR5aSzkDRWso2ZbCaZrSxmCz+d8ZLffKSF+/zhEz94zi/e00QZL/hA
M3ep4B0NXOAeldTSSCm3eUINXznDNe7wjLd8p4Qr3OIxr/nCaa5SzlPe8I3z
XOYmj3hFPcWc4xI3eEg1nzlFESc5wXGOcZQjFFLAYfI5RB65HOQAOexnH9ns
ZQ9Z7GYXmWSwkx2c5SLXeUAVdWznLw6hUws=
           
           "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
        EdgeForm[], 
        Directive[
         RGBColor[1, 
          NCache[
           Rational[1, 3], 0.3333333333333333], 
          NCache[
           Rational[1, 3], 0.3333333333333333]], 
         Opacity[0.1]], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwV0ndXDlAcB/CnzIPInuEhhOz5OrwE52REZYSyZ5kZyebYCtkro+xNZEQ2
2bNsEh9/fM73/r73/nHPuTfYP6FffGggEAihgMNcYTHnOMhltnKRI8zlNPvY
wirOc4htpHKC3WxkOQs5w34yWU0Mx8hmLRnMYyYn2cMmVrCIAeSyg3UsIY1Z
DCSPnaxnKfOZzSAGE8sQhhJHPAkMYzgjGEkioxjNGJJIZizjGM8EJjKJyUxh
KtOYzgyOs4sNLGMBczjFXjazknTOcoAs1nCBHLZziaNcJYVPHquvR2tLLxrQ
mh5UpS4t6cofZyvJcCLoxFfdL0Ktw2hCBz7qPvCed7zlDa95xUte8JxinvGU
JzzmEQ95wH3uUcRd7lDIbW5xkxsU8IWfhLhDDRrTnuu6z/z4/znN1WlEFNd0
ZVS0rkUzoinVfecv1cwNaUe+uYqsQwu68FtXQdakKR0p0dWXrehOZWrTnM58
s99G9qQevQnSjXJ7fWQk/wBasXSD
           
           "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
         12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
         29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 89, 
         76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47, 34, 
         88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 81, 69, 
         48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 97}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        LineBox[{186, 205, 148, 199, 183, 204, 170, 202, 187, 140, 196, 180, 
         167, 156, 200, 184, 171, 135, 193, 177, 164, 153, 145, 197, 181, 168,
          157, 101, 189, 173, 160, 149, 141, 136, 194, 178, 165, 154, 146, 
         102, 190, 174, 161, 150, 142, 137, 103, 191, 175, 162, 151, 143, 138,
          104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130,
          131, 132, 133, 192, 176, 163, 152, 144, 139, 195, 179, 166, 155, 
         147, 198, 182, 169, 158, 201, 185, 172, 203, 188, 206, 134}]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}]], 
        LineBox[CompressedData["
1:eJwV0VlXjmEYBeCvaM4qijSgDCGpqCSVBiFNSCMNCk0H+T/+lFKUaFgNJFQo
UipXB9fa+97vc/am9bxsGAoKBAKvKFf62dLbZBG9nKabSr761iivcYII2rnJ
OeZ8r5c5JHCAdVuLLCSVaF7b7sgLxLDt/sY8w9y1XSSWf+7vLDDCG0YZ4y3v
qPIug8PsuFdY5L77Csc5yIZtnHv6JY6w616lSS/gJJF0UEo6PdxmkE/ePpBX
eU4iXVQQwmOKOcNvbyeo1jOJY8+9xmfeM8kHPjLFNDXeXSZ+/+fwQyzxUM8l
iVD+2Gao1bM4ShA/bV9o0PNIJoxN2yx1ejbHCOaXrVle5xRRLNseyXxSCOcJ
JZzlr++t8gYvSOMptxjgEJ2U0cd5nvEfcQNEJw==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwVytc6ggEAgOHfpbgll8AhykhkhjLiITuj7FHZO3tlc01eB+/zfAdfZXW4
KlQRBEENteKOIzZZZIox6qjnfw7TQCNNNBOhhSittBGjnQ466aKbHuL00kc/
CZIMMMgQw9xzzBZLTDNOigdO2CbLDGmeOafAChlGeOSUHXLMMsELFxRZZZ5R
njgjzzJzvFJij3UmKXPJLmu8c80BC7xxxTf7fHLLLxt8cMMPh3zxB0WjPw8=

         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwNzkVWA0AQBcBJAoSHB/ckuLudgyOwYwNHRYO7u7umFvV+9+9ZTHpmfnou
EkKYpS0awiR/imGZZoJKxmjnzW1ANpMgjxFaqOLRvVc2UEKMb92gTFJOnAVd
p6yhgH/7O0/02RspJYcf3SJd5loKCXzonlmi215HERE+dS8ss8IqGdZYZ4NN
tthmh1322OeAQ4445oRTzjjngkuuuOaGW+64p8cf6ikmypfulX5zE2Xk8qsb
kikqyGeUVqoZp4MpHrzNAtx7NSg=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         GrayLevel[0], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwNw4c2UAEAANCnP+kzqKyUciqhZDWQhEJFDrJSNCmz7BWJomgYRURSkvRB
3XvO3ZtVlFgYEgRBlxN7guCvF131hX985E/feNovDtjoDdd9abPH/GSXdV71
nF8d9oE3DXXaFsvNMdnjhvnWViu85BlPuM/9HjDcCCN9Z5uV5ppivHN2e9tC
zxvljO3e8rKpLjnoPUv87rhP/OWU/zzpvD3+tt4fTlrkN0d97AWjnbXDKvNM
M8GDxnjIw8Z6xPd2Wm2+6Sa6YK93LDbTo37wmTUWmGGSi/Z512tmGedHn1vr
Fc+67JD3LfWUn+23weuuOWaT2a444rYP3fS1u5a54St3fOqW/wHBzlS1
         "]]}}}], {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        StyleBox[
        "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm], 
       FormBox[
        StyleBox[
        "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
         StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Epilog -> {
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\[Sigma]|\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\)|)\"", {
           FontSize -> 11, FontFamily -> "Times", Bold}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.88, 0.92}]], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(sustain\\)]\\)(\[Sigma]|\\!\\(\
\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\
\\\"]\\)|)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> 
           False], TraditionalForm]], 
        Scaled[{0.88, 0.2}]]}, 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]], ImageSize -> 213.7322834645669, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
       True}, PlotRange -> {{-0.9999999591836735, 0.9999999591836735}, {-0.55,
       0.52}}, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {{{
         NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
           FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}, {
         NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
         FormBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
           FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> False], 
          TraditionalForm]}}, None}}],StyleBox[
   "\"(c) coupling = \[Sigma] \\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)with\\!\\(\\*\\nStyleBox[\
\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\[Sigma] < 0\"", {
    FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.6224615090921793`*^9, 3.6224615469963093`*^9}, {
   3.622461630297761*^9, 3.622461633531004*^9}, {3.6416575010860043`*^9, 
   3.6416575073528147`*^9}, {3.641657577738441*^9, 3.641657604674573*^9}, {
   3.64165770905061*^9, 3.641657750359172*^9}, 3.6416579137222443`*^9}]
}, {2}]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Create the figure by combining the three panels", "Subsection",
 CellChangeTimes->{{3.6686134334726562`*^9, 3.668613434254945*^9}, {
  3.6686136277501287`*^9, 3.668613638214312*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Row", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"panel1", ",", "panel2", ",", "panel3"}], "}"}], ",", 
   "\"\<  \>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.60823269928104*^9, 3.608232715514604*^9}}],

Cell[BoxData[
 TemplateBox[{"  ","\"  \"",TemplateBox[{
     GraphicsBox[
      GraphicsComplexBox[CompressedData["
1:eJx1mXlcTG3Av0MeiZJ4yJZKaJUl2tRdCUmEFqJCiWTfK2mlVLRQoZJKJWmz
tKJb0SKVac45M9OcOTNTFCpNREJ45/f5ue/nj/fz/sMf+tB9d+Zc38ul7nlk
i/doGRmZQOkv/+/3RWBaz58/EqhzIeeeQ6wYVsntPryvuh8eJHPcH0WIYXAL
p7dm90eotCFBcWOQGH7ImTHdaHYfvPPnTqrDaTHUEdmOn8T0wEhVBeB4WAyz
p9z+0h72AfYNihsCvcXw+Y6myxC8h94R4YNK7mI4+9Zstesd3VDnGT/kqaMY
rl+1w5+I6oLvDnk2eNiJ4dyfe0O0172F1iUldoesxFC/6GbI8Y+d8OGrCpcg
IzEUn8xcxMnrgEu8RX9+6ovh/rSE22m+Ymh4SkHjkKYYbgtynVegIYSjN/S8
rpshhlq92juc0mnocifwc8wkMTywcdOFzjc86KEXYq4mK4bbTziYr1jBgbO3
2S+a/kkEr8L3m2AZAcu3RffV8UUQjOa5LBrVBtfeGWNRViOCvrzaozmDzfDb
o0qjo3dFcOWNUJUqvwaoYXzOXDlWBH2YT7Tr9FqYX94xVea4CDqI9QobNaug
jmvepFQXEVwBU7k954tgWdVr5f1GImgy4O4l9EqEcpWlXYUqIqgbLpF/duoq
GGWeq/x6WAiLG/rvBm8rBk+eDZ0aIITw6bomY9PaSnDebX3LYJEQ9uZn7d+4
rRYccHPt8goXwpuFi1K/lDaAU+sNU9SdhPDJ7oh/F5c3g7wK5Z/3pfcSMPUG
5aDcBppmT2cq3jKwmUXasFMIYBdgs3R/OgOPvTJaEDeNA0omzrO6bs3A7Nc2
/+5t5IF9rc8P1zkJ4JfbZgXLdkpgsyTNMiJaet+r3cTvDr0GVrHcs/+MFcLb
n1coJLiwgapfy8mI5wxU3RhRWsIjQcTTjui8kwyM3lB9M+AIF5i9Fx0u/S6A
CZ+0Xt0olkBh1JTRBy+JYbTjpx8xyq0gWnWF9sKpQhg7xufY0UdtoGz52I/R
JANPxemfqzEhwWKWy3KXaAYGTfzZIfucA1aJlPIr1BlY0TH27v1hNnhr2VkR
dZ+BjRNFH2+docA+6C331Y2B12JDXQdm8cCT7ft6H9QK4K7rt/jNXAlMNfaf
4XFZDG/zzeSEe1pAk7JkU9AsIZS9FDJvl1cbeDEY3F0lYKDa4lEd63oIILpQ
1Xg5kYHDB2bINh3kgPT41evIpQxc5Ku6I/MOG1gX6ly5W8XAE4UPNmtpUaD1
zLVRKvsZqNR/62xpHResiu/rV+kQQNlCAQQzuED5sgzsVJTel4GXke5xHmg9
0P7rebIANvRu9+zulcBFd3QGOdLvb7Fqh+I4xRZg73fWb/ZcIQSsSyNc0zZQ
NFT9EYoZeFqmVzm2lgByzNPjETcY+ChVK6nAigPmidKDBaYM9CnSMZwRzAYz
q7MU1KD0fs6lhR+UoUBL/+5dnw4zsGVO8cTrKVzQNTlK1P9RAGsEvZs0+jlA
deOn4UsqDOR7HG9UWMsDhvLrP0cWC6BTdXwPe4ALXC7JlAjZArj7j2Ou7U0e
SGw1GMzYL4ABScYLBr9KoPWhy45TpO+XIbjsSmpnM7DR7bB7ryaEbp+VP1xd
0AbI7dqdTzsZmPlepFtSRICBgcnBP1IZeGVZCTNHjwNCD4068tyCgRGsEjXK
lw1y5epMnGsYOOidkBbbRwJSZu2MtmMMLChd4Tz+AhecvH5h+sCgAGacPHHj
Ko8DDKurzy2ZI30+hr4rBS/hgfihzFPXKgVwqYvKMhuaC64cOuFmwBdAy2t0
f2UkD5yxF/6EFwRwpL4nOM2NB16qMhkLsqXn9V148fsPCXx0KytkifQ87UoM
0dXcDJwG2/a2qAvhgTEuomOz28DkrInVj98wsMxtu3FNNgHcP70MXXqTgWF/
BkNd1DmgsrdvYoklAxM7Bqc93MUGU1nLnQ7XMlCOP+HurU4ShJuRHPMTDEwN
DfhuFcAFw+Qzsn1IAOMsy82bWzhgAWtOut9cBubVmpeWL+AB+CYpGlQLoLqG
GzeQxQXrjNJkSxgBNPCae/VzIA8cn0sbd8UKYO+VRZrUZh7w/eZYOD5fAPeV
+LhpZPFAdcGd2DIXAXypU3ZwzUoe8DRf0PXgkQBuenXNLvQKDySpL1PxDRBA
hZ+5tNc+Hhira2hef1MAET++n1vu+XIhCyB+nBIZ/v6zggUQP/T63dOa17IA
4sfvi4vDXm5lAcQPi/V7zWr3sQDix8mMau0j/iyA+BF21p+9JpoFED+Gx70q
/5jGAogfQQWPde4VswDix8uFczVja1gA8ePdgOLEgxQLIH70PK2pPPqeBRA/
3tz0PhX7kwUQP2z7781glNoA4kemSSS5aX4bQPyINwix0FrZBhA/Fi82jNns
2AYQP5IMhpqz9rcBxI+xHYFnH4S1AcQPZ6I+dDilDSB+6GwaE+hS1gYQP7JY
6dk+7DaA+KFhwLvb8rENIH4kt5Tk/pnIBogfNq+biCpdNkD8WL+en3tjPRsg
fsQ3RK3yO8oGiB+Nusv7TiaxAeJHh+5CUraGDRA/uCvt564dYAPEj+zXh6rL
1AmA+BF2YL+geCcBED9GK66M/JNDAMSPtLPufqxRJED86Kp8YndbQgLEj4d5
a4zdDKT3/ZcfE37kmXsCAiB+LFJ6aNMZQgDEj/qm9EXPXhMA8WNyRobdQzsS
IH7En3QtjddlAcSP2v128VaLCYD4kbzlbDNzhACIH7MrtM8rVxEA8WP83SOT
SjRIgPjhszZdRnSFAIgfXY0z7594RwDEj3j9Ga2loSRA/Jg2PTaiQJsFED/C
TiX49GgRAPHjYqIMUbiPAIgfh0bXD/CLCYD4UfTN9GjiZBIgfsjTzgthFAEQ
P4KUPpRvogmA+DF++GqTgxcJED9Mfwb/uLCcBIgfQbPvPM4uJAHix4CJLlGl
xQKIHzJKY63s5xMA8SM9oeZVnhcBED9s7tWu6cwnAOKH9t0Ok0vjSYD4sbSJ
uWd7QXo/f/kRfEPV9QxFAMSPfae/tfu7kADxY5Fp3DNalwSIHypByxvEiSRA
/Bj6GTw++hgJED8qKjfVN/BJgPjRWOitbC39/hE/5NxvHQ6ZRwDEDz/9rdz8
3QRA/HC7dtj0cB4BED9ezQy2yxkr3SGIH8GPg6eEEwDxwy/SJOMamwCIHzzJ
j0y/TSRA/FBpqjEzWih9Pv7y40mCcFVbNAkQP6pmKrib+JIA8YMyy3qaV00C
xI/w/bdVrDOk5/3Ljy5bs4qx0vMgfgwnFm1J1SAA4odZ94mfBbsIgPghSS4z
WnGHAIgfV9OuFlSMIQHih3GFnfePUCn3//LjpX1Bp04bARA/nB7Ct7EbSID5
UeE5a0CTBIgfl7N7FmlHkADxY8zmt48q9pIA8YPvkxMSXkoCxI/OeL2JO1NI
gPgRS/N0HnyU/rt/+dFjt50sjSMB4kf53g2Zv1+SAPFjrbt9YFYuid+fyYq5
dafHkXh/b0pOdT14l8D729lrzvWxHgTe39FPmZuGmgTe3wEqThzFfjbe3xKn
kZ3vqtl4fyv2xb3qS2bj/c1khTSMPsLG+9vCv6bf3Z6N97ftDqvhE3psvL8f
VL+90DiBjff3aYsJkzr62/D+nhpU46bY1ob3t+bRcbtVS9vw/jZYZrRLLa0N
72+ZRyUzJoe14f29MgwmZfi24f1d8U00wcepDe/vbINKY2XzNnipoDxvnD0N
cqm4tcML2+Coq+S652OFIHD6sfcvJrfB6XfvNWTbioHc5TbTjF8syLkTMm/s
xQ4g6DSq8OphwR33dCKOd3aC3VoPp0zisODK1HFmdfPfgtNuLyWXn7Pgm7jK
Ic3zXYAve8DnZzELPpoX3Ksu6AYv+mOUTW6yoPj2maWyc96DXDvtG7MusSBb
a3XIoN8H6ftu1M9P/iw4N2W1WuPTHrBi9xbVrftZMDnf9bvJSC94wEqkd7qy
IAGt2yucP4IIw+VXPW1Z8ECNx4Q51/tB0C0Fa9KYhfYEGP7/ewJ2ih12T7zM
hfxm/aSCLSQ8PWN2Q8AQCX30fOT+IQn4YZeYGNrBhmNUddzPhBLw5GGTSaPO
voYt9UsPfwMEtA+pClC0l4CRK7SBzWIWzJ2+6cQZYx60/nOkYfCy9O+pXx62
LZmC5/ZdydzUR0CL+D3KO8ZL/e/Up56GRAI+cTM9snUnC57d+7umYCMBBRkT
n//7uR8wBo8jowxZUDXfwSGzgwPfl/OLFmiT8PzB0RNvupBwq+xn+Y6nBHy6
02fpuFwJOLZaTltWjwXllm0a0Yvlwb0qk6dPqSNhR1rtzrXdFJy2Wijv/52A
7+/kLlHYRcADLiuv9aYTMMhg/BvrEhb0GJdyfpULATXvL983o64fxIwLNCpa
wYIhdQ48FyMunJkz/CNlJQl/Wcd9iMklYcXGtVbljQSUPZrAkfeXgHNGXuHz
FrGgzYhDT00nF+5174wqP0jCJ7EO9b0xHNhUb3Y/abr0fh2kyCQkwHhqgWq3
NgtWWbKejavkwYuFS+reSkioKhfVaqHIgc9yBfztMiSsfrjWam8MAW+IrGrm
ZhNQeH0grYLHgicNX31X3U5AWxM7k9SifnBWa+3kGiMWXEK8TlviyYXtL6L6
wFoSmhY5bwtvJWGy9fS8ja0E1BrOybvkKQGCJJPiZQYs+HU8qyhNgQdj9MXe
yoEkPJT2Orq+jAO//8qT1VEjYQrXcdeFJxLwcdzI9y86LLh1PstoixcPns/f
G6+dLX2f9L+e/66cC+tKV9+dvJOEWxp0noR+kICLx6hkrhYLPjHvu2CqwYE/
a1av6BhDwjwTlZfKmQS82FXVW5tLwNgNb/0H+1hQ9MNGqORGwO3nnDTcbveD
vND6dDvp8yrPn/Qn/QwXdl6dm8e3JyHvTcWk4E4SBoydbrKgjYCmK0sSNmyV
gL3cvrePpedpVVKaLD+PB+9lXW9MP0/CNbcnfVzWzIHlbLVDKZokLJjlsW7N
fQkI8v0nMlCXBRfrKaVAP+nXK/AWOj4g4cGvky46tXChn6vbrTJvEu6ZsDzH
WigB3S+cWR7Sn9cQe8m335k8GKLeK6J6SRikGk+93cCDvbNeXdxynYSW4WrE
sy8ScL1R4/gm6fljeDd3G+txoLfJ2wn5Y0mYHiij8OEeAav33+VOyyNg90KP
90rfWHDfl9cieXcCet5qT35ysx9UXCw5FCc9/2nGoMQ5jAunRvJdnjiQ8E6Q
b29gHwknhDVMTWITcJXH8n+KNktAwMon42Sknz/TqYtrn+nzoN93V65eFAkf
5Bqk93A40NqwflCwgISPzN88zb0nAZad+5yfSc+fZrB4/elwHgxVWKLXXiW9
32EDkwk8Ltym1V6ss1/6POhXzbjNk4DaO10ns6Tn71EviUjdxoONUf26Y9NJ
uC4nZ626RAKy+zpHJUrP+0Jr4L3cYR4kDU/tEuaT8OSKo4Vvrku/H53IxdVs
EhrtTvXY9UMCJoxcfTdR+vWIT2X+/MFPKxm870c+vd05ksLgff9N00vdq5vB
+762KWuWoZoQ73v2Eb03ri5CvO/dl513Db0gxPveIm3g49lCId73R7r+fPKm
hHjfK06CTfLDQrzvZfVBzZfpIrzvU16mLsswFuF9z1l3Kj/SWYT3vbE8dNt+
QoT3vZaK/za7OBHe93Oc17na5onwvrcnX9/aWivC+17pn5p5je0ivO8T4zMK
ZQZEeN87FXhZ3hsjBohPjq7DxsaKYoD45FMR+X7zDDFAfMo6txXsmScGiE8V
W7JDRuuLAeLTUHE3W89IDBCfepPoPYcsxQDxqbImOm+FnRhgPtkHENccxQDx
iUjXjV/gJgaIT95RYKeZtxggPsVMudZy8ZAYID610F8Pnz8lBohPb+7OnzIm
SAwQn/adrDRruiAGiE9//78UID4df7xF88knAUB8ertD5b7nUQYgPq3zdXH7
VMsAxKfgmg3rj8kKAeJTXgDbRjlaDBCf5KOUPp8sEwDEp9dq/dNVtjEA8SlJ
Oa41o5gBiE9t6mHfHn9lAOKTcUHndUmkGCA+7WHlyFvPYgDi09fw2KLICAYg
Ph1WX2m79JJ0N/zlU/eRI1nOwQKA+LRiVVaRxI4BiE8dS2w0zuUwAPGpP6Tb
cH4/AxCfdlmOtmIixADxaembyOqWcQxAfEo0MfG7f5YBiE8+eYqpGjFigPjU
rZNucJ8rAIhPYTU2coQeAxCf5E19N1hdFgPEpxf8jV/CnQQA8elSx22hgg0D
EJ8e5lkM22YwAPGJ51gK1/UwAPHpffFs0lH6/SI+nXg+1Kz1SwAQn8pW7588
8zQDEJ+M/eddSJH+vBCfarZnOLo0CgDik2M095GFJgMQnxZb1ooqpfeL+NTI
zNAGGQKA+BTJNlXa2iUAiE+eMc4JjdLzIT5trjcNj7RkAOLTi6y6lpybDEB8
OnTZjN76ngGIT1vGuCtMkp4H8cn3y67Jsd8EAPGJHbY/xPoEAxCfTvCkT6j0
PIhPmV3vBl5CAUB8Sirdad86lwGIT+8UzWeclp4H8SkzIC/h3ysCgPhELtKc
+UAoAIhPD3cnfTkvPQ/iU/PepPYr2wQA8Wn3wdLF0woEAPGJLyqaN1H6+UJ8
ercxrbDaggGIT7Gq3I7NaQxAfOq6WtLu/o4BiE9Nf97l9Ek/r4hPxqNyPQu+
CADik9U/ldnEMQYgPn2Y37nNUHp+xCcydkGn2WMBQHySd6qqi5nDAMSnfxwn
LnWSnh/x6VWAw+W4KOn9/uXTl513xlvQ0ufhL59WH92g4SU9P+LT+d8Jl71y
BQDxiWxp3dEj/XPEJz/HCa7RNwQA8Yl0/34x/5gAID6prRl6ry+9H8SnZ94b
NSb1U9ifDjAzWb6eHOxPnJq5lh31HOxPn1zvWg6rcLE/cc8eGR3oy8X+1A49
M0tLudifTCLlzP79zsX+JD48YLbEkof9SS/lpVVCKA/7k7ah64TtNTzsT7Ib
vGe+/acd+5Pfkh6TRtt27E+fP80nda60Y39qVxo7y51px/6UIh6qalrIx/6U
99NvLhHMx/7U+3rlxqsMH/uTfKP5yzQH+n/1C/S+ztxWvUbvGoV94qNV4O4E
6XOG3tdOwYWcl8kc3DNk1mUJuAV83DNKPL/rRirTuGfsLIzbuCqbxn6RzdIf
UXOhsF/8yqc8KqTvJfT+7vd58nvlOQ7uG78OWXQNJPFx39B0mF27+hsf942I
iypxe07T2DfqA9LPhNVTuHccZI0o5r/g495R7//ga60BjXtHkdmiz1M7aOwf
/NpDqpqzKewfJUPfRrf8prB/XCmozZU5ysH9gz2ntKQpmo/7R7SOeT/o4eP+
8fyMw3EXTxr7SI+g9KxmCYV7yLx8clpmBR/3kMzIcTaMGo17yKyO5u5GSGM/
8b3a8tw8gMJ9JH14QYv2JRr7ysK8SmsZmsK9xK04UdQ9SfB/+srdMT310UMU
9pWdB3aEWO3n4H4S51Fhu+4CH/cT/kUrOdEbPu4nOraeTcQ2GvtLZOw9/oRs
CveUST8suY8e8HFPsVOb6585g8Y9RXZtZnPQfRr7zILHddbH91O4r5weDtgo
F0pjvymWsdf8yqJwb7k/88Gr+19p7Dcxa3QVAi0o3F/2aevHnH5NY985sCxI
3jmKwj3GbeqzdQEWAuw7ugMefk6fKew7811P6bd7c3CPGTV0lX0pjI97zMKH
ccllYj7uMWTMGGcDJxr7z4uFI/HlNyncZ5YUeJ59UczHfSY9qmG10jQa95mm
77+WP8+nsQ892XOD0t9F4V5jym6l75ylsR+lbbyW+fIVhftNY4PL0Q89NPaj
/p2jdFINKNxztGKO2xxsoLEv2VXrrvsWSuG+U2VsoX1bXYB9qVxvzNyKLyTu
PcLX3S9ejRJgf+oO/RUnv57CvhT7g65cNkBhX6ozK6rV2MPB/Udp/IFMg1A+
7j8qH60cNEV83H/m2T0Vv9lMY3+atTZW3z+F+q8HvbxWuqGIj3vQ81x+pd1U
Gveg6EvvVwTeobFPTZNLJFbtoHAf0kuKvz/an8Z+5fohMUP7JYV7UfRSwLzt
orFfvduekFC5gML9yNSQ/ST2OY1963eAcdeCIAr3pJa0fa3qKv/1JLXlV3wv
/aSxfyUP2muP2FC4L038cmpK7Ob/+pKlv/C4zgCNfaykckvCASMK9yYF32ZV
Z30B9jOjlPCLcxQp3J9G79zre1FOgP3sksbSa64uNPazjnzvD786+NjPTtfv
8o88x8d+tmMR1++oLh/72amJk8v72tuxn51onKPyMLYd+9mUUX5BjuvbsZ8d
nBF/zki2HfuZWn/ZGW4tD/vZPKeFRYrhPOxntmazbp0352E/I12SgzN+crGf
bU/e3mX+gIv97MSZs+kT9nGxnz24E/X75mwu9rPsS+NSkl5wsJ/trlh1gNrL
wX5m/cx64NUX6n/1F8S/ewa1x1cW0thXdq6R3cadTmNfGZYjOtML+bjH2AOh
IP4aB/eYtPmRlzuWcHCP+cgf8J2fQWF/ySvf8nRtP439xYHJ316ynMb+4jH3
RZVuAx/3GYeZ1uSZIg7uM1ome75pbODgPlP/Z5+ObCuFfSZCodOq+xyNe424
PDy/OpiDe02EYuvznKkc3GvS7bc0OHpR2G+O1ymn2mj95zdpCRfLUlfT2G+q
6KfKPiQf95sA31dy6ZUc3G9q3Ve90trOwf0mSmnJWuVOCvuO570mc5tEGvcc
beG9rIYYDu4592T8T8XM4+Ces+TOQ/at8xT2n84vD77qNNG47xTFufZZVFDY
h+aL60/77Kdx7xng9baHGlL/pw/dPp/8mdlAYx/6OHu+yUKaj/vPU+3Go3Mh
B/ef438s7kft4uD+o2GpKknspbAf1X0nhW4ZNO5B5rGg82ECB/eg0T67LRt0
OLgH2VqJ+j5cobAvLWipOj3Ep3Ef4sSNPbDrOYX96WakYdKJEzTuRamHWj+W
baSwP9VYORf0jRXgftTl4bjo80kK+1SH0+jiKY9p3JMGTjw70j+Wwj6lfl3d
auoWGvvUQoMJl+KEfNyT1l/p66ZrOLgnzacGNB54cXBP8hsJ3GMyQGG/urjr
vNb9XBr3pVmCORbZiRzcl4p+V5zYtoiD+1JYbFh4zg0K+1b8vHdvTN/SuDcp
l91nnjVS2L9KTD5Mv+VH4/50/pn2umBXCvuXh1ZwXMtUAe5Rmr8UTo0EUtjH
Rjc5HT1WS+M+dcXBOr5Og8I+lrTjXEqJgwD3qsMVN76kWVPYz/b+E67t8Z3G
PlZ9OfuPoRONfSzSnj20WszH/Wpl8L8qJtLPLeKfYaqFr403B/crbYvnvPOf
KexnS6w+x0ju0v/1LPh+zKxkDu5ZUR05f+Ys5uCeVfvzWlhfGoV9bUVIX5fm
Bxr3LbVBybi9ryjsb4PpvSrgLI17V62zlSDcg8L+5q0vWVg8R4D7l7JT0Uh7
CIV9bqOCLWlVT+MeFtyr0rtGj8I9TM+xf6PAlsJ+V5a4LP7gHxr3MctE+Vz+
5//62MRJWWssnCjse2mt+lq/JgpwLwOqj1KmTKew//3bP7J4/QoB7md22jMd
xGYU+B/+2J5K
       
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333], 1], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            
            PolygonBox[{{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 
             10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 
             26, 27, 28, 29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 
             51, 43, 38, 89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 
             77, 65, 55, 47, 34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 
             78, 66, 56, 94, 81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 
             82, 99, 70, 97, 197, 170, 199, 182, 195, 158, 200, 183, 196, 168,
              198, 180, 193, 148, 169, 181, 194, 156, 166, 178, 191, 140, 157,
              167, 179, 192, 145, 153, 163, 175, 188, 134, 147, 155, 165, 177,
              190, 139, 144, 152, 162, 174, 187, 133, 146, 154, 164, 176, 189,
              138, 143, 151, 161, 173, 186, 132, 137, 142, 150, 160, 172, 185,
              131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119,
              118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106,
              105, 104, 103, 102, 136, 141, 149, 159, 171, 184, 
             101}}]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[1, 
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333]], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwtz2VTlVEUBeB7GRUTELsF7G6wkTSwsFBUFDsG7MYOTFRs/EN2dysWtmJj
PDPw4Zm11z7nzLxvVHZuek5IIBAIcpXmhu78MHeUTehGGF1owUdn7WRDagTL
H3eiKeG8sWot61GVP/pX2psbUZMgZ+yiZG0q8VP/xFva6PWpxl/9G2eJ1iOp
zC/9M+84R4xdHarwW//Ce85zgYtc4jJXKv73Gte5wU1ucZs73OUe93nAQx7x
mCc85RnFPOcFL3nFa1r5jrqEUqaX8oG2egOq80//TgdzY2oRQmeaEUFXWtKD
EnfHy9Ps4STr2MVxFrOa7RxhJgtYwRYOMZnpzGUpGznAONIZyxhGM4qRpDGC
4QxjKKmkkEwSiSQwhHgGM4iBDKA//ehLHLH0IYNpzGEJeeynN5OYymxy2cA+
ejGD+SxnMweZSCazyGE9e+nJIlaxjUKymMcyNlHABNayk2MsZCVbOcwUdnOC
NZxiB0fJpoh8/gMZemOF
             
             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          
          LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
           12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
            29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 
           89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47,
            34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 
           81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 
           97}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1], 
           Thickness[Large]], 
          
          LineBox[{101, 184, 171, 159, 149, 141, 136, 102, 103, 104, 105, 106,
            107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
           120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 185, 
           172, 160, 150, 142, 137, 132, 186, 173, 161, 151, 143, 138, 189, 
           176, 164, 154, 146, 133, 187, 174, 162, 152, 144, 139, 190, 177, 
           165, 155, 147, 134, 188, 175, 163, 153, 145, 192, 179, 167, 157, 
           140, 191, 178, 166, 156, 194, 181, 169, 148, 193, 180, 198, 168, 
           196, 183, 200, 158, 195, 182, 199, 170, 197}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          LineBox[CompressedData["
1:eJwVztVSAgEUgOHFMRAsVOwAu0UfxUfwzht9TrsTbMTubj8vvjnnP7s7s8nx
qbHJUBAEE7RYRniz95uNpChjiFbuPOsx64j+f8gATZRz6dRpxgnzrZ/ptddT
Qohpt6QZI593fc8VXbqGYn70CzO06UoK+NAPXDNLu1sVhXzqR26YY54FFlli
mRVWWWOdDTbZYpsd0mTYZY99DjjkiGOynJDjlDPO6fAf1RTxpZ+4pVvXEuFX
v9Jnb6CUPAZppoJhEoxy4d0/K7c4Qw==
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwVzuc2ggEAgOHPpbgGkcyQPSJ7RmY4skfZyd57XazHj+ec9+dbnMokVoqC
IEhzKX5I8UaBb3b55IoRnjlli0XeOWePfh44Yp15kryQZ5slSrghx//ANKMM
8MgxGywwSYhb9skwwxiDlHLHAavMMs4QZYQpJ0IFlVRRTQ21RKmjngZiNNJE
My200kY7HXTSRZxuekjQyz2HrDHHBMM8ccImaaZ45YwdlvnggixfXPNLH39Q
UCz0
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV0cVRBEAQQNHZxSUJUiIEAlgiwl0Ld3dYKNzd3d15HF796epbT1ZObnYs
EkKIce+REQ1hQCN6rWm6pcn6qG18c84aUyTY3eoODbxzzBJj9PDLJRtMk8cT
e8wySDuN5PPMPnMM0UETBRRSRDEllFJGORVUUkU1NdTywgHzDNNJMx+csMw4
vdTxyiELjNBFC5+cssIEfdTzxhGLjNLNDxesE6eVL85YZZKo293oNv3/H2G+
0lTd1CR90Eyd0US903Td1RT9A4H1URg=
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwNw2NThGEAAMCnvmdzumwbk+3Lrst6L/vHtzuzsUQyHqWEECLPUkP4td1n
j/x2yQ/PrfXRPecc9NUTV6zw1i2n7LXZpAcuOGyaF645aod1xkz30nXH7LTe
SjPMNMtsc8w1z3wLLLTIYkss9cq443bZYJV3bjttny2Wee2GE3bbaLX37jhj
v62We+Omk/bYZOS+8w5Z44O7zjrgi8cu2+aTh3656LsJ/xzxzVN/XPXTf1T8
IJk=
           "]]}}}], {
      DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
       AxesLabel -> {
         FormBox[
          StyleBox[
          "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm], 
         FormBox[
          StyleBox[
          "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
       DisplayFunction :> Identity, Epilog -> {{
          PointSize[Large], 
          RGBColor[0, 0, 1], 
          PointBox[{-1, -1}]}, 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(break\\)]\\)(\\!\\(\\*SuperscriptBox[\\n StyleBox[\\n  \
RowBox[{\\\"\[Sigma]\\\", \\n   StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\
\"]}]], \\\"*\\\"]\\))\"", {FontSize -> 11, FontFamily -> "Times", Bold}, 
             StripOnInput -> False], TraditionalForm]], 
          Scaled[{0.85, 0.92}]], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(sustain\\)]\\)(\\!\\(\\*SuperscriptBox[\\n StyleBox[\\n  RowBox[{\\\"\
\[Sigma]\\\", \\n   StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]}]], \
\\\"*\\\"]\\))\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> 
             False], TraditionalForm]], 
          Scaled[{0.85, 0.2}]]}, 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]], ImageSize -> 213.7322834645669, 
       Method -> {
        "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
         AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
         True}, PlotRange -> {{-0.9999999591836735, 
        0.9999999591836735}, {-0.55, 0.52}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {0, 0}}, Ticks -> {{{
           NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
             FontFamily -> "Times", FontSize -> 13}, StripOnInput -> False], 
            TraditionalForm]}, {
           NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
             FontFamily -> "Times", FontSize -> 13}, StripOnInput -> False], 
            TraditionalForm]}}, None}}], 
     StyleBox[
     "\"(a) coupling = \[Sigma]\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)with\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\[Sigma] < 0\"", {FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> 
      False]}, "Labeled", DisplayFunction -> (GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"]}, {
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      BaselinePosition -> {1, 1}]& ), 
    InterpretationFunction -> (RowBox[{"Labeled", "[", 
       RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )],TemplateBox[{
     GraphicsBox[
      GraphicsComplexBox[CompressedData["
1:eJx1mHk0VV/g9lUqCUl9S5PQYE6DisSOVJJSGUohUZISkUIyl1CGDBUSQshc
xsoOGVJyuefee9zBvYSEUEoq5T3v+tm7td7fevuj/tCqs8/wPM/nI2fncvj0
dCEhIYL67f/+uQ4s6p+cHIbK1zOemEQIYKXIyQtnqobgeSLD+tkNAfRrZg5U
n/wM5++PljjgK4CfMpYs3rp8EGZNPk40uSyAynzDOfN4/TBERhyYXhDA9AWP
vrUHfoKDo4IGn9MCWHu86TYEffD0jaBRSWsBXP5wuey9zl6o/Irt/9JUAPft
PO5FD+2Bfc52DTZGArjyt4O/0t5uqF9YaOSsJ4Bq+Q/83T53wadvyy18twqg
4FLqOmZWJ9x4mj/5W00AzyZFP0pyEsDNHuLyzqsF8Kiv5apc+Q44fX9/S90S
AVQcUDpulsyBFo99vobPE8BzBw5e7/pAQhtVfx1ZYQE85m6is2ULEy4/arxu
8Rc+jIF9B2EpHZYdDRusY/MhmE5arJvWCvc8nqFbWs2HTmSNa8boO/jjWcVW
12w+3H4/QLrSswHKa17TkYrgQ0feF47l4hqYU9a5UMiND00EqnmNqyuhsmXW
vEQLPtwCE1n9wfmwtLJF6uxWPtQasbbvsI+FIhUlPXnSfKgSNCz6yiMGTNPJ
lGoZ74AFDUPZfkcLwItXYx4j9A74cm+T5raaChBsta95NL8DDuSknT1wtAac
s7LssQ/qgA/y1iV+K2kAHvs0EuTMOuCLkzf+W1/2DmSVS/0uou6L98L7DBOp
VtC0fDGvvJsH39EIg7YEOjDyNth4NpkHL77dujZyERMUiq3Su6fPg0L/z69v
j7RzN50Yhs3DSTtuhFH3e5eV4KNzC9CLYF2dNbMDPvq6RTzaog3IeDZfulHL
gzIHbpQUkgS48bIzLOsSD4btr3rg7cIC2n38CyU/uTD6i+Lb+wXDsCN0wfTz
twQwzPTLr3Cp9yBMZouSwsIOGDHD8aLrs1ZQunnm5zCCBz0i1a5VaxFgPc1i
s0UYD/qK/e4UrmWCnXzJnHI5HizvnJldNN4Gund0lYcW8WCjGP/zwysMcAae
FvluxYN3IwIsR5aR4MWxMwPFNVxoe+8h+x1rGCZqei2xuS2Aj9jaIh2nmkGT
1PBB32UdUPiW/ypb+1bwetSvt5LLg7Lrp3Xu7acD/vXKxtuxPDh+bolw03km
SI7atZfYyIPrnGSOpz5uA/p5yneyK3nQPa/4kKIiA7y/cnea9FkelBx6eLWk
jgV2Rg0OSXdyoXAeF4IlLCB1Wwh2SVD3S91+q4obCd6fa/9TG8+FDQPH7HoH
huG6x8qjTOr61st0SsyWaAbGnlc9l6/sgIB2a4K1rRXkj1V9hgIevCw0IBVR
QwcivJduN+7z4LNExbhcPSZYxU/2427jQcd8ZY0lfm1gaVWauCyk7s+1pKDz
QgzQPHTS9ssFHmxeUSB2L4EFeuaH8oc+c2E1d+Cg/BATyBz4Mn5LmgfZNm6N
4ntIoCG672tIAReaVUX1t42wgMUtocKONi48OWmaafiABLHv1UdTznKhd5zm
2tHvw1Df+bbpAipfxuCmO4ld74CBSqdRn2wHtPoq9SlmbSsgjil1veziwdQ+
vkphPh2MjMz3+5XIg3c2FfJWqDJBgPM0l1pdHrxBK5RlOLWBTJE6LfNqHhw9
HZ0UMUgAQmjPktaLPJhbssV8znUWuHTv+uKRUS5MueR+P4ZkAo2qqmsbVlDv
x9hPSb8NJIgaS/W4W8GFGy2kNxlwWOCOs7uVOpsLd9zlDFWEkOCKccdveJ0L
J+r7/ZKsSPBGhpeyNp06r5PCzZ+/huGzh2n+G6jztEvy6D3v3gGz0VaHZrkO
eG6GBf/i8lYwP02s6vkHHiy1OqZZnU4H1l/eBGx8wIOBk6MBFnJMUDEwKFa4
gwdjO0cXPbVtAwtpm80u1PCgCHtu9sMuAgRpE0wddx5MDPD+qefNAuPEK6J9
jAsjd5TpvGtmgrW0FcmeK3kwq0anpGwtCeCHuDBQxYVy8lYsHxoL7N2aJFzI
40J1+5UxX31I4LaSo9kTwYUDd9atZhwigdMP07w5OVx4ptDRSj6NBFW5jyNK
LbjwjXLp+d3bSWCns7an+BkXHnx71yjgDgni5DZJO3lzofjvTI79GRLMVNHQ
qX/AxflZ6sUe/bKdh/Nz4kv3iYkEHs7PH6vt5ex7eTg/a5rSlmlQzx/lZ5uL
6gdLiw6cn9abgi0Drnfg/NRNGvl8Na8D56dLz+SX04wOnJ8S82CTKJWXKD+F
1UD1t8V8nJ8JbxI3pWjycX4y93rkhJjzcX5qikKrY+58nJ+K0l5HjSL5OD9X
mO+1NMzi4/w0JloeHqnh4/yUnFW9qrGdj/MzNiolT2iED9NbDP5zaCSBWa79
jiczBPBWblnWbGMOMLUc19SUEMBpMcTe2pkdwLE8pO8Q1VeLs580pBsKQNq1
I+DUKgFkPvZfNfNmJyg/nO4/neq740+Ub7h1dYGxgt42VaoPtyfO1q5b0w0G
4jinnHcI4IfIirHVwT2gojosawvVp89W+Q3IcXvBa2Nv+l2qbwWPrmwUXtEH
6MkqUWutBLBNcZf/qOcncDoUnNCm+nplwi7Zxpf9IHzB3eabzgIYn2P5U2ti
ADRzvl8I9hBAOtRvLzf/DD5kr1kwg9oD56pt5q64NwTOXKrQbrougFN7AqA9
0SUwOSl2mwXdnh9e/eILF15esrzBe4yA3celi+xcefCTrYA+drwN7nWysPpC
vf+XLmjNm3a1BfpV7993UbgDGvtXeksYD4Ms7zYDKapvMhcfdL+iSULRUMmv
l0q50LF+c+DReAZskR1aLH2UB3WjTkkdn0OHcVKR71MKePCF1TaXIydosFUu
8Mfz7zzITRGr/e/rENDM7bo3HCKAMjkmJqmdTHiKliGqv4wHg89PF3tgQcDv
QRH5ITd48OUJx42zM4fBBbnthhupfhLZdHBCNYKEvS4uaeZ+XNiZVHNiTy8D
btmZlj9sxIN9jzM3iNvSYecGA/lrGVQ/qc/5oF9Ig0P+vRprhnhwddHmM0vq
hoDtjul6PGpf+deZkBZbWXDjh5Cq5tk8+Ec/8lN4JgFjtbQ8i67yoLBrNFPU
axg4ZkkkyocLoMGESX91Fwv2KierF7G48EWESf1AOBMGVhuI0FWp/DcBETPo
w0B0m9N+vdvoehunrvcdlBEJfa8rwYS3Oh91iBvwYNXTPXoO4XT4NEt33DCF
BzvujSSVkzRImpbAvf08aKhlpJWYPwT6CpYTptT1bqC3JG2wY0H32rF3in+4
cFu++dGg9wQs3XV2/tLLPKg4npF1y24YaHqtup5APa/vc2j5SeIkrD6WYmrR
yIXOSS1h9aVMaBrGeqa7mgcTWKa2118Mg/U7avgV1P09soa29bA9CRt5S5RA
ChfGDLWs+VjGgiFt2ySP9HDh4QblFwGfhoFduHl0I3W+FzqD17fJM+Gh+m1B
IVSeZmlJv5FKpcPXaXXNGVTeRuzv9hodpEHn29qcI308eOyambzVoyFweIa1
+DzqPKLseZPJV1jQ6Zvt/IgfXEh+KJ/n10XAtsCz/vpU/m7bXhi9/8gwcCep
N5Q6z3tJyfmiq0iY2vNx5A3kwt2P5n3e9I4J40pOGL+n8jh3mc3e3UXD4KOE
zpLL1HnWq0omQE/q73tnRf93hwvPf59306yZBYl1q5cWd3DhqbmbM/Q7hsHT
k3HfgqnzjLVt+PE3lYTvHOLa7xzlQl+ZKEb3fhKePF+yflEu1U9BsvRX34YB
m5+/Soz6vsLJByc1VZnw44GkvCqqH5N9hMQ/PaHDCBlW56EkHuxVsOmT/EGD
PTGF7dYfedDuYXv8iwdDoGnyY8Yg9b1e5qkXmgeyoOa0TLvcb1z42NdpwGeQ
gHqzKtLpVJ/utNk8K//QMPi0puuoBnX+bQvX17xSIyERsbZL+zkXFmeqJ/cz
mVDUrLIunOrXZzofXmY+GQazTMU2mlHnT1Jfv+9yEAnfepvcjgyl7u+4utZc
kgW/nXg8R5dDvQ9qlUsekcNgl+t+eXvq/P1yhTcSj5Iw+G/0bftMLtybkbFH
bngYEM3vj/dTP3+tONIncoGEnqZzLcPuc+GlLa55H+5R12P982bORS7cejLR
xvbXMJDdPdanFvFv39+S33jX0oKD+6kz5/SnP51s3E+X6229Qq6xcT8dX8fy
dFVh437yEJtfNtjejvvJvXGF9NOIdtxPC6Z5+prua8f9dH5J1LWtwu24n2SH
Sq+wakjcT0oalnOPVZO4n4T3n17aPasd95Pnhn6tRsN23E9fv6whlO+0435q
l5y5zJrXjvspQTBW2aTAxv2U9dtzJd2PjftpoGX7gRgeG/eTaKPOmyQTzv/a
9yivn6jXuG3P4+C8PrFb+ChrMQfn9bgIvSs5jw2zj2cIOx9Ph2VFs5zcKa56
ldos/rZWB4ZNuHC+ppEwzeApqyA0HdS6spVEuknMB0J707isXDbmg0K7nyoh
UhzMByfyIg/sTOfgvM8qO/xyzxAH570JL+dY4WYOznubla8rVRrY0PW27JCK
azb1PCVXtYxS17M2LvIzOxgeCUj++qGYhJqzVHiRBsngpOPEQG4bifnij7Nu
z0gcG/PFapPlNbt+sDFf3LgpHXnqMgf3xQ3xLr3eaxxYb2q2xep2MpxVZ1ci
RydhunF5R+HfQKAaH9ruUERiHjlPm5DIec3GPFLvVfy9Rp2DeSRfe93XhZ0c
3C9udVKJBor/+iUp+mZp4i4O7pdKzkspR4INTdd22IX/egIbDsdHT5sg4f0g
RRXz1gjoOL5en1dJwmID8W8KvHtgTOJ6yvQmEvNM24qSwqYwNuaZMGWdIdDP
xjxTe8XEzcKOg/vJ7kmTjkEsdd6aj5HiranQ+YuJ514OCeP5e2/ckXQDPDXV
bReyScw/q3KIRanlbMw/qSGzDXiyHMw/yzrf9TZCDu6zrm/F35WbOPB9zIy+
uW884HwrT92BHBLzUfL42malWxzcd2sE9Zcdz3IwL1kVxPJ753Fx3/3P/fvX
d4+C47/y9nNw331evkZLgcOGr79uX/Ec5EHfGn+p5ULtcMYSLx+D3mjosyxM
m11FwiF730l3pXjQeEx5TX4diXkr0qbccO91NuYt9k09Ef4HNuYtZUO7JvpR
Du7Lup9Eh1UKB2pG7jbSWfQIXvHastaGT0Lvmc4Mcw1bIHHAUsQtg8R8Nu/X
DtazYjbmMyPZlV6pSziYz4T3pL7zLeLgfl3bXHl5jM2Bj0fig9yhH3RrqQ39
mE9ifrs87n1AJICD+/dBiEacuzsH81zR0uK3Rd85uH+r9cxzB2dyoct2ntyv
WT7AYUWLj1MeiXnvjJJa+OUWDu7nTrPpBQuec2C/s+CeYcYZKNvtPns4k8Q8
aLXw1V5vXS7ua7l7cnoLD3NwXyuoz70V2cGGf46e/3W4Kw8uXrAoR2l6O0wO
HnCZvyYGnj1cSCNfkfDW6JaZCS2xwDaCJhZcS2J+nDYW03YrkI35UeFpZHyp
gI35kQifYa5uxsF9f9M2WLEokwNdv3soMMofwUdrXz5z7KR6J83hY/kPQ/Dr
L+ur+yMS8+aGXLurrwvYmDeTQxt2SS7iYN5s+vlnc20OB++DqFUfP2zrpvLM
pDDL1DoQzknvr+gpJDGPbmt7z3l8lYP3Q6HWp8UPPTmYTxsbLFw/9XPwfrBR
9ItsXsiF0yMWmNXPvQLqt7YcPf+ExPyqGO5mcL6Bg/fF9CYz14s1HGjXo7WU
bHaFHwqmyX3OIjHfVmrqKj2S4+K9EXf8WkKhCRea2gldfKnsBOrkXq50fUxi
/u1o6X39dtq/PeIwK0jJ5icHyssn/Kq2Pg7dNTNHRtJJvEeqbqdPalD3G+2R
EOO2sV3U81gqJvwpeVM+/FW849b6Ge3wfGX6pyuvY2Acs1uOpPrQSnuBSJ58
LFAIPTjHhepLxNOSc86lqgewMU9Lf9YzWc1nY55eZfRS8OEQB++ZDXpfw4ez
OfBWlvgiOdF0aDtxSfRCFwkNH02+ylRZDdbHuvRdovoJ8/ebuyX789mYv2sz
2RVGCzmYv8Nu9W3xeczB+2eL/2DP6k8cuOa5fJJsUhD0PS7L6KbyHvG5alxU
0XQvDt5Ho8kD0oB63ojXwzYCXncPB++j02rDCgUruPBd6Tpn1YhLgJ/RbehM
5R/i+W0abS8iajl4Px0QNyT06jnw3guZaW773KG0tZr6IJW/iPebk868l5Pm
wt6nWx6Fqp8GLlYvFlykvkfE/7Kb7zjd+s3Be6s0dlPU+UkO9IWL3i7MsYN3
4xp+D1N5hPyA2DePBRGHuHBZ/u55Bm4WIFtw4Y8b9byRL9jh1eGmPMLB+yzp
vZriH7F//kDc6Z2Mudq/vfbf0MT6fVv++YTpJxycbopQe69u1oljZw7BZWX9
PV+o7w/56fFrm+3eKNAA8tOX+Bp/J7fQAPLTykPWSe/20ADy039urg98c4QG
kJ/W3eegXXOGBpCfvpRSpeTiRQPITwde9WrbHUYDyE+Pz35b9jmJBpCfvpb7
XPlJAQ0gP92osHJ1RDUNID/dOyIhdp5BA8hPf3pZXeHaRwPIT394cNoj4jcN
ID9tOPRkCU+yFSA/naoVQhxc0wqQn45S99dV3N4K0H5dv14j/JBpK0D7NU59
7F3a2VaA9uvMTp+rxYGtAO1Xc3p9wHhCK0D7VfngDB+L0laA9msaLTndsa0V
oP0qr05mN39uBWi/xjcXZk6KtQG0Xw1amuiVKm0A7dd9+9iZ9/e1AbRfoxpC
d3q6tgG0XxtVNg9eimsDaL92qigQwtVtAO1X1nbjlXtG2gDar+ktzlWlcnSA
9mvgubPcghN0gPbrdIntIZMZdID2a9JVa0/aNAL8//x0cdZuTSt16n5P+em5
v7J07AAdoP25TvKpQZc/HaD9Wd+UvO5VC7WDpvbn/JQUo6dGBEB+OuqSZUmU
Cg0gP11z1ihKbz0doP0Yf/jqO54LHaD9uLxcKViqkg7QfpyT7TKvUJ4AaA86
7kkW4t+hA7QHexqXFrl/pAO0B6PUlrwvCSAA8tOLFkfcyFWiAeSnAz2iHfsV
6QDtuZuxQvS8M3SA9pzz9PoRdgEdoD2X/2Oba+x8AqB9JsoxV4ChdID2ma/k
p7KDHDpA+2zOeEyTiT0B0P7a9tvv1/XNBEB7y3f54+fpeQRAfnpES4VeqUgD
yE8LSc7UM15DB2gvJUdXv82ypwO0lwye1OzuyqEDtJeUsju1bs0hANo/G5t4
TwyvU/dnav/43ZexvMKgA7R/zlz+0e5lQQC0b9Zti3zFUSEA2jPSvpsbBLEE
QHtl7LffnLCLBEB7pLziYH0DmwDITzfmnZbSp64f+WkR64cX/FfRAdoXnmpH
WDkn6QDtC6u7F7ZdyKIDtC/eLvUzyphJAOyn/Z77LQiiA7QXPEO0Uu620QHa
C+Twr1TPgwRAe0C6qVp7qwL1fkz1/4vojp2tYQRA/V65VNxay4kAqL8Z2mkv
s6oIgPo56Owjaf0U6rxTfrrbULt8JnUe5KfHY/MPJ8rTAepT7V7337m2dID6
dDi+dOuWx3SA+jQmKSa3fAYBUD9qlhud/hVAB6gf3xjndim30gHqR7OnsDti
PwGwny63WzaymgCo726n969TukEA1GczDnU/K3cgAOortmOGf1AJAVA/dUWp
ip1IIADqnwgOqVz8mfp/p/qm3+gYURJJANQvZQ77U/++IQDqkz3Wxj5pmQTO
z3iJzLrLswmcnwfjEy3PZ9Nxfprbr7g304aO8zPsJe+Bxmo6zk9vaTOmxFAb
zs9hs4kTH6vacH5KDEa+HYxvw/nJS/NvmO7yLz91vaqHrI3/5afhcb1xd9V/
+Vlc1X29ce6//LysO3de51Arzs+FvtVWEq2tOD9Xu84+KVPSivNTfdNWW9mk
VpyfQs8Kl8yn+gDl5/ZAGJfi1Irzs/wHf66jWStAfjpdvUJTSqcVID+dyYjc
M65A7eopP+2z+GLf6/mtAPlpkdut21L+0ADy09yureX2/TSA/PRJxacL5jFp
APnpy1Zvhm/X0gDy02zhc46/qT7FfnooXErrAdWfU34600jp/rJbNID8dKDH
tN9fqL5GfnrLycMyR87SAPLTxbRYzglLGkB++obG5hg7QxpAftr3obg+oUkD
yE+jPYF8B/udWlzuYQIg3+Go6igyi6AD5DtmyChbX6Hef+Snm+s3XvhB9Qny
0xN3OOoG62kA+Qr9SZeG0dtUnk35imtn7qQeHKQD5CvKPL70N8TSAfLTVx3+
VuceoAPkp3nqz0NCNWgA+Ya+Mnb+WiUCID99RPiraOdLOkB++uIuESVhVRpA
/sBBev7iBXUEQP5g0a4OUa+fdID8wTmL7XcHkql+mvLTNrMTgnda0AHy0+Gz
fbbmU/sK8f/SjPFfCdsJgPx0+YE9emWNVP9M+elrW+2DVq2jAcTzDtZdoWXn
CYB4valeuyhuMXV/p/y05sJcmV4ldL2NU9f7GiBef5XJZR8TIgDi9ft8veqV
VE4hP31J4+1PmWN0gPz0VcU986u30gDi7fbXoYNgDwGQn47XX5x14D0dID/N
jdMq2ETtA8TP4WqC01I+BEB8/PNPlrCyLAGQn/48e+LnN2UaQHwcnOMQpZRO
5ckU/9aV7Mqef4IAyE/fvMiIZ1H5i3j3d/WuLZ1UniLevdlTOVCTSe2HKT/N
/2XQIWlFB8hPZwXUJxtR7yvi1a6YlVlsYwIgP+09c7HWWip/kZ92YA12P6fO
g/jzSdq9xuRgAiC+LGuTdU6g8hj5aV+nWSE+1J5BfPlEnFQwLSYA4kdPS6uH
pacJgPx072tzmg31vBAv+ssN8BkDBEA8OLDs7c3D96h+mvLT9xrl3Q5S50c8
eFqre24O1Y+IB6vOZrMWUf2J/PSZby18UWs6QH66/GahcyR1fsRzC0PYFi9M
CID89NzAhoVxVJ8iP+29/cVsIer7Q3zm+dOSpRpKAMRf+hr1o9y1BEB+ekfX
GfNX1PkRfwWIb1Btr6Tu7xRfHVVsL1A+S70PU3665nHPpTTq/IiXGkOHVGYm
EwD56fTBrmmx1HkR/xAaHrYdOQRAvOOpHLK+qo0AyE/PnYj5KEb9fdRPr04f
kJ83xMD9dI63lOZkx8T9xKxeuaOznon76Ytl9o5xaRbuJ9ZVl+k+TizcT+3Q
LrWkhIX7SStERPu/nyzcT4ILI9obdpC4n1QT3uhFB5C4n1aZKeRLBJG4nwy1
lz0M1iFxPxEW8X4pv1m4n47FH+vRKWbhfnK/cjV57hkW7qfix6F/Hyxn4X5K
vzU7Ie41E/fTyfKd5xgOTNxP+q/0R95+Y/yvfY/yOvVo1W7Vuwyc15/1fE5G
UzsM5bWZXx7zTTwTID8dx/Qy+W5LAuSna8IlOzxSSYD8dOjizEhb6ueID4xB
BzfqLhPzQdKakNudG5iYDz6zR5zWpDBw3qfT1CZkLRg47//kMGzKJZg474cc
X/zdfo0JkJ9mVrvE3z9IXc+Un/4+q6s+OJoEyE8PrAxufn6RxHxhslSfuJLP
xHyhqHXqh/x+JuaL+skzysLvGbgv6r2TrwTWMwDy07trVwjvof495Kdlv47x
p8WQmEcEZUE5VX5MzCM3JN7XZixkYh5JNj7cYGrPwP3CrnGWWb2cgfulcOzH
9Oa/DNwvd3JrMoVcmQD56eub+xXOGJIA+enuSJMr4aEkQH7awuu3tIM3iXnG
2+mtSHIFE/NMjfXOt4rHmJhnQiU37JHqYuB+6ueWXF1dSJ13yk/z49frrTxL
AuSnXY6Z+f1KIDH/KHU8SWsIZ2L+eSLk5RG+ion5Z8Pjp20Pgxm4z5ximmt1
vBkA+WltVZGr1+6TmI/yIy0HdcsZuO8Usir0hTgMzEsj5EB7gAYD993/3L86
3HfZM/rrw8YYuO9OnDvur3eWCZCffl83mWlsQALkp2nnx65FXCcB8tPBahax
lb4k5q2XSo2uKyET85bbpG5RqC0T85b8Dpnh2AEG7suQiCfsuekMgPw0Q8Io
RvQ0CZCf1t2mUDSWTGI+04kAXU+jmZjPpjue3NGgzMR8ZqjHH/x0h4H7de3z
On23swyA/DS7/IV6QByJ+Y0ZOfOcbS0D92+BkPHq7zQG5rlE5/efSw8wcP+G
71YR99FlAOSne52Ktv+NJzHv9diYrvt6iYH7+dwmX1HzUAZAflo1XazYi+JA
xIMj7q9chmYycF+rjNh4mn1l4L5eY+mh1n6aCZCf3uzhNA/oU9/FlJ/+sJnW
F0nlJfLTgz8Lcrv9ScyP++4M9nKqmZgf1zBG5IvtmZgfPSd8TmmNMHDfv1aY
iCp7wADIT2efrBUWsicB8tOHQ7Pqv6WQmDeXcVfopscyMW/m/y13P7qOiXkz
MCIwKOM+A++DF6fuM9RsGQD56Z3dcZOBVB4gHpUqLeK9amTg/ZB04G7qm7cM
zKfBr5T2+lky8H4YOjFNOVGdeg+m/PSNg0W2E/dIzK+r/4h7TPgw8L4wqlLZ
+yOAAZCfPkv63ruaSGK+vWOiH1Unz8B7o0x1xsrybwRAfjrEofb+eBKJ+fdC
+f1vSfoMvEd6A/5Eiu5jAOSn203YjVcekniPRPziVGyi7jfaI3Xa+TXyp5gA
+enDDKCmqUcC5KfLihLvRgVSz3PKT6+ZVC/8SfUl4untfv9Ja1E5jHhaI1HX
yYB6XxBPK+nWksHU+4T2zLI9EWpeCQyA/PRg+NyCXydJgPz08m+SraNUP2H+
hn0zllF9hvg7tDNjcsV6Jubvmt93AweTGHj/LBKJpe88zgDIT79Xte0OojgZ
8bns6PBsB+p5on1k+Sk2RekNA/N6jbkeN8iGgffRx2PR0RVrGQD5aeeuRNff
VP4hnpcyy59o92fg/fTXW7NnrS8DID+toWIa5kPlL+J9vwHpgd2qDID8NE/l
dcYP6jtE/K9qOnSAa8jAeyt+1FhpwoB6vlN+uuRr+UtPKo+QH9gRK5rJ/koA
5KcfPZ7/4jv1vJEvEJuXtlvXjIH3WWHF4ehzWxnYHwCZZwkLFjPwXtuaEHRz
hQQD+wQjpaUmAm0GQH56Q2sc/TL1/f0fWg1dpg==
       
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333], 1], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwt0VdXDwAAxuG/EcrMyqaOkb1lRWZFiswIiTsUEVFSZuIgK7KyV6EIGclo
WZ/J4xwXz/ndvHdveHpmckbrQCDQisb/XUUss5jISIbyb9eGtgTRjvZ0IJgQ
OtKJznShK90IpTs96EkvehNGH/rSj/4MYCCDGMxq4pjNJEYxjCGsIZ5oJjOa
4aSQQAzTGEc4a1nCHKYwhhGsZxnziGI8EaxjKXOZylhSSWIBM4hkA4nMZzqb
WMEiJrCR5aSzkDRWso2ZbCaZrSxmCz+d8ZLffKSF+/zhEz94zi/e00QZL/hA
M3ep4B0NXOAeldTSSCm3eUINXznDNe7wjLd8p4Qr3OIxr/nCaa5SzlPe8I3z
XOYmj3hFPcWc4xI3eEg1nzlFESc5wXGOcZQjFFLAYfI5RB65HOQAOexnH9ns
ZQ9Z7GYXmWSwkx2c5SLXeUAVdWznLw6hUws=
             
             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[1, 
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333]], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwV0ndXDlAcB/CnzIPInuEhhOz5OrwE52REZYSyZ5kZyebYCtkro+xNZEQ2
2bNsEh9/fM73/r73/nHPuTfYP6FffGggEAihgMNcYTHnOMhltnKRI8zlNPvY
wirOc4htpHKC3WxkOQs5w34yWU0Mx8hmLRnMYyYn2cMmVrCIAeSyg3UsIY1Z
DCSPnaxnKfOZzSAGE8sQhhJHPAkMYzgjGEkioxjNGJJIZizjGM8EJjKJyUxh
KtOYzgyOs4sNLGMBczjFXjazknTOcoAs1nCBHLZziaNcJYVPHquvR2tLLxrQ
mh5UpS4t6cofZyvJcCLoxFfdL0Ktw2hCBz7qPvCed7zlDa95xUte8JxinvGU
JzzmEQ95wH3uUcRd7lDIbW5xkxsU8IWfhLhDDRrTnuu6z/z4/znN1WlEFNd0
ZVS0rkUzoinVfecv1cwNaUe+uYqsQwu68FtXQdakKR0p0dWXrehOZWrTnM58
s99G9qQevQnSjXJ7fWQk/wBasXSD
             
             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          
          LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
           12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
            29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 
           89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47,
            34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 
           81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 
           97}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          
          LineBox[{186, 205, 148, 199, 183, 204, 170, 202, 187, 140, 196, 180,
            167, 156, 200, 184, 171, 135, 193, 177, 164, 153, 145, 197, 181, 
           168, 157, 101, 189, 173, 160, 149, 141, 136, 194, 178, 165, 154, 
           146, 102, 190, 174, 161, 150, 142, 137, 103, 191, 175, 162, 151, 
           143, 138, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
           115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 
           128, 129, 130, 131, 132, 133, 192, 176, 163, 152, 144, 139, 195, 
           179, 166, 155, 147, 198, 182, 169, 158, 201, 185, 172, 203, 188, 
           206, 134}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV0VlXjmEYBeCvaM4qijSgDCGpqCSVBiFNSCMNCk0H+T/+lFKUaFgNJFQo
UipXB9fa+97vc/am9bxsGAoKBAKvKFf62dLbZBG9nKabSr761iivcYII2rnJ
OeZ8r5c5JHCAdVuLLCSVaF7b7sgLxLDt/sY8w9y1XSSWf+7vLDDCG0YZ4y3v
qPIug8PsuFdY5L77Csc5yIZtnHv6JY6w616lSS/gJJF0UEo6PdxmkE/ePpBX
eU4iXVQQwmOKOcNvbyeo1jOJY8+9xmfeM8kHPjLFNDXeXSZ+/+fwQyzxUM8l
iVD+2Gao1bM4ShA/bV9o0PNIJoxN2yx1ejbHCOaXrVle5xRRLNseyXxSCOcJ
JZzlr++t8gYvSOMptxjgEJ2U0cd5nvEfcQNEJw==
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwVytc6ggEAgOHfpbgll8AhykhkhjLiITuj7FHZO3tlc01eB+/zfAdfZXW4
KlQRBEENteKOIzZZZIox6qjnfw7TQCNNNBOhhSittBGjnQ466aKbHuL00kc/
CZIMMMgQw9xzzBZLTDNOigdO2CbLDGmeOafAChlGeOSUHXLMMsELFxRZZZ5R
njgjzzJzvFJij3UmKXPJLmu8c80BC7xxxTf7fHLLLxt8cMMPh3zxB0WjPw8=

           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwNzkVWA0AQBcBJAoSHB/ckuLudgyOwYwNHRYO7u7umFvV+9+9ZTHpmfnou
EkKYpS0awiR/imGZZoJKxmjnzW1ANpMgjxFaqOLRvVc2UEKMb92gTFJOnAVd
p6yhgH/7O0/02RspJYcf3SJd5loKCXzonlmi215HERE+dS8ss8IqGdZYZ4NN
tthmh1322OeAQ4445oRTzjjngkuuuOaGW+64p8cf6ikmypfulX5zE2Xk8qsb
kikqyGeUVqoZp4MpHrzNAtx7NSg=
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwNw4c2UAEAANCnP+kzqKyUciqhZDWQhEJFDrJSNCmz7BWJomgYRURSkvRB
3XvO3ZtVlFgYEgRBlxN7guCvF131hX985E/feNovDtjoDdd9abPH/GSXdV71
nF8d9oE3DXXaFsvNMdnjhvnWViu85BlPuM/9HjDcCCN9Z5uV5ppivHN2e9tC
zxvljO3e8rKpLjnoPUv87rhP/OWU/zzpvD3+tt4fTlrkN0d97AWjnbXDKvNM
M8GDxnjIw8Z6xPd2Wm2+6Sa6YK93LDbTo37wmTUWmGGSi/Z512tmGedHn1vr
Fc+67JD3LfWUn+23weuuOWaT2a444rYP3fS1u5a54St3fOqW/wHBzlS1
           "]]}}}], {
      DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
       AxesLabel -> {
         FormBox[
          StyleBox[
          "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm], 
         FormBox[
          StyleBox[
          "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
       DisplayFunction :> Identity, Epilog -> {
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(break\\)]\\)(\[Sigma]|\\!\\(\
\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\
\\\"]\\)|)\"", {FontFamily -> "Times", FontSize -> 11, Bold}, StripOnInput -> 
             False], TraditionalForm]], 
          Scaled[{0.88, 0.84}]], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(sustain\\)]\\)(\[Sigma]|\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\)|)\"", {
             FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
            TraditionalForm]], 
          Scaled[{0.88, 0.1}]]}, 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]], ImageSize -> 213.7322834645669, 
       Method -> {
        "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
         AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
         True}, PlotRange -> {{-0.9999999591836735, 
        0.9999999591836735}, {-0.55, 0.52}}, PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {0, 0}}, Ticks -> {{{
           NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
             FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
            TraditionalForm]}, {
           NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", FontFamily -> 
             "Times", FontSize -> 11, StripOnInput -> False], 
            TraditionalForm]}}, None}}], 
     StyleBox[
     "\"(b) coupling = \[Sigma]\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)with\\!\\(\\*\
\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\[Sigma] > 0\"", {
      FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> False]}, 
    "Labeled", DisplayFunction -> (GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"]}, {
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      BaselinePosition -> {1, 1}]& ), 
    InterpretationFunction -> (RowBox[{"Labeled", "[", 
       RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )],TemplateBox[{
     GraphicsBox[
      GraphicsComplexBox[CompressedData["
1:eJx1mHk0VV/g9lUqCUl9S5PQYI5KRWJHKkmpDKUoEaFENCCZSyhDhgoJIWQu
Qyo7ZEjhcs+997iDewkJoZRUynt+69ferfW+6+2P+oPVOvsMz/N8PnJ2bocc
pgsJCRHUX//z7zqwaGBqagROXN1k90aBBitFTp47XTUML/A1/0xtpkH/ZuZg
9clPUHnYJvndbhr8mLlk8ZblQ/D3DY2gN4dpUJlvNGcebwDq7XXUqTlNgxkL
Hn7tCPoIL6RWKbl502DtsaZbEPTDoCve7bvCaXD5g+Wyd7v64MTst+Wfkmlw
745j3vSwXng177ny40IaXPnLMUBpTw9sVFi5OrKaBtUK7gd4fOqGfaMSYmcZ
NCi4kLaOmd0FP76sfubeT4POyTEPk10E8P19h4uRv2jwiJ/Vqjz5Tmg0/HgJ
T7INKg4qHTNP4cA07VDiwJo2eGb/gWvd70kYrR6gp7itDR71NNXdvJkJNTQ0
Iw6atcFY2H8AltFhvPr4u3TnNgimk5brprXBmV2+V0qC2qALWeOeOfYOWtDr
AycS2+C2e4HSlV4NUPnADF/LsjboxPvMsVpcA9NpKRlO7W3QVKCa37i6Esqr
kznNn9rgZpjEGggpgAnNRVlTYu1Qe9TGvtM+Dhq2NtErVdqhSvCI6KuLsWDv
XnbWvb3tsLBhOMf/SCGIbgjb4eXeDl/uadLaWvMMNKpsGroQ3w4Hc9Od9x+p
AV0qCoRwdTu8n78u6WtpA2BtM1m5e7Qdvjh5/T+N8ncgo9W1qkyODn0W3mOY
SrWBoDPO3MITdPiORhi2J9LBdIltoVOZdHj+7Za1UYuYIPmKjRdtGgGF/q8/
Xx/q5G08MQJLsndpWatT93unteCDayuY+zNb1w7Q4cMvm8VjLNvBOsknht0B
dCiz/3ppEUmA+qaUda9a6TB8X9V9HzcWmJ+aavzEmIAxnxXf3iscgdEXrEqj
VWgw3OzzzwipFlDjbBytr0GHkTOczrs/bQMJh66847nR4cUotavV2gRYXqEU
IlVJh35iv7qEa5lgTo7bvCJ5AlZ0zcwpnmgHTrtThPi36bBRjP/pwWUG6G1c
Wuz5gQ7vRAZajS4jQbTakpbSQALa3n3AfscagYsWR17PU6LBh2wdkc5TzSDo
YozTgCIdCt8MWGVr3wZuxAnR80/ToazGtK49A3TgOr1+lF1IhxNnlgg3nWWC
gu9b3ePmE3Cdi8yxtEftQJRjoQDD6NAzv+SgoiID+El+LD/AoUPJ4QdXSutY
YM5EbJOpPQGF87kQLGGBrb/8f17bREAZdfstKh4k8Fv+6HlGPgEbBo/a9Q2O
wFFtFXqlIg1qyHRJzJZoBkKSM/VN1tAhoN2cZG1tAykx1W+z7enwktCgVGQN
HRg+rtnVnUuHT5MU4/P0mUApp0v75hwCOhUoay7xbwcbmniPja5R9+dqcvBZ
IQbwvydjdZlBh80rCsXuJrLA6UvfO7wtCVjNHTwgP8wE67ZGveKoEJB93KNR
fDcJpP02NQjiCGheFT3QPsoC47/854SfJ+DJKbMso/skqHh2oL6BTUCfeK21
Y99GYGO+g5QBdf3jcOPtpO53QMTmwbmAVXRo/UXqY+zaNuCldpiVe5IO0/r5
KkUFdGB959zWc9l0eHtjEW+FKhO8XepvnDmTgNdpRbIMl3aQ5f/cf0EwHY45
xCRHDhHAK1Q79U47HeaVbraYc40FyJGfaV4HCJh6wfNeLMkE0k3VOlsUqPdj
/Iek/3oSvIjp3NEWTsANltIbDTksULlU3EbbhYDb73CGn4WSgKGT/jK7ioCT
9QP+ydYkCHZ+KG2QSp3XReHGj58jsMdIp2ImdZ4OSR699907MBFXcChJng7P
zLDkn1/eBnT6PH/l2dJhmfVRreoMOhhJKNuy+REdBk2NBVrKMUFscmxexQwC
xnWNLXpi2w60KowdfgbSoQh7bs6DbgK8McnrVm6jw6RAnx/6Pixg/gT2RO4j
YNT2ct13zUywtsJu2ehqAmbX6JaWryXBrYyBdUrXCSgnb83ypbHAjIM9Tysc
CahuvzL2iy8J2E6ZAcGlBBy8vW414yAJuqNVxU4kEvB0kZO1fDoJIjmkcskn
Ar5RLju7axsJBoyPEqVRBDzw9o5x4G0SlDvuS/vzhoDiv7I49qdJsNvGxDc9
i8D5mSCRVXdpNoHz80BCktXZHDrOTwv7FXdnHqfj/Ax/ybuvuZqO89NH2pwp
MdyO83PEfPLEh6p2nJ8SQ1FvhxLacX7y0gMaprv9y0897+phG5N/+Wl0TH/C
U/VffpZU9VxrnPsvPy/pzZ3XNdyG83OhX7W1RFsbzs/V7rNPypS24fxU37jF
Vja5Deen0NOiJfOpPkD5uS0Ixqe6tOH8rPjOn+tk3gYzWg3/c2wkQYb6My0p
3TZ4M688e7YJB2QxonZPKLTBabHEntqZncB38fn+1/Pb4OKcxw0ZRgIgcqtt
a+pvGmQ+Clg180YX4HZvqbAfoMFjj5Wve3R3g5OKTxbMY9LgtqTZOnVresAl
6zcjt2pp8H3Us/HVIb2ALXzG6RfVp09X+Q/KcfvA6+EIKe37VH8+vLxBeEU/
yDJWurfsJg22K+4MGPP6SOXdtF+fqb5embhTtvHlANh88pDMYWcaTMi1+qE9
OQhKaHGcE1Y0SIcGHRUWn8B1zU2xdkY0eKb6+NwVd4eB3wNxA0KLBv/uCYD2
RLfA9KTYLRZkv1OLzztEwEtLljf4jFM5pOokMougw4+2Avr4sXY4Q0bZ5jL1
/l84pz1v2pVW2Fy/4dx3qk9MAip9JExGwORtjrqhBg1mLT7geVmLhAZTbg1j
t6j/p35T0JEEBrx6+nbagSE61Is+JXVsDh2WX/w80BBHhy+st7odPkGDVxz/
VOftp0Nuqljtf1+GAU/9eWiYJg3K5JqapnUxYX85u2CtEgFDzk4Xu0/l3mHh
L6JdL+nw5QmnDbOzRsD5nSJKwqo0KLLxwKRqJAkdpecvXlBHwK7kmhO7+xhw
0c5OUe8fdNj/KGu9OPXdn7Hcdmcwheon9TnvDYpo8PjsxJAdlnS4unjT6SV1
wyBitu+WAmpfBdSZkpZbWHBp5sTPxG0E/G0Q9TGC+q4q9u/WL2+k+sc9hinq
PQKubrEPXrWOBg0nTQequ1nQ0aY7rPwsAV9EmtYPRjBhU71Ocfxi6v6agsgZ
9BGgtTBPpk8JXW/j3+t9DWVEwlr0JJjwVRaXfVSIgFVPdus7RtDhPb5+9coM
Ouy8O5pcQdLgBc23P2SO0qGRtrF2UsEwuKK4e371FhpcT29NXm/Hgh2vw4bA
bgJuLbA4EtxCwASDxdn7W+hQcSIz+6bdCODGaxdupPbBtzm0gmRxEkaoCRyk
fAnomtwaXl/GhD9+ZwsryxIwkWVme+3FCPg0e/LHV2UaPLyGtuWQPQlDch2j
lTKoPBluXfOhnAXrSnfmzD9BwEMNyi8CP46AG+cZCSwqf1/oDl3bKs+Ev6p3
bu6i8jRbW/qNVBod3uitHKzJovbDvh7vsSEa5P807JS0psOjV83lrR8Og+zA
+hRj6n0VZc+bSrnMgt2xK7PZJgQk31fM8++memvmYu21VP5u3VYUs+/wCHBk
DfU8p87TIik5X3QVCR+n321MCSHgrofzPm18x4Tl7bKuiVQe5y07vmdX8Qjw
c5kV6kvtGQ1VyUToRf2+OKlgVkLAs9/m3TBvZkEvK+sHZQ4EPDV3U6ZB5wjo
e21BO049r/H29d//pJEwQG6QzxgkoJ9MNKNnHwkHl729cegu1U/BsvRXX0fA
3UZ5jwPU+SPI+ye1VJnQQbtnbi7Vjym+QuIfH9NhlXMOaxHVn30Kx/slv9Pg
6a+tfFEbOrR70JHw4v4wqLhR5BpFnf8ST73IIogFF4ayLV+YEvCRn8ug7xAB
5wY1LIyn+nTH8U2zCg6OAJ9tL2YLUd/f1oUaNa/USOj1w4qlGkbAkiz1lAEm
Expo1o9x1xLwqe77l1mPR8D27tMWr6jzJ6tr7L0UTMJA8fWqHZXU/Z1Q155L
suARxY5CZWfqfVCrXPKQHAE1j3ovpFPnH5Arup50hISNYcMqM1MIuCczc7fc
yAjIGOqeFked97XiaL/IORISmhdtO3MJeGGze/77u9T1KIdqVLUTcMvJpOO2
P0fA3MnYD2LU76N+euWwX37eMAP30xneUpqLHRP3E7N65faueibup89WOdsn
pFm4n1hX3Kb7urBwP3VAu7TSUhbuJ+1QEZ3/frBwPwnOjeqs307iflJNfKMf
E0jiflplrlAgQd0X1E9GOssehOiSuJ8IywT/1F8s3E9HE4726pawcD95Xr6S
Mvc0C/dTyaOwP/eXs3A/ZdycnRj/mon76WTFjjMMRybuJ4NXBqNvvzL+n32P
8jrtSNUu1TsMnNef9H1PxlDvGcprc/985psEJsw5linseiwDxjO9Tb/ZkvBV
WrP421pdWBMh2XmReo/TDZ+wCsMyQNjirChb6ueID0xAJzf6DhPzQfKa0Ftd
65mYDz6xR13WpDJw3mfQ1CZlLRk473/nMo5XUDmG8n7Y6cWfbVeZ0P2W7LCK
ew71PN0S7h2grmdtfNQndgj8Nqu7PiSGhFqzVHhRhilgcGVI8/PzJOYL06UG
xOUCJuYLRe1T3+X3MTFf1E+dVhZuYeC+qPdJuRxUz4D1ZuabrW+lwF21K4R3
U/9fhklFZ9GfICD7ZZw/LZbEPCIoD86t8mdiHrku0VKbuZCJeSTF5FCDmT0D
9wu7xlVm9XIG7pei8e/Tm/8wcL/czqvJEnJnQrO1nXYRPx/Da5sGFE4bkfBe
sKKKRVsk7IkyvRwRRsISQ/GvCry7wNL7l7SjD4l5xsflrUjKMybmmRqbHW8V
jzIxz4RJrt8t1c3A/TTALb2yuog6b82HKPG2NMhP0NBf6UzCBP6e67clPYDb
UXP/n4kk5h+lzsfpDVQvIf55LOR9MWIVE/PP+kdP2h+EMHCfucQ21+r6MGBL
7Iz+uW8uQh1VkStX75GYjwqirIb0Khi47xSynxkIcRiYl0bJwY5ATQbuu/+9
f3W473JmDNSHjzNw3504cyxA35kJX3/ZtuI5yIctdVNZJoYknLHE29ewLwbS
zo5fjbxGwmF7vylPpQQQomYZV+lHYt56qdTovhIyMW95TOkVh9kyMW/Jb5cZ
iRtk4L4MjXzMnpvBgFpRu4x1Fz2EDAnjWFEHkuoZV4aFpi3Q26pQPJ5CYj7T
jQTdT2KYmM+mO53c3qDMxHxmpM8f+nibgft17fM6Aw9nBnw0mhDsCf0hu+KF
emA8ifmNGTXzjG0tA/dvoZDJ6m80Bua5JNeWT2X7Gbh/I3apiPvqMaDbNp7c
z1m+oM+leNufBBLzXu9xs3VfLjBwP5/Z6CdqEcaAA66Cu0aZp6FqhliJ930S
8+Co5yu34ZkM3Ncqo8e9zL8wcF+vsbqo1uHAhL+PnP15qDsfbrroMg8YkDAl
ZNBt/ppY+H4TrT+KysubY5tnJrbGgaEfhXk9ASTmx723h/o41UzMj2sYo/Il
9kzMj16Tvqe0Rxm4718rTEaX32dA928XFRgVD2HOyVphof/ZHemOHyq+G4FD
Ydn1X1NJzJvLuCv0MuKYmDcL/lR4HlnHxLwZFBkUnHmPgffBi1P3GGq2DBhu
WpRtZhMEd/TETwVReYB4VKqsmPeqkYH3Q/L+O2lv3jIwn4a8Utrjb8XA+2H4
xDTlJHUGnB65wLx+7mVw/UCx7STVe4hfV/8Wvzjpy8D7wrhKZc/3QAa069Ve
Sja7Q2fS7+6VJBLz7W1Tg+g6eQbeG+WqM1ZWfCWgmZ3Q+ZfKLiDUsfbeRDKJ
+fdcxb2vyQYMvEf6An9Hie5lQHn5xJ/VNsdghym78fIDEu+RyJ+cZxup+432
SJ1OQY38KSZcKib8MWVjATzEAGpa+iQ8W5nx8fLrWFhenHQnOoh6njoLRPLl
48CaKfWiH1RfIp7e5v+ftHYtE/O0ZpKeiyH1viCeVtKrJUOo9wntmWW7I9W8
ExnwZrb4IjnRDDgUMbfw50kSGj2cepWlshos/yrZNkadG/M37J+xjOozxN9h
XZlTKzSYmL9rft0JGkpm4P2zSCSOvuMYA655Lp8smxwMW1Rte4Jvk5jPZcdG
ZjtSzxPtI6uPcalKbxiY12ss9LnBxxl4H304GhPzbC0Dvitb56oaeQG4die5
/6LyD/G8lHnBZEcAA++nPz5avWv9GPDuC5lpHns9oaaKWbgvlb+I9/0HpQd3
qTJg35PND8PUHQBP5XXmd+p7RPyvaja8n2vEwHsrYcxEadKQer5w0duFuXaw
9EvFSy8qj5Af2B4nmsX+QsBlBbvmGXpYgoeP5r/4Rj1v5AvE5qXv0jNn4H1W
9OxQzJktDOwPgMzTxAWLGXivbUkMvrFCgoF9grHSUlOBDgPuqZt14ujpg3B9
Wzz9EvX9IT+tfC3zsWmkACA/fZbItHl6XQCQn56/L0Ziv58AID+dPfUoyfSS
ACA/HSojDszOCQDy00NjggZfBwFAftrhevCYpI0AID+t/Iod8NJMAJCf7ne1
azhuLADITxsUFRm76gsA8tNP3lZY+m0RAOSnNzjwp36pCQDy05suisu7rhYA
5Ken7xtorVsiAMhPWz7y/RIxTwCQnz6uGqArKywAaL8uP2KybvFnPkD7tfxI
+FAdmw/Qft39aIZeWTUfoP36/emzLe45fID2q7zWVV2pSD5A+zW3vGuhkAcf
oP2qbJU9L8mSD9B+LatslXLewgdov4o8K+3Nl+YDtF+n6WZJtU50ArRfX7wa
vzhK7wRov4ZY720eK+gEaL+esbbqtQ/uBGi/XtyrmShn3gnQfs2ukPpVLN8J
0H5tWr6YV9HDA2i/GvsYbnBO4QG0X4vEVunfNeCB/5+fbh5J3n49nLrff/20
fiTryqyZnQDtTxmv5gvXa3kA7c/rL7vCsy/wANqfOv38c6U/uAD56c6wBdPP
3hQA5KfDZTYrKSzsBGg/lm2a+Smc4AG0HzVolpssw3kA7ccdfMncCjkeQHuw
Z3t3RVgxD6A9eBo6iHyz5gG0B18cPT1YUsMFyE8naXkvOX5LAJCfbpIaOeC3
rBOgPfd6zL+vkssDaM/xr1U23orjAbTnUqJ37iE28ADaZwb5yrdzKnkA7bOW
y3emSTvzANpnO6KHhqW7uADtL6lbQrBbgrpff/dWy5mO37UJXID89LpHymNM
6vqQnzbxuuK1fGUnQHupYLzqExTwANpLIryXHtfv8QDaS6v4Kf7crTyA9s/S
qnRxWUjdn7/7p3n4pO3nczyA9k/v/DD+8CcuQPtGZv/niZvSPID2jKbo3i+h
hVyA9orlTaGiznYuQHskrkV9LNWZC5CfNnC9ZbaAyhfkpw1Vuoz7ZTsB2hfE
UaXul908gPbF6Oh8/59JPID2RaDrNLdaPR7AflqkTtuimgfQXiCEdi9pO88D
aC9cuHtt8egYF6A9oFlVdXX9Cur9+Nv/0eNpF+884wLU77ddPa3V2VyA+vuy
SecveI0LUD+/keGlrs2gzvvXTz99kB6wnjoP8tPmY22OzXKdAPXp/HSxqufv
eQD1qc3nN4Eb7vMA6tNng0NiRdt5APXjQtom83M1PID6MViHYOp68gDqxwni
FdExzgXYT9NWpHit5AHUd/B9fDio4gLUZ3u2JAsX8bgA9ZXHSo5WbyQXoH5y
+W6WPyeXC1D/VOU9iiyz5ALUN3a6a3tLnnIB6pd4uY3SLj5cgPpkpoqmbv19
Ls7PMm/22OdtPJyfk597Tkwm8nB+fl9tL2ffx8P5WdOUvkyTev4oP9vdVN9b
WXbi/LTZGGIVeK0T56de8uinK/mdOD/deqc+OzA6cX5KzINNolReovwUVgPV
XxfzcX4mvknamKrFx/nJ3HMxN9SCj/NTSxRaH/Xk4/xUlPY+YhzFx/m5wmKP
lVE2H+enCdH64HANH+en5KzqVY0dfJyfcdGp+UKjfID8tHme/fbHMwQA+Wkz
qwktLQkBQH7aqSK0/yDVV8hPp189DE6tEgDkpysOZQRMp/oO+enxwr52VaoP
kZ8ejOecct0uAMhPP6sOz95M9Sn20yY+9DtU3yI/TU9RiV5rLQDITzuEgRM6
VF8jPx2x4E7zDVcBQH66mfPtXMhFAUB++n3OmgUzqD2A/PTpC890mq4JAPLT
aE8g3+Hx/NDqF5+5APmOnmPSxXbuPIB8xx4XS+vP1PuP/LR/9b6954U7AfLT
2T7thlJU3yBfIRom+eVCGRcgX9EqO7xY+ggPIF8RLxXVklrIA8hPt8kFfX/+
jQeQn9bK6747EioAyDecomWKGizjAeSnvwVHFoRe5wHkp8/JbTPaQPUT8gd9
bm7pFv5cgPzB5h3pBSPGPID8Qdd6Q/mrmVQ//fXTwwF9mmuGeQD5advt0/V5
1L5C/L/hfWhV82weQH46Tlvbq/gKDyA/7ZQtkSQfIQCI5/uUU9SLWVyAeD2o
2lCErkrl/18/LbrVZZ/+LXS9jX+v9x1AvH6z62GnuCEPIF5/kq03YZTKA8hP
k2alcM8ADyA/3V+4nDCjrhfxtmft+DvF31yA/HTZTuf5Sy/xAPLTWt6rriVS
zwvxc/XRVDPLRi5AfGwWznqqt5oHkJ/W2F7Df0bdX8THjbwlSiCVCxD/hrZv
lTzcywXIT9tFWMQ0UudDvHuwfmtwKJWniHdfp9c1Z1J5i/y06y0dzuF+HkB+
+tAMG/F51HkQr7p8tZ0f+Z0LkJ9uD3IOMKDyF/lpT5J6Q6nzIP5M6/0w+gZy
AeLL+NITJi1UHiM//UFCd8kl6jyIL9N8smP+u80FiB+JdauXlnRyAfLTT07G
fw2hzoN48Z1jfMftI1yAePDk2VKNRXlUP/3102x+wSox6vtCPPhhf3J+FdWP
iAcjZVhdB5N5APnp3tiiDpsPPID8dNPUh8wh6ntFPKc1Lcsu7ysXID+tP+tZ
Bp3qU+SnP67pPqJJnR/xGRG5tlvnORcg/hI1r6yLoPoV+elZZmIbzKnzI/56
62N6KyqMur9/+erriUdz9DjU+/DXT+903ydvT50f8VLIn5hb9llcgPw00dxy
bID6OeIfL7O5VuH3uADxDmHz40bueS5Aflp213i/WuS/fX9TfsMdK0sO7qeu
XIePv7vYuJ8u1dt6h15l4346to7l5a7Cxv10UWx++VBHB+4nz8YV0k8iO3A/
LZjm5We2twP309kl0Ve3CHfgfpIdLrvMqiFxPylpWs09Wk3ifhLe57C0Z1YH
7iev9QPajUYduJ++fF5DKN/uwP3UITlzmQ2vA/dTomC8skmBjfsp+5fXSro/
G/fTYOu2/bE8Nu4n0UbdN8mmnP9n36O8fqxe47Etn4Pz+sQu4SOsxRyc1xMi
9O6UfDZAfrq8eJaL53sSID8dPunG+ULtCuSna93ZSiI9JOYDoT3pXFYeG/NB
kd0PlVApDuaDE/lR+3dkcHDeZ5cferl7mIPz3pSXe7RoEwfn/fGVrytVGtgA
+elL9ZKrWseo6/nrpw8Hpnx5X0IC5KdPOk0O5rWTmC9+u+r1jsazMV+sNl1e
s/M7G/PF9RvSUacucXBfXBfv1u+7ygHIT8+qsyuVo5MA+WnVhLAOx2IS88hZ
2qRE7ms25pF675JvNeoczCMFOuu+LOzi4H7xqJNKMlT81y/JMTfKknZycL9U
cl5KORFsgPx0w6GEmGmTJEB+2mlCw4BXSQLkp8clrqVObyIxz7SvKC1qCmdj
nglX1h0GA2zMM7WXTT0s7Ti4n+weN+kaxlHn/eunXT+beu3hkAD5aZ6a6tZz
OSTmn1W5xKK0Cjbmn7TQ2YY8WQ7mn2Vd7/oaIQf3WffXkm/KTRyA/PR8ay+9
wVwS81HKxNpmpZsc3HdrBPWXnJw5mJesC+P4ffO4uO/+9/7967uHIQlfePs4
uO8+LV+jrcBhA+Sn/WoCpJYLdQDkp32Xheuwq0iA/HTjUeU1BXUk5q2o4xVG
e66xMW+xb+iL8N+zMW8pG9k10Y9wcF/W/SA6rVM5APnpy96b1x7nkwD5aYn9
ViIemSTms3k/t7OelrAxnxnLrvROW8LBfCa8O+2dXzEH9+va5spL42wOQH7a
o7U27EMBifnt0oTPfpFADu7f+6Ga8Z6eHMxzxUtL3hZ/4+D+rda3yBuayQXI
TzuuaPV1yScx751WUou41MrB/dxlPr1wwXMOQH5atsdz9kgWiXnQeuGrPT56
XNzXcnfl9Bce4uC+VlCfezOqkw2Qn168YFGu0vQOgPy086EiGvmKBMhP20bS
xEJqScyP08Zj228GsTE/KjyJSigTsDE/EhEzLNTNObjvb9iGKBZncQDy0w/X
vnzq1EUC5Kd//mF98XxIYt5cn2d35XUhG/NmSljDTslFHMybTT9+b6rN5eB9
EL3qw/utPVSe/fXTczIGnvUWkZhHt7a3cB5d4eD9UKT9cfEDLw7m08YGS/eP
Axy8H44r+kc1L+QC5Kfrt7QeOfuYxPyqGOFheLaBg/fF9CZz9/M1HID89PvC
aXKfsknMt5VaekoP5bh4b8Qfu5pYZMoFyE/Xyb1c6f6IxPzb2dr3+u20f3vE
cVaw0vEfHID8tKdW1uhoBon3SNWtjClN6n6jPRJq0j6+k3oeyE//LNl+U2NG
B0B+Op7ZI0dSfYj8tELYgTluVF8inpaccyZNPZCNeVr6k77paj4b8/Qq45eC
9wc5eM+s1/8SMZLDAchP205eED3XTQLkpzXi3PovUP2E+fvNndJ9BWzM37VZ
7GfGCzmYv8Nv9m/2fcTB+2dzwFDv6o8cgPy03zFZRg+V94jPVeOji6d7c/A+
GksZlAbU80a8Hr4B8Hp6OXgfOaiNKBSu4ALkp/mZPUauVP4hnt+q2f4ispaD
99N+cSNCv54DkJ+WtlFTH6LyF/F+c/LpFjlpLkB+2s36xYLz1PeI+F92022X
m784eG+VxW2MPjvFAchP34lv+DVC5RHyA2JfLy6IPMgFyE/nCM799qCeN/IF
2707PZRHOXifJbeoKf4W++cPxF3eyVio/dtr/w1Pauzd/M8nTD/h6HJDhNp7
f/30svKB3s/U9/d/ABzrXaY=
       
       "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333], 1], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwt0VdXDwAAxuG/EcrMyqaOkb1lRWZFiswIiTsUEVFSZuIgK7KyV6EIGclo
WZ/J4xwXz/ndvHdveHpmckbrQCDQisb/XUUss5jISIbyb9eGtgTRjvZ0IJgQ
OtKJznShK90IpTs96EkvehNGH/rSj/4MYCCDGMxq4pjNJEYxjCGsIZ5oJjOa
4aSQQAzTGEc4a1nCHKYwhhGsZxnziGI8EaxjKXOZylhSSWIBM4hkA4nMZzqb
WMEiJrCR5aSzkDRWso2ZbCaZrSxmCz+d8ZLffKSF+/zhEz94zi/e00QZL/hA
M3ep4B0NXOAeldTSSCm3eUINXznDNe7wjLd8p4Qr3OIxr/nCaa5SzlPe8I3z
XOYmj3hFPcWc4xI3eEg1nzlFESc5wXGOcZQjFFLAYfI5RB65HOQAOexnH9ns
ZQ9Z7GYXmWSwkx2c5SLXeUAVdWznLw6hUws=
             
             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[1, 
            NCache[
             Rational[1, 3], 0.3333333333333333], 
            NCache[
             Rational[1, 3], 0.3333333333333333]], 
           Opacity[0.1]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJwV0ndXDlAcB/CnzIPInuEhhOz5OrwE52REZYSyZ5kZyebYCtkro+xNZEQ2
2bNsEh9/fM73/r73/nHPuTfYP6FffGggEAihgMNcYTHnOMhltnKRI8zlNPvY
wirOc4htpHKC3WxkOQs5w34yWU0Mx8hmLRnMYyYn2cMmVrCIAeSyg3UsIY1Z
DCSPnaxnKfOZzSAGE8sQhhJHPAkMYzgjGEkioxjNGJJIZizjGM8EJjKJyUxh
KtOYzgyOs4sNLGMBczjFXjazknTOcoAs1nCBHLZziaNcJYVPHquvR2tLLxrQ
mh5UpS4t6cofZyvJcCLoxFfdL0Ktw2hCBz7qPvCed7zlDa95xUte8JxinvGU
JzzmEQ95wH3uUcRd7lDIbW5xkxsU8IWfhLhDDRrTnuu6z/z4/znN1WlEFNd0
ZVS0rkUzoinVfecv1cwNaUe+uYqsQwu68FtXQdakKR0p0dWXrehOZWrTnM58
s99G9qQevQnSjXJ7fWQk/wBasXSD
             
             "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          
          LineBox[{1, 84, 71, 59, 49, 41, 36, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
           12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
            29, 30, 31, 85, 72, 60, 50, 42, 37, 32, 86, 73, 61, 51, 43, 38, 
           89, 76, 64, 54, 46, 33, 87, 74, 62, 52, 44, 39, 90, 77, 65, 55, 47,
            34, 88, 75, 63, 53, 45, 92, 79, 67, 57, 40, 91, 78, 66, 56, 94, 
           81, 69, 48, 93, 80, 98, 68, 96, 83, 100, 58, 95, 82, 99, 70, 
           97}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          
          LineBox[{186, 205, 148, 199, 183, 204, 170, 202, 187, 140, 196, 180,
            167, 156, 200, 184, 171, 135, 193, 177, 164, 153, 145, 197, 181, 
           168, 157, 101, 189, 173, 160, 149, 141, 136, 194, 178, 165, 154, 
           146, 102, 190, 174, 161, 150, 142, 137, 103, 191, 175, 162, 151, 
           143, 138, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
           115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 
           128, 129, 130, 131, 132, 133, 192, 176, 163, 152, 144, 139, 195, 
           179, 166, 155, 147, 198, 182, 169, 158, 201, 185, 172, 203, 188, 
           206, 134}]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV0VlXjmEYBeCvaM4qijSgDCGpqCSVBiFNSCMNCk0H+T/+lFKUaFgNJFQo
UipXB9fa+97vc/am9bxsGAoKBAKvKFf62dLbZBG9nKabSr761iivcYII2rnJ
OeZ8r5c5JHCAdVuLLCSVaF7b7sgLxLDt/sY8w9y1XSSWf+7vLDDCG0YZ4y3v
qPIug8PsuFdY5L77Csc5yIZtnHv6JY6w616lSS/gJJF0UEo6PdxmkE/ePpBX
eU4iXVQQwmOKOcNvbyeo1jOJY8+9xmfeM8kHPjLFNDXeXSZ+/+fwQyzxUM8l
iVD+2Gao1bM4ShA/bV9o0PNIJoxN2yx1ejbHCOaXrVle5xRRLNseyXxSCOcJ
JZzlr++t8gYvSOMptxjgEJ2U0cd5nvEfcQNEJw==
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwVytc6ggEAgOHfpbgll8AhykhkhjLiITuj7FHZO3tlc01eB+/zfAdfZXW4
KlQRBEENteKOIzZZZIox6qjnfw7TQCNNNBOhhSittBGjnQ466aKbHuL00kc/
CZIMMMgQw9xzzBZLTDNOigdO2CbLDGmeOafAChlGeOSUHXLMMsELFxRZZZ5R
njgjzzJzvFJij3UmKXPJLmu8c80BC7xxxTf7fHLLLxt8cMMPh3zxB0WjPw8=

           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwNzkVWA0AQBcBJAoSHB/ckuLudgyOwYwNHRYO7u7umFvV+9+9ZTHpmfnou
EkKYpS0awiR/imGZZoJKxmjnzW1ANpMgjxFaqOLRvVc2UEKMb92gTFJOnAVd
p6yhgH/7O0/02RspJYcf3SJd5loKCXzonlmi215HERE+dS8ss8IqGdZYZ4NN
tthmh1322OeAQ4445oRTzjjngkuuuOaGW+64p8cf6ikmypfulX5zE2Xk8qsb
kikqyGeUVqoZp4MpHrzNAtx7NSg=
           "]]}, {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0], 
           Dashing[{Small, Small}], 
           Thickness[Large]], 
          LineBox[CompressedData["
1:eJwNw4c2UAEAANCnP+kzqKyUciqhZDWQhEJFDrJSNCmz7BWJomgYRURSkvRB
3XvO3ZtVlFgYEgRBlxN7guCvF131hX985E/feNovDtjoDdd9abPH/GSXdV71
nF8d9oE3DXXaFsvNMdnjhvnWViu85BlPuM/9HjDcCCN9Z5uV5ppivHN2e9tC
zxvljO3e8rKpLjnoPUv87rhP/OWU/zzpvD3+tt4fTlrkN0d97AWjnbXDKvNM
M8GDxnjIw8Z6xPd2Wm2+6Sa6YK93LDbTo37wmTUWmGGSi/Z512tmGedHn1vr
Fc+67JD3LfWUn+23weuuOWaT2a444rYP3fS1u5a54St3fOqW/wHBzlS1
           "]]}}}], {
      DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
       AxesLabel -> {
         FormBox[
          StyleBox[
          "\"a\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm], 
         FormBox[
          StyleBox[
          "\"b\"", {FontSize -> 13, Italic, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm]}, AxesOrigin -> {0, 0}, 
       DisplayFunction :> Identity, Epilog -> {
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \\(break\\)]\\)(\[Sigma]|\\!\\(\
\\*SuperscriptBox[\\n StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\
\\\"]\\)|)\"", {FontSize -> 11, FontFamily -> "Times", Bold}, StripOnInput -> 
             False], TraditionalForm]], 
          Scaled[{0.88, 0.92}]], 
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(b\\), \
\\(sustain\\)]\\)(\[Sigma]|\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\)|)\"", {
             FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
            TraditionalForm]], 
          Scaled[{0.88, 0.2}]]}, 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]], ImageSize -> 213.7322834645669, 
       Method -> {
        "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
         AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
         True}, PlotRange -> {{-0.9999999591836735, 
        0.9999999591836735}, {-0.55, 0.52}}, PlotRangePadding -> {{
          Scaled[0.02], 
          Scaled[0.02]}, {0, 0}}, Ticks -> {{{
           NCache[Rational[-2, 3] 3^Rational[-1, 2], -0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(sustain\\)]\\)\"", {
             FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
            TraditionalForm]}, {
           NCache[Rational[2, 3] 3^Rational[-1, 2], 0.3849001794597505], 
           FormBox[
            StyleBox[
            "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(break\\)]\\)\"", {
             FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> False], 
            TraditionalForm]}}, None}}], 
     StyleBox[
     "\"(c) coupling = \[Sigma] \\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\
\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\"|\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)with\\!\\(\\*\\nStyleBox[\
\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\[Sigma] < 0\"", {
      FontSize -> 13, FontFamily -> "Times"}, StripOnInput -> False]}, 
    "Labeled", DisplayFunction -> (GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"]}, {
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      BaselinePosition -> {1, 1}]& ), 
    InterpretationFunction -> (RowBox[{"Labeled", "[", 
       RowBox[{#, ",", #2, ",", "Bottom"}], "]"}]& )]},
  "RowWithSeparators"]], "Output",
 CellChangeTimes->{{3.608232704788554*^9, 3.608232715900074*^9}, 
   3.60823287040128*^9, 3.608232947513589*^9, 3.6082330337436237`*^9, {
   3.608233076373354*^9, 3.608233110099999*^9}, 3.608233248250318*^9, 
   3.613129102323997*^9, 3.613132253924224*^9, 3.613825836658593*^9, {
   3.613825905893786*^9, 3.613825921784264*^9}, 3.614979384004293*^9, 
   3.622461552977984*^9, 3.622461620185878*^9, {3.6416575108725033`*^9, 
   3.641657535542633*^9}, 3.641657637779722*^9, 3.641657710782181*^9, 
   3.641657799141118*^9, 3.641657923391824*^9}]
}, {2}]],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<figureS2.pdf\>\""}], 
     "}"}], "]"}], ",", "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.613825856759858*^9, 3.613825858893634*^9}, {
   3.622461556999138*^9, 3.6224615786497507`*^9}, 3.622461615809328*^9, {
   3.641657531277463*^9, 3.6416575330822563`*^9}, {3.668613446176556*^9, 
   3.668613450479417*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Figure 3: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", "drives", " ", "y", " ", "drives", " ", "z"}], 
   TraditionalForm]]]
}], "Section",
 CellChangeTimes->{{3.608226366607143*^9, 3.608226371731638*^9}, {
  3.668613094857071*^9, 3.668613096097272*^9}}],

Cell[CellGroupData[{

Cell["Derivation", "Subsection",
 CellChangeTimes->{{3.6082405814380074`*^9, 3.608240586840475*^9}}],

Cell[TextData[{
 "First, let\[CloseCurlyQuote]s clear the variables ",
 StyleBox["x", "Code"],
 " and ",
 StyleBox["a", "Code"],
 ":"
}], "Text",
 CellChangeTimes->{{3.668613243561022*^9, 3.668613250816287*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"x", ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.607448622910283*^9, 3.607448625377554*^9}}],

Cell[TextData[{
 "The saddle-node bifurcations for the master system are ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["a", "break"], "=", 
     FractionBox["2", 
      RowBox[{"3", " ", 
       SqrtBox["3"]}]]}], ",", 
    RowBox[{
     SubscriptBox["a", "sustain"], " ", "=", 
     RowBox[{"-", 
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}]}], TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.6082406004539423`*^9, 3.608240609836341*^9}, {
  3.668613220778142*^9, 3.668613231489078*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], "\[Equal]", "0"}], 
     ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], ",", "x"}], "]"}],
       "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "a"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6074485960306177`*^9, 3.607448630509151*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"a", "\[Rule]", 
      FractionBox["2", 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.607448606712031*^9, 3.607448630945023*^9}}]
}, Open  ]],

Cell[TextData[{
 "At ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "break"], "=", 
    FractionBox["2", 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "*"], TraditionalForm]]],
 " jumps from ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"-", "1"}], 
    SqrtBox["3"]], TraditionalForm]]],
 " to ",
 Cell[BoxData[
  FormBox[
   FractionBox["2", 
    SqrtBox["3"]], TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.6074486973824453`*^9, 3.607448725105851*^9}, {
  3.6074487640715027`*^9, 3.607448764071582*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], "\[Equal]", "0"}], "/.", 
   RowBox[{"a", "\[Rule]", 
    FractionBox["2", 
     RowBox[{"3", 
      SqrtBox["3"]}]]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.607448661245297*^9, 3.607448687734226*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox["2", 
      SqrtBox["3"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.607448669378718*^9, 3.6074486886275*^9}}]
}, Open  ]],

Cell[TextData[{
 "At ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "sustain"], "=", 
    FractionBox[
     RowBox[{"-", "2"}], 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "*"], TraditionalForm]]],
 " jumps from ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    SqrtBox["3"]], TraditionalForm]]],
 " to ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"-", "2"}], 
    SqrtBox["3"]], TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.60744874095919*^9, 3.607448770422901*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}], "\[Equal]", "0"}], "/.", 
   RowBox[{"a", "\[Rule]", 
    FractionBox[
     RowBox[{"-", "2"}], 
     RowBox[{"3", 
      SqrtBox["3"]}]]}]}], "]"}]], "Input",
 CellChangeTimes->{3.607448734036688*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["2", 
       SqrtBox["3"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox["1", 
      SqrtBox["3"]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox["1", 
      SqrtBox["3"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.607448734425872*^9}]
}, Open  ]],

Cell[TextData[{
 "When ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    SubscriptBox["a", "break"]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "*"], " "}], TraditionalForm]]],
 "is on the upper branch (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "*"], "=", 
    FractionBox["2", 
     SqrtBox["3"]]}], TraditionalForm]]],
 "), ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["y", "break"], "(", 
     SubscriptBox["a", "break"], ")"}], "=", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
      RowBox[{"3", " ", 
       SqrtBox["3"]}]]}]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["y", "sustain"], "(", 
     SubscriptBox["a", "break"], ")"}], "=", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.607449002150062*^9, 3.607449044753161*^9}, {
  3.607449130400959*^9, 3.607449162065316*^9}, {3.6082406741536903`*^9, 
  3.6082406791967173`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "@", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
         RowBox[{"x", " ", "\[Epsilon]"}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
           RowBox[{"x", " ", "\[Epsilon]"}]}], ",", "y"}], "]"}], "\[Equal]", 
        "0"}]}], "}"}], "/.", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", 
       FractionBox["2", 
        SqrtBox["3"]]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.607449055300145*^9, 3.607449105271968*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"3", " ", "\[Epsilon]"}]}], ")"}]}], 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.607449089886651*^9, 3.607449105547976*^9}}]
}, Open  ]],

Cell[TextData[{
 "When ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    SubscriptBox["a", "break"]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "*"], " "}], TraditionalForm]]],
 "is on the lower branch (",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "*"], "=", 
    FractionBox[
     RowBox[{"-", "1"}], 
     SqrtBox["3"]]}], TraditionalForm]]],
 "), ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["y", "break"], "(", 
     SubscriptBox["a", "break"], ")"}], "=", 
    FractionBox[
     RowBox[{"2", "+", 
      RowBox[{"3", " ", "\[Epsilon]"}]}], 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["y", "sustain"], "(", 
     SubscriptBox["a", "break"], ")"}], "=", 
    FractionBox[
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"3", " ", "\[Epsilon]"}]}], 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.60744931043361*^9, 3.607449333583083*^9}, {
  3.6082406572204123`*^9, 3.608240664366104*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "@", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
         RowBox[{"x", " ", "\[Epsilon]"}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
           RowBox[{"x", " ", "\[Epsilon]"}]}], ",", "y"}], "]"}], "\[Equal]", 
        "0"}]}], "}"}], "/.", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", 
       RowBox[{"-", 
        FractionBox["1", 
         SqrtBox["3"]]}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.607449305273183*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{"2", "+", 
        RowBox[{"3", " ", "\[Epsilon]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"3", " ", "\[Epsilon]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox["3"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.607449311709053*^9}]
}, Open  ]],

Cell[TextData[{
 "In general, the values of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["b", "break"], " ", "and", " ", 
    SubscriptBox["b", "sustain"], " "}], TraditionalForm]]],
 "is ",
 Cell[BoxData[
  RowBox[{
   FractionBox["2", 
    RowBox[{"3", " ", 
     SqrtBox["3"]}]], "-", 
   RowBox[{"x", " ", "\[Epsilon]"}]}]],
  CellChangeTimes->{{3.6074504439697857`*^9, 3.6074504517838173`*^9}}],
 " and ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", 
    FractionBox["2", 
     RowBox[{"3", " ", 
      SqrtBox["3"]}]]}], "-", 
   RowBox[{"x", " ", "\[Epsilon]"}]}]],
  CellChangeTimes->{{3.6074504439697857`*^9, 3.6074504517838173`*^9}}]
}], "Text",
 CellChangeTimes->{{3.607450427413496*^9, 3.607450472098592*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "@", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
        RowBox[{"x", " ", "\[Epsilon]"}]}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
          RowBox[{"x", " ", "\[Epsilon]"}]}], ",", "y"}], "]"}], "\[Equal]", 
       "0"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6074504427549686`*^9, 3.6074504515543947`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       FractionBox["2", 
        RowBox[{"3", " ", 
         SqrtBox["3"]}]], "-", 
       RowBox[{"x", " ", "\[Epsilon]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["1", 
       SqrtBox["3"]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["2", 
         RowBox[{"3", " ", 
          SqrtBox["3"]}]]}], "-", 
       RowBox[{"x", " ", "\[Epsilon]"}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6074504439697857`*^9, 3.6074504517838173`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Create Figure 3", "Subsection",
 CellChangeTimes->{{3.6364871507859697`*^9, 3.6364871696964693`*^9}, {
  3.6686131618053627`*^9, 3.668613162632906*^9}, {3.6686137192217607`*^9, 
  3.66861371981285*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "masterFlow", ",", "slaveFlow", ",", "slaveSlaveFlow", ",", "coupling", 
     ",", 
     RowBox[{"a0", "=", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"x0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"y0", "=", 
      RowBox[{"-", ".6"}]}], ",", 
     RowBox[{"z0", "=", 
      RowBox[{"-", ".6"}]}], ",", "yFixedPoints", ",", "zFixedPoints", ",", 
     RowBox[{"sep", "=", "\"\<\\t\>\""}], ",", "\[IndentingNewLine]", 
     RowBox[{"fs", "=", "12"}], ",", 
     RowBox[{"fsTicks", "=", "11"}], ",", 
     RowBox[{"imgSize", "=", 
      RowBox[{"(*", 
       RowBox[{"1.5", "  ", "8.7", " ", 
        FractionBox["72", "2.54"]}], "*)"}], 
      RowBox[{"1.", " ", 
       RowBox[{"8.4", "/", "2.54"}], "*", "72"}]}], ",", 
     RowBox[{"aspectRatio", "=", 
      RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
     RowBox[{"upperColor", "=", "Red"}], ",", 
     RowBox[{"lowerColor", "=", "Blue"}], ",", "\[IndentingNewLine]", 
     RowBox[{"\[Epsilon]0", "=", ".2"}], ",", 
     RowBox[{"b0", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"c0", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"font", "=", "\"\<Times\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"masterFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "3"]}], "+", "x", "+", "a"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"coupling", "=", 
       RowBox[{
        RowBox[{"#1", " ", "#2"}], "&"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"slaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["y", "3"]}], "+", "y", "+", "b", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"x", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"slaveSlaveFlow", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["z", "3"]}], "+", "z", "+", "c", "+", 
        RowBox[{"coupling", "[", 
         RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"x0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"x", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"masterFlow", "/.", 
                  RowBox[{"a", "\[Rule]", "a0"}]}], ")"}], "\[Equal]", "0"}], 
               ",", "x"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0"}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "x0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "x0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"y0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"y", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"slaveFlow", "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ",", 
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}]}], 
                   "}"}]}], ")"}], "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
            ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "y0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "y0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"z0", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"z", "/.", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"slaveSlaveFlow", "/.", 
                  RowBox[{"{", 
                   RowBox[{"(*", 
                    RowBox[{
                    RowBox[{"b", "\[Rule]", "b0"}], ",", 
                    RowBox[{"x", "\[Rule]", "x0"}], ","}], "*)"}], 
                   RowBox[{
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                    RowBox[{"y", "\[Rule]", "y0"}], ",", 
                    RowBox[{"c", "\[Rule]", "c0"}]}], "}"}]}], ")"}], 
                "\[Equal]", "0"}], ",", "z"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"Im", "[", "#", "]"}], "\[Equal]", "0."}], "&"}]}], 
           "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "-", "z0"}], "]"}], "<", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "-", "z0"}], "]"}]}], "&"}]}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Quiet", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                
                RowBox[{"Part", "[", 
                 RowBox[{
                  RowBox[{"NSolve", "[", 
                   RowBox[{
                    RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], "]"}],
                   ",", "1"}], "]"}]}], 
               RowBox[{"(*", 
                RowBox[{"/.", 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                  "]"}]}], "*)"}], "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                 RowBox[{"a", "\[Rule]", 
                  FractionBox["2", 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                 RowBox[{"x", "\[Rule]", 
                  FractionBox["2", 
                   SqrtBox["3"]]}]}], "}"}]}], "\[IndentingNewLine]", ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                
                RowBox[{"Part", "[", 
                 RowBox[{
                  RowBox[{"NSolve", "[", 
                   RowBox[{
                    RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], "]"}],
                   ",", "1"}], "]"}]}], "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                 RowBox[{"a", "\[Rule]", 
                  FractionBox["2", 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                 RowBox[{"x", "\[Rule]", 
                  RowBox[{"-", 
                   FractionBox["1", 
                    SqrtBox["3"]]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"b", ",", 
              RowBox[{"-", ".8"}], 
              RowBox[{"(*", 
               FractionBox[
                RowBox[{
                 RowBox[{"-", "2"}], "+", 
                 RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                RowBox[{"3", " ", 
                 SqrtBox["3"]}]], "*)"}], ",", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
               RowBox[{"3", " ", 
                SqrtBox["3"]}]]}], "}"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"Filling", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "2", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{"Yellow", ",", 
                   RowBox[{"Opacity", "[", ".5", "]"}]}], "]"}]}], "}"}]}], 
              "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                  
                  RowBox[{"Part", "[", 
                   RowBox[{"#", ",", "2"}], "]"}]}], "&"}], "@", 
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], "]"}]}], 
               RowBox[{"(*", 
                RowBox[{"/.", 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                  "]"}]}], "*)"}], "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                 RowBox[{"a", "\[Rule]", 
                  FractionBox["2", 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                 RowBox[{"x", "\[Rule]", 
                  FractionBox["2", 
                   SqrtBox["3"]]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                   RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                
                RowBox[{"Part", "[", 
                 RowBox[{
                  RowBox[{"NSolve", "[", 
                   RowBox[{
                    RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], "]"}],
                   ",", 
                  RowBox[{"-", "3"}]}], "]"}]}], 
               RowBox[{"(*", 
                RowBox[{"/.", 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{"masterFlow", "\[Equal]", "0"}], ",", "x"}], 
                  "]"}]}], "*)"}], "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                 RowBox[{"a", "\[Rule]", 
                  FractionBox["2", 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                 RowBox[{"x", "\[Rule]", 
                  RowBox[{"-", 
                   FractionBox["1", 
                    SqrtBox["3"]]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"b", ",", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
               RowBox[{"3", " ", 
                SqrtBox["3"]}]], ",", 
              RowBox[{
               FractionBox[
                RowBox[{"2", "+", 
                 RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                RowBox[{"3", " ", 
                 SqrtBox["3"]}]], "-", ".002"}]}], "}"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"Filling", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", "2", "}"}], ",", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Lighter", "@", "Orange"}], ",", 
                   RowBox[{"Opacity", "[", ".45", "]"}]}], "]"}]}], "}"}]}], 
              "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
              "Flatten", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   SubscriptBox["c", "break"], ",", 
                   SubscriptBox["c", "sustain"]}], "}"}], " ", "for", " ", 
                 SuperscriptBox["x", "*"], " ", "on", " ", "its", " ", 
                 "upper", " ", "branch", " ", "at", " ", 
                 SubscriptBox["a", "break"]}], "*)"}], "\[IndentingNewLine]", 
               
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], 
                  "]"}]}], "/.", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                  RowBox[{"a", "\[Rule]", 
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                  RowBox[{"x", "\[Rule]", 
                   FractionBox["2", 
                    SqrtBox["3"]]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], 
              "~", "Join", "~", 
              RowBox[{
              "Flatten", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   SubscriptBox["c", "break"], ",", 
                   SubscriptBox["c", "sustain"]}], "}"}], " ", "for", " ", 
                 SuperscriptBox["x", "*"], " ", "on", " ", "its", " ", 
                 "lower", " ", "branch"}], "*)"}], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"-", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}]}], "}"}], "/.", 
                 
                 RowBox[{"Solve", "[", 
                  RowBox[{
                   RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], 
                  "]"}]}], "/.", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                  RowBox[{"a", "\[Rule]", 
                   FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                  RowBox[{"x", "\[Rule]", 
                   RowBox[{"-", 
                    FractionBox["1", 
                    SqrtBox["3"]]}]}]}], "}"}]}], "\[IndentingNewLine]", 
               "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"b", ",", 
              RowBox[{"-", ".8"}], ",", ".8"}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Red", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
               "None", ",", 
               RowBox[{"{", 
                RowBox[{"Red", ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}], ",", 
               "None", ",", 
               RowBox[{"{", 
                RowBox[{"Red", ",", "Dashed", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
               "None", ",", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
               "Blue", ",", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", 
                 RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}], ",", 
               "None", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Blue", ",", 
                 RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PlotLegends", "\[Rule]", 
             RowBox[{"Placed", "[", 
              RowBox[{
               RowBox[{"LineLegend", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Directive", "[", "lowerColor", "]"}], ",", 
                   RowBox[{"Directive", "[", "upperColor", "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"Gray", ",", 
                    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}], 
                   ",", 
                   RowBox[{"Directive", "@@", 
                    RowBox[{"{", 
                    RowBox[{"Dashed", ",", "Gray", ",", 
                    RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{"Gray", ",", 
                    RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}], 
                  "}"}], ",", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], "&"}], "/@", 
                   RowBox[{"{", 
                    RowBox[{"\"\<lower \>\"", ",", 
                    RowBox[{"(*", 
                    RowBox[{"\"\<middle \>\"", ","}], "*)"}], 
                    "\"\<upper branch\>\"", ",", "\"\<lower\>\"", ",", 
                    "\"\<middle\>\"", ",", "\"\<upper branch\>\""}], "}"}]}], 
                  ")"}], ",", 
                 RowBox[{"LegendLayout", "\[Rule]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SuperscriptBox[\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\) on its \>\"", 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<lower\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    "lowerColor"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<, \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<upper \>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    "upperColor"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<branch\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}]}], "}"}], "]"}], ",", 
                    RowBox[{"Row", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SuperscriptBox[\n \
StyleBox[\\\"y\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\) on its \>\"", 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], "}"}], "~", "Join", "~", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#", ",", "\"\< \>\""}], "]"}], "&"}], "/@", 
                    RowBox[{"Take", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"-", "3"}]}], "]"}]}], ")"}]}], ",", 
                    "\"\< \>\""}], "]"}]}], "}"}], ",", "Left", ",", "0"}], 
                    "]"}], "&"}], ")"}]}], ",", 
                 RowBox[{"LegendMarkerSize", "\[Rule]", "12"}]}], "]"}], ",", 
               "Below"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], "]"}],
               "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{"\"\<\!\(\*
StyleBox[\"b\",
FontSlant->\"Italic\"]\)\>\"", ",", 
               RowBox[{"(*", "\"\<\!\(\*
StyleBox[\"c\",
FontSlant->\"Italic\"]\)\>\"", "*)"}], "\"\<\!\(\*
StyleBox[\"c\",
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ")"}]}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", ".05"}], 
             RowBox[{"(*", 
              RowBox[{"-", ".7"}], "*)"}], ",", ".65"}], "}"}]}], ",", 
          RowBox[{"Ticks", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
                  RowBox[{"3", " ", 
                   SqrtBox["3"]}]], ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<min \!\(\*
StyleBox[\"S\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
                   RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<-max \!\(\*
StyleBox[\"S\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 FractionBox[
                  RowBox[{"2", "+", 
                   RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                  RowBox[{"3", " ", 
                   SqrtBox["3"]}]], ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<max \!\(\*
StyleBox[\"S\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   RowBox[{"-", "2"}], "+", 
                   RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                  RowBox[{"3", " ", 
                   SqrtBox["3"]}]], ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"\"\<-min \!\(\*
StyleBox[\"S\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}]}], "}"}]}], 
                  "]"}]}], "}"}]}], "}"}], ",", "None"}], "}"}]}], ",", 
          RowBox[{"AxesOrigin", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}]}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "imgSize"}], ",", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Darker", "@", "Green"}], ",", 
               RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
              "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Darker", "[", 
                  RowBox[{"#", ",", ".2"}], "]"}], "&"}], "@", "Cyan"}], ",", 
               
               RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", 
               RowBox[{"Line", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], "/.", 
                    RowBox[{"Part", "[", 
                    RowBox[{"#", ",", "2"}], "]"}]}], "&"}], "@", 
                    RowBox[{"NSolve", "[", 
                    RowBox[{
                    RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], 
                    "]"}]}], "/.", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                    RowBox[{"a", "\[Rule]", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"x", "\[Rule]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}]}], "}"}]}], ")"}], "/.", 
                    RowBox[{"b", "\[Rule]", 
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
                  
                  RowBox[{"{", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], "-", 
                    RowBox[{"coupling", "[", 
                    RowBox[{"y", ",", "\[Epsilon]"}], "]"}]}], "/.", 
                    RowBox[{"Part", "[", 
                    RowBox[{"#", ",", "1"}], "]"}]}], "&"}], "@", 
                    RowBox[{"NSolve", "[", 
                    RowBox[{
                    RowBox[{"slaveFlow", "\[Equal]", "0"}], ",", "y"}], 
                    "]"}]}], "/.", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\[Epsilon]", "\[Rule]", "\[Epsilon]0"}], ",", 
                    RowBox[{"a", "\[Rule]", 
                    FractionBox["2", 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], ",", 
                    RowBox[{"x", "\[Rule]", 
                    FractionBox[
                    RowBox[{"-", "1"}], 
                    SqrtBox["3"]]}]}], "}"}]}], ")"}], "/.", 
                    RowBox[{"b", "\[Rule]", 
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0.1", ",", ".55"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{".15", ",", ".62"}], "}"}]}], "}"}], "]"}], "}"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"\"\<hop\>\"", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{".13", "+", ".03"}], ",", ".622"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".9"}], ",", 
                 RowBox[{"-", ".6"}]}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Column", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<cascade\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                  "}"}], ",", 
                 RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
                 RowBox[{"Spacings", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", ".1"}], "}"}]}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"(*", ".29", "*)"}], 
                RowBox[{".31", ",", ".29"}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", 
                   RowBox[{".39", "+", ".03"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{".58", "+", ".03"}], ",", 
                   RowBox[{".46", "+", ".03"}]}], "}"}]}], "}"}], "]"}], 
              "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Column", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                   ",", 
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                   ",", 
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<for \!\(\*
StyleBox[\"Y\",
FontSlant->\"Italic\"]\)\[RightVector]\!\(\*
StyleBox[\"Z\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}]}],
                   "}"}], ",", 
                 RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
                 RowBox[{"Spacings", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", ".1"}], "}"}]}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{".79", ",", ".41"}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"BezierCurve", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", "+", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]], ",", 
                    FractionBox[
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"3", " ", "\[Epsilon]0"}]}], ")"}]}], 
                    RowBox[{"3", " ", 
                    SqrtBox["3"]}]]}], "}"}], ".", 
                   RowBox[{"{", 
                    RowBox[{".4", ",", ".6"}], "}"}]}], ",", "0"}], "}"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{".21", ",", ".08"}], "}"}]}], "}"}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Row", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<sync.\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                   ",", 
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<window\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                   ",", 
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<for \!\(\*
StyleBox[\"X\",
FontSlant->\"Italic\"]\)\[RightVector]\!\(\*
StyleBox[\"Y\",
FontSlant->\"Italic\"]\)\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}]}],
                   "}"}], ",", "\"\< \>\"", ",", 
                 RowBox[{"Alignment", "\[Rule]", "Center"}]}], 
                RowBox[{"(*", 
                 RowBox[{",", 
                  RowBox[{"Spacings", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", ".1"}], "}"}]}]}], "*)"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", ".21"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "2.1"}]}], "}"}]}], "]"}]}], 
            RowBox[{"(*", 
             RowBox[{",", "\[IndentingNewLine]", 
              RowBox[{"Inset", "[", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(c\), \
\(break\)]\)(\!\(\*SuperscriptBox[\(y\), \(*\)]\))\>\"", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "fs"}]}], "}"}]}], "]"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", ".1"}], ",", ".5"}], "}"}]}], "]"}]}], "*)"}], 
            "\[IndentingNewLine]", "}"}]}], ",", 
          RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}], 
        "\[IndentingNewLine]", ",", 
        StyleBox[
         RowBox[{"Solve", "::", "ratnz"}], "MessageName"]}], "]"}]}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.636487189441697*^9, 3.636487190370543*^9}, {
   3.636487259742041*^9, 3.636487294125057*^9}, 3.636487474205576*^9, {
   3.668613266401516*^9, 3.668613333749907*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      GraphicsComplexBox[CompressedData["
1:eJxF13k8VPsfx3FLWUuUUiiypbJ05aqb8lWWlitLK8nSQkpKEpK0K+lq00Ip
FLklSqkhfMwMY2xjELLEmXMmIUmStPrN7/G4329/ecwfzmPmzJnv8/WeuXXv
Gj8ZKSmpo9JSUv//q9FueD4xsQeiFR8NmU4Soxlz5p60lOqB8dUiaV0lMSpQ
y/fp9ugGMymny+ZSYkTXuO1KLX4LuedzzSqGGWSXEmrlb/QWomPdN4e+Z9Ci
cbo9dse6IEX6UokFw6BCp6ZKo7dvIMzj2JgjLQxqMJp8Wc/2DZxdZXK3UcAg
A40O7Tk3xWC57uB+q1IGSbc/brSSFYP8iaSVswsYtH+RyoHNXgzsErADpuUw
aF/QAbvTHBpuvRhQSL7LoMxn/g1Fc2gYsR6tMU1iUGgitXJ8jAjW1C1Z/DCe
QdWufh+29FHwPNUpsPQEg/JTQw7VOlCgEXg8uiicQSVq6pcu2neChb2vFSuQ
QUax7nHxkzpAY7TV1MWXQc/mZ7sV8dvhyc2jkU/XMsj79LSw4ctt8G2flOrz
5Qyap3J1xxaHVvCN0u8OW8SgA2yjdubHK+C6fWk0NWVQ3fSa7ODKZvB4O2Np
jC6D3B+edDaPbgKlibPbjk5k0PAbN6eR5Y3gd3ljr/ZYBsn/Pb/mlcZLMGEv
GM35QqNljKHWu5p6MF5mHVvaTaMrBmbl8kl1cKFvj/nhVhpNTFxuu8FJCPJD
LuMSK2kkG9obEaEogJtcI5+4AhqpKewz9ciogtaS8CS9BzQKldGMSp5QASEW
Va3diTSSc+mPGb7Lg+6XST9Wx9Ioeqj3WrRjKRwtcAs6HEGjv6WU7HY9ZYOy
6pbWK340ii/MXNd4sxj2Xq4bsltLI3OH4xuTd+bDgr5bigk2NDILya2Pj38K
q0IDDLfPodFgqv/Twms50FqX2v5wMo1aRz7O7bVLh6yKP08r/hKhb/PWGzfa
XgN3ThrkdomQiUaN89W3W4G1Yeq5sioRGtX32RZueAm5jJ655pEjQs+ybjUn
30lDJz+3uGZeEqFpZmOufJR5iJRLHS1PB4vQlvkd8766P0Hbd9yu7nMSoZ7k
nrNaU1no7oHOU1qGIsS3fvQozKYIic5b9m76SKF0TVXzdXJsdCm6u6v/MYXU
Witjhp9yUYxDX5elLIU0T2QqvnXqAa6d5c77KmKU3s14nWXloXPOEbeK/xKh
V33V01c+KEDZH045ZowTodiFAafPpwM6cJ0V5PSSQp6R7zele3EQ8FJq4QiF
rpvvcLLd3wOWvBcK71XFSFZlSzn7zFN00oBXdsROhHwdPNflbslHamkZF82m
iZDxonHasiHFaOy7jb/cGQodrfxV+uMxG/FWZ5ur36CQa4LN286hF+hVkaH1
rlEKHdDa+vWf3SXI6fkdhSEuhazmtA+sVuQiLQ2Lbo4nhV6d4r3fHdMDMuzB
p+MnilFuik7U64EnSGp5govtChG6uy/tQ1chC2nE281aoCNCI4u8uxa/KkIG
6+uUI3opdClEPtJ4Mxs5MHncDxkUSig5dVzd9QWqu/IgWldOhF5rxXXc1ylB
r6ILBc7VFFpRL04/+ISDpiDVpRv3UmiP3vCEOnkOSv9e+G1mPIUMjjdY6/lw
UZq1ofL4ZRQamRdmI3uhB6Z88qCTJe9PqTd6w7u7T9DPIwrSiatEiCfvuOTY
LhYy94h9bqonuV/Wp6s84opQCnvPvYH3FLrJi1tn8wcbrTcvUD6TRaFnG2YL
s38WIJnHRZY7FUVIbyFKCxkEFL8mNs5dSKE1RjuPnj/DQeEXejNbwikUHhbZ
29XORk6PlGI5CRQybdo4ZaElF51dO+Is70ohFO1bta2Dg5gLbQET/CXPh5nL
lnFnuWhtaYt+oTmFzsgJ/AUJPeCwuqv/jeT9P4vPthuMfoKe1Fcc4/4teV7q
NbY7L2WhNfZ7ctP1RSjhhZZN9/YiNOvbodh7HyiUMlCztEKLjfqrZ3kszaFQ
+czvw4deFqDOSQNzFJVFaAOrQV26GlCH71j99fUU2uD6IEhzPwe1lbot7ThE
oaiUwuZ95Wzk/trl4tA1CllIJclyZ3CR9M7K3dobKGSfmcbq53NQ77WSFbW7
KKTjftH5WigX5agO0jl/Ucg4a/Lshyu5aHLkQKD/SgpNGTM+9NhtLmoxPsh+
pid53j5+/Tb/Wg/c2H5nUFHixbgtjgWfA5+gsBUFq90lvzdf1tEvT01YyNL0
DOVrIELZ3/3Cc9yK0F0WZB4boFDa2L0sFTU2Utg8FJ/4SHI9+e1naShAhx+a
Tnol+XzBI9Od+SxAfsrhe90aKOTu5yT2CeCgQIsci4bDFIrO83J+XshGBXL5
STGJFLKcbB2poM5F++x8Jv5wp5BjkZ25ZTEH6et+rpwWRCG9IIuy9p1c1Fh8
/MZYGwrNYT+7PWgj+b5SizMqnSg0dVp2Ly+Bi/w1K5ZUzKaQtt1As9sRLspf
o+j4xZJC6h8Cf1rf56I9WavuRkyjEPbydq9tyrTFHMBe+lEHA918OYC9pCfU
GU46wwHsZX2dFSvrIQewl2m9t6SlGjiAvZyqlB8s94MD2Eu4/923UY8L2Mu9
XS505GouYC/5oJX+JZwL2MuoMdecTFK4gL0cbPpaG1jNBeyljp6Ni9cwF7CX
LN0x1pq6pYC9dKlSPK7tXArYy6JYQRkcLAXs5ZLtXyLa/i0F7GX96JHEgZZS
wF4uUb/yIkG+DLCX1cm/zoz+VQbYy9wVoxafd5YB9nKqzv76z7fKAHt5rkJf
S/NlGWAv/9x/ag9LjgfYyxD+ZjmBDQ+wl2O4aRVeoTzAXnYr64Wp3ecB9nJE
Xt0Z3vAAe7nR2yGvfUY5YC8P27KXBnmXA/bSWMZ/+M6tcsBezhuvp7i8vRyw
l7WOL+XNZvIBezlSeOVo4jY+YC+TjAqK2jL4gL3cLYxSjBzkA/byNafgNtu6
ArCXhT6nnI7FVwD2Mhj5vLbtrADspXnFQSlNi0rAXvb2zN7w4EIlYC8XyYeF
yvVXAvEy7/ayFx5VgL3cPOm1emBVFWAvzyxKNJ9nUw3YyyCprtSnvGrAXsrt
P2E7Y30NYC/lF53w3DZUA9hL9TqzSj+uALCXLlN8miezawF7afvz3rtfS+oA
e/mP9DzBLGcOYC8DmnS+NqXWAPaSdutxX7hBANjLsuwZhbcX1AL2UvDNRrPH
XgjYS/4XNdfpDhzAXsZEd3vWR9YA9nLdGX8TDQPJ9/iflye3px4M+i4A7CX0
6W+yVREC9tJq2q4Y4zgBYC8D5oe4Sh+sBezllE3aPfQ5IWAvz4+zup1kywHs
5fWhHEvhjhrAXi5+Ndg4pCwA7KVS4Qu7jx0CwF6eODF7+8T3tYC9XJe/JsIl
WADYy0WTJyy8urEWsJczlXwXFPgJAXspc1Gu1MBYCNhLBTWrO84lQsBeLrNP
7PGw4QD28o5q554g7xrAXrY9aEvQlBIA9lJTybFRpU7Sif956bB2qv3jplrA
Xl50Ukox2SYA7KU3r81+7/JawF5673iwI2+dELCXebMC7zGaQsBeLhSd19p0
VwjYyxj/ircrI4SAvbw3Wr1vQCwE7OXJth3P/1rCAexldVlLINdD8rz856XL
6PJ/F32rAezlz1lqq+dXCgB7KWrfolJdVQvYy+ls2/KszQLAXur+864rCtUC
9vLqr3arLMk5gL1MrqGuHlEXAvZy1bN3nebXhYC9POg+OqtyjxCwl/3+Nz8p
1AkBe6mfcFt047EQsJc3rOKtvv+SPG//eWkavT/zX4kX2Evo11gcvFHy/P7n
ZaUnNbD6Sw1gLxXNZISVPAFgLw+mmC8I5NUC9jJ90yqjfR4CwF6OZQzy4qxr
AXsZpq+3jrNCCNjLV5EqJz3VhIC93CXNSQi+JATspdyKq/p/7hIC9vKO0qHj
XnwhYC8zHGR3N9wXAvbyyNr+JU0DQsBettJBppGtQsBeBpu/Cw5XqwPsZV+i
U9fu+7/3pWHr4j3v0n7vyzkPW6bmJf3el6Wxby99uSQm+9LA1cLQJU5M9uWt
kx2z+46Lyb7sMDNqGnNITPblApUpxt4hYrIvFQ4dU6nYKSb7ckb/8dzcLWKy
LxMOv7ducheTfbkk9A/qoKuY7MvB/XENf6wQk33pEqcRpo3EZF/6i7PDzlqJ
yb5s+KNSztBUTPZlZ+lPs1p9MdmXQzqbl0ppicm+dAnN01mvJib7kjq3eruF
gpjsy1VaFVNNfv3el81Za/sthn7vy+echjG83t/7UjZJs3UX9XtfRt8LD0lu
+r0vY8fnzKOqGbIvJ53X6zbmMGRffv1+LkCWxZB9uSqtL68liyH7ErWV736e
ypB9qacgWjr3GvN7X2qaZ8XFMWRfDk0fuXriKEP25cITFY9OHWDIvhRKK+ls
28mQfel5ucC73Ysh+1LT70PxTDeG7Eu72M2MrAND9mXAav6N7oUM2ZeOC08Z
Hp/LkH251TwqqHAGQ/ZlR3FhwlVVhuxLPf9Fm71lGLIvMycZhVUO0WRfuqUm
rnr6hib78o3n/olLm2myLxe4FeWz+DTZl3Mu5B46waLJvgzeeP7Sx0ya7MuP
l1XbZK7RZF8ar2XZZ2eIyV4s6luQPD6FJnuxucJTKz5TTPbfnjfP1p+8S5N9
Zz+iaPHPDZrsu2pHi7TD/4rJXssPsdYtzKDJHvMVHEoVJNNkf7XJZS9fmUiT
/VUwcNnps+T/sQ/jbksbNN+jyV5SyvAO6r9F/95H4ofnApNosofi3WdsNbpO
kz0kNfaU1h+S3z8+r6fvpIO2S+4HPo89PIunRt+myV6JKlq6/4fkevi8vSwl
3/Nccj18vqpaNuUmSO4fPl83fgqSdpFcH5+Xa/Jfj3kguT4+Dz2MmjrLJNfH
55/LoeRme8n9wufdwzbfZCnJ58fn27D6mfOvJdfH51nT0JjqvyWv8XkmdEt+
Yl0MpP8VXLVCl38D0v+DnkkTfk4vIf0f07N11qfFJaT/5YQLOhI8S0j/z/gV
U6V7uIT0/4z1AZrFN0tI/xc2Z9a7Qwnp/zCD7wsfikpI/+u5f86Uk2GT/l+l
+feJCEM26f90ZD3Y48gm/V9r22CgFMAm/b+ZSUvyOccm/S9zxOH6vWw26f/V
K19tXPKSTfpf+6fi84SvbNL/lRcuBAm1OaT/vdDcoSg7Dun/qa8rRfIBHNL/
e++0T5h5gUP6f7FXbv5YFof0f+HYXJ/81xzS//9kXlUykueS/k8L0fvX04xL
+v9Aq/0j1/Vc0v9OL8PqTY9ySf/n6dYIuZlc0v97Tzvf2NXIJf1/844IPkmX
kv6fOBAVaGBSSvpfmGHPSdtUSvq//LquBjemlPQ/S7YtpyC3lPS/u2LLsD1T
SvrfhDtlxEetjPS/eZRd+Cr7MtL/597Fv2GHlpH+H2ntlDVPLyP9f8S8r53f
Wkb6f+Ja1aLO8TzS/zqTVXTDHXmk/ydGaMi4H+GR/h9hByTdy+OR/l8fl7RC
apBH+n9s6vzZNXPLSf8XVSmf6/crJ/3/odbqJDejnPR/cy7XWPlNOen/xpJi
OZ4Jn/R/32lUMq8dSM/f9Zr5K0mBT3o+ol5f2aIGSJ93RhpqlwyXk/4+a95y
/6Ymn/R3de/el3llQHr6icOkQep9OellzWa191fV+KSP535esS5Ln0/62PfG
1mMjbCC9uyPhGx3aU056NiQipkhjPJ/0a3D0Slt9HT7pVe/s070LjPmkV02+
tihqlgDpT8Pd4S/Q23LSl3/ekVdtUeKTnryn+S29U5tP+tFJ5Y3goyGf9OIG
28x70XP4pBcjYi61zgEg/ec696yPYVc56bs/wzM/5SvySc956cepF2vxSb8x
qYd/Cgz4pNdKCilLz9l80mfLlrxfljaXD/8Dk52SUw==
       
       "], {{{}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[1, 1, 0], 
           Opacity[0.5]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJzt1VVzFkYUgOEvuDsEh+DuHtxdgjskuCR4cNJCi7tTgRbqLri2aAst7lRw
qtDizpOBf0EuntmbM7Mze96ZDQmPCouMFwgEErCDIHrRjsbUpBJliZ2L/2I2
IYlITBKSkozkpCAlqUhNGtKSjvRkICOZCCYzWchKNrKTg5zkIjch5CEv+chP
AQpSiMIUoSjFKE4JetOeJtSiMuUoSR860JTaVKE8/elMC+pRjVL0pSPNqEMo
FRhAF1pSn+qUph+daE5dqjKIboTRkIoMpCutaEAkPWhDDQbTndYMIZxGRNGT
YbRlKBEMp0zsu1pmWYpRhgIUpTQh5KcIpchBbvJRmJJkJTu5yEshShBMJjKS
gfSkIy1pSE0qUpKC5CQjKUlITCISkoD4xCMo6HmATx1PeMwjHvKA+9zjLne4
zS1u8j//cYPr/Ms//M1f/MkfXIttzR3ZyEkeClKcq4G4/uP6f7n7H8FJfmAr
3/AJ7zOSUUQzmjGMZRzjmcBEJhHDK7zKZKbwGq8zlWlMZwYzmcVs5jCXecxn
AQtZxGKWsJRlLGcFb/Amb/E2K1nFO5ziR7bxLZ/yAe9ymv1sZy2f8SHn+Jnv
2cCXrOYMBwLP/8l1fM5H/MJBdrKRr1jDWX7iO9bzBb9xmN1s5mN+5RC72MR5
jrKXr/mdI+zhIsfZwgWOcZl9XOIEV3iP3nYawxgmMZzRTCSSYUQzgQEMZiij
GE9f+jOIIYxkHL2IIJye9KA73ehKFzrTiY50oD3taEsbWhNGK1rSguY0oylN
aEwjGtKA+tSjLnWoTS1qUoPqVKMqoVShMpWoSAXK04d+DCSKEYylXFBc/3H9
v9z9PwOzlUMK
             "]]}]}, {}, {}, {}}}], {}}, {
      GraphicsComplexBox[CompressedData["
1:eJw913lYjWkfwPEyMm1CijSkiClbSRLFLy3EpDBSEtGmUlKTEGOpqNHCSKsW
lUSUpG2qt7tzjuq0nqd97zxnSRKFUQh5n/e63vv+q+u5Ouc+t3Pp+/v8NJx9
97vNkJCQOCUpIfG/nw1vnqHJQg4k6yc8/d/PdOvpnRdvvwCbQ3SX0QMOnL6X
M5IZXA26r8IrDsVxoP+vJ64C5xpwLmx0TgzjwMw2x+bSbbWgH1wm3HieA5ry
Pvv01nKhNU71dZ4nBwT9rbksuTrQ2/XZy/wwB+JTEpb/+60OpBTG4v/5jQPS
lfLhlSP1sPFa7PsIYw4sCOysTqtpgHevLe+eWceBJWoSS5YXN8LnnOp406Uc
YB25vKcitgnW5jpt05zHAY3vT7zHTzeD0/GQF0d+4sD5yC1ZL47ygDfcMffS
RzaU9ET32alR4NZTaJ/3kg3r3HT9UuMoCMst2s7tYkOIuvb0M/kWKLwzx31L
HRuysxvPUkEtUGEWP1ZSzobalerT8KEFnszy81mWy4ZiPzW/suOtsPDiyYnY
NDakFza+u9bbCksr72l9ucUGr19bT6jtawPvfCWJgmA2SLoHN7BQGxy42nbT
9wwb7iQLjYo3tUM3z2hi6Qk2TKa+TSjKbocZHiN9rYfYYNBi8/aqcgekzev5
1GnFBv+vx63TIjvAss1qhNrGhj/fqyXXfu2Ac0v/8qpbz4ZQfsSkSUAn8PSf
G5UtZ4PndxvLsNed0GjelPFNmQ2Lhyuvd9t3galOWMlmGTY0cgdagqgueFOh
IeX/lQW7A7NltEy6wfjarzMyx1jw4HeuYUZuN0gvGo3XELJgWisxwEezBxb2
WWuntrNgRb1SillMDxRoreydw2WBpYtJq5dcLzhfVWi+WsaCLdwFH5Mv9ELZ
jLnTL3NZIHPEfHbySC/0p1wWxaezoGNEY8ObY30gf9vv6W93WOBrmmOxk+oD
9uEftuNhLJCKEbr+a9kPVm/C5yYEseD8fP8L3qgf9ArcBZE+LKhwenLp3doB
aM+L23jqOAu+ZsZFV2cNgKzcbR27A8znFa6OyFIehKcOoolVliyY+Hfh5f0h
g/C5f8JlpzELBlYXXt47NQg17zVGfHRYEKPz1fuQJx+i179dcXE5C8IluEZW
Q3x4Ux/7k/4CFhQv6Q75Z/kLsIzyao3L5YBCwvH2/dl88GDfsetczAITqWoN
+zccMHmsqbnjGQcolzz1g+F80K3R5mmps+C3RqVwmxo+2H+IrQxdxIJZ58tP
Z1MccNKMM1V7zoGCuvaarnN8UFiRfLRVgwVr9IzWtRTzIXKule/aX1jg5T4m
aOrgQ/4FJ4v+hSx4VWCgwmNz4PJHU19Z5u8149twooofHxozdxplL2PBEjdr
ScWnfOgcvtgvydzPIVGySKGZD97v5C7kqzDf54Y+hagBPpgbRi+RZs7rtfk4
KiznQMf2z5FXmPNU4/x+2uzDh/AZfXnzmO8jbrrLS+8xH+qbf1PxZs5r1YtQ
06nnw+Qi5buqzL/nQ6Prudwe5vWJ5Tr+zHkSSfuyvAV8CJXvUkhlvr/9am0d
3qUcGB/ISSlnzu90NjDcdZIPhkYfR3Yw5+9vSE4zfcTcZ8bVTenM+dE/bH4H
Lh9uR7g/sWHOz0vUzv1PFx9qitS2ZDPnV7gv6L3IZ75/mqPcxpxv3hR52lHE
B63ntdKezDPu2Q+D3vzJQhHCPWtdy3XPKhUh3DNV2dS3KRUihHumsHD2TOsq
EcI9S8ycJ37JESHcM//UzRncWhHCPetdP8PUpUGEcM+yql5MWvBECPesR+hw
bF6bCOGeecmMTcR1ihDumUdPc7FLrwjhnvXZa+0ZHRAh3LPmk2mjjgIRwj3T
q7/RrTQkQrhnTbNjasJfiRDu2Yvu/Vamb0QI9+zLUWPO0LgI4Z5t+kP1+I5/
RQj37MIMV9bopAjhnqm7ufGtp5jv6/89S1VKUJz8LkK4Z3Iq5f1hkmKEe9bi
0nCue6YY4Z7p7vVz8pYWI9yzla+rs5CcGOGeVf6oS51WECPcswNzfJZdURQj
3DPLb0tmsJXFCPfsQ2Bbk8UiMcI9+/eDvH7RYjHCPTt4bnBsaKkY4Z6Ntp/t
s1suRrhnXc4GyRErxQj3TPxn9eRjbTHCPTsW5d0qv1aMcM+m/jFw19UVI9yz
5kzjkZgNYoR7ds7MOKXMQIxwz5460i7Nm8UI9yyTLzqtsVWMcM8MfEzCDE3E
CPdsvkyqfbSZGOGeJcW7a7bsECPcM78EB173LjHCPXNl9d1S28N83v97FuSz
M017rxjhnr1qZIcs+12McM8Ka88K7Q+KEe4Z+5P577aHxAj37GRL7+FsRzHC
PWu/t+Jhc7EI4Z5Fzu+rmXYQI9yzg4tK2oRFIoR7ltQ6obWK+T3u2a1a1bVt
h8UI90yhXLXRm3k97plwy6JqxHw+7tlPJm8lPJnX455tcfP4bStzH9yzWWHj
VeuZ9+OebTg8FnWDeT/uma5s+tAG5v24Z3KW37dKM+/HPVMudrT1Z55xz55t
CN6sxJyHexYaIvPelzkP9yxgb+7BRcx5uGcPv08VvWWecc9eHGmh7JjzcM+k
rsr2RDLPuGc5kbZnpJjzcc/sN5plODPn457F/kQryDPn4Z6Zpj/wo5ln3LPC
OMPo3cx5uGfyVjbxl5ln3DNHu2jVJOYZ9+zs3aieGfFC4rPhhjWdC/8WEp8l
3M3OS7whJD47Maz4d2CokPhsS6cvx+mSkPjMmWvr/fSskPgsIHvvTUc/IfGZ
rNKJx15eQuKzBpmFUVdchMRnXvtKIycdhcRn32TU/apthcRnN5tWe05YC4nP
fjEqUtSxFBKftVoMp5SaCInPduTofMjaLCQ+EwumrfrWC4nPArpbbeevEhKf
rVhm9HPBMiHxWaWVDCdSVUh8FrJRb7BZUUh8ls+7EmMqKyQ+M0ZPHxdIConP
qqV3D0Z+ERCfOcwe1Q1/JyA+u3d4quTtsID4rLjdtNOGLyA+m446YoY6BMRn
zuoHqpIaBcRnxywUrfzYAuKzz1IvP+uWCojP7i9xv3EkT0B8Fv1UXeyWKSA+
KwiZ4nUlCIjPrsfarloTLSA+sxO9ztULFhCfbVsQN5ESKCA+WzV6+srfngLi
s59FNXkDjgLisyGzty0DNgLis5TzS44rbhcQn91zu/8uRE9AfJb/e6VNnYaA
+EwiRUPaYK6A+My9cZfbrWma+Oz8gjrzkhGa+MzDtsdZu50mPuvTGTtjX0ET
n0XmT7+XSKWJz2Ce2kPrIJr4TP6HcfyaLTTxmUqo6p9z7ghhZI775ZbKQTC8
XlQ4nEtDaa7dZPt6PvRuyqt0iaKJ3zpdw5fpHKOJ3zy+JT7/K1YI45LwY176
IDh+CmRZFtFQ/0aqXHEBHx7LKnR/iKWJ77aX7Lu+4BQNoiVRP271D8LWwg8i
7Qc0PDj1aH38Hj7Q8zg7NofSxH/XqjZ1PbKhif/mBIZ67IgTwoeg1aB3exCW
l5z9tbeUhgPyR1LWS/Ohebr3kXQSTXxYI4jVcgqg4WXceXjWNAjsC/MNlHNo
0ImWUCoGpj9ZZ96Kwmnix80PSkLs7GkY/x4W1B7Ph5yrOVkuJ2jiycCU594t
FjTxZKfa1Uf3mfsElGg4sW8MgsTac2l3y2hQSQ5X2C7Jh5LBV/bSyTTxZlWy
nPbxszR4tPk6ba8ZhOJ/av6QfELDxyVrrlUb8iHkjPZrrQiaeNRz311HB0ca
aN27e5Rv8eHEqdqsBi+a+NTinZ/n6900GP/49fCtSj7smh7NXHqAJl5dJ7vY
0NKEJl4NpO9z2pj7FnYs9pUNG4R0UUlyUDkNUy5qtdzvg1D+pCBEKoUmno3R
v+bUe46Gh++9fP9iD8KfN4P3TjD37Rxibd2zkQ8bLSz+3hlJE+/KdI1r7D5K
g329ZsnGSD58YY1HBnjTxL/vAvboH9hDQ2HCsxf5ZXwYlrMuMj1IEw8rN13K
WGxGEw8XHJIOtdlKEw/fiFa3GWXu3+6qenbdtUFQUbuVO8Lc/81Oz0z5b4Ow
+3q/XwhzfzxfsunbarHnaeBe8TibWzUIGnstnp1i/n/X1smr/r2BDyJZ/ckO
5v54/lxnvRvf6kSDUvzIqMUNPvTc+cV5hw9NfM3rkvW+ak3DabfAL1WlfBhJ
j2yztqOJt09ulysPMqeJt80emP2H2kYTbzt8KONwjGji7YqMevmaNVzi7W/0
HlV/cy7xtmGGc6nXUS7x9nf/onWfArnE23kl29323+QSbyuOP2LNz+ESb9f4
V2504nCJt09VuVav5HOJt71H7m/jTXGJtz/ULzX5pFRHvJ396kpe+fo64m3H
3n3NX63qiLfXaK7RUvaoI97e+8Xl69i1OuLtqydMczZn1BFvy/4lxRitjni7
Pq/ol1C6jnh7ZrjSQZnpOuLtjIE+91S1euLtqC2GU7Fb64m3u1q+a9Y61RNv
Z883fTEruJ54O/Rt95eUjHribZ2+A0/za+qJt1UyFsaojtQTb7P/M7HotlwD
8XZa9w239vUNxNuKN/P93A82EG+rfi0xlb/cQLxd8tnj5uyHDcTbs5I8dh3m
NRBvO++/JNz8tYF4u1Vy4Qb/FY3E28FlOXXqexuJt41DbMtnXWkk3r5X8jD5
UF4j8faYy1a/CGEj8faF0KESB+Um4u2ZklarHXY1EW9rrooYCwttIt5eGOSb
z6psIt7uZf2s/0SymXg7Pjlo/5edzcTbkvyegZvRzcTbRcX9Th8FzcTbU2V3
h1cb8oi31+yzvOsbzyPe3vBrSIe7NEW83exm7tlgQxFv69+YFTGHooi3N0nE
X4ox5CI8n8o+rbqn18JDeD4lqmgap2tTxONplb4BsqEU8fhntcT7OXpchOeT
9oYVPnnPeQjPp0l/V5kQFYp4vX7RwBMjDwrh+XQfDETa73gIz6co16nVk0YU
8bzpz/PklLMo4nlHw3GqRIeL8Hyarb+swyOLh/B8yr9R72Y3lyLeZ7044JFz
mEJ4Pt3SeJ50keYhPJ/ubo0dvKdHkX2g12hewT8xFMLz6XPo6lPpZyiyHxzb
s4iuLqXIfmAa+61x2zouwvMpyVF9wjmVh/B8GqzP+9leniL7Q6O154kHthTC
84ml/TKzoZuH8HzakbJ2aME6iuwXQUO7JAojKITn06XH731aTlFk3+BkJ7+M
yaMQnk9lEQ/9tJMpsn+M/2G5q5tDkf2jMtrHNXgtF+H5pBSsITGcxEN4PnWu
+6XgiCxF9pOVSwOnnu+nEJ5PWa2Tut/aeQjPJ+H3ibie1RTZX7b03jvTHkYh
PJ8cZqanXT5JkX3GJ3Vob9UjCuH5dOm02FoUT5H9ZvlYcIBOJUX2m+F232d1
dRTZb053XjLQZO6P55NhQlXFqkQewvOp9EJtx3EZiuw/0zUOF7ftoxCeT8rU
aO6CNh7C8+m6v0pTxSqK7EcmUmk9b65RCM+npKO7Jvo8KbIv5XV7CdyyKYTn
U5D5CcWGWIrsT2elvMz+KKfI/lRr9GVbbQ1F9qeETFk9QSOF/gvLoTpq
       
       "], {{{}, {}, {}, {}, {}, {}, {
          EdgeForm[], 
          Directive[
           RGBColor[1, 0.6666666666666666, 
            NCache[
             Rational[1, 3], 0.3333333333333333]], 
           Opacity[0.45]], 
          GraphicsGroupBox[{
            PolygonBox[CompressedData["
1:eJzt0uV3FmQcBuCXbrbRjByM0Q2jczBggwGjG0bXSMUiTEIJE5TutiWUNsAA
pTHpFgQUEETleg/8FZx9uM79/M55Pt3njkgakZicOhAIpGUjqWhGI+pSk+pU
JfgvzcO/6UhPBjKSicxkISvZyE4IoYSRg5zkIjd5yEs+8hNOAQpSiMIUoSgR
FKM4kZQgipKUojRlKEs5ylOBilSiMs1pTD1qEU01WhBDfWpTgzia0IA6xNOU
hrQkllZU4btgJ4q7HexHXpa3gn15n5AX+SvwoNyj4hI3g6f7N3meG/zHDxzn
An/yP4f4mTP8wT98yxF+5RzX+ZfvOchPnOYqd/mGw/zCWa5xj30c4EdOcYU7
fM0edvMVX/IFn7OLnexgO9vYyhY+41M2synwYFMb+ISP+YgP+YD3eY93Wc86
1rKG1axiJStYzjKWsoTFLGIhC5jPPPayn2Oc5Hf+Zm4gZdsp2350t53AG8xg
Ki/yHJNoTRvakkg72tOBjnSiM13oSje604Oe9KI3fUiiL/3ozwAGMojBDGEo
wxhOMiMYyShGM4axPMbjjOMJnuQpnuYZxjOBN5nJNF7ieZ7lLWbxMpN5gdm8
yitMYQ6vMZ23eZ13mEi0jSbTh+F0oDfDiKMdPRlCI9rTi6E0py3dGURtWpBI
DwZTn6Yk0IX+VKchzWhDNwZSi3o0oRWd6Uc1GhBLa7oygJrUJYaWdKIvValC
ZSpRkQqUpxxlKUNpSlGSKEoQSXGKEUFRilCYQhSkAOHkJx95yUNucpGTHIQR
SgjZyUZWspCZTGQkA+mpQR0aE09HkkiXKmXbKdt+dLd9HwpRMg8=
             
             "]]}]}, {}, {}, {}}}], {}}, {{{{}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[1, 0, 0], 
          AbsoluteThickness[1]], 
         LineBox[CompressedData["
1:eJwVkHs41Gkbx1u1xksXORSF3XJIlFK73mZSfWlTTsuVbSmrg0NlVaJaDTsS
yrGc0hslp1VSaR2m5DQPM2atTbtRZK2m5ze/QVNitFHbyr6zf9zXfX3+uL+H
e0nwEd99GrNmzQpRz7/buks/taBASYqFrm/sDRWY9/XoobwLSnJjqjhzwkCB
6ac/bcvKUZI9X/Gs7qi5Z/x70zNpSiI6au2yXs2nDIdvR8YoSdnDDhcPfQUG
Ahp7t+5UkjD7Hbv26SmQrQy2nDJRku7p21MXddR6mkKRb/5zUiHfFjM2W4EH
2s/GDySMkKTKMM25f7IYr9/67J1gmKR3r/loTM5CZcIpvRo3RKJW/Hy6o4fF
6CafXbfDFMS81HVHfysL3oLeJ2v2s6SjyvhwzY8sTtWyXobecuLfac4tLmRx
TcM9T8+JIX7/jCv3pLEwn35ZkLKOEnGqx/sX0SzM4lZ9Xu8mI97RoaM+wSxK
tmvU+LkMkhRH3YwYbxbM+cQe+80DRPC8Oz98HQuTfUbKZtN+Mr+7adlzSxYT
qUsEX5j0Ed+rUx8sdFmQjc5zEpWPSBe/LvTKpByegXNXv2vvJkzWNP/UoBwT
+RXC++m/kfA/baq02+XgXtk5scDxPskfkWk4XZejbYuGzTbbDnLISjQyfFaO
/xr9uuXvn8REI+7JiazDcngFK/fYvm4mHEFnTZOXHLXDllbrXghJiSdWKZfL
IdvnHvN1+HUSujQhNuRjOTqWepoN+WSTpo0Pvd48ZXBjjpesyyILhaMVlTp1
DHQ0yfYCw0qUhYzZDMcx+MWz/IP19krUakFbT83pOWnXavMqMWgbumutgIGW
+fZ39+ffwNHa//gmxzLQ/Fx5ecb4JmSzP/U3P8FgVrAhG2JWBT4P/SsjGbyX
1XEv5lbjUpTvyidBDAYSlp57WlsNfaZw+OVeBg1WBYzlo2qUXogc+WcPA374
yfRqwxoMHY9utt7N4O2k22BnXg0WmuumhAUweDNXFj/9v1pEDU1adPoyGF+n
1RF0WQh0la9QbmJQ3W5bGCgSIu5SSMwDFwaR3p5R/owQt/qMyqudGaiCMk2/
tLmD6Oeuycc2MnidahTJrbsDrsru05c8tX7f4oV69+/i0Uehx4scGPx1lHew
+f09KKTKd2/NGDROBzjXmzcg82SqW7Upg9hkwfxa5wb8kcMM7V+k7ltASEVy
AypeOap+NWYw3epqdN6gEX4uGSlpBgxmdH1bvrVrgld8rkcZh8Hsm+F6xgEt
4LeUh1qoKNx2u4RHCFqQ/Thq/+UxirP6JlJpUQuGr67O1X9FYcSXxh5nW/CN
qtNuUkmx1HXxcPchEdJ2rsm/yFJ4POttPhtPMMp7PcPto8jMvWWsKCVIOKH3
meAxxSPXpKNO7QRW6/u9m3ooVvqZGH03pxUGbg+7VvxGUd8s7bR0b0VlaVjS
7x0UnWmLHRN6WmFtFHmMd4/iEJshv8W2wkvV94PdXQrdDW+z+t+0QufYueXz
hRS+qgcvVhm3IUzAcen9kWLA7/sS2TdtuGb7Q85f1ygE1cNfah9uQ7g0uLiq
nOITbd+/HU+24cyRJck7yihCWpb5nStpg+uuZJucKxSjln0664faEGgvKos/
r+4T59JwYKoNtx9HpA9mUzg8ubX/PEeM1Pi1ouWZFN+lJ7W9sBXDSHui6Eoq
hYliLGKBkxinTwkDRGcoGjcEmG3yEsOnIpf/IJFiRuVwoiBCDJX+0IUaAUWJ
R6GVNF4Mh/zqpKQYik3lnB5VthiBk91FG6IpUvxlK9zqxChKtOAHHaGwq3Ef
ONYuRuTH6b3SgxRd2ndSinvF2FqXGsEJo5gnypBPvRVDwcnV0d9LYb7B8PF7
jgQBY+X6CwPV982XpDPGEpRojRwc96fgOlnUayyTwP+4dPPZryhcGyuva3Il
WLx1XsyQt/q/vNWXtN0kcL554PQrd4q99+5l6O6QYNHUh6qczRSH1zrHGYRJ
ELTTXnh3I0Xs3Y6IBXwJikf/MFnDVed39Nm7KFXt/0GrqNGBIk/Yt+2TfAm+
1T2X0mRDUfrZ7i8srkvAi7+QmGVKsaXgl7WvhRJYthoaT8ym+D8g/i87
          "]]}, {}, {
        
         Directive[
          Opacity[1.], 
          RGBColor[1, 0, 0], 
          AbsoluteThickness[3]], 
         LineBox[CompressedData["
1:eJwVlHs4lHkUxy3TKslt5U7atFREKkpyUrlFURtloiIsskxCUkkTrZWQW7mU
W41rU4td13l/ZsJoxsz7TqJCmHkbTLtl7WpTye7sH+c5z3mezznn89d3dXDM
oVBFBQWF0/L6v7/0TkmaaybRjHTwwpMdIkg+Fn91ppFEFkeoXvt1RdAfe6JA
yiRRs1+XysInAvQzPKpH6kikUFihnTVFQFjF5jYRg0THwPGi8DkBTa3GfG4l
iaYchfg2HgEKhPIr1l0SYWr3jAwxAg5Mzb5rKibR2+iGTVpNBJQsjijUFZLI
YUxrxUQNAdMre7XKc0lUbj0+TC0jwM7qkVlhFonQGnM8pJAA4liqO/0aiZgW
344/TSPA+Gw0NZFOotfMD416yQREZhyNik6W+9acymUmEEBps8yhJpAoWsn+
TU04Adt1Bp/bhpHo9gG/3TbeBNT51Po/DSJRut6AZ7c7AUbXL42cCZTzJ1Fb
6m4CFv9dO/7oMInaylPfX7IjgCNLmNy4h0Q2TaFzKqYE7GPpvV9vSqLYhNQm
jT9x6PjwRwLPkETjzguNvEkcLG3Z8xG6JKrm9OjXvMJBrTpioUaNRPBlsy+X
j8NATruS+RcJys9L0YurxSEgJEBrzbAE7dXRULsfgYPgrk0+Z1CC/G8czVEP
xsHpJUUnWCRB7cl08ywqDqYHHuhX9EmQbDRuX48nDlL7RdNVLRJkvY3LU7XG
IXp5ubVhvgQ9zFuXe2deCCmNpNc3ByTI7XV6WXyBELrcvnLiekjQD+hIfHu2
EL56ZWJ9wUWCfuzQK1iaIQS6MlWTdJSg/lM7VbuShZAWQAw2bpCgnaMPsm6F
CyHja9bxQ8vk/5373j3ZKYQ8aiHtZrcYPbh6+kbMWwEwFD3y1XeIUZ9SK3dD
oAAys07ErbAXI56tm5ujvwBiDRIOL98sRrGBbdt9fAXgZFulrbxBjERn1f3o
+wUwGPQlf9FAjAJy9a+rOQmAwv6l4O2nCcRSGXHqWiWA4MsGt/jtE4hWslHF
X9oPxgu/F/3kMIEYVSM3zBP7weiS9ZYW9zEUH8lzUWfwofyw4i9+zqNo+fob
9eRHHojz6E+t9g6jezScFhPEA71QbVmn4QvEEvs2GPCewGz66ot79IZQovDC
h/NuTwA57aLQZQMok+9bdfBxH3gGqG6a7xYho03cqXyPPpi9Xd3Mz8DRyjYn
77VjXNh2x39WZysfxWQUU4NjuMB2VTQ/uI6LBgc04jiqXLDTFrp+7uWgo1K+
MInRC17BshPr/upEioz0oS2uvdA4ucbM4U0zkk7QXNpmemAs1OO8b2QNsvjb
Vn9XQQ9wv/M0knrnoOx//nxTtKcH6iheY/3fZkND2Fzv5/fdsPxrdLjom1rA
O/b7eNzrhhmHpdygkmawLXzI2k7tBqX6SHVdKgtsFX/mWah2gwZ2XfLPBw7k
qtqfu8V+DAFXTu/9e74XFCefvu2+9BhYphadl334kDSuqbOw9TEMG7xzMD6O
Q+P6GHr6HAewSsvW+/UiCMx+5oh+5YABg3iVOjAAeNEkrnWWA8/8Pl6LGhqE
ynNDPRZ2HCiK19hRSnkBUUcozfHv2dDp3BD7bMUwtGYvujm2s2E1o3jJoOoo
xBf9yN5xhQ03E89VGduPwaph9qf0vWywuRgVbG8yAXHfmyybVGWD0dn8+at2
Yhg+43KwVtQF634L7Wz2kIDOyluStNtdIPX+yI7YR0Jf3csR3ZAuYJhSBJyT
r6GPqbXP3LILdN1F+uUhUrCxSXC+PIugtsMtP+jUJFgekuRYZyHYFbZVm3tu
Crzi2aXKZgiu/SAdfHR+GlI8K7ZEcDDQ02cm2iRPwxY+LaS1C4N6XoLhI/o0
TNtOM5URBoTV0qCH16ehtJGVx+jAwGBu/R8P7kzDQlJmqbQZA2YKTbGePQ3a
S5dUh1djMFT0eeP9ZTJo0Px0hZ6JQbhnt8hMTQZEcsniswwMPi9kxt3TkoFR
3fEC858xMD1p0l5lKINR1nZNQRoGkd85u1RaySCqBnfWv4zBYuO1Y2UH5XzM
a/pvZzDICfFeNPGTwUWnX8tUaBis0dGruEuV7/uEDR2PxsD9fO3knVNynuJ/
U/k0BrnQf6Y0XgZeruo7qSEYmM3maxslyf24NIuHwRi0VAa2lCTL5LmXa0UJ
wmB0ycxC8U/yuZaSxgzEILqlpcwgUwY59fufKwVgoBCRsrs4Rwb9dNc9/lT5
fQMPqX6B3Nfy9z7mUQzW9mumFxXJ4AXDPpxyBIP/AAhZdIQ=
          "]]}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[1, 0, 0], 
          Dashing[{Small, Small}], 
          AbsoluteThickness[1]], 
         LineBox[CompressedData["
1:eJwVj3s8lPkCxiVRlCJyCUnlLpWQ2jysQ7lWVmpVKqJQkqJWulERti3XXHIo
GwabmHLJ9DMzZEs65p1xN+8081LRZemUSqXT+eP5PH99P8/3WRx02DdEXk5O
7sSP/L/7Np2Ne89myArjmvPPnQQ4vSMm8Z8ahhgi/2ZpiABPondnDf/FkLm3
9Z8mJAigk+JeOsBiSJr4cmNctgChxTYNglsMKZrD9m+5JUBtvX572w2GjPN9
NYbYAsh1Kok5hQwpGFv8PJUrgM+L8be1eQxZ52n3zaBDgPypATlW9o+9h/t3
DPQI8FLzoXpROkMG5GtEo1IB7Kyql2ZfZgjvnrxtxCsBOnec35hwkSGPl3dM
qH0TQP9oZMCJBIY8iLIo8p9BITxl+8HI0ww5jkRPzzkUFBosrwTEMiT60IeV
oXoUHBZ09awKZYi30f3Ps9ZQYG0u/5Xay5D9uzbGzwYFvdRTA0d2McR6cQxL
5kph6vsySbUfQyznLu5Z8AsF3kjs8+UuDNm0/nr4cAQFD472B3NDhrySSG1u
XKNw/+Pr2McLGeI1z5k/eJ2C5SrupzAthsSHb7o94yYF1dKwr2WqP3id3HPL
qigIrzRON/kmI9Kvz1r+aqawc99O9SX9MnJjuLli+zCFjsIVmbwuGXldeGBa
0wgFxz6FBUECGfHl/rxL8y0FQ58qneK/ZYS1ucSrYoLCsP2U4aI6GakTlflH
KAkRqVJkvTBTRs4MRVQdMhHibA3jNd9HRorbnLpvBgnRvGGaY5u7jEQknvfW
CRVimtjA+qSrjMypOrwiJUyIBKUANeYnGcnxDEsLjBLiws7OrhoLGanRu8ET
nhIiRZET6DtLRkreapV+zxEiIyA76mqLlBhSFQ38R0LcknfPnLtOSmTt5wM3
LBMh7fLuY3PspeTuqHtnp4kI0bqxfio2UrLyjvW17eYiOK66qaFkISXZ/srr
gq1F6Nr7LXNKV0rmNVg4hjiIoMC9k/Vm8hmpsh+6ushbhKAzujntjc/I0xSV
qAtHRdD/+io3ae0zojfCCahtEkHvlPXquo00uc5Kz/vg04UiP/k7/s6DJPDJ
LvP6J12QZiRQVv/qJ2YutpbznLuhHaIx0rSwl4Q5FEaShm6MJy+Od9HuJhl5
WQZ5xj0gjk4KCSNCovlh+cmG3B547py98lOLgBhp7KsWzOzF+LVSdnvKf4jG
pS0aMYd7seb6r+MLbNuJSr0tE0P3gusmb7LFrI1U6zTNjnTrg53GU7cvD3mE
J7EgTvV98Aoa2W32ronsOxe2QcW8HzXPlyxdO8ompGWW5tvsftAh7r9tDS8j
Wop/atipDaDN2FNveNMVwhaaJL1IHgBLwYt+YvQHhkisJGnGIFQUiV/u/HK4
maw3qLw2iMeeJd+W+ZVjXFQaP5Y3iJSrl27VZJajoOfPl7bXBzFT3+9TuyYL
JSO14/ziQSiuHsmf0qqAmfuL6W9Yg5ALms8E61UhVeKnH8MZxCRduyYnvRoB
Cu+2RjKD+GftzLa9+WwMHFhEV9mIUd1iVrDzARt16dPyEu3EiPLxPLJNykZS
QUXSDgcxxvZeXuhtchdyX06rq0OMd8kaUWtq78LxF6uSPA8x3ncb6sxtv4d3
n2p1DIPE+BztENE0WY9kMem3zxCj8WuAU51+AxK3qW8JzhYj7mK8Zo1TA64q
euim54oxmUtI6cUGFN7O6f38bzG+NrtqZKg3Qr5jIv6/lWJMqfpywszvo0Xn
89aCNjGmV4TP1QrgILyz5oWLHI2Ngc7hkfEcbOZWf385nUaamnZrayEHZ/OD
azOUaGicaI07xnCg+Pdv+ydVaRi7Gj4XHHwAYwYZ8wxoeEi6mtLOEKh+NGg7
u57G5fRKraFigpRon9grzjSEronR61oIQqaU3cpcaSz319aIUWjGhvQY03Fv
GnVNrY+WuDdjLRVd9zaQxqNLhrbnqGYcN70i6EugcZBJlVUyzRDHpSSnJdFQ
Xf/xj973zYjfoHbOK42G71jHqLUWF1ZUrt1EFo1+/5NF9A4uVhWY58qxaMRX
P/dWPsRFNsdLy+o2DQNl3y+2p7nozCfCCDaNYI6p/+9FXOhqimKWEBqvl3Sr
/DTMhZpp+u85XT/+nHJu2D/BxVJ/Xv+RARoreipDM5R4yBq1ObtfSiMmJZE7
asbDAi1LVsUbGlNjK47nRvLg0WPSRylJUORRsLT1DA8fty0r5KlK8HOJEjV2
hYfQauXPUk0JkrbRlhtreTBefWEtd6kE8x6kyiY+8hBsd87ltqsE+uvniyaV
+PjUY3Tc1EcC86a81iktPhoVtD8obJNgzTqjOnlTPu4wlw747ZHAtbG8THEN
HxdZA1oW4RL4OqzMU97Ih82+TpWSYxLsqa9PVd3Ox+wWxXtDZyQ4ZO90Sv0A
H3v5HblL0iSIu9cWueAEH9GXd9bezf3hZ7tpj24yH0ZDdaetyiXIZHdvMbjG
xxatVcfY9yUotgl0MSrjY3PzUYcskQRuuY/t37H5KKwUsBfJP8P/AGap2k0=

          "]]}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[0, 0, 1], 
          AbsoluteThickness[1]], 
         LineBox[CompressedData["
1:eJwV0ns01ekaB3B2khyOhBi3E44hkUZqDGvNN/dcioxLHKek3DZhROxI7ChE
1GjKpUYkl3SZRqum8KtJVMiUXNrb3r/3t/cWOw66umbOnj/e9azPep71PM96
1msUnuAXwZKTk2PL3t/RtFs9r6xMSmX4fRyJa5RgVcBEXOlZKZVs3PfQXuZF
QcfO4tNSyru5vVxJ5pdT6Xq5+VKKBAqdLzdIkKXx5noiR0rZG9NJ/HoJeCH3
+t2DpZTfs1vOHnUSlEjDTT7rSCnhjoxrxpdl/RSb2/zOj1EZN5Tyui9I0KNM
T0Vlj1JDm7VcRoolmLrjTs9mvKFsTbXVmrkSTOusuFR7ZIQ6saHyWEmKBBNO
Pv+9Hi2hlNtKDq6OkuC7Nf2DNpFiyi7MosUnWLbPLbG3xg4RpZyStN3IU4Ir
LI9SNQeGOrKg/GDaXgKDxfGyE/aEGtcmGtmWEugfsba9s01ItX1TpHtSX4Iq
f9avgY7DVP6jc8uCVCVgfuK+tHLhUXG9/S+Ml8TQidCUtugNUW3L5A09/ifG
uzyjDGedASpeTlFzi0AM6vutClxpHyWkfIL2donhFaryzWz7C0pr1kmc8Lus
/nxdc1dBLyVO5Jl51IthdyH43ZrNXdQKJ1VPm7NiPHRjme1c10k1zktqxFwx
tmg+d1vo+INSL076+nC8GN7h0j3r3rdQu35xFjwPFuPWG5N/279tptrzSmrf
uoohjPDgBLDrqRYvxqfKWozOr730R3xKKB1pg9dqXTEaFbyF3cbFuLUnqcNS
QYx/KFL+ZRoNWFEPb864CFP2Sp17K5pRkf/RPaFPhGVX2WraIa0YLO3fsv6u
CKvaToo+z/yBZz23VVmVIoRmx7p8mO0AORWf7ZslQuta85ajvl2wkL78OS1M
BJ7upL3B7l6EKqZLW7eK0FZtebf26guo6Y1qhP9LBN0rfwpy+vpQ2rp5XmOW
wavAueNxA/2YmOByf+tlUJayyqFSYQj8ceoe9yKDZ5JJvYcqQwg8bXe99QKD
+R96Fkc0h7BvRNlmtpJBqE1Bm7XpEC4tyI/FVjAwnFrm9Mh1CPeP35/bfp5B
dfTMtrfHh7Bg6LZ68TSDxv8IA+1WvsZzZl/FfA6DFsempFeqPEyM75r3jmGw
Y2Em+U8tHlheox0x0QzoZufUbgMefn92djw3igHLnJ/ebsWDSsTEty0RDLb9
Uzm3ebssH9t4e204g35e1LnSIh7sfopZ6gxhMHnQpMVflY9IV05EjheDLKuE
Nl8tPtamZ27K92SgPnrvgbcBH0/l60yKPBjYhvg9drHio7C/a+8ZdwbpW7Of
227nI0OwU/uMMwMlVZpoFvEht2EmcL8DA6Mr5cv7VYbB6jUOcrRgwP5qtXmm
1jDUffTDVNcxaC7M9zQzHMaAGXtu0Ey278G0Yo71MNjZZU+jTRkkbA38ytBv
GDd/c/NLW8ugladuFXVuGPuvOFh7rmEQrJbvP2ckQNPtwOICOdk9uXKp1RYC
mEuqavT/Ipj4lFrmtUmAxoDM8KYvBFnDkcILLgKMhjk1t88T1DW4RDtFCWDq
9TR88CPBJ2e5jJNNApwxNk3mjBGcTkutMfhWiKwPLBO7HoKSpcVRGwjBW8rq
yOqSOYdruc1diEiXjq2PnxKcKim6nRQkhHfURWfHDoKC+prOzlQhLHX3zshT
BDlDveM/3hVCtG+y59gNgmO7AzaeeCDExnztxLRrBFwJL7nyiRD7m7ysI68S
ZE+PfOkYEmLAJGB6fR1BptKimv6cEJJ3nNdBFwnS7MxtO76j8aaosLK/gCC1
7Voa35GGmcK44YY8gkMum1qnPWiIPlWR1FyCFN/v3fRCaDxxM1zPP0qQPPCo
YGM4DU5h1YH3GTKHevS6sml8/DVv12cOQVK0/67EwzSCltv1tR4k+HHydWUu
VzZPqbb2SCJBYvIepryAhsaiTaHxAYKELDb7cTkN18P6fqsiCeIVp6/zqml8
OWNq7xcuc2HKh6lGGmPBN2fZuwnizmdl6N6nYXGoW3NlIEGsoeJD60c05h9w
4jN3ErAvn1zu2kUjLFh9Q4O3zBbqniF9NPT+Ih4cd4KYmz+fSuDTOHAzdmnQ
kSB6i35fjpiGX8urlTUOMrdc0i4fp0HGHGOqbQminMxCb3ygoZ1wXDXekiDy
SVNV+wKNrqM9LA1jAhuzsvcT8gQVhxRj09Rl/2dwXcUUi+COiuNm3xUE/wf0
4mki
          "]]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         LineBox[CompressedData["
1:eJwVzXs4lAkbBnCppJYkh0SUQ4lN+iSRtkdyTrKSsNImxQ7lHGXUsMohotOW
026EkG03S1uWeZyJd2ZepzAz5iWHabAZuiyKvp3947nu6/fHfT/afiFu56Wl
pKRokvsvtxOKyVlZInROP/PSkom44eRU8P0HIsyU/6GPQMSlwZZvM+6IkLzG
V/CtR+yajtW4kSJCU5pCK6MJkaE0/jz0igh9FNYeb21H5HpX99p7ibCQHdTm
2YeYKfLT/UdNhDZlW6+miyV7MpVMt0fvsdhN4PaLYh2y1lHTAfFCNLMo9zvo
WIfTf9pTC/RxbIstNFtxrQ7Famvyi+LGkO6R6Z9RUYdT1sdPPw8cxVA1ZmHS
VB1aqPb2mVwYweqMUwl3deuRUTHirOTyDsMP7v/G+ft6LJZ2vK9gOYyFOr3h
6/PqUXNpMivpwBBO/c7QZb2txy1xxqZ/OgjwsSMhW6TagI/dpV94HOZjlHSB
f9SJBhy+l9BlZMNFYVfp13aZDah2XllUo9GPBSuWP5V3N+BMsjb9iNpbfLde
pLOo1Ih4yGpVgqgbtyk2qDh/14hHfeT+t9DUibZ75sYUnzTizKOnlR2pHJQ7
9rC7XNiI5nleM6r7OpAuSzjJmjZhvZ20/rcGrTi7/eKIdVwTmimz7T63NKB7
j9nAe3YTOvuJzhjM1qD5vdnlB9rNWDGuq3dgohKT/mbyd4Q1o+C845WTtBIs
GY7d69rejK07jm4ZO56J+4O9bJK3tWDZKmcBoZMBnDv7vbRiWvArGXTPUiqF
uFBp6yluC04fkG09m1MJuyZ2n1C2bMWVz2gKm7xr4Zvasod6Ja24gXnr3T/z
DRA+YHDwjVob+sQH2XxcaAG1XruLGUltWLttZ8111w4QB1VtmpZ5g1z1Dwc0
fTlgOK/MGrjxBpkFu14VPesEn0J/Xcev2lG9mBxM7O4GB3XD1PiSduzxWLwZ
/LYXhD5zgSudOjAraoNl7qp+2HV2RXLLegLbRz9o1Mv1A3RoVXMVCfx0grU0
ptwP8rG9ZWJlAn1MUpnG2/tBRWexS1uDQK3pldaNtv1QPrcxLUufwILAeYeJ
mxLff28wbEVg2XcCD/O1A+CXErZaGElgzeHy8B55Lkx8n5eSN0Kgy+f5SFKF
Cxmj504ZCgmkKo9EE5pcqBwrbXo9QaD0Tl5skxEXaPTj94ZmCHRYv+5G5TEu
/HH2VK6LFAt7uQEP76dz4VWj95UXmiz8EKFb4y7PA6nPGoPozUKGUQjTVYUH
m/XWFJX7slBRWF3nrMmDiLXnR3P9WGjq7dZsY8SDwOrOySQaC2Ot4tmmx3hQ
kv1aJeUqC2XlqSHldB5ke+ptssphoXZx9upeOT7c7olSJSgW0jZv3HlNhQ8n
ezJmc0ZZWJmW4qSvxQerMM/0MBELHSJiMq4Y80G8Lsd590cWhlh5bNZy4wP3
8LiBWIaNtVxFo4CHfFgbvfFliTEbvRRS3Be1B2HConjf05tsLEiQii4wHIRP
1+NGfdPYODUXnXV07yDMvF4j2nqXjQz+BUGezSAsp83nM/PY+LTUJtA6YBBW
jfKEEVVsnDsiRb9VPgguN4MLJsfZeCcm+onmfgH8ZD03Lj7BwcwvS0ITEICJ
yrIn21vixIRdDvYC+P8XYUjNWQ7ezkyvCj8lgAsRSf5ECAdTS560tkYLQPiU
/uBNGgcT+zmTYa8EsDHe3rKhnYM/+p7ck1QnAO5kQcV0FwcTRrmRuW0CWHem
q8qcx8F48dhyS78AIL78hfYUB6/JLilsWRRAYmGazOs1JMaY7zRtsaAgPjiA
UbubxGjmrzG8wxR8uV4WK2dK4mWbvbViRwpScg8txFiQGOV6yE7Dm4KaT0fO
VdiQGPm2MXWPHwXeISD40UliH0eOLY0Cf70QWborieGB7p6hVyn4OW6D0t8+
JIZ9GMi9kSD5d9ns0sVzJIZGnhnOTqVgR6Z6vi6NxBAGjdacTUHDPXsVhxgS
L8mIn3MLKHDz22fbdF3itKiP02UU0Hu2tt1NIjH4EYOu/hcFCznCDI9HJAZp
ydQbN1LgKZPOD8onkVZ4a7VtBwVpvadPqz6T2FDRybubAtVU5vbLVST+8PtP
t0N4FITrl9a8qiMx0GxLd+IIBSUKfUU6LIlr8jdlT0r6L5fGdXkkBljr+/z2
kQKtsoif0yZJvNBW/rjpMwUvk8f+sJbqRBP9rNmpFUOgmhMxEq3diVN9BjnT
0kMguPTFpW1fJ/4L8R+d3w==
          "]]}, {
         Directive[
          Opacity[1.], 
          RGBColor[0, 0, 1], 
          AbsoluteThickness[3]], 
         LineBox[CompressedData["
1:eJwVjXs81fcfx93TalhTdHKNcxwhZqFpepfSZDWXpiGR20I014ZFbqPCOgxz
cEp0GonMbFbh0/e4HJzb55sI5biNzrc2UlbK7ef3x+vx/Ov5fBkGfucRoiAn
Jxe6tv+zKj/8gPNeEj0ddE/N+YwEreOKHpsdSMTwqzfMY5IwGFutqmVDIoWl
dKMkRRJK8o8ibQsSaX90KclgBoP3nVfxNDqJFO3OukSPYKCJfjHX0SXRPET0
HZZgGH7++aTuZhJ57MqQ6+FhKFOdYOt/SKJQhRdKCc0YfBnZbobKJHKmWW9W
r8Oge9B8ndEyRubC8FG/KgzSALLV+D+MKkcs4VApBn/ONjPmFEY7B2RJqZcw
GNx/MG46gtH7uJe5jWkYxgZDSsz6MeIVjNbaJWEI1GxQtuzESOpWF6oVgcHI
2rPFqhWjwozm8aAQDH+7vo+x/mOt1/o8adoPQ0jOwTEbLkYpX7GWfvDAEKow
dO/zHzHyHSzjZO/BwDRIid6bjBE+WiCnb4uBcjBi7ovHqHv5ylyfFYbwxMii
AyEYiTc2VV9hYIh8KR/l4oTRrlXLHsbHGHaq/co44oARUTPHTlPDMGN2ZOSo
DUbKJu2Vs+sxRJ0udnGnY6TyOPyNvDyGWOkOupcyRk4NnrSBUQnMlfzaJLgs
QdzZYx1lFRJQCCgdj0uUoH2qJy6cL5GApmmeml6oBI1XPO6OZ0nA9m5MaJST
BG1iWg3Up0ogachBZ7OcBE3qkx2MwDWf9ijDL16Mztpv8Klmrvllcsfm/EXI
AuHZfx+IgR70+kLpVyLkubJk8+SeGGzNpm8fcBAhLaVPPfuaxOB1X6BSTBOh
nOPYebJaDJwnxffs+4WIqeSSfT5fDAwdi+2ZLkI0t1zHjAwWw26O99wWGwHy
OviHg7OGGKRgNfzMWIC45Y6y4g1iyJxQaf9LU4BispkmL1TEgE2aCn3me9HF
TlL7xrIIwhrVdl/9vRcNyV8Z83whglJ+ewrduhfJ6GqCW3wRLM1ZbNxl2YMG
W9K5zRkiIA4pmLib8lEd8xa1oiKCN/FpEr4WH/EXbXgrCiIw58ol7FXhI8th
03fyq0IoUVztNpvsQoUffBq06a0Qoh4shqtwupD67ctf+zwTgp79f/X3NboQ
aAnOpHYL4byFzJax0IEW7nqcXMgVgq2m+NBiFw8ls6Q7zuoK4Ugg5W/6qgW5
Me4w7b0F0DhtZGz/vAl9w8uzy/qzF6QhhxM9w6tROp4IKt7SC3zGlzpTriyU
ylIe8cvrgVtKR6TC7VegY7t52wcaPbBBBX3N/rgGludypVWsbpi1V+UHlDVB
xTEzq3yDblCsDVfX8mkF/zpuclIdHzTacibevOVBr++h5G2OfPBNO3Pw9UIX
0BPOrTs10QWtBsyWC24CWJXa7H6c0gXDtBl7XT8J6Gfv0bhM74K2SvO/uLUk
WG+pdVQnO4F2E49k9vWB57WSsoyETnh0/F1WxEA/QKzYt4jZCex4jT3lSoPg
GC6OvPqoA1r234559OEwaJc791++2AGGN0uV+zc+BeWZ78reQwfkJ3xfpWsn
hYl0+oz/63awOh8RaKc3Bi0uhOfdunbQiS1cyLAdh6mE6436we1g+mdIS9Ph
CXjKyLXj6rbDlOs7IsxlEgrsa94Ej/DgpoGSiHfqb6i8zZx2ZPNAy5ncWhE8
BROxeUWKJ3hQc/+LwoCgaVh6uDpsrc+Dfd/aaPK/fwZjDZ/MF40SkHV6qr8h
UQbNKs9s/LkEaG+tT7BKkUGnt9/vJ28QUNt7bltDugzoyT1OvlUEYAvVgDs5
MpBEhtV4XyeANr/jnzqODL54cuyMJ4eA+tQohVpCBtYb3va7FREwwF7cyV1P
gerStMk3PxIQ+mUHaaxGwbqfvPZ4ZRKwuJQbd2MTBaxfrIO8MwgwOKV3r2ob
Bfbr1V+eSCMgnLHfqdKCAssLr5YDkglYacw6cc2dgpGdv01HxxPACnZd0TtO
QcH++r1xcQQYbdG+ftWHgn/c8a1zsQQ4J9ZMc4IoeNgWg36IJqAAhNHl8RRw
/VqGsiIJMJ4r1NRJouAVFfHwUgQBzZUnm8tSKOA7GI7mniHgqfLsUmk2BUtt
mbt+DiPgbHPzNVouBR13zJKLQwmQC0t1LGWt/c12DrFPr/Vph6e2FlFQHuzq
wvmWALrwo4tsNgVe8+3iihAC/gegdk64
          "]]}, {}, {
         Directive[
          Opacity[1.], 
          Dashing[{Small, Small}], 
          RGBColor[0, 0, 1], 
          AbsoluteThickness[1]], 
         LineBox[CompressedData["
1:eJwVk3s01fkaxrdtSCOkSAkh1zA5O5VKPcolsY3LyGBMTjqknbJzGSonFBUi
5pRcMpGTNDQ1jRoVfbtvw9bev72Rffn9fkg13RTlNBWns88fz3rXZz3rWet9
37Uem/iU8AQuh8P5QaP/z4ZygU/AGooc/u7BGnsfCmaR2uGmqylSKp5n4hlB
YSCtSc9sKUVshO4H5bspVJYHk7luFMm2WX7x8lEK0RfGM8ztKXK58sDOV3UU
zHtOuFpYUqQhks2tvUBB+dzrkaUpRYLPBk82tlOo0RuuWmBAEd541fncTgqx
DodCbXQokmK14u+pcgqWvq7TFk5JSZSHRWIzTYHZTHXYTUhJaGfzI/5TCnG1
812cHkvJetuIIrsPFKyv3xxypqUk8UXcP/dqyTA4kFDp0iclg4e7hDnTZYg3
uaiz+J6UJNws41yaK8NC3sZ29w4pWVAqujW6QIaRkI+pvMtSssPDWTjhIENC
se/g0jNSwqm9cibVQ4YkruKaV4GU7Mw9PrskWIYdb7SEgX5SYh35rMhrjwxf
GZ514K+Wkub+td3bc2QYdeHTwUulZDjLdOhQvgzCrRWBYfZSwqUT3xaWypDG
LLKP0pGS6LQrQV31MoxVnm3tLpIQ5fjmkfZ7MnA3Vw+l75aQ0r/uLdnSJYOJ
c4mhVZKEPD9szZ96IMOyq6lJQj8JqXXlCw0HZNijWG1hypGQRMnd8l+eafLm
vQc2ZTwg41yX6c76cpjUcL4Zi+shga3DdoUBcthveZtT/XUPmRp5tNqFL8cy
lyctPqt7iLmh0ydRiBxR17t1K8x7iM/v+3vGIuWoVVVcW9knJmG3xWXTE+Rw
sHCzzQ8Uk8ZffXjf58rhWRs9NmdpN/FsDNpi0ioHA3flU7tuUr7nYvXUFTny
h3XvtJl0k6ObZpmNXJVD6th6LOZdF0lZla59jsix7ZKh50+/dRHd6Oa62d1y
VIvu7LPndZHaolf6aUNyTI65zfBY/AcZOWj0vnhGL275cx3DnEWk83Z9dOT3
vVhm8sD/0/3bxDjx5W9jH3vBj38W5zzeTqo/bl4ff7APl54stFv5vJXcUERd
yP/cByZhw+6NgiZyVXzE1zi7HyKHIIvHIWVEiyeY+ceLfvz8BZ8R2x5Fyye/
RWsiH0Jfl0RUzT6HRO29pVGih3i9Uk+0uaYVyUbrRjMWD0C7WWBkFtMBU/Ht
bYWnBjDzRvHwf97fxh4uz6vYQIHYvO2+b/+6j7rUJiNxugId1k7tOaHdOPVl
Lt/7iQJK89GVlpskcJ10XRUbrsSN065tZ5oprNK3DA4jSpg3Sul8uRyntKZH
LFmpQm/kh4PJ/X342CaPf3FJhaqMmatOfjGAGqLYFgA12te2pPYaKFHW+PxK
h0SNrz+9T5eaKmFEr11kJlODbfXJFFsq0ZK3id7VqwbXSbX3rpsSoY9FBi4K
NQIMvyxoDVbiXV3B45ZhNfqUW08cK1Ei3ayeOzahxmjawvYIAxVmVudQ5ZY0
ct1SboSaqvCyNCRonjUN46fXbvItVXBoSd512paGR0z4PV83FXzfdcuvOtLY
6533wCNYhbvx7Tum/kZDz4AdNClRgZcjNVf707BprNbpm6GGYLmPuWUqDcG8
WU77TNVw2fg6yjqDRuuRwkBHKzVM2rYnOGTRCEjLOrp7sRqFinbDVftopHhH
zrMKV8O7LYwcKqLRoTR223pCjew32gFtDTSijQojPtjQqPwmw0U+QOP0fk7m
6UU0YhbmuQaoabycyKwKWkIj9X2u6BaruU+dyNT60rDOo2zvPKFx9pxv0rqt
NOhlRR84EzQmfDjZxS00EsLGzHNnMSjPymywXM6AY+ekyA5nUPbfyac8TSvY
K3HHsyI1nL/fNWA9g4qsvuPZMQxKy0oup37LwORqdchP8QyKmhpEokwGJWKv
jpA0BvkDkhe72hhUChrmXKhgcGDTRvdDNzV5LcN3YTUM9o8o0092MnhVLijk
1jHIe/N46v4AA+OeaTpHzzHYpzdpZPGBQcd2q0OJHQyyPJ087q9gEdb/aKbo
TwaZN85nqdayCA+fE1o/yuAH3yUdbzaweFmi4la9Y5ARusZ/fgwL9vCcX//k
sEjvv1PkHq/xj1mu8Jum4dgNEj8Bi+TupvhOAxapSRFRwj0s2vQ+rwuZz2LX
qOJkwX4Wn3cVpMfYshCmxw1VF7Fo0nIS1jizSMkVCO5Vs8g0+Mjv82SxU/fN
L8rTLJyEfRZqbw0fyXj7+mcWkznzeEs1eyVX5mabX2fh+K8nEwbfsdhupXtr
8R0Wd+vXtJz/BwvBv4t1/LpZfKXvVTi8U8OLjANj5Cy2iPzrxLtZbLtYUZqi
YjEUEptVVcAiaZmFPP8RC9+9K46X/Kjh9nqz6hcsDrhXTM6tZ7F1nWPshbcs
AlMkYv1LLBI7W+rufmLh4f/jqyARC55j1fhLrUH0JmvP13+m+ctD55rX3EEM
e49q75ti8T/f87wP
          "]]}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwVy3k01fkfx3FpSIu0UAhD9hAjJNFn4la2okJIKVOWi8iSLaXGMiNSjYjU
iDbRom4dua53JZSl+/3eRdx7v9/PrSkSWaMJjd/9/fE+7/M4r/PUC4nZdVhe
Tk7umOz+/yvPM11cN5EQsiKAc01OCiv95u5ScyKhkR16w2oEQ3f8baWVtiSY
qXuvu9iG4dL57aBuQQIR6jb/EQtDwP2xRE1DEoqHZ9zTKjFodhaba2mTUPXL
Nfv2Qgyiz47/aKuRMCu15jzPwXBZ6X3Jz8okaBb1LvyUhiHIKMdbT4EEKmJb
wGQsBm2G+Tz9HwR83X1oNycUA32Q5BhMEDADAuGqfRiCr6wyM/lIgEKouSXD
A4Mu+9k7U4qA3jJdxy/OGKTdhy+ZCQmImn3s2u+AIUT1gYJlMwF9rcN1T8ww
6Fv7NlhxCLCYqvuWYoDhg9dUnPVjAvDuPW7x2hgOn2FIbW8Q4DnwevmkCoZw
+Z56xywC6HkDN8STNESPzIl130KAuXXxWvM2GtYuvmXk6UTAtdpNQzMvaRgy
86S22xLAVInslgINsWFF7jsNCXCv1mihH9MQT68x9FcgYFy1LfpqBQ2jl26x
2nO5EHdRR1h9ggb5g6XvElK40FhQn6WQSoOqaf5inXAuhMwGR0cm0mD3NC48
dgsX7u+1cQuMoiG1x0lLTY4LvXVs4/pAWa8p+H1/4hsIzPJ9gDbI+styu0eD
O0FecKUQT1Ng+Nv4ydIdneBVWZbm9C8Fdma9NS5OnWCd6t9Y/pUCf3a7YpFm
J8wnfwwc+0LBFXFRvYOwA6abH5kEYwqMtCxWZ7p3wM0ux5yFLymwvxIwusK2
HVTf2/j5nKOARlaiPoN2YCsTOpH5FGS+V2yqU20HjumRisxcCghjVmHg1zag
PBc9gUwKIh4utr/6qA22WgrVfVMoKG1tOmFo3Qb3f1y4OxFCwcyoxSIby9cQ
PufoC8l6Cp5vlTfeadoKmc108LI+Cdipvtk63fICNq4uVEhyk4BnSH+w6VgD
PMzXiVNsFMPDXn0Dh88sOHvPeMEHhhjow24pvszb8Bd7PGHPKxG0GnloffQ6
Bx5+K6r+9hfBnZ886Y7VBag8z6FgzVAPLFQEn5LlVag3U8FsSXoPDDsotR68
zELS5E3tY6o9MLeaqbIykIPWN3C88PVuWNJ45v3ktxeIl7UjnbLrhqBTkYzx
f1tQjVp3VRn3LXB0TRpOereju+ly0Sb734JIc8hBez8X6ebtPrForAsaK8zr
blSTaGn6b1Ers7pA8yZBZfL56G520mHbBV0g8PueHdUlRLu4NX7p54VQkrhk
Y9lP3aj21U0vXQUhNGyuiRMoi1DDu4vy1QkC2DH9LYFQEyGn6k0FO+MEgFku
SR3aIlSuuFoyGSMAeRNx2ksLEZqpqKt2ihSA6+IFWaztIuTfN8VnHxSAUBRW
XJgvQt2x+EnSDgEMxes3+CiLkeOQ3KcuIwFkWMQ0equJ0YHvVke8DASwtK/+
mae2GBlJlru26AnAJnBXM8NCjJQKWR/vaQkg7ddTb2y2i9Efhi89IpcJQEkZ
S1XzxUhz/oOreT/4oHezVEG4SILeezv97cHjA1NjmckJNQnSW3f+gCuXD6y8
P92NdSTInlD1ce7gg2t8ckGKpQQ13Wu6Y9HCh5hf/TR0dknQImLtlPQpHzii
pRZhxRJEFB8/+qCcDwEqf/p816MQy2bh2YuRfKg4LZdUsYZCY4dm83TD+TA4
kVTisY5ConOzozcP8SFDEkpfYVDIfN79ohv7+HCrihHuHEahmJ2TEObFhwkX
ueNnaijUZ1dw9dMvfDifnFSpvZ5Gnof8pQOjPDj330yfNaJRNKlrMPJF5szT
5q7baPREpVp/sJ8HZ8/lP47bQyN77seItnc8yL1d2dqaRCNgu8yokzzI7OYO
HK2jEUubqnh6lwe/7/e1ynkm67PjmldU8eD0B1FC2SsaBU+qWYVe58GpkY8/
WrpptJGdzOop5cEJpRkVre80KtAKsZbP4UGyvYlNywaMpmvLbl/by4OkxrvJ
4s0YTdkyI1p9eXCMsY4z4obRganrT7hePEj03rR1VSBG0bMRShkuPEjoasq1
CpHt4yEZ+k4yB7lxtzAxkja89Su340FcuI9/bCpGhSdPHdMw5cHRoZ6yrNMY
bV8xzVi8mgexCcHvSnMxup7t79apyYOYDCazuRQjYWp21F8LeXBEceSeqAIj
A/Xqsry5Mucljg/fwchbKSxn3TQJUZcyjmuyMTKcKGkK7CchUkfxuWUTRn/0
blZmYxKY188obGnHSCedYZUtlHnNUvdAPkb9zzZolLWREPGg6GyMGKNIe4PN
3EYSwu20+Jn/YKSkvM1AXCtzw7WVpQMYvd7zucGrkoQwZ+Og++MYyWvUDgZd
ICH0VU35y2mM1J2H2rXSSbA2LhkbnCNFyavSr+7bS8LgW9PLw/JSxNx24fHn
rST8D86hBIw=
          "]]}}}, {}}}, {AxesLabel -> {
       FormBox[
        StyleBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"b\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"",\
 {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
        TraditionalForm], 
       FormBox[
        StyleBox[
        "\"\\!\\(\\*\\nStyleBox[\\\"c\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"",\
 {FontSize -> 12, FontFamily -> "Times"}, StripOnInput -> False], 
        TraditionalForm]}, PlotRange -> {-0.05, 0.65}, 
     Ticks -> {{{0.1539600717839002, 
         FormBox[
          StyleBox[
          "\"min \\!\\(\\*\\nStyleBox[\\\"S\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}, {-0.6158402871356009, 
         FormBox[
          StyleBox[
          "\"-max \\!\\(\\*\\nStyleBox[\\\"S\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}, {0.5003702332976757, 
         FormBox[
          StyleBox[
          "\"max \\!\\(\\*\\nStyleBox[\\\"S\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}, {-0.2694301256218254, 
         FormBox[
          StyleBox[
          "\"-min \\!\\(\\*\\nStyleBox[\\\"S\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontFamily -> "Times", FontSize -> 11}, StripOnInput -> False], 
          TraditionalForm]}}, None}, AxesOrigin -> {0, 0}, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], ImageSize -> 
     238.11023622047244`, Epilog -> {{
        RGBColor[0, 
         NCache[
          Rational[2, 3], 0.6666666666666666], 0], 
        AbsoluteThickness[3], 
        LineBox[{{0.1539600717839002, 0}, {0.5003702332976757, 0}}]}, {
        RGBColor[0., 0.8, 0.8], 
        AbsoluteThickness[3], 
        LineBox[
         NCache[{{0.5003702332976757, 
            Complex[0.15396007178390023`, 5.551115123125783*^-18]}, {
           0.5003702332976757, 
            Complex[0.5003702332976757, -1.1102230246251566`*^-17]}}, {{
          0.5003702332976757, 0.15396007178390023`}, {0.5003702332976757, 
          0.5003702332976757}}]]}, {
        LineBox[{{0.1, 0.55}, {0.15, 0.62}}]}, 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"hop\"", {FontFamily -> "Times", FontSize -> 12}, StripOnInput -> 
           False], TraditionalForm]], {0.16, 0.622}, {-0.9, -0.6}], 
       InsetBox[
        BoxData[
         FormBox[
          TagBox[
           GridBox[{{
              StyleBox[
              "\"cascade\"", {FontFamily -> "Times", FontSize -> 12}, 
               StripOnInput -> False]}}, 
            GridBoxAlignment -> {"Columns" -> {{Center}}}, DefaultBaseStyle -> 
            "Column", 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.1}}}], 
           "Column"], TraditionalForm]], {0.31, 0.29}], {
        LineBox[{{0.5003702332976757, 0.42000000000000004`}, {0.61, 0.49}}]}, 
       
       InsetBox[
        BoxData[
         FormBox[
          TagBox[
           GridBox[{{
              StyleBox[
              "\"sync.\"", {FontFamily -> "Times", FontSize -> 12}, 
               StripOnInput -> False]}, {
              StyleBox[
              "\"window\"", {FontFamily -> "Times", FontSize -> 12}, 
               StripOnInput -> False]}, {
              StyleBox[
              "\"for \\!\\(\\*\\nStyleBox[\\\"Y\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\[RightVector]\\!\\(\\*\\nStyleBox[\\\"Z\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\"", {FontFamily -> "Times", FontSize -> 12}, StripOnInput -> False]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
            "Column", 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.1}}}], 
           "Column"], TraditionalForm]], {0.79, 0.41}], 
       BezierCurveBox[{{0.29252413638941044`, 0}, {0.21, 0.08}}], 
       InsetBox[
        BoxData[
         FormBox[
          TemplateBox[{
            StyleBox[
            "\"sync.\"", {FontFamily -> "Times", FontSize -> 12}, 
             StripOnInput -> False], 
            StyleBox[
            "\"window\"", {FontFamily -> "Times", FontSize -> 12}, 
             StripOnInput -> False], 
            StyleBox[
            "\"for \\!\\(\\*\\nStyleBox[\\\"X\\\",\\nFontSlant->\\\"Italic\\\"\
]\\)\[RightVector]\\!\\(\\*\\nStyleBox[\\\"Y\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\"", {FontFamily -> "Times", FontSize -> 12}, StripOnInput -> False]}, 
           "Row", DisplayFunction -> (PaneBox[
             RowBox[{
               TemplateSlotSequence[1, "\[ThinSpace]"]}], Alignment -> 
             Center]& ), InterpretationFunction -> (RowBox[{"Row", "[", 
              RowBox[{
                RowBox[{"{", 
                  TemplateSlotSequence[1, ","], "}"}], ",", "\" \"", ",", 
                RowBox[{"Alignment", "\[Rule]", "Center"}]}], "]"}]& )], 
          TraditionalForm]], {-0.21, 0}, {0, -2.1}]}, PlotRangeClipping -> 
     False, DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, 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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> 
       True}, PlotRange -> {{-0.8, 0.1539600717839002}, {-0.2694089223222882, 
      0.6458038805038178}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"lower \"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
        False], 
       StyleBox[
       "\"upper branch\"", {FontSize -> 11, FontFamily -> "Times"}, 
        StripOnInput -> False], 
       StyleBox[
       "\"lower\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
        False], 
       StyleBox[
       "\"middle\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
        False], 
       StyleBox[
       "\"upper branch\"", {FontSize -> 11, FontFamily -> "Times"}, 
        StripOnInput -> False]}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TemplateBox[{
                 StyleBox[
                 "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                  FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                  False], 
                 StyleBox["\"lower\"", {FontSize -> 11, FontFamily -> "Times", 
                   RGBColor[0, 0, 1]}, StripOnInput -> False], 
                 StyleBox[
                 "\", \"", {FontSize -> 11, FontFamily -> "Times"}, 
                  StripOnInput -> False], 
                 StyleBox[
                 "\"upper \"", {FontSize -> 11, FontFamily -> "Times", 
                   RGBColor[1, 0, 0]}, StripOnInput -> False], 
                 StyleBox[
                 "\"branch\"", {FontSize -> 11, FontFamily -> "Times"}, 
                  StripOnInput -> False]}, "RowDefault"]}, {
               TemplateBox[{"\[ThinSpace]", "\" \"", 
                 StyleBox[
                 "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"y\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                  FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                  False], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[3]], {
                    LineBox[{{0, 12}, {12, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[3]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {12, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #3}, "RowWithSeparators"], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[1]], {
                    LineBox[{{0, 12}, {12, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {12, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #4}, "RowWithSeparators"], 
                 TemplateBox[{"\[ThinSpace]", "\" \"", 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[1]], {
                    LineBox[{{0, 12}, {12, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    GrayLevel[0.5], 
                    AbsoluteThickness[1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {12, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #5}, "RowWithSeparators"]}, 
                "RowWithSeparators"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
             "Column", 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {},
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {},
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 "]"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.33333333333333337`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0.5]"],
                     Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0.5], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.33333333333333337`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0.5]"],
                     Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0.5], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.33333333333333337`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0.5]"],
                     Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0.5], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], "}"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 TagBox[
                  GridBox[{{
                    TemplateBox[{
                    StyleBox[
                    "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                    FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                    False], 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"lower\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks$25273"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font$25273"}], ",", 
                    "lowerColor$25273"}], "}"}]}], "]"}], 
                    StyleBox[
                    "\", \"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False], 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"upper \"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks$25273"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font$25273"}], ",", 
                    "upperColor$25273"}], "}"}]}], "]"}], 
                    StyleBox[
                    "\"branch\"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False]}, "RowDefault"]}, {
                    RowBox[{"Row", "[", 
                    RowBox[{
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    StyleBox[
                    "\"\\!\\(\\*SuperscriptBox[\\n \
StyleBox[\\\"y\\\",\\nFontSlant->\\\"Italic\\\"], \\\"*\\\"]\\) on its \"", {
                    FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
                    False], "}"}], ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"#1", ",", "\" \""}], "]"}], "&"}], ")"}], "/@", 
                    RowBox[{"Take", "[", 
                    RowBox[{"#1", ",", 
                    RowBox[{"-", "3"}]}], "]"}]}]}], "]"}], ",", "\" \""}], 
                    "]"}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                   DefaultBaseStyle -> "Column", 
                   GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                   GridBoxSpacings -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Column"], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "12"}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.63648718317708*^9, 3.6364871985988903`*^9}, {
   3.6364872803177834`*^9, 3.636487299907744*^9}, 3.636487479851013*^9, 
   3.668613341239657*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["export Figure 3", "Subsubsection",
 CellChangeTimes->{{3.668613722693624*^9, 3.668613727773279*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<figure3.pdf\>\""}], 
      "}"}], "]"}], ",", "%"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6364874907349586`*^9, 3.6364875015929127`*^9}, {
  3.6686133447171373`*^9, 3.668613344899775*^9}}]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{914, 713},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 25, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 175, 4, 148, "Title"],
Cell[CellGroupData[{
Cell[780, 30, 158, 2, 65, "Chapter"],
Cell[CellGroupData[{
Cell[963, 36, 104, 1, 64, "Section"],
Cell[1070, 39, 248, 5, 30, "Text"],
Cell[1321, 46, 603, 15, 49, "Text"],
Cell[CellGroupData[{
Cell[1949, 65, 109, 1, 44, "Subsection"],
Cell[2061, 68, 296, 8, 30, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2406, 82, 171, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[2602, 88, 104, 1, 44, "Subsection"],
Cell[2709, 91, 717, 23, 34, "Text"],
Cell[CellGroupData[{
Cell[3451, 118, 574, 19, 35, "Input"],
Cell[4028, 139, 615, 23, 52, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4692, 168, 105, 1, 44, "Subsection"],
Cell[4800, 171, 212, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[5037, 179, 725, 21, 56, "Input"],
Cell[5765, 202, 860, 30, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6662, 237, 635, 19, 35, "Input"],
Cell[7300, 258, 926, 33, 52, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8275, 297, 161, 3, 44, "Subsection"],
Cell[8439, 302, 174, 5, 30, "Text"],
Cell[8616, 309, 1572, 49, 97, "Input",
 InitializationCell->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10237, 364, 174, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[10436, 370, 166, 2, 44, "Subsection"],
Cell[CellGroupData[{
Cell[10627, 376, 22645, 535, 1374, "Input"],
Cell[33275, 913, 88698, 1600, 137, "Output"]
}, {2}]],
Cell[121985, 2516, 381, 10, 28, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122403, 2531, 104, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[122532, 2536, 120, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[122677, 2541, 21436, 528, 1400, "Input"],
Cell[144116, 3071, 87140, 1578, 137, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[231302, 4655, 123, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[231450, 4660, 29776, 733, 1718, "Input"],
Cell[261229, 5395, 39552, 694, 137, "Output"]
}, {2}]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[300851, 6097, 185, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[301061, 6103, 148, 2, 44, "Subsection"],
Cell[301212, 6107, 951, 27, 92, "Text"],
Cell[CellGroupData[{
Cell[302188, 6138, 36871, 842, 1831, "Input"],
Cell[339062, 6982, 49629, 961, 207, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[388737, 7949, 158, 2, 44, "Subsection"],
Cell[CellGroupData[{
Cell[388920, 7955, 25194, 596, 1720, "Input"],
Cell[414117, 8553, 21107, 398, 193, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[435282, 8958, 183, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[435490, 8964, 99, 1, 44, "Subsection"],
Cell[435592, 8967, 177, 2, 30, "Text"],
Cell[CellGroupData[{
Cell[435794, 8973, 1732, 49, 162, "Input"],
Cell[437529, 9024, 667, 24, 52, "Output"]
}, Open  ]],
Cell[438211, 9051, 425, 13, 41, "Text"],
Cell[CellGroupData[{
Cell[438661, 9068, 1998, 58, 219, "Input"],
Cell[440662, 9128, 482, 17, 52, "Output"]
}, Open  ]],
Cell[441159, 9148, 452, 14, 41, "Text"],
Cell[CellGroupData[{
Cell[441636, 9166, 2075, 60, 204, "Input"],
Cell[443714, 9228, 874, 31, 52, "Output"]
}, Open  ]],
Cell[444603, 9262, 381, 13, 40, "Text"],
Cell[444987, 9277, 374, 13, 41, "Text"],
Cell[CellGroupData[{
Cell[445386, 9294, 2855, 85, 221, "Input"],
Cell[448244, 9381, 749, 27, 52, "Output"]
}, Open  ]],
Cell[449008, 9411, 327, 11, 40, "Text"],
Cell[449338, 9424, 142, 1, 30, "Text"],
Cell[449483, 9427, 439, 15, 54, "Input"],
Cell[CellGroupData[{
Cell[449947, 9446, 587, 19, 54, "Input"],
Cell[450537, 9467, 4537, 88, 229, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[455123, 9561, 206, 3, 44, "Subsection"],
Cell[CellGroupData[{
Cell[455354, 9568, 333, 10, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[455712, 9582, 6911, 180, 559, "Input"],
Cell[462626, 9764, 8940, 181, 164, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[471612, 9951, 460, 12, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[472097, 9967, 35082, 818, 2304, "Input"],
Cell[CellGroupData[{
Cell[507204, 10789, 250, 3, 21, "Print"],
Cell[507457, 10794, 334, 6, 21, "Print"]
}, Open  ]],
Cell[507806, 10803, 38417, 772, 187, "Output"]
}, {4}]]
}, Closed]],
Cell[CellGroupData[{
Cell[546269, 11581, 180, 2, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[546474, 11587, 9121, 204, 637, "Input"],
Cell[555598, 11793, 50926, 993, 187, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[606570, 12792, 96, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[606691, 12797, 359, 9, 46, "Input"],
Cell[607053, 12808, 458, 6, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[607548, 12819, 319, 9, 28, "Input"],
Cell[607870, 12830, 315, 5, 28, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[608258, 12843, 276, 7, 66, "Section"],
Cell[CellGroupData[{
Cell[608559, 12854, 215, 3, 44, "Subsection"],
Cell[CellGroupData[{
Cell[608799, 12861, 162, 3, 35, "Subsubsection"],
Cell[608964, 12866, 676, 16, 67, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[609677, 12887, 102, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[609804, 12892, 15029, 383, 833, "Input"],
Cell[624836, 13277, 19386, 367, 176, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[644268, 13650, 102, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[644395, 13655, 24647, 639, 1510, "Input"],
Cell[669045, 14296, 20449, 385, 176, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[689540, 14687, 98, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[689663, 14692, 25617, 661, 1574, "Input"],
Cell[715283, 15355, 20454, 385, 176, "Output"]
}, {2}]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[735795, 15747, 188, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[736008, 15753, 231, 6, 28, "Input"],
Cell[736242, 15761, 61065, 1149, 176, "Output"]
}, {2}]],
Cell[797319, 16913, 483, 11, 28, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[797851, 16930, 277, 8, 66, "Section"],
Cell[CellGroupData[{
Cell[798153, 16942, 100, 1, 44, "Subsection"],
Cell[798256, 16945, 211, 7, 30, "Text"],
Cell[798470, 16954, 150, 3, 28, "Input"],
Cell[798623, 16959, 558, 19, 41, "Text"],
Cell[CellGroupData[{
Cell[799206, 16982, 572, 19, 35, "Input"],
Cell[799781, 17003, 640, 23, 52, "Output"]
}, Open  ]],
Cell[800436, 17029, 626, 27, 41, "Text"],
Cell[CellGroupData[{
Cell[801087, 17060, 353, 11, 54, "Input"],
Cell[801443, 17073, 478, 17, 52, "Output"]
}, Open  ]],
Cell[801936, 17093, 595, 27, 41, "Text"],
Cell[CellGroupData[{
Cell[802556, 17124, 350, 12, 54, "Input"],
Cell[802909, 17138, 433, 16, 52, "Output"]
}, Open  ]],
Cell[803357, 17157, 1323, 51, 42, "Text"],
Cell[CellGroupData[{
Cell[804705, 17212, 852, 26, 54, "Input"],
Cell[805560, 17240, 898, 31, 52, "Output"]
}, Open  ]],
Cell[806473, 17274, 1173, 47, 41, "Text"],
Cell[CellGroupData[{
Cell[807671, 17325, 853, 27, 54, "Input"],
Cell[808527, 17354, 747, 27, 52, "Output"]
}, Open  ]],
Cell[809289, 17384, 732, 25, 40, "Text"],
Cell[CellGroupData[{
Cell[810046, 17413, 712, 21, 35, "Input"],
Cell[810761, 17436, 779, 27, 52, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[811589, 17469, 208, 3, 44, "Subsection"],
Cell[CellGroupData[{
Cell[811822, 17476, 42898, 1045, 2937, "Input"],
Cell[854723, 18523, 60794, 1155, 216, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[915551, 19683, 106, 1, 35, "Subsubsection"],
Cell[915660, 19686, 385, 10, 28, "Input"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)