diff --git a/Figure_2_characteristic_functions_and_steady states.nb b/Figure_2_characteristic_functions_and_steady states.nb new file mode 100755 index 0000000..6b86cfb --- /dev/null +++ b/Figure_2_characteristic_functions_and_steady states.nb @@ -0,0 +1,6219 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 9.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 157, 7] +NotebookDataLength[ 289105, 6210] +NotebookOptionsPosition[ 287222, 6148] +NotebookOutlinePosition[ 287631, 6166] +CellTagsIndexPosition[ 287588, 6163] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Figure", " ", "2", + RowBox[{"(", "A", ")"}]}], ",", " ", + RowBox[{ + RowBox[{"det", " ", "J"}], ">", "0"}], ",", " ", + RowBox[{"one", " ", "steady", " ", "state"}]}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cplus", ",", "F", ",", "P", ",", "Z", ",", + "z0", ",", "re1", ",", "ri1", ",", "plot1", ",", "plot2", ",", "plot3", + ",", "plot4", ",", "Ge", ",", "Gi"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "0.9"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], " ", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0.4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0.3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Steady", " ", "states", " ", "in", " ", "the", " ", "phase", " ", + "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";", + RowBox[{"(*", + RowBox[{"steady", " ", "state"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", + ",", " ", "\"\<, ri=\>\"", ",", " ", "ri1"}], "]"}]}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ";", " ", + RowBox[{"(*", + RowBox[{ + RowBox[{"region", " ", "[", + RowBox[{"a", ",", "b"}], "]"}], + RowBox[{"x", "[", + RowBox[{"c", ",", "d"}], "]"}], " ", "in", " ", "the", " ", "phase", + " ", "plane", " ", "containing", " ", "steady", " ", "states"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"a", "=", + RowBox[{"re1", "-", "2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re1", "+", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri1", "+", "2"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.5", ",", "0.5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.5", ",", "1.5"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.1"}], ",", + RowBox[{"-", "0.5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0.25"}], "}"}]}], "}"}]}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", "Black", "}"}]}]}], "]"}]}], "}"}]}], ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], "}"}], ",", + RowBox[{"{", + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"a", "-", ".2"}], ",", + RowBox[{"b", "+", ".2"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", + RowBox[{"c", "-", ".2"}], ",", + RowBox[{"d", "+", ".2"}]}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"plot3", ",", "plot4"}], "]"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.669965930887747*^9, 3.669965963034878*^9}, { + 3.669967911686942*^9, 3.6699679191481867`*^9}, 3.6699747013188877`*^9, + 3.670752870993903*^9, {3.671265838922729*^9, 3.671265947489256*^9}, { + 3.6712659929321003`*^9, 3.6712660134255743`*^9}, {3.6712660491008797`*^9, + 3.671266093601243*^9}, {3.671266154852158*^9, 3.671266246391962*^9}, { + 3.671266385127493*^9, 3.671266398789341*^9}, {3.681838415360907*^9, + 3.681838594971818*^9}, {3.681838747880744*^9, 3.681838794535638*^9}, { + 3.6818396152251*^9, 3.68183965149369*^9}, {3.6818397660694323`*^9, + 3.681839800755595*^9}, {3.681870231723321*^9, 3.681870268348049*^9}, { + 3.682230153078004*^9, 3.6822301971492233`*^9}, {3.691128262203121*^9, + 3.69112827193295*^9}, {3.6911283237560577`*^9, 3.6911284455921*^9}, { + 3.69112848496733*^9, 3.691128578011964*^9}, {3.691128815458748*^9, + 3.691128841399782*^9}, {3.691131475876326*^9, 3.6911314768269787`*^9}, { + 3.691131870507711*^9, 3.691131888177313*^9}, {3.691131933242436*^9, + 3.6911319338471746`*^9}, {3.691132210341564*^9, 3.691132298527499*^9}, + 3.691132351831217*^9, {3.691315245031262*^9, 3.691315276478383*^9}, { + 3.691315628391818*^9, 3.691315708164516*^9}, {3.691318047438306*^9, + 3.6913180560287123`*^9}, {3.691318097111951*^9, 3.69131811987887*^9}, { + 3.691318162393814*^9, 3.691318241958939*^9}, {3.6913182948486633`*^9, + 3.6913183161128187`*^9}, {3.691318357286148*^9, 3.6913184797188063`*^9}, { + 3.691417970476659*^9, 3.691417995961779*^9}, {3.691418045551126*^9, + 3.6914180977795763`*^9}, {3.691418145338976*^9, 3.6914184094990587`*^9}, { + 3.691420317108986*^9, 3.691420319003961*^9}, {3.69142871410492*^9, + 3.691428756878338*^9}, {3.691428788732399*^9, 3.69142879352136*^9}, { + 3.692691013376927*^9, 3.692691065212077*^9}, {3.692691152615541*^9, + 3.6926915899112873`*^9}, {3.692691640206373*^9, 3.6926916705650187`*^9}, { + 3.69269170220357*^9, 3.6926918804554234`*^9}, {3.692691919439193*^9, + 3.6926919642426863`*^9}, {3.692692142992495*^9, 3.6926921495481358`*^9}, { + 3.692692182880225*^9, 3.692692199600362*^9}, {3.6926922943415537`*^9, + 3.692692313933724*^9}, 3.6926923584113293`*^9, {3.692692407129314*^9, + 3.6926924240393*^9}, {3.692692472360632*^9, 3.6926925436914463`*^9}, { + 3.692692577442625*^9, 3.692692600988268*^9}, {3.6926926362513323`*^9, + 3.6926926913528214`*^9}, {3.692692856574181*^9, 3.692692892698038*^9}, { + 3.692692942468071*^9, 3.692692961291857*^9}, {3.692693183889185*^9, + 3.6926931851141443`*^9}, {3.6926932152370462`*^9, 3.692693236248979*^9}, { + 3.692693394082568*^9, 3.69269355645205*^9}, {3.692693608075405*^9, + 3.692693697569433*^9}, {3.6926937618517447`*^9, 3.692693796741599*^9}, { + 3.692693848433611*^9, 3.6926939070487843`*^9}, {3.6926940951038437`*^9, + 3.692694260466854*^9}, 3.6926943111296053`*^9, {3.692694343104659*^9, + 3.692694388378901*^9}, {3.692694419691263*^9, 3.6926945740361977`*^9}, { + 3.692694607333618*^9, 3.692694617750513*^9}, {3.692694749430292*^9, + 3.6926947567176237`*^9}, {3.6926948933073387`*^9, + 3.6926949268416023`*^9}, {3.6926952409073687`*^9, 3.692695377924794*^9}, { + 3.692695423465567*^9, 3.6926954906774597`*^9}, {3.6926955497759533`*^9, + 3.692695579494293*^9}, {3.692695668163787*^9, 3.6926956691059732`*^9}, { + 3.692695812417848*^9, 3.692695875704959*^9}, {3.692695942894755*^9, + 3.69269605369267*^9}, {3.692696120742998*^9, 3.692696129232265*^9}, { + 3.6926961616616507`*^9, 3.69269619525965*^9}, 3.693037670779304*^9, { + 3.6930377357191143`*^9, 3.693037763251899*^9}, {3.693037801458839*^9, + 3.693037927056592*^9}, {3.693040872757523*^9, 3.6930408824382257`*^9}, { + 3.693040927991486*^9, 3.693040948538813*^9}, {3.693041042702565*^9, + 3.693041060419207*^9}, {3.693041091856914*^9, 3.693041096462126*^9}, { + 3.693041153536542*^9, 3.693041172122979*^9}, {3.69304121023347*^9, + 3.693041424919629*^9}, {3.693042275068267*^9, 3.6930423868060503`*^9}, { + 3.693042438460918*^9, 3.693042438461648*^9}, {3.69304273333215*^9, + 3.6930427504579144`*^9}, {3.693044059170693*^9, 3.693044085208392*^9}, { + 3.693044120153393*^9, 3.693044209643271*^9}, {3.693044414183062*^9, + 3.693044429338566*^9}, {3.693044479089279*^9, 3.693044500338147*^9}, { + 3.6930445989846277`*^9, 3.693044621695581*^9}, {3.693044679822979*^9, + 3.6930446832462797`*^9}, {3.69304473535187*^9, 3.6930447924539013`*^9}, { + 3.693044851145458*^9, 3.693044858688456*^9}, 3.693044987887783*^9, { + 3.693045094291526*^9, 3.693045123618059*^9}, 3.693045240423849*^9, { + 3.693045417819585*^9, 3.693045423545686*^9}, {3.6930454726948957`*^9, + 3.693045473328208*^9}, {3.693300145689186*^9, 3.6933001587564983`*^9}, { + 3.693300274196973*^9, 3.693300295266527*^9}, {3.693300364900671*^9, + 3.693300372449574*^9}, {3.6933004346780643`*^9, 3.6933004351279507`*^9}, { + 3.693300481923752*^9, 3.693300484878624*^9}, 3.693300516030217*^9, { + 3.6933005576602592`*^9, 3.693300564611203*^9}, {3.693300954060238*^9, + 3.6933009845199423`*^9}, {3.693301065642104*^9, 3.693301087668187*^9}, { + 3.693301134268777*^9, 3.693301137940702*^9}, {3.6933016898324347`*^9, + 3.693301693877865*^9}, {3.693301820260469*^9, 3.6933018286349907`*^9}, { + 3.693553981246297*^9, 3.6935540601096897`*^9}, {3.6935578660234613`*^9, + 3.693557885185216*^9}, {3.693557984099605*^9, 3.693557993563349*^9}, { + 3.693558099655369*^9, 3.693558121652178*^9}, {3.693558403576603*^9, + 3.6935584113664627`*^9}, {3.693558457176978*^9, 3.6935584685505867`*^9}, { + 3.693558514699024*^9, 3.693558550858926*^9}, 3.693633800177897*^9, { + 3.6936338593125353`*^9, 3.693633947097559*^9}, {3.6936344743320932`*^9, + 3.6936346011781054`*^9}, {3.693634642521132*^9, 3.693634698355796*^9}, { + 3.693634736007983*^9, 3.693634822649084*^9}, {3.6936348769128113`*^9, + 3.693634889424296*^9}, {3.6936349363573217`*^9, 3.6936351977763653`*^9}, { + 3.693635235448841*^9, 3.693635267062992*^9}, {3.693635323085497*^9, + 3.693635499107008*^9}, {3.693636415238715*^9, 3.693636594938246*^9}, { + 3.693636701087446*^9, 3.693636703844235*^9}, {3.693636774624946*^9, + 3.6936368544696827`*^9}, {3.69363699186099*^9, 3.693636995395925*^9}, { + 3.693637935003998*^9, 3.693637966682323*^9}, {3.693638093613104*^9, + 3.693638094085292*^9}, {3.6936396523190937`*^9, 3.693639658103911*^9}, { + 3.69363969929668*^9, 3.6936397596283417`*^9}, {3.693639805226301*^9, + 3.693639814435791*^9}, {3.693655084684061*^9, 3.69365510405702*^9}, { + 3.693656272938631*^9, 3.6936562764852657`*^9}, {3.693657938887617*^9, + 3.6936579389870453`*^9}, {3.693660052589501*^9, 3.69366005290396*^9}, { + 3.693660103834487*^9, 3.693660104854559*^9}, {3.6992662295311317`*^9, + 3.699266282030658*^9}, {3.699266315994287*^9, 3.6992663646020317`*^9}, { + 3.699266474635482*^9, 3.699266493432049*^9}, {3.69926683000631*^9, + 3.699266858609324*^9}, {3.699267027181714*^9, 3.699267056837557*^9}, { + 3.699267088728222*^9, 3.699267094888064*^9}, {3.699267137905382*^9, + 3.6992671731307783`*^9}, {3.699267242193976*^9, 3.699267251621809*^9}, { + 3.699267656382222*^9, 3.699267734275045*^9}, {3.699268323996841*^9, + 3.699268330043393*^9}, {3.699274329243966*^9, 3.699274354521453*^9}, { + 3.699274397837099*^9, 3.699274417061928*^9}, {3.699291258653414*^9, + 3.699291260810226*^9}, {3.6992937325902863`*^9, 3.699293735169125*^9}, { + 3.709996310247995*^9, 3.709996464434144*^9}, {3.709996498535972*^9, + 3.7099965081035*^9}, {3.709996553650486*^9, 3.70999657071524*^9}, { + 3.7099966430770817`*^9, 3.709996675965165*^9}, {3.709996717796789*^9, + 3.709996759978467*^9}, {3.70999679705254*^9, 3.709996803103643*^9}, { + 3.709996840150889*^9, 3.7099968909056873`*^9}, {3.709996939976469*^9, + 3.7099969687815*^9}, {3.709997015550963*^9, 3.709997057555914*^9}, { + 3.709997167162862*^9, 3.709997171108571*^9}, 3.710006716398745*^9, { + 3.710821614361597*^9, 3.710821633858446*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999987551020408, -0.15555554172335606`}, \ +{-0.00981290207609477, -0.15534766897343869`}, {-0.00962581660116913, \ +-0.1551397962235213}, {-0.009251645651317855, -0.15472405072368656`}, \ +{-0.008503303751615301, -0.15389255972401705`}, {-0.007006619952210195, \ +-0.15222957772467804`}, {-0.004013252353399982, -0.14890361372600003`}, \ +{-0.00019451530612244898`, -0.1446605725623583}}], LineBox[CompressedData[" +1:eJwVyXs0VAkAx/FpMlsqpVWRtSKnpjJbBmVV+qlFiYoecyw2Sltep+zuoW1a +peIMZb2y1s6kElspjAxhPG7UyCMSMzWmoXFvd3A8UlsbhdnZP37nd77nY334 +xN4fmQwGw0O//z/+U1vivTXBqHBdk7lrfQPRL5DQrtdT0GC7tFIU+IC45BMT +FVElgulyG/dW91oi1U8Wx32Xh67LjhMJZBXRW3czXHzpDmL8I1O6HO4TmY6b +ujf4l4B/csWeovpSojq/3ejPEgloDwO3EYNios/Q9djhj/ehiuT7V+TeJAzS +b79pY0mR82969MKIa8QaSU3iRl4tcvN6JaJ9acStzyG3bZweINR8ct4tl0PE +t9nKq0HV9XBgJWjT/xbAi5n39ZXgh5gUsNg/mYkQODUguT34CJ8eOZsbSPMx +KovvLL/ciOm4oLojGYVgJKVeGF/fBHJxVitlWwrjnsXec2uaYX23qGCWvBw3 +pt9esQxpRTv3dysXRRXs73mymKNPcO3UlMmEqBZu3I8f6L/akdVcUBT56gGG +FEk1OssOmBgJTTxHGiB5qUh6T3ZgYbpfSlrPI2xu8haFVTxDRv/Q2OrpRrjF +nqtsjO2Ej8/EsvkzmpEsHrm6xbULnK3RcktGKzKb4ps3mMghPnrBjOK2weJO +t26JUg63ONfxne5PceTn7/knixQoC90/WdzYgeEK47p3Z54jrb3Zo2DwGf6R +JRjxtr1A1iLLQYOpTlRLV+Q6L1FiqLpqszlHDuavF1xZaiUEfLHiBy8FkkrN +CoZyunHWgx/LCXuOZ13KA3ujVJAN8hatyn+B7Fre/FzHl1DP6pyublfCKkU3 +J8pQDeVF4juxqQps9lETdocaFm9T697teYnjLgb0eEYPeCYhwTMEakRvbPu0 +82gvbK2yry/o7cGkbp9Fgu0rSCK9d4ttXmH5c2b9NYYGdGDOxF53/Yef9LsY +pkHEQdbb0nENBqiWD6GtGozJETN8ow9eHQ7lgvV9sA/QptccJDF6/TRfmN2H +Ys/HVXYLKXDtgvKlE31Qfd5dafmQgtzeb8w8hIRUxRZmCl6jYqndthMyEssP +7Wes3UZjQ3i378rHJEre95+JcadxX3r+UE8TidD4YRdih74DFHFeT0j42QTH ++u7Rdw6fYHeR8OBkMU8F0iizlm3WaEiMdYbYymNo3Fvt7+Q7SSKgsnJZ9V0a +dvyZ22dPkzi2sqtirphGSUshj9CRKBswTw8s1XeELvqbmRQWfPCcpavUd1F+ +meEcCqqJFub2RhrF3DfcBlMKARZnN1EaGmvPZ289tZSC2Iw76PRa751bfe2+ +orD7j+PK5H4aRb9kRl21pBAuzDvtNEqjsNxZzF9BYUuuUJH6mQbnC6qOy6Yw +HrkrTTutd15y+8AqCjOeSpNdmFoUfuwd4XEosPrUO4dna8HZkThltJbCOV7O +PLd5es/mGsnWUfAZWWd8ZYHeB1UWv3Ep2CcKD7z/Uou7zvEcBwcKWkNK7b1E +i/8AGUhDzw== + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.6}, {-0.15555554172335606`, 0.69022219793288}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999987551020408, + 0.4099999875510204}, {-0.00981290207609477, + 0.4098129020760948}, {-0.00962581660116913, + 0.40962581660116915`}, {-0.009251645651317855, + 0.4092516456513179}, {-0.008503303751615301, + 0.4085033037516153}, {-0.007006619952210195, + 0.4070066199522102}, {-0.004013252353399982, + 0.4040132523534}, {-0.00019451530612244898`, 0.4001945153061225}}], + LineBox[{{0.001973482844220444, 0.3980265256103735}, { + 0.014954096803595674`, 0.3850495817174763}, {0.02707450746454802, + 0.3729473235731408}, {0.03895716378126323, 0.3611078723469746}, { + 0.05184696366211282, 0.34830634357898715`}, {0.06387656024453953, + 0.3364101328610381}, {0.0769133003911006, 0.3235871914796692}, { + 0.08971228619342454, 0.31108194777576}, {0.1016510686973256, + 0.2995043211098196}, {0.11459699476536103`, 0.28705844114250423`}, { + 0.1266827175349736, 0.27555365833862033`}, {0.12831971432882724`, + 0.27400448214224793`}}], LineBox[CompressedData[" +1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAAOJjYnl+7wT88Jt6gzevQP0sCox2c +YMM/ivMRiYwn0D9c/eizqOnEP3tVJyTI5M4/7sWE0rWTxj9KT7NiKGDNPwCJ +j4P4Ncg/+AepO5nmyz8Q3RVMC7zJP0zeWnjNico/ov7xnB5jyz9V6RWL1xLJ +PzKxSQUC7sw/BeAJCrW3xz9EMff15ZnOP2wXcI1GQsY/69WJvP8e0D+m/8PG +8NXEP7Pb1Yn04tA/oWFtPqWDwz88yEybabfRP0o/hNoIFsI/RH2BuMZ90j+A +DbtVL8HAP4yv7Z4+QNM/IsaJ/sPlvj+UyITJNhPUP970JhqLDrw/HKrZ/xbY +1D8SkIsMgWS5P2RyWXp3rdU/piUhVI57tj/stxC+8n7WPwqP5d0amLM/88WF +DVZC1z8Oi7+j6NywP7u6JaE5Ftg/QLk8JC2zqz8CeINABdzYP/IOXoAS9aU/ +ibIYqeud2T/xIBsoFTKgP9HT2FVScNo/+KsN3n2Jkz+YvVYOoTTbPyiR90i9 +o3w/II7/CnAJ3D+wDqq5QPp6vycnZhMn0Nw/5EutcNpAlL9uPQTl+JLdP1xe +zDahB6G/dTrN+kpm3j+QDs3129+ov/z/UxyFK98/AMo7CnBJsL8i1gLBnwDg +P39DyHrLsLS/5Wp3WIpp4D9qCARsBUe5v+jjyvVoy+A/oBGsAKXRvb9L0DO1 +hzXhPzvs4I74h8G/7qB7epqY4T/dD41fBSXEvzEwX6S6+eE/6BRzPeDgxr/U +MljwGmPiPy5AoFZlDsq/txkwQm/F4j+F/1lKbD3NvzZq2VEmx+I/lPfbFyZM +zb+2uoJh3cjiP4sz34LkWs2/tlvVgEvM4j/ocMY4b3jNv7ader8n0+I/QoDC +V7yzzb+0IcU84ODiP+ljoQE3K86/sSlaN1H84j/d33Qcux3PvzB6A0cI/uI/ +rGvoNQwtz7+wyqxWv//iP2KC2yhiPM+/sGv/dS0D4z9lveaiHFvPv7CtpLQJ +CuM/tBQ/HcyYz7+uMe8xwhfjP+5BKG2LCtC/LoKYQXkZ4z/+0Dk5WxLQv67S +QVEwG+M/mvt5gS0a0L+tc5Rwnh7jP/AnbIrZKdC/rLU5r3ol4z8GmHKZT0nQ +vywG474xJ+M/ZqxRYjNR0L+sVozO6CjjP1YdM68ZWdC/rPfe7VYs4z9InezY +7WjQvyxIiP0NLuM/oi+9t9tw0L+smDENxS/jP2QlgR7MeNC/LOnaHHwx4z/C +fzUOv4DQv6s5hCwzM+M/pIzXh7SI0L80uutL + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.6}, {-0.2583438231069499, 0.4099999875510204}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.6930448384819927`*^9, 3.693044859488907*^9}, + 3.693044989207708*^9, {3.6930451006531467`*^9, 3.693045125232478*^9}, + 3.693045246281494*^9, 3.6930454250975924`*^9, 3.693045475412416*^9, { + 3.693300147021147*^9, 3.693300160029902*^9}, {3.693300279216797*^9, + 3.6933003036904097`*^9}, 3.6933003924435387`*^9, {3.693300488788917*^9, + 3.6933005170604753`*^9}, 3.693300569042886*^9, 3.693301093693428*^9, + 3.693301139126978*^9, 3.693301695456842*^9, {3.6933018222520323`*^9, + 3.693301834054962*^9}, 3.6935539528522243`*^9, {3.693553985954308*^9, + 3.69355400092*^9}, {3.6935540442505617`*^9, 3.693554061193859*^9}, + 3.693557849304264*^9, 3.6935578861674347`*^9, 3.693557994602542*^9, + 3.6935581225998*^9, 3.693558412595677*^9, 3.6935584693876247`*^9, { + 3.693558523527027*^9, 3.6935585515527363`*^9}, 3.693633505977499*^9, + 3.693633804846588*^9, {3.693633870555887*^9, 3.6936339182956667`*^9}, + 3.69363394963232*^9, {3.693634523755886*^9, 3.693634558535604*^9}, + 3.693634604389668*^9, {3.6936347593721867`*^9, 3.693634806694268*^9}, { + 3.693634868254922*^9, 3.693634889920994*^9}, {3.693634939369061*^9, + 3.693634964597478*^9}, 3.6936350115683727`*^9, {3.6936351097446003`*^9, + 3.6936351362934093`*^9}, 3.6936352032119827`*^9, 3.693635236965022*^9, + 3.693635268416267*^9, {3.693635342433133*^9, 3.693635353830261*^9}, + 3.693635414186887*^9, 3.693635456441825*^9, 3.693636436415922*^9, + 3.6936366073125067`*^9, 3.6936367044767303`*^9, {3.6936368271333323`*^9, + 3.693636857055181*^9}, 3.693637977870657*^9, 3.6936550858463078`*^9, + 3.693655697884179*^9, 3.693656196420047*^9, 3.693656277414295*^9, + 3.693659912174467*^9, 3.693660053729073*^9, 3.693660097083301*^9, + 3.699266324328162*^9, 3.699266366607069*^9, {3.699266475879183*^9, + 3.699266493915804*^9}, 3.699266859783309*^9, {3.699267033924588*^9, + 3.699267057407189*^9}, 3.699267097284881*^9, {3.699267139511035*^9, + 3.699267174258349*^9}, 3.699267252023003*^9, {3.699267657492249*^9, + 3.6992676843445253`*^9}, {3.699267719163569*^9, 3.6992677362075863`*^9}, + 3.6992683322346*^9, {3.699274349458699*^9, 3.699274354994232*^9}, { + 3.699274399119*^9, 3.699274417549514*^9}, 3.699293736530676*^9, + 3.70999651270955*^9, 3.709996579066434*^9, {3.7099966518140593`*^9, + 3.7099966776651173`*^9}, 3.7099967620962954`*^9, 3.7099968945651217`*^9, { + 3.70999701641816*^9, 3.709997058402185*^9}, 3.70999717260888*^9, { + 3.710821615826844*^9, 3.7108216383434963`*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "0.7`"}], + SequenceForm["detJ=", 0.7], + Editable->False]], "Print", + CellChangeTimes->{{3.693300147037521*^9, 3.693300160049631*^9}, { + 3.693300279224373*^9, 3.693300303697177*^9}, 3.693300392448848*^9, { + 3.6933004887844257`*^9, 3.693300517054727*^9}, 3.693300568969665*^9, + 3.6933010930781517`*^9, 3.693301138834792*^9, 3.693301695107812*^9, { + 3.693301822171623*^9, 3.693301833967244*^9}, 3.693553951830721*^9, { + 3.693553985720915*^9, 3.693554000865996*^9}, {3.6935540441974487`*^9, + 3.693554061139205*^9}, 3.693557849252488*^9, 3.6935578860847387`*^9, + 3.693557994530972*^9, 3.693558122534677*^9, 3.693558412405761*^9, + 3.693558469175111*^9, {3.693558523463127*^9, 3.693558551490391*^9}, + 3.693633504911581*^9, 3.693633804732128*^9, {3.6936338704560337`*^9, + 3.6936339182227173`*^9}, 3.693633949554431*^9, {3.6936345236484947`*^9, + 3.693634558401764*^9}, 3.6936346043127832`*^9, {3.693634759278812*^9, + 3.6936348066211977`*^9}, {3.693634868172909*^9, 3.693634889806417*^9}, { + 3.693634939289071*^9, 3.693634964525217*^9}, 3.69363501148323*^9, { + 3.693635109669422*^9, 3.6936351362146177`*^9}, 3.693635203134584*^9, + 3.693635236878072*^9, 3.693635268345574*^9, {3.693635342321246*^9, + 3.693635353752825*^9}, 3.69363541410168*^9, 3.69363545632376*^9, + 3.6936364363345413`*^9, 3.6936366071994762`*^9, 3.6936367043984127`*^9, { + 3.693636827058785*^9, 3.693636856983314*^9}, 3.693637977801016*^9, + 3.6936550857709017`*^9, 3.693655697807871*^9, 3.693656196148354*^9, + 3.693656277345263*^9, 3.693659911974712*^9, 3.6936600536622133`*^9, + 3.693660097014222*^9, 3.699266323576779*^9, 3.699266366533163*^9, { + 3.699266475805846*^9, 3.6992664938431807`*^9}, 3.6992668597073393`*^9, { + 3.699267033846323*^9, 3.699267057326449*^9}, 3.699267097207287*^9, { + 3.6992671394364347`*^9, 3.6992671741847553`*^9}, 3.699267251946439*^9, { + 3.699267657414487*^9, 3.69926768427127*^9}, {3.699267719087634*^9, + 3.699267736132443*^9}, 3.6992683319989443`*^9, {3.699274349380067*^9, + 3.699274354920266*^9}, {3.6992743990399313`*^9, 3.699274417473796*^9}, + 3.6992937364511757`*^9, 3.709996512496706*^9, 3.7099965789937353`*^9, { + 3.709996651742*^9, 3.709996677570758*^9}, 3.70999676201997*^9, + 3.709996894585876*^9, {3.709997016434312*^9, 3.70999705842448*^9}, + 3.709997172626698*^9, {3.710821616101922*^9, 3.710821638363069*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.12851422963494974`"}], + SequenceForm["The zero crossing of P is z0=", 0.12851422963494974`], + Editable->False]], "Print", + CellChangeTimes->{{3.693300147037521*^9, 3.693300160049631*^9}, { + 3.693300279224373*^9, 3.693300303697177*^9}, 3.693300392448848*^9, { + 3.6933004887844257`*^9, 3.693300517054727*^9}, 3.693300568969665*^9, + 3.6933010930781517`*^9, 3.693301138834792*^9, 3.693301695107812*^9, { + 3.693301822171623*^9, 3.693301833967244*^9}, 3.693553951830721*^9, { + 3.693553985720915*^9, 3.693554000865996*^9}, {3.6935540441974487`*^9, + 3.693554061139205*^9}, 3.693557849252488*^9, 3.6935578860847387`*^9, + 3.693557994530972*^9, 3.693558122534677*^9, 3.693558412405761*^9, + 3.693558469175111*^9, {3.693558523463127*^9, 3.693558551490391*^9}, + 3.693633504911581*^9, 3.693633804732128*^9, {3.6936338704560337`*^9, + 3.6936339182227173`*^9}, 3.693633949554431*^9, {3.6936345236484947`*^9, + 3.693634558401764*^9}, 3.6936346043127832`*^9, {3.693634759278812*^9, + 3.6936348066211977`*^9}, {3.693634868172909*^9, 3.693634889806417*^9}, { + 3.693634939289071*^9, 3.693634964525217*^9}, 3.69363501148323*^9, { + 3.693635109669422*^9, 3.6936351362146177`*^9}, 3.693635203134584*^9, + 3.693635236878072*^9, 3.693635268345574*^9, {3.693635342321246*^9, + 3.693635353752825*^9}, 3.69363541410168*^9, 3.69363545632376*^9, + 3.6936364363345413`*^9, 3.6936366071994762`*^9, 3.6936367043984127`*^9, { + 3.693636827058785*^9, 3.693636856983314*^9}, 3.693637977801016*^9, + 3.6936550857709017`*^9, 3.693655697807871*^9, 3.693656196148354*^9, + 3.693656277345263*^9, 3.693659911974712*^9, 3.6936600536622133`*^9, + 3.693660097014222*^9, 3.699266323576779*^9, 3.699266366533163*^9, { + 3.699266475805846*^9, 3.6992664938431807`*^9}, 3.6992668597073393`*^9, { + 3.699267033846323*^9, 3.699267057326449*^9}, 3.699267097207287*^9, { + 3.6992671394364347`*^9, 3.6992671741847553`*^9}, 3.699267251946439*^9, { + 3.699267657414487*^9, 3.69926768427127*^9}, {3.699267719087634*^9, + 3.699267736132443*^9}, 3.6992683319989443`*^9, {3.699274349380067*^9, + 3.699274354920266*^9}, {3.6992743990399313`*^9, 3.699274417473796*^9}, + 3.6992937364511757`*^9, 3.709996512496706*^9, 3.7099965789937353`*^9, { + 3.709996651742*^9, 3.709996677570758*^9}, 3.70999676201997*^9, + 3.709996894585876*^9, {3.709997016434312*^9, 3.70999705842448*^9}, + 3.709997172626698*^9, {3.710821616101922*^9, 3.710821638368043*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The unique zero crossing of F is z1=\"\>", "\[InvisibleSpace]", + "0.43183905443673043`"}], + SequenceForm["The unique zero crossing of F is z1=", 0.43183905443673043`], + Editable->False]], "Print", + CellChangeTimes->{{3.693300147037521*^9, 3.693300160049631*^9}, { + 3.693300279224373*^9, 3.693300303697177*^9}, 3.693300392448848*^9, { + 3.6933004887844257`*^9, 3.693300517054727*^9}, 3.693300568969665*^9, + 3.6933010930781517`*^9, 3.693301138834792*^9, 3.693301695107812*^9, { + 3.693301822171623*^9, 3.693301833967244*^9}, 3.693553951830721*^9, { + 3.693553985720915*^9, 3.693554000865996*^9}, {3.6935540441974487`*^9, + 3.693554061139205*^9}, 3.693557849252488*^9, 3.6935578860847387`*^9, + 3.693557994530972*^9, 3.693558122534677*^9, 3.693558412405761*^9, + 3.693558469175111*^9, {3.693558523463127*^9, 3.693558551490391*^9}, + 3.693633504911581*^9, 3.693633804732128*^9, {3.6936338704560337`*^9, + 3.6936339182227173`*^9}, 3.693633949554431*^9, {3.6936345236484947`*^9, + 3.693634558401764*^9}, 3.6936346043127832`*^9, {3.693634759278812*^9, + 3.6936348066211977`*^9}, {3.693634868172909*^9, 3.693634889806417*^9}, { + 3.693634939289071*^9, 3.693634964525217*^9}, 3.69363501148323*^9, { + 3.693635109669422*^9, 3.6936351362146177`*^9}, 3.693635203134584*^9, + 3.693635236878072*^9, 3.693635268345574*^9, {3.693635342321246*^9, + 3.693635353752825*^9}, 3.69363541410168*^9, 3.69363545632376*^9, + 3.6936364363345413`*^9, 3.6936366071994762`*^9, 3.6936367043984127`*^9, { + 3.693636827058785*^9, 3.693636856983314*^9}, 3.693637977801016*^9, + 3.6936550857709017`*^9, 3.693655697807871*^9, 3.693656196148354*^9, + 3.693656277345263*^9, 3.693659911974712*^9, 3.6936600536622133`*^9, + 3.693660097014222*^9, 3.699266323576779*^9, 3.699266366533163*^9, { + 3.699266475805846*^9, 3.6992664938431807`*^9}, 3.6992668597073393`*^9, { + 3.699267033846323*^9, 3.699267057326449*^9}, 3.699267097207287*^9, { + 3.6992671394364347`*^9, 3.6992671741847553`*^9}, 3.699267251946439*^9, { + 3.699267657414487*^9, 3.69926768427127*^9}, {3.699267719087634*^9, + 3.699267736132443*^9}, 3.6992683319989443`*^9, {3.699274349380067*^9, + 3.699274354920266*^9}, {3.6992743990399313`*^9, 3.699274417473796*^9}, + 3.6992937364511757`*^9, 3.709996512496706*^9, 3.7099965789937353`*^9, { + 3.709996651742*^9, 3.709996677570758*^9}, 3.70999676201997*^9, + 3.709996894585876*^9, {3.709997016434312*^9, 3.70999705842448*^9}, + 3.709997172626698*^9, {3.710821616101922*^9, 3.7108216383722353`*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The unique steady state of the SSN is re=\"\>", + "\[InvisibleSpace]", "0.08053149265233484`", + "\[InvisibleSpace]", "\<\", ri=\"\>", "\[InvisibleSpace]", + "0.06305065275648662`"}], + SequenceForm[ + "The unique steady state of the SSN is re=", 0.08053149265233484, ", ri=", + 0.06305065275648662], + Editable->False]], "Print", + CellChangeTimes->{{3.693300147037521*^9, 3.693300160049631*^9}, { + 3.693300279224373*^9, 3.693300303697177*^9}, 3.693300392448848*^9, { + 3.6933004887844257`*^9, 3.693300517054727*^9}, 3.693300568969665*^9, + 3.6933010930781517`*^9, 3.693301138834792*^9, 3.693301695107812*^9, { + 3.693301822171623*^9, 3.693301833967244*^9}, 3.693553951830721*^9, { + 3.693553985720915*^9, 3.693554000865996*^9}, {3.6935540441974487`*^9, + 3.693554061139205*^9}, 3.693557849252488*^9, 3.6935578860847387`*^9, + 3.693557994530972*^9, 3.693558122534677*^9, 3.693558412405761*^9, + 3.693558469175111*^9, {3.693558523463127*^9, 3.693558551490391*^9}, + 3.693633504911581*^9, 3.693633804732128*^9, {3.6936338704560337`*^9, + 3.6936339182227173`*^9}, 3.693633949554431*^9, {3.6936345236484947`*^9, + 3.693634558401764*^9}, 3.6936346043127832`*^9, {3.693634759278812*^9, + 3.6936348066211977`*^9}, {3.693634868172909*^9, 3.693634889806417*^9}, { + 3.693634939289071*^9, 3.693634964525217*^9}, 3.69363501148323*^9, { + 3.693635109669422*^9, 3.6936351362146177`*^9}, 3.693635203134584*^9, + 3.693635236878072*^9, 3.693635268345574*^9, {3.693635342321246*^9, + 3.693635353752825*^9}, 3.69363541410168*^9, 3.69363545632376*^9, + 3.6936364363345413`*^9, 3.6936366071994762`*^9, 3.6936367043984127`*^9, { + 3.693636827058785*^9, 3.693636856983314*^9}, 3.693637977801016*^9, + 3.6936550857709017`*^9, 3.693655697807871*^9, 3.693656196148354*^9, + 3.693656277345263*^9, 3.693659911974712*^9, 3.6936600536622133`*^9, + 3.693660097014222*^9, 3.699266323576779*^9, 3.699266366533163*^9, { + 3.699266475805846*^9, 3.6992664938431807`*^9}, 3.6992668597073393`*^9, { + 3.699267033846323*^9, 3.699267057326449*^9}, 3.699267097207287*^9, { + 3.6992671394364347`*^9, 3.6992671741847553`*^9}, 3.699267251946439*^9, { + 3.699267657414487*^9, 3.69926768427127*^9}, {3.699267719087634*^9, + 3.699267736132443*^9}, 3.6992683319989443`*^9, {3.699274349380067*^9, + 3.699274354920266*^9}, {3.6992743990399313`*^9, 3.699274417473796*^9}, + 3.6992937364511757`*^9, 3.709996512496706*^9, 3.7099965789937353`*^9, { + 3.709996651742*^9, 3.709996677570758*^9}, 3.70999676201997*^9, + 3.709996894585876*^9, {3.709997016434312*^9, 3.70999705842448*^9}, + 3.709997172626698*^9, {3.710821616101922*^9, 3.710821638376109*^9}}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAmykMnCS2/r8ll8MO1pbgv9vN/DoH +9v2/wIBVEBAv4L9irdBw4CL9v0tVn18Det+/Xvdjg1BV/L8aVJGU8Jvev2a8 +tI47jfu/u0hYnMnD3b8bDcGuhcr6vw5+y1Nw8dy/HvqG/xIN+r/tPsKXxiTc +vwiUBJ3HVPm/LdYTRa5d27946zejh6H4v6eOlzgJnNq/EhEfLjfz9784syRP +ud/Zv2wVuFm6Sfe/to6SZaAo2b8qCQFC9aT2v/truFigdti/6Pz3AswE9r/j +lW0Fm8nXv0IBm7giafW/QFeJSHIh17/ZJuh+3dH0v/D64v4Hfta/TX7dceA+ +9L/Py1EFPt/VvzYYea0PsPO/rhStOPZE1b82BblNTyXzv2wgzHUSr9S/eFQK +vFqf8r+MaGk5XR7Uv2TyrBY= + "]]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{-1.1135338529063592`, -0.3007498062191221}, \ +{-1.0699822553777378`, -0.2889880816889314}, {-1.011659105898364, \ +-0.2732372301671322}, {-0.9564824163361805, -0.2583362287355975}, \ +{-0.9043169619792666, -0.24424852274877762`}, {-0.8550275181156989, \ +-0.23093755756112244`}, {-0.8084788600335547, -0.21836677852708197`}, \ +{-0.7645357630209125, -0.20649963100110655`}, {-0.7229799943360239, \ +-0.19527607426468085`}, {-0.6836235059752584, -0.18464460798945884`}, \ +{-0.6463763503338721, -0.17458148811514435`}, {-0.6111485798071203, \ +-0.16506297058144143`}, {-0.577850246790258, -0.15606531132805374`}, \ +{-0.5463914036785398, -0.14756476629468507`}, {-0.4886323967515585, \ +-0.1319600426468204}, {-0.43703542667303064`, -0.11802122199670972`}, \ +{-0.39085760230196054`, -0.10555082683023005`}, {-0.35797215844058256`, \ +-0.09668336789248022}}]}, + {Arrowheads[{{0.03343011260317715, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAhR/Y43mv079/QOtlmEi1v8n/3CNW +aNG/4KL9bG7Zsr+DSqjU1EDOv26XUEiNb7C/slAMUA6lxr8YGT97vv6ov713 +Am3EmcC/Ccue9sb5or8lAsnVWRa8v64Yjk9OfqC/Hr2rfEN4t7+khIyKAn2c +v3aC12LUA6W/3LooIpxSjb8SWwP1thVxv57OdxJr6Fu/OG1MwlDoYL/t7/4f +AOxLvwAAAAAAAAAAAAAAAAAAAABJm1WZDw2DP+GLXHYBh3E/K5dbKsMdkj9I +w1vlXWmBP60bq6/jy6A/1C0141ZAkT8rjrw9mfamP9bjYJcxaZk/EVVyTUvO +qz+8b5E2uW+gP0GFTJyJ5q8/kjF93XkOpD+HYs16YnSxP+ZEeujwFac/mnGJ +zN+Isj+9vaRzk4epPx6A+ChfVrM/uaDBfeKPqz+icl2erd6zP0XKK84fE60/ +uJPO5iI2tD/1XvgufiquP4Uir88= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAp+GNIQ2vzz8JbI0yffvtv1NArEI3 +tc8/ftztDZ747b+LIt/UyjXRP35gYLjwquy/6hK3Q9qE0j9UWPJCV17rv+tW +DQ56x9M/YKZCvAgU6r80VBFUWv3UP/Ys8DI8zei/wArDFXsm1j8b7Pqm8Ynn +v4p6IlPcQtc/1ONiGClK5r9GmNLhX2bYP75lw+09+OS/hQdZwnl82T9bM4Vs +y6zjv0zItfQphdo/qEyolNFn4r+c2uh4cIDbP52xLGZQKeG/cj7yTk1u3D+O +xCTCj+Lfv87z0XbATt0/Pr2yCnB/3b+1+ofwySHeP0FNA6ZBKdu/H1MUvGnn +3j+sdBaUBODYv+MT0UUMod8/pzg9Byml1r/uKQz9DijgP1ueyDEfetS/gQl1 +bE964D/SpbgT517Sv6koI3FHx+A/FE8NrYBT0L9JjdMqgyrhP2fdz662Csu/ +Rcq1EA== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAA/rIcjKCV4T8YFma5s5PEvzohkFhT +xuE/RIuceDCIwb/g2y+gfyniPxnf8aJMYbW/hxZ45Tt+4j/DTAgd9S6hvy7R +aCiIxOI/XJ2AYKpoij/VCwJpZPziPzKeldnFmKw/Ij8MqGIo4z/mml0PA324 +P7bjT+YUS+M/EgO9N8X6wD+W+cwje2TjP2gIkIb8WsU/voCDYJV04z903Sd0 +J1/JP8AuIl8Kf+M/vg/DNApCzj8KX/pY1n/jP39doT2IVtE/dkZXPnNk4z8i +vvfMww3VP1j++J+wK+M/5+BYcgX81z8FTj4N097iPw2WBjgMSNo/XIe2cftn +4j/yVeWTmXzcP7rmsghV4uE/Joh8jm0G3j94kYSJIb/gP5bKLHd8n98/96hM +t8hf4D/IZFpXXd/fPwAAAAAAAOA/AAAAAAAA4D/ekNSL6/DePyvFGomY4N8/ +5AF/6I3m3T/XWshSNqDfPzBFwlJv3ds/Q1U2+wDs3j84e1fVH7HbP1/U3rF1 +1N4/2Wy/Gg== + "]]}, + {Arrowheads[{{0.03724033409039211, 1.}}], + ArrowBox[{{0.38772738897005143`, 0.4553728786155849}, { + 0.3767578814740402, 0.44799926487387753`}, {0.34927603298023613`, + 0.4265991548463903}, {0.323810229317417, 0.4043282855688273}, { + 0.2786924183241936, 0.35964240717361795`}, {0.2407512831532351, + 0.31745830674605696`}, {0.2151216172676358, 0.28677142280760803`}, { + 0.19300309505967633`, 0.25874651709069835`}, {0.1577592410202682, + 0.21074531794092832`}, {0.13216989188982953`, 0.17282801235011355`}, { + 0.11267635521905937`, 0.1414579113775171}, {0.09937619566458196, + 0.11803367194613516`}, {0.09052501047369221, + 0.10081194129097687`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAUTEm74AB5j/+pFyzIIEAQDHzb8VO +4OU/ZvYTFDtoAECm8ZsTQVPlP3vqaZ3h/P8/zQX++QbK5D+1CP12Ci//P9Ej +gSVGROQ/urVBOGlm/j/fPxBDpMHjP9BfmGR2ov0/9FmrUiFC4z/wBgH8MeP8 +PxRyUlS9xeI/Hqt7/pso/D88iAVIeEziP1pMCGy0cvs/bpzELVLW4T+m6qZE +e8H6P6mujwVLY+E//oVXiPAU+j/tvmbPYvPgP2QeGjcUbfk/cIeo4O934D8o +y/zQ57P4PwAAAAAAAOA/AAAAAAAA+D/LpsQ/UAHfPxh90y/8QPc/mN58OsEK +3j/ypt3rEIj2P8ZklRSiG90/lAtwj7nU9T84+unBLTTcP6p7b1EiJ/U/8bpW +hx4s3D81DIHlFiH1PzBmlg0= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAATDgkG8sd2z85KltUWFb0P/YWoRv/ +r9o/OdG4VP8D9D9Ww3QsVvXZP4GSV6EAePM/ENntf6E/2T/MYvIfue/yPyFY +DBbhjtg/GUKJ0Chr8j+KQNDuFOPXP2gwHLNP6vE/SpI5Cj081z+4LavHLW3x +P2JNSGhZmtY/Cjo2DsPz8D80kvBWc2PVP+r334mWCvA/maFjJWc81D98xHH9 +mlruP5Z7odM0JdM/EPKB2c+37D8kIKph3B3SP4l48KfLLOs/d0EEIcgk0T8Q +aq7LMLfpP7yRNmNiONA/xNisp6FU6D/lIYJQVrHOP6bE6zseBec/Nn5H4EQL +zT+4LWuIpsjlPwAissbOoso/ebfzNCz64z/jKwMv/3HIP130vxq0VOI/pGAk +RdaQxj8dIYc3G+rgP1xAlxw= + "]]}, + {Arrowheads[{{0.022726786981903405`, 1.}}], + ArrowBox[{{0.15992635254765952`, 0.4790359317612799}, { + 0.14791574455953588`, 0.44247878588685324`}, {0.13603030109500838`, + 0.4059874179989831}, {0.1252816399955316, 0.3725973830310747}, { + 0.11558046580907018`, 0.34199334411280363`}, {0.09909164717462327, + 0.2884505923698436}, {0.08610598319052704, 0.24397383865944208`}, { + 0.07610944497378838, 0.20711502788825276`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{-1.9194685073476652`, + 1.9194685073476652`}, {-1.917203313343297, + 1.917203313343297}, {-1.8931931038279237`, + 1.8931931038279237`}, {-1.869462164003648, + 1.869462164003648}, {-1.8460104938704718`, + 1.8460104938704718`}, {-1.7999449626774136`, + 1.7999449626774136`}, {-1.7549965102487493`, + 1.7549965102487493`}, {-1.711165136584479, + 1.711165136584479}, {-1.6684508416846024`, + 1.6684508416846024`}, {-1.6268536255491202`, + 1.6268536255491202`}, {-1.5863734881780314`, + 1.5863734881780314`}, {-1.5469080120055216`, + 1.5469080120055216`}, {-1.5083547794657757`, + 1.5083547794657757`}, {-1.4707137905587933`, + 1.4707137905587933`}, {-1.4339850452845746`, + 1.4339850452845746`}, {-1.3981685436431202`, + 1.3981685436431202`}, {-1.3660624214577546`, + 1.3660624214577546`}}]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQneUTk+jm8nU/lLZf2PUhwmTvl/1Q2n7RTL/bUpZf +9kNp+09b+5X4d3zeD6Xt++9v1hO0+rwfSttXie3+r7D/034obb8taulUO/dP ++6G0vd2aog+Zlz7uh9L2otzKAosTPu6H0vbW5du+vPz4YT+UtldaOPe0RfmH +/VDangEMPuyH0vZeVhmMpRzv90Np+y4P9vZpEu/2Q2l72Q7Oowf13+6H0vY2 ++gn/dfze7IfS9kyb+9k5ul/vh9L2D/ussw+eebUfStvfOJSsFSn8aj+Utn/m +x+F6Pu7lfihtL3lrnQjP5Rf7obQ9AEYYqCs= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQXXwvwvfCkuf7obS91IdSp/C9z/ZDafvasLXbH7c/ +3Q+l7TepM9vxJT3ZD6XtdySXX73m/Xg/lLbv4+Kqs3V9tB9K2wfeCLfe6vNw +P5S2l+z8K7Ax4cF+KG1/0fLb30Sm+/uhtH2N+kKurJi7+6G0/TlttnncL2/t +h9L2SzPCDY3X3tgPpe3LnItqpy68th9K2y9RNLF+vu/KfihtbxW18Iw+0+X9 +UNre51zal3dZF/dDafstKXt/SL8+vx9K258uPRbzxubsfihtv6Bu3cOythP7 +a8SNza61nbBn2Zd268We4/szdstpTtl73B4AAeCrOg== + "]]}, + {Arrowheads[{{0.009695715500715546, 1.}}], + ArrowBox[{{-0.14849590279133124`, + 0.14864234452718594`}, {-0.13471453584919546`, + 0.1349619109620927}, {-0.11252171872909364`, + 0.11330970684327654`}, {-0.08363507495877412, + 0.08623682860376655}, {-0.05983858401829984, 0.06575509423735958}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAApuLTWyxM3b8JbI0yffvtv6x1YpQt +Ed2/fL02eBna7b9BSGFI12jbvyQ4gZEg6ey//ikHuN/L2b/8mKuzx/3rv+Ma +VONGOti/+9+13g4Y67/tGkjKDLTWvyYNoBL2N+q/Ri8nlPOi1L+MN8neAwXp +v1B3FnDWpdK/kwARjZ3Y578Q8xVetbzQvzxodx3Dsua/BkVLvCDPzb+GbvyP +dJPlv1ULi+DOTMq/chOg5LF65L8MOesodfLGv/5WYht7aOO/Ks5rlRPAw78s +OUM00Fziv7HKDCaqtcC/+7lCL7FX4b+C9htx43C9vzWRY5yRquC/mpmZmZmZ +ub8AAAAAAADgv87hPcsGArO/dlab/OKR3b+mb3+0/82pvyBG3o9NOdu/DK+P +H9chnL/3ZSPJzevYv5S4zSxXLnq/JuZsTnm01r9b5FfE8GmKP5nSSSFXlNS/ +60TEmXRhkD9EO2MBiDjUv9MSxAs= + "]]}, + {Arrowheads[{{0.028101667199257795`, 1.}}], + ArrowBox[{{0.04083570856793907, -0.27006983040084986`}, { + 0.04633739299126899, -0.2596077980503966}, { + 0.06063680744860452, -0.23095458506152408`}, { + 0.07973523340976461, -0.19008225519495675`}, { + 0.09563626213008278, -0.1528997035820348}, { + 0.10866540124838939`, -0.11932139570981762`}, { + 0.11914815840351485`, -0.08926179706536438}, { + 0.13370608357432767`, -0.03893543509688979}, {0.1428455725010927, + 0.007954549781194392}, {0.14510413286021145`, 0.04054356519161871}, { + 0.14309505404248968`, 0.06226469325436472}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQPVuTZ47Ktn/7IfQ9+4wJGS0JUf/2Q+h79i+vnUpx +afu7H0LftT/e/5nz1fY/+yH0HXvG3Y+KA9//3g+hb9tPi5ixqErn934Ifdu+ +I0NkWmr+r/0Q+pZ9fr/p8frtP/dD6Jv2TwtvrTNj+bkfQt+0f83P7NsV+mM/ +hL5hX5O5fmHV6u/7IfR1+3l199ews33fD6Gv2wf4T84zTP22H0Jfs59w+9Sz +7ye+7ofQV+3jlNtEow2/7ofQV+0XnbDneTb3y34IfcXeObfojjLfl/0Q+oq9 +o6Bcm0jT5/0Q+rL97C1OnDt+ftoPoS/ZH5Xxnaw/4dN+CH3JHgC4qavy + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBmIQzWMn9/PWgY/7IfRF+yXW/VOc/n7YD6Ev2IeX/Zfe +XfNhP4S+YM8ABh/2Q+gL9i27LbnuSb7bD6HP2Ze+D5OaGvBmP4Q+Y7947fvv +T6a82g+hT9kHNNQXpH15sR9Cn7CXqF8rW5r7fD+EPm4/9aDCzJx/T/dD6KP2 +Z+5Zb3qw9Ml+CH3Efn9uokVq0uP9EPqwvQ17ic32nQ/3Q+iD9vc2haudMnuw +H0IfsO99wavZt+rufgi911533g+vdYq390Po3fYVK9b8LTt3Y38G39TfZed2 +2C9ovKl2ft21/XVcnrLn122zPzRH69D07Gv7Z7nN3zY9e5s9AOtQo+M= + "]]}, + {Arrowheads[{{0.012911112156425845`, 1.}}], + ArrowBox[{{-0.2996991531886695, + 0.07492477784368375}, {-0.29625378467539437`, + 0.0740634350345172}, {-0.24746272393460259`, + 0.06187804531309722}, {-0.20658967245132, + 0.05170932772128085}, {-0.1721222424078888, + 0.04321617948068926}, {-0.14274939726869576`, + 0.03612624156157791}}]}}}}, GraphicsComplexBox[CompressedData[" +1:eJxF13c81f////GTt1EZlVHRUCka3pLISO+71VSIimjQQCHjLU1KpBLKaNiy +sgtlRB3VW2TP7M4wjs0xD6Kv3+/TeR3/nMv14nLhdXmO13nc1p+zN7zIRSKR +niwgkf7f58tFMi+EXMeg/tO29HdGD5653X5LIY0BRaGts1XduFNuVnVpdhRr +X7568b6kG4KmcgJnPUfR8NJQkMlk4F8P2cJg11HYnzkUvrWLgUWumotsXEah +lr5vSVQjAwe4MvbxLRxFbsXifjkRBhgFTzMHp0bg6Pk0af2vLnz79m5LX+8I +3izQ8xymdOFekpL7m8cjuF5sHGC8qwsfVqzuo14dwftrDzf9FO6C4/62k35n +RrDR8PiUBqMTHw1z84yXjKDJdHtlhWknUhMkJm2ZTOROBE9abu3EdYfrl3Wr +mQiOPnXFf7ADrGn1id8BTFi1S/0VcbcDux2SXGl2TDxY+Khurca8t8Wnr9Rm +Qmj0fDttvB0KMQXyCcuZGMjObq143Q4z1vUZbcYw5IOnv0ybtWOF/AxXf+Yw +PLRtTBRm6bDT1bExCBnGyX8NzGyq6LgTtlTE4/wwaplNrmuc6LhZMxb/QWoY +rECn8nvcdCSMFsWx1gxjlYpujes0DcslgwWSsoYQn+LgLuFPw3/KLwo0tYdQ +8lB0mY8MDWPRw0U/1w/BruOGVi0/DffV/fqOJg5ivby3j0gqFaoPI5QCDg2C +fCOQUXOCigNH99MCWQOgK7pnS4lQkbySoT4bMoCSnjuHhIMoSGuMS6IfHcCt +e48kI5ZQoPD+iXF4WT/SFi872a34E56rrFKjH/djYFP4nkVVbZDakiq582Q/ +9ATerVt1tQ1vesLQHN6Hl8mS2o+0W7G/94mryq0+qJZYO0oKteLljXdBHuZ9 +yDp0qUj5Zws+n61NkLHtxb3Dcn9vNWyGixP3w6JLvciYCZPX1muGUEneojqr +XkgUyE4t0W3Gvx0pyo+O9+KI+9JHQX834+Uyy/j1lB6cONPdtt2pCR4SX902 +2vdAVNHWDp8bcWm76rlawx5EfjUwsAtuxIDPIS6afA9sB9RXlJo3gnW5ZNTZ +pRtCzfvcNqo3gDfu5FSIejdUJf6ekGz/gT3WNJmD8+f6hJ/uAlv7H7DLq7Yu +dGXAxzs6yDmvHkv0/Y5TJRmY4aMta1Cth0cI/8XE1C5obDftE3CrA52/qU3s +fhdM5wRcjVCHwoLMpSTuLlywzLRv8quF8SmqoaVPJ36st3+XXlqDWNY+Vpx5 +J7ZWWden+tRgJUWU/0pXBwJthPTBqEZZCqMoK7ADmy+EpB2zqIbjnYSxtoUd +EHW8RtYLrYJVXIr4iqJ2FK/7xbNduwqas4PqfKHt6Krke9DAqsQ9i9Mjrcrt +mAowdH1IrYDSzdy+vcl0/JISMKIYlaNDTIGLEUeH1l9rhKP3liPryES6cTQd +6dtElHTVyuHny9gr4kvHGanq6PK5MqyhOIr3LaNjx7rdj2ozSrEtYlY6IZGG +ROZq17MhJRDMP9JedJuGg4PdStEbS6B29qi4qgoNVRe3yKx3/I6oQe4w1lsq +4iofCZ1dVIzNnYWWz3Sp8CzXqhqSKsLFhLg9TBcKYl/vmznnV4itbis3BDhQ +kCd41ZPHqxAdu95OzF6gQFzcJVbtWiEaxBq6i/f8xNoPXZrKy/6DqKSMwM47 +bfBNO5X1autXPL5R8jxbpRXXe85XxiZ/hghiTTRKWqDX57W4TOEz5shKE7W+ +LVBOlsyaohRAhbInrSusGQ363W5BgWSMWsiGVwQ042uFTDLdlYxucx2qc1gT +dvaS6hvtPmK5+hMpXr0mUHp+qD4szYePmMUYT1YjXp7g2l/un4eaBUYlYskN +OHXk3UcBi1xMHnCK9k/7gZSPZD+LT9nIj7Z4l5Vbj/PK519LRr7HoVpNvtaU +Omg0qw8ZlGWi1PDXstpFdUgJF1h//lsG4rUdIoyLa+Fj/rnoukoGrCqWOYyI +10KH56tSvnA66oLV5F6n1GAHj57J86tv8bTD7SHrRzXW3v1Hc8uDNLy2Vl28 +WL0aK0Ml1q/pTEE4786WlPVV6P1PwllnMBFji1d1KpRW4mnCQNorh0Ro63o6 +SBhXoCpvUC5RMAEmdUsHL5wrg3+4j1n3pngUH1bJde4uxeDk1c7KN3GIkidV +aEmXQkFX6B6NOw6eoxLDdP7vkN/cFDM5FoNwv+O+WTzFcFPzymI5xkAhXzni +sWYhKgRadp8KjMGI3cqnlsNfULXjfo+Fdgz2CT9VUtMowK3i+pJLSnFoIKeQ +f+7NJ57n8CvdiTsZuSClVY3l/EqEYoKpCOtDDvozPffqSCbDx/XnwQs6GXj6 +cNTc2jUDrdue5d0afwvd7ujxp/aZ0P6130an8C1eJw1FiIdlYvXkjKRn5Fti +/ae3zlrZnklDpEOty/OA93i2L2FFxPMk8OlpvohiZKOYvkZnUjme2O8bXvXS +X8mxOHo53OXN53wsPBtZNHc2GiFmZ4NrjMn4Z7zutcu6COI8Oq2NWuIXGALb +j8ZkBeYX5I9MliwvfwHVio8beIe/wuwjdyhuBxH3IebW+ItUY3/c26OxeQV3 +EeS2e5DOD/vh38PSrqeUi5FmLv3pjuRj4r5pjF3n32v/EG4tLcxarRLk2F4N +9t7nTtz/4v//BecCDMXa3T9RBa/+jruLua9i5tp16U9BVehmCojKMJyJ942c +5Yexg9XO2Cf62jQpugqsK07m506aokM0x7twTx0Kwg4rPlE/SbwPjzWtinv4 +2hgKUdmbeD/P/z711W9q2nY0HDOVX7e4ERqaq/S28v8Ncnvm9h1mjVgnell9 +atsWjPWvMNuX0wjSeScrrvfUf96wJFRP8baA9Ofn5T8Thz9IcGmwbaPSHJmV +uICw6jNxe6FAjgWfzH5evIFj2kOaKF86ifCbznUdZ0I4vkfhVjbbwnFKRrXI +G4ffxP/fZ2uQcUab48GzK02MLeYIPzeizurfmSUsL3g27PdRjhtJMlos+1+E +744NMoZ9ZwhLpNl5RZlz/OWVkmyw2zThy89mq/3Dpghz69920LTnOEVLZ7ma +L4vwsV0C+QrJk5znHfI2pbty/LzdkNQSOkH4nwaJ+Nrccc7zPg3W8fDh+K6n +Re+tpDHCm69veepcPMp53h0JchtDOb68yaFude4IYWFxlZtiDUzO89ZkrSxM +5PjYN7dPH4uGCbP+9S22LR0iLMvw5ilz4Ph2hcTRjykDhMveJ4WldfcRJm1J +aBL049hgqcqm3997CEdNFjkM83QTrrtcmKqfzCDMnjfZdlbt1FGQ6iCckEJ3 +9y9u5zzvn/mO7YAjTBuFBhrhA7e4xJ01qITZ8xnbU62/k+NLKYTZ89j/tE7d +/Fr6542dbWDP77/23mho+j4Ns7An3MdPj+G3UPknw4hpXOwb8P+pOwb2+bnr +531glGcMSdLBba5807CK8ePqXDAGK5N6JZEF03AMpbUEpY9CeUT9Vc/9KeiQ +yRICr+b30Tc5QP3SFDH/7zO6lf5ceQrXFUXiOi1H4RRS0OK/aAqvSw4u7NUY +hUjNZok3VSzEvXipHSY+CvZ5ZPcA2Sis67ADC4+2XtX3oY0g7gv3gdPKLJw4 +Jn+vt2QEXb1FBvSlLKIHEsT2Xe9MnMTIlZr0BR4jSK9IM1UJn0ToLd2EJtcR +rA/UfewdNAnK+RwXZasRuB2uuCvsMImbPXsPH9wwgshYLSVNnknkmd4vW9jK +BPu8s3sgL4V0UmvDBHSDmq/ZmzORE5I/mlc/jkpv3xHaHib4FU2vbosZR/5t +uf3PSEzkczkEd6mPQ7b8dsv77GGAN8SUVjS/jsLVPWtih8G+H9sr9ewFoobx +iWTcRY4dI/rgxJuK6i0hY4jJpe9p2zMMsmWJD4TGYGSwttd8dgjjddZny+b3 +IXSj652o7CF4/xz/HXZtFHyyz2qkrYcg79of7Kw0SvSB3uccEZGVozj5uz+y +YGwQkZqFF05TR2Dx4kKU38dBsO8fxSvRafvOQRzVu+LgcmAEF8Lzl5VsHERs ++ahQofr8uq/1+XKMOoCZl5ePx/ON4MTKTa5J7gOgXL120K6AiY/64Q7LrwzA +5MMtS6MMJtEPh0Uv2zWFMGG8ufVAX2s/JNbOeIjpMNHPpVqRnNgPpR3vZZtW +MYl+CDZ4fIXaNozEhdE/utT6wb7vua/USr9T+qCdsTtG4uEw9mfO3BF41ge/ +K1xTF3WHiZ4g08wMojcMQ/hOxk5RiT6s3CxU/LhjCLu2rz7R3dWLgL8FrFZH +DIFrUfrFC/P9IDI/AbVmDyJKS6pZWqgXwRM3U8i6gwjUYpabRvSA/f5wrrNa +KO7dg8eiLkXF/gNEX9yKsVHJsxhA+Oqthfla3bC037L7TF4fInPc97pMMKDo +dONMqlYf0QupEjIr7j/uRVj2k/X0wS6w3zelPzPrCs51odX3QkzsaDduZnmG +1lZ04jR/n7Hgqm7wLFZR9I/oJPqZ3Qu9LlSb4HwGJB91LOz81oFTm45qf0np +IvpAf0D39aHTXdjlLXsgT72D6GMtl2sTuyfaIdVUBoH5v8Pug3o+lvkgqRPU +5d7H5H3biT7Of6pI9bdph+iu6GWryR1I3rwlJ35rO+KKtlhrWXbA86fKFPUH +nehjdi/YqoyfEkxux4MgEROSyXw//DqS8Wh/O6r4c8MNJOlEH7N7YUh3VYXa +STomSDOLBz1pkNtxtUd9Cx2+2i0X1axpRB/faWd92r6KBvFItyTdEBoiM8al +RjOosE24XFIuSEMBqbvLIZ1K9HCjZy4P5q2kV9joM292b4wrL4vcNu/L5xhl +dXQK0cOjLelfSjMomOG/VCHYQSF649E2+o1SbwqieF91W1n8JHp4Y/UmnoDp +NkSYCJs/ym0jeiP5k/fj3wvbwK0YaDnZ1kr08Dt1rQNpWq2gy4kw0/xaiN6I +qyLzWs13xd5YqcQ04xaih6fdBhaeetAMB7n73NpWTXCkppW3FDYR/cruD8a6 +TV8dtzWivTL/5d2aRphJ1h4wV22AQruv8A7pRqJf2f0hdNE5NLW+HoL63x+2 +8DeAh94uu39NPRQ9ytbK3vlBzGvsHglZ976g5EktTJ6YOCihHn7tjuLb+Woh +qT73l1hTHdGrO0att/DNz3WxS3x1/B1qsPbgrQyNE3XIKDn9+b+5atCoYhfd +ZmoRuc7h0FxgNdEv1HRlsTMnq2GVNaOhb1MLo7m+1casKpQo9qYHS9QS8+aq +oGsiCZU16D910EVmfxXIxo5Tcm41+D6zKFy+uxLlgrbpk0o1EPaYtf5nbyXR +O2kuQp5OzhV4esCrJcGvGr/MZlPcOsphFs3okdhXTcy/7N4xan3gt9yyBDoN +j9yt91fibvAH776x73ilbsUdXFpBzNPs3pHXb5Z95PUNL9LmRBdblaJ+793I +8iXfkOlUVK/zo4SY19m9Q705dkGG8gXb8mWSBU8UoTfPP/2I2ReYp9V6+Yd+ +4/RAlZMFa8N/MP2sonCr7xOkaUnKa5S+Ql4pIMRjvjc3OB6NSuD+QvQGu4/o +hbukz0bl4BzEXPs+fMRl8v62Jv8sGPnlF1xpzyV6ht1Hxh28rYHdGaAueNCi +N/4e/TsvZb/mTUeylJV3b/A7ONIvr6PLvIXhy2+Rd1XeYbPKO69NtW+IfhJZ +LnRdqiAZfDXFRhfvvoG7poHh7utJmAp1r/l+N5noM/OWC5K3NiXByK55PE7j +NZqP3kukuMZhrpj/SPFQLNFH7oe+0s+pxIBeLfDplO5z2DtNVS64GQlD6YxP +4ioBoFEMfK8EhhO9cpAry8Dh+EtoCLqlpplvRuOJZ9XJbs8xY/zfXONnDzKX +X3X8Ob8AfMh8V/Am2pes4VU0Z87jDz2Zqd3DzOfkL8ter2hc7ovUjQNynTbB +5HfT9r83n38Mv53CvG6yCeSotOopgVx38D5esL9PI4W8OndKViz3BryMSdvl +dNPJNayN2jOXHFFupC+qW55Lzik5vUej3AQKn/iNriR/JBdoUci73ZThONa0 +QHHbZzLJS4/LLpsEq7RIRvIYqYCY6/7XHYSfFW0yP3iC45zZI7msyd9ktv90 +B2FRedOknXlzhKMjTsUE83L8pzsIz1VZB9V9/0XYBza+amIc/+kOwt2O19yu +Nk4TdqHeuNYixfGf7iBcI+xlvZzBImzu/tDitgLHf7qDcH5mkGH2+AThQxte +6K7R5PhPdxCOPxajbsLNseLXOKVP+mOE/3QH4afj6dJTwhyvvfBO8uyZEcJ/ +uoPwzecFS0PWc7yQ5+sikt0w4T/dQbj4SsT4VfNBwh26MQzNyX7Cf7qDcNjb +vO/Zrr2Ec3wL8jxEewj/6Q7CDiON4VMhXZz9qmx7Urijk/Cf7iCsozjhuDuH +zln/ZTPn+fRphFn/6wrO+eiX9plOaiNsHS/vENDYzNlfOR1z9eImwlHmase2 +8jYSVu8+olM3/oOzX/YWim6d9YSdo40320rVEV661WblcpFazvqnuy0s4Koh +fKDD+VeqRhVnfRuWNr0xr+CsJ0M59y+NMsIqhze+ouQVE3Y003XfGfqN8D3+ +qa2T2woJ/x/gvRrI + "], {{}, {}, + TagBox[ + TooltipBox[ + {RGBColor[1, 0, 0], Thickness[0.01], + LineBox[{1, 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, 50, 51, + 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 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, 127, 128, + 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139}], + LineBox[{140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, + 152, 153, 154, 155, 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}]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.4`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.1`", " ", "x"}], "-", + RowBox[{"0.9`", " ", "y"}]}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.4`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.1`", " ", "x"}], "-", + RowBox[{"0.9`", " ", "y"}]}], "]"}]}]}], "\[Equal]", "0"}]], + Annotation[#, -$CellContext`x + (0.4 + 1.1 $CellContext`x - + 0.9 $CellContext`y)^3 + HeavisideTheta[0.4 + 1.1 $CellContext`x - 0.9 $CellContext`y] == 0, + "Tooltip"]& ], + TagBox[ + TooltipBox[ + {RGBColor[0, 0, 1], Thickness[0.01], LineBox[CompressedData[" +1:eJwN0NdCDQAAANBbKFFCCEmSJNEWUiqhTW7rvQ/gg/qWpL2s0tIgkYhK0bbO +w/mBk9j8JPg4JBAItNDKU9p4RjsddNJFNz300kc/AwzynBe85BWvGWKYN4ww +yhjjTPCWSaaYZoZ3vGeWD8zxkU/M85kFvvCVRb7xnSWWWeEHq6zxk1+ss8Em +W2yzwy6/+cNf/hGQEkIoe9jLPsIIZz8RHOAgkURxiGgOc4SjxHCM45wglpOc +4jRxnCGesyRwjkTOk8QFkrlICpdI5TJpXOEq6WSQSRbZ5JDLNfK4zg1uks8t +CijkNkUUU8IdSrnLPe5TRjkVVFJFNTU84CG1PCJIHfU00EgT/wEYZ0u1 + "]], + LineBox[{344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, + 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, + 370, 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 382, + 383, 384, 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, + 397, 398, 399}]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.3`", "\[VeryThinSpace]"}], "+", + RowBox[{"2", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.3`", "\[VeryThinSpace]"}], "+", + RowBox[{"2", " ", "x"}], "-", "y"}], "]"}]}]}], "\[Equal]", + "0"}]], + Annotation[#, -$CellContext`y + (0.3 + + 2 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0.3 + 2 $CellContext`x - $CellContext`y] == 0, + "Tooltip"]& ]}]}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.08053149265233484, 0.06305065275648662}}, VertexColors -> { + GrayLevel[0]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.08053149265233484, + GrayLevel[0]}}, {{0.06305065275648662, + GrayLevel[0]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-1.9847372916783081`, + 1.1458002769829778`}, {-1.0022181315741565`, 2.12831943708713}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.6930448384819927`*^9, 3.693044859488907*^9}, + 3.693044989207708*^9, {3.6930451006531467`*^9, 3.693045125232478*^9}, + 3.693045246281494*^9, 3.6930454250975924`*^9, 3.693045475412416*^9, { + 3.693300147021147*^9, 3.693300160029902*^9}, {3.693300279216797*^9, + 3.6933003036904097`*^9}, 3.6933003924435387`*^9, {3.693300488788917*^9, + 3.6933005170604753`*^9}, 3.693300569042886*^9, 3.693301093693428*^9, + 3.693301139126978*^9, 3.693301695456842*^9, {3.6933018222520323`*^9, + 3.693301834054962*^9}, 3.6935539528522243`*^9, {3.693553985954308*^9, + 3.69355400092*^9}, {3.6935540442505617`*^9, 3.693554061193859*^9}, + 3.693557849304264*^9, 3.6935578861674347`*^9, 3.693557994602542*^9, + 3.6935581225998*^9, 3.693558412595677*^9, 3.6935584693876247`*^9, { + 3.693558523527027*^9, 3.6935585515527363`*^9}, 3.693633505977499*^9, + 3.693633804846588*^9, {3.693633870555887*^9, 3.6936339182956667`*^9}, + 3.69363394963232*^9, {3.693634523755886*^9, 3.693634558535604*^9}, + 3.693634604389668*^9, {3.6936347593721867`*^9, 3.693634806694268*^9}, { + 3.693634868254922*^9, 3.693634889920994*^9}, {3.693634939369061*^9, + 3.693634964597478*^9}, 3.6936350115683727`*^9, {3.6936351097446003`*^9, + 3.6936351362934093`*^9}, 3.6936352032119827`*^9, 3.693635236965022*^9, + 3.693635268416267*^9, {3.693635342433133*^9, 3.693635353830261*^9}, + 3.693635414186887*^9, 3.693635456441825*^9, 3.693636436415922*^9, + 3.6936366073125067`*^9, 3.6936367044767303`*^9, {3.6936368271333323`*^9, + 3.693636857055181*^9}, 3.693637977870657*^9, 3.6936550858463078`*^9, + 3.693655697884179*^9, 3.693656196420047*^9, 3.693656277414295*^9, + 3.693659912174467*^9, 3.693660053729073*^9, 3.693660097083301*^9, + 3.699266324328162*^9, 3.699266366607069*^9, {3.699266475879183*^9, + 3.699266493915804*^9}, 3.699266859783309*^9, {3.699267033924588*^9, + 3.699267057407189*^9}, 3.699267097284881*^9, {3.699267139511035*^9, + 3.699267174258349*^9}, 3.699267252023003*^9, {3.699267657492249*^9, + 3.6992676843445253`*^9}, {3.699267719163569*^9, 3.6992677362075863`*^9}, + 3.6992683322346*^9, {3.699274349458699*^9, 3.699274354994232*^9}, { + 3.699274399119*^9, 3.699274417549514*^9}, 3.699293736530676*^9, + 3.70999651270955*^9, 3.709996579066434*^9, {3.7099966518140593`*^9, + 3.7099966776651173`*^9}, 3.7099967620962954`*^9, 3.7099968945651217`*^9, { + 3.70999701641816*^9, 3.709997058402185*^9}, 3.70999717260888*^9, { + 3.710821615826844*^9, 3.710821638651218*^9}}] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.6930449731364183`*^9, 3.693300228310754*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Figure", " ", "2", + RowBox[{"(", "B", ")"}]}], ",", " ", + RowBox[{"two", " ", "steady", " ", "states"}]}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cminus", ",", "F", ",", "P", ",", "Z", ",", + "z0", ",", "re1", ",", "ri1", ",", "re2", ",", "ri2", ",", "plot1", ",", + "plot2", ",", "plot3", ",", "plot4", ",", "Ge", ",", "Gi"}], "]"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "0.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cminus", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jee", "*", "gi"}], "+", + "ge"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + "<", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", "z"}], "+", + "cminus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", "z", "+", "gi"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".2"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".34"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\<, z2=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Two", " ", "steady", " ", "states", " ", "in", " ", "the", " ", "phase", + " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri1=\>\"", ",", " ", "ri1", ",", "\"\< and re2=\>\"", ",", + " ", "re2", ",", " ", "\"\<, ri2=\>\"", ",", " ", "ri2"}], "]"}], + "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "hand", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], " ", + RowBox[{"(*", + RowBox[{ + "Define", " ", "the", " ", "plot", " ", "region", " ", "around", " ", + "the", " ", "steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"re1", "-", ".15"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re2", "+", ".15"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", ".1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri2", "+", ".2"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"(*", + RowBox[{ + RowBox[{"StreamPoints", "\[Rule]", "10"}], ","}], "*)"}], + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.2", ",", + RowBox[{"-", "0.01"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.05", ",", + RowBox[{"-", "0.03"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.1"}], ",", + RowBox[{"-", "0.05"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.1"}], ",", "0.05"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.2", ",", "0.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.6", ",", "0.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.55", ",", "0.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.5", ",", + RowBox[{"-", "0.03"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "ri2"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", "Blue"}], "}"}]}]}], "]"}]}], "}"}]}], + ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "Blue"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri2", ",", "Blue"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"a", "-", ".1"}], ",", + RowBox[{"b", "+", ".05"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", + RowBox[{"c", "-", ".03"}], ",", + RowBox[{"d", "+", ".025"}]}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"(*", + RowBox[{"Dashed", ","}], "*)"}], + RowBox[{"Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"(*", + RowBox[{"Dashed", ","}], "*)"}], + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"plot3", ",", "plot4"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +]}]}]], "Input", + CellChangeTimes->{{3.669976760285296*^9, 3.6699767697071447`*^9}, { + 3.669976808950033*^9, 3.669976810283415*^9}, {3.669976867469818*^9, + 3.669976895472739*^9}, 3.670752963405788*^9, {3.67109345022956*^9, + 3.6710935092857656`*^9}, {3.671192725139305*^9, 3.671192725545566*^9}, { + 3.671192820480826*^9, 3.67119283677774*^9}, {3.673068244969331*^9, + 3.673068355055131*^9}, {3.673068570697871*^9, 3.673068630528471*^9}, { + 3.673068670808959*^9, 3.673068765238462*^9}, {3.673068802295498*^9, + 3.67306880275819*^9}, {3.673069002708515*^9, 3.673069164269264*^9}, { + 3.673091525815743*^9, 3.673091603159417*^9}, {3.673091635192567*^9, + 3.673091682000566*^9}, {3.673091723445589*^9, 3.673091739810832*^9}, { + 3.673091776490674*^9, 3.673091776584593*^9}, {3.6730918143217783`*^9, + 3.673091825727133*^9}, {3.673091870794931*^9, 3.6730918717363873`*^9}, { + 3.6730924127599277`*^9, 3.673092413900115*^9}, {3.6730924717944098`*^9, + 3.6730924724254923`*^9}, {3.682230350646763*^9, 3.682230363249546*^9}, { + 3.68223039823943*^9, 3.6822304000612507`*^9}, {3.682230450190497*^9, + 3.682230450548172*^9}, {3.6822306503588123`*^9, 3.682230660152068*^9}, { + 3.6822307312577477`*^9, 3.682230734944474*^9}, {3.682230778755001*^9, + 3.6822307801220217`*^9}, {3.6822308706219177`*^9, + 3.6822309054573793`*^9}, {3.682230938119789*^9, 3.682230971292965*^9}, { + 3.682231013952443*^9, 3.682231225540408*^9}, {3.682231264098337*^9, + 3.682231335691848*^9}, {3.682231368065033*^9, 3.682231408589608*^9}, { + 3.682231543383738*^9, 3.682231589365896*^9}, {3.691131494919363*^9, + 3.69113159922771*^9}, {3.691131643653534*^9, 3.6911316501668787`*^9}, { + 3.69113179217253*^9, 3.6911318608156223`*^9}, {3.691131919083111*^9, + 3.6911319207421637`*^9}, {3.6911321471521797`*^9, + 3.6911321544813128`*^9}, {3.6911323296274776`*^9, 3.691132340955052*^9}, { + 3.6911323741012573`*^9, 3.691132393791033*^9}, {3.691132460927519*^9, + 3.691132527875847*^9}, {3.691132564566925*^9, 3.6911325944781237`*^9}, { + 3.69113265227317*^9, 3.6911329399129753`*^9}, {3.691132986878059*^9, + 3.691133021713471*^9}, {3.691133055389436*^9, 3.6911330579865313`*^9}, { + 3.6911330926558037`*^9, 3.6911331240414658`*^9}, 3.691133214595914*^9, { + 3.691133245550514*^9, 3.691133470108676*^9}, {3.691133563871346*^9, + 3.691133623956128*^9}, {3.691133654703555*^9, 3.691133684237121*^9}, { + 3.691133726046979*^9, 3.69113390219396*^9}, {3.691133955389489*^9, + 3.6911340003416653`*^9}, {3.691318511198587*^9, 3.69131868026756*^9}, { + 3.691318713405282*^9, 3.691318725331513*^9}, 3.691318766153832*^9, + 3.691318851825436*^9, {3.69132197320399*^9, 3.691321977774823*^9}, { + 3.691322019145131*^9, 3.691322040102771*^9}, {3.691322079033895*^9, + 3.691322110642815*^9}, {3.691322149069849*^9, 3.691322445235592*^9}, { + 3.691322616316637*^9, 3.691322620456044*^9}, {3.693636906483836*^9, + 3.693636924832308*^9}, {3.693636958802606*^9, 3.6936369868778143`*^9}, { + 3.693637394866794*^9, 3.693637405596044*^9}, {3.693637438770698*^9, + 3.69363747111994*^9}, 3.693637521674704*^9, {3.693637611393464*^9, + 3.693637705076434*^9}, {3.693637760749894*^9, 3.693637851855163*^9}, { + 3.6936379085314817`*^9, 3.6936379195929832`*^9}, {3.693638001689996*^9, + 3.693638068630807*^9}, {3.693638134580224*^9, 3.693638265489361*^9}, { + 3.693638318345726*^9, 3.693638322680991*^9}, {3.6936383630256042`*^9, + 3.693638451388122*^9}, {3.693638484580824*^9, 3.6936385152055187`*^9}, { + 3.693639579577705*^9, 3.693639630436178*^9}, 3.693639686211198*^9, { + 3.693639771756015*^9, 3.693639781062119*^9}, {3.693639826556299*^9, + 3.693639829308064*^9}, {3.693639911623126*^9, 3.6936399747953672`*^9}, { + 3.693656047518086*^9, 3.693656056273081*^9}, {3.6936561058185663`*^9, + 3.693656106056384*^9}, {3.693656154573308*^9, 3.693656175606654*^9}, { + 3.6936562265781927`*^9, 3.693656229072751*^9}, 3.693656301262835*^9, { + 3.6936579456117353`*^9, 3.693657945678184*^9}, {3.693660044206531*^9, + 3.693660044595935*^9}, {3.6936601168339767`*^9, 3.69366011792015*^9}, { + 3.699291224493331*^9, 3.699291251560835*^9}, {3.699291292865603*^9, + 3.699291304389091*^9}, {3.699291473665606*^9, 3.699291613442092*^9}, { + 3.699293746868219*^9, 3.699293749399317*^9}, {3.709997089880377*^9, + 3.7099971564234962`*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999995714285715, -0.2299999871428572}, \ +{-0.009935589239311315, -0.22980676771793399`}, {-0.009871182764336916, \ +-0.22961354829301078`}, {-0.009742369814388115, -0.22922710944316438`}, \ +{-0.009484743914490515, -0.22845423174347157`}, {-0.008969492114695315, \ +-0.22690847634408598`}, {-0.007938988515104913, -0.22381696554531477`}, \ +{-0.00587798131592411, -0.21763394394777236`}, {-0.0014092453626965702`, \ +-0.20422773608808975`}, {-0.00006696428571428572, -0.2002008928571429}}], + LineBox[CompressedData[" +1:eJwVxX0wlHkAB3CV22K74kinF0WZbTuEiUuYr16pROyIdCLFdesl2jjy2omo +ZGXLdjhbRmZPLxTJ62MXa3/ReVuxjxQ3Uct1mTbLUNfd/fGZj2nwae+QhVpa +Wrv/8/8RxtvfW5SEYqpKskGdJacMH9DqpQaJWGffNv90RkYl86fHdNZfRN5+ +s/yUXW1USGTuvf0FOWgJffvO+W4LpeN/uYcdKkC6+bxb2wcJ1X064YyDSgjN +uuw02x3N1Dd+dpIykyK0cbwpmyON1Oq5aIOkARHEmhCvg5O1FNfGqqh/9jZ4 +hXeErjWPKVuzBXW85aVQtDw5PH7tETUZ7vFnGqcMyurXfpnsCmpUlHq8JUqM +Xyp7EtVqMSW3svzrbH05NniFpQbqllCbYqd0wufvYVUgp/dTspAK5rhjn24F +oprGKjpFFymxMCDlumUltrE/G/TtC8RV71FuvPNDiCdkDP3SbIQ7mP1gdPIR +TlnnLjaWF4KR9LfR4fQqDNbGDJe4lAJ2lkmWedUYLQhlXBeXI2oVW9VY8xjx +iqn8Ys9KuJzN1xqX18Dcwf9GEb8KnZtzRysUT1DKXOGVIK2B1zI3+daZWlhc +0l5g7ViPs6HR/ocY9ZD8tPf5+/gm8Cd9P2y0aMDySOPx6S/NOPWMcArdG3Fc +27GJXy/Fqw33g8qPNMH//EO3Nf6t8Cjz5PGSKCxVaXqy18hwv6tSqNrbDK03 +trXjknYYnjv/gtvZjBE1Y5IEEmjqtpS4BUiQzC5zfWnaAZZ9Ps68lsCMZ2Db +KOuEwnX42GysFKzidB8m/w/05L3gPP0ihcmWjo1Mk25YXL117116C4aG7BcF +THVj0bo9lyJWtqJvm6JDr78H7IlbTg7FrYiLP3pQr7wXnQeGo4/btqGwseY3 +QV4fnh19yRyStmF8cj0/JU6BtXeECaJ9MsTqOO4WefRDlWETKR2SITGr/3HM +98/x1e00e+uT7Yi83n4iVn8AKWEFJ96r2vG7t2W5/M0AYjpyDZgJcgg/cqe1 +egZRF7Lj5pmFBIq6xP795UqwNGvturQJMlnp2qsfKCHImOv+bjGBXe9tl8mH +SkSWPVoyxiT4ttds5HKdEqYq8zjfFQTVen4Nz4gSmeG6vk6bCI5Z3Z3gvFXC +h9dnyPAgOGcoYnHNaUgXVVQEHyLY3Fs178imYSW44k55ExhzGMNfW9JYUr3n +QpwvQUzOyfbKrTQaNDXqiSCCOxnWjnO7aJidK+zt4hEwDVeLsoNp5OjGR1rE +EtAOfLegUBqffvXRzYojuDHm848tl8bz+mU7dyYR/EwN5A5G08j6nFpZlUGQ +oT/ot/E8DU12wEH9LALPeXXYzAUawSbbVRGXCY64c688zaThBPV6Fp+gyzBs +OopPQ9zV1ZB2jeCa9qzzbgENo6C7fiMCAkf313krhTTSpjI/OuUTzLJsZiYK +aEylhvBv3iRQ9736samYxr/fHCQ7 + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.2}, {-0.2299999871428572, 0.41599998611428574`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999992857142858, + 0.10999999285714286`}, {-0.009892648732185524, + 0.10989264873218553`}, {-0.00978530460722819, + 0.1097853046072282}, {-0.009570616357313523, + 0.10957061635731352`}, {-0.00914123985748419, + 0.1091412398574842}, {-0.008282486857825521, + 0.10828248685782553`}, {-0.006564980858508186, + 0.10656498085850818`}, {-0.0031299688598735143`, + 0.10312996885987352`}, {-0.00011160714285714287`, + 0.10011160714285715`}}], + LineBox[{{0.004317924395505718, 0.09568199509907775}, { + 0.011272258381298049`, 0.08872630932261583}, {0.018090175940069075`, + 0.08190390396907209}, {0.02548596275694999, 0.07449748323613078}, { + 0.032388190304244, 0.06757783465023992}, {0.039868287109647904`, + 0.06006834303271653}, {0.0472119674880305, 0.05268279845874213}, { + 0.05406208859682619, 0.04577990362738043}, {0.06149007896373177, + 0.038277425214627715`}, {0.06635926395818997, + 0.033348519578056846`}}], LineBox[CompressedData[" +1:eJwV1ns8VNsXAHCPCiGiJIRIeih0I0ktr6K4KqkQJT1uFHkUkkpehUJSEnkL +jZg5MyRhG7kZc86M8ZioiBKVvEIJN/3274/5zOf7Oed8zjpr773WWul53vGU +mIiIyB/8+///VpEfHOsoBhhqp5aWiWRDLyc/nmPBhJR/ispWjj8AgWH/4fU6 +5aAobNnm/PcdCCC2php9qYCx/H2xI+eiwL1NvVe9pRL2rb70IOvtSYjYOhSy +jFEFZxpGVdm/A5DrM17UM79qoG+q6RCZjEGXhfDQ+FAt/H7vz/RPS0aF80/c +KZWtg7Ri1kMr2TRU4efraijOBqGhX4EZmYWOz/mQ2ybZcDMk2rVBLg8NpE79 +WC6sh21+vbZz3QUo8frugs+clyDVpyBGVRUhhWCdRbElDfCr/dsNgy00ZJj4 +Q52I/xf46Lp53cWnKGjqNot75RVUhB2JfFhUhu6epYs/O9YIEt8mV82vpqN8 +JZHAuBONMBSmv6YE0VEFe+9H938a4XG2JXffSzrqXDZaN+98I1QbVn9O5tKR +WsOGq45XG2GpIMR/phM/r0b7NZzRCC4Z96QP/aAjFq9geNXbRhjYPla2VY+B +XuundyQ7cUB14PtcVDIDBdDiTjk5c+Dt6bPrr91jIFnd0Imlbhyoa3N6G/SA +gazVXeTSTnDA/Nje6qOZDETILLPJCuDAarWGUPknDJTwNbmClsSBqLy9BrN1 +DLQrL+5eA8WB/JKmoc9DDPRRPVQ7RsABE/m07qRRBrry0Ith086BIZr7li3j +DMS6Y8vjvuOApW6iVtgUA2mFL5jfMsiB2WxJ9oAogebcIi50SzZBad9Drx1K +BCpXCj3w0xr7zK/q72YECq/aaxBs2wSTqYf11YFAe47qyP6ya4JL75z32FoQ +qLdA8GrasQk2sx8E39tJIBkjXdPfHk3ALfbOUHQg0MkD7ZrzrjRB3JmhS5lH +CaSQtHFkcXkTzPkqtn+9QqDuv+aRyZVNEKOmLse9RqCijjeFitVNsCfoYHfh +dQLt0Ig+vvRlE3gr3DNwiyaQV+m7duWWJph+fjSr8BaB6qibLzSGm8A1RmRB +00MC+Ur13dygw4XK9ZGGhuUECuWT2jNruLBf9IzNpwoCRd9l1b7S40K/rI9X +SiWBMlbETB7bzIW02gP8by8IxDVc65FshZ8/NyoWXE8gHdfzW6aOc6HsLrl/ +jk8gAw3n1penuDDP9Du6LiCQ2SdznyQvLtT3KOmJtRLI0Vchb60/Fy5ZCGem +23H+IsoXuYVzYdrYzOXftwTqejLbX5fJhTlLPUduP4G+nP8UfjuXC0vyooxW +fCbQxGaequtjLpSsSZP0+UKghShz/8RTLnTVe4SKfyOQSZtFjU4NF4w1dgdK +jxEoZfZGStw7LkQ1z43FTBMou85P/3APF3wX7ThZNEMgWrQLV7uPC19CWypf +zRKoXm69SM0gFx58PCg285tAY9r8s6PTXBBXuPDbVIyJ7OyXWDkpk6B9KYaj +s5CJYrb26fWqkhBv9W3pfGkmqltNKJ3TIGFHdFXmB2xj0X2DkatJ6JzIPJYs +y0RaFfF3mJtJWDb1OLZVnonc81wvgwkJJlU3HqUvZqIHSWtPkdtI0FrZPXBc +gYlkzzaa9FmSINnxRWlAkYl+aYj3KuwnIfh+cgelxER/ybY2ZTqREP1dN+La +MibynclmrnMmYaWEkZu+MhN9at9xw/IYCVcF5ekxy5moOTZ0Y4APCfK5Nn8p +qjHR44nvYS2xJLRf/081X5OJPvTWnXa/TYKpGfvE2pVMpMZP3Pc1iYQsvxE+ +DTu5aMMq0QckJN8MlSnSYqIr7l6kwWMSWgfV5K6uYqLKPSbl1cUkZLO+ug1h +j2+RyLJ9SkJknAznsA4TnVEoCPBgkVDzn+2EzmomcmrsXZ5Uj/MjY3MzS5eJ +Elll4mqvSLi15DztJzY35+pwYRMJOcFt/XvWMJF5mBobCUhw/tvy0SD2Za9v +T+zaSYj40aBsvJaJKg5VpXR0kKB88kLRVez1hs5nRt+T4FZjKyqxjolOq+s6 +Xv5IwvKJT5xd2NnSP7dJDJCwPzojJxJbaeCunMYwCSoKdpGT2PvbPKefjJFw +/Vxl3Jr1THSrzrDPeBLnr29Dtgu2WHpzhcMsCUrZauMEdqPzDsSZI6HrR7TX +2//fr/S00VKMAjP/c1J/sB3bVQXV8ylgTy5t0dRjomXJcZ3GUhQ8tuEgwO7a +O91Ll6GgZmlT+xHsXNkzX9fJU3B91F3uIvY/5Ovv+YoULNxD+cZj68XunFFf +RsH0VZfxTOzxXSyxNBUKYqk9aWXYz+ZpSyuqUxB+sN+zBjus/o7i7ZUUqK/0 +deBgW4aLqEnoUGCguu6IAFtix/lV19dQ8J/i0ZtCbGq2W292PQWb6hyEHdjJ +z+2NLupTIPbc3OL/Phz8YvvoJgpEw0LINmw1o3W7vIwpWHXWNJCH/XH8gUPf +Vgq4FHdLA3YhXeKw+3YKSkkf5Ursc75BxzrMKXgd9M+SYuxNev3/7LemIJ89 +uy4Ve+rrAT/ShoJXkb5HIrCrC+tDdtpRsOaSeIE3dsQpw+vIgQIRy7kF+7Bt +tLNjtzri/Hnmhm/ClvmwKJl5kAJx678WK2C3Zl55uMGFguJNk89G8Hqkug3l +FrpRUHlszQUOtpvKEdpKDwqcexV2ZmFrdTYx00/g+J7+XBuIXXKgsCHRG+cj +tlxPAdt/sRJPyhd/79zS3d14vxg3Rwkj/SlYnhAaVIDN3uM5EBxCQXaai+gG +7BjJlpHvlym4neHsPoT3p/0rmDp7jQKFppONRdivLVZIesRQoHeppF4ZO/1P +vPzbWAoK8s46Uni/e9TMKDvdxvthJwyHYX8z6Vxrm0LBG4l1FkJ8XkQM7toZ +5FIQIbnpb098vv4dFnV6UkCB4+YqzTl8/uJofm6riinYtd5j+j72Ul0HH2U6 +BbnSks8QPq/r1KUSRWopMHZtcxjG53vsXXBqKBvH43XI2B+7PG0ga7KBgvbI +abVxXA/MlzbQv5AUXO3N/DSI68dBmWutgjcUVCm72FaqM5HrN5G0+914vRfa +HFiG7cGNOOb2gYL01mpewAq8/jdjhj5/oaCTfVJWA9ejqHkJC/5MUVB7KSvD +HteruD45XsMsBUO3Xkkm4nqWVH/nbtwfCtxWv+ji4XqXEX5PU0mCB9Z8vUpz +XA9Z/2WYblDigbunpNYsrp9V79RFJ5bzQLAxkKGJXVeV3Vi5ggdiRp+zLXG9 +pULynax18HXe/IzLckzUN0nzPbKZB1/DBJ/ZuH4rDFflxjry4P4LxkymOBMp +U2Zeew/xwK8xYmkc7gfqtFr9pa48WLO9ItxfFOfPq746+zgP6lcftDb6QyCL +/qbXz/x4UG7XczIJ9xu/7s6FAwk86IoS3ZiC+1NQtWsLLZkH7RvSO61GCRSW +3pXqf58H2180vhwdJtBNl95Vvx/xgDuv97AZ7m9Zws87ljzlwaF2wyNFuD/y +eT8DLEkcT/7PEe4bAokLj95s5PPgcsSRbudO3A+7Xj2yb+XBqFN5aN9rAuUN +3uccesMDEbn5aKSNQCESW9TPfubBoL/p4W4egbQsgpvuivPBNJ29SIWN42NN +afRv44MkveuNdAHuly+OGXkDHxy0N8pvzMPzTX3jnlFLPiRErXxnn0Mgu5bU +i9O7+VBhk74+/BGBNEe2kLLOfIg0ScqquYfnB92QIOMLfJjxqVO+i+cVjfRf +1I0SPggSEgJzPXG/fhmY7UznQ8dX9pS2B+7vQyOBa1l8MDqcczjHnUA/zfpV +yBf4/hTFx4nO+Pvft5xZRPLx+Yk+ZornqTAt2rx7X/ng3SPt2GhCoLfF7ma5 +q5vB3fRa6rOFBNrX2ikXuK4ZdPOKgggJAr2aOdBntbEZ5O5kLSqeRyDCbk9c +v1Ez9MzdPhk7x0Cxw8ada3Y2w8LxuFglPC+aGMpfKDvRDMF7XeqOdzLQvcp6 +WnV2MzSMGquwchjIVGoV3z6/GT7uMLjkgefVXpfosa7CZvhLE+Yk0xlo3ayN +0e/SZuifmAhySGGg2u282u01zVDvskiKFsNAX+o7WmrfNEPuc8OPxd4MlHn6 +52UPKQH0IPHxZ/oMNO4nnetpKYCA1kS3D0/pKE70Vv1KawEQu5YUFxTTkVay +TF/vTgF86kmQPF1AR45M2VXHdgvAubb5v7cZdMT4Iff4yD4BbFB3ybkXT0d+ +oUueOB0VgNy7bvm/z9DRcOQKYleoAEbqRYxq1enoy339+nWEAGJObx4emitF +mpXP2XIsAVyQMZy6NVGKnN9YsSfLBSC2y95U+0sp4qg619U+F0CmkovnppZS +VJwdXuvIFsADW/mpt7mlyPtJS1WoQAD3B/5VPWBdioZqApncEQEoe6FI/rWn +aOzTs3zv9S2w5qj4fO9OGjJXKbfT39ACmy/6vQ8gaShpLzE+sbEFqtNPlQTU +0pB+VYn5lU0tENIpXHE4n4Z8E3O6Ere2gMkDM3XmeRoa3hq/pNymBVjpt5rL +59HQYMLRqD8nWiBO+mVFh+4T1G8y/2RKRgsM1bIfqTgWoSFWRb/RslYIiQva +GtqWhywtPbelJ7aC5qBqj9PxRyhK2Ooz+KcVwpWzpS/7JqM3SYWejEtt4LFo +wM5vLBCpOFps9vzWBn57b52ysoyAJ6uEb167tsOv+B8lIhEPwF6DZ/GyrR0u +9OTlnbheAO804mLSrIVw7gb55qBUGdwaZrvf2SWET2RtyYhRGZi9mN4caysE +qp7GTPMsg4xDXn0h9vj+7kif1dVl4Hbb1tzZSQgV0gPhsiZ06JpZMKN0Ughv +ty1QqRqmw3thpE9KpBC4PvmJoh4EJOS9sL4VLYSRhFTti8EE7PCfUI26IYRQ +xVCF8QQCMmVOcAPjhbCjzEpKspaAo1aWugfuCiHAJTQlX40JPXSRD4vzhOD6 +UX805x0Tkq6aVEoVCEHl69a1JRNMMLf3SxQtxO9bsaUHSbMg+3PP9u9PhDDT +6NwobsYCD3X0UEAIIS7fp/53Bgvkh376c1hCeCVvpeRUzoK65xt311XgeHLo +P5k8FmgezJwqq8Lvf/z0VNIcCwRar/mF1dhs718yy8ohfEz2cVatEJIdVDXv +6peDQe3OK6l1OB7ZjvdatuXQG3/FKbFeCB9VKoyrPcrhf/4/Xx8= + + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.34}, {-0.07490300138192721, 0.10999999285714286`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.6699768032594643`*^9, 3.669976811777919*^9}, { + 3.6699768718509502`*^9, 3.6699768979311953`*^9}, {3.671093452586643*^9, + 3.6710935102663813`*^9}, {3.6711927175580587`*^9, 3.671192727770483*^9}, { + 3.671192822041162*^9, 3.6711928386814823`*^9}, {3.673068247131949*^9, + 3.673068356813676*^9}, 3.673068597293851*^9, 3.67306863268204*^9, { + 3.673068673506373*^9, 3.6730687676141567`*^9}, 3.673068804911664*^9, { + 3.673069006639491*^9, 3.673069116608088*^9}, 3.673069149271153*^9, + 3.673091493191065*^9, 3.6730917428665037`*^9, 3.673091777141881*^9, + 3.673091827941276*^9, 3.6730918727287903`*^9, 3.673092416709937*^9, + 3.6730924734290743`*^9, {3.682230352723344*^9, 3.682230364360816*^9}, + 3.6822304016284237`*^9, 3.682230452079362*^9, 3.68223067486692*^9, + 3.682230741442252*^9, 3.68223078479597*^9, 3.682230913608121*^9, { + 3.682230949853684*^9, 3.6822309720720263`*^9}, {3.682231015561976*^9, + 3.682231226074185*^9}, {3.682231265091152*^9, 3.682231336632937*^9}, { + 3.682231393766885*^9, 3.68223140917111*^9}, {3.682231562412106*^9, + 3.682231590222247*^9}, 3.6911316002285423`*^9, 3.6911316518605947`*^9, + 3.691131837898481*^9, 3.69113197292867*^9, 3.691132192737213*^9, { + 3.69113233006488*^9, 3.6911323414242353`*^9}, 3.691132400528872*^9, + 3.6911324624080343`*^9, {3.6911325007837067`*^9, 3.691132528614489*^9}, + 3.691132565100687*^9, 3.691132595515601*^9, 3.69113271312779*^9, + 3.691132791145338*^9, {3.691132930436285*^9, 3.691132940427868*^9}, { + 3.6911329992188873`*^9, 3.691133022414216*^9}, 3.691133059462538*^9, + 3.691133096502254*^9, 3.691133128741259*^9, 3.691133366000531*^9, { + 3.691133424416461*^9, 3.6911334704928827`*^9}, 3.691133625128286*^9, { + 3.6911336555669107`*^9, 3.691133685127342*^9}, {3.6911337267803173`*^9, + 3.691133885233712*^9}, {3.691133956160441*^9, 3.691134000691243*^9}, { + 3.6913185174671392`*^9, 3.691318583669483*^9}, {3.6913186153741198`*^9, + 3.6913186812813663`*^9}, {3.691318715976606*^9, 3.6913187260212393`*^9}, + 3.691318766698841*^9, 3.6913188525969477`*^9, 3.6913219780614777`*^9, { + 3.691322019567603*^9, 3.6913220415569973`*^9}, {3.691322086875514*^9, + 3.69132211099693*^9}, {3.691322152144765*^9, 3.691322207791617*^9}, { + 3.6913222381851187`*^9, 3.6913224458165293`*^9}, {3.691322607833271*^9, + 3.6913226212577343`*^9}, 3.69363773272093*^9, 3.693637764765327*^9, + 3.6936378703506203`*^9, 3.6936382659391317`*^9, 3.693638323614852*^9, + 3.693638452554031*^9, 3.693638516113554*^9, 3.693639584448216*^9, + 3.693639783240323*^9, 3.693639919775824*^9, {3.6936399602398243`*^9, + 3.6936399770253763`*^9}, 3.693655705227008*^9, {3.693656063127898*^9, + 3.69365610875527*^9}, {3.693656157101256*^9, 3.693656166362713*^9}, { + 3.693656203138733*^9, 3.6936562309893713`*^9}, 3.6936563020406313`*^9, + 3.6936599200290413`*^9, 3.693660057544281*^9, 3.6936601185836782`*^9, + 3.699291271237254*^9, 3.69929130520506*^9, {3.699291474459896*^9, + 3.699291613842441*^9}, 3.6992937576773987`*^9, 3.709997143675796*^9, + 3.710821674044623*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", + RowBox[{"-", "1.`"}]}], + SequenceForm["detJ=", -1.], + Editable->False]], "Print", + CellChangeTimes->{ + 3.6936377326316032`*^9, 3.69363776468465*^9, 3.693637870276416*^9, + 3.693638265862575*^9, 3.693638323543659*^9, 3.693638452476462*^9, + 3.693638516035411*^9, 3.693639584372096*^9, 3.693639783167124*^9, + 3.693639919699872*^9, {3.6936399601651697`*^9, 3.693639976948839*^9}, + 3.6936557051538982`*^9, {3.6936560630382977`*^9, 3.693656108682744*^9}, { + 3.69365615702454*^9, 3.693656166280839*^9}, {3.693656203062585*^9, + 3.693656230917675*^9}, 3.6936563019593763`*^9, 3.6936599199355907`*^9, + 3.693660057456155*^9, 3.693660118510831*^9, 3.699291271142812*^9, + 3.6992913051174173`*^9, {3.699291474379764*^9, 3.699291613762444*^9}, + 3.699293757592042*^9, 3.7099971436970243`*^9, 3.7108216740627823`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.06647087110104707`"}], + SequenceForm["The zero crossing of P is z0=", 0.06647087110104707], + Editable->False]], "Print", + CellChangeTimes->{ + 3.6936377326316032`*^9, 3.69363776468465*^9, 3.693637870276416*^9, + 3.693638265862575*^9, 3.693638323543659*^9, 3.693638452476462*^9, + 3.693638516035411*^9, 3.693639584372096*^9, 3.693639783167124*^9, + 3.693639919699872*^9, {3.6936399601651697`*^9, 3.693639976948839*^9}, + 3.6936557051538982`*^9, {3.6936560630382977`*^9, 3.693656108682744*^9}, { + 3.69365615702454*^9, 3.693656166280839*^9}, {3.693656203062585*^9, + 3.693656230917675*^9}, 3.6936563019593763`*^9, 3.6936599199355907`*^9, + 3.693660057456155*^9, 3.693660118510831*^9, 3.699291271142812*^9, + 3.6992913051174173`*^9, {3.699291474379764*^9, 3.699291613762444*^9}, + 3.699293757592042*^9, 3.7099971436970243`*^9, 3.710821674065319*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Two zero crossings of F are z1=\"\>", "\[InvisibleSpace]", + "0.09952238321285`", "\[InvisibleSpace]", "\<\", z2=\"\>", + "\[InvisibleSpace]", "0.3068413659813639`"}], + SequenceForm[ + "Two zero crossings of F are z1=", 0.09952238321285, ", z2=", + 0.3068413659813639], + Editable->False]], "Print", + CellChangeTimes->{ + 3.6936377326316032`*^9, 3.69363776468465*^9, 3.693637870276416*^9, + 3.693638265862575*^9, 3.693638323543659*^9, 3.693638452476462*^9, + 3.693638516035411*^9, 3.693639584372096*^9, 3.693639783167124*^9, + 3.693639919699872*^9, {3.6936399601651697`*^9, 3.693639976948839*^9}, + 3.6936557051538982`*^9, {3.6936560630382977`*^9, 3.693656108682744*^9}, { + 3.69365615702454*^9, 3.693656166280839*^9}, {3.693656203062585*^9, + 3.693656230917675*^9}, 3.6936563019593763`*^9, 3.6936599199355907`*^9, + 3.693660057456155*^9, 3.693660118510831*^9, 3.699291271142812*^9, + 3.6992913051174173`*^9, {3.699291474379764*^9, 3.699291613762444*^9}, + 3.699293757592042*^9, 3.7099971436970243`*^9, 3.7108216740684967`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Two steady states of the SSN are re1=\"\>", + "\[InvisibleSpace]", "0.001016246071242415`", + "\[InvisibleSpace]", "\<\", ri1=\"\>", "\[InvisibleSpace]", + "0.0009857398227712216`", "\[InvisibleSpace]", "\<\" and re2=\"\>", + "\[InvisibleSpace]", "0.4714619577224822`", + "\[InvisibleSpace]", "\<\", ri2=\"\>", "\[InvisibleSpace]", + "0.028889612879877187`"}], + SequenceForm[ + "Two steady states of the SSN are re1=", 0.001016246071242415, ", ri1=", + 0.0009857398227712216, " and re2=", 0.4714619577224822, ", ri2=", + 0.028889612879877187`], + Editable->False]], "Print", + CellChangeTimes->{ + 3.6936377326316032`*^9, 3.69363776468465*^9, 3.693637870276416*^9, + 3.693638265862575*^9, 3.693638323543659*^9, 3.693638452476462*^9, + 3.693638516035411*^9, 3.693639584372096*^9, 3.693639783167124*^9, + 3.693639919699872*^9, {3.6936399601651697`*^9, 3.693639976948839*^9}, + 3.6936557051538982`*^9, {3.6936560630382977`*^9, 3.693656108682744*^9}, { + 3.69365615702454*^9, 3.693656166280839*^9}, {3.693656203062585*^9, + 3.693656230917675*^9}, 3.6936563019593763`*^9, 3.6936599199355907`*^9, + 3.693660057456155*^9, 3.693660118510831*^9, 3.699291271142812*^9, + 3.6992913051174173`*^9, {3.699291474379764*^9, 3.699291613762444*^9}, + 3.699293757592042*^9, 3.7099971436970243`*^9, 3.710821674071515*^9}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA120TQrjj1D9OgEyh/1i5v98+9ghH +5NQ//vUGHwFSuL8divzlT9rUP5k3MC4HTba/jd3GkTHF1D9dYn3lJHO0v9jx +TRecpdQ/6NLFR5u/sr+of4qBP3zUP9nl4FerLbG/CRHIXhYO1D+UEiSaa8ms +v7lJxlrhudM/oY3h0JvGqb+ufJvyBFvTP/wV8OIdB6e/56lHJoHx0j+nq0/Q +8Yqkv2PRyvVVfdI/nk4AmRdSor8NY7AwtADSP/T6RPLmUaC/zc6Dpsx90T9r +WcEib/+cv6QURVef9NA/ysem7BK3mb+SNPRCLGXQPwFBOkK5ypa/+2f9UApJ +zz+9H5aMF2eTv5Ly7xJBw80/tWJvnplnkL/oCMDL/DjMP9QTjO9+mIu//qpt +ez2qyj+1KjQxEiqHv5Bt362pIco/NedlhMrJhb+amZmZmZnJP3sUrkfheoS/ +34TEg5rEyD+CxCWpq7KCv3ZLqw748cc/qjXwgbgNgb9RT0XY8lbGP9zsSvZJ +OXy/NHE+gbP/xT/ubNH5Jgp7v/Fe3Ko= + "]]}, + {Arrowheads[{{0.048787133701693464`, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAQlRrs0FPxD9cDXcG31p1v/ez2eer +QcM/IuSIQicfcr8SyyaFGtHBPzRXbOyaaGy/z04Z0elzwD8OLS67bsdlv/Qd +hLokVb4/C1/POlYwYL/EtmN2Geu7P9IEkGm78Va/AMRq0jXTuD+9O1gQhj1I +v/1NMjsFA7Y/mFmsq/jXKr+5VLqwh3qzP4KZnXSDzCo/NtgCM705sT8wdb4P +rvs/P0BS1op2bq4/Lih0lMiERj9KMKXWLtOqPxTxHcKZoks/ikpySaOhpz9H +ldyQSldPP/+gPePT2aQ/ZQpYgG3RUD/YTs9vPjmgP9wGXQ0xGVI/RQy1wIZG +mT/qIbAze8JSP8qmWn6PVI0/pfWGvVP6Uj/sF+2MmZCBP2ZdoteYd1I/cjFu +2MXKdT/36uUU3dRRP79iu3b1l2w/hN8oQxBTUT+BEpqf + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.03796221951574091, 1.}}], + ArrowBox[{{0.10547106057913577`, -0.09901426017722878}, { + 0.10368204493902007`, -0.09546979172031379}, { + 0.10012322585537885`, -0.08923763437073091}, { + 0.09659651737443999, -0.08335121645364696}, { + 0.08963943222066928, -0.07261559891697572}, { + 0.08281078947770797, -0.0632629391103001}, { + 0.07611058914555602, -0.05529323703362007}, { + 0.06967075109305376, -0.0483943603803976}, { + 0.06362319518904147, -0.04225417684409465}, { + 0.05796792143351917, -0.03687268642471124}, { + 0.052704929826486835`, -0.03224988912224734}, { + 0.05133752150609555, -0.031104694525135406`}, {0.05, -0.03}, { + 0.04219472598693064, -0.023997711014995565`}, { + 0.035526046080873605`, -0.019169759603389864`}, { + 0.02937824788280505, -0.014827761140325791`}, { + 0.02427221310071347, -0.011457668574344985`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.05220759869924316, 1.}}], ArrowBox[CompressedData[" +1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAkjFhT+YRw7/6SXc0PDKzvwGYjmcc +N8K/hl2sjARTsr8Y5qDFDVzBvzIo+hmIc7G/jV26jKiKwL8NzbZ06J2wv7r8 +tXnZhb+/MZjEOUukr78TkQWstAm+v6dK+SR/IK6/67HPhmNLu7+vzPvLE1Sr +vwXNSPUEb7q/rLQnu0pzqr+amZmZmZm5v5qZmZmZmam/dkshVHUXt7+dTcgp +qAqnv2hZAQMx1LS/wvB2z+i7pL98aSk3b62yv0qJa89OiqK/2X3hdbK/sL+X +DOyD/5Kgv1xMyG9UCq6/Jlj6fCmgnb9f5NfrC/Cqv1QyR6FQd5q/QyIfBqOn +pb/0cCtkwReVv4DvMFReTqC/ZtgY3hVVj7/H47STzZKYv3TRfEBXNoe/Jq1j +QLkWjL/QMRHxo1R5vwQY2qafxn+/bInb2R+Gar/lx0iC7Zxwv0El7goWX1e/ +gCUqWW1lX7+uB25fe6c5v2ANNDBzWka/MV3MNvf0KT/pM8Mz + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.04739410664348743, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBmIQPckw0f+Z4OH9EHqzvcyxBH47y0P7IfQm+9C7pXP3 +xx7cD6E32gdd8mL53H1gP4TeYK/ltb99Q/v+/RB6vb3t6owd97j27YfQ6+yZ +FljppXnv3g+hV9vvbXK3Y8vftR9Cr7KfNRMEdu6H0Cvtu9/JLfggsn3/lKzA +ks8iy+0N66s3rTu/ZX/Dsj07j55fYs/K9my18fJN+2+xOghVL19kb16ZU+y2 +Y8N+gTWfJ3zbscC+d9eqlbK/1u7vlJQ0fP5nrn1u7jnzzPur9puZ14tHP5ll +v1rmxuoNM5bun/zqyISyJVPtk8x3WvxzXbDfu+lKYGfCBPsDU/2PPZw4Yz93 +/vcfpz532B8sN2Bu8OjZXzf3Vbckc509AB93nIU= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGCQBGIQDQMOnrdtHH3O2sP4UbUHZh6bewbOPxvzYZruytNw +vtQiwUuz9p6C8xedn6/49+ZJOP9wuliM898TcP6F63smVkcch/NdP7EUO58/ +CufLb3/3f1biETjfqHTiXqbUw3B+hPjk3azFh+D8yXM//1zcfRDOf8S+ueLu +ugNwfrXg3DwXrX1w/hXj0++We+9G2K/AI6qWvwvOnzUTBHbae3c8Tj/yvsGO +7+4Chr5T2+z7Dk/w0jDZaGcl7x+b57XF3uDYRZFbDafsFp9YfOzc2432Vhll +nPvdH9jxNnZNituw3v6VjgrLl6APdldOPwiXZF5jfy3wbeXehX/slusfyTp+ +eIX9jyTGtnOdAvbNT82Wxscttv/o4J4VJC9nP5n5wYqTvfPsAUwlhgM= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAC9X33wsU2T9ASds8QUzNP13jjUjo +ctg/cacLastSzD+a05Jwcc/XPzMrjClFWss/C0moZi8v1z/0SSKwPmvKP+Rh +IaUOktY/8sMrZpCEyT9UPFGm+/fVP2lZBrQSpcg/X9g3avZg1T9aCrKZxczH +PwE21fD+zNQ/xNYuF6n7xj8+VSk6FTzUP6i+fCy9McY/FDY0Rjmu0z8GwpvZ +AW/FP4PY9RRrI9M/3eCLHnezxD+LPG6mqpvSPy0bTfsc/8M/s91eKVBA0j/E +PVCEJofDP9M1y1BJ5tE/RDs0hJwRwz/4CheNNjbRP/bGnujNLcI/+7tRW3KL +0D9EvowosVPBP7iR9nb5y88/LiH+Q0aDwD83Yydbq4vOP2jf5XUaeb8/cOw1 +Y/pVzT+sU9YaDP+9PwrUtpC/KM0/PiJQSM7IvT8UO52r + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAMo79Tzazyz/CfOXgmwu8Pxgm7N5v +Css/2cHLiRpFuz+wM3F82k/KP8DGkKzta7o/mpmZmZmZyT+amZmZmZm5PxHM +JzXeRMg/YvUBEjcbuD8CxZrYOQDHP9nEanVNtLY/BxbNYIPKxT/IsC5gfGG1 +P/DjddkdpMQ/RNaE8+MjtD9ve1EVWH3DP057yEAr5bI/ASMJyCJlwj8EWXmq +armxP6banPF9W8E/Z2+XMKKgsD9cogySaWDAP+d8RaajNa8/IgYwpWPlvj+O +lPtrakutP2AL/bhFIr0/9C0W+g9+qz92VIBfeXe7Px1JlVCUzak/X+G5mP7k +uT8G5nhv9zmoP0awxKtRALc/jPsqZeRbpT+nYZLakmu0P/DE6Tlh1qI/vWBU +OrUHsj80BUQo04ugPwI3zc8I3a8/FjJ3unsknT9HSBdQXymsP5z12D0Is5k/ +phkMf8zdqD+jSeVmEaOWPxVq3e4DWaQ/Rp64mBVzkj90TLMC + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.04980758923431585, 1.}}], + ArrowBox[{{0.6143237493504701, 0.2288896128798772}, { + 0.6103941293128664, 0.2212560585374692}, {0.6061296548980218, + 0.21270365983713707`}, {0.602963825494553, 0.20624184358016046`}, { + 0.6, 0.2}, {0.5950690216482007, 0.18816720117156993`}, { + 0.5910471041641356, 0.17714468302569988`}, {0.5875001069396509, + 0.16650680400874934`}, {0.5849029502343271, 0.15663820324963784`}, { + 0.58330415415719, 0.14749411008091917`}, {0.5827522388172657, + 0.13902975383514732`}, {0.5833424570349939, 0.13120826423825288`}, { + 0.5851700616308145, 0.12399277101616661`}, {0.5907926374444974, + 0.11419732800396853`}, {0.6002951145025434, 0.10562296103374656`}, { + 0.606873186625822, 0.10178279624476518`}, {0.6151649753154309, + 0.09822613082705497}, {0.6214619577224821, 0.09616615799384397}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAnVHVzIte4j9ASds8QUzNP8aSoXtm +KOI/K6WP9mZCzD9sVD5dWfLhP/4Sc1HOPcs/SJKDWJ3F4T8kv/mQMGjKP5qZ +mZmZmeE/mpmZmZmZyT8wPj/uZ3HhP+VpExNS5sg/ujWNWiJK4T+4D8vs0z/I +P0EbuDY7I+E/8wo1IHOexz/JifTaJPzgP3nbxaaD+sY/sL/D/CrV4D9Hy7vr +3VrGP0HIrAC/ruA//7BcRdPGxT/i8WzFi4jgP31fqA1tN8U/+orBKTxi4D+W +qZ6etKXEP117XSTPO+A/l6dVLJYSxD/ry8psfBXgP4s6jlmig8M/TvkSBoje +3z9yYkgm2fjCPxwbM85Lkt8/TB+Ekjpywj/Gn1sxcfreP9xXgEl9ccE/0iUP +A2lj3j835IJ+aoHAPzhdF6RWzN0/jZZDXAFAvz/q9T11XTTdP9wn5ql8lr0/ +6u+Cdn2b3D9efO3lRga8PzVL5qe2Adw/EZRZEGCPuj8PFyP5mWbbP8c/V3u0 +Lrk/0wQPgR9J2z/jBGhdCfC4P3gfydQ= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAPYtbeC6I2j/eNjGlU1+3PykuWsoR +K9o/psWNCdSmtj9qeVRKporZP82fxiyff7U/Ku9v1rLy2D9Ug569Znm0P3Nl +BMK8Wdg/KfaWeBV/sz9G3BENxL/XP0/4r12rkLI/oFOYt8gk1z/EielsKK6x +P4bLl8HKiNY/iqpDpozXsD/zQxAryuvVP55avgnYDLA/6rwB9MZN1T8JNLMu +FZyuP2o2bBzBrtQ/ctEqnkg2rT+D7tfjwA/UP1HtczVj46s/RyPNic5x0z9+ +5x7IfZ6qP7XUSw7q1NI/9r8rVphnqT/MAlRxEznSP7p2mt+yPqg/ja3lskqe +0T/KC2tkzSOnP/jUANOPBNE/J3+d5OcWpj8NeaXR4mvQP9DQMWACGKU/mDOn +XYeozz/GACjXHCekP5tEA9Bkfc4/2gmHTqNBoz9X+0v1XVjNP+PmVcsBZaI/ +RmjOT7G2zD9hP+8Iq+2hP8uDsnk= + "]]}, + {Arrowheads[{{0.042463331573387546`, 1.}}], + ArrowBox[{{0.2112687722550353, 0.032645303902924354`}, { + 0.20355028970881386`, 0.03128187013565347}, {0.19535345196583928`, + 0.02986848225538536}, {0.18734302166060068`, 0.02852256746593304}, { + 0.17951899879309802`, 0.027244125767296522`}, {0.17196553741307236`, + 0.02603285396023993}, {0.16464182570906716`, 0.024868328642426062`}, { + 0.15754786368108253`, 0.023750549813854938`}, {0.15068365132911835`, + 0.02267951747452653}, {0.1440491886531747, 0.02165523162444086}, { + 0.13764447565325155`, 0.020677692263597922`}, {0.13146951232934892`, + 0.019746899391997714`}, {0.12552429868146672`, 0.01886285300964023}, { + 0.11428390584867232`, 0.01720893913427954}, {0.10388408258977677`, + 0.015689890059141943`}, {0.09432482890478003, + 0.014305705784227428`}, {0.08560614479368203, + 0.013056386309535989`}, {0.07763404975940438, + 0.011922006352514558`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06249999999999998, 1.}}], ArrowBox[CompressedData[" +1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAMAKsLzqU2j9OgEyh/1i5v0aJcVvR +5to/hjqWMuzUt79P5J1vilLbP2bDfkrX8bW/FIWUd7+82z8bzPzh9yy0v0zk ++xXVJtw/LrCOnm2Csr+nenrtL5LcPyTLsiVY7rC/JkgQ/s/+3D/8OdLubuGu +v8lMvUe1bN0/eEtjJxcTrL+cc3w7yN3dPzx60y2pa6m/qqdISvFT3j/Mdd06 +JeWmv/ToIXQwz94/JT6BTot/pL96Nwi5hU/fP0jTvmjbOqK/1QZ7qyKm3z8f +NAAHdMWgvwAAAAAAAOA/uB6F61G4nr/ATMUZpz7gP87vbPkvjpu//+uidTmB +4D8OEqrFa36Yv7csgxMoyuA/Lox0HVuBlb+W9BeeohjhP0qxuRGMmZK/pzKo +b4lo4T8/0vTt6VyPv0Lk47vUwOE/xuJZtR6kib9qCcuChCHiPyyUonm2CIS/ +Uec+FAJV4j8zSZx6B0aBvxyiXcSYiuI/4MyddWIVfb/ez46ms7viPzrbiwg5 +YXi/MzrK4w== + "]]}, + {Arrowheads[{{0.007299639146413189, 1.}}], + ArrowBox[{{0.5984833738636893, -0.003661046977096194}, { + 0.6018040217686544, -0.0031065145693504425`}, { + 0.6103220930095248, -0.001769267139233463}, { + 0.6193682875981826, -0.0004290555784392143}, { + 0.6214619577224821, -0.00013533577139013454`}}]}}}}, + GraphicsComplexBox[CompressedData[" +1:eJxF2Hk0lH3YB/AhFEmiQtlCRPbtQcwV2VIPomxPhYip7DvZspU1ZUv2JbtC +ZAm/yb4v2bIPYwmVok3I6z3vO2P+uc/nzH3mzLnn9/1e15lTt+z1blNiMBhp +Cgzmf6+TRw6ZXsNHw1/icYawQDxSKcrH1LlHQ29/7N+z1ng0aLv0y7wlEqze +Ymt/qyMUvd93/G5RBCT+J9xV8qYesXwLoLYqD4O01+eHmDLq0J/rg9YdUWHQ ++1Ln+mRIHfraqfAPg1UYZLM93o7F1aFPQsU2oxHBIKV+eMzzdg0yMgqqDWQL +hsw4x+QcmhrEubqvhpgWBJmyjzf8k6qR4mLMKL3UAxgdqFkV4apEyYINpjoz +/uDqHTNhH/IG8egabP5d9gP1h/ERopMVqJPujf1RtvugdsnJ4HHva5RYyUl7 +Cu8JmhYV7PI0r1FPepTO5dsewJL80XpBqAwJje6jaKdyBenDFthe9xK0sJCR +OXvXBWRjX1ZT0b9CXw77LuKuO4Hxm9IRWupipKolYCxE4QCSmrLuXyUKEOtH +/t66QFuYNF+TTziYh7jNjZgX2O+B66yYSG7TC/Qx0lZ9YcgaNKrFeJats5CN +6KRrFLM1BInJ1ggezEDX/3lpVRBuAaW+DPsqeVOQ/9Us4yw1c1BxLu034k9E +4gp+H1913YSrf9ZdPI7FouiKuDQ14/8gwkjwoXV+JJLzFKL6KGkEThvRiWWD +IQi3qHfNOssQggy+DLnqeaCPHyyv6d3TAxxdhYHEoQvo0QsxS0MlXdBrM2tU +orcAf961ljX8JdBUXBf4WeIH500eZBWlaoBJdU7Q1Jlw4J5SKDJNVoXiHRVV +okI0fC2QoV5ZUIVmKddQ1s9x4C89WeBgrgiZBIPJwvIkMPttcyxVWQ62p/T1 +A7lSwSxCcsrfQwoUu9yaNn5mAP5n+B1qWTHI/fnpruV8Npx/3p4bnCsInlnE +8SKaHMA87FrxuSEC8X8lVa1/5YG/HEu3kB4nBDvqKPh9KgR/2pJxP1YWsMln +Z1akKAZ/rhF2KGKEVfHVxsFfrwCjOCwxX3sApoN+6V71KAVMkGUrbmkHe72U +7pLKzq7Pp1tUPf6BzS4dOnXK+zVgDmT1Mml9xW74sX233igHTJ6rcWjoOJbu +x4rre98KwBCamuTXBrD9Ha9nDLfeAAbDRLVWW4G9YXafoR1bCZg+hn137wdh +k9zZ71idq4KUpRb7F/+9J+cpjYGTzqb1PVB9vfCgbQghqYCAErv591CYQ53y +0QOhu3kcl81/vifnK75rVWxJYgBm+C/ebImrR94eV1sm1AYA9/xglYpxPTqR +o/btiPYAiOmunItVrkfrq3y14mED5LxRGLFEUGUPgJ2v4MSATB2KV7L9UDk4 +AF7//BbUzq5F6Sf8Uz6zDoJcptnWu5a3SFi99/uc2SAcaFySWFytQUzhHLOm +toPQnp7KWNdWg3D1JYpMeYPkfEbY1Obsmx2EyBBPUDOs3s1HFaUw2xBsn7lz +Tz+zCkU5YrqrpYaAPjRAMVy9Co0dvRue6ToE51fjcpm9K1Hw9KEXWk+G4PSq +qvQsTyWKMfvWcRkNkfNsZaerptg7BDirNH/GK29QYNJBV53VIQhkfjnW9rUC +rVr6vfRTH4Yp+2zvqy3lKLstYVTjwTC4Gm9Ncmy8RgaHpUxjeobJeffqMLmQ +tDUMQhYmPC1OZShGyTD2vswIJC/FUjRkl6JDP3zpBnNHQEbvx0VpwRI0n8KX +1DEwspf/kAN3zBdHwL3sOcepxJfIYSP/yCLtB4hhyfakqC9Gi694jUyNPgDd +/b6N7vBCVHcXCOyxH+Bf6LSOHMlHnb9+VL4b/UDuB+szG9OSLKMQS/EkXMQu +B0m/MTNMvTAKfc/Co6W5XqA3GrMqUXGj4E7D2DuxkIkoW2Op7EZGyX2h7cau +a7s6CnShZ3siTdLRTUPNl758YyCyc+jGkbUU9PBkxsnn18bgpXDJ9/ljScjs +6sO+0mdjcEJ5KHbuRALyx8kyN/aNkfvkWkiCd4fEOKhbB8fJBEeiTzPiV5jU +xkExncUWCYUjIeHsVzxW44A7c1xUw/EhuvffZYo0NE7uF40GbsVvy+MgetLz +kBWfPbpcsaB1HCYgd2ZKyzVdDVL4Qu4LXJgAxgRmTQqvf2Gf2CtT+qcT4MIw +0SDD6A5vVxRcY6omyP2jqqYXH845CczFp+f43MOhKUHzjKfCJBxlWI/Gt0aB +ypwM263Lk6CnyNOdfzMaAhwEi77lTpL7iP3cQEn8xCSYfeAXLxNJBKYW3X/Z +uaaA00qCNuRzMsgzBy8WG0/BjObQVh1fOqRt7i9yC5gCELU6APYZIIuLDWuO +nSL3VSejorNT4xQw2B3k/22QBaa5P4Lb+KZhvk9+2lM/ByImY3A452lyX2W3 +TwtbtEwDOBrePq5QCJL1GTw4UQLoNbpZNOa/AjHCsrWpFIHcV/dEOGiuyxBg +REQ0vfdgCcRUHWngUSBA8Wmns1WiJaCsIx7rc48ADC8W3lHXlsLClpstTxAB +RFKzxyaCy2AwsN2VNp0ApD4L4vjRvjZIAKXe2n2ndvtsxfpjDM86AYKdWf90 +EyvA5ghrZPexGSD12Y26SGoWvhk4pXN684djJYQtmkXbaczA5j4Z31TvKvD7 +pf+vgM4M4EYylZ1rqyAzq9mJ33kG8rYLxBlXqmGgmnVyK3hmt++eZER514CU +1102yvIZIPo0ds3PvwWWK5K8rI0zcMUm1ErevBZo/B65H+2ZAR5GL5XY8low +KpS2evZjBoS27c2bt+pA20rT3ZtxFhx9nmwRpuuB8Ht7bF14Ft7Rmr4j1CJ4 +cLzkZs3VWSh1m56+dR8P4UMFdhums9CUckS/tRAPy+bLc/stZ0H4YC6jbz0e +UrWEfb7Yz8J1I4xuwwoe1CsGRLeKZkHxfaB33co7IDRY5qS/n4UGlniHRN8G +2CoeUTMbn4WxPoYirYwGaODdFqDanIWd8bcbGKFGuPwkwvqxABEslThkbCYb +od6LR6IFSwQjvuC+cmwTbHQsZhVpEkFTo/g/Iq4JPNR2hGluEcG+sDdeo6sJ +cC+G0oxciZBd4O3fwNkMh4tNmK/EEWEgusHVLb8ZbhC0KXMKiLvnw0W8728z +hDqoy/2ZIEJQ/VMOXGcLdPD9TYglEuFMwuqkwWILTLU1toYxzUGIkkX0Sn0r +UOp/518QnYMPdjHjHEJtYCzrH7BxaQ76G03Ob6S2gZ2L9uYV+zmY2kkc1xJr +h7ciPUM47zlIvc7CB3faYWxle6nmwRywa+l9pfFrhyeWt+ipouZgODO44kRZ +O1BdoOVsb50DDv3SjM+FHSBwmfOP4uIclBko6/JAJ3ifVyVwH52HkfF8Pczn +TjBAXUkG3PPwd0IOI87VBd0unF5c5+bBud99/9mILrD6THc1QGkedpwb2M/F +d4GMfu4N/mvzcNFCvERppwsGtLHn8s3moW9Ml79BpBvu+nWmmTvMgx2/8CNV ++264nZXSnuI9D5T2NT9zMrt35/P/vRSw++VqoI/sh7Ubfc/xvWR3ikm/kvTd +85Q9F6Mx6iF77RWdox9mz7K8ajos9XufT/p+JF/POnnE8vye048brG5ud5JN +ej4kN8cLl2r6d5BNS2f9mKC0Z9LzJ1ksTOmKCL6NbOdtd7Fmnz2Tfn+Sn/lo +fzuC2fPE10e9+XUtZJPOF8mUjqZPfsKe1ecS7aO2m8gmnW+S71k6SIz7NZL9 +aqTgsLPSnkl5InnI8EE/Qu/IZut8+8rQZ8+kvJLsHc9H1NxBZJPyTzKNT2Ka +h9eeF0JlAkWgnmxSn5B8stX5psXynqfzU1s63+xZx0edl8mvluzYr/4UBYp7 +/mDxdlr5z1uyz2gdcqD4XkM+fy6PPTYeKxSB5tORxM9c8yDWm+9wzawQeg9p +FmQlz0GhWEXDwdMF5PwN/K4Lu1KXD9vdetEcxnNgEuORKBmeD8vCJbEP2ebI +82R9gv9o0UciJBGqTtE/zIOPvIc5eaN3++KA9JxnUy65X3I6ea9NG+dCMNYB +Q0tNBG6FhAKPiBxQSOOIHmyehagwptVnu/s1qT/5IuVszrO8gDcjR/VFNmaA +z/o9u4FRNsyNNRLL789AsSz/2WW9LPI8MAxpYetezoQZ1sory0Iz4JYpj2kr +z4R9KdxHtzoJ5HnJoCuf34YnwAPFE8E9hAxYJ36eumOyO58IXyt4uDPI8y0n +aiGSgpAO/qG9Yud2puFAtEeou2M6OG7KZDodngbXF1OrJ6TTyPNa9j9rEYWF +FJgq1MLNdEyS53kZ/fedO1aTwPA66uKF88nw+ldmXAzXJMhvqz/XakwC0j6C +dYleMrvyHC5IlVKfq9zdZ1ycbU1cE0Hy86ZOtsEYKDLu95hWSADSPmXzzJz6 +xpd4yEmclKigGgNJmVWbQnw8cBWwIUmvUfK+QdrnRj9drlE2jIPZi2sJa5c+ +wGWPvgf+MrFA2hcpWS5gFgdiYEzXK/J15gi0MYx+E8fGgIAmLRN91DA8kFe+ +GtH1BEj7rlW73Ozx9WigWIpuPEk5BHoL+JCnQY9Bb+iHQVnnIHQ7l5naUj4G +0n4/ofKz3qw8Amqe7KxbUA7ASyufYyZtYSCNw383dH4PqpXFGce9QiFvuucc +d00/2Ax1vxhcegjJ7BtEHal+EI3Bh3KMh4Db8jWNgaVe8L9UF0x3MQjc9plj +j0AvHDbVc+kvCISmQrb7+XU90DIlENslEwjOyobhPXSdcHtpHa9S5wdJGnzU +s7SdEKuXf7P+rR/85VvBC+z6mX1z9YsaP6DPMqOR39dJ3vdeLgXjtFbboP6G +M02MnjdEnaWwO6rWCpnEeMO1D56AD1/sLBtsgTbaS4n9vJ7APneyfUu9BX6E +B8oF6nkAJuG3zEHXRrDTT6hzi3eB+d6Cp4FpDWCoJ66x4egMmfWe+Mqkd6Bd +ciL5iagT/O4XfO4ugSD0kloG+mIPR89MlOUN1kI99rRp7TVbSHh0Qf8vfQ30 +aNEeUzO7CwGLqxUYs0oQXwio1Nq0hpslt85r3S0HgmRJH07+NrRuftrooi2F +HtM8dqLtLfjdEEBRuvISZn8/GgjTNQddx/dJIzu5gL/IUn4cfwOeaA4d0tJL +B1aK4YaAKCOg0D30Oa0nBZqG792x6TQE0v8rjLIxVP339IExF7sqJ2mBjAJX +vIdrtUF8Xo1XttASOQTs1HkVaAPjOP91Vf0Y1DZX4eIjqAnNVTxHHfIyEOe4 ++Nl/tFR2798fkRuciQotepVP5ynD9+s0zKa+BeiL0/AhDR0FSGKliFU+Voqe +xd1w67glBVQh35PoR0oR5z9SCVyLEiCes7UZmV+BzI5Z8wmvCQKVi3dk8u1q +9H2UFz5xn4J3+j+dnprUIEZWRwGLdxywwOFm94m5HvUVDa5VeDHBwhUWa+oZ +PGKM3I9v56YBrUHaqGHcO8R4LfrPADcF9HS4O5yGRoT58zrT2XcdS+Wt/cOR +uRn5++OqO2mnsBSC77cvpzcjTLLOVJZ9LzY/pDz/qksrwhCi6rIF8rGpXKoX +z7zdNfexoiKl51issAWjdWAbwpgtyz2z88HGDbnTbtTv2r9rwuCLBdb0rwj7 +66le9P81Xlvtl0/xi66HbPNejl+YqG6SMUEq32YD8zv/3+K193iMCJtOHeT3 +/wdRjOqn + "], {{}, {}, + TagBox[ + TooltipBox[ + {RGBColor[1, 0, 0], Thickness[0.01], + LineBox[{1, 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, 50, 51, + 52, 53}], + LineBox[{54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 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, 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, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, + 170, 171, 172, 173}], + LineBox[{174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, + 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, + 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212}]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.1`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.1`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], "]"}]}]}], + "\[Equal]", "0"}]], + Annotation[#, -$CellContext`x + (0.1 + + 1.5 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0.1 + 1.5 $CellContext`x - $CellContext`y] == 0, + "Tooltip"]& ], + TagBox[ + TooltipBox[ + {RGBColor[0, 0, 1], Thickness[0.01], LineBox[CompressedData[" +1:eJwNztciQgEAANAbERlFZIZKyf4Xr976gHytEYqUEdkjqzgP5/2ki3s7pVAQ +BLvsc8AhR5Q55oRTKlQ545waF9RpcMkV19zQ5JY7WtzzwCNPPPPCK2+880Gb +T7745odfOnT5I5AO0UMvYfroJ8IAg0QZYpgRRokRZ4xxEkwwSZIppplhljnm +SbHAIkukyZBlmRx5ViiwyhrrbLDJFtv8A8uLLfU= + "]], + LineBox[{304, 305, 306, 307, 308}]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.1`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.1`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", "y"}], "]"}]}]}], + "\[Equal]", "0"}]], + Annotation[#, -$CellContext`y + (0.1 + + 0.5 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0.1 + 0.5 $CellContext`x - $CellContext`y] == 0, + "Tooltip"]& ]}]}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.001016246071242415, 0.0009857398227712216}, { + 0.4714619577224822, 0.028889612879877187`}}, VertexColors -> { + GrayLevel[0], + RGBColor[0, 0, 1]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.001016246071242415, + GrayLevel[0]}, {0.4714619577224822, + RGBColor[0, 0, 1]}}, {{0.0009857398227712216, + GrayLevel[0]}, {0.028889612879877187`, + RGBColor[0, 0, 1]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-0.161865110183253, + 0.6343433139769776}, {-0.11189561643172423`, 0.24177096913437263`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.6699768032594643`*^9, 3.669976811777919*^9}, { + 3.6699768718509502`*^9, 3.6699768979311953`*^9}, {3.671093452586643*^9, + 3.6710935102663813`*^9}, {3.6711927175580587`*^9, 3.671192727770483*^9}, { + 3.671192822041162*^9, 3.6711928386814823`*^9}, {3.673068247131949*^9, + 3.673068356813676*^9}, 3.673068597293851*^9, 3.67306863268204*^9, { + 3.673068673506373*^9, 3.6730687676141567`*^9}, 3.673068804911664*^9, { + 3.673069006639491*^9, 3.673069116608088*^9}, 3.673069149271153*^9, + 3.673091493191065*^9, 3.6730917428665037`*^9, 3.673091777141881*^9, + 3.673091827941276*^9, 3.6730918727287903`*^9, 3.673092416709937*^9, + 3.6730924734290743`*^9, {3.682230352723344*^9, 3.682230364360816*^9}, + 3.6822304016284237`*^9, 3.682230452079362*^9, 3.68223067486692*^9, + 3.682230741442252*^9, 3.68223078479597*^9, 3.682230913608121*^9, { + 3.682230949853684*^9, 3.6822309720720263`*^9}, {3.682231015561976*^9, + 3.682231226074185*^9}, {3.682231265091152*^9, 3.682231336632937*^9}, { + 3.682231393766885*^9, 3.68223140917111*^9}, {3.682231562412106*^9, + 3.682231590222247*^9}, 3.6911316002285423`*^9, 3.6911316518605947`*^9, + 3.691131837898481*^9, 3.69113197292867*^9, 3.691132192737213*^9, { + 3.69113233006488*^9, 3.6911323414242353`*^9}, 3.691132400528872*^9, + 3.6911324624080343`*^9, {3.6911325007837067`*^9, 3.691132528614489*^9}, + 3.691132565100687*^9, 3.691132595515601*^9, 3.69113271312779*^9, + 3.691132791145338*^9, {3.691132930436285*^9, 3.691132940427868*^9}, { + 3.6911329992188873`*^9, 3.691133022414216*^9}, 3.691133059462538*^9, + 3.691133096502254*^9, 3.691133128741259*^9, 3.691133366000531*^9, { + 3.691133424416461*^9, 3.6911334704928827`*^9}, 3.691133625128286*^9, { + 3.6911336555669107`*^9, 3.691133685127342*^9}, {3.6911337267803173`*^9, + 3.691133885233712*^9}, {3.691133956160441*^9, 3.691134000691243*^9}, { + 3.6913185174671392`*^9, 3.691318583669483*^9}, {3.6913186153741198`*^9, + 3.6913186812813663`*^9}, {3.691318715976606*^9, 3.6913187260212393`*^9}, + 3.691318766698841*^9, 3.6913188525969477`*^9, 3.6913219780614777`*^9, { + 3.691322019567603*^9, 3.6913220415569973`*^9}, {3.691322086875514*^9, + 3.69132211099693*^9}, {3.691322152144765*^9, 3.691322207791617*^9}, { + 3.6913222381851187`*^9, 3.6913224458165293`*^9}, {3.691322607833271*^9, + 3.6913226212577343`*^9}, 3.69363773272093*^9, 3.693637764765327*^9, + 3.6936378703506203`*^9, 3.6936382659391317`*^9, 3.693638323614852*^9, + 3.693638452554031*^9, 3.693638516113554*^9, 3.693639584448216*^9, + 3.693639783240323*^9, 3.693639919775824*^9, {3.6936399602398243`*^9, + 3.6936399770253763`*^9}, 3.693655705227008*^9, {3.693656063127898*^9, + 3.69365610875527*^9}, {3.693656157101256*^9, 3.693656166362713*^9}, { + 3.693656203138733*^9, 3.6936562309893713`*^9}, 3.6936563020406313`*^9, + 3.6936599200290413`*^9, 3.693660057544281*^9, 3.6936601185836782`*^9, + 3.699291271237254*^9, 3.69929130520506*^9, {3.699291474459896*^9, + 3.699291613842441*^9}, 3.6992937576773987`*^9, 3.709997143675796*^9, + 3.7108216743525457`*^9}] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.691322590134802*^9, 3.691322590175091*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Figure", " ", "2", + RowBox[{"(", "C", ")"}]}], ",", " ", + RowBox[{"three", " ", "steady", " ", "states"}]}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cplus", ",", "F", ",", "P", ",", "Z", ",", + "z0", ",", "Z", ",", "re1", ",", "ri1", ",", "re2", ",", "ri2", ",", + "re3", ",", "ri3", ",", "plot1", ",", "plot2", ",", "plot3", ",", + "plot4", ",", "Ge", ",", "Gi"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "0.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0.2"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0.01"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".2"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", "1.45"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\<, z2=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", "\"\<, z3=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Steady", " ", "states", " ", "in", " ", "the", " ", "phase", " ", + "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", + ",", " ", "\"\<, ri1=\>\"", ",", " ", "ri1", ",", " ", "\"\<; re2=\>\"", + ",", " ", "re2", ",", " ", "\"\<, ri2=\>\"", ",", " ", "ri2", ",", + " ", "\"\<; re3=\>\"", ",", " ", "re3", ",", " ", "\"\<, ri3=\>\"", + ",", " ", "ri3"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "hand", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], ";"}], + RowBox[{"(*", + RowBox[{ + "Define", " ", "the", " ", "plot", " ", "region", " ", "around", " ", + "the", " ", "steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"re1", "-", "1."}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re3", "+", ".5"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", ".3"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri3", "+", "1."}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.8"}], ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.4"}], ",", + RowBox[{"-", "0.25"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.3", ",", + RowBox[{"-", "0.25"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.6", ",", + RowBox[{"-", "0.25"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.6", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "2.4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.2", ",", "0.5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2.8", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.2", ",", "1.7"}], "}"}]}], "}"}]}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "ri2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "ri3"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", "Blue", ",", "Red"}], "}"}]}]}], "]"}]}], + "}"}]}], ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "Red"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri3", ",", "Red"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"a", "-", ".1"}], ",", + RowBox[{"b", "+", ".05"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", + RowBox[{"c", "-", ".03"}], ",", + RowBox[{"d", "+", ".025"}]}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"(*", + RowBox[{"Dashed", ","}], "*)"}], + RowBox[{"Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"(*", + RowBox[{"Dashed", ","}], "*)"}], + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"plot3", ",", "plot4"}], "]"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.691134052939101*^9, 3.691134058397626*^9}, { + 3.691134172906389*^9, 3.691134492805238*^9}, {3.691134536822394*^9, + 3.691134536950247*^9}, {3.691134655850223*^9, 3.691134656192999*^9}, { + 3.691134850477024*^9, 3.691134854957532*^9}, {3.691135032877783*^9, + 3.6911350720922318`*^9}, {3.6911353047567053`*^9, 3.691135318856195*^9}, { + 3.691135349392283*^9, 3.691135355897873*^9}, {3.691135391587961*^9, + 3.691135397441846*^9}, {3.6911354717731533`*^9, 3.6911355432015038`*^9}, { + 3.691135584039589*^9, 3.691135584616358*^9}, {3.6911356666101303`*^9, + 3.6911358109630632`*^9}, {3.6912173644220877`*^9, 3.691217595518058*^9}, { + 3.691420373197418*^9, 3.6914205607029676`*^9}, {3.691421841307733*^9, + 3.691421892647883*^9}, {3.691422049939636*^9, 3.6914223577885847`*^9}, { + 3.691422468057934*^9, 3.691422605512888*^9}, {3.691422636379649*^9, + 3.691422639383772*^9}, {3.693639835595941*^9, 3.693639838141773*^9}, { + 3.693639875476184*^9, 3.6936398815241833`*^9}, {3.693639992451497*^9, + 3.6936400202991734`*^9}, {3.693655736279849*^9, 3.693655737201605*^9}, { + 3.6936557898603363`*^9, 3.693655800924857*^9}, {3.693655861716138*^9, + 3.693655883011608*^9}, {3.693655918581468*^9, 3.693655927109304*^9}, + 3.693655972610796*^9, {3.693656019860427*^9, 3.693656024755247*^9}, { + 3.69365625427087*^9, 3.693656256632647*^9}, {3.6936564083263483`*^9, + 3.693656628272683*^9}, {3.693656698021968*^9, 3.6936567475952682`*^9}, { + 3.693656962494323*^9, 3.693656963443903*^9}, {3.693657344214891*^9, + 3.693657350070036*^9}, {3.693657952525804*^9, 3.693657952597002*^9}, { + 3.693659935213972*^9, 3.693659946749631*^9}, {3.693660029701886*^9, + 3.693660030175029*^9}, {3.693660133982649*^9, 3.693660135267715*^9}, { + 3.699293779037713*^9, 3.6992938132362022`*^9}, {3.709997187085375*^9, + 3.7099972312268457`*^9}, {3.709997316899547*^9, 3.709997319983465*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999995714285715, -0.010999999571428574`}, \ +{-0.009935589239311315, -0.010993558923931135`}, {-0.009871182764336916, \ +-0.010987118276433696`}, {-0.009742369814388115, -0.010974236981438816`}, \ +{-0.009484743914490515, -0.010948474391449055`}, {-0.008969492114695315, \ +-0.010896949211469536`}, {-0.007938988515104913, -0.010793898851510495`}, \ +{-0.00587798131592411, -0.010587798131592415`}, {-0.0014092453626965702`, \ +-0.010140924536269661`}, {-0.00006696428571428572, -0.010006696428571433`}}], + LineBox[CompressedData[" +1:eJwVynk41HkAx3FHpdiSdWw6FMqRo2glrfoUhVw51pLiQUaScc00jzGNazLN +/KjGzcaujm1YKQwp1C9UfMmR0LbJ0W6eZyrHdlhPl23/eD+vf976YbE+DCUF +BYU9X/tfpu72afOLEdBu91s6LxfQWtf+fPuN5glY6TItOJoCOlny/sWSdadQ +xrafytuYTjNisqtcz53FxpZjPfNeafSSwMyHphF56FqTLRsIT6X7YnkJdvIi +pPcPZH2cS6a/DbBpkeqVIvWIdmCyE59e9SFek/+4DLrSTfnKMTw6ysqydHDu +Alx/YB4/IePS1gaKjSz131Cj1aNvqJBIv4r2fC7wlcKrrTNybAOHHi9LDW2L +q8CktFsUepRNd1havGY3VUJx2KrdJiOBNuHMLIn+WIVPXO5dD2kcHebrjn2q +1TBp9A627WHSFUVBKfkWNXC5yTA3/HSUPuMzHsXdUQs/nm/MIUYEHW1ncEgn +XIZVuo5NX5LC6EX8KZ2fMupwuMZocoNtEA0bC75Fbj12bLmmljXtR8etNJXf +ariOUI7BMo9ZN3oXu1BhoqMBvzc1/NMyZ0c/2Jg9Xj1wA39cUVZQWb4U3stc +Or7/9yacR4svyZUdwI6ID/Ra1ITwynK28IIXJK/836w3b4aozrig80MAIruJ +b4n7LRw9NbejoCwEo4ZXQyoP3MZYynUzb2E4PKX7WSw+DWtm7tIjXZG42ltT +JHe6Aw0zFi+nPxpaSWnDUQ/uIFJnU9qbI3GYbdx00SWoBfGynd56RQkw3lqI +hL9b8AtRWn2+nI0B52fBc5xWhKswq0xfc/Awd9i3c74VQ94Hk2XqXJifOV81 +mdEGe+0At0pLHpTX7qWY391FXeCxhzfS+TB9ed7e7te7yNq8PWKkPgUP3J7F +h1rfQ1Xs7LkJ9TR0HxxRe9p6D0/mc+q2OaZjzeUiXtm++4jb85ycZgggF1rF +tD69j9WlpQUJl05i4QXB1s3h7Si/9Ojyiv4MpBw7d3ha3g5VozK7gs9CHO/K +1lTjdUBTY3hmyEmERsbu4gQlgseUknxbshjGs2tsehcQ7C61EVULxMgTfugz +UyEYfqfGNRGLESOVLX6hRmDp3LJfN08MffmGRH9tgsu7jPq/VIghilb1tzf5 ++ncWWj0ZFMOP9UhrkSfB60C17C4LCq3K1dVhXgQ/ZuSzPLZQsMzLcqd9CCYk +N8t7t1FYXL/3ZKI/gdbaKdVBRwrNsw1vX4YQzI+OXfvrAAWDpJL+XhaB3LYy +fbmQwllVbow5h2DBzricwkwKn372UxUnEriyXN/rZVMYalrm4MAn6NsZVGdZ +QkH8ObWmTkjgZDCwwqeWwuzpIA8NMYFJ1MrWpw0UwvS2y5mZBNYi2W3GLQr2 +eLvOWEKAlZ9rkjooVPT2NgtyCBTnmssX9lDQCbkSMJZHEJUy9UbyiIJgRvTO +vpDgIKNYsvoJhZlUhqS4mKA2+F5a+QiF/wBxkg1Y + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.2}, {-0.010999999571428574`, + 0.013119999370857147`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999970204081632, + 0.20999997020408165`}, {-0.009552191854259613, + 0.20955219185425963`}, {-0.009104413504437593, + 0.2091044135044376}, {-0.008208856804793553, + 0.20820885680479356`}, {-0.006417743405505476, + 0.20641774340550548`}, {-0.0028355166069293195`, + 0.20283551660692933`}, {-0.0004655612244897959, + 0.2004655612244898}}], + LineBox[{{0.004328936990222993, 0.19567115224503398`}, { + 0.01865784418452762, 0.18134930040151415`}, {0.049726198906966695`, + 0.15040905458099849`}, {0.07873570639055755, + 0.12180121149314549`}, {0.0960302318288544, 0.10494389749528422`}}], + LineBox[CompressedData[" +1:eJwVl3k81F8Xxw2RopItIlsI2UmFOoqksiX8JEmUJJKlKBKFJEq2pKzZkiyR +CF3GTFlakHXGMjPWQjELlcpzn7/m9X7de8892+fM/cq7+9md5ebi4ioncHH9 +/1fGpitnwq8eXheRQtdJ18Jc0fs3oyXN8OUy5yzP4woI1znV6uBMhmCD+y9t +Mp5C6PDXr61ObfCcPKkhHxcNbw/MhKeZfQSnTr+YtaT7KONx0uMrVzpBJaqE ++KH2Kbqr9CxSLqAb7Hpj3J9VliNx9olf6y17wIOmJb911StEkmsvKZHuA6dV +c+zawjpUPKIzSRIdgJ2oyYNv21ukRN9RtXVmEDp/PD17c7oJBfU/UJFiDYJA +PSGE8qMJET/OZQovDwJn7re1xlITcntTEEsQoIDm6TKzFt5m9CRZzHVUjQKz +Wc8UKxSakbA5h/+xNwUmj897xJ9oRisl1a7C3yhgS2+3MWtrRta5Qj1rmBRg +eSvyMz/j8w99DhF+U8BNjmqf0deMDKMU9efXUOGkiEcBZawZXTmZsuaTKhX4 +Gpd/Sv5rRrMbgqrvnKeC6pdeqSQdIhoM0ltL+EoFr+95EydTiCjH6Yr+l3kq +PH5odAgyiMjLuM614CcVBGOLD0jlENEiD1Qd4h+CwjpvnpbnRCSafNgladsQ +mFPjLnQRici68nTZVs8h0Gwpqpn+QUSkuft25mND4HQsK3rpQAuK7+oOk5gZ +gsj1R4+pHmlBx16JFX1jDsFS1P0EB9sWxAh7vHyPexhkavT2Zzq3oBWBovx+ ++WE4qtsc/fViCzJUe7vo5TYM4vI006C0FlThOZtxd3gYpFYmxA/RW1Bc/eX+ +vvFhCOSRSQuZaEFnhFZEFGaHwbJ3o/jTry1o05uNCbW/h2HgVafI14UWFL5u +542JTSPwU157ehc3CVlWR3qA3Qi4f9EhTMmT0DRhkzrr3Qj8+dzkcfkkCREd +c7z2fhqBJIIhnfs0CT15rlpwp3cEXLimjO+eISEbB2MZufERaNiWHhd/gYRq +ik8LWRFGoetB1OmjV0koyqaUXWg0CmMJGRvGkklILnNfo3PFKJSIafPLkklo +7wCTZVo7Ct/89zPMWknopEi+mkbTKNwTX333TAcJZdzhS1/5PAotEk6mD7pI +SOxKR0D+D2zPj0stZ5iEoovURIM30UCku7QoiU1CogdulV+QosH546af7JdI +KJ9BPewmS4Ox9UFlQr9xPFsSIg9to8EbvfNpl1dIiCvlx3epnTSw2ixJY60h +o2sR1W1NjjS4mOqys3kLGa2RWXf2lTMNqvxOn5CRI6P0+rNcJa40MPxqpHhZ +gYxeL4rvTPakwapIy+wN28iI7XM1/+wVGvSYzYj/1CKji8f33libhu3rNc2l +mpDR38W0zSuPaDCif50cv5+M4lN+vGJl0kBDKF/juhkZPf+cMztUQANXAfmS +wxZkNH2Ax7n8FQ3KRmK1023IyEO3Vd++lwZP6ruO/3EhozB+s+O8gzT4uVHY +yN+VjFJG0PWaIRocN0j0o50iI3Lc63cS4zTwl93z6YU7GW0bK3QaZtIAFaub +r/IiI5M6hev3FmnglKxecOQ8GTndz8qF3zTwi3KzSfAmoztGad9yCXSIcTwb +ueJDRjPJ0WGeQnQoZv6CbH8yWuVNyN0kSofNquVDtQFkJG1yndy6iQ6pCnkN +HwLJyGo2aP12WTpsVbbcP3aZjMrNzuT80KBDROK6Qx1Xyah1M42Uo0MHq06B +8ZprZESbP/H16A468GSfffMklIw2Zh7TrTamw3mGidh/18kokLOfFHKEDjeX +Db1iInD+Ot5Oq9rQodq3lmgaSUb5uYbrqHZ0SB5osV3G3Gul67jHmQ53BfJ5 +jt8io+9by659P0mHLe53lFcw8/1Wzc4+TQfapy1Xs6PIaGeh/DThPB2aa0Ke +fYomI9uwTMEqHzrE+dlFn4whIy87SZ0zl+jg+4aQMIn50T+ha++Ccbx7BKSn +bpPRy574rOBQOoj6hOa6xpJRewl/i8oNOryVnLPuxLzsyCV4N4YOpKJVMnl3 +yEhUI0zbOA7HZ9KyhzuOjNR5ftrPJdDBva060gWz2WDg1awHdKBen5yuwHyy +/EemTSodiMyzASuYr0RfIHI9ooPIpn1bLO6S0b0TU5OVT+igqh8zHYe5UMdD +wCMH5/O76Zf3mNHqUS3RfDpkm94Z+od5YNjZnlxEB6P7Z3m048lovqov5Mpz +OryMmTY/gZk/zi5zWzkd6o0UCiMwy7t9ah54SYeD0lvlcjAbGhyevFNDhxbm +clUdZjvBd2uN3tDBb7LR7SNmb8Y+rdlGOpSHXlOiYr5V23gss5kO9immhDHM +byOtLmeScX8k6Q+MY/55eDgts40O+45fbRjFrCfqW5v5kQ7OvuOlXzBfHP4z +mNlFh6oei+ImzM8K45cze7G/EtdeFGIe95PekjVIh8PmlvXRmGV3l+7NGqbD +1e/JnScxO3Mbu2XRcX2VlWc1Mad2dERmTdDh6Z0BwV84H50pJ55mfaWD7M5I +nQbMAq4zpKw5OmzrXXQKwWy+LXQya4EOUolCNzUwR86v5c/m0OGIVOFzKq5H +Q12GavYvOgRU3u+5iVnX8o1PNoEBNx4QZRtwvX3FDt/L5mWA5e+3YI25eGSw +PHsNAz6XXnYexP0h4/+Lmb2RAa1i4aEU3E/HDe+I5ogxgNfw9g1bzCk8kgY5 +kgyIiaq7inD/rUnbdTVHngE1nustY3G/mp1qzchRYgCzfVaegfs5XMWpIUeV +Afd+XPiqj5n9JnglR4cBE9vaLcg3sd5Ga6Jz9zEg979U1Qc3yEjqmXlR7gEG +SIyv8n0ZTkaOAX2tuYcY8EVG9tEHrL8PqxYF8o4yYN5hrHAG67NWdUdS3mkG +lC/UXu0JJiMWk1SVd5YB9ltixxqukJFmg31v3nkGaLtra2Rh/edbB0k89WfA +QmjZiSN4PtwPrMp6GsmAfPoCn+1FrBdj06an0QxorxQ/+v95s4rvC/3pHQao +3vcKKLqA53M6UzH/AQNCOiwMGHh+eTbqPM/PZYAxSbiA4EFGe1dXvC5oZoDv +3XidKQcy2nGwSi+ZzIBtHnvrtttjfd2uKY9oY4Dshr+HztvheFc3Fp3oYkBA +S83Nz9a4//jaH26kM6BOqW+HxUEyquQbD77ONQYJH5PbvxrgeplPsbxXjYEF +L+PiW30yyon55ufEPwYmlRTBeF2sP76Fc3pCY6DgzK8rrIn7n+/ff19lx0B5 +QmF1uyIZKfJJ7HKAMfgeQRWcEsL3m0tV7zcdg9fm5kOH15ORcIyMtvbBMbjr +/CitSICMCHxKKgI2Y6CU69p6hI+MRnh1JZpdx6DV0XE1LJNQOq/lT/XwMcg2 +qVbvHCMhAd6I2lWNY/Cu/i/fw3ISir9e2FjWNAbaao8ZdqUkJLj4gehEGoPZ +UPcw/meYpyQ/lnaMgX5F+5RbHgmtb6ui21PwOiH/7rsUEhJOmFpbsDQGYYre +V86EkJCEmM3JA7rjEJKy4jtpiO9PuOz+Y8c4HA5V6h4wICFJvifnHu0ehxxX +XxpJl4Q2L037z5mMgy17za87aiQkNXgzJtVmHIT6Vda2SpKQTGZN+YTPOGR4 +PtkustSCFJVkuGOKxuE3J+cOvbQFvU90WnXj+TgozIqYZxe1IO8/SXwh5ePA +fccy1CGvBZV/WS3g/XocaPuuWT1/iN9LNxdErN+PA2XNXPifyBZ0dJSkJD41 +DsaawXH6Dvj98+jCoULlCWivkZFc4hCRPG/hkWy1CXD+L7iJ+P/32yWaVbrm +BOwvafsY85WI1lg42MUZTEDGVzOJn0NElLK498RF8wlQT9R1vdFCRM+PCfsa +eE7AN6P9e+XuE9HAurrEdwUTsPmlwtpiOSJa9VJcOuzZBHy6XWj9S5KItB2D +inReTIDdBq5JUxEiis3SevukegKc1JkCZF4i2qVVOBPQMgG2+3aoB39rRum2 +yeay9Alo8NQKy3jZjJySff8ES09CAyKHUPc0o0EJBS/V5Elguh6fMjTB7289 +ltWHtElQP/tnw5pdTajEmqTnlzEJ7Ibo5k6tJnQtynOlOncSJscIyFK2CUnP +l6SZVEyCaEyR6fdlhFzf65H/+4jti5xcUgtCiHH5gELM6in44F/1at75LZrt +9hpihE5BkF4lq5LQgDIcSlNPhEzDfMFll/W7alDK78aHix5foaLYkleaVY7U +vD6M2Hp8A9rrc+OpuTmoK6qWSHCdAS7be8N5kVpAbgn40XNwFtzc1lnMq+WC +fYfq6XMH5uCS1mhe7q2XoM0pk5LW/Q45N/YpLR5rgC2fNgZu2/wD/lBlu5W2 +t0D369rVv9bOg5dgpIFnfSs0PLK55hcxD8XUqXFX1kdgj565T16ZB5fxSmJd +UxfY7aS3ll5ZgJ75Foe43T2w2/ODLcwsQISPlcXHwD6IEbwiuXtuAUhlSTzT +YX3Q/VKWoftjAcLuNzr+je4Dn5WAQGXWAkjICudvSu+DnHTJtHXLC9AUnMde +09AHfB2eVOpaJmifvq42wt0PPVoEzxA1JjRdVCtZE98P8n0lmgHqTJAQFFY4 +l9IPF8Psly5oMkF67oH82yf9sLqtKPaULhPytT4nO73oB0N36+fmhkwo9Vc+ +svdTP+SmPJ4XPcwELrtV8uT1A3Dx147QyvNMcHk4KRARNwBcxv6xdy4wwbIp +Z8f1BwPwILw09bQvE0j+F+oD0wegmmdrxUZ/Jkxb9tdbFg7A73VCE/4hTOgR +iKh60TwA0QrfrHVvM8Fnt0ic4tIAPDmSpVCVz4Qgz/gdL1wGQfPeoNbdQia0 +fhZxfOc+CKhTdI9HMRNyOlM+9XsNAsPh7n8ipUwwvvqqYCxoELa5hcQHVuH1 +oKp/mfGD8DLIblGPyAR2JM9w6ptBaMvka68exfko4LVwEMLfhYMdDtV07F+M +5s8eMQqsF39ArxpjQqLEU7fDUhSwvyf16+UUExQdJNTFlSkwEq6tUvkD5++e +/jltIwqwTznHvFhhQop+v9JZDwqIP5EVfkFgQYOc2rChFwV2D4xnlvKwQG7d +ukReXwqE2/q9er6aBX8yLGuvXqHAmn1R4882sMAt6C6ixlJARqFsf6EsC6S5 +8xZDn1PAxDXwU4E8C8LO1Fc8LqeAR8Yu54KtLCj2Ecorr6JAsXCLf/42FvAX +WfysqqeAHs9ATp4WC7R7dgprdFDAETLV83RYYKb3XGnuEwVCQt1rc/VYwPXS +VCC3mwJvWbOfc3aywMuIKDk+SAGLccJKFrCgx+PQUO8UBbzl3sdl7WNBxR5/ +Sb0ZCiS4xItnmeLz3iXNt75ToLtHXDPzIAuaZjVkV9gUOEnefvKxDQvsX6Ns +FwIVAgod6h+eYsEZ5WDlok1UYGXasxNOs6B2UV5adTMVglKPaUR5YP/mhhSz +pKlwOepo9qVzLMhxNDY+LU+FEHerW4f8cDyGfyUPq1Hh13HLBvBnAc2/HjzU +qXDt6BHOjkB8/oLORj9NKoSaHDqnEMwCUgPPLVddKoTLHDiyHM6CD73Nuo93 +U2FFzCxqIYIFl/6xzS2MqBCxzrRx6iYLElMTM6eMqRD5x0SrJwbXI5A49Aeo +wM0Gr/ZYHL9vQUnAPircnNmb2xTHAn2DuGjKfipEUYxFXtxjQZRVhnrEASrw +dhtZPk3E8fF2DzeaUyGmzTD6URILhhwVPecOUuF27a6l6DRsP2+ALH+YCvwV +O7XD0vH9Jnw3lY9QIbbI4HxABguqX0+MSFtSIS5Nn+qaxYJVlCXTESsqCNzT +E3XIYUHnVLX2M2sqxEfrWh3Jw+vxu26ftaGC4HWdmH35ON9BVbtFbKmQEKSN +vzFYsEvE2vAl5vU+Wj81ivH+xyqh+49S4Z6Hpo5iCQsklp2/t2DecELDe3Mp +C1So7GgDOyok2qk/FSrD+Xv4Vy8D88bD24f4Klhgsjfo23fMSfvUxP5WsiA+ +1uax/jEqCO9WtWZV4XwNXt91AXOytsrtr69YELJ7oioJs6jKtqbR1zg+W4+V +Eswpssq/eutwfc9+FKzGLLZJSfdDPV53mP/4AnPaesULxEYWiKYl6qdj3sS3 +Nb8W4fu3e+sGYk7/Kz9c1oz1UqRdtxezBEdOvKAFn1e8/+Y39u/RrKzNYzLW +n5mKShHmzeMysQ/esyBCOY1lijmDuqX5dhvWj7f3+i4cv9QX6d/XO7A+lTS9 +rTE/aZfSC/qI45s8/bMe528LcbOP92cWjBdfL5HEnFUnWeDWxQL1/nn/czj/ +spUSI45fcH3NFEwKcH1yijdtsuplgY/KJb4vuH7yOeK2pv0smJfSrpnH9c17 +KHZn9yCuj2i5yT9c/6cxIstKw9ifHGbJ9CEqeG3OD/k9wgIhPcGIQQsqaJbp +L36iYXu8DLEG3E+1vQ4LweMsmD4SfMwR91/4+cmLlpMs3EdcY+vMqGD698qs +3DTWpwCF+zXu10+K6VNtM1jfr98Th3F/p9SqnM2aY4Fx46XDJ/ZS4bhlHSPg +Bz5vkqzTjvUwHkgZlmLhfqpRnAvF+vlFlO7x/Y37RUq+SQPr663ji6P7/2C9 +J/h809fGevi257P4P6yHiP0bNbAe1wufakcENrB50hTmVamgeDq3aeMaNuwS +fshGclT4xtbZO7mWDSnR8vlWMlQojyXWvxFkw/yp1JkOKSoYVozVeAixoTbJ +c0OGOBVsVpRevNrEBtvU8wdCBXA/JdeoxUmyIXFB1SaenwoU5YPFrlJsKL17 +LS6BlwpnrL2erpZlQxhLyt1thQLXMkseHVdmg7T5KjVzJp6vOkabNFWwP7+l +HPrxPOMld6Rwq+H7K0oPOeF5lzg7e/+5BhuC2oucVccpUGCkFfNXnw0/d4SX +8PXi+fgZ8XQbsIFrgr9CtIsC2h62kYW7sL0dOmLCHynwJs4/zMaYDbMhE60U +EgU6B6sCck3ZIHpJzDUPz+/l4F2nDtix8XwtPP8vgQJ2vMdO7LNnwwf7Ldr3 +8f9BcZLvf3sc2SAUWX5e4Bae5y/ybHY4syHWtfgHOZgCFQxBEyV3NoTcPPjf +PjcKnLGiy/EGsKHnkefiPg18P2VZmhDEhpzS12mR+P9ro5e45N/LbBgoi737 +XBbP/5tHNnKusqHperrq240UkKx9RZiIxPF8yN8xxB6ETwpxDNIDNjTc83OZ +qRkExYr8kaZkNgzxt2e9LxuE0D2I0pCK/VF8IJhQOAgqTuzu6kdssEwokfmS +Ogg3E1xb8nNxPYoe8B8OHISdP3XzoyrZkL7SsL1bdRByPlLPmnWxQXDNTd2W +qAEwWrpdKPOFDZ0f0+NPXhuAPjn9qZ89bFB/d26U7jcA64LivV4M4Hwlr9co +dh6Aa5v3XBCnsYF2481DVa0BOHYu69L0dxyva9XqhS/9wEc4HRovyAFtn5oL +UoL4PaO2rsFzPQeCIi5o9fzrA2P7uj8mQhxYtZ+vPWihDwKLNoZzRDgg6u20 +x7evD2hWxAhXKQ54GZ9S353dB3UZW2O01TjQar07QUMdv8/0JxN7DnKg+uDF +0DV6vXBW8kN4wSEOuEV+15tT6AXXf5U+V45w4EPCu6jXwr1wtPW6hYQNB2I3 +JRevLPSAgYsYl4sjB3KU9/C5lPcAIcrMb+wMB3xY7ud3KPVA2pc8K2YkB4q7 +F/1m/nTD/dpYo5ZbeH+Vg9aNr90Qm3lRNSWaA3/CA/Yu9XZD6DlDXoM7HCBV +n+dKKesGt+WuhquJHAhRGOIKd+2G7VsJ6oRsDjw5f2gfT10XNAWcWivUwAE5 +t7mdR5w64fDRz1f43+J1mf6rVtAJvVowxtXEATP98QPqyp3wbVamYaGFAwO6 +5dv/TX4G0XMjvl86OHDJ4FTsnMRn8DpxsiuNyoHatrYjWn4fYaPZifQtyxxI +1z20/HGsDZ4odKwS/8sBoaeyufeL20CZYOS/fgXvNzZo5PFtA+O3mw+vcC9C +iMVyGDenFTx3UZZpazFvCha3J7TCG/Xjp/I3L0LsxVuamwTegbvYf8rbDRfh +J7fcYBK9GXQSnfoJxotge2j136GcZuAScI4d2LMItFb7q8OnmiGL6+S36H2L +4GUh3sg13ATUGfcymsUiuEFeYFoRAnviRYO0/xZh/swYId6zHsz9YswJlzHX +3Q5bvvQSxL7dXuq/gu3fIhz1HqqE8TN3istCFkFujdGT3Qcr4aZz/FqXsEW4 +ZLKD5+fmCkAHkj7V3FoEk7L9f7suP4dd0lmOPkmL+D3t8yGqNhfU2l559pdj +fiuTIEq7jFKb3veOVy5ChFjuK52BCMRVO2jGrML8IfvqxvcxqLfwr8K6Wry/ +OuFojMsDFBF1YHR/E163bjM2DM5EfdD7X1knjvdrcFK7ynN0q4ZtEb2A4zs9 +4F5T8gZ9f8FXm8TC/j886Nlyqx45FUhsy+Fgfy9aV7w52YA0U4x563/hdeEN +qd6ibxHFP6p5nrAE/O8E7l9614S0NUQNXYSXwItGEznhQEKPFZWfnRddgvm7 +3IHH20iIT3qXRLA4Xr/iwN29h4yoa10WH2xeAppR6m9dlXcoZvrpy/cKSzC9 +sta5kbsVLYy+ku9VXAKhXZv3p11rRS797xMZykvQOk+an2G2Ip13Mxf/qi1B +U5Lj/PqJNvSk8e/wWg1sf2Fkesi1HfG92mAlobUEFqMHllQG25F/qXyDks4S +cK1u82Md60BDT/W26+ktQUhrV6Hx5w70P/0f99Q= + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 1.45}, {-0.21726186891061494`, 0.4269838452360828}}, + + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.691134202135131*^9, {3.691134482072929*^9, 3.691134493232272*^9}, { + 3.691135464444171*^9, 3.691135521071075*^9}, 3.69113555156861*^9, + 3.69113558514855*^9, {3.691135669538349*^9, 3.691135811321965*^9}, { + 3.691217397332892*^9, 3.6912175960938053`*^9}, {3.691420380059111*^9, + 3.6914204165766563`*^9}, {3.6914204541994457`*^9, 3.691420561018105*^9}, { + 3.691421852758523*^9, 3.691421893486292*^9}, {3.69142205105159*^9, + 3.691422182787798*^9}, {3.691422217228775*^9, 3.69142235850133*^9}, + 3.6914224825225058`*^9, {3.691422513992503*^9, 3.691422606012048*^9}, + 3.691422640697515*^9, 3.6936400219527483`*^9, 3.693655825640711*^9, { + 3.6936558663135967`*^9, 3.69365588348368*^9}, 3.6936563248986597`*^9, + 3.6936565414858*^9, 3.6936565785533524`*^9, 3.693656612856802*^9, { + 3.693656719623467*^9, 3.693656748824079*^9}, {3.693659939167927*^9, + 3.693659947413575*^9}, 3.693660067741686*^9, 3.6936601360451717`*^9, { + 3.699293797371296*^9, 3.699293815907547*^9}, 3.7099972335798903`*^9, + 3.709997322525209*^9, 3.7108216867832747`*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "0.39`"}], + SequenceForm["detJ=", 0.39], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693640021907589*^9, 3.693655825566751*^9, {3.693655866233906*^9, + 3.693655883402533*^9}, 3.69365632481562*^9, 3.693656541406289*^9, + 3.6936565784681053`*^9, 3.693656612769046*^9, {3.693656719544258*^9, + 3.693656748738892*^9}, {3.693659939086276*^9, 3.693659947332032*^9}, + 3.6936600676576223`*^9, 3.693660135962529*^9, {3.699293797285664*^9, + 3.699293815817474*^9}, 3.7099972335988817`*^9, 3.70999732254827*^9, + 3.710821686799358*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.09649579305334417`"}], + SequenceForm["The zero crossing of P is z0=", 0.09649579305334417], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693640021907589*^9, 3.693655825566751*^9, {3.693655866233906*^9, + 3.693655883402533*^9}, 3.69365632481562*^9, 3.693656541406289*^9, + 3.6936565784681053`*^9, 3.693656612769046*^9, {3.693656719544258*^9, + 3.693656748738892*^9}, {3.693659939086276*^9, 3.693659947332032*^9}, + 3.6936600676576223`*^9, 3.693660135962529*^9, {3.699293797285664*^9, + 3.699293815817474*^9}, 3.7099972335988817`*^9, 3.70999732254827*^9, + 3.7108216868019657`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three zero crossings of F are z1=\"\>", "\[InvisibleSpace]", + "0.21021532821375397`", "\[InvisibleSpace]", "\<\", z2=\"\>", + "\[InvisibleSpace]", "0.855010954614683`", + "\[InvisibleSpace]", "\<\", z3=\"\>", "\[InvisibleSpace]", + "1.416996242803104`"}], + SequenceForm[ + "Three zero crossings of F are z1=", 0.21021532821375397`, ", z2=", + 0.855010954614683, ", z3=", 1.416996242803104], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693640021907589*^9, 3.693655825566751*^9, {3.693655866233906*^9, + 3.693655883402533*^9}, 3.69365632481562*^9, 3.693656541406289*^9, + 3.6936565784681053`*^9, 3.693656612769046*^9, {3.693656719544258*^9, + 3.693656748738892*^9}, {3.693659939086276*^9, 3.693659947332032*^9}, + 3.6936600676576223`*^9, 3.693660135962529*^9, {3.699293797285664*^9, + 3.699293815817474*^9}, 3.7099972335988817`*^9, 3.70999732254827*^9, + 3.710821686805283*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three steady states of the SSN are re1=\"\>", + "\[InvisibleSpace]", "0.009289517143394582`", + "\[InvisibleSpace]", "\<\", ri1=\"\>", "\[InvisibleSpace]", + "3.140643980082845`*^-6", "\[InvisibleSpace]", "\<\"; re2=\"\>", + "\[InvisibleSpace]", "0.6250503995994064`", + "\[InvisibleSpace]", "\<\", ri2=\"\>", "\[InvisibleSpace]", + "0.032544484944664095`", "\[InvisibleSpace]", "\<\"; re3=\"\>", + "\[InvisibleSpace]", "2.845156080957054`", + "\[InvisibleSpace]", "\<\", ri3=\"\>", "\[InvisibleSpace]", + "1.912675446249655`"}], + SequenceForm[ + "Three steady states of the SSN are re1=", 0.009289517143394582, ", ri1=", + 3.140643980082845*^-6, "; re2=", 0.6250503995994064, ", ri2=", + 0.032544484944664095`, "; re3=", 2.845156080957054, ", ri3=", + 1.912675446249655], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693640021907589*^9, 3.693655825566751*^9, {3.693655866233906*^9, + 3.693655883402533*^9}, 3.69365632481562*^9, 3.693656541406289*^9, + 3.6936565784681053`*^9, 3.693656612769046*^9, {3.693656719544258*^9, + 3.693656748738892*^9}, {3.693659939086276*^9, 3.693659947332032*^9}, + 3.6936600676576223`*^9, 3.693660135962529*^9, {3.699293797285664*^9, + 3.699293815817474*^9}, 3.7099972335988817`*^9, 3.70999732254827*^9, + 3.7108216868085012`*^9}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.05501621018163476, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAOY11eOaz77+BmnrJthINv7fMK2DV +Gu6/TLbA9pObC7/SMXPfH5Xsv70k3q8xNgq/1dE/IFMj679ASp9oEeMIv0dl +25tXxOm/tBU8yTKhB7/mSKYodjrnvyxa6CI5TQW/T0bA8NIw5b93VqSO2m4D +v8+FUdsMUeO/XveELuC2Ab9rB1roI5vhv+g8igJKJQC/GsvZFxgP4L8ZTmgV +MHT9vpJwkkfsTN2/kW2Hz7/e+r7GbEGMlbXavzLa83Rufvi+ncoPnK801r/W +mrSBKF30vtyU4OoaeNK/Z9LOdubv8L5PYesI6LjOv46GzR5hLOy+gW8suSlT +yL/E3QZWbE7mvtJ+wmBAP8O/Ainq64Wm4b7hLPJmdh64v+1ELC6JKta+AYhe +Kb+ZqL+27QukNxrHvlEPN2uqXJe/8MJz1ijzt762QKFbviWUv6SUGf+3S7W+ +K9dRc+9Akb+ezXZvpO6yvngNAIRvp4q/9DHekv9yr77YlWI6Z4R2v5cASm3i +0KC+AAAAAAAAAAAAAAAAAAAAAGXe03Y= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAOY11eOaz779EeEkLcNDzPyww31xf +qO+/HH4LmjvJ8z9DHleQlxHuv+pyNrr+yvI/4KrSCSCP7L/MqiMGdNnxP/7V +Ucn4IOu/vyXTfZv08D9OvdvQclrqv1FWicKHePA/mpmZmZmZ6b8AAAAAAADw +P+L2MtTR/ue/mrQ/SYb+7T9/0nhVyX3mvx4H16o7Hew/3modDbZE5b+VxWSQ +45XqP+LkpK7KG+S/Gh5OWr0i6T+MQA86BwPjv68QkwjJw+c/2H1cr2v64b9O +nTObBnnmP7Pjhb5VAOG/oFwnLmtA5T8DuYQXIxPgv0TnZd3rF+Q/lfuxdKdl +3r89Pe+oiP/iPw5kBU7Pvty/iV7DkEH34T/C0Kqo/rPZv3rCail/EOA/G7f3 +K2D71r/ipPU2OLrcPyvZiCnWB9W/dg/rs8tJ2j+a6UgXXEHTvwEkGx2zEdg/ +TdQrl41o0r9gyfb8sALXP1Gwv9E= + "]]}, + {Arrowheads[{{0.013717455070407636`, 1.}}], + ArrowBox[{{-0.24075947613895926`, + 0.3009493451736991}, {-0.21103286218628753`, + 0.26379107773285937`}, {-0.17655092808087133`, + 0.22068866010108917`}, {-0.14761397577015875`, + 0.18451746971269845`}, {-0.12346253484283308`, + 0.15432816855354137`}, {-0.08644818754411496, 0.1080602344301437}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.022258991582484795`, 1.}}], + ArrowBox[{{-0.47999497709975064`, -0.2999968593560199}, \ +{-0.4257409489190487, -0.26608809175559767`}, {-0.41266982024881804`, \ +-0.25791863637832485`}, {-0.4, -0.25}, {-0.37021990331225735`, \ +-0.23138807341491202`}, {-0.34265400640424554`, -0.2141616945939112}, \ +{-0.2916274790967962, -0.18228282920571837`}, {-0.2481755846097751, \ +-0.15515967876952985`}, {-0.2111346538026976, -0.13207378424788488`}, \ +{-0.17192790665556357`, -0.107700095831337}, {-0.13989613368785006`, \ +-0.08786909282815744}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.033091445247477, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAPfkhAajg0D9pjvUGJjPTv9F5wkyy +ctI/LOhqfiES0b+hchj4XNXSP/oT+bLzhtC/MzMzMzMz0z8AAAAAAADQv7xS +pXjGCdQ/aL+KkMZdzb/ZT3LXVr/UP84128iE8Mq/CG9uPp/r1T8ZX8YhNXjG +vy/Eep95oNY/n/8EzRq1wr9QioQQ3OnWPzd7rjsSF7+/Fxs+DWXi1T8IzxRM +dJ6yv3tgofXgB9M/LqJ751X8pb/b/YsAq7fOPxGiKJwmypm/q2WI5fBvxz+C +L0hC/6COv88z3xlVjcE/5HJhm2jggr9Z6M1TZNe5P/lfNs+KYXe/Ynd2RbTp +sj9/s+oZ/CBtvyvjx/E+yqs/4dTxlG87Yr9KHGj8ZpaiP4mt7VpJ+lK/T49+ +IjcVmj9wKeOS6YxEvyl0BIh2eZM/h7Hrp8VdN79mkUayoD2OP5rJGvHipii/ +/3CwZg== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAmuWrX1BA3z9pjvUGJjPTvxwecGT0 +duA/rkznf4la0r/TREPTStbhP6ZcUoYJH9G/qETBiDOB4j9Or94YFo7QvzMz +MzMzM+M/AAAAAAAA0L9tDiqUFkPkP0IrvYhZjs6/HwdSoXJs5T+VFXG9pCLN +vwyFhSjXpuY/0HnJH4a4y79yDdCjTAPoP+DRat2TUcq/jLbga7OM6T/mVdy2 +gerIv5SWZtnrTes/Aj6lbAOAx7+CXVQWe13tP4OpRoSAC8a/S7ucTObR7z+0 +t0GDYIbEv2kJ/Igy6vA/ZimkdCxpw79rbIt1whfyP2qcrh0ZOMK/jMWew8A7 +8z9c8vAyzyfBv0ApKUQ/4fM/G7NzZJSVwL8HB7RVvZP0P2yvGbVA+b+/N4rs +3CHU9T+qHcOiieu9v+rk73JvifY//tDNeNDMvL+vpeI/z0z3P8iB/Dgunru/ +MuaG0tP19z+eUlglXp26v1DKdC0qrvg/d6gomR+Kub+YQSM+c2v5P0vMVe+z +c7i/BRPK6Q== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAADKtjbIed+j8aAtzpebi2vzA/5M9Q +B/s/mwkOMacgtr9khVBfe9L7P4z4rDL0/7S//E9y6kuu/D8XsAMcPsqzv/me +SXHCmv0/OjAS7YR/sr9t1Qq9emj+P1QU+bZ7YbG/btKfiEZI/z84xj7Ltyuw +vwBLBOoSHQBAzovGU3K8rb8OkKJPDJ8AQLwmzaX/8aq/ai7HkmIQAUA47x3A +OISov9K1hbiGiwFA7lbOsTLhpb9IJt7AeBACQPxd3nrtCKO/0H/QqzifAkBb +CJw20vafv0QBO6zvGwNAbYO/hFWgmr/K3zEsRqMDQP4P+6D80pS/Yxu1Kzw1 +BECxW50Wjx2Nvxe0xKrR0QRAyHLpDtlOf79of1y11FoFQISP7oruxl6/gDQo +xlXvBUAumTvfivtxPy1UyXwvRwZA53to9WObgD8FDaGI + "]]}, + {Arrowheads[{{0.027072825590305098`, 1.}}], + ArrowBox[{{2.859509365517104, 0.01459519242700926}, { + 2.8611520154839267`, 0.01473785068129397}, {2.9037208136683264`, + 0.018438887382579885`}, {2.9771913334375735`, 0.02484499418403508}, { + 3.0567402744108474`, 0.03180993290141075}, {3.0987941528489937`, + 0.03550196422856875}, {3.1423676365881468`, 0.039333703534706846`}, { + 3.187460725628306, 0.04330515081982503}, {3.2340734199694716`, + 0.04741630608392329}, {3.3147118788713836`, 0.05455210105608853}, { + 3.345156080957054, 0.05725576397833474}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAZtjKCdT46z8qCczIKE0HQA+jZx4q +Ues/jC8ZyqzBBkAL3UITb6bqP7R343mgMwZASJwl0vP/6T8wCLj5GakFQMTg +D1u4Xek//+CWSRkiBUB+qgGuvL/oPyACgGmengRA5ktKc58l6D++ArtGWR4E +QG0XOVP/juc/AXqPzvmgA0AQDc5N3PvmP+pn/QCAJgNA0SwJYzZs5j94zATe +664CQLB26pIN4OU/raelZT06AkCt6nHdYVflP4j535d0yAFAxoifQjPS5D8H +wrN0kVkBQP5Qc8KBUOQ/LAEh/JPtAEAHEV9g17/jP7YBUOoddQBAMzMzMzMz +4z8AAAAAAAAAQG6BvntgqeI/xVpEgG4a/z/uavg4gyPiP9nI3jtyO/4/wsRD +5Uyh4T/sbJg0iWL9Pyadru7inOE/mJuCzS5b/T9Uc5V+ + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAr9KPoTDs4D8ozI5S0zT8P2RzM0FD +sOA/FRYTaP7Q+z+ItJQCdkDgP8+mLHK9Fvs/qxac4t+m3z+d7XrdG2H6P5Tv +vhpi0t4/fOr9qRmw+T/Q85GtcgPeP3Gdtde2A/k/XSMVmxE63T94BqJm81v4 +Pzl+SOM+dtw/lCXDVs+49z9mBCyG+rfbP8L6GKhKGvc/SkqqjvlJ2j9+nnBI +Wen1P5ysNmfr7dg/0Mi2IVnH9D9eK9EP0KPXP7p56zNKtPM/j8Z5iKdr1j86 +sQ5/LLDyP+sddXe2Q9U/VtaWlI+58T8q0QeDQSrUPxRQ+gUDz/A/T+Axq0gf +0z/nPHKmDeHvP1hL8+/LItI/6YKm+DU87j8DfBX+WqvQP+DYMyxmyus/zWeI +0gWozj9iXg4OD47pP9wqZVtnMcw/NJ2TAm+A5z9+8D5QlErKPwQrdO6o6uU/ +oC6tig== + "]]}, + {Arrowheads[{{0.030534288746036573`, 1.}}], + ArrowBox[{{0.18384511760979816`, 0.6130263596338863}, { + 0.17097258258048928`, 0.5701076257988935}, {0.15710734659183642`, + 0.5238783221072406}, {0.14433480290817466`, 0.48129185290739235`}, { + 0.12179343333576129`, 0.4061326401990118}, {0.10279975562312227`, + 0.3428004321055543}, {0.08678872869091594, 0.2894083501801976}, { + 0.07328916975945166, 0.24437868254662123`}, {0.05662061742176015, + 0.18865055871446784`}, {0.04385032422615069, 0.14559780099630046`}, { + 0.026696183878988117`, 0.0861151647928122}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAjs4tx63CBkDTwOBgyZP+PxLWXOFl +ywZAYrUhEKqZ/j/o4FiL2N8GQHhEdTIdrP4/50SCv4IIB0BiEDRxDtf+P2ub +nf49NAdA0iu4g10J/z9PCHHyV3MHQK/PpNW1Vv8/yVe9+J7KB0BRLsj6Ncn/ +P8C1/VuxAAhAdY2KBuoJAEB3yZIVsD4IQHeYMOdsNgBA/uMk5iVsCEDA86la +QFgAQHKd4mU9nQhApeF0zAN+AEBilHM/4gAJQBL0EEJ0zwBAXlTlS+18CUA1 +7KchMEEBQMyUyvz/zglAUYUqZBuYAUBGW9JAHhgKQKizAfO59QFAaFLXGk1N +CkDo7BH3BlYCQFgXM8QRVApAUy0zA9LhAkDd3ZrTd9QJQO6VyQhwPwNAQEai +7gdaCUCLrT7Lv1EDQOsJ/ynKtwhA3B0m9HdLA0A6unNx+F8IQOzIqA2DQgNA +AAAAAAAACEAzMzMzMzMDQDHPjqCCawdA7+On/IoKA0DEUcaVcM4GQJ2lYvjW +1gJAGgrUdzbLBkAI3r57stUCQO4rrdA= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAh9qo01s6BkCjI/1daaICQDDISmec +LgZAcNOdlkCeAkBMuka1oNwFQHW7m59LfgJAUiZp8UOJBUCM2dl55VsCQL2t +t1D9NAVAnzi34Us3AkAA8jcIROAEQJTjkpO8EAJAHPPpFxiLBEBt2myPN+gB +QBKxzX95NQRAKB1F1by9AUAnSBI5wd8DQKLEQjqQkQFApNTmPEiKA0C46YyT +9WMBQIZWS4sONQNAZowj4ew0AUDOzT8kFOACQLCsBiN2BAFAZrEWZreKAkDX +7HWRQtIAQMBPRyu4NQJAToTp5NqeAEAhiYqzQOEBQERx6oxnagBA0D2ZPnuN +AUDmsQH5EDUAQBVOLAySOgFAxohwMf/9/z80mvxbr+gAQNVNLre3kP8/dQLD +bf2XAEBVr05inCL/Px5nOIGmSABApKnjEf6z/j9IAcP8G/X/P+H27u7gRP4/ +kzEXAgNb/z8eKfeHMdX9P4DTOC0Vw/4/moBVVB1l/T9+W/OYZS3+P5Y9Y8vR +9Pw/9j0SYAea/T9YoHlkfIT8P0iyfUHyCv0/DsR2pcEV/D9/orqW + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAA76K477QZ/D+GJNvxWVf7P1eQu+WT +7vs/tC1tpQc1+z/OnvduEGX7P1fXv2Inxvo/k3vLlN3d+j92laaLv1f6P9I9 +DjH7WPo/muTWLurp+T+0/JYdadb5P1BBBlvBfPk/Ds3WTjXY+D+fFTiJ3aT4 +P/WlQ/dA4/c/uvbni+TQ9z8wgJukT/f2P/jDXa0kAfc/NFSfCAMU9j/OWfHV +oTX2P9xaDCgnOfU/Sphm6Lxu9T8CzZ8HiGb0P3ZfgcfWrPQ/F/RydwvL8z8y +K5ulIBz0PyS/mPQRNPM/cO7IXDuO8z8/YW//f6HyP1S8+B45A/M/gg1VGDoT +8j8EqBgeLHvyPwD3p78kifE/oMQWjCb28T/SUMZ1JAPxP0ol4Zo6dPE/DE4O +ux2B8D8l3WV8evXwP8gh3g/1AvA/V/+SYvh58D9cHdjupiPuP4VZ8ys5GO8/ +iNXeoA6K7T/mVnVoF3/uP+ibuU0= + "]]}, + {Arrowheads[{{0.05934600718887245, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAANofWAVzX6z8R42ngh8zsP6zu5Q+7 +suo/zZTWBTum6z8CkymdriDpP7o+nc1ND+o/IcMQ6VCm5z+EKVPXH47oP5oA +Z5R2QuY/FEwwxoch5z9iOaIbt/PkP+Fae4a9yOU/aVs4+6m44z9kCnsE+YLk +P1IHqDo7kOI/XEf1UV9P4z/8jOIwh3nhP2aMr7oKLeI/OuGJ0W1z4D/K4u8B +IxvhP7nxfyCe+d4/0FP86s8Y4D9Kd297sLbbP54b5C7Ew9w/LKtRW5HP2D8U +DDqOhbLZP/oCOASqONY/9rBCPBD01j9K9DO6Y+bTPy5CRoGQftQ/JviwIy/S +0T/eFsogMEvSP2ilCRq58M8/G+FRSc5U0D9s1EBmSaPMP4zCRsdOKM0/3knp +pYCtyT9/rwix7wPKP3qeAB7Nq8Q/qCh5CrGyxD8h0DS/cLHAP4ngFGxHd8A/ +POWp6Q== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA54klFwuLBkANyhIRsZH+P/lwn2wG +MAZA/vJO9CQ6/j+xgSFoee0FQBYtWZZe8/0/wpMHXWCaBUDGCMhZ55X9P1U6 +z9i4NQVAACB+g4Ef/T+iddDeRb4EQAC7M71hjPw/+wuSTUs0BEDUox4H+Nr7 +P2hY3kup6ANAwCpdLJt2+z/WeK/TFJkDQG46Ch/HCvs/QAoK+/E1A0CmZeJ4 +Y4H6P180myfdzgJAWURo2yzv+T8192JZ1mMCQIbWm0YjVPk/wVJhkN30AUAt +HH26RrD4PzFUq708gwFABVqTv2sF+D+yCFbSPRABQMHUZd5mVfc/RXBhzuCb +AEBjjPQWOKD2P+iKzbElJgBA64A/ad/l9T9VG8CQXmD/Pye3BXN4KPU/Nlu9 +u0B2/j/kMwbSHmr0P3duu4MRVf4/Atn3SMtO9D9M4pQQ + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAJ+C4fwVo/T/E54FTMYvzPwWKQAty +p/w/6AC2j5Pq8j/Q1SixPP37PyQRkhMwW/I/Nt2kuFdV+z8bKdXztMzxPxTi +Ic/6r/o/HmeX4G8/8T/kJw2iXQ36P93q8Imus/A/GgqHTZ4w+T+nB8wDxOnv +P5LG3iD3Wfg/YREzbBp17j9MXRQcaIn3P+nyFk1gCe0/Rc4nP/G+9j88rHem +labrP9a9ihGv+vU/Km1jc/lN6j9S0K4avjz1P3xl6K7KAOk/uwWUWh6F9D8z +lQZZCb/nPw9eOtHP0/M/Ufy9cbWI5j/TfcX+WO/yP+X7WqUA++Q/tGsadsIU +8j/ax0ryZoLjP7MnOTcMRPE/MGCNWOge4j/QsSFCNn3wP+fEItiE0OA/wjd8 +jyM+8D9zE0elLWfgPwAAAAAAAPA/AAAAAAAA4D+sAHEVRILvP6IYQYsXNd8/ +Ynul0Q== + "]]}, + {Arrowheads[{{0.04351210716419827, 1.}}], + ArrowBox[{{0.9259865303364014, 0.4408400084972125}, { + 0.9083797830999565, 0.4269958259876611}, {0.8644407063686488, + 0.3929349953957739}, {0.8223204493948774, 0.3612812191822749}, { + 0.7818756995938148, 0.33190243870328673`}, {0.7429631443806346, + 0.3046665953149324}, {0.70547758336605, 0.2794475786109175}, { + 0.6693138161607749, 0.25611927818494784`}, {0.6234098966287911, + 0.22801523710323063`}, {0.579704544227966, 0.2028370494694995}, { + 0.5379926337623557, 0.18025616205804046`}, {0.4980690400360166, + 0.1599440216431396}, {0.42376733585178605`, 0.12542018995799195`}, { + 0.35716049777654446`, 0.09785397072401623}, {0.29826697968037147`, + 0.07593261364930821}, {0.247263140119362, + 0.058746412369017766`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAcQDBochA9T+btL0SuOLlPyz4NjAj +ePQ/eX5wRyn64z+y2qTWOdbzPyC8e1aOPeI/xnlKjWde8z+Onicc66zgP7lq +41GMR/M/ucKavExV4D8zMzMzMzPzPwAAAAAAAOA/CVlm0zke8z90k3nn6wPf +Px5VbFovEfM/BLOleaoT3j9hHtcj6QjzP/716hYyS9w/7+2E97oo8z88ImM6 +5rPaP9I4rvGCfPM/YMMv3DxR2T8s4qrRO4/0P/DwKF0Yttc/IjW6E8gq9T+s +wPUivU/XP4uf6D629fU/THGa1tkE1z8OQodUOcT2P1sOEKBY4tY/z58ZxdbI +9z++wwzCr9vWP2BKttgQuvg/5mOpljPu1j8AzGochOH5P3EivUDvGtc/mcAV +30AB+z9hagrfaVfXP4Z7X0gaqPs/DCImaG+A1z/etva2RV78Pyo85RelsNc/ +GnWnmRam/T+wwKnXVRDYP+OUaKmTYv4/JbLIxI9L2D9xim/Ncy//P18YEBBg +jtg/AtI3SLHf/z8zcV6J7MnYP25isG5U9P8/ixMj7yDR2D9uStIL + "]]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAfGcU+juTAEDP1u8wPz3ZP9UZRAiZ +ugBAkH6xn3dZ2T/kJgivOi0BQBsztjx2rdk/ieM9yheQAUC54P/4d/fZP6im +UhZ//AFA/tUWTUZK2j8/cEaTcHICQOkS+zjhpdo/UEAZQezxAkB9l6y8SArb +PxrNvwgwYANA96Mvb1hi2z94Kzlcw9gDQI4OqQLxw9s/bFuFO6ZbBEBI1xh3 +Ei/cP/FcpKbY6ARAH/5+zLyj3D8MbZxhTWMFQEKFCC3kCd0/UONTbenoBUCS +nWeQZXrdP7y/ysmseQZADUec9kD13T9OAgF3lxUHQLSBpl92et4/HG8Fdyad +B0AhmuxfE+/eP84gKCLIMAhAtHyIf/Bu3z9gF2l4fNAIQGkper4N+t8/fuy0 +o90kCUDIldk06iHgP8tSyHlDfAlAHdBgjjVI4D8J/6BvF4gJQF0zMpZpTeA/ +OSSYdw== + "]]}, + {Arrowheads[{{0.004420673066639869, 1.}}], + ArrowBox[{{3.266032535102632, 0.5176561427471635}, {3.338240507500868, + 0.5256379589074991}, {3.345156080957054, 0.5264049285112669}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAwkxTrSZvAECYm8K38vX0P8dV2tfl +LwBAOfDtL5ps9D8ZxAvUTuv/P6SQhCNf5/M/pMlIaVt//z/lpSGd+mPzP+7r +VkFcxv4/AFxspvZk8j8MXhp+dmj+P+Tah9B9wvE/2+mqCHEo/j+pP3R9dijx +PzChlV+mC/4/advT/dmA8D+eayNfWjP+P22Bqq2R1u8/XO6G3wO//j/74lcH +YtzuP+SkyYuzVf8/EhDjowll7j+u46YCMxsAQKM2Tu95De4/a2WBYsDBAEAJ +3YGZE+LtP9AqHtUMUgFAmdGVuGDl7T8qHSzoE6oBQCtF2ekP8+0/cXIx8kEP +AkCdmuMJiwruPxSgWu74hAJAA4WpGiIu7j+CG9TXmg4DQHG3Hx4lYO4/LWLg +I8KuA0CsP992nKLuP9odo1AOCgRAgLYYk8LL7j/rMgMVMm4EQElSXD8Y++4/ +BELz17vcBEBMFEVtpTHvP1+dUyYv+gRAKsxIqb5A7z9YFLNk + "]]}, + {Arrowheads[{{0.036392079903049504`, 1.}}], + ArrowBox[{{2.696575561347587, 0.9862509414915123}, { + 2.7303206592881617`, 0.9906456046081507}, {2.8, 1.}, { + 2.861113223855402, 1.0085902487418705`}, {2.928496695738482, + 1.0182311649251208`}, {2.9997082913096524`, 1.0285075165182915`}, { + 3.0785761342570055`, 1.0400547389313033`}, {3.121274995686638, + 1.046367580210606}, {3.1666756133400926`, 1.0531234462255825`}, { + 3.2147779872173685`, 1.0603223369762327`}, {3.2655821173184663`, + 1.067964252462556}, {3.3197636270333857`, 1.0761555905753593`}, { + 3.345156080957054, 1.0800132869375652`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.045736566519452494`, 1.}}], + ArrowBox[{{2.545010331856672, 1.6142829472439577`}, { + 2.5653088085805047`, 1.5975930374724425`}, {2.611331640526089, + 1.5887263475124795`}, {2.6584664880757574`, 1.5890798827431052`}, { + 2.7272112547048684`, 1.5962322321118507`}, {2.7728920447604652`, + 1.6033499105528897`}, {2.828439979025207, 1.6135397243095784`}, { + 2.8945857043880734`, 1.6271129394298347`}, {2.9331813831570592`, + 1.6355820315150855`}, {2.9761554221450917`, 1.645374291564695}, { + 3.0243206971815546`, 1.6567209124429825`}, {3.0784900840958316`, + 1.6698530870142678`}, {3.135661526949016, 1.683878038432052}, {3.2, + 1.7}, {3.2475409307646834`, 1.7122519450203786`}, {3.299541633383827, + 1.725777455280372}, {3.345156080957054, 1.7376896595812654`}}]}}}}, + GraphicsComplexBox[CompressedData[" +1:eJxl2Hk0lG/YB/AxZsaYZIk2VESl1fIjFK67IlEJJSVKWdJmz1ZZS7KTspQW +pChCSmV5ZN+y7yVrdhr72F/vec8888frH+dzHIfzzP1c9/X9il6x0jUjEgiE +LjYC4X+//9+XdpaR0vL8BXcOxLS2M7Q767I8W6Opp4RRcA9z+ykYhLDcfrxc +yMmE5UdxjSEHqsm473auu30uhmWrzfrnHOxZXu94pVKhk4Sblh6TevYTy4v0 +rjD7ByzHa4zS5MfZcUd67xs9U8Cyf75lje1TluWEXdTl2FmWOP991+kGIm6h +p3Orbd6ynD9Kvv+fAMtfdh+9qtPLhjvBwlvT6ivLOj9CcqW3say6VBN7aoaA +W/7gmoe3SlnueLxpUXI/y3XVRh0nqSz7Cyk9bEpfBqZ/V+jaGQYu4c4/WqcY +IcNyYu5pQn3jIu45m+vD51IWcHcMDaaFnWG5yOyGczVjHve69Z5merVzuBeD +iXtCHFjuoXmNVwiyLJsV+UdnkoFbcL/gm4AIlgkpUTdKlVjWvpyqr7VuBrf8 +L+nNvt+ncW/WS+spvMiyJaW0WlNhCvcZd41w79+TuA/MlRrlubPs+75DQ91g +ArfNtsu8XkvjuM+97GzMiWH5nTYj78jdMdyBZU6P3ERYtledPZVZQMf9aGiL +k7vSP9xn20XIjPujuMXqREOtfo6wPh+5U9ed3YdwB+/UnqGXDOI22qRz34KP +5UU3V0Pbgj7cZXZuAwNcLIdfdXe4rNfLen5lSVo3qD24STnJv7q0u3HXpH60 +MIjsYj0PgTZkeqID913erGcZO9tZnz8j+3P89zbc+tkbzL+LtOAeixN0T0ht +wu3nLxwVcbgRdyjHsXOfTBtw7/mnYRszVcc6b43H/UO8a3FrhF0eerGeaQLh +p46j5od3Nbi775iQA99V4zZXdDZ9pshy3cimhzpPqnAvH5peEHjyE7frVaHE +5q8VcFXONFx95yrUXJTJI3abHeXJ28x3LtJQh5U9V/0JdjR5K94rqIiGCrDV +mkqb2FGWkusrxQc01DzK/Xd7MxFtyrvfI+FJQ8x54Wc6MFzgREP8GR1mqIKI +pCpLnKYO0tC3xGczUo+JqDi7aWM4kYasDhM0ao2IiFc1ImF3JydqbXxoqKtM +REM1DVUdCZyoZ3FAN4KbiFK09n5z9uJEzPlidjwtbZMyJ0p4+LX7eAwbIlEd +uhWFOdGAwbq6Qm821PVmt6I6mRMtCvg/qLZkQ991KzJ5IqmIbvs5vYXChgpm +iWsEgqjI40qW+pMlAqodJAsI+FARcx79aDLfGaRLRX9GNU0m8wlou0XGedtj +VLReYb784XcCik3MTO+gUpF/3/q8SjcCKicRFIwIVMRtzt/m40hA3Aa9BWxT +HOhChxJn1E0C6rywm0PahwMx59dPv1umWZYcKAPz+ij/dxlMLhMqJ7Q50FNp +3Ry3+GV41dabpkXlQLL26ouRosvwcKfX4dk2CuKWGk4QbF2CrxaCTX8/UJCe +OCNaxm4JGLxtcPwRBTHn3YZLzqtf66zcM9yPKYEli+Dzak1C8xoKuh17THan +7iK0BM3w9dIoSHfjJYenRxaBy1q2o4lKQcNr8idiYRE69ar0HX+QkVDltbsh +WQswcu/NOW0fMmLOR2NHrYFSUzLS0K7ur+FdAI2HOj0BUmSkbyGu+SF1Hty2 +PzK9TCEjyxyHf6Fm8/DZ1WI8M5eEfpvG3E7rnAN1Dc2tvS9JqEGQfuVq/BwE +7Ul1375ybzHnKc3bcz5JmITs0+q/nkibBReTDVu9eEhI7+ga7ZyoWXgfWZqY +TCIhf5NAi6CHs/Dfnr83bhazo55aXyxPYBbmyz+2Z31kRxprtrk09zNAkZ3n +saIXO2LO39Rfm5M0XNkRr1ruh5PBDLgY8Jz0yokd/R4vJty7z4CDUKNStURE +76jxnX4JM9DoJXGCMkREFXxnrjX4zEBa2JfVofVEpBk/3StvMAN0M1WhThci +Ys5rtg3ZxPMGRLTj3+7giHvTwPG8et19KSKKevbChVdqGoqnCw85zrChoqRs +A5/yKRANmiB9LVg5x7vGI0Odp8AwdnCLgz8bunM83USQMgVRzuLJUfZsiDnf +s17pvH8nzYbSbEcfVdpMwo5WzcVSOgF16TbU3R+ZgJRE0k6LfgLiSbMxGWyb +gJAS+t43LwgoMMtZZvbaBHAwAs48vkZAzPlPStssY6BKQGTR2MFf38bB79iG +G0o8BGSueSSw23AcjG7o34rvWYb3adOtzdvGoVBggWtN+cq9yxg+4cEzDkGb +dKlevssgWn/KLKFlDKKCDtvJqy2DeqfMDULEGNhotwVKHFmGIKVQ161PxyDN +1sYhAi2Dh7jZ29rHY2C4WtJoiLEE//YqpH8+MwblhQUxJ7OXgHnfcLj4ufk+ +X4J7h6rKONjHoEbz01G3K0tgPfUg8WgdHYz2e9Ks5Jag4VPO26V3dDD0eONz +l7EIp+N5fO/Y0mELW8XpW5WL8Lh9gU1Umw4HItjpYomLIBxNKronTQdycEuU +8coe4PpLXlTmzSjUvYoaNHizAP370tooT0ZBbMn39tboBWDeZ1dtTMtSVRdA +Xyji9br+EQg4dSNgK98CeOjRvSYCR6Ce91HxnUfzYHdfwXUyfhj+ux25/Mll +Ht4v61I3+g9D8ovVSaoW8yB6jHhx8fowrIOfgly2c8C8/8hH0gsvnpwDw6oL +vPwPB0E/6RAmITIHHzruif7aPwjfsvhILednIanyqvXIYD+kuwS9PbFlFjY1 +GWuIePUDIet2DVczAyRH8kQvUfrBc5/fFfpDBlwibxd55dEHVvHJlomIAcz7 +07FSbrUefQbeu+1suuPeCwllCd30oBkYNLukKt76FwTHvG4e2D4DfRvCr/Tu ++wu3ZOh/j+ZOQ6n9Brlbbj2g29I2Va8+DcLTvArtad3wdUe5hDRtGpj3rWBZ +5uPewClwsmNXOe7eBfN9fNRvy5MwJMWtZxLSCRtL/5ptGZ4EUZOiM+22ncAW +Tk/zujQJAX2eq50edYDU81uZnRcmIYffdiTAqwO0/+3me79iNdmer7tX3EVq +dT9XMgHM+/oN3fWLTO4EMFp/66bztkPctJpgdMbKe1CRa7pu/A+4q+iQiv+b +gMjPdQLpx9tAdJfKXLL4BBwVvP+hcmMbMBYviQXxT0BvC636SedvqCd5Nh97 +MQ5fDIYCUm79grgIK9FDD8dheYm27p7ELzhJdtnjYTUOolZcZlsaWmGX5g6x +fI5xqF8mciQFtcD+lxKCskNjcDr4pPOO/1oghitMzq58DESNz84SfzbD0mCf +23rrMWDuD8+zpCXaj48BmxbX7svqTTDNn6xitmMMFF2ENoWXNkKROf2mWBMd +uDVlZt/UNYDP20GDzUkr5/5akdzQ+QbQFCpR1/eiw+9UhTzF8npQMZOLwpTo +wNw3SvSODQSvpkPJKPlhqWUdqKgVvA7N+Qe7rLuntGtr4c6pdAnXQ/+AuX+c +SBT3VWsdBX2tl4H7vWug7zTjk4PDKEwlX/x4vL0a2qft7v8mjwJz/5Dk4xG5 +Ez4CeTc7x3tRFQRf2VNksG8EjNP/3FT7+xNm3Tt0xYqGgZItmimZUQGYcd/M +H/1h4FTIURa+WQ6KNsbNKr1DUFVhqPFpYxmkMi41lHgMAeLQSZKYL4HNtilV +J1cNwQm1UOs12cXQ5RY2uPXFICj4PKMRjIogJLstf4/CILjouL8UhUIQdi2M +nCsaAMf4xBLSdD74BZYsUM4OQN739n1mKXlwfTr+5eP+lffo2ccQQa8foKr1 +qzDTvh98S/dEe+vngmz0AvfQ6n4okj3ZbrsrBzZMWNWIhPbB7/Jsjh2BmWCq +wKHRIN4Hux/stTA3/QZt76VEqwp7IT5Zo61vYwbIHvGXrvqvF3SMhYc3rEuH +8X+TNmY1f0FdNcb7wr408P5u+t+ne3/Bd1Iv9JJMCsR9nLO/WtEDfgNTr9Yq +JUC1qmIeyaUHerKLTYI2x4NkaYRauFwP2J4c9MwdjQHfToNCO4Nu6Bc3rxsP +D4MILJtLeXM3UA6R9S13BENzU4X+nZEu0G/VfqVp/hA2dzbflfzdCf5rYL9f +sCeWuiqyfCmnE2IoP27zHXyIefQSrl960wkCM9KRazT8MEaISXL2qk4oO62t +fnZ3JMa4d3PeM6oDfsdf9zMve4XtmpK9e8Ro5T0tS8ihssViaRnPZ7z1OmD0 +HPd6gQOx2MFPPFIHV/bq789qSRAWi8Vz1Aqf2vUHKm/WTcTeS8Y+kl4WHc9v +A2s4sZOyLgXrf8ufMi3dBhbfaC/2Hk7FGOIHDq2P+gXb1ZQ65NLSsZua4+tl +v7ZCKe1Mz2qJL5hrcHsMV2gLTIp/+Hbw+1dM83CMWTtnC6zll1a1rPuGOba6 +P/0y0QRGsYa6X3sysaQ/nV9cPzcB7ZXqNS/dLOz5JZrvW+dGmJvnEQtxzMGi +w9Y8EbnUAKgkflB8Yy7WJOn4Scu6HgTCnOxi2nKx0bu2yVYDdTDX+YSzUfMH +5h5OC+LKrQUrzmSXQbE8zFaFc9Wvo7VQtrYsZdolD0NRrbXy52tA5vX5HhJv +PuYl2Wp3caIairm19ctQPjbwjvuvEF81OJCTXKMr8rHZuWR9gcUqoLg6MnY3 +5GPGOrxXIkQrIdt27dtC5QJsm9WD0eWQn+BwZzuH2tUCbNn9zdOTjhVw1Mhe +cWNsARZepF/5fW8FfHU21Ej8WIA5+Y+sKWErB6+JhIPkrgIsdNc2Aa01ZWC2 +/8RINqkQEx7s6iTtL4XXw1K2AuKFWFmCnnywTQnYNr6yiNpfiJ3eUhXxuqEY +MilVGpGHCrGTz6XOtp0vgnnqBKfZhZXfL86+cK6zEI6Z3fpTYViIycwYrAu3 +KATxnuDNiis/D+noD/WozQf5Kznt9DOFmGXPNncRnXzgTOa+ZqpZiAVcIwve +eJcHqUfImZoKhZiEocZa1cc/QMhRXnByYyGWyxYY15+bCxeKLm4KGy/AzvnM +TuwRx0BjXIAtL7UAK9EJ21p2OwcWJhoz1oavPB+V4ZDLl7PAiRZ34D+1Aux7 +iCP5clAmbDLSCn4nWoCt5w8RLZD7jj/fMqes1jGUAatvGW9+ujUfkwi53T3m ++Bkinn7b8Cw6D5vfs+2cbuInEBMLspGY+YFZfvIX8xRJg7tb92O9F39gS/Zz +QnmBKWBdHbfW6X0ulhaXUeZ97CN+fvYonqCOyiTAJG/XP8KPLIwQMUS1H3sL +jIBbEpZfMrF4/uB1yXvi8PN7nYZao37FQBd3Wbh0RAbWHJNe7+v6EvgOrJ8V +25eOvZJzUz5XHIW/H1zmVd9KPj0G0Y/X6Jntb7GCV5XTCaUh+PuWRz158+/Z +ANA6v/3Kqr4ozMBExaWA2w/u18eZO118iomoU83u/vHG50FuUofXnxIPcF43 +pPPwvjU4/JHsbSd6gD0fW+Tr1nvgH/jypDzPXXze3DXoiUuuvA1Pdofp7imJ +BYUZr1O9Qtb4/LI+yks4IXUN+tqFfZRbkiD3vwz30z+N8XmIznQvXeTXB9Hr +F4a2BH2DDttyxQp+NbgVZuMXb5EN7ukR4vtK5PD5TKh9KmoSuwcUp7wQ2bAA +CEP7n6sarYWC0qKEo7KFQFBYhOuTsyoZpTyjbRxFQOg4sF1W+5/K8y+FZ0zt +imC/cX2Dv90YxszBzUXzTo5Eliv27kqufzeKm3feaTKhaAT3mZLiA249w7it +LeamTX0GcKfLaSgfiO/HzSBGePEU9OEWiC2Dqas9uM9Zb/Que9CN+7myRcXL +2C7cNplyfKuC/uCe1auL/lz2G7cH3XqXMeUX7kypxpjdWvW4D5fbSTY+qsVd +asaX5V5YjZtyYsQiQrCA9f95SHiOhOTiVrtZvP/Bmu+4bVvETimoJuDmOlS3 +hbcpBjfeJ3gdDkgYoyCuIdWPX7atQtMvGzvnBimIPbvri6LQKnTL7ug9/SYK +olZdPF6xdhU6JmiRIPiTggaSdsR7c65C92LzlGY/U5A0pxN2nrQKJeok5qKV +3EumdUTmT9EQs19VqpnlPzdCQ9WafCGHPShojeLYM9REQ5dc4j1q9Clo7Fj8 +vyuNNCRKQocOnqWgauVsoloDDaW25FIkzlBQsudR0/efaUiWUX22ZSMFuX0t +Uh97S0PmlQXKQQQK3ne0vnbHMjAyktQIYuu0pyFmX2tx43zSXk0aunnwS0Sr +HhmV8flb/lngRKrPW9q9ikmoIMy5SmOMEzH72moQECGMcKK4WIH4r4kkvP9o +f7Wn813YihNpecnJnEg3ur+q4SAJBV3ov3YhgBOtV1vrcIVtJQfnBkoG3+BE +zD6X2Yd4y6z98MGaHd3Z0Byjt2/l70ULuEfosyP3f6HrRDdyIqm6QOVoGXYU +UScsT++i4n2NhLZC93AFFaWd7w33+0hEpqRH+WkvqHg/w+xPrPpu9XedJqIn +73x+S9ygIoa2xN4fHERkR3mz/FSfivczYb4+xKTtVHQgt75oKZQNuV12LHpL +pSK/2tMu7sZsyF/68CPHQg68b1F+7LzlbywHYnAvuvV8J6AGW303N3cOvF9h +9iOF/O9OJksRkER9la8ucCB2xmGPbWsJKPHihlP68qx+xZunQZW2lQOtXSw1 +OlKxDHzBvEbqzRTE/SIzxryL1Z8IORzWZNdbAiwwt+j1a1Z/QlvkqpGxpiDB +org/pOeLoPPYYSv5zP/vS4Yq/CkXzi2AIzn8zjwHBYXAh5IGvQXQruWnhayY +2Ze84csjXqRQ0KHyNKVZ7QX4vKQ8LPKcjKbPJhlPCMzDY3LJzt4rZLz/+BYo +ebtCkozG7c1C8+pn4XfRDc/JIhKy4uGoin7NADAns9fnk/A+Q4tfyK8sj4Tk +nmK3A58w8L7l7Z47dpZBDHAebnvKZknC+4zX5+2o8zokJFx69kfPhRm8b0n6 +GL3pa/40yL+Z2nRgIwnvMxSVEx+odbCji73dor5i0yA9a/uSO5cd7y+Y/Ylv +zaVr/6hTcGN6l8W9W+xou0dTKLaS62YFKafVrrLj/YV/Q+yXvTrsSIS37xV3 +7CQ45Ssckp4hoqgsm0MCmRNQxeju8HlHxPuJnn5UmOVKRNjh/OgA/3FIOfba +5NBJImL2D8x+RbvLVZG/eAxUA0R3BJKIyMJKUNjPeAxCiGdFBgbYELNPYPYr +1fct+1wQHbLmhm2MfdiQmHKIjI08HXiMO/0andlQPG8s0XAdHdrPKSfzCbMh +Zv7ni54ML+FgQ9eN3Lz9do7ifUtrzvi/nyu5p7Jj/a8tKQTEzP+nHLdKm98n +oPpt0x/ODg/hfQu7gYZkVO0g3OVkCE8fIiBm/j8SOSuIFpbBav0ppYCMAWgw +0p3LjFzG8z6zPxGJPhCKZPphs/mtFtGBJXgmUKZ41r8PJmJNPBlvl/B8z+xD +6gRNvjz78hdUCF8UgyoXoar3r+P8jb+wJXFfslrSIp7vmX2I3bGU/dOXukH8 +ogXF//0C8L45Zz6s3w1WbQfW2r5dwPO9mM6ddnP7BchvLTPznO2CY1oz8ffu +zYO3xrtdk6c7oU9S65mdyRyezw8ePov41OZgS2gn596cP3i/YVTctAmp/QER +O68S6V2zeN5Ogwf6V9hmIXLhTjyaasX7jRena97bOLZCh0jVWr/6GTw/G9Zu +cNicOgPmG1YZLWo34X1GkJFz0NOJRujbZaD2/NI0nocNhQM6G3WnwSQ0LjOo +oQ4+TjRdvdczBa2fbdX31tfifcUfrqoLh4ur4XS1FJWnexLWd8reEQmohpdX +WvLXZk7i+ZfZNwRnXXnGplgBB0ZiTnIbT8A+HfEO89kyMD6SIVDYPI7nWWZ/ +sG5IhOu3ZTHMj9AJbSVjEHx94aWsViGe/xPelsuG7skHMHt9bNUTOr4P5fpG +7v4iRIevPb0ts1tz8TwfL+rCz/0rByzXbFE/7jQKd522xddEZEJzTwLHfNww +RJU874zbnwHmu7284uWH8H2MmacjlPc+3F2UBvsGslUUGvqB28Bz89mNH0Fi +KnOLWEIvXLc73jMw8hbPr/s2t4UH2ccB6Ve+lkBBD3B3cwxfxmLw/Cm1ocUn +3uU5qMcympIbOvD9UXHbMR42yw4YUFLZ/J3vMTDz5JFAvsKEqlC4qz9h3360 +A5q77DTJgaHQdSPl88anTUDScrowEuoKzPzGq1c08XrcGapT1XkNpRqglufB +Bn4LB1BtyMsgJpRDinVzylyYETDzjbtp6wlN2dOweyHk6X6eQnDn6vtoPXAc +vjMkL06VJ4H73tSbpuwiwNy/CceOCN3OH1O53eShdCjhKkYw7vkxzP5G5X8A +Up9fYg== + "], {{}, {}, + TagBox[ + TooltipBox[ + {RGBColor[1, 0, 0], Thickness[0.01], + LineBox[{1, 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, 50, 51, + 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78}], LineBox[CompressedData[" +1:eJwl0uN2kAEAANBv2baXbeMZqmXXsrZs29yybdu2bdu27jn9uG9wQ8MjwyJC +giB4S2WqUJUwqlGdGtSkFrWpQ13qUZ8GNKQRjWlCOE1pRnNa0JJWtKYNbWlH +eyKIpAMd6URnutCVbnSnBz3pRW/60Jd+9GcAAxnEYIYwlGEMZwQjGcVoxjCW +cYxnAhOZxGSiiGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJWsJJVrGYN +a1nHejawkU1sZgtb2cZ2drCTXexmD3vZx34OcJBDHOYIRznGcU5wklOc5gxn +Ocd5LnCRS1zmCle5xnVucJNb3OYOd7nHfR7wkEc85glPecZzXvCSV7zmTfD/ +4Dve84GPfOIzX/jKN77zg5/84jd/+EsgcwgxiEksYhOHuMQjPglISCISk4Sk +JCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjlOzkICe5yE0e8pKP/BSgIIUoTBGK +UozilKAkpShNGcpSjvJUoCKV+AfBB327 + "]]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.1`", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.2`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.1`", " ", "x"}], "-", "y"}], "]"}]}]}], + "\[Equal]", "0"}]], + Annotation[#, -$CellContext`x + (0.2 + + 1.1 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0.2 + 1.1 $CellContext`x - $CellContext`y] == 0, + "Tooltip"]& ], + TagBox[ + TooltipBox[ + {RGBColor[0, 0, 1], Thickness[0.01], + LineBox[{318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, + 330, 331, 332, 333, 334, 335, 336, 337, 338, 339}], + LineBox[CompressedData[" +1:eJwVzec2FgAAgOHPpbiljmSECAllKzsjKyV7Nih7K4qG0SBbVhHRlfT48Zzz +/nuD49Ku3A0KBAL1hIirhHKNMMKJIJLrRBFNDDeIJY6bxJNAIrdI4jbJpJDK +HS6HaaSTQSZZZJNDLve4Tx75FFBIEcWU8IBSyiingodUUkU1NdTyiDoe84R6 +ntJAI00000IrbbTTQSdddPOM57zgJT308orX9NHPAIMMMcwIo4wxzgSTTDHN +G94ywyzveM8c83zgI5/4zAKLLLHMF77yje+ssMoP1lhng0222GaHXX6yxz4H +HHLEL35zzAl/OOWMv5xzwT/+A0/aWWc= + "]]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.01`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.01`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], "]"}]}]}], "\[Equal]", "0"}]], + Annotation[#, -$CellContext`y + (0.01 + 0.5 $CellContext`x - + 0.1 $CellContext`y)^3 + HeavisideTheta[0.01 + 0.5 $CellContext`x - 0.1 $CellContext`y] == 0, + "Tooltip"]& ]}]}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.009289517143394582, 3.140643980082845*^-6}, { + 0.6250503995994064, 0.032544484944664095`}, {2.845156080957054, + 1.912675446249655}}, VertexColors -> { + GrayLevel[0], + RGBColor[0, 0, 1], + RGBColor[1, 0, 0]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.009289517143394582, + GrayLevel[0]}, {0.6250503995994064, + RGBColor[0, 0, 1]}, {2.845156080957054, + RGBColor[1, 0, 0]}}, {{3.140643980082845*^-6, + GrayLevel[0]}, {0.032544484944664095`, + RGBColor[0, 0, 1]}, {1.912675446249655, + RGBColor[1, 0, 0]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-1.0737285140752095`, + 3.4281741121756584`}, {-0.3830148905746239, 2.9956934774682593`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.691134202135131*^9, {3.691134482072929*^9, 3.691134493232272*^9}, { + 3.691135464444171*^9, 3.691135521071075*^9}, 3.69113555156861*^9, + 3.69113558514855*^9, {3.691135669538349*^9, 3.691135811321965*^9}, { + 3.691217397332892*^9, 3.6912175960938053`*^9}, {3.691420380059111*^9, + 3.6914204165766563`*^9}, {3.6914204541994457`*^9, 3.691420561018105*^9}, { + 3.691421852758523*^9, 3.691421893486292*^9}, {3.69142205105159*^9, + 3.691422182787798*^9}, {3.691422217228775*^9, 3.69142235850133*^9}, + 3.6914224825225058`*^9, {3.691422513992503*^9, 3.691422606012048*^9}, + 3.691422640697515*^9, 3.6936400219527483`*^9, 3.693655825640711*^9, { + 3.6936558663135967`*^9, 3.69365588348368*^9}, 3.6936563248986597`*^9, + 3.6936565414858*^9, 3.6936565785533524`*^9, 3.693656612856802*^9, { + 3.693656719623467*^9, 3.693656748824079*^9}, {3.693659939167927*^9, + 3.693659947413575*^9}, 3.693660067741686*^9, 3.6936601360451717`*^9, { + 3.699293797371296*^9, 3.699293815907547*^9}, 3.7099972335798903`*^9, + 3.709997322525209*^9, 3.7108216871124973`*^9}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Figure", " ", "2", + RowBox[{"(", "D", ")"}]}], ",", " ", + RowBox[{"four", " ", "steady", " ", "states"}]}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cminus", ",", "F", ",", "P", ",", "Z", ",", + "z0", ",", "Z", ",", "re1", ",", "ri1", ",", "re2", ",", "ri2", ",", + "re3", ",", "ri3", ",", "re4", ",", "ri4", ",", "plot1", ",", "plot2", + ",", "plot3", ",", "plot4", ",", "Ge", ",", "Gi"}], "]"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "2.25"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "44.4"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "20"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0.2808"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0.015"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cminus", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jee", "*", "gi"}], "+", + "ge"}]}], ";"}], + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + "<", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", "z"}], "+", + "cminus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", "z", "+", "gi"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.2"}], ",", ".1"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".47"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\<, z2=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", "\"\<, z3=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ",", " ", "\"\<, z4=\>\"", ",", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "4", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Four", " ", "steady", " ", "states", " ", "in", " ", "the", " ", "phase", + " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re4", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "detJ"}], "*", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jee", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], "+", "cminus"}], ")"}], + "^", "n"}]}], ";"}], " ", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri4", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri1=\>\"", ",", " ", "ri1", ",", "\"\<; re2=\>\"", ",", + " ", "re2", ",", " ", "\"\<, ri2=\>\"", ",", " ", "ri2", ",", + "\"\<; re3=\>\"", ",", " ", "re3", ",", " ", "\"\<, ri3=\>\"", ",", + " ", "ri3", ",", "\"\<; re4=\>\"", ",", " ", "re4", ",", " ", + "\"\<, ri4=\>\"", ",", " ", "ri4"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], + RowBox[{"(*", + RowBox[{ + "Define", " ", "the", " ", "plot", " ", "region", " ", "around", " ", + "the", " ", "steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"re1", "-", "0.4"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re4", "+", "0.2"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", "0.01"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri4", "+", "0.01"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.1"}], ",", "0.02"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.09", ",", + RowBox[{"-", "0.003"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.3", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.4", ",", "0.051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.68", ",", "0.066"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.5", ",", "0.068"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.6", ",", "0.05"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.1", ",", "0.01"}], "}"}]}], "}"}], ",", "Automatic", + ",", + RowBox[{"Scaled", "[", "3", "]"}]}], "}"}]}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.04", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "ri2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "ri3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re4", ",", "ri4"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", "Blue", ",", "Black", ",", "Blue"}], + "}"}]}]}], "]"}]}], "}"}]}], ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re4", ",", "Blue"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri3", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri4", ",", "Blue"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"a", "+", "0.05"}], ",", + RowBox[{"b", "+", ".05"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", + RowBox[{"c", "-", ".03"}], ",", + RowBox[{"d", "-", ".005"}]}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"Dashed", ",", "Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", + + RowBox[{"PlotPoints", "\[Rule]", "70"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", "plot3", + RowBox[{"(*", + RowBox[{",", "plot4"}], "*)"}], "]"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.6911358675644007`*^9, 3.691135913500052*^9}, { + 3.691135957329916*^9, 3.691136040823227*^9}, {3.691136074293722*^9, + 3.691136263687315*^9}, {3.691136305911702*^9, 3.691136310018888*^9}, { + 3.691136382278035*^9, 3.691136385205798*^9}, {3.691136430278532*^9, + 3.691136535774536*^9}, {3.6911365671523542`*^9, 3.691136581975012*^9}, { + 3.691136632493641*^9, 3.691136654836038*^9}, {3.691136739560648*^9, + 3.69113676019704*^9}, {3.6911369974316072`*^9, 3.691137000816201*^9}, { + 3.691139905616373*^9, 3.691139934759881*^9}, {3.6911399855398817`*^9, + 3.691140019498363*^9}, {3.6911401450809307`*^9, 3.6911401593009*^9}, { + 3.691140224738558*^9, 3.691140257442706*^9}, {3.6911403900121593`*^9, + 3.691140430177924*^9}, {3.691140492835805*^9, 3.691140499628045*^9}, { + 3.6911405319336977`*^9, 3.691140546918914*^9}, {3.691140656257016*^9, + 3.691140738321991*^9}, {3.6911408191468153`*^9, 3.691140873370891*^9}, { + 3.6911411018580103`*^9, 3.691141103165288*^9}, {3.6911411883111753`*^9, + 3.691141205676386*^9}, {3.691141271217658*^9, 3.691141285968042*^9}, { + 3.691141394791156*^9, 3.691141397097826*^9}, {3.6911414582794247`*^9, + 3.69114146968287*^9}, {3.691141715510251*^9, 3.6911419275062437`*^9}, { + 3.691141979268552*^9, 3.691141981582655*^9}, {3.691142028794959*^9, + 3.691142061013648*^9}, {3.691142109262561*^9, 3.691142137249031*^9}, + 3.6911421936624928`*^9, {3.691142242418626*^9, 3.6911422424874077`*^9}, + 3.69114234833284*^9, {3.691142451441519*^9, 3.691142479566782*^9}, { + 3.691142532597066*^9, 3.691142533080628*^9}, {3.6911425702934732`*^9, + 3.6911425707123547`*^9}, {3.691142629835464*^9, 3.691142683275976*^9}, { + 3.691142778770566*^9, 3.691142793356699*^9}, {3.691142894693461*^9, + 3.69114289813595*^9}, {3.69114300871047*^9, 3.691143012893713*^9}, { + 3.6911430475915203`*^9, 3.691143083251279*^9}, {3.69114313682513*^9, + 3.691143186274118*^9}, {3.6911432482659817`*^9, 3.691143279254998*^9}, { + 3.691143316437871*^9, 3.6911433432018423`*^9}, {3.6911434026219597`*^9, + 3.691143496037944*^9}, 3.691143537324518*^9, {3.691143572605386*^9, + 3.691143579021661*^9}, {3.6911436866658497`*^9, 3.691143725682547*^9}, { + 3.6911438022366447`*^9, 3.691143804109909*^9}, {3.691143879468581*^9, + 3.691143959617025*^9}, {3.691143994248273*^9, 3.6911442410276127`*^9}, { + 3.691144714380389*^9, 3.691144748283929*^9}, 3.691144779572775*^9, { + 3.691144861382547*^9, 3.691144874822188*^9}, {3.691144932613405*^9, + 3.6911449421862392`*^9}, {3.6911451157966413`*^9, 3.69114531971826*^9}, { + 3.691145375394833*^9, 3.691145395419697*^9}, {3.6911454556342573`*^9, + 3.691145561230165*^9}, {3.6911456189382544`*^9, 3.6911458568428802`*^9}, { + 3.691145887111516*^9, 3.6911464340900803`*^9}, {3.6911464752228317`*^9, + 3.691146507436737*^9}, {3.69114653938057*^9, 3.6911469024468403`*^9}, { + 3.6911469363607187`*^9, 3.691146942950198*^9}, {3.691146974016765*^9, + 3.691147127637411*^9}, {3.6911471708580437`*^9, 3.691147181726233*^9}, { + 3.691147299370863*^9, 3.691147342818994*^9}, {3.691147395964716*^9, + 3.691147524008906*^9}, {3.691147558100671*^9, 3.691147658329587*^9}, { + 3.6911476942505407`*^9, 3.691147718475828*^9}, {3.691147755294775*^9, + 3.691147790749151*^9}, {3.691147846576589*^9, 3.691147855337035*^9}, { + 3.6911479131901817`*^9, 3.691148257490713*^9}, {3.691148292812017*^9, + 3.6911483170469112`*^9}, {3.691148350123891*^9, 3.691148518975398*^9}, { + 3.6911485508807096`*^9, 3.691148553684218*^9}, {3.69114861272406*^9, + 3.691148727494171*^9}, {3.691148763653823*^9, 3.691149183356879*^9}, + 3.691149220568158*^9, 3.691149288586091*^9, {3.691149376324484*^9, + 3.691149382471024*^9}, 3.691149440231559*^9, {3.691149471944659*^9, + 3.691149472938768*^9}, {3.691149519799526*^9, 3.691149996566272*^9}, { + 3.691150029317634*^9, 3.691150032774948*^9}, {3.691150071692452*^9, + 3.691150118533132*^9}, {3.691150179402705*^9, 3.69115043939212*^9}, { + 3.6911505051660337`*^9, 3.691150532834193*^9}, {3.691158203206048*^9, + 3.691158206342914*^9}, {3.6911583130270443`*^9, 3.691158313651495*^9}, + 3.691163908357132*^9, {3.6911640626639977`*^9, 3.691164108753628*^9}, { + 3.691217685369544*^9, 3.69121776960758*^9}, {3.691217831026292*^9, + 3.69121783428811*^9}, {3.691422782301071*^9, 3.691422808986714*^9}, { + 3.691423215133719*^9, 3.6914232547830067`*^9}, 3.691423293510044*^9, { + 3.691423352596332*^9, 3.691423469245451*^9}, {3.691423508997279*^9, + 3.691423622554187*^9}, {3.691423662312357*^9, 3.691423805742711*^9}, { + 3.691423906992992*^9, 3.691423916852833*^9}, {3.691423959847035*^9, + 3.6914239872025347`*^9}, {3.691424076425527*^9, 3.691424104812086*^9}, { + 3.691424139989594*^9, 3.691424150884856*^9}, {3.691424181996874*^9, + 3.6914241945497093`*^9}, {3.6914242715328903`*^9, 3.691424271581215*^9}, { + 3.691424303414624*^9, 3.691424338366431*^9}, {3.6914252003493357`*^9, + 3.691425244768258*^9}, {3.6914252782644463`*^9, 3.6914254347805*^9}, { + 3.691425471717619*^9, 3.691425473353613*^9}, 3.69142551683083*^9, + 3.6914255829014397`*^9, 3.691425630619733*^9, {3.691425661720447*^9, + 3.691425681821444*^9}, {3.691425741368102*^9, 3.691425771235519*^9}, { + 3.6914258026173*^9, 3.691425935670659*^9}, {3.691425996353429*^9, + 3.691426103561493*^9}, 3.6914261357732964`*^9, {3.6914262177974358`*^9, + 3.6914264798706207`*^9}, {3.693639843555154*^9, 3.693639846797533*^9}, { + 3.693656770818716*^9, 3.693656777778264*^9}, {3.69365697351645*^9, + 3.693657018941032*^9}, {3.6936570687643957`*^9, 3.693657079477309*^9}, { + 3.693657165459156*^9, 3.693657276863092*^9}, {3.69365730823442*^9, + 3.6936573161015387`*^9}, {3.693657362099784*^9, 3.693657578572526*^9}, { + 3.6936579660417137`*^9, 3.693657984505821*^9}, {3.6936599718857327`*^9, + 3.693659983730382*^9}, {3.69366001436698*^9, 3.693660014878777*^9}, { + 3.693660154126699*^9, 3.6936601554008627`*^9}, {3.699293848302413*^9, + 3.699293897914488*^9}, {3.699293928710236*^9, 3.6992939726206512`*^9}, { + 3.699294063235395*^9, 3.6992941501089973`*^9}, {3.699294229732108*^9, + 3.6992942774972277`*^9}, {3.699294324115242*^9, 3.699294340974185*^9}, { + 3.699294375965117*^9, 3.6992943908377857`*^9}, {3.699294426968742*^9, + 3.699294448785288*^9}, {3.699294481737021*^9, 3.699294530049263*^9}, { + 3.699294627942054*^9, 3.6992946452720947`*^9}, {3.699294849121073*^9, + 3.6992948550678673`*^9}, {3.699294895168027*^9, 3.69929494196061*^9}, + 3.699294985927828*^9, {3.699295016239889*^9, 3.699295019235536*^9}, { + 3.69929505281318*^9, 3.699295066315386*^9}, 3.699299459750135*^9, { + 3.699340756079802*^9, 3.699340764631983*^9}, {3.699340824503377*^9, + 3.699340933939489*^9}, {3.69934829774924*^9, 3.699348313303583*^9}, { + 3.69934856418379*^9, 3.69934871208121*^9}, {3.709997243334426*^9, + 3.7099973009674597`*^9}, {3.710821722798584*^9, 3.710821726478475*^9}, { + 3.710821768718965*^9, 3.7108218062081823`*^9}, {3.710821839413843*^9, + 3.710821871923889*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAgr9zjJmZyb8cZ8fgQ/rJvzKmF7iV +lsm/KC74Qnvzyb/jjLvjkZPJvzb1KKWy7Mm/RFoDO4qNyb9Qg4ppId/Jvwb1 +kul6gcm/hp9N8v7Dyb+KKrJGXGnJv+7X0wO6jcm/kpXwAB85yb/ASOAmMCHJ +v6JrbXWk2Mi/ZCr5bBxIyL9+rk1adAfIv9TA8S9wcca/VzDcDSFEx7/8ZPLD +9LnEvxe5K5+ihMa/rFjlShgLw7+T2GEs6bTFv4Ifnwi3N8G/DDdGiAzzxL8o +6MEuDQe/v0EsEeD0IMS/lDfTuaJVu79dKJ0VslLDvxQmySp2tbe/dWPXGUyS +wr8AMM89q1O0v0o1+BmrwcG/POBivtaosL8bRsfo5v7Av9BXDcLHeKq/011X +lfc/wL9ILR7TXcKjv5AYnHua4b6/0J6UfsHzmL9z8+Vp/169v6ChWr6buIa/ +zvv8T+67u78AIBtQYPpqP/cRlvGGILq/kJyhW+7VkT8Zposw2aC4v2Bn/yQK +U58/tGdOZ7UAt794TBMcJvqmP0inbTtLfLW/XK6G4QPOrT9UFFoHa9ezv9Rh +72X6mbI/Lo/IjjQ6sr9ozTb1tDu2PwGIk7O3uLC/jh1u4g2fuT+ZXFegiS2u +v2THF2JwS70/IqVAFBchq7/lqtifuFzAP0gJLv/3I6i/kCKzGxoLwj9eyLXZ +7OWkvxPHxmAA3sM/ZoP27lTfob/eXdLUtZHFP74yo+ehL52/giEXEvBpxz/o +lWHfQL+Wv5+VaVyLOck/9/CRTMa9kL8C/LPV9enKP8wD7jHndIS/P483GOW+ +zD/nKjhrHZhwv8QUs4mjdM4/rGw4YtoTGb/pZ9EFSJjPP0uCXz4= + "]], + LineBox[CompressedData[" +1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAAnlMrVd/7XD94Na+H4RDQP5l+fcy2 +joA/RJxw/LT50D/1onHDJKCMP7IRmEL00tE/yC3+faHalD+y7d3Efr7SPzCS +0SRK9po/MLnkKnua0z+wX87upXmgP6B921E1ctQ/V5uZ2xK5oz+kP4v1R1zV +Pwzbq40MwaY/5tLVOdM21j/QvyNQ8gmqP4avvfvBI9c/+IiXm4RDrT+oM737 +fQzYPxcrKdbRIrA/YCHoCbfl2D86ZLlmV8SxP3hhGzpl0dk/ZB/tWSNKsz8H +lQpOk63aP7/MnpFFyLQ/3dbnVJSF2z+iTIPR3Wa2P8r5r+YdcNw/jE4LdLzp +tz/X1pbyJ0vdP+hYOOh78Lc/PzM/bvpO3T9DY2VcO/e3P/aavO3MUt0/+ne/ +RLoEuD9t3jr4cVrdP2ihcxW4H7g/WnRjO7xp3T9E9Nu2s1W4P9bSVntRiN0/ +/Jms+arBuD+/D1bpfsXdP1ik2W1qyLg/v5y34VHJ3T+zrgbiKc+4PwDGEN4k +zd0/asNgyqjcuD9sP67iytTdP9jsFJum97g/sgy0Gxfk3T+0P308oi25P6UH +3U2wAt4/EEqqsGE0uT9j+DmGgwbeP2tU1yQhO7k/3M2fwlYK3j8iaTENoEi5 +PyV5ikf9Ed4/kJLl3Z1juT/eD/qBSiHeP+ycElJdark/V2W82h0l3j9Hpz/G +HHG5P8lDkDfxKN4//ruZrpt+uT+57XD9lzDeP1nGxiJbhbk/RuJ/Zms03j+0 +0POWGoy5P+uxpNM+ON4/ENsgC9qSuT8xceBEEjzeP2vlTX+Zmbk/nTQ0uuU/ +3j+wqT/k + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.2, 0.1}, {-0.2029499862244898, 0.4726499861142857}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV2Hc8lW8UAPBLVEplZQsNUUISEo5xXVeI7Fz1E2VlFZVVGWWFJERDJQnZ +JEk9KiGJyMpWVFLISki/c/+pz/dzzjPOM973vSQdvMyOsVIolGD8h/n/xsXi +7SEBMXB4tuHhtT3XgLLHc1I+/So4zg6cMbmRCHVJXXwmu2/BqRWeXb9j4iGx +tH+3QMM9MLKsSfgvIgo2PlzPG9B/D1pZBKWOeURBwV3DiZ7Je9CTYLA+0DwK +6uMe56QLZYCoWcuvDvEooLheFpdzzoBWgz1rLJ9EgrsYcOix3gcLkVRRm/EI +oIan9ZxUzYSV//3ebuccDlPWh8IaM7LgztX4xp3hYeAJiwPvn2RB9XEzGyPP +MPgmdUPzQ2MWCBYIRPpZhUHfTOefjrksoNR3PWffGgZ1Vy28B42yYeXtrHeT +daGQ1mR4aHo6G7xfnU/i5goFur6airDeQyh0COPf9TAY0pQFRo8N50FhbLf+ +5q1BwKoSpbh8Pg/8dKTXB1KC4JjKgn/m2nzQ0ttcNvExEGRV+1d+VcmHwqYk +bdXYQKjY80DKJTofXOISN6nMBECHuoqDm3wBTHws0R6p94fIuw/dH6sXgoKv +UFJdzBl4+eDt56fhReDyu3fna2cfcH5el2wbXwSqQcIm0ft8gLPttcGf1CKw ++fIjyXmHD1ixVhUo5xWBvY24v9vUSRi1Kw0s+oDxTRFh8cEngY/nFu8DiWKw +TxUXtrx9ApyDPHUTKorhTknn5rkeL+C8enxWoboYKPcEfzlleUFxtkt207ti +kGiSv7vM1wsW2x3WrRnEuPzF/2pWe0H8TuvuiBUlYP/noYqXhidUfAGfsxYl +IKHyxUcj2x04D3DfcxlDs9wP0kt3BekBHf6OOcznSR+z8nIFqpdvlN6yUrCf +1wm5oe4KgbEdXhsFS4HyQPbBsw4X+P7mlnqPNnrG29iRywXqdLa1myShT9g2 +bLjkBBeUdDlU1B9B1R2WwLz7jnDnlW/QfdojsM8c2TDt5wiVZpnjvAfQJzT6 +3YwcYcqbo33i2CMIDvSx/DblAA55Tek5lzHe/TFAQs8BtKTs1Dd8xngGb733 +hD0sCJzyYo8uA8pJd5P2D3YQ/ez7iZdXy6DqX0CZ8iU7EHa09z1/qwyCm0Le +D+vYgWq+of+fwjLQqj50Qb6EAb7UjWE/O7D9qsJK92u28NO7Kblty2PQaj2y +2sPTBvrfyDy//+IxVLmXcQRaWoCn1+0qh7do9cnlLvwWsMS3/pV4G+YHcsyl +dZiDqD2lLvXbYwg20xL/bmsONrPtzbHryqGqV+7Yr6Nm0LzxwvCpQ+VA0dBb +SA83hVeBfZy0P+UQHKl8WeifAdTkabC1sD4ByrNRqX+JBlDff3PhEOcTCL6i +8dN1uwG06DK+nxJH3+Eaf3eQDgOrO2vv62H+T4HtdZU0WLzRHMqegHHrFy/p +N3RBubJ6rnpbBVBsbn+TPbEX1MY2TZgqoVPH96k8UwMNibCvPRroZXdr1Fap +AfWCdvu0KXrNiq/bHqiCmdHzks1n0CwRXXd+7AavnseeF16h+d7oud9XgKzF +nCFdu6dAiXmwdsd2Edj4QPPmbSf00d0Wi3cE4eaBFvMFb7T72RtcIvwQn/nn +ZfFFtF23/18RbvA3pd+VLEDHJ7mc1vmruS9j+NA/lkqg0N26ns4vJ9X7/dcz +ONFZ0Xl/I1cTzT+c78r40T1chy+u4CK79iupe25HN5j0GofwEdG5UOFeC7S3 +YhY/VYz8NJToqHiAjmkROM62lbjMlsTxF6N9B3pqVkiTT3f0aScr0YrKF7Zx +yJD2Gc9HMs3oGrWytcu3k+e3n11NmUdPEm2vb3IkfsrW9LTxM6C88z9nK72L +KN5IerNzCm3Prr6rZw+RsPPg6llEm19IYNmjRtaI6VmHL38OlLUavsuT1Mi3 +tOmhLiH0Q9Wfj/btJWnp5pQLWmh3kb0VuepkVQ63SnssOoK+pcEQyJzbyNng +a+g01QPaN4EMb39Rve0uekWf0cwokKo8b7Pzpej5qIFYqhY5XdTkId2NpikE +qfZqkc/lsRkB0gQoT6uSOha1yXv/Y6ObFQkEiw8d3iquQ56raSg27cW41Nf7 +wto65HrlD7LJBONrDxX9CNMhplWG3Q2nML7E3q7Hrksqazl4xF9hfJvxT7bf +uiQnctDmTQPaU+BnDi+VXDN4ctunHb3lkO+cPJWcfOuyo24E/XKV8CVnKkn8 +6pihurIKgtUWXiW1UMm+0ZdkUA69aYW/X4oeWVxh8GqDUhWuX314RpEeyd/c +VMPYg/GiSSuPej3Cc7j7XZsuxtP2hbTP65Gu91Pdb2zQjA2N66xpJOanf//y +w5jPiCXbPGhEcxXls64jsz/q76FQGknX5fz+zAPjwzIBqnk0crxs81xRKPo/ +w7ijf2lkw4echbEI9Maxk6Fc+uT9uMK/7bHYXpwuprNJnyjJaCzPvIZx1oss +Wfr6ZPGGJd/1XPTI93L+GH2SX94t0FGE+Rtigwxv6hP7tiMifI/Rgh+DN+fq +k+q1nhvjXqCT4yOq6/VJTEi4Qmg7to89Lfd6GZ1opnEqkW70hr6Uzdx0MlGR +oLI4gBaxq9i2gU4sptM0T4+i587YyarQyXLuLTolE+igdn9pXTop3/FQb2IG ++y9piGjYTyeizo+N3CgvgCKjmr/mGJ00hmmYPmB/AcE3uh0eetFJ8J1X5kOr +0Bw+WpP+dDL0scn28HrM38WVHxRLJ3lG31zMtqGPLH6IKaQTe1dP98vy6PVP +DgSV0wlP+LRXgxL6X/4xgSo6OU0oZ2iA/XVGXTzQSCfSPeEBYVS0wKftv1rp +pGuO81yVAVra9pZGN9arKHRRzQI99Gp93xesd//tyDMH0SKJZYo/6CT9+JaY +0sPYv7y21e5fWH/kw8u/HDH+5JL2lxms//7Oq3Ku6FzJ13rzWP+Lx8nHPTHf +KG2HxRKduPVpXM/ywbhgdC03qwERXXh1a9gP/cG2/xy7AWkU2Hd34zl0uM+L +GysNSMU8VVw/jOkVlnarDUhmL9w6Hslsny37fo0BSahSE4mPRcu6xv9eZ0DO +39udWpqA44nq17VwGxD3cAWBj9fQHQqiDrwGxMZ1e9Lfm5hfztp6n8+AUI2k +eDemY/x6hEraegOiIC95hfYA45V+cYb8OD8e0XXHc9FtZyXy0Stn+GMvF2E+ +y47dNejpDu7VpWXM/FV8iejBCs6ozqcY/xrFJohuvLVixd8qdOXq/WbYfwUe +VMkazO/oV9HF8TMd/7LS3qJ5qByjPFgPbS7Y7T067yjHPpz/OZmppbg29Ea7 +8/ZYnxvnWFBJF/anuqtYDuu3Gv8239GPpgx+K11lQHRbPvstDjHr2+c2tQLr +edQ3K/Ed/Vn37Hc2rCflo6/eOOZrxrlcZ8H5H2ryjvuDplZ/2oL7NaBVP1a8 +hPm6XUsss3TybtNr945lL4GyPHlNCu535kiFi8RatMBl0amvdJLQ8OgLlRdd +7pxd/olOzhUUHnUVRL8U1dnTSyfWpzLtizeiL8QWuDfTCdXmbl/7VjSnJZfE +WzpR2HvTbkEWfZkr6XI1naxkSbChqqB1H0lmlNHJ9OeYdhd1tLzwI4MCOhms +ibCI1UbHu4XlPqCTipizpu2G6MClLznXcH5efo3zpsz8HSv0L+P8zHyMxK3Q +6WJ+d8Pp5LigK93FHn3L7EiCL97HDAuteV80NXDguDGOH2HyfEMAWuw+Pyve +32nXfeq659FOba9tVHE95LVUY6LQm7jT6Rux3qfbFTakoQfcmvdM6ZOBFlYJ +nVr0X563t6L0yfIXt4fXNKCb1wSYB+kT2QL1hx/fo2PHU9o89YnfpdPKJ7rQ +/kksWub6hIv63ejOTzRXqn+JkD7RetTsv8T7Cigbiwuot2jE6Z4n1Auip83G +u2Lw+XplNXuyGPqJHLt2EI10eujF79iKdlO/dNaWRrylnmTaqaEXBD8/46OR +29fufKiwR3dBZnSwHqm+qJEafgz9w+mEioce+e7TddjMDW0z7Pb4oB5RNuX7 +PuKDFvpTuVNRjzSujKQIRaDn3mSuH6SSJX+vHWfy0BvYcuuUqeSwnWbErnlm ++y4bg1c6hITPyDr/Q2tzhedm6RCJotyW62zVQPmuk/MpVod8ZhfZwLoOLdfa +U2etQ1wKfpe+34R+lL7qwog2Ocla9MnDGO1iqTfGpk3CszZpZt1B3zR58kBN +kxRMr5wR1X+N9z31gE31brJvm8On34boeuFzJiG7ydB/T5taTNHKhSG8mruJ +8FuPnEhb9LmixGWPlUj43Zb/pj3QfKJX4jJ3kcP7b9a/TURT6wsygnaStVny +dwI+oVNSlT6t3UbcGVaGnWdrgCKhsbzBfg1ZfK+YdamxFtfTger4eScIt2ml +iwm9we8JA9c7T3Qh40HzhRDjenwflt6etzCGbVtPT1eYoU9UZX0OMoaCTOGj +09bouh33KzKMoeK+o66zA5pW92nntDG8vzfDYnwGfVDyiHbCfli4LXRe8C46 +aEi3ut4EzFKO+BdMo5dz/JXjPwAsUb88em+8BYrJ1ldyluZQxau65fkdNGfx +bqVj5hCcdq4n7T46Rp5f7pQ5LJWsNrQvQG93GF9KNIf5vi3Sn1+iPVKyeVvN +YVrJ9tO3EXT5upQlEwv4MvDSalqlAYKPTLpEaFrC/eMca9vUG4DSyc9YZmwJ +R2dNXj/SRtcX6pxkWMKn1b27zhgy8zlrpP0soV/5N9f8YYxP7HH7XWgJnTHb +3/67iC7cXMItYQX1qomwuhW9+WffxJQVVEeZnPjQie3Xir0/TbGGZ12r7t3o +xfjKsbkxTmsoDApZLvsVfXeh4dEWa0iq8nxnNI/57i9DblpZgz3dgBEn8Q4o +0G1d88gaZq2XTnN7vIPgzIRME1cbmMh6kvXxBMYVu+6v9rWBkT++XXdPo49/ +aCg/ZwM9N0Y1FIPR3aknv1y1gRf9nWzmV9GP/1LjntlAjHNJQuIT9D+2oxxr +D4LkGZd8geWNQCkTLwi4dxCs2DSr9FejlW12c+YdhOgrvC1nuNDLu3ZdKjsI +0w+fz3QIo3/d9zvw5iDUDPBppMij3wtqLP08CO77XrwVPIj+T7eqeZct3OlI +7qUfRlsV4e84W2g76j7u54i+OWAcRbUFzfMCvB890BZy2dMWtsBd6mGbGop+ +HTI47GsLZWLCI0K56DUBarJFtvA9Z3zeoAjtZtF/qNwWxFVfcwaUof+d5goi +thBp5q3QVYXO4Vg6+84WGBE1Z663ocd+WF37ZovzPrlc5B9zvmvKhEUYsPsc +XdCQrQnfR5VaPJIMcFu9YVsgB1rJZ25GigEftrwx7uZF1+l9DFFkQKateNIN +afTD7rc5dAYYVr/dJGqGXgpg1TjBgAo73bNTVugVywczTjFAeqaivZ6B7qhQ +XvBnAJtUTpT/sSbm/d3jE8qA5xGR4+1+aPNs5fgEBshKUAzyz6I/iR4/nsyA +6+Vn0i+GomcH55WuM+DMiJOlUgy60FL86l0GKBjqPb1yG60qvymwgAFpnyv5 +XDPQU1s/1hUzYE2QkqdWNlrmSjNbGQO+526SHC9Gj0ud069kwL21rBFGNWg7 +Qb/ftQzgeeA/sOktOnp+sqyeAcHwa89CE/qI8/Wj7xhg5z3wI/sj2r35aHQL +A/hbnput+IlWEc74182AC27KuX2/0AMKoNDHgCnWfPayWbTV6NT+AQZ8S91v +p0h5D5TcyrtWQwwQd1rFkcaKNshJhi8MsFKsecTBjl4/cpP/GwOq6zXWDXKg +fWPa4kYZsJD856kRJ9pSmk3hJwMUHR+5lK9Fr7ygTsYYcBdfzpd50fc9Xz34 +xYDO2m+eC+vRj5PWskwxgCsxQ8RZED2ea0efZsA5WdFTmmLojCMLd2YZ8Giu +QzJHHG09Ry/+zYAf1Vcb129EPztxtWiOAZuvmASGbEa3uHxM+8MAxqHV0j+l +0G0XhALmGZAgU9tqI4Pe5G+mu8CA+pnQkOrtaCv2sHk0y0tNOQU5tPRM9u1F +BqjGzXfdUGCOL1Gj+JcBXrZlESt2Med3vL0EnSl1UslnN/p87ceNSwzondwx +2KeCHpNvOo/mIyOx+9TQG/Mf1aMNL91XK1NH77GOWfaPAaHWR75KAvq6kdk2 +dMUmscRYbfTQ0+WA/jXeqfVHF73Ql6WNpnXd7U2hoRfPCSugr1e7BagaoA+J +mnKgx/N3CXQaoj+M0t/heNTUxZIz+5ntFdmC0Klhr00FDqD96SHr0WMecT/L +zNGzV0kq1qNrYx1tZYVeEfd8JTpFR2LrrA3atuqsA67HT9mRV0kM9LXXi5m4 +XjoCxfa7D6N9DPa24/omswT+bbVn7sfKPRO4/qOjutd9HdF7m2emcX+02jlV ++JzQAyEnhnD/EqvaPpS4oO+syn2O+6uZ5LxmygP968mhXbj/V88r5CR4M+td +3/ZuEs+n6x+aog9a9dFqczw/CZqXgk/4odOGHovh+foqbSHGHYgO2CXn+IMB +6rxiFYVn0e91jl39zoDhr/lT46FonV6BUjzPai1n4i9fRF8oTMzA8x5XqbVD +PhKd3dp6/hPu/5UWJ89Y9MFD6bO9DIhRm/344xr6h3Xs8AcGDG4mp2Ouo2ck +QLaZAcrrInllb6Hzr1UeamRA/2ch4+PpzPHYJULq8D7EalSN5KL/jhW/ecqA +iDPLD0UVoNdUjDqVM6DnSNMf6WL0vaHFsVIGhCsf2eXymDn/hQKSx4CP/Rcy +v7xAXwxMcExjgFy9sW54NVqCp9Yanz+hpfwDW2rRPOuHlfH5JBuVJXSsAU3Z +9fVRLD4vFBtiPrejV7kYPQ5kgNRFXp+BUTRdXqjeHPe7hf+dzxizveLxiP0M +WCUhvHXFL7S65zUFAzwvFRLdO2aZ+7E8hqbJgLKJHbqBlGZ83ofqh2xlgJ4d +nZd/PVqSw2j3LL4fsg09sgXQkS6/i8ZtQfr3/lp1YfRF4wrhEVvgTLAMdBRH +UyClsNsWWmsdPhfKoFvDdo3h++LorrMlhproWhe+RxdsoT04eE2/FtrGxG0m +yBbojWHOJ3XRjfe3bDxlC7Ku0SKpdPQnp09ax2xhOu1a2BcztASNKxHfZ2Gr +is1DnNG6WyyT/x2E9MEvU2Xx6Bfvy5WdD0KR0tNfYlfRRacXnx86CFURl8cv +JKFDVYaVLQ5C7w7VUbPr6JLLz2e0DoJgQNSnsXvoo6JQKHQQ4nhkm6Ueo6+4 +8G+os4FA3RP5yb3o8qgXnEI2EJ2sl/u3H61eez55jQ2kjAjlHP2EZt9dxcVq +A2WXX95X/Iq+X/ql/bs1THbz3mqcQM8XZOY8tQYX37JLy9la8Hnkz3LG1hos +7i+4nN6GLqNb9MVYQTB/rxX3DvSlE07O56wgL+I5NVceHfY2rN/LCpa7hUh8 +UkI36nDdMrOCcrkVncaA9k9/vV/ACkTKefS3WKB33o6+dgu/t+pltrSeRZ8c +ui6UZgHeE9aDO5vRVkJtsyfMYI/zKp87H9AlqTuH7c2Ata+SbV07Onzt11oT +M0h6Kyn9owttHXjVbYcZVGSOemYOoYs3+Up9OwBsh84vCs+hZXWuXmAcgNQ3 +mQJs4h/we0GEDmqm8DJ9xrjdHT1xacO6MkNgiMpyuLG3AiXBfnJXtTYcEsup +/ZODtmnJ5TfbBkkXXQNO6rUBxbRfclOTCLG4q23MRUdrDb5OFREjPM+EJPL3 +oYOHj1g7byDx029ej5gw/VXC5JwEiXbcxn3EFh0/Ucu5bhM5pz36wMQLrTCU +YCcmTZz+urfJpjLjutn+kwpks5BeVv0NtHdxWLbmTvJZSSzQJQ3tvv3Hteid +xN79nUTGPbTg7Lc8SUVi273DXSQfXZXBkWe0i+x/Msa66hXa5fsJt6TdROWU +t8LXH+jW8jGHn3tIQrLQA5txtAQHD9muRsYevxSr/4WWTpZ776pGMub5VufN +orPCtqwbViM8wU+GT1LasZ6UJxMde8nPaNYbS7xodwO22nwNQs99yO3Nj5bI +qVb4pkEy3llEDgqiV/bcp0lqEluuB6eqxdDf7kX7JmiSuiRD0+it6BTfNW+8 +gdy7k8jOvxcd/uqlW5wWWXqhERShgR7guHU4S4vYfv4yOQdopdW/N73UIlxS +ewa6qeiGdSwbZ7TIuYe9FXf3o7OqqZ9ttMnBMinvHQ5oucVGVQEdsq6hvIsa +hV4S9BP20CWRpjfX5lxC2zRNGwTrEkrbeZ11ceiM/su6V3XJRC8t52MCc/6R +v6+W65KW8VZ/z5torkqHuxQq2edbnvchDZ34O0uIh0pezd0YVL2LdlgsO7iJ +SkpZHA2WZaIjwxfl9agkmfeXYEoBuo4yLBtOJWtTWo3+FqEF+yS7k6gkQrQ8 +2KEUrahXu/8+lfhtOf9N9glaPUDo4isqsVVZU/7iJbrK0XfLXyrZwJCxHm1j +9n/R5tdRPZLcz3nJtBM9pz/V7K1H1h2deP6oC201KOYTpEcoHo+lgvuZ9d3+ +OpOgRz6d05vlG0HH1GZNV+oR22Uy2wJGmetZsqG5Ro98iOA83P8TXTGRc/w9 +/v6O//A6e5IZn6/5+EmPZKYfSdJcRJt+MbjCRiMbtuq9ubeE7hkusOSkkWsP +pf+uZOnA93tXdhsvjUSWjh/9wI4eaFm/YiONUPZ8SFFdib6ZPPxYmkb8n5U1 +3FqFdmpk2yRPI241Z5Vc1qHtE0al9tLIp31HXN5xo1NerCNaNMJoot5U5ENL +PVTnotFIq7n0+2v86Av6EsKGNGLUuZrtryDa7rhLjwmNVNuNqziIoEXrXlpZ +0IjGYMvxWjH05PeeSBsakfue+uHKRvTKFct57TE/Jvr3ti3o9/FhBY40Yisf +KFK9FS3BdmLGiUYmmo/DoW1oF82jQ640Eu5r5zgriw4enQx0pxFRAeOIy/Jo +2YvFTz1ppPiJxkNpRWa9Fqr3vGmEbifX9EIJTfUWUjxJI/1LG6ZsVdDpz747 ++9DI6bvrBKb3MMcf16L60ggnlbI3Vh2tFFVYg07/MnFYCtCqH9+NoVWjBkOJ +NrPeJdlKdOP2lkwbKjpr6Igc+mjjy/pfNDSnPkUP+5/3LhmLNkDX5d34d4JG +4nkzeDYboSu9ag/h/KTKEpWf7WeudxH/fzj/SpuLtlYHmO2dRJdhfWYLp86N +mzPH33/cAOv/dsspPdIK7T2XtBPX55yWdY3kQXT8C7mnDjTC91n/ewUDbdRa +O3yYRnIuqq61OIz+Jj1VaEsj2tIyij/t0fUXdUStaKSzXsgq3BFtel5/6wEa +8fRYFSDuhBY8c7UZ95eNa+FWuQtzfW89Fsb9v148+uLAcXTDGJUVz4eCZc/w +dw/meCoNEXtopOZ3A8cFb3TGur4cRRqZVM8/UHYKndj+qXYTns/+tFMmfsz9 +WJipEsHzHHo59VsA2k+k1RLP775a70HhYPSdOPkDLDQy4HqEvTSUuX5hb8t+ +65HTnGYyxhfRkeVeZT/1yL0Du06cj0Yn/1kd2qlH1KY3JQnGohd5JI3f6ZH3 +yXxPii4z9zPCr/CFHlnsnqEMJaLdPaQ0s/WIhVN5PP02+mjyvIuPHvm+Mrt0 +8C660PjOCN734IepnQEZzPPOM7VkqUdyJwIk8rKZ59umeVhZj7AHahRyl6L3 +F1Vdm6KSm2JyrTllzPEFJIoGqUSxasOc7hM014VovEvkMDtF6/RzdNXNh0ey +qQS/F5q66tA209pSNlQyonLhmv5bNP+rQ7JUKhEd0Puv9B3zvJVkNMpTSajC +m7HYFub+P9r5hZ1K9jc3rdHuYd7f3gKrPF0S4n+lLa8P3e4cuytZl5RKmt8S +HkSXJsVmn9MlwifbZaeHmee11PO//brkC0+v4YNx5v2y//P1mw4ReprGyzeJ +3nBGMaxRhxg52ncHTzP371tgaYkOKS757Gb7By39rqQjSIecs/getWZZJ35/ +pnatX6VD1if/rvXhR8++ui7EpU3omk8uDwiiLZQ2fB3TIgFfAqyNRdCqw17U +d1pkQHnpi5QEWlToW26kFsntYFveJYNeKcFrMQ2Eig99LY1O5t8f52bjNMiZ +Fx9W5wF6SPbfdk0NkuOa9EFIBy3h1ejzQ51wVQg6TtHQggKRqjR10mMrHppp +inYZvXZ+TI343pSt4jyKjlydbsStSqodFs7kOaH9vOJUs1XIepl6+f2uaE5f +pyVQIWWPnG9f9kTbr73F66ZM/jSmn+PxR7sPH6MVKpFzLEIagnHo+BnWvmU7 +SWPt1+nyeKabCr9FKhDxuLLcg1eZ9R+XquRUIFXCFqI3UtAT2pInJeXIMqXL +C2L3mPNjedbJu41EOrFXbCpHc70vDQ+WJJ2yrSeqK5j5guH5DhJEZipd5tgz +tILi2agLG0j9ea3UzJfo4MtzTlNCZE1qoJ/MO3Th512PE7hIwttfyvKf0JT0 +ES6HEc2bCn0lapwfMf5eTNV+K6yy/SrdtBYd/N/H1nfS4Bc2ccuRG+1tV7FT +cxuYt7NGxvCj/fRqlbbugFVBW+36JNADm0VMYneCX603W+hutPSevf7VKmBx +eJnlm8Poacq+7gwdeBnBWX/oCNo0ScBWQBcUitbDpCM65taqG9G6sJpNWkbE +Fa1Jio/5UOFlttFfdx/m+IrmcvtpoDCTdJ8rEp1YULtOZh+sjpGetS5Ci89t +F1E/APxPWddVlaAl+m/ZnD0AEt97tkqXodu/vJp8fgCU6VcOzlWg6SelNXXN +wJ5tvjKlGj1Zra5qag6lQW/DPnagdb5J/gq0hMMentyMJbRLSaGyqC243KRv +e0XpAspY74FwV1vwebtRd/sytJdOodpjW4iU6fBdWIFOcH/Ygr+/ioeh8wZ3 +F/N7rLHmih2sOMx9u2cz+j+pvD8S/0Hh/lLZw4bod8P35PQdMPnG7nljdHf1 +EyU/B6CMhGomm6JLemYDsh3gQNgB00bLLgimcSXVcTrC5OMxH017jAvqyni0 +O4KSpMzTDaeY/YtLsJ4+Bo+nbhn0p2H+XrHuK19dYEDrolngXYzrH3KZlHCF +lXHuDIEM9FuP3BRbV7CR3uthko0W+rn2caMrzNl1xpMStMYeNa0KN1Cr4em8 +XYdWHtPJTXOH5ykRTvaTaMt7FwVMvCFsFHjfT3dBldH0jJCnN9A15wj8xvHb +Uow1Yr2h5bOLkPgi5oeyUL6+9YYvcvsaetm7gRJ1O65u3wlY95pTkSHUDVXt +P03b9p8E+19X/lpqdUOw77P4NG9fYN13M9EwDvM7ZluMxP1h6F/cUn48xqU0 +Whk0f6h5FOLCcxXj6rd1L3v4wyVJZ/WP17C/ujVPHSv9ge/PziGnu5i/f6fi +a0YAbMmq3RVa2g1atuwhgXcDgb58qqW8C+NRQjVaBucg9qUBt9TWHrjzPvSr +0YpQiEk2OP5Mpge0NMdOVkui3QxeW8iiZzTdLdTRPAb+YTvROtp9z06gHeiD +A3t7oKovRLW8NxSiWfWLbpj2QPCaxRSrijCI1KEe4A5gxjnPpIZfhNCXmlcW +GzDeo3lGyzMKxG+uu+zc1AP2WlsXOGKjoPLUQExLM/Yv7PJ29GEUzEiHRma1 +4/xyv5yfG4kCl8uvz1sMYH/Xd4aqOEeDsZ2RZ+5UD0jIqGpbOV0CwdmDhnbC +vVCl1fzH9Uws5MmcYq907oV46dG82ql4YDtSQfFy64U7GyPN41deAbuUfwuS +HugfDBY3sSvAuSJ6MuIkWjAuxVT/CrgNpfWbn+2FYL/Z7NEbV0D6dt2T0YRe +sP9vYcURegJk8Il6ijzvBQn+zwXh+Vdh0fCIa2MVuu23T8jrq2ARlnk05BW6 +6oBdXM9VWDapwPha1wuFzazP+1YlgkOTHr3kQy9oOW57ZeuSCBLRXhsNR7D/ +ofi3tVJJ4PeiVGxpFL01n39EMwnez/0RLBrrhYHbUwJi1klw3vkCftD1wkRz +/ZFnEUnQR01d/LSE8z3Lvn5gJAmUg/p+J7H0QXBgHm8KazLElmyaorP1QXyZ +C4+jSDKob8wfyefogzvsWrsVjZMh8eDU0BFO9K7Z48pOyfAjXnWAb10fSLRO +1RqfTwZq3dnuWm6Mn48x80tJhhv/XrYH8PWBwkn+9WVFyfA/xcSYkw== + + "]]}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.47}, {-0.0007656543551562145, + 0.02268063531959396}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{{3.699340739683754*^9, 3.6993407654950943`*^9}, { + 3.699340826663845*^9, 3.699340934443329*^9}, {3.6993482987669783`*^9, + 3.699348313912451*^9}, {3.699348566073593*^9, 3.699348712609359*^9}, { + 3.709997288519692*^9, 3.709997302148498*^9}, {3.710821697516238*^9, + 3.710821727164421*^9}, 3.710821772569436*^9, 3.7108218066543627`*^9, { + 3.7108218455623693`*^9, 3.710821872652583*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", + RowBox[{"-", "0.6000000000000014`"}]}], + SequenceForm["detJ=", -0.6000000000000014], + Editable->False]], "Print", + CellChangeTimes->{{3.69365720603776*^9, 3.693657279736801*^9}, + 3.693657440501865*^9, 3.6936575252977552`*^9, {3.693657563333323*^9, + 3.6936575802798347`*^9}, 3.693659984444887*^9, 3.693660073250341*^9, + 3.693660156208268*^9, {3.699293876947016*^9, 3.6992938988931637`*^9}, { + 3.699293931386125*^9, 3.699293974871855*^9}, {3.6992940823986*^9, + 3.699294150470052*^9}, {3.6992942321600647`*^9, 3.6992942781500273`*^9}, { + 3.699294326814104*^9, 3.699294341712192*^9}, 3.699294395072814*^9, { + 3.699294428932578*^9, 3.699294449734123*^9}, {3.6992944895188417`*^9, + 3.699294530472254*^9}, {3.699294632018118*^9, 3.699294646125841*^9}, + 3.699294856200614*^9, 3.699294905784671*^9, 3.699294986377092*^9, + 3.69929501989784*^9, 3.699295067126821*^9, 3.699340616755065*^9, { + 3.699340738896171*^9, 3.699340765413507*^9}, {3.699340826583373*^9, + 3.699340934362507*^9}, {3.6993482986898623`*^9, 3.6993483138324757`*^9}, { + 3.6993485659944973`*^9, 3.699348712529565*^9}, {3.7099972885371323`*^9, + 3.709997302163662*^9}, {3.7108216975316467`*^9, 3.710821727188814*^9}, + 3.710821772585013*^9, 3.710821806670178*^9, {3.710821845583539*^9, + 3.7108218726678543`*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + RowBox[{"-", "0.1098`"}]}], + SequenceForm["The zero crossing of P is z0=", -0.1098], + Editable->False]], "Print", + CellChangeTimes->{{3.69365720603776*^9, 3.693657279736801*^9}, + 3.693657440501865*^9, 3.6936575252977552`*^9, {3.693657563333323*^9, + 3.6936575802798347`*^9}, 3.693659984444887*^9, 3.693660073250341*^9, + 3.693660156208268*^9, {3.699293876947016*^9, 3.6992938988931637`*^9}, { + 3.699293931386125*^9, 3.699293974871855*^9}, {3.6992940823986*^9, + 3.699294150470052*^9}, {3.6992942321600647`*^9, 3.6992942781500273`*^9}, { + 3.699294326814104*^9, 3.699294341712192*^9}, 3.699294395072814*^9, { + 3.699294428932578*^9, 3.699294449734123*^9}, {3.6992944895188417`*^9, + 3.699294530472254*^9}, {3.699294632018118*^9, 3.699294646125841*^9}, + 3.699294856200614*^9, 3.699294905784671*^9, 3.699294986377092*^9, + 3.69929501989784*^9, 3.699295067126821*^9, 3.699340616755065*^9, { + 3.699340738896171*^9, 3.699340765413507*^9}, {3.699340826583373*^9, + 3.699340934362507*^9}, {3.6993482986898623`*^9, 3.6993483138324757`*^9}, { + 3.6993485659944973`*^9, 3.699348712529565*^9}, {3.7099972885371323`*^9, + 3.709997302163662*^9}, {3.7108216975316467`*^9, 3.710821727188814*^9}, + 3.710821772585013*^9, 3.710821806670178*^9, {3.710821845583539*^9, + 3.710821872670569*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Four zero crossings of F are z1=\"\>", "\[InvisibleSpace]", + "0.10862464785042454`", "\[InvisibleSpace]", "\<\", z2=\"\>", + "\[InvisibleSpace]", "0.1775132667072557`", + "\[InvisibleSpace]", "\<\", z3=\"\>", "\[InvisibleSpace]", + "0.3290164249781881`", "\[InvisibleSpace]", "\<\", z4=\"\>", + "\[InvisibleSpace]", "0.38860475062326694`"}], + SequenceForm[ + "Four zero crossings of F are z1=", 0.10862464785042454`, ", z2=", + 0.1775132667072557, ", z3=", 0.3290164249781881, ", z4=", + 0.38860475062326694`], + Editable->False]], "Print", + CellChangeTimes->{{3.69365720603776*^9, 3.693657279736801*^9}, + 3.693657440501865*^9, 3.6936575252977552`*^9, {3.693657563333323*^9, + 3.6936575802798347`*^9}, 3.693659984444887*^9, 3.693660073250341*^9, + 3.693660156208268*^9, {3.699293876947016*^9, 3.6992938988931637`*^9}, { + 3.699293931386125*^9, 3.699293974871855*^9}, {3.6992940823986*^9, + 3.699294150470052*^9}, {3.6992942321600647`*^9, 3.6992942781500273`*^9}, { + 3.699294326814104*^9, 3.699294341712192*^9}, 3.699294395072814*^9, { + 3.699294428932578*^9, 3.699294449734123*^9}, {3.6992944895188417`*^9, + 3.699294530472254*^9}, {3.699294632018118*^9, 3.699294646125841*^9}, + 3.699294856200614*^9, 3.699294905784671*^9, 3.699294986377092*^9, + 3.69929501989784*^9, 3.699295067126821*^9, 3.699340616755065*^9, { + 3.699340738896171*^9, 3.699340765413507*^9}, {3.699340826583373*^9, + 3.699340934362507*^9}, {3.6993482986898623`*^9, 3.6993483138324757`*^9}, { + 3.6993485659944973`*^9, 3.699348712529565*^9}, {3.7099972885371323`*^9, + 3.709997302163662*^9}, {3.7108216975316467`*^9, 3.710821727188814*^9}, + 3.710821772585013*^9, 3.710821806670178*^9, {3.710821845583539*^9, + 3.710821872674622*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Four steady states of the SSN are re1=\"\>", + "\[InvisibleSpace]", "0.11925857467502134`", + "\[InvisibleSpace]", "\<\", ri1=\"\>", "\[InvisibleSpace]", + "0.0012816963412298388`", "\[InvisibleSpace]", "\<\"; re2=\"\>", + "\[InvisibleSpace]", "0.2743855351334897`", + "\[InvisibleSpace]", "\<\", ri2=\"\>", "\[InvisibleSpace]", + "0.0055936134213117`", "\[InvisibleSpace]", "\<\"; re3=\"\>", + "\[InvisibleSpace]", "1.0263488816675757`", + "\[InvisibleSpace]", "\<\", ri3=\"\>", "\[InvisibleSpace]", + "0.035616622834469376`", "\[InvisibleSpace]", "\<\"; re4=\"\>", + "\[InvisibleSpace]", "1.5472972037552453`", + "\[InvisibleSpace]", "\<\", ri4=\"\>", "\[InvisibleSpace]", + "0.05868462265659892`"}], + SequenceForm[ + "Four steady states of the SSN are re1=", 0.11925857467502134`, ", ri1=", + 0.0012816963412298388`, "; re2=", 0.2743855351334897, ", ri2=", + 0.0055936134213117, "; re3=", 1.0263488816675757`, ", ri3=", + 0.035616622834469376`, "; re4=", 1.5472972037552453`, ", ri4=", + 0.05868462265659892], + Editable->False]], "Print", + CellChangeTimes->{{3.69365720603776*^9, 3.693657279736801*^9}, + 3.693657440501865*^9, 3.6936575252977552`*^9, {3.693657563333323*^9, + 3.6936575802798347`*^9}, 3.693659984444887*^9, 3.693660073250341*^9, + 3.693660156208268*^9, {3.699293876947016*^9, 3.6992938988931637`*^9}, { + 3.699293931386125*^9, 3.699293974871855*^9}, {3.6992940823986*^9, + 3.699294150470052*^9}, {3.6992942321600647`*^9, 3.6992942781500273`*^9}, { + 3.699294326814104*^9, 3.699294341712192*^9}, 3.699294395072814*^9, { + 3.699294428932578*^9, 3.699294449734123*^9}, {3.6992944895188417`*^9, + 3.699294530472254*^9}, {3.699294632018118*^9, 3.699294646125841*^9}, + 3.699294856200614*^9, 3.699294905784671*^9, 3.699294986377092*^9, + 3.69929501989784*^9, 3.699295067126821*^9, 3.699340616755065*^9, { + 3.699340738896171*^9, 3.699340765413507*^9}, {3.699340826583373*^9, + 3.699340934362507*^9}, {3.6993482986898623`*^9, 3.6993483138324757`*^9}, { + 3.6993485659944973`*^9, 3.699348712529565*^9}, {3.7099972885371323`*^9, + 3.709997302163662*^9}, {3.7108216975316467`*^9, 3.710821727188814*^9}, + 3.710821772585013*^9, 3.710821806670178*^9, {3.710821845583539*^9, + 3.710821872678624*^9}}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{}, { + {GrayLevel[0], + {Arrowheads[{{0.04687896345853284, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQJe/SFib1JlAgAAACkAAAACAAAAMM4Z4qr30b/mSSnQd7+sP1VJbts0 +i9G/iKjjK+4RrD+s7NHJZmPQv+CtHHakOKo/aE31b6qbzr+6CpFZiHyoP7W9 +NifPssq/+Mor7NhbpT9Z+hFlf0rHv+JhDoT/oaI/HBr4sWJRxL8XSJPBG0Gg +P+5tMfoqqMC/5K/oKaummj+G/sHGnEu7v9H+ZwUX1pU/sTIXriBvur9a9Xi+ +syWVP5qZmZmZmbm/exSuR+F6lD+Al4HGD9m2vwBGAdI/R5I/crASgj5ktL8o +jagBMlCQP9qQDHfoArC/W4F6vkCeiT9UVSyNnCepv0FE8HCwH4Q/WQXdBQPD +o79X1ZQ8a55/P3/JbFhRCpa/IhzgC26pcT+ojlyvsTKHvyzcN3r0N2Q/X5Lk +ov/Car/gN/6br31XPy9yfzd97WY/zxlmNb34TT9j1dTeIZiBP3SfdNnrzkI/ +QROrMAg6jT8hHNLJ87E3P+PmSvv5LpA/tvIfj4H1ND+ewFf6ELuRP+SWa0wx +jjI/WTkJ4StDkz+3PL5atXowP+8MJ2LF1JQ/Q4WON7hFLT8Kxq7BRmGWP6sW +Z7SPJCo/L5DiNFjolz+7VgE5AIInPzBIy/Wbd5k/3zOf4lg9JT+ratkEeACb +P2xZCpymYyM/3Wsig7eCnD8IQJ8FnughP2S47eXkuJ0/PXO7jA3yID+xlnzV +K3ukP6E9Zf2QtBw/IdJNzPdEqT95tjycY20kP/j8UAKqTa0/dIkv8vH0LT8a +Ee7aHcayPxDjOgxp/zs/Gh00/peAtT908zF05mxDP6xfKjw3X7c/8tB2+/uc +Rz8IhsDxete4P0WN2iXVWUs/GqLhRNoKuj+paojIH6hOP/mLVo7dGLs/1N7d +ohK1UD8eQERz + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.041065340528017955`, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAGHMUqcOulL8RZrro5tqBv6kTADLW +OZO/dLWqVDS0gb/ABT+9SXItPx4TMoe9Xn+/8FZ/7rsRkj+hAuFF+Kp7v86c +RWVOI6I/wH2exKTjd788Bll2yYeqP9L/PILCZ3S/siDUwG+XtD+YMTp0o6Rs +v49NNUEr1rU/oo+EETaTar8K16NwPQq3P/p+arx0k2i/gSNK5ozmuT8IxdFr +ndJjv8XD0z6Mhrw/dNHa4mvrXr8eJ7dop6vAP5RUhJKw0E2/rTzs8CGuwj+Y +cqCzqYYYv9851l2nW8Q/mU0WBoxJQz+c37ca6OnHP47rKBAtsmA/47q/Lon+ +yT+W7SSOVLBnPzvj9tSWMcs/SCKEOVPEaz8o+eXjndTLP4lShmcd/G0/Vo9C +P9gtzD+cL8ixkUFvPykalPGgU8w/EC8EGDXdbz/yuIcY6T7MPzO7kYbBC3A/ +wA8wb2crzD9P/ZfKrPdvP8NeYfgYFsw/k2qx2T7Sbz8nLdc+rv/LP1cv6/mA +qW8/cvIQhIToyz+DB/Uvrn5vP3bn/avY0Ms/uTF4GIlSbz8EjVT1y7jLPyYd +0HF/JW8/X2+Cake8yj9vvFGmcU5tP2HXxZ3grck/Df+oG85caz+Em4j9upPI +P25W0FrDX2k/pePGkjPaxT+RDXesH6RkP3xhDaLVdMM/B+moRDu2YD8mH91B +wa3BP7DnRJq88Vs/56gpvZg5wD83OsL/UKZXP+fxz6ONHr8/zS45D0rPVT8C +2Z7t8qm+PwYmpGzJK1U/848kdw== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAALzTcrq7f8j8RZrro5tqBvyjCuzOe +JfM/PSzLqbeefr+MoDmtInDzPyiwIO4SNHm/isG0/ZW38z/5msuSHQd0v1Bu +Zi2y/fM/1C8ZV2Pqbb9mjAoFWET0P6GuNYUFsWO/38fJjOqJ9D8zRzp0Z0VT +v83MzMzMzPQ/AAAAAAAAAAAGKItKYhb1P4S0nViEGVU/vnUZoQBd9T/VwGar +W6NkP6dXYU5vovU/8EUCsrGKbj94b0zQdej1P+P9bbrURHQ/Kvi0FIMt9j81 +bi9QGjF5P7/3cvDmb/Y/tn8C55vofT9+wOw7OrH2P9vohyWBRYE/p6SIzxXz +9j+7AUAk+5uDP+jJ32xFNfc/2yZR3b71hT8QH0dFhHb3P9YUAKVBRog/IKS+ +WNK29z+ny0x7g42KPxpZRqcv9vc/VEs3YITLjD/GUob1F3L4P5/S8qrhlZA/ +EwwHMD3q+D9HkQVDf7OSP1smOuz9Xvk/CPrQ6H3AlD/yQpG/uND5P0Ql0ozA +vpY/3WEMqm0/+j/+EgkvR66YPxeDq6scq/o/MsN1zxGPmj9n3twrChT7P8ZZ +N0N7Ypw/yNjyo/Q2+z/+iP+6sv2cPwbW42k= + "]]}, + {Arrowheads[{{0.0013932551525751083`, 1.}}], + ArrowBox[{{1.7356747231934557`, 0.03072306592121211}, { + 1.741803997209589, 0.031147884442963708`}, {1.7472972037552452`, + 0.03152774944012187}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAfvcP5xHP2D8RZrro5tqBv6wuXKTC +/dg/kKB5/NJ+gb+gWD6JyOPaP/hAdqUch3u/XuXCSHC23D+3r3pLBWJ0v2IF +In9MeN4/0798y7QFa79L3C2WrhTgP8NHBdFvplu/gv83KNHk4D9otHDgPski +v0SuMqRBreE/UsYAai31VT9yKqG4s27iP7r/nZGnrmY/FHnbDYUp4z8CAGXc +//pwP4mVOUwT3uM/OAK+HYBrdj+Qja/U9s/kP3i9djkRsX0/nnrnqJS35T9q +6J1R1VGCP7Bc4cjslOY/Gp6GLaahhT/FM500/2fnP8h/dTD7x4g/2/HBwEcm +6D9MK/t0aJ2LPxnzFIor3ug/TKtxtolZjj97N5aQqo/pP+R/bHovfpA/Ar9F +1MQ66j9elBgY9MKRP66JI1V63+o/FBM9tBL7kj+Cly8Ty33rPw782U6LJpQ/ +fOhpDrcV7D9ET+/nXUWVP5t80kY+p+w/uAx9f4pXlj9XLUd5IRntPwLeELC+ +LZc/JSvEMw== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA6srzcg827j9bqpSPPUWZPxY9AAX9 +SO4/ga8ZjsxomT+MxktLDQzvP7gpv9XG1po/JRZl1ujF7z8mv56d/DKcP/EV +JtNHO/A/ym+45W19nT/jg4DdAI/wP6Y7DK4atp4/6NRBih/e8D+7Ipr2At2f +P/4IatmjKPE/ghKxXxN5oD91wUFmCXXxP5zNE9zqBqE/1Yeduiq+8T99vW9f +lo6hPyFcfdYHBPI/K+LE6RUQoj9WPuG5oEbyP6E7E3tpi6I/fyw11wXC8j/s +jJuyjG+jP1BSmRJaMPM/XbEIBgA7pD+1M9WNVXvzPwRiaOsExaQ/td7IJz3C +8z+C4gYRdUelP1BTdOAQBfQ/0TLkdlDCpT+Gkde30EP0P/ZSAB2XNaY/yGrF +whS19D++AvUpZgWnP3lqkkgJFvU/2PHkN+K2pz/zOpXbTWr1PwFWTdDgUKg/ +joYkDoK19T/wZKt8N9qoPzCP6FG5MPY/MYNIEe26qT/PkUGKf0z2P+tUXfaC +7ak/ZmZmZmZm9j/pJjEIrByqP9Wzw8mDvPY/KmUOHlC5qj9uProyef72P+UW +/vU+Mas/JkY5TGBd9z9BtvgP3N2rPz2k85YjdPc/uZ7jTVYHrD9H0uUN + "]]}, + {Arrowheads[{{0.05304411589913132, 1.}}], ArrowBox[CompressedData[" +1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAA2LkUuZ6T9z9erkFVf1qsP1nEcCOQ +k/c/hZovcGparD+nHCbpNH73P3Yj1OnTO6w/0Uzd2F8C9z/heQeNqYqrP7Vm +LX/OufY/LolGN/Aiqz9nRmfJJWr2P4wk2KQesao/jC9GB+wW9j/XTVHGVzqq +P9kxX0ZewvU/yGj+cuDBqT/vEi6HkGr1Py2/HWvrRKk/ZZguypYN9T/Umu1u +q8CoP5akWB5/jvQ/iFBLXSwMqD8ai6l7QhL0P0Z9OKUgXKc/68SFK0ib8z/W +ZyWrzbOmP/CgVXgXLfM/JJDCGkAYpj9eBYqNJMjyPz7NAmEGiqU/Lc4lrx9v +8j+rPsoO7AylP+Se7yiMFfI/tmETnS+PpD+NE8uVLMfxP2iwpSwpIaQ/JUBE +LZ5O8T84Wm6CGHijPzU7JY+T/vA/38HCZhIIoz9SDUBhhszwPw6iB+GZwqI/ +eLlEMJWf8D87/QLENISiP5QvYPjAiPA/4sznZHBkoj/aGh8nm3zwP54ytaSL +U6I/Uf630w== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.04133100022392696, 1.}}], ArrowBox[CompressedData[" +1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAGzTOyeik+z9gVgzAUJWxPxFxzbyC +b/s/2GyRV1xlsT+7l0WQSyT7P0Q+iQO3IbE/F3a6+rkB+z+k00LlmAKxP+F6 +FK5H4fo/TDeJQWDlsD/SxrMnk376PzLnONlSjLA/6rIs/Nkv+j9bJWaCNkWw +P8OoAGX8s/k/w7lzmnaqrz9Trc4t0Wz5P8vIYpCBKa8/0l6CgjBD+T8lbznt +7t2uP3V3807eJ/k/O5LK4Tesrj9UPyhl5Bj5P+H1rwnckK4/+TSp368Q+T/L +Oo6qxIGuP2WjNIlQDPk/UmT8e6B5rj9kNdm0Bgr5P+OWQPpCda4/rGgRpjkM ++T8NihaU/XauP2ZqyVRlE/k/Eh+6W0qBrj8m7CCxlhr5P4U+EQeji64/fLly ++XEi+T9vI7jH75auP5OResn1dPk/OLTYeqYNrz94xIrGNO75P+zHR8QuvK8/ +RB/5a9kx+j8eX11A1w6wP2HALoqOhvo/w93FrfFLsD+svqbpQNn6P4KYtqSd +h7A/dyPgicI++z8tdd1q4dCwP/o1GMZrofs/7pnady8YsT8gVqjp7fT7P2d8 +0VSaVLE//qLg4w== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAEvcmkjI2+D9gVgzAUJWxPwAAAAAA +APg/nMQgsHJosT/WQde08bD3P/6VS9D4JrE/Gt23VRll9z8wTga9IeiwP4sC +abuJGvc/GsktlViqsD/m4rG+Vc/2P6jinncIbLA/qFKcx0mF9j8FrTi/qy6w +P1IjlvREPvY/DkAC3pfnrz8lgfwvdvj1Py7gHsTVc68/Y5gsZAyy9T9Bo/Xm +FP+uP+80C+NLa/U/d8sr2sWJrj/Sr+kMryX1PyNV8rdWFq4/DgnI4TXh9D9D +QEmAx6StP6JApmHgnfQ/2IwwMxg1rT+OVoSMrlv0P+I6qNBIx6w/0kpiYqAa +9D9hSrBYWVusP3AdQOO12vM/VLtIy0nxqz9lzh0P75vzP7yNcSgaias/o3qr +rYIh8z966vec4r2qP9j+3YMRq/I/KvTGsDr5qT8FW7WRmzjyP8qq3mMiO6k/ +KI8x1yDK8T9eDj+2mYOoP8G0+ZVhX/E/4CNCrjjSpz9O5bQPHvjwP07wQVKX +Jqc/ziBjRFaU8D+pcz6itYCmP0FnBDQKNPA/7603npPgpT94wgXmp+XvP52B +6AkcdKU/DdSXGNW47z8Iws0a006lPyZE4ZQ= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAJJioAsyb7j/t0bRtrmGkP0zxUxKf +ce4/LqsM15U+pD96nOJduojtP+0dxfS6fKM/4BuX2hir7D/90vH4LsSiP8lB +GfIB2Os/DALDD1sUoj944BAOvQ7rP8TiaGWobKE/OMolmJFO6j/VrBMmgMyg +P03R//nGluk/6ZfzfUszoD8bVIVMS+foP37UL3L1QZ8/bsg58j9A6D9/BG5u +TyueP66jMEM5oec/tnf3A/QhnT9AW32XywnnPwDmIUYyJZw/j2QzR4t55j8+ +B0NIWTSbP/80ZqoM8OU/TZOwHbhOmj/5QSkZ5GzlPwxCwNmdc5k/5QCQ66Xv +5D9by8ePWaKYP3pc4EmcBuQ/g1UZxdAclz903dQXvzPjPwpHWe4hvJU/UyNt +q+B04j/N0ziytHyUP5PNqFrTx+E/pS9pt/Bakz/QuO9iESvhP+JSqHVPVJI/ +ti2c83Sd4D9bOCnc5maRP9ptmU1gHeA/vJfMRAmQkD+ndaVja1LfP1xR5hIS +mo8/t56YMQQ03j/eqiz45LiNP5bxdBUePN0/yE7o/OkXjD8gvTRNh2TcP8EB +AY3WrIo/WAYymqHQ2z9ZC6yhebOJP3d03xU= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAAm+BqFJaW2T8+aSzCDe+FP2x/I54A +iNk/25vMlVHWhT+m71Qya1fYP0Y1vbSqzYM/69BjSS601z+JzJJIPLGCP5nV +aRUiWtc/SDzSZWsOgj9XJOehujXXP6hA9qsyxYE/yo5ZtTAt1z+4NnpScaqB +P6JBCwUbPtc/pQ0MSB6ugT/niP+ROE/XP3gUO/0zvoE/nmSRSLtj1z86lTTx +ntOBP29X6pQwetc/aFo+VSDsgT8SOBDa6JHXP6E5qr6RBoI/agilzmaq1z+L +tMGNMiKCP+Y3tfdkSNg/dWFx6rzWgj9SHjRnsvfYPzwygKW3oYM/yQlwaTa3 +2T9a1mSwP4GEP7JvjPrkRds/ZcR+UepYhj8GYpltfQ3dP+YaqwkKe4g/muT6 +8I4I3z9OfmMEHOWKP8GOv4FgDOA/+3p4sEk1jD9pEEj1LJvgP9shhtSrl40/ +lloCnu4t4T8QhepSMgaPPx2g+LmuwuE/SGsOXXo+kD9IBlmx9FriPydwcMeh +/5A/XbJR7Ef44j8fNv2qN8iRP8yjdZd29eM/rkY8MZgOkz8eQceKr/DkP0ed +2W0gV5Q/oo1LeiPm5T++e9ZOF5qVP8FtQjJi0eY//+nlzb3Rlj9ou24LPLHn +P4qCpqnJ+5c/RZLrggeC6D8wdnCaxxKZP3gf8o65bOk/K2uFRT9Omj9YOf3a +0z7qP3MILXlaaZs/8NHLFuH56j+K0+cBWGacPydYQ8aUF+s/oZoxMp+OnD+t +2RIF + "]]}, + {Arrowheads[{{0.013563930377694539`, 1.}}], + ArrowBox[{{0.8814385825963816, 0.029365615378625563`}, { + 0.8957606336781073, 0.02997755484948713}, {0.9222244404420676, + 0.031115498623497845`}, {0.9504237569145363, 0.03233247569766802}, { + 0.9706618972619726, 0.033216370313092554`}, {0.9859358927458397, + 0.033846893353603705`}, {0.9904372069878413, 0.03413911175342361}, { + 0.9861274844845557, 0.03389768613518458}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAj4ESIPlf6j9gVgzAUJWxP8Qucsy9 +Meo/Lh9MiH52sT+YTVloUmXpPxGJO/A27rA/ru1gC5me6D8gSetcu2mwPwgP +ibWR3ec/uL62nBfSrz+msdFmPCLnP4iXF4lQ2K4/iNU6H5ls5j+1HPl+Ieat +P6t6xN6nvOU/Ok5bfor7rD8SoW6laBLlPxosPoeLGKw/vEg5c9tt5D9RtqGZ +JD2rP19WqpMWzuM/KnM4Gh5oqj8zMzMzMzPjP5qZmZmZmak/G1A8VpCA4j8k +wKUda6uoP9hfHgid1OE/IdV9tSbGpz9M4ad0si7hPxHX3/Dt6KY/11TpNwiP +4D/KGzf1ChSmP4sWXJlO3t8/CA/oEN8+pT8kc2K2MqrePxiiQSR3caQ/eL/l +xryB3T/81EMv06ujP4r75crsZNw/sqfuMfPtoj+lJvho6VLbP2/E+kVGN6I/ +GkCxR9lK2j9o1SCFO4ehP+hHEWe8TNk/m9pg79LdoD8QPhjHkljYPwvUuoQM +O6A/CI1oeT+L1j+2ZotM/w6eP5/E744F4NQ/KQaVvlzVmz8zCn4C6GrTP0S4 +UgPg45k//gHTdg== + "]]}, + {Arrowheads[{{0.028860936174951033`, 1.}}], + ArrowBox[{{0.2686790133350163, 0.022389917777918027`}, { + 0.26753753998876206`, 0.022294794999063505`}, {0.242410605182357, + 0.020200883765196416`}, {0.21953971790452684`, 0.0182949764920439}, { + 0.1987347162871762, 0.016561094384258783`}, {0.17992729568410876`, + 0.014993338001839253`}, {0.1628968299217543, 0.013573208710601786`}, { + 0.1474226928265427, 0.012282207876362859`}, {0.12076444810080444`, + 0.010051535134312757`}, {0.09919464843340688, 0.008229206886553186}, { + 0.08186150410534604, 0.006739472765765661}, {0.06807112283086962, + 0.005521913972532075}, {0.04660386749783553, 0.003495422102306679}, { + 0.035002577532831994`, 0.0022067274430240006`}, {0.02972722853352891, + 0.001393411722842523}, {0.02837584986343774, + 0.0008841633620723373}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA8AZ0aXNq6j8RZrro5tqBvzTVcf3T +3uo//zcOcGmyf78ac5lK+3TrP9mN4EZIh3q/Zs9EhnkI7D9/Q82mgHV1vxjq +c7BOmew//FjUjxJ9cL8uwybJeiftP46c6wP8O2e/rFpd0P2y7T+Wjcb0C2Fb +v4+wF8bXO+4/pMI+DAxfQb/XxFWqCMLuP1qXPIgzOUM/hpcXfZBF7z9wefJp +U4NbP9BgU2Jzye8/b+OB8Xe7Zj/anC8COyfwPzx/MCV4ym8/snlllpxo8D9r +mEk1ild0P4Yvk9Iup/A/eAwcbtuUeD9fIRhkWiLxP346h9wHdYA/mpmZmZmZ +8T97FK5H4XqEPzot+YibGPI/4rQ/fDy6iD/tIo2oOZPyPwYabf230Iw/D0Y7 +ryEK8z9oRPjYf2KQPy2oYbUZffM/0J9wJm1Kkj+GEd0pTPDzP/hzHe57M5Q/ +Uch6egNg9D+i3WkdlwyWP4/MOqc/zPQ/0txVtL7Vlz8+Hh2wADX1P4Bx4bLy +jpk/F3/4YgyN9T/hRbtm1gCbPy4rxzQ= + "]]}, + {Arrowheads[{{0.04381140769588504, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAw1ePJnQb9j/qUpFlnVWdP025bd6C +XfY/XO2tv99pnj8GPIQOx7r2Pxt5KDH17p8/zGuH5YEV9z9rR38ATrSgPybO +EPrybfc/p0N4KwFsoT8UYyBMGsT3P0IxfxmUHqI/mCq22/cX+D87EJTKBsyi +Pz+O+DCvdfg/upgaXHaNoz9yzhPZFtH4P0YBgq7MSaQ/NOsH1C4q+T/iScrB +CQGlP4Dk1CH3gPk/iHLzlS2zpT9bunrCb9X5P0B7/So4YKY/w2z5tZgn+j8E +ZOiAKQinP7j7UPxxd/o/1Sy0lwGrpz84Z4GV+8T6P7XVYG/ASKg/n0uJ/40Q ++z/ClX/7MeKoP0VFZ7iBWvs/H6ShLyJ4qT8qVBvA1qL7P8oAxwuRCqo/THil +Fo3p+z/Cq++PfpmqPyBWqOnt9Ps/x2QjZXSwqj9cW6Fe + "]]}}}}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.04], + PointBox[{{0.11925857467502134`, 0.0012816963412298388`}, { + 0.2743855351334897, 0.0055936134213117}, {1.0263488816675757`, + 0.035616622834469376`}, {1.5472972037552453`, 0.05868462265659892}}, + VertexColors -> { + GrayLevel[0], + RGBColor[0, 0, 1], + GrayLevel[0], + RGBColor[0, 0, 1]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.11925857467502134`, + GrayLevel[0]}, {0.2743855351334897, + RGBColor[0, 0, 1]}, {1.0263488816675757`, + GrayLevel[0]}, {1.5472972037552453`, + RGBColor[0, 0, 1]}}, {{0.0012816963412298388`, + GrayLevel[0]}, {0.0055936134213117, + RGBColor[0, 0, 1]}, {0.035616622834469376`, + GrayLevel[0]}, {0.05868462265659892, + RGBColor[0, 0, 1]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-0.2807414253249787, + 1.7472972037552452`}, {-0.008718303658770162, 0.06868462265659891}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.699340739683754*^9, 3.6993407654950943`*^9}, { + 3.699340826663845*^9, 3.699340934443329*^9}, {3.6993482987669783`*^9, + 3.699348313912451*^9}, {3.699348566073593*^9, 3.699348712609359*^9}, { + 3.709997288519692*^9, 3.709997302148498*^9}, {3.710821697516238*^9, + 3.710821727164421*^9}, 3.710821772569436*^9, 3.7108218066543627`*^9, { + 3.7108218455623693`*^9, 3.710821874105384*^9}}] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.709286937522565*^9, 3.709286956604727*^9}, + 3.709287029773843*^9}] +}, +WindowSize->{971, 781}, +WindowMargins->{{158, Automatic}, {Automatic, 0}}, +PrintingCopies->1, +PrintingPageRange->{1, Automatic}, +FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \ +2015)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[579, 22, 28949, 720, 1406, "Input"], +Cell[29531, 744, 9599, 171, 134, "Output"], +Cell[CellGroupData[{ +Cell[39155, 919, 2472, 36, 21, "Print"], +Cell[41630, 957, 2557, 37, 22, "Print"], +Cell[44190, 996, 2573, 37, 22, "Print"], +Cell[46766, 1035, 2708, 41, 22, "Print"] +}, Open ]], +Cell[49489, 1079, 23793, 428, 375, "Output"] +}, Open ]], +Cell[73297, 1510, 92, 1, 28, "Input"], +Cell[CellGroupData[{ +Cell[73414, 1515, 27647, 733, 1525, "Input"], +Cell[101064, 2250, 14178, 246, 134, "Output"], +Cell[CellGroupData[{ +Cell[115267, 2500, 914, 16, 21, "Print"], +Cell[116184, 2518, 978, 16, 22, "Print"], +Cell[117165, 2536, 1100, 19, 22, "Print"], +Cell[118268, 2557, 1383, 24, 22, "Print"] +}, Open ]], +Cell[119666, 2584, 22332, 400, 375, "Output"] +}, Open ]], +Cell[142013, 2987, 92, 1, 28, "Input"], +Cell[CellGroupData[{ +Cell[142130, 2992, 26424, 736, 1576, "Input"], +Cell[168557, 3730, 15418, 274, 134, "Output"], +Cell[CellGroupData[{ +Cell[184000, 4008, 630, 12, 21, "Print"], +Cell[184633, 4022, 714, 13, 22, "Print"], +Cell[185350, 4037, 958, 18, 22, "Print"], +Cell[186311, 4057, 1355, 25, 40, "Print"] +}, Open ]], +Cell[187681, 4085, 28641, 519, 375, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216359, 4609, 33462, 855, 1746, "Input"], +Cell[249824, 5466, 17233, 306, 134, "Output"], +Cell[CellGroupData[{ +Cell[267082, 5776, 1395, 22, 21, "Print"], +Cell[268480, 5800, 1417, 22, 22, "Print"], +Cell[269900, 5824, 1797, 29, 22, "Print"], +Cell[271700, 5855, 2316, 38, 38, "Print"] +}, Open ]], +Cell[274031, 5896, 13054, 245, 409, "Output"] +}, Open ]], +Cell[287100, 6144, 118, 2, 28, "Input"] +} +] +*) + +(* End of internal cache information *) diff --git a/Figure_2_characteristic_functions_and_steady states.pdf b/Figure_2_characteristic_functions_and_steady states.pdf new file mode 100755 index 0000000..3e269c7 Binary files /dev/null and b/Figure_2_characteristic_functions_and_steady states.pdf differ diff --git a/Figure_3_persistent_state.nb b/Figure_3_persistent_state.nb new file mode 100755 index 0000000..5a3429e --- /dev/null +++ b/Figure_3_persistent_state.nb @@ -0,0 +1,4140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 10.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 203014, 4131] +NotebookOptionsPosition[ 202060, 4096] +NotebookOutlinePosition[ 202416, 4112] +CellTagsIndexPosition[ 202373, 4109] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Figure", " ", "3", + RowBox[{"(", "A", ")"}]}], ",", " ", + RowBox[{"unstable", " ", "persistent", " ", "state"}]}], " ", "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cplus", ",", "cminus", ",", "F", ",", "P", + ",", "Z", ",", "z0", ",", "Z", ",", "re1", ",", "ri1", ",", "re2", ",", + "ri2", ",", "plot1", ",", "plot2", ",", "plot3", ",", "plot4", ",", "Ge", + ",", "Gi"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "0.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0."}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0."}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cminus", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jie", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jee", "*", "gi"}], "+", + "ge"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".05"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", "1.65"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\<, z2=\>\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", "\"\<, z3=\>\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Three", " ", "steady", " ", "states", " ", "in", " ", "the", " ", + "phase", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", + ",", " ", "\"\<, ri1=\>\"", ",", " ", "ri1", ",", " ", "\"\<; re2=\>\"", + ",", " ", "re2", ",", " ", "\"\<, ri2=\>\"", ",", " ", "ri2", ",", + " ", "\"\<; re3=\>\"", ",", " ", "re3", ",", " ", "\"\<, ri3=\>\"", + ",", " ", "ri3"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "hand", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], + RowBox[{"(*", + RowBox[{ + "Define", " ", "the", " ", "plot", " ", "region", " ", "around", " ", + "the", " ", "steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"re1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re3", "+", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri3", "+", "1"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1."}], ",", "4."}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.9", ",", "5."}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.5", ",", ".7"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.5", ",", "2.3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5.", ",", "5.4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "3.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.1", ",", "4.6"}], "}"}]}], "}"}], ",", "Automatic", + ",", + RowBox[{"Scaled", "[", "3", "]"}]}], "}"}]}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.04", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "ri2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "ri3"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", "Blue", ",", "Red"}], "}"}]}]}], "]"}]}], + "}"}]}], ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "Red"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri3", ",", "Red"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", + + RowBox[{"PlotPoints", "\[Rule]", "70"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"plot3", ",", "plot4"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.691233851363155*^9, 3.69123386829986*^9}, { + 3.691234713953621*^9, 3.691234715300921*^9}, {3.6912348525275908`*^9, + 3.691234854163165*^9}, {3.6936578783691998`*^9, 3.693657923709656*^9}, { + 3.693657996005556*^9, 3.6936582025770884`*^9}, {3.693658253258522*^9, + 3.693658324679658*^9}, {3.693658364973742*^9, 3.693658457260125*^9}, { + 3.69365852626241*^9, 3.693658531556343*^9}, 3.693658688538712*^9, { + 3.699350090443039*^9, 3.699350127592174*^9}, {3.6993573955971947`*^9, + 3.699357403328524*^9}, {3.6993575030910273`*^9, 3.699357563681204*^9}, { + 3.6993576427273817`*^9, 3.699357675086604*^9}, {3.699357705408409*^9, + 3.699357714093705*^9}, {3.710001281377145*^9, 3.710001287801057*^9}, { + 3.710001320734537*^9, 3.710001381620908*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999998775510204, -0.0009999998775510205}, \ +{-0.009981596925517519, -0.000998159692551752}, {-0.009963195075524832, \ +-0.0009963195075524832}, {-0.00992639137553946, -0.0009926391375539461}, \ +{-0.009852783975568718, -0.0009852783975568718}, {-0.009705569175627232, \ +-0.0009705569175627233}, {-0.00941113957574426, -0.000941113957574426}, \ +{-0.008822280375978318, -0.0008822280375978318}, {-0.007545498675056164, \ +-0.0007545498675056165}, {-0.006353327134634622, -0.0006353327134634622}, \ +{-0.005184541267416732, -0.0005184541267416733}, {-0.003916692098808575, \ +-0.0003916692098808576}, {-0.0027334530907010307`, -0.0002733453090701031}, \ +{-0.0014511507812032195`, -0.00014511507812032195`}, \ +{-0.00019223414490906064`, -0.000019223414490906064`}, \ +{-0.000019132653061224482`, -1.9132653061224485`*^-6}}], + LineBox[CompressedData[" +1:eJwVzns41XcAx/GDMkTu64yD57DVnqiYXB7P+FhNs8cltxOeeFxyGbmdc75i +cmnuuZ8jjuMop0P46QxhTmiNZgyZrQdrimXDI5daR3vSwtb+eD+vf9/M8ESf +SEUajeb0tv/d2RoxZRzwQq7tLEN49z040TdPKKSFY3wmJOf9iiMIbq65rWQX +B2F0zHgT3xaprKXijAUOwuyGVj60dUIpv48VqJmKQ1s0BV3nk/BWFQ2mL6aj +OlsabW/8GW7NPTIb0PoK09/Y0LtOu2HG14P5ryQHOxEzgT/Gn8aDqKHnCyr5 +GGnn/VQo8QYRBI53SwqxspvBW5P54lnEyxRzrWLYrTOD1ykW9nt9bcW/VQoN +E9tj/T/44wPpos5Zswp8r7IRtPprINozk/++68+Dt+5Sbe/wWaiHVs0bNPER +Wd0Zlvh7MKY17Ttc5ythqqqxOTwVAgtPdROWVhXua5hYfvIkFGdEiVcCg6rx +T3VJkslaGNZ7WPJjfAGaTmUEeCyGg7UwdmZ3oQYvGvYN5cvPwb2WHXDTvBYk +qktp500E2pmiE4dDRBCod1sMbEZiSeZrfV1ah1ajydlrtGgUMMrVV/+8Cv95 +WsTom2jINLeztfXr8eIar/Wo/AvMqWxn0S3FcJ7SCh/YiYE+u/8j3pgYKp1c +beGrWMhC763s5VzHpOnHFlLlOJTL1CrP7Zegnxuyb8+eeLRNrxV3NEugybe6 +KNqOh+1FvcLXHg0IylHquaSWiJcFmanmTxswZH3+vrdSEhgMy7hAXiMMHPea +6pQkoTglre2C7Q0EKDdIU3XYsHRQXkr/+QY6a01bX5ez4ZT7m3FWShPU3I5L +j9M5yLZ55h6r2wzJ0IZ2oYADjTbR6KfSZmyfMOJl6HGh2FbxuaFPC4zf9RPY +13FxRH/k29n1FtiIx8XKhgS57uq9pc9bEJ8zZOFoRPA4x7vbWd6C76Ju93NN +CErkj1qbXrVAP5X/xxMzgvXJvwQcRQq7E3S/fguC1iIDjhqdgmpxz3CSE8Eh +WsJBh5MUOs+nrs+FEWTadTE3XCjo+7Mf6kUQzCRsMcSuFFKqEkfcogjy57J1 +lT0pVLEy2npjCZb7BLQHARR61pbFVVyCxuTB2ZgECqNdDgc88wi2pcozDDaF +p3nt1nkFBH6Lbr9McimkTR31vXOZQMl3ZsTmSwquVp6iw2UE4ZZr3Qq5FIzl +dK93BAR90ZYd3fkUTnWs5joJCXTqk29GX6YgyBq9kywiuKdBk0yUUdCua7dZ +rCcwcHG5eolHIaZMdsFQQsBJL6qxvkLB5fFEn08jwVjXZOVyNQXHh3KFoiYC +5ppeuVD49m/qoPtgC8F/HXPLUg== + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.05}, {-0.0009999998775510205, + 0.005043749874336736}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.00999996612244898, + 0.00999996612244898}, {-0.009490848272651342, + 0.009490848272651342}, {-0.008981730422853704, + 0.008981730422853704}, {-0.007963494723258425, + 0.007963494723258425}, {-0.00592702332406787, + 0.00592702332406787}, {-0.0018540805256867599`, + 0.0018540805256867599`}, {-0.0005293367346938775, + 0.0005293367346938775}}], LineBox[CompressedData[" +1:eJwVl3k8lc8XxykiuwilrKVS+UqiqI4kKUslKSUlS4iIRCWhVYSokKWSiJAk +OyNbQsW918517Ut293nutf/m99fzej/PzJwzZ875nHnkr7ia2q3g4OAo5uTg ++P/zYOieMNfK28D/QOEsf+VtdLpqfLOSXCSEvQ28+1Y6EjkWR3xZl5QOU6Lr +W6fvp6ORm4YZSXq50LTHXqhvLgfV/bWJbg1CoFLm5sVPK0FHqaPnzhyugIDt +oQ7+fuVol8ehbatvVoO3i8mxTxt/Ir4GPZHgpTp4USO+0Fteg+Kqf5WO5dfD +VLPuYBjPHzS/wlda+w8FbJxdU5Mv1aPLuyQmoJkCAXv+ZW23q0dVlzLK9BgU +uNu7cDnNqR6FFdEdTaYpcK/6SfIHz3qkdAvyrCWoMFRa9dUxqB6dHOY489SK +CoJgfdY0px4l/X0Q0jhOhQ8W9XXPVjegk7GBnG7CjRA9lvoVPjYgmaWUa+2S +jSAbrrwqPKUBjV2qadSXa4RGqplEd3oDeqbIn7pxVyMMqj6x9cxpQOWpwaa1 +po0gEe718tbPBqSRH/pB6XUjcF45rtg21IA2Nr060rmhCdZT57g2bqOgUc2c +Lwabm0A2ef1prp0UVBDdtC57ZxOYbhnePaRKQeYXJcefHWyCgBeenz7upaCw +vqjXey83gcLlx/tYRymIayZmMOJDE8g4+nfO2FHQiHBC4HHlZpiyUobjbyno +Hm9zcJBaM3zmlFv+kkBBIpwCYXVazWB064fRmiQK0pj2fG1i2AybWvYH16VR +0APasQ+mzs3gdCLojmQBBW2Inio6n9EMXfqXeFfRKMhY4dCkk1oLDO86/ewA +NxUx1t+a+azVAuLCthlqvFR0U+wzOarbAh153fs28VPRG661i9dPt8DJLZcC +FkSoaGBgaLXHzRaICObJ899ARb6fwxTv5rTACu+rnzvVqChTnWEepNUKup26 +l6mWVISe6bLvH26Fb+VTFoGXqOgPIzH6plErRJ1d+U/rChWNBjt2XLRqhbXo +0O+wq1S0tX/aWjWgFVw2NF/lcaeit6+4XRp/tcLLa4IfZB5TUca/q0I1lFbQ +mo28+PwpFRUdqvlS0t4KzrmWkaxnVNQ2FjKdPNYKwVPPA0pCqUhCX8r7jmgb +XF9hJygRTUUhpPIDWYs2CI/t/zCSSkVxRs83iV9pA/ebd+JE0qkoLWGikvda +GzCS9i3t+kJFNSbZvNM+beCbpTFh/42KViUfCKl41wZTV1Tsogvx/s+ejHYc +aoP8k49OydZS0fP0LC2rqTZQePtv9XwdFcWuXNthOtcGQ8uPRSl/qKjgS6vM +foF2SPe24XWnUBHJY5MopNoO2RKDTrdbqcglz/PLN692CPCT/J44gON96PKg +kF87KLy8IrJ+iIqsao/LOj1th5KTgYeChqnIhC4bKhfdDu6ar+SsR6lIhavm ++vOCdrBbbv/SNkVF4ydkVK4utoNOzkZurgUqsm/ltS/j7gCF3ms7NRapiH5l +Jm6jUAdYnjaRsl3C5+NZLUiT6YCkO5y7vnHQUEaM+5iOTgdcrvMzkuGmoeuD +VWnrH3SAhraG7BZBGhpw+9rnGdQBb8p+McSFaMhqLmZDQ0QHuIuUn1rCbCJ4 +I/hJYgc4TskcqBChIZXd0s7Myg5I01sttUGchpKKuBNP/OkAh7Kzuwcxy+hP +tqc2dYBvsi8zfS0NCVlUGloPdoDWUpiNiiQNjfu6bv/D2wl3jFyoc+toyJ73 +vM020U7o/qa4kLCehugv9GIeruuErVw7fuhL09CfxHX82sqd4Kp5Q9p/Aw3p +q3Adfq3WCezfxhmSG2moJHf8zpRWJ6RlF7akYM6oKR9JNuyEVIngiVIZGlIy +y1BYadYJSTtCW4/I0lB8Z9R5K8tOcK62Na/CHDLpUiPu0glzvDUrC+RoaNWd +cyvcPPH33fO7dsrTkO/Kw1q19zph78Sh8RjMrhJSqf4hnVDiYibgrEBDVxb/ +8wuL7AS5iBrbRszmfUfN377rhJdiz333KdLQ8dpLOzJSOkHl+/pzUZgPZnmt +KM7qBHGH6YkpzGrRoS21hZ2QqR+hp78J++uXnNFW0QlDr3zMXmEWMmk+z27q +hA2uSu8UN9PQij0TqjyMTmg5N9ByBTMpzcMjMdwJQh5jVbGYR1bIdm6a7oTi +1kKHBsz0YY1vu+c74TatoYhDiYYo9SaBulx0eNf05Ycy5qpc+0unBOnw9H6T +5wnMBfG+ey5L0CHzTVXzdcwZj17zu8rSYUaWc+Ap5gTnjO57W+lQsJvnbRzm +16ercoN30UFly3nOdMzPtOjPY7ToYON9lz8Xs688aZN6mA6RlNHCQszuvEJa ++UZ0OCekKvp/tp/YLFJ9hg5Fu36u/o75fNOBgSYrOkS7qSemYDYuPlPUf5UO +qTvm6FGYdRJdwpludKAQb/ICMKsHPXJYeYcOus+i/7uKeat73ME1D+iQ3eSt +q495g8V3cflgOsSThROymEV0fo/894oOV9QH9jBxfLi29JcejKfD49V3xcox +swUXXxsn02FAZulxMOZRpriLZSYdRo1mQk5iZrTvOHwtnw6FMfRtwphpZXrr +7pTRwf2wnnk1Pq/qFMuJp7V0MEv7tMYHc1HYzcpIGh1WuYZdVMac6RUck9RJ +h1Izvz1UfP6JVok3vg/QIeDsYtQtzEE7aBupbDqcfvFtIQ3nk6/Y6Ew3Zxfs +y2LNAmb3uZU1k3xdoFNB9/mN8/F89e5bQhu7QDkrXbAF56+ybcSfY4e6gM+d +U+0zzn8Zw8+J5453gdo9od1rMK9RK79z9XQXrHw6k+6B62VueVrpkV0XDI3b +8Cvh+qqJMb1fGtgFWQnF2ga4PksCnM78De+ChD6HngApGspyDNhOj+mC8XUq +rFxcz280s5rn07tA5Mh2O1EJGnKkiqpqUrrANnNpm/8aGlI4dfCtdHsX7L0Q +GR4hSkNtf5yEOPq6QF8g78U7rCdGNeWj1UQXmIUKmqRivYlkFJilCzDgYa13 +lA8fDd2UPRUsK8qAHQQKsVlNQyetBstfrGVA35NgkSO8NMTbIbb7lgwDSu7v +/crC+na72VkUVBmgFHRbR5oT16PEymNf1Rmwxuqpc9MyFamdifZT3McAgf1b +1gVjvRyhVE7w6DLgxI348YF5KrL8I/On/jQDvA/o2J4nqehgZf2zK14MSKq4 +eUxzhIrWc10to91lwFoBkfZorOek7uKsvh8DxLfeaSax3n8p3ea4PRCvb2/K +/66XiuSKAo4y3zBAJlJv35cOKlrxTZ3rcQkDKkL8/NBvrN9TNdrsMga4H9Xf +WI37T4GqtYfTTwaoiJkJ1/6iIo+M5z0m9Qy4Ezo+hiqpqC9loFSyhwFlQYWu +dsVU9PNd1L0U7m64PeF4If4zFZ2bdef4u7obZHyCxz1SqGjolPEDpmA39L25 +7a+XTEV8K1cEgkQ3ZFAdE5oScP+xu/ayUakblLekZJXg/krbdvAzp0E3JK19 +sDEO9+uerN4Wi2eYl60zgvB9wIO/5ML9kG5Izp5RRhZUxGUbRU8M7waTRbtH +Y+ZUtHmtcd/Em254bVj8V+sUFTl45Uw8+twNh63mYiOPUNGEduCqrLpuqLN/ +omqxk4oWKlTU+YR7YLHi1xKTTUGGdbKPA8V6IPTPiqOaBAW9oYq08Er1gM7X +K1YeUxSk2TN9l0e+B1r5rxItwxTkvpxTzrW7BwS/H3ln0UZBQ/vg9LJ5Dyzn +xlX/h+9PtIwT7sz4HvjH/c5NyZOCFHN0Kjw+9MCNCGX5d254fvEuiZnkHvAW +4PcWc6Yg4TqxgqnMHjBPqBMbvEJBx4ebOSfKekDK/jLj0EkKKlW8/GJ4oAcm +Mx/nVuD7Y3qUWyZdpRf0n06Vks0NKDP/o7Ho7l6w8c8YXqQ0oOy2tpHDmr3w +8DC3w/LvBlSw4cjmFOiFZ9rR1lPlDaj63bo3Hid74Z7lxp0vvjSgnk9lD3jd +e0Fga6URetSAJPPFz6p97wWh3Vvm/uxsQOvbjjFt83vB+lQ+W2Yrvh/P+76I +LMb2DM1VHBUa0KYDw7ULlb1wZ4zUGpVoQGo/inV+NvUC5QkFpS3XI6Nf9sqW +7F4wSt6RIlFfj/xb8xYfaffBopVr1BPneqSbwuW0RqcP5P/7JhuB7/dct082 +xev1gV/xQH6kVT16LDWUkWvcB1FJbxWCT9ajZ2clLw9f6oP8Yr4kefV69LLR +s8zoYR/YGt9lL8z8RZ8a1J6I/e6Dirsj/hMcf1H9rzSR91b9UM2lJHlhsg4x ++wKOSdn0g19hnvT+rjokyWEREHq1H2gVU3rCf+qQlQY3855bP6gUCy4Ffa5D +owkXm88H9EPSh70tdLs6tNpHKF48qR/Oh22KGWquRboqbtufjvXD+jn59X5f +a9D38N36rj4DsMGXSLPWqkbF1aVGIk8GweyfjeEfnnKkkzErtfnTEESFxCy4 +c+SjAY59OQI5w8AIsIlT00xCCjv4byWXjABHuHXndo8waFsVOP+98x98Wqye +32mfA9kmgqaRw6NgkHBruDeoAvj0D1wf5R+H0tgRIcUnf4Fcy5HO3DoBL1uP +BkaHNEJAii396rpJkDJ3y1swaIcqWdljoSmTsBCeUuw5wIDYOssNcqpTwMeb +q58n2AfF/b1+fNlTcD45sIKtMQgxTTrVKoenwfyrFPk8bQT4l+S8i6qnwdRd +/sqtrjHYt9jE99BiBh5teqRTHzcJbDWRVd8ZM6Bxf2zkg+Q0rGgMDwc7JmSf +KlxTdnUGhjVOJvpeZUJoy8nVEi4zUB8lmFPsyASrn0fu27vPQLzl01bt60xw +a45uWvCZAe2+e3J7vZjwo87ky9KLGbg545ChGsiEJbGMbtPCGRgQhRr5dCbs +v23qIM3PhN8eC+2XvzDB9UnQMiGM7Tbmj739ygR2t9OdOnEmBESri8rk4PkX +ala5yDBBVl753HrEhD2k6L+7u5hwTnXtwJoGJkx3MazqzJlQY/KPk4tgQuYr +zW1i8UwILj6ev4HFhFK1000SCUww3pHqtmcW+1fbcEEiiQn1qx277BeZ4LtR +kM6bwYTGioGiX9wEPKn3PlRYzASGVo9XqAQBRsNSQac6mEAqtY6t30tAItWr +XhG/z3u19+NuLQI0Ol0/Ra8j4DZXlKXRfgJad6hX8G0kYKHbvPaeDgHZEZRv +dEUCOONonxgGBERcjP1ntIsAAbF6myQLApQWIj0PGhKguFzVuusuAWKvrkqf +xk+9yq/eXvcIGMl6oGPrS4BtUKxk8X0CcvKT1rn6Yz8k3c8YPCSgXiH4940n +eB3VjQ1WzwmQCP7mrxxBwFZrj+qgt9i/46H7bVIIMNhidbXhPQHk75j7AmkE +OI4ZrJJMJCCyZpzvSwYBqbdl9BI+EfDHuofe9Y2A7eG/UN5XArjzbQsmiglQ +KZfN7S8n4ObqtE1l9QSYBPKZb68iQFnwesoChQDXEwTTrZqA93W2q1QbCchs +r1FbqMN+vTu1w7+VgF1Mz4w1TQT8k22yqusmwLTgsvG5FgJCPvJ11PUS4O5n +OBrXRoBP0g9WZT8BWQLyytu6CFCzeTr2fpgA9c11H2GIwP8vu7k5pghcpzl6 +j0YIuLLFPKVimgDPr+97a0bxfoK3fPVn4jgd8JI3x+N8stb+6WMRoGmuEOc8 +R8DRwOZrJksEnNsguD9rgYA5FQPLxmUCvHtYbSz8fkOly00zThLyrv+WerCS +hHNRAYtaXCRoPfF+GS1AgoOLd9yn1SQIeHyKpgmR0Dd+T3SEj4ROq5Z4YVES +vgwTBYp4nJ/G3pRHa0noWTkfdh+PM1VwyCiVJMGc1Z7xXpgERaGob/PrSOjn +ae4rFCGhqp9VfEOGBBPX8Lsta0iIathSniZHwpzsg99tYiQ4Fp+tHlQgQSxu +fF2jOLb/KpdycQsJC1F2D79K4PX1vAaPqZJQ8n3zH971JGxSTR59qEbCkKyV +Qg1mQrp5CqmTEJM1r/5AGq8/o7GwZx+en8rt1bGBBKcue84b2iQMWGlE+mwk +Qbv29aq0AyTcppqdFcd+0RNIEQVdEtrsvkYpy5KQGaIkcVGPBI7DoXwpmP3v +mEtH6ZMgeeHNogz229T+sRzVgIRYYUmnYMybTHM2CxmSoLr5iMEUZvLAgPIx +YxKu/7gUZixPQvU2CdWHJ0hIc4jTeo/5zVr9PegUjsv8fzCK+RrnLa250yQs +f9d7rYLjsH/sI+wxJ+GxMtdeB8xCrY16budIeK0bviEaM6OC+/jn8yRwaQvt +/4E5K3PPiQFLHM/34SEMzA9j7czkL5HANNsjwMJ85ukrC0trEgx9edK5FElQ +ullpFWlDgkTEWsfVmNmXCBuKHT7vk1f3cmOuMdzsKOhAgnvh8ho2nh+jeea6 +gRMJges7J7sxOys+8njgTMI7FvtXGeaDwt+9S66TkCBt8PoNZpH5vnuzbjiO +wQXGjpi7B8QfqHuQ0BukPfT//WVR9J66epIwHf714j+8/4clN5+neuH9mC59 +jMdsnpoY3n8bxy99Kc8A85bXtEg5HxKOFj4LGcbxZftzxV3wJUHvh6eMP+Ya +F/WE134k2KuFXBbGHGthm9wQgO2nxRm9xOfncuRlmsAjEtpJhzZhzCIbmTkB +gSS4UXcWjOB86OHdVFQcRIJKatT8MczfmKd/sJ+T8Jf2vvgtzh/zum+118NJ +GF/WTlDB+bU1r7c+5SUJl1Uks6/i/Jv9INbU95oEQd7NmyNx3sfe9WCcj8Hx +4NJc2YrrwuDmkSDXOBI61rz/MI/zmeksqfHwLQkhelZVazEbWhUGpX8g4ceI +vpcqzn/S/LlG2UecfzYfWKq4PhJOXOpuSsb5u+I7fSuunzmdlZocaSSs36ta +uYTrLWlfY7d4BgnxEWk5Hf+vR7Xk4G2ZOJ/frpz5KkhCqqJhj2k2CTkPD6jq +8pNgsSri+cciEprzRllsbhz3Zdu9BSXYzjW7u2FYDzJZGr1/SnG9VhqJymKd +4B1u28uuwPu6OHRWngPrR61C3/HfJLT0cjzNn8W6/CJLa7KTBGX9S5vU/hFQ +Fviwn4uB48NJcdXE+nY9wDxsXQ+2LzZjsXuQgEqPuX7dARKEH1aNCmF9vGmu +++LVOI7P1/sHzLBOUqQpg1rL2P+RB1yiPwnwFU8MP8HJgisDpiU+Ff/X5VsH +bFeyIKBa6i39BwH+S+sinvOw4CJTMPdhEQGq3dYHGcIsMBi0cLLAOh+aNPXy +kRwLHsW1y8hEE/CGNNnyU4EFNV05zIRXuN/op+XzbmaB+euDidLhBBQM2NOD +trGgZ7Wiw9AzAgaUOraEq7GA7+Ynh3Hcv/YnVxXE67EgLa7Y9sMFrLssRWOG +PgteQYKY9Vms/0f9u+SPscA0vJYtepqAq4PaXB+NWVCcfHi/8XECwrd8Nf5s +zgJdY3rAVtx3h5JjGLkOLMjLS6Y6iBIww2K7zzqxYMblI9tMgIClo+bc2i4s +YHY/S93Ng/vokIhyyQ0WsFZ2B1YvMOHg1sceFXdYYOW9k+fEIBNefnJb1RDM +grKcF9cq85mgk3Jkx0gmC7JLtAT5zJiwedURW+5vLBC8fFQj2ZgJfDZ6sXLf +cbxcwlw1jzKBtuGwwNl8FpR+UBpT1WKCQ5jOaPkPFjC0b/E/kWVCmJd2WhwF +x2u01yd3cAa6j+zacYrJAk65NS79+D5VlaBq60yy4J2/xWKD3QykLf8X+4TN +grqLyD7z4gzcylcRKFlggRxPWqyu8Qzw7dwxqszNBqlLhncKt8+AmviWNC4J +NiyM+6wl+6choGfDjjxNNhTM7/PRPzENUnbWNdX72KC+wsI++Mg0ZAx+dGjV +ZgOvFM2rXHsa2kdVPs4BG+TBY4hr6zSos3RkDhiwIfzd8T7q8hT089uJlJ1j +A/fokTPRaVNgsCedWXubDd5c5MPbc5NAz50K77jLBqHc73b145NwU0tj19g9 +NpgcTpST7J2E94BchALYEM3knfOonYS5Yw0DJ5+xwSkvQcApZhLSrIiWxjds +SJtetfPg3kkQfnqguKuQDRLM61ruNePAdUXw8MYSNrgxPvRFpI3DnHZn9flS +NuxfJ6UfHDIOfRM+tMYKNpz81pzPYToOeWeL/tX+ZkNR/LwK0TSG7wXa6/O6 +2BB2Je36dMsoZFft9QpbOQuWezjmrxWNQMo73sXf3LNQkvCtXDl6BOLvtATw +886C+JnDvkWeIxCo4h3yWAB/VxUzOqcyAlavcz/6rJ2FWIG4Dpe4YeCx16A5 +bJmFAsMzOwj3ITjPrb7rkOEssKVzJyPm+kF59KPlOeNZGJJfalGn9cMsRfKp +64lZKDO7tupzej9EvZunx52eBabetQqJy/3QpF0ePHdhFiqyuWlDZX1wyt10 +6JvzLChI25tc8usFgy63t0ohs2CUw2tBbWWAVFVPzYGwWXi5v9JzMJ0Bg2lm +pFn4LPRU/L3w258Bj+/sNX7wehacaVUiQtsYULGWY74rfhbcji7+QyN0AKNQ +8+gvs6DHIe1zjq8DNPLTBQUaZqGaU7NelbMJCrRHb1lTZ0Gq9Qkt50UjHCxR +ZuQ0zkLewHenUvlG0C9PzrJu+//4RralDg3Mf78/m9s7Cy1WbkezvChwq/vV ++yvkLExGxA5yxf2G3NW+e/Kl5+Akoa5z1rEI9gcXxQvJzEHp8YcXo5wKoFRo +nsdWbg50Io6NFDrmQbWYd5vQZsw/LZMSrbOhZaP7fVuVOeDQWhOV4voJ2Lvs +fwkfwtwe85++UDjyyU5UszuMmafhjVnEG8Sh2RtTcGQO/NITM9+EvUe8+y9f +tzuOWVkgr2x7KpLSPy9WeBqPTwLxH7XfUWx1lI+IObY3vzuUspSL5Ayb++3O +YY4ac96kXoC2njTLE7n4f/vHjoR+LEFplHB5+0vYf1ex+Ea3UqR6puFZofUc +vOuQ+7kq7AfKbhZmitji8Zq0zguZZWjveZOL9vZzcPleVEJjQzn6H12vnB8= + + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 1.65}, {-0.3148640952306691, 1.38355389641328}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.6936581121959867`*^9, {3.693658161002733*^9, 3.693658203211225*^9}, { + 3.693658283038782*^9, 3.69365830044893*^9}, {3.693658367031249*^9, + 3.693658378344777*^9}, {3.693658438988784*^9, 3.693658457910475*^9}, + 3.6936585324333773`*^9, 3.693658690106456*^9, {3.699350119539962*^9, + 3.699350130482479*^9}, 3.6993573679385138`*^9, 3.6993574038336143`*^9, { + 3.69935750875133*^9, 3.699357564251978*^9}, {3.6993576436487017`*^9, + 3.699357721943129*^9}, 3.710001290405777*^9, 3.710001383885766*^9, + 3.7108219126120043`*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "0.35`"}], + SequenceForm["detJ=", 0.35], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693658112112104*^9, {3.6936581609281807`*^9, 3.693658203122939*^9}, { + 3.693658282951302*^9, 3.6936583003645067`*^9}, {3.6936583669526453`*^9, + 3.6936583782673492`*^9}, {3.693658438911178*^9, 3.693658457826231*^9}, + 3.6936585323544064`*^9, 3.69365869002843*^9, {3.699350119446053*^9, + 3.699350130393669*^9}, 3.699357367833222*^9, 3.699357403713605*^9, { + 3.6993575086387377`*^9, 3.699357564155117*^9}, {3.699357643524055*^9, + 3.699357721824606*^9}, 3.7100012904275312`*^9, 3.710001383904258*^9, + 3.710821912626565*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", "0"}], + + SequenceForm["The zero crossing of P is z0=", 0], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693658112112104*^9, {3.6936581609281807`*^9, 3.693658203122939*^9}, { + 3.693658282951302*^9, 3.6936583003645067`*^9}, {3.6936583669526453`*^9, + 3.6936583782673492`*^9}, {3.693658438911178*^9, 3.693658457826231*^9}, + 3.6936585323544064`*^9, 3.69365869002843*^9, {3.699350119446053*^9, + 3.699350130393669*^9}, 3.699357367833222*^9, 3.699357403713605*^9, { + 3.6993575086387377`*^9, 3.699357564155117*^9}, {3.699357643524055*^9, + 3.699357721824606*^9}, 3.7100012904275312`*^9, 3.710001383904258*^9, + 3.710821912630003*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three zero crossings of F are z1=\"\>", "\[InvisibleSpace]", + "0", "\[InvisibleSpace]", "\<\", z2=\"\>", "\[InvisibleSpace]", + "0.8273683195177394`", "\[InvisibleSpace]", "\<\", z3=\"\>", + "\[InvisibleSpace]", "1.6396690944973185`"}], + SequenceForm[ + "Three zero crossings of F are z1=", 0, ", z2=", 0.8273683195177394, + ", z3=", 1.6396690944973185`], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693658112112104*^9, {3.6936581609281807`*^9, 3.693658203122939*^9}, { + 3.693658282951302*^9, 3.6936583003645067`*^9}, {3.6936583669526453`*^9, + 3.6936583782673492`*^9}, {3.693658438911178*^9, 3.693658457826231*^9}, + 3.6936585323544064`*^9, 3.69365869002843*^9, {3.699350119446053*^9, + 3.699350130393669*^9}, 3.699357367833222*^9, 3.699357403713605*^9, { + 3.6993575086387377`*^9, 3.699357564155117*^9}, {3.699357643524055*^9, + 3.699357721824606*^9}, 3.7100012904275312`*^9, 3.710001383904258*^9, + 3.710821912633828*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three steady states of the SSN are re1=\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\", ri1=\"\>", + "\[InvisibleSpace]", "0.`", "\[InvisibleSpace]", "\<\"; re2=\"\>", + "\[InvisibleSpace]", "0.5663653328189516`", + "\[InvisibleSpace]", "\<\", ri2=\"\>", "\[InvisibleSpace]", + "0.02217967971068798`", "\[InvisibleSpace]", "\<\"; re3=\"\>", + "\[InvisibleSpace]", "4.408274528376112`", + "\[InvisibleSpace]", "\<\", ri3=\"\>", "\[InvisibleSpace]", + "4.972742698066851`"}], + SequenceForm[ + "Three steady states of the SSN are re1=", 0, ", ri1=", 0., "; re2=", + 0.5663653328189516, ", ri2=", 0.02217967971068798, "; re3=", + 4.408274528376112, ", ri3=", 4.972742698066851], + Editable->False]], "Print", + CellChangeTimes->{ + 3.693658112112104*^9, {3.6936581609281807`*^9, 3.693658203122939*^9}, { + 3.693658282951302*^9, 3.6936583003645067`*^9}, {3.6936583669526453`*^9, + 3.6936583782673492`*^9}, {3.693658438911178*^9, 3.693658457826231*^9}, + 3.6936585323544064`*^9, 3.69365869002843*^9, {3.699350119446053*^9, + 3.699350130393669*^9}, 3.699357367833222*^9, 3.699357403713605*^9, { + 3.6993575086387377`*^9, 3.699357564155117*^9}, {3.699357643524055*^9, + 3.699357721824606*^9}, 3.7100012904275312`*^9, 3.710001383904258*^9, + 3.710821912637659*^9}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.052417596046828885`, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQDQEf9uOiuzzY26dJvIPTNvoJ/3X83sDpZ34crufj +XsJpqQ+lTuF7n8HpTerMdnxJT+B0HxdXna3rIzgt2flXYGPCAzhdo76QKyvm +LpxemhFuaLz2Bpxeomhi/XzfFTh9uvRYzBubs3B62ymD+funHIHTbUJmuXcZ +98LpJY36j98e2wCn47KfhrMYLYbTy6rvfGq7NhVOT4sS9ORk64TTZgrxm7fX +V8NpAJ+SnRw= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.03700987390744789, 1.}}], + ArrowBox[{{-1., 0.}, {-1., 0.}, {-0.9383479832263565, + 0.}, {-0.8804968573253709, 0.}, {-0.7719442898165816, + 0.}, {-0.6767932591439065, 0.}, {-0.5933728016508156, + 0.}, {-0.49487983847132855`, 0.}, {-0.4128543479774026, + 0.}, {-0.2867975022177558, 0.}, {-0.1990203459757555, + 0.}, {-0.13821355621789713`, 0.}, {-0.07991415622864395, + 0.}, {-0.04572188510711579, 0.}, {-0.026012342149022136`, + 0.}, {-0.014900581693402172`, 0.}, {-0.008186549306843191, 0.}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQjQo+7EfnX/zXxd4ttNQ+bbbUi7Ij7/Zv2eB/Wahj +q73BrsOzz0x5u/9FL3vMo3PH7B+/eOTQY/t6/zzjl96RUy/ZB5Q6Ht4r9HL/ +D+sLurMtb9ovKY6aZD71+X7WaHWNEJUH9vJpLnwx2c/2K8yr9XS+8djefa7j +M632p/uXuzcfqjn33D5ybfKp7MtP9qc/9HeYLvbG/kno8Twlpyf7j7omB4vZ +vLP/LXvm8Cy2J/s7RRbeaIr/YB9UszTN6eTj/VnTNarXdX+0Vza7Idw87fF+ +TvObRpdefbJ/yGiiWZz4eP8j9rNFm42/2Je1mvzeZvJ4v/Jd0e9qW77at6+o +XW3M+ni/e9ePUmnZ7/ZTs1QYY+482n/q3suWJYd+2AvNvZvgseHRfqYJLfK7 +7H7ax+7YIG685NF+AGjwnUM= + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAA46rsFpMH+z96+hvNzHjivz3mJKDN +Hfw/Ct2e/1hf4r9kCzMottH9P4pRyzycOeK/Qkh806XN/z8UEef3rA/iv4FI +wD141gBA7pcKiLHp4b/vMDYQZ+0BQLx9OAv8vuG/dshxm+v0AkAquSt7ypfh +v6dqZ6TBiANA8vMT+TSC4b8w8eyETycEQMLsRVBMa+G/gqHxhxFJBUCBE/rH +CELhvyjYTHJ/6wVAx2RVii4r4b9w+I2ioJkGQFLfBlHZEuG/q7tTC4cyB0Ad +cSH6nP3gv3eP9Do02AdAOCBaN7rm4L/wc3AxqIoIQJ7ssAgxzuC/OmnH7uJJ +CUBK1iVuAbTgvyJ4XxED8glA/M4Tyw+d4L9cGHnPF6gKQJApmEhIhOC/iXww +QKHnCkBW3y0EqHvgv913m2I= + "]]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{3.4746972868825865`, -0.5113103555366472}, { + 3.5303327902526003`, -0.5094259481703705}, { + 3.620580902705858, -0.5063736307563832}, { + 3.7182737125394034`, -0.5030725243249785}, { + 3.8234112197532175`, -0.4995226288761573}, { + 3.9359934243472994`, -0.49572394440991946`}, { + 4.035183676231501, -0.4923774294283518}, { + 4.14250875492195, -0.4887550779149389}, { + 4.2579686604186735`, -0.48485688986968}, { + 4.381563392721707, -0.48068286529257387`}, { + 4.490552940207138, -0.476999040238716}, { + 4.608432167551999, -0.4730098120890168}, { + 4.735201074756291, -0.4687151808434763}, { + 4.87085966182002, -0.4641151465020943}, { + 4.99058130928489, -0.46004974494406276`}, { + 5.120017472925415, -0.45564664165956714`}, { + 5.1486529286561735`, -0.45467104375232853`}}]}, + {Arrowheads[{{0.0055268357460315515`, 1.}}], + ArrowBox[{{5.260249085135339, -0.45086897246657315`}, { + 5.332386436215476, -0.4484087959957064}, { + 5.408033348733337, -0.44582732991118695`}, { + 5.408274528376112, -0.44581908744384363`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQEf9kNoAQd0/oFzE80zXN7vh9D8Div7DA4Z9b7b +D6H5HPbNPZgkfuvtfgjN68BgtFhXT/vtfgjN6zB/yeeEpeVv9kNoHocfHN+v +KJ94vR9CcztwxK/tXCnzej+E5na4tEys3qz01X4IzeUQ8sBo66mLL/dDaE6H +fm4mnTSjl/shNKdDk0bLY47pL/ZDaA4HffOdtzf9f74fQrM7XHoTEsyR83w/ +hGZ3WPaPq3Pt7Wf7ITSbw7qc2zWL/J7th9BsDi/Mjuk9P/J0P4Rmdfh0/9WZ ++N1P9kNoFocTPyuSxfc/3g+hmR12r1V5ZMjweD+EZnYAAGH0oLg= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwlxU8oQwEcB/C3JUoeZS6SAylJduHist9biosdqPXOJuJEaoe5uOLgqrZs +pfwpF0Tm9M1QtFYjtkRmPGmJvMVeyzL0PXz6tPimhsfsiqI0/PnfuRzW9dZH +cLuWDFqB+VwW3KYdbZq9jrosuE0r9UzMzMkDuKK1W83quCsDXpaOdNRbrL4H +/xHDlVorP92Bl6R/dMvA2S34t4T2h+ILuzfgRZn0e/uWYmlwS5owGBsoXIN/ +Sclcqaj1XIF/yl5jp9M4vgTPi+lO+RL6Bbgp9dOzwUxlEvxDAofR7VAkAf4m +Ve7iqjoSB3+V940Df95zDp6T7prCTlf4FPxZ1h3qS9viCbghv0b/sOg= + "]]}, + {Arrowheads[{{0.02012365300105405, 1.}}], + ArrowBox[{{-0.13338407732357954`, + 0.5335363092943182}, {-0.11549317611831264`, + 0.46197270447325056`}, {-0.09243811801281178, + 0.3697524720512471}, {-0.05906770979481483, + 0.2362708391792593}, {-0.03771252473533762, + 0.15085009894135049`}, {-0.024101910703402087`, + 0.09640764281360835}, {-0.013895833062364735`, + 0.05558333224945894}, {-0.007935013654781338, + 0.03174005461912535}, {-0.004517895421099328, + 0.018071581684397313`}, {-0.0025879914751152063`, + 0.010351965900460825`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{1.075093685652033, 5.972742698066851}, {1.064174824785144, + 5.912082359917466}, {1.0400584038757474`, 5.7781022437541525`}, { + 1.0164860696847737`, 5.647144831582075}, {0.9934578222122222, + 5.519210123401234}, {0.970973661458093, 5.394298119211628}, { + 0.9490335874223862, 5.272408819013257}, {0.9241916624492641, + 5.134398124718134}, {0.9, 5.}, {0.8797055492281101, + 4.887253051267278}, {0.8598780067058099, 4.7771000372545}, { + 0.8404877458887725, 4.669376366048736}, {0.8215446422917738, + 4.564136901620966}, {0.801917344769619, 4.455096359831217}, { + 0.7827278212916847, 4.348487896064916}, {0.7783777217597195, + 4.324320676442887}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAaTBaf2xG6D/YL+J0ktsQQHBdxsF2 +3Oc/cqQCI/2REEB5akGlBUrnPyoYGAhLLBBAL/binCq75j9Dq1f2LJIPQJUA +q6jlL+Y/tLl7+L7QDkCqiZnINqjlP6ZbnBZMFA5AsdfUycwj5T92ZBmKY1wN +QOwwg3lWouQ/gqdSjJSoDEBblaTX0yPkP8YkSB3f+AtA/wQ55ESo4z9H3Pk8 +Q00LQNZ/QJ+pL+M/AM5n68ClCkDjBbsIArriP/T5kShYAgpAIpeoIE5H4j8j +YHj0CGMJQJgzCeeN1+E/jQAbT9PHCEDL+M5KfmrhPxw9kRJaMAhASgTsOtz/ +4D+8d/IYQJwHQBBWYLenl+A/bbA+YoULB0Ai7ivA4DHgPzDnde4pfgZARuKR +7Tbb3j/pTqXPkG0FQKTJbAp0j90/I1M9By2HBEBnFpLK + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA0wNoPlxL3D/EyauAHKYDQLyAG9Zx +Rtw/9PzLm7KiA0CtvSObgTLbP2Pun+QS4wJAoqw40aQp2j9UlPU7JCsCQNgo +9Dw4K9k/7P/FRnV6AUCNDfCimDbYP0xCCqqU0ABA+zXGxyJL1z+abLsKES0A +QGJ9EHAzaNY/6h+lG/Ie/z/6vmhgJ43VPwZ7kbC27v0/fP+6vgrv0z9Jf3Xs +jq/7PwxrXFw1cNI/kM2cVdib+T9ZL7wAAw7RP27s6Lnnr/c/LvSS5p6Lzz91 +YjvnEej1P7aLLnbOK80/Iqj1CvpB9D+RBJriQPrKP9YteWQCvPI/ZBnxcErz +yD8TbqdcnlPxP8iET2Y/E8c/UuNhXEEG8D/pQBoAWlfFP5p2JAD9o+0/Z7UE +5Ve9wz+epk1MiGrrP0LZQJTum8I/3PSSeJLY6T8wRaBM + "]]}, + {Arrowheads[{{0.02615395288048945, 1.}}], + ArrowBox[{{0.12560260119663008`, 0.6977922288701671}, { + 0.10622465460457323`, 0.5901369700254068}, {0.08552527474483136, + 0.47514041524906303`}, {0.0687870155975062, 0.38215008665281214`}, { + 0.055325152402984766`, 0.30736195779435976`}, {0.03576626189799707, + 0.1987014549888726}, {0.023139750805694956`, 0.12855417114274972`}, { + 0.01350151678916327, 0.07500842660646259}, {0.007814038438255991, + 0.04341132465697773}, {0.0045109260513412205`, + 0.025060700285229005`}, {0.002616765079692825, + 0.014537583776071249`}, {0.0014378757801728772`, + 0.007988198778738206}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAcgs5gvGgEUCb/JUZzeITQJOb52/F +nRFAmDtxgDHfE0AJMAMp/5URQLYH4lVl1hNAD18m6CWFEUDnqHCihsMTQGtH +RSVQgRFADOAA5j6/E0CqmM5x9XwRQKjBkshmuhNAXBVBHDB4EUDUQ5PBALUT +QK2VJYQzbhFAzgm744SpE0BbPYgqomARQDWLnoqxmhNAKE4vcERPEUCSPZy5 +BYgTQJb8/koCPBFAyj5kfxNyE0CuY3OgYgkRQISiy1v0NxNAPQmq8wu7EECg +ukjJVN8SQPUr6t9VhRBAJmF8BZ6iEkDN7uGTyEQQQEtFGxaNWRJA4HSO+B3w +D0D/7wiqfwISQGHmyz1Cog9ANKAB7jvWEUDjIHmvx04PQDzDuC+xphFATGoS +q4z1DkAou07GxXMRQGSZbXGIcg5Aiv5jZ8ooEUAx8umjsOQNQKaY/KVJ1xBA +CW39zzVMDUC6FQqHQX8QQKZfFgoUnQxAmtpNQpgZEEA27hqaIuMLQMrhEeS4 +WQ9ASFtSd4uCC0C2vYiTAegOQLRPhymmHwtAIs8O/xtzDkAC//plD7oKQLD1 +FPnw+g1AYkWyFe91CkBra0biS6oNQHNou3A= + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAV8wSzrDiCUC4QD6BU/sMQOxH5A3g +fAlA+gyPl22BDED2fQFWrRAJQPJRWTsR/wtACtz32ZyjCECXTNuJ23oLQO1s +JETfNQhAQwmAIwn1CkBoO+Q+pccHQEyUsqjWbQpAOlKUdB9ZB0AE+t25gOUJ +QCm8kY9+6gZAvUZt90NcCUBJ07KeCnwGQB+M30dr0ghAxHctLwMOBkCEZfJg +PEgIQHX97SiMoAVA0K3uGey9B0A4uOBzyTMFQOA/HUqvMwdA7fvx997HBECa +9sbIuqkGQHUcDp3wXARA5qw0bUMgBkCqbSFLIvMDQKA9rw5+lwVAbUMY6peK +A0Ctg3+Enw8FQNhnCqisKANA7clX46+PBEAryYyWPsgCQNrD4ggIEQRAamef +tU1pAkB0cSD1p5MDQJJCQgXaCwJAvNIQqI8XA0DFqSxEBrABQAoZeqH3nAJA +rvTsW4iUAUBQ5AOPEngCQD9FlUg= + "]]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{2.130997729460662, 2.218951176190197}, {2.081594622839746, + 2.152107620159107}, {1.9998112171479456`, 2.040232342255993}, { + 1.9217764861460873`, 1.9322776765833494`}, {1.8554886379654987`, + 1.839538941812557}, {1.7922976054054098`, 1.7501416278256254`}, { + 1.732233714234833, 1.6641269948007362`}, {1.6753272902227794`, + 1.5815363029160696`}, {1.6216068456621837`, 1.5023632433195098`}, { + 1.57110089284598, 1.42660150715894}, {1.523832874281222, + 1.354222140986027}, {1.4798510906702314`, 1.2851677519686868`}, { + 1.4199808143335306`, 1.1872963510138692`}, {1.3680780277492333`, + 1.096596432426063}, {1.307142633856842, 0.9729997522842839}, { + 1.280962325711594, 0.9023209666592531}, {1.2675044100277153`, + 0.8375929753781476}, {1.2704134897074666`, 0.7999401194780651}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAxAowrB499T/Be9hBU7rmPyXEwgk8 +r/U/xJvC7QEz5j9/eFm32Ur2PwmQ3LCqwOU/i9Gttk0e9z+Malrr4ljlP+sZ +f7GTRfg/I+dZwdD+5D+zj7YmrjL5P15SyobQ0OQ/L2Br3r5h+j/Qacomt6vk +P2GBTkew8vs/T/gncfWS5D+amCinCTD9PwqAUsz3i+Q/KgL2wB68/j/zFrnj +Bo7kP+7xAT3XXQBAtB74Juec5D/BgvIMUicBQIsOBj0jr+Q/zjJQcH4fAkCA ++Y2KNcvkP4i2jmRNswJAt/2ZNSfe5D94h2X8VVsDQJuRi+U69eQ/O6QpcAtc +BEAmio/x6hrlPyph2aAx8QRA1//rqOgx5T+a7M4se5cFQAJ7jIhJTOU/WPxZ +JRxTBkBjBP7M12rlPzFGyptIKAdAt6TNsl2O5T/UL82sWO8HQMGcIr4wsOU/ +826rHQ== + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAS3wZ5NDTCEDmpGL7j9flP3CbH7Kw +NAlAgkWss0/o5T8USruFSdQJQGzUkPQ2BOY/OXDdurmCCkBKaNBe6iLmPx7S +wqCVOAtAoX693QND5j8AAAAAAAAMQGZmZmZmZuY/Q08rmD20DEBRTHrIoYbm +P+MHWxOXeQ1AlfbOdgWq5j+eoMHNW0kOQNrKZQFSz+Y/k/mVBvctD0Ae84BE +cPjmP10oW5bNFRBALAxVxB4m5z8HcoBXPaMQQNSyFgUcWec/mFHfIlTwEEBa +oERV6HTnP5QXzOzZQhFAevuVpKiS5z/+w0a1zpoRQDTECvNcsuc/1VZPfDL4 +EUCI+qJABdTnP2YECDIshxJARqMNV4MH6D+ThwHWuNQSQAQ8Zv5pI+g/Br/m +Nk4bE0CFrfgayjzoPxw2icY= + "]]}, + {Arrowheads[{{0.019425673731349295`, 1.}}], + ArrowBox[{{4.888214066594355, 0.7624292596454412}, {4.962667788796975, + 0.7657696940618512}, {5.058017393367185, 0.7700440864170013}, { + 5.159116786491321, 0.7745724667889181}, {5.230521865740932, + 0.7777678549556667}, {5.305537928410105, 0.7811213418665345}, { + 5.384422599404612, 0.784643996588444}, {5.408274528376112, + 0.7857079665361668}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAWeJy7lOiEUDPzTOXI+QTQGZxd/8w +oBFANA9wbH/hE0ARA9435JURQOxDCdoD1xNAPv8Wq++TEUDILOg/KtUTQFJf +KUjLkRFAnDFesyjTE0BVubIh2o4RQFir3OKm0BNAF8SC0biKEUBnlNxldc0T +QAasg3w8iBFAQS5qDcrKE0DHaHyBnHYRQFMn6efksxNASVfPwRJOEUDTtyYA +XIUTQIfqHLOa/xBAW1vCHb0sE0AB6Apbj+EQQF6SAj/JChNAyTiaJ3C+EED2 +KzN4D+MSQGMoVyyQlRBA14lcKse0EkDCkHLUHl4QQCGCPQ7ldRJAvlPazw8d +EEAl8c9I4ysSQEU1AGg/ow9A8q4KlqbVEUARi6Ga4EcPQDxA4HgooRFAym34 +R97lDkCwL2YDoGgRQBSNmIzBew5AAdFrEp8rEUCzFqgdNAoOQG07IjQ/6hBA +GjKQTjGTDUDEcZpd9KQQQEjfUB+5Fg1AB3TUjr5bEEA/HuqPy5QMQDVC0Med +DhBAQDYqSFocDEDjZEmx34wPQJTzcAluoAtAADjX6N32DkCwUFa2iCELQKCD +UnSfWw5ASklyMSygCkArz8ORjbsNQFXm16iWiQpAsWqL4FafDUBrnr2M + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAA6/vHgjL7CUCpnMZHZuwMQEjt7QtR +1glAACLWFLi9DEBgDir1GHEJQGvuMEbyOwxAiLkPMa8LCUAu0mwXRbgLQCSp +9QMmfwhANgZ8n27+CkDqsCgfq/QHQEbzAP7WQgpASGmxeIptB0DQ3vFKZYYJ +QKlqmAYQ6wZASg5FngDKCEDocDzB+24GQECRi7WfDghA3zf8oA37BUBFd1ZO +OVUHQOa1rmI+awVA3LcIycNYBkAJ+3cMSfcEQIBbLkW5ZAVAwOKZaL6tBEBF +94qC33wEQEyphnW+ngRApvIYIpH6A0Bb3f1NV7AEQG8DyyLYfwNASI8dNmP0 +BEB56lBucA8DQCOVTnTsOwVAjdBoemTVAkBv5tK2LKgFQJwe0vphoQJAcCFR +q6VMBkDpHnCuwnUCQOjb+J8DrAZAEeG6aFxnAkCnHYei + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQvWvKVauZ/ewOPTFZoo8DmRw2q13aqNHG4fA+lCOK +2ZvJQWFC9/HjapwOBTa/2TuB/KBHwef9X3E6bCtRObvPn8lBxNnJ1fUel8Pa +axuNrkcwOcjdyhIoTuN2mPjj0bNTcUwODGDA45AGBkwO6jc7bZwKeBwMvuhO +eZjD5CCosmzxjNc8DuqaHUFRJUwOaV/Emq3+8jo0b3utsbiVyWHH7wdlP+bw +OXz6ES1oO4HJ4TrbtMTZ/vwOxfyzZmXNYXJY0fDy5F0eAYc5DqfeNqxicojI +llr/o17A4d8lAZOru5gcmn5FZHx+IuCw79WV5YEngfyuZQE14YIOfs6nN9+8 +yeRwYevtqb9vCjpksmdcPvSGyeH31QWaPxSFHNTlNRvNvjM5vBS7mHozT8jh +dKJ8UxITs8MFRy//R+VCDqbvXjdsYmZ2AACyEYhm + "]]}, + {Arrowheads[{{0.025432812169103043`, 1.}}], + ArrowBox[{{4.728442187942622, 2.384888512594257}, {4.776761187192933, + 2.3883908323139718`}, {4.872680487000794, 2.3953214676756716`}, { + 4.977693438653901, 2.4028786685702905`}, {5.0932697792855475`, + 2.4111535012092085`}, {5.221338219031497, 2.4202650097937863`}, { + 5.364316396736869, 2.4303598677761418`}, {5.408274528376112, + 2.433442869097295}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.044051094787970875`, 1.}}], ArrowBox[CompressedData[" +1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAMcsO/WeiEUCWobISc+QTQFg66U0F +pBFAs7qZ7k3mE0B+LJ2LrqURQCuTpYkm6BNA7mcyfFGnEUDtZRZQ7+kTQAgB +ULCLqRFAwdgFnmzsE0Bj6DmtLK0RQMTqgYmM8BNAUzrI0K6yEUDO1aDhzPYT +QDM2lBTEvBFAedrOliICFEAqz56wbL4RQM/UZ5X9AxRAmXZIwzXBEUBaPa/K +GQcUQM+bayFFxRFAL+WMlp4LFEBIeBF74ckRQPpZuUW8EBRA2+fi2TDSEUBK +BKjO5BkUQKwU5gx53BFA/ykq3BAlFEB18SM0BecRQEDyubhRMBRAFVxZCvTz +EUAwsQcEyD0UQIHoU0Q3BBJAq2nC1BhOFECEvq6oYxUSQEa5JTmZXhRA+bRp +Qz8rEkC0NUw8inIUQH5rlBg9SBJAawdnT0KLFEBOBKfMd2USQAMbo96SohRA +JaONjuOLEkCxZj8QOL8UQE5sD+6cwBJAg+yTTZHjFEBn42oX2vESQIsETRVF +AxVAzThWKcIyE0BOzY+TbSoVQGgr0jivjBNAI0PfqahcFUCGCZ9TccETQHVM +QZAfeRVAAAAAAAAAFECamZmZmZkVQNK1JNzBSxRAcConQbm9FUAaD9QPc5EU +QJqVeT6V3RVAPMVbq5PlFEDS0Xb1SgIWQK6fseB2RBVAnDxowlEqFkAxqcy3 +EqIVQAZiqz7XTxZATfvXUw== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA2DtI/BajEUBzN6S4NeUTQAbIPXMD +pRFAECvX01XnE0ClGzser6gRQBaEpzeC6xNA4EVcKv+sEUBrxacUjfATQFrN +8a2lshFAF/j29kD3E0AdP2/DjLwRQKFZAThdAhRATDsnABbVEUBY91z3WR0U +QKsgNbnt8hFAiBgXF8Y+FEBIxeFn7yASQGJ+PtIHcxRAVzNtWeBkEkDe2OTi +nMIUQPn9NTpffRJAxDlpXvDfFEALA964QZgSQKx2V8r/ABVAH9I0RaC1EkCx +uSiFRiYVQJ2Q92FC3RJAgM6aD6pbFUDqjL32fgMTQFZ7OXBIlxVA/assiyce +E0A58CTMhdUVQBFbFogAIxNACRmIM67xFUCICNf/NSATQK/E25gbDBZAR9s1 +40ETE0AEQagzaiMWQDRGftFSERNAUfqD54YlFkAfj7taQg8TQBIL3wSXJxZA +1/hi0Q8NE0CMAFwQmikWQOzinfxiCRNAkd61aZ0sFkA8qyw/vgQTQIsUU7rn +LxZAhHygxCnQEkDLsid0Z0EWQErDb3QRbxJA6ZYGgVFBFkA/awzb2zcSQB6Q ++nIaORZA8dAFPgj6EUD+RIcHBSsWQGT0W52WtRFAi7WsPhEXFkCW1Q75hmoR +QMHhahg//RVAU4C8BtYaEUBukD3Gv90VQGUAA3yAyBBAXIigecS4FUDNVeJY +hnMQQIvJkzJNjhVAjIBanecbEED6UxfxWV4VQA9GE1l+XQ9AmugelwIdFUDZ +wlp9BO8OQP6F/7G9+BRAWdfniw== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAABLMvUCsyDkCWMFizTLgUQJge7ZJP +rg1ALKXcLx+JFEArsmiucdkMQCLNkiKTNhRAOeJO7WdXDEBqkOFqSwEUQP8q +RMdh1wtA6gojJRLLE0B8jEg8X1kLQKE8V1HnkxNAtAZcTGDdCkCSJX7vylsT +QKOZfvdkYwpAu8WX/7wiE0BMRbA9besJQB0dpIG96BJArAnxHnl1CUC4K6N1 +zK0SQMXmQJuIAQlAi/GU2+lxEkCZcVxYZmYIQFR0E1uKHxJAACrylsPOB0DV +I/EgMs0RQPoPAlegOgdACgAuLeF6EUCII4yY/KkGQPYIyn+XKBFAqWSQW9gc +BkCYPsUYVdYQQFvTDqAzkwVA76Af+BmEEECibwdmDg0FQP4v2R3mMRBAuCNe +bk2+BEDHP7RWXQAQQKHdeOc= + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAZPonWQ0xBEDr9NCK40wPQK+s5NLy +CgRA5QMdqQkcD0AARcQyXY4DQINApytxeg5AbwIZzacUA0BdjYKbqdoNQPzk +4qHSnQJAdequ+LI8DUCq7CGx3SkCQM5XLEONoAxAdBnW+si4AUBi1fp6OAYM +QF1r/36USgFANWMaoLRtC0Bl4p09QN8AQEcBi7IB1wpApSpNACVuAEBb41Fg +AjcKQAAAAAAAAABAmpmZmZmZCUB8DVvVC0f/P/SBWRLBEglAWGLTXVqS/j/X +JCe9CI4IQPFG2E+m4f0/aFdvdX0LCEDVTe/DBjX9P5/SDfIaiwdAeYhCIKpt +/D9XCyDr9/YGQCKsH0o6q/s/mpT9bsBlBkDSuIZBt+36P2pupn101wVAhq53 +BiE1+j/GmBoXFEwFQEKN8ph3gfk/rhNaO5/DBECT3zCY6fX4P7+j5Of4WARA +zw+Rnw== + "]]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{1.4991936994185286`, 2.4498155853570043`}, { + 1.4697343171373862`, 2.404186076379992}, {1.3923600679591246`, + 2.2835574067446824`}, {1.3188547891174056`, 2.1682264273602954`}, { + 1.2492184806122293`, 2.058193138226832}, {1.183451142443595, + 1.9534575393442908`}, {1.1211721901829634`, 1.8536777466795726`}, { + 1.0620010394017951`, 1.7585118761995777`}, {1.0059376901000898`, + 1.6679599279043058`}, {0.9529821422778477, 1.5820219017937571`}, { + 0.8815155130794506, 1.4652924574846968`}, {0.8157034486010377, + 1.357106856694351}, {0.7548668972162875, 1.2567332530446245`}, { + 0.6983268072988784, 1.1634398001574224`}, {0.6458055498294598, + 1.0767871301611682`}, {0.615678121139728, 1.0269679567475292`}}]}, + {Arrowheads[{{0.040168077159325105`, 1.}}], + ArrowBox[{{0.5579449633105569, 0.9313905593893276}, { + 0.5523398231110005, 0.9221062764368693}, {0.5107254036498379, + 0.8531157916780947}, {0.43660718748722316`, 0.7300386494191458}, { + 0.3733176517869527, 0.6246417661170244}, {0.3192497759439531, + 0.534395274574079}, {0.27304640385574214`, 0.4571741010749117}, { + 0.2177569278896643, 0.3646817140575479}, {0.17366497833242375`, + 0.29088557425753564`}, {0.11014534018370437`, 0.18459805416986017`}, { + 0.06978966208077206, 0.11699870141422523`}, {0.04427134502383307, + 0.07421489505442497}, {0.025514956528737077`, 0.04277474872052181}, { + 0.014565726358557322`, 0.024425604486278826`}, {0.008293122918551867, + 0.013907152306253487`}, {0.0047503171638200465`, + 0.007964880256939415}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwtkn0sFHAcxnVkq4Xfi8U1UnmJmynzlkMeL4XWcKekonRXMnmvNVJKG5ZK +XkI45qQmpUlc2UJRzXayqGkrhZ1mtrxPjYqu1rN99/z1fL777vtsliVJTwh0 +dHTstfPX9e0kgm4lRcrWSMmAhiNxQWixrYZi9sORG9kjHCHzJeLwSgqFXvSc +7RBHcLtuS9pNCpuQIYPm9xxyRdE5kxyK4XVGVy+/5BBfUJVmX6JwaKfebh0c +ZVy+40s6hdowEU0qjuLfxmdoijbvkhCgesBhGFsy+S6RoqLO86eogSPQR2X8 +I56id6ySGdRz+NXqet2NoPCc/thlWcjRP5Trs9GLYmbZSaFJ4UgyERnlO1GY +8bicpRgOsppvENlRrMpMeLj+MIee/+zcV3OKl9sHldbBHOWDKOhkFCJJ+dMA +H+3+NJWtWp8i3+TN81gnDnXPuPWqJYLQyrut6VYcp/SEGdIxgrLaybrhtRzU +oqmlrpfASbjjunyKIbSj3dn5MUGL2ZVrU30MdUnLbaJagsCg6H3ubQz50/31 +3QUEFXnCeGktwy5nj6LQiwSNknuy0DyGoCMPHXtSCWYmsoKq0xhi/on8dy1v +UWw3Kic4nuhoel6m5ZnkmvnLCA4mi8znjzLIF+fU96IJNLeHo2KjGDw8SwVn +JAT1fRu9H/kx5HS8CdnpT9BfFOejtGNQPw37ai8mWAm0cbljxJDgt3Cg0JUg +XToh9NJQbPOV5gjCCZJ7HV597qSwjDSNz9DeO/06dulZq/ZP0dMuZ/0oGt2v +jiq6KGxvSX8qtX2JyxKHtfdTDK4ZLW3exLCpyrXg2ATFr6yJ48JUhoWCnpO+ +ixTVJzLfDwwyPN9yPktqwPDELOKX236OPpVjQ40Nw9viONe8Ko7lF592f3dm +aBopCnCf47Aa91/J3MVwyPj0ntm9xpB9u28hOMDwB8xUGyQ= + "]]}, + {Arrowheads[{{0.008481604404431518, 1.}}], + ArrowBox[{{5.184808793911255, 4.60596276582539}, {5.188163506157189, + 4.606604625732718}, {5.312815849355574, 4.630020492146107}, { + 5.384730824358615, 4.643244938137361}, {5.408274528376112, + 4.647506694412466}}]}}}}, GraphicsComplexBox[CompressedData[" +1:eJxE23k8VO/7P3D7vsyGQlSWKAllqeS+Ii2StCBJKCollKIoIWSNRNZE4Y2E +IinL2KJk30KSfd/33W++fp+Z0z89nsmZmfvc555z7ut6bbtic9aCgY6O7igr +Hd3//U39U+VoncTfIwBUC+YYszJWYFZSqBq0+oHZ7W7eMcN0zFWfUuI1wzAP +SW/xSgvGrHiTqy/yEWaX5GUNL3PMUdusJKdMMfeZGbm3H8cs91arq1wOs/bm +nJJ9uzG/Mkzevo0Pc0d4uAv3Kj/NKziOqw6LmI+eWSy42ok58MWAiO5PzCls +hvTfvmOeP37cJOEDZnVv5bygEMyX6RLfrLzAnAihqwMPMU+5eBo1mmHmWZg7 +hC5jvqDSF7nrKOa3DxoXBWQx549rtrnuxMwmp3jAmoD5rK142MUlPpqt+4Md +S+Ywf93h3pzejpnphp3S61LMW/91b2ItxnxTtN5+OhlzpklRw78gzDVNCl9O +BGAWFNjOp+SA2dwAb7fdBLNLlauenxHmcp47GQ80MJNOm+ItdmGWK62ZrtqB +2Yml4EwOL+bSo2lp/82TaO7KEw3Cz2CWWeOZWP2D2V5t7dRQMeagz9Zy5wsw +t80aP4dEzJJKp0ZkAjGrf8ireuWH2W80RebpPcxNu6N8bC5hnorjut1yAfOh +3uXy74DZS2JY6pMU5rgoI05hCcxjbVqWbNyYVbYcKJuZIdJ8Pjg56fIk5uiG +cNaTLZgHSN4WyoWYmfwWj8XmYdapGIj3j8ccxtXM6OiPOfPp8b5ub8zrxcpH +au5g1mLa8TbXEPM1p1B3SX3M6TmeXQQ1zEvL92FdAjO/Xd92y+2YTTMaXfQ4 +MCdPl7QfniLQXHpTsfD9GGbce3HRsCbMF4eJj93zMdtfcTcZ+4a58K1dXutb +zFzdV4TKfDBLXaxflXuG+W5EkdEWG8y5rR+/shtgbj6zPcruHObtQfglk4OY +reroLmiLYfY6cedAlijmOm/TsLesmIXLT889H8fTrHK4oHlhGPNT1zSl3nrM +VYXRwbU5mIdUeB0OZmPe93CtYUcMZuevowokL8wRcpf5nN0x99iesrtphVn2 +o2qt/nnMWlIfMgp0MQffiMJ/UMHcnuhrE74V85LoyhnGLZg1TYfTxpkwB8a0 +creN4GhOETg5oTmIec7ggI5CLWYIk04R+Yr5Em/Ec6/PmBNOe4/ce415IuCB +lpkHZi7WQZlfrpj1jzX7fLHEHPOsbODdGcy5a8q/uHUws6Id0kuKmM8+4X/W +twWz9Zynpa4g5mwl+zJVBsxMY+VaZxt4aVZte88rWYm59pLPr7UozNf+3nj2 +2wpz9K8T2u8tMCtoS7G5K2IurWApucSMee1bv5fcGg/NLw+WHmGvwiyVG0fX +9RqzabLH98+vMM/sNHd9fg2z13v1Q9eVMBeEizEc3INZT5Ahn7jOTfNQRMfD +kSrM270L1QrKMGexxyyFhWLW8nHOunMds9sDEydNU8wCi4eUReQwpzwUnp5b +56K55/rql/IFzA8G/ti9+4GZy/LbnkdhmI8YRM6cfoG55ffDdCkzzNYXLljR +y2NOOLpfvlEa84EygdEPi5w0Vx2bS/T8iZlF6ffti0WYI7M+S+8NwiynHNzL +eQXzDYn7yf8uYl6JP3cteyfmQEmF7S+WOGj+QSL2m09jNg6ZfHuoGPMUX81l +/peYdzJ9FBvyxZzvHvCvyAjzWWbryMhdmH2mdUxtxDGL3tstfHyGnebMGc7m +rSWYR7pGomZyMbtc/XWh0g8zqSeJlHAJs3adT8tDPcydZy1Dzkpgtq8/dmbX +LBvNqYVS/OujmNXVWet+52FuKur1T/fHzPOx9Ky7J+Z38vE8xvqYVT49LVeU +xGwbYx7ALoqZaZvGya4xVprDYrex5uRjrglgqHj+BbMFrvPZ9WeYlwLJGmCA +WeFJDBtJF3PpunPJiCjmiy7GLt/HWWgOslbTDB/AvGNcmP5uNuZcm+VcLS/M +M8ZtriKumL3avx2a18UsbBK+WL0V8/lTjvnvNmMerLzg+GiQmWZnHWUlva+Y +s1Q3LUt9wqyVN5dF74a5/VDj3dYzmPllspRTtTC/Twme9hTEDLvt0kyGmGh+ +IHT+3t5uzFxRCnJcGZhjhPEjPW6Ymzmm0rOdMN/2rbF6cRIzA1ea1E0hzAeW +AkYPkTD//+cdRpqvLGtbjGdgjhjcvbM4BfOejecXzCVDQ7H3tDGvNP+6dlwT +c+DG8whm8Vav9sUeBpov/bB8V/kX8+TG8wVmz5+SQk8eY87/wtpx1h7z2Y3n +Bcx92SUGTPyYRf6LF27mwZyxcf9PT/PxxCvB3qmYXV5pGBr/h5m0cT+POTGU +rpbnGOYOj86QLoT5/sb9OWaOZ9Hcwf/oaFa//6TuejPmpo37bcw37VW1Nj/A +/NZ8C++oLWbljftnzBUWrZ7ROMxM53NO3mXHLJe0l/fVp3VEtWHyhOexs5h/ +en7CjWtgnnpm4xXTvUazkLcM3dmnmH0txrwX72HOvPae/j0Jc/v1Gw8vZa7S +rHNkJyNTAmYHzX7Hz5qYY47GTV3rXaEZJ3btEc9vzAfExWbI9pivSnTcusOP +uZ7+7ewmNswrDCa3y/9bplmCSbjX6RjmkI6/1mL7Med3RvQ1NC/RPNBlcNnz +AeYL5M0Du29idi1oMvnHjjm58OXvwKRFmgWj9cxUIjEfeUNoGTyA+XZMtW5k +6wLNfx+9aFWvwMzirHN25hbmPU84y+M5Mb8xqjx3anWe5h8b90uYp4yPaaSr +Yr5ygL3SQBaz78b9zxx2/lSf5n67jVl8s+bRKyaYdTbuZ2ax8ydEVvwejbl/ +3oVsFYgZt3F/gnn/0lJqdfUMzUlNuSoOhZjrNu43MK80K0m10mG2+rzw0XVq +Gjt/G/cPmPO/3I3tkccsG7xvl58Y5gsb9wNT2Pl7lSo4fgXz5F3buFfnMQtu +fL9P0qxxf+jl4kvMGWdStsR6YG7b+L7GzHJekpvp+wTN9nIDr95nYX6z8f2L +OdCihGvLyDjNtiLHt1pVYy7eWsRbzYOZX0x1XV5njOa5P2SCqzzm4+37GXps +R2mO6MiYPJo+QrNjuDLzq5eYKyM/zizUDdO8NXpXjxEBM51B2nzy7BDNZw2l ++7kVMccZvWuyvTdIsztpxxDZAPNv/tiW7aEDNO/cLPTTo6mfZo666LaGr5gv +NWyqUF7sozm1KSgnQgXz8wD+6kEhzJ0vAvO1jXpp3hfMkZoW0UMz6dTzwrXH +mK+dZvtoltdNc/YZt5iSlS6awzhYMokdmIe5XN7Zi2JW410KarncSbPIj8cJ +UuqYbcvnQ3xdO2j2CO/m+Ov6D5tPnMPyTscxD/L+wx0u+0tzAKl+nOVoG82n +PFv547kwT/lUzd70bcXeb0BRgxxHC8369OXLVTXN2PXEnN8afPo3zbEcn75e +rGqk2eTR146FYMzMrh/I+cQGmt97xEa7B9XRbDmf+H27IWaelai4gd81NN+g +385q/KGK5p4eOb3wA5jlxjYRJVR+0fxonq42XfEHzQutvKKjRWXYePXMtz0o +KMHO/+i/CKb8Qmz+1I4NwEnMKZkfToW/yKVZvezxz3S/LJpVn0daSP/3GZu/ +h38XuR5Jo7nmmsO39APv/mc51fLdIfrSem9pPy+Z+TQVaxNLs1QAKcRFPgJN +LnM8++NJAur+MWNySNOwBwk2+RsUNnQJQENs9mqxOwmWIQV2dgpAdmiLguQ9 +EiTOhSwolwvAUuWQ1aQtCfLcGxqHvguA35yS9aoVCZ4FuLSpFAiAN/cx4Udm +JKDuN5Nqo9xXjEjAxF8zspQoAJonP7cr6ZHgl0P86IE3AmApE+vxV4cEl8Z6 +Xjm+EgBn25sHuY+R4G3pSC+TnwCsvdl72vYQCSZG25XknAVA68qRDC1VElD3 +p+dGBtPEFEiwHtX1hs1GAFJiXUJfSZOAp2+vYt4VAcia+UhOkiDBE4dPL9SN +BaA6K5AetpBApsx+gfmsAPzrY5jo4CcBdf/a+oScXDc3CQ4KkgzPqwqAvXWO +7hU2Ekz33q1Y2ScAnV45IUpMJMj/61a/LisAO6JTY4TniHAjoj/cUEgA3h7K +yveZJoL5fOT8iIAAFNj++RU6SQTqfvfExLmHVp1EMF7QeRi9xg956m7Gn9qJ +MJq5l6l9iR86pmTw+hQfTNwjZEjxm5T+roMVRKDuf989Z1Ce/pMIaRYfu5f/ +8kPYsfeuAaVEcGI4Ue3Ywg+zD+RCPb4SQaRyK86jjB84zu6Kycwkgvom+Q5i +IT/oRklP/Uglgn/cdRSYzQ/7n7QltCYQgbpf3mRuvJL3hgjZ5/NaJOL4gX3y +vysMoUQweR23JzyUHx40LOodDCZCTYlNatlLfgjgE1ut8CHCZWOHNPln/PA5 +crLVz5UI1P30Ik3J+oNPiHC+4a5Nqj0/cDEHFnbeJ8KFyudI+SY/yG7Ssym3 +JoJLbr42hyk/OEbEady/TgTlFTjWoMcPMTOvLVdMicDVqnJd6RQ/aO2YkCJe +ovz+//bfFca3Z6aepoyfycOe0X384C6tyL9Fm/L5FP5j2CNHeT/8PlrXTxBB +LpN7WFuGH4Y1YsUHlImw6fh+zmUiP4zIKg5qUMzzYG1kK8Wlk14PC5SIQN2v +/5Fu+C1dgTI+27tlC7konzfoqtbR7USorphzPjDHB3FhoiHbthLBVz6tVmKa +DxK9rysdxhOBun+v5Tcoo85NhL8lnNuNWvjg0uhrZiM2IoxvPaqvW8cHekzL +YV5rBAh6935HXQkfpH8UfaixQICDPWad93P5gKQubB88QYCaIp8U64984PDv +tvWfYQJQ9/vnf+Zra3UTgGH32yifN3zAzmiorNhCAPXIpe+kF3xQ+Sqir7KZ +AMyRx9fdA/lg7L1RqX4VASz3eCqEu/GBKN3BDPNSAlDrAZ7DmwxYCwkAny8n +FNhQXv+YDbPlVwI8PlntEmvBB0cI/uJvMggwFXTC3MCYD9QgtAySCHDcLObG +hA4fvGQ12ekaR4CJgEPm747zQefOe5U9MQSg1g/mgvlUHF9QXj98gJMkywfr +4R76bwIIQJbzzI7exQfTm/pIJ90IoGcq6kjazAc5P9mePnYiALWeUNecUJPm +SACrm/9NJ/LwQdrgy8SMhwTgenp/To2bDyRixGqSbxDgvFt/TNssZR3a2kv/ +zoIABfKsXPWTJLihRtg8akaAfqkpM5cREgTsV93UrUcAav2hZL3JKVKXAFt9 +/MznG0iw9WWgt6QWAQK/0S1//kWCs+qC0ZIaBGByVEKiRSTIJoQbhR+kjNcV +n7982SRo7udZMlEggHdV/rN/ySSQLk1JuC9HAGq9wmJoKzlKkgDJodf1ZSNJ +cDpQw/n9FgJk3vH4a/acBC9U/W+GCxJALeVijogPCZw4NL/H4ynv/8irD+BM +AlKOp1wTBwGo9QytF5x/6hgo86P7rfc1S8o6rP7dP3MFD9rvfQq0Kevwso5o +J+cCHswtG5ziLpKAoc/7JNcwHs4RL0a+PU6CU9fP7f/ZjwerrI+3zh4hATnx +Zr12Lx6o9Y9vB9hyNevxMJSxkFW3gwQOd6IGu+vwgHiu+5yhOPu012bhGjzM +P8qWtBcjgbF5u0k8GQ/UesgZ3oDGhjw81NgfFXLmIIFdgKfMkxw8DAa0/5Fg +JcGP5ZrI3hQ8lF64my1NWTcLZHEfihPxcCv38XjKKBFkepheZ7/Dw4Xfupn3 ++oiwbUgObYrAA7V+0pE/XvzlJR5OyTDwNNUQoUflKfeULx4YBksHv3wnwmmh +zxL6z/Bgr1uob0UmgnWCifJHZzzc9eE1WMwgwsvYTJ2Ie3ig1lei/Omdd1HM +oLuLfyaOCA9OW0ukW+KB6/1kEj9lHSx9r5+aYYYHyeO42VRfIuh1PRkzv0T5 +/J0z83ruRBAd4PmQeR4P/zks9+x2JMLAGZ2fv3XwQK3H8CivXY4+gocs8m3f +lKtEMGXcPpaP8FDt+7hXzZhIOR8/OllU8dCMTF5OGlBez/dR9W8ZPHxIfhQ+ +r05Z1984s1fvxMPzq7nPTgARksJFVA9L44Fav2k17UzvFMJD5PiSVvQuIjR9 +v3+wkQ8Poj2dU5fFiODcsYTwFAt6M/n93zr21ChO15cRD9R6zs33V198paPM +B6kQxXAWyjqs+DBdaxUHZ64GFKXTEyEGv8fk/QQOVPasVttT1qVq7omlt8M4 +YOGTm6ocpFz33vNb3Xtx4Gw094u3kwBshJBrTX9xQK3/7LthGvyiCQexKePs +qxUESGy//yKvEgcWHyrvXC0gwGWxoPdcv3AwIKlt/TWXAJrVNY4ehTjQv7PD +WDKdAAdc4zMUsnFArQ+Z7p2hn/+MA9bDKKvkDQGM2VUrnFMovx+i8uvESwJs +m7Fz0ojHQYRIJNeKFwE2e929KxeNg5/8rxlUnhCgh9n9v8ehOHAo81K4bk+A +1D1Ok5eDcECtJ9W1TXRZeuLgR5TjsZjLBFjOdpRxc8OBsM8DW2dDAnwL8Lzg +8QQHWvxDyWqUdcRH3ubcO2sc/Mo+cHr1EGWdNB128ruNA9PthmYBqhRXvJ7N +ssIBtf40H6MZfccCB6enKycvyxNAa+uAp+MFHEz7byKRRQmgHxXFlHIUB9T6 +05gDTueCBg7yZ20f0jFS3k/rrX38CAcTtZuCRynXPa/oFN3kXhwkM3v1F4/i +4bHgPcJBWRx85eS+o9qHh8w9Q3Gnd+AgvkWx16QND1uWYmQJ23BArVfdusc9 +sX0zDtoeO7Xd/UmZB+43+Lx5cfDvUIh4GeW6lfI48EyNBweXVps8WL7hga3i +AyOOCQe2e82i3lGu44ONWvIv53iBWs868amS02OcF0ImX7qejMTD2hxHE1M7 +L0QY2gZWBeAhoWl+LbqGF7hmJcRPeOLhm1H5yDyZF7qVpCzrHfFwUdDQeyaD +F+qYTEKn7+Jh19X30+RkXqDWv3Yxl1XeDOQFcz6Vd7oX8RD+xMB03JsXbpn9 +fU7Qx1Pu2+6HzLnzQu7IvSLfs3iISi1O/WvKC2Ime1eK9uPh2QRn1KwJL/yy +8j23i2Ld+4vWGhRT62VV6/J1woaU14u3Ubm/j3Kd779akKRIOf4Ph0JbYTxw +XygI0JXnhXZVN5YLm/FwXuI/UyDyArV+pvDfxFM9Tl4wE0T539Yp1wV9nm0x +PS9sVdH2HV7AQbOlqsX5UR4QaSOs4yjX0Sn9SibOTh5YVQ+wXu/CwVjy1zNK +dTwgHBQbeq8ZB9IxxyYel/EAtd527Fvrw/IsHlAq8ctUK8WByfkshaS3PKDB +prw49QUHBj8N/PJieaCq3uz1OYoPMsYJBfvxwEXXe3ceJFHmYep5vXgnHqDW +42pWPxGF7XhA7HEzexjluhhIsBa/cYUHjAqCPFL8cGA39UHmlR4POP9KP/jq +KQ7gv7SZ5xoUX44TVnHAwZVPJ2uOqvDAt7z9Na02OGDL2NUYuYcHqPW7j7op +jfQkyvEmJycr9XEgPyFtLMfDAzUVX/YwnsNBWbRJQxY7D8gWr7c0n6a8v6XE +rHs93HDCavCCoRIOFscGOCQoXlvVdpWgWNz5cWZ/NzdQ6333g4PjCju5AR9l +K+e2Dwf4lH1sOV+5QfPzZ30nyrx2MbiSsDOUG6j1vuG0kpVzAdwQbC0g8maR +F5hOvX1w0YMb1NX9PtkP88IWl0+BQXe4YavFwd25lHlKiNC/PGdOsYbiqUMF +vHBvLtqwUo8bIrybF/Io8/KyiO791ye5gVofdCgWvfL2ADd8yPlHV+vJC71v +Ig+AJDcsZV8YmLDkhV3xdnT5Etzgdr7F8jDFwy9n1S7guGFkzmrV8BQvVL1R +s3dZ5wJq/VD/RJhQxhwXzO0Gsr00LwT8M969qY8LjgdeYm6mzDuHeD5L3RYu +6NJwSCilzLPSqeAViTIu0L93Tn58gAfieGKud+VwgdrskRatVh4Q/O9++r4M +LqDWG5WjXvwNC+WCGn6xg+cTeeCk0G/pLy+4YKSWrPwphgdQqHLNbn8uOLKX +r/tkBA8kaj7P57zBBd68LG7x13ngzR2mT6+uc4HeM72/3BTHH/2jq0oxtT4Z +ffvtCpM5F3yXOz8jQ5lXpzQOL2w+RDmewoHeyt08sHnc542zChe8PkUmH93B +Ax3vm9g/CFKO97965VmNjqwoAhf8Lk11eT7DDT5hz1wm2bhAcN0our2PG75n +cPE5z3ACC+HMJf1f3OAhVuskNcAJBYW6Wpo5lHE/7G5m3sIJBlbXMq4mcIOJ +5tbEq1WcQK1vJhp3P8zL4wTFgSaOKVduuDXsov47iRO0464nNlpwwxtFMa3L +iZxwjX487M9Vbjjlcb/X6CUnCORregcf5wa1Fk5xFjeK/1f/bAt+LKblyAmS +r085BlLOc4a4xwyjJSec12j3keHlhgKZMutUI074MeHXaLrCBdpqjkx5Wpww +WmEpqtXLBd9Mye2f1Tght5mz/msjF5wu0rh6U5ETqPXSvH773j1CnCDRqZY0 +GccFATZBf++QOMEfnRFTjeIC3lR+twO8nCDVsZPQF8wFsi/sSt8Oc0ClLEep +J+U82I0hGZUhDlBK2Hcw4woXsA7Z6ooOcgC1vqoS3a8x284BGor4U8bnuMBc +dgSXReaAH2b0Ig+luQDfRbw6GMkB1Prq7/1WRSIhHHAtn4WgP8EJuB4rLy8/ +DmCfzRRU7uGEwZ94utn7HDCUf8134jsnFB00Wwy4yQETKrYF0l84wcXf0nL5 +EgcwCtYlMMZxwmu7iZgPpzmAWo8NFTjXyw4ccHyb5+z0Y06YVLqmZb2bA268 +2+2Tf5UTxDUUnzpKc4B2KtOP+5c5QTBK7YsfHwdUMyw7ZR7hBE+xgjskRg6g +1muvdFzZ1bnKDne01G4niHHC+u242E3D7GBl+Uf4Ficn7B1kM/JvY4eU12+Z +luc4KN/DJlznq9gh2SrwwPtuDhBMD2v+UMAO+s2P3gjUccC6hSrX5ix2oNZ3 +NfZeGi2Npnh/xKM37zhA/V79C+1X7HCr79bPr2Ec0EPIpcsOYAcefzjsEsAB +mW0XqvbbsMOsf9aI21UO4KQvYpq9xQ4rdw0vnzHhAJZzFtk3LdmBWg/eoani +a3eGHfpSPigaH+SArslQ7seH2aFmq44KlyQHSHjqpaUgdtCpEpx7LMYBDqP3 +xM2E2YFWHw6au1jGzw4sz4oPcYyyw6s9ZwNFceyQnXjqTko3OxTaxprUzrJB +za1H33won5Nz/tTzzSNswBgg8X49g/J7LTp3gjrYQPqXreavd+zw/lLtmfPV +bECtJ1tcqqizK2QDhRMPzow4soOD28mzzB/ZYJ/gFYXWq+wQ6ajjMJTIBnJG +gvO8huywHT9+vukVG9jJnqOroXyO29/4HT3c2IBabx7YdXzvA1c2kPT83Nkr +xg5nWwPUD1uxAXNgnUcyGzu8oxuQKTVigyCt7L0hk2xwofEIafgMG6h8NluF +Hja4SzddnnmYDfae8kp1orzPmPEt7psU2YBan/7pfHjWeDsb5T6p/aZ/HBtY +E5pE5AXY4EHxLU0Nyvv6F/Fw+hEPG0zt17cV9GGDA1JqTTVTrGBXeXiy3JwN +RC2f2GaNsMKO0R9EemM2CNy5MjXdzwrUevb72gNfNIpZQeVGhP6iOGXcHKqm +jxSxQn6sbGemGBt4h33dPfuVFZp1Dx99sokNiH5JR59FsAK1vh3pL/zeNZQV +jGzxaYVDrCDspByW9ZIVBJJqbtv0soJvH1v6gB0rZG4KGhTPYYVwPKEqzYoV +Bt7wXmz/yAp+4vseSpuzQkLqp6SReFZwOicxtusUK1Dr4UYr8vt7D7OCgWba +pukHrLBaKXcxah8rtJu58126xgpXfMWZXCVZgZ9NTjL5HCtoJosQtwuwQlND +X8E6YgVrh90HeZlZ4UHF6yd5lP/3WUzVcmCdBaj180v4mKfXRljAUvv2DiZW +Vtg+Wyu7u4UF7Ocrr+yh/Hv71p3Cbo0sYFzak6DWzwKhV9IyPhWywFm/D6J0 +VSwQ91q54OAnFqDW10+XS67OxFOO/2uMf+I/FoiAp5UsoSwwwvXVaTqYBa4/ +Fh+96MsCzX233mS6s0CBnVj7dXuKk1/0Bd9ggangqJUrVizANbCfq92IBWYE +A7f7mrMAtR4vv2UrufUoC9APnx6VkWaBBO6G22WHWQDtMo8hb2eBJ1OutRWH +WEClib1t/xYWeFsqHHNKgAXU/TQZsgeZ4fmpG6f3Ufzkeh9zGMXtrUdstlJM +rd9HVidVGvJTXse5ZrfdADMw7Sb/OzDCDDambeR/6cxAsN3sWtDPDEmTdBJv +kplhz7cGZcafzECt5991IvhpFjKDHkmGXuwBMzzdzH9lbzYztA4/4Xp8ixmC +psaMOd8yw1Kmpt4RHWbg3iT8Xv8VM2S+uaxmgphhpoigkeDFDD0Cek9Oy1Be +vz+KW9yJGaj1/+DZ35esKcfBNyacD2ZhBnMrXvHNhsxwjFPEhH+UCR7/SMw8 +dZ4ZLsV1v/jZxwSf9SSK/IAZtBVga1ElE1w4mrxZdzczUPsDGvm4mP2kmYGF +2ySJPpUJAnSqVz7yUd5fhMWjgWAmuJurnLyF8jq5L12rdJ4wwVEyW9/aIhOY +RwyGCNswQdnXkD3tQ0zQ8uaYBuslJlj/x6W/1M4E1H6CLzeYy+6UM0Gvy4Mn +u+WYIOqlkjO+gAmuaTPoiIgxgcnKS+e+L0wg8lSUs0GACaQIDIk9EUywehrO +7ZtkhKIaB27tECZAdkH3dg8xgmSJdfarQCag9h+c/STP+PwmE5y8U+6/7yMj +TG2P2ed6lQn+8D7ZX/cfI5y07Ep5q84E1P4DVvh+9SFiAt6bAW3hDxiB3WLZ +svwgE5C27lpzsmME74JzCrpCTNCxsf/MCC/3L7UbkJjguM2TvdzACI48C1qH +uJhASVE2sXofI3yPrWflmmEEar8C7nPix4ODjBC+5PrNkZURhr7M7EpvY4Q+ +Jc9WwTkGeM9+3qupghFgY/+YAVZTTafE8xnhyQkOw64qBjAym+QS+8AIl/ol +Ao2/MIAjToaQHs8I1P6GE9/ksokvGcGzjX5O4xUDqNjtlfFxZoS3G/u7DFDB +MTYa8pgR9rTj9sU9YIC+20mCbDcY4VZuicMbYwY4/so7jMmAMm7/6384lDlU +xabDCNd5fXehAwwgNtYhz3CIEehjt5TMiDNAntctZr89jMCwsf/KAKnG/WlO +IozgfLTcqn6ZHr4F2fMzEBjh38LhAo0Reuh8sK1oKxsjUPslRFh7AsfGGOA3 +vSm9WR49vEx+1cnazwBfayp1/TLoYeZJw9biDgYw39g/pYeA9I47ZmQGeJHm +OtPvTA9HL6+lEHMZAIWTDasc6eHk1wx7u68MQO2veHPoyJaDrxkg8WNmOvdZ +ekjr8+FhecEAVvVR7DLq9EB38e/ZhgAG8GbK/eYB9NCkbHHY+CYDUPstgh6X +d3ywYIAdDvjWVnZ6sGVs3XvMlAGuSmYw32Cgh7WjH1K+qDOA5MZ+JB00sfiH +GlLGaQCpWnvU0kFnShPpmxwD1Jv6RmqW0IFd/EcpESEGoPZnLIjqqLLzMoDz +t185u8Lp4Kx+/awMPQOoz6iEiXjSgSX/3HLgND14buwf0sHMI7vm3G56MD7p +mV1pSgfF69VNb2rpoV9zm+D0MTrYdOKRDa6CHqj9HNoGx+/fy6YHd8nTF29J +0YGxluDA/Th6GNjY76ODfUkVXwhv6aFjkXd3Nzsd3LBfEJLzp4dD1gay7B3r +KPPFtc0vHtEDtd8j7uzPMI+79CBqTborE7aOYn74NI6b0cN/dC/LFWzW0e0e +5qis8/TwIqz2pNDJdcS38v3hAmWcF7XfF/gLryPrp3+SM5TogZeR3f7c2hp6 +e+ZNfJ8MPVD7Qzzjiy7eItJDDjM+aShmDdkWhMQ5cdJD+tm2Lbf81xBJ+dnt +bcz0cM6B+7vEozU0p0M+2N5NGRdNCNGQWEPrvjK/jnXQgUpZUtpD4TXE83ev +n/xfOqD2kyzeul3/PpcOOO403LlMXkXhVVDH9JkOtgh47kx6v4quL+QIn8mk +g6tHJaJzk1bRnzIBBVd/OqD2l6wdvnTtljcd6I8LlQYfXEXNG/U3OhDN8zrY +IruK5rYcz79hQQfN+zy+HGhfQVyXp2fqjengkZsL8dGvFXRio55GBxbv5Czm +MlaQ5f7msQuH6IDaj9KpkXRPTYFyvGriDhOjFfRtox5GOa97hT+S9q+g2198 ++s/w0UEksVBOk3cFpVmJ/UlmoYPz9cYCasPLSE/V+PD+kXV0Itkif1/+MjKQ +Lw7/r3UdUftXSjXG9ytkraOwn4qrm5yWkVKAPqOo/zoaH/uhaKCxjDiSNL3y +fNaR8dRK0mlYRn0a8kYEk3XEf3xkepxjGeUt/3TgO7COqP0tm7pOf2eSXUeq +z1V3i/1cQhUpbmuzrOtor/ODzcURSyjuTmbLucE1tLVWRezinSW0uO/Es6Gq +NRRtt2hLOr2EOhZzmf+mr6Gq2sTnQTspv//v+HB02Bqi9sO0PlM/UWOzhj65 +WChxNy6iYs3R02WGa+iFmIHD5W+LyFGatWju2BrqSrsXZf52EeW2HuTMwq2h +EdWVizxGi0g6euvXTIY1pMMWuySptYgCm/ffNZpfRdT+mejdipWRH1eRknzh +j02dC2jvNRnBeMo8+KItrjHSsoC+PD2//c/NVVSy2rd413MB2f8OauPSX0XU +fpqmXVn5ZudXkeSLX02DlgvoiYtsgOvZVRTE1Lxw+foCkuk/SHkSocyr2yPP +HzItoISizvduKyvo+YhkS+DSPDKt33Hm+vQKmhVQtUFj88jikKIDoswLav/N +m5zfk7FxlJ/zr/+333ceqUtuI54KXkGvN9/Ilb0/jzZ9tIFusxW0c2O/YR49 +E79xmKy9grQSHof3CM0j8YeCjQqKK+jdCzZW2ZU5JDTGVe6PW0HUfh0hstrR +1pll5GBtzh6UMoeYK4ihm5qW0Qyp3EPt6RzyvLj0T428jEY29gPmkM6kb8JU +FGVeqVoZqh+aQ30i3IZr9svIL0bdxYxjDilKPD0+d3sZUft7sjT+Y2DTXEbf +XyZPzlbOIiNtG3kz4WWUtvH8Pot+3GER6hGgzCv/2p3NL2aRfXfyzOZRyjxg +XYcPl2eRQrkxz97yJUTt/0kuWW/7mb2ECu5mWv7dPIvuB7DipEKWkFWdV96N +8RmEU5ApYXqwhO5sPG/PIF+Bxeg0wyXE8Vn05nLsDBLSwnXKH1pC7mYSvVIu +M0g+taSqUWIJUfuFrG5OmYYsLaIXJrm5e3fOoBebHo8o9S6i5TcLh8ZwlOP5 +kN/E1y+ifRvPz9NIJ294u1PkIvoX+oTV6xPFLD2pSv6LiKdpXf9r7DTSOhf8 +2s51EVH7i+RwvT2mqotol2o3y9KBaZQTsCNKTnER+eLTf/goTCPT2OztaM8i +mtt43p1G+KvtCUf/LiBvf4UA3+IppOXSIiJO8aJIrOJVismEF8LMFFP7kao5 +9j+++WcBpdxm81IunEJfekzsT7svoOhT92349KbQ1OffN2ScF1D7sx7HQe0p +xDiuU56jtICo/Un1AdI3rHYtoDX61HO/+yZRA1vtToLoAtJx7vWxaZpElw6Y +K7l3zyOnjefFSaQRIL34uG4ehbioh8c/mERZG/vB84hfKspF2HQSrRlrtUPg +PKL2MwX9dTV/+nAepZBu8LtyTKLQjf3deSSWO+43NTiB8E8SIiZU55HaxvPd +BBIKNGhx2jqPWA6bpN6MmkAPNvZj59Ffg0dr03YTKJ89UTZocA5R+5+WDtM7 +XiubQyPlBmevyk6gixv7q3PogGy059GVcSS/+9RR8VdziE7d81XJ33EUNidu +pG49h364VzI1u4wj1Y390Tl0t8G5kRk/jpLiH9+LV59D1H6p1KliNx6+OeSi +t/U1Z/wYim/9zXhybBZ5rq96taAxtGVj/5Pi11PhujvG0K0uhf6fObPoonhF +2tWfo8jasyOqLHwWUfup1rT/b/9yFp3frv13q9ooSrVfuW13ZRbF7nF+1zU6 +gk6wmbjv1JxFHHn3ncZiR1DHxn7kLPL3XDhxVW8EMd5JGWJnn0UCu7lZfAkj +qOhCQsWdiRlE7b8q2thPnEHwaPPwltvDqPOvyxa/tBl0u/pMgInyMCpt9DOP +jJxBgY6jtxmZhtG7jf3BGWRZeFbEwGMI3Vxd+7igN4OahlXFr14aQqfOPiDF +H51B1H4t9439vBm09W52GF/0IGIhWR7SWaHMey351jDXQeTfI+rkNzmNSCoW +ppuuDaJrG/tz0+juEsHK9MsA2s5FOOT7dhqxtfy3xPjfALrbv8R+OmoaUfu7 +jm/sr00jAZUnXKi2Hx184EtKPU45foEEa2JFP7p1JWjTJvFptOs7OZF0rx9t +HrRI6JuYQtR+LzYhCX79sSk0dkT6qsF0H5Le2E+bQlJ22QUXR/qQcBdkXo+Y +QiIZ5zXVd/ah00Pd0bEvpxBu5uRytWAf4tjYD5tC96NfMj1l60OJBWqmWRpT +iNofli9TOFKpMoUG2eO8/dR70cjG/tYU+rWH/cV5iV6Up1MoVz0yieJsK5QN +/HoQUb94Z8vfSVS8XMTx4mYPqtrYn5pEkcy+gs3qPUh7z2PL1JBJRO0neyTF +eq3QbRLd/3A2tzOoG6Vt7DdNoqTHK1X8Zt1I28mdWVdtEknJHtlpNdaFrK+5 ++brvmERnuWe3Pc3pQoEb+0OTyPiKsrGgSxfaE5KantY3gaj9ZzMLLy22Vkyg +yNQXHI49nejuxn7PBGIb2rQ68qYT1eUcL/jxfAKlDucIu+p2om8XLoUH2U6g +a+nCr35xd6LzG/s1E6g9bduD8IIOxDw0v/OV0gSi9qsF3Wx+10yaQHIh3Qcf +K3egm7qPUmJ7x1Eo0dJCv+QfIkpdWRfPHUfmZ6+LyFj8Q3WRth/+3RlHTDfa +3koXt6Pdc9Zyt3eMo2cWDFaX2NvRSbczX2w4xhG1v60rpjEp+esYKtViFZff +9BdNRJplqliOodTuM/cv67YhXWuZ/HWDMWRdqc+oL92GOhOSt3DRj6EBjvJT +ItZ/UMbh8ypM70eRs5XhDYfwVvQk4vDhsrhRRO2Hy6kyfrR6bBRxHokzXS9p +QSU2zszGEyPI4fjRgSejzci+/2hu9cgIEhaai1PsbUYXbw4UOTwfQeX2f6O7 +hZtRdGbOss+BEUTtlzvgvx8iZUfQtjej3F17fyPzQ42cCb+H0Y5FrfFe6yZ0 +/TT/u+qnw8ilWLEy6WMjWqV8n12zHUa1CaQPPe6N6OC7QhzTlmF0c8eDkn0/ +G9AqeqsgWDGEqP11Bc0ixxU+DaFdKomZl5rr0dwjly1Vl4fQZLltv/auerRl +nOXuBeIQ8lGT+FR/vw65O+MrVqcH0VhescQt2Tok0X9NTujdIPqeeCRr9Fkt ++u/RXJC94SCi9uMdE2fS/ak4iBJXTo8rPKtBTK/Onf82OICWQ0/bM5Kr0fD9 +QmaT6AEkaSctu2xXhTjK5+qDHQYQ/Z84kU/fK1Fega55lswA8i+//3f9cQU6 +7aJ1fKmzH1H79yptBg1Mv/YjxRtxt9mflqMufqFOFqt+9Hyn/etZ7Z/IzupR +qqx4Pzpgybags1KGAvna/uxa7kN9xwQ784+WIWvE6+nxoQ/Z7GckWRNKEcnk +kFiHeR+i9vudz6kymVftQ+cVHUN24ksQf5J92unJXuTEmOEwWFmECOSkjvF3 +vUjbpL/wrXshEjAr7C5y7kXfWm6wJXcVoPhFx5MH5HvRa8anrS77yIj5/g4R +1c4eRO0PbGXJvP68oAc5nn08Aw45iFmp3EDNtgcxRRTnMDdmozO6kZ/eCPcg +crKfwOjmLBSdkjBsyNCD3mvTp42pfEbHtE72nkztRldzTY6OPP6Efq9mJE7q +dSNqP6HZ2XAbiSPdaEZub4ojfyqyepfz8cxwF5Jiy7oVYpKI2sfqi5j8uxC1 +v3BncVbvLe8uRLr3yS9o01skvuA7PeHRhfjU9lxXao9FVpyHmA/t6ELu49b9 +vB9CkYHiEYU7Ql1o8Iyrxk7ZV6j/tbNDblknulLzpahO8xlS1nuc3ljQiQqu +aydphHqgIKMVRQOzThTG2F/+8NJZcrLGneVn7J3oYtbdC3t3eJFTUgvOR010 +oMT+HFYRyefkzrXnhNXwDrTfukl0+Xs4+fbg1SfnTnagpTO8pi7ZseTfOb9E +yYodiCHeS06O/h052FXPbk64A5Vwy4/9exBH/m45Q1B++w9NEeIMH25KIpuJ +fGBRE/yHBMvW2ZaVP5AvRD2jI/m2o+rA/buFM9PJZ34cM5HkbkfFjDKbI8I+ +kQcsg3gaX/9Fu6X5bn1UzyQX/hHf3FXfhnIjLl79sesLOZjYt+h2rw3lcTfb +3wzJJlt/duC32taGPm6xut9Y9ZUs6oSvKEr4g6xEpMND/XPI5xOUAmyIf1BS +nFP4vXd55GvbxhromluRZIJR0RXXfPIMnbEIY3wr4jtGZ1ihSSYX2H3qO6nQ +impIRy/G2xSQc6cP6CuwtSKlwL1hOtkF5OyE02+r+lrQn+d84aILBeQBMX3S +2okWdNKg6nogdxFZrGCQUVu5BUlJcbX57C4iO2mrS0ZItaDNafby5seLyLfK +E14RIpuRhsHdq88PF5NvMQ9GJJk3o2uXXLPo3hSTGcJ2yMqn/EayHebTEy0l +5AUOTa7557/R89pz2yrYv5MN1fb01d/8jdTb2t2unfhO/n5I8NPKaBP6He92 +zXRLKZnLOeN53Zcm1MMe7Xb3TilZJZmZT+peE8oTuR54pr+UTLzwZCr0VBNK +MiO4yUuVkb26uZR+7GlCbJMPpBQulpF95YrlHDobkWVz8ouq1jLyp4vzsaYP +G5GK2fhrVY8f5JPe619f3mlEOlo4zb1BP8iMWxq+jjA1ol9Opj6flX6SefZM +HTLJaECyiW64b4U/ySX+bZGe9xpQxjuH9zvEysk3Mhr2MEs3oIiaItz6y3Jy +XUNP4c7ZelTaVGZxdbicvE3k5gtny3ok27eeTSj8RV5+Fy9lcrIe7SW4zDwa +/UUOcfytOadUjw61GCw68VaQ78QIqK/9qUNc0k7bWMMryF/bmywFC+vQcCq+ +1L+wgnxha/nPwgd1yG1KzHRoVyVZylXvRsTNOvSmBaXLQSVZQM+wg0WvDiVL +eZWuXq4kC5fmnvL/Vot0wrY14VAVWeIDcaDqaS26tW4pVuZRRV6TcPd6ubcW +SdzCNQysVJH/3UqrvbBSgxSTrqrmn6wmmzD9iDoWXYP8nsxsEa2qJu98pVwc +FVaDnvONdE01VpPf4t/qiavVIG2LdxmmO2rI2nPXPE8x1qAa/YoJy1M1ZEOm +b6fqrlQj1Tv7/6g9rSGXW0tn/FuvQp0Rq13v3tWQxU/3SeVS1u2olitJ22pq +yAct0ydD3CsRLmhJsViolnzmG0+O/dNKRO8dtF1QuJYc9/dLsxjFuIoeEwWK ++2ZEGbzdKhHPg0AHE4qbmWeKuFkrkPimQ2Y1frVkvfGOLZ6Bv1B+Xer35uRa +8u2wnaSMb+VIO/z82vnhWvLlMy3lcT7lSAV/4Z/yYi05qajt085XP1HRH02u +E4p15J6o/LqDPD/RPPu41AHjOjJORfCVTWgZ8v62yUPrWx35QItn57OXZehT +zsgxlZw68q2Bd611L8pQcOq+/Z8p1vi6I1XSvwxtvTB5ojG3jrzIqaGo7VGK +Rvi8JKXn68hTe727LPlKkY7b7uwC3nqyjauWCMO97+jS/N6LtvL15Eay3r8e +/u/I+TZ/atGRevKDJ9ZDdOElSPeDtS77pXryGPc/mxXDEsQuqqc9f62erH3G +AT8bVIxK/7Rxgnc9+QSbNZOQSjHaOcFaqhxWT17ltS0Q7ytCervh+b+EerIH +//4l2ZhCZBVvFwT19WSvnd4fNSsLkMU1v2n73noy5xURhlKxAiQuweWatFxP +TjyRk/lUhIx8Q2PoLVkbyMXqvI0tRvmoyXv4IR1vA1nMiJX0TScPefNsZy8j +NZCj7FeTm67mIpLYQoDupgby8LEZj8tyOShqiO/WD+EGstxUrdiA3jfk9SEP +FyhEMTHbx8HqK9qMLlt/pvz/hWb8rcRz2ajmBiOdGF8DWdU7ai+/8Rf0XiRD +XZurgbyU+tZpDZ+FbhwrE5dYqyerjGaZdeR+Rj+9A347LFE+/9brGkfMM9EM +p+M+i656cgaIy3eYZyCPudDK7Kp68swcT45T6UdktSMwkvFtPVn/i/y5u7c+ +IoGXUZ+kKOP1aIvYoZX1dNp4/jSq/jeYnoryx/9q5GjVk0ujFr5DbwoKlvld +2yJaT17CxQoe1EqizY8vRzsF+9kSEdmgJf5lcB25o9y/N2o6AVWlHncvtKoj +bwv8MJNS+442H20mIrhZQt4iUXt04mlmLXlpYTvzIn0smv/zaSDCtJYskjkg +oZvyhjbf5bx/xmkfi0IFByKEtT7WkDNdxEQWXofTrj8pHdsTyVtfoY8oq+v3 +o2ry8RcRHX/4QhDXq/EUhW3V5KUiAz6/vGDa9f9odKItUDwY+bCvPqj8UkU+ +6ohfP57+HAV/27tb/UMF+erPULkULV/aeib0UO6fmpkn+v7UqVf1SDm5YKuQ +QOk7D9QdwM8yy1NO1m5Wbh6dcqWtt9DxYp/kqUeo5Gcss9jDUvJEO/sj99G7 +KCroIKP6rRIyrlt8YDT/Nu37x/Si7dPj5abo047tdiaJ+eTA0msVzAUX0Nja +uMVCSS65oyet4991Ldr3aUHl0dOc5/ajlUXDhdvqH8kFrHYfLKflkHV0RmOf +bDrZ5e6cY3OwGNLM8/L4shBPdvnBn3bYd0otf6T0o2JCBPn/pyEmyNRcxHJF +KTkmfZxmX2eR43N1YzR7nuxlDX2K2W1TSpnyPsyEckZdf/1RmrlDy3llWTGz +mb+orvoyQnMY36CBeOswzcFdaQLffTAHpNn/tjiIWdSsyiTHeIhmQdkQ0Us8 +mPmWjf6t5A/SHJ+Scf1s5wDNMQ8dd0y/wBx19HD/S3XMMgthNoPm/TTv+G6y +x4cP8/YgyfGdpX00f9JwdnAZ6KU5FaepvC0cc9JfzvnCE5j3B1x9ImDVQ/O+ +SztRtjDmPdKTaxcqu2kmtx5/ljreRfO3/3iPnY7BnHWviWVCF/NRSdkATbtO +mg9Pz+j0iWFWLcjhedbQgY1/t6Ts19F/2Hg/zvywpIPZU0B9t2p6O80JjpOH ++mfasPEjPcmT0scclMp16OaXP9j44HNP8a20YOPx/kSlvjHmGM3f2mH5zTQX +JHoaazD+xj6fOumvu3kTzSltsZdKvzfSXIHO3L7D0UBzcUv7yKdb9dh42VlZ +zVTU0dzaJPT4Db6W5hrbpJWOuzU0+/NZLxxJrKa58k/F5kj5Cux4vAObRGbK +af5Pg3FTbNZPmvvZr+yfR6U0Nxx6rOLI8J3mwjthyqslxTTTq8xfOKdTQHPb +b/H0lG35NH9BRqmfEnJoVqzYNHn5aybNvPtOj5urfcJeT5nzT6NnGvb5dD1N +ZVNiaeY43Pf1nlU4zQMFTyw20wfQbHl9zH+o7znNPvalGownibR81H8RRk92 +aRJhonjwQGKjAMQN/PwaDERaHoqaJ9nH4vI8JlMAeFQrVDKUiFDP/9oy6aMA +xNDja6Uopuaheo6amVfvI8LryyczllIE4KVFFllSigh4puNBBf4CsP0H6zb1 +bURavomaL4luH9OofigAzhKt0q83E2FdIupVg6UAWLusuRnzEoGJO4vwRJfi +azauR7iItDxTRWjqMTwnEVq+4IWGNQVo+ZPcyNcX5JAA5P6oESXTE7E80+8C +GfsVAhz49mwPYbsAOCyFKKjME2j5JWoehYVfM7GISQC4rufXdY4SwI3tx5D8 +Gj9oO2XIhQwSIJWf0Tx+mh82R+504+4i0PJLq1pVwmr/CPBL99SlK638tHzK +5fnMIM9yfqjY63X9xW8CLb9087rJr9AaArAJb4kLyeKH4pMil6cqCLS8UuRH +3ya7YgKkRTQ33nzFDw/8lxpmCgkg0Kes+T2In5Zn+R7g9vZxID/I/uCA7C8E +Wj6p+4rhedUMyu8nHtXnsuGHDzdOlGz6QKDlkaj5Fo8nwJWozw/HhcTEfOII +UPb8jbf2SX6Y2ZR92PotgZZH6p1u9umJIsAWxdmEbBV+6BLKPlYdQoCt3wN3 +vtrBDy4KVp7TfgRavshwbIstxzMCvGZpTRxi5IeGKNZ9l9wI0PH+knfAApZv +2T63jkK6+SAiTDPt5AMCnNtGeqbSwQfj8rvNkhwItLzRw83j95bvE+DZ5W3f +41r5IHL3+bIHlgQI/t50NiqXD+7zEfYwX8HyQ7+lLXoTLhLAodqNfj2MDz7X +MDXE6hAg75yrNf8jPljPGC8N08byQQ94n9I3niSAXN+pT2b3+Wj5GO4bQmpn +7/DBv91N+JLDWD7ozA2+4nFVyvyx5L3bcoby87tVytNKWB6ImpcxyTwS+kSF +Dz5UeQjjZAlA6KgTOinLB1sSXn5slCRAaZ+WC+cWPnjtsXfp4DYsD0RSEdgq +KUoA01fuTD84+Gj5GS5Z2Tud6yRYywv2vcSP5YHE3ba+VsARQEzTR+t0PwnC +7q2lXODE8j89cXdtj9AT4ODiaGFNMQkWmRPSo9fwwNKSd8IvjwQhI1KcobN4 +Wp7nzp1yJfUpPHg9sOa4EYPla36XnFE4EkACru3ny98P4Wn5niID5mTUjQce +1ssf1h+R4E3V65jEf3hanucEMTVsuBEPTlqL3J7GJJi58Y+s1oCHrpQqrxBD +LI+TXJ6CO2ZAgmjxE3z//cTyOpcVsl7u+I6HS0Y7ozSUSCDh69f+Lh8P/GZi +gv2SWP6mOVt0v4soCYiix+X4svBwPW/QcYRAAuOfNXvdM7D8jrQwMTI9BQ/b +j0nODK8QocCvnmElAQ+yhmW5UeNYPucM/V3yeD8RHgxbEC1fY/mcA1qf7RtC +8fBoWD/2UgURrhQ5HNMOwvI41LyOyMQn1lfpRGgP77v+0YsyvnYX3wkkESF8 +z3rdrmdYPufH7USDOTc8MMe+uFwWSYQl5tLGJw/xUEOesunywPI75xT329s9 +JMJKBEN7iy2Wv4l16ccdu0n5vGwR+M9XKOv2mvCOdxZY3oaa56mOirHxUqes +qzItDwlGeLA+qbjjKSLCJN8pA5uLWN7mlLVfQuYFyvsdtL3Ne4AIXmXdV36c +xMPgEc/YG8JY3if5c9mFRso6PF4YLD2ngeVtsnjk3R+r4uHOa5lZnUXKupun +YN++Gw/5+GcDnynroBJ/VKwZxdT8zORfPzlFilNNb7krUEzNB11r+cVi1EgA +y0TL88zb8bT8jM3N/pL6LXjQn/cwk6esc/HX5+Iy+fG0/Aw1D9Rz7VTX5jeU +66rxc9d9HjykbLllIRNIgFCrlEAzBjzIBcJ6wj3K66dVGo2sY/kY7zoPbj6K +F5yqo3feJtDyQjlM+j/xlHWHcSA0ynUGy8fIfQtiiRnHwak2/Vo1yrqhkP/h +Nv8gloeh5ofu+oVs09hLgOZ9urKyHTioK7zpf3oHAVI6nw+pN+FgqGqCb4By +Hb/uvnJMvA7Lx1iVPcnJrMGB0jO3gBtMWL6o4MKUbuoqHvT2HtkRU4rlY/ia +xbbvKsSBPKu++MtOynl9LCYmmIPlYaj5IhUfz7xzP/CAv854Ie4jDkoTXiZ/ +o1xXf6tn8x2ScMBb2nbvNuU6+ZFpt3n0HY6Wf+FKZ95NeIuDcXP1oLFIPC1/ +NLP/deXel3gYOsEvZByGo+VfIlu+09kF4cAp6l6MHGVeg2DOcI4fjpZ3oeaR +6CPS+nUu46HqiCVqcsMBYRhx2+rjYTgPbsw4UcbzZaHNzmOU62BhtOnafRwt +z3Jl4KzGLjscRA6+nc3fi6fllS4wXrkbL40H7TvudzItcWDVU2xaJYKHnaUr +D+9fxYH13+bozXg82IzlFcwb42j5FnXP0eI2fRwITbo0KM/iQE9f6FPhORyI +D5psvjuGgx9yJ06knMKB13e2U/hOHGzqMEkxPYqj5VfsLfMqVzVwsNScLtT2 +C0fLM3UOrN5joZwXCSebmdgDOFp+RbGF65zcPhycvejup0sZ98+fFm/9lMXR +8ivUfFP+6ZFveH8cHBEQuGUujoOL78WOFVPGjWPkR8YLERxE649KEx1xULLl +KpFdAEfLp7jsF/J+RsKBHDHC8bg5jpZ/mtzlzH3REAd73oQf3MaJo+VTtMcu +qcUy4eDN9fWh34cp84buHofhGi8tj0LNP43U0TX8k8DB7/gD4g8GeWH9c5LY +NVEcXNfgDt31lxe0DEX+iBJwsCuL9cHJKl5aPiV6WVPN7ycvMAtnHeBe4qXl +o1JZMoaP9vKChNzwOaMsXlo+JWf5v8++SbxA7ia+Nf9MOW7Cvn8q0by0PAo1 +LyXYxPhZ6wkvLNNttvfz5gU792vvvtnygnBCxC9dJ8pxHD4GnTzLC7dA+lr1 +bV5a/mR2Z8BJa0te0LvZfVxBhpeWpzKXZ6//tZkXPJxfNbrr8dLyJ7HiV68p +n6C8z5B3TSX9PP93P/1B6hAvLW9CzU9d/DhF+pXJA3K8VuV00rzwlyWXZPCO +B/qW9/+0EaCMZ31GkJgzD9y+l+i7h4uXlid5pbXlUDobL/CH7vJnNuGh5atS +lxi0TujywPIF47+Z0zwQtz1DtFaBByz/X1F3Hk3V9/4B/OJe97oDTeKj0kCR +kmgQyrMbSFIyZaioKPPUgChCMnwNIUVEkzJlDlHInEKZQ0hlyJB5Hn73813f +s39/vtdZ6wxr7buf55y1X/seKHJGvbyog3VutkGIF1n4jZ0WbuXFvoTwVtKi +PgePDrCQc/LZiZpyXkQSLld41chCu87V/nMxjRcNhf5oe/yKhWIO86/MiefF +fsRgobhf7RUvSqkcfOYfwsIeK3i0rrLUh4WSDgV86bzHi/3Iy8P3Mp7e5UWi +fGVFj0+ykO53t0N8TrzYjxAei6dv15vSzSx0xEEqZvwSL7o6/a43lc6+/sU9 +yQsqvEhh4clr/2omspD1916nzIt9SM6jbDIo/fv8JJ2qMib2Wlk7+mqOFjPR +0aD3wQvbebEPGSALx+qI8qIvLh/5N3kysddSXVs8qXaBiQyWzPmGV/JiH9KV +W3PInIsXlcVIrHMGJmre1f7k2SwL+dVUnLSUZGK/lRYqNd20xEC30r3CbnSx +ELKqeNswx0BPjfd7WP5gYT+Ssm+Vw9h3Fno7XLEQMcpAPOIf35z+wEKhnhoM +8xwGCn0e+7Ank4XW3LAs6YlmoDGPn2cfJ7OwD1H/pL5d/AkLnfd5wOK5zkAy +jv1BK8JY2IMQvusl0pa4pchAK1wi1k64stAnZeH519IMdHOzi6OdCwv7kDIR +DSuKHQsJ3Hmj4bGSff8WTmtjzrHvP2BwyGmIjv3XvcmA6fB2Ojrh/ad3nQoL ++4/dpwwdt+1nIekJSRGTRDrqNA5crbODhb0H4cGi6M4LCm509MyDxJkuxM6V +HxN0zOjopcaXU+arWNh7GHZMS/IvMdFfe4gQlaYjnnlmh/gME3lMex7U20zH +Pqx2QJJquoGO+D3JASadTOw9pHNTWdZN7OOHXBeCu3iwD0tU2mCzpogHpbZJ +dOmzxwnhPSh/0lckvGEitczHd+pieFC8oyBHUyIT+44GGYuAjlAmimbPFevO +8aDDHz6FRfox0ZNfr8sHVXlQIi3H2diRif1Ge+bF2G57JvLeLH8tQogH+7GT +mlnvxKg8qOfkzrG/Z5nYb0RyLOtpVGei/Eev3Hc001AK0vI3PsTEXoPwYqLu +KMI1gYa69spI5rPHnUeHpE5VGA1V176111jBRCJzHpfunaehEptqaSaLiT0G +7bFqQTCDiVpb6RHuWjTsybbNhMZfOElDehsEe8TZ41B763hSzCYaUinY9kO6 +j4E+FtAarJfTsCfzWvtoVd0oFQ0mq9C0mhjYaygon/cqL2MgC9YRl0s1VHSj +cOTRgXcM7DMIXxZ6t0Gu4SEV3fnuIqv5goFIJhZ08wAq0lf807DtKQP7jMye +do+oMAYa5Up+bGJPReJKy7dlujNQaVnLUPhxKtr0qW6tsQUDe4uCK4Ex4+xx +H7QmR2mQh4qarjWdOqHOwN6C8GZKct8f3v3JjdzibbzE9zOQZKCBsnoFN1ov +v9D9fhcDewvCmy1vNj0q58eNCi+En1H/h4GYn+RvFdzlRhMrGTtXrGIg/WC4 +OnmTG5HE9jVemadjT/HrlLWq4iQdZcvSfayUuLFHe1F69cBtaW6Ufs1eJb6T +jj1Fe+vuZwJ1dKSZUbBMmsyN3h3Yy1dUQsd+Ikbe7hX/Ozrqzu08qv+NgtJk +CqW7UuioUok7hVJMQb91je43+9NRV+NgjZ4HBXXZkxbj2JnwE24yfwQes3PR +YpNuvzsFe7U1ATKSpewcdeyGpaYdHfuJBdrleQFzOjo7FR+7+iAFe7XuDSTF +SgkKEqk6XbukRcd+wqDNQ81DiY6MM7MXtEgUNHqrTMpLlo69BOHX9pIdpozr +yUjBztG2dSMdDWQC94sCMvrrGF3ZLUTHfqLdvFq9e5EHWUWFjFncJqMzxhVF +G9l5+UjEXZobGXs23bErtFBXMjJw5BA/+4MH+wj3lCtvxFp40GcH1ZUZimTs +2SpWzm4x3EpG9eoPvtqW8GAf8SVrKUgoiwf9Fo2/fGWRC+2cyjh67hUP9hCE +b3sz7BVUWM+FTjTaJMwE86Bskqfs0Xwu5BImqyTsx4Nc//v9iwv7tuiOG2Lv +bnOhC8q9uiXWPMjQoO+gjCsXkrv3eN13Kx7sJ3xdrJI4zXlQnlFJVPN1LqRY +Z2GpeYwHabfW7DdS5ELG/N+WbKV5sIe4/Gu6qUSUPc+gvScTFjmRoqOsJ2MV +D/YPhG8L6s595tPCiSamAgs3kHhQR+LxDlYBJ0qr3fFWcJKG/QPh2275qcYZ ++HCiFHKa6aVWGmKN7M/3c+NE/j6M7NsfaWjdaBpfzXlOFDy75+H4Wxr2DgP9 +b267ZNGQXJ6AkjzixP4tpOKUYOVeTkRKOaAeGUnD3qE2zXTcOJiGYnPvOazh +4MTeTVzi+Iem3xxImhzSK3uLhr3D1UjLARkrGrIv1r8oWMSB0hLVDgQZ0rBv +IPxbWU7LSe8wDhTy6m5EjzINaXwe6pP25EBVo3TKY6Bh36Cq83aL+0YaWmmw +YsLsCAfaQ5swUhSmoWwLaZF5RQ60tGpLQhkHDXuGFFcx8rc5KvL7tONGD4UD +e7iqPmvdikkSqj5kU+LVRcWewVVXNmVZIxUts0uh+JaTsIfjixSLNYgjoREb +w/Rd7Ex4hmxqU5VEKhVV8//NUfUloWfRMjF3nlOxXyD8G+3J/s1hBiTEy5Ht +uMWPiuSrMoIkj5MQ9JTv/uBJxX6B8G/X5ct17FgkFHJPKp+TnSVaEwJk2Ll3 +9YblF4zZ1y/daLCDSUJxG16rpR2mYq9wdX5TbvgBKtIOMeKlxSwB4eP+Y/Jy +Vb/7EqwVvuZ9XoSKvcIlZWcmS4CKuHwrDo2LLAHh45YZHKlS+LMILAHRzZOc +VOwVam6U6BkNc6M6nzx3ifhFUPGs37mrixv7BMLHWfXbmXVpLUKkrGlk4Edu +lCi1lfR6xyJscba1EPzAjX1Co2rDx4hn3EhcbCOna+YC7FsVVj0awo2EuNyj +aj0X4Jop7/iQKzf2CKPONtYWLtyoRmravFp+AQgv5+7989T6bQtw/q2Yo9E5 +buwRTqrf2k7V5kYLBnsKgj7MA+HlRHcHfXofPg/iveGHkxS4sUcQUI+fvbmd +GzlZWdXGqswDKfXxwfJ/uLE/IPxccWGDeyp1HoL7irIq2fM+OXBIcOWXOVAV +WuZwZ4qCCH9A+Li5q5UMTqc58M2m7vvbRkFHt/gItujOQTj3kKRgAwUR/oDw +cZS+seL4vlnY2TN5oi+TgkySO0wXOmbBXK7d/HY6BREe4fVpv6wvzyjol1GI +4PGEWbBIirN66U9B7/ftMo41mwXCz+UUj5aknp0FGfEWYWMrCiK8gSp3pOJW +Ewrqm1Q98HlkBgg/19CamyXwdQaM8gYs5lXYdel/3kAz9+8NVwUKCvocpXba +ZQYILxeclenZqjwD4xWmJy5spiDCG/gyTje8WEFBBxnV55QpM3C8rvKTGQcF +xQam8tvWTQPh55hR4oaU/GmwOrtm6VEfGXVUf1CPCZoGD8S3sPE7GRH+gPBz +dcaDPPf3TkNe8WKUUSEZ7X41s9JEaBq+xYgejckhI8IfEH7OovTApFfqFFy/ +S1YbecA+383J5IexU+BUqn/xUygZEf4gs+96DcWFjGLuOpU+152CbrdnwsrW +ZGTc4punLj0F4XmLPrqWZPTIXsqmc9sUGKdtJx0/RkaELzDy396sfZiMGPlP +tJ68nwTC09WqVqjExU2ClIOHyF0RMiJ8gWGv4TLJf8jIr97Px1R1EghPZ1N0 +3enblkn4Sz9X6rDAhQhfQLv2VaVqiAutDXN4FNc0AYSnkwwpWOPwcgJuGQY5 +/tPEhQhvsPbMh5ldJVyoL3/w++VLE6DA2sr6t84RvoDwdR8apaY9xCZAefZ3 +sFEEFzq3Zde72LFxKG4hPd/iy4UIX0B4up1PmIFcCeMgIq/scNKGC2l6xGSY +eYzDF+8V/FEXuBDhCwhPx5rp2jkhOQ7L3Hg5lw5xIYeJed2M5eOgns3UfyPH +hQhfQHi6Zy1+tfoZY3BK3fSurQAXGqL/0PR9OgZ2M67SNsu5EOELCE9nJeiv +t0t+DOLq1FSj+znRzSayyZD0GEh6MTndP3Ci8d1eXm3lo3B32+hEAruOEn7g +63RJsw87y9VJ/OopGgXC2/U4ZtV7svOVfp858gNO9Pa/7zejsImj996GUE70 +xa09Luzf/U7/5+k+bqRv0FAbhZLH288NWnIivP9pauixK5c50Utn/Q+t3SNA +eLonrWm7w5tGIJHjT4vhQU5E+ILS7TUSN+U4kc5i+s78GyNAeDqF6zuLDUxG +4Ea487DWak5E+ILVgRMa+5ns82cqLD/IGgHC09VJuVk/Gh0Go/NHv5b94UCE +L4h7d//rv3XZraz0vtnTYSA8nenS/TI9j2FAO8RM0vI5EOELso6cTGtK5UBy +2b1kub3DQPg59fYBjYcrh0H4ap0iK4QDEb5g66ncwWQPdt0Xcr9r/fAv9nPd +vqu5U9T+gn8562mdCQcifIED9YTTbm0OlOyuHvq5eAj7uapUivOe60MwKGRn +u7CXAxHeYFOkouzlzRxoprhRO3xkEPs5z7Lh5yVPBsG2tVPSk8aBCG+we78D +5RC7zp/JHtnQsmEQ+7lwAzWKUc0AhDU8nzn7jYQIb3DopFN6aRkJDV3icYvU +GMA+zjLw/Rw3xwBc/r3k4RFPQoQ3OLhJj/Pvg3//TkJLvNuzH/u4xELhwvw9 +/bC33Y6734mECG+AAl+/zrtMQv1TC9SS7D/Yx91y8bzkY/0HSpTPKgUcJSHC +G8zmBl7YupeEGgxOKMBgH/ZxvvUKzZfi+uBYkqKrET8JEd7AwiuwYA+FhE7f +fLL8omgf9nG5dk1tet29YJXrX5FcsoS9QVCKW967V0sQfN+YKXuuF/u4CUNx +PmOxXtB/Eb29/uwSPJpo05Ss6IGPpTcDDh5h9xkjfe0VD3uwh7uzqPTDy7IH +2isvSQiOLWKPUK3mPDbesQjU7B02m+q7sYeTE7/3qCi9GyTM3l656L2IPYK1 +096Gr86LIGLo/OXkim7s4bxr008LLfyGermt6hH/LGKP4F+0yFXH7iNefv+j +pq/5G3u4WIsEcqDqbyjY93rwn/YF8N2Uw5IY/AV8+u+oXa8XQF+M/PHK/V/Q +6/3tl3n8AvYKhGcT3tnu9m3oJ1DRu9Vj7L6Dt+VTf2bzT/C3qFiK3ruAvQLh +2U5ERQ8kK/2ExSTS1Mrv87AhePk7jvXszL9uXofddxBegfBsNd6s7mcxXTBS +FcTDbtrgotex65dMu4Cy7N2g1bF57BUIz9bX/NX0zfwPSJWwjbShzUOLtq3r +QNoP7Nd+jCbe7jv7A9Cwkbdv9Rz2C5yf9Lujoubgc8wNs+eLndiv+VSj80qF +ndAy1vmYdWoO+wV1z4DlJVLsPuRI5MCDE53Yq23bfVikYEsnTHELHb1YPYv9 +wtfqVJn2D7MQrx9d/+pAB1RmixUJeczCE5vM49sc27FH8z1AahGd/Q6prUd3 +lGrOgnG/RrTB7+8gdlNIslVlFvsGwqNtbQmcbP7WBt4khbGLXTOgbLji4MuQ +Nui8281YzJ/BvoHwaOsHjo+UFbTCx5VqKm12M2Cv9zrpz5FW7M9at2V2DiS2 +QAGzjtG5cwZ7hxfVjAmJxWmIbxodOzT/DfszXodgYYPob0C/ti7U4PE09g+u +MquzVfymoTeXqlOZ0wzycU/jfY9Ng9zo8SPmtGbsx+o5ld+8DWuCyCmjxyT+ +aeD0Oa1g6tIESxkiG23YfQnhIwg/RtrP9M1+1AhNoeVb9kdPgWbIwQiXI41g +F3s1+9qlKewjCD9WFK8vXR3bAGTOO5t3bJmC+aqRAxIrG7AXMzVXvLwuux7Q +FhHdvvxJ7CX8khzlvyRNgphp8K/AnjrsxWY2Pr7iUl0Hpfs0fli6TcL59BdD +hs51QA20P1spPQm/H9zPEi+uxd5LU1b29Uu+WjgsqGIv82YCvkbdvBQe+/X/ +fdfa5yAo9xVOCTiaDOlNYE/RI9VTKS07AUZOkUISgV+w71LmD0tOMfsCb49r +cYiOj8NxOFIeM1cD53PWTThnj8PPfQ0/zs1Xg5beCCvwwTj2FoTfer90yuhW +RhWwuIuCZveMw7FG6xuT/Z+x1zp2O3nHib2fgXLGWt2pfAz7i905GYoz6WMg +92UuKba3EnutNP/MY5UllfDpYZ+LLbvPyD3hGW1mVQmCh4a0hiXH4CqvWf3S +ZAX2VQnuPs+HyBUwTZGP2PZqFF4o3JazX1UOYcGGWT9PjsIpnbvLc36WYi+1 +rzlp7ckrpWA8JTscIDwKirUi2lMHS2F9b/bOPVMj2G8QXkpH71IfTb4EVo5t +8m8MHQEtja27y9yLsY+yuvbCXohVDBkZ23RFN42A4fuWGy4bi6CRX81HkzoC +rHuK8YpfP4Dl+bcaSoPD2HsQ/knOId/4QV0hmE3by99yGgY33w/uP3cXQsgm +0zFf6jBcXcH7w2j2PfZMOpYx92P83sN1ktON//y7z7ov9Uirxntolv9964PX +X+xDCM+U15G3byEyDybT5zcYxA/BpxB23TXOxX6JtiyItrHoLczpMQ1hahAW +VLYIuKblgPmFEpUZ10EQFu3NOxGRjf1R2Oe3aQ+PZ4GDLdcs5dQAeIVML9Cn +MiEyMbwqYKofbve825cln4k9kaRtVMF5kQxYP7ieAmv7IfH+5LbPrumQp/aM +JMX8AxuCOLMbr6ViHzTDd6Rj5GgqGO5jBW351Qf5h1LMRLengnG6sVf8gz7s +UwgfVNdk/nKg/zWQUsLkOl/2wintX+0irCTsgXY8qc2StEqErGTB6BMyvZDE +p3PSMjABni4KFLWa9EDZUKzUvVVx2Pe8lPqmvdjwEqZWX54RMO2G+8vGpUNk +YsGmNfT2XuFusD38rDfQ6gX2OpJ/Wa8ppc8gQyI4PULjN/Ywog7DGo9rf4E9 +f/rlcqGncGZtWnBC3C8o/P4oGr15gj2Ogeu+61oW0aAjkKgz7v4TvoonTB04 +FAVkc2tpm4kusLjjkOA3EYE9zbrF29bKcuGwT7Lf9dn2Lri4YjZPYuQBDBnQ +fDOO/4BlMroLDz6FAuFjdiwGjVT0h8BsttHzlNpO8KLR1Y8cDIHxifZH/tod +YCeUkmzrFQCEbyENWwUtdvjDvNppjvO97SC/S6o91MgfCM8yX2q2z3HaB0T4 +xKSyZNqwz4mUm3L23tQG12fFTuTYeQHhWQRkcsbJNl6wkNlvKb6hDUyV07kV +Lb3gdXhXTavWN9ATeqh1yMINCF+Sz1dwOLHAFTSKtT46TTfD9N3BnNbVrmAd +4v1R91YjZENqsQm/AxDeQ9vwWJ/u5usQTzHodWptgP3NadoWcA3WDbYFBsTU +gVCR0J3tDtZAeAvmo7i5Rm9LaO49s+l+eS2sWFfPL1FiDi88d7VI5H2Bwkfe +WVv1LgLhGwpVr1gFJZ6HSv3VmnEONaA3xpcqbmII+zPlNP4+/QRmseWePeXa +QHiCClL+lNIeTQidJ7VmWXyEzokDYVWrToFCRrRcXHEpdBryfDNzPQLEev7U +Nvfjh5cfhEs7dlkUmhXDbZumX2NV++E/HcWmjbkFgCJvuXdv3wnE+nqkW7qG +HC4Oy6Mz65+05UJha4t9r4YICMQl3ffvygCSbuMt27ZlQKxnJ5XK8el2kKFy +XPmV6C/276R3DWv+x5wisR6dJG66Pqa+R9EpRig2yew+kNSyklt6ShVL1HvP +fP8cAKQnx/iedkco/h/gxAUj + "], {{}, {}, + TagBox[ + TooltipBox[ + {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" +1:eJwl1Pl/CAQYBvDNHNscY+a+NpvNDmaOudnm2tjBxg7XbKM7Ckkp5SpH0UkH +HXRHOcrRQVGUEp10E7kqFTpE6ruPH77P+wc8n+eNKp+UPzEwICBgvKi8VQii +KtWoTg2CCSGUmtSiNnUIoy71CKc+ETSgIY1oTBOa0ozmtKAlrYgkitZEE0Mb +YomjLfEkkEgS7WhPMh1IoSOd6EwXUulKN7rTg570ojd96Esa6WTQj/4MYCCD +yCSLwQwhmxxyyWMow8ingOGMoJAiiilhJKMYzRjGUso4yiinorIPJnAZl3MF +V3IVV3MN1zKRSVzH9UxmClO5gWncyHRu4mZmcAu3MpPbuJ1ZzGYOc5nHHdzJ +fBawkEXcxd0sZgn3cC/3cT8P8CBLWcZDPMwjPMpyVvAYj/MET7KSVTzF0zzD +szzH87zAi6xmDS/xMmtZx3o28AqvspFNbGYLr/E6b/AmW9nGW7zNdnbwDu+y +k128x/vs5gM+ZA8fsZd9fMwnfMpnfM4X7OcAX/IVX/MN3/Id33OQQ/zAYY7w +I0c5xnFOcJKf+JlfOMWv/MbvnOYMZ/mDP/mLvznHP5znAv9ykf+oHH8gVQii +KtWoTg2CCSGUmtSiNnUIoy71CKc+ETSgIY1oTBOa0ozmtKAlrYgkitZEE0Mb +YomjLfEkkEgS7WhPMh1IoSOd6EwXUulKN7rTg570ojd96Esa6WTQj/4MYCCD +yCSLwQwhmxxyyWMow8ingOGMoJAiiilhJKMYzRjGUso4yiinIvDSP/4fgNGV +uA== + "]], LineBox[CompressedData[" +1:eJwl1VPUEIgahtE/uyZbk227Jtu2bds12bZt27Zt266zZ52LvdZ38d2+60nY +oG2FNoECAgL+ChIQ0NjRhKY0ozktaEkrWvPfc1va0Z4OdKQTnelCV7rRnR70 +pBe96UNf+tGfAQxkEIMZwlCGMZx/GcFIRjGaMYxlHOOZwEQmMZkpTGUa05nB +TGYxmznMZR7zWcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFO +drGbPexlH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1u +cZs73OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37x +mz8EBA4ICERgghCUYAQnBCEJRWjCEJZwhCcCfxGRSEQmClGJRnRiEJNYxCYO +cYlHfBKQkL9JRGKSkJRkJCcFKUlFatKQlnSkJwMZyURmspCVbGQnBznJRW7y +kJd85KcABSnEPxSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpVqUZ1alCTWtSm +DnWpR30a0JBGNKYJTWlGc1rQkla0pg1taUd7OtCRTnSmC13pRnd60JNe9KYP +felHfwYwkEEMZghDGcZw/mUEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzm +MJd5zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvaw +l33s5wAHOcRhjnCUYxznBCc5xWnOcJZznOcCF7nEZa5wlWtc5wY3ucVt7nCX +e9znAQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znBz/5xW/+EKA3 +gQhMEIISjOCEICShCE0YwhKO8EQI8v9eRSQSkYlCVKIRnRjEJBaxiUNc4hGf +BCTkbxKRmCQkJRnJSUFKUpGaNKQlHenJQEYykZksZCUb2clBTnKRmzzkJR/5 +KUBBCvEPhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQWtalDXepR +nwY0pNF//acJTWlGc1rQkla0pg1taUd7OtCRTnSmC13pRnd60JNe9KYPfelH +fwYwkEEMZghDGcZw/mUEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzmMJd5 +zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvawl33s +5wAHOcRhjnCUYxznBCc5xWnOcJZznOcCF7nEZa5wlWtc5wY3ucVt7nCXe9zn +AQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znBz/5xW/+EBDU/glM +EIISjOCEICShCE0YwhKO8ETgLyISichEISrRiE4MYhKL2MQhLvGITwIS8jeJ +SEwSkpKM5KQgJalITRrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIX4 +h8IUoSjFKE4JSlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUoS71qE8DGtKI +xjShKc1oTgta0orWtKEt7WhPBzrSif8BXeyOjQ== + "]]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], "]"}]}]}], + "\[Equal]", "0"}]], + Annotation[#, -$CellContext`x + (0. + + 1.5 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0. + 1.5 $CellContext`x - $CellContext`y] == 0, + "Tooltip"]& ], + TagBox[ + TooltipBox[ + {RGBColor[0, 0, 1], Thickness[0.01], + LineBox[{1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, + 1151, 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, + 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1172, + 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 1183, + 1184, 1185, 1186, 1187, 1188, 1189, 1190, 1191, 1192, 1193, 1194, + 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202, 1203, 1204, 1205, + 1206}], LineBox[CompressedData[" +1:eJwN03ODFwYAANBfV3eXbV+2bXt5W+aW3ZZb3rJdy64p27Zt2+beH+8jvLBm +HWt2CBcIBMYGBQLrIgQC69nARjaxmS1sZRvb2cFOdrGbPexlH/s5wEEOcZgj +HOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nAQx7xmCc8 +5RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUbgeBAIBxBhCcCwYQQSkQiEZkoRCUa +0YlBTGIRmzjEJR7xSUBCEpGYJCQlGclJQUrCSEVq0pCWdKQnAxnJRGaykJVs +ZCcHOclFbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylKcCFalEZarwHVWp +RnVqUJNa1OZ7fuBH6lCXetSnAQ1pRGOa0JRmNOcnfqYFLWlFa9rQlna0pwMd +6URnutCVX/iVbnSnBz3pRW/60Jff6Ed/BjCQQQxmCL/zB0MZxnBGMJJRjGYM +YxnHeCYwkUlMZgpTmcZ0ZjCTP5nFbOYwl3nMZwELWcRilrCUZSxnBX/xN//w +L/+xklWsZg1rWcd6NrCRTWxmC1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZx +TnCSU5zmDGc5x3kucJFLXOYKV7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe +8JJXvOYNb3nHez7wkU985gtf+UYgxH+CCE8EggkhlIhEIjJRiEo0ohODmMQi +NnGISzzik4CEJCIxSUhKMpKTgpSEkYrUpCEt6UhPBjKSicxkISvZyE4OcpKL +3OQhL/nITwEKUojCFKEoxShOCUpSitKUoSzlKE8FKlKJylThO6pSjerUoCa1 +qM33/MCP1KEu9ahPAxrSiMY0oSnNaM5P/EwLWtKK1rShLe1oTwc60onOdKEr +v/Ar3ehOD3rSi970oS+/0Y/+DGAggxjMEH7nD4YyjOGMYCSjGM0YxjKO8Uxg +IpOYzBSmMo3pzGAmfzKL2cxhLvOYzwIWsojFLGEpy1jOCv7ib/7hX/5jJatY +zRrWso71bGAjm9jMFrayje3sYCe72M0e9rKP/RzgIIc4zBGOcozjnOAkpzjN +Gc5yjvNc4CKXuMwVrnKN69zgJre4zR3uco/7POAhj3jME57yjOe84CWveM0b +3vKO93zgI5/4zBe+8o1AqP8EEZ4IBBNCKBGJRGSiEJVoRCcGMYlFbOIQl3jE +JwEJSURikpCUZCQnBSkJIxWpSUNa0pGeDGQkE5nJQlaykZ0c5CQXuclDXvKR +nwIUpBCFKUJRilGcEpSkFKUpQ1nK8T8I+1eS + "]]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], "]"}]}]}], "\[Equal]", "0"}]], + Annotation[#, -$CellContext`y + (0. + 0.5 $CellContext`x - + 0.1 $CellContext`y)^3 + HeavisideTheta[0. + 0.5 $CellContext`x - 0.1 $CellContext`y] == 0, + "Tooltip"]& ]}]}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.04], + PointBox[{{0, 0.}, {0.5663653328189516, 0.02217967971068798}, { + 4.408274528376112, 4.972742698066851}}, VertexColors -> { + GrayLevel[0], + RGBColor[0, 0, 1], + RGBColor[1, 0, 0]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0, + GrayLevel[0]}, {0.5663653328189516, + RGBColor[0, 0, 1]}, {4.408274528376112, + RGBColor[1, 0, 0]}}, {{0., + GrayLevel[0]}, {0.02217967971068798, + RGBColor[0, 0, 1]}, {4.972742698066851, + RGBColor[1, 0, 0]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-1, 5.408274528376112}, {-1., 5.972742698066851}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.6936581121959867`*^9, {3.693658161002733*^9, 3.693658203211225*^9}, { + 3.693658283038782*^9, 3.69365830044893*^9}, {3.693658367031249*^9, + 3.693658378344777*^9}, {3.693658438988784*^9, 3.693658457910475*^9}, + 3.6936585324333773`*^9, 3.693658690106456*^9, {3.699350119539962*^9, + 3.699350130482479*^9}, 3.6993573679385138`*^9, 3.6993574038336143`*^9, { + 3.69935750875133*^9, 3.699357564251978*^9}, {3.6993576436487017`*^9, + 3.699357721943129*^9}, 3.710001290405777*^9, 3.710001383885766*^9, + 3.710821913916211*^9}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Figure", " ", "3", + RowBox[{"(", "B", ")"}]}], ",", " ", + RowBox[{"stable", " ", "persistent", " ", "state"}]}], " ", "*)"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "ge", ",", "gi", ",", "n", + ",", "te", ",", "ti", ",", "cplus", ",", "F", ",", "P", ",", "Z", ",", + "z0", ",", "Z", ",", "re1", ",", "ri1", ",", "re2", ",", "ri2", ",", + "plot1", ",", "plot2", ",", "plot3", ",", "plot4", ",", "Ge", ",", + "Gi"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "0.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0."}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0."}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "15"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".05"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", "1.65"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], " ", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";"}], + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ",", "\"\<, z2=\>\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ",", "\"\<, z3=\>\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Three", " ", "steady", " ", "states", " ", "in", " ", "the", " ", + "phase", " ", "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";"}], + RowBox[{"(*", + RowBox[{"steady", " ", "states"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", + ",", " ", "\"\<, ri1=\>\"", ",", " ", "ri1", ",", " ", "\"\<; re2=\>\"", + ",", " ", "re2", ",", " ", "\"\<, ri2=\>\"", ",", " ", "ri2", ",", + " ", "\"\<; re3=\>\"", ",", " ", "re3", ",", " ", "\"\<, ri3=\>\"", + ",", " ", "ri3"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "hand", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Clear", "[", + RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"re1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{"re3", "+", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{"ri1", "-", "1"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{"ri3", "+", "1"}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1."}], ",", + RowBox[{"-", "1."}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1."}], ",", "4."}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.5", ",", "5."}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.5", ",", + RowBox[{"-", "0.3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.5", ",", "4."}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.1", ",", "4.6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1."}]}], "}"}]}], "}"}], ",", "Automatic", ",", + RowBox[{"Scaled", "[", "3", "]"}]}], "}"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.04", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "ri2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "ri3"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", "Blue", ",", "Black"}], "}"}]}]}], + "]"}]}], "}"}]}], ",", + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"re3", ",", "Black"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Black"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri2", ",", "Blue"}], "}"}], ",", + RowBox[{"{", + RowBox[{"ri3", ",", "Black"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"ContourPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "c", ",", "d"}], "}"}], ",", + RowBox[{"ContourStyle", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"Red", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"Blue", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", + + RowBox[{"PlotPoints", "\[Rule]", "70"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"plot3", ",", "plot4"}], "]"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.6912339312102537`*^9, 3.691233943676816*^9}, { + 3.691234729013556*^9, 3.691234749188939*^9}, {3.691234814062585*^9, + 3.6912348414244337`*^9}, 3.691234911761272*^9, {3.6912349654191236`*^9, + 3.69123511475626*^9}, {3.6912351510020323`*^9, 3.69123523140657*^9}, { + 3.6912353075076427`*^9, 3.691235465883363*^9}, {3.6912355101362963`*^9, + 3.691235510356257*^9}, {3.691235545528833*^9, 3.691235621004429*^9}, + 3.69123565311618*^9, {3.6912356867226257`*^9, 3.6912357145281153`*^9}, { + 3.6912357460425043`*^9, 3.691235918697733*^9}, {3.6912359492385674`*^9, + 3.691236002630848*^9}, {3.6912360401376753`*^9, 3.6912360648909407`*^9}, { + 3.691236105865485*^9, 3.6912361220931187`*^9}, {3.691236157169026*^9, + 3.691236184457939*^9}, {3.691236707681211*^9, 3.691236711400478*^9}, { + 3.6914315300611*^9, 3.691431627381289*^9}, {3.691431730943568*^9, + 3.691431766005672*^9}, 3.6914326052666388`*^9, {3.691432666110923*^9, + 3.691432699106036*^9}, {3.6914327496010323`*^9, 3.691432790426443*^9}, { + 3.691432824939239*^9, 3.6914329098371964`*^9}, {3.6914329411431313`*^9, + 3.691432959102685*^9}, {3.693658562499833*^9, 3.6936586753299227`*^9}, { + 3.693658706880313*^9, 3.693658723433455*^9}, {3.699357971916561*^9, + 3.699357987028969*^9}, {3.7100014117645893`*^9, 3.7100015555616217`*^9}, { + 3.7108219325927362`*^9, 3.710821955452401*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999998775510204, -0.0009999998775510205}, \ +{-0.009981596925517519, -0.000998159692551752}, {-0.009963195075524832, \ +-0.0009963195075524832}, {-0.00992639137553946, -0.0009926391375539461}, \ +{-0.009852783975568718, -0.0009852783975568718}, {-0.009705569175627232, \ +-0.0009705569175627233}, {-0.00941113957574426, -0.000941113957574426}, \ +{-0.008822280375978318, -0.0008822280375978318}, {-0.007545498675056164, \ +-0.0007545498675056165}, {-0.006353327134634622, -0.0006353327134634622}, \ +{-0.005184541267416732, -0.0005184541267416733}, {-0.003916692098808575, \ +-0.0003916692098808576}, {-0.0027334530907010307`, -0.0002733453090701031}, \ +{-0.0014511507812032195`, -0.00014511507812032195`}, \ +{-0.00019223414490906064`, -0.000019223414490906064`}, \ +{-0.000019132653061224482`, -1.9132653061224485`*^-6}}], + LineBox[CompressedData[" +1:eJwVzns41XcAx/GDMkTu64yD57DVnqiYXB7P+FhNs8cltxOeeFxyGbmdc75i +cmnuuZ8jjuMop0P46QxhTmiNZgyZrQdrimXDI5daR3vSwtb+eD+vf9/M8ESf +SEUajeb0tv/d2RoxZRzwQq7tLEN49z040TdPKKSFY3wmJOf9iiMIbq65rWQX +B2F0zHgT3xaprKXijAUOwuyGVj60dUIpv48VqJmKQ1s0BV3nk/BWFQ2mL6aj +OlsabW/8GW7NPTIb0PoK09/Y0LtOu2HG14P5ryQHOxEzgT/Gn8aDqKHnCyr5 +GGnn/VQo8QYRBI53SwqxspvBW5P54lnEyxRzrWLYrTOD1ykW9nt9bcW/VQoN +E9tj/T/44wPpos5Zswp8r7IRtPprINozk/++68+Dt+5Sbe/wWaiHVs0bNPER +Wd0Zlvh7MKY17Ttc5ythqqqxOTwVAgtPdROWVhXua5hYfvIkFGdEiVcCg6rx +T3VJkslaGNZ7WPJjfAGaTmUEeCyGg7UwdmZ3oQYvGvYN5cvPwb2WHXDTvBYk +qktp500E2pmiE4dDRBCod1sMbEZiSeZrfV1ah1ajydlrtGgUMMrVV/+8Cv95 +WsTom2jINLeztfXr8eIar/Wo/AvMqWxn0S3FcJ7SCh/YiYE+u/8j3pgYKp1c +beGrWMhC763s5VzHpOnHFlLlOJTL1CrP7Zegnxuyb8+eeLRNrxV3NEugybe6 +KNqOh+1FvcLXHg0IylHquaSWiJcFmanmTxswZH3+vrdSEhgMy7hAXiMMHPea +6pQkoTglre2C7Q0EKDdIU3XYsHRQXkr/+QY6a01bX5ez4ZT7m3FWShPU3I5L +j9M5yLZ55h6r2wzJ0IZ2oYADjTbR6KfSZmyfMOJl6HGh2FbxuaFPC4zf9RPY +13FxRH/k29n1FtiIx8XKhgS57uq9pc9bEJ8zZOFoRPA4x7vbWd6C76Ju93NN +CErkj1qbXrVAP5X/xxMzgvXJvwQcRQq7E3S/fguC1iIDjhqdgmpxz3CSE8Eh +WsJBh5MUOs+nrs+FEWTadTE3XCjo+7Mf6kUQzCRsMcSuFFKqEkfcogjy57J1 +lT0pVLEy2npjCZb7BLQHARR61pbFVVyCxuTB2ZgECqNdDgc88wi2pcozDDaF +p3nt1nkFBH6Lbr9McimkTR31vXOZQMl3ZsTmSwquVp6iw2UE4ZZr3Qq5FIzl +dK93BAR90ZYd3fkUTnWs5joJCXTqk29GX6YgyBq9kywiuKdBk0yUUdCua7dZ +rCcwcHG5eolHIaZMdsFQQsBJL6qxvkLB5fFEn08jwVjXZOVyNQXHh3KFoiYC +5ppeuVD49m/qoPtgC8F/HXPLUg== + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.05}, {-0.0009999998775510205, + 0.005043749874336736}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.00999996612244898, + 0.00999996612244898}, {-0.009490848272651342, + 0.009490848272651342}, {-0.008981730422853704, + 0.008981730422853704}, {-0.007963494723258425, + 0.007963494723258425}, {-0.00592702332406787, + 0.00592702332406787}, {-0.0018540805256867599`, + 0.0018540805256867599`}, {-0.0005293367346938775, + 0.0005293367346938775}}], LineBox[CompressedData[" +1:eJwVl3k8lc8XxykiuwilrKVS+UqiqI4kKUslKSUlS4iIRCWhVYSokKWSiJAk +OyNbQsW918517Ut293nutf/m99fzej/PzJwzZ875nHnkr7ia2q3g4OAo5uTg ++P/zYOieMNfK28D/QOEsf+VtdLpqfLOSXCSEvQ28+1Y6EjkWR3xZl5QOU6Lr +W6fvp6ORm4YZSXq50LTHXqhvLgfV/bWJbg1CoFLm5sVPK0FHqaPnzhyugIDt +oQ7+fuVol8ehbatvVoO3i8mxTxt/Ir4GPZHgpTp4USO+0Fteg+Kqf5WO5dfD +VLPuYBjPHzS/wlda+w8FbJxdU5Mv1aPLuyQmoJkCAXv+ZW23q0dVlzLK9BgU +uNu7cDnNqR6FFdEdTaYpcK/6SfIHz3qkdAvyrCWoMFRa9dUxqB6dHOY489SK +CoJgfdY0px4l/X0Q0jhOhQ8W9XXPVjegk7GBnG7CjRA9lvoVPjYgmaWUa+2S +jSAbrrwqPKUBjV2qadSXa4RGqplEd3oDeqbIn7pxVyMMqj6x9cxpQOWpwaa1 +po0gEe718tbPBqSRH/pB6XUjcF45rtg21IA2Nr060rmhCdZT57g2bqOgUc2c +Lwabm0A2ef1prp0UVBDdtC57ZxOYbhnePaRKQeYXJcefHWyCgBeenz7upaCw +vqjXey83gcLlx/tYRymIayZmMOJDE8g4+nfO2FHQiHBC4HHlZpiyUobjbyno +Hm9zcJBaM3zmlFv+kkBBIpwCYXVazWB064fRmiQK0pj2fG1i2AybWvYH16VR +0APasQ+mzs3gdCLojmQBBW2Inio6n9EMXfqXeFfRKMhY4dCkk1oLDO86/ewA +NxUx1t+a+azVAuLCthlqvFR0U+wzOarbAh153fs28VPRG661i9dPt8DJLZcC +FkSoaGBgaLXHzRaICObJ899ARb6fwxTv5rTACu+rnzvVqChTnWEepNUKup26 +l6mWVISe6bLvH26Fb+VTFoGXqOgPIzH6plErRJ1d+U/rChWNBjt2XLRqhbXo +0O+wq1S0tX/aWjWgFVw2NF/lcaeit6+4XRp/tcLLa4IfZB5TUca/q0I1lFbQ +mo28+PwpFRUdqvlS0t4KzrmWkaxnVNQ2FjKdPNYKwVPPA0pCqUhCX8r7jmgb +XF9hJygRTUUhpPIDWYs2CI/t/zCSSkVxRs83iV9pA/ebd+JE0qkoLWGikvda +GzCS9i3t+kJFNSbZvNM+beCbpTFh/42KViUfCKl41wZTV1Tsogvx/s+ejHYc +aoP8k49OydZS0fP0LC2rqTZQePtv9XwdFcWuXNthOtcGQ8uPRSl/qKjgS6vM +foF2SPe24XWnUBHJY5MopNoO2RKDTrdbqcglz/PLN692CPCT/J44gON96PKg +kF87KLy8IrJ+iIqsao/LOj1th5KTgYeChqnIhC4bKhfdDu6ar+SsR6lIhavm ++vOCdrBbbv/SNkVF4ydkVK4utoNOzkZurgUqsm/ltS/j7gCF3ms7NRapiH5l +Jm6jUAdYnjaRsl3C5+NZLUiT6YCkO5y7vnHQUEaM+5iOTgdcrvMzkuGmoeuD +VWnrH3SAhraG7BZBGhpw+9rnGdQBb8p+McSFaMhqLmZDQ0QHuIuUn1rCbCJ4 +I/hJYgc4TskcqBChIZXd0s7Myg5I01sttUGchpKKuBNP/OkAh7Kzuwcxy+hP +tqc2dYBvsi8zfS0NCVlUGloPdoDWUpiNiiQNjfu6bv/D2wl3jFyoc+toyJ73 +vM020U7o/qa4kLCehugv9GIeruuErVw7fuhL09CfxHX82sqd4Kp5Q9p/Aw3p +q3Adfq3WCezfxhmSG2moJHf8zpRWJ6RlF7akYM6oKR9JNuyEVIngiVIZGlIy +y1BYadYJSTtCW4/I0lB8Z9R5K8tOcK62Na/CHDLpUiPu0glzvDUrC+RoaNWd +cyvcPPH33fO7dsrTkO/Kw1q19zph78Sh8RjMrhJSqf4hnVDiYibgrEBDVxb/ +8wuL7AS5iBrbRszmfUfN377rhJdiz333KdLQ8dpLOzJSOkHl+/pzUZgPZnmt +KM7qBHGH6YkpzGrRoS21hZ2QqR+hp78J++uXnNFW0QlDr3zMXmEWMmk+z27q +hA2uSu8UN9PQij0TqjyMTmg5N9ByBTMpzcMjMdwJQh5jVbGYR1bIdm6a7oTi +1kKHBsz0YY1vu+c74TatoYhDiYYo9SaBulx0eNf05Ycy5qpc+0unBOnw9H6T +5wnMBfG+ey5L0CHzTVXzdcwZj17zu8rSYUaWc+Ap5gTnjO57W+lQsJvnbRzm +16ercoN30UFly3nOdMzPtOjPY7ToYON9lz8Xs688aZN6mA6RlNHCQszuvEJa ++UZ0OCekKvp/tp/YLFJ9hg5Fu36u/o75fNOBgSYrOkS7qSemYDYuPlPUf5UO +qTvm6FGYdRJdwpludKAQb/ICMKsHPXJYeYcOus+i/7uKeat73ME1D+iQ3eSt +q495g8V3cflgOsSThROymEV0fo/894oOV9QH9jBxfLi29JcejKfD49V3xcox +swUXXxsn02FAZulxMOZRpriLZSYdRo1mQk5iZrTvOHwtnw6FMfRtwphpZXrr +7pTRwf2wnnk1Pq/qFMuJp7V0MEv7tMYHc1HYzcpIGh1WuYZdVMac6RUck9RJ +h1Izvz1UfP6JVok3vg/QIeDsYtQtzEE7aBupbDqcfvFtIQ3nk6/Y6Ew3Zxfs +y2LNAmb3uZU1k3xdoFNB9/mN8/F89e5bQhu7QDkrXbAF56+ybcSfY4e6gM+d +U+0zzn8Zw8+J5453gdo9od1rMK9RK79z9XQXrHw6k+6B62VueVrpkV0XDI3b +8Cvh+qqJMb1fGtgFWQnF2ga4PksCnM78De+ChD6HngApGspyDNhOj+mC8XUq +rFxcz280s5rn07tA5Mh2O1EJGnKkiqpqUrrANnNpm/8aGlI4dfCtdHsX7L0Q +GR4hSkNtf5yEOPq6QF8g78U7rCdGNeWj1UQXmIUKmqRivYlkFJilCzDgYa13 +lA8fDd2UPRUsK8qAHQQKsVlNQyetBstfrGVA35NgkSO8NMTbIbb7lgwDSu7v +/crC+na72VkUVBmgFHRbR5oT16PEymNf1Rmwxuqpc9MyFamdifZT3McAgf1b +1gVjvRyhVE7w6DLgxI348YF5KrL8I/On/jQDvA/o2J4nqehgZf2zK14MSKq4 +eUxzhIrWc10to91lwFoBkfZorOek7uKsvh8DxLfeaSax3n8p3ea4PRCvb2/K +/66XiuSKAo4y3zBAJlJv35cOKlrxTZ3rcQkDKkL8/NBvrN9TNdrsMga4H9Xf +WI37T4GqtYfTTwaoiJkJ1/6iIo+M5z0m9Qy4Ezo+hiqpqC9loFSyhwFlQYWu +dsVU9PNd1L0U7m64PeF4If4zFZ2bdef4u7obZHyCxz1SqGjolPEDpmA39L25 +7a+XTEV8K1cEgkQ3ZFAdE5oScP+xu/ayUakblLekZJXg/krbdvAzp0E3JK19 +sDEO9+uerN4Wi2eYl60zgvB9wIO/5ML9kG5Izp5RRhZUxGUbRU8M7waTRbtH +Y+ZUtHmtcd/Em254bVj8V+sUFTl45Uw8+twNh63mYiOPUNGEduCqrLpuqLN/ +omqxk4oWKlTU+YR7YLHi1xKTTUGGdbKPA8V6IPTPiqOaBAW9oYq08Er1gM7X +K1YeUxSk2TN9l0e+B1r5rxItwxTkvpxTzrW7BwS/H3ln0UZBQ/vg9LJ5Dyzn +xlX/h+9PtIwT7sz4HvjH/c5NyZOCFHN0Kjw+9MCNCGX5d254fvEuiZnkHvAW +4PcWc6Yg4TqxgqnMHjBPqBMbvEJBx4ebOSfKekDK/jLj0EkKKlW8/GJ4oAcm +Mx/nVuD7Y3qUWyZdpRf0n06Vks0NKDP/o7Ho7l6w8c8YXqQ0oOy2tpHDmr3w +8DC3w/LvBlSw4cjmFOiFZ9rR1lPlDaj63bo3Hid74Z7lxp0vvjSgnk9lD3jd +e0Fga6URetSAJPPFz6p97wWh3Vvm/uxsQOvbjjFt83vB+lQ+W2Yrvh/P+76I +LMb2DM1VHBUa0KYDw7ULlb1wZ4zUGpVoQGo/inV+NvUC5QkFpS3XI6Nf9sqW +7F4wSt6RIlFfj/xb8xYfaffBopVr1BPneqSbwuW0RqcP5P/7JhuB7/dct082 +xev1gV/xQH6kVT16LDWUkWvcB1FJbxWCT9ajZ2clLw9f6oP8Yr4kefV69LLR +s8zoYR/YGt9lL8z8RZ8a1J6I/e6Dirsj/hMcf1H9rzSR91b9UM2lJHlhsg4x ++wKOSdn0g19hnvT+rjokyWEREHq1H2gVU3rCf+qQlQY3855bP6gUCy4Ffa5D +owkXm88H9EPSh70tdLs6tNpHKF48qR/Oh22KGWquRboqbtufjvXD+jn59X5f +a9D38N36rj4DsMGXSLPWqkbF1aVGIk8GweyfjeEfnnKkkzErtfnTEESFxCy4 +c+SjAY59OQI5w8AIsIlT00xCCjv4byWXjABHuHXndo8waFsVOP+98x98Wqye +32mfA9kmgqaRw6NgkHBruDeoAvj0D1wf5R+H0tgRIcUnf4Fcy5HO3DoBL1uP +BkaHNEJAii396rpJkDJ3y1swaIcqWdljoSmTsBCeUuw5wIDYOssNcqpTwMeb +q58n2AfF/b1+fNlTcD45sIKtMQgxTTrVKoenwfyrFPk8bQT4l+S8i6qnwdRd +/sqtrjHYt9jE99BiBh5teqRTHzcJbDWRVd8ZM6Bxf2zkg+Q0rGgMDwc7JmSf +KlxTdnUGhjVOJvpeZUJoy8nVEi4zUB8lmFPsyASrn0fu27vPQLzl01bt60xw +a45uWvCZAe2+e3J7vZjwo87ky9KLGbg545ChGsiEJbGMbtPCGRgQhRr5dCbs +v23qIM3PhN8eC+2XvzDB9UnQMiGM7Tbmj739ygR2t9OdOnEmBESri8rk4PkX +ala5yDBBVl753HrEhD2k6L+7u5hwTnXtwJoGJkx3MazqzJlQY/KPk4tgQuYr +zW1i8UwILj6ev4HFhFK1000SCUww3pHqtmcW+1fbcEEiiQn1qx277BeZ4LtR +kM6bwYTGioGiX9wEPKn3PlRYzASGVo9XqAQBRsNSQac6mEAqtY6t30tAItWr +XhG/z3u19+NuLQI0Ol0/Ra8j4DZXlKXRfgJad6hX8G0kYKHbvPaeDgHZEZRv +dEUCOONonxgGBERcjP1ntIsAAbF6myQLApQWIj0PGhKguFzVuusuAWKvrkqf +xk+9yq/eXvcIGMl6oGPrS4BtUKxk8X0CcvKT1rn6Yz8k3c8YPCSgXiH4940n +eB3VjQ1WzwmQCP7mrxxBwFZrj+qgt9i/46H7bVIIMNhidbXhPQHk75j7AmkE +OI4ZrJJMJCCyZpzvSwYBqbdl9BI+EfDHuofe9Y2A7eG/UN5XArjzbQsmiglQ +KZfN7S8n4ObqtE1l9QSYBPKZb68iQFnwesoChQDXEwTTrZqA93W2q1QbCchs +r1FbqMN+vTu1w7+VgF1Mz4w1TQT8k22yqusmwLTgsvG5FgJCPvJ11PUS4O5n +OBrXRoBP0g9WZT8BWQLyytu6CFCzeTr2fpgA9c11H2GIwP8vu7k5pghcpzl6 +j0YIuLLFPKVimgDPr+97a0bxfoK3fPVn4jgd8JI3x+N8stb+6WMRoGmuEOc8 +R8DRwOZrJksEnNsguD9rgYA5FQPLxmUCvHtYbSz8fkOly00zThLyrv+WerCS +hHNRAYtaXCRoPfF+GS1AgoOLd9yn1SQIeHyKpgmR0Dd+T3SEj4ROq5Z4YVES +vgwTBYp4nJ/G3pRHa0noWTkfdh+PM1VwyCiVJMGc1Z7xXpgERaGob/PrSOjn +ae4rFCGhqp9VfEOGBBPX8Lsta0iIathSniZHwpzsg99tYiQ4Fp+tHlQgQSxu +fF2jOLb/KpdycQsJC1F2D79K4PX1vAaPqZJQ8n3zH971JGxSTR59qEbCkKyV +Qg1mQrp5CqmTEJM1r/5AGq8/o7GwZx+en8rt1bGBBKcue84b2iQMWGlE+mwk +Qbv29aq0AyTcppqdFcd+0RNIEQVdEtrsvkYpy5KQGaIkcVGPBI7DoXwpmP3v +mEtH6ZMgeeHNogz229T+sRzVgIRYYUmnYMybTHM2CxmSoLr5iMEUZvLAgPIx +YxKu/7gUZixPQvU2CdWHJ0hIc4jTeo/5zVr9PegUjsv8fzCK+RrnLa250yQs +f9d7rYLjsH/sI+wxJ+GxMtdeB8xCrY16budIeK0bviEaM6OC+/jn8yRwaQvt +/4E5K3PPiQFLHM/34SEMzA9j7czkL5HANNsjwMJ85ukrC0trEgx9edK5FElQ +ullpFWlDgkTEWsfVmNmXCBuKHT7vk1f3cmOuMdzsKOhAgnvh8ho2nh+jeea6 +gRMJges7J7sxOys+8njgTMI7FvtXGeaDwt+9S66TkCBt8PoNZpH5vnuzbjiO +wQXGjpi7B8QfqHuQ0BukPfT//WVR9J66epIwHf714j+8/4clN5+neuH9mC59 +jMdsnpoY3n8bxy99Kc8A85bXtEg5HxKOFj4LGcbxZftzxV3wJUHvh6eMP+Ya +F/WE134k2KuFXBbGHGthm9wQgO2nxRm9xOfncuRlmsAjEtpJhzZhzCIbmTkB +gSS4UXcWjOB86OHdVFQcRIJKatT8MczfmKd/sJ+T8Jf2vvgtzh/zum+118NJ +GF/WTlDB+bU1r7c+5SUJl1Uks6/i/Jv9INbU95oEQd7NmyNx3sfe9WCcj8Hx +4NJc2YrrwuDmkSDXOBI61rz/MI/zmeksqfHwLQkhelZVazEbWhUGpX8g4ceI +vpcqzn/S/LlG2UecfzYfWKq4PhJOXOpuSsb5u+I7fSuunzmdlZocaSSs36ta +uYTrLWlfY7d4BgnxEWk5Hf+vR7Xk4G2ZOJ/frpz5KkhCqqJhj2k2CTkPD6jq +8pNgsSri+cciEprzRllsbhz3Zdu9BSXYzjW7u2FYDzJZGr1/SnG9VhqJymKd +4B1u28uuwPu6OHRWngPrR61C3/HfJLT0cjzNn8W6/CJLa7KTBGX9S5vU/hFQ +Fviwn4uB48NJcdXE+nY9wDxsXQ+2LzZjsXuQgEqPuX7dARKEH1aNCmF9vGmu +++LVOI7P1/sHzLBOUqQpg1rL2P+RB1yiPwnwFU8MP8HJgisDpiU+Ff/X5VsH +bFeyIKBa6i39BwH+S+sinvOw4CJTMPdhEQGq3dYHGcIsMBi0cLLAOh+aNPXy +kRwLHsW1y8hEE/CGNNnyU4EFNV05zIRXuN/op+XzbmaB+euDidLhBBQM2NOD +trGgZ7Wiw9AzAgaUOraEq7GA7+Ynh3Hcv/YnVxXE67EgLa7Y9sMFrLssRWOG +PgteQYKY9Vms/0f9u+SPscA0vJYtepqAq4PaXB+NWVCcfHi/8XECwrd8Nf5s +zgJdY3rAVtx3h5JjGLkOLMjLS6Y6iBIww2K7zzqxYMblI9tMgIClo+bc2i4s +YHY/S93Ng/vokIhyyQ0WsFZ2B1YvMOHg1sceFXdYYOW9k+fEIBNefnJb1RDM +grKcF9cq85mgk3Jkx0gmC7JLtAT5zJiwedURW+5vLBC8fFQj2ZgJfDZ6sXLf +cbxcwlw1jzKBtuGwwNl8FpR+UBpT1WKCQ5jOaPkPFjC0b/E/kWVCmJd2WhwF +x2u01yd3cAa6j+zacYrJAk65NS79+D5VlaBq60yy4J2/xWKD3QykLf8X+4TN +grqLyD7z4gzcylcRKFlggRxPWqyu8Qzw7dwxqszNBqlLhncKt8+AmviWNC4J +NiyM+6wl+6choGfDjjxNNhTM7/PRPzENUnbWNdX72KC+wsI++Mg0ZAx+dGjV +ZgOvFM2rXHsa2kdVPs4BG+TBY4hr6zSos3RkDhiwIfzd8T7q8hT089uJlJ1j +A/fokTPRaVNgsCedWXubDd5c5MPbc5NAz50K77jLBqHc73b145NwU0tj19g9 +NpgcTpST7J2E94BchALYEM3knfOonYS5Yw0DJ5+xwSkvQcApZhLSrIiWxjds +SJtetfPg3kkQfnqguKuQDRLM61ruNePAdUXw8MYSNrgxPvRFpI3DnHZn9flS +NuxfJ6UfHDIOfRM+tMYKNpz81pzPYToOeWeL/tX+ZkNR/LwK0TSG7wXa6/O6 +2BB2Je36dMsoZFft9QpbOQuWezjmrxWNQMo73sXf3LNQkvCtXDl6BOLvtATw +886C+JnDvkWeIxCo4h3yWAB/VxUzOqcyAlavcz/6rJ2FWIG4Dpe4YeCx16A5 +bJmFAsMzOwj3ITjPrb7rkOEssKVzJyPm+kF59KPlOeNZGJJfalGn9cMsRfKp +64lZKDO7tupzej9EvZunx52eBabetQqJy/3QpF0ePHdhFiqyuWlDZX1wyt10 +6JvzLChI25tc8usFgy63t0ohs2CUw2tBbWWAVFVPzYGwWXi5v9JzMJ0Bg2lm +pFn4LPRU/L3w258Bj+/sNX7wehacaVUiQtsYULGWY74rfhbcji7+QyN0AKNQ +8+gvs6DHIe1zjq8DNPLTBQUaZqGaU7NelbMJCrRHb1lTZ0Gq9Qkt50UjHCxR +ZuQ0zkLewHenUvlG0C9PzrJu+//4RralDg3Mf78/m9s7Cy1WbkezvChwq/vV ++yvkLExGxA5yxf2G3NW+e/Kl5+Akoa5z1rEI9gcXxQvJzEHp8YcXo5wKoFRo +nsdWbg50Io6NFDrmQbWYd5vQZsw/LZMSrbOhZaP7fVuVOeDQWhOV4voJ2Lvs +fwkfwtwe85++UDjyyU5UszuMmafhjVnEG8Sh2RtTcGQO/NITM9+EvUe8+y9f +tzuOWVkgr2x7KpLSPy9WeBqPTwLxH7XfUWx1lI+IObY3vzuUspSL5Ayb++3O +YY4ac96kXoC2njTLE7n4f/vHjoR+LEFplHB5+0vYf1ex+Ea3UqR6puFZofUc +vOuQ+7kq7AfKbhZmitji8Zq0zguZZWjveZOL9vZzcPleVEJjQzn6H12vnB8= + + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 1.65}, {-0.3148640952306691, 1.38355389641328}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.69123474968618*^9, 3.691234817755069*^9, 3.6912349120280037`*^9, { + 3.69123500251795*^9, 3.69123502262108*^9}, 3.691235060497672*^9, + 3.691235116374641*^9, {3.691235153119502*^9, 3.691235232577821*^9}, { + 3.691235309316052*^9, 3.691235410005908*^9}, {3.691235441561222*^9, + 3.691235468804256*^9}, 3.691235511564652*^9, 3.691235591493251*^9, + 3.691235621603333*^9, 3.691235655537239*^9, 3.691235716571472*^9, + 3.691235748719133*^9, {3.691235786995617*^9, 3.6912359204199333`*^9}, + 3.691235972832467*^9, 3.691236007321347*^9, {3.691236042685934*^9, + 3.691236065891592*^9}, {3.69123611241326*^9, 3.691236123166916*^9}, { + 3.6912361578860197`*^9, 3.69123618518445*^9}, 3.691236712266387*^9, { + 3.691431539871566*^9, 3.6914316284332647`*^9}, {3.6914317320606422`*^9, + 3.691431767152439*^9}, 3.691432605743325*^9, {3.691432666897542*^9, + 3.6914326996279593`*^9}, {3.6914327504551477`*^9, 3.691432791081518*^9}, { + 3.6914328261583443`*^9, 3.691432910322167*^9}, {3.691432945802*^9, + 3.6914329599597263`*^9}, {3.69365865169663*^9, 3.6936586791865253`*^9}, + 3.693658724268874*^9, 3.699357487084653*^9, 3.699357990420772*^9, + 3.71000151992873*^9, 3.710001557374819*^9, {3.710821924515305*^9, + 3.710821936679207*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "0.35`"}], + SequenceForm["detJ=", 0.35], + Editable->False]], "Print", + CellChangeTimes->{{3.693658651624963*^9, 3.693658679116765*^9}, + 3.6936587242009068`*^9, 3.6993574869779053`*^9, 3.699357990345571*^9, + 3.710001519939899*^9, 3.710001557394575*^9, {3.710821924531025*^9, + 3.710821936697151*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", "0"}], + + SequenceForm["The zero crossing of P is z0=", 0], + Editable->False]], "Print", + CellChangeTimes->{{3.693658651624963*^9, 3.693658679116765*^9}, + 3.6936587242009068`*^9, 3.6993574869779053`*^9, 3.699357990345571*^9, + 3.710001519939899*^9, 3.710001557394575*^9, {3.710821924531025*^9, + 3.710821936699337*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three zero crossings of F are z1=\"\>", "\[InvisibleSpace]", + "0", "\[InvisibleSpace]", "\<\", z2=\"\>", "\[InvisibleSpace]", + "0.8273683195177394`", "\[InvisibleSpace]", "\<\", z3=\"\>", + "\[InvisibleSpace]", "1.6396690944973185`"}], + SequenceForm[ + "Three zero crossings of F are z1=", 0, ", z2=", 0.8273683195177394, + ", z3=", 1.6396690944973185`], + Editable->False]], "Print", + CellChangeTimes->{{3.693658651624963*^9, 3.693658679116765*^9}, + 3.6936587242009068`*^9, 3.6993574869779053`*^9, 3.699357990345571*^9, + 3.710001519939899*^9, 3.710001557394575*^9, {3.710821924531025*^9, + 3.710821936702224*^9}}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Three steady states of the SSN are re1=\"\>", + "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\", ri1=\"\>", + "\[InvisibleSpace]", "0.`", "\[InvisibleSpace]", "\<\"; re2=\"\>", + "\[InvisibleSpace]", "0.5663653328189516`", + "\[InvisibleSpace]", "\<\", ri2=\"\>", "\[InvisibleSpace]", + "0.02217967971068798`", "\[InvisibleSpace]", "\<\"; re3=\"\>", + "\[InvisibleSpace]", "4.408274528376112`", + "\[InvisibleSpace]", "\<\", ri3=\"\>", "\[InvisibleSpace]", + "4.972742698066851`"}], + SequenceForm[ + "Three steady states of the SSN are re1=", 0, ", ri1=", 0., "; re2=", + 0.5663653328189516, ", ri2=", 0.02217967971068798, "; re3=", + 4.408274528376112, ", ri3=", 4.972742698066851], + Editable->False]], "Print", + CellChangeTimes->{{3.693658651624963*^9, 3.693658679116765*^9}, + 3.6936587242009068`*^9, 3.6993574869779053`*^9, 3.699357990345571*^9, + 3.710001519939899*^9, 3.710001557394575*^9, {3.710821924531025*^9, + 3.710821936704361*^9}}] +}, Open ]], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJx1xX0s1AEAh/Ef5W3iopphXqdyZ5e24/I2jBBlednCbkx03t/TVi05L2lG +lGxeollex43pisPcd/J6dOS8lJc6b+c4111Oa7bQy/q7Z3v2sYhKDWKqEgRB ++fNf//UN/3O5jKb0XVYgvL3Ki9CQ45VeJ6+Pq0DrZqHIgiqDQCWbI09XYCU2 +fmePswWZoq4dNgo4cWzCC1vEeJFx8Tp1U47RGYEG7XANuueJtqoCOdym3J2r +2CJcdUhuo1rLcZOx0FqbtIjC5HJJf8pXrIi3si8whHA0OxPzrkeG0vfMiu17 +fMi4mYNmWjLYCZ6keXcOQL1Oe7RXfQeur5+KK+68wXRlb0C9jhQGHi1pbvHN +iDQMbsgz2cZ4eJZ+Un01vufEG2nRtxAX6ivj5JegP8m/fPuaBBEG40HRQywE +GKUPliRtwrb6sElFloF9y+FLDeVi1KySnPR0Y+CuTbkyP7SBYvsUknVTGMiU +jhsLB+t43iJi7TD94coNM4tyWYcTI2SC4Lsjq4p7WTdvDRaJxuQ5DxpYRnwl +58MqWgJMu9Wo59BNX/xBOruK7iVGrBXLENJqkoogawX3PRP69fV18FPVrGGm +R4TIzK7W1EoC7KC+zID8L2gOsxwW7St5Up/oDu+jZYwdpda0F67x7HezTncV +LeHjXg7jk+EsTxllxWm0WURxxiMvae0IjzC3azxpPI/gBy91rEyEPEsf5wQ6 +W4hyl+k5f/YRL8qT3T9UNIXSnEnNiLvmeFbBXtVWnwAz3M+2LNARaj2akoNf +fOQyheaaEjr2Qh1Ic8f4GD1gHi1TydChq7Q56Y1h/5ZGjeZjA4RQcuvTyKPw +eigpDeRooTn/xG6E3wiMTqXFKTUI0ASJlZ23h1GQs7th4rHH49odd5g0HcDs +2xDKcMJn19/7c2Hs + "]]}, + {Arrowheads[{{0.00013324345951450003`, 1.}}], + ArrowBox[{{-0.02209171254724428, + 3.849216247739272*^-6}, {-0.018520974982647792`, + 8.421485568485356*^-6}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.03696610078930508, 1.}}], + ArrowBox[{{0., -1.}, {0., -1.}, { + 0.003576962867735852, -0.9400237070187649}, { + 0.006581800907917374, -0.8836478717077372}, { + 0.011672989704193901`, -0.7776784611178339}, { + 0.015197316992921142`, -0.6844437669134014}, { + 0.01761656129539692, -0.6023966038645129}, { + 0.019474767184471237`, -0.5118385700187865}, { + 0.020512860651148074`, -0.4349820625199266}, { + 0.021445525041169755`, -0.3137642524806694}, { + 0.021554986237208213`, -0.2262124554926077}, { + 0.021331202423961543`, -0.16316121503482714`}, { + 0.02068050449378313, -0.0947866751323432}, { + 0.019977833749477345`, -0.05454580167012294}, { + 0.019276738141728363`, -0.031197321435168523`}, { + 0.018593077237500113`, -0.017949808193773096`}, { + 0.017896536674413936`, -0.009868147529650304}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQEf9kNoAQd0/qwp0QWnPrzff3iZ9WdXFX4H1wsb +5OY8fL8/KZlRZoofn4NGzw6G0kvv91+bEtlXXsfrYHH1vmTo4ff7q6TfzBDb +wuPA80JYNHzr+/0zUxIri39wO+w7pWAUv/z9/qXfute4OHI7eNWyFebOfL9/ +zsVso64+LofN/49cbOx+v7/hKwO3ywNOh1+BMSFzat/vD0nyNisy43SQLznz +Y0/++/1CEt5bRCZyOMinie5/nPh+/34xhlbtD+wOf9XNlwuEvN8fHpe1Ylsw +u4NORPEyZ7f3+/+fMtvptZvNQWkq96YaC6B7LYSCatTYHB7d+39yt9b7/Q+W +/ynynsrqkGYa8I5B9v1+CYlv0jvYWR2OcbDGzGV8v1/6jyhb1ndmBxd+rd+B +z97tv/+kUGDSVyaHhwx2d0zuvNu/sWBP2sRZTA4AIGqXBw== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAXWm/sWnC7r+Kze03+rUBQOjRQyQD +sO6/spQ0lc0XAUAiVdiD/5Tuv8IPcVODOgBAopkcwBN67r8s7ylz59H+PygY +cgD7ZO6/mRSC1pSY/T80Y2rl8E/uv0CgQduWbPw/6JmUYfU67r/1OVb4KU37 +P2rbf2cIJu6/jImtpIo5+j9m+9XaWfztv7bp2oamMvg/Srzl0+TS7b9h/zY5 +zlH2P7qn8gepqe2/GH1nUG+U9D8+LP0+poDtv1TFDQT9+fI/Q5qZKdxX7b+k +nhCAY3/xPzdCXHhKL+2/ks9W8I4h8D82CMvd8Abtv6ZgssIhve0/vCSIDc/e +7L8btOwIRWrrP8pm0rnktuy/cGnb+VZG6T9gneiUMY/sv5RQ/dsmTec/C0ZL +qW9A7L/a56r56c7jP+1MNwtQ/+u/Nhvh5gZU4T+orLUK + "]]}, + {Arrowheads[{{0.03768460131761149, 1.}}], ArrowBox[CompressedData[" +1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAltRoyuaR67/j5UgByI/bP3jS6xrm +hOu/4RGWmOq82j8dqcFS8xjrvyxyS9eOOdU/nDRtmP1F6r/GqLzSnanKP7w8 +4zxyeem/NZaClGG6wD+/7u1NH7Pov+Ex5toXBbU/s97hWHnP579j89a98Teo +PwtCuYkF9Oa/xvQchuukmz/+jc9XeCDmv3OymsPhe48/YnRy8YhU5b8sO0ih +6QiCP90Wn6Ymh+S/r7Nm00LJcz9aB1j4fcHjv2+CxxFDUGY/W++igkQD47+S +x0rNewVaP5q1oZEtTOK/6tbkOkdGTj+6Naa/+Zvhv75F8akcWUE/QFIjumby +4L97vGt1Js4zP6OVm778TuC/c0gR5ym3Jj+i59MIdWPfv/aJIJ5oJRo/tmf0 +Yck03r8Co0f3tg4OP41pm8uxCN2/KflG3YD2AD/Q+u+PP+jbvx/fzH7AOPM+ +eisu+/7S2r8ldaPEHtTlPhoMiIXQH9m/nG62SH4I0z6CjadwNojXv2x+ALsE +jco+nFs1HHEK1r8SVYgSspjDPrTdSst8CNG/eoyZ/68i/L4feY4FC1XKvzCL +Be+jQza/iIJUHq6yyL/oqFGPAY01v5L0RYX1Kce/1KJ/5McUIb983pcSobnF +v0w9PR7KK/k+sLXilyXoxL/+5xOn2FADP3rFPeyNHsS/Go1o9wye8j4Iq1gW +jlzDv08AUE22Mto+d+weng== + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.5059223854718333, 5.972742698066851}, {0.5058390612596608, + 5.957800891331279}, {0.5050328993899199, 5.8163502899286}, { + 0.5042280222851476, 5.678241474000501}, {0.5034244299453438, + 5.543474443546975}, {0.5026221223705084, 5.412049198568025}, { + 0.5018210995606416, 5.283965739063651}, {0.5009097221858654, + 5.140022247572151}, {0.5, 5.}, {0.4991082803752433, + 4.870990275865454}, {0.49821815389528384`, 4.745385003169802}, { + 0.497329612074581, 4.622939619806171}, {0.4964426577416484, + 4.503735646476853}, {0.4956019993792403, 4.390547254490501}, { + 0.4948983495092579, 4.297865727727322}}]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAkci1akKe3z/5S2Rarb4QQC5pEVF3 +nN8/6vPHNz6wEEDqTmMpw47fP60PYXl4RBBAReB+8hSB3z9sD0pn0bYPQDwd +ZKxsc98/CLgnzR3qDkDRBRNXymXfPy4ZWyTWIg5ABJqL8i1Y3z/fMuRs+mAN +QPavj3SXSt8/f/VZ4gmkDEDJHeHSBj3fP3lRU8CD6wtAf+N/DXwv3z/LRtAG +aDcLQBIBbCT3Id8/ctXQtbaHCkCKdqUXeBTfP3T9VM1v3AlA4kMs5/4G3z/P +vlxNkzUJQBtpAJOL+d4/fxnoNSGTCEA05iEbHuzeP4gN94YZ9QdAjXp2dbbe +3j/5PsALE1sHQILl45dU0d4/4FF6j6TEBkAYJ2qC+MPeP0FGJRLOMQZASD8J +NaK23j8YHMGTj6IFQIDzkfIGnN4/LmzLk9qOBEDK14GM5Y/ePyLiQw9NFwRA +d8aZbA== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAu2ir/EZ43j+n6uh3ozIDQIp6E0e1 +bN4/wTNAscfFAkBJJ/v29VfeP2P7n9Y7CgJAhoNZ00RD3j8xr+/Na1YBQGMK +U8+hLt4/VWVmZeGpAED6NgzeDBreP/YzO2smBABAbISp8oUF3j96Ykpbicn+ +P9VtTwAN8d0/o+a29YuW/T9UbiL6odzdP7sgKkJobvw/CZ0wnvWz3T+W+S2J +Pj/6Py/jKqmAi90/iH1qK1o7+D9IFgvPQmPdP6D5THb+XvY/1QvLwzs73T/x +ukK3bqb0P3baOT1rE90/sxeozUsP8z/8vTLy0OvcP8tG9Fn+l/E/vcNBmGzE +3D9L5jxL9T3wPwr58uQ9ndw/higvIT/97T+cdsNQgE/cP0TfncM0kek/OWFn +iEYf3D9K5XnbUDXnPzKbmiI= + "]]}, + {Arrowheads[{{0.035546881588598436`, 1.}}], ArrowBox[CompressedData[" +1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAb6l1krHN2z8ZxKSXgaPjP5BgcmWP +mNs/1oK4eGx24T9ZbtCMCzHbPyE6sNMq/ds/mnLojRHN2j9O6r6zmmvWP3B5 +5VI+bto/ihTO/Db60T8wEjKj/MHZP71YTs44Mcc/ib+WhW4r2T/rh+GObCy+ +P5VmEjeJitg/STfCgtMvsj+XPzMWAfnXP335n9W5RKY/AR7fMrJw1z+oOWxY +fCqcPyQoEXt77dY/ME8cv225kj9BHEhssWbWP4AGHyL9qIk/IwjW/1Ph1T8d +4yW5PwuDPxw+2S6EXNU/CmI0MyFHfj8lZ0OKh9fUPxFuJ7i0Ink/4x0577tS +1D8PfUIqO5B1Px9g+iM/ztM/VhvmzxH8cj9JAv1ORUrTP/V6mOdKBHE/KnVZ +j/DG0j9lAYR9x9ZuP8+MQ2ByRNI/3UUyz0MebD8hXUOO5MLRP72u+3DVuGk/ ++RqMApBC0T/wFc26BJFnPxjuB8Dd48w/d1kXtIR9Wz/GZDOzPNrHP0uulRMS +VU8/OXUzm+Z6wz8MAMxBe1RBPwDUdS+yLrs/YGcWzorcJT9INy+9XKGyP4Bu +Xd0HCwk/iDVmg4I7qT9wp1NkDJ/sPg97LqNeAqA/QGNhBpzZ1z6lKJKXtMaU +P8DNDmi/sts+IvOdxsxJiz84JUoV5gHgPi0U5i4= + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{2.0993900578244165`, 5.972742698066851}, { + 2.0993345931984178`, 5.970390749903594}, {2.096153473192289, + 5.838500796232255}, {2.0929771698648407`, 5.7097262439547425`}, { + 2.0898056721413116`, 5.583974016543032}, {2.086638968946942, + 5.4611510374691}, {2.0832866422211826`, 5.333956692227585}, { + 2.0799396753780552`, 5.209783473703617}, {2.0765980684175585`, + 5.088631381897197}, {2.073261821339694, 4.970500416808327}, { + 2.0699309341444607`, 4.855390578437006}, {2.066605406831859, + 4.7433018667832325`}, {2.0632852394018886`, 4.634234281847009}, { + 2.0599704318545498`, 4.5281878236283335`}, {2.056660949937857, + 4.4248960019805885`}, {2.053356759399826, 4.324092326757159}, { + 2.0524977578111976`, 4.298491909361734}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBmIQnfwxW+xEMoPDhpfF8Yn7BRy+1G5/fzSeweG+44pS +wVYBBzH7mJeckQwOW59MUK5VFXBQSTZeGRDE4GBt4a/yagK/g8wrG/1Z3gwO +ehduNH26zefAcKWi+pkLg4PrxH1Jwjp8Dv8jYztN7RgcoqpFfl9t4HXw3JoQ +0m7O4ODR967p8E0eh7tPm+7cNmBw4D3l8+u2GY/DnteHFY21GBzW6Oknys/g +dnh2TFmlV5nBQWnP1O29f7kcYsoXPX4pw+BQVNTwVy2dy0Et4s/M1fwMDnMj +H4XfcuN02P35/KPL7AwOcXOj6k8t4HBggAAozeEgoPd82sVH/+2XOfxk83zD +5mDHKZD+6uh/e9vsb4dEX7A6PDNgtoxb+d+eq3LmApvXLA5agW45mhP/2xdy +avaqybA4AAB4anpH + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAYAKAqf11/z+6MUp73zcDQGDXJy/D +cv8/Uq8gXtMcA0Czblrialn/P6VmwK6bSQJAOI347NxB/z8wqEqeuoIBQKoI +2BN3LP8/76iiF3rHAECKhmVbIhL/P15gF14fpP8/evVvxVj9/j/Fn3TQK+P9 +PxYWMxs07/4/IjcEAeBH/D/tqOolzuj+P35NbWoCzvo/9mg8vcLq/j+45sim +oHP5PzSgCsFl9f4/vju6hhU4+D/U5esGZQn/PynDt1YbGfc/B9F2ZG4n/z+Y +8zdjbBT2P5CgJdlZhP8/AqpTjUFW9D/VjyeCzggAQP0TNLw39vI/smdixAlr +AEDiuCXQMu7xP3A7iaoA7QBAarJ35ws88T/GSXKOY8sBQGQzYGDh2vA/Xv4d +9BlXAkCQsJ4EE+bwPwdqgj0w+AJAYrw0urMa8T+jX3m3UjUDQIdKFv8XOvE/ +wqqiPA== + "]]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAUiPYCdMPBEBf57sVKsDxP0IrPxIy +GwRAoMBTv7/H8T/SBomReccEQMpxX0ihUfI/9EPrEuaHBUBZ2R9S1QHzP4oc +fy3fNgZAdJOuXiO08z8KL4A50PcGQED+qpC/i/Q/dtGHT3HMB0DngLDc8Yz1 +P9hZL4h6tghAoIJaNwK89j/Tn6G0PTQJQE1snlJrZ/c/joPWD2q4CUBduKnc +/iL4P9AD29VLQwpA7tIjN+Tv+D9WH7xCL9UKQBQotMNCz/k/5NSGkmBuC0Dm +IwLkQcL6P0AjSAEsDwxAfzK1+QjK+z8nCQ3L3bcMQPO/dGa/5/w/VoXiK8Jo +DUBROOiLjBz+Pw5+OaLuIQ5AyhfZfoNq/z/+wObuQeMOQE51mYNRagBA723W +s1P6DkB9oexVzoAAQN1YkHE= + "]]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAALSvsvhSeD0BJTrUZbiABQHqSS5bW +rA9AGd5wqdAuAUBKVQFsZgoQQEpnFj9OlwFAmdDDwHM/EECej7HnMAQCQEIb +9x6NdRBAQNRI4aB1AkA42qNPp6wQQHvyH8/D6wJAYzx0a73kEEB8F+6VwmYD +QKRwEovKHRFAZXBqGsbmA0CVD1AxwVcRQDpMWjLzawRAWDcV+Y6SEUDlMdRh +bPYEQCXfLZ8nzhFAbCIJE1eGBUAv/mXgfgoSQNQeKrDYGwZAHDqh+xFJEkDh +ZlJ2arsGQExEn/oZiBJAS6HfSiVhB0DBHGDdlscSQBXO0S0JDQhAd8Pjo4gH +E0A27SgfFr8IQE7yWiqnRxNA6vd1aVF3CUAfY/ZMqocTQGbnSVfANQpA7RW2 +C5LHE0Cqu6ToYvoKQPhiv++g+BNArAuQ91uWC0Bhr4IJ + "]]}, + {Arrowheads[{{0.028387165483943957`, 1.}}], + ArrowBox[{{5.051095819826491, 3.5436506089854944`}, { + 5.0690422227433505`, 3.573227687194235}, {5.130079251790754, + 3.6778987746058203`}, {5.190307135070039, 3.785313607336845}, { + 5.2497258725812, 3.8954721853873058`}, {5.29792899749273, + 3.9882730756367444`}, {5.345115108369459, 4.082556211754985}, { + 5.391284205211385, 4.178321593742031}, {5.408274528376112, + 4.2149150025407325`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQBmIQnSjQlOdowOjAAAYf9jN0royQYWNy6FkR2dVv8W5/ +w8nEU8oszA5cOo3l31Te7L+4v3mVSzezQ0dKaX0M7+v9GQEe87QlWByMolce +O/j65f6pqXsunVjN4jDrrhHjgr0v9q94+aaEx53VIWSn+uOChuf75xxh4n7H +zuZw/Prczx3fnu43D5HyvHCFzSE49FGXRsiT/VVSMZUS69kd5BxO/cuZ+mh/ +yswPT7VncDj4LNNaWrztwf71SZfkdwhxOsg7ZpWyFt/fH/B456HHEzkdPlzL +L5+QfHe/l/Tyc+tEuRx4+NICOuxu75/NNctZch6XQ8kzH4a3zDf3czRyG/7y +4nb44Pj/ebr+tf0Qf/M4GIPB5f2z0hazepzncWhgYK5ak39+/4Z+Jt+dwrwO +hSHWGudkz+4HAGK8h0Q= + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAATw3r6obcDUC5j5/YDkfGv2bDOJe+ +KA5AKJXIJFerw794NM5LPN0OQA9QgHQ86rq/HLMajs6ZD0CF1mWsdJirv8Gh +IqCFLxBAQKDDtu2fND/sdDoixJYQQEj4OGc0k60/yL/4//sCEUD4sLYrWmi+ +PwxvAWyGdBFAZuoew0KDxz/UcDdCBe4RQCVAAHAwRNA/mSADYCEtEkA67K5w +UqPSPxxiaUfnbRJAqmRWYM8X1T84y0X2Z7ASQGkfdjW+otc/yvFzarT0EkBy +ko3mNUXaP6xrz6HdOhNAtTMcak0A3T+9zjOa9IITQCt5obYb1d8/kXd0+RDN +E0DjVxEn0WLhP+H/sHFMGRRAoZ/JbhXq4j9BWTcTu2cUQNri600cgeQ/GdOv +WK+tFEAJwbtoNfDlP5I4jew= + "]]}, + {Arrowheads[{{0.0065513778182575725`, 1.}}], + ArrowBox[{{5.262694692858077, 0.747250066178243}, {5.344736375888617, + 0.8022844982745044}, {5.408274528376112, 0.8453845903349961}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAnSs/74E2DUDOem6pFuQXQDWn6lvB +Mg1AdMmutA7EF0Bcb7tkVSQNQDP8etXSTBdA5a5ndvEVDUCa6mgnvNkWQNBl +75CVBw1Ap5R4qspqFkAflFK0QfkMQFz6qV7+/xVAzzmR4PXqDEC4G/1DV5kV +QOJWqxWy3AxAuvhxWtU2FUBZ66BTds4MQGSRCKJ42BRA4r1gvwfADEABNqTw +lHsUQDv+wkPWsQxAGunwn9IhFEBirMfg4aMMQLCq7q8xyxNAWMhuliqWDEDD +ep0gsncTQBxSuGSwiAxAU1n98VMnE0CwSaRLc3sMQF9GDiQX2hJARYJjY7Bh +DEDtS0OqAUkSQHBLG1OYSQxALxBhvNDCEUCKfjqQ4TMMQOEXjGPjRRFA8K2Q +kDsxDEDC8hRQCzYRQFUAhhs= + "]]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQAWIQXXaH/6i3HI9DhvLthRJHBBymKK3/NJ2fx2HhR87C +y+kCDslnQmWS2HkcwteszbxkJODAAAY8UFrAYd3mQvf8r9wOG+fmnP1nyO+Q +7PxE9+J7bgcu9YqGPeV8Dheyo0y/vuF2YODfLPbqGK/DhqPX6+YC5c23+BR/ +1+B1WN00w0GbjcdBI7L8dpUSj8PDvj6reSY8DrMqnq34EMftoKtUray/jMdh +TxQfR85GLoeCJTOKmHx5HWxjg6tKO7gcIpyWM01X5XO4uWrZs9cPuBxsn/mL +Z13ic7hTX7kjMo3b4X6N4rbbffwOOywO52mp8jhcsQgscPzI71AWvjxBciaP +g6dBTe9mLQEHi2mL3/6R5HWw0Cue8TxSwOET85fmnLm8Dm5vVkyT6hRwKFrF +lLBdi89BXqlSXGaxgMML98RZGnV8DgDhpXu8 + "]]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], ArrowBox[CompressedData[" +1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAaJOtQ6fdEEAgo89fkEIPQA2aDu/k +5RBAIEUK7d9eD0CO78f6sxIRQCm4CBi9ARBAvtDSXPE9EUAqoXlutFYQQNDu +KR57YxFAtpQPKEClEEBCBmPTCYcRQHr04EVB9BBAFhd+fJ2oEUB2wO3Ht0MR +QEshexk2yBFAqfg1rqOTEUB6/b3eo+URQDM8pDX94hFAPISqALcAEkAzKiOb +vDASQJC1QH9vGRJAqcKy3uF8EkB4kYBazS8SQJUFUwBtxxJADoHtcrxVEkDQ +93+8qVQTQAqL4ZXHchJA6G1krmfVE0BoDwz7tIoSQDQgbduNWRRAlE98eEKZ +EkAgVqDtAskUQIqr70fxnxJAKO/gDvojFUBDgyOjQqASQNDKEWmmahVAZAve +Ud6SEkDFgPvE5cEVQELVXTs3iRJAMD/QXEDTFUDCIYGbEn4SQH8qHFya2xVA +P9bNI+FxEkD1Tb+dZdwVQJYboNtOZBJAZBr+ycXQFUDgJ51O + "]]}, + {Arrowheads[{{0.020096062766245298`, 1.}}], + ArrowBox[{{4.530613385661813, 5.3668263207234705`}, {4.514853378337597, + 5.339155662263531}, {4.472029899111887, 5.240708020284913}, { + 4.42882300000976, 5.120909048253788}, {4.4012226775505985`, + 5.027219967151177}, {4.387851039019696, 4.965896366234279}, { + 4.384594058324608, 4.92191321196145}, {4.392152954794303, + 4.923128818932751}, {4.401462918137359, 4.939449765637471}, { + 4.408852768907354, 4.95928223901886}, {4.411860983725358, + 4.972843660510639}, {4.412250859406833, 4.978783673232758}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJxTTMoPSmViYGAQA2IQLcERHu0rJehwripvpdgTcYc5E7/tSBEUdLDw3cQl +M1vc4fl878C/7IIOcxLqDH0DxB1WBvElPfoi4GDgLr2WZa+Yg8H3Ixt3PxJw +6BI//variZhDXW++Q+dFAYeVFxs/K+wQdZgsysfnfVDAob/Ue1+rm6hDlhjP +R/1NAg4nCiRTiu+JOPwTu7o/bYmAw32Dh78s6kQc/MUzq95PF3C4vnVR0zVV +EYd48RMKp3oEHDb8j/3tfVXYofXk/GWiDQIO+xXfSlWWCDtI1dZtuV0q4OBz +/OXX47LCDjNeBGRczxBweDJH+96pPiGHnwl3ZlanCzgsumGwUapKyCENDASg +tJDD/uvyFxqB/NU6y1bPNRBy8Cx6ox+TCXTfyb1T81iEHAJnLbCKLRFwEHpn +2SixT9Dh5qu2Qv5OAYeP1YtuTpkp6PCS78qU5qUCDsUTfx9qnCToENE9h7Xz +goCDTqPRBtUdgg4AjK6WzA== + "]]}, + {Arrowheads[{{0.026178001561185032`, 1.}}], ArrowBox[CompressedData[" +1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAATW90sBAaEUAyztu2QQ4SQOpwk6tD +JhFATFCgrikhEkCRJpqpeVARQFCJsf07chJAyaPjKRd2EUBzFPl9WsgSQF14 +dIB6lRFActKOQm4cE0DIMfNIz60RQIKHv0xTaRNAKCbuD2m/EUDYnMEg26sT +QPTQkDRHxhFA30Cja+TKE0AK+2TbW8sRQKAqMhK95RNAtC6bQOzOEUDJp4wg +uPwTQDwhmHP40BFA/BgPSCUOFECa9XiCD9IRQIXsCDCtHBRAf8ogq1DSEUDO +FNZaeigUQKiKxUf40BFAKJq1MBc4FEA2i9vyw80RQHP+0TcZQBRAW2o1ik/J +EUBFtOn47kEUQCWwJ5j6sxFAjrTZhX8lFEBeHFDik6MRQK1EDnVi+hNATewe +YN2cEUBbFffGO94TQA2Tp2MxnhFAGZCt9STZE0DKqoh3 + "]]}}, + {GrayLevel[0], + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{1., -1.}, {1., -1.}, { + 1.0570356298909136`, -0.9326787045587779}, { + 1.115500932707636, -0.8675295632837581}, { + 1.2061120816082413`, -0.7710172550412553}, { + 1.30136784252668, -0.6782446339756957}, { + 1.402960034987227, -0.5879224053274966}, { + 1.512580478514159, -0.49876127433707573`}, { + 1.57107071498886, -0.45415006988929196`}, { + 1.6329068553528396`, -0.40889703870747246`}, { + 1.6980888996060974`, -0.3630021807916172}, { + 1.7666168477486335`, -0.31646549614172625`}, { + 1.8534507030391145`, -0.25959769024311075`}, { + 1.9475281479364526`, -0.20004839874496758`}, { + 2.050058510647075, -0.13696480309275186`}, { + 2.1622511193774097`, -0.06949408473191879}, { + 2.2511927373042755`, -0.016717483709003507`}, {2.3148747122905546`, + 0.020878089108363238`}}]}, + {Arrowheads[{{0.0625, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAADQjYuNlJA0BE/lMAI92zP+CozSu3 +nQNA1A7JWI8Kuj+ZfaAPSoYEQLvZwSu7l8U/GFZcC75GBUDfrYB0yLnMP/YM +Axv/FQZAORj69nw+0j+N3JODi/UGQGZHpFhle9Y/MP8NiuHmB0Ae+9TrWh7b +P6TJ/jv7ZghArrzPHZOc3T+jUGsvxewIQJinxLjCH+A/Cp9gE5J4CUDiUfTF +/IThP7i/65a0CgpAuFXqiFv/4j+MvRlpf6MKQKgrGtRCkOQ/a6P3OEVDC0BL +TPd5FjnmPyl8krVY6gtAGjD1TDr75z+tUveNDJkMQKpPhx8S2Ok/tFWgYfkZ +DUCrB23BszzrP/BDi71ynw1AFtik2jKz7D9Ww+VRrCkOQKIk59uzPO4/1NZu +/meQDkAwz/oSgmXvPwQGk+g= + "]]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{3.910667599056711, 1.0470183842301668`}, {3.912687097677633, + 1.048498797090386}, {3.987730528086575, 1.104331357643557}, { + 4.0654880645565505`, 1.1630419488135932`}, {4.14605829449856, + 1.2247700170085578`}, {4.229584463112249, 1.2898957698457814`}, { + 4.31622355645531, 1.3588734953146782`}, {4.4060947732258136`, + 1.431953760381436}, {4.499317312121827, 1.5093871320122423`}, { + 4.596010371841415, 1.5914241771732824`}, {4.696293151082647, + 1.6783154628307433`}, {4.80028484854359, 1.7703115559508102`}, { + 4.908104662922307, 1.867663023499668}, {4.963449093365281, + 1.9185164302375668`}, {5.01971258895269, 1.970999430806585}, { + 5.0769008646777065`, 2.025165211367672}, {5.135019635533499, + 2.0810669580817778`}, {5.185911985081092, 2.130783770285289}}]}, + {Arrowheads[{{0.007636272237476995, 1.}}], + ArrowBox[{{5.2651491808863895`, 2.2094567669766576`}, { + 5.315016068817252, 2.2597198567517225`}, {5.376913970127861, + 2.323097329687413}, {5.408274528376112, 2.3557163613059444`}}]}}}}, + GraphicsComplexBox[CompressedData[" +1:eJxE23k8Ff37P3D7eg5nQyF1hzYSKlTyviIlSZKUSigSCaUQZQuVyFLKlqUk +JBRJhYNEyRZZk2zZ9333Ox+/75m5/7kfz9ttzpyZ94yZ63pd/52307dgY2Fh +4eRmYfnfv5n/VLjYJgl3igDTop+NudnLcCspVvTafMPtdS33oFE67op3KS81 +w3D3bV5zL+0x7p3WhK7IW7g9kuc17pnjjvrPZsOYKe4uszPeLVq45Z9rt5fK +49ZZ/blox1bcT4yS1/8nhLs1PNyDuCiMeYHEd8FpFveBY7P5F9pwBwX3SOh9 +x53CY8T66SvuaS0tk4Q3uNXvK+eGhOI+x5IYsxCMOxGeLvbcxD3m4Xum1gy3 +wMzUXnQO9ymVrkiZA7ifO9fOisjhzhvWbPbcgptHfuduWwpufXupsNNzQpht +ux+7FE3h/rjRuyG9BTfHJQelZ8W41/3tWMX9Bbf12hrH8WTcmSaFv/6G4K6q +U/xwKBC3qMh6ISUn3OYnyQ7rTXB7VHie8D+Du1TgaoazBm7aUVOyhQxu+eKq +8YqNuF258o99FsRdfCAt7dU0DXN77toQ8gRu2SWBkcXfuB3Vlo70fcEd8t5W +3iAfd/Ok8UNIxL1B6ciAbBBu9Te5FU/8cfsPpsjeuY67bmuUn91Z3GPxhCuN +p3Dv/Tdf+hVw35Pu3/RuE+74qDP84tK4h5q1rXiIuFXW7C6ZmKBiNnicnHRu +FHf0r3Duw424e2j3LZQLcHP4zx6My8WtW9bzMuAl7jBCA7tLAO7MO1pdHfdx +L39R3l91Fbc2x8bnOUa4L7o+9d5giDv9s287RQ333PwNWJbGLezQtd5qPW7T +jFqPE3y4k8eLWvaNUTAXW+8seD2Em/Raam1YHe7T/dTb3nm4Hc97mwx9wl3w +3CG36TluQsd5sRI/3JtO1yzK38V9LaLwzBo73DlNbz/ynsTdcGx9lMNx3OtD +yHMme3DbVLOc0pHEfe/Q1d1Za3FX3zcNe86NW7z06NTDYTJmlX35DTP9uO94 +pin9q8FdURD9+Odn3H0qgk57snHvuLn0a2MsbrePg4q0e7gj5M8JuXnj7rQ/ +4mBtg1vurepPQwPc2pveZOTr4X58KYr8RgV3S+IDu/B1uOfWLhxjX4Nb07Q/ +bZgDd1BsE7F5gIQ5ReTwiGYv7qmTu3UVf+KGsM0pEh9xnxWMeHjvPe6Eo/cH +rj/DPRLorG3mg5vA3Sv7wxO34cEGvw9WuGPvlvS8OIY7Z0n5B1EXNzfauHlu +J259d+G7XWtw2075WumJ4s5WcixRZcPNMVSqrf9LELNq82vBDeW4f571+7EU +hfvin0t3621wR/84pPPaAreiziYe7524i8u4is5y4l761H1PfkkA86M9xft5 +K3BvyolnaX+G2zTZ5+v7J7gntph7PryI+95r9b2WSrjzwyXZ9mzDfUKULY+6 +TMTcF9F6c6AC9/r7BWr5JbizeGPnwp7i1vZzy7pqidvL2cRV0xS3yOxeZQl5 +3Ck3xcenlgmYOy0XP5TO4Hbu+e3w4htugtWnbbfCcO8/GTlxNBh3Y/3N9E1m +uG1PnbJhVcCdcGCXQu1m3LtLRAbfzPJjrjg4lej7HTeXUv2V04W4I7Peb94e +glte+fE//vO4L0nfSP57GvfCy+MXs7fgDtqguD54jg/zNxq123wct3Ho6PO9 +X3CPCVWdE36EewvHW8m+B7jzvAP/Fp7Brc9pGxkpg9tvXNfUTgr32utbxbUm +eDFnTvA3rCvCPdA+EDWRg9vjwo9T5f64aZ1JtISzuHWq/RpvnsDdpm8Vqi+N +27Hm4DGZSR7MqQWbhJcHcaurc1fX5+KuK/wXkB6AW+Btsb63L+4XCi8FjA1x +q7y7U7pzA277WPNA3rW4Of7TONw+xI05LO4/7s95uKsC2coefsBtQWq7a3kX +91wQXQNO4lZ0j+Wh6eEuXnYrGliL+7SHscfXYS7MIbZqmuE9uDcOi7Ney8ad +Yzefo30P94Rxs6eEJ+57LZ/2TuvhFjcJn61ch9vgiEvei9W4e8tPudzq5cTs +pqusdOIj7izVVfOb3uHWzp3KYvXC3bK39lrTMdzCslnKqdq4X6c8HvcVxQ1b +HdJM+jgwO4sZXN/egZsQpShPyMAdK04e6PTC3cA3lp7tivvKgyqb4MO42Qhp +m6zFcO+eCxzcS8P9/9932DGfn9exGM7AHdG7dcuXFNzbVt5fcBf19cVd18G9 +0PDjopYm7qCV9xHcUk33WmY72TCf/Wb1ovwP7tGV9wvcvt83iLnfxp33gbtV +3xG3/sr7Au6u7KKTHMK4JV69FG8QwJ2x8vzPilkr8fzj+6m4PZ5oGBm/wk1b +eZ7HnfiU5afAQdytPm2h7Qj3jZXnc9x8d6OJj/+yYFa/4V5t2YC7buV5G7e1 +o6r2amfcz83XCA7a41ZeeX7GXWbR5BtNws1h8PnwNV7c8knbBZ+8W0ZMGyWP ++B7Ux/3d9x1pWAP32F27e7EdS5jF7suy6N/B/cBi6P7sddyZF1+zvqbhbrG8 +dPNs5iJm3f1b2DkScDtpdru818QdeyB+7OK/BcwkyYu3BOpx75aSnKA74r4g +3Xr5qjDuGtbnk6t4cC+wmVwpfTWPWZpD/J/rQdyhrX9sJXfhzmuL6PrVMIe5 +p/3kOV9n3Kfoq3u2WuP2zK8z+cuLO7ngUX1Q0ixm0egTZiqRuPfHUBp7d+O+ +ElupF9k0g/nPreAm9TLcXG66+hOXcW9z5y99yY875kz58SOL05i/rTwv4R4z +PqiRror7/G7e8pNyuB+sPP9M4edP9U7Opyu4pVZrHjhvglt35XlmEj9/YvSd +X6Nxd0970G2CcJNWnk9w75qbS62snMCcVJej4lSAu3rleQP3QoPSpiYW3Dbv +Z956jo3j52/l+QF33odrcZ0KuOUe75Dxl8R9auV5YAw/f09SRYfP4x69Zh// +xAC36Mrf91HMGjf6Hs0+wp1xLGVNnA/u5pW/17i5DDYQOb6OYHaU73nyOgt3 +zMrfX9xBFkWENQPDmO0ltNbZVOL+sq5QsFIAt7Ck6rKC7hDmqd90iqcCbq2W +XWyd9oOYI1ozRg+kD2B2CVfmfPIId3nk24mZ6n7M66JlOs9QcLOcTJtOnuzD +rG+0uZu4E3f8mRd19td7MXvTNvbRT+KuF45rXP+0B/OW1WLffeq6MfNVRzf/ ++oj77K9VZcqzXZhT60I+R6jgfhgoXNkrhrstOChP58w/zDse86WmRXRiph15 +WLB0G/fFozxvzXI7MGcf84otWmjHHMbHlUltxd1P8HjhuBa3muBcSOO5NswS +324nbFLHbV86HfrAsxWzT3gH3x/Pv/h64u9XcNXC3Sv4l7Sv5A/mQFrNMNeB +ZsxHfJuEXxJwj/lVTFo/aML3N7DwlzxfI2ZD1tL5iqoG/HrizGt6fLQecxzf +u4+nK2oxm9z62DrzGDen5xt6HvUX5tc+cdHeIdWYraYTv643wi2wEBXfU1+F ++RLrem7jNxWYOzvlT4Tvxi0/tIoqrfID861plp/pO79hnmkSXDtYWIIfr87p +Zuf8Ivz8D/6N4MgrwNfPz6EeOIw7JfPNkfDgHMzqJbe/p/tnYVZ9GGmx+dV7 +fP3uqy/03J+Gueqi06f03S/+z/I5pVtDDTefeI79vGji3VicXRzmTYG0UA+F +CDQ6z3f3ty8NmPVj9uTQun4fGqwKOFnwq10EfsVlL37xpsE8pMCWNhHIftqo +uOE6DRKnQmeUS0VgrrzPZtSeBrnev2r7voqA/5SS7aINDe4GejSr5IvAfeJB +8VtmNGDWm2k/o7wXztCAQ7hqYC5RBDQPv29ROkGDH04vB3fHiICVbJzPH10a +nB3qfOLyRATc7K33EA/S4HnxwD8OfxFYitl+1H4vDUYGW5Tk3URA+/z+DG1V +GjDr01MDvWmSijRYjmqP4bETgZQ4j6dPNtNAoGv7ztzzIpA18ZaeJE0Dd6d3 +werGIlCZFcQKa2ggW+I4w6kvAn+72EZahWnArF/bHpKX7yDSYI8ozchAVQQc +bT/rneehwfi/a2ULO0Sg7d7nUCUOGuT98apZlhOBjdGpseJTVLgU0R1uJCYC +z/dm5fmNU8F8OnJ6QEQE8u1//3g6SgVmvXtk5PhNmzYqGM/o3oxeEoZcdS/j +dy1UGMzcztEyJwytY7JkQ4b3JG4TM2I4JqW7fU8ZFZj172vHT5amf6dCmsXb +jvk/whB28LVnYDEVXNkOVbo0CsOks/xTn49UkChfR/IpEQY+fZnYzEwqqK9S +aKUWCINe1Oaxb6lUCIi3REHZwrDLvTmhKYEKzHp5nbnxQm4MFbINchul44WB +d/TVebanVDB5Fr8t/KkwOP+aPbHnMRWqiuxSSx4JQ6CQ5GKZHxXOGTulKdwV +hveRo03+nlRg1tMLNTfU7HGngsGva3apjsJA4AwqaLtBhVPlD5GytTDIrTph +V2pLBY+cPB0+U2FwiYjXuGFJBeUFOPjrhDDETjyzWjClAqFJxVLpiDBobxzZ +RD3L+P3/q78rDq/PTD3KOH4mNzsHdwiD9+adwmt0GN9P8RXbNnnG/gj7aVse +ooJ8JrFfR1YY+jXipHqUqbBKaxf/PFUYBuR29mowLOC8NLCO4eLRezfzlajA +rNd/Szf6lK7IOD7rO+QKCIzvG3JB+8B6KlSWTbntnhKC+LC1of+to8IDhbSf +0uNCkHjfUmkfmQrM+r22f6+sOpEKf4r4159pFIKzg884z/BQYXjdAUO9aiE4 +wTEfdm+JAiEvXm+sLhKC9Ldrb2rMUGBPp1nbjRwhoKmLOz4eoUBVoV+K7Vsh +cPp7xfZ3PwWY9f7p73k62h0UYNv6PMovRgh42Y2UdzZSQD1y7istWAjKn0R0 +lTdQgDNSa9k7SAiGXp8pNqyggNU2X8VwLyFYy7Inw7yYAsx+gG//qpPcBRSA +9+cS8u0Yn3/QjtPqIwVuH670iLMQgv2UAKmYDAqMhRwyP2ksBGrwtASSKKBl +FntpRFcIHnGbbPGMp8BI4F7zF1pC0LblenlnLAWY/YOpx0IqLsGMzw/v4afJ +CcFyuI9hTCAF6PK+2dEyQjC+qot22IsCJ0zXutBWC8Hn7zx3brtSgNlPqG5I +qEpzoYCN9avxRAEhSOt9lJhxkwKEOzem1IhCIB0rWZV8iQIGXt2xzZOM+9C6 +f6wvLCiQr8BNqBmlwSU1yupBMwp0bxoz8xigQeAu1VUdJyjA7D8ULde5RupR +YJ2fv/n0LxqsexR0f4M2BYI+scy//0EDfXXR6A0aFOBwUUJrC2mQTQk/E76H +cbzO+/0RyqZBQ7fAnIkiBe5X5N39m0yDzcUpCTfkKcDsV1j0raNHbaBA8lNL +Q7lIGhwN0nB7vYYCmVd9/pg9pEGwaoB1uCgF1FJOf5bwo4Ern+bXl2TG/u9/ +8gbcaED77Ctfx0cBZj9DO5j/dzUbY310PL9/0YpxH1b/GpC5QAad1375Ooz7 +8Lzu2jb+GTKYW/1yjT9NA7au+4cJ/WQ4Tj0d+VyLBkcsj+/63k0Gm6y3l/X3 +04CeaF2j848MzP7Hp908OZo1ZOjLmMmq3kgDp6tRvR3VZEACln7HGM4+em+1 +eBUZpm9lb3CUpIGxeYvJSzoZmP2QY4KBtb9yyVDleEDMjY8GDoG+su6fydAb +2PJbmpsG3+arIv+lkKH41LXszYz7Zr4c6c2XRDJczrk9nDJIBdlOjmfZL8hw +ql4v83oXFf7rk0erIsjA7J+05g1/+fCIDEdk2QTqqqjQqXKHOPaADGy9xb0f +vlLhqNh7acO7ZHDUKzC0oVPBNsFE+a0bGa75CZ6czaDCo7hM3YjrZGD2V6IC +WN1kGGbTkxGeiKeC81Fb6XQrMhBejyYJM+6Dxa8NUzPMyLBBizSZ+oAKJ9rd +h8zPMr5/28T0CW8qrO0ReJNpQIZXTvOdW12o0HNM93u9LhmY/RgB5aVz0fvJ +kEW/8iDlAhVM2dcP5SEyVD64/U/NmMo4H9/auFTJ0IBMHo2eZHzeg1uV9bJk +eJN8K3xanXFfj3HjrdxChocXcu4eAiokhUuo7ttMBmb/psm0Lb1NjAyRw3Pa +0TJUqPt6Y0+tEBnWdraNnZOkglvrHCIzLHqfw/9/97E7Z+L1HrCTgdnPsX59 +IfgjC2M9bArdGc7FuA/vvJmuvUiCYxcCC9NZqRBL3mbyeoQEKtsWKx0Z96VK +4sjc834ScAnJj5X3Mq77+9PrvP+RwO3M1A/BNgrwUEIv1v0hAbP/s+OS6ePg +OhLEpQzzLpZRILHlRnBuOQks3pRfvZBPgXOSIa8JP0jQs0HH9mMOBTQrq1x8 +CkhgeHWj8YZ0Cuz2fJmhmE0CZn/IdPsE6/R7EnDvQ1lFMRQw5lUtc0th/H6o +yo9Djyjw34SDq8ZLEkRIRBIW7lFg9b1r1+SjSfBd+BmbijsFOjm9X91+SgKn +knuKlo4USN3mOnouhATMflJ180i7lS8JvkW5HIw9R4H5bBdZLy8SiPs527sZ +UeBToO8pH3cSaAv3Jasx7iN+CnbHX9iS4Ef27qOLexn3SdN+V/8rJDBdb2QW +qMpw2bPJLBsSMPtP07Ga0VctSHB0vHz0nAIFtNf1+LqcIsF4wCoafS0FDKOi +OFIOkIDZfxpyIume0iBB3qT9TRZ2xv40Xd4hjEgw8nPV40HGdS+4doxldDsJ +kjnvdX8ZJMNt0euUPXIk+MhPvKraRYbMbX3xRzeS4GXjzn8mzWRYMxcrR/mP +BMx+1eXrxJH1q0nQfNu1+dp3xjrwviR0X5AEf/eGSpUwrttNPrvvqgmQ4Oxi +nQ/XJzLwlL1hJ3GQwH67WdQLxnW8p1Zb4dGUIDD7WYfelfP7DAtC6Ogjz8OR +ZFia4qvjaBGECCP7oIpAMiTUTS9FVwkCYVJa6pAvGT6dKR2YpgtCh9ImqxoX +MpwWNbo/kSEI1RwmT8evkUHmwutxerIgMPtfMpwl5dZBgmAupPJC7zQZwt1P +mg7fF4TLZn8eUgzJjOe2G6FT3oKQM3C98IE+GaJSv6T+MRUESZPtC4W7yHB3 +hD9q0kQQftg8OC7DsN6NWVsNhpn9soplhWpxI8bnvbRTubGDcZ3vupCftJOx +/W9OBfbiZCCeyg/UUxCEFlUvrlOryWAg/coUqILA7J8pvhq5c4JfEMxEUd6n +ZcZ1wZpr/4VVENap6DzonyFBg5WqhcGgAEg0U5ZJjOvoiGE5B3+bACyqB9ou +t5NgKPnjMaVqARAPiXt6vYEEm2MPjtwuEQBmv+3gp6abpVkCoFTkn6lWTAIT +gyzFpOcCoMGjPDv2gQQnv5/0z40TgIoas2fHGd7DHi/22F8ATntev+qcxFiH +qQYnXroKALMfV7X4jiruIACStxt4wxjXRU+CrdSl8wJwJj/EJ8WfBA5jb2Sf +nBAAtx/pe57cIQG8Spt4qMHwuXhxFScSnH93uOqAigB8yt1V1WRHAp4MmdrI +bQLA7N+91UupZaUxtjc6OlpuSAKFkc3G8gICUFX2YRv7cRKURJv8yuIVALkv +y40NRxn7N5eYdb2TCIdsek8ZKZFgdqiHT5rhpUUdT2mGpdxuZ3Z3EIHZ77vx ++HF8QRsRyFH28l47SEBO2cHz+SMRNN+/N3RlrGuPk+cTtjwlArPf159WtHA8 +kAiPbUUkYmYFgePIc+fTPkRQV/d/59gvCGs83gWFXCXCOos9W3MY65QSYXhu +ypxhjZ1H9uYLwvWpaKPyE0SIuN8wk8tYl+ck9G48O0wEZn/Q6cva8893E+HN +578sP30F4V9M5G7YQIS57FM9I1aCIPPSgSVPmgheBo1W+xjufzSpdopEhIEp +m0WjI4JQEaPm6LFMAGb/0PBQmFjGFAGmtgLdcbMgBP413rqqiwBaQWc5Gxjr +zumlkJVeIwHaNZwSihnrrHjs8YJ0CQEMrx9XGO4RgHiBWMv2zwRQm9zfqN0k +AKKvbqTvyCAAs9+oHBX8J+wpAaqEJfcYJArAYbH6zR+CCTDwk678LlYA0FPl +qq0BBNi/XajjcIQAJGo+zOO/RID7glxeLy0FIOYqx7snlgQ4cffEHyLDLw/8 +1lNlmNmfjL7yfIHDnABf5Q0mZBnr6ojGvpnVexnbU9z9r3yrAKwe9otxUyHA +syN0+oGNAtD6uo73jShje//Xr9TXaM2KohCgvjjV4+EEEfzC7nqM8hBAdPlM +dEsXEb5mEITcJviBi3LsrOEPIvhI/nTd1MMP+QV62pqfGcd9n7eZeSM/nLS5 +mHEhgQgmmusSL1TwA7O/mWjccTM3lx929tTxjXkS4XK/h3p9Ej/oxFsm1loQ +IWanpPa5RH64yDoc9vsCEY743Ph35hE/iORp3n+sRQS1Rn4pLi+G/6//2fz4 +tqS2Cz9seHbEJYhxnjOkfCbYrfjBQKPFT1aQCPmyJbapZ/jh24h/rekCAXTU +XDhytflhsMxqrfY/Anwypbe8V+OHnAb+mo+1BDhaqHHBeic/MPulud2O/7aJ +8YN0m1rSaDwBAu1C/lyl8UMAOiapGkUAwVRhr92C/LCpdQul6zEB5IIdip/3 +80G5HF+xL+M8OAwhWZU+PlBK2LEn4zwBuPvs9db28gGzv6oS3a0x2cIHGjvJ +R4yPE8BcboCUReeDb2asEjc3E4DcTr3QG8kHzP5q/S6bQolQPriYx0UxHOEH +UqfNvXv+fMA7mSmq3MkPvd/JLJM3+KAv7+KDka/8ULjHbDbQmg9GVOzzN3/g +B48AK6v5s3zALlqdwB7PD88cRmLfHOUDZj/2qcjxf7zAB1r/+U6O3+aHUaWL +2rZb+eDSi61+eRf4QUpj5x2XzXygk8rx7cY5fhCNUvvgL8QHlWzzrpn7+cFX +Mv8qjZ0PmP3a863nZdoWeeGqttqVBEl+WL4SH7eqnxdsrH6LX+bnh+29PGcC +mnkh5dlzjvkpPsbfYROCQQUvJNsE7X7dwQei6WENb/J5wbDhVoxINR8sW6gS +VmfxArO/q7H97GBxNMO7Im7FvOAD9es1wTpPeOFy1+XvH8P4oJOSw5IdyAsC +AbDPI5APMptPVeyy44XJgKwBrwt8wM9ayDF5mRcWrhmdO2bCB1zHLbKtrXiB +2Q/eqKnywOEYL3SlvNlpvIcP2kefEm/v44WqdboqhA18IO17Ii0F8YJuhejU +bUk+cBq8LmUmzgtYfzhk6nSJMC9w3f2yl2+QF55s0w9aS+KF7MQjV1M6eKHA +Ps7k5yQPVF2+9cmP8T35p488XD3AA+yB0q+XMxi/16h7NaSVBzb/sNf88YIX +Xp/9ecygkgeY/WSLs2XVDgU8oHjI+diACy84eR3W53zLAztEzys2XeCFSBdd +p75EHpA/IzotaMQL68nDBnVPeMBB7jhLFeN7XPkk7OLjxQPMfnOPjNZ2Z08e +2OD7vu2fJC/oNwWq77PhAc6gap9kHl54wdIjW3yGB0K0s7eHjvLAqdr9tP5j +PKDy3mwROnngGst4aeY+Hth+5F6qK2M/Y4fXeK/ayQPM/vR3t32Txut5GM9J +LdYB8TxgS6mTUBDhAecvlzU1GPv1N+Lm+C0BHhjbZWgv6scDuzep1VWNcYND ++b7RUnMeWGvlbp81wA0bB79RWY15IGjLwth4Nzcw+9mvf+7+oPGFG1QuRRjO +SjGOm1PF+P5CbsiLk2vLlOSB+2Eft05+5IYGvX0H3FfxANU/6cDdCG5g9rcj +A8Rfez7lhjP25LSCPm4Qd1UOy3rEDSJJVVfs/nHDgy6e9B4HbshcFdIr9Zkb +IsiUijQbbuiJETzd8pYb/KV23Nxszg0Jqe+SBl5yg+tx6SGZI9zA7IefWVDY +9W8fN5zUTFs17swNi+Xyp6N2cEOLmbfQ2YvccP6BFIfnBm4Q5pHfkHycGzST +JajrRbih7ldX/jLiBlunrXsEObnBueyZey7j/3svqWrVs8wFzP75WXLsnYsD +XGClc2UjBzc3rJ/8Kbe1kQscp8vPb2P895Z1W8S9arnAuLgzQa2bC56eT8t4 +V8AF+v5v1rJUcEH8M+X8Pe+4gNlfP1q6YXHiJWP7P4aER15xQQTcKed6ygUD +hI+u44+5wPK21ODpB1zQ0HU5JtObC/IdJFssHRlODu56fIkLxh5HLZy34QJC +zy5CyxkumBANWv/AnAuY/XiFNevoTQe4gLX/6KDsZi5IIP66UrKPC5CMeSx9 +PRe4j3n+LNvLBSp1vM271nDB82Lx2CMiXKDur8mW3csJD49cOrqDYXfLLs4w +hlua9tutY5jZv4+sTCo3EmZ8jlvVVoceTuDYSv+7e4AT7Eyb6X/TOYFiv9oz +v5sTkkZZpGOSOWHbp1/K7N85gdnPv+ZK8dcs4IQTNFlWSWdOuLNa+Pz2bE5o +6ncn3L7MCSFjQ8b8zzlhLlPzxH5dTiCuEn9t+IQTMmPOqZkgTpgopGgk3OOE +TpET7kdlGZ/fHUWUcuUEZv//8WT9WVvGdsi1CQaPuTjB3EZQarURJxzklzAR +HuSA298SM48YcMLZ+I7g710c8P6EdKE/cIKOIqwrLOeAUweSV+tt5QRmPqBW +iMDpv5kTuIgmSaypHBCoW7nwVoixfxEWt3oec8C1HOXkNYzPyXnkWaHrzgEH +6DxdS7McYB7RGypuxwElH0O3tfRxQGPMQQ3usxyw/JdgONfCAcw8wYdLnCVX +Szngn4ez+1Z5Doh6pORGzueAizpsuhKSHGCy8Mit6wMHSNxZy/9LhAM2UdgS +OyM4YPEoHN8xyg6FVU5EnVAOQA4h17f2scOGItvsJ0EcwMwf6L9TYH9ozQGH +r5YG7HjLDmPrY3d4XuCA34Luu6pfscNhq/aU5+ocwMwfcMPXCzcRBwhaBzaH +O7MDr8W8VekeDqCtk1lydWCH+/nHFfXEOKB1pf7MDo92zbWcpHGAlp37diKw +g4vAjPZeAgco7ZRLrNzBDl/jargJE+zAzCuQ3ie+3dPLDuFznp9cuNmh78OE +THozO3Qp+TaJTrHBa16De3Vl7AAr9WM2WEw1HZPKYwf3Q3xG7RVscMZslCD5 +hh3OdksHGX9gAxeSLCX9JTsw8w2HPslnUx+xg28z65TGEzZQcdgu6+fGDs9X +6rtsUMY3NBh6mx22tZB2xDuzQdeVJFGeS+xwOafIKcaYDbSe3A/jOMk4bv+X +f9ib2VfBo8sOloIPZNBuNpAcalVg28sOrHFriiak2CD33mVO/23swLZSf2WD +VOPuNFcJdnA7UGpTM88Kn0Ichdko7PB3Zl++xgArtDn/V7iOhx2YeQkJ7s6g +oSE2qGc1ZTXLZYVHyU/auLvZ4GNVuZ5/BitMuP9a96WVDcxX6qesEJjeetWM +zgbBaZ4T3W6scODcUgo1hw1QON2owoUVDn/McHT4yAbMfEXM3v1r9jxjg8S3 +melEfVZI6/IT4ApmA5uaKF5ZdVZgOf1H/1cgG9znyPnkA6xQp2yxz9iaDZh5 +i5Dbpa1vLNhgoxO5qYmXFezZm7YfNGWDCxsyOC+xscLSgTcpH9TZYMNKPZIF +6rgCnhoxjlMPUrX1+ckCbSl1tE/ybFBj+iBSs4gFHF6+3SQhxgbMfMbMWl1V +XkE2cPv047NMOAvoG9ZMyrKygfqESpiELwtYCU/NB42zgu9K/ZAFJm45NOR0 +sILxYd/sclMW+LJcWRfzkxW6Nf8THT/IAqsO3bIjlbECM8+hc1LrxvVsVvDe +cPT05U0sYKwt2nMjnhV6Vup9LLAjqewD5TkrtM4Kbu3gZYFLjjNi8gGssNf2 +pBxv6zLKDL64OvgWKzDzHvH638N8rrHCWlvaNdmwZRT7za922IwVXrE8KlW0 +W0ZXOjmjsgxYITjs52Gxw8tIaOHrzRnGcZ7VeZ0fIL6MbO/8Ts5QYgVBdl7H +40tL6PmxmJddsqzAzIf4viw8fZnKCp85yUl9sUvIPj803pWfFdL1m9dcDlhC +NOW7V/7jZIXjTsSv0reW0JQufU9LB+O4aEKohvQSWn4g++NgKwuolCSl3RRf +QgJ/tvsr/GEBZp5k9vKVmtc5LMB39dfVc/RFFF4B1RzvWWCNiO+WpNeLyHLm +s/ixTBa4cEA6OidpEf0uEVH0DGABZr5kad/Zi5fvs4DhsFjx4z2LqGGl/8YC +a3Pv7WmUW0RTa7TyLlmwQMMOnw+7WxYQ4dz4RI0xC9zy8qDe+rGADq3001jA +4oW8xVTGArLa1TB0ai8LMPMobRpJ19UUGdurpG40ObOAPq30wxjndbv4W9qu +BXTlg1/3MSEWiKQWyGsKLqA0G8nfyVwsYFBjLKLWP49OqBrv2zWwjA4lW+Tt +yJtHJxW+hL9qWkbM/EqxxvAuxaxlFPZ95+Iq13mkFGjIvjZgGQ0Pfdt5UmMe +8SVp3sv1W0bGYwtJR2EedWkonKGYLCNhrYHxYb55lDv/3Ulo9zJi5ltWtR/9 +yiG3jFQfqm6V/D6HylK8lia5l9F2N+fVXyLmUPzVzMbjvUto3U8VydNX59Ds +jkN3+yqWULTDrD3t6Bxqnc3h/JO+hCp+Jj4M2cL4/b9a/dFhS4iZh2m6q36o +ym4JvfOwUCLWzqIvmoNHS4yWULDkSadzn2aRy2buwqmDS6g97XqU+fNZlNO0 +hz+LtIQGVBdOC5yZRZuj133MZFtCujxxcxu0Z1FQw65rZ6YXETM/E711Z3nk +20WkpFDwbVXbDNp+UVb0JWMdfNCR0hhonEEf7his/229iIoWu2av+c4gx/qQ +ZoLhImLmaepksvLMDBbRhuAfdb1WM8jdQy7QU38RhXA0zJyznEGy3XsYbyKM +dXVl4OFNjhmUUNj22mthAT0c2NAYNDeNTGs2HrMcX0CTIqp2aGgaWezd6YQY +64KZv4n5XD8aF8/4ufDyq10PppH6hv+oRx4voGerL+XI3ZhGq97aQYfZAtqy +Um+YRnelLu2j6ywg7YTb4Z1i00jqpmit4s4F9CKYh1tuYQqJDRFKA0gLiJnX +EaOrHWiamEdOtua8ISlTiLOM+nRV3TyaoJX6qN2ZQr6n5/6q0efRwEo9YArp +jj5IGItirCtVGyP1vVOoS4JotOQ4j/xj1T3M+KbQTuk7WlNX5hEz35Ol8YqN +R3MefX2UPDpZPonO6NgpmInPo7SV9/dJ9O0ql1inCGNdBfzc0hA8iRw7kidW +DzLWAfcyvDk3iRRLjQW2l84hZv4nuWi5+Xv2HMq/lmn1Z/UkuhHITdoUOods +qu/lXhqeQCRF2SIO5zl0deV9ewI9EJmNTjOaQ3zv11rPx00gMW1Sm8LeOeRt +Jv1vk8cEUkgtqqiVnkPMvJCN9Zhp6NwsCjbJydm+ZQIFr7o9oPRvFs3HzOwd +IjG250ePeVkzi3asvD+PI93c/vWukbPo71N37nvvGObqTFUKmEUCdcuGH+PG +kfbxx88cPGcRM18kT/rXaao6i2RUO7jmdo+jz4Ebo+R3zqIH5PRvforjyDQu +ez3aNoumVt53xxH5QkvCgT8z6H6AYuCDL2NI26NRQorhWYm4nRcYplOCxTkZ +ZuaRKvl23bb+PYNSrvDcUy4YQx86TRyPes+g6CM37IROjKGx9/WXZN1mUMvd +TpdenTHEPqxb+llpBjHzSTWBmy/ZyMygJdbU4/Vdo+gXz88tlLUzSNftn59d +3Sg6u9tcybtjGrmuvC+OIo3AzbO3q6dRqId6+EvnUZS1Ug+eRsKbojzETUfR +krF2CwRNI2aeKeSPp/mdm9MohXZJ2JNvFD1dqe9OI8mcYf+x3hFEdk+IGFGd +Rmor73cjSCzoZKPrumnEtc8k1TpqBDmv1GOn0Z+Tt5bGHUZQHm+iXEjvFGLm +n+b2sbpcLJlCA6Un9S/IjaDTK/XVKbRbLtr3wMIwUth65IDUkynEou77pOjP +MAqbkjqjbjuFvnmXczR4DCPVlfroFLr2y62WkzyMkl7evv5SfQox81KpY1+8 +BISmkMeJdc/4Xw6hl0317IeHJpHv8uK9RjSE1qzUPxl+Nhaut3EIXW5X7P7+ +eRKdlipLu/B9ENn6tkaVhE8iZp5qSed/9ctJZLBe5886tUGU6rhwxeH8JIrb +5vaifXAAHeIx8d6iOYn4cm+4DsUNoNaVeuQkCvCdOXThxABiv5rSx8s7iUS2 +ErkeUAZQ4amEsqsjE4iZvypcqSdOILi1un/NlX7U9sdjjX/aBLpSeSzQRLkf +Fdf6m0dGTqAgl8Er7Bz96MVKfXACWRXoS5z06UPWi0tvZ05MoLp+VakLZ/vQ +EX1n2ssDE4iZ1/JeqedNoHXXssOEonsRF81qr+4CY91rKzSFefaigM61rv6j +44imYmG66mIvurhSnxtH1+YoNqYfetB6AmXvg+fjiKfx1Rz7qx50rXuO92jU +OGLmu7RW6mvjSETFnYB+dqM9zg9oqVrj6FC+NHdiWTe6fD5k1SqpcSTzlZ5I +u96NVvdaJHSNjCFm3otHTFrYcGgMDe3ffOHkeBfavFJPG0ObHLLzTw90IfF2 +yLSMGEMSGQaa6lu60NG+jui4R2OINHF4vlK0C/Gt1MPG0I3oRxx3eLpQYr6a +aZbGGGLmw/JkCwbKVcZQL2/8fX/1f2hgpb41hn5s4w02kP6HcnUL5CsHRlG8 +fZnySf9ORDX8sqXxzyj6Ml/IF2zdiSpW6lOjKJLzgWiDeifS2XbbKjV0FDHz +ZLc2cV8s8BpFN97o57SFdKC0lXrTKEq6vVAhbNaBdFy9OfXURtEmuf1bbIba +ke1FrwfeG0eRPnHyvzuf21HQSn1oFBmfVzYW9WhH20JT09O6RhAzfzYx88hi +XdkIikwN5nPpbEPXVuo9I4inb9XiQEwbqv6slf/t4QhK7f8s7qnXhj6dOhse +Yj+CLqaLP/lBbEMGK/WaEdSS9p9zeH4r4uyb3vJEaQQx82oh1g0vGmgjSD60 +Y89t5VZkrXcrJe7fMHpKtbIwLPqLqJvOL0vlDCNzfUsJWYu/qDrS/s3fq8OI +41Lz881fWtDWKVv5KxuH0V0LNpuzvC3osNexD3Z8w4iZb2uPrU1K/jiEirW5 +pRRW/UEjkWaZKlZDKLXj2I1zes1Iz1Y2b/nkELItN2Q33NyM2hKS1xBYh1AP +X+kRCdvfKGOfgQrH60HkZmN0ySm8CblF7NtXEj+ImHm4zxXGtxYPDiL+/fGm +y0WNqMjOjdN4ZAA5aR3ocR9sQI7dB3IqBwaQuNhU/M5/Dei0dU+h08MBVOr4 +J7pDvAFFZ36e99s9gJh5ud0BuyBSbgD9FzNIbN9ej+S6q644/OpHPL81zv++ +UYcsjwq/qLzTjzy+7CxPeluLFhl/zy7a96OfCbQ3nd61qGaHrG3P6n70ynr1 +jpnKX2gRPVcULetDzHxdfoOEluK7PiSjkph5tqEGTd3yWFNxrg+Nltp368jU +oDXDXNdOUfuQn5r0u5ob1cjbjVy2ON6LhnK/SF+Wq0bS3RflxV70oq+J+7MG +7/5Er25NhTga9SJmHu+gFIfe9529KHHh6LDi3SrEevHrq69dPehkg+qX1h+V +qP9GAadJdA/a4LBZbt6hAvGVTtU8dupBrL/jJd59LUcLxOv5hZt70MXtp5Mb +/MrQUQ9trbm2bsTM75Xb9Z40/diNdl6Kv8J7pxS1C4u1cdl0o4dbHJ9N6nxH +Dja3UuWkutFuK54Z3YUSFCTU/Ftmvgt1HRRtyztQgmyRoK/Pmy5kt4udZksp +RjSTvZKt5l2Imfcz+FxhMq3ahQx2uoRuIRehDy96tygM/UMlmvXtt34XIgo9 +qXX4xT+kY9Jd8Ny7AImYFXQUuv1Dnxov8SS356P6mQCF+a3/kHJ33rEvenTE +eWOjhGpbJ2LmA5u4Mi0f5nciF/3bE+D0GV3ed6C4xqYT2e/hCy4cy0bH9CLf +xYh3Inqyv8jg6iwUnZLQb8TWiV7rsKYNqbxH4SIB+UnJHeiZO/df/2fvUP1i +RuLoiQ7EzBOa6YfbSe/vQBPy21NchFPRnJygh3V3O+o3/pNz70UiahmqKeQI +aEfMfKHUzIPxEZ92JKS2zVKpJQ4pyht9ZZVsRwNCi3stIAx1P3NzyilpQ+ZV +HwqrNe8i5RO302vz21C+pU6SxlMfZNMd6GNk3IbAPeSA8mkNerLG1fm7vG3o +VNa1U9s33qOnpOYbRI20osTuz9wSGx7SBTbdyDZ60or0zIqTdA+G06/0XnA/ +frgVzR8TNPXIjqM/9jzhMCXeioqICkN/nePpnGHvUVXkX8R1SKWX3ppIN5N4 +w6Um+heJlizzzCu/oZ+KustCe9CCKoN2bRXPTKcLaMwLVHG3oDWVP+1NPN/R +e6xCBGqf/UFbNwtdfqueSS/4LbW6vaYZ5UScvvBN5gN9ulVqxsG+GRlMy53J +v5NNt33vJGzzXzN6u8bmRm3FR7pBglKgHfU3Sop3Db/+Ipd+eq/MiGNtE1rt +wrnD0DGPPsFiLMH+sgnVv5J/W6JGp2u+/SqbqdWIDp+ssAwiFtKrOfV4A5Qa +0Ubr5n39MoV0Vx31DRGbGtHqNEcFc61CesE50qaqqAakHdZeULT3Cz2rdA3X +7oB6xnPqz1R2rq90g/2mfP8s65F6c4vXxUNf6fc6CErfttUhpX+teaUGJXST +gn210FSL/gu4Eyr+o4SevA9d6LCvRSpmw89Ufb7RBbaN7TXJ+IX6OmaiBz9/ +p+/x/R5ssu4XMj9l07zVs5T+QNeVj2hZg+S6lrMpBT/ooS71mlNKNejL5gYu +boEyup62au+fc9XoufUvi4QN5XTx4pwjAZ9+oibV1vVGeyro02+bHgXK/ETS +l0m/ehYq6E67krv6Hlch6gVhZ/rHSvpz8vMTUmpVyP7F3hfBa6rok0Pu/WHe +5Sj5oc/TArGf9A177jquvlOO3k18/Cgr/pN+ULLsqqNXORJwDnIyYfjcscbS +eL9S1Bd7MkFk8id9MPhE00bP70iCJeVT0+Zq+lTa8sDUkxJ0/9MqH+1P1fTL +PS+aqoNLkJ2O6ak3n6vpop+j9142+oreDxevnV1fQ3d2t+1jCS9CT/f7vdA5 +VUNv+/mwPqO7EMWf5rHjSqihv4wo0kLv8tHvbY/5v9TV0CXPcNM+6eaiBjgy +t0j5RZ++HFLIfiIbjVJ4vYtov+iO0maHHZ68R9TEn233m2vohh8Ujl+7/Bbp +rS+8vSOkhh5UyK04mJGKFqnOZ/S1a+gNrzM5fV2TsP1tLQ34FzWegLT7vucP +W1XTOV9x/F5++hztE9RKEcv8SXfWGPd5S4zFjscmXftDyeueINN5Mo+KUyVd +Z/RSfaBwKHLbUq0o+l8lnW0xMzGn5DF2Pv6Ghxc1n36MrM8HssrTK+hZxL9r +6K99UOmI9C5rgVK6ToNyw+CYJ7ZeoDV4x4Yjt1DR9zhOyZvF9JEW3lveg9dQ +VMgedvXLRXRSh1TPYN4VbH2bnra/o1Vqit5tXO9gkphHDyq+WMaZfwoNLQ1b +zBTl0PM701r/Wmpj1xtLxYGj/Md3oYVZo5kr6m/p+dwOb6zG5ZFtdEZtl1w6 +neXalEvDY0mkmXvP58PMSzrLd+G0fQ/G1PIGit/uTIig///08widmYOeLyum +x6YPY37gJqE1VT2E2ffwP+6nd3B7rUopUd6Bm1LKrhdgOIiZ+LRUUI4bN495 +cGXFhwHMYUK9J6Wa+jE/bk8T+eqHOzDNsd5iD+61ZhUmn437MIvKha49K4Bb +aP7M34W8XswvUzIs9dt6MMfedNk4How76sC+7kfquGVnwux6zbsxb/xqss1P +CPf6kA3DW4q7ML/TcHPy6PmHOZWkqfxfOO6kP/zTBYdw7wq84C5i04l5x9kt +KFsc97bNo0unyjsw05u07qYOt2P+9Erw4NFY3FnX67hG9HAf2CAXqOnQhnnf ++IRulyRu1fzPAnd/teLHv2OD3MfBv/jxvp35Zk4Xt6+I+lbV9BbMCS6je7sn +mvHjR3PP3WSIOySVsNf6w2/8+JBzjggtNOLH4/WhckNj3LGa9TpheQ2Y8xN9 +jTXY6/Hvp077421ehzmlOe5s8ddazGXo2JWrfL8wf2lsGXh3uQY/Xg42NhNl +1Zib6sRux5B/Yq6yT1povVaFOUDIdmZ/YiXm8t9lqyMVyvDtCfaskpgoxfxK +g31VXNZ3zN2853dNo2LMv/beVnFh+4q54GqY8mLRF8ysKtOnjuvmY26ul0pP ++S8P8wd0JvVdwmfMO8tWjZ77mIlZcMfRYXO1d/jnKfP/rvVNw7+fnq+pXEoc +Zr59XR+v24Rj7sl3t1jNGojZynIooK/rIWY/x2IN9sNUbB7iVcQZdxlNKox8 +6d2dWCsC8T3fPz4GKjb/wMyP7+DyeBibKQICqmUqGUpUqBF+ZpX0VgRiWck/ +NzHMnH/oPGBmXrmDCs/OHc6YSxGBRxZZ9A2bqEDm0ArJDxCB9d+4/1P/j4rN +MzDz5NEtQxqVN0XATbpp87PVVFiWjnryy0oEbD2WvIwFqcBBzKK46zF80c5z +P4GKzS+UPU09SOanQuMHsli/pgiWN8+JfHZKHolAzreqtXRWKj6/UJ8v67hA +gd2f7m6jrBcBp7lQRZVpCjavwMyfcwlrJhZyiADBMq+6bZACXjzf+hSWhEHH +NUM+tJcCqcLs5i/HhWF15BYvYjsFm1dY1K4QV/tLgR96R86ebxLG8ujnpjND +fEuFoWz7Pcvgego2r2BtafLjaRUFeMTXxIdmCcOXwxLnxsoo2HxC5NsHdQ5f +KJAW0VBr/UQYnAPmfk0UUECkS1nza4gwll//Guj1/HaQMMh944PsDxRsHqHj +vJGBagbj9xMPGBLshOHNpUNFq95QsPkDZp7dxx0IiYbCoCUmKekXT4GShzH3 +dQ4Lw8Sq7H22zynY/MG/8Qa/zigKrNk5mZCtIgztYtkHK0MpsO5r0JYnG4XB +Q9HGd9yfgs0TGA2tsee7S4FnXE2JfezC8CuKe8dZLwq0vj57P3AGz7Ovn1pG +oR1CEBGmmXbYmQLH/6PdVWkVgmGFrWZJThRsvuDm6uHr8zcocPfcf1/jm4Qg +cqtBibMVBR5/rdOPyhGCG0KUbZzn8XmB+s0W/xJOU8Cp0ot1OUwI3ldx/IrT +pUDucU9b4VtCsJwxXBymg88DOAveYa09TAH5riPvzG4IYXl44iUxNf2rQvB3 +ax25aB8+D3DsktCXYVXG+rESvNZ4jPHzaxXK40p4/p+ZjzfJ3P/UXUUI3lT4 +iJPkKEBprRY7LCcEaxIeva3dQIHiLm0P/jVC8Mxn+9ye//D8P01FZN2GtRQw +feLN8Y1PCMvLE+TkrrYt02Ap9/GDs8J4/l/Ka90zRRIFJDX9tI920yDs+lLK +KX48798Zf81+PysF9swOFlR9ocEsZ0J69BIZuBpzD/nn0iB0YBP/00kylt+/ +erVUSX2MDPecbfkuxeJ5+vqiY4r7A2lAWG9Q+rqPjOX5C09yJqMOMghwn3uz +fIsGMRXPYhP/krH8/iFqalh/LRlctWeJvsY0mLj0l672iwztKRX3Qo3w/H1y +aQrp4EkaREsdEnr1Hc/nn1PMerTxKxnOntkSpaFEA+kH/i0v8sggbCYp2r0B +z9s3ZK/d5bGWBtS1WvJCWWSwzO11GaDQwPh71XbvDDyvv1mcGpmeQob1BzdM +9C9QId+/hm0hgQxyRiU5UcN4Hv8Y6zX6cDcVnPstqFbP8Dz+bu33jr+ekuFW +v2Hc2TIqnC90OqgTgufvmfl8iZF33E/SqdAS3mX59h7j+DqcfiGSRIXwbcvV +MnfxPP63K4knp7zIwBkXfK4kkgpznMW17jfJUEUfs2v3wfP6x3fucnS4SYWF +CLaWRns8bx/n0U06aM34vjwR5PfnGfftJfGNLyzwfD0zv18ZFWt3T51xX5Vt +vEk5Qwbbwzs33kFUGBU6ctLuNJ6vP2Lrn5B5irG/vfZXBHdT4V5Jx/lvh8nQ +u9837pI4nu9Pfl9yqpZxHx4ueLx5SgPP12cJKHjfViXD1Weyk7qzjPturqJj +y1Yy5JHv9rxn3AeVhKPizBhm5uVH//jL72Q41fSytyLDzHmAi40/uM7UUsAq +0cqAcz0Zy8vbWXcX1awhg+G0j5kC4z730nIqPlOYjOXlmfn/zotH2lfHMK6r +2vftNwTIkLLmsoVsEAWe2qQEmbGRQT4IlhOuMz4/rfzMwDKeh79f7UMUYnjG +tTJ6yxUKNh/wmcPwO5lx32HveRrlOYHn4eU/hXDFDpPgSLPhTzXGfUMx780V +4V48/86cF7jmH/qfxnYKNOzQk5NrJUF1gXXA0Y0USGl72KdeR4K+ihGhHsZ1 +/Kzj/EGpajwPb1Pi/jmzigRKd70CL3Hg8wT5p8b0UhfJcGL7/o2xxXgeXqhB +cr1MAQkUuA2lHrUxzuttSUnRz3j+nTlPoOLnm3v8GxnIluyn4t+SoDjhUfIn +xnX1p3IyzymJBILFzdevMK6Tb5kOqwdfkLC8OyGdcyvlOQmGzdVDhiLJ2LzB +xK5n5dsfkaHvkLCYcRgJy7tHNn5lcQghgWvU9Vh5xroG0c/9n/1JWL6dOX/A +GpHWrXuODBX7rVCdFwko/Yhob0iG/ly4NOHKOJ6PCuy2HGRcBzODdRdvkLD8 ++vkefQ0ZBxJE9j6fzNtOxuYTTrGfv/ZyMxl0rnpfzbQigU3nF9MKCTJsKV64 +eeMCCWz/NESvJpPBbig3f9qYhOXZ1X0HvzQbkkBs1OOX8iQJThiKvSs4TgKp +XpPV14ZI8E3+0KGUIyS495XnCLmNBKtaTVJMD5CwvLqjVW75ogYJ5hrSxZp/ +kLD5hbaexetcjPMi7Wo3EbebhOXVdzYSjsvvIIH+aW9/PcZxf/9u9vJ3ORKW +V2fOM+QdHfhEDiDBfhGRy+ZSJDj9WvLgF8Zx4xv4lhEsQYJow8HNVBcSFK25 +QOUVIWF5dI9dYvfv0kggT41w0TInYfMOozJuxNNGJNgWE77nP34SlkfXGTqr +FsdBghjL5b76fYx1w3Kdz2hJEMufM+cdBqpZfv2VJkH9y91Szr2CsPw+SfLi +WhJYahCfyvwRBG0jid9rKSSQyeJ2PlwhiOXRo+c11fy/CwKneNZu4pwgNg+R +ypXRf+CfIEjL9x8/kyWI5dE/z796/yBJEOgd1Ofm7xnbTdjxVyVaEMufM+cj +ROvY32u7C8I8y2pH//uC4OB98cUne0EQT4j4oefK2I7T25DD+oJwGTZfrLwi +iOXNJ7cEHra1EoQT1h1airKC2PyEuQJvzY/VguDj9qTW+4QgljePk7pwUfkQ +Yz9DX9QVdQv873n6zaa9gli+nDkvcfrtGO1HpgDIC9qUsmwWhD9cObSTLwSg +a37XdzsRxvGsyQiRdBOAK9cTH2wjCGL58Sfaa/am8wiC8FOZAE4TAWyeInWO +TfuQngDMnzL+kzkuAPHrM9b+VBQAq72FLtAjAH+JxnO1ogJg7TduKPFbAMuT +M+crFKTu7Ts4QASX1LOTlSUCwCJRsudVHRG2G1evPv9WAIYetTU/e0WEGA0h +anaSAJYXP734pV/nlQCklQ4+9w8hYvMXwWM1pV/vESFFPaCqNUgAy4snaARl +xPkKgJRgceEzXSKc/OOuLugsgOXFmfMXvL3b33+VJsJ+x20xExYC4DCT05PO +x/j88ztTF7UEYM9i7Bv/CgJYK/vfXXNAAMuDZ0d84ECa//v+LCfKiwnYfEaW +XG/lwS8EOBiYG7woK4DlwQc4JF6ekBKAKtfvQuvvELD5DG3xL1M6ZgQ4vWwl +OEIVwPLg7Z8q1a3YBaA4ZssaF0SAhu0tsc/niOBX+U338lYCNq/x9tG2mfpl +frj9zif0ZjsRwObbx9p5foi7oOp1uY2I5cXTVGiO43+I8HHk22L4GD/wbvr+ +3rCACI/uHOO3yuaHRy9ePu3OJILYzctF3dH8MO7VcfZZKhHLgx/9cVR2UywR +TO89IfLe4AdFp/5ASigRy38z5zkSwGDLbTV+oLiGi0+6EeHHAYmFNwr8cEva +1cnelYjlwYslj9lw2hNBxPv9MS8qY/+tncVjjBn7HzA45DzEh817BE0FzIS1 +8MGRu309a7SIWN57h945JxlVIihMbpU0f80HrRceCp+QI2L5bub8RxSfy+Ie +dz547sXC9k6U4dLvyScu8UHCsSo9KxoRy3ef+zuzVWiZAMNXUbiUAh/wLhD+ +bpolgNfMnX2npPmweZDqga3cluv4QOgOR4B5KwHLdyt8SideqWf8XN1tMbid +F5sHea25zlaskBfSm7e0GzHWCTPfzdn3jpL8ngA6mc+8a2J4IclpFWv9awKW +565VtA74+4gA0Yx7xRpjXtAo+BEa6UeA2M43JYPavPCaJ9vlghMBy2u3ZJ5/ +2XWVAHeld18PF+XF5kV09bNyNnLzQreu/PjwWQKW145kJXXXHSVAXsQrT7kG +HkiD4/4X1AlYPps5HyLlCeFuyTzQrqS4NY+x7rz+bj1RHsoDFdUfrx6jEEBy +3ssiyJQHimwrFAhEApa/5nmmTQ/mJ8Dv33zhnsd5sPkRmdlHSWa6PHBq3aru +TYx1aLB5IiVmPQ9o0WXaFHr54Tudp/YKmQebH/ERj6DVjHHDYKoWz/F6fiyf +veeAqU9JMT9YE/e7WlRyw8380Yi9OfxYHps5T/LIt3ZX7VNu8P7jqqwfzw8s +5tZ8VgHcYKTWVysTx4/lsTO7W7yiQvlhjD31mflVbtikSZbJ9OSHr8VNQ2GH +uWH9jxrxC9b8WL6afu1hzARj3QeKZWsO8nJD/fV6vSNH+bF8NXO+RHPXn6e+ +HVzgnmTrs0mVH7Y+PH3g6DcuWLt7sSt3Oz+Wr2bOl5AbLA/u8uOCfLOwM0dX +8/+/Iu47nuq2D+D42ecQaYnb3VZISVRm+V5KyigZZVRUKnu0pGEn4xYRpYiW +ssoMUbZIUfYMSUZG9jGP59zP6/ldz5/ff37nr/O7vue83p8L8X1Wcsm7zUAT +yxdtX7ZiETIOhkuTNxmIJK5Qf3GOF/vpriN2miqTvChTntfXdj8D9ycvSi7t +cZdhoNTLFw7GdfBiP93WsvOZUA0v0kvLWyJDY6D3e+QECot5sZeOVnJ8Jfie +F3VndxwwbqKjFNl8mc4kXlS+n5FEL6KjX4ZmoY0BvKizfvCrkScddV4gcWK5 +M+Gl3WR/Cz3mzoWcBsN+DzruU/6+IytVwp0jNa7Z6DnyYi89zzo/J2TFi06w +42JWqtJxn9K9jqRSLklHohXHqhf0ebGXNmn11Pbcz4vM0zPn9Ul0NOryUdpb +nhf7aKJXkaM5sc1raUjZ8apDy3peNJAOjBd5NPTnalR5twgv9tJtVpU63Rwe +ZBsZMmbtTkPHzcsK13PnpSMPb7PcaLhfMRy7yLrnSkMmV8kSJ37wYA/tkXTx +rXgzD/ripLk8TYWG+5Wy5TNipptpqFbnfpVDMQ/20N8yFoJEMnjQr41x5y9y +qGg7O+3AyVc82D8TPcvbYe+g/FoqOlRvHz8dzIMySV7yB3Kp6EaY/P41/jzI +9b//f1FxzxLVfk38vTsVnVbvNSy240GmJn2qsq5UpHj38ervtjzYS/vdsE2k +WPGgHLPiyMYrVKRSY22jp8GDDFq+7jZToSJzwaYFBxke7J/Pd001FG/kvmeQ +3OF4DgWpXJX3WrSCB3tnomcJ6s5+5ttMQRPswPx1JB7UnqDVzp9HQSnV294J +T7KwdyZ6Fhd/zVgTXwpKoqVYnGthIf6R3bn+bhQU4Lso0/0TC60eTRH4eoqC +gmd2PRh/x8K+eaD/rfuNDBZSzBHar4QouHcJKTsiXC5HQaSkPToRESzsm6tT +LMbNg1koJvuu099kCu5bJCS1Chp+kZEMLaRX3oWFffOlCJsBWVsWulBkfEa4 +kIxSErT3BJmysGcmepePWc2HfcLIKOTV7Yc96iyk+2WoT8aLjCpGeemPgYU9 +s+bRd2Ie61loucmyCUs1MtrFmjBTWcNCmdYyonMqZLSwQiz+I5mF/XKSqzit +aZaJ/D9vu9ZDJ+P+paLPzrBskoQq99oXe3cysV92NZRPWlLPREsck+h+pSTc +vwhEiMeYxJLQiL1p6g7uTPjlTGZDhWQyE1UK/snS9COhZ1Gy0beeM7FXJnoX +1pPdm8JMSGgxOfOqmD8TKVWkBUlpkRD0lO4s8GJir0z0LleUSo868pNQyF3p +XAp3lmyJvyPLnXtXrlt62pz7+SXrTbbxkVDsutfaKfuY2CdfmtuQHb6HiQxC +zBazoheA6GH+OftyRb/HAqxac9nnlCgT++Rz6tf5+IWYiOpXtndcdAGIHmaJ +iVqF8m8O8Att3DRJYWKf/PVasZHZMAPV+OZ4SMZx4KBX7fYdnQzskYkexrbf +0bJTnwMR8hYRgZ8YKEF6M+n1Ng6IXXewFi5gYI9cr1n36eEzBpIQX09xTZ8H +hRVhlaMhDCRC9Yis9pqHyxaLx4dcGdgfj163t7O+wUBfpaesKpXmgehjPHx+ +Hlm7ZR5OvRO/anaSgf3xYR2XrUwDBpo32ZUXVDAHRB+zcWfQ5w/hcyDRG74v +UZmB/bGQTtzMza0M5GxrWx1zcA5IyY9VS/9iYG9M9DJF+XUeycw5CO4rzCjn +vvdpgUPCy7/NgqbIEqdbbDoivDHRw8xeKl9EcZ4Fv0ymwp9WOjog5ivcbDgL +4YwhKeE6OiK8MdHD0PvGiuL6ZmB7z+ShvnQ6Ovum3WK+fQasFNus3FPpiPDH +r4/5Z3x7RkddZiHCWvEzYJ0Ya/sygI4+KOwwj7GcAaKXySoaLU4+MQOyEs1r +zG3piPDFmowIlc1n6ahvUnPPl5FpIHqZupbsDKGqaTDLGbCeO8g9l/7ni/Wy +/1xzVaajoC+R2sduTAPRxwRnpHu1qE/DeJnFodOb6IjwxX6LjtW9WEZHqosq +T6rTp0GrpvyzJZmOYgKTBR1qpoDoZfgiJUzpuVNge+LvhUd9NNReWaATHTQF +nkhgfv13GiK8MdHL1JgP8oTKTUFOESfSLJ+Gdr6aXn5WZAqaojceiM6iIcIb +E72MdcmeSe9kNly5TdMeuc993s3JNw9i2OBcYnzm8z0aIrxxet+Vr/QbNBR9 +27nkuSEbut2erVG3oyHzZr8cHRk2hOdwfA1taOjRBWn7ji1sME/ZStLSoCHC +E5sFbG002EdDi3Kf6D/5MAlEP1OtWXYwNnYSpJ08RW+L0hDhiU17TZdI/UVD +/rX+vhaak0D0M/aFV5ybxCbhD+/JEqd5KiI8Mety1cGKISpaFeb0KLZhAoh+ +Riok72+nlxPgYhp09a8GKiJ88arjBdM7iqmoL3fw+/lzE6DMv5n/33OO8MRE +T1NQLz3lKT4B6jO/gs0eUtFJsR3vY8bGoaiZ9FzMj4oIT0z0M9uf8AVS48dB +VEnd6bA9Fel5RqdZeo7DN59lgpGnqYjwxEQ/wz/duX1CahyWuC2mLOylIqeJ +OcO0peOgk8ln/FaRighPTPQzz5r9q43TxuCIjsVtByEqGuL9oef3dAwcp11l +7JdSEeGJiX7GVjjAaIfSGMTWaGtG9VPQzQba2SGZMZDy5qN4FFDQ+E5v79bS +Ubi9ZXQinnuOEl64aqq40Zc7K9ZIdvUUjgLR1/Rczaj14s4X+31nafcp6N1/ +f9+MwgZy79119yjom1tbbNi/9xv+r5/5tJ53na72KBQ/3npy0IaC8H2Hyfc0 +Lp6noJfXjQtaukeA6GeetKTsDG8YgQTy72ZTVQoiPHHJ1q+SNxUp6CgndXvu +tREg+hnlK9uLTM6OwLXw68P6KymI8MQrAyd0d/Nxn5+uvFSVfwSIfqZG2s3u +0egwmJ06UPXxNxkRnjj2fWjVv+ey28eSUMunw0D0MxYLoR+NPIcBbRM/m5JL +RoQnzlA7nNKQTEaKmb00RblhIHoZnbYB3QfLh2HNpRoV/hAyIjzx5iPZg288 +uee+iMdtuwd/cC/T7beSkaT9BwJK+Z/WnCUjwhM7MQ857zQgozceOve+FA3h +XqYimX5915UhGBRxdJiXIyPCF2+IUJE/v4mMpovqDcJHBnEv4/Vx+Hnxk0Fw +aOmQ8mKREeGLd+52ou/lnvPHM0fWNa8bxL1MuIk23ezrAITVPZ8+0URChC/e +e9g5teQjCQ2d43GL0B3APYxN4IdZBnkAzv9a8PSMIyHCF6tuMKL8uf/v9fH6 +Et1e/biHSchfk5+7qx/k2hwZ/c4kRPhiFPj6dc55EupnzzOLM3/jHsblhtc5 +X7vfUKx+Yv+dAyRE+OKZ7MDTm+VIqM7kkDIM9uEexq9WufFcbB9oJKq4mgmS +EOGLrb0D83bRSejYzSdLz2zswz1MtmNDq1F3L9hmB5S9KV7AvjgoyS3n/asF +CA4155M/2Yt7mAlTCQFz8V4wfhG1tfbEAjyaaNWTKuuBTyU376iqcfeMkb62 +sgc9uH+5xdn/w9umB9rKz0kKj3GwP67Uvj423s4BZuY2+w213bh/UZS4+6gw +tRskLd9dPOPDwf7Yzlmuruo6B0RNr387vKwb9y8+1anHROZ/Qa3iZp2Hf3Gw +Pw4o5FBruHvEy++/tY31fuH+JcY6nhao+QvyFF4P/tU2D34bsvglB7tAwPg9 +s/P1PBiL0z5dDO2CXp+mLqu4eeyTiX5lzfY2t6ahn8BE71eOcfeOxc2f+9Mb +f0KAddlClNw89slEv3IoMmrgzf6fwEkksZd/n4N1wUvfk9dyZ8HVc0e5ewfh +k4l+5asPf/ez6E4YqQji4S5tcMZb48o5i06gL3k/aKsxh30y0a/0NVZZvJ37 +AcmSDhH2rDloNnBwHUj5gXuVH6MJ7n0nfgAaNvPxq5zFXpny2bg7MnIWvkRf +s3zO6cC9im8lOrU/vwOaxzoe8x+ZxV5Zx+vO0mJp7h6iFjFw/1AH7lO27Nwn +mifWAWyGyIEzlTPYK1dVJsu2FcxAnHFU7as97VCeKV4o4jkDT+zTtbZcbcP9 +id8eUvPGme+Q3HJgW4neDJj360aZ/PoO4jdFpFoOzmDPTPQnm5sDJxubWsGH +pDx2pnMa1E2Xqb4MaYWO292LOLnT2DMT/cnaAa2Rj3kt8Gm59sFWx2m4YPQ6 +8bdaC+5NWrakdwwkNEMeX82iju3T2De/qFw0IcmZgriG0bG9c024N1nsFLzG +JKoJeC+vvmfyeAp7Z1fZlZkH/aegN5t5tDyrEZRin8b5aUyB4qiWmhWrEfci +tRT1t+/CGiCCbfaYJDgFFN9jyhY3GmAhTXS9PXcvITw00YuQdvP5ZT6qh4Z7 +pWK7o9igF6L68IZaPTjGXMq8fI6NPTTRixTGGctUxtQBjXJr0zYxNsxVjOyR +XF6H+xALK5XzqzNrAYmJGvblTmIf7Z94Velb4iSIWwR3BfbU4D5kev3jizcq +a6BEQfeHjdsknEp9MWR6vQaYgRdOlMtMwq/7oRkSRdW479CTl3/9UqAa9gkf +vCD7dgKqIm+eC4+p+n/Pseo5CCtWwRGhq2eHjCawn+6R7imXkZ8AM+cIEcnA +b7jnUBcMe5Nk+Q3eaemTN46PgxaolUbPfoVTWasnrmeOw0+Fuh8n5ypB32iE +P/D+OPbVRK/xYeGImUtaBfAzCoNmdo2DRr3dtcn+L7jP0HB/s+2Q3BegH7fT +cS4dw956Z1aaynTqGCh+m02M6S3HfUZKQLpGeXE5fH7Qd8OBu2dkH/KKsrQt +B+G9Q/rDUmNwabFl7cJkGe4p4j18nw/RymCKrvRwy6tReKHsrnhhRSmEBZtm +/Dw8CkeO3l6a9bME9xEKjYmrDl8sAXO2/PCdNaOgUi1qwFYtgbW9mdt3sUew +1yb6iKNG5/pYSsWwfGxDQP29EdDX3bzzo0cR7iFsL7+4IMJfBGlpWww3bhgB +0w/N126sL4R6QW1fPeYI8N9ViVOpKgCbU+909w8OY99N9A6KTrnm92vywXLq +gpKL8zC4+RV4/NyZDyEbLMb8mMNwadniH2YzH3C/cNQmOjTa/wNcITlf++ff +e5X9mGotuh+gUemXS4H3H+zBiX4hpz1HYT4iByZT59aZxA3B5xDuuWuejXsF +1pIg1vrCdzBrxGcK7EGYPygm5JqSBVaniw9Ouw7Cmo29OYceZuLeIOzLu5QH +Whng5ECdoR8ZAO+QqXledjpEJIRX3GH3g3vPe4UMpXTcD0g5ROadEk2DtYNr +6bCqHxJCJ7d8cU2FHO1nJGm+37AuiJJZfzkZ9wDTAmrtIweSwVSBP0isqw9y +9yZZbtyaDOap5t5x9/uwRyd6gJoGq5cD/a+BlBSm2PGyF44YdLWJ8idi/7/t +SXWGlG0CZLwRjjok2wuJAkcP2wTGw1OOUGHL2R74OBQjfXdFLPb8L6WbDDh1 +L4G98vy0kEU3hC4ZlwmRjQH7lnvucmu6wWHfs95A2xfY50v94X9NL3kGaZLB +qQ91f/3fvzsN6z6u7oILgqnnS0WewvFVKcHxsV2Q//1RFHr7BPt7E1eFK/rW +UXBUKOHouMdPqJKIZ+/ZGwk0KzsZ+4lOsL7lFO8/8RB7+tUcdzt1xXBQkOp3 +fba1E84sm8mRHLkPQyYsvzStH7BE1nD+/ud7QHj5bZygkbL+EJjJNHueVN0B +3ixeHTXVEBifaHsUYNAOjiJJbxy87wDh30nDtkGc9gCY0z5GPtXbBko7pNvu +mQUA4d3nSiwVrk75gqiAuHSGbCv2+hGK7Os+G1rhyoz4oSxHbyC8u5Bs1jjN +3hvm0/ttJNa1goV6KkPFxhteh3d+bdFvAiORB/p7rd2A8Ou5Ann7EvJcQbdI +/5PzVCNM3R7MalnpCnYhPp8MXeohE5KLzgo6AeHVDUw1+gw3XYE4ukmvc0sd +7G5MMbCGy7B6sDXwTnQNiBSK3NrqZAeEP+d7FDtb72MDjb3HN4SWVsOy1bWC +ksVW8MJrR7NkzjfIf+STsdnoDBC+PF/zom1QwikoN16pF+v0FYzGBJIlzprC +7nRF3T9PP4NlTKlXT6kBEJ68jJTL3r9LD+7NkVoyrD9Bx8SesIoVR0A5LUox +tqgEOkx5mixd1YDw4smtHlr7lqrCuW07rPMti8DdvqFrrGI3/NNeZFGfnQco +wsWje+t2ILw4Miz5mxYuAUuj0muftGZDfkvzhV5dURCKTQwN6EwDkmG9i0Pr +EiC8OKlEUcCwnQbl4+qvNnZxvye9f/PP/ZhVIXw4ScJibXRtj4pztEhMomUo +kLQz3jT3lKgU6/Qe//7lDpCeaAg87X6o8h+L4OgF + "], {{}, {}, + TagBox[ + TooltipBox[ + {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" +1:eJwl1Pl/CAQYBvDNHNscY+a+NpvNDmaOudnm2tjBxg7XbKM7Ckkp5SpH0UkH +HXRHOcrRQVGUEp10E7kqFTpE6ruPH77P+wc8n+eNKp+UPzEwICBgvKi8VQii +KtWoTg2CCSGUmtSiNnUIoy71CKc+ETSgIY1oTBOa0ozmtKAlrYgkitZEE0Mb +YomjLfEkkEgS7WhPMh1IoSOd6EwXUulKN7rTg570ojd96Esa6WTQj/4MYCCD +yCSLwQwhmxxyyWMow8ingOGMoJAiiilhJKMYzRjGUso4yiinorIPJnAZl3MF +V3IVV3MN1zKRSVzH9UxmClO5gWncyHRu4mZmcAu3MpPbuJ1ZzGYOc5nHHdzJ +fBawkEXcxd0sZgn3cC/3cT8P8CBLWcZDPMwjPMpyVvAYj/MET7KSVTzF0zzD +szzH87zAi6xmDS/xMmtZx3o28AqvspFNbGYLr/E6b/AmW9nGW7zNdnbwDu+y +k128x/vs5gM+ZA8fsZd9fMwnfMpnfM4X7OcAX/IVX/MN3/Id33OQQ/zAYY7w +I0c5xnFOcJKf+JlfOMWv/MbvnOYMZ/mDP/mLvznHP5znAv9ykf+oHH8gVQii +KtWoTg2CCSGUmtSiNnUIoy71CKc+ETSgIY1oTBOa0ozmtKAlrYgkitZEE0Mb +YomjLfEkkEgS7WhPMh1IoSOd6EwXUulKN7rTg570ojd96Esa6WTQj/4MYCCD +yCSLwQwhmxxyyWMow8ingOGMoJAiiilhJKMYzRjGUso4yiinIvDSP/4fgNGV +uA== + "]], LineBox[CompressedData[" +1:eJwl1EO0GAYQQNGfH9u2baONUyRtbNu2bdu2bdu2bdtJb04X95xZzHLeJK7T +skyLIAEBAScDAwLqGxrQkEY0pglNaUZzfi23pBWtaUNb2tGeDnSkE53pQle6 +0Z0e9KQXvelDX/rRnwEMZBCDGcJQhjGcEYxkFKMZw1jGMZ4JTGQSk5nCVKYx +nRnMZBazmcNc5jGfBSxkEYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb2cJWtrGd +HexkF7vZw172sZ8DHOQQhznCUY5xnBOc5BSnOcNZznGeC1zkEpe5wlWucZ0b +3OQWt7nDXe5xnwc85BGPecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nCV77xnR/8 +JMC9BSGQoAQjOCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglI +SCISk4SkJCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85OM3fic/ +BShIIQpThKIU4w/+5C/+pjgl+Id/KUkpSlOGspSjPBWoSCUqU4WqVKM6NahJ +LWpTh7rU+9U/DWhIIxrThKY0ozktaEkrWtOGtrSjPR3oSCc604WudKM7PehJ +L3rTh770oz8DGMggBjOEoQxjOCMYyShGM4axjGM8E5jIJCYzhalMYzozmMks +ZjOHucxjPgtYyCIWs4SlLGM5K1jJKlazhrWsYz0b2MgmNrOFrWxjOzvYyS52 +s4e97GM/BzjIIQ5zhKMc4zgnAv//1ac4zRnOco7zXOAil7jMFa5yjevc4Ca3 +uM0d7nKP+zzgIY94zBOe8oznvOAlr3jNG97yjvd84COf+MwXvvKN7/zgJwFB +9U8gQQlGcEIQklCEJgxhCUd4IhCRSEQmClGJRnRiEJNYxCYOcYlHfBKQkEQk +JglJSUZyUpCSVKQmDWlJR3oykJFMZCYLWclGdnKQk1zkJg95ycdv/E5+ClCQ +QhSmCEUpxh/8yV/8TXFK8A//UpJSlKYMZSlHeSpQkUpUpgpVqUZ1alCTWtSm +DnWpR30a0JBGNKYJTWlGc1rQkla0pg1taUd7OtCRTnSmC13pRnd60JNe9KYP +felHfwYwkEEMZghDGcZwRjCSUYxmDGMZx3gmMJFJTGYKU5nGdGYwk1nMZg5z +mcd8FrCQRSxmCUtZxnJWsJJVrGYNa1nHejawkU1sZgtb2cZ2drCTXexmD3vZ +x34OcJBDHOYIRznGcU5wklOc5gxnOcd5LnCRS1zmCle5xnVucJNb3OYOd7nH +fR7wkEc85glPecZzXvCSV7zmDW95x3s+8JFPfOYLX/nGd37wk4Bg+ieQoAQj +OCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4SkJCM5 +KUhJKlKThrSkIz0ZyEgmMpOFrPwHe3l48w== + "]]}, + RowBox[{ + RowBox[{ + FractionBox["1", "15"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], ")"}], "3"], " ", + + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"1.5`", " ", "x"}], "-", "y"}], "]"}]}]}], + ")"}]}], "\[Equal]", "0"}]], + Annotation[#, + Rational[ + 1, 15] (-$CellContext`x + (0. + + 1.5 $CellContext`x - $CellContext`y)^3 + HeavisideTheta[0. + 1.5 $CellContext`x - $CellContext`y]) == 0, + "Tooltip"]& ], + TagBox[ + TooltipBox[ + {RGBColor[0, 0, 1], Thickness[0.01], + LineBox[{1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1085, + 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1096, + 1097, 1098, 1099, 1100, 1101, 1102, 1103, 1104, 1105, 1106, 1107, + 1108, 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, + 1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, + 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, + 1141}], LineBox[CompressedData[" +1:eJwN02PDFgYAAMAnY7Vs27Ztt9WWuS3btvFm27Zt27Zt1+7D/YRL0rB11VbB +AoFAUPBAoFPIQKAzXehKN7rTg570ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0 +QYxhLOMYzwQmMonJTGEq05jODGYyi9nMYS7zmM8CFrKIxSxhKctYzgpWsorV +rGEt61jPBjayic1sYSvb2M4OdrKL3exhL/vYzwEOcojDHOEoxzjOCU5yitOc +4SznOM8FLnKJy1zhKte4zg1ucovb3OEu97jPAx7yiMc84SnPeM4LXvKK17zh +Le94zwc+8onPfOEr3/jOD37yi0CoQCAYwQlBSEIRmjCEJRzh+Y0IROR3IhGZ +KEQlGtGJQUxiEZs4xCUe8UlAQhKRmCQkJRnJSUFKUpGaNKQlHenJQEYykZks +ZCUb2clBTnKRmzzkJR/5KUBBClGYIhSlGMUpQUlKUZoylKUc5alARSpRmSpU +5Q/+pBrV+Yu/qUFNalGbOtSlHvVpQEMa0Zh/+Jf/aEJTmtGcFrSkFa1pQ1va +0Z4OdKQTnelCV7rRnR70pBe96UNf+tGfAQxkEIMZwlCGMZwRjGQUowliDGMZ +x3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQRSxmCUtZxnJWsJJVrGYNa1nH +ejawkU1sZgtb2cZ2drCTXexmD3vZx34OcJBDHOYIRznGcU5wklOc5gxnOcd5 +LnCRS1zmCle5xnVucJNb3OYOd7nHfR7wkEc85glPecZzXvCSV7zmDW95x3s+ +8JFPfOYLX/nGd37wk18EQvtPcEIQklCEJgxhCUd4fiMCEfmdSEQmClGJRnRi +EJNYxCYOcYlHfBKQkEQkJglJSUZyUpCSVKQmDWlJR3oykJFMZCYLWclGdnKQ +k1zkJg95yUd+ClCQQhSmCEUpRnFKUJJSlKYMZSlHeSpQkUpUpgpV+YM/qUZ1 +/uJvalCTWtSmDnWpR30a0JBGNOYf/uU/mtCUZjSnBS1pRWva0JZ2tKcDHelE +Z7rQlW50pwc96UVv+tCXfvRnAAMZxGCGMJRhDGcEIxnFaIIYw1jGMZ4JTGQS +k5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKWsZwVrGQVq1nDWtaxng1sZBOb +2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5xnBOc5BSnOcNZznGeC1zkEpe5 +wlWucZ0b3OQWt7nDXe5xnwc85BGPecJTnvGcF7zkFa95w1ve8Z4PfOQTn/nC +V77xnR/85BeBMP4TnBCEJBT/A24icz8= + "]]}, + RowBox[{ + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], ")"}], "3"], " ", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"0.`", "\[VeryThinSpace]"}], "+", + RowBox[{"0.5`", " ", "x"}], "-", + RowBox[{"0.1`", " ", "y"}]}], "]"}]}]}], "\[Equal]", "0"}]], + Annotation[#, -$CellContext`y + (0. + 0.5 $CellContext`x - + 0.1 $CellContext`y)^3 + HeavisideTheta[0. + 0.5 $CellContext`x - 0.1 $CellContext`y] == 0, + "Tooltip"]& ]}]}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.04], + PointBox[{{0, 0.}, {0.5663653328189516, 0.02217967971068798}, { + 4.408274528376112, 4.972742698066851}}, VertexColors -> { + GrayLevel[0], + RGBColor[0, 0, 1], + GrayLevel[0]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0, + GrayLevel[0]}, {0.5663653328189516, + RGBColor[0, 0, 1]}, {4.408274528376112, + GrayLevel[0]}}, {{0., + GrayLevel[0]}, {0.02217967971068798, + RGBColor[0, 0, 1]}, {4.972742698066851, + GrayLevel[0]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-1, 5.408274528376112}, {-1., 5.972742698066851}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.69123474968618*^9, 3.691234817755069*^9, 3.6912349120280037`*^9, { + 3.69123500251795*^9, 3.69123502262108*^9}, 3.691235060497672*^9, + 3.691235116374641*^9, {3.691235153119502*^9, 3.691235232577821*^9}, { + 3.691235309316052*^9, 3.691235410005908*^9}, {3.691235441561222*^9, + 3.691235468804256*^9}, 3.691235511564652*^9, 3.691235591493251*^9, + 3.691235621603333*^9, 3.691235655537239*^9, 3.691235716571472*^9, + 3.691235748719133*^9, {3.691235786995617*^9, 3.6912359204199333`*^9}, + 3.691235972832467*^9, 3.691236007321347*^9, {3.691236042685934*^9, + 3.691236065891592*^9}, {3.69123611241326*^9, 3.691236123166916*^9}, { + 3.6912361578860197`*^9, 3.69123618518445*^9}, 3.691236712266387*^9, { + 3.691431539871566*^9, 3.6914316284332647`*^9}, {3.6914317320606422`*^9, + 3.691431767152439*^9}, 3.691432605743325*^9, {3.691432666897542*^9, + 3.6914326996279593`*^9}, {3.6914327504551477`*^9, 3.691432791081518*^9}, { + 3.6914328261583443`*^9, 3.691432910322167*^9}, {3.691432945802*^9, + 3.6914329599597263`*^9}, {3.69365865169663*^9, 3.6936586791865253`*^9}, + 3.693658724268874*^9, 3.699357487084653*^9, 3.699357990420772*^9, + 3.71000151992873*^9, 3.710001557374819*^9, {3.710821924515305*^9, + 3.710821937909129*^9}}] +}, Open ]] +}, +WindowSize->{1055, 773}, +WindowMargins->{{163, Automatic}, {Automatic, 5}}, +FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \ +2015)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 25196, 701, 1610, "Input"], +Cell[25779, 725, 15034, 269, 134, "Output"], +Cell[CellGroupData[{ +Cell[40838, 998, 715, 13, 21, "Print"], +Cell[41556, 1013, 759, 14, 22, "Print"], +Cell[42318, 1029, 1006, 18, 22, "Print"], +Cell[43327, 1049, 1350, 24, 22, "Print"] +}, Open ]], +Cell[44692, 1076, 57966, 1003, 375, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102695, 2084, 25256, 695, 1508, "Input"], +Cell[127954, 2781, 15752, 279, 134, "Output"], +Cell[CellGroupData[{ +Cell[143731, 3064, 391, 8, 21, "Print"], +Cell[144125, 3074, 435, 9, 22, "Print"], +Cell[144563, 3085, 682, 13, 22, "Print"], +Cell[145248, 3100, 1026, 19, 22, "Print"] +}, Open ]], +Cell[146289, 3122, 55755, 971, 375, "Output"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) diff --git a/Figure_3_persistent_state.pdf b/Figure_3_persistent_state.pdf new file mode 100755 index 0000000..5701328 Binary files /dev/null and b/Figure_3_persistent_state.pdf differ diff --git a/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.nb b/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.nb new file mode 100755 index 0000000..59abd9f --- /dev/null +++ b/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.nb @@ -0,0 +1,8945 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 10.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 456667, 8936] +NotebookOptionsPosition[ 454356, 8865] +NotebookOutlinePosition[ 454711, 8881] +CellTagsIndexPosition[ 454668, 8878] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "Jee", ",", "Jei", ",", "Jie", ",", "Jii", ",", "n", ",", "gi", ",", + "detJ", ",", "te", ",", "ti"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jee", "=", "1.5"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jei", "=", "1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jie", "=", "10"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Jii", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"gi", "=", "0.01"}], ";"}], "\[IndentingNewLine]", " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"te", "=", "0.1"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ti", "=", "1"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"detJ", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "Jee"}], "*", "Jii"}], "+", + RowBox[{"Jei", "*", "Jie"}]}]}], ";"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.710822355025261*^9, 3.710822356368614*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"+", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"+", + RowBox[{ + "+", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ +]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Hopf", " ", "bifurcation"}], ",", " ", + RowBox[{"detJ", ">", "0"}], ",", " ", + RowBox[{"Trace", ">", "0"}], ",", " ", + RowBox[{ + "trajectory", " ", "starts", " ", "outside", " ", "of", " ", "limit", " ", + "cycle"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"+", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ +}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "ge", ",", "cplus", ",", "func1", ",", "func2", ",", "plot1", ",", + "plot2", ",", "plot3", ",", "plot4", ",", "Ge", ",", "Gi", ",", "P", ",", + "F", ",", "z0", ",", "Z", ",", "s", ",", "re1", ",", "ri1", ",", "x", + ",", "y", ",", "t", ",", "z"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "5"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5"}], ",", "5.5"}], "}"}]}], "}"}]}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Steady", " ", "states", " ", "in", " ", "the", " ", "phase", " ", + "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";", + RowBox[{"(*", + RowBox[{"steady", " ", "state"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri=\>\"", ",", " ", "ri1"}], "]"}]}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"s", "=", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", "6.5"}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.2"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"func1", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\n", + RowBox[{ + RowBox[{ + RowBox[{"func2", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func1", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.69"}], "}"}], ",", "None"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "2"}], "}"}], ",", "None"}], "}"}]}], "}"}]}], + ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"True", ",", "True", ",", "True", ",", "False"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + "Automatic", ",", "Automatic"}], "}"}]}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func2", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"None", ",", + RowBox[{"{", + RowBox[{"5.15", ",", "6"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", "Automatic", ",", "Automatic", ",", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Overlay", "[", + RowBox[{"{", + RowBox[{"plot3", ",", "plot4"}], "}"}], "]"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"Export", "[", + RowBox[{ + "\"\\"", ",", "%"}], "]"}], "*)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"splot", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "4", ",", "7.2"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", "2"}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{".15", ",", "6.5"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Red", ",", "Gray"}], "}"}]}]}], "]"}]}], "}"}]}], ",", + + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{".15", ",", "Gray"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.5", ",", "Gray"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"splot", ",", + RowBox[{"ParametricPlot", "[", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"First", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.15"}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", "6.5"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "0.85"}], "}"}]}], "]"}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "0.85"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.02", "]"}]}], "}"}]}]}], "]"}], + "]"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.685677189377378*^9, 3.685677243125893*^9}, { + 3.68567730937472*^9, 3.685677313592951*^9}, 3.685677345556738*^9, { + 3.6856773934298353`*^9, 3.685677447701723*^9}, {3.685677543127553*^9, + 3.685677544360421*^9}, {3.6856776195855217`*^9, 3.6856776207853518`*^9}, { + 3.685677659645158*^9, 3.685677678786574*^9}, {3.68567779933453*^9, + 3.6856777999074173`*^9}, {3.6856779258202887`*^9, 3.685677933342494*^9}, { + 3.685678015346306*^9, 3.6856780191049*^9}, {3.6856794651441727`*^9, + 3.68567949959622*^9}, {3.685679893428782*^9, 3.6856799012431383`*^9}, { + 3.685679952897346*^9, 3.685680018671288*^9}, {3.68568006635898*^9, + 3.68568007027983*^9}, 3.685680104729885*^9, {3.68568025528459*^9, + 3.685680264454615*^9}, {3.685680357201186*^9, 3.6856803666794*^9}, { + 3.6856804256504593`*^9, 3.685680446083946*^9}, {3.685680515730089*^9, + 3.685680548061092*^9}, {3.685680669994792*^9, 3.685680672264647*^9}, { + 3.685680709198947*^9, 3.685680710586028*^9}, {3.68568078384114*^9, + 3.6856809264711103`*^9}, {3.685681118314526*^9, 3.685681130743466*^9}, { + 3.685682541775557*^9, 3.685682561317686*^9}, {3.6856825987560883`*^9, + 3.685682668685031*^9}, {3.685683098889963*^9, 3.685683101098599*^9}, { + 3.685683207140081*^9, 3.685683211995487*^9}, {3.685683475131372*^9, + 3.6856834765474358`*^9}, {3.6856842991618013`*^9, 3.685684327589468*^9}, { + 3.685684361182838*^9, 3.685684365845892*^9}, {3.685684401453896*^9, + 3.685684416327414*^9}, {3.685684514664062*^9, 3.685684522003676*^9}, { + 3.685684690205645*^9, 3.685684734620929*^9}, {3.685685047720972*^9, + 3.685685049284556*^9}, {3.685768908135826*^9, 3.685768939432003*^9}, { + 3.6857689795997877`*^9, 3.685768980839006*^9}, 3.6857690109458103`*^9, { + 3.685769104419147*^9, 3.685769191589469*^9}, {3.685769347208147*^9, + 3.6857694850438967`*^9}, {3.685769515095687*^9, 3.685769522107192*^9}, { + 3.685771346354574*^9, 3.68577135077038*^9}, {3.685771603278409*^9, + 3.685771606731985*^9}, 3.6857724582931967`*^9, 3.685779994202208*^9, { + 3.685780029526911*^9, 3.685780030676902*^9}, {3.685780435757375*^9, + 3.685780446554172*^9}, {3.6857808305497847`*^9, 3.6857808350838547`*^9}, { + 3.685780866414919*^9, 3.6857808682772913`*^9}, {3.685780927405457*^9, + 3.68578092748177*^9}, {3.6857810359620743`*^9, 3.685781045487274*^9}, { + 3.685781086824643*^9, 3.685781092795149*^9}, {3.685785135880855*^9, + 3.685785181772943*^9}, {3.685786946564019*^9, 3.685786984205812*^9}, { + 3.687069870701064*^9, 3.6870698755373583`*^9}, {3.6870699158655443`*^9, + 3.687069967719934*^9}, {3.687070336611423*^9, 3.687070351347144*^9}, { + 3.687070383810861*^9, 3.687070386370254*^9}, 3.687070452350451*^9, { + 3.687070533925933*^9, 3.687070535796899*^9}, {3.687070582565789*^9, + 3.687070634092678*^9}, {3.687070688914496*^9, 3.687070705865612*^9}, { + 3.6870707479411793`*^9, 3.687070756577277*^9}, {3.687071077436655*^9, + 3.687071088362377*^9}, {3.687071120448612*^9, 3.687071202694916*^9}, { + 3.687071251583274*^9, 3.6870712858949957`*^9}, {3.687071424161702*^9, + 3.6870714272738247`*^9}, {3.687071549050539*^9, 3.68707160395732*^9}, { + 3.687071651969523*^9, 3.687071656820125*^9}, {3.687071865359481*^9, + 3.687071870374509*^9}, {3.687072071287073*^9, 3.687072086060611*^9}, { + 3.687072251793434*^9, 3.687072252618878*^9}, {3.687072299592122*^9, + 3.687072300779703*^9}, {3.687072356511713*^9, 3.68707235671618*^9}, + 3.687072406425762*^9, {3.6870724947159157`*^9, 3.6870725030731297`*^9}, { + 3.6870725404453297`*^9, 3.687072542984063*^9}, {3.687072833307149*^9, + 3.687072959093812*^9}, {3.687073008753489*^9, 3.687073032638172*^9}, { + 3.687073122324132*^9, 3.687073230484559*^9}, {3.687074231621009*^9, + 3.6870742350352907`*^9}, {3.6870750842513523`*^9, 3.687075177644423*^9}, { + 3.687075317211907*^9, 3.6870753350238037`*^9}, {3.687075462621604*^9, + 3.687075476975004*^9}, {3.687075700601996*^9, 3.687075762049705*^9}, { + 3.687075806502212*^9, 3.6870758290707073`*^9}, {3.687075940992485*^9, + 3.687075974337154*^9}, 3.6870760944484367`*^9, {3.6870761805283012`*^9, + 3.687076227694604*^9}, {3.687076289804641*^9, 3.687076306796029*^9}, { + 3.6870763457588453`*^9, 3.687076411919258*^9}, {3.687076444740369*^9, + 3.687076455357971*^9}, {3.687076563139367*^9, 3.6870766029788933`*^9}, { + 3.687076636024844*^9, 3.687076700415585*^9}, 3.687076737330447*^9, { + 3.687076774417528*^9, 3.687076873525983*^9}, {3.687076906272581*^9, + 3.687076936343718*^9}, {3.687076969124411*^9, 3.687077055793126*^9}, { + 3.687085864279261*^9, 3.687085864504649*^9}, 3.6870884814522877`*^9, { + 3.687088541698291*^9, 3.687088544174057*^9}, {3.687088695112679*^9, + 3.6870886951704283`*^9}, {3.6870887282519073`*^9, 3.687088776515318*^9}, { + 3.687089142958605*^9, 3.6870891749498997`*^9}, {3.687089246041688*^9, + 3.687089294201271*^9}, {3.6870894655392227`*^9, 3.687089465796674*^9}, { + 3.687089522104879*^9, 3.6870895448673153`*^9}, {3.6870900434403257`*^9, + 3.6870900435356693`*^9}, {3.687090132674615*^9, 3.687090132739732*^9}, { + 3.6870918582242193`*^9, 3.6870918583349857`*^9}, {3.6870921768231277`*^9, + 3.68709217861229*^9}, {3.7100016684715357`*^9, 3.71000171372441*^9}, { + 3.710006661524241*^9, 3.7100066623871202`*^9}, {3.710006703202921*^9, + 3.710006704651361*^9}, {3.710006742003716*^9, 3.710006743382112*^9}, { + 3.7100068063436117`*^9, 3.710006809687467*^9}, 3.710007043387865*^9, { + 3.710007132344645*^9, 3.710007140960188*^9}, {3.7100073420750313`*^9, + 3.710007350490432*^9}, {3.710007384151943*^9, 3.710007388170313*^9}, { + 3.710007436119519*^9, 3.710007440028348*^9}, {3.710007573716017*^9, + 3.710007578589087*^9}, 3.7100076906149263`*^9, 3.710010019066654*^9, { + 3.7100100990580263`*^9, 3.710010155218705*^9}, {3.710010224983658*^9, + 3.710010227559523*^9}, {3.710010274600655*^9, 3.71001027706917*^9}, { + 3.7100104313112164`*^9, 3.7100104683023376`*^9}, {3.7100105317090597`*^9, + 3.7100105577929153`*^9}, 3.7100106127552357`*^9, {3.710010643350287*^9, + 3.710010679930348*^9}, {3.7100107152853947`*^9, 3.710010760675459*^9}, { + 3.710010806372808*^9, 3.710010980590365*^9}, {3.710261329586319*^9, + 3.710261374833929*^9}, {3.7102614366735*^9, 3.710261473013032*^9}, { + 3.710261567328677*^9, 3.71026160120503*^9}, {3.710261788878169*^9, + 3.7102617985088167`*^9}, {3.710261936588929*^9, 3.7102619838389482`*^9}, { + 3.7102626362591057`*^9, 3.710262636909005*^9}, {3.7102628053104486`*^9, + 3.710262811292046*^9}, {3.710262886369969*^9, 3.710262905036956*^9}, { + 3.710262951944428*^9, 3.7102629556039457`*^9}, {3.710263010073155*^9, + 3.7102630167829638`*^9}, {3.7102678093431587`*^9, 3.710267820402993*^9}, + 3.7102681636153193`*^9, {3.710268388327097*^9, 3.710268391005827*^9}, { + 3.710301287532256*^9, 3.7103013433637037`*^9}, {3.710301402258226*^9, + 3.710301410373437*^9}, {3.710381934851499*^9, 3.710381936230175*^9}, { + 3.71038215801758*^9, 3.7103821604386797`*^9}, {3.710382201769433*^9, + 3.710382273519068*^9}, {3.710382306272499*^9, 3.710382322898452*^9}, { + 3.7104960655528717`*^9, 3.710496076401218*^9}, {3.71082221558461*^9, + 3.710822352126999*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwVyHs81Xccx/Hjstw5v/PjtGNdkJTkkmhj8fluU1FRzmEJyaKmRbRkqAe5 +NZUasVzSSgepmUtUmjjfOOvUIhyOjjsHJ5fDDzl5VC6zP96P1+P5NjwSyj6q +SKPRXJf3f3cfHWnBo56OoykLV+rkJH5b8v2RPpYNjAd1bvh52UwN0dUKlhMU +Ldx8ZrhsCzvdgpssD3hnGz57fpbE9s1by66xAmGfUfbySWJ8o972Cisc+BOF +I9VTJE6Iuxx5iZUIHiGSkopxEgeGU6yLrAxwnz+4OWuAxKoZLnlT0/ngv7LL +aOcrEj9utt61a00pjESwa9Mektgrobuz/nIlGFvsziRvkTi0/LR51uwTIEN/ +7OhJJPFMavsLBQUePFrICXL+icQvnj3nNW2vg8DfmxdKdpP4eJSL1kEZHzri +O6N9NpL4mZr1UnGIAHSi2QK5MokLufxF/fX/gtsNyYaQTgZGzJo7nJIGyPMk +YwNLGNhc0F31fFMT6Pp6vubHMHAb4kzem2yGj9KAhKIdDBysfkIoshLCfmt3 +b7E6A78SH6jRvtoK8Y4vIZtPYM5Or4GhoTZ4uK4u4nokgbfdvnzgtnE7KPgk +O3zaROD+xfS2oNg3YLRlIUW5iY6HXZq4zHoxpF/a8E/YKTouy+6LajHsBIks +sdxAiY4LkpUumkZ3wWKBQMTV18HyAO+xY9Xd8CRGM3ZxszbWcLrALl/ZC3P6 +j5qnmVr4HH1Yc8C3D3RdFMI4SxpYs9aM9sa1H6QpX3jndahjh4h9C/Uf+8HB +rsnUJlEN5+ancNflDsAnn0tBHpaq2M/TplFtjwS09D0OFeevwA9FR9Nr30ug +Sm8gGq/4DNs1lClKrw/Ch9NdHZbBSthgxzF5utMQXH/gG+OaroBtbWzTKqVD +sKZ13m11zBKvb+bKS27SMJj4u6raVH7iyba6J7GspTB0KySr32eOZzJuPqbQ +KoWGLajHSvcdj298RhgW9xbCGouc2/1kvN/aRAFs4xFIjdZ1LqmR8CgOTlPk +j4Bqt3C88W4L74Gn3nd2p0bh/IMpq4raCuA2JtyUMMbAytT+K0eiC+YEvmcZ +dWNAv9O22nLVGPSn8eT0k+OgOWRrsD35Hbxv+ZoVry0DZbVt9gadHyAswwhH +PZWBY9Y5piyOhlY2GtGH/Cbg2qHHXdo0ZcQRFc+vWpwAyeHBcKs0FTRzOC+4 ++/4kqP6QmVuTrYF4/qVJ2nspmLKIifZL0kF/NwXv6XWjQCioNrbL1EGPHDcR +Je4URCb2DDLv6aDiVQW5rgcocH41ktfVoINyxDkVKUcoUDEIZexQp6Mz+y8M +qEdRsNXEsM6BTUdm6JCDSiEFv6aFNHgN0pFJqb7SmyIKDp4Mq/xFRkdGa8Qv +Cv+kIF/KNsuS09Hn82yPneUUCLydnveoEGhFlfOJpKcUNJo+qTy7mUADljbZ +Sq0USNePXlOMIFD3H9N+rSIKGDHno+xjCSTWKjXmiilI2GYxfTqZQK/HTcu+ +7aXAO8o7YzyHQE/vrhXEjS57bftfEzwCVTF7UtxlFCiwaYbWLwlUkZTDNqQo +cNvlaxIpJND9AL1ePEuBntmXI6rDBCoQCrmpcxRsnJnP50wS6PY3qcf9P1LA +NI+fvTVHoNwyV0urBQqsnMfaJ2gMlLlWQ760REF1qddeB3UG+g/HMmKJ + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 1}, {-4.989999979591837, 4.5099994591836845`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VWsXAHBjiJK9U0iGciNNEipk7Qw3Y+SkqBShS1FEhlDJLBGiqJCh +lJKpQTdThItMGY9z9hlkDKU+RIbv3X+c5zy/Z+0/3r3W+75rbcWzl6xd+Hh4 +eKbQj/o3dRlprxq10fvl9HhpeRknhguOnWVJawCPZuj9V8jrRLviSqQNQSzI +Tf0M8s79a3MfSR+FKgObcxVLOKHdtqcwUdoZNDK2tAYt4kTVgxrN29I+0Fx8 +L29uHidCQ275x0iHwWTheOqvaZxw9vkuHS19F1xVd3iOfsMJ4bsmj39M5YB3 +y6aVe7tx4m2b+qFDcq/gsp5b2YaPOGEbyqDX3CoFT57qvQ8LcOJSkfeO+/8r +A3dx6cv1qTjx8053Ay9vJRh4jvq+icCJhuq6ylbdjyDi1cqKuYwTbgEmq+zG +a0HoiXuB9RmcqBZRX37hUQ/zx6TqFy1w4kl27ZLMX40QKqO2dlIHJ4h15Vm0 +gma4MN25qmsbTuyoZ7yrU22FZ5do57tlcaKToE0+m2yDUmnxrZGrcMJ95YWO +LrUOaA8YKNvLgxNNvcfLV8d9gRm2bvr3nxhB+9uW8/VrJyS3/FRQGsYIrcxb +xzOVuiHB9l46jYkR7KWkTtfrPcDWdohc3YkRYuNtt/zCeoD/3xsfJr9gxL6+ +VQYR0T2gu6J+RSvynZLIouykHpjc2UOPRyZcA+PIpz1gphAegiE/bj9rfLSt +B8q0sc8bOjDibM7uD6DYCwNi9UF6bRgxaNKava6mF0xkTA58asYIpVvK8QkN +vSA4cf9FHrJz8/WrYi29YOCFa8Uicw+rHeHr6wXVkox7NGSSlrA0MdkLQ3Jv +kweaMKLXnmb3SaYPDuRN3RRGbvTqWe1zuQ/i8HWm5/7DCJGSXfOTfn1wa3pK +xALZ+H+Rg27BfaBRWPR1D3K9774PZ6L6wKPz1xgvcm1gqptZeh/U0JV0Mhow +ojz8ZO2mxj7YPGXynazHiMJUVkC7Ih2+dim0Xq7DCPetsnR1ZTrstT54yh5Z +pcxW++52OqzJWuY3Rs7obZ8/tpcOF7MvZG9EjltfG8gwp0PttbRNjZ8wwiM5 +L3jYjw6FW+SUVZBVE7xCFj/TIbJY4tLvGowYUijgnP5Ch7LEqBNDyFmFYwer +eungft3csRNZps2JL3SADpdd2qsKkUXEj4UKz9GB89q14TzySKx2OK7UD8qz +95YGPmJEbhR/9Nar/WBx2WLHt2qMwL5GXdt5vR8kVE5FMpFvwGqfPWH98P7l +p7lW5BMzUmcOxPWD/tR75dfI4s47NY9k9UN+5/O8G8gBYMfxb+yH3aOh+rLI +Q2lkd3BrP9yUtVFag3x0xqn5Zmc/VB5skBNA3vny4ttYsh+CVJ/Yj1dhxIBM +2O3Mn/2Q8uMDfwWyxUzB/gYZBsRt0552QX5/RGPXZ3kG1C2A00lklZdlSh1K +DJji7ByzQuZzrhVn7GRAWmGfvi7y2/a+we/6DGijs+TXIiu+FEhcf4EBEpAY +21CJ8i8cEynryYDYFr1blcgLTuLBilcYsJS0IfsNcreMjOu26wwwjfaTy0W+ +FbVLD5IYsCJV0zAUedrpxNi5fxngurXA0hDZF/+D91Yhx6Qa6iLPfHxwwKSO +Ab8HfI5rUFZk3tnWzoAJVaxHCfk368zeH0MMkH4VrieE7B/P4+g4zoCEwPjN +PFRc73FMxxQD2HffbJmrwIi5R1xm6QIDNtt6R35Dnj/pEhaAMUGvwaikHfmq +6IqCsfVMcMzqjW5C/vP+Sc/JjUzI2vjm2ifkBekRVT0VJjx6/E9NGfJiz/l2 +Pj0mXIkwKMtGvhYp+sfbgAn+axpvpiMvab1QGjRmAiu+4Xwq5eQJv3oaE+al +DFPikXmOesrFujHB4c+Xk8HIN/gljBcvMsGv5510ADJvSZHXRR8m7FvUn/FB +5sN+1VpdZwKj1V7UA/lmddJkdRgT2trnDNyouJeG1J4YJiTWH3nggszfduWC +ZDITHu8zf3IaOez6uuSINCbwiMzbnUQW2PW2YjaDCZZ+V7fbUo77LUF/zoSB +HpGd1tTzB1J1zAqZsF9eyd4SWXBiv8uH10zIKVDON0deYR74Lr2KCT2WvDmH +kCP+bOCK1zGh+A33sBEVz/8gGtLEhFrxWikDKn7CXvNnGxNSBPN5DyILrVw6 +7dTNhCL9RyKAHFWWHtXZz4R0r0y1A8jCblBsxGHCoO57Xx3KDTcEVcaZkGtt +7LCPet5PcVfqFBPUftbz70UWUf5ou3IW5avXp04TOab77M3ABSYYvzqap4G8 +MoL/xTgvCcOKHs/2UHHNnC57IRIe0Wv+U6fig4bLLWIkTIeeFqEcc3dQhcBI +8GvQd92NLGoYYV20noR8a98hNWTdyksSdbIkNPvGRVO+qG3XRlckQdD8zyHK +ma/1479vIWHiYrUi5Q617YcFtpOwIWhwHWWBF5KrpHeToLzGXZmylvJy0w4t +Ep7V29Eou2aNxOjrkLAPStIop23sMDlOkHABD16k3Hz/X2F3IxL62f8GUutb +wnPrb5iSIG/oI0mtXy0+LiLZkoSWvueNlB1X+hs9P0pCiJ7zA+r9E8MdBSrt +UHx1biSVn1oes5ovp0mwGPaKp/I3E6hxc8SJhBTn1mItZJXZjQcXXUkgNn+c +ovJ94rIQD3aRBG7lYfP9yLETPyq2eJOwrifgozZyhSs9WMefhMuCxkd1kb8P +1OhaBZNwe7icVw9Z4czLP843SViWZjdS9bemp7wPiCTBYX/JK2p/vGlz25ed +QIJ50bVmaj+NmNFm36aQIGRwQ8AYWaZe903zAxJWaRjZmiIHl4trzOSScPbJ +Nhq1Xw2fv95l8p6EkvFvKSeQff/KmLSvJOF8avRLe+S8zKiXl2tJUI0RZztQ +9b13ctvDFhKUng/d/4eqVyiv8ncuCakCBid8qXotjw3yj5Bov2VbXaXqdbUz +R2qChFhhzOkacqrn0036s2j/KKowIpAd7C3kkkVZoKBSLk+d/8ReLeazNSwI +DBKefUTlm6bwsEKSBXZk+FgWsrLpL+kReRYs6G7d8hJ5UitVUkeDBe4RST8+ +IgetGRTjnGJB5uHlrl/IqvRiguHIgi+VEkfmkfuyb/j0nGNB+OmwYer+09or +y/jsyQLeiAfnViP/sKflvw9jwSUV0QJVZKf8apO7L1igtrbcxRUZuxIfHF/E +ArHP/fc9kav07Iti3rCgdn/msD+ybMdvqZAqFpy6s603mrrff+8a8ehkgSXz +k+BLZNO/0yMOLbBAx7I75TfVD4S07B/zsCHgtV0EH+ofneOys3L8bJi0aUgQ +Q775ZkxVRpgNEk/9FxSQSZOIxDUYG5w0MxTNkO97ljsu/sUGzZPtBTnIYhXb +eHos2HA7SeOXO+p/E+YKpTFWbDDv3h0XiNzSv9ZVj8aGqvoC0xjk+LnF1lxb +NvQOH1DJo/qzZluGjxMbLvqY+w4iS73wASyADXiQoNM51M+V0sqvWeSwwX97 +eW4I6veCW4vVeZ+yIVbMM/AuNT+8fTJU+owNQkpHvZ8iP+2KPyz7ig2mqnX/ +fUZWlTgr962MDQ++jUvI1qLzF7WiIqoVrW9Jfm0l8gFfy8WaeTYomf1cIY/m +l5nzI4Emi2y4IhWTqYFceCZkvmWZDa9nbtqaIm8yKZntE+DA6OSzzb7IwrLr +f35fzQFXMTPlVuTOanJow2YOSE42DUegecp91cU2bzMOOJLHPVah+WsLn5Dl +nAUHpqVa+rcgs2YyPl+z4sDTfE03Atma3d4YbcMBC+4Y2xt5X4nmp4wzHBjo +uGDIQBawWyxr8uZATEkZq7gRIx7mxGZvfsgBQUHJSD80P54x2KPLSudAd6wR +7R7yJm5fZ9pjDiR1+xu+Rc6TV16BPeVARu5S8ixyaVq1K08xB3LHlGcCPqP7 +687MDmY9B1y6Zl6Ft6B+GuTwLuUXBxg2pbvL0Hx72kbjs4gZF/IN5F8ldKHz +tMEi850FF4rzdqm8R3bkuHj/Y8UFa57DdVxkZ4970p9suCB3sNFLoxsj3MLn +XW44cGFJ1i6iD9nnddXSzBUuTJN3nqv2ovtd0kLtayYXJpI8BEfpGPG6yyWp +YoYLPAICmj1sNJ/zbt4Nc1yIjn1cKcjBiPM72C2Vf7gwlvfsggayXPiJldU8 +A6CuJ6qSiByhYRlSs3IA5g/Gq1tyMeJY0r5LDXIDMDZ0JbF1ACNmrUTNOv4e +gNLz9x6ODmHE/uZCvqGUAZAMnmsLnUD3odG56STDr8CfJT5WvIgRmhqaCaVD +X8Et+/im7eI4wfp5+7/s8EGYp3Xw3duEE+N7joRLqw/BhbRHShbaOLHl244x +3i9D4Ewbh3lrnKhVutLhGTIM/s9tLO974kR8Z5eTtdIIfLD3VBeMx4nvtKoE +vtoR2H9qnXPYK5yYeRru/rZuBBrKPY6sL8SJpT+mh9z/G4EZ3jav58hiOV0L +XS0jUHS9yay9CCdU/jf2z7O+EdC6pO2iWIoTDncl9ay+j8BqvE+96R1OtHWe +H3skMwqxmKKDEfr+61FR+2S9cRR0aFllJDIZNJ0hpDAK6Vz23/416H2Ubth4 +/TUKvDovFvJr0ffkleQqQ7VR6PixvluyHicOSlalfDMaBXUXJaNfTThh7Bbu +lWk8Cu5P1jPjm3FC8/f90yEmo8Bwtar4iPx/9bEnCA== + "]], + LineBox[CompressedData[" +1:eJwd1Hs0VdsXB/DjFcrrnK1CVEqlIrdSXZS5lJDI8YpEXlHXjURPqUSeuckh +UpGTXqSiUiJ5/kquCuVxUUmStfZJCh0k3XV/a4w91viM+ceaY87v2No+ux38 +JDkczkn6/Xdv82uWKOdjGHh16ZL/CwaFFZFdgq0Y3HaUajY3MOi4fIGl5TYM +UP/HcGAjg+I89s0Z98LAfbNPW6aJQWkynDY/fww3RIl2+q8YdMd56jqjPRi6 +rokG3ZsZJFA+1lceiqH34JWiVuqQZ31/WezHUL7iiYRdC4OWrnnU5ngYw9C9 +H2uXtTJIRTzvaPsRDPd+rn+UST1QkDTXOwKDHfGplW5jUIGOb1BQNAYNm7Ss +GurTb+uZ4VgMO2yqieY/DAo+u/Lh4QQMQYVfnu+m5jtkb5P8C8OqssNyZdQG +CpOl45MwkPFIN+l2Bik9Cc1VFlBrdUatp+4/9mZTWiqGjio18wjqF0aWQ5rp +GBJco93uUd8aLMjIycDQRHRj3lOfuqkBiy5g2DlaEy3bwaCgHSd6CrIwpNo0 +T59PvUm7P36VEEPzs6Sx1dT6HS4Gj3MwHLTqYTdSK5ypfG1+FYOWf3iuA7Vo +0+Kwv69jmL21dIBPXS93ZpbDDQw/XpQdtaDOr5qoabuJ4VT+FpXl1InhOwM8 +CzC4ftfymUa9a2WTcu8dDOfPOfw2QPuzGTAp2lVE52E5srKCenHeFbfBB3T+ +prVLY6gnb1fmhJVgMFlk2GlGTbQOXeGUYVjyxe/rNzqvutZu69hyDFaRoJdB +nZdsM6BYhYFf6mZpSJ2w8f6Z1BoMdbryP6vpPgJkZpvMeIoh4oOjrBW1dXl8 +l/AZBhmfH7Mq6D4XHhqM1q3/b38HOHrUcss9Ft9+QeubvnufpHnoEz1pWNGI +oYX1+PmG5uW617kZ61ow+K1Qqtn6muZPQ7ryWRuGuMQ7njE0bztfB/rzOzC4 +h3+fmkPzuMDKrNCjC4OT86fbhTS/kyRvbO7pxuApvCiR85JBvaWq4wEfMTh+ +VbSOpnm/atBncZBg+HNvf/qMegbFYHvRhAjDObVp8i/rGOSfU5oc/QXDWctt +ViHPGDRvelKnYAjDS7+jMrFPGCTdOHJcXYxhg3aBSFzDoJ4EnwXZoxjMLxft +dalm0OWJFSE3JzC0D+etfF/OoBPFF6cbShDYZpDSOvkxg7aHyJeVSBFozIVP +2o8YpNPbKVsrRyDhSrzW9GIG5TyPyuzmEdi/9JDn1Nt030t/uF+cSkCjWur4 +rnwG7T8ToumuRiDLVvFzXi6DrDy8zzdrEbC0cFbqzGHQsso2N8FsAhmJXuLn +2QyaMY+vYTeXgP2XKMGVTJp3kWlGrS6BiMqfZtLpDGrl33eNXkxg79UHMQkp +DKq4p6+2dgmBbmn+26EkBqWEa6aXLiegM7hgzt44Bv2uMJZ6y5SA2qS4ndyD +DNIO3uP0pxkB/wUb7+aH0ny97mN0zQls1Swp093NoDfnWwXCDQRsn9/1rPRj +UOTiotOpTgTOnpLq3mlP85ukx7d3IXB/pc6qiY0Mch7MUVZyI5B/8kJnsAWD +dEsFp2I9CXyqDXYVGTPouXVwYlgAAePBkIcGcxh0/9anjasC6ftkjXHODAZl +8zynDO0m8DBmy7EBVfr/abdNCNxHoGxpe+w0WQapBSyO84ogcHTiWmMU5iGJ +F5cstaIIbA9oeFD8nofIUg3Z9mgCAt3x4up/eKhsVC7G8SQBu+qPS9ye8ZBP +fG+URRqBPu9DFYev8tDGzx7rpDIIFML+LU6ZPGRo3yxZcZ5AiYutxa8UHpJV +rzluJCTAuS5eUhfBQ/nXhcf08ml/+Xtz57vykPip+2FeFQFHoylqiT+5aKaj +xb6qGgIPnDbXxX3lIou3BrtDntJ9F0q02X/korQhSd+megLjueKplvVcZKid +ay1oJXBr69i+gnQucs8XmK9tp/NumeYlmcBFJ1aFm37rpPkqiSnRDOeiV7Z2 +yxy6Cczt/FV53ZOLQsKG1XmfCQitXRRUdLjonMw7puoLgasznQLTVbmo8nSt +Ysg3Og9x5ooP0lykcu28RJOYQFNXUv//elTQ7VdmOFmShTkJTnG5QhUk0jtV +zFVjYUCjYSRUWQWpFh+4U6nBgsn8kT2TRpSRyTrv/D1aLIxc9u250KCMErYY +ZjfOYaE/XM5CP0IZLYxpj03WZ8G4qMGhrE0J+b+b78Jdx8KZP+aNCYMU0akA +FfvK9SzIzfRQKjVVREXDo9Z7rFh4tznU2FhJEUkrPDdttGXBWXU68r+hgHJ+ +D52f7MrCCeJ32untFNSVXD6sEsTCA5XtTlHzJqOuSNsSQTDt33x1oscXefQ+ +tOOoaigL/O+8w8JiedTtLJZVO8jCY9lNJ302yKMP6gYasyJZUPFKvnbTVw71 +CrNM9dOosdGtmLBJqFegJ3X7LAsHdLTWnDCmjip5+tt5FsLWhLp1jMqgT34t +fMNsFupX+KkL9sugvoVKviZ5LDBZPTukd0ojtvBI7IbHLIgClxxVXiSJRJem +2PxdQd8/s0a44J0EEqVkqNhWszArxsspLoV6X1EGv5aFtQYeirPGOKjf6PMN +lyYWJqQkp0068gsGKt0b/HpZGAvSf+RqMQbfG03UI5VEINdcNb6a/xk4ga1i +I64IGrLVNGyyWJgsF9rylRFB6iW5Prs+DDNN81K81UXQie/KaQX3wvo8NSUz +HRGgOpsn6MJbSI0cluQYi4Azu8t928JjkKWV/P7BahFERO1t6Qm9UX69WK9i +N9B63XDKaHxZ+aN+3yPvzGk9eygzt+5FeY9bk/ixnQi6knpXPmx9V666RMOs +jZrz/9NV/i+EpCN7 + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 1}, {-0.5, 5.5}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.710010241803006*^9, 3.7100102777920027`*^9, 3.71001076484037*^9, + 3.710010820129405*^9, {3.710010955862033*^9, 3.710010982392049*^9}, + 3.710261288240065*^9, 3.7102613415046473`*^9, 3.710261377900333*^9, { + 3.7102614517332983`*^9, 3.7102614675708027`*^9}, 3.71026180044483*^9, { + 3.710261943803957*^9, 3.710261986103899*^9}, 3.710262638748583*^9, + 3.710262812926292*^9, 3.7102629068286867`*^9, 3.7102629586836576`*^9, + 3.710263017842198*^9, 3.710267822402451*^9, 3.710301414350767*^9, + 3.710380743397444*^9, 3.710382206573708*^9, {3.710382262146718*^9, + 3.7103822744505367`*^9}, {3.710382308405684*^9, 3.710382323449349*^9}, + 3.710496079537003*^9, 3.710821991307589*^9, {3.7108223026868553`*^9, + 3.710822328449298*^9}, 3.710822363000587*^9, 3.710822688158695*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "8.5`"}], + SequenceForm["detJ=", 8.5], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7100102418251963`*^9, 3.7100102778143797`*^9, 3.710010766638913*^9, + 3.7100108217578487`*^9, {3.710010957491211*^9, 3.710010983931149*^9}, + 3.710261289752551*^9, 3.710261341518561*^9, 3.710261377914146*^9, { + 3.7102614517471457`*^9, 3.7102614675902576`*^9}, 3.710261800462366*^9, { + 3.710261943818239*^9, 3.7102619861176233`*^9}, 3.710262638762628*^9, + 3.71026281293956*^9, 3.710262906846425*^9, 3.7102629587016487`*^9, + 3.710263017856946*^9, 3.710267822416048*^9, 3.710301414375433*^9, + 3.7103807434124002`*^9, 3.7103822065907307`*^9, {3.710382262165289*^9, + 3.710382274465626*^9}, {3.7103823084214497`*^9, 3.7103823234643373`*^9}, + 3.710496079551712*^9, 3.71082199132274*^9, {3.710822302701261*^9, + 3.7108223284725924`*^9}, 3.710822363014615*^9, 3.7108226881758213`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.7905416985585727`"}], + SequenceForm["The zero crossing of P is z0=", 0.7905416985585727], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7100102418251963`*^9, 3.7100102778143797`*^9, 3.710010766638913*^9, + 3.7100108217578487`*^9, {3.710010957491211*^9, 3.710010983931149*^9}, + 3.710261289752551*^9, 3.710261341518561*^9, 3.710261377914146*^9, { + 3.7102614517471457`*^9, 3.7102614675902576`*^9}, 3.710261800462366*^9, { + 3.710261943818239*^9, 3.7102619861176233`*^9}, 3.710262638762628*^9, + 3.71026281293956*^9, 3.710262906846425*^9, 3.7102629587016487`*^9, + 3.710263017856946*^9, 3.710267822416048*^9, 3.710301414375433*^9, + 3.7103807434124002`*^9, 3.7103822065907307`*^9, {3.710382262165289*^9, + 3.710382274465626*^9}, {3.7103823084214497`*^9, 3.7103823234643373`*^9}, + 3.710496079551712*^9, 3.71082199132274*^9, {3.710822302701261*^9, + 3.7108223284725924`*^9}, 3.710822363014615*^9, 3.7108226881787977`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of F is z1=\"\>", "\[InvisibleSpace]", + "0.8821214738467393`"}], + SequenceForm["The zero crossing of F is z1=", 0.8821214738467393], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7100102418251963`*^9, 3.7100102778143797`*^9, 3.710010766638913*^9, + 3.7100108217578487`*^9, {3.710010957491211*^9, 3.710010983931149*^9}, + 3.710261289752551*^9, 3.710261341518561*^9, 3.710261377914146*^9, { + 3.7102614517471457`*^9, 3.7102614675902576`*^9}, 3.710261800462366*^9, { + 3.710261943818239*^9, 3.7102619861176233`*^9}, 3.710262638762628*^9, + 3.71026281293956*^9, 3.710262906846425*^9, 3.7102629587016487`*^9, + 3.710263017856946*^9, 3.710267822416048*^9, 3.710301414375433*^9, + 3.7103807434124002`*^9, 3.7103822065907307`*^9, {3.710382262165289*^9, + 3.710382274465626*^9}, {3.7103823084214497`*^9, 3.7103823234643373`*^9}, + 3.710496079551712*^9, 3.71082199132274*^9, {3.710822302701261*^9, + 3.7108223284725924`*^9}, 3.710822363014615*^9, 3.7108226881823893`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The steady state of the SSN is re=\"\>", "\[InvisibleSpace]", + "0.6864124993081443`", "\[InvisibleSpace]", "\<\", ri=\"\>", + "\[InvisibleSpace]", "5.147497275115406`"}], + SequenceForm[ + "The steady state of the SSN is re=", 0.6864124993081443, ", ri=", + 5.147497275115406], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7100102418251963`*^9, 3.7100102778143797`*^9, 3.710010766638913*^9, + 3.7100108217578487`*^9, {3.710010957491211*^9, 3.710010983931149*^9}, + 3.710261289752551*^9, 3.710261341518561*^9, 3.710261377914146*^9, { + 3.7102614517471457`*^9, 3.7102614675902576`*^9}, 3.710261800462366*^9, { + 3.710261943818239*^9, 3.7102619861176233`*^9}, 3.710262638762628*^9, + 3.71026281293956*^9, 3.710262906846425*^9, 3.7102629587016487`*^9, + 3.710263017856946*^9, 3.710267822416048*^9, 3.710301414375433*^9, + 3.7103807434124002`*^9, 3.7103822065907307`*^9, {3.710382262165289*^9, + 3.710382274465626*^9}, {3.7103823084214497`*^9, 3.7103823234643373`*^9}, + 3.710496079551712*^9, 3.71082199132274*^9, {3.710822302701261*^9, + 3.7108223284725924`*^9}, 3.710822363014615*^9, 3.71082268818602*^9}] +}, Open ]], + +Cell[BoxData[ + OverlayBox[{ + GraphicsBox[{{}, {}, + {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwUl3c81d8fx6+ZFrLSN9GQliRJS16fSqisShIlRURCkpYkZTTIuFb2Htk7 +I3vL3nvvPa/9u7+/7uM83u97zvvzeo9znvseG956QksikbYykEj//6XcMPBW +NDSSaAwKcnL3KME9Rkv2SgF54I3rhtODEvg5QNlOQB3nXzZM79pfgrw7Pq/1 +BQywTWulqziyGHdS5ZjuC5hDYaLN0aa4CD66wVW3BexBUjZnfc1diBDv/67e +p3dA/YJFZlhfAcyte/zt5x1Q+OFN5+24AgiqGKvNNjpBcpc8I5tsAWxXHCsy +vFzhOmFWwGKTj8uXqxMVBHxA+vAujJ8tD7uOeeyw3OmL/jcqlc/7c0H5KnxG +ld4PEcdLivj+5KLKmOL8Y94Pf2iWnqU9yoW5pK3cdGMAxF9En4lNyUHLYGh2 +mlcI3Mubf1W/ygZZaDBETiAal45OflnUzUApfWvK1vBobBLdfK5gXwZIrRXF +JcdioHbL0OB6SzqSr6jNB3DHQtyDl8dELh37py7v5OONQ8az4uId4mlYlmFT +23kkAZ9fBa/Mn00Fp+gPTVO9BOTmWwnqraRAmI9Rv/53Ah7YB4S8+5sC7fkl +M2ehRNz885+ZnlQKavy7fVhEk8Cu0zun9iAZEcuxPZuQgqHGzVLiIYko6D86 +qm2RApYludj8F4noqgqaLchJQe7esyY1FxPBFepO/0UyFedIVwPeNCbA8raF +AOn6Hygpr1woZU2AaqSCHkUpHU+1XJ1e/IrDFvWJ6SG9LCzf0Op6QBcN0/rq +pZnQLMjb8rgeyIhCr2wSzVpfFjQe9Ys5vYpCx56/trYnsnEz64K/5kgkkrdZ +uXuFZ8NvluFLVOtvaI+wpeZ752C03C7HszUcPCH0GdcycmDIbEIv4ROOmkcL +WRUtOQiuVax58SgcEs3NRU07czGaEnPfdjgMXMV+jWOOuahUaT8kRwpDYbDQ +Iod1Hvx1vaL2SofA7NHeFY+gPGyf3zR/iS0EInvYNnjz8iD2TCiwqz0YPuR5 +xiOkfLxL2XrN0TQYpp8zuC6+y4e0nb+lX1QQBB5dF3tiUIDg5LRnticDYcOj +/SpJuQhez/TrL331w+GYODF/kyLk3pX/VfTYD6WX1hZ/OBXBc36sI0TcD8w6 +5HdaFUV4PX5krK3HF65xuR/ZpYrh6a8hufOvD0Kk+L69OF2Cj7w+zDHOXpBp +1rvx4HYJBLaN6Qvf9MLIs+Rt116UYMv044+yLF4QcpT7uTeqBOZWj2rl7TyR +3PqeXMlfih9V2mu3HX6hwKjJ5zhHGQamjidfiXOHNh2/xi6RMriyGrdVvHYH +k6vhPgbFMrw16urrlHCHbDpjUNv3MoQWbfe1r3BDHcPp8O905eiI1ylfmXVF +3y/HhOGZcnxP6nXbrOwCuoLrxcHVFbDRPEjrZegEbsXzuf/NVEDHXO/4zktO +EGw9kvGTrRJSjvDcxO4E5Wmm2Le3KyFLszFwJdURYXuK3OTqKxGc5t68lckR +Aun+Ce/0q/D4UClt+eufiLXwEE4yq8JtHa4D2od/4ryUY9TkjyosMkO/qNke +CtUWoVpRVQivjQvvkLDHm8GHnvITVZgdO2mhyWaHUnbez/uNqiEkb37mZ/c3 +KDVzkh5YVCPtXOhSrO83dPhs/+DmUI217TK83erfMHtkzXRbHNX/D+cZj66v +4CHa9Bamq/G5MOZN3owtQhjqBoVpa6DHNGQcm2YL4bIyrWdsNQg03ZfJ+cUW +V5XT1btEalBVfuqr3W5bVO1OaP3vSg007zypzR22gWp3hMqd2zWoe3/+evIf +Gxjo/7pV+rIG6Q7dlQcf2oBy0qmS/ksNtoz2SJaI2sBy8assyDUwdbm26/02 +G2zL/FTyNqgGEd66t28OWMPN8q1UYmINNjLylx/lWmO/zIu8ifwatFQ1+eX5 +WSNyuy5xpL4GB60OGtt/soZYrUamZn8N7jLdG2zRska2u8p5n/ka2G9/r5xz +3RrX1RVTmhhqsdbtd0H1lDXqD8iIsnPVQi1o5noOrzU0hhEnJ1ALuZXn6Wzb +rTESfUbIVqwW7+1Y8/XWrWBicuJ3rlQtbGiaPPtnrLB+7tDhNeVacK/nvPUd +sYLtBm/wGZ1aKOj0kxP7rcBewLXf+HUtmm9ntl3us0L8+JC6m3UtFni+8hwZ +sIIiV7pnhkstKC2cenKjVpiUsGvqDqqFLAura+msFex1HnJuSqzFgwv8L9I3 +rCDocPKWYF4tCFmF8vMs1ihLpft5s6YWTF4CJlr7raHXXV9m2l2LYZ10d+Vz +1mDaEsbkNVWL1WPe6SeUrBEi8u5qzkYtNLTU1JlfWuOqmqzlAHMdROysaHe4 +WqPvM2/WVt46/LjDcFQ50xqWkVMrwsfrcG0t9s/akDX21ueeVRavA9O9K1uO +7rJB1hr51fsbddCLLnm9JmeDVflzkwW61P+HcO87UGiDX6+3Co6+qcMCRSs4 +fbMtzvm1P2W1rUPY/RcDX2/Zoqk4Jvi0Wx1uqY7TJPrZwnT6U49qSB2C39ly +aszZguM/JT6LpDoU61brJcp9RcJlgfvB+XVQauMoao78iinn0vrJnjpsZIYa +X/rwDfYZXmycM3WYseRJbpr4huP9BgrnaeoRG+9vMKr9HXpi7CVf+OrRHhu3 +ePHZDzA97GeIEKpHX9JIS9viD4TapFyuvFiPLn5bkcTvduhrUsvYdb8eLYXx +i7Ul9rCkEVqSeFaPvEbWg9YmP7HvKElM6109uHqHr/ixO0D9fVBMtHs9NP6U +RNfXOGA10HSsNrQeMcqvjw6dpQ6JcpkjS8n12DLx3vJFoCOa9owHXKmnnud7 +SEXL2gmmUlmdT/vqwdCS4c284QROQ0ce+9l6HNp1yiTGzBm3sk+7Nu1ogP4M +vfZDGzL+PTb/+ly+Ad8EZzXfdrhC/7tiodODBty147GrtXTDlsT9dKn6DTgq +kuV6+7g7ZBiKzGi/N4DtlbC0qYsHBo57/Dn0qwHsYtJJL2//gpXyswXZ8AYs +GHKeluP2RG4oi5FbUQP6JEZ/30/xgkZVd2RGQwNofOVqKY7e2KAkDHf3N8Dv +Z1EKYeID8esqmoL0jSi1a9ujetgPyWN+yjlEIzqzLI4OnwmA/Y6CE8duNmKf +yJ1hndoAaIsNM7k8asTnWzJ7XU0CwWVxMv2pZSNOm7PuKCgOwkTQHXKNUyPM +XQ5PHTULRmHJ2+figY34GLjjwnaxELxiz+VjzW/ElsmxtGN/QyF7doDytq4R +cbFsFt0/wsD/YEtNb18jbMS21zNohqMu5NaXFIYmiK0TGdECvyF6vndIXboJ +URU1XXnsMdj2cFNu8d0mUG5KbNnBHkvth2OeIk+bcE+h5cwF/1g4/3spx/i1 +CY00zvtu/IuD3oybgJFHE3xOzq94P4vH5Z0ZG83hTQgdjOEpZEnAjAZ9fFRp +E8qrOXuc9BJRanX4+87WJrRyBztl7UtCQISs1qfRJsjkTL+o6UzCrTky151t +zdAvi/44/CIFcTYH36/KNUNAxSq1ZDENtpHXlLTVm/F+iGl8fjIdGtXPj1cZ +NCNlkndg30wGWHcndwb+bIYkrUALmSsLQ2hJ3e7XjJ6rJtw0e7KRrbXu+Dq2 +GZeszU06E7NhFC0leaO6GQ+/2rmbUXIgU6u3J6m7GTkLUj9pg3Oxl2K/wDtD +jadpszJxLw+VlxrDZthaEPkkMqe+JR8h2iuf7h9owUmd0qzL4dT363c+tcJT +LeiwOcjr8qkQQvU6238ptWDkkcit2FvFYFz+PkD3pAUZL5lYNsuVoIM3Nuv5 +qxZUH13pf6ZUCvunlBeXXFsg65aj+9y+HNp2PDd+h7SAL1Jq4UneP0jEE/yc +KS1IW3oue3BLJcZXbBuGGltwejS7OG64Cvl7o2JuDbXAyjHwbGVkNbyuVttm +UFow9iz1nYtZDUz05h8JbG6F8XWJAjlV6pz9ueuCw65WKNA+uGMsXQf+xIsc +y0da0an//GPK1XqsNj0a1zzfCpGcGVXuuw2I3B/he0aNapczr2rOaMKyyPtG +pWet8BB9YOfF2gKZK7Isxu9bMcD/86WhZStcb++R/vm9FYzXv1/N4GpHr+aE +eaRnK0r2vAhsrOmAsElWcsnvVoj5lG93Uu+C+ReHiYH0VrippNQ5G3SjnPxI +gL68FS9O/LL/692D/4JF1Pe1tWKTn+O39KlePE2ic5UYa0WO51kXdv1+JBfU +/VNbbcUfN5l+AfZB0DcEM7zd1oYtVbJfbgwM4daA6UVXnja4es2Fd3WOwG9B ++lWCYBtq9joSWVNjmGDcFVUl3oZs1363lrUJiO8c6RuXbYNo/s5x4RdT+Hoo +nWfrgzbwNNgOa4hPo+HMD6XDz9uwOJrMmFk7DX6ZBz+ufmjDvtDDTFGiMzBW +Ecp/bNeGpdzxjcInM8h+urHy0bsNIuf11JSMZ8D8tuqUd1QbdoYc29JPtd// +6v8sLbMNlfGjQt3XZhDhYRzY+K8NWYYHHs/yz4ASfqV1rr0N3jbDMzor05BK +42Bnm2hDar1HTVXlNMil/ddPrLeBMBMT+BU4jROjNmm6vO3oe7RyL/nGNLQF +yz061NvBWcd9dNBvConi3tUrBu04HXze5uLrKdDKGWze9bEdLecZpVflpuD9 +nPXtbd927FbbnvxgaRJ10UoqxZ3t+HicLsE9cwKXT7ZzxWt04PDUyX/79MbA +JzbhbPW4E4PCLHkLUkOwDPf4bveiE8/PNy2KMg+hj+fqZxeLTlRy0XQs1g8i +jM7LONinE0mp/f2MOoMQrr52s6ClE3EtrRGHfw5gb/ItG8sjXfB5Z7Ll3UIf +qg0Pf2Y82QUd7uDh1wV9sDyybv7tbBfuHj9yb4jchz6vcFMn6S7o7yJn85zu +Q9hnknbAky70O0pzp7zrhfDNaMlc/y4oSnwYqd3Vg+4tXwip8C4sONJ4W052 +wyn/nnhpbBccc55fJBd0Y+4Mg2hNVheGLvxKbDPuRirv/QM97V04qepqOVzd +BWJsMy3tf93wV71lo3O5EzdtnmRdcuqGmNM1ur61FvBCa/PTX92wfWhh9eEP +tQ8XHt+2D+iGoUSBRj617221NQZb4rthfjJA+fZUM/5eVWMxqe3GF5MdDVLj +TRCkv/kwhKMH3y6qCf3H0IjldIXwcp4emLbs1sovbUDxS/nZGf4enJl6Z0Lr +2ADN3hs2ON0DoizyvChfA37lSsU03elB18793FKX67Hpk/jGFrceqHKfOz7p +X4u6sxeunfTtwfv+P6NCRrUImDrnfDe0B5zXD6aOSdRCQuPMoaCUHpzdqne1 +vZ06PyCicLGpB50/GPe82FeDnrVDvoa7esHdmhqh/rcKme/YUefZi2KOxi+X +f5aDQ2tjyDCwF+WTx9gjb5RDX27UaevvXrjc9AxPYioHz968gctpvZD9ws4d ++KUMZgXG9nFNvXjkb8Dz93MpzrPWtNtz9uGWoGtuoncxnJYybY7u6cOOKNWA +l5rFGOkJP1nI3wf5wQ3TjCPF8Ej6ZLV2qg/TR/d3DqQUgaJ68rj+rT6cfXSx +/F1LIVKCHcyu/eyD9lAJk/2ZAjD/NBPod+1DjwyrrApDAbTfPK2y8OlDy58S +Y4/afHDdIPhTo/oweOvX6PsX+TCdmiwTKO/DyqXGSwHxeRC9oLCbfnM/BG4s +mttfy0Vc1fa0v5b9YGXX1bponYX8E4rsot/6kfo4XnXXxSw02Dvphzv243aK +Zq/P3F+syu7kI/v1o0Wh/pzfk7+QKdn7RfcvdT831oe3FTLRkXNKnmO5H8uc +XxlApGN6r2noV5oB+HkXPWegSQe9RSppg2kAkVf6jNVz03BE4mLC8M4BnGhJ +jsmVSoNJmhR31ukBrBjqdp1Q/oMtCfd6dF8MoPPZ5To7+xTsYfO60PlmAI0X +0pUH7qZA+EUHWcliANe66cIy96XgzglNaVD7EIxK3b3JyfD7rR/JETUAPn7X +QxMDSTgT9NE0a2gAdL4BfCwPEqHlEryFU2MQZ8o1uR7/igN5hjVe8OkguIlU +RS6DOOQpmN2TNBrEad0bO89fjsP+LbfDXloMwv39o/yy0Vh0mZOkavwGEWTa +f4ByJRZqT9U+/eweROn+iKy9LNH4VlB4OHR4EG0n2EfM8qKQtl+k6u/0IGrO +dPxwexMF7nYmvgmaITw4996C1B+JhpvJGbL7h3Di4fUHzwp/49aFHZTNmkPo +P5teyhcRDkt3M999z4ZwhHXTyDfdcMTND0qdezkEXcHuEPcj4WCN/evy9DN1 +/eTafZffYajg1z9VFDiEtBDDmv7kUFxjLjL40jcE+dpf0W7DwSC6zfrXnwxj +/zz/ytukACwb1o99fz4M6Q/kz7ZfA5CwfnyO+9Uwfg0M6q4/CIAATyftqS/D +2Py7/yUPUwC23b20VydgGEZ8Y6aMj/zRXM6gVtkxDJdt8eu5/H5wUlN/fH9g +GDtHn3XErPlCdiRZd3h8GOtDrxa/x/sie9PTN3Rrwzii0yqixOuLkMulLmd2 +j6C8NOTWwpo3jFPtq3zvjqA9sP6NTZsnBKUHGwUfjoBvl8iopKcn+uvR+Ud7 +BEf2akj9VvWEyuzUeO2rEVhdX9v1pvUXIHR7KxN5BN8ql5Ll+j1AyfjN5uI5 +Av9v26e/hnsg/gb9f/sDR6DMXCVraeABAd2kw+LxI2B2+Pc3edkd24J2ShlV +Uf0ZFYp9edxRKGIkt9Y4AstuPi7hQTd8zClW+ka9l2une0h+8W6Y6XirGTQx +AinlOObTsm5o2tVm0bRtFFOz5LHOb65wChO1fcIxiuqKhF7OB664ccbu58zu +Ufw1PNWuLuyKv0oSPtuOjYLJen+qdIsLgn/6pRPXRuGyVaZWTtwFZjz7dxjd +HIWN3huNJQ4X3AoP1Pa9N4p/9rq+YpNkrOeG7FjXHQVxMuc+OYyMOoXDOseN +R6FweJb8j8ofEW3hGfffjeIGxxb50qdkKC9E6qR/G0Xe6wcBksJkCH4Wyhxx +GoXP1TvP27nIoGWNZfvPcxQcjwqkjDac0eR18um1wFEYVMypbxtxRsyRhMw3 +v0dhdk7GMafBGdbJouxhCaPwJguk+RY44/6V5KeN6aMQrFlISk52hkjVmb+M ++aP41Mf3iCvCGUwP/rCLlY+iuT23oMLXGR3D53Wf1I3Cmv+s2bSbMxJNM/6S +26jxb1CGHZyc8Y1OgiO/bxTut06aZv10xiOHLN3ZsVFk0263/Uldn91zKWv/ +/CiOzaVYs1P9mSNyOW6tjaK/XJxJnbpfn5ik3ieGMQRn/H3ymXpeWl5BVuz2 +Mezx3DfnTo3HQVGas4tzDP8N021NTHWGdnuxHgvvGJ4eoqcdKXGGuN71bAmB +MdQ3ZAsrdjiDfbGM00BoDOlk6b2r884Y+Sz3zFuM6p8gq82wg4xs1srscokx +FLziqvtyggxXb0WuVakx/PAQhfNNMvSP1jw7pjAG4zaxD9dek3E55XaO6t0x +nFiN1Mz2I4Nbsp7r28MxfMuNWmOtIGOiSln/j84YhJXaCpU3yCh40JQzZDiG +hzF+/6JFXeA1cm8n95sxtE3QHxIzcIHx61Z9aYsx6B9nH9oc6QJex46dIQ5U +e/Rv4a2nXTG3R+N5vfsY1CoqFUwtXFEa0Z1L7z8G+ciquogqV7zO73uuGTeG +vQtKH5c+ukH+pnae058xSH2Xv6/S6Qb+jkHu3JwxJE//td4i6Y6qxZG8vTVj +aI65DwZeD4R80d+l2DKGtPZPn3ycPWC2Y8LgY88YzNgZao6y/MKRY9O7OmbG +0O8wdSufyq+kVGPD7Stj+BwRd/t4qCcaJOfyxenG0cjHNCYu7gVL9UVDT/Zx +uOwp+LrtvTdURt8UlO4ex90AudsiB30g9Gb5v+UD47D76SRc2uCDVse1AhXR +cXiNh3S5UPlWtICOh+vOOCyZm3971PmjoKh1L9+DceTSpM6+lQmAcmnCwcNP +xpHR1bLYmR2At5WaJ86/GodewJ/yf1mB2FJzQfTKh3E0VI5w+UgFwauO/Zys +1TjWNsXp29QE4W9z3mV1l3E4JSipyC0HQ6HNU1rHexx+Mkf0zF1D0NXxUtYo +eBxXPwsamJwNBW3fAWXLpHE8KhY/8so+DNITn3VD6sdBIxJ72NT2N5qm1Axi +2scx/VEq77NKJPRmT71M7R/HnDKzE5twFH5Qes1K58exfy4wrmQhGntW0j/V +ro2j7bXxO4uBGESvOVu3MUyAJj/6moFhLKpoJR0mOCcQpplX+uRVHB4x8Lgs +7plA2p2GJzYbcZjZNOdBEphAo3OqUKR9PDi3BwWyiU2AbqLwv8KMBKjupE8R +U56AjH9AmYl6MkZ3taVDfQLTtlpvS7hSqPMpMVtGe4LKvVG+mxtS4LtPq1TV +dALp21Lf2ur9gTC/eKWm+QSeWh7++5JIQ64AR52+9QQMTPt1/HnT0Xcsv93c +dQJWYrH6D+cz8ErIq8fGZwIRQV9RPpEJxpMmgw4hE5h9E/rn3MxfHBHjnw5I +ngCbdNsi+Uc2DIgv9EUNE+CSPUdzZDUXG5fvb67qmIDmVxnti+F5cLgqytw8 +MAFFo/gSWvV8JFzv2zm6MAGvhcjYn10FkJTL4Jlbn0CDsRqrbkwhGhTI+9YY +J8HU6lGx25b6PlOSPMaycxItXwpvF98rwde7PMLcfJN40HSmXJbKw/+pzonu +OzSJiG2fevPUyiD+MEji1JlJDPzW++Pm8g//HpldEcckWJ6/ar1SWgF1LSWZ +q9KTiL6Szy3FVIVPuvS37t6dRPrWgk179Kk87F2SXK8+iWDGhG2HqO/X1Gr7 +3UrakwgPLOVZ76pBLYOSRc3zSSzJEuGBkbWYOLerX/HVJF4K8r2+YFWHLQYd +1yrNJiFTs3mZTb8eBwMCo+W+TMJ+Uvx42OMG3N8i9Oa68yQ+Uwj7U9ZNeC0x +21b8axKHndpfmqU0w8k49ZJ0wCSMGuSrr9O0IjrkQ0hB+CQcBjp82rTbUNJy +eatk3CT2FW3/wDxG5TZmJqPc1EkUvfP58sqlE6Qr/+qI7ElsnRvKOZfYhd2v +nc5lFU1Cr/oynW8SlTt+3/W5WDmJ093N7po1PbjZyUOX0TCJHOGMj6eZ+6DP +3qNzvmMSAp1/brhRedlWOrQ8tZ+6f9RWvf1TAwh8r3/yzPgkhko2qcJjCH9j +TromzU1i+kfg69NaI2jpXVg+tToJg78G+gXUubu8teNEM80Uyi6t8p0RmgBT +CPHYnWEKHsJEctTGJLiIQPLdzVO4M+OyU75iCvwtDEVc26cw3b56+MOraYiY +PF2qZ52CoLH5F6+JaYC57JgLxxTkeqReWJyfgWzYcXUl7ink3Lwc/e/hDFQv +Oziw81DXKoJq8TozeNo2k1vDN4VvgdOZ+9RmYGp6Z97xwBQIrjOE1qUZfGFN +PXTz0BSmzrdeyOObgWPEf6qsx6YwfLaKuWRpGpEdnX/tRaawi+2mZH7YNHql +9Gy/X5rCq88qNR8Zp6G48+Nuq4dTuFtsTNMePIljqWGX3nhOQThT7mKO8iik +q/k8bX2ncNY5rCdsxyg0R1zn3AOncH05+DD+jcCTxyr0z+8pfLjOn2wkNYKt +nx5tX0mfwkrEiF8qMYzRa/81f2ibwrY49yzD24PYpOkoYt81haPqaWXvuQdx +wIzph0/fFJTzmRt4OgagFr0gkTU2BXl+wc3czwZQxlYbRFqbQoAGt3vp9378 +bv1u9HnPNLpCv80OD/SiaI621HnfNHhUNa55J/aid/u7A0EHp5F4iC+j0rIX +u4mnDfnHp0GjpUsbtbcX34MkxRklpiExLhMu8LgHz56vbfqqPo3S/JSH21e6 +cGzDwNfedxq3UubGJpbaqHG3hd0LpOrImPHEPqkNE4+vx/OHTiPZnv5s5Ys2 +xBYeLEiLnkb8NxbmE2OtELVvGxnInEa9mrOtxFALxPdcF0PbNMxZ3Cc1Vpuw +pzIFW7qm4b1zJ9OznCasWxy8Vt87jZWtytIkmyZk95HuPxudhtpbrr1F7E2Q +jEz55LY8jSA2ckTAqUbIXTj4b5J7Bq5hSPj0vR5C404NaTwzYFQ9/SpCpR6s +vqQuq70zYDcpP31DoB41tG0zuw/PYCX+36Wp3DrqfeXELXNmBudlFhrDaeqg +fo+k5XdnBm9sMummnWtg+Lp1WdFpBhM5YgPL9FVQD3tw7LnrDKzaafx3pFZC +vrlT7euvGcQfNhxZ166E4IW+jJyAGXBYJ5hdLarAyPqYuUjCDKJZtzHIOP6D +tvU6LUfdDJ7sE3z15FoZlFMsTgk3zeD4tzeCoXRluDpEqyXbNoN7JnpnPf+W +gv/6poIvfTPoyPOadxIrRfd2Vpv5Oap/iV+lvVAJ7rvs29rIOQtGyg4fmYtF +kC0MvDC7axb+JgaePTRFuLB4UJ+Fdxbsbw1kOIoK8d+9o/+kBWaB7Jfks7cL +0chz6meq2Cy4P9w788C4ALeCJNl/3Z3F9tDnY82leZBJ0Nn9wGMWL5JWs+Va +s8HJ53JA23sWMtfV/Tdis9HzLfeYof8sGgwuZe62yYbZ4z3in8JnMZipZWsv +mo2YHbX3g//M4mIoO//nw1ngMpLwGW+eRfAaV/VSWQZ6W5+FLLTPIl9yu2ni +5wzESntEb3TPwiO3JJxfPAPX+eb+7hiZRWG8sAdvTDo+VIR3nl6exYjbvLuU +dxr6BDn3mf83h+s9wj8G3FMR5375iA3vHKRv1t48ppYKc3qjkw77qXblo4Jb +eVPB3VZ6KeDoHMwsR2ldg1Nw47vF48Lzc3hPb2QSlZ6M+OHRQGa1OZjedLzq +SZsEi5BcAV/POah4etacn4kD2++Bjse+c6ApkG4TKY5DUMwWN4HAOVTqxhva ++cShOPXWpuiIOdzICHPSlo0Da1nPYMafOfSEaTz6GRkL30na8JbGOdDr8F2f +WImG8JzAI5/WOXBvkd7xICEauZTrux53zuFjuP3iq2fRGKBx/jo8MIfVHJox +3/YoCHEc0KPMz+GIB9t6WEkk/p69coyLYx5a7LRtF7IioHhRp7d55zyEnDkX +XC0i0HPpu6f37nk4t7gOfrkcAcYbtVsPHphH/KfrNBzF4ZB/oDl2SmQeO8xk +e5qbw9D+6XPUTcV5fDslWdDBFYrV0rwTdj/mwet8wdRuIhBe8qvMAQ5U/2WP +5bn0QIjXiE4kk+eh5EE33fY1EB+agyO7vOZhbjWsfORQINYHbY6IRs2j6rTb +iqNOAEgMsgda/81T51iSnNO6H/xsv9BOVc/jo5blFcNaPxDbMrvpG+ah3m8Z +9yfMD5/YhfyEOuYRqPgj00nJD7T7WfdYTszja6Aju9FjX9CjjusIywJMJ0zY +Fpa9EJS7beEiO3XNZrZiEecFSamr9bd2LuBuZsydmqdesJJLdjbjW0AVq0ZW +RbMnGO+7s1adWMALn837tQp+IaSzarLv1AKySoxnVC1/QUpzc+XSmQXcU2y9 +Ikj8onLjO7sDxAI2l8i7GP71ANPb+1teKy7A70OsCk2hO8JWycPflRYg51/C +dvubO2Qs/hX7qSxAGyNR4Qru+GojYVOqsYAN9zR2i3Y3bHHdS8/7YgHB9w/p +hDC6IWLXvV6RVwv4pRwYPV5L5Vtvx1zptwvIyP5x/22AK34E0X568WkBsxkR +Dz9fccX2hL61fEfqeUcY7F+5Unmlkt2O7LKAT0xPGm1euKBp9DKPlscC3gc1 +HV2Tc0EAv/95Ov8F+NzwUBDb6gKmS1UlNUELyJuw8WYeI+P5gw2VgLAF2Lw1 +dTGm8tJZ1wevL8UuIOzI8PHN7mR4x/9g3JFIjZ9IDbz5kcq3lekuXSkLELFr +sb1J5eGnoyP8sekL2LFXe5HjNhn/Nv2X+DFrAaVZvZFhIEOE/9oVhbwFLGcu +Pd0lRIY78aaGt2gB0JcffclLxtr90EcTpQuQ5LGdzWcl4/HbhqnMigXsCua8 +vIuBjGIXBgu7mgUsRDkIma8443i8KMuDhgWkp5ap0s45w6lC00ewZQHkKFFy +4oQzKCNOx1fbFxBlci4scNQZDzblZpR1L+DMgrRWB5W/cw9M3/DsX8CD/ypc +Xo454zCxt1VveAHt/BEnjKecYXdfQe/8OLU+vpo7jCw4Y+aN+dLm6QVUnDTp +HafyvIpLlG3z3ALOMizdsdtKRmZc285wygJGR95xtuwiY3/F1tA3qws4XKqj +0H+UDNuR82IypEXY+nqKZEuQMc6oV7CTfhEvg2eKzO6QceuAh9LgpkV0B6o2 +CRmSkYri3uStixjakqo58p2MPfcXja1ZFvH1+qRu3m8yLN8I0CqzL6Klpm/k +HzVfQ+Q7jgd3LmKB/cPAnnky5OK+7J3/bxGOrT7uRbwuiP+XEJPPu4iZVzvv +dN9wAfdIjwR5/yKSd7y1tTRzQc/+Sw9OHV2Enuk4y58hF8jAaIxWaBE7lVYu +feB3RZSa7/uak4vYrTQXLqDlijfkNY8X5xaRcu/hgv2kK9pjBY9curiI3Dn9 +xS8X3HD5n1oq66VFKJZEVZR9d8N2xrSGGJlF0HrGl6edc4fx/uEnH2UXsdK0 +eZunmzuaJLjn5RUX4exsEoFldwS8NmWfuLuIm2YUEZUKar+RgwMy1RaBElXh +7dR+fB5bd9Lu4SJKJ9QHmFJ+4eywiKKgziIUaJfbtJI84c3wuHNFbxHfXCLc +WS96UeeHo0GZwSIk3r9qcSv1wj/VyR96povo+CAoX7vojcflv0vCrBax9f5+ +zjYFPwQfsBZ+8nUR7wVCq3/89sPQOw23fXaLEJ7hZU/d4o/nRzif/CIvwjSg +aaGr1h+xFpNlyu6LuKAmRssqEYCZxhIRdq9FyDNKWO+JDMAba3PSj8BFCL2U +FpUmByK9XUVHJnQRVU4PHbyZg7AueqqC/jdVfw7fJCm7IHzpHfT8EE/Vi7f2 +JId7MH4SN88Y5iyi03Zxv8ZgKGrcjvkcK1iE62baFztsw8AxycAwVLyI9eSL +Y2eEwvHLO61Go2oRoQpy0Q7fI9A+Rz63p46ar5VU0r4rv7FX1tCvuZGqR2FF +WTspEiHLBwxudVLzpTtYFPwzCsM31+uYe6n6eXCa8j2KhmB404WygUU86tgy +4nUuBnF37TZLTiwi/XhO5Q2LWGQkLgSdXqPWW3SP4IRpPDa2Vm+dIVHwfvFT +9b2NeFzW/G0cTU/B136mV5o/ElC0Q4M4tI2Cgw3d7xiTErFF93xoLwsF6fT2 +nquKSZDN5mD2Y6eg3dfEXGEmCTUGJa3cuylgfCoQ13c1BZyFgZfreSmw/7us +60VJgcoe83DH/RQk7F3v/hWXio4ykddbjlLAHKXPaHYmDcOHvdhWz1LwcPnj +oJhnJgQtTN+milNw9u2/K8a2f2HQqNhlQlBwS6Qm2ME8C3NWDNHj0hSUyp3a +cM/Lxpn2To6IGxQEdZuL3pbLwTvRtPfaChQoDGgsvWjLAanX4FqnMgWRIS0e +G1vzcOX8tVhPVQoqGFJMWKLyYO14YKeKOgWPlYJ18pXysZVo6qt6QkGdsnZh ++J8CyLvF37DTpWBbX2J0wutCOEz8iL/2nHq+KTcHt0QRuLwvWeSaUCA/JVnG +NlAMnZfCzFVvKLBWFL7r3FaC1Gt8Xu1mFKSuvXlS1lkK1YXVFMoXCi5w3lC+ +w/oPv8tHrzJ+pSD88Fe/YVRgNaCllt2OAnadEdtsi0r4KqROCrlQ0FaWLiDI +W42pg6EfxD0omCZraSm1V+PyqsvW694UmHcYHEoOq4FzzRePu/4UKMc+Dvr6 +qRZ9YS8PPQmm4JUz4S6qW4fTHx8nGYdTcNFqZvvtR/WwvnPzikUUBVuffzmd ++6wBh2lPPPRMosB2mqYgKLsJb5v2jIf9oaBW6flQOGsLSqO3vU/OpOBAr+ge +FfNW7LZaYcrPoYD34D5PeuZ26KuNuFYXUHD9p6HEaH4HMk8283eWUMC1/M4m +TKkLzEzF8WP/KPCKz5WWe9QNjY5kYrmaqm/b4oLvjx7EJQZXbGqgwI/f/O2F +1l7Qfiff52yh7qe4fDPoZj+UHn0e2d9BwcKT5hvyswMIPmP8RriHAsnpg3mV +2UNY2P6IUWKAAjYuujHmpBFI9ymQb4xQwKfK9zMrZwzuaRL7701QUHJQkrO7 +fALDDsdjtWeoetq9UTh7bwrndXgkTBYoaHmoy60vMI3vF7eWf1qm4M/TbPmS +7Gm0sS/f+7lOwf1VIbp5fuq7f2Ro0It2CeWbVA37VGZgnt34KoJxCbM56+Nk +Kh9XuhbSpW5ZgpFpXJnT/RnsfZ7kWMC8hKuS6Vd1qHxsfCWIr5ZtCRfiuZ8P +UDkpb5dzVBfXEhzFjlZYzE6DY+rThYn/lnBjeNmvt2ga2oVGJSu8S0gp+XjY +3nMaTC/l+7kOLWHyDfbfvDIN2fLNe+TOLKG6X9uh2m0K3gGUCNULS3jkp265 +/nwKE28Gzz7FEl7Q/OgiS07B8WCB0mfpJUg3mL6b7Z9Eg7nFjz93lyCY3cfJ +Ej6BhycXVw6+WUKD2Jh77O0xmPq1nZt4vwRzOXnDzTvG8IMl93XyxyWIiZ7f +vVExitTxH7NSNkvYVeIuki47CtaI/aM6rkv40m7cKK8wgtz98i3hiUvQtLmh +E284hCbHU9zGqUtIfdv2T0RsCBOkXcrnM5YwPMj78fzaIHZ39laX5i1hPP7K +v5YfgzDxfFsyWrMEjgvyS+LxAxDgCE49Pr0Ee/b66Y8c/RD//G1hfm4Jx/tO +bh7o6cOtGUPRvxSqfnYLDdlxffhYdT5WnrSMl1nNV6oU+9D0oyrUkGUZ2eck +9p8j9+Ibw6pr3PFlCIvrGimc6MH4wq1Xp/WW4Ta9drLxYSfY+mVb5A2W8e2d +ulAbSyfEaqXw1HgZbM/DdkRld8Ai5vxmz3fLqLDaZx/B3wG2p/u9Sd+XMbgZ +em3zbRBrns4v+70Mpt2aGc/TW6BaNHqkP2YZ25JErsu8bsHHpH779YRl+O5+ +5lZ1qgXFjs0qJzOWsa9a5GtvdDNUr+eMuZYv4/bak/6eyCaYpztwPB5fholl +4oPWwgYEhH97+356Ge8adFH2owFFbl86yPPLeHWn4bDC7QawmrwJK1pbxoPb +Rhzbe+oRIKghfpx5BZN6voLnGOtR6H1CiyK0gmEf+ZTdT2vBYlGRYG+0gpAp +bn26r1VgC385RTZZQc1h2Ud+D6vAUcN93PPNCjQPHp4IEqsCN79mSKjFCiLe +HsrNKavE3uJF92yHFVRdcFHe4VQBYdZ95jOxKxC8a8hsdrkcIucK0yiJK1iV +WXLPXimD6ONni+upK2AckbmenFSGs4lJRltzVvDOcLt49LEyECrXNfmrqftv +UHb68ZVC0e+ljPL0Cvp3C7ziFijGrRJuq/vzK3ixT1IldLgISjOZOY+XVrD0 +7oTHv6giqEgyXTCkWcVnPtlDLWeKoDHkddx2xyqmGaefl9wqhJFwIVvayVWY +nU97UB6QD8ds7vY9xqv4cZ+N8VZADlQsE0s6Xq3iVMps8YG3OdgrqZjs+3YV +IRmdnncUcxBdZPNz36dVOPyu5WvYyEZpxcKlgw6rCPi8pHNKMxu07XUhgtGr +eJp53Pj6q78o8TFyHo9bheENS94jQn/hoLHNIjppFVb/nEujBjPB23flnnDm +Kk44vHkceD8TF0bjt4qWr+I7OO/slM+AyZKD0YWRVbB1c2t1yaXhQrrgg9Xx +VSh5HY4xZk0D7Yfia5nTq2Au0blErv0DBxLpAJZWITH0V9FC7Q+iNhnWX2Za +g6Nyc0zzi1QMcMqdvy6whgMZm7jNU5JxV2Qz/b3Ha9A82r/5vk8CBF/+2flM +ew1xtbuZ4vUTQJuoe+yD3hq0e+p/Wl1IQOTp0lv+xmsIOW4p7dcSD9pz3/2H +LdcQ5X722BfeeERjO94FrmFOabGBPiMWXywyb/0IXcOw/Pa+UMdY3Mt5ru3z +ew1rV11pknViQX+lwi43YQ0MVXTyLJxUu9TPti35a9R74diT08PRoJfb8c6z +bw0vZN+VvvgRiRa7HLuooTWw3dR/LSgZiZiKF/5ZY2swrmYt9F79DVXFmuLe +uTUE/5eq5W34G7G3nXcKMqyjKSY0vPtBBNRUOZMyDq5DkjJ+j1E1DPE6u6ba +tddxjTblqX1BEGQvZSdE6K1j9aYGnwk5CIP/6bx+bbCOh3OpAf80g8BTkbjO +arqOQ7vtmJrogmAtqrhd0mod29znmoSuBUKVxuZoROA6eL4/qGAa8sdcy/EJ +09B12I7Xsidl+uNnYl3cld/rkJWhe1bg7I98nf3n2uPXsbBO85j5kj+EKjKl +WXPXUcG9sfeQH5W/Pee0TLvWoRtzq+x5pw+8TDwPX+lbx8XdDNXGrj44I395 +jGVoHQ1Veyv55X2gT+PwMnxyHdeFxi7+yPJGg84xy7b1dSwn3jDSiPBChOhj +38t7NjDJmXWx1O8XJJk3a7Ls28BuPomu8se/0DkYI9DGv4Giu/Rj9gd/gcNz +LeqV4AbK+POUNKI8YE7jkRF2YQN5BZpPQ6n8fbOisplZdQPcS39+8vC7obhn +36viBxuwcHM2PznvCmLxJavlow08vmyno1jkCuG93NLzTzcw9H6TT7GBK8JE +9Xqi9TcQpOspICzpir3XMj48NdqAqeuJQ3//cwWrsUZi6+sNDNt2pzwvc4Gt +dbyCy/sN5Dprv/YLdgHJk35U/uMG3p0cu7P7kwum8sL25VpT/dMCOraKu+Bp +03LG+28bEGhZH3Xa7YKuMVmV0/Yb8BXcOmi1SkYV57R9mMsGtCPF9ZtyyZA5 +euXoY48NHIt0vCcbRka2hEvBbu8NNDxuXlb6SeXz24Ma9X4bmFq+abn6moxY +nXOr9kEbuKd23E/uMRmHzb67yYRtoEsob6eSPBl+Du0itJEbaJ1Mq9otTgZ3 +8ImK9JgNeHNnxMceI8PhzyfdVwkbeH/AIJh3DxlMFbX0J1Koen974/CCyuMW +PQf9htI28F+Fol4SlccpC68vBPzdgPro5cOLq84w2lraoJa7gVtbVFwlqbw8 +xMdjzFm4gWxjBZvf087QEDXYXlmyASP9oX/nJp3RJJMdZvuP+n3oEV+j8rri +AzbJy9UbSBNZDaGj+he/0OpcqaPGs2PjiNq8Mwjr5HdJTdTvO6Ksxk49L/UX +E5dh2waYSjyvilPjEY5RjTvcRbV7vZztp8Yblhcp29O7AV6FT4Z7+cjY27Q+ +6Dm4gcN2T/NXTpDhPqb4+c7oBgLrjTZsrpDBShPIyzK5AZtLF9gb7lF5nXP+ +T/HMBgTTAr5QjMkgHZW+Y7lAza/kfzS0VP3fSHhMXVjegHI/hxhDNBlTt0a/ +z69tIMyfoZqjiozEBB/nRhKJUDF/+PEKlcenMqUfJdKSCIHWixxBe6j1UOOx ++pyRRCQ2q6TLv3FBUNvl0utMJOJ3KskuP4JaHwOjboe2kIgvxh++53a5gGea +/IR+G4lwev/IQ51ajyorF091bycROSziHtF3XUFmGCT9ZSER+oU0e0vcXVHF +4lDxaweJsH548VlRuytk+Ht0lTip9peXSxteuuGL0PczJ3eSiGdbAzx3F7gh ++6woA/MuEiGRHRj5+z93nJWz9iviIRE3nW4t7ax1h8ndEwZBvCQig/yL8YSY +B2IfNV34tJdE9Id1WdP7eOCw6dHG8/wkooHT3UDL7BdGsx6cJQRIRC7bwQ6r +tV+I3uzocfUwiQhP+XOi4YsnRL0X1RQFSURoEEdmSogXFgeOZt4RIhFjBT94 +Ay95I01YnVdNmEQshe0jmfR641J+ftcTURJR9YG21U3cF/TMlEvPxEjE3qo4 +G6U5XxTfPRZodJZEyMYcKem75wf5Uccn78VJxFbufM3HB/2hyvZwxEGSRJhH +cG6emAzAnvtON1ylSISa7og5q0EguoILIj1lSARdT24jx3QgtM8JGobIkoja +PQ8OqzIG48jnh1W/5UlE3bHFmXEqj4+VO52MUyQRH5lfazGeDMFLjaXZdCUS +IaL7t/+VcSjEIgTv5CiTCMYj8lZCPGFYnn2YXKhCItxvR7EfKw+DhU3hm+r7 +VD2DOn5nIwI/op3XBrRIRNTR2sGG91FQoBSqj2mTCAu2KHo69WiwXV7Omn5K +ItycdEY1ZWLgXq9huapPImhsNS9+8IyFGh+5l8aQROzJ+2k9sicOvLpFkpte +kAh7PnFeruA4BK8e38T2ikTsSqlafZobj6dSj57ufE0ifI/UkmZVqPetA7mE +5y2J6Hi2/SrjfALiD6x8P/SBRJA+0IXESiTh7/Vi1otWJEJz240oMb5UfCKv +vLhsQyI8OHfz7BpOhWSHUK30V6r+9PtfpqX9QdkLF5dbdlT/ns2tsabpsE8v +Xrj7k1rP3+OZqh5l4BbD6t0HjiTiv9O71SWVM9Hk/vi/py4k4uTVY7tYH2TB +s8fl/XM3EnE9LYTr7NlsqAuWtBl7kIiaZK5Mr6Js9GWd8P3gTSLeypzYlk/J +wfTA6gHnYGo+TgZutEbng+vDsfZXoSRi/7aP5ryaBRBnV3VVCafm3+ArhPkK +YYsUJt4oEkH+GVsdE1uE6Pr+HFIMiWD5VeJy0qYYtc843vfGUvMjUZEepVMC +XvcX42GJ1HxmPAu/ea0MkkJ+Id+TqfG7FTsyypZDL7/ioUEqtd7K389Vqf1D +0tSxmlMZ1H7ncxpKCalEi7Xqd66/JEIn43n9DuMqkPZ8lVzKosavVCAduqsa +stcGkv/mkQgm5o/RZOsaGHdyGPkXkIgnnhkuf+Vq4fbqypEvRSRioWIy/NW+ +OmRsNe7RLiERGslKsxTaevT4+3leKyMRWZ8rJ5Nm68F0tlJJ8B+J0J0P3X9z +voF6n69tZ6kkEdsmWXTjNlN5e1nVoq6GRHQPH/Ndf9kCH4ev51LqqP2aU8/n +VtmKfIHUGY8GEsHJnKpjfq0dIxkDv82aSMTVI4EXWAY6wHqb88nDFhIxa8Av +fuZOF8SGr/BebiMRfVUMmbLy3VD7aNzI30GtH1qOtOhHPbDg9HfY1PV/Pec/ +szj3IuR35bWRbmq9+GZoHRjoQ/mlddp/vSRCXeXszk3qA5hpFMyI6ScRrSyD +ModXB3GR/pvQq2ES0XYkvEzZexSPf6UO3h0lEQx/un5G2Y7DVnjQ7/w4iTh8 +NCo2T2cS0YWcqnsmSUR+Oa3Qqt0U6u5LspOmSQSH4ranfJLTWJ4xLu+ZIRFh +Ls/u0v6bBt9Xf6uCORLRkkQR4Dg0A0m+KomwBRLx+Kw/l/PdGeglrS9+o1Dz +zZ7drk3lbYcbx+OeL5MIpYDtlPmHM0juVtNTXKX20/jXyxLXZtD2+tuBU+sk +4vIzE7vTR2ZAw/ynjZNEQ9zOb24bo5uBQNCgC4WGhpiz/Wy10krl6fNcCq10 +NMQWy0TDifhpuGu/zPHbREPc+T3m+0VjGkJZx0OOsdAQfTOWIhFZU7hvFGB4 +iZeGyHry6L4W7yQ2S6llyO6lISwj2rmkKieQvJtjs8p+GsJ7iG9pymICrEVW +AQYCNMQHZyXxXwPjyNujW+8pREP8kP6xhT59DEfLTlxYkKAhpCYLj1EnCBr9 +hmxoLtEQ3fdcdXmvjOCLqX/dtis0RF5kDO890gja97EbHJCmIWKvX9tfajYM +hzcLfooKNMRXuT1Tzz4MYfFgJuPvhzSEsMw1KWmvAQStvLqd/IiGsEloKSp9 +PADFaiG/HE0awr4y7kXXkQFEmPmda9KhIaJUTfQz/vRDvfazPoMRDXGh8LAO +S1cf8i2u1zy0oCEGB5v6J672wqm10ZvDn4bIfyh2LPZ5FwLWvl9eC6Ah4kqD +z0dKdSGOjxjsD6IhIkSdFuj3dqFKM0w4JYyGqDk/1+cY2ontY2/y7sXSEGzG +ei6MHztgu7pr2CeLhlBnFGDdJd8Gd94KO5scGsJH5e7nri1tCCUsRYzyaIiJ +QwoB0sWtKPwy8v5SEQ3Rbu8wOiHZCrrt6cx9FdTvLfOPf3O1BeZ77ose6aAh +vp12ekk8boI9WJt3dNEQHAqc03cPN8H7Uf6H5W4agus0QaFMNCIjWLCorJ/q +365jXPOhEUvH1+4ZjNMQ83Vrl7L9G2Ai4fMxYZWG8DvjYvWWph56D7tKL+6m +JfR1TKQ+ctdgiFevlWcPLTEoaPHw/kQ1tDtmR1d4aYnr9UGhnvnVePxg0/a0 +/bQEySPw6EXjaqipCSmIHaUl/pyKy5mproLsXbNaoXO0xNZIrtEayUqUcjH2 +bb9AS/QZUvzoVisg0/BzbkyclmAVZKC0J1RA8k4g52+ClpDRJJ/5erACF2+X +3j0kQ0vwjvlutmf9ByEF7ja+u7TEkvWh/cz0ZYhkDhhbV6El/LiijwkUlOJo +xbG1dlVaQkC+I6HKuhQCcuD1UqclQp48TGzcWgq+G9oa3Nq0xNC7OiFbnhKw +Sif2sb6irvsUWTTuFmFaQnGcxpmWWOM4RRt0NB8LF7UcN7vQEnWWyXZ/FvOw +Kv7m9A436n73Ln1UKMgD4wW/D3s9aYngnMq8xUd54DkztR2BtMTysXMq3P65 +kDrhIGSWQEsUZexjtT+dgxtCQTWfk2gJy+DPdf9tyYHi8VTT7ym0xNyuKDnO +zmyoHev6+yudliiY3iyo8C0bRoeEFf7k0RL23UEvjMuy8IuvynChlpZo5Iq8 +sKKeCV/ePvb1elqirLCXsZYjE0F7KCkMTbREz4TMSe2yDMTs3kvibKMlUui2 +qqecz0D+TiOHU320hGLRW+GafemYYGGNM5qjJR72+71XYf2DKyTFmREOOqK1 +SMj8qWYSIm48nKjkoiMGvu/PWRNOApubwUgiNx0h/J1mfvNGInqO2/WY89AR +2/4Jtll6JcJSrbSGjZ+OkFIe1mhqS0B2smTC+VN0hILibvYDxvE4TKsUw3ea +jvDV/jIYKhUPBznN3/Rn6IjxDqUbzrvj8bDvU2DFeTpCK3xt+6/COKzvyHJ+ +fJmOmPt51ENuXxwuPj9n8u0mHcGtsZV2vSoGQakyRoa36Yg3l3fdXLeKwTZ6 +FX2lO3SEiAefWcyFGLT9MtXivUdHJJ2N2sEbHg2z4gSleA06IkZhenTjexTS +DgidbjGkIzxuHNv6yug3zrTsXzhiT0d0NFnPsUeEQuBJhtUZB+r/xVlaQ56H +gmPqDudVJzrCreUMfd3JUMwwfBXVcKUj7qyHnFtMD0H0yUkqttIR+h/DJ880 +BkPga/okbQwd8b+KzTQey+3r43Lv676QEJWhkAohHULkr9ZKpBQqkkIJSSVJ +jmNooKSSZLhvEcmQilSmIpmTHJmVKGUIJWSewvFcz8v9+ay19tq/tdfe+/ti +m3eef2m19gEsXbL/kkgGC9PlixLbxpKA3P8tJJPFwm4Tz4HekiTozJZbvymH +hSOHu1Ov2CZBXPs1lzNFLDzHqyWTcjcRlulY9H6pZWG1oVDqQ5UEoN4MePXW +s9DnU91UzXw8jJlc45tsZGHzYa9Fxz/EQ4NDnqJoMwtt183f7rwYDyG3Vzrt +aGfh1VnTsvqM+8D+0d+ZPcTC/y7YByTgPRg/G+heOsJCAZ2ZSt6JWOialeWt +G2OhCP8u9XVpsVAqai7XN8XCLXD5VKtULFzc8uqI3AKCoj9DOr8viIFx7tXW +W4sJ2n4Ktj4wHQX7Csc+hYkRBFMLl6iCKEjvcWjkLiW4ZPiAd+PlKHDR1q+8 +J0nQM1+3zUwkCjqb/8t5Kkew4WlVhILOHcAFrlkZqwluveOuMkHuQJzS12cv +5AmeCbzu9achEg76vE4uUCJoP19q8Nad4ZPlXhHV6gSHr8ptOVbKhfUGP0Lq +NQimfz5T2hbNhWAXy6CPWsx8Vz5Wf3XnglGBpv/XTUy86l2rQpUYXupOOt/x +PyZeUJSMNc0FXiExr+7NBH1frxJv7uFA4eFh14GtBC05ISnLn3BgxTW7k8Pb +CC7/t0hyluE3n+e1x8YNCU7WgmapJweaP205Om1EcNOWbI7vEQ5o8TyzmdtJ +cKmrp7K2MQfC10pbLdhN8Omi5oVEm+G5PcHmlCnBte+VzYblOWDqPWPKv4dg +oUWxgJA4B9ISThov2kdQRFNk/wkBDghUthgutiColv6hQZSHA84jO7YutWT8 +12wtXj4VAeVSuXqSVgTH4tiJ3JEIWL1NUUf6EMHbfzXNhjG87HcqUkPOhtGr +y27/Kmb8LYL6S/4wk1/NATUrhpf18j2UlewIyl1Tu2zI8Pfdru/yqvYEF+R9 +k/lvLgKmBM3l1B0JTgyWH4rk44ClVukKLSeCXX0mQauWMbxqqy6xyZnR3615 +QY4CBxYHxottPklQY+v7pc66HHB9Jiy81YVgyvXCM8Z7OVDVdFHA0JVgO6xs +9zjFAeX5AWqnG8HQw/OL568z/Kxou8DEnaDT5rF0nlQO9JhVze7xICisdcc5 +rIYDBl7/m7LwJKgT59dVMcGBxPjUUSsvgvfEtwsVreLCfIXkoI0Pwdywdt2Q +fVywGb7+y+48wVNFDqv2BXIhT3Kq2/EiwcB7fP4KhVzwPNnU6nKZoKttDOeM +biR8CDdsdgsguO/m877llyJB/XV2o0cgwX732UfGFZHQvzCi8nwQwR2KToaZ +znfAWJO33C+Y2T+OX3LXFd/5/3/bJQEhBO+sP/owbUUUODw1yw0OJ+hjPLPB +oDsK1qzKW+jKIbgtAkM3GEdDV+SaI2aRTL5pK8Jms6LB0W+aEr1LMFam5nZ8 +5F1YM+5wcDSGoN65S7/yhGOg60RN2od7TPy0/GDNkBg4Zp5kfieBoPUuUt0U +EwsKFYseeSURHFIpnzNSuQc9el5/DiYTNN8mM5pafA+cFEwSVqQQLCsoZ/2e +i4Pj0xO/E9KZ/m59sjn4ezysdT2qfyWT4IuSts/HDRPgZ+d7rmM2wemFjubD +qQngXBWvp5hLUJeI97n7J8LarQtD+fKY/XVmqDV+JBF+vvj7e+9rgsfWmR3q +PZ4EJ+4bB6UVEbz7wzAdjzwA5SUvvt4qIej4t+en4I4H8Ou6rPqZNwRPGI13 +uDknw0n3sU/q7wh68+8fDwp4CKcM4+RzaghWiz2fXPrnMazL4/OOqiP4RvnT +aZXkFOhff67Ku4Eg59BpOTHLVHCR2HFOr4ngcZsH/lKVT2Ddrcxy6WZG38GP ++2JupUH/Ammp+RaC6mvGfr048BRO9w0Xl3wlmH9jq0csz3NYb2ezJKmN6UeX +gOzWtufw+0P58YAOgtGu68r2OaSDa2GMkFE3o5/orcaB/RlwJszQpqqf4K6R +uHIP1yxQY6c/f/qb4Kvzv7o1ebJhyEeKdXuIIGvyhex4ZDa4OQ6m7B0jeCQ7 +P0bnwwtQazk4t2GC0Vu1zkvR9yUMmZTtWTJFUMy/3LFXMQfOakdPNs0QNOKR +Dm2PyIUNaaxduXMEr7pH6kWZv4KRla5x0fMEHx613asqlQfuAtsMbVgUlixM +PS9X8BrOfe0P7xCg8IFJgHOlQxHkhXV49wlSeLTUa9+oXjHwbm+yGxei8ERj +1q6G6mIIfVa0nl+MQqnf+rd385ZCs332UrGlFKZ31p+Oe1gKsuIpsyvEKQzQ +aqDV9r2BZ5fCK9WWU6j/OLr4YzHzntK4lqErTWFEgup0d8Bb2PzTN8pAlkJP +T3F9tX3lULXnmJPVagrrxHN8hwUqYAl1yMRenkL7xMDouskKsH5lqumiSGGZ +g5Zq/tC/8EtOh9dPhbG3TylxFKiCDU3rem+oUrhT/stKbdVq8A6Sq4v4i8K3 +ROIvY7saKN6yLOeeOrOes61yMw9qgW9UIO6RBoVbr+1uc75YB2aP5gMytCjc +UKzBV6ZZD5HWY6dea1OomLLw3+sT9SBf9nVT7f8onBrY6Ngd3wguXg0rWzZT +aJ34tlAj+ANkr3tHfwdmfYK1Mievf4SZ9te/+7cyelPpFt53mkCfm/5xYhuF +lR41xcmvP0HQzuR8nu0UDlse4r072Qz1c9FJAjsojLXo5vUz/QwSmSFBS4wZ +vdkmYSvLvoCd05WzMrspvGj4+fFC26/wWMrLaq0pE8/vQ22ZTBsM1rjAhj0U +3ppNODdyjeHnK0cV9PZR+HfrQcVlsR1wUdty0XYLCgX2vpzTquuEt33GY2aW +jP3G7BsCSl0gGA9fDlpRmHui+6fgk26wsNAsdThEIcsuLmP3wR8Qw6eUctqG +wpq+Q4U2Gr3QmS8d+s9hCu+l9MFfG/pA+azoP/52FAbdF1T2MxiAs/L04Zv2 +FEZqFFmO7h6E3JYZA64jheOm55Kyw4eAJ2RI5b4ThWfs65STLYbBSL9bNMWZ +wm/H1JU3dAxDyETLdOZJCh+59QaXaI9AU2pNe74LhYlWTY677EZA5sibd+Wu +FI4MKM7ddBqBY2K5z+rcKBRCu56W/SOQ9i6N+9mdQn6rsFwZxn/MN+F8lweF +bsMQflVkBPTUIh1+e1LI3pBiPdE9DFe6goynvCh0+SKcn/9qGERNPCQEL1Ao +7t5uG8/w8qEFJ+aXXqLwPI/+4lDNYUh4Ydsj60/hDS35o4N8w6AmY5StcZXp +n3hSOZU5BCaDknusb1EYY2zuLiE4BBOD/Lf1b1OY5+otpFY1CPFD09VKYRRW +ZGlpfvcbhLHhll1THApJllfN4f7fEDsWbcSNZfILMYq88H4A+qclofYJhSGD +0g+nHvdB5B/+iy+fUihJ/1rldbwPcGY6/95zCi9n7i0IV+gDzmyLrksWUw8l +87CIh79Abz56I/9rClv90mxin/ZCMJFav62SwpdyNu53m37ARkrgtHIVhakO +u+sV4n5AO/XnyeIaRm+N5G86Tj9Ak/6s1F5Pocb2HvHeyR5o5b8rf6GFwhnp +eXEruR5QEZaSzvlJ4foSnS0nb3ZBpaSUoArNRv2EkbC87A74ntP2ko+fjadE +viTE3eyA2f3JR3sE2KiYESbfad8BquFqOQlCbDy0uJodINoBoQJG9hLL2EgE +XbyXe7bD/plzuZQ8G+/3/D5YFvMNXKM3OXxXYONa6viNLItvEKg9v6hkLRvd +/jtcZiT0DXLPBTmcX8dG3o/+FgevfAWp/nihUQ02Drx/LDHp0QrtrdWO7fps +9LLIt+zw+AzTPhHChQZsdAzm7vTQ/gyikgfzYrazkRVs1sH90wLb9ncJHzBm +446xPZWXLrfAw+o/edV72RiQdzupMqoZThUqLn5tx8auy2EaKt+aYOK+fwH3 +IhvfSS/hipU1QuSF+pkYPzbWZ63RMw1vhI3WcrqJl9lYrtamzT7aCJ7LSl4+ +C2Tj+JCheO98A4wH86S/C2Hjx6CqEqttDTDmfSlxOo6N1slO3W1tdcA5UNs+ +H8/GujNJpvYv6kBTS1aWncTGP4JtcWY368BjqDBG9BEbR8zkx5x06mDU6T+O +ynM2jjVs7mheXwsj5heu2RaxMTBQTLuntgrC1avfOpSwcamxmO7Ba8x5KixN +Tr5hI/8RyenLUAXulfl+nu/YmN+bnzya8R6Gcdb7di0bK3x4IiTuV8KQqq9L +SRvjr6vQNBBVAQO09155Hhov9R/9+X6+DIbUy37w8dJ4VPd8sVtNGYxYC1/s +Z9Ho6inw8MY95n54npyaRdOoFT+oKba5DHisGlj6wjT+3tG78rj/G1jyWOXl +YRkaS5Q1hLRkSmFZg+du/ZU0Plt/Mez+aAlIzpZ0yq+iMW2+XsH13xKQ2WMl +PCBP483KmacaniWgOBXg7KtK4wmVhJVGH4pBd8c3qSg9Gos2hEYnbSsCPXel +DN8tNIYK/ppX/FMIEOthdARp1JOT6LfKKASDIQEPBQMaL7x41vZKrhBMorSr +s3fReIs1OmkqUAB2P0Mv1R+i8dh9i1cXpvMg8Pq2LgFvGn1a85aT7TnwJiYs +V8GXxlYRZ/9Zvhzged4WrH+Bxr9T1b9wql6C90dfLR9/GkWOXPON2/8SXFZl +B/beoLGRrLrV6/oC9uavUaq4S6NV43KOSEEWhNS6z32PpXH1h5pxkxtZUNlZ +XD8fR2OgntWAqGUWGPDb+mgn0ehd9rFVdTgTNlpy3z98wtQjKPf2FdVMWDFE +uV7Np5HPbeeN0IJ0sGJZ6CcU0hh+6bxralg6cJclLisopjErYha1ndJBaPOW +orEyGnWyKiWSRdJhQZCniGM1jca3bgk4fXwGPat/ZOp/ozHTmLd2+7E0WK2t +de1wO41iQ/9o1kmlgZ3xFWufThprh1YEr6h/Ai1usiSzh8ZIhTWRE/AEqgoO +7JcbZOz9+et9FVKBrz5ZafMwjXgsxftnRwoYdo3OWY3SqJ8ju4Y/LgUKBUIf +hk4y/inS9BGJFJiR/uaTNk3j2K7+K6FNj0FHfZ1ZxQyNsXayN125j8HDwGd1 +1xyNb5w/b5m0eAwZByom5+dp5LU6WbJ26WP4P0FKSHo= + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, True}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, { + GrayLevel[0], + Thickness[0.01]}, Automatic, Automatic}, + FrameTicks->{{{{0, + FormBox["0", TraditionalForm]}, {0.69, + FormBox["0.69`", TraditionalForm]}}, None}, {{{0, + FormBox["0", TraditionalForm]}, {2, + FormBox["2", TraditionalForm]}}, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {0., 1.1529124804398063`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], + GraphicsBox[{{}, {}, + {GrayLevel[0.5], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xx2dkjL2ZYTDzjCVFyVpKZekeSymVLSUKRdEiya6yU4pvqVAo +WaKktFpClCWRtYXsypp1LDFj/T2/f2Ze93Ve995z7r3P5/05axwvWJ7iIRAI +vPjP//85+9weml9w37lNel//ygoDbPhCxRoUTZHUQYmWHi4DUmLQ4f8U7dGt +x8Y7yqcZUH4o2ddV0Q2VH11jFj3IgEMFB/iPKQYi6Y1a+eoNDEg+k9F4UPEm +kvlmplqUzAADg6Z3ZorJKLOu8MifnQyIVRvMPKCYg1RjepQcwqRA0H58cuhs +KXpqYLOye0UCrrGcvXMPVyHVmw9CEp7RYVWlyZeMpnpUUVg0XHpBHMQqJeQ9 +fL8jodz2T05qYpA3mnL4E7QgzynFFlNxGtykVqorW7Qgr0S21/PVNHDW+ssf +d6IFtY/+NBASooFE8Kai06EtSPhv0flaIg28xcpkKRUtyN3Jc+7YBBW2aPcO +2Rv/QlhWeXxeDRVeX1O4vHigFU1tuD28N5QKkc/3Wjnbt6Kv0XtmawOocLzp +vGqjWyt67xu2wcKfChQsrzv9VitaXD60csydCu45u432NbUixTINt1B7Kqj9 +dBFJtGpDjwfFVvPqUIFvPmpg1ak2lFBW45CgRYUumVel573bUL3x4W/qm6lw +8zTnon58GxLdXoYdV6LC2EJk81BLGxJQ/ratXpIKFXIvXloOtaEbB2i3XMWo +8GBXU2Qxpw3daW4mCa+mwv5bDJ0YRjvycvxsbspHhefyzx5tO9qOeNy2WPXM +UGB+8+UWq3PtaPft0cEkNgX2GO5f7XG5HX2Ol7x9ZJQC8QeljW9FtaOZin9b +GUMU6HUaD3ye1I42vBPnmemlgIZXaV51djsa796xXrGHAoHhMeMDRe1If+Si +j3InBWpjTyjy1rajwVGvst/tFGBmbLZf09GOCtoTxT/g8dO5q+J3jrYjd/bZ +w5R+CuRV/qg7utiOkq/d2XD6HwV4mzNI/sIdyJGR6d2L12c54KMXz+pAhS7W +YqbGVEiZNfZ+q9KBar5WHrp+jwrjfIwXjbod6LDt5Zp3+H3rSg73je3vQMl+ +W31En9Dg+voilpBdB6KbLe8bPiUGzduirTac70BhtC3tSE8c1u2xi94V0IEm +12dxJ6Xp4HFErcLxvw70TT6O+JFLh4+nVxaCHnagl/6yjU8/S4Cof6Pmwxcd +iNk6YHIrSBKOXU89V/ihA9VjRVXMtVLwLMEjvaWuA+m933ZZ440UcLIM22c6 +O9C1m3LUj2oM2F0oLkYb70CzibFMchL+fdT0m6gvd6D8K2VnNPDv709bXuh+ +0U6UJ+ofrLyPCeoj1wrPyHQisz+9j1PvMOHKwpGpq2qdyPEDsZ/TyIQaoY0b +H+/sRH5qElfsyBhIsRZOfDLtRMFlW3JrtTBwVqlN6LLvRJKEk4PSxzF4p/uw +acGtE+W87nMXCMeA54CbACOoE/mqOG1SS8fA3A7pa93qRFMXFL7QSzB4eJ7i +f/BRJ9ojUodt/4nBcMDvV+4vOxHTTkRheQiD7TffDP1X2ok0tU1UK7gYXE0O +k8tu6ETG6Xw57WQW/MixOvKluxNJnV7zK1qMBfKlCjH9E52IX6ugTVKaBe4N +s1U8hC7kylcxn7uOBSXdVSuylC4UdKnALnEjC4TY97fpyXUhk2sHeqbUWHCE +cPaCrUYXWupx/zm0iQWZFJ0nvtCFjhbknkjVZMGMnHB3rHkX2tr2bUZvCwsM +NnVKvDnehWKWZdo68HiMfo5pg3sXchYPDUzYzIIui6Cro8FdSMM1LyVagwUq +juYlAre70KcHvvm1qizw91gzq5jahdp+GWxxw/P5HDqlavS6C303b/cIU2SB ++N3yUyc+dSGFsF1m0vIscEyPfRjY1IXGulXHTPD6Xr099TPpdxeaTbeiMqVY +sFyuJfJ+sgs9L9Tcfo/Ggv0/yLuaid1I5+rjO3XCLBiayXpHke9G+k7nk/8j +sEBWa/xuhGM3KnR8vqA9gEFoVkLUfxe7kZan2Vh3NwZ9rF1hccHdKEKnDPNr +xeDpqgceGcnd6Otpt/s3azHQaNprUdnWjUgaixYxbzCQy7O8FqrUg5RWbeHP +D8TjFjlGZak9iCUxaagohYHFtVOl+nd+I5499XOXzJjw4ZIY+pHUi75XJpnz +vJKC140ihSWh/chl8NtFU0NJOBmXIUg/PojcNFMXtaboAL+v9C+f+oteOUdQ +eBPFIeNWShHsHUH5154X9J0Tgy2Vq1gSh8bQZ9HHbiPbaFBZ1S4nazeGWh/t +6TuiSYPDNW8VNpwaQ0Ol74Kq1Gjg3+Ckru09huZFPig+VaBBSWu5gX3cGLIN +DlH1FaOB8XjYmcyfYyimKa9zH67ntpK8+VqHx5Hxm8tf655QYYTRUYTsx9E9 +7weuDulUuMJ693GP8zj6OeS+cSqZCo/WnKyx9RlHYwzJBWY8FfqUKzoD48eR +zYnoIf9wKrhBOG9V8ziyfDqV63qCCiFneC2trSeQQLOY6joWrr8Pq/N+2k+g +7DVRQ/JSVChouolZOU8g1sjyXXlxXJ92MPrNvSfQJsuF9+uEqSDo1rW34coE +kioR27KenwoKaek5B8InkL3RnocbealwTFDNz+TuBOKvU9DdskgB353THV8S +J1Amn8NFbQ4F7ngU6BunTaCP1T9i9XE9z8kMyKzMmkBcr9JNJrieV7cZCBm9 +nkB+xo7r7HA97xPldy8rmEDiJaP7EnA9JxjW/YCPEygtxuYd4PqL+d7ZUVo1 +gdanp+z5+ocCWtnWyXoNE0h46XMHER9bdLNWFTdPoLFhcvS6Pgq4iv1x0e6a +QARL13npEQpEGj+pLeifQO+Mr7p94lIg/bLrpm1jE0j/S+AGPrz+kpeb4nNn +JtB1LZ0/0ogKbb2z85qLEygrKfj8uhAqzAt1qbcS2ciXKzEn1kMF/kxwvE9i +o0t/89RbHXB+Q3qstQAbERLva64miMG6NlKVhAgbRYS8Hi4uFAMk+lU5TpyN +asx+t3w+SIf9T1XtraTY6EFIaHMsJgG2BjExYiw2GuWzPfPupwSc7pgq+ybL +RjpXajPjAiXBx+fQv9tr2eikrW/sProUhFMK1lusZ6Of4ebl4YlScPsZ05ai +zEbo+Vb+otW43zEKiG5QY6NEjXNSOT4MeN7VXXJzMxsVum3ez2xiQKGfweQB +LTb6/XbWJl6OCV9oGWtFtNmo227N1mvOTGh+Tj5cq8dGecdNd8o+ZkLv7rOR +UfpspNfJHHRsYwK7p7bQZBcbsVd5dagLYrB8SX1MYC8bbcswFjLagoEw/Y5s +9X42Oi26qGRogwHz5YxFpDkbxZhO6xT5Y7Bhr3W4sRUbCVoU0DbEY7C1930e +3xE2er/eQn42BwODANbfyqNslJAT/SO8Atd7ySAswoGNZnXloza0YGD/+vcB +Iyc2OntyRkplEAPXfUbBq1zYSHYlmvVtBoNL/Zlvys6yEbmhhH4Y16drQQL9 +IW5spCjbbT4mwIJYhqukvgcbeeQsvKmisiDtbf1egg8bnVI/v4+C69+rA5uu +lPqzEUvRkzHOwvV+8G5OYABev9+AWrgcC2pDZnv0QvB6i6ojp3A9bcVsxJbC +2WjoYKfkYZwPA7lFu4oj8flb26Sq8fGMmYzf5Wg2Gux6eMcJH/MMBz/TjsHr +cc0111nLAkp4bwf3Lhs9OemkdnINC2Rkdq9+f4+NhEjoJFuGBcoFT/X9ktho +Cc2GsTEWGDfJJkU+YqNbcrJf5fF8nYbjZ+6ns9HjnAPZ33F+Ba0SNc16wkbO +koQp2moWJLEinrzPZiMsZr3aBF5//tZFQs1LNtKcTjPy5mXBd1NP27a3bLTm +1i+518sYCIWcEFkoYqPtQmRTzykM1if+chb6yEbyxQnlQqMYGL41+4hVsFHB +ar1Dgf0YXO7X89StZSNzuxwl4V8YjOxltgZ0sJF+x6MA22IMstuj3MOkJ1F2 +oKtown4MlFfcHt18NIlUQsZaND2YcMG3fd78zhQa3Va56sGoFOx564LZJUwj +4oFlw/cOkhCcWab4KGkGjdxjsyRx/V6sKVf/L/of6uRtQUqvxUHkbd9Sxe1Z +pKjnK9F7Rgwca7Orn0bMIYGssu8JJjTIWHtV49T1OXQu0HHGajcNhi4dv7fm +vzmEyYuJUw1ocF6Jfioxdg5l9xaYRe+ggd/VQEJ0+hzyXBv/+uYGGtwCi20X +Ps0hukLNSBkfDYrfzT7eujSHLAMuJw+WU2FFqEloisBB0v5/1cpKqWDglO2R +w8tBov+o+Q+LqFBFPQ7rhTnokFn2C+u3VPjmVt0uhXHQvQ8vVVvSqPB3wwPa +4nYOumv0cjcv7uclHuoHl3lxkK9U+X66PhVcPDVEG/04yKdbaS5PF9fvvbIP +Oq9w0FhsbrHNdpwns4v5nHAOOsqSvp+mjvPCrGBCLY6D2n7aROrLUIGt8CRA +N4GDJD6L844y8PwW44RMHnJQnuz7+/foOE+eeq4/lcFBH9NThaZw/d/Ao+6Q +lMtBrRNqlHcLFPD/JT329D0Hmb+4uM9ljgI1OcKX8z5w0NeyuWRsGtfniAX+ +ik8ctDFk+t73cVx/jw7HN1VyULJN/b/0YQp82NS6rruag65t8ZSoGqCAKP+X +N6N1HPRi660vb3G/frwrD+abOOhhbJwXwvX89buMenIzB/W9/hrXiMd5omKP +0ds4SKYyTT8DX8/qRNiwfBcHndBZ36Q8T4GMbR5+Gn84CLsk++ko3n/Mipzg +2znAQcQNVzWb91DBuM8sdt8wB5UzH1CP4/y8X7hT3macg34sv03fQKbB3xjV +V85THNSkKutekUwDbRfWTq9ZDnLXffODYSsGUXpCtSHzHGT3R9H6lZo4dIjN +29xa5qD/2NWar0XooDo8NPiAh4silW1ZVUN0CPzY4v2Mj4vozL+XnuRKQEP8 +51UFgly0QGoVGHCTBLnzubcrRbko2vvBx3GaFHgYPpb9TuOirKsvN4WlSUE5 +4+6LHgkuunv4nnuILAPE2SE640wu0qnNTZCLZoDzZ/fqBRkucihyIUcNMyD/ +gYO1wFouCr2cF/ZGlwn8nqb9Euu5qPyS4WPDcCbY7NXzXKfMRdapVn+flDHh +mawKcbM6Fy2aGvqJcpmw8I95C2lyUQm7c8pnAwb7awWkD2zjovAy3rBCC9xf +p3Ge2epw0TzNSOiuNwbjfoPbTyMu6oT++ymxGIBZ82dvQy46WWHacP4lBrcV +Kq3CjLlo8EaijednDP4svP0Ts4+LpE/ndDHbMNjyLc092YyLbsuPbv40jEHE +09vL2Qfx/XeMGxZwMGgODI5+b43PzxdN34Pr0/pDF5hVR7mo9aFZwxsRFvgp +2z/94cBFO/t0D2vQWVBNPKD1x4mLrl//GjrDZAHzl07FhAsXaVtMX1SVZcG5 +nI2WS+e4qDlC/SEvrtfF4YweQXd8fkPilke4/ooe5XeT8uIix5K6rzK4Pjts +mltQ8OOiMLnC6lQ87pPSsWP8MhcFM9eHn8DnR68u880L4iLRnuHjF3EepAU+ +yQ0M4yLs0f3eXtxPF4xFT+++hu/fOTNcjedTf8xj0+ooLhIx0sjbLMmCvq/W +F1puclHMnVPuKrhez2vrvXh0B4+f6v1ULorz4Jn8iEs8Fwnef+PFK8gCRQa/ +kkYiF2Xv2SvAxc9DN3LMmfOQi/hl9xlnr2BwxrngT2QGF0XdTP1+Fudfmbxp +W9Y7LmKQeiqwDgx+3daU8ijgokfTWktf8P5onMA4rF3MRbqVDdLODRhg3b1N +NeX4+zNc+yqgDAOvJP/qkW/4ecyay597ioGieEaB6iQXDamL/TPzwmBs1tJ7 +69l51CyV3/78CRNWB9e/vem+gLLnrOwtCQy4/VGqU9pjEY203hzRvyQJ1psF +eG0cl1DjxX/xfWsl4I0Lg93pvIwImjcEHn0WB4v6hlZR2xVEGolexR8rBht8 +NrZoryNASgfffLofDUZK7baDIgEE1IUXuZ40yBG4nbBrAwGYP/5TtrhAgy0P +546aqxBA78dP6ipnGuhXVPSc2kIA7ZkN014HaWBLcxiOMSLA87UZn2Nwvx6d +c3dp4CQB6Asy6Zn9VDDjfLYfdSaAKSGtbM1vKtAM5ksnTxOgXM2AL7kD14uf +x0MXXQlQJPGWk/CdChmLqmSaNwGsvExCH33C/aPJF4peBAGknykO9TykwuTA +4tq7GQQ4uCxJ1LHG9TxAudP7Cb5+xqG1CgepoCtmG38kiwCuRvM6FDMqRKJ8 +fpkXBHgMMWZ/d1NB5v7FsafvCBAql8DN1KKCkVpKZlQeAdJFC77c30yFsxX1 +Dm4FBIjhvxAdpUaFXLbyN81iAiTllLA9Famwf+9AXkk5AaJiExXNJajg0S3u +nlpJgHVH1GP30qhwz9tQKbyKADfTYmYMRanwJzUlae9XAmQI/IjW4cP97fYG +K5U6AlAHDSu281BBrX5JZHUDAbJrk8a0lnEezNsG//hGgBeVsnStWQokx1zf +kf+DADWvH8ptm6JAhWLBVEIzAb5b//6ni/NguHgg+8ovAqBvxubHcP2mHKSf +cmj7/331iX3BeaD111DGoIMAa0c+lP7G9f5okEfLui4C6Ga4RFvgPAimp8aQ +ewgQAixZJTyemd2wd/g3AbgjvzeJ4f1Crf4yT10vAbI28hFicB5NtagUv+wn +QE7EdhMtASpIuR31vjNIAAn+sGNdqlTQ472h5v2XAAdiY6yDXKjgmFgwaD1C +AIrGXO3pYvw+NAZTtMcIwCkKDYzdhL+3z3Rb6QkCiJ6IDLD4QoMfx4zECJME +eDLpNHzhihjMT3nU/pkigDNBo8XTSBxkr6dGVM4QYPnbr4sbxelgJNu48+ks +ASLCH6XI9dDhbO7y3A0OAcTuDKasSpGAmH2qr8/PE+Cuc3jVJjNJyPt99Kz5 +IgHOz1q9EBqVhA7fG2s1lwnwywhT7vWRAqLo+w46gQh/TnbYrZ6UAsXHg3Ec +IhHs5OgKpscYsF9bwqx9FRHCTz7OOVPIAI9GI/4SEhGMf77SFBZhwn1nz08p +ZCIslL/PyjnEhJLF1EthAkTgP3O4Ji4O9/t3GjWdhYggw+9f+LMO54nSyuge +ESK4jG0j2qwwQa1UNVN5NREIjZYCQxsxsDp0zEGUSoRnt6Y11HFeXBq5ITVJ +w9c7Uvas3AODlJD3Td/FiZA9FYLWx2BQKTl0I0+CCH1C05e+ZmEw/ELCKEGK +CIuOTWTxjxhQjHYtXWYSYaub8PiR7xhotXnm2bOIcDTXhzXUi8Ex97QL+jJE +iNms1M2H+1OB3UeL98sRwWT5Qkk77l/zMHGBI/JEWE2ZCziB+12nydpDTuuI +IGUeF9mM+31KVUSamyIRDkUqnPfA/fOHBzsn/DcQQW9ZV8wF1++zHnM6ERuJ +QM0+wPMb13eJPa8iY1SIMBHTb8aP86Bc+szPJDUijOVKKxJxXrhPr5F/okGE +pRuioqN4nFXd5vZmMxH+HTjnMIDzojr5btGHLUTIDzz3VhD39z5e+/mrtYjw +RjpN+iLu79eakA792E6EkLQAO3Xc3zfKlqR2axOhW3sv0wbnRcA/n/FhXSKI +RnbvJeC82PhVXWd2JxHsvVXmtuC8aEkZukbUJ8KqONshEl5vuE/qD2FDPN/I +dI3gVSzoXCPmttaYCL/netIezWEQ4zebYm5GBM+P8a53OjGYU/jAl+1ABLM4 +/pq8DAweL3gfzDuBn6eB5q8nyXj/1aSW8smJCEG9vGqJ9zB4diVlxy8XIgwX +3iaFX8f7se9hriR3IjRG8ZqcP49BRbDJN4dgIugr8j2L24rBnfaWh+KpRKgr +2XFfu4oJaUtRBktpRBi/RCpq+ciE17Iw2P+YCAMiuU4+hUxodHqqkf+UCMLC ++3YVvGCCyKhfuc0rIrT0bESmsUyIXGT8TS7F30tmT3HZCSYESh/botSF1ydw +yO7rEgPOOvTU6GE8cOtnhpOxNgMmd5qPEe/ygOLn78VuXyXBkGA+NSy+Ctan +2JkLHJKAbW3ys0o3V4GnhaeqszAd/sVFdPxH5YXQaP+jtz6IgdMLs4LoO7xQ +7qWWT7tOg3XyhUJusbwAvs7kgnAa9MWvczCL5wW5N/529sE0OBnMJdESeeHs +Ux1mji8NTh1MP3gvlRe+Bvk02OB8cuHOjqe+4oU0ef3p34Y0OLcrWSG/nhcy +znX5vF2hgkohv//9Rl5obnMU9l+gwqiaZ63/N16IKFFNQXNUcJXa46nbjO8n ++/RTwzgVzo9MfvzUyQtnPmX1L3RS4cLtXcdqR3lhBRsICMP1zLNz9M5vQRIU +mBlbml6iQuHt3/4jwiR4X1b+os2bCjy7m4//EyVBGOeq8umLVIjJKVUTECPB +HOd99NXTVMgJulOjgZEgufxjZ+NhKgyv2c4TrEwCojfPpSRNKmxuVvl7XZUE +koXnWnbg/Yf/jTWNd9VJ8CQmwrJ1I86TacHkJ5okKJp8koLJU0GhonNHgw6+ +Xlxe7AsKXo/fN7lWPRJ4TL9pscL7j3cqVeReRIKACkxriYz3K3Gvfs4akqBm +Nc3IYoUCN/ZmFBN2kyDXYfX0Iu7/m5YS0gX3kECr/khxFs6j485hF2X2k8Dw +uImsEM6fp0y/IxtMSbAWTv3p+kuBiXpXtNmcBCO6paul/s+fsBOKupYk6DnY +YI9wvgRuOyyy24oEoYqGxsY4fypHTGbMDuP1zp2YK++jgHAKarc5QgLHX24W +28fwfsRqS5mTLQkOu1nze+H5JfErZZ0/hq8fLhgwJIfztVg6xteeBL8WZDpf +HqHCxos035DjJLAw//OjIocKFxXI9lGOJIgwElLpVaJBQeuCUdxJEmh42Ufs +qKUB4SZb+ZEzCdyNvpxNjhEDY4N+WtZpvJ6F7iNNZ8Wh+Vl9T7ErCUryr969 +t04CZBzKqz67kaBW75eT85gEnBIryGl0J8ENoYxz0amS8LzqeVybBwlIUWFS +xiAFM5dTr/R5keDR448n62qkQFcj3mncBz/vU1aWmwwZENZ3w4Tjh+dLmK7P +z2ZAzf2gTTyXSXDZr7Q1go8JtANeUsIBJNj0KXY+COeJLfHMCj2IBOcP/PI1 +TGRCaq7dgGwIfv+eK5bKzUwYOmNZpxSGv8cfGyNtBTHQkDF+pxlBggeaH3o/ +b8PA95tOkt41Eux7bhCh74BByVWNUOPrJHgl/bEgIAQDPh2FMxZRJPB8kbRM +f4TBgQmG+dH/SLCcW2MXU4DB7ITALYNbJKjPKMkTqMP5w+bWKd0mwYb1XJ7M +LgxMJv8KU++SoPrkGueXYxjMTLbu48SSYMXat9NlHoPkqeob3fEk2MrqshIk +sWDP9Pvqz/dJsGBZEfMV7z+mprP4cxJJ8O2QGbFdnAUPZhKM4x6QoPiZtYoT +7vd3/7t+9UoyCUxet6XewPWd/c+/0imFBOJj93d44fqfOHuGd18aCVBtqQ3C +eWE0Z2O4+TG+v3xVBj/Ok/G5vaGMTBJceV3AGsbj9zk7PhGekoBgk2S8gPPE +gKtEGMoigWlqxCsLfL1RLgM1ZOPnoaM/RcD7nfh5gcC8FyT4tK20jcliASxw +ix++JIG+348PL3HeDS/8XQh/jb/PWYHj9Xj+sYut2q5v8XrP6B8Pp7Bg51K1 +/8FcEjiEBPF0CbFgaOl9gXY+fv5RsrcH+PD+YyVBS6CIBC5J7ftUFjEYWLnu +zS4mgfen/9Quz+J8IVx611KC3//InbAHbAz6iLabM8tIEPSuY+/FPgyieZlq +hjUkOChZ92C+Buc7SfD8xloSdCRWpvpXYNBDms+m1uP7dXkzJz/g/SK5Tamn +iQQDKtaW315h0CGQqBDQSoL8kZMV1+MxUF7NlM4fwvePsvTY4YhBDYMprEzm +g3t7+V99msf9TH53Hr8AH2TBzXDfGSYsHso4MSDIB3ZrvRvVxpmgekcjP1WU +Dx6qkOtSfzMhRtDYUUqCD2ZCX5olfGHCoQXPApICH8jYTqjVxzOhp6PuZI8B +HzSe4Ofs38KE2UchH+IC+aBq3kEk2pMBY2R/CwUCGUSG8oLk+iThaqRhn6A/ +Gcazg1UiIySgPOl2geJlMphct9ZOCJIAwsvuaIMAMohes/mV7S8B/j8vb70U +QgbmZ63yn+clwFX+3dW/18lwMahtj+5hCbAoXqf0JZEMYe+dCg6ulwAWm+QW +UUyGnxWbzLNq6HBklZVBagkZAk+ZJ4xU0CFOIk3iw0cy9BWnnFIvpYOo3s7S +mQoyzB5EV4ve0oF4w4dyso4M3a0nOvof0GFg7eAbgy4yvBrNDgu9QIe127Ze +s+8hw9yMS2PHGTocNwk7eukPGXqFeRK3n6RDq7ss75sBMjAe6KfNHKFD7Qfr +Q2smyBDE5L8SaEAH/qYMJb1JMpgu1T3u06XDrr7ppSPTZPjw0sp4/zY6lAjG +ZMbMkUFwjM6RVaHDgnTXpedcMmSqXCdFK9Jh+yYVsy8LZDidoRbFlaODl9Gl +tX1LZHj7Oi3yNEaH19Zf5lZWyKD5PGTpF50O/wMSaTB1 + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 4.1000000000000005`}, + DisplayFunction->Identity, + Frame->{{False, True}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, Automatic, Automatic, { + GrayLevel[0.5], + Thickness[0.01]}}, + FrameTicks->{{None, {{5.15, + FormBox["5.15`", TraditionalForm]}, {6, + FormBox["6", TraditionalForm]}}}, {None, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {4.214728392015991, 7.051017594689758}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}]], "Output", + CellChangeTimes->{ + 3.710010241803006*^9, 3.7100102777920027`*^9, 3.71001076484037*^9, + 3.710010820129405*^9, {3.710010955862033*^9, 3.710010982392049*^9}, + 3.710261288240065*^9, 3.7102613415046473`*^9, 3.710261377900333*^9, { + 3.7102614517332983`*^9, 3.7102614675708027`*^9}, 3.71026180044483*^9, { + 3.710261943803957*^9, 3.710261986103899*^9}, 3.710262638748583*^9, + 3.710262812926292*^9, 3.7102629068286867`*^9, 3.7102629586836576`*^9, + 3.710263017842198*^9, 3.710267822402451*^9, 3.710301414350767*^9, + 3.710380743397444*^9, 3.710382206573708*^9, {3.710382262146718*^9, + 3.7103822744505367`*^9}, {3.710382308405684*^9, 3.710382323449349*^9}, + 3.710496079537003*^9, 3.710821991307589*^9, {3.7108223026868553`*^9, + 3.710822328449298*^9}, 3.710822363000587*^9, 3.7108226895216837`*^9}], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.6631237556772783, 5.059450813334131}, {0.68541099386381, + 5.05827743801483}, {0.699827209167197, 5.06764643081042}, { + 0.71475601887573, 5.086023826420054}, {0.7284885614034877, + 5.112929097533294}, {0.7383014588904864, 5.142651405652801}, { + 0.744939306828797, 5.176448235560368}, {0.7477502951848498, + 5.211265696941825}, {0.7460826139250745, 5.2440498994830005`}, { + 0.7305464793822267, 5.292269296777347}, {0.7176674540788954, + 5.304257907375546}, {0.7027186323077941, 5.307668587214951}, { + 0.6874570826151684, 5.303564237772302}}]}, + {Arrowheads[{{0.062499999999999924`, 1.}}], + ArrowBox[{{0.6697094199832774, 5.291081329669611}, {0.6540699140067214, + 5.279746042545659}, {0.6221038266337331, 5.240778343296033}, { + 0.6068277553704865, 5.216946436816766}, {0.5926722640884666, + 5.192105361379456}, {0.5796373527876736, 5.166255116984101}, { + 0.5677230214681073, 5.1393957036307025`}, {0.5553586743211116, + 5.106630120059311}, {0.545401916548393, 5.073733625162852}, { + 0.538255794382286, 5.040849370685529}, {0.5343233540551254, + 5.008120508371544}, {0.5343289268145883, 5.002789156159335}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.5343516643182804, 4.981036621994629}, {0.5343572773776949, + 4.975666715590901}, {0.5391102461607777, 4.943607669713602}, { + 0.5456411683575092, 4.921525741110058}, {0.5556068870389465, + 4.900003419024698}, {0.5697471307542351, 4.879512067179381}, { + 0.5877491967138815, 4.861969831440761}, {0.6112577925618348, + 4.847780940366533}, {0.6412516806019564, 4.8399424357443115`}, { + 0.6753776079902166, 4.842859433444956}, {0.7152503264025558, + 4.862313810013366}, {0.7366594613413127, 4.880876448320528}, { + 0.7535265180609187, 4.901081028922247}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.766069396959668, 4.918807747313854}, {0.7755425336605265, + 4.933488691576033}, {0.7920135920877625, 4.965495142645348}, { + 0.8075094467531096, 5.002271243182795}, {0.8217357509741533, + 5.043161283309515}, {0.8341374918168081, 5.087852898843798}, { + 0.8443681893483246, 5.135759049046215}, {0.8524462963882944, + 5.185812009201332}, {0.8574751494168074, 5.229071912711141}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{0.8593849886269922, 5.250735621402616}, {0.8620449784873218, + 5.287615670058291}, {0.8633941730439991, 5.336664772789712}, { + 0.8626645883874939, 5.383589786612091}, {0.8600829634789584, + 5.427889135349538}, {0.8558915764787538, 5.468469370415515}, { + 0.8503202741878744, 5.504710541152004}, {0.8435771485284242, + 5.536821318275912}, {0.8358702914225069, 5.565010372504138}, { + 0.8324562740984252, 5.573813246817854}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.8245908052086941, 5.594093968173995}, {0.8184547275241755, + 5.609915540096024}, {0.7991834060774337, 5.640538954417818}, { + 0.7788690113294876, 5.659425021479962}, {0.737598739685867, + 5.674589202634545}, {0.6965021515103618, 5.6651211809285735`}, { + 0.6714570893903369, 5.653551413741027}, {0.6470255370440054, + 5.638839509974118}, {0.6231515100211439, 5.619881727382336}, { + 0.6000029616724225, 5.599989292702203}, {0.5775059370622941, + 5.577035562972703}, {0.5706431817605429, 5.569758390684547}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.555720468589284, 5.5539316638298315`}, { + 0.5348842502159058, 5.531198191332223}, {0.5147299156368474, + 5.508456347734149}, {0.4945590294354606, 5.485714128031941}, { + 0.4751309912759737, 5.463065417884092}, {0.45644580115838695`, + 5.440510217290606}, {0.4385034590827003, 5.418048526251478}, { + 0.4212614975376102, 5.3956795757894565`}, {0.40467744901181324`, + 5.373402596927287}, {0.38875131350530956`, 5.351217589664969}, { + 0.37348309101809907`, 5.3291245540025045`}, {0.35344517936394393`, + 5.298488570574921}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.34170829847905393`, 5.280177094906493}, { + 0.3183519437540281, 5.2416600509999345`}, {0.2973393008626949, + 5.204225784366195}, {0.27798553871891307`, 5.167059836476425}, { + 0.2601924575139879, 5.130159997059176}, {0.24386185743922428`, + 5.093524055842991}, {0.2288955386859277, 5.057149802556426}, { + 0.21519530144540316`, 5.021035026928026}, {0.20286382781689571`, + 4.985752280920672}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.1961830335990262, 4.965051257698566}, { + 0.19120027226789085`, 4.949575067559921}, {0.18332565047859656`, + 4.9229366045160425`}, {0.17621240782426206`, 4.896441479205276}, { + 0.1698691440735575, 4.870088937154309}, {0.1643044589951529, + 4.84387822388983}, {0.1595269523577184, 4.817808584938527}, { + 0.15554522392992404`, 4.79187926582709}, {0.15236787348043995`, + 4.766089512082205}, {0.1500035007779362, 4.740438569230561}, { + 0.14820382513442126`, 4.699683657360054}, {0.14929540987346918`, + 4.659279130346709}, {0.15101696428470038`, 4.644154024332054}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.15347697670787067`, 4.622541028277396}, { + 0.15385475487764108`, 4.619221972643417}, {0.16270754091975093`, + 4.579509700530939}, {0.17716318616619614`, 4.540138846248483}, { + 0.19948469863210827`, 4.501106220163758}, {0.23295957318852978`, + 4.462409168591042}, {0.2644328181895766, 4.437236189545729}, { + 0.30646930570063374`, 4.412205213208954}, {0.33235694307849684`, + 4.399742850693337}, {0.35668831554655606`, 4.389942037534814}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.3771757794575606, 4.382658415627479}, {0.4003726808201234, + 4.374923626795274}, {0.44587499105147715`, 4.362715880143613}, { + 0.472766282669435, 4.356779065306058}, {0.5029240087950241, + 4.350990926329513}, {0.5370932830647366, 4.346701355363108}, { + 0.5762279939761547, 4.346015624268837}, {0.6210210614504957, + 4.350094780267612}, {0.6721654054089766, 4.360099870580346}, { + 0.6969176941802088, 4.367401882416586}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.7171367204151157, 4.375380142959478}, {0.7299373023971312, + 4.380682931593374}, {0.7611789735022303, 4.398252020183276}, { + 0.7939343172316686, 4.422421211121558}, {0.8279293503390731, + 4.454612100295208}, {0.845226387339384, 4.474203682799405}, { + 0.8626581090525756, 4.496373563196808}, {0.8801272720821478, + 4.521257999445072}, {0.8975089206271083, 4.548965022928385}, { + 0.9147127393920755, 4.5796379482477665`}, {0.9310471599991721, + 4.612220750831979}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.9401128886308433, 4.631993159988408}, {0.9423919018484443, + 4.636993856338638}, {0.9528350043068582, 4.661748150250315}, { + 0.9629777204569069, 4.687682971739255}, {0.97282005029859, + 4.714798320805457}, {0.9823619938319079, 4.743094197448923}, { + 0.9916035510568602, 4.77257060166965}, {1.0005447219734471`, + 4.803227533467641}, {1.0091855065816684`, 4.835064992842894}, { + 1.0174548166576227`, 4.8678031384887195`}, {1.0252815639774082`, + 4.9011621290984255`}, {1.0326657485410253`, 4.935141964672015}, { + 1.0343871980342971`, 4.943722570995768}}]}, + {Arrowheads[{{0.06249999999999998, 1.}}], + ArrowBox[{{1.0386659567740688`, 4.965050146648608}, { + 1.0396073703484734`, 4.969742645209486}, {1.0461064293997528`, + 5.0049641707108385`}, {1.0521629256948635`, 5.040806541176072}, { + 1.0577768592338055`, 5.077269756605189}, {1.0629482300165773`, + 5.114353816998177}, {1.0676961439357378`, 5.151705195624797}, { + 1.0720397068838414`, 5.188970365754782}, {1.0759789188608886`, + 5.226149327388132}, {1.079513779866879, 5.263242080524847}, { + 1.0816364809564765`, 5.288335062739615}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{1.0833656843381037`, 5.310018460473807}, { + 1.0853704489656892`, 5.337168961308373}, {1.08769225705851, + 5.374003088955184}, {1.0896097141802732`, 5.410751008105359}, { + 1.091297209626226, 5.4512344257245555`}, {1.0925810427353921`, + 5.491401159164176}, {1.093484575440508, 5.531113303457881}, { + 1.0940311696743121`, 5.570232953639362}, {1.0942441873695408`, + 5.608622204742297}, {1.0941731644601396`, 5.636039195743972}}]}, + {Arrowheads[{{0.062499999999999944`, 1.}}], + ArrowBox[{{1.0940244816874485`, 5.657791063655819}, { + 1.0937629408752225`, 5.68265788984725}, {1.09311540055115, + 5.718028513916627}, {1.0922244591343615`, 5.752368478010618}, { + 1.0911091994155535`, 5.7858685773524074`}, {1.0897914730420366`, + 5.818506918807259}, {1.0882931316611226`, 5.8502616092404445`}, { + 1.0866360269201223`, 5.8811107555172315`}, {1.0848420104663468`, + 5.911032464502889}, {1.0829329339471063`, 5.94000484306269}, { + 1.080930649009713, 5.968005998061891}, {1.0797175915529185`, + 5.983700572647755}}]}, + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{1.0779789702385094`, 6.005383426024089}, { + 1.0766488517517943`, 6.021334979209109}, {1.0743781284310316`, + 6.046753698203717}, {1.0720378467429224`, 6.0713595568759455`}, { + 1.0671995825462282`, 6.118185655444139}, {1.0622360077248425`, + 6.161919199295425}, {1.0571805231575553`, 6.202744592846521}, { + 1.0520273596178193`, 6.240891086248402}, {1.0468197105107593`, + 6.276531872484218}, {1.0416007692414988`, 6.309840144537113}, { + 1.0383776866931762`, 6.329163822010841}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{1.0347066834646954`, 6.3506040654785485`}, { + 1.0308931389801343`, 6.372055345570348}, {1.0255521549749353`, + 6.400113988492791}, {1.0202197250533918`, 6.426139993019111}, { + 1.0096156406991241`, 6.473039116886102}, {0.9991159991551839, + 6.513697747174012}, {0.98872263989649, 6.548820108132345}, { + 0.9784374023979594, 6.579110424010604}, {0.9664515364416089, + 6.609689800062339}, {0.9546107080399473, 6.635723080029101}, { + 0.9429149171929752, 6.65721026391089}, {0.9402271896076722, + 6.661152260406214}}]}, + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{0.9272389986075876, 6.6785350786592135`}, { + 0.908683809768237, 6.698253290082484}, {0.8865556854306251, + 6.711886946189501}, {0.8439029793411769, 6.716542536875447}, { + 0.8107166749860454, 6.706635389626586}, {0.7788350307216068, + 6.689095201932557}, {0.7482077040474608, 6.6665917194039075`}, { + 0.7187843524632074, 6.641794687651188}, {0.6905185426019671, + 6.615731427592321}, {0.6633638410968606, 6.58942926014523}, { + 0.6587525436065946, 6.584768550254094}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{0.6434533584814822, 6.569305426569395}, {0.6362792826425568, + 6.562054476854522}, {0.610256876781623, 6.534792775772859}, { + 0.5852966235140586, 6.507644156900236}, {0.5613985228398641, + 6.480608620236657}, {0.5384806003784833, 6.453685330902605}, { + 0.5164608817493597, 6.4268734540185655`}, {0.4953393669524936, + 6.400172989584537}, {0.47511605598788487`, 6.373583937600522}, { + 0.45572172380887416`, 6.347105365204605}, {0.437087145368802, + 6.320736339534875}, {0.43549764673370595`, 6.318401244973839}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.42325736741328984`, 6.300419342356514}, { + 0.41921232066766845`, 6.294476860591333}, {0.4020972497054735, + 6.268326928373976}, {0.3827225199079072, 6.2373847863051095`}, { + 0.36434282358079706`, 6.206595925007235}, {0.346895954616926, + 6.175959416271144}, {0.3303197069090771, 6.145474331887627}, { + 0.31455187435003373`, 6.115139743647481}, {0.29953025083257867`, + 6.084954723341496}, {0.28519263024949526`, 6.054918342760464}, { + 0.27147680649356676`, 6.025029673695179}, {0.26686202177906704`, + 6.014547842820436}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.25810770237016445`, 5.994634753445634}, { + 0.2459292624662255, 5.965693609445178}, {0.23408301142563145`, + 5.936245118554794}, {0.22281038585726393`, 5.906942015470944}, { + 0.21207784437875452`, 5.87778357043123}, {0.20185184560773467`, + 5.848769053673243}, {0.19209884816183614`, 5.81989773543458}, { + 0.18278531065869053`, 5.791168885952835}, {0.17390565395534344`, + 5.762581836219604}, {0.16546290267481398`, 5.73413593592001}, { + 0.1574364210836942, 5.705830483331958}, {0.15215081014154397`, + 5.686321121579553}}]}, + {Arrowheads[{{0.062499999999999944`, 1.}}], + ArrowBox[{{0.14660151121984744`, 5.665288669531078}, { + 0.14254972403605154`, 5.649638114402084}, {0.13564823711271232`, + 5.621749794616065}, {0.12908047694515049`, 5.593999115653192}, { + 0.12282580779995803`, 5.566385375791368}, {0.1168745770904201, + 5.53890793192184}, {0.11122051165957364`, 5.511566158970731}, { + 0.10584804491863818`, 5.484359382268256}, {0.1007416102788335, + 5.457286927144628}, {0.09588564115137913, 5.4303481189300635`}, { + 0.0912645709474945, 5.403542282954779}, {0.08686283307839948, + 5.376868744548985}, {0.08266486095531349, 5.350326829042902}, { + 0.08195836824318596, 5.345615087406548}}]}, + {Arrowheads[{{0.062499999999999924`, 1.}}], + ArrowBox[{{0.07873278475999321, 5.324103024028672}, { + 0.07716835826165129, 5.3136695498502124`}, {0.07205503601522395, + 5.277263550420278}, {0.06729548580630984, 5.241107089491237}, { + 0.06286029922518718, 5.205198425801233}, {0.058720067862134476`, + 5.16953581808841}, {0.05484538330743011, 5.134117525090911}, { + 0.05120683715135234, 5.098941805546877}, {0.04777502098417954, + 5.06400691819445}, {0.044582276726775956`, 5.029311328337761}, { + 0.04210760290210371, 4.999930894053844}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.040411853672421255`, 4.978244665857435}, { + 0.039067121751881956`, 4.960631981776565}, {0.036742894520104416`, + 4.926644933224637}, {0.03470635644924851, 4.892890773260211}, { + 0.032956599282170713`, 4.859367855959575}, {0.03149271476172746, + 4.826074535399021}, {0.03031379463077522, 4.793009165654837}, { + 0.029404805945060265`, 4.740574450501835}, {0.030158865557797298`, + 4.688713365001444}, {0.03219311554307131, 4.652317472604315}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.03382254458747269, 4.630634800408841}, { + 0.03898358456659368, 4.586685524535229}, {0.048723892730297313`, + 4.536506441579844}, {0.06417764570998487, 4.486876343057478}, { + 0.07477116317231515, 4.462264898270211}, {0.08727577461630276, + 4.437789189798886}, {0.10568176393515005`, 4.409252281892531}, { + 0.12932411682899558`, 4.3808988760556}, {0.1537643495103062, + 4.3580417219757255`}, {0.1701020693691896, 4.3459540031633495`}}]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.18780723835413282`, 4.333345552644789}, { + 0.2135950480270411, 4.318090847327846}, {0.2493594539409804, + 4.3009462138608905`}, {0.28319334570039956`, 4.287732149590299}, { + 0.32421384574760553`, 4.274558683609555}, {0.36283308269915676`, + 4.264328303627857}, {0.4092075506503334, 4.254122408166482}, { + 0.4532741825798693, 4.246317487988733}, {0.4785069835191578, + 4.242616520190387}, {0.4979102460076536, 4.240087653232087}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.5195713102183604, 4.238236293969974}, {0.5573492930467119, + 4.23599257524706}, {0.5866334253515044, 4.236486351652851}, { + 0.6182814729910776, 4.2383284141087225`}, {0.6524987561022957, + 4.244080746989232}, {0.6894905948220236, 4.2563053346689355`}, { + 0.7292569891502669, 4.275002177147835}, {0.7717979390870147, + 4.300171274425928}, {0.7940646952724048, 4.3159469434826665`}, { + 0.8169367360875842, 4.334868725975205}, {0.8194219291804142, + 4.337265014906601}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.8350808390006497, 4.352363750046424}, {0.8402920475735002, + 4.357388535226434}, {0.8640086157711, 4.383958284559249}, { + 0.887911272874218, 4.414955398744624}, {0.911824851076689, + 4.450757302553546}, {0.9338486316775085, 4.488714697788165}, { + 0.9552657776645186, 4.531263689893901}, {0.976076289037725, + 4.578404278870767}, {0.9862540567441498, 4.60369642218587}, { + 0.9962801657971155, 4.630136464718736}, {0.9971686249717812, + 4.632631080382229}}]}, + {Arrowheads[{{0.02474176090450419, 1.}}], + ArrowBox[{{1.0044667644223118`, 4.653122796272837}, { + 1.0060651375708891`, 4.65761070838658}, {1.015519493439736, + 4.686005455106617}, {1.0246432334036502`, 4.715320704878835}, { + 1.0334363574626315`, 4.745556457703229}, {1.04189886561668, + 4.776712713579802}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{0.6046524486184166, 7.2}, {0.5983280611475902, + 7.192543179593463}, {0.5748419188756299, 7.163831269618011}, { + 0.5522416385951907, 7.135233517581794}, {0.530527220306273, + 7.106749923484817}, {0.5096986640088763, 7.078380487327078}, { + 0.48969131621452844`, 7.050124304885098}, {0.4704405234347566, + 7.021980471935395}, {0.45194628566956097`, 6.99394898847797}, { + 0.4342086029189415, 6.966029854512822}, {0.4165021984484508, + 6.938111171695898}, {0.41466782163814586`, 6.935112833416555}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.4033156803426501, 6.916557452860288}, {0.3994897924322785, + 6.910303936074804}, {0.38320085059987075`, 6.882608596900663}, { + 0.3675469757628889, 6.85502380642011}, {0.3515137755739323, + 6.823319098021509}, {0.33620353228701105`, 6.791761690931337}, { + 0.3215340530739688, 6.760349565425833}, {0.30753273554419114`, + 6.729083394746252}, {0.29350441000432925`, 6.697816553755333}, { + 0.28009023012756334`, 6.666694326967658}, {0.2672901959138936, + 6.63571671438323}, {0.26218036948617707`, 6.622787721202303}}]}, + {Arrowheads[{{0.06250000000000004, 1.}}], + ArrowBox[{{0.2542183613537263, 6.602544947806201}, {0.2434787701576341, + 6.5741939940755705`}, {0.23235978997862805`, 6.543646210855254}, { + 0.22174736682630164`, 6.513240366341099}, {0.21164150070065496`, + 6.482976460533107}, {0.20199870398930433`, 6.452853183479721}, { + 0.19277548907986614`, 6.422869225229391}, {0.18397185597234028`, + 6.393024585782115}, {0.17558780466672683`, 6.363319265137892}, { + 0.16612082172786508`, 6.3280496477497055`}, {0.1572048121873658, + 6.29297627864802}, {0.1568151951737818, 6.291359268906259}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{0.1517197638579376, 6.270211932447823}, { + 0.14880088221877097`, 6.258097830955792}, {0.14087013799562254`, + 6.223412977795975}, {0.13337368569146246`, 6.188920392291523}, { + 0.1262726314798327, 6.154618747565393}, {0.11952808153427513`, + 6.120506716740537}, {0.11310114202833177`, 6.086582972939912}, { + 0.1069940519866143, 6.052846800864567}, {0.10122170669560196`, + 6.019297673393429}, {0.09576419672163818, 5.985934545916265}, { + 0.09060161263106623, 5.952756373822844}, {0.09017511953822242, + 5.9498772679791}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.0869876136598901, 5.928359529578971}, { + 0.08571404499022954, 5.91976211250293}, {0.08108158436547147, + 5.886950717346296}, {0.07668432132313537, 5.854321143742708}, { + 0.07250234642956459, 5.821872347081934}, {0.06853469340188471, + 5.789603380373686}, {0.06478622461900044, 5.757513326664582}, { + 0.061245773639923826`, 5.725601186399748}, {0.057902174023666965`, + 5.693865960024311}, {0.054744259329241915`, 5.662306647983399}, { + 0.051760863115660735`, 5.630922250722139}, {0.04935485860650277, + 5.604294100279525}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{0.047471960413266394`, 5.582623233897365}, { + 0.046272960367078335`, 5.568674202319076}, {0.04375188496651553, + 5.537808645538414}, {0.04137396385918557, 5.507114221019957}, { + 0.039130690919368674`, 5.47658997234924}, {0.03701356002134502, + 5.446234943111797}, {0.03501406503939483, 5.416048176893167}, { + 0.033123699847798324`, 5.386028717278884}, {0.03133395832083568, + 5.356175607854483}, {0.029636334332787125`, 5.326487892205503}, { + 0.0276627014170274, 5.289993936311152}, {0.025994975452885753`, + 5.257060535607788}}]}}}}, {{}, {}, + {GrayLevel[0.5], Thickness[0.02], Opacity[1.], FaceForm[Opacity[0.3]], + LineBox[CompressedData[" +1:eJwdl3k81N/3xxWlUsy83/YZRUIS2Zeic0oq2klESUrW8iFbIjO2iuzJmoqU +JRFSliiyJdlSqZA9+y6l5ff+/uafeTwfd+69r/u655w5V8LKydB6KQcHx/cl +HBz/+1b5/08lcPz/RxT594tb20hXQpWGwRfdvyLoVZg6kipSCRPPg1qv/hZB +lzOlnuoclTBs2c2k/RTBHDCbftlQAV60fmL9tAgKGgmwztlXgC/f+eB9fSJY +ECGR0pDxCn65F8QX1IqgSdQZoz54CWoXles7I0WQoxUW5daVAJQHd15jiqDC +Q4Ojat8LYal5dH1XrjAmXthVaGaXD0G6p3xIfWGcyCDlT2rmwl5PTxnbz0J4 +Nu3UMj6nLEjrskofcBXC3Hr9vw7fHsDM02GBhhVCqJJrcLpOMhVuSbzojbgr +iDQ5z+/tqnchT/aO5z8UxPw/zX+EaImwDuzEpL8IYM3aGyMHOm/BvD2PcKGP +AKKPU7H5mWjwadx4/q6kACZsWZFmqhYBy52bDoVW8uPJEe+44+dDgCHhO+ns +wI96DirarOMh8JN9auMPO34Mi9up+1QvBPyN8y572/JjZaqBocHaEHCxeuh6 +1ZofCeF1R9c1BUOEa2xO8il+vGxUPeigHgwhrJY9LUbU78ddj+1Zcx0kz7+d +OaDNjwMRQa2fu4NgR8fWN7fW8GPyCfwT1xwEGuTGJNnV/PjzYEiZ1asgeP6D +91rpKn6MfvieW+ReEJx4W5fdw82PFSUvf9BOB4FgUJai4lJ+9NtwMEG5NxCE +Ih2JpnkS60aezGdMBkBxyk4tyW8kpuyQbZ7sDgB7xcHdRZ0kbh3aY6XXGgBT +QgcuHOogcc+s8hPhwgB4y3tklfdnEjX8eh3PewdA//lF9w/vSRTWCP46zRMA +TTZ+EhF1JJZpKc9ya/qDWFtWtmA+iQqhThf3bPaHRyf/MGqfkOg962sUL+4P +cvzsu5dySSyxSFvnttIfFKRERr9mk7g5ovUl+dUPnidZhd5PJ/Hc/RNJmwL9 +4Hcj/YdGMomDD/N253j5wcfnbTXDSSQ+zByMN/jPD6T2FTy+nUhiuBPNqNrc +D4ZCSso440ls48xp+6ziBzU+dYNN0SQeSbBb8uo7G57bJ55wuk7ilWMR7W1d +bEhSMguTvEbtJ3zafflHalyd+eFjEInt1zdcLK1iw2Hp+w8xgESPVYZ5gffZ +kFGdYEj6knhnm9KgXxIbyjMNVGt9SFx7advb5JtsSF0/LefjTSLXVC5TNZAN +KQsSJwcvkfhmmCHaZcMGS/uv1aWu1H53OaW/WrKBzhQ3dblI4isVt9Ffx9kw +Unzon4wLienmbvvu7GfD/knH8GgnEtdds64MU2EDhLgXOtiTGMgpLJAmT+n5 +MTkvYUdi0majc99k2PDgyb4Dn2xI7J7oyahhsiFye9I2PWtqvVfHQ8+uYEOV +CHutuCWJqnrXrhtwsqHQOUujxILEqeUqWyz/sqCGM8D+2EkS+Yo1qplzLBhw +0RQLNSNxoV+h6/UkC3Yk025vPE7i+qqvk8mjLDC5G67+2oREAyL2wEgfCw5X +eRUuHiWxqRhfWnSzgKXemxRrRGJNbvjF5Z0sEBIdSVIxJNElx2qw5zML4m5G +FDYeJrF5e+Or2Y8s0G1sHnI4RGLq7qhH2m0saJ15pL7iIIkPHtseKWlhwV85 +8dv395MYa8Fn5tzEgiv3ZMV27KPOs133v1PvWLDySk1hhz4Vz2qvdILessBs +5Ied114SbeR2Ow68YcFGskhdaA+Jl1aEp7HqWLB53UqxAj0S5QtMo41rWSCm +NcA8sovEnYKWXdY1LCgIPqg+vpNEV0ErlbxqFmTqoF3IDhL9khha2yh+drno +6UYkcVOEfsISiqMuPGdUbydxY3s6x3KK52Bb4hkdEredmhfQpzhOBFWXaJMo +vmrCv55iFamqgeStJMa8OjQbSu135UZtnrYWiSbn22iRlB7lS3vjPmuQKDWn +7d9G6eUW0I31VCexFHXnzOtZ8PR6YY6gGomfNdJoUg3Ufhz3ugtUSNSuWOer +1MgC3/sc8kbKJN6tcRpmN7OAJ7k1ckqRxMothr8F37PAUEiYFrGFxDjNbY5T +H1igv+3tQwUFyv98Hl6Cup8SjXHThs1UfpXzpV/qYIGDlrekoxyJ31rKv4j3 +s8D+33uuzI0kProyzWE1xAJZsSSGvgyJclzn1MbGqPuYqdn3XYpEWj+zt+8H +C1Z77V6QlqTm9w0MGv5hwb2AGNdqCRKVuf8RvFQ8av3aseqcOIlqv6VnLvCx +wbA9i50mRuL+iy9UBAXZsCvJ+owek8TnxjlP1oixgeHjZtEvSuKJtDzvSTk2 +mO2LuCslTOLfQgPjDipflKNiB6sEqfN67/MT02ZDc8bYnnMCVP6Gff2ZcIAN +WX+vHH1IUPkt7TvbfowN32ILOfbSSbQw+xXvROVnd5Fa9Xc+Ei1Te21SXNlw +3Zjz9qY1JFoLnL67/R4bnIQzLuVwk5i3S5z/8iM28Gt81rddTmILp5zIyuds +qCniUpRYRqKYV/YTZhMbJjhxe/RSyt+dCoLqXH5w0kTayvMPgWajdF6S8IPw +nT+7lX4TuFBovH+PuB8sVhR5jPwicJbW4Plcxw+0kv70WSwQuCNme16rtx+c +8Lep3j1DoAfN8ywr1A+qun3mOKYJnPml8yA42Q9Iwn1rySSBlQdW8Za88oOL +K5YvVxwnsHtrb/+91f7wffPlVNEhAl/FcphpP/WHd+ec52c6Cdzv7q0g+dYf +zAtm/XI6CFTbufqTa68/NJjvlHL4SmBzZKLmCTIAyC71rJ52Ahtu9xFHPQPg +X5V5act7An+5OlzMjAqAiKkVP8JaCewQvlDlkh0Atq9d9+xrofQWir490RcA +d4L8ZF83UuvJfunLMQkEVtSB6cI3BPIe0nPLcQuEG7SazxfrCHwmER6w8WYg +JF+f+aRYS2DO/VH+kJZAIBNOCWZVEeg6/ytX3jgI+J3NY+6+JLBVKepttctV +cPuWmBJeSKDIkb28q5KugugTXk6VpwR+6boqO1F1FbQOf/P+kE/gfxzRofcZ +1yAhPq5U7AmBgjo2Lr3vrkF3oaxjdhaBVx7cKB0zDgZxUim4+S6Byl2vbi1c +D4Yfofm+7ncIZOdLsUvLgiHhpEcYI5nA25Fr37ptCgHPlJIf1okEqraZrf+8 +6gYIGnP+XIwhcO56WWLjZCiYb54t2BxC4BM1D0M5pTCQzsnRab1OYLVepbmZ +SxhobwnvunSNwO+m5Ye1foSBalvehZpAAs9YcWbFLIuAq17Hi8+wCPw3rPGw +XCESDgiGLLvnRuDPDR+bZ40j4bt41jp9VwIv9rB9U3wi4f1Us+GUC4GZL8TQ +4V0knE7czLXzPwLtW+QjGt2iQJ7RG9VnT6Bd8GRTy9doWHz5wkLBktIjsFFP +kecmqFt16XZaEHikcOdJYutNeJfEtSPsJIHSXJpL7OJvwgVOI/9xMwKrnCqa +fC1ioD+xUSbXmMCYXYwKQ85Y2KVcO66xj8CrynL1/ltjgfejsdGQPoECeVa7 +97vEgueT+saEvZR/4ltT03tjQVPZjvZXj4qfkuQLeQ1xMBSxLbcKCdR0OtGh +/jIBGK/LbY+rE7h0Xbyyz5JE0OHm2rdajcDOx6/j/tNNhBFNAb1yFQLfGdtk +na1LhPmEWJaUEoGRq1n+2R1JYPVulH9GjsDTJQYN4rJ3QO3hiSdREgT2pYoG +lcmlwB8d9+ze1QRyB4a4VxqnwFYl3Uc5PASWzP/6LcdKAZmW2PLLqwisabMz +k/uQAm33WyT5VxAYVzdu9DsoFfQNbHv0OCn/9kwcyP19H+YDutWzf9KR9mRN +rZl8GvCcCPTxWqDjhzta2R4WaVDBnfhpzw86anSpFa+uSANvO8G3PbN0LDmq +tuNl2ANoV5BJF5mk49NW3mU7IB2cl7FUQgboGMm5wjnSIx3WNtx+ebyfjp40 +0SHr3HQweyBktbGPju3+uhN3JDPARVy0p6qbjqo8bZNetEwo1VD9sKSDjqW8 +fRZTXI/gqE1oqE8rHd3sf+7xUcqFdN8TWwJe0jFX283AySwX9u0+9HpbOR15 +l17588Y/F3j6//w384KOpi21a15/zIWKhqv0MyV0DHv2obQr4AncNVzrpFtI +xzVcunIds3lglfQhYcUjOhrLpMwtkcqHVtOizFeZdPQ4kR2dZpwPX4K1W7wy +6Lh5781LTs/zYZu3mO3YAzoKPP2jrxVQAOJvRXJa79Fx0zhfnbB6IfwzuJJ+ +P5aOS7bHWoxfKISyykSlU7foKNNwRskivRAinLa3iMTQUejR0CF+sWeQFL3a +LDyKjnVKqrok73PI9UryvxxKx/2BVmf1acVUvePVMfWnY/njtesqjYoh4WG+ +Dr8fHQ+6BcouxhaDdGaFcROLju7f1nM/WV8CO0SE3+69Qkf7+GYH1o5SuKzn +3Lz1Eh33/fkbt/thGbhetNKRdKKj2aaDtDvTZXBiuZfw/HnKD9dtkzXby+H8 +sV7uOkc6VqzLlIltL4dXeWmSTvZ0zOL0+fLyxkvg+1dxsNSajhIVxsHPel7B +pV3yLmYn6LhB1yI0k68CBsxKIxXM6aj0fNRQQqcCFvWvVi01o6NY4jbvlPgK +MNeut8syoePGCqvwLccrYfv2/vt/DOmoWPCz0nf2NRRZKval6dPxim/QqZeb +qmCpVfvuy3vp+O7e9cys01Ww0in9xeE9dOyQsVAJa64CV+38wcVddPx5xXp1 +e1E1+McZyxshHTNfc99h59RCmcFtn2UadNTUEGD9nKqFvUJc67+q0dFG5WXv +UbU6WNC6/DlPlfKvJ2ZbbVkdtAjFXLVUplittlqy4w1oGR1pKZWn/NhMmm7d +3wD7uV5svLSBjvoy+nYptxvgfsRIxzFJOq6qnluuNdkAPDMHHqiup+POmMfF +q+PfQYxUxn+T6+i4dcZek/6rEfKfxozYMujYt3Ak/NOmJog+B1v3iNKxvmzT +qpPHmyCwmkiSEqGjcPNRnZvPmyCcrRTfI0hHqzvBy7eymuGqg9ylkwQd50dy +GHIFzXCY8c9Sm05HeTHJ7fPfm8HBdNqcQaPjbhOORUXjFnB0UA5pX0PHgJvv +HDs0W8EtbO7dsZV03GI6XsCp0gbzHY7DRzmoeBAK2HTfow16qu5xqv2jYePN +o4ejX7TBJ+6eLQJ/aVhhVBISeOADdIb7vmpbpCFvKNEzeuUj1Djx1Jn8oOEW +PKqh3PgRQgY8vDTnaZh5qaFvvcQnyErr3y4yR80XoR2BN5+gfK6c48s0De1U +D4wLq3wGqZz9tqfGadiXx/XbLuozKOuuycMxGub+3Xd1ZOYz1V//5V0/SkNG +w53frS++wCAtn6d/iIayBw+8Pyf9FcQsd3VUf6ehww3XOb/IrxBl0quSMUhD +YaGylS+cOuDUqlYN534a9lQvcNJ7O8A5sXmLaR8Nb38JCzM73gmZK1oP7+yl +4b9SNf7nLZ3gJulQo9hDw4frVffrH+qC9bDz94ZuGpb45iZvaeyCpLd6T8S/ +UfM5+F/tlv0Ga0NsBqS6aPisikytdKSYwSuk0UnDLuWDEhJ53+CU2X1ekw4a +Sp29kRT77xvop5Td9/xKw70zfGauh7qBUFTzLvhCwyC74bHme93w19/5JI1i +vUUisX6+G8ijfUujP9Nwf8o59DnYA+MhBet2UTxs5biRM6MHPJQrXm6m+Idi +WP2l5b1Ad1u1yoTisERhnz/neuGi6OP+dxSv6v+1NvNNLxRMhsfdo9aPfHsq +IkGpDywqHFmdlB7xMW7N74l9oLjFtfEWpf/C+1XGmSv7wf3NvdkO6ry22ek8 +c179cH3bdGcd5demM47xnyb6wfGjHsdFym/1ACV7S9sByPJw8ZwdoaEJS9Eg +sm8Arg+KuzlO0bDU6N1x27ODYHjGnvabipe5Fz2t7YODQErHGddQ8ea4Idni +3YXvkKuo6TW3go4KPtOlEj+/A7FDxTuX/F+9b/W5FzQEE78Odm4Qp+PkCOev +lULDwMqNOcJWoPIn5ovkssxhIN2urpzfTtXrhdK+jTAChsczv+YfocbN7/6d +axsB7uhZ1ZFzdNTL5HD/eH4UhKWiKt9Q9dLUm1WwfvkYNBNr//rEU/svlgUK +J4/BgSCPc3LP6Oh412b9oOo4TIntTJn+SOW/julIdt04iJ2WfTG8SMdnHul+ +bPMJKJ+y1xeXJNAv0T3MeWgCJm6deR99gEDi24u4PVqTcO8OM1vzMoEXXLlo +v7wmQf5Cv/Qs1c/J+plOnC2ahM+Fohdvd1H//1L2phtnJ8FmNkniL/U+0Cov +/Tq9aQpKumwNWqn356fUpHH/k1Pw8eW0YeN16n1nRF7NDpkCW3trlaRq6j3s +WjN49OkUxJ0G/k4uflTteuPq8nkKfIhpAfVd/Ngy2VdIW5wCbpVuQi+AH+0u +rUo3EJoGzzpdxcev+TFc2NpDf8s0yNz8IiqyTACN0tJ/7NCdhqLI8I8qegIo ++eH1kLPRNCRNfmYUBAigFTodFrOchoHrfPKmldS4suZkiN00PJBxOzjIIYg7 +uhMFuP+bhkv+z94q6QhiSvFwzseL01Cecf45zVMQY49G1exym4b79d+srZ8I +Yq3+I6Mo12lgcPQWCw8Joqm+uimHyzQcyeVzEl0nhCHkTdM356eB5ya/uqWR +ECbD6eUyttOgYrdurC9QCMUzJCT3np6Gsz7Y9LBQCMcPe9wwOz4Nj3b3lGT1 +C2H9z0zjoMPTwH33VdA8IYwcays3T+yehg9BPccitgvjYGyfeYH2NDzJctf0 +txVGQ4dKuymlabDYFHLtc4QwXn57zbRMehq+aJqnpjwTRhkNzjQTvmmIuhL+ +rohDBN8HC8sJcE3D7YTSPT3iIlhbo87KXJiCmZurBDtABFVKXQJ8u6dA2++X +jZuXCN6u1zFpaJuC3oO7dTfeEsFdB4gKvjdTsLi2SeBTrgjeOmNn6p83BSEH +zq851iuCnZ+2QMmDKahvkBLWWBTBCVrusbmEKWD9KPy2lRBFltnyH+7+U7BW +Zuj0Wx1RTM6xsaw/OgX+sj6/JkJEUXrvpnQV/SmYG1siW3FbFFcH/8tN1ZmC +Yv8rj6cei+KYtvRUgvQUvPy+gWA1imKi1/q16xlTYCCXMTXUKYpiwld/5PJR ++lvHFWvGRNHenyuxf2ESljq77J1YyUDNpl6zkLFJSG0RN9QVYmBU4bM8zZ5J +qD38TkFsAwN3n54SyKyfhE+Nj1NdtBko+VdPbDB5EiQKf3Lz2jLw7XlDvrro +SQjLOqex6MzA2Xo+57xrk6BevHYm+DID6S9KnRJdJmExluPj7VAGXresXJpo +MwmDmlH3pW8x8HhNxtS9E1S+fTmmdzKZgSfu2DZW7Z6EV8W0zZ3ZDOThdino +2TYJy5HriPxTBs6nlnUvV5qEPxyR/1RKGbi1NnOJNYMaL8h5/l8dA3lPmSRP +fJuAO9XuO7q/MVBIDDuS6ql8/73nkfQAA9/Fe5wyLZwAvpPJJiojDPzwOJX7 +V8gEtJmvU8+YZWA0PV70m/sE7LzaGivwk4Funu0G709PwEyDdeqhPwyUuuzc +MaAxAf6uvJnKy5ho9Orf5mWSE6ALZ+07VzBR+biWqxLvBCh84PE8uZqJYvGH +X+f3jUPlv/bMzwQTPdfEFq9sGocN8Q47vggwUW94v//5knH4tV5ibYEwE382 +CttYRI3Ddbq5/IwYE+0O9xqoeY+Dm6V5fKg4E6PjR7czz43D+v3p9/6uZ+LW +plgN8vA4BF+ND9ojxUTLY4dkRbeOAxS0+9rJMHF5mM8KpQ3j0HKRrLKWZaLN +3I06E95xcOauCtWRY+KHEb3K9z1jENDxXDFAgYl900T/poYx0JBP2TC3hYkZ +qhPFEc/GwPR22JCeEhNPb7mgtTxlDFbW3An2UGbi9H4V45AbYzDyx5EzRIWa +v31hqbjHGAzMfd7GVmXi31OeGq9Pj0Hmv3BRczUmcvI4DXrsH4NeB+UgEXUm +SljFcW/ToNZTzjj7gmLSoPLGmvVj0C5rf2OPBhO/9DU7TKweA0OTG1XPKbZT +fRj/7ccoeB9P/kjXZGL2Vmme7p5RsGhUCDaiWMFF5elkwyjca7ubeoXi4dja +G3xFoxA76/IlmuI064kgnfuj0D2x2Pk/nlh4EucVPgoCIVbmvhSbO4k+q/Ya +hfrrDX+OUdx2Su2jxLlRiP5U7Myg+EKy9HjIkVEI98o72kDpOV+0dopLZxQu +3T2ic57iM5YH225sHAXuEdmKReo8vTsHwiX5R2H819tLlyhePSgqWPdvBFR/ +xC0MUH7wm2md9BkZAanDytW7KO47FGeGH0dgkii2jqb8M/IL4yQqR8Dn4mGz +VspfS+K2fHfCCCg9kDgoS/lfOsiO7wwagWdH+PSQup+ztNSgYZcRONFYedlA +kYkLC/eK5feNAPV2t91K3W/EVf/Rsxoj0K7k9kdcnonB5ZlumZIjsPKjVeRv +Kh5yxI6etfw9DNkbsvEmFS/1nwKj3B8PQ3ps7Y9DG5hYzrh2cl3iMKj9cBr6 +TsVf4FiA/IerwzCoJlJ0SYKJxr+n88+fHoaR/PWbAtYy8X7HRdAVGAa3may6 +XVR8H0kcjfL1HYLZK/EduauYGPksVtvs/BDcEp46O0XlD0fFpqYd5kOw5sPr +FQrcTOyXWRehoTEE1x4zzydxMjHR8M/F0onv0CEqZWv4m4G5A7K9kme+Q+/X +pZ56Y1R9eSZrK2c0CJ6v2WuY7xiY9Y3uvuNYP+SsTKWvCmfgA+c+a6G9/fB8 +gVRQo+qRTj7Xi3mtfjie8djOMoSB+7brX2sW6wcp7uPbn11l4ODmO33z/X2w +ULzn5DkWA9t2yexe9OiDmyYvnN5Q9e53uHP0y5ReOPAs9lPGUQYahrIeLtB7 +QJv+fXeVKAMXs68XoUInlOn9HvuULIoPV4/ozbPbQSd/j+omeVF863VOXv1e +G+w5NPk9vFwEHe98jJoRaAFd6w/l6QYiWFV8p5wv6R08inbldesSRt+ArzvL +guugyH0wCs4LI0vn4sjfyCp4EcbiceUSxshlvs9bd1dAiT7HsP0dIRTlQPvD +wWWQ4OZ9Ml9FCOW235iZaymCqlonjYEmQeRbzqcufe0pfBjjeJJjI4jhsla3 +tDjzwFNGQkx7qSCq3junJMl6DMcVCW2NNAHULDDuiHXPgLWxl6cFdwpgeXaF +Qpp/GkiP9NyXGuTH8o2s9CHtFPhzILvII5wftx1MUw72SQa+RM+ueSV+5H0p +P7fJLhm2TXxYcVuRH503jx9uP5oMjj4m+rpb+NHde4OOxeZk+Hq7ijdiMz9q +Tnp7rvp6G1RpzbmbZPhRwsHgcJ/Obais/LX3LJMf7fVt+AN5koArz7rs+3Kq +fwrKvN+4kAih+SvrIpfxY4Jug6fMQCKspacMb6X6q+p/x3j/vUyE9sYHLqFL ++HFxtvn0IY9EUDRMilH5TSJPEU+M50ACSFxlSQdMkTiiuaxLuzEeGKO/bNW/ +ktjsWvzeoDQeRlkmFcWfSWz3K9/hkBEPVpWrNaGdxLvdtb96/eMhcJm7594P +JH6lj5U904qHLw+EDpxoInH81dklSzPi4O+bVt3rr0k0iSsaFIyNBfVPjqYL +jyg++GYgLygWsPWrJiuLxGTPJQPW7rFw7JOV2opMEldbyCXQj8VCYWK6n/BD +Eh/vd2kKEIyFS3rfzm+9R+KNjLXDy5NuwfAhuUD/GBK7s090yobegrvXOKTX +3CQxlGBw2ly5BeKH3vTciiKR92RZkeLpW2C7SSU3M5zEvRHDuis23oLAZ+sS +Wql+1fF5Cwen6C2Im7YQtbhGIpf6vhciq29BEI9f4fcgSk/ZGqWkyRgQCXDY ++defxONhO21W9MZAdLG88nU/qv+9pZAQ2RYDp7zrdfjZlL7LSis1a2Ogu2Cn +9R1fEl2+Zc4sFseAz6HI9E1XSPw/omau6Q== + "]]}}}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.6864124993081443, 5.147497275115406}, {0.15, 6.5}}, + VertexColors -> { + RGBColor[1, 0, 0], + GrayLevel[0.5]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.6864124993081443, + RGBColor[1, 0, 0]}, {0.15, + GrayLevel[0.5]}}, {{5.147497275115406, + RGBColor[1, 0, 0]}, {6.5, + GrayLevel[0.5]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-0.05257638144718597, 1.252576381447186}, {3.947423618552814, + 7.252576381447186}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.710010241803006*^9, 3.7100102777920027`*^9, 3.71001076484037*^9, + 3.710010820129405*^9, {3.710010955862033*^9, 3.710010982392049*^9}, + 3.710261288240065*^9, 3.7102613415046473`*^9, 3.710261377900333*^9, { + 3.7102614517332983`*^9, 3.7102614675708027`*^9}, 3.71026180044483*^9, { + 3.710261943803957*^9, 3.710261986103899*^9}, 3.710262638748583*^9, + 3.710262812926292*^9, 3.7102629068286867`*^9, 3.7102629586836576`*^9, + 3.710263017842198*^9, 3.710267822402451*^9, 3.710301414350767*^9, + 3.710380743397444*^9, 3.710382206573708*^9, {3.710382262146718*^9, + 3.7103822744505367`*^9}, {3.710382308405684*^9, 3.710382323449349*^9}, + 3.710496079537003*^9, 3.710821991307589*^9, {3.7108223026868553`*^9, + 3.710822328449298*^9}, 3.710822363000587*^9, 3.710822689650872*^9}] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.68707421881784*^9, 3.687074220957375*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"+", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ +}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Hopf", " ", "bifurcation"}], ",", " ", + RowBox[{"detJ", ">", "0"}], ",", " ", + RowBox[{"Trace", ">", "0"}], ",", " ", + RowBox[{ + "trajectory", " ", "starts", " ", "inside", " ", "of", " ", "limit", " ", + "cycle"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "+"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ +]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "ge", ",", "cplus", ",", "func1", ",", "func2", ",", "plot1", ",", + "plot2", ",", "plot3", ",", "plot4", ",", "Ge", ",", "Gi", ",", "P", ",", + "F", ",", "z0", ",", "Z", ",", "s", ",", "re1", ",", "ri1", ",", "x", + ",", "y", ",", "t", ",", "z"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "5"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5"}], ",", "5.5"}], "}"}]}], "}"}]}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Steady", " ", "states", " ", "in", " ", "the", " ", "phase", " ", + "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";", + RowBox[{"(*", + RowBox[{"steady", " ", "state"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri=\>\"", ",", " ", "ri1"}], "]"}]}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"s", "=", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", "6.3"}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.6"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"func1", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\n", + RowBox[{ + RowBox[{ + RowBox[{"func2", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func1", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.69"}], "}"}], ",", "None"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "2"}], "}"}], ",", "None"}], "}"}]}], "}"}]}], + ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"True", ",", "True", ",", "True", ",", "False"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + "Automatic", ",", "Automatic"}], "}"}]}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func2", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"None", ",", + RowBox[{"{", + RowBox[{"5.15", ",", "6"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", "Automatic", ",", "Automatic", ",", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Overlay", "[", + RowBox[{"{", + RowBox[{"plot3", ",", "plot4"}], "}"}], "]"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"Export", "[", + RowBox[{ + "\"\\"", ",", "%"}], "]"}], "*)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"splot", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "4", ",", "7.2"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", "2"}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{".6", ",", "6.3"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Red", ",", "Gray"}], "}"}]}]}], "]"}]}], "}"}]}], ",", + + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{".6", ",", "Gray"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.3", ",", "Gray"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"splot", ",", + RowBox[{"ParametricPlot", "[", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"First", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.6"}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", "6.3"}]}], "}"}], + ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "0.85"}], "}"}]}], "]"}]}], "]"}], + ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "0.85"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.02", "]"}]}], "}"}]}]}], "]"}], + "]"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.6856848204543133`*^9, 3.68568483384557*^9}, { + 3.685684880908835*^9, 3.685684899006865*^9}, {3.685684931781047*^9, + 3.6856849337679243`*^9}, {3.685685083802603*^9, 3.68568508503967*^9}, { + 3.685771377114172*^9, 3.685771382113614*^9}, {3.685771627331427*^9, + 3.6857716305289583`*^9}, 3.685772416740843*^9, 3.6857799836081877`*^9, { + 3.685780040893523*^9, 3.685780041043501*^9}, {3.685780120173635*^9, + 3.68578015308589*^9}, {3.685780398685937*^9, 3.68578041502792*^9}, { + 3.6857807537037163`*^9, 3.685780756382949*^9}, {3.685780794622719*^9, + 3.6857807996664762`*^9}, {3.6857808513162317`*^9, 3.685780854528585*^9}, { + 3.685780944441146*^9, 3.685780944669958*^9}, {3.6857809830414963`*^9, + 3.685780983595418*^9}, {3.68578115288843*^9, 3.6857811534031897`*^9}, { + 3.6857848521142178`*^9, 3.685784859394333*^9}, {3.685784976492682*^9, + 3.6857850475582*^9}, {3.6857850877194147`*^9, 3.685785117422106*^9}, { + 3.685787041652264*^9, 3.685787071453473*^9}, {3.687075027818873*^9, + 3.687075040846651*^9}, 3.68707709747544*^9, {3.687077138025371*^9, + 3.687077138238183*^9}, {3.687090554911992*^9, 3.6870905607956247`*^9}, { + 3.687091839933627*^9, 3.687091840052376*^9}, {3.687092192939761*^9, + 3.6870921946613197`*^9}, {3.710268304824473*^9, 3.710268307832065*^9}, { + 3.710268410116724*^9, 3.7102684152558193`*^9}, {3.710268498808804*^9, + 3.710268509243264*^9}, {3.710301446845138*^9, 3.7103014500901413`*^9}, { + 3.710380785202952*^9, 3.71038084884823*^9}, {3.710380878881074*^9, + 3.71038090865703*^9}, {3.7103809628794947`*^9, 3.710380985594214*^9}, { + 3.7103810360179853`*^9, 3.7103810390500517`*^9}, {3.71038110147044*^9, + 3.710381174726797*^9}, {3.710381251827491*^9, 3.710381252171406*^9}, { + 3.710381928466905*^9, 3.710381929653895*^9}, {3.710382065110262*^9, + 3.710382072204726*^9}, 3.710382338221697*^9, {3.710495933235094*^9, + 3.710495960349269*^9}, {3.7104959984122467`*^9, 3.7104960313537493`*^9}, { + 3.710822372701776*^9, 3.710822396651857*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwVyHs81Xccx/Hjstw5v/PjtGNdkJTkkmhj8fluU1FRzmEJyaKmRbRkqAe5 +NZUasVzSSgepmUtUmjjfOOvUIhyOjjsHJ5fDDzl5VC6zP96P1+P5NjwSyj6q +SKPRXJf3f3cfHWnBo56OoykLV+rkJH5b8v2RPpYNjAd1bvh52UwN0dUKlhMU +Ldx8ZrhsCzvdgpssD3hnGz57fpbE9s1by66xAmGfUfbySWJ8o972Cisc+BOF +I9VTJE6Iuxx5iZUIHiGSkopxEgeGU6yLrAxwnz+4OWuAxKoZLnlT0/ngv7LL +aOcrEj9utt61a00pjESwa9Mektgrobuz/nIlGFvsziRvkTi0/LR51uwTIEN/ +7OhJJPFMavsLBQUePFrICXL+icQvnj3nNW2vg8DfmxdKdpP4eJSL1kEZHzri +O6N9NpL4mZr1UnGIAHSi2QK5MokLufxF/fX/gtsNyYaQTgZGzJo7nJIGyPMk +YwNLGNhc0F31fFMT6Pp6vubHMHAb4kzem2yGj9KAhKIdDBysfkIoshLCfmt3 +b7E6A78SH6jRvtoK8Y4vIZtPYM5Or4GhoTZ4uK4u4nokgbfdvnzgtnE7KPgk +O3zaROD+xfS2oNg3YLRlIUW5iY6HXZq4zHoxpF/a8E/YKTouy+6LajHsBIks +sdxAiY4LkpUumkZ3wWKBQMTV18HyAO+xY9Xd8CRGM3ZxszbWcLrALl/ZC3P6 +j5qnmVr4HH1Yc8C3D3RdFMI4SxpYs9aM9sa1H6QpX3jndahjh4h9C/Uf+8HB +rsnUJlEN5+ancNflDsAnn0tBHpaq2M/TplFtjwS09D0OFeevwA9FR9Nr30ug +Sm8gGq/4DNs1lClKrw/Ch9NdHZbBSthgxzF5utMQXH/gG+OaroBtbWzTKqVD +sKZ13m11zBKvb+bKS27SMJj4u6raVH7iyba6J7GspTB0KySr32eOZzJuPqbQ +KoWGLajHSvcdj298RhgW9xbCGouc2/1kvN/aRAFs4xFIjdZ1LqmR8CgOTlPk +j4Bqt3C88W4L74Gn3nd2p0bh/IMpq4raCuA2JtyUMMbAytT+K0eiC+YEvmcZ +dWNAv9O22nLVGPSn8eT0k+OgOWRrsD35Hbxv+ZoVry0DZbVt9gadHyAswwhH +PZWBY9Y5piyOhlY2GtGH/Cbg2qHHXdo0ZcQRFc+vWpwAyeHBcKs0FTRzOC+4 ++/4kqP6QmVuTrYF4/qVJ2nspmLKIifZL0kF/NwXv6XWjQCioNrbL1EGPHDcR +Je4URCb2DDLv6aDiVQW5rgcocH41ktfVoINyxDkVKUcoUDEIZexQp6Mz+y8M +qEdRsNXEsM6BTUdm6JCDSiEFv6aFNHgN0pFJqb7SmyIKDp4Mq/xFRkdGa8Qv +Cv+kIF/KNsuS09Hn82yPneUUCLydnveoEGhFlfOJpKcUNJo+qTy7mUADljbZ +Sq0USNePXlOMIFD3H9N+rSIKGDHno+xjCSTWKjXmiilI2GYxfTqZQK/HTcu+ +7aXAO8o7YzyHQE/vrhXEjS57bftfEzwCVTF7UtxlFCiwaYbWLwlUkZTDNqQo +cNvlaxIpJND9AL1ePEuBntmXI6rDBCoQCrmpcxRsnJnP50wS6PY3qcf9P1LA +NI+fvTVHoNwyV0urBQqsnMfaJ2gMlLlWQ760REF1qddeB3UG+g/HMmKJ + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 1}, {-4.989999979591837, 4.5099994591836845`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VWsXAHBjiJK9U0iGciNNEipk7Qw3Y+SkqBShS1FEhlDJLBGiqJCh +lJKpQTdThItMGY9z9hlkDKU+RIbv3X+c5zy/Z+0/3r3W+75rbcWzl6xd+Hh4 +eKbQj/o3dRlprxq10fvl9HhpeRknhguOnWVJawCPZuj9V8jrRLviSqQNQSzI +Tf0M8s79a3MfSR+FKgObcxVLOKHdtqcwUdoZNDK2tAYt4kTVgxrN29I+0Fx8 +L29uHidCQ275x0iHwWTheOqvaZxw9vkuHS19F1xVd3iOfsMJ4bsmj39M5YB3 +y6aVe7tx4m2b+qFDcq/gsp5b2YaPOGEbyqDX3CoFT57qvQ8LcOJSkfeO+/8r +A3dx6cv1qTjx8053Ay9vJRh4jvq+icCJhuq6ylbdjyDi1cqKuYwTbgEmq+zG +a0HoiXuB9RmcqBZRX37hUQ/zx6TqFy1w4kl27ZLMX40QKqO2dlIHJ4h15Vm0 +gma4MN25qmsbTuyoZ7yrU22FZ5do57tlcaKToE0+m2yDUmnxrZGrcMJ95YWO +LrUOaA8YKNvLgxNNvcfLV8d9gRm2bvr3nxhB+9uW8/VrJyS3/FRQGsYIrcxb +xzOVuiHB9l46jYkR7KWkTtfrPcDWdohc3YkRYuNtt/zCeoD/3xsfJr9gxL6+ +VQYR0T2gu6J+RSvynZLIouykHpjc2UOPRyZcA+PIpz1gphAegiE/bj9rfLSt +B8q0sc8bOjDibM7uD6DYCwNi9UF6bRgxaNKava6mF0xkTA58asYIpVvK8QkN +vSA4cf9FHrJz8/WrYi29YOCFa8Uicw+rHeHr6wXVkox7NGSSlrA0MdkLQ3Jv +kweaMKLXnmb3SaYPDuRN3RRGbvTqWe1zuQ/i8HWm5/7DCJGSXfOTfn1wa3pK +xALZ+H+Rg27BfaBRWPR1D3K9774PZ6L6wKPz1xgvcm1gqptZeh/U0JV0Mhow +ojz8ZO2mxj7YPGXynazHiMJUVkC7Ih2+dim0Xq7DCPetsnR1ZTrstT54yh5Z +pcxW++52OqzJWuY3Rs7obZ8/tpcOF7MvZG9EjltfG8gwp0PttbRNjZ8wwiM5 +L3jYjw6FW+SUVZBVE7xCFj/TIbJY4tLvGowYUijgnP5Ch7LEqBNDyFmFYwer +eungft3csRNZps2JL3SADpdd2qsKkUXEj4UKz9GB89q14TzySKx2OK7UD8qz +95YGPmJEbhR/9Nar/WBx2WLHt2qMwL5GXdt5vR8kVE5FMpFvwGqfPWH98P7l +p7lW5BMzUmcOxPWD/tR75dfI4s47NY9k9UN+5/O8G8gBYMfxb+yH3aOh+rLI +Q2lkd3BrP9yUtVFag3x0xqn5Zmc/VB5skBNA3vny4ttYsh+CVJ/Yj1dhxIBM +2O3Mn/2Q8uMDfwWyxUzB/gYZBsRt0552QX5/RGPXZ3kG1C2A00lklZdlSh1K +DJji7ByzQuZzrhVn7GRAWmGfvi7y2/a+we/6DGijs+TXIiu+FEhcf4EBEpAY +21CJ8i8cEynryYDYFr1blcgLTuLBilcYsJS0IfsNcreMjOu26wwwjfaTy0W+ +FbVLD5IYsCJV0zAUedrpxNi5fxngurXA0hDZF/+D91Yhx6Qa6iLPfHxwwKSO +Ab8HfI5rUFZk3tnWzoAJVaxHCfk368zeH0MMkH4VrieE7B/P4+g4zoCEwPjN +PFRc73FMxxQD2HffbJmrwIi5R1xm6QIDNtt6R35Dnj/pEhaAMUGvwaikHfmq +6IqCsfVMcMzqjW5C/vP+Sc/JjUzI2vjm2ifkBekRVT0VJjx6/E9NGfJiz/l2 +Pj0mXIkwKMtGvhYp+sfbgAn+axpvpiMvab1QGjRmAiu+4Xwq5eQJv3oaE+al +DFPikXmOesrFujHB4c+Xk8HIN/gljBcvMsGv5510ADJvSZHXRR8m7FvUn/FB +5sN+1VpdZwKj1V7UA/lmddJkdRgT2trnDNyouJeG1J4YJiTWH3nggszfduWC +ZDITHu8zf3IaOez6uuSINCbwiMzbnUQW2PW2YjaDCZZ+V7fbUo77LUF/zoSB +HpGd1tTzB1J1zAqZsF9eyd4SWXBiv8uH10zIKVDON0deYR74Lr2KCT2WvDmH +kCP+bOCK1zGh+A33sBEVz/8gGtLEhFrxWikDKn7CXvNnGxNSBPN5DyILrVw6 +7dTNhCL9RyKAHFWWHtXZz4R0r0y1A8jCblBsxGHCoO57Xx3KDTcEVcaZkGtt +7LCPet5PcVfqFBPUftbz70UWUf5ou3IW5avXp04TOab77M3ABSYYvzqap4G8 +MoL/xTgvCcOKHs/2UHHNnC57IRIe0Wv+U6fig4bLLWIkTIeeFqEcc3dQhcBI +8GvQd92NLGoYYV20noR8a98hNWTdyksSdbIkNPvGRVO+qG3XRlckQdD8zyHK +ma/1479vIWHiYrUi5Q617YcFtpOwIWhwHWWBF5KrpHeToLzGXZmylvJy0w4t +Ep7V29Eou2aNxOjrkLAPStIop23sMDlOkHABD16k3Hz/X2F3IxL62f8GUutb +wnPrb5iSIG/oI0mtXy0+LiLZkoSWvueNlB1X+hs9P0pCiJ7zA+r9E8MdBSrt +UHx1biSVn1oes5ovp0mwGPaKp/I3E6hxc8SJhBTn1mItZJXZjQcXXUkgNn+c +ovJ94rIQD3aRBG7lYfP9yLETPyq2eJOwrifgozZyhSs9WMefhMuCxkd1kb8P +1OhaBZNwe7icVw9Z4czLP843SViWZjdS9bemp7wPiCTBYX/JK2p/vGlz25ed +QIJ50bVmaj+NmNFm36aQIGRwQ8AYWaZe903zAxJWaRjZmiIHl4trzOSScPbJ +Nhq1Xw2fv95l8p6EkvFvKSeQff/KmLSvJOF8avRLe+S8zKiXl2tJUI0RZztQ +9b13ctvDFhKUng/d/4eqVyiv8ncuCakCBid8qXotjw3yj5Bov2VbXaXqdbUz +R2qChFhhzOkacqrn0036s2j/KKowIpAd7C3kkkVZoKBSLk+d/8ReLeazNSwI +DBKefUTlm6bwsEKSBXZk+FgWsrLpL+kReRYs6G7d8hJ5UitVUkeDBe4RST8+ +IgetGRTjnGJB5uHlrl/IqvRiguHIgi+VEkfmkfuyb/j0nGNB+OmwYer+09or +y/jsyQLeiAfnViP/sKflvw9jwSUV0QJVZKf8apO7L1igtrbcxRUZuxIfHF/E +ArHP/fc9kav07Iti3rCgdn/msD+ybMdvqZAqFpy6s603mrrff+8a8ehkgSXz +k+BLZNO/0yMOLbBAx7I75TfVD4S07B/zsCHgtV0EH+ofneOys3L8bJi0aUgQ +Q775ZkxVRpgNEk/9FxSQSZOIxDUYG5w0MxTNkO97ljsu/sUGzZPtBTnIYhXb +eHos2HA7SeOXO+p/E+YKpTFWbDDv3h0XiNzSv9ZVj8aGqvoC0xjk+LnF1lxb +NvQOH1DJo/qzZluGjxMbLvqY+w4iS73wASyADXiQoNM51M+V0sqvWeSwwX97 +eW4I6veCW4vVeZ+yIVbMM/AuNT+8fTJU+owNQkpHvZ8iP+2KPyz7ig2mqnX/ +fUZWlTgr962MDQ++jUvI1qLzF7WiIqoVrW9Jfm0l8gFfy8WaeTYomf1cIY/m +l5nzI4Emi2y4IhWTqYFceCZkvmWZDa9nbtqaIm8yKZntE+DA6OSzzb7IwrLr +f35fzQFXMTPlVuTOanJow2YOSE42DUegecp91cU2bzMOOJLHPVah+WsLn5Dl +nAUHpqVa+rcgs2YyPl+z4sDTfE03Atma3d4YbcMBC+4Y2xt5X4nmp4wzHBjo +uGDIQBawWyxr8uZATEkZq7gRIx7mxGZvfsgBQUHJSD80P54x2KPLSudAd6wR +7R7yJm5fZ9pjDiR1+xu+Rc6TV16BPeVARu5S8ixyaVq1K08xB3LHlGcCPqP7 +687MDmY9B1y6Zl6Ft6B+GuTwLuUXBxg2pbvL0Hx72kbjs4gZF/IN5F8ldKHz +tMEi850FF4rzdqm8R3bkuHj/Y8UFa57DdVxkZ4970p9suCB3sNFLoxsj3MLn +XW44cGFJ1i6iD9nnddXSzBUuTJN3nqv2ovtd0kLtayYXJpI8BEfpGPG6yyWp +YoYLPAICmj1sNJ/zbt4Nc1yIjn1cKcjBiPM72C2Vf7gwlvfsggayXPiJldU8 +A6CuJ6qSiByhYRlSs3IA5g/Gq1tyMeJY0r5LDXIDMDZ0JbF1ACNmrUTNOv4e +gNLz9x6ODmHE/uZCvqGUAZAMnmsLnUD3odG56STDr8CfJT5WvIgRmhqaCaVD +X8Et+/im7eI4wfp5+7/s8EGYp3Xw3duEE+N7joRLqw/BhbRHShbaOLHl244x +3i9D4Ewbh3lrnKhVutLhGTIM/s9tLO974kR8Z5eTtdIIfLD3VBeMx4nvtKoE +vtoR2H9qnXPYK5yYeRru/rZuBBrKPY6sL8SJpT+mh9z/G4EZ3jav58hiOV0L +XS0jUHS9yay9CCdU/jf2z7O+EdC6pO2iWIoTDncl9ay+j8BqvE+96R1OtHWe +H3skMwqxmKKDEfr+61FR+2S9cRR0aFllJDIZNJ0hpDAK6Vz23/416H2Ubth4 +/TUKvDovFvJr0ffkleQqQ7VR6PixvluyHicOSlalfDMaBXUXJaNfTThh7Bbu +lWk8Cu5P1jPjm3FC8/f90yEmo8Bwtar4iPx/9bEnCA== + "]], + LineBox[CompressedData[" +1:eJwd1Hs0VdsXB/DjFcrrnK1CVEqlIrdSXZS5lJDI8YpEXlHXjURPqUSeuckh +UpGTXqSiUiJ5/kquCuVxUUmStfZJCh0k3XV/a4w91viM+ceaY87v2No+ux38 +JDkczkn6/Xdv82uWKOdjGHh16ZL/CwaFFZFdgq0Y3HaUajY3MOi4fIGl5TYM +UP/HcGAjg+I89s0Z98LAfbNPW6aJQWkynDY/fww3RIl2+q8YdMd56jqjPRi6 +rokG3ZsZJFA+1lceiqH34JWiVuqQZ31/WezHUL7iiYRdC4OWrnnU5ngYw9C9 +H2uXtTJIRTzvaPsRDPd+rn+UST1QkDTXOwKDHfGplW5jUIGOb1BQNAYNm7Ss +GurTb+uZ4VgMO2yqieY/DAo+u/Lh4QQMQYVfnu+m5jtkb5P8C8OqssNyZdQG +CpOl45MwkPFIN+l2Bik9Cc1VFlBrdUatp+4/9mZTWiqGjio18wjqF0aWQ5rp +GBJco93uUd8aLMjIycDQRHRj3lOfuqkBiy5g2DlaEy3bwaCgHSd6CrIwpNo0 +T59PvUm7P36VEEPzs6Sx1dT6HS4Gj3MwHLTqYTdSK5ypfG1+FYOWf3iuA7Vo +0+Kwv69jmL21dIBPXS93ZpbDDQw/XpQdtaDOr5qoabuJ4VT+FpXl1InhOwM8 +CzC4ftfymUa9a2WTcu8dDOfPOfw2QPuzGTAp2lVE52E5srKCenHeFbfBB3T+ +prVLY6gnb1fmhJVgMFlk2GlGTbQOXeGUYVjyxe/rNzqvutZu69hyDFaRoJdB +nZdsM6BYhYFf6mZpSJ2w8f6Z1BoMdbryP6vpPgJkZpvMeIoh4oOjrBW1dXl8 +l/AZBhmfH7Mq6D4XHhqM1q3/b38HOHrUcss9Ft9+QeubvnufpHnoEz1pWNGI +oYX1+PmG5uW617kZ61ow+K1Qqtn6muZPQ7ryWRuGuMQ7njE0bztfB/rzOzC4 +h3+fmkPzuMDKrNCjC4OT86fbhTS/kyRvbO7pxuApvCiR85JBvaWq4wEfMTh+ +VbSOpnm/atBncZBg+HNvf/qMegbFYHvRhAjDObVp8i/rGOSfU5oc/QXDWctt +ViHPGDRvelKnYAjDS7+jMrFPGCTdOHJcXYxhg3aBSFzDoJ4EnwXZoxjMLxft +dalm0OWJFSE3JzC0D+etfF/OoBPFF6cbShDYZpDSOvkxg7aHyJeVSBFozIVP +2o8YpNPbKVsrRyDhSrzW9GIG5TyPyuzmEdi/9JDn1Nt030t/uF+cSkCjWur4 +rnwG7T8ToumuRiDLVvFzXi6DrDy8zzdrEbC0cFbqzGHQsso2N8FsAhmJXuLn +2QyaMY+vYTeXgP2XKMGVTJp3kWlGrS6BiMqfZtLpDGrl33eNXkxg79UHMQkp +DKq4p6+2dgmBbmn+26EkBqWEa6aXLiegM7hgzt44Bv2uMJZ6y5SA2qS4ndyD +DNIO3uP0pxkB/wUb7+aH0ny97mN0zQls1Swp093NoDfnWwXCDQRsn9/1rPRj +UOTiotOpTgTOnpLq3mlP85ukx7d3IXB/pc6qiY0Mch7MUVZyI5B/8kJnsAWD +dEsFp2I9CXyqDXYVGTPouXVwYlgAAePBkIcGcxh0/9anjasC6ftkjXHODAZl +8zynDO0m8DBmy7EBVfr/abdNCNxHoGxpe+w0WQapBSyO84ogcHTiWmMU5iGJ +F5cstaIIbA9oeFD8nofIUg3Z9mgCAt3x4up/eKhsVC7G8SQBu+qPS9ye8ZBP +fG+URRqBPu9DFYev8tDGzx7rpDIIFML+LU6ZPGRo3yxZcZ5AiYutxa8UHpJV +rzluJCTAuS5eUhfBQ/nXhcf08ml/+Xtz57vykPip+2FeFQFHoylqiT+5aKaj +xb6qGgIPnDbXxX3lIou3BrtDntJ9F0q02X/korQhSd+megLjueKplvVcZKid +ay1oJXBr69i+gnQucs8XmK9tp/NumeYlmcBFJ1aFm37rpPkqiSnRDOeiV7Z2 +yxy6Cczt/FV53ZOLQsKG1XmfCQitXRRUdLjonMw7puoLgasznQLTVbmo8nSt +Ysg3Og9x5ooP0lykcu28RJOYQFNXUv//elTQ7VdmOFmShTkJTnG5QhUk0jtV +zFVjYUCjYSRUWQWpFh+4U6nBgsn8kT2TRpSRyTrv/D1aLIxc9u250KCMErYY +ZjfOYaE/XM5CP0IZLYxpj03WZ8G4qMGhrE0J+b+b78Jdx8KZP+aNCYMU0akA +FfvK9SzIzfRQKjVVREXDo9Z7rFh4tznU2FhJEUkrPDdttGXBWXU68r+hgHJ+ +D52f7MrCCeJ32untFNSVXD6sEsTCA5XtTlHzJqOuSNsSQTDt33x1oscXefQ+ +tOOoaigL/O+8w8JiedTtLJZVO8jCY9lNJ302yKMP6gYasyJZUPFKvnbTVw71 +CrNM9dOosdGtmLBJqFegJ3X7LAsHdLTWnDCmjip5+tt5FsLWhLp1jMqgT34t +fMNsFupX+KkL9sugvoVKviZ5LDBZPTukd0ojtvBI7IbHLIgClxxVXiSJRJem +2PxdQd8/s0a44J0EEqVkqNhWszArxsspLoV6X1EGv5aFtQYeirPGOKjf6PMN +lyYWJqQkp0068gsGKt0b/HpZGAvSf+RqMQbfG03UI5VEINdcNb6a/xk4ga1i +I64IGrLVNGyyWJgsF9rylRFB6iW5Prs+DDNN81K81UXQie/KaQX3wvo8NSUz +HRGgOpsn6MJbSI0cluQYi4Azu8t928JjkKWV/P7BahFERO1t6Qm9UX69WK9i +N9B63XDKaHxZ+aN+3yPvzGk9eygzt+5FeY9bk/ixnQi6knpXPmx9V666RMOs +jZrz/9NV/i+EpCN7 + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 1}, {-0.5, 5.5}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.685684836182143*^9, 3.685684899373105*^9, 3.685684934519516*^9, + 3.6856850869151773`*^9, 3.685771388558601*^9, 3.685771635524642*^9, + 3.685772417972056*^9, 3.685779984653523*^9, 3.685780050584177*^9, + 3.685780155491983*^9, 3.685780417010921*^9, 3.685780763047028*^9, + 3.6857808051056337`*^9, 3.685780855285448*^9, 3.6857809456693573`*^9, + 3.685781069874989*^9, 3.685781154708826*^9, 3.6857848637369833`*^9, + 3.685785051208489*^9, 3.68578511975957*^9, 3.685787073486369*^9, + 3.687077174632674*^9, 3.687090609016458*^9, 3.687091867557672*^9, + 3.687092196121331*^9, 3.7103811547228518`*^9, 3.710381943604562*^9, + 3.7103819767627563`*^9, 3.710382077031267*^9, 3.710382339772437*^9, + 3.7104959611295357`*^9, {3.7104960082026043`*^9, 3.710496033550729*^9}, + 3.710821998314497*^9, 3.710822401440489*^9, 3.710822692524308*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "8.5`"}], + SequenceForm["detJ=", 8.5], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103811547461433`*^9, 3.710381943620426*^9, 3.710381976779187*^9, + 3.710382077046041*^9, 3.710382339786929*^9, 3.710495961152125*^9, { + 3.710496008216673*^9, 3.7104960335648937`*^9}, 3.7108219983379517`*^9, + 3.710822401454267*^9, 3.710822692542842*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.7905416985585727`"}], + SequenceForm["The zero crossing of P is z0=", 0.7905416985585727], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103811547461433`*^9, 3.710381943620426*^9, 3.710381976779187*^9, + 3.710382077046041*^9, 3.710382339786929*^9, 3.710495961152125*^9, { + 3.710496008216673*^9, 3.7104960335648937`*^9}, 3.7108219983379517`*^9, + 3.710822401454267*^9, 3.710822692546631*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of F is z1=\"\>", "\[InvisibleSpace]", + "0.8821214738467393`"}], + SequenceForm["The zero crossing of F is z1=", 0.8821214738467393], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103811547461433`*^9, 3.710381943620426*^9, 3.710381976779187*^9, + 3.710382077046041*^9, 3.710382339786929*^9, 3.710495961152125*^9, { + 3.710496008216673*^9, 3.7104960335648937`*^9}, 3.7108219983379517`*^9, + 3.710822401454267*^9, 3.710822692550129*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The steady state of the SSN is re=\"\>", "\[InvisibleSpace]", + "0.6864124993081443`", "\[InvisibleSpace]", "\<\", ri=\"\>", + "\[InvisibleSpace]", "5.147497275115406`"}], + SequenceForm[ + "The steady state of the SSN is re=", 0.6864124993081443, ", ri=", + 5.147497275115406], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103811547461433`*^9, 3.710381943620426*^9, 3.710381976779187*^9, + 3.710382077046041*^9, 3.710382339786929*^9, 3.710495961152125*^9, { + 3.710496008216673*^9, 3.7104960335648937`*^9}, 3.7108219983379517`*^9, + 3.710822401454267*^9, 3.710822692554487*^9}] +}, Open ]], + +Cell[BoxData[ + OverlayBox[{ + GraphicsBox[{{}, {}, + {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwUl3c81f8Xx6+ZksgoUSqKioREUV4XpaWSSiWkEipJQqSEFH2Rda3svcre +e8+y9957x7X53d9fn8fn8X6f8T7n/T7nPA8/faP8nJpAIDDTEQj//y5f1/dT +emMgE2C+9lrs9AAe0luz1fDfRED3s+PC9AMIdIaKI78G0vjx2K2tH0X3/N/r +8etDHnEuHlb9uJd+g0GN3wJmYgFBz5v74P8irPYO/w88kR1WeOjai3A/rktq +tM44zP7a1uJVLyy+9Qf9WHSGB9dQz+bFXgg9MHz0r8UV446x27nne2C35lKd +7euB72k0UZ6V3ZCTq0u+xe+PJlb7fAmfTuwT9N5tvTcAIYXPPx550Inl7yKS +qrSBGMtv/RrH0Ylaw2U3h8VAsBdsxHu6dsDiot2NuZZgkBKkpO3c2tE+EpGf +6RuOmwyhxZnxrSAJj4Tf4I9Fn5FeidmtJlTSdqQxRsUilUaG8+6+JhA6qssr +BOPgaGJCnz7QiFT5R4vBnPHY5P95fu+HRvDOyu09yJMA9WJzItPvBqxeYX20 +93gSIhQsH6efqAeHuMMzk5dJ6Nqj8NVpvQ4iB+n1mmKSYMZJIndU10F7ceWj +m3AyspgZtmqM6lAf1OfPLJ4C2yvTVHSltYheje/fhjQoS8xKP1ypRsnQiQlt +yzQQ9dVKwqKr0Vsb+q+kIA3lgWsvM9WqsSfCi9bmYjoSjUy3iRf9hfUdS37C +tQwkT/cYiXj/geqvWy+X72bhe+b249E6ldihMT03+jIPXJdMir5Zl8KkqW5l +PiIPBitRfVw3SjGgmEK1MZiH4ViX8JOcpeg+kGtndyof/LLmppVxJUjd+dXL +NyofmX0n9AsHi6E9zppe7FcAnwFTmxStIuwPp82+ml2A/8RZ62MlilD/hJxX +3V6APoHQSxzbiyDT1lbWurcQ/+2+W3w0rhB7ygNbJl0KsZWoLCBFKERpmPAS ++7ciWD8XmXuQko+PTw6teYcWIb2K612CYz7EDrBu8RQVYctEZreudj78SYv0 +xwnFOPztkewkZz5MvmTvufChGA21fB5vafPA/+SaxHP9EjSaUs0oVmbDdr+2 +cYpKGfYe403t+5uOY3EJEkFGZZCWzw09TkpHpezGkoNrGeRnEgnLqunYpUP6 +oFVdBpqmgyf5xtPgkVD4mU2hHOKNak4uu9IQrnDwv7dnKhA1wcNepJ+CK20v +r6vfqYBzCq/mwPkUjL9K3Xn1bQVyVA0q3zOmQNjlhtOh3xVwLf+vczkqGakd +5qSaI5VYOClwHJNJKDFo9T/JXgXuQff7SzaJ0KY5orlPrAq3XE/G9TxMBIPH +m8N0SlUoSuL2ETqVCMUs+tBO+yp8GKe5PNeegEa6M1H2NH9AuvbPlEMyAYM/ +XZLG5v/A6fnkjVdU8fh2ssuoieUvrjcYXC9Nj8Ox/GMSBcJ/UaOT6mD0Jg56 +Q3npXi//Qkt4RJapJxYLp6ZzLvf/BVHP6a102W/QlFwrD6urRkJ7F5dsdgw4 +laQKuearwXKVVHXaLAZCHceznVhr4Nd+8B+nZAxU5hjize7UwJjeI784JRqR +B8o8bzTVgC1dTHEsNwrZkakuhYs12F94/F/alyiM7mso4WasxZ/Eb2lOV6Ow +EVqY5yxYC73M4UcvWiPBnxWU9EGvFtLPXIqEaCIRb+ktkvKxFl/YUyx+10ZA +SsHl94xDLaaUpw3uB0TgVp1lhNbvWnBYRB2VIkag3cP0SEBOLW7qx336yBoB +LTWDoLa/tXjhc1Z9bSgcpiOPfW5O18JDIVm1xDkc1L/vc37frMVPcxr2/brh +cDC85V60qw7/VPselRLDEbQh43T2VB0+iu3eFCKHQahIYuc71OGr1jMOcn0Y +Uu2Ev/++VYfzD9J5hBLCUMnG84XXoA4RZ8y0V9+G4W4bB0Hdsg57eYo/Bd4N +Q7c/0ydP5zrwfJQerTkbBl0tutW6wDoYaYZbOfOE4d/xDZOdCXXYxp16dJwu +DBYzC/8UCupQvsYdPzgdCoaUSQOrujpcEzgsY9cWCtcPg1NZfXWglUlN6ioJ +xX5i50vyXB0YnfrYp5NCEU7XOCJCXQ9/hcjnhSGhEKmq0nrFWg8FJfHoZ+6h +yHQu6gvjrccHAd7LHXahuKSSpdErVg9BZRrz0xahqOVO6uCSr8eOwh1+Jsah +UO2LfnDvTj0qdV/RxumHYjA8uMnpWT2ujpVsH3kRCn29n8qV7+rh8pvX77hO +KJZFXWtobepB/+D9J2vtUFgvfVcEqR5e5QZ6G5T1nTlWFWah9bCyyxEKfxUK +T2szheTkeuRoNK7YvQ0F75W3RdPF9XCKvDCaaBaKX0wviMeb6vG+UPKwqE0o +JBo0c54N1cM7cKSGxSUU+V4PpPwX68GswZz1ODAU1zSU0lrpGvBFPNJXKDEU +TXxXxNn2NMD6dhTxW2koNMeQcIO/AXcMmUzMu0IxHispbCfRAIZkk0rupVAY +GZ2KKVRowE/86HzPFobNcwLHNlQacO+yhVqgWBjstnjCJHUaQB1xYiuMkl+2 +kj28hu8bcKzuyfOfZmFInBrV8PzWANdTfA/++odBaU+WT7Z7A+wOpy78Lg3D +jIxja19oAzpNJz2vz4Xhh85jjm3JDRgqY7qbyhMOIWdRZaGiBnwTmX65dTMc +Vek0TrfrG7DI8UnwrHU4GHZEMvjONuBFT5VH3lw4wsU+XCrYougL5+YTF47A +pUeK1sO7GrHxLWOq/3UErH/NromcbMQRt1M1xKUIHGoqPKtyvhGGtVkdXLKR +yNsgGZtfb0SSJsP8lx+RWL95bqbkRSMiCm5MPRGPws/3jEITpo3gCQuX2OYY +hXOBXbosdo1I6D7U7TsWBZM5q37V8EYcTtaio4+LBjvX3YOWKY0oEpb7j4Uz +Bkly/GphxY1Qz9ePM/8ag1m3yqaZ/kYQTd6uTr/+hR/Zvqwc843ge9JVLzn2 +CyeH9G9JUTVh5H1o7NMXv/FSgq3C5mATdHxTBadMYzHY+ih7n1oTjOMYlv/T +i4c1lfCKzKsmsI8VjtflxePwCYKE1ocmkDUuTJ3ckwAN89C4WK8mLF46Rmf7 +JwHrISaTDRFNuLYnsjNdKBE+f64cX0ltguZ/16d1nBPRemAqWL6pCc06vqTk +p0kwUcjr0R1sQtyBC5+c65LA8cZl/49/TfBSJXHrXEyGcv4Zj9bdzXCYsrdw +kUjB36cW31/fbEYwu4AR7+006NkrlbqqN+MpV+ll5sE07EjmpUnXa0bka3PC +pY/puEJX9pHavhniH1l8NXMyMHzSO0PgZzNmfi27pWln4qvKK7JiVDNcWkVz +pPZkoTCC2cCzrBkvt03ZVNtlQ7O271d2czNiGFx3vFbMwdZy0ljfEGX/p5x9 +d/fm4vy1B8+EaFugrntn8lpxHlInA1UKiC1w0vSX8y0swI/dJacEb7fg278x +1tXbhdCWGGNwf9KCx7KXpB1HKP3cUjRL17oF8VfPNufyF2M69B6p3rUFLNrv +VY/WFaO0wuz1+ZAWGM05at75UgJjtsKDLMUtyNNMmlollEHx7PCyWWMLTnI4 +vLX/W4Yj6jvqBwZbILe1eJY9tByN4co2aXStMJAUDGh7W4lfVSbqh/e0os3o +/WbkyyrYzP6UsOdvReWnoJWfBn8gLjUwqnG5FV9SmJYZI6ux8/G2wvL7rah7 +TNM01lGDwS+CPmK6rahO9Ddqda6l9KNbRr6mrdia+frc7EId3P6+u0H/vRXv +TWlZMhfq8HLek9/AuxXzB/0dfqbVQ25v9lZbVCt81BNZZWwbMK9Jm/i7shUM +Ahx5YsqU+fLrMfu9Ha1gdXiknqVEyXO0opbVRCuck8IfOjxtwYcagwsTa62Y +jVb5u0Gxo7xA2nNvZxs4dhncbKhow4l9GTO5+9vAeWxj6O7RDlDLdJUfO9mG +q/fJAYaBnWh/ShXseqEND/wMPo+jGwm2R83Xb7QhXteamEbbC7tfV+9qa7Rh +clZbvIeqD5p1r0/W6rdh9y6BuHvc/ThLdqGX+tyGGfoZnnf3BsDCndoT4tSG +qqQbF+OTBzGK9nSmwDbIBovnzp4fRr7Wpsv7+DacM9p168jsCAxiFS5er2sD +o4bN3YLSCVxpeHkgpa8NWutHLc/+mcKh5R9knvk20B5jtRbImcHy/qQaO+p2 +tEr4PpbJnEWNbEvkPGs76LqPKAi8mEO49pqVGl87VI7odhkOzMHC/uCj0tPt +kHDerGcVnIdKvLy4yMV25B9zl5+/Mg/hJh2mn3fb4TZpEqhD+adftR+med4O +HTVWvqrT8+jmic97bdyODzsyvWjZ5inzfKNXy9d2GMeWfjKbmMMP3eW3sh7t +4JM/2/8jfw7ajvuvx4RT/Bt9Fy1HmoNMIvEIR1o7DtLtvBalM4epNbvm0ZZ2 +MBm6nbzFPIdfvNEBko86UFZGnTb6aQarYuYtd191wIEnPJrq1AyuyCsyG5p3 +4D+Glpu9vdMYeDZt8cunA6wKn2aHFabBFSamcbizAyIzMz8HuafwXSBrP6N6 +J4zWmPsYRsfRLOlw99jrTsh++Uv2Dx3HkSvqDpc+dYLduudf15Nx5OturX32 +64Td84c7lbrHsBwl37HQ1YnMGyxvWrpHoS30x7tbowtxdx/XcWwMI/m8X92a +fhdCzjSUfywaBvUN/e37PndR6vwAs9F/w/B7zWJ2J6AL29gLx5i4htEYe/dB +eU8X6EVc95RjCHKiXXsSNbshccz9lFDoAA5KTLt9fdoDzbKSBwzlvbCO8rZ3 +fNsDn2dHM/4E9mJw/6Uv7pY9aJgZaZ4060Ukja9hmH8PDPevL50/2QuRuqu3 +S9p7oKv44QijSA8OpSrbWh/vRQT1oN/OtU7UvTn2hV60F/ZTCdXX0zphfXzT +4r+zvVAUkNE4btSJQd8oE9fLvYg7GDGXMdOByC8E7eDnvTjM16i0fbodIrdj +LxYG9aLYz1jwJH0b+nbYEBWiemE8pHPrV1UrXIsfnq+M74XYEotUsksrFiTp +xOvzenEndt344cFWpPOo8fV39eJBhgRLC6UOEie3U1Nz9UHr0yd3d58m3LZ9 +nifr2gcN1foUrch68EBru+7PPtCI6JH2m9Vjkvz0zo/gPtBSVV9VvFYPO23N +kfbEPvTZHPu5a7oOuZceMRs1UPYHz5ltStVBiPb243D2frjlv9nJ2VCD1axb +UX/29+OOo8Z5Q+salL+7+W/+SD8Y5IRnvMRq8Gzgui3O9MOUVrBI3r0aPwsV +4lrv9SNWMVWv+dlfbLM6v7XDsx9pzx2uEo9UofGs9FXRgH6o8mk1m/ZUInj2 +nNv9iH6sTD0peOxTCRlNSYHQtH5o/4l0F+WohBHEbl1o7cfT2z56ySwV6N8Q +CHizbwCinALc9UfLkPOBDY0+A1C96tfUnFMEdq2t0TchA9Bdis/gcSqC3o0J +V8aYAVCfM+Vp0qTw4aGiYbnMAaxN+lp9pyvCxxLDHwmtA/ioHKC8eKcQUiz1 +XT84BjEl6hW2SVMA15Uc2xMHBvGxzGk+oyMf4/1RoqVHBvHb5YFTY1I+vFOs +vm6cHoTMCetrR57nY1lV9KSe8iBYDHQdBL3ykBbm/PGq0yAIytk3aO/lYJfT +R/4hj0EU0dgEeTPnQNtUt9bSfxD8Rlr3Gih8uOc68Uj670Hs0H8+eVI+Gyaz +M1X8fwYhUn+IqCKdBXHpW9y024fgqkHIP3YlAwm1TJm51kMQirCnMqtMQfEp +JTbx/4ZQ/vSv35hnCpp/uOpFuQzBvWjqv5rnKVhX3HuQFDgEHXtHLFFTeLHi +kM2L3CE4N/jresslo7vg9E321SFK/vnc5ZsTMXfIJOI71TBe1RU0/IhOBK1l +OmGLYRjnD/C/wedEHJe5kDS2l/JuH+VK/z2eCKNMBc68M8PYLuQVaf0lATuS +Hva/eDuM67ltKc5X4nGA1Ve6x3QYCiYRFeW88RB52026azkMZ9r33fGrcbh3 +6tllOA0j5PtYH1k7DoExer/Yfw8j9W1urMnlWEiGfjbJGx3Gtu1qE4v8v6Dl +HraDQ3MEKx63X2zeiwRpniVRSHcEDBf5tQs4I1F06+PDiwYjaPfkleHpjADv +jjuR7yxHIFzhbxugFYFeC4JCfeAIONsfXvf+GI5Huo+snPpGcLGYRlCkLBT/ +lZQeixgbwTn+L7tGXCk8witWmzs3gvyh6suHH4eCs4vh4DTVKOyJ1iZcKyFo +vp2arcg7ilOzVZmbYiFQlt69vP3ZKD5HC4fa5gTB2utjwOFXo0gbEOodcA5C +wuKIwrl3o5D1PvQ2XisILPG57rpfRsFV79rtzhSE6iN6p8tCKPsbzWoMtQJx +dVeZvs3gKCpH086bXPeH6SuxPb6To/AV7TuoveWHyHK/nKSFUYAUXXA02Q/0 +X4x2DtCOQXr1dQbXIT8ULx2Olj06hg69PIX91L4g9n0c2nw+hqejb4oD5ryx ++qZp0v71GNasjvrtS/dG0ubJBU7jMXioBF+x/OwN/v091KdtxrC+R45LcLc3 +dt6XPaQTPAYBhbgSf6IXSoe8BRaixpClVrkswOyFz0bzwlYJY6hkr62o7fbE +vEvIBZ/8MUwNpLf4W3mi7Q/doxpK37iW+pvA2OwB10caT9WGx6B9+Sv161gP +KI6nvhibGoOnodNdETsP5G/TNaXZGANPoED7FjzwwSP/szPtOOr2K5Ye5PHA +6aP7bA/sHEeMoGFB2YY7wuUq3SW5xxGlronWAnfK/MHrV8w7Dv9aa2+VcHfs +0zQPvX1iHMseDLx2Du6on26I6RYdh6Qwl4ipkTscPgklvTo3jk62Xi4xDXco +7PyauUwcx/wddemCq+7Y+tlV8PXKOBa/nnAXlXRH+nGJClalcRhkXIEzvzsM +03/UBtwfx8O5lefje90hdHmkRejxOKJFLM/cYHTHUBN6MrTHofrhQHsJwR3+ +Wl7DCvrjeFzHZvlkmYQH/2anGozH8aU5IfDkPAms1lcXNT+Ng/yu/MC5aRL+ +sASvT9mMwyro7Da3SRK+BazSmDuMg6clQvfaFAkQvsPIQBpHuUPWDf1ZEpaz +Y1jdfcbxscF8lolMQuJ1Wi7ekHFIK0ykntskQa9d7XBc9DjO9iebUG93B/+L +lGPnE8dRaHyWzmyPO3qXmEQqMsZxvKZJMpZyPu9v2pIqBeM4lv2TL+mcO5Q5 +8mQGysdhdiFM/uctd+wM3atgUEvxVzjE0kTXHaViBjc2WsYxe1qlUNXGHZ8L +yu/+1zOOjJnPsw9D3HFW6bDa3pFxhPNvl7ctccd8t9mz0GnKefYMui2Nu+PX +6/qXouRxKObxi+azeeD5+gnD3I1xcNiU65Ap96F1X6dl684JVEyzXKMKodyn +SHG75+wT8JE8fJ+m3QPXJR2d5rkncM9Wxfkvuydy78r47xScgFDLQzUuD0+Y +DniEeYtNwNv4AXVNpyfEDGd+8UtNAHvrpeMFvBDmFJhFvDqBrvYLTk8rvfBx +P+9ug9sT4A126Kc94Q3lqBDtgIcTsApVzmR38sZmYfjuzRcTuN+yk5395U80 +3jqmc9KQst5vlHKn9yeiO6Oy1T5MQP375MtANR+okH/pZP03gY/npUwYdX0h +9EU4Z9x1AjcKI4W/LvmCmiWelctnAnVXLSzyHf0QdzwpxzRmAhuk9N0yNf74 +lirOFpk0AblggtXohwCoyafqtmRNIFE2I4FlbyAY1DPYJP5M4JLqrqO7mwPR +PSb14nnjBOgqacripIOQbJKdS+qcAH9XTIt9WBCeOOe9+Dc5gT1mjhEW34Jx +9oBsHu/iBBhtdTnbNoKxK7qQXXljAlIWqb4rZiHILCrJi2eaRFDIubrDVqFw +VrrM0csxCQ1pve9mO8Og3VX+kplnEtGs2Zxn/MLAtlTFoS88CR6yn8f3mnDo +nah/JXhrEktXusqGP0ZBLu1Oger9Sez8uGFBOhsNzotNe/57TNE3t/v2+bVo +lKi3Foy+mYTsm+g9xh6/4Dv+cC+n6SQsDpjv/P7mNwzfd+hdtpzExkOdkACl +WPC4dO8Nd57ERWH++U2OeCwc0Hzd5DUJPbn79oZu8aiM7iukDZqE6/3y1984 +EvC+ePD1s4RJ8DNc7750LBG1S+NFh+ongfz2z7GOyQi30dun1D6J67auUcFn +UvBx97T+5/5J2AVcr5kYSMFxwbl93fOTiOjVSPe8mwZCuuEbprVJPHT1fO66 +Nx3NFxeKz9NQ5m7Vx7dZ+9NhrbH0xodtCo9KS2e3O2XiwYRpSSVlLu/fp1Iq +b5gFYdNVrlW+KejuZ2L/rpGNDpeNkgfiU/BoeL9MfzcX4iU0+/fcm4LVziuv +czQLUFLWceig+hTaWySFW1cLoFKZdPTY8ynI17p5f/cphFnNs1NSxlM4RSez +6/x8EXbUS4vLf5rCFrui7t6oYvg2sp1T/DqFGmnb60TdEuS2FclpuE8ha/rZ +vUCqMtzq9Lms4zeFg9Yzx3Z0laG3+52iQdgUGjefCJ4oKgf1IJ+KdcoU1Csc +PEISK+E2vKZqnzOFYvOBpqycKhwZa3hMKpkCtS4hhKnlDy5Pf3kR3jSFzZrr +9wjnatA6+0g/rmsKAkPnDh2Vq8XLf6ffpQ9NQeHVHqL7XC3WFhlNC6amYBcT +0pYUUweH5YGPlYtTeH5blsn6bT0OrGVZNWxMga+ffPPIxQbEbrh966Sbhusz +T8/RI42opb7oPM0xjSf+sZ3Me5vxhG6/+9KBaWi1X+o4JdSC+W0L3gT+aRRw +NCduo3C7zY4//tuFp/Fesnf60U8KJzOFhrBKTGPPOpO4yUo7wpk/RnLLTIOG +Vk1DwbQTZ1nv/j5C4Sz+4LC/9tzdqGAXSjx5cxqJt000VkZ7oLqXNk1ChWKP +Lut55L9eTOzrzILGNDI0g9xPM/dT6kty/hXtaYh5dAR/uD6AXQcdSm7rT2Mi +04G4+WsQAYe1KlVNpkHPuOmfIDkMkSPna55ZTMM3LkkhaGoEhfzsjXrfKOel +KWqI+zOGQcHiLguPaVTIGC3MUOJsLOzbb+s/jeCJx64Sf2dAL2o04hw+jdvC +3qx0pbPwOq046R07DX/mBcs50zkclzgyF5w6jUbH21RsS3PIPLu+GJM7jXuz +bUNrsvNQlG5cTS6dRm+OOuebp/PouvBrK6d6Gv89kDOufjYPfaINbVnzNIbj +j97xUprHlpza9truaWhcsPzZLTIP50viu9qGp/GiyVP5+I558F7ZydY/PY3X +HGq+iz1zSLo2uHeCPA1Oz1hppeQ5LN+9KMi8dwbazGHJkvRzsHpBq3z//gyI +qZU+vh9m4OtXkdqkMYMD+aZ7pUVnkF73g/uu9gwGyi8F24xOY/rcviEl4xlQ ++TT/Zn04DbUdwqbX3GZw8IR5/4zsFCRi7vtfqJnBb6fLOlqiE7jds58mu3kG +vTt8Awnz49Bj69eR6p6B4oSBv0jSOELM9UQlp2ZAK9/5XUFyHAzhxKdedLNY +/px/5qjCGExM7i268M3i181sK+dPI7BhSRe4LTBL4Q3bs9UKI3CJ5lJlEZxF +w6/tHvYsI/jV3ZP7Q2wWrl8FAyzDhjGg8NLOXnYWGud16MSbhqC09zP318ez +aEnZyKq4NgjB9EhZU59ZFN+sXfxk24fLdQd97AJmcZznqanIoz48G/dY8AqZ +hbbJ1znlU33w2f81IiNmFmJUX64NtPaC0eoJ01rWLP7sk+xio3DvxFWutk+d +s1CtvXHEfYzC5c9cxH70ziJoNOzPml8X+D4yOPgPzsKfI9X68J0uPIoly+RN +zmJYIFA7OK8TVawNoYSNWfiKTEtcDupATIe9wZcDc3jSajv142sbyhaoK90O +z0FoaFFx16U2DDB94As9Ooe0texwEbo2cBN1m4tPzmH6VRDhgW0r7EMvnqeX +mUNWaZsOnVsLXr3e2PZdYw6BmzOi30qbILilH/AjYA6yMguVcqR67EzojHwY +MoefyeN0r3TrMf30WuKRiDlIuywVrJ6vR3zp0ZLM2DmcyrmwoThSB/EfnePD +OXOo8O1EMLGOwjnXJNA5h9Za1xeydLU4UJOGHb1zUCorLhvOrcGm5dGrTQNz +UOnguLzxrgb5gwS1VxNzuDWwdlu6txoXf6VZea7OQYaW68ff/L+4IX307wzn +PEaYD34YDayC8JRrc+b+eQxY+1xIfVwFlgBC79dD8yg/yvHvwMEq1FN3znMf +mwfDyCv9lIBKSv125bwiOY/Go+Q7nREV0HhI0Aq8N48POx1tuuvL8OZ9x6qS +6zy+MnXfXv6vGBqR6oKvPeYh87E0z0SlGDfbeh59/zmP3V8Ulc15iyEkPZhd +EDyPDBep27uzizC+OWkhljSPqz9sD9xYLIT2t01q9kaKfO23HdMWlP6RZnla +pHUeAs+qR84oF+DSKLWWYuc83semb84cLcCRa9tKbAbnQexftkitzkcfE4vt +4sI8rCfybukfzYea+2HGFo5/GAsxXBP8mwPF0hDpf/v+YYT6/sstyxxILx3V +Y+b5B99LdH7uZ3LA9fDE38v8/8Cb6VhIHZSNlv2nndIl/qHlwjxiLLOgHHqR +7ef9f9gfdYDZ5UkGriTpcKt7/8PXJ1r91X4p4Djozqft9w8FxBbzHzop6P+v +UPBNEEX+u8/tZlFKv3564LxV1D8ManSbrpQlI253g1pYxj/UnEs7+mI1CXsM +ZPyn2v6h3ipY+o9JIgY6XoWTu/5BadvRc8ZXEhF/2Tt2q+8fpNhX3F25EnHt +4ELu7vF/mLMoWjyan4BP1VE9Z1b/QSHx8DZnlgQMCnEctuBawKCfZ/y//+KQ +4CV33JZnAeeVBNMqpONgQWsg6sy7ADGrPY7aU7Hg7KyUDT6xgLaFo9RTyrG4 +bm/5tFRqAa/P2zst8f9G4thEyK5HC+iTn9utNhcNy/BC/gCfBZQTQlI+00SA +NWa4+2nAAhw1HU56/w1HaNwOT/6QBTitT6+IeIWjPF15W2z0ApiCk+lahMPB +UtU/kp2xgI/xyoe6noQhYIY6qr1lAW/I8UaNXSEQWeB/4t+xAJ3v3NaKcSEo +XL6272nPAj4X9zqLWoVgmMrt+9jwAh707+yX4Q+BMDvfy+XFBaR9Gwm4bhyM +3LPygnvYFyFVaDN3nz8IShd0Btr2LqLHZyDi5GYg+mXtffy4FzGhMHntCWU+ +pb/ewHiUbxF60m03emwDcVP92eRpsUWkiLDwyHQHoMvqy+/bSouwFMxhXfLx +g/63iOccdxehfcV+OFLFDwT7qgNt9xcR6vxsHw2rH46Q2H5oPl4EA4/9csJ/ +vtALD9F/o7+IxEgmP04bH6xXFp1ydFhE5Ff50mIvb/jeXN8V7LwIvrjRrJGH +3jhfLz6dSlpESPNH0Q1ub3xqC/vV60tZl4uT4QzxwuaI7XHx34vYN5qXX5jj +Cf9X+QxXExahrG5md8rWEzIzyyPqKYsIlOvZVXrbE5/JL8JtcxahKsNX7DLu +AQKdIl/H30XYGr75GSnogUA7G+rZukW8i7S5pLnlDuLOnD7a5kV41N5vcGx0 +hxWbcKBw9yKq7n1oe//FHbye2p/l+xexo398/pq6Owq5AjQeDC+i4cS8eMFZ +d1Dzshywnl7ESQXOzvIFEoLDrqx7zC/ilmDaolETCXLHrTpiyJT46Zq/XU4j +of9XRmb+6iJi2dZSNH1J+CIy7920uYgHln6CWdYkHEk+YTZOTQa7TQaZ4xUJ +xZLPHmzRkzF49b6X5T0StLJ8JNkZySipepi2Q44EWjTuOc5MRgZN6GqRCAmh +hTvJF9jIKJrg3J59mISLCpealPeS8cvU+j9qDhIGKz4l63CTweXs3h2xg4Sv +N1LdPh4kI8atai2HmgT+umlDFz4yqD5zMd/fcEPpXQHlcAEycm+YXvq66gbt +1seiWYJkWK61V6lS/unVvFhqT5Eh+sSlZmzdDeE9tTODp8kwOZpw5hJFn8Kz +7TUrkmTomDiWWVHsDQ/Lxu46T8aSnrRfMsUf25cfHPmIZHDz1lbP85FwbDpR +7+xFMvJjNY1unyGh/O3E9RtXyKDPZAsfukqC7iKf4FNFMp4erZMoeUICg5na +jvdKlH+TaXmGTyRErpPG7O+SIeN4U73Mh4Qrln/LAx+QcfJaIyt3LgmjNPSR +KWpkvHR8usA9SMJ3WxnbSk0yiGrtLv1M7jjB+F67R4uMSxX50nbS7qj8EXdp +QZeMb5mZrMdfu2OHxyFanrdksOZW6NZ0uiN638MBMWMyzLlume7ipvCwn0vh +ZTMyjJzKm7LUPTB5qDJI7RMZ204vsy6GesAhlNrqrRUZzCfa0DHrAaFj0prf +vpJh17fy1FnWE39i3sHnOxn3D41ZS3h6gilpcKPYhQyfW/oNXbe9YFjD5khy +J6MrveeGbLwXWifk9mt5k2F4jvHHazZvBB8JkqIJIkND1NsqeNQbDLK1FfWh +lPjd0bg0qfoTr9W3HgRHkuGwp0rBqv4nznqov5eNJ0NB41EnT70P/BId6Hcn +k/HmqOy8oSqFj2uy3HvTyLgcaeYWMeqLv9u4kj/nkfFqRKnkxl5/PDVrns2p +JoPAJ0Qr8CQQ5e50lo71ZLhxdnHw5gXiZKI4s3ozGRWDUeF5h4KwPO56cr2L +jNtSv/muzwRBfVthdlUfGVeGdtq9VgtGId/cdZ8hSvzeS170+xsMR7VbL6Wm +yKitmG4KyA7BvKnFyvY5Mi5W2b6OlwrFA/ffdm0LZPzsdoq9lhMK3mrGCNN1 +ij+bD7ujasOQjvKBVMYluH4XPMgtHokDakuG35iXcGj+1G3b9khYm/JTq7At +QeL+gkDKtyjcSLA5tMi1BNXv+yw5KPU/8W9SXDHPEnQDG778iosB53i/DIl3 +Cbsv82pVGf1CP6+s+ukTSzhh0lVtxRaLKzCYpBZeQoukwJQTpd/8fhRgXi+6 +BH6V8n6WmjiYkja8355bQkd9dk9OYzyY6DOb464s4cKp528W+hJhyDv2/LPi +Eh4ItukUGCShVYZz8abSEhZ1t1la0SYj+L0J2/T9JSiaZ/r7SaeAgRQWnPNo +Cdp2puxPe1LwOr5R1PHxEkjvSJ4Tdqk4OyamJKSzhIxyAzeZ6TT40T3tWXu5 +hNHkRV/76HRK/XLRr9JfgtkH1sag1xn4qzrj8NJkCYM3D9/T3J6Fp39iKiK/ +LoHly7ZHboG5COP7JvL8+xI+2aZlWHvmYfSDpudhxyXse5I5PXQ9H6+Pczz/ +SVpCAU+BIv+jAsRbzlSpeC3h6Hifa/F4AeZbKsTYfJfgfHSWzG5ZCNNvFgSH +kCVIPty1nzGnCFldD3SuRCzhrkvbqvrzYmyKn66mjaHY1+B9nM9eApuBEZ9P +iUswyfXN1vyvFGVShdRSqUv4KL3PyeF2GXa4+r4gZywhXUiYHHq4HE7E25Jv +CpbQ6Xv7+0J3Beo9Bf0FS5bgu6t5t/nfSrDP0NGNli9R5k5bWeeyKvz0y6zX +rF1CJe1m3p++v+haIJ070LgE472t1t00NTik+CawrWUJX6CRHctVi/BVPn3l +niW8+yyV2vO8DmO3Nxt3DSzBdOzS18p99RCKapWuGl7CzxtxJlqt9dAnJAXb +jlPuQ1xERXRwAxLuO26/OL2Eqsy/BtlmjViI1TEgzC+heYzA2afRBAl6uZbs +xSUMZOxqdrrTjOxkcuiZjSVMp8zYORu2YouxjnGesIzB9+YVPEFtkHsWYxhL +uww/IQnqupF22GR+bXvJsIw0kqpY/dVOlO3WJArsXEbMzpL8kcou7HghFTHA +vIynd79csn/TA8V89l2BbMtgdOz+8tm/F057Z4zU9i4j9Ljr2RjfPtTrV3Rw +ci9jgTBqmpDSD47SELkmnmU0iejPiE8N4MEBiygX3mUwOJQNZygMwcfoActN +/mX4qqwMkYuH0V0l9n7HiWVwpf4hBOuO4jAfU3fpyWVsr6J39hYeh9aHkYtf +RJfRMXZ+/QfTJMLrCmJwZhm7nbZk1v5NYeyYL+v62WVc52U/xVE+AyFLE7P0 +88uI+GhA25wyC/0WpV4j4jLeFElFkZ/MIUFY8LLoxWU4134KKaVwxsJXutip +y8sIi0g7KyA2D8muHvbo68s41dXYy65GmfvFM821by3DrYvGzkJnHjn2pH7e +O8vgvT62rq0+D8KA/tUelWXErkVdu35pHvJSV+N9VJfxLWG6LO7IPL658O19 +oLEMi3ffe29vzYGR2DpY+3wZ/T+ozVspXLTHT9ay0GgZrjfuoW/nHHTeieyq +NV1G+JHsQyN9s0i/etC36+My2u7tUXmYRuFE8nrass0y1tMOmVs8m0XArfQZ +YXeK/m2082pWMzhGfeqxT8oyWGcZD9hxT8Gs9cBUZMYynnn2lh6vn0Rl7E7z +1JxlHGz9+tjm+yT0Ho171JUs4y2jwD711QkkJIdVb2tehsf409qXg+OQ0tkv +Y0RehsCmZYtJ6yjsLzD+sVpdhqF5Zniz9yg62VYfOm0uY7LCQqnx0Sgs8luM +o+lXcJf2JyGkbwRF+9x+9+5ZwfmzbfLPFoah+Gf7gRuSK/AY5OERODOEx6JL +a0dNV+D0djxRnKsfJoGd56bNV1DJE/vOd6YPDsyF71M/r8DG5bSebkkf0qcc +/inYrqBrcE7zuGEfWKJ5J3Q8VnCgKGfiTG0vCnlvtkclU9a3cotfS/eg1eU0 +p2H6Csw8c7/OznVjmrBPRSp7BU/ZVM4eiuoGd89AXWXRCppPuJ2w3NcNIx+z +ion6FbxQrri5h7oL/Oxh6SfnViC6ZqB6da4d57/8R15cWMFiywnmwYR2KM+/ +Ec9dXoEj4fMc27t2fK6Vir9JWAXv2cMNJ5fa0OpQG/GGeRWKT8KPHKFvw390 +6x4JJ1fhwfxGdPlCC6bIysZnXq5CNVnyTtHORrAOKbbf1F+FrmllSXhbAyQa +FKBruAqNeMb/dkY0wDJOarvPB4p8duyfh/INYNXl9SPYr6L23MPRZqt6SLTN +FVfFrCJgMU75JkcdVMsmjg/FreLCQbeRgrFafE4Z+rGZtIq0pTr10NxalLu0 +PRDNpvgXIxuT8KIWqtcKJj3+rGKoz+5d0PcaWGQ5sz+dWkXmfRYLg/1/ERz1 +n5n53CrKEi/JSdX/QZmnTTdpcRVt46fFCuz+gMXINLJsg+K/Stn1raUqBAtp +nj+5aw13WwKfbe+pRKnfKa1l4TW8zPWZzv9bDmbL6qQfBmtYkB9iluItAWvU +u1mS0Rr6aLx77k4Vg72e86SP6Rpe9asfXUgvBueRZ+ERlmvQjxwvyrxdjEPl +S175zmtQEWu0l/9eBBGWwxbz8WsQlG+RlWAuhNi50szl5DXEWOivUPcXQPzp +q6XN9DXs4ZUoJ6YU4GxyigFjwRrsqS7uZFQvAPHBtWdH6tZwuy/RKzshH0qB +766ozK3h8fiBj+pduVCu4PyqtrgG6wCPtf3Oubg7n1PwdGUNeVUfnP3kc/Hg +IoP0G6p1hLsV9Lf/yoHmqO9Ju93rlPde5sZulw0DkVLWTNF1VAZGmy89zoRL +PmfXAcN1nG4rXy/+nooH1skV3cbrOHVubw3vvVQcuqiUGmC2jl+q7k/WDqUi +tszW6bDVOuxsvrlyZqagspose9R5HUsenUlDc8mg7moMF4pdh1PDg7c9Jkmo +8Ddwm0pYxzHyFverq0lw1txpGZuyjgOJFVma+5PAMyj/UCRnHQFlnqe/FSVC +eiKRUfzPOmJd+5oC9yTCaMXZQHp8HeYebW+v18RDOktIfX1qHUNXWc/viIwH +9afyqzlz62DioHc7YhUPZwKBDyvr2BF121xXPB6/t71pkmPYQOB3ix2nZOIw +zHFD6hr/Bo5Pjaj+YfiN+2LbaR8+3cD2t24Oe9miIPQuY+8r7Q08W8wf9muI +BHXyC8FPLzdwerFsrJgUiV9nKpWDDDfAFlxwepqTsn7OPmjMegMMB7OmrY5F +IBZM+BCyAY7L/1JePguDjWWOskPEBpZs/WcunQzDw4LX2v4xG5R+6iYcvRQK +Wvlqx8KkDQTFLa1v+xGKhwpOnTuKN6DCrEeezw8B7Y3dH3wGN/AvkLvPWCYY +7Y4Fjr9HNyB13nxOgSUYcdVvg/ImNyAQzMXg2B8EVaX68oGFDfxxO2X8zi4I +8Xfc9grRbcLvzM8k27ZAPFLlSMk+uom33A7MWQcDIOJTUl59fBPCUlpbM7X+ +oO807uw9uYnPNivCU9b+iFdvpqGT2IQF2/jOc2N+oH/iqXxDYRPcS9//0Of5 +IlFn32yX9iYYnz+QE3f+CUXZ/KTol5uIfn7uykvlnxjh0nn/Xn8Txb2W+Zoc +P7G/OnmTxWQTl9rPqfj7eeObuBLTxa+bWF3cp/QnzQuHdi3VsnzfxHbj0QOm +ll7IGvEjdTlsQuIpKXbbNS/M/pzgfk/ahLiIFPVojydUqWxPRIds4rybN0F1 +rycW2k9Om0RsQpbrd13ViAeckhsT5GM2IVWZkXI3wwPFOrznuhI3odVlPFnx +2AMashXrUambiOgkqJaIe2CFyyDfJHMTii++g7zDA8LVOZdZCjdxouzCOHeW +O8ojtBi7SjYx5vR+kdfdHc+sGGuiKij+P4iN/GLgDi/xhyrydRT/mF54mgi6 +Q2wXgYulaRMOYQ213Izu+DsS3tXZuol7udMk2UkSqH0WtEx6N2H5Y51WKokE +XyOfY/KDmzC5W3+X15sEyZtyk8yjm6BL53mfaklCvcBYXOfEJhZeSr6hekmC +HpXzu6iZTQgeZ9NnpvA4fYeEpMm/TVTs0N8zJUtCUHLXqtzSJuQOnWOMoPD4 ++R82ucxrm2D/8HzmKoXHm3UErTs3N5F1bPB5PxsJBrL1l6Kot3CCT5XjEwMJ +jNxm203otyCbyvhKYIvC0wsH/8rt2IL2yUtrM0tuIFaXOjPv2oLDZTnDoXk3 +tEe8vtu5ewuhRTIf98y6wdiKnTOKYwsBmiYlLjNuYHmU1WG8bwtvu46sPp9z +Q7T40wC5A1tQ7t1FHbzohou7tj9jPryFcar0KyoUfu8ZiePvPLIFH1Jxoxsd +CR8KVMYjj20hO5v4+9VuEth9Nn4bC20hxP9s2/RBEmKNQt/KiWzht0b6Y2FR +Eq7evH6GWXwL0tf5FaUvkTAoML/cIbmF0tT2RAE1EiyovLMjpbdAX1Iiv82E +BM4OWBpjC9GqcvVTriQkJQ/Ly8lv4aVajOhMIgk3fzhuY768hbHYR2cONlP4 +XUe8quPaFqokYuNd1kmwlu34EXlzCx70c+Wq/O7Yz22tbKy8BdGm7XXOd9xx +u7qmbZfqFu6lfvoZmE65T/2HjcvVt9D0SHTH1xl3EJfesVg/2cLD53d2M53w +gMghzsuLulv4tb5eqRntgUjxl/2xeltI3i5wU53C64euZn/SNdjC9a2/G+pS +nmAx1EzueL+F0yKm6g3tnrD7lnjL3XwLdqLTleaiXiD40E7c/LyFjrVmBWcH +ynsqijxc+G0L544j5J2SN3RbV7PN/9tCp8DRW58zvNE7qfjgzI8tpA/xWrwR ++Ilajrkfke5b2FNycNKU1QdXTsifeOq9hS6S3ocmJx/ky7iXcPtt4SJXsIMP +qy/idc6t/wjdgskQ8e7cMT8c+2jveSVyC7F6fg3l2X4IdO4So/61BbHAhnd+ +Kv5wzrB6YZy0BaeFKocB3wAwVDfQnkrbQk2xQm/DkUBY9h8NHM3cwtzVVFdb +i0AYMFY2PyrcwqRc722580FQUme9KFe3Bd+edyypA8Eof6vVs9a4hTt5eaN3 +74eA+C31Q0rrFkqirv1iqwmBSJxqwrHeLXx3S0x4XhWKyKJfiv0DlPhlZj48 +qxSGQ62bIz4jW1DIEK2MbAsDC1UID/PMFvJJF6XGV8Nhx7GYUT6/Bc5LN7to +3CJAOHH5njV5C4UPX3PeEInErPKE/eIG5X6H7WvbaR4F3Xrv9df0BGJKi979 +nSq/ENopV3mNgUD8aLnt06P9v9E7POEpsINA7KQZNVYc+40HaxdO9zERiD27 +TV/Oe8aBRDdCyGUmEMOdwsZ2XYhHLbNz9c/dBCI/ebBiMiEeV470v7jLQSDK +nWsJs4lIgI2wvaToXgKRXkJy6NuxROSfFafbtY+ij+RL3/s7EWdvfAss20+x +F1XyTaI0CcdMTrRIHSEQfZ3uxrwUS8VEnvpZIj+BaGZ5t9xvjNL/t7t4XzpG +IIo23BPPiEiDuN/SIyUhAvGf29fhkXMZWBo+kXNPmEDU5NILDd+ViUwRDZ5H +IgSintT+xbCJTMgWF/c+FycQBYMqn2/kZYN217LsKwkC0aspRvh0eg7K7wuG +GJwlEHc02jFqZ+bi5oTLc/PzFPnQOAW9N/lQZX087nyRQJR0/PHvTWchDqi5 +XvdQIBAZDBO1O+2K0BtW8svnCuW/N3hp6XwxtM8JvQlXJBD3ffobIJRbguNf +HtfG3CQQb9CdLr3vUIrJP66iCUoEIrPyyCNVrTK801z5l3WXkg/Hvd3B4hWQ +iBa6V6BCIHaUFF15J1yJ1X+PU0sfEIgX35aanzlTBUvbUtM6NQLxGJ1KjO/r +v5CvW2lr1iAQ07hTBF2DqkHPfVK6U5NAPJFoX8c3UgOHWLeNYS0CMZip6EaS +Sh1uLZdqTGoTiFe438j1cdaDVW41b06XQCT6ntZ2HqlHk/3Jw0svKflJsBOl +KW6AV5Om9boegWjo92YpOq4Rjw6SBqjeEIil2UPnxH41gedF2cVtbwlEkaXu +N7ZZzQhbP7mN1ZhA5GvbSKXf3wZdhSe6e98TiNFUvW7rhu0QciZV7DcjELdC +mkqdRjsw01Z2gtecQNxWHPv+slUXEvnW7AU+EYhPhb6/8pbrgfFr4SmhzwTi +bJRWo413L86mPbkpZkUgWuTrDe//3Yc1gnuc5BcCcfhck4NObz9yr5WzXPhK +IO78eCJvS3IQVqS1t3K2BGL2889G59KHcLFbuOHydwJRV/GF4PqzETAceyp+ +w55ADIz1asuWGkPVW3d3ZUdKPnNHvxqfmcCPrHLyfScCMVejTUVCfgrKdOv3 +1V0IxBYR8wz1yzPguHUq46kbgfhNKnlR68csWr2ecum6E4jL+mqTzbfm4NPv +bv7ak0B0ELtOXu6cg4ZQRaehN4GoH+F/v098HodN1i+Y+lDeC17Tsz+ex2De +qYBPfgTi6OeHf2e05xGx/RnhSwCB6L/F4fPz/jxe3vF4YhdEIKp13jw2f24e +wn4VhY4hBOKZJpac4+zzmBte53MLo8irCPqfHafw9ifBLuMIAtFPy6BEv2AO +59lUPR5EEYgv/17MEfCagx3SGHh+E4hujlobjApz4PF6OxWZTCDKVruZ84fP +QvHqcGpuEYGoGn3adX16GoY97AZBJZTznw6v1g2fhqex/HGbMgJx96zFnc8a +0+gPCvS5WkUgnkyaXQutpfD4qqplYz3l/fIdWo3InkR4TM3V8T5KfBqN/8gm +juOP7Cb13wECMUniNXPAu3HMtwhlxw0RiFrEJ5edzozjAu1/wsZjBOJDdRpJ +vqwxNKpdZCPMUfZz/+Bb+DMKql0ZnRwEKuIUzeOw/TtGoGYQ/EaWh4ooOj+X +K9Y/gO0Kj7IVD1ERe2uP7wuLG0AqN/v2B7xUxNbZfcuenwbAUvY1WJ+fishT +3H12lWsARQdeNPkIUxE/7ewvcnzUjxNVp6TJMlREQzZrl4H5XrQEjtpSyVIR +c52f7fhT1gsbk6DGnfJUxDHh8T28fr3oOsymz3eZish++Jcv69VeOJuSA5Vu +URG/fvf7XH29B0tHc+hjHlMRDRqTOecHOxG6Znwn9QkVsfTvYVdzn04o1QkH +FjyjIvZftW7MU+5E9MfAc606FP+dtB6/LeqARsMXPToDKiIdr/HjS7/bUWx5 +rf6xJRVxcEHV5XhQK1w7WvzYg6iIB14U+X7bbETwhr3cRjAV8Yz1UGv0n0Yk +HCSODIVSEY3nPptd8mlE7bNIkbRIKuJGZpF527lGME2aFj2MpyK+uHS1XeNj +A+zW943551ERq0Ib5xY46uHFU+1oW0BFZGpj16GaqEME0VrMoIiKaC/0cuZd +fh1KbcbNZcuoiNk917Rt9epAw5S1a7CaimgW33jsRkUtLA6oiR/vpiJq+pSP +sB+vwQ+wtO3upcRPZNadvacafk+KP632URFnvnXsKXavRnaYUFnVEOX8IzMd +gnTVWDm58VB/iooYN06/Z3biD4xk/D8nrVMRhxa3Di23VOLl497KC9zUxFfB +8k4LB8swyvOyY/8BauLNJuIM93gptLv/TazxUBPnY90d85NL8VR9G1MmLzUx +0Sd126frpXj0SPiWxAlqYnDTEYYwixIo3v/YIHyOmhiza5G5cLUIlXvoB5mk +qYkHeK8dPv+nCFeanRYmz1MTi+sPveX1L8LFeyEcMURqosDtxZ0i8kW4cKfy +vsAVauKtyOgVcddCCN/i7Dx4nyK/T3KSTb4Av3YFT24+oCb2Xwuq7uMqwIlq +wY0uVWqiVKfRZaZ/+eC/AR5fDWoi1z6XRLPQfBy8rq3JqU1NrO0QeunCmA+W +y8mDLMbUxM3cFJftjTmYk1GaonKjJloN+W2+LskA+YKWy3Z3amLYGWVzNZsM +rJ83PbPbk2KfXH5+Rj4D9NKBnw75UBNb5Ej31orTsV9ylgkh1ET7J3l3rKvT +oHDKWfhjEjUx2k2nZmYjBdeFQ+u/pFATJ6y9mF+UpkDpZLqJfRo10VFPyUrf +KQWPBHtzf2ZREwn2xAhOvhQYCIjcyiiiJip+cMktVkrGz4O1b8gN1ESWg9Zd +ysWJCOAZZNtsosT3786oWVIiQg8sp9G1UuK/l4mLXjsRcdyHCByd1MTHS/cf +u21PRPFeA+fTg9TEy9JmPntVEjDNzJJgsEBNXC/aWVJOEw95gtL8ODsNcXAl +0ejQvRhEX388XbOHhshOM2GfyB4DVk/98WROGmLvHyeHzsZo9J907LfYT0M8 +fIKjd14lGtaPKutZj9AQd+WVjFE/jUJ+6sUkqdM0xIZPa9NWrhE4Rn037uAZ +GmLdrM/xOdUION94FkMrSUOk9lZRG+CLwONBq5BqKRpi8MsvDIpp4djcnef2 +VI6GOH/em2XXYBguvD5n9N9tGqJh0S7723dDEZp+xeDNHYq+AxdJz4+EYift +A7279yj2qaOMxv/XcJ1HU9W9cQCXc849SDQoL4VEhkKZJfU8UanUW0gUSUiF +iMovMjUg3kK5l8xzqZCpRIYuMguJJjOZModSyu/+udfae+29v/t7zlqfmWRo +j3KzFT9OoJSv6AfdiGTwrM49mmNFYNpPg8GVPUlQKKWk/tmZwDo+uxPHOP7W +/LxhTj6YQIvcLL1XO+JA5kyRn2YogTVJWXN+k7EgNGmyes99AiM8r4T8kxIL +01SgmlU4gTMnLDKZy2IhU3nCNTyOk4/f7ss/hqMhtug2d0oCgTbOX5UFkqM5 +7tpwPzuJwJ2GU9dmLKLB/qRJdv1DAtkubG+dliiQCXw1wf2MQOexSy5itZGw +WsjEZ3k2gazOsltCQZFAxo8LiOcSWKYcu/H3gUjozZNU2pZP4LIFLcxofABx +3QGOzqUEGnM/PWD6NQLuOkgueLIJ/JJOs69mRIDnXOF/QeUECi/cZJW6cTzO +P/4ktYrAkyPOf9v5I2CN1tHhL40EWh9iqx3bFw5U+djV4WYCBwN/rIwUDYeZ +QwE8P1oIvCCcZG0wzoJ3NoWyKz8SeHbPTgOFKBawx43zJT4T+EPq2rSLKwuy +3Mf2KrZz8jYPFDU5yILgkPV2+7oJ/BDsJypFscBLtHDWpJdA/v9Z8Mn1c3yc +auxn00/gzYqs6j8VTDDfOibkMkBg7//2LWQ/YsKBV/4p3kMENt0bNjC6w4Rt +e9er3RkhcKSWbTvqygS55oLyyFFOnoZBQ8HmTBC2MDZ+NE7g+bnx3P17Od4e +HO3NmyTwdbzlSwVVJsy6+LuWTROYrLZvUH8Dx5sLEtxNMwSORYuqPOX4uiWg +4F7HHIFyYvKhdjQTylYaS377SeDHP2mLQX/CIDt2NOvnLwLzv+gNb5oLgwQ5 +f2T8IZBvnXCTGcfLIbkSTasWCVwujZqyHE977yw4JbmERP7j7YlpnPGFGqMJ +JYLE+M64BxMcj1scHfXWoUjUsl1fLTgfBgZdfgIHaBKXytQHinMzQdteIs6U +l8R7k/rHlQWYID/7UvHMUhJ1Q7flnBTjeNjXqNh1GYms5r3LC7Zw7rt09KCv +IImNG27OmHE8Pcvya7+7gjP+66B41JIJRiUzH+6t4uyno9Om4cGErAGbFtZq +Ekd4FOz8IpkgINjyNlKYRAWvd7dNizjvo6lbGytColF25XBFLxNqT2W/SVxL +YpClr8ZXfhbI3l7PThUjcXqzoVGzNgt6P/7Nz5Ak8V+blbMeSRwvL3HKzZYi +sdDTdca5nQVx8h2ZzzeS+M2yyjqe068Fw4NPCmRJjNl1fkH6ZDgc93iVWixP +4g+xPpZYSji8SNqUyN5MYij7renjiXAQqouMeaNIYo+96dJhiICmtVfDGpRJ +dK8adaAnIkBp92BwsyqJVj8OP5X99wHccTwW1KrOOV+4tZ1vzgPQL1a73rGN +xKyG2K5L/0VCytdkz57tJNY4LU0x54oCboFVV7/uILHdr8tl9bUoKLGcchrb +ReKTpKtnkm5Ew7oAK/spPRLPWe6RfCsYAx7PGs/M7iHxiHLZz6vJMaDOlWnx +Zz+JXqpe3Eu6YiE90f7AMiMS1+wvqVM+lgB8tZ/2rDhKotBd6Qi3ggQ4N71v +1+pjJGpEIFG/PhGk9GS1xE6QaN1J9kgvJIKvQ7iqpAXnvvOV/9ldTILOMGrL +RktOfsLRylrDSRDV37dR0ZrEWIr0EhtOhp/8xpLKtiQaJIkc87iYAsfUy9ap +23HytCBwYSEFVvgnrNphT2J/TLCaiAzHx7InlxxyJfH4oh1veHEaDByuXzhy +mcQtgVpli66PYffV7T+PupHoH75anG/LE1isFpmw8CAxp9bJePzVU7CYuj1i +5UnijXNTBXA3HQpFfn619ebM5z89KGOXAW72be2ON0h0K/Jwb9zyDN7f3/Px +4i0SkXvgS+jyLFB+lddy2Z/T33fpKyLvZsHo0rBazyASwz/V6DuyssEm4/DL +O/dJVJqYM9XqyQXpDYVLnZgkzvucXzvklgf94dKnDoeTuFN79fLiFc/B1nee +WhlFYnby0OQj0xcgPWtz/Hs0ifl3DwsoEPnQf/5t+vtYElUEPvbn5uXDGeNk +44hEEjWP6HQ1bioAmeplj64mk9hb6zYzNlEAAzpXfx1PJZFec25UuqgQ7GQO +Ja57TOLCP4JV4g5FcHZ+bjwxi7N+32To0zWvQc7ptO7NHBIvL56VYkW9hqHe +OpZtHqc/pcy0GCk2nKtP0JF9ycn7S5e18N4ykNu1NJSnkETzd8Z14t1lMPT8 +St/wKxI9x9jzzr7lcD7+QFB6KYmO+bxss9YK2CT0vOMum0TZ8tbTBUFvYOS2 +hLJzOYklc635c/qVYO8680G5ikQPjUCrX1+qYNOg5eZVNSSefil+7kNuNYyY +13jP1JKomlC6lM2qAYc9cRvz35Kok6O5wcejDhQKedwfNJH438lf5/u962FU +6VK9+zsSB3xdVnmENoDjP/su6bRx/icDmdpGXY2gcDenUuwjidxXWBeuhDTB +6BIx0cVPJF40VNVQ12qGC9+mXrM7SLxEmM4XPXoHSlYWQsldJPI0yL+3uNgC +4+8rz97qITGx3+ri4z3vIXO/8qszfSTeLvpyekCuFZxKogX0v3K+79EqJf+1 +baCkyrCWGyRx+1KGi6rEBxh/dPE57zCJO3zW27SrfwTne3ss6kdJ3LfbZMut +1M+wlZH1LGOcxOFcduhesh0mPUSJkEkSc23+51vK8XPWxK1jF6c5/bC1sTHf +0AUXbSceG86QWPvk+7O0K92w9dPxPypzJD4W1L1u6tIDk4cqjgj9JDGBqfow +NaAXssqUUmbnSSQfiK/SK+oDF83IH22/Sezs+Pdgy8qvoJJOGLz8Q+KXqLqR +fcEDML3eKS5ykUQ5nxHn0i1D4Mqnt8eCoJDyq1e8/v4bqPhkPNhBUZh8tlvt +YskYTH8XHhWnKTxpPOjJEzkBOeduABcvhdKzHz1akybhUsfo/R4+CmOzT70T +PzoFhfd63L/xU7jd5O6yj91TwL23zWpWgEKXOEXlUM1p2P+rVn9xOYW0tYee +ttU0hGaWKvGuorCjr9PtHsfPH63zVq9aTaEecbhizGQaJIQfL6wTpjCgTfGv +Nme9XV1sn4wIhZ5C1ocfLp+GTJ/7tVvXcuYbnFcQGZiCOdWAbG0xCqeamXu7 +C6Zgx9C1B7slKEz3DBPffncK6o+csTOTotDPIZiRqzYFI5Ja3L6bKbRXyTtY +dnsSVNoUhgMVKbx1NGhXq+UkuAdJNoVtodBgEfyN1CeB5ztf3CNVCmeqDCIE +qyZgY0XHtsbtFB6UnO7xDRwHK7ubLuIHKdy55WaFsOoopIleNZP7l8JKhiWG +f/sGE28dQeUIhf6dictqU76Bt+axZXuPUri8WcD1gMg3iOaRf3zBgsJLm1TV +vfhGoO3J2+4iRwp1VLaHbuEfgkMTIkfM71KoHz5fWnm9H+YmeEN0Qyg8sbIk +W8OwHxIm5xvk71E4V4SpIpL9MDP1yeAnk/O+MtJH1cr6IGYmUp8VQ6Hk09bA +eN4+GJ0XgcanFIaW8HA7pvdA+C9e7xcZFApensm8d6MH8Pd8UewzCuX7eT1E +j/cAc+GTtmMuhWrGztmGdA/oLEZq8L6iMDPvYcqOc91whxRV0qul0LtmVXSY +WydoUHwXNtVz+rI/gO2s1And1K+nK95SGNajWjM30AFq9Gf57mYK7y1KrV48 +3gHtvFEbvT5R+Ea2OL1evx02C4qK5Q9R+N/267Tgrs9QKyLKv5lm4OmdZqcd +EtqgL7/rBQ8vA/8O1Vf0OrTBgknq6QE+BqZ94JJ8r9kGive35icKMFDg5xW9 +9c2tEMqnb/3PGgZKpJZtQd5WMPl96SW1kYHlvi28ecEt4BS5zaZPhoHtm6PS +DU63gL/m4jK2HAO5JgbyD6q1wMtLQTaeCgx8xNanAr68A9HRBIHvqgzseNog +VK70DrrbG2y7dRl4VVd8PnSwCeY9wgRLdjNQMK3HzPB1E6wUOV4YvZeBo6Wi +ZY6RTaBn0i9oeoCBF2ihkOyDTfCw4VdhgyEDdbjeHih0agSHEtkVr6wYuG26 +t1JkWwPMxV8vZnkzMMjsK2mkWwPhXs2/o30ZiL3P7PO5a0DDXFI76QYDhZo+ +kMXl1eC2hv0i05+B9x3K0pP0q2H2DldWVTADTzxhpqUfq4IZd5+k+TgG/qnZ +sPxc6BtgmjZ2LyYw8Fue0Y21J96AmrqEBCOZgZM6XytNpd/A5cmS6JWPGGi7 +XvTUmcIK+G73l7n5GQOV+cu+Z46Ww7SxV8DJUgby2rtkdJwrg/vKDW9s2Ayk +BH1Lb2iXgYqgGGlfzkAffjVWDH8ZuNYW+bpVMXBpPN0gn8OGKVxwD2lkIH0l +jT+Imw2Titcc2V0MzE6Jihx2KoUx2t1wIxeNlgM+pjWthTCpXDHIw02jTgKz +70V4IUybC3qPEjQe8brtrmVWCHPPUp/k0jRqyK3cMd1eAFxm7whdQRpTPq/r +WTf2EoTSNr+wFKex/+/ZDnXZfFjzzu2g7noaZ5/LfK2dfAEiC+zejRtoFFsh +XNhV+ALEj5gJjm2kUVWy5v3NIy9A9uetc9cUadw7GP0g/Ppz0N7XKfpAh8be +V5mic/O5oOMqn31tJ42H9r+8z12XCxBzWf8U0ijrr3XSKyYXdk/yXZbZTeNz +6c74AsyFQw80G/IMaIweaXq/NTgHrIZCfZpP0GgnwPA30MkG/9t6/XzuNAoU +ezxpKM6A8uh7L2Wu0fjtQgPV5JwBXM+67uh60ahQeXAhbkMGuLdeU/e4TmNa +ziauqKB0cNyQ5z8cSOMLq9i0apunYFgkLV8dRaNReJ2f+bbHENzo+qcvhpOH +0WsvjR9pUNv7unkxjsatKnVjJc/TYDfvSQ/NZBodrbNLmtTSQOMYq+7hUxqX +bB8xqdR+BOsmKSe/IhpLrC6MhNimghlxVDexhMZnpUMtbgqpwFqTtKb4NY2R +Nx3qJ2dSQGDHztKZChodIsL8IgJSYEmQ23LbBhpXqG3V8s9NhgGpwRzdThpN +7tTQhdJJIKWpHmDZzTnfqUOXZWYTwerATXOPXhob4h4WClYmwqeLEmTOAI0h +iU7/Mz6fCPXFpiaSEzTeCVny1uN5AvA0p8rvmKLx1wpm5uPABNjT//2P2Xca +00V+eBlYJkAJX+jD0B+cvnhc0unjSYDfYp0e6fM0frezfJJRHA9aygqHq3/T +qGLHZeViHw+Xd3tI9f+hsdnIWU/wn3jINq3+sbhI47DxsNqtyjj4PzWti0g= + + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, True}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, { + GrayLevel[0], + Thickness[0.01]}, Automatic, Automatic}, + FrameTicks->{{{{0, + FormBox["0", TraditionalForm]}, {0.69, + FormBox["0.69`", TraditionalForm]}}, None}, {{{0, + FormBox["0", TraditionalForm]}, {2, + FormBox["2", TraditionalForm]}}, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {0., 1.1502671540345986`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], + GraphicsBox[{{}, {}, + {GrayLevel[0.5], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k8lN8Xxx+ZQcryjLHNM9bQQpQSLdxjKUspZGlB8UUoKqWohKJNRFEk +IREllYSiSImEyL6rpAUzyDK2/O7vn5nXeT33nnvvOed13uej5HrYxn0BQRDL +8c///3lbfZOsDh8xEM6xkl2zRhZ2C5yT+Ky2HammuBmZrJSFlGhkH6nmjHxC +G+rsl8rCO7u7Jw+p+aLWdBW5EEoW7AothRzVzqK5fDfv7/yycNcrvW6nWhRa +liMdNdgoA0ZG9Xk71O6iAt7GPIEAGYjV/JlhqZaD0toqrpiVSYOwM2fkl3cJ +ckDpTkoWUnCR7eH/wr4Cvfjb6sSdZwJ/uUVlen0t2hmp3VBeKwES5VLKficb +0MTjK4TlLQbkDv1yvnWhAV27G2vw8zoDrKSKEovjGpBK5M8L56IYEHVgn6Rg +XgP64XBIpzicAULCmUJ3hhvQaBvJv+k4A2a3r+eWezWitelzy32sGdDXurdY +1rEJLR/uH72xmAHn+DSnDA42oeJPKnw7hBigtIJY53aqCb3P+EUuojHA+fT9 +JznxTaiyRGTDhRkSWuWG7hk3NaGHA4p3L/0hocb17GWf7c3ojKBOyOtKEvIH +U+zfQgua3mpL7w8nIYos11K3bkHZNHUVz1ASPNb9FopzaUGqc2+9Bs6QIBWy +usjzXAuyvLzAc/wYCf4SZQri71tQ+LZry6RdSVi74fsvZ9NWpFaqGBBjQMLi +fYJllQ6tKEurqEd1Awl959UTtT1bkYewh1eRDgk3ao5ZClxuRYcevfv6W4OE +0f203MdVrajKO9TZliKhKnxZhHQH3h8UWjsiRcK9h9vcQgda0Yi+oXM0gwSb +sVgpu8VtaHVda0fdQhJWyL7kvmG3oRm5io9+dBIWGHRVLlvZhtx/aN+V4iOh +3ZXv3nX9NmQR4HSmclYcnl1UPT1r2YZqv+gfyOWJw6Vsc1sP5zZUfvj+Ua1x +cdhf77OyzrcNqVl3l/8cFQe9iRiBDcFtaG/TiW3T2Ban8nvSrrWhKebTVXqT +4vALtReKpLQhmZtl+48tIKHU7V/Myadt6JDkjdhmGRLiLysf/Frahs6MN/5Q +BhKO5Gwx2VrfhvifBYaEBpNg1uAt9+JrG+IaHs840E2CIi9qQn60De3Ma5vW +cmUAj/3886UF7Uhu9EnZmLAEfDZsyRxltKMuzQ8/7tZLQIbHTKjjknZkN6su +vy6LCWcjFPZ+WNOO7rcaHZM6Lwn2T43XrjJpR0oerjU6O6VAs+mAyG3bduTW +Ob56CUMaBKYj+vnd21EVuf5CYbE0dMs/LfHxb0dt8nSXtzYykG/cGN8S3o7+ +uMjOpDbJQJQn76jhzXYU0DDywN1UFjwi2VsfZbSjbYWy79Y+lAWDXFCRLGhH +rSC7nUGwQKrFbe5sRTt67XXsc5kFC4ZmLjX/amlH9dmqGyojWPBe8fETm1/t +aDHx3PLAexbc2Vx/qZjXjh7J71B6Ns6C497jLmoLO9BLHSFapCIF267JboyW +7UBe52ZR6WYKVPL0mdPLO1BxdZ/dmDsFs60uQ/9t6ECvHuzMLgqloHEu/EON +RQd63/jrWFwCBdnKD5N193agVn6F4uHHFExrn26xPdiB7qy3Ff7xhgIz421i +fqc7kOE9VdcVNRTc3Clnei2iA616KVYt1EbB9/84Z7MTO9B8ziHb0m8UrDpe +kv/xUQe6fDeUuvKHgrNh0Zz+og5kGWawJWGYgupYFzVadQfaZD4WQY1TwErX +dlbq7EALpEsUNvAo8HzBf9NgsANdp0q1WNMU5Jc31uyd7UD+twKpLmzTmtPp +gYs70e9Fj6hUbNv0n9C/yca27L2k0CkKUiZM/Z9rdKJfz5hOtyYp4AjIPq7b +1IkMiZRK3hgFm6T/9A1t60SSF/9ufTVCweWlRexFTp3oxafdHpwhCpp1r9ou +8+lE/jWbXqf/xvE0c7q6OagTbeOvf8zto6DUc34mOKkTWV5b0HuknQLRwLo1 +SY870abTD/pLGilwvJx68NXrTrRKyB/qayngZRl3jHV1IhXndHfnMgq2vGJK +MDj4vCH+2t9FFMRW/bDQ+teJst6ubrZ/QYHWwMVXXvJdqOVpr8rgAwo8NKoT +up27kMPcsrkzVynI25RUP+PbhZbnacTeCKdggaXvQtngLpQ0JjOVeZaCJB/x +wJ3JXejZaStW0xGc7xzbXZU9XcjGSIEEOwqMVndJ5e7vRhHmE8Je8hQorOPc +CHftQXRVmh4tlwXnshIiIo/2oNOy2b9KHrGgj735fFxID/pv1ygZlM6CTP47 +ful3e1CKHa96Jp4Fq+rNrcvbe9BMI3QIh7BAMd/m4rnlvUiZU7/o8Hb83TrH +pCy1F1mcfb7bclAWrC+6lxhe/4oiIsfqtmvIwutTEqgx8TvaNPZVpvquNDyr +E3n15twP5HzqjFWnoRS4xaULS+7/iQJ65F0cMH/g65kf/9x/o3cf5lPo+RKQ +fi2lCMwHkOu3kLrxWAacYSuTR6wHUF/6ilydaAbYZKV5JO8eQLbKRVUnIhjw +ryyD/Oc1gExMbZJnQxlgP5F9oOjKAMr8ml0jdRjzyOmlxLrqATRaOzIVZs6A +Qyu+HFTfMYi2ba45uGWeBKOCnW/3OAyiX2WNMdnTJMiYNEld2TeItE9N90lM +kFDu1Pr21+FBJFFziOwfJEE+pls6I3oQBVleOBXfTkLd5J93il8GkZdIvIVO +PuZFOT9bym4I7d95rXabL95f0aGo4DSEVjjbdg96kWBf9Vx1mfsQWlO/UjDK +nYTAz/9pbfAfQoMN/GkNjiS8aXtn5Bw3hMzdLs8c3EqCKee8V0bTEHq9K2m0 +bhnm3/Be3yddQyhQ+Y3fORUSvP+uOVb4Ywj97rkuqKNIwlXe9zNV40PI5qyR +b5I0vt8Ck2iOJAdZSagtOy1AggudHTcpx0Enq6y36OB+Pio4lkCocZBTleDJ +4TlxkBS5n8ZYx0E/ZeZFvTEvMsTOZFIGHHTiwm728hHMC4btY5UtHPShXm7D ++KA4fGRq5K7czkHega+2Tf4Shz3StIJ19hwUSDROX/ohDgOynUXImYP0TOwj +rL6L43zmlZp5cNCq1TpbvLEtqnC13NqXg7Ratj1L+ykOyUpuVXtOcBC17FTr +R8yjVSqbPv93loO+XF35jQ/zsEyN2XjoAgeZrHgyKLSKhJ3LB1v9ozhIZJx+ +fNFhzGP1911nb3KQ1xDT90YN5rnmnW8X73KQubPaDnU8fwisPv4zOoODErQf +CepMMyB+zbbBhBwO8nf9adf9VgKWr1MZuZfPQZ72WoJbE5nwSm92/NEbDnqx +Nliy6KQkbNvYOJ33gYNeZ0QXfcfzVJd+9vzrWhxfmW2yYiLS4AthtIpmDmrS +Uvj37ZU0zBs5Lqzr5iBkeUtqsa0MRG9eK9rWz0HRO5bZ9rbJgLLZYolvHA5K +PdhCHtguC88t+qQHJjioyh/4qp7LgollMXvsHwcdJ2ofii1mQfOOWKU5AS76 +26ubTOxmwQGbQ2oCYlzUxLt9XfkOC3i2Jupi0lx0/98t/9fNLLjswF4lo8BF +mfx05o+FuD/vGVurtJSL6G+/ip1fR8Ejx+r1K7S4qPvTeK6zE+6n++4brNHl +oqgz24yWBFNQ43LGeBPiopdhvlludyhwdrM122yK19PCAtJwfxv20LDcvoOL +Xn2YntjxiYJQL5qNgwMXeT85llbdRcGdpI/5Tc5cdLKXXnlykILC+ijK1oOL +Dl2TPvYT86GBbhvyxYeLHpp/jt7JzwbOetkfVv5cVBp+w5KziA3Cvt3mn8/g +83+ebOtjsEH1XlqOZRgXtf3nWbZPhg3Q7ClRHcFFej5KA+fZbHAU1gywuMFF +7toiaX4KbDhp8Lez8jYXGfik0CyU2HDdr9DQ9B4X/VMUvqmqzIacjKCM8iwu +chsXMZPH9sd2o0Umz7go9Baz4v/r+0SFjpQVclF1z6+uEuyPMK5phFIuSlk3 +fTBajg3UyevrSyq46IZZ56MaFhvWPXK4q/+Zizi/X568KM0G6x42f3EzF6HI +MqFqCTYckvh2YEM3F5W/+52bKcaGtNOHVusOcRFDb7ZvlwAb3jxZffPFGBfV +7bPYY8jHhvbvE9NrZrno80q9noEZCoQywDWePoy6b+qKPcD8lYK0WIeFw0jg +kNhMOeazSju9QkpkGCU1Gl95h/mGRD+pxzGH0Tnz8wWHWyk4ccJuPGbJMEpv +EdnHX0JBmHjhUuulw2jlTofD1wspiHnI2iOuPowuc3aelsvF80R3z5so7WHU +4nnVUzMdzwdbvC9FGA6j4vG96vYRFFhJB1Ph+4YRVz1p9aADBeqFmYYBicMo +PEPlmO4oC0zrFRIvJQ8j4/KGDfsHWPDfn5tj8WnDKOenZMmVPhYkssMfvHw0 +jOZVrs304XpdFOoiMlM0jAoXCOvlFLFgwJzVFtSJzzvJcbwRzoJHHRFHzsuN +oGcWgxbpLBaoz/smRyWPIP7vdgWfzWXh8MmOaavro+ia+rz2liZpMHt+gHJK ++IuM2jaefbdbCkIyytSSE8dQZmSG4pJZJsxWvdOKvDqOLG2+Chp9lACR531z +72MmkNvQudIdmDd+nyUiY+MmUFOA2oE+zJvWASO2W8IE6lisQJ26yIB7Kqkb ++FMnkCxb7GHmWQbo3XQ6afh0AqVd+ePI8GGAa2Dz8OvaCXz++25pCwYUosrv ++YsmkdLLT7d+Y30j5zjpd0FsEl3ZPOuTTGA9FKC2wF5iEoXtTTS3nyXB8lmY +4jhrEq130hCv+EvCN2VDpzUrJlFmY21D3jcSRAReNT8xm0S0+0P/SktJcK1+ +9DEzfBKxCnetux1EQvqSC6vcL0+iBN3VWuGBJPw6tf+WUuQkCurjUkf9SfBZ +Lul+O3YSjaltqtvqQ0LAhbPE1bRJpPisLWmxEwnXwFr38NtJVB2cnFi0iYQv +t9TvqpdPosZF5oUv9Ehgcun0X5WTyFbbqvzpWhJuJ736sr9uEonybj7Jwvon +Y3qJr03PJFrU0v8mg03Cb+t/jaLfJ9FFK6ddmVg/aGS1bvzUP4m0hfx6HzJJ +eOYQudCEM4mWn75VlLuYhOK8ifs6c5OowvTNrRqsb+YX1S8aJXjIWYuR0oz1 +jdF/j/xyaDw0qmcW1zsmDmGvwtu8hXjouq9d28CwOFSQ+2HpYh4a2OoiQAyJ +g7DXhgffxXhIgangt/63OGwrZYqmSPBQrkjvYBPm1TVp7nFHaR6q1PO6uAXz +6Yvvxw4ZiofiXbOtzL9hPn5IM2qS56HDe68Mi/SJwy65s1kxyjyUXdLHf+CP +OCQe3yW+XY2H6u1+aArg+3V/0j4pvIKHYlCEQqE4CUpLRLo/rMS2gtR0yHoS +3E79NDm/moco5G3oGIDjVf/2EdLhoTfWKU8tG3C8lt1hzOrx0CHDUb3Y7QzQ +CDkRWLiJh273KSR6/2GAb4tV73HgofSUfupmqgQ801Q3XW2C39t8WEramwlj +4fScIVMe6t/V0fVXVxJ0u3qYD7fyEJqenvQnpODU2lenPXbw0O+I01+ViqXg +dUTsN+WdPLTEZ+TcPw9pIL77mvfY85Bkj2V1/bw0GG8wf5q4h4dAJTKMuigD +F2KWSO9y5iFbrddp+v9koPLXXBDTlYeKPLVrOB6ysAha++rceeiCKzfgT5ks +bL+VuzXSi4fOJftcr5JgQTTnaq65Dw8919b/xNvDgobNB2QFjvLQonil5OwE +rK+SDEPKjvOQjshyPW4d5t2xVaJ1ATzk1P9HLoiOeWKucKfrDA+tkpb/umUN +BQsVRVcMhPCQ//g/bbm9FOyZmC3ghfFQXdCNf7lBmHfVA5sFLvNQxg4UeS8R +66l77Q0SkTzEufrm8VHMs+2BH12UYnB+04pF4jDPkncUcjXjeGjnx76vft2Y +d6oPgjYl8NA214fS7hw8f8/GLbJI4qENVaBQhPvzjS9hCQ6pPFS1kXIvwv28 +L/PYUvd0vD/4TNR93O91gl1f+GXhfFQHhOZIseGCnbVxyGMeEtqXs3ER5leL +OtRHPuOhs8lfw35i3ixboLUv8QUP5ZXGFB/EfApslRvKfMlDTbrCOsVL2FCV +s/h0/mseIl7Qb09hmwqfEXr/lod2e0+HGWL70N4/N+vLeah9adH7HMyz16vb +VHo+8pDUdNPF3di/qFBl7mAND6lXmb5xwOfv786H6Xoe2mgS5fQa8/VZXnqt +YDMPvV9F23mHyYYFEbGOku04H6+6RejibLB1Of9HuZuH/lQZ2AhgXk+IuAgY +9PPQl3PSXwQINpj27Yjd+gf7L5llyGF9F//KQHk3h4eUP7H1pv9SsOEA2+D4 +BA+RJjRf9Z8UROgvqg6dxvUd2XoiqpeCTonp3df+8VCo0PCRZqxPz5a2+D8U +mELBT/YdXlFNwTvZG497paaQRsDGbTufYv1cvVDOUncKbWrx9jgeQMG+1ZMz +qgFTaEW5zqN/eP45kdK5nnN6CpEVRksT+Sm4KlZ2Mj94CmkdKVFdP8eCwqGr +f7dcnEJnubczA4dZIP5QeeDAzSlk9/Br0eIWFpQpb2/PyptC0v/g46n7LFBj +pheuHJlCObmE0HHA+n/Cxl/HexoJiE2lVJyRBbGQ2udRR2YQX/CQJ++nNMSU +ynTJ+c0ic/rTkTk/KXDQXkjb7TqHXJ0tC5LVJSH3gOxwl8c/tDfTqCCjSwKs +az+3ie6ZR5ZJL9OCChlQ+U3Jv9JpHrXXsv5TzmMATB4TP+cyj7pt+NUqnzBg +laKM6bjnPAr2Cngh9YAB4n778zpOzqN3dxzHSuIYUCc5EpUZN4/SO4NeGx1j +gJUTw8Sofh61rb/UIaiF/R9165lpnEd8+V23qldg/xfyT71onUd+382srqth +/0/2PFvWO492R/nnKcpj/3xp8mLceTRu+tbYXIQBnl8SZn0ECLA1ldz6cYCE +ZSdWtGxQIUAsUvTA+SwSBkqc9ECNgCcr+l+IpJOQszAmYfMyvN6NrpqQgvVT +0uReKw0CTiZMuj6/RYLh+/e97msJMHN+aTceTsIexr4/0SYEKJq4tOS4kpif +17fe3ELAzoYioa3OJPSml2cnmhFw8Veb3a/dJHis1zicsY2AeiUjIzVrEo7t +n/pbZEvANdrI3icI66WcG3P9bgQ0HPK3ncB82sH74DzoQYBfRYLifcwnhtF0 +yYgnAeipGG0n5lN80/5zs4cIaFdsFstbRMJehdjvfIcJ8PycoOshiPWhV4WJ +4FEC7u2O85flx/ydXSnI8CdAhUGtOT8tDp5bXDylTxJgPC6Tu35CHDSiYz+y +AwnwPvHZcQTrK25bxQrl0wQY3Fme/ATzKnfJTMTSIALekG4HYjCv/H00hzSC +CYj9abu2G/NKr8Blu3YoASWqHaQS5tUMEfdE9zwBu9KMlm7HvHpjUSmuH05A +jUx98BTmVWjszFGjiwSk/dVvSsX+Tbo1G0wvE5DlcJlaRJAgtMx1rWUEAQ+a +VjRFKZHw6WhcnE0kAS4NLzMUcDyjiionHK4RoKom+jUshwQb+qyDUwwBVuGL +vbYvY4DkDq2XrjcIeHx534PMSjwvxbuyPOMIMM/vvfLwigQkfos77XOLgDVn +elaHuTLBWeNjp18CAWHhQmYahpKgdGJWPyCRgI2y9RrKslLQV6KVHJREQGmD +1i7rr1LwYOF/xPlkvD7Ym88hThq8d950uZRKwFSYgKnZWhnQTPpYFpmG6yOh +7v6GEhkY6Z9dciMdx2v8WvgyPVmQClLv8n9AwCrx0TNPb8vCJok9N3dlEdD0 +n2mC5ogsuGZd2rHxEQG//oaKaOqz4BIqEJJ/TID1pT8l9BAW5DT9eEs8ISBZ +vtmg/RXm1UHm6e9PCaDbrm9I42D9xWe89kMuAeeUVZasY1MgH390KDMP1//G +1vItJhSYaKZkROTj87vL0/0OUOD9vnafbyEBMoVd04YXKIjeMydj/YqAxb5e +2eqpFLwYVv+yppiAH1pzZDyez9sv7ImQekNA2Tc3qe+4/xFyl02mSggYHiNp +zphPas8L5jre4nrJ2itiPYT7oXl//pt3BOjnl4fPTlHg18M8klpOgCnLdSCB +xoZb/sbLwypwfImNFY4ibChe5PfN4yMBTLvmgGO4339LTUk0/0RAIJq6KYj1 +jZDeZ1uNGgLqfr4eNJBng2btnIjYZwKcyR+xGzFfbN00KkbqCOhyMXNiY/4E +Tu8JafxCwMv4OM85bN+Nvry+oJEAV9ZSHR6236sVjiY0E7Bbfu3vJdj+U9z/ +6EwrAQ+JsVdx2J/4Tkn3fe0EVCaeHdqPebXut7G8UScBUm53RW9hXu0N9mtR +6SZAt+6roZksG0IkU6MFewl48bZD8LwkGzIefTb/8xXHkzz625ZkQ7XhvwU1 +3wk4nrXo78fFbBht0Sh+8oOAW0dT3YcE2aBPu6Lp/5uAzRXfOjzmKGh0NJEg +RggI/5JZt7CfAj7Rl52SBB94u8pXEM8pcDxy77ChPB+wbu03s9uK548te4u3 +KfKBWmXxR0ec73yKuXCXMh90NTQzPPQpEK8Iv+erxgcRp49NB2lhfsl5NSVq +8oHF+9uMdxIUrPiktXHCgA82PHPju9fJgknV1wKP9vFBs5n4iyeHWXC9oyWJ +mcoHdrHbX4zg+vXe11ulTy2AK4GitS4KuN4NrIb4biwA5V7xr7dLpcCYsBr9 +w+QHH5Zqa+IePP+1K08sj+KHXO1nE06KTBiPC++MJGlgVvX27+peBti8GWuJ +kaCBxIQhdbSDAU/7/2uIk6SBxnEt/2fNDDika1SVJEuD1Bq5Ep0aBnxr/Vfw +WIkGfw6039v2CvOFCrhRs5oGA24FHs9jGZCd6m0hYkODgv0TVa5Y/whXtW0m +bWmQKc3IrtiMeTFqZihpT4M8BpW/0pABS4yX6sntoUHtwEfjOV0G3O77rrrS +lQZbrI7qP1RlwKWlTnyWfjQIWdbluZGPAf893lF49ToNVptnJuq9JEFF+dUi +31gaLN+YVyL6goS+myr7dtykgS1HufvHUzxvh0zRGbdp8MBbf+GtTBLcd6bt +vJVKAy+NGZIeT8KBqQlO6lO8v8D7ldhJzC9fF6PzuTRwr9D0GvfD+unbpzi3 +PBpMjuaIdvqS4FmdsmlpIQ0eNs5syvYgwSvZ4kp2CQ00VxxX3GVPwsHNd1UL +ammYN4frunSw3nklFBhfh/er/vz8ZTUJg5rHqgO/0OD23nNllStJOCRjdmxT +Mw1qbuuHFKhifTYwUvq2iwbxRyMcUiRJ0NzvyEzroUHGt57fd0gSOI0fDoR9 +pUH58DWf2yIk+L5JFDX9QYMNaopm8XQSDsdsdqwepMG3x3XGyePisErg6ZPH +HBrsCgoPTsO8GT7F4r82TIPingeSOZgHT7lh9kdG8XsC3oi2YN4cceNmWY/R +IGG+fL19P97ftntOewLnRydhYyzmzbDleysmjwZZcvM3jDFvnpZp3h+fokF+ +t/TJMPz9qG7CZPMMDVb6rEyQxP60s/m3Fs7RYEHTge5ofJ9RRd+7CfM0YEd6 +v3uI9V5uXOvIKT46FJz8tcphDQl+wsabHfnpUJptkRd/mATt4Mfx+nQ6BMt3 ++N+vIGH0r/SgvCAdzonpBisCA3I9zyFiIR1WqHxZ+qWNAce6Bq9/FaaD79RC +8clrEvAq5mvgwGI6fFAgHshjfbRgS/P+cVE62FgXxuVYSIL5dJXpvDgdHg/5 +/uAukYLonBLNhRJ0qAuIEq0dlIJW1zxJCUk6WIqPraenSoOCdNYsW5oOGwo0 +c+qQDHh8SvquJksH/wPmdh5VMpATfL1qFUWHwyfmv7QYycLEmovPNsjRQZGt +LeX9SBb0f52ON1Ggw6ZpUXMjARaE3TkSvF2JDgpd39U327Gg2srdY9cSOuh/ +4G0Sv80CJn2PpasqHd5W/Mr518SCvS+3rz20lA61o3Ppa4QpuOdjTJ1YToeg +7z9F03Up+KOktyBEnQ5VeVlLVPZRoN2s8fvySjq4l+ZtdgulIPCKUt0NLToI +BiUKEskUlBpIFSStpoPdcdngIMwbob/Cdx+socOkefpV61oKdjyYD3umQ4fW +/PYL3/B8fnPv2MEiXTqMVTuduDJMQbfYb5vy9XQ4GhzdHY/7p+r7rvWfN9Jh +dw2x3lYI65GAL4pt+nRwMdNdN4P1Q55GheB3RIcwFYmn5dJsmOkt4gwa0uHf +S+r1D9zfjeKeNk0Y06H+SIr0JUU2XDFPLya24O82d0WasB6qn0tIEzajQ0hl +4dgw5odMbtQVpgUdSiwyj81ie7/H+aPy2+iwvEFNRBLbmayAXcu208GDtSzU +DvOFW3sIaVvRYdGc6GwT5tm68y5qm2zokOrusTubYsNZXXuRLbY4PwVXDg7i ++5UPWIztsKcDZW6vmSnBhsUpqGP3Ljq8ed7QxhVlQ6LQ8iwfRzrkBl6PdsR8 +/VYsF33SmQ587pGTt//h/n6UcTJ0Px0uFqusiOdh/do2YxLnhuPbHaI9PkBB +88Pa3uJD+L15gYpi9Xh+2Peu4oMvHdZJG3QqVVHgLlGYU3eEDrbjE4PL3lEw +djr1TN9xOkQ8KghRwvqVYXlcZnEQHXo8xkyn4ymw5Mpa7Y2kg6hE06bh/RRM +cBdeM7qG67vpzlmfPRSkDE/VLI+hg/Czkm2DO7G/kbatvFhcT1VJVzlbKLgz +lmAad4cOiHY0mr6SgsEpWfT5ER1GGo7YB02x4CqNpWlcRYdPXBOrmBssqJJl +LVYXFIA7CdX966pxvSeHvo47KwDj77XXqNjLwJBgoLUqIQhLP4g+0G2VgguX +jPuEAwXhLf1L/fQlSXiXGFOodloQ3qiUe24/LwnEk56rRkGC0DXgeDYtSBIC +m07rnAoVhOC4H0ts/CThkHLehd+XBUHIaofl272SYF2ssrzytiB8cZcu69eU +BPYw3Te8WBDEuJdOb21mwi5+W6PUN4JwROm5am0dE+Kk7km9LhWEhfYsI5tP +TBDVNygZey8I302l65xLmcB35YS4W40gdBQqrrv8kAn9S37mGnULgq61QLNy +MBOW6OpcdO4VhM7eCyeKA5mw3+L83lPfBOHPS73zDseZ0HZEgZbbLwgNWTk9 +MV5MqH7tYKfExe8Jkk2UtmWCUH36cv0RQXgmf+1G8XYmbO77O7frryBYrvId +dzVnwhvh6IzoSUHY6u3197kBE2bkuk9lT+H9Y+FRzuuZoLdaY0fljCAk5S2O +EV7LhOMmp5b0zQlCRnvQdIEmE545VE7Oz+P3nMsu81jOhP8BIn9KIg== + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 4.1000000000000005`}, + DisplayFunction->Identity, + Frame->{{False, True}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, Automatic, Automatic, { + GrayLevel[0.5], + Thickness[0.01]}}, + FrameTicks->{{None, {{5.15, + FormBox["5.15`", TraditionalForm]}, {6, + FormBox["6", TraditionalForm]}}}, {None, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {4.22096091503719, 7.035146364336634}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}]], "Output", + CellChangeTimes->{ + 3.685684836182143*^9, 3.685684899373105*^9, 3.685684934519516*^9, + 3.6856850869151773`*^9, 3.685771388558601*^9, 3.685771635524642*^9, + 3.685772417972056*^9, 3.685779984653523*^9, 3.685780050584177*^9, + 3.685780155491983*^9, 3.685780417010921*^9, 3.685780763047028*^9, + 3.6857808051056337`*^9, 3.685780855285448*^9, 3.6857809456693573`*^9, + 3.685781069874989*^9, 3.685781154708826*^9, 3.6857848637369833`*^9, + 3.685785051208489*^9, 3.68578511975957*^9, 3.685787073486369*^9, + 3.687077174632674*^9, 3.687090609016458*^9, 3.687091867557672*^9, + 3.687092196121331*^9, 3.7103811547228518`*^9, 3.710381943604562*^9, + 3.7103819767627563`*^9, 3.710382077031267*^9, 3.710382339772437*^9, + 3.7104959611295357`*^9, {3.7104960082026043`*^9, 3.710496033550729*^9}, + 3.710821998314497*^9, 3.710822401440489*^9, 3.710822693938757*^9}], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.6631237556772783, 5.059450813334131}, {0.68541099386381, + 5.05827743801483}, {0.699827209167197, 5.06764643081042}, { + 0.71475601887573, 5.086023826420054}, {0.7284885614034877, + 5.112929097533294}, {0.7383014588904864, 5.142651405652801}, { + 0.744939306828797, 5.176448235560368}, {0.7477502951848498, + 5.211265696941825}, {0.7460826139250745, 5.2440498994830005`}, { + 0.7305464793822267, 5.292269296777347}, {0.7176674540788954, + 5.304257907375546}, {0.7027186323077941, 5.307668587214951}, { + 0.6874570826151684, 5.303564237772302}}]}, + {Arrowheads[{{0.062499999999999924`, 1.}}], + ArrowBox[{{0.6697094199832774, 5.291081329669611}, {0.6540699140067214, + 5.279746042545659}, {0.6221038266337331, 5.240778343296033}, { + 0.6068277553704865, 5.216946436816766}, {0.5926722640884666, + 5.192105361379456}, {0.5796373527876736, 5.166255116984101}, { + 0.5677230214681073, 5.1393957036307025`}, {0.5553586743211116, + 5.106630120059311}, {0.545401916548393, 5.073733625162852}, { + 0.538255794382286, 5.040849370685529}, {0.5343233540551254, + 5.008120508371544}, {0.5343289268145883, 5.002789156159335}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.5343516643182804, 4.981036621994629}, {0.5343572773776949, + 4.975666715590901}, {0.5391102461607777, 4.943607669713602}, { + 0.5456411683575092, 4.921525741110058}, {0.5556068870389465, + 4.900003419024698}, {0.5697471307542351, 4.879512067179381}, { + 0.5877491967138815, 4.861969831440761}, {0.6112577925618348, + 4.847780940366533}, {0.6412516806019564, 4.8399424357443115`}, { + 0.6753776079902166, 4.842859433444956}, {0.7152503264025558, + 4.862313810013366}, {0.7366594613413127, 4.880876448320528}, { + 0.7535265180609187, 4.901081028922247}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.766069396959668, 4.918807747313854}, {0.7755425336605265, + 4.933488691576033}, {0.7920135920877625, 4.965495142645348}, { + 0.8075094467531096, 5.002271243182795}, {0.8217357509741533, + 5.043161283309515}, {0.8341374918168081, 5.087852898843798}, { + 0.8443681893483246, 5.135759049046215}, {0.8524462963882944, + 5.185812009201332}, {0.8574751494168074, 5.229071912711141}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{0.8593849886269922, 5.250735621402616}, {0.8620449784873218, + 5.287615670058291}, {0.8633941730439991, 5.336664772789712}, { + 0.8626645883874939, 5.383589786612091}, {0.8600829634789584, + 5.427889135349538}, {0.8558915764787538, 5.468469370415515}, { + 0.8503202741878744, 5.504710541152004}, {0.8435771485284242, + 5.536821318275912}, {0.8358702914225069, 5.565010372504138}, { + 0.8324562740984252, 5.573813246817854}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.8245908052086941, 5.594093968173995}, {0.8184547275241755, + 5.609915540096024}, {0.7991834060774337, 5.640538954417818}, { + 0.7788690113294876, 5.659425021479962}, {0.737598739685867, + 5.674589202634545}, {0.6965021515103618, 5.6651211809285735`}, { + 0.6714570893903369, 5.653551413741027}, {0.6470255370440054, + 5.638839509974118}, {0.6231515100211439, 5.619881727382336}, { + 0.6000029616724225, 5.599989292702203}, {0.5775059370622941, + 5.577035562972703}, {0.5706431817605429, 5.569758390684547}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.555720468589284, 5.5539316638298315`}, { + 0.5348842502159058, 5.531198191332223}, {0.5147299156368474, + 5.508456347734149}, {0.4945590294354606, 5.485714128031941}, { + 0.4751309912759737, 5.463065417884092}, {0.45644580115838695`, + 5.440510217290606}, {0.4385034590827003, 5.418048526251478}, { + 0.4212614975376102, 5.3956795757894565`}, {0.40467744901181324`, + 5.373402596927287}, {0.38875131350530956`, 5.351217589664969}, { + 0.37348309101809907`, 5.3291245540025045`}, {0.35344517936394393`, + 5.298488570574921}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.34170829847905393`, 5.280177094906493}, { + 0.3183519437540281, 5.2416600509999345`}, {0.2973393008626949, + 5.204225784366195}, {0.27798553871891307`, 5.167059836476425}, { + 0.2601924575139879, 5.130159997059176}, {0.24386185743922428`, + 5.093524055842991}, {0.2288955386859277, 5.057149802556426}, { + 0.21519530144540316`, 5.021035026928026}, {0.20286382781689571`, + 4.985752280920672}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.1961830335990262, 4.965051257698566}, { + 0.19120027226789085`, 4.949575067559921}, {0.18332565047859656`, + 4.9229366045160425`}, {0.17621240782426206`, 4.896441479205276}, { + 0.1698691440735575, 4.870088937154309}, {0.1643044589951529, + 4.84387822388983}, {0.1595269523577184, 4.817808584938527}, { + 0.15554522392992404`, 4.79187926582709}, {0.15236787348043995`, + 4.766089512082205}, {0.1500035007779362, 4.740438569230561}, { + 0.14820382513442126`, 4.699683657360054}, {0.14929540987346918`, + 4.659279130346709}, {0.15101696428470038`, 4.644154024332054}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.15347697670787067`, 4.622541028277396}, { + 0.15385475487764108`, 4.619221972643417}, {0.16270754091975093`, + 4.579509700530939}, {0.17716318616619614`, 4.540138846248483}, { + 0.19948469863210827`, 4.501106220163758}, {0.23295957318852978`, + 4.462409168591042}, {0.2644328181895766, 4.437236189545729}, { + 0.30646930570063374`, 4.412205213208954}, {0.33235694307849684`, + 4.399742850693337}, {0.35668831554655606`, 4.389942037534814}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.3771757794575606, 4.382658415627479}, {0.4003726808201234, + 4.374923626795274}, {0.44587499105147715`, 4.362715880143613}, { + 0.472766282669435, 4.356779065306058}, {0.5029240087950241, + 4.350990926329513}, {0.5370932830647366, 4.346701355363108}, { + 0.5762279939761547, 4.346015624268837}, {0.6210210614504957, + 4.350094780267612}, {0.6721654054089766, 4.360099870580346}, { + 0.6969176941802088, 4.367401882416586}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.7171367204151157, 4.375380142959478}, {0.7299373023971312, + 4.380682931593374}, {0.7611789735022303, 4.398252020183276}, { + 0.7939343172316686, 4.422421211121558}, {0.8279293503390731, + 4.454612100295208}, {0.845226387339384, 4.474203682799405}, { + 0.8626581090525756, 4.496373563196808}, {0.8801272720821478, + 4.521257999445072}, {0.8975089206271083, 4.548965022928385}, { + 0.9147127393920755, 4.5796379482477665`}, {0.9310471599991721, + 4.612220750831979}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.9401128886308433, 4.631993159988408}, {0.9423919018484443, + 4.636993856338638}, {0.9528350043068582, 4.661748150250315}, { + 0.9629777204569069, 4.687682971739255}, {0.97282005029859, + 4.714798320805457}, {0.9823619938319079, 4.743094197448923}, { + 0.9916035510568602, 4.77257060166965}, {1.0005447219734471`, + 4.803227533467641}, {1.0091855065816684`, 4.835064992842894}, { + 1.0174548166576227`, 4.8678031384887195`}, {1.0252815639774082`, + 4.9011621290984255`}, {1.0326657485410253`, 4.935141964672015}, { + 1.0343871980342971`, 4.943722570995768}}]}, + {Arrowheads[{{0.06249999999999998, 1.}}], + ArrowBox[{{1.0386659567740688`, 4.965050146648608}, { + 1.0396073703484734`, 4.969742645209486}, {1.0461064293997528`, + 5.0049641707108385`}, {1.0521629256948635`, 5.040806541176072}, { + 1.0577768592338055`, 5.077269756605189}, {1.0629482300165773`, + 5.114353816998177}, {1.0676961439357378`, 5.151705195624797}, { + 1.0720397068838414`, 5.188970365754782}, {1.0759789188608886`, + 5.226149327388132}, {1.079513779866879, 5.263242080524847}, { + 1.0816364809564765`, 5.288335062739615}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{1.0833656843381037`, 5.310018460473807}, { + 1.0853704489656892`, 5.337168961308373}, {1.08769225705851, + 5.374003088955184}, {1.0896097141802732`, 5.410751008105359}, { + 1.091297209626226, 5.4512344257245555`}, {1.0925810427353921`, + 5.491401159164176}, {1.093484575440508, 5.531113303457881}, { + 1.0940311696743121`, 5.570232953639362}, {1.0942441873695408`, + 5.608622204742297}, {1.0941731644601396`, 5.636039195743972}}]}, + {Arrowheads[{{0.062499999999999944`, 1.}}], + ArrowBox[{{1.0940244816874485`, 5.657791063655819}, { + 1.0937629408752225`, 5.68265788984725}, {1.09311540055115, + 5.718028513916627}, {1.0922244591343615`, 5.752368478010618}, { + 1.0911091994155535`, 5.7858685773524074`}, {1.0897914730420366`, + 5.818506918807259}, {1.0882931316611226`, 5.8502616092404445`}, { + 1.0866360269201223`, 5.8811107555172315`}, {1.0848420104663468`, + 5.911032464502889}, {1.0829329339471063`, 5.94000484306269}, { + 1.080930649009713, 5.968005998061891}, {1.0797175915529185`, + 5.983700572647755}}]}, + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{1.0779789702385094`, 6.005383426024089}, { + 1.0766488517517943`, 6.021334979209109}, {1.0743781284310316`, + 6.046753698203717}, {1.0720378467429224`, 6.0713595568759455`}, { + 1.0671995825462282`, 6.118185655444139}, {1.0622360077248425`, + 6.161919199295425}, {1.0571805231575553`, 6.202744592846521}, { + 1.0520273596178193`, 6.240891086248402}, {1.0468197105107593`, + 6.276531872484218}, {1.0416007692414988`, 6.309840144537113}, { + 1.0383776866931762`, 6.329163822010841}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{1.0347066834646954`, 6.3506040654785485`}, { + 1.0308931389801343`, 6.372055345570348}, {1.0255521549749353`, + 6.400113988492791}, {1.0202197250533918`, 6.426139993019111}, { + 1.0096156406991241`, 6.473039116886102}, {0.9991159991551839, + 6.513697747174012}, {0.98872263989649, 6.548820108132345}, { + 0.9784374023979594, 6.579110424010604}, {0.9664515364416089, + 6.609689800062339}, {0.9546107080399473, 6.635723080029101}, { + 0.9429149171929752, 6.65721026391089}, {0.9402271896076722, + 6.661152260406214}}]}, + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{0.9272389986075876, 6.6785350786592135`}, { + 0.908683809768237, 6.698253290082484}, {0.8865556854306251, + 6.711886946189501}, {0.8439029793411769, 6.716542536875447}, { + 0.8107166749860454, 6.706635389626586}, {0.7788350307216068, + 6.689095201932557}, {0.7482077040474608, 6.6665917194039075`}, { + 0.7187843524632074, 6.641794687651188}, {0.6905185426019671, + 6.615731427592321}, {0.6633638410968606, 6.58942926014523}, { + 0.6587525436065946, 6.584768550254094}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{0.6434533584814822, 6.569305426569395}, {0.6362792826425568, + 6.562054476854522}, {0.610256876781623, 6.534792775772859}, { + 0.5852966235140586, 6.507644156900236}, {0.5613985228398641, + 6.480608620236657}, {0.5384806003784833, 6.453685330902605}, { + 0.5164608817493597, 6.4268734540185655`}, {0.4953393669524936, + 6.400172989584537}, {0.47511605598788487`, 6.373583937600522}, { + 0.45572172380887416`, 6.347105365204605}, {0.437087145368802, + 6.320736339534875}, {0.43549764673370595`, 6.318401244973839}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.42325736741328984`, 6.300419342356514}, { + 0.41921232066766845`, 6.294476860591333}, {0.4020972497054735, + 6.268326928373976}, {0.3827225199079072, 6.2373847863051095`}, { + 0.36434282358079706`, 6.206595925007235}, {0.346895954616926, + 6.175959416271144}, {0.3303197069090771, 6.145474331887627}, { + 0.31455187435003373`, 6.115139743647481}, {0.29953025083257867`, + 6.084954723341496}, {0.28519263024949526`, 6.054918342760464}, { + 0.27147680649356676`, 6.025029673695179}, {0.26686202177906704`, + 6.014547842820436}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.25810770237016445`, 5.994634753445634}, { + 0.2459292624662255, 5.965693609445178}, {0.23408301142563145`, + 5.936245118554794}, {0.22281038585726393`, 5.906942015470944}, { + 0.21207784437875452`, 5.87778357043123}, {0.20185184560773467`, + 5.848769053673243}, {0.19209884816183614`, 5.81989773543458}, { + 0.18278531065869053`, 5.791168885952835}, {0.17390565395534344`, + 5.762581836219604}, {0.16546290267481398`, 5.73413593592001}, { + 0.1574364210836942, 5.705830483331958}, {0.15215081014154397`, + 5.686321121579553}}]}, + {Arrowheads[{{0.062499999999999944`, 1.}}], + ArrowBox[{{0.14660151121984744`, 5.665288669531078}, { + 0.14254972403605154`, 5.649638114402084}, {0.13564823711271232`, + 5.621749794616065}, {0.12908047694515049`, 5.593999115653192}, { + 0.12282580779995803`, 5.566385375791368}, {0.1168745770904201, + 5.53890793192184}, {0.11122051165957364`, 5.511566158970731}, { + 0.10584804491863818`, 5.484359382268256}, {0.1007416102788335, + 5.457286927144628}, {0.09588564115137913, 5.4303481189300635`}, { + 0.0912645709474945, 5.403542282954779}, {0.08686283307839948, + 5.376868744548985}, {0.08266486095531349, 5.350326829042902}, { + 0.08195836824318596, 5.345615087406548}}]}, + {Arrowheads[{{0.062499999999999924`, 1.}}], + ArrowBox[{{0.07873278475999321, 5.324103024028672}, { + 0.07716835826165129, 5.3136695498502124`}, {0.07205503601522395, + 5.277263550420278}, {0.06729548580630984, 5.241107089491237}, { + 0.06286029922518718, 5.205198425801233}, {0.058720067862134476`, + 5.16953581808841}, {0.05484538330743011, 5.134117525090911}, { + 0.05120683715135234, 5.098941805546877}, {0.04777502098417954, + 5.06400691819445}, {0.044582276726775956`, 5.029311328337761}, { + 0.04210760290210371, 4.999930894053844}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.040411853672421255`, 4.978244665857435}, { + 0.039067121751881956`, 4.960631981776565}, {0.036742894520104416`, + 4.926644933224637}, {0.03470635644924851, 4.892890773260211}, { + 0.032956599282170713`, 4.859367855959575}, {0.03149271476172746, + 4.826074535399021}, {0.03031379463077522, 4.793009165654837}, { + 0.029404805945060265`, 4.740574450501835}, {0.030158865557797298`, + 4.688713365001444}, {0.03219311554307131, 4.652317472604315}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.03382254458747269, 4.630634800408841}, { + 0.03898358456659368, 4.586685524535229}, {0.048723892730297313`, + 4.536506441579844}, {0.06417764570998487, 4.486876343057478}, { + 0.07477116317231515, 4.462264898270211}, {0.08727577461630276, + 4.437789189798886}, {0.10568176393515005`, 4.409252281892531}, { + 0.12932411682899558`, 4.3808988760556}, {0.1537643495103062, + 4.3580417219757255`}, {0.1701020693691896, 4.3459540031633495`}}]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.18780723835413282`, 4.333345552644789}, { + 0.2135950480270411, 4.318090847327846}, {0.2493594539409804, + 4.3009462138608905`}, {0.28319334570039956`, 4.287732149590299}, { + 0.32421384574760553`, 4.274558683609555}, {0.36283308269915676`, + 4.264328303627857}, {0.4092075506503334, 4.254122408166482}, { + 0.4532741825798693, 4.246317487988733}, {0.4785069835191578, + 4.242616520190387}, {0.4979102460076536, 4.240087653232087}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.5195713102183604, 4.238236293969974}, {0.5573492930467119, + 4.23599257524706}, {0.5866334253515044, 4.236486351652851}, { + 0.6182814729910776, 4.2383284141087225`}, {0.6524987561022957, + 4.244080746989232}, {0.6894905948220236, 4.2563053346689355`}, { + 0.7292569891502669, 4.275002177147835}, {0.7717979390870147, + 4.300171274425928}, {0.7940646952724048, 4.3159469434826665`}, { + 0.8169367360875842, 4.334868725975205}, {0.8194219291804142, + 4.337265014906601}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.8350808390006497, 4.352363750046424}, {0.8402920475735002, + 4.357388535226434}, {0.8640086157711, 4.383958284559249}, { + 0.887911272874218, 4.414955398744624}, {0.911824851076689, + 4.450757302553546}, {0.9338486316775085, 4.488714697788165}, { + 0.9552657776645186, 4.531263689893901}, {0.976076289037725, + 4.578404278870767}, {0.9862540567441498, 4.60369642218587}, { + 0.9962801657971155, 4.630136464718736}, {0.9971686249717812, + 4.632631080382229}}]}, + {Arrowheads[{{0.02474176090450419, 1.}}], + ArrowBox[{{1.0044667644223118`, 4.653122796272837}, { + 1.0060651375708891`, 4.65761070838658}, {1.015519493439736, + 4.686005455106617}, {1.0246432334036502`, 4.715320704878835}, { + 1.0334363574626315`, 4.745556457703229}, {1.04189886561668, + 4.776712713579802}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.062499999999999965`, 1.}}], + ArrowBox[{{0.6046524486184166, 7.2}, {0.5983280611475902, + 7.192543179593463}, {0.5748419188756299, 7.163831269618011}, { + 0.5522416385951907, 7.135233517581794}, {0.530527220306273, + 7.106749923484817}, {0.5096986640088763, 7.078380487327078}, { + 0.48969131621452844`, 7.050124304885098}, {0.4704405234347566, + 7.021980471935395}, {0.45194628566956097`, 6.99394898847797}, { + 0.4342086029189415, 6.966029854512822}, {0.4165021984484508, + 6.938111171695898}, {0.41466782163814586`, 6.935112833416555}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.4033156803426501, 6.916557452860288}, {0.3994897924322785, + 6.910303936074804}, {0.38320085059987075`, 6.882608596900663}, { + 0.3675469757628889, 6.85502380642011}, {0.3515137755739323, + 6.823319098021509}, {0.33620353228701105`, 6.791761690931337}, { + 0.3215340530739688, 6.760349565425833}, {0.30753273554419114`, + 6.729083394746252}, {0.29350441000432925`, 6.697816553755333}, { + 0.28009023012756334`, 6.666694326967658}, {0.2672901959138936, + 6.63571671438323}, {0.26218036948617707`, 6.622787721202303}}]}, + {Arrowheads[{{0.06250000000000004, 1.}}], + ArrowBox[{{0.2542183613537263, 6.602544947806201}, {0.2434787701576341, + 6.5741939940755705`}, {0.23235978997862805`, 6.543646210855254}, { + 0.22174736682630164`, 6.513240366341099}, {0.21164150070065496`, + 6.482976460533107}, {0.20199870398930433`, 6.452853183479721}, { + 0.19277548907986614`, 6.422869225229391}, {0.18397185597234028`, + 6.393024585782115}, {0.17558780466672683`, 6.363319265137892}, { + 0.16612082172786508`, 6.3280496477497055`}, {0.1572048121873658, + 6.29297627864802}, {0.1568151951737818, 6.291359268906259}}]}, + {Arrowheads[{{0.06249999999999994, 1.}}], + ArrowBox[{{0.1517197638579376, 6.270211932447823}, { + 0.14880088221877097`, 6.258097830955792}, {0.14087013799562254`, + 6.223412977795975}, {0.13337368569146246`, 6.188920392291523}, { + 0.1262726314798327, 6.154618747565393}, {0.11952808153427513`, + 6.120506716740537}, {0.11310114202833177`, 6.086582972939912}, { + 0.1069940519866143, 6.052846800864567}, {0.10122170669560196`, + 6.019297673393429}, {0.09576419672163818, 5.985934545916265}, { + 0.09060161263106623, 5.952756373822844}, {0.09017511953822242, + 5.9498772679791}}]}, + {Arrowheads[{{0.06250000000000006, 1.}}], + ArrowBox[{{0.0869876136598901, 5.928359529578971}, { + 0.08571404499022954, 5.91976211250293}, {0.08108158436547147, + 5.886950717346296}, {0.07668432132313537, 5.854321143742708}, { + 0.07250234642956459, 5.821872347081934}, {0.06853469340188471, + 5.789603380373686}, {0.06478622461900044, 5.757513326664582}, { + 0.061245773639923826`, 5.725601186399748}, {0.057902174023666965`, + 5.693865960024311}, {0.054744259329241915`, 5.662306647983399}, { + 0.051760863115660735`, 5.630922250722139}, {0.04935485860650277, + 5.604294100279525}}]}, + {Arrowheads[{{0.06250000000000007, 1.}}], + ArrowBox[{{0.047471960413266394`, 5.582623233897365}, { + 0.046272960367078335`, 5.568674202319076}, {0.04375188496651553, + 5.537808645538414}, {0.04137396385918557, 5.507114221019957}, { + 0.039130690919368674`, 5.47658997234924}, {0.03701356002134502, + 5.446234943111797}, {0.03501406503939483, 5.416048176893167}, { + 0.033123699847798324`, 5.386028717278884}, {0.03133395832083568, + 5.356175607854483}, {0.029636334332787125`, 5.326487892205503}, { + 0.0276627014170274, 5.289993936311152}, {0.025994975452885753`, + 5.257060535607788}}]}}}}, {{}, {}, + {GrayLevel[0.5], Thickness[0.02], Opacity[1.], FaceForm[Opacity[0.3]], + LineBox[CompressedData[" +1:eJwll3k8Vd/3/0WzxD3nGq+hDClJIkqGtQoNMlVSRN6KRGQoGkgl0kClXDOR +e0nIGCJFZhIKpZCpzGOGQnzP5/e7f9zzeD7OPmuv/VrD3nv9KefDtpwcHBxa +1N//nsr/79cN//8pjHcCOHTsNnSDm+fdPN9twpgQGlEdL9wNZsWW5s1bhdEm +7fAxVY5u0H6+efKKvDAue6jWUFTbBac9ZG+8lxHGglunTp5x6IIwi4mZ40LC ++Fs3ya82qRPahC+ZRf4TQpvbYzo90AFX96Vdca8UwhDiFre8xHfIfOReU2Aq +hEGKJ8pV+prBpmam6NSIIO4QYfqb23+Gg7KlayvvCqLKUwVpy531kFIWe9FX +XBBdzk8K8jrXwL4ko1uSbwRwOhB5nTrKQbf+qrPFEQG8dsHDtUaqBOa3pusd +HeHHMUF56e/bi8A6pjwxO4gfd19S1hLhK4Bae9sH/xT4sd2o/6FRew7Ut2+7 +69RIx+zBQRXL01kQfUrfXewaHTn2njbgVE2HCL5AsUUJOtoaek3u2pwO6w1q +chLE6WhNGtt4rkuH+UO8doZidNz0kfmU5E4HvofP1sSI0HG+YoeYdnEaXKyr +PqfFT8d/E3s07UTSQH1r9eVbq+lY0r7V3ulrKjzkqHgvPkXiu6BVbZ9LU8F8 +SZla1W8SDfhMt+plpEJVYWjFhQkSxbvzr5+5lwqr9F/JVo2SGHzgk+lJzVTY +P8f+e3GAxPHBSvqhhBTY/2Zld/0PEjfe/cS85JsMIQcVisOrSSw9PeF23jUZ +1FMzYuWqSMy1Npa+cjIZrJXrIgoqSPT+II3VO5PBf7a+va2UxDvXizktR15A +cNBrttQ7Ej3Pneg7ZPkCXGudt2RnkVjWPX+zTy8JMtpmBfqjSLTJKWu/vCsJ +nu5YtfdaJImp0tk6EnJJcMXw4kNaBIktSzR9X65KAhqfmeuuUBKL/0Wpt1Q9 +h5Lzsq6BQSQKTvl/dTN8Dgl/N1vtvE2il1SwsLV9ImQqXe+NcyaxJFYsTsIi +ESw3TU7BeRLTqlw8pg0TITglRKzdkcTnns0ew9sTYW6zZZ6IA4kmhx+Vc3Em +gnVzIYNpQ+K+gtNyQ7EJ8MJIM+yBGeXPTjTQZCbAnYPZOxWOkzhR9CTp+d0E +cNDQmKg1JdHDpTPoo1sCBH+/lM5jQmJzdWeu+d4EWCvtaPbAkES9kxeNgybY +4BX2+kSwNokS9+kpzD42TK52CFDZQ2L5As0pp50NHH/WNjcjiVIu/a8NathA +k9uaLaxF4kW3c/lf2Gyo2xcaGbuTRMlaU6+SKDZE9r1+smcHia0tG1s+PGGD +R+N7Vo8KicQ73YWdPmyIcb9B26RMorxLvprnf2xAtSv8WVtITEzZsf74cTZU +B0U1HpUn8eTShoEjxmzo5A5L+SNH4s4Usvk5sqH0KF+i1kYSfzjO9n2QZMO3 +L41lNZIkZi24dEoPs6DDWDJpQJD6vq/c2qmXBcoFn08lCFD23Ty2fu5kQZjn +SqVT/CT+fXHg+EwzCzj1p/m+EZR+l57YJrxngfmBgvpqHhI7le82txWyQNXH +StV/DYma9MQfyq9ZsJjsmaHNTaKM73srjXQWlEgI9L1ZSSI5ohdd8pQFggnJ +pulcJFZEmBydjGTBMd9eOydOEvNGTcZ0wlhwcuThA7kl1PvPZp57g1ggkL1O +lL1AYMHND1UzgSxYprb81ql/BLoqdmZW3WPBtcjDixLzBIaeTyDqfVlwz0Bk +Z+RfAnF4W99SHxZYVzyePP6HQImD/AInrrNA+4JjucAMgf0+4Tsdr7Ig5ZXm +i8eTBPLq8wfIXmbBRQ+lN8a/Cfz2KWZqqQcLqgt9utdOENg086hygxsLYrcr +ut0fJVDTr/HRORcWnHpwr+XACIFvXn6X/3ye0rNkl+nKYQJHB8kPlk6UPmeh +r3yQQLfsgWhuRxbcJUIf+g0Q2H29tqHVgQUGx1Bfp5/AZYF84Q32LJisURPn +6iNQOKFr88BZ6v0Kn2XvfxF4O9S9aAPFgrGCnDd/Ejhi/irA344FPFv+kthD +4GR/YPkain/qyKgvdhGopjUYn3OGBce9Iy697STw5KHX5n4US7gcq7rWQeBy +sZ51VygeTTdX1PxB4OeIY/KPKb715VnKfBuBZ0oXM+spfnRVQetNK4HWTyoH +tlP2GxTnezy/U++XxKx6R/H8o9Vx6t8IFFjpqOtM+Ve97bjb3FcC6XHijbrU +eiaSuo8XfCGQszxucA+13i2Pkk08mwlM4zj+/sw5FuzyfGmr3kTgEgY+yaD0 +ucM5eH/uM4F5U+0RUv/T861VRcEnAo1zgvgLnVlgtZdbyKuBQB2fV+DtygIF +5aFrGvUErr2eeNTuAgtKRZf8nf9IoNyn0ieX3al4R+6/W1hLIBHnoJp5ifJ/ +b7GC9wcCd9Omr9Cp+D/Ite/XqiFQaX9pxFMvKr5++HqxikDt2GjbbVT+GERc +CLtZQWBu/voVXn4scHLuTZEtJzC6Z6515g4LuFXgW20pgTJ7p8x9H7FA3fbJ +dZH3VL41zSUwgyl7uwJmiooIPL2K17mFyu/mZus7du8oXpJb+zeOsq8VNZn9 +hsCB4Cu0LwlUfXr8qztRQOBhJ9bmvmQWdBpvL+XMJ9Ai4IFmYg4LPpcwZoxz +qXzqUDF+9pEFH54+vT2SQc33p+CdbBML1No9N4akE3iw8FNB93cW2F2Q6NZM +o+w/7m/jGGBBxM1XzwJTCLwquurqt5Vs6DEb1FNIJFD63esZcRob3rrXZzaz +CazTC1sbLcwGleTzytdZBJYW3HiwbzPVf3TqvOvjCMwMV/b/7xAbtK1GNS9G +UfH57R7gdYINXe7nzolFUnq46R1psmUDy/FxRnk4VR8rZn5oebLhTneLv3Ao +gWUpV3kWnrPh1lExi6IgArfpOexY84oNv2veGjo8IvC85e1Q82I2uE3Om9Ef +EhjPE5T9+hsbgnT2558NILCV6211IF8CuO/rjyP8CazcXijzQjwB9HO1zAr9 +CPy3/7D96i0JkJkhuemsL4G6PS+iwvQS4JHKQ+LtTQLjbHmP/r2TAP7LqrjP +eRH4aucWTk0yEapvbg+pciVwnYXa82DpRODY8PRSgAuBRwL44xRUE2Gc3/S8 +kTPVb86oGm42TwQhifjIJkcC/RLC3EzYiVBWFTTVZUflX3tl1uf9z2Fp6U32 +kpNUfd/4fv7uyecgkbbse5kFgcEzNrvvXnwOZ3jeydw7Qem9UGJjH/ccit0+ +zBJmVP9a2rCuYOE5+KyRi5cxIbBNr7dpXWUSHO/MGDTUIzAwZu3Sgq4keG/S +dYF+gMCpk2Yez/8lwcdr22jf9hF4TKGNfX37C/ims+G+rS5VH3t2JSgmvACV +37u9riGBLkU8LgoRyVB5ZenhDFUCw+OFNPTykyF7t8fmyyoEGt6zHiv5lgzH +hcaEYTuBD1INuz+LpoCy3rRK7TYC7/2pVPZkp4CIhozDgDyBm60n94dUpYKi +T0PxRikCLXk8/GV+pwL7v+OtzespfRnZnEpiL4G2w4PXbx2BBhPHRSvcXkJ+ +vPO7TjECu0RS+zik02CpjezeKCECI/Xys9qN0kH0mMgw/1oCh3g055rOpkOl ++q5HZWuo/hM7eJvfJx1u+zUedOcmsNGmQ8XlVTo0bHJd07SSwJJtA96JEhkw +0CGUxeQicM5+jusdZyYkRz4JZvyl4Q4jsfpH6zIh28r37YcZGoYEj5XkaGWC +udBnDu9pGh6uFbbg9MoEb8NbHzt+01D8etNM+mwmmKn8C0wcoeEhv/80VFdl +g5FddaRaDw11fzVovZLPhrjfZXpDXTTcjlvlQ42z4bE0F/G0k4ZbEprn/MOp +9zbq/Ut/0HCs+4imhuIrOL3gmt/QQkNri5Pcw645sLTJ8ZdzHQ1VLRSSTkTm +gNnlFVJyH2nIG97+RL0sBzQD+zx6PtCwWJA30EQkF7jPXLIxq6bhrcnCct7q +XFAyDDfVKaPhOc3369rxNeRzX2WKF9BQUV86Zanbayj2ydb99pqGtSGS27Pi +X4NVuwhPSB4NHcW6Ol+uzIcBlk0nTw4Nn/70umDUkg+hIm+fLqRT/qyEqfKQ +N7DDScCtJ4GGVx3yT2DDGzCr2B8cx6Yht7CQgdWaQtgXGlB7kkXDfcPeG0N8 +C0GWY49fSxwNu6IMeGSvvYXMFpVV9VE0/Okra+C+vwgCBBusix/TkKcxntPh +XBEU7D06eT2Ihrbf3yuXPSiC3oj6aK1HNLwTVNaS3VwExpIJKm8CaVgn1P/q +2bli+F4UcznvDg1P5OBvmeT3oGt8TO+VNw0N/kittf/0Hkz1dEvuXaOh1Qp6 +uujsezDREDb+z4uGw30JfK16JSCZ78TmvkrD3w826QyMlwDPQrzWaXcaPomr +f9txrAyYK8TkBByp+ffKpnD6l8HjOzUdQw40nM5qC8nKKYNLn/WSS+xpOKpY +H1wjWA5Z3jmernY09Ctr0BboLIckZbHVH09RekfucrB6XAnBmRyt98xoGBjx +cSy2phJyb4nVnTpOQy3ze81Ry6pAd8V0065jNGSN3+iu96yCqK5G8UETGhY8 +exAe4FoN3qIy0frGNPzBG1uS5vcBGlz69ch9NOrkpzlu+uEDzL2XujKkS8P0 +3pbFP2QtPClfWlCmQ8Mp9V1puxNqIZv16srlPTRUhjAtzy8fwZb/ZVe7JpXP +FRanu/PqQai50TptOw0l/y3/ptBfD9m62TRXZRp+3uG8+YBIA/hEBH9VUqLh +ugetVxa9G+ClwaHknK00vHlV/+HaI58g/2iAzTs5Gt5rGL3qeO8T9NjrfLi5 +iYYO0jlbK99/AmGRMT2djdR8OjyXg1U/w7YURmCVDA1nX0jfO7y5EYq2MKWb +1tGw0sz6+PlzjfAst0A7TILK/6lOvoqURlgWVXnlhDgVj+9O1SbKTZDe9ECu +i0HDALMvDZyHmoHzbUzMmABV39mTmVJRzSD0oepiNj8N7/bJf/xK3UfLZ2ut +L9Op+LPLd6n4fwENiRM3OAgaVpd41x5q+QqexuZ1NB4aqv1xKE9WagF7hXUW +zdw03OsbvVPwQQukzWYsRqymYZYbZLkc/AZnK5TuS6+koUA7n9Od1G9w3F79 +Qv9yGnIqe9CWEd8hksvF7eUyqh9YKSg86PoO3qWX3+3komHPlsaOWsNWmAoT +0F5YQkOnkvi0lsJWuBt32KqUg4bNSx42f2C1QZrBx2smC3xosKsh7rdoO9BE +O3jX/ePD9WpKEbZh7eBxTtp+dI4PHSZuBr4J/wFBGQdvP/3Lh53zfYYzvB3A ++qK41fcPH25RKOblOtoBX9/U3Lk4w4fFN28sCkR1QG15f/iFaT7cT37zP/Cz +A5JVZZb7TfEhfedMeYZiJzTWlk+kTPLhw/cJ1XbenaCjknBy7Dcfps9zbvH9 +2AmBP2N7TCj2THHYt259F8w6tip3TvBhd2pk9VGPLnh6wKcqimJBkc+VWh+7 +wMl9m8Mjim8d0zOc2tgNxONff8v+N/5u6O4nt7vBImCxZj9l7/ypmaZtvd0Q +I/KuVIaav/GStX2/Xg/87rK0OEf5F5RIRNdn9IBqecgqOWo9X7b38s4zfoKq +3WnZi9T62RP5ghI+P+Hr9DYn2Xk+TP61r0dl8CekjnB3XF6k7EcbRuw/9guY +lj5dXlQ8mmNPhpqX/4KbCx7L9ah4bm1oUXbY2QvSQVylf6h8OHKVq9Y5tRfW +X5iKiafy56tbffUJmT5Y9djX0E6UhvHNjWsEY/vgcLCl/ikqn93lX0jfEOuH +3KWKQq+o+uC7slrlXHQ/mDm8TL2pTvVrk36HWIkBSBgTPzK4n4YmTo+4v8cP +QP/Bkk0CVD/QvbSws3LTIGQlDwVvoPqLZKVl1PKMQUgRUPRBqn8N0MXkN6gN +QXh+cPRtql96j49tel48BL8e8NoJJ1H98VLjpcUDw9AvGrVaoISGFdXqGx43 +DMMp2TQtJrX/PBc65FtwbAROWa088GKB6gcbG00+fh8BeYMoljW1P08rasoJ +WY5CeJWyQJEOdR6TXVT++W0Uhj2zSovPUee3T+k798iNQVPJ9hAzJrX/zhwW +SLAZA9df5764FFPn4+tGGkZRY7Cf1aPZS92XTkztzpuuHwNVs/t6T9aROHNO ++5oV5zh8s+Di1j5C3Td93/QfUxwHV/EKpUJ/EmV5Vb7nm4/DUr/ca+8LSYyx +UdzjcnMcEvKk9vNOkWh+dW6bE2scvObLdSy30NF0WM4tq2QcdvMs32l7ho4L +LPVY4x/jwAedsR1P6bgtxmnaYmYcxJL11O+30HGidq7+L/cEPH+uqy9N8mNx +qswaY7EJkBtZ9dJZnx9vCdmbPNg8ASrju0NV/fjRzNfeu1d1ArRLv4nuL+TH +h/tWzz6CCYhec+nilUl+vDm4z6lYdwJ+/GxYYMsJ4GCG5PW0AxMQA8br06wE +cCTjVcOjgxPg4eay0uuJAB4aKFQLp/g6vV3hb5kA3v/yWGqWGp964+m44IwA +xrSLinTtnQBTSUPBjxsEsVjxtpfXngkQU3+nx39UEIvMGk+Ma1Djd9IfD9wU +RKVEXmdbyr8ffPqfDVIFkZdlKDqrQDG3oPXuL4KoodUUUrthApbuNXpQtSiI +dqlFPbPUeg3vJFgObRBCd8s+5Qj6BCgm/SIz9IUwj1tXuHj1BDyxaf4t4SqE +/Id43Xw4JmCfgAuxJ1gI15Y9s+EfHIeuG5K55c1C2Fo2o8fZMQ77MwNOaE4L +4bHXL+qKGsfhKz1J/iFdGDX+llp8KRwHq7IqiWEDYex6SI/RyhyH9km2KY+9 +MBLZFovMhHG41P29QPGWMOpHv4ze+HAcpoT5yhOyhVFxqeK1hFvjsBjzjCOs +RhifHZ0dlbo8DspxolV5ncJoElP7R8Z6HCL11QYSuUXQ5YFLdOpRyp6sV4+v +hAjSO0kxdb1xEOdPzn6pJIIT77jdHJQp/+XNJjiPieBFJbnVPBvHwdZuIUnt +rAj+UZBdlys6DvJ7ObuaLovg9GP2u/XLx+H24NbLJmEiKHpnBI1bxkDtaND5 +qXoR5NvKsFT4OAYPhY8t+dkmgvxqexrJkjF427qvxWpABC8H04omU8ZgjV1U +7nJOBg7s5d48FjcGqRFrV+ziYaBK0LO2iZAxSP7xWn6FEAM5xJyWr705BjHN +duJe8gyU4V5zYYPHGFxZ0Swip8rAW4pi9L3nxiBJ89cZb2BgiEBQR8TRMWCo +Xlsic4iBzBRV8QiqPkvu1o9lujBQJKA+aVBiDHQf2Ua3XmJgOymho8M/Bp1H +f10o8mbg5dYdj1dzjIGtA3vg7X0GZrQ7XRkbGIXtp/wD24IYuLAzvbylaRSe +a2vrvw1l4Fg2n0xz8ijIabG9a59R451qpPpDRuH8oqbTYiIDD6tzTa/yGQWp +z4TLbAoDBWaOjV08PgoGch1yh3MYeP7GSa3RZaMw+VJxPqOc+l7l4jfn8RGQ +fL+z0bSagbt+hS1ZaB2BJUN8WvW1FN/Qqt2TPQJa+z9V6DYy8P7iuNXfpyNw +KzFQQ+cLA0sDuM0L74+AHauLS/QbA9fd5rJ2Oj0Cv88dHDvxg4H9FtoWZkYj +UD+esKG8k4EFf6MjD6uPgGyd4C+eHgY2qRkKmMmOwOe1A5u2/2KgXFtEiSM5 +Av1Cre1qfQzUvVETEbg4DH1V+WMSAwzM05F9UjBI9ddb8Qd7Bxl4tzW3VKt0 +GFxCnuqJjTLwuslZw/6XwxCyptkveYyBGwJPSsaHD8PQneFHwhMMLLoRoeLo +Owx5/sYXzv5mIFee3DUd52GogByZ8EkG1nCrjGw2H4Z4s6z7KVMMtHfqvCap +O0ydP3b7x08zUO3jsfUbFYfBcL/FrPcMA/9sLqrVYAyDxPuhcvjDwOknBpf/ +Wz4M5he1y35R/GK9vsCT8SE42yeZf/EvA0+e5o5ubB2C9xtm7AYoPtH7bYlM +5RB07ZAP2j/LQC+N1bt8s4agYc+WPw8pjmsb2zURMwSL1o5mxRRrrOeYPX9v +CPx3t1q1UTwQ99Jx1n0IlO/pZ/VQvGPW7U6w9RDU9QTMfaE4vbRkj6bBEEjN +OnbkUrx0RjRocucQZGmoLvej+CEv3T5feghOpwlwIsWbN+wtesBH7Wdfwbaf +8o88YhzgOj8IBTe6i25S7P6y7v2pvkH477xywiqKNQptzE41DoJQhS3rJrXe +NMlKXZeiQfjgskFrgNKntu3NtYCUQTg+oz+uTXHlzLKZnLBB2MCRpv6Q0vPH +lTOJo76D8FRRMvIDpfdJj3hfVddBSCt1Dpin4rHmR6jvfctBaHhi4iNBsbrU +/lIr1UFoW8lWRCqe022No+2Sg6AWbFGiNc7AA+vy+R15B2G0+jSvEhX/ddl+ +G9P7BkDiwhrbP8MMjFiUMmmPHIDhZ+Xya/sZKH22SP3DnQHIcdo6+aaXgeUB +xz9WuA+AUv1q09NUPqYZ+db2Gg3AUVsV0bBuBnZ/5ZOqXjoATVZz5Is2yj/B +VYelJ/rBVZDgEG+l6o/rQvv9H/0gOvvt432qHr4GWvb75PfDK+4+milVL8WE +0Rte1354LWk2n1zPQCGLWOGojj74krE9MOA9A5PNdFT/1PVBvtGO+1+LqHwt +ML5o9a4PXDiEV0m+Y2D0y1xVo5g+WBDr5H5ZwEDxkIZlWRZ90P6caZ2aTdWD +9iobv++9sK3NUe+/BAa6vO2sk+z8BVih9En6LgNvaokcKFz9E2pANMvWkIGP +wiVdigI6wd3+xMBLqp9ecm+NX2/VBj7sRwUeVH82VXizZ/THVzBcE+1u0ieM +Wy1v8zSVNYJC5cTmTldhZIuM9rg+aIDi9cWvdywTxumnNXzG5bXgslDBvBgl +hFZ9f3c5/KyEfG9FsVx5IcyN/BR5llYG8o1+56FcEE1neueuBRfDzRa6Ar+Z +IKZkf7U5mVEIgWKyFwYmBZBzYHA+feNrSDxrEX0sWAA1uMUVFJe9gnpz/V/W +WwTwwOXd4tvKM0A1a1fV+Ed+/OsSHVAXnwoie/5V/ufAjyveLs+Lr3kOVyfM +tp9dxY8h8qdMlRZY0LM9YN47nY4rfi4ZjLkdB8d+fLF7d4iOdzfoZ326Ggeu +JG/df8Z03J631XGtcxyEBvcacBrRUePin7DoY3HQSfd4rKtPR//eFSCyKQ6k +t7Sq1u6lY7WOcbV/bSycWbQd7FCnI99y1j2aaCyEtgbOCG+go3rTjxSbmGiQ +ZJbs/zRL4ike6bahe9Fg5PP48I2/JC5KzNnfuhQN3yVy3BT+kJinejD3u3E0 +pN2amrpHnb+OTHFy7VoaDc2hm1fqjpHocsRWJc8pClIkN5sX/iTxvFf5nXX6 +kVDQJP/ibT2JutsOHw/cFQn/ynM9netI1Fqb5LB6UyT0/Xf29LqPJFqL1rJU +lkfC0szt7j41JPofEpg/XBwBpq3Gz/aVk7jEZ9/g210RsErZeH1zAWW/Q62L +Xz0cOpRUnnMlkiil6vzQWS4c+sjoxQg2idvnS106hMOBnvfDRYlForCZhd/K +v2Gg3jUcax1HYvYnrmGPvDAw6furWhxJ4uoLlUcm1cNg92olNb9HJCrfexHe +LB8GxD+7LeIPSUyc3rLss1gYRDNOqOcGksgb4y/L4AiD0muurP57JG75EPh4 +pCwUUrQ3Jxv5Ud83SFY3mIaCHareXXeVxAMuAlwuB0LhW6+1UMFlEtNiztRs +1giFuD1bio9eIlFoDePX/PpQsM2OtLp/kcRi+mqxNaMh8F2eVTdznsS2jKeh +Qg9D4J9b1dWm0ySyz/+5nXorBOAIPd71FImOO5JIm8sh0BDa2cNjTaK6/Mu1 +O06FQNHcXPbekyTyW/p+9NwRAq9G52+/Pk7ixjqO3Dd9TIjiChmLNyDx5O0z +47IdTFgeNGllpk+iqQqnefYXJmyZd/659iCJp+P25GyrYEKET67S1f0kku9f +R5clMkFpzKr5kDYVv31x+rtjmVDH7TW9Yg+Jm4hAuY4wJkwqJcm/RUrfp18v +3LnHhDf5it/ltEjkS6DBPWcmBBjX4DI1ErXths9usGdC5tm9tDc7SHT+eaik +9xQT9uaXz7ipkihGRql9N2WC8KaG5Z3KVD71DQ/yHGKCpenxrWFKJFodPDN3 +5iATclvbnYy2kRjZ12MeiExQpffIv1Ug8ZjaZTihzoT1TVap7ltI3KGr/8JY +lQmpa5u0t8iTGFJQr54lzwRl7oTMqE0kalhxnrdiMKF8+etQL2kSb5QdZrkK +MuGO/ZeK7VIkGu0WykolmcDp280zvJ7ENwmit1hrmJC4+Pa7pQSJ0wl9X61W +MSHc5f5pAXHqviP+c9ve5UwYyIMldaIkBkqe1GByMKF/0swbRaj6SncOWfgX +DMrzbyz/CpHYd4xbJ3guGJyXcB7JFCQxXfp8uOnfYDj3QPbkOQEq/lJNA7oz +wfBHXv66ND+JJ6yvBZyaCoafZ9bmtJFUPQ/Ef0r5HQwc5R84QwkSD9f40WQm +gkG00dbWmEZiId9/0TVjwbCc8bVtFR+JKhXO1bGjwfBAWtKxZC2JxnPjQ6yR +YPC9uofvGg+Jsa+lzL4OB0NOwo5q1TUkvl6757Q6xdNKHBFjq0ncuuKe1ceh +YCCSIq6/WEXpmbbzWRDFLY+XedqspPSj37/uR7HYVQgQX0Giz563B19QnNy3 +N+vrMhJXnhA+wUHZMzkrMvZ4KYlVF6ZW3KHY+FbeHgMuEntiBjJ3U/4IlUkk +r+AkUcSbWbCF8vfsa8NN7zlIVMh6fFOfWs/MoHah1yKB3T+8bWLGg+F6378z +OxYI/MeeLpGi9Mjf5blhYp5AjcSQxdbJYOr8kD+XMkfgYrC/9gpKz7oac+E9 +swQyNFylLlB6t0rQD3/5Q6DBShPp9fPB8MKmh+04Q+BhW8Ua2mIwWAVX0Tmn +Cex9uzxal5MJ4knFMaGTBFbe+CJeuIwJa6Krtbf8JvDkkP3eKzxUfXGv+HF8 +jMD7TvLTb2lMsLii2jQyQuDMskF7PQEmuKad/+U7TKAeb3bu9nVMoFmMm2UM +UP76q+cFyzBBtHrHm3391P26fd9bjc1UPYx4q7X3EihpM7XNbgcTVuut8OP+ +SaDfS+GaAU1qfk+dI8+6CfzCV1WUp0P5Z3JVQ62LwIKjdUKqR5gQOFZhZfeD +wACTpIRf5kyYTfkevtBGYE08va+bqr8nXB0jzFYClzmyW8svMOGsa2Z/aQuB +sMSwINWLCdk3vR5afCXw0PWUhG4/JpwW32o82UwgV36wKoQzgTGlKyndSGDf +jLtTRQkTVkwsWeX3kcDP9z417qxjwqjaVz+xWgIlzly+svCN6kec/mI5NQT6 +G3eRd38zoY3vTHRvJRVP4YNFqRtDwHBuvP1gCYF/f3WbfVYNARMZE6WfxQTy +mWjeP6wbAlOV3rHeRQROxB4N/e90CPhel6nNKKT8X8XvWxcfAmoFN+yE8wg8 +1ZK8ujk7BDxLRh5l5RBo5Kw3rF4eAkZ6/E0Gryj/N9klbRygxjffSvXJJLBT +weJKpGoovBJIixlOIfC4UfiyTL1QOKCeFH0nmcAl9C00BatQWD50MFfqBYGl +Tz99MrsbCq5zPrvMEwnMM/+wiftpKHVeI1lTbCr++vHqMq9CYecJnY1BLAK/ +dtu3PK8JhRtjZIV8PIG6D5UaQ7pCgSl540ZlHIH/B5/bZvk= + "]]}}}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.6864124993081443, 5.147497275115406}, {0.6, 6.3}}, + VertexColors -> { + RGBColor[1, 0, 0], + GrayLevel[0.5]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.6864124993081443, + RGBColor[1, 0, 0]}, {0.6, + GrayLevel[0.5]}}, {{5.147497275115406, + RGBColor[1, 0, 0]}, {6.3, + GrayLevel[0.5]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-0.05257638144718597, 1.252576381447186}, {3.947423618552814, + 7.252576381447186}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.685684836182143*^9, 3.685684899373105*^9, 3.685684934519516*^9, + 3.6856850869151773`*^9, 3.685771388558601*^9, 3.685771635524642*^9, + 3.685772417972056*^9, 3.685779984653523*^9, 3.685780050584177*^9, + 3.685780155491983*^9, 3.685780417010921*^9, 3.685780763047028*^9, + 3.6857808051056337`*^9, 3.685780855285448*^9, 3.6857809456693573`*^9, + 3.685781069874989*^9, 3.685781154708826*^9, 3.6857848637369833`*^9, + 3.685785051208489*^9, 3.68578511975957*^9, 3.685787073486369*^9, + 3.687077174632674*^9, 3.687090609016458*^9, 3.687091867557672*^9, + 3.687092196121331*^9, 3.7103811547228518`*^9, 3.710381943604562*^9, + 3.7103819767627563`*^9, 3.710382077031267*^9, 3.710382339772437*^9, + 3.7104959611295357`*^9, {3.7104960082026043`*^9, 3.710496033550729*^9}, + 3.710821998314497*^9, 3.710822401440489*^9, 3.7108226940507708`*^9}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Hopf", " ", "bifurcation"}], ",", " ", + RowBox[{"detJ", ">", "0"}], ",", " ", + RowBox[{"Trace", "<", "0"}], ",", " ", + RowBox[{ + "trajectory", " ", "converges", " ", "to", " ", "the", " ", "steady", " ", + "state"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "ge", ",", "cplus", ",", "func1", ",", "func2", ",", "plot1", ",", + "plot2", ",", "plot3", ",", "plot4", ",", "Ge", ",", "Gi", ",", "P", ",", + "F", ",", "z0", ",", "Z", ",", "s", ",", "re1", ",", "ri1", ",", "x", + ",", "y", ",", "t", ",", "z"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", \ +"**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "0.7"}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", ".6"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5"}], ",", "1"}], "}"}]}], "}"}]}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"z0", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", " ", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossing", " ", "of", " ", "P"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"z0", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Steady", " ", "states", " ", "in", " ", "the", " ", "phase", " ", + "plane"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";", + RowBox[{"(*", + RowBox[{"steady", " ", "state"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri=\>\"", ",", " ", "ri1"}], "]"}]}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"s", "=", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0.6"}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"func1", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\n", + RowBox[{ + RowBox[{ + RowBox[{"func2", "[", "t_", "]"}], ":=", + RowBox[{"(", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"y", "[", "t", "]"}], "/.", "s"}], "]"}], ")"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot3", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func1", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.05", ",", "0.11"}], "}"}], ",", "None"}], "}"}], ",", + + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "2"}], "}"}], ",", "None"}], "}"}]}], "}"}]}], + ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"True", ",", "True", ",", "True", ",", "False"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", + "Automatic", ",", "Automatic"}], "}"}]}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot4", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"func2", "[", "t", "]"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"None", ",", + RowBox[{"{", + RowBox[{"0.39", ",", "0.35"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", + RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", + RowBox[{"Frame", "\[Rule]", + RowBox[{"{", + RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], + ",", + RowBox[{"FrameStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", "Automatic", ",", "Automatic", ",", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"Overlay", "[", + RowBox[{"{", + RowBox[{"plot3", ",", "plot4"}], "}"}], "]"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"Export", "[", + RowBox[{ + "\"\\"", ",", "%"}], "]"}], "*)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + "Right", " ", "side", " ", "of", " ", "the", " ", "SSN", " ", + "equations"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], + "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "x"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", "x"}], "-", + RowBox[{"Jei", "*", "y"}], "+", "ge"}], "]"}]}]}], ")"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\n", + RowBox[{ + RowBox[{ + RowBox[{"Gi", "[", + RowBox[{"x_", ",", "y_"}], "]"}], ":=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "y"}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], ")"}], "^", "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", "x"}], "-", + RowBox[{"Jii", "*", "y"}], "+", "gi"}], "]"}]}]}], ")"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"splot", "=", + RowBox[{"StreamPlot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Ge", "[", + RowBox[{"x", ",", "y"}], "]"}], ",", + RowBox[{"Gi", "[", + RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "0.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "0.3", ",", "0.6"}], "}"}], ",", + RowBox[{"StreamStyle", "\[Rule]", "Black"}], ",", + RowBox[{"StreamScale", "\[Rule]", "0.25"}], ",", + RowBox[{"StreamPoints", "\[Rule]", "2"}], ",", + RowBox[{"Epilog", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"PointSize", "[", "0.05", "]"}], ",", + RowBox[{"Point", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "ri1"}], "}"}], ",", + RowBox[{"{", + RowBox[{".1", ",", ".6"}], "}"}]}], "}"}], ",", + RowBox[{"VertexColors", "\[Rule]", + RowBox[{"{", + RowBox[{"Red", ",", "Gray"}], "}"}]}]}], "]"}]}], "}"}]}], ",", + + RowBox[{"GridLines", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"re1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{".1", ",", "Gray"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ri1", ",", "Red"}], "}"}], ",", + RowBox[{"{", + RowBox[{".6", ",", "Gray"}], "}"}]}], "}"}]}], "}"}]}], ",", + RowBox[{"FrameTicks", "\[Rule]", "None"}]}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"Show", "[", + RowBox[{"splot", ",", + RowBox[{"ParametricPlot", "[", + RowBox[{"Evaluate", "[", + RowBox[{ + RowBox[{"First", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "[", "t", "]"}], ",", + RowBox[{"y", "[", "t", "]"}]}], "}"}], "/.", + RowBox[{"NDSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"x", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jei", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "ge"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "te", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"y", "[", "t", "]"}]}], "+", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], ")"}], "^", + "n"}], "*", + RowBox[{"HeavisideTheta", "[", + RowBox[{ + RowBox[{"Jie", "*", + RowBox[{"x", "[", "t", "]"}]}], "-", + RowBox[{"Jii", "*", + RowBox[{"y", "[", "t", "]"}]}], "+", "gi"}], "]"}]}]}], + ")"}], "*", + RowBox[{ + RowBox[{"(", "ti", ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ",", + RowBox[{ + RowBox[{"x", "[", "0", "]"}], "\[Equal]", ".1"}], ",", + RowBox[{ + RowBox[{"y", "[", "0", "]"}], "\[Equal]", ".6"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "y"}], "}"}], ",", + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "]"}], ",", + + RowBox[{"{", + RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", + RowBox[{"PlotStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"Gray", ",", + RowBox[{"Thickness", "[", "0.02", "]"}]}], "}"}]}]}], "]"}], + "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.6856832345840483`*^9, 3.685683238440484*^9}, { + 3.685683270361025*^9, 3.685683392609159*^9}, {3.685683425575263*^9, + 3.6856834497172613`*^9}, 3.685683488392981*^9, {3.685683571770441*^9, + 3.685683667234864*^9}, 3.68568378728773*^9, {3.685683822482774*^9, + 3.6856838583704987`*^9}, {3.685683899688251*^9, 3.685683992627406*^9}, { + 3.6856841813268023`*^9, 3.685684183998352*^9}, {3.68568480064569*^9, + 3.685684805683517*^9}, {3.68568516017771*^9, 3.6856851610413647`*^9}, { + 3.685691833456345*^9, 3.685691834439756*^9}, {3.685768341510788*^9, + 3.6857683969199877`*^9}, {3.685768523654282*^9, 3.685768551311233*^9}, { + 3.685768646703397*^9, 3.685768647747795*^9}, {3.685772273862591*^9, + 3.685772286390493*^9}, {3.685772385172326*^9, 3.6857723877972317`*^9}, { + 3.6857748548546543`*^9, 3.685774864200262*^9}, {3.6857782885006523`*^9, + 3.685778288595319*^9}, {3.6857783777553463`*^9, 3.685778415967535*^9}, { + 3.68577851437036*^9, 3.685778640100889*^9}, {3.685778845811984*^9, + 3.6857788920838547`*^9}, {3.685778934765953*^9, 3.685778936325938*^9}, { + 3.6857790599772377`*^9, 3.6857790720858593`*^9}, {3.6857796972212257`*^9, + 3.685779714088502*^9}, {3.685779809119835*^9, 3.685779809879874*^9}, { + 3.685780602091001*^9, 3.6857806230600777`*^9}, {3.685785520542881*^9, + 3.685785532789974*^9}, {3.685785655412012*^9, 3.685785690260673*^9}, { + 3.687077113527005*^9, 3.687077122496688*^9}, {3.687077156616476*^9, + 3.68707715721061*^9}, {3.6870772165570917`*^9, 3.6870772946041183`*^9}, { + 3.6870773310239363`*^9, 3.687077346719512*^9}, {3.687077441688766*^9, + 3.687077451323942*^9}, {3.6870774869994173`*^9, 3.687077494340919*^9}, { + 3.687077651809629*^9, 3.6870776954895477`*^9}, {3.687077757293809*^9, + 3.687078067003785*^9}, {3.6870781197552032`*^9, 3.6870781218400583`*^9}, { + 3.68707815845107*^9, 3.687078164340597*^9}, {3.6870781985240927`*^9, + 3.687078240966535*^9}, {3.687090578318616*^9, 3.6870905860064507`*^9}, { + 3.687090663709216*^9, 3.687090663797771*^9}, {3.687090702497264*^9, + 3.6870907526580143`*^9}, {3.6870907985750427`*^9, 3.687090834301165*^9}, + 3.687095768996513*^9, {3.710381204109106*^9, 3.710381227370816*^9}, + 3.710381310083016*^9, {3.7103813957813797`*^9, 3.710381446641227*^9}, { + 3.710381483848954*^9, 3.710381543226528*^9}, {3.710381573634019*^9, + 3.710381614276005*^9}, {3.710381646875771*^9, 3.710381737498909*^9}, { + 3.710381829129504*^9, 3.7103818326729717`*^9}, {3.710381870976214*^9, + 3.7103819219838247`*^9}, {3.7103823484783*^9, 3.710382384501403*^9}, { + 3.710382422345564*^9, 3.7103824426547194`*^9}, {3.710496104249381*^9, + 3.710496114632662*^9}, {3.710822409759041*^9, 3.710822438255724*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999987551020408, -0.6999999875510203}, \ +{-0.00981290207609477, -0.6998129020760947}, {-0.00962581660116913, \ +-0.6996258166011691}, {-0.009251645651317855, -0.6992516456513178}, \ +{-0.008503303751615301, -0.6985033037516153}, {-0.007006619952210195, \ +-0.6970066199522101}, {-0.004013252353399982, -0.6940132523534}, \ +{-0.00019451530612244898`, -0.6901945153061224}}], LineBox[CompressedData[" +1:eJwVynk81Hkcx3EPRy2lPNaxnaTYKVlmKlo63rR2CRXSpLJNS7WlR5u0kqk8 +VNoopYONcnTMWkNSjmwG32wUOR7u5sLM72fG9HAWpWbS7Owfn8f78Xy8PrZh +R4L26evp6f2ku/83Qd2c+NhhD5IlBTMDDJVk4EKJwuPOFdRyl3tWZyjIpYDj +kYee3sa0v/KqN7koSEpIXTzr3X1stquUuLX1k97q3IiiS/lQOTgmzgjrJ6mr +1ohcdz6Cb9h0q1mTNBHwWkxvPiqBuHbavqdxNJEbe/waNvkEfA2/xduAJobX +8kabjSrA5PtXZV2kiENJZaI7uwo2x0frVXoU+VsTnrdk9TMs2ZKjXBQrJ9+n +C7M5ghoIC4MnE4ZkxE///sLMPc8RaiVRVvvKSOiUqiTvTS0qXAdNXgb3kZG6 +hPayGy+QG/118gDVQ/SSUs59dKmH/KO28RpHSsx6LP1nVDYg1rKs0qFPTO59 +eZtpHd4I9fwjYp8lIrLi8UYj/ZEmvDrHV1pHvCZerMn3iowWvLnXzrc43EUG +u5Iqtdat6L8hOukU0kFKJF1JE1Qr2JbH1HLvNrK23v/2wfI2SEXztne3NBOv +02f+eXG6HeNxz/tOzWkgyUXD2es9OtC3pt/SzqWWpNYnNLiadyKSXTVb5lRF +FuSLtFbCTlhczUtRWhWTvVE7uDGFXWBusZvqO5VGhsrNqt/FdcPMVuM9h5OD +8brzpuwNr8FM8w2zFZZCUGF/181KiGKNRXe8uAb6J855GEmFiHAZ2PzDsgYk +Fc/hD2aJMLitSB23vRVtHcJtQZFiXLbLKGLf7UR6FXvW3VUSXDdeIx/rFGLR +Fa1JpLEUMtVNp1uZPWAw9pszWqWwyGcMnbCX47d1hoqP13twcdP+6TWXaES7 +N6t99/ci8YO/z7iXEp+1WxecX96H0LQkt4hhFRZ369fk6MkQdUAZbTM2CEVE +TMjFgzKQayrez9NHoaJfvT/QKMPTpB2iq4Zv4de6suyCixzZwRUlf5a/w8id +k9xb6XKccRhZKNg9ARaTw6v4JMeLVk641PQDOleEjM0Lp7CbM9PIZ2IS5XOZ +G47UUbge706ZN32Ca4Qo8NuXFMxTWeHHOz/hScXZX3rqKaj6fbzEUp13dcX7 +NVFoo0MYucM6Z3EJo4PCM8nZ3zfPVqPUtm6tTEZhV89ib3mQGo+X7Vwd+JlC +/9HSh2YSNZhcA++vvlBI9zSIyqHVePTqAZtoKcyNjclwHtL5kDb6OwMapDbA +MnhK50JeqbEJjcatfrWFNho8ZI2y/v2GhiU3YT5vrwZOZ9M9Y+fSSLRfx9x4 +WNfbPQOZ82l8bl5YMBqtQeGx1MhsaxrugtcdHhc0eFDmVsS1p/FjcvHEOF8D +x2l0NYtBQ81zXs8r1nV2cotqKY1Ao+6RbQKdJ3uH2Y40mBts/qhq0v37JE6Z +OtHgHNU/fKxL19NZpnXONM5cThE49Or6G/GCUywaCqI8Sis1KHBLcFy5koaU +tfRq1qgG/wGOKlnb + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.6}, {-0.6999999875510203, 1.7459998732693895`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999987551020408, + 0.7099999875510203}, {-0.00981290207609477, + 0.7098129020760947}, {-0.00962581660116913, + 0.7096258166011691}, {-0.009251645651317855, + 0.7092516456513178}, {-0.008503303751615301, + 0.7085033037516153}, {-0.007006619952210195, + 0.7070066199522101}, {-0.004013252353399982, + 0.7040132523534}, {-0.00019451530612244898`, 0.7001945153061224}}], + LineBox[CompressedData[" +1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAhPrNiLEqYD/AIA67O1bmP+eHs+VA +oI4/ixPY5+/r5T+LUHZwa7mbP1XwUHnZiOU/j1jFgDHyoz8kKRZL/SflP96+ +pmqvi6o/KZV122G/5D+UNDvZNlqwP5NzUmpTXuQ/u6TODZewsz+hwh7N6vXj +P+EJQGdi97Y/UGaPaVmQ4z8EkajvzQW6Pw5wgcmUMuM/KrO8iDpWvT/tVXg4 +Hc7iP6f7Y6gjN8A/9v+x95hx4j84mNieX7vBP7tIBnA5GOI/SwKjHZxgwz/a +2oUv4bjhP1z96LOo6cQ/a1uwQZNh4T/uxYTStZPGP1gT/+HmBOE/AImPg/g1 +yD/OtyqKD6zgPxDdFUwLvMk/vEkCSUBb4D+i/vGcHmPLPxwSIrb7BeA/MrFJ +BQLuzD8a5asdiHHfP0Qx9/Xlmc4/vgy3fKnP3j/r1Ym8/x7QP1rWaOyVNt4/ +s9vVifTi0D8uMdYvR63dPzzITJtpt9E/nzjcTrQe3T9EfYG4xn3SP/U2cSDH +n9w/jK/tnj5A0z/mrpSMZyncP5TIhMk2E9Q/r5YQtg+w2z8cqtn/FtjUP2bh +6Vm8Rds/ZHJZenet1T+clSpQVtraPzmbiJ7ZANY/ZEgp6qay2j+IjfOw + "]], + LineBox[CompressedData[" +1:eJwdkgs01Hkbx2dplzRu6aZSKOm18SI0if2KEF10Iduq1qW1oi0JUY7YomxI +7BI7YhByS1i5xF+5RIxkzMz//5/rlmRTEt3sip33fc55zu98z/N7zvN5Lgb+ +J/f9oMRgMNIV/r/31V2t1slYAX4Ocm4si6Ix1ZmgfsBRiAbHrwec9Gh0OQ/9 +ftNZCGVm7ABnBY2cTkOT99uFOBv98c6sLg2HTsLlVw8hUnkpSn8soZHcMX1+ +8JAQYdc3Ouho0TBq/2ly9xkhcjdzXa8p0fBu8xK6VijyleK+ChmhYOJQ9EPW +bSEOWqsa5AxTmCUmp0ZqhBi/wPN7+JRCEXFVK7FRiJ0nltivlFGYaO1x6+gS +Ytl/ZkurhBSSWuzvOfwphHDni7rQbgrNTUaczUtIBHtNrdhSSqHaovDxHl0S +XXl6ui7FFIpL9Wd/XEliTdFs6+4iCmmZK3wyDUkUxCS9/jafwtEw7cVTZiQe +XWZY7LlOgWny+XKFKwnOm4PLOi9ROJI9FLo6moRJm3tw7lEK+7X25dnEkDD7 +7Syx15/C9kuPubvOk9Btcvuo5EvBMuKRSUwCiW2rfnrn40NBZW/bMHmNxK8Z +M8Ev9ir4VCu+TS8jETNtFXjkGwpKURccvhSTiFQa2MBeROFVnxHNlJGgndtC +X2tTEBh0n170lMT6zy5yW00KZb3MkjWjJFL3sNY9mq/gWZ2p7viORI2ReVLj +LImirlI6lqngNn4Xxn9BwmVxf/gnOwonM9/c768nYR4cqsFwUHCZh8dl1ZJY +TiwsVXGisJwVcN6nmsR4kLdoiZvi/7mA1fxbJLLuybdae1FY9ryYmcomMRow +pRH2E4V5VXXlmvEkkmqW3RrLpTClrK+u60JCo7bXyZpDQcPTtvr5VkXftbHS +WMXcd6xgJ5bbk7hRN6yzsJxCTN3HfENrBXd9dSyrgcJIzlrPljUkRE3bPRMG +KdzzS+flzAlh2h41t0qFxvgYS/vmHSFq2r/OCVKjoXTl06t4xV2xOqRWNeo0 +PBd6Jh4oEcKxc1uw8yIapLdf2whbiAMPtfghBjSqmxnvOZeEON9bWtawhUYk +znhF+QjxhEd67QulkaZa5uE+I0BUb1NawGkadyKMyFMfBNBvZ/eGR9IYfZna +mTYhwIka361ZMTRu5/kW1A0LoHZtdIP4Mg07u+j1GX0COO7+pBzIoaEv5hzn +5AhQ1720JnqQhula97V3/iuAT9v0q1/4NAq1X45VrRdAqUFkzCYVWrUwv8BA +gD0lebmtUhpDuhN5IToCvE4wTlIeozEY8ij75w98rHPa5JuiLAIr0Ca6sYmP +6y0HNDhWIiSwlwonbPmgfd3c320SYbquSFtmwcfKeXaJrltEcKvel0Ks5yPf +3WD29VYR2AG1St5L+LglHHtt6yGCqffQjGRiCE1v47hDx0QY689rtCscgtio +PFk1T4TAfKqidYaHVT253T4FIiyq2PH94FsefI+nzbt9U4RVwypMwQgPwzUR +MV4VIuiZZKpUDvDwGg7HCxpFiN22ITirkIfZg/wddkOK/Ha073ThQT91Ti10 +vhimLVoNlbGDuLje4MUvTDFSm7XZUWGDGH3g2H5TU6Gfq3lvDBxE9ceEc6LF +YhR7PmdG7RrEVj/mKxdDMdqbTqfbrRiEv5UuV2+LGBbe0xUFtU9QRFte7T0u +Rnf/0aYfhANQjfAMGTkpRtFT1dXzewZwXDPS9YvTYoxdZy7PaRqA1bbGOZto +McZHyi9dzB1AZyVCCxLESO8rMI32H8BI3M690TfE2Px0to7z5DGMjQN1jAfE +cAzjr/PjchGXV/GdJU+Mg5vmwkMquKCXTnHsBQp+m9SCXVe4SFaNM/cUi6Gh +d4SRvZ2Lib+yd8WPinHX9lyc6/0+NFRwL4kYEjTUMFT/LOuFu6X1zFULCX6M +P+X66nAPCsvOOf1uJcH27IMWNzf1YMbwwS/FmyRgpnW8NNfuQZWOh26LvQRJ +PWLDtvZu6LwPsnnpJoHfuzFG47puiO+yQ7f5S2B+bUI8/qwLJ+znPf+ULkG5 +5KMvy7YD/n4+pi6ZEjS/tN9ordaBAwk1ERnZEnhyHX0+UO34huv7lVm+BCf5 +xfc7otqhebjFOKBSgsak0LArtQ9QHRMZzH0owV9KWabJevcx2Tz6hjMjwcW3 +gWp+F5oxIgPrzZwEExc3OSfqNINWzoqzU5biEzeRWlvYhAc7nLWF86VY2HRY +va+tERkijiVzqRSJN7wS6t7fhdU/30VEWkjhzsstOedchwhb7t/ugVLkFxW0 +xE6WItlr/7Pvj0lROvRHQiSjFAWhVG/4cSlm+jaWBKqXoL/4OftGmBRsblzQ +hrU3sU5n9pvJWCmC4vufWjlzIBgzu5CdJUVofVuyrDQdrNy0BaPdUkzE3DG4 +cC6F2N2w5N1MrxTXW/d85fQijTjKY4u1HyvqVWnJNXQyiLT5tyq38KXQ+nI8 +LOVUFvFXxH2Pq39KoZ81pWdmlE/k7J7MsPlboVllXWdtbhEzc/tXJnwtw4Cs +JIxhUE9Udr38Umwmw70vXM/Ie+uJIynxbywtZQgPnY44f+Yu0bb89gM5S4ai +7nqVzwMNRIK12jE7F0W8MkB/fkozoRHS9seUrwzmGotln39tI/QFGzz8MxXx +v58VLojtIp6w21mN2TKs06x6qCPvIn4O+M5QK1exlI6nJxMdHxLDE5fetxTK +sLBfpbVCtZu4teDZ77p3ZBhifDylktNDWG7NHh3olSHN6rCK65M+wlCgdD+P +Icf7BWYazo+eEBGlviFOSnKsyMz44PLFINF9tnXxC2U5ug6lT8ezBokTq88G +m6nIYUtcYRaVDBJNQW91WtTl6JB+m517mUfs/0cWSC+Xo23fIbc0Lz5xUb+F +udhajtHPb9c/WkkRwsnldxts5IjdbOm2y4ciTDqj/A6x5GB56Zdq5lDEwDGr ++sItciR3to7vW0YTK2vLv7d0lCN8/1JQS0VEnXNOjYeHHDurhAcWrpEQOSaD +vwl95WD83+TEv07vsGg= + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 0.6}, {-0.5, 1}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.710381311655034*^9, {3.710381720000657*^9, 3.710381739199018*^9}, + 3.710381902505272*^9, 3.710382363012937*^9, {3.7103824232103653`*^9, + 3.71038244335632*^9}, 3.7104961154205523`*^9, 3.710822025123342*^9, { + 3.7108224202050257`*^9, 3.710822440122488*^9}, 3.710822695565998*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "8.5`"}], + SequenceForm["detJ=", 8.5], + Editable->False]], "Print", + CellChangeTimes->{{3.710381720016608*^9, 3.710381739212558*^9}, + 3.71038190252033*^9, 3.710382363039658*^9, {3.7103824232267733`*^9, + 3.7103824433757133`*^9}, 3.71049611543556*^9, 3.7108220251429167`*^9, { + 3.71082242022066*^9, 3.710822440138381*^9}, 3.710822695590136*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of P is z0=\"\>", "\[InvisibleSpace]", + "0.34399639978372526`"}], + SequenceForm["The zero crossing of P is z0=", 0.34399639978372526`], + Editable->False]], "Print", + CellChangeTimes->{{3.710381720016608*^9, 3.710381739212558*^9}, + 3.71038190252033*^9, 3.710382363039658*^9, {3.7103824232267733`*^9, + 3.7103824433757133`*^9}, 3.71049611543556*^9, 3.7108220251429167`*^9, { + 3.71082242022066*^9, 3.710822440138381*^9}, 3.710822695593605*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of F is z1=\"\>", "\[InvisibleSpace]", + "0.47970878686280977`"}], + SequenceForm["The zero crossing of F is z1=", 0.47970878686280977`], + Editable->False]], "Print", + CellChangeTimes->{{3.710381720016608*^9, 3.710381739212558*^9}, + 3.71038190252033*^9, 3.710382363039658*^9, {3.7103824232267733`*^9, + 3.7103824433757133`*^9}, 3.71049611543556*^9, 3.7108220251429167`*^9, { + 3.71082242022066*^9, 3.710822440138381*^9}, 3.710822695597752*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The steady state of the SSN is re=\"\>", "\[InvisibleSpace]", + "0.11039083557420919`", "\[InvisibleSpace]", "\<\", ri=\"\>", + "\[InvisibleSpace]", "0.3858774664985039`"}], + SequenceForm[ + "The steady state of the SSN is re=", 0.11039083557420919`, ", ri=", + 0.3858774664985039], + Editable->False]], "Print", + CellChangeTimes->{{3.710381720016608*^9, 3.710381739212558*^9}, + 3.71038190252033*^9, 3.710382363039658*^9, {3.7103824232267733`*^9, + 3.7103824433757133`*^9}, 3.71049611543556*^9, 3.7108220251429167`*^9, { + 3.71082242022066*^9, 3.710822440138381*^9}, 3.71082269560181*^9}] +}, Open ]], + +Cell[BoxData[ + OverlayBox[{ + GraphicsBox[{{}, {}, + {GrayLevel[0], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwUmHc81d8fx6/rXrOQvbKKkpHkm0jeHyNtSZSMEpIipEJSWSWRrEtWiIyQ +ve4wK5JdVmVk75lr8zu/vzyej3PuOe/zer/e5/M+JK2cDG/icTicMwGH+//f +lbOO8QZOzpoHx8iUt9FlcJXJh6dZRh+sWqMDJmzLIDEELr+WuQYzP0trE1TK +oMb4nZuDjCMUxjiXHW4tBePS8yzmMk9hn31ZxCJHKby7/aHlkkwwHN19UsQy +rhhS44VPmBNC4O2odFSeUzE8fTGQFLwUAoS+8ehrOsUgb+JittgZBhZOrazf +Jovg5XpoEzUuEoZZdxq0YEWgrd1aeEHmHYT8ymNVXC8AIbnoXT4CCVD6S8WH +/qMAVgKUVE0JiaCKiXzdlV0ALS4r4UFLiXCAYfCFpmUBPNV9eX6+8z1oZ2l9 +v1GfD79G0yrJcalQ8C464Ep2HkQojqael/kEzZ7nQ4uNcqCe8LuEPeMT8A0X +mc7y5ADud1PdN7kccPFfXa/58QmKdcyW3gvmwu3Ng/+OGX8CqTltAXGxPJg1 +UuI7cT0b1k5xmwnIFkAA5wHTkuBM4FMJsna9UwBd1Q9CJK5kgpI4k0N7ZgHU +37mhwCORCbZLq57hioVwtsjrREjBR2hL+vuOU6UInqm9iP7enwEf13IHmKEE +zK4Glt24lA5fhg9M2nqVAC9D0cfBPenQ35Ky+KWqBLb2uz/p/ZcG/GlvCX66 +pWB+yadf/W0a+FzyksGdKQOuOmHVh0OpYJp14c6KEQXylTu4ZcI+ANu1mfmx +OxUQXQJXbDWSwbW9dXUhrQJyIWV/sGgyDJ4rYtgcqgCT5eJm5s330Lu7/OXL +g5XQOG2iPFP+Hop3PH8bl1EJL1r8LV313oPtBHfp5/gqmCmJZVyyTgLRVAL1 +NLUK4lha7/w7lQRtN+gVTb+qoNxj67WGYhJodnfXdglUQ1nmpdmU1UTgr0vs +nAqthkcvCcJ14Ynw9YPiMu+LGuDk3f+gJSMBPG9IrEen1ICzXp22o2cCKO/m +3harqQH8Id6fry8kwLuIJSZZ3GcoD+JN1F9+B66+VP7jHp+hfs7Tn3buHcjc +OHPkpuMXyKGKDAVwxMMfUQ31iaAvwEEmlnWPxUFYl4KmU+YXYMl3SIqviYOt +C7v0Ho19AVKK95OnHnHQodll/NrqK3gJuAsGT8eCv6jtw6LLtdAeYjl6ZCwG +9ufkHUl6UAtjFHMSoT4G6rU2l4PCauFEy5sbR7JigONWhIdNUy1MucpV19yL +gci86mc8enXwgE0x+T5DDBzV5dDatq6Di00dWgYj0fCr4yp+0rsOYrc7uwO/ +R4PYxpxfNa0Osu1fWe+OioZUPfFX9/77BrUB6TbRytFwqvvOWYtL3+DNt0lu +C+FomLAv3nH63jeY9hfa+xgfDYqh599IZH+DMIP7Op9/vIXi348jmvfWw7vq +Tp3HHm/hi3PXOwXe76DPkz2N74oCW8a9lkLK3+GmNZFN/ksUsEQ6SRINvsPh +LSWZtPwoOEdhSvkT+B1yT519FRocBT+J/2UEMjbAofdBqgfORIHrW687bpIN +wFn27GWHWhQIyjXIWUMD8Pp1HWqVjQJzA+tP6o8b4Lw9gZzDFgVDMaEF4wsN +8E0qqoPQEgkvFHoetHM1ArtUgJxAdSTsr9x/pEqxEXIvql94UBgJDsMVpW/v +NIJ6iKznzphI+HdwhnZyoBEms2xpuXaREFmt9uwwrgmGLj7p5rCIhKPGzzFx +sSa4WzNfXHgxEjw9RGvoV5tAz1TnYMexSGD8cqbuQ2sTFD0qtL3JEwmCBurV +wgtN0MTyykqBNRLkf8tS33A3wyVSgoLeNgkuz7PkPrrUDIcannjbTZHgjudK +xsz9ZujT1de4N0iCZ8xjydYRzSBKfrfn2y8SpO+ujTrf3gx32z1/29STgJpe +HFq91AxCQuM9adUkGBP68UWEvQW8IsKcj1JIsJlSXREi1wLZd00/YtkkeHmH +rPH9WAuw3r7iW5JKAm6l/DLiuRbQ79Q38EgkgQwlqcDDoQUqTk7IDkSQINcr +WqnIswV8Rh3sXrwhgbpeaPZsUAsUcn/YevCKBJ/ZAw4ciG8BEZUjT7Ofk+BC +q1eaTXYLcA8eCjjoTYJfke57E2gtoF3i0LzmSQIbc+ek7sYWMDxFwXE+IoH7 +6PVY/ZkWKNoeHuRyIQE++4pgwFYLXDG2X9p0JEGQywVSDUcreH69nKfsQAL+ +oye5t8Ra4duEZ+2n2yRI2tR8c/RgK4xfzR+9d4sE8jVHdtyHVvDJ/F71+CYJ +il8qBmRfaAVNt3higzUJMH0ZprHrrfDZaMPKyooE9TxivlLOrUD7TQ3QvEEC +o24+nIVXK7QkF8haWpKg993OJ1EhrZCmW7Tw9ToJ7GyIa62JaD/jyAgXxIuy +m6478tD6TnIVVoifzv5b1KtqBYP9p6WiELMUTTl7t7bCF8HPdznRemEeQ9OU +v62g1+V88TtiUezPHfo8Ot/Wnif1aP9U4s9RJXwbcOzJT9yB4lX6/t3GnrsN +PvTM2ofakIAcUvP3g1Qb2GWIRZjYkuDEZcq1fmU0v0eo74YdCVpECn4L67RB +34Axb/YdEpj+/WhifKkNXnNrravdJcFQ6vv2N9Zt0Fhz2ozFmQSODjGG9ffb +4KJ+77rAfRKsHAprJvi1QRPr3RQ7VxL4LAecg4g2WD5vI7qG8hXl80ivsLAN +RJtPvO1F+ZU6da9m5nMbPKPskDv0ggRZO29jsu1tYP5m6WMN8kflWxP1d0tt +cOncyJs05Kcz1wxKuog/4OdQve9KNAna95xS4eH/AQk1r3xeJpBg4pOq4ssj +P+B3vnG5TSYJeL7wS7m4/YC3s7LbzF9JkD89di3qxQ/4evCleGMDCQz4KbFU +0g+IOJyfVPuDBMG3rvMxF/6Aa7XPJMwHkP5s6Sxxcz+gZe9A2DZDJKQqe5yo +2v4BkdixGXu2SDhhds5nhOMnlEmXpu5A9eqTNbeupPATcrQOlUzsjYQNfbXZ +L7d/go9bFgf/2UiIcWOXn3T/CaakHHYp40hQS+yx43r5E6pvbT28cT0SXOe9 +B0xTf0KbeLiwx4NImAuvb58d+An7I/aacyZFwlCXGVXIvB2mK404cxmjwIdB +cVXTvh3su0hmw1xRIHkAd8TGox30mJQ8zolFwbXHKTmf3rYDz6ePMzno/uva +Pf1ep70dRO5epn9ziYJGq6cBd/U7wCPp3muNmShwCDT4GmbRAewKB1/4b0UB +W6EUY6lDBzAsHjJk5HwLp4i1nvjADtinqr33tdJbqE7jdI6q7YCNKz8Yxx6i ++3wq8XIV1gk/poOzClmjIXjXl4NyFzuhf+BpSLpYNNgeGWch3eiEuTcv9doP +RwO/1yGKnU8n3DXnFeq+Fg0PearFuT53gnStxnhASTSoqA+OXTvZBamGJl+C +7sfAjuvM1XVXuuC0GIltR1AMDPnKxSrbdQGfTDPT55QYCG+8f54poAusrnww +7O2IgQVLQn52fRe4HK/xpB2PhTx/6ccb57uBe2OHthJ/HLzMOm1ke60bRK5E +3sKU48Cy9a5Ci2M3HE3+uhmgHwdcIsV9yW+64e/jFx+/+ceB8yc93bOt3RCq +n3lxYyMOFNtv7Ywx+gXyJ64baS3EQ5bUxwRVs9/g8ejEDj/UF64pP+40sv8N ++7USPw3zJcIpnXOcLo9/gyHvuKfNvkQYtJ55mhX7G9rZw9bKziSC8Afla5J/ +fkPpCwvm2rBECNhHEWW3+AP4YWrzk/1JYCvfEN17rQdG2XOsGOzfQ6FGfOu6 +Yw/MDSsU/uf1HvDnHVmFnvXARS2C6CvSe4i/y/XoUkIPvLt6NSi88j38/GRk +UtfXA+Y3vu9UEEwG7UM9/PmWvXBtJuNITGMyiB+ZCX9u1QfRMnscLxp+AJ+M +6MDX9/qge7qGie/OBxgSPeFL8uqDD59dg1a8P0A6Y5zLh3d9cExLdlI8/wMo +tZ6++OVXHwyylTYs8qSCRLGhv49sP6jtsc1r6UkFpYufdKuT+qFgvcjgQWA6 +/GXzw/Qy+mGxza33WVo6hH2+qlGf2w/xmiFWuTXp8E+VqNJW0Q++DlmM3hvp +UCpmvmegpx9sqt+nDDtlADbFiscL/wXDkQeSIxYf4aL/zQqtsL/QlKppKW6S +BWJgw2oX8xeiZUc3Fh5nwRTd6lLw+7+QlFt7ezUhC17aWo7+yv8LUkOH6hLG +sqD8hBnngx9/wSo4f4+pZzbIEy5eT+UdgHalWnJV9idg9tbYZosagCpMI0w8 +Phd+Hj12+lDCADzTct75KD8X3s+phV9JGwCydq7yXG0uaFqq7kspGQDWj85b +qou58ACULxzvGoBXeVyDSmfzYGBzX4KT0CDEumYu9OPygebBAz9jB8Ft5PfF +Ud8C4LXZHnNKHoSGs1MnPGILwOH8ZBh75iCwxf59IFtQAKISNSPa5EFIMQyM ++zNQAJ5fXILzugYhiPFYRaROIahztfUE8w0Bfb5BzoStCEo+hHiefjMEx54o +zuZlFUNey05yuc8wnBC0MuQ8RobPBw14VF4Nw4rvmugBEzJ0BIc5ZIQOww+Z +YhbDh2TYOCcgHpE4DIWv725/zSHDqW8SfrfLhyHx5naSijQFeqsO6/OuDUMU +RUrDdxcV2AquDty+NwKD7mf5z03QYDd33LE+9xEwKOMXimYuB6V7vRFGXiOQ +EPfvXtfecjA+aH0S3oyAuLxHtOz1ckjMdMjizR4B85CMsaW2clBNeeZaMTYC +/w4MOyoWV4AN6QMbn+Uo+B/b+3t3XiVELHDly9uNQk/GAsv38kqoueB5Vdd5 +FPjqxhRNGipBiu1S+n2vUSh92DHLMVoJ/U9xem2Jo6CqIuLbIVwFXH/sp8fT +R4Gy7R9uv68KQK0zgiFvFFjSJ1u7D1fBu8XsQaWqUbgaL/hW81wVmNmZeb/5 +OwrfjcYnuR9XwasvX/enjY+Co6fErOmLKiBLKbeUz48C9o1W/zC0CgR7WMRn +GMYgXcV/n2RaFXRcLKaekxoDixdf9NRbqoApR9LG5sAYEK8+3yKgd8p/O16z +eyqj8R1/GOMHqyDiq7VppvYYTPP/faJMrwLDY7tWWK3HIE/hP/UBwWrweeuZ +IGk/BvwmdelMktWQtzSqp3Z/DKwf8Ywu7q8Grtxykp3vGJBzJf/IHK0GbOeB +416BY2Ap/ibWHqrB6Q5pKCp8DPYUFBu56VVD016Hw7XJYzDA8tVw4FI1bHl3 +/urNHINJseURzLQaFPq0fegFY2Bf+IDnpmU1BEULtUp/HoPW7dDeDftqoND9 +3I83jIFxyod1p3vVMHFpTtz4J4pPeDo1zbUaTnPUOvoNjQHDQ4NRa69qcLdX +5o+bQtzFIjrmVw3pdfG0gn8onpZfYkoB1dApzXrz+waKl3T6x7HX1cDk+2DH +IGEcNmWPHGJH77Yj/X0FazvG4Y/9g0PvIqrh5vGzZtx849B3tKvhX1Q1fF6W +/KgljcYnr5dOxVfDP6PXF68qjIP5/WObrxOrYU/+yorzf+MQcyGib+F9NRhy +2iS+PD4OFbLCXiIfkL4OzScTT4xD9vnX28xp1ZD/TX225Pw4aDN/elqaXg1/ +ZVIjm43H4dp7DTGFj0hvv12aoxbjUPBjdetmJtL7r+fw1s1xmNZyPG2dVQ1r +Tu1TgXfHYd/1HlHh7Goo2FL4J/hwHD4EBXjFI3Z4/WL9g+c4KH2QzZ5GLCPa +hz/sNw7hvg9+s32qhv6PqmyVgeMQhZfUXULj0Wohu86HjwPT5rB4NmLDujHB +XzHjkNPwNVMZ8Y4rWhK33o8DJ/35kRdo/6/D0fv+ZYzDXw4PnnQU37MHC4re +eeMgmr1KeoviP8p49ghH2TiU2prtMsmohoXQ5OOxleOQ1brUNYLOnyWxobu/ +bhzmfcWxE6nVYJtjdK6oeRysm0/H3U+pBgnN7EvanePAbqV80QXp2d1ANGvu +HYf8qqd1WkjvMLNrVuYj4+CQ02U/gPJxbqL49vj0OBhMjacYxVZDJbOdO+Pm +OExd6X6aQ6oGj8jKZyGECTh9cnrxbVg1HJYW8t+9YwKOF9zMM35TDana9SRV +kQmQo2kunHlZjb7nUvGfpSbgLIuQgx/yk5Dl45SLByaAfuaoSDjyW9AT+QJ7 +tQlI8vdjUnavBpfS4JaEKxNwX7rgot/NapA/Odopf30CEjNOhz9E/h5uh74y +2wmo/Jt/ADOrBpPFuekfDydgfbr1qbVBNYDiJXaWiAl4nctltoDqa4WayU2K +nQDBJR0yTRn55SxBWCp5Au5oCg/ayqN83i7ar5E/ARaHi34biaP8pAjoObdM +wPnGpMgcRpQfZefzm50ToCkWa/VoowqeVdUZveqbgFM89STppSpY6H1knTIz +AdzCLc/3jVRBl9Afr64dkyBY1lz892sVfHiTSMFOT4LF7MTOXN8q8BSV2uV8 +cRLuJas57vNA90dGsm3C1UkQ+u9n0wvnKtiqTt21dXsSBlYWjHEWVXCZnnWL +8moSnD4MdM+rVAGLRRnPkYZJaLZL9LL5WwkOB9rs5S5MAd/ieY5+pUpQ+cIo +ym88DYV8KvdbXtPgS+1vCXGLaXhuJkTkcafB5foC6f03p0H4THGTtRUNHjVb +H1R/OA1p68fklVVpUN5do32NNA1bCY5Rb/5S4eSM7+3U9mn4V25pmKtGBVMB +QsmRyzMQk/Vq96E1MkwK/aGg5gU251ibmEfJ6HyFladsZ4Aa9/HWyg8yJEja +1Ju6zkBPeOt/+z+RYUjuc8/TyBn4NQimddZkcMT8CLUdM7B4rPir6s8y8L5N +MLxyZRaSjzm2jtWXQlz8t+L2a7PwZ67t7XVqKZS2BosY2c6C1PdNpvnsUphR +Exo2eDgLOwNLhW1CS8GcTdH9TPgssIWI9gZdLYUjmVfeHW+eBZlhhdMLMyVw +sU+UkdoxC+LPS4KEBkrAgWfglnrvLIydISmYt5dA8mOHQ6rTs9CylpFymFoC +LKmY1VviHJR002rkAkvA1dV4KXTPHGCdEnd1FEvAj6t038V9c3DnDf85qT0l +EPpR2JRLbg7oJftKRAVLIKu3rzxYeQ7aZdYO2OBLYFDvzstArTnQ5p0zPd5V +DAYCz0SeX5+Dm0HZhgIBxXAt7+95Xes5IByO4P70rBgczup6Md6ag8A8vf8s +XYvB/xnrsLfjHFwSEHrDb1MM5aPhn54+mYOKrFKW71gxyJWma7nHzgGreN81 +/e0iONkqHvsyYQ7sPQeIi/QisJ6I/Pc2eQ6a/J+5lMwUQazo87SyzDkwYQ5w +S+gtAnbvGzvXKXPwuVZCYbKiCPbFdNmyV6LzdfmvBZUWgU7BhUqRz3Mgk8QK ++nlF8Hj4+H2NhjnYzudjOJhcBJOnhbuf/JkDWS3Tw3Yvi4DZOlQ5uB/9/nGS +L8GnCPZ4sgS9G0LnE3uwUPG4CMw+0TUrpuZg89vh7XCnIvjO/SMFtzkHWdFl +/jkmRTAqd2aLi2EeHr9gfq5zqQgYT1RdkSTOQ59lkxb9fBEcc8th0945Dw8X +bnwr0SmCzN+Bzr6750E+oJmWoVQEtf/w9eGS83D7y1NrZfkiGNzpsSdFeh69 +3+psu/cVgQhm1/FZYR5CF+mXfMSLQPVq38H2Q/MQKVu510+kCC65XA4Y/m8e +PorOSKQIFEFgiq4Gk+Y8fFPVvq3JVQRpNAqJX3seSq+djyvdUQQ1HcqzMnrz +8AzzrzNgLYJ1Fsn3J/Xngc1d/9cvfBHY391kDrg2D167fj01Wi4E/xcPbkRb +zcPFp5JCtH+FkJwwSc6wnQfRMq+TOguF8Lu1+2694zy0k5QV06cLYXnCoPaX +yzxYHDFrfDFZCDyEOolJ13ngeX+yyWe8EM4eKf7B/mwe1LsEatqGC+HWBQUF +Ud95OJHUGi8zVAi+dikv5P3nIU95PS1qoBASvEX6NQLn4Xvg9k/pv4VAiQlT +O/8G6Zt5WrC1rxA6C1jDLcLRemG6N6N7C2GxwWvqbtQ8yGqa5TztKQTOkeUT +T2PnYeXTyrjXn0KQ23ZMCE6YB0uDByyJvwthR96f9KvJ89DZ5LF/7FchzFid +yd+bhuIXKLh2GnEzbyll9uM8EOrFk2q6CyH3q/QX8qd56HlRM3wZcah7eNPz +/HlYnU6UYkTscoChy6AY5TOBfL6uqxAu/XH8K0KeB81jPBapiFWC/0yM0OYh +4Ea2XjxiPuzMv7yqeTDLD8RlI6bPl2x6fpmHr425Xu2IO5OlmU99m4dfl8Rp +/Gj9UuNwLp7GecgY6s50RhzNzCDc2zIPOhKD2oOIPcoc92T8nAdy6nF3RxS/ +mf0f+Qdd8yAuOKXFjc6rsfvMEfgzD76886QmxLubS4Ctfx7oxy7cSUb6bHlJ +n24fnIdARdaiEKRfn3K4YeLoPBgGSTpEIn0rh3Dm9pNIn6WY54VI/6RIx5tH +ZudhZP+75Yn+QvA59ceRYRHlK9WlVA3lTzerxDtqDeWDjNsWR/mWviYdaLWF +9HZYcC4ZKQQmrvAIBfwCbKxIs90aK4S6+45pNawLINxV/YpjqhAypP/kBu9c +gJOnbK4xzRTCq87T5Ku7FuBKQ8kh/rlCOH9MunFWcAECzgznPEH+VJwO6yCL +LkDfjWW9dnohcCXg+p9LLIBvrVyx7mohtOH/LIjsXwDRUvulO1uF6HsTJnhK +dQEe1V4d+IHqQdUTJ8VzbAGeyIVIj6N6EVR0lOvVXIC9Z7QW+FA9/Qo9rflA +bwHs1gVwxfxFcO0qzibReAEYPfjqOaSLANgd79pfXQDuX8/U+vYXgQTtt+sR +iwVQJ2b0fUX1PSBREtBgswBnpsJSf6sUge3Y3ZyV+wtQdFpnXUivCJzcfq8Z +hC1AwfHAD/0OaP10C7m7kQtQc4TUH+JSBPrdfWYBMQvQ2WETYeZeBPLHhqhV +7xeATB3fj/kVwcTW1FPlAqTPv5gruvFo/RdbeN6fC1BfJmku97MILpd4HVbq +WoDFzoW5x7+L4MQY3ubcH3Q+DjfWkYEidE7mL35DC3BwqM2baaEI/u7k8l/6 +h/TyiLjjuqsYzEmS7J18iyDzH8ckzrgYzn1NPrYotAhSHZbUfotiOLYs7cAp +tghmtUW/umyLQfjqgcaTMotQ0NuUs+tRMXSKHn5TemQR4q77eya/KwbDFF2e +mCuLcGDOgePQTDGcKrglYhG9CLu291irvCsBPnHSHtv4RcgH9T+FGSUw8Kpa +zilpET4PndI9XVQCnla7NbwzFoFQ9/VidkMJ5Oz6Yf6hbBHMh18+vLZRAvzO +mu+muxeBWp1donu9FIbk+SSfCv+Dq8kTR/8cKgOv1GqZhNh/kCJ6wN9tkwzc +mSO9Vgn/QPbvrLMZOwVSctiiZJL/gRT9qoqOEAXqSg2ZP338B9/ER2R2/0cB +ru8Do9Syf2A2mk9dcKBAwiw+41fnP7hZ2JT5G7Ue5Ud15Ph5l0B4Z+U1TQoV +DI7fGuwWWIIT+j/b1+qoMKAVGBsvsgRlla/FcjuowHT2B7v0niXQNuuOZ1yg +gr6F9dRh5SVQuXT4vc5+GvR4+2ZfNFiC/jPszs1hNNiorzn4OmgJ9rAe34tZ +lEOc/gbH+5AlcONmnze6Uw4abSozxRFLUHG+SNHQrRyedH/I6o9bAkLu3XnG +0HLYGvWXVcleAh1PIb0jNeWAI57b87txCWqsT129KVUBiS/98HOtS3CvfmH8 +s0IFYDtofwkdS9DS/JifqFYB3jyKiYq9S9D22v+29IUKwEtx7faZWQLeMn5C +96MKIMBPfllOOpi759Az6iogpXoH/TgPHXy+fH3Y21oBunon2g0F6FCu9Hti +6lcFPD9fHO4pTge/27+ORU5VAJP5W66Wg3QQM329k4W5ElL7WmaHDtMhu+3v +MoG9EvSsWZtXVelgOs3kMs1RCf53PF7vweiAb2qN8eKvBJZH5mxuBnRQS2i9 +kbW3EtI3IsYDjehgF8jtiN9fCae8GusSTeiQkKzFqyNXCQH+mv71lnQQ3v2o +wPdQJRxgd7Pts6FDdz+Lk69KJdQH55z4Z0cHEol0+q5qJbBFShDE7tFhpVd2 +eEujEj4KXR1UfkiHZ6eZvFKhEs7Gh1affESH8TGNUVXtSghKwXvf86ZD3Urn +gMDJSthZMLT5ORTFR0tg/n6hElyaeV5HkOjA0hK99e5iJXRNaovaRNNhbd1C +/fqlSni/N0mdMYkO3t/jrqRcRufTavnWlkIHCrefsqxJJdy12DZ5n04HgyeS +WjFXK+FopIWbVi4dXO0zNjDzSojPD2LaVUiHJ3qyma4WlYBvppD6S+hQvxgQ +8vZaJdhNTuzNpdBBSDwyO/V6JTQyCxc+q6CD9ANBxiTLSlDee1rnQg0d0t/9 +DvW/UQlvMfc2sVo6XD/z0dTUqhI2zdNuzNTTIfCH6TUh60qwetQxR2uiwyWD +r0mfEdeRiF6v2+iQhSUrmdtUgkK+CqdFB9KnQF+gH3FYk/U7+V90sCyTtjK4 +WQkrE2EKGz10sLF8vjsbsQVzNfX7XzqcKq03piOu3jN/NnaYDlYthgLytpWw +H5P4fWecDoRSD0d9xK/NL9xRn6aD79OEWxaIF9yfrrLO0+HwYTHOq4hNSNkv +u/8hPwxfuqeFmJb3RyBjhQ4i48kx/IilmtjT3DfowJPOFNuF9ns5oX7kFG4Z +OJR7Xvojnma680WAsAxSL/ge70FsuCfaaJR5GeyS419mofOUQt1gMfsy0F9a +10kh3m2+7PKCcxmG/jO++ALp4eMug7/MswxnMizVO5F+YxHGodICywAD92P4 +EJ/P85NYEl6G332eL7WQ3vmNBTmfxZbhv6TbImYoH4ITA5oRUstgLb3/jhXK +14CUlsXhA8ugvRIVrY7yewqcp/CKy1B+VaOAHeU/2yzhcduhZeAXNVipN60E +94jN6HtqyyCmle/Li/zTkysvq3V8GfIGXFkTkL+0G81KubSWYdgqSk3QGPmV +idyRc2oZFjy7BDqRP12kxm8+O7cMn4ydiLsNkF81BZf0DZah+ZW+qKE+8qub +K8/MlWXw8fyj9+oM8uO4soH8rWXw+1jy7giqh3iiVd/6nWVgPTxeuYrqBS8V +6vjdcRneeMv9l30c+c90NuiO6zI43Tz2afgo8lND5rf058vAcuW0aJJiJXzY +80LpZsAyRC9E/VhB9TvmYRkl+XoZfj07mKkti+pBlu9mTMQyKI7Ctew96Lwv +nuKCkpfB/iDP6UGBSniDXVR1qloG1fq+fRPrFdAWJfdO7ssyxASwyBCWKoB3 +lkgcq1sGq8x/scwzFRATT26zbFkGnj3spxv6KiB1bY+jYd8y0FTWdl+urgBq +IT3lv81lYOMtO1bqWwHb7K3sC7gVGN1n+jrscQVoW2e6fCKsAJ+uUpPZ/Qqo +3WWJ7duxAoFJ/E+oVmh/x2+/BUVWYPrQbYVKrALG98dxbxxdgV3n3T+IrpUD +f7yWV/WDFfiZ/rX3iU053LqvxNHivoL6P+dqNtNyKD0tHtfjifaT6Zt/c6Ec +TOkbJSt+KyAZSSX7qZdDwoXSWUXSCoRMHEuW4iqH/fiD12OLVuAmTfqgH5kG +6rdENR/QVyDryKfWsxw0CDzO3uC9tgIS7T0HIxhp8Idn7eqbrRXYsY3/0rdC +haeVnQ8/Mq3CrUznL96DVKgRCs/u51+FazVWV1dLqXCugXX3edVVMLlbPTBv +Q4Xrh5bXpd1XocqGMl1ZTQHXxD9qM49XwbyvvzCqjAJBnNVuxc9WYeLh5rZb +LgVKp4MW9fxXYefrhXzjd+h7+1Fq8lbkKpzmyXoa4EGBain9XxmFaP1Ios6C +CgVkeD+UKsyvwkWnb5TsfDJo+L6iL/1bBXplsAf9IxkMF5xUyldWYWTFJfVc +Mhmetajn6uPW4OQP2QTJCDJ0BbWkOXGuQYjqeX9nVzK8Im5E5imswVLlQGzR +cTJM0w0f/ndnDb60dJaad5YB9/C5X/qOa7Aq8Wl6vaUMjvzQAzuXNUho3P8i +ux71FznqrLEeazBC2SV4qhzNt5OKxwWuwZE7fWrmqWj+ZVG88Js1yBNhYgpJ +LAMzXf5bh8PXYGV/b1JHTBmkSLAdso1dg/iO9Kdxb9D87vnP3zPXQKQt5NgO +jzIwrZ2UHc5B+9FfjXU+KINnRcPBWwVrUHS3jlbsVAZ1od0mh6hrQLm9fzv7 +Jpp/pmoqsgHFc1g919ewDJ5SQnitptfg5n/qpm0Hy+B9xqtHj+fX4PfoT4af +cmVQG+XXG7G0Bo3mFPXxfWXA9cA9vXZzDZr0XtzRl0Dz5S01FDjW4eu+ZhYC +dxl8FTZN0uNeh4w1H+/3HGUwyWLEZMm/DkYMpQlG7GWgMnyyJUxsHdKtKjsW +CWh+/EGbFcV12Mg0vie2WgoTgbLfdh1eh7lbLwxM6aXA6bFHUU51HeqWhHoy +FkvB5LLAigWsw0+LO8u+M6XgqbvLwk1nHcyT07w5pkohSZm9OuTkOriEnsrP +GkfrcWwH1lxYh6Xjxdt7hkuBY3Nl7s+ldSi5xSi0OVAKhycXjOlX1iGPq6h1 +vB+tVzsiLmu5DqvFesJbf9B6Rf1+2jbrECOelir9uxS+Jv8aN7NbB7Feh++W +3Sg+r6aCYOd12Gmi+XNXRylwZ9yfi3iwDmp8PQXBP0uBt01QIdZ9HcoMtm6K +/SgF/nXa7STPdRA4bjNc2VoKgnutU9O81qFnR6u8a0spCJ9nGcz2WwfSApOq +ZnMpiLpmixe+XIdvEnVbgk2lIFG3/LYyZB2+SyzlMTWUgtR8XPvXiHXIvjIc +JvS9FPYKa3M3vl2Hw0m3RaG+FGR0RvV/xK3DyEHd027fSmG/Q1Bgd+I6GBxR +5a2uK4UDpEN1fSlI/xGCuzhi+fIOwkg60u+Bk9Ob2lJ0bz7WmspC+tscXdqF +WIlL8ulC7jrsoWgwpn0tBWW1r+SVwnWgb6mE6iNWsbJf3ipdh3WRV5EsiI8E +cqkQaeswvpnC1v6lFI4WFjmzV63D45CZoQLE6j2m2bu+rINdRbPoB8QaTLgJ +gW/rcMc1LyMdsebBDzJijetwLGnDpxwxZnLGem/rOoTKCSeOINb2nk040L4O ++xnur0ig/XQ/RvxR6l6H0p3OvncR6/1QE1LtQfnU8DjagPjURq/x8b/rkOKx +xnEcneeMtF+YzvA63M+/ulWB+Jy+bPPp8XUQb8FtGSE99N2a2A2m18GywoS4 +gdgg8f6py/MonuQU9iKkp+E3wefmS+vgceUMkxfS22iBVmW1ug4/2m6Pm6N8 +XBax3rLbXAeVFtGMsyhfJrosx5wYNuAV2xO1c42lYHo32+0hcQNqNVKCr6H8 +mkcaFj5m3YBOyaw4H5R/y7E4hZe7NuDg3OeCbeQXq13ad4L5NsDoAusHE+Qn +G/XR1AihDWA5TxKvQX6zCzokkSS5Ab84J70aOkvBWekrN/nQBkzwuaTl9JaC +y1X7C5X/bQC9OigqHPn9gQ9X0Fe1DdgXy5f3EtWD+09T4g+tDXjZ91YidaQU +vNxnlycvbsBudTflrNlS8EmKUFkw3oBD1bw5Agul4Fevdm/l6gb4xTi2h/8r +hZeifhMEqw1w1X/aR0P1HFop2LPbZQMsT4gf6ET1buJT+K334Qa8uXBMPpy5 +DCR0DYoTHqH9uzTBgq0MPtX6v5H0RvG6K9iIcJVBfRNdSzpkAz5KkzU0RcsA +3/MzVf4TYl65QC7VMvj2zjl8Om8DGCojS1LVyyDEcofXp6INUD9fuHpaswzE +hnSuKtE2YPnsE4+SE2VwbDKfXaVhA86FhgTLG5fBg9UQ52MTG2CsubTp5IrG +KfIWG9NIn8R/Ts3ofsU/qTtNm9+AK3z1nerP0Po43B5Y3QBwsD3038syyGZ2 +atdm2QSOG05pRei+HuE7r35GZhNSu/nd2qrK4IoyK+Gq1SbEN59L6BUgg/z9 +MgF7203YtI+r2SFGBnzhbbkndzYhJLrO7cReMmT9V2+Y5LIJ9YfZiR1KaFwt +MGncZxMU/gsYczpDhk+wEzyS0XqWTMfsnpGBcH6XR+zQJujecLW6PEuG/FtC +cz22W0AWac8P76HAOa3Kgo93tlBfZxGcNESBUeFbbm6OW8B6fWrx0yQFRJsK +t7hct0A3KyK3dpUCL1QMduo+3wLJcIujU3xUMGXwP/AxeQvufdmg/j5PBXzs +PxvX/i0Y2720LYbes3EPYvfrDG3B25iai9+qqKCqrz3FObYF7KvnMu+i960D +Q8j9jNktSJHNrUlup0LHLTmfP1tbMNh5JbVylgofVawStHdvg5GzxkqkFA0u +NjV3c5huQ2PBCf4gbxrUDUg+rLPYBg0pDTKzPw2w5ftcPje2IVI+4K17EA2U +JARPLtltQ+FfEVe1KBpwuVgW/nZD69m2tx3OokEL33xwOmkb2iVMOKd+0ODU +AZ0DVtHb8OZgQdvHLhpUapK+iMRvQ0tvUJ55Dw1yb6ltBKdsQ2w648XoERqE +lHnffliwDWzZi+iGoYGBBbeudus2nIvy9X0jVA5192z61n9uwyOzfd9cdpcD +9qLYo6hrG1hUp26dlCwHpRzTvP3923D9+cT1z/vLgYshWYxzdhuOfL+uzK5a +Di/5lsrqFrZBanhF1g31Z7gDJ4196NvgpLpr6MfxcpgznAxc2twGE6lg4+u6 +5WDXFr1xlwmH5Vlcl6EalEPKH+36Myw4bOzF2wNZl8qhf2Qyah8bDvstNWMe +dLkcTNaPH/67E4cdMKAx7DYvh1N7B24b8eGwQjV/zye25eCnGKh6SACHwTB2 +eNquHCqPqhA5hHCYTLVe3jn7cjh6/kVirSgOU5hSG/7lhPpF1wOd6nvRekxt +pofdy2GywuIoJoPDVL+nfTrtUQ6fWEOjT+zHYf20wKRznuWgEr9sZiCPw/b5 +KmgKepXD8sgBmrEiDjNmqPnZ710OZKVrYmZKaH8C/xDJtxy0Pn/uv6mCw5oZ +U/S+vCgHAseKlv0RHLaeVBMAL5HeV+SSnY/iMJVvHAdTA8pR33yN4KqOwzj2 +eB5bfVUO+pOhNx9r4DCJq/jCo0HlsOu/L1+9NHHYNu/beJvX5fDz6cq+FxgO +08GpbHoGo/6Y+/pEiC4Ou8B+Vfl+SDl6n4WdjdTDYbpPm3ddDEV6fviSFXsK +h9G/yjwWCSuH5NmVnUlncNhasPH9NsS2avJOqedw2Mgzw+2H4eUg63u9JVMf +hxnq8O5liiiHqYawQ3kGOKzNJ3TEB3Eu/9ewYkMctjVaeXYK8X3L1UWKEQ6z +F4020SaVw5GP8sZVl3FYzjcu7ueI1xavF381wWGW0WJPChHTjocLNJjisC4+ +pcQWxF7+X91bzXGYe/6/V92IdVpXuzuu4bDAiuULzYiZRBSO/bHEYXelixjy +EX+zsYz7a4XD3BrS870RB30K3xyxwWGEeP2HmogvrHy9NmWL5j+TMh9D8XFr +r1XM2yF9zRMfPUPcHqgguXwHh2Eiuv2MiN+2W/psOOAwiw8B7/9/fjPxiEEG +JxxWOTDV9hPpI3a7Vpf5Hg77TBn3lUQ8kL/2Ycd9HFYluFFrhvT9sKHAzP0Q +h/EOJOT5Iv3t9G7YCbjhMD7cxUvRb8pBPiTim+gjHCZmFlgRh/KVv2c9cN8T +HFZyO1DrLsrvw7uK0/LPcNh3So6neiDya8kNfWVvpN/yhZ9LyB/lZ+q4jj/H +YT0yIhdV/cvBO2L9nrY/Djs31ZVHe14Our2KP04G4DBK3stUZb9y+H6PRDJ8 +jcOG+gerx5Bfgyl19CtvcNhXUSmZA8/KwZC4ccUiFIctbrhFmD4ph663VsJ2 +JBzmqx/CGvCoHGIHSI/vRuEwtrDhs/5u5XBN/tsfl2gcJi/mzvXwYTkMVRxM +eBKPwwIKPaLE75XD/MjGnvAPKP/35QcLbqH33RO5nodpOKzxEReHxc1y0OAx +jTTJwGEu9D7aihW6L6CERSwbh1HlePezXEP6vr03nV6IwyJcSQGvUP2fOz1S +XF6Dw25zikQd1SgHlz5e56QvOCx02j5cUK0coh7qyPrV4jBy6iLj9H8oH0mJ +sae/47AG7Zma+wfL4dGaqdfPNhymSLz/bgPdX6mZzacn/iJ/n3juKEwshwat +LXzjIA7jnPhCv8hQDgud8tScYRyWKEyR9NqkwXHCK8WH4zjsZwJ+qnKJBj/N +dXlw8zgsObJOsWuYBgwcZX/4cAyYhSDp8ZPPNDB3fu+kJcaA9ceazCd70oBV +z4x6ToIB2xH7n2GoGw2KRXhZTaQYsFyVk5yPXND9Xvv8vaMMA9Y83mF81I4G +Nbtvt8cqMmC3NS6IPL5EgwPfDx6jazJgeik/8tRkabAsTWPKvM6AxTFYm7W0 +USFl/eGl4hsMWMeDc/stG6lg0KqYWGWN9vt2onG2Fn2PPBPVum4xYIxxueqc +NCpc++HrQHRmwHKSrAYM06jw2etM23UvBqyik8+C05MKYb8743mTGLAwrZlM +y31UeL8ZqL35ngGr53ryPVCKCnni2OhwCgNm+1GKTN5NhRbrdKWSdAZMic51 +ay8vFXZOuddczWXADlYWhcoyUOHlhtD4uwoG7L1bO5nzDwWe7jZXke1lwI4z +H94aJ1EgGLi6d/UzYMYqGFBCKRB/4/OTtb8MmJo9O3P4awpQP8jXfh9mwHga +zrhffk6BVYXNq47TDNjUD45xxYcUeKD57lnBBgNmH3P0z+HLFLhzvb/+uAge +K7r69djybgqMid35Lbobj3nnuWjXCVPAtndxcl0MjwW+t9FPEqCAlQXzTrIU +HrtleC/JfhcFzMwULxw5gMfClknWVkTUb1zx/KGohse4XC8N9s+QoZ6faWjn +MTzGGF86fGSKDKc63vyb0sBjti70J6RxMugaJ/NlYmj8QetrhyEyHL9Uf2Xf +KTxmNdi97vOLDIoXBP+IX8Fj28dfnLhSh/ojjvdTWyZ4rPJO+jR6esCBJrnN +HlM8dtDxV7D0ZzLInAexuGt4TGTuU6NAJRnEz9paCtrisWNJ/UV2pWR4xzbn +vHwLjz3TPZUQXkwG0fpH3h238Zh7llZKbSEZBE+/fh9xF489rzrAfTaPDFwn +C4e4HuKxs1vlwxUfyRDMpLk064rHhoY+capkkGHH11piszseu2Gjbp+XRgaW +E79lXnvisZM6OdTaFDLgdPC3Wf2Qfny9s1YJZHiKD3o09hyPsZq4N0q8I8NG +Fd+rWn88Nm3xeXQ0jgwrmGzm80A8JvNtozM0hgzzmgbTDOF4TFM4udEokgz0 +4zahrCQ8driwRuwUCf1ew/2/XVF47PjmtpFeBBmYjiU+kYjFYwTnXbetw1B8 +6oWS++PxmJsvq45PKBl2qdV9OZiAx+4JWa9lhqDzq87thGQ8ZpfotSr+hgyS +Rwj5eh/w2O7Ht47fCUZ6/id4WT8Nj9VnLl2ueI36VxX5NeMMPHY6TUNXHPGh +w9g7i0yk38B5xldBZDiibKR9MxuPKbeph20HkkHjkN2IQw4eM5rknX2GWEvJ +89WDPDxGfj8twI5Y72CIomcBHsPudrAlvSLDWcWUNt8iPFZd0f9FC7GBQqlr +YAkee/9S4OR0ABkuyzcIh5ehcW2xwGTEZnL95TEUPNaa4xdkg9jywD+r9zQ8 +9sEp94QSYltZFuaPFXiMX4o5jwmx/X7RzLwqPLZuO1M3+pIMzvuULpTV4DH5 +3u/+PxA/lNFdrPyC/LGPOPYNsYe0SVRdLR5rGNgerEfstdfhWMs3PDaZI+na +gfj5Hq++zu94LF+x5e0U4ldSEb59jXhsdctZbyfaL0Qyfd9oMx6Lqrz96Chi +kgT1+0wrHrPhkZB3RBwj3uJE/4HHVKNWTT4hThAb4tlqx2Ojk2ZrK4hTdq+U +ELuQ//Ky2PSRHh9Fd5jv/IX87H/RLxtxjogEju8PHnuzM/eGANKzUFglRbQX +j5FWtuICEZOFTp3a24/HXhc5KLKh/HwWcA45PITHZAMuHZRB+fvG76dybAT9 +/nB8UA3iJr63XdpjeMzXPlPEHuW/m6dSwnAKj8VlFn/sQv7o5f75+eoMuh9O ++r19h/wztGvM7sYcHnN9WxLuiPw1w8mV5/wP1b/33Gv5cDIscuw1dqcj/2V9 +9RBG/lzZeXT12QoecyxMNuBG/mXcYan1ZgOPhXrzhItHofphfzAcuYXHPH+5 +Tqu8JQMH28uAdzhG7JGqzw6jaFSfLLmt2QRGTH0s7n5OLBnEmD8/LGJixLCv +/KmTqH72MHUJ0VgYMXcLEZdDqL4UCTirhh2MmK4m4UN3Ihl0cAYLE7yMWKz7 +LuHYVKTn2eszzfyMWGZaiBFLOhm4oxwnCgUZsZ2X60hPUH0PKLweeCrKiIl2 +zDB6ZZHBx6y+jXsvIzY8tnx/MJ8MlcW6BeqHGbG54QOPRarIsB9vlCP+HyP2 +6pSWMqEG5f+8dSZBlRFLK5/V+Ifup+tD3slN6mi93erCE+g+29pVEW6lzYj1 +7Q8IkWtF999dtQevLiLuhDNrAyj/paecnS4hfqwJhsOongkmDkbGjJgTa3tR +7igZ/sS42ohdZcTadPdMeqH71bOuwCjfkhGrXCpqdKCj/O9R/O+XEyMmy6qt +eJOdAqq/pOiywUjPGKrbHTUKyNykPlcNYcQOxtJTizQowDtnzHcijBHbPX5A +kAmjwAIxQMUykhErGGC0K9ajwKdDsy6R7xix/Tm9+oZG6PcBlFl8DiP2OG3Q +0MqZAvxHjcZ/NzNihwplfY9kUmCJ9PzP610E7H7ZegOTDBUMy/91hvIQsMxH +Aj7fZamQO2L9g8RHwL4PX+F8o4Dei6ra9fFCBIz38MQZ7v+oMNC1VZItScAs +OvfeZtJF308R9/DGQwSM49TWevANKmQl3Tmz05CA6VT6/nKOoQJbffeJXUYE +7B6LoUlfPBXsFk5p8V0mYD7HK9+cTqLCHp19R3ebEjC/nLImrnQqxAwNSitY +ofmPGxntitD3d58Fw3kXAqaoxb29t5kK1tkXSoPCCNgr90ld7S0q7JUisztG +EDCspuVeE44GQ5F7r1+IJGCioqwxRow0sPFaJXLHELAnw9Vx+iw0uHkp+VJU +EgFreS7curyLBrdW6TNJuYiTTlvy7qXBfscb2r75BKx3+syWmgwNxga+k2wK +CVjuu4oGk/00sGtI1NhXSsAem7z47i1Pg9sJZ15lVRCw6IviBC8VGtifeCdd +0kTAwmp7kvbo0ECezPLobQsBOxuZwdepS4MpxfsNj9oImMo+JhFfPRo4CJ66 +r9FBwHDFTtTPp2lwd3K+sqqHgD2MWPafvkADRUtz3uQ+AhbvrVFsc5EGMz+/ +3vL7S8Dqn3Co/zSkgWN5LMfJYQKW9O3K3jhjGjiFnjBvmCJgZZs2NU2m6D3O +lJuTPUPARASCh5nNaTDnIcz4Zo6AvXuvo6xmQQNnm9mMi//Q+N5cTb/raH73 +1U1lOgHbvZdvJd4SzT//2YB3hYAZfrRqzrlBg3uq0csd6wTspgXPd4o1DZSz +GM+WbhKwcxF7x4tsaLAg4fguepuAud70EEy/SQMXNp0T5oxE7MPEhXcPbtHg +fs9U2F82Iia+JjeTfYcG5NC/jyZ3ELE50qdIN3sa4PU6LJc4iNgX15yfqg7o +vf+pQpGVh4h1qWoLxN2lQZdVIR8PHxE7o9QnhjnSQFwgY0NUgIhJveOq/oX4 +07OweiURImbPdvLvohMN6If989R3EzFOySuWLs6oHx57/FZXnIg96dnlPYrY +L875mb4kEWv5vqF76R4NGgxu2prsIWKS7vHZRYh5iabnraSJ2EvHR1QO1O+a +lemrOOxD8R/jv38N8fu7OiKuskRs6/ZqWwriCcmjeC85Iob5p/f8RazcIT8e +oEDELEwyIvju0+DRK8mW8INEzIWzZQ3u////Hfwl8YeIGB+/Lf8NxCyLbO/S +DhOxtGD1GXfEF9K2/fL+I2KBsaIB/ogjzf7ZU1SJmPT139NBiHs5xw2/qBGx +9vUTewIQS3/uUWs+RsRwEXJKnogd3Nskuo8TMZYzZiK2iAvla5kHgYjpYymT +eojX+ykzU1pETDW6PU0MsTYpt52uQ8T2uJVfnkbxvzr9gYrTI2JuGwrb+Yhb +N6OT2U4RsYizi2lOiAXzg1/xniFiPS96ruxBbGnre0/sHBEraqHwNSH90oXd +TfbrE7GnZy3GnBDPNjmAsgERixEK7WBBfMT3hoyGIRFrfjw4+hbl46nq5Z16 +RkTM9IzMPgnEXybP/LtwGcVztifhHcrnjkT4fdWEiEl8DrDgRRzLIptx15yI +RR6pax9G/hig7g5xu0bE1inmaVqID9zjdvO2JGL3WicnI5CfSrvXdUk2ROz2 +5611SeS3jo9N/VQHIhZ8T8SjE/lT7HpN7VdHdF6xdOk5W3Rf8JR+anEmYvsD +1RJxiP89TvIcekDEhD/XKbEiv3OffyC44wkRe2S/6ywZ1Y8pw+1tvmdEjLWi +eTzsGg2SiixGxL2JWGN/Yr01qjclsZOFh58TsWvOAiEzqD7PzwoZmL0mYu/H +33ZnoPqlz7K+0X5DxB4wenBeM6JB4txqo2woEZPbe3uOHb2n/s13n12JIGLP +ncKHjQxoEPcv+iQpjojZEuJ2xJ9B98uqEDRnEjFRTg8lHk3klzXWp8XZROwN +M2eKnQYNsPVVanwO0r/pYEapOg0iNrrVHQqI2MjQ1+RTqjTQ2I4+wkohYn5m +thuySjQIIggr6tQjf1HLhXCSKF9EtrsHGojYTc1fc0RxGvQT1zJ3NRExBY6P +Jsy7aaDC/Eu2v5WI3dF3Fd0UpMEf1hjpJ91ErOLsQZ1iLhrIcQrvLhkjYjSj +hLS721SoFxLeIcfMhG3UtTvc/kWFwZK+YhZWJuwQQd2Ao4sKG8YfboywMWFm +tNWt3HYqKIQplSRxMGGu7+O3Z1uoEMJ20kqQnwmTY1oyuozei8br90uJ0kxY +RmpLYFsBFfr/NNr0azNhLr1pvGuBVFj1COcs12XCaM8EMt0CqMAtdJUcq8eE +rTrJ7Vh6QQUd4yHOK2eYsJ81pQ6z3lRIbVwjN15kwtLpuqZDblSwL9+3i2KJ +4oWIr7+tqUBP8KaRnjJhfxlufbmpQYXIJ63rsV5MWOPfFx6f1ahwxExS/b0P +E1Z4TodNWpUKrvxVxZ9eMGGv/ePWJw9RYSkIl1sbzIStTIv8C0Pv1X+Pnr1f +fceEOatg/pd4qLBw6Ym/RQUTVnwhKpZpmgJhhxq/WFcxYdFBz0LLJyigzLmb +cKeGCRuWuKTqMUYBl3qql2stE/ahKqNqY5AC89jGozfNTNhxhnAhpd8UmFN4 +7FDVx4RpvscJm9ZTYJr50UVpHDOm1mT4gJiFxg99HmXBM2Pfemf+s/2I+g0z +zqdTjMzYWMr9s9/TKUDP+fCxgJkZKx3/+/L9BwrgTNoYtTmZMb2cOwPPE1C/ +ki5XfE0MjS8ule6NQP1Hm+s5bQlmLKltTrMxjAJCG1UD0lLMmPPSY0cP9F4W +MzDhnJZmxtSr3vQNBFNg34qf3WMFZoybPz5oKoAC6qd6hd9qMGP424XMI14U +0HCRzXusyYxpHTdi/f2MAhD34OR1jBm7qyg1+/MpBXTn2B7I6DJjQ2c1HnR6 +UuD8W9XGwrPM2C9upgqBRxQwqPaxfnueGdP/GHBMxZ0ChlONq48vMGN9Kyv5 +xm4UuIzZyOhcYsZoA/ei0tD73HIs5FmrKTOmtPnJxN8Fvbe5//AVmTP/r+L6 +D2q6DgM4fgn4wO6clDa4wAymLk6T1oV45fw+MROCMhAVOmrKD9GhDMeQgwGB +IgwRcSBDfhgFJkYgugGb+hUZ5AhCxNVBUMhQBiqahHgt5YCe/nz9+fk+7+e5 ++2JoZOLtHjnL7N0kaCiTAEp6+gJeJ8epWwd3RwEWD3oHGxJY5uA1xwRxDKBs +aZVlKVlmDXUQxAKWKzJS4mUso9g4KXwqBRQ9ju3xjWeZ5CifLvMBwLjiYdX3 +B1kmpSBL0hIPGFRYsZ1HTh/lnUiXA7q4TvGcDrDM15wojz0KwPD4rc75cSxz +5P2LBvFhwMb33F2dybl5YisnFTD605DgtVKW+amy6MqaNMC2x52xzftpfpcs +BX4ZgI4tRZ1i8qaOdyIlmYBrVfWyoX0sk9qf5qM8Arj8I67kMFn/sNupNBtQ +19502oX8bNZlRJsDOPNAwzXG0ns9m3MfHQd8tdrWxyf/4LMowqGAepqOW27Z +yzLjAcHeHoU0j+hFFd+RPb+sshOpAYUDht37yZKEJ7+HFwOygpyYDeTKox80 +JJUAdkZ/coFDHtTkZalLAaFdsXo8hnqrG9jRUAZYFiT/00QOub7Kq6sCMDXr +R1MDubAvcW7sLGD9sGq0nPzLfaN5oQpw/V352yfJ8A+31q2a+lq4U55L3uL0 +ldL3HKBX2xLh/85yr98Wep76rVBPniC3er/wTLhAvXE7Os6QX/r52/LrAAvO +cPR15A27ND219YDzul+N7WSFdOzbjouAprtHLRby5XRh0sglwHsl2Vx7es+T +U5kBL7WA23eKAteTvc71uvOaAV3Pup6SkGP1btNCPaDPRMZQCbmmW2r67Arg +lHF8tZlsGTaUS68B5n9YemgZfW/3vx1kOdcBJwW6pghyuN0Ov+obgKXT8w/r +yBpeDa/VSP3Y+3HmyVzR5rbnNwFbtEabgeYZFFxw2vlnwDG+yrCCesiL/mPf +um7AxSe/CDxOfiU/2TmmF9D/me8dOfW0+Zub1sw+wGTTbf1TsvLya1crzYBX +RaowOfX3fKAx8rd+wMqexEYV9TrBf6DzGwHUrrxl9y/1zvf1UUlGASNHYEkN +7cOewOwI5X3AmCp1VQjty9Chlfa6CcD+JgHTTv8zt1rDdnpM0X1J0Ry7p2AZ +R/N5L9E0oNht+C99Est8bJ2ZC5+h+SzurSyi/b3BUdeqbdT/W1trdtF+z64Y +UTa8AFx27I1HSPu/Ubju865ZQEGFMORdug9JW5R86xzdnwyteZWSZbRhXbaF +Bbpv/sbIN9NY5j8hqjA5 + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.015}, + DisplayFunction->Identity, + Frame->{{True, False}, {True, True}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, { + GrayLevel[0], + Thickness[0.01]}, Automatic, Automatic}, + FrameTicks->{{{{0.05, + FormBox["0.05`", TraditionalForm]}, {0.11, + FormBox["0.11`", TraditionalForm]}}, None}, {{{0, + FormBox["0", TraditionalForm]}, {2, + FormBox["2", TraditionalForm]}}, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {0.020871680181570477`, 0.1459363528784051}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], + GraphicsBox[{{}, {}, + {GrayLevel[0.5], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8lV8YAHDXvS4qe0QlW8loGSGeY5RSIimVpMiohFSiVJJIpYxIUcqI +aFhlk4ySonLdaZTsPS6udf3O7y+f7+f1nnvOc57nec9RdPGxc+Pl4eEpJPLw +/P+XkjMdZxNeD55uPWXOtzuAWGv1Nf1XIyj7ECTHjdpBolZaye9yM9z2kFMJ +PdEKH4deHKpCNLAc2rJyayUT3ihlJes7skAuTYI2I8UAeb2R2NsuHfBvaauL +3gMa7A93qzSN+QtxTPcRDwMqrIVTgp5P/0LbpEXLwFYqDE27HHiQ8heM/a7M ++WpT4Y77iV5m3l/453rXNFyZChU7HEUuNv8FUkhcZJsQFTRJ+51fSXbC+uC0 +evjXAvw3ty8te9wJXwwNGGejW4CyzWj35uROuKAhP3H1fgukjBnEOmR0Qovj +bnJMeAuYnNBfl1bYCR/426N/XmuBi7DFxpjeCYqRB9qenmmBzsV1yT6y/2Dy +7cHUWztaoPyKBFAS/4FL7FXjT4QWkDy11OeT+g+WMkOzVnMp4GU9GLM8+x/o +Nl4bD56jwBqF6h6zkn+QMHHp8+lJCgTV+j3Ipf+DNPm37sXdFKC8O77N+s8/ +KFi9L9WzkwKaCVadfb3/wLgkR1+5gwKsM0p6CjP/gPV03KyUTgFD0d9tD6S6 +YFL479+g7xSImS0P3yDXBQ/MhVn36ykw0Pl6c51KF9BjznS+rqPAkw83by9u +7QJeG++Z5VUU4BzdrOVl1wUS41U0/48UsLWQo/Ef7QIDUaOKqXwKZGoJ3kw9 +2QX73+k8u5VLgcM8fylM3y4YTv5k/uMNBQrTo4J2P+wCnZCVevJpFBB+GKTW +Hd8FRhsjxtekUMA9wPNn8PMukLz6rETjBQWk9yCVordd0FCm++haEgW8dTQb +D3zoAt8ni1urnlKgTk4mYLSsCy51ji5JP6GA/9hog9r3LtgQzjKci6NAI4N1 +6XNzF1wtVzG484gCatVf5I+zukA/uStUPZYC19/k1892doGV42qv9mgKtMQl +X4gb6IJyIr9xRhSO5417cpsnuuBJVveO0IcUCPW8/OX7bBcMnJyiXHpAgdb9 +ruc9Cd1QaHRxW1AkBXSMbFaTBLthhdWLisf3KXBfxag2WbQbJp4Xfvh6jwJd +Qut8jGS64cJezlkR7O0z4rI0+W5IOPVio9ddCsT+4X72W9cNpYEKth0ReD/q +B7yEN3ZD58lI+dPYZvlU6Sy9bqiVmRsVxH6a9PnTDhP8/FSgxOc7FJi4/e7M +3x3d8HHF2tZobCufp5LXrLuhijqXGIidcjisQuZgNwRHKKX/7zlTP8+CY3g+ +gxm7Y7DtNI6L257qhq/bU1jV2FmSVmWDZ7uh4VDNW2H8e7xcXffwC93weY2e +xAXso72KospXu+FniaTzOHbuT6GSipBukHW61hWB11Oz0VZC5243aEllaRvg +9VIfxHi9jsbrayfu4cXx6R+m1K590g0ni+nh3dgLe1fKP3rRDWVp/lv/4XiK +vDkSIJjZDZZNGknzON5Ky5N+XX/fDXeenRTZiPdnV71C6OmKbhA6Om3RF0MB +x/Wube213aDyeeG5N95v7/B0Pfsf3ZClObZFLB7Hd8eGfpPWbshYGNJ/g/Pl +VZqXWcE/vD+sZyg9kQJFxPeJ6oPdYOwZkFf6jALtVVv3Sc51w4aZf2OmOD/H +FfwzIgg9UMuut8zD+UsKLuJZEuiB4z6j8qYZFFA3Mc7vX9kDuj2HPEtxvm9/ +dmOFs3wPNPR+ccl4T4F9C1VuFLUeWH6eOpGXR4GLJTtlKnV74GaF1h/1YgqE +y0ac1zHugftVgwVxZXh/Axq+vbboAZWU55JKnyhQqWd77dGBHlDLv3Xk2RcK +LMs/0nn6fA8shLzapoLrW048yagjoAea9M88ftpKgU3n2x/ZB/eA6b40ja1/ +KXBwo6slPOyBnpzB6IYBCrzI9noj+bYHHKtpqc+WKJC/7D3f3YIeyC4QmlPn +a4G60+PHl0p7wCRd+w1jWQsMrfMXG/jWA50Z4ydTpVtAP+2Gf2VfD8yFFVb/ +3dgCVsTPTTpjPWDRe/v1Xb0WOOZCUs+a6QFba1sXB+MWCFGIYD0i98LH7RLK +x/a0QGNSDDqj0gt6cYftxE63wKm49GVSJ3rBb0S8TSa7BR5NiOZpevZCxLn9 +YkUFLVBtE3TEwrcXeDtLLW9UtIDSsgOZF4J74YaiQ3Lo7xb4c51n5+8XvTB7 +um/GeaEFHD0dbz782wslf8W/Tx2igp2RGEfQtQ9Ezc71HVSmQUhCULLi2T44 +ZG0vNbyJBrlTvTsNLvSB4EBL3GMTGojmVMR53uoDvlPRv5SO0qBRxWvrl9Q+ +WEl7qz4TTYPdwl+8Q7v6IJhRyi0g0gH9DermuvXDk4lLD8z66DDn0zJ071w/ +FO2XPnZ8ig75XC22zKV+WICAZm9eBqit6eDdGtoPzYvMwjNrGLDCwVTBI6Uf +WPs9dYptGMD4zufY1N4PH6YuJErkMyDG8bjLsZ5+8NHVpitXMmDvwMfT/cP9 +QKTOUOUaGPCJ3zOAuNgPN1Sff/neyYBXZt/i9FcPwLEvekNkMSb4FT34meww +AB7n61fc9GSCpmUvTdN5AE7NNN4f82NCdwt0FLsPQPUS3xmza0w4PDk23Hxp +ANTJMd/vRTMBtA8sF3g0ACIX+QzeFjGBU5YtHpc4ALuLLBXWfWZC3h7SKqXU +AeDZtUvpZgMT1E5/WL89bwB2ehtEUdqYsCJt5U7fnwPQIxIXx+ZhQd0WX+tF +2gCErHtgdkaQBTeqvtrf7RgAmz/R+RViLJhoD3RNG8Hz3xsfSVRiAV22NZi+ +YhAWHTNd5hEL0h++KEW7B2GK1pGaGMCCoDVKYr77B6GwIzLzxg0W2L1OdU8+ +MgjFxq9PbA9jAffzKzHu6UGIGGU4oVgWHJp+41F6dxBWUC9XXcpmgeYt7fKB +mEHIMEz9qJTLAl7RHPFViYPQx7YLeP2RBe/V88sDsgfB8vpKuR1VLBBwKpbQ ++z4I/ed/HC+hsKC93/C0G2UQSuvfmxgxWFDgX1bxqHUQfpmsTn7cxoKTUZWn +J4cGQSL5NfVfNwu2yZlWKk0Nwsr9Y1qUfhYIZ32WtFscBM/VLstfDrOgpLq2 +MkdoCBa6eq78YrMgytZS6o/UEJgxBZ/rcljg3vb1jMjaIWhvvnz68jwLJGYa +pLy1hyC+lbM6jtAKA7eszz7TG4LHds6J50mt8Em06dN3kyEgVyaxNflbwWvD +77MaNkMAZGd/0xWtYFZ4oOqowxA8VKuFROFWkLFokb7rPASOX2tUWkRbYeTn +Ia9ijyHwfNB4aVS8FWqd6FV9PkNQcnXh1oBkKyQNHFkpEzAE3Sud0uqkW8Hv +MsvLMngI2l4maYTKtMLa6PaVr6KGIPqy/6e01a3AljtxriVhCAIrR/0F5Frh +W9bfz6SXQ3BnmK9n39pWeKHvKqPzeggoN9a7BMi3wuWarnOuuUNw/OQpdFuh +Ffbtd6+OKR6C13J1tEuKraDS3ivzuWoIft2sv2al1ApzZ057j9cPwe6rpeFE +5Vb4OTNQrfB7CG7O9Fm9xH4V6iVryxyC4X/P16iotEKQ2Ij3jU4cb60Ndvex +7Z771LwbGALFahpiYqtrjMu2T+B4Zl80EVZtBZ4iPx+h+SEY3bri5XpsqgW7 +ZjtxGF5b3yxTx37z69Iqr+XDcGLpcZcYdsjxGZ9EiWHIsZE89xePd3gwoPbb +6mHQ3VHyOgFbO2Bu1ZzyMNzvsR7RxybxBfmqaw6DjWHsg0o8X1b0Yu1hnWGY +F0hp34idt/bG6jvbh+Gc6NHNEXi9d7J5zhda4Pd1dtEacDyObwup69k7DC70 +XgUOjpdOLXGN9MFhWDhecFwYu/YLS0HeaRhOn3peIYHje+hbvup6t2GY3TMW +QMLx7/t+b8Pmc8Og9LmJ8WdNKwQ2uW40vDQMS3lFWq/x/i37baRjfm0YRket +K51W4f2nSBjsvT0M/ApA5eL9rmBUmx2PGwZx7+Q8fpwPNq2Jlh7PhsEg3pzf +F+fLn/YLe33Th2G49u1SLc4n3i7lQyEfhsHN1mTOSKQVLEdunX7VMgwN08a1 +Djhf6WOO3u/bhiH7xs6/OnytcGZy64Wi7mHYzhWsJRBb4T7nX9C3qWEoFf48 +eJbLgp+8FlEjUiOQGny68w6un5N8a+Jm5Eagmxx7bHAc9xd+9hMetRFguK59 +CqMskBJKSxXXG4Ekhc37KnA9Hl1JKtQ7NAKxzHuKq9tZMCjbWgrHR8Dz59dt +4qz/+03Bp13u////ve4FGguSFU99O+o/Armmdi1vf7GgS6Om7Xr8CLx42dB9 +q4YF3iiU9IU6Apsv//inlcmCm6dJdg4OoyDLl6BW7smCpGf1H1uOj8KxT3LE +xlMsKPr1YLW9+yiYZrfM0U+wYMRAttv20ihsvBqV13aYBceWaQdYxY5Cc+r5 +S+m7WKCX7fDcuGkUvLcpbdyxjgX+/genopXH4LDj6pM+f5mgUZRpGpA4Bsse +nRWpscZe8k5+kDwO1wOVsy358PcntzXzSOo47MoYIz/mYcCIi1WeSsY4+Hq7 +9PTO0yGnTrW25N04TF6Stn0wQQedB60DPeXjcEp18u1IBx22y1npQes4zHRK +RpJK6WBtpPpjVGYCjtftmy/zo4P2cAy1ZM0EFJw44LjXmw6iyTx/bitMgJu9 +iEX7aTr85m2dWL1+AiLf5v8SPEnH+Rgjs0t/AsJGmA3BNnQ4foTn1IuDE2DL +cmJOadLB5zJrzjZmAt6meA+ZDNDgeKaTxrn4CVAI7QtkdtNgH6PDMeLpBNTE +hbtf+UsDTaOusqqUCYgXYcd/odNggDt0fUv+BEzVlfclfKGBexiXV5IyAbnR +TePKr2hwLE5xOU1qEupC5/h2etBgb12q0aTsJLw7EfzyrisNjGZUvUTWTkJ9 +5NZHLc40WHVkww9LtUn4pFhZff0wDWhrtj4s0puE3u3qoGBFA7s0C4mnDvh9 +ynKBXG0amLXUmX90nISrRwymXTVosJm8++Jv50moIJ2/sHY9Pn94Wrcs85yE +FLHcs1mKNPihcejx1YBJkDtx+I6CFA125XusdnoyCVvNtDYlLFJBSj5O2f3Z +JEzozP9hzlGh8+5nDZ+Xk/BX76qGGocKQS5y22++ngR/5scu6gQV3os1H0sv +noSsSiWr1D78/BqP27vySRDaE75Bq4cKu/q1zhVWTQK7vs/u0z883qc71+rr +J8Hk46lm3g4qSPuaPB9mTMKOA07K8y1U+Mc6+2q6bRLkF3rrfjVTIcfyybul +v5PgbpzolfeLClby7AqxgUmgFn1eE/ODCtcaX3fozk2C3R/+tB+1+LkhrdeE +OwmFT+qHpqvx+K9IY5a8bCi0MmNv+IzHu+bMc3QZG9ZUJz/Lr6BCl6aU4vVV +bNDaoj62u4gKuQlm6uFr2XBorvZLw0cqXCf5bo5SYkPFgxtyRz5QQab1m2nK +BjZ4J7x7EZ9HhW5Lzu5sbTZ8aaAu7MylQl6+ql3BFjaEWN7UIeZQYc+9YJc6 +QzZsf/Q5Nvktfn/m7ZkmEzZYK68YuPEG/74Ly49uxoZOf+NAr2z8e4Z6twas +2PCxtyz5zGv8/ivXe5P72CBQXe4WlInfF4+OXbBjA7d9+eenGfj3+gdThR3Z +sGg/9XQxnQo3Dsq+WenMhpXnzHeaYe+t2lmg4MoGjqlFd2waFWS1Lpape7Ch +gMEfNZFKhZ6ElzVbzrLhTqrUiePY+aSm70Y+bDgp+fs0LYUKwb4LFIsLbBBm +EaqcsPe2qrdZX2aDy6vTgeMv8Xi7HLoPXWWDtmrjqxjsnvzQYecbbDAns4+Z +YufJ50153mLDeU7y+8UXeH73OhbPh7PhflZ83hfsvTMryFfvscG1ISkwGVvW +1VA49CGOp+BlmdvYPY0e0pGxbLgnOZASgJ1vGLc2/jEbgp+WaF7BDn71WS05 +kQ3+Vm/rI7DFs3vaXZLZkG14ZU06dtr7ZY/VUtnwO8z553dsvQJtm4FXOL7k +M1M8eH5fi+z432WxQSnmVeL/8z1a7l95/h0bOniUmh9gD1U9vaybx4biDf3Z +fdjX6yo2zn5gg9ipaV0bHA/Rhs7esmI2fKupuv4ZO6WJ/CK4nA3TQTVRZjie +OpQNhy2q2GC2a69/E3YdfZ+oQC0bjnW+MjiN9+Nwm9/Xhq9sGCMrdYvg/Rr4 +Gx/88Dsb3p5ffqsaO6inZNuBn2xA7Tlyoa+okDzK+5pJY0NitrufJs6HTWy1 +k89ZbKi8JW4qifPlM8dK1qUD5+feXF3BLBw/QmxEfw9e33Nu8SqcbwHkQtO3 +Azg/n+86ro/zcdly1qzvCH5+vWz/yXdU0JZUPsOZYsPN5jKbNpy/n2Qslcpm +2RDhsc9rI853O7mzzBuLeH8FyqYf5FPBXy3fip9vCh4w+Y/743qp2GauIS05 +BfS3ngU9ZVSwNfb4x1g5BVUxf6+l4XrrNL2X+Gz1FHQeGa3z+UQF8p7m5arK +U3B/Nv2Pdg0V9jm5Dm3dMgW002G+Nt+p8OdkeNqM7hRkD0RcDGykgp979rFS +gyl4OFfJm/uTCvE+k9/NTKfgfbZI0i7cP9pu3nq733YKunNNqTK4v3iHZbhJ +2U/BK24nvPtLBZ57DXIMhym4LLNnzLaLCiqPJB6ccMbjXy4mVvRTwetVqreP +9xSMmkkI6k1RYeFb9cbI+1MQIK1/KFaYBkn7FoRToqbA2lr/jqk4Dbb/1hn5 ++GgKtG8umXBxP73GSH/zJ2kK4nR9f6bI0YDbG66u83YKzNdFPonTogEP315l +1o8p2CVmeotsSwMSUKTVRaahusi8ZfgZDdI+r5g2lpiG09Xv1VRTaWCxc0eL +3cppuHqd+swtkwa3rT/GBslPg4OHiQwhnwbkYwmiPzdOA1EnazbxKw0EAo8t +u2w7DfcNVv/eMEUDofyuxZroaVjcmPKbsp8Ofk0SkY/ipqFBVS/b1oEO9EGz +NaeeTMNj/l1GP47RIUXlpSHx5TT4DN5L+OJBh23xTpdNc6aBUcecKLlGB5dA +6lh54zT43jthcOY1HYrg67+Py2cgsuXiSXcuHeSOzfiFicxAfFTIzftEBoQE +qPEekpiBlAvo0RsBBljnhipMrZqBDcXPmxniDOhUMnXaumEGknuTw/+pMUCI +XEJ9v2sGXGn85ZHWDHD5nl2feXsGpkyeGmx5xIB05bBNbhEzENF0ce3WBAb0 +XTnxWDFyBtq6ftWqJzHgnLqU29NHM8BXtGkZJ5UBAWHXee6nzsBo4V5NaXz/ +fYj26/tUzcDZ54lBlk0M+P1Y47lG7QwsVd12SfzNAMlRPr6+rzOw/pjJ5L8W +Bjx9VvL7xM8ZUKhr77JrxffhOWVvu44ZePB4V+GrPgaUFUyn6S7OwI+giBtr +lxiwtPzX8gkeDjRf7X1aRGCCmWu23zsSB+a2renbSWLCF7ETaN0KDkhu9CIj +QSb89q5nyazmQPXHfSpp4kyQqks1a1nLAbGwpScdkvj+LHf9dbQSB26L6iOR +lUxob9hyedkGDixRV63bs5oJ/euTxBe2cYCUTU/SVcb38WD/wKLtHHDzPdwi +rsoEb5rtn4uIA7KDyfZdakxg3+Z7N2zJgVVWCjtPbWCCfluHZNYeDrCuPvsi +rsmEKzolV91tOPCp0/fdBy0m8Pzz3t1xiAOtAynf6JuYYG64OyfxKAfuMHaI +HNnChLBo5ZWHj3MA4cPPj61MWI7oXT/dOFCuMCYep8cE6WemwZ8vcuCY5jmF +RCMmeFzYJPwzgANrsx0Y9O1MKNotn9QWxAEv/6BzgiZMODq9UMgJ5YAPM8TN +HDEh+/vgDnIEBwQ8zvbtNWXCQgqzWSKSA5PrkkJ3mzEh2aZoVDsOx0e7a+ca +CyaMqWZc2/6EAyKevPcnsM0W4pZbPeNAXrn/+rIdTIj9HfrE4SUHtokraAbu +ZEJX5oV1bukcuLiBkKVuyQTdGy4f/F5zYP82wscf2GEH95sHv+XAG5MRV7dd +TKBpoF+RuRxwRfFfxrDX8250TvzAAXv0he2zmwmBdLnhzGIOOJnaLHVif3u3 +4urHcrz+nQtzu62YsPr2vEBNFQe07ZLm07C9HAfif9VyINdjUZKNXb6ZodJR +z4GaiOGj+nuYICzwNW/oBwcsSg3/emOfaP+I5n7h9S3llT7Fzi1Ib+SnciDy +kgq3BJv33qNjUkwO1IkElTdh25+8NaDUzgGPFUiUgZ2u7xewqZMDEUcrVtCw +p4VOkk16OGDZb1Ffj23ZZfNozwAHyjIUj+ViJ5SYKB0Z4QDhdgorErs/SivH +fYIDm3yljjtjG3qsMbk4zYFTh7/OqmLfM17+/eYcB4o0BWv/4vW0SswdecjF +829VpcZgaw309SbxzoLKIS9zA+zrn2iXssiz4BexQbkFx6spvo5YtGwWLN3e +3XPHVjj3IbpWeBZG9M7GDuN4V8vGvv0jPQsJdUXtrXh/JMduGo2smoUDKxX3 +78B2r/Otn187C9wfEZ9S8f4KXNjXLb1uFtQjmZNmeP+P7Da+oKIxC2/Sb/bc +wvmRJa9J2LJxFpQtMraWmjNh73dBOWv9WZjaMmQohPPrWQon66jRLNjFflNe +j/NvJKB3myfMQuaT9BoDnJ/RqrX2tyxnYeGOyn1TnL/U68H3ix1mYX7ZZF23 +ARPWHfRZ9cVxFgq8pgjF25gQoHE8k+I8C6Em6Tm39Jmwim5UM+oxC4IBD+uW +dJjgvHlmXjVgFnrV17rGbWSC/4tWg5Grs2AlZBoG2ky4L/L58scbs5BcuZ3R +ieu1aPj+5M7wWZD0TToshetZNEtp0CN+FuaM7T5pqDDhs9I+5uuCWSBIG+zT +xv2DHr1Vxq9oFo52EkQvSuH18MgeMiybhW7rB2oFEjg/O/79+laN43frw2Nl +USZcTAysH/w9CwHTcX5VAkxQk0wv0hqfBbkMlpXALAO237o7PcWehYaBpeD5 +aQbYTfjoVHBmQfyDuPwAmwE3fhrm7OOZg9Mx6yjFYwyg3/+Z4SMyB+tdBQZU +cP+8y7cQn6s1B4dP9c7rUxkwPG13SffMHGzfYRJa/p4B4t17mfu850C245g9 ++S0D9Jp3gqffHDiOn+XuyWJA8HtDwcQrczDG2aXamIb/31PpGc+9OXjUH/Ti +/RP8/4zxmobsOTjk3eU0HcKA66VRki7Dc3Ag4owHnz0DRIIb8x/4zoMlwf3e ++Uk6iL++MPbo4jyQIs91Xxmjg+RvGa3EgHn40XTlR+gwHWRUXF9lBM8D5472 +5ae9dFD4OpPwKWoeprXzrzWy6LBJVPH6RM48xDrkl7nW0MH2xYVdh8bnYW5p +1d1H8XSwq5e5fWxqHtC5cqe6WDrYT5RXuczOg42c7Za5KDocthAw8iEswFX3 +pmWe9+hwoi9J647YAsiETOU4BdPBd1OdeMnmBdhv0PGw5Awdoj/JtMn5LcBW +lWnhO6b4/ZCC+vZLCzC6pnLEAPD8LGw/JgcugOQ778qR7XR49yX8oeLNBTAe +EXY4uY0O3xqnTVWjFiC8zPDw2Y104G2jvNJ8twCFCTYOq9bSof65b+xw7gJ0 +N5w9vbSaDlEnVgS/+7AAVhfWz/bK0mFtl/mRTeUL0BATUFAtRQejwbzlOt8X +QN90w8NXQnS4OBvlazSwAL1jQlcVufi+W6rptDC8AE6xy4PNFmjAe+3r7vLx +Bbg3NxLpMUeDKB4eZZhdgNyj5J7yaRq85fdpMRNYhECj335JozTokbI2tFJb +hLndH46s78TPaX1qyzcsQrZKcVvkHxpcfBIq8V1rEfd5+fGZdjy+XNmQte4i +vB4s6GWwaLBWRSN5v8Ui2N804qG20MBhiyDpiMsiFNpSfn74hu/3F4pXnnVf +hEvNLKW99fj9gtMa184s4u+luUcfvt+/0f1m99JvEXqmZEa21OLnBvde9ocs +wuarG0lin2hADzT6MB+2CN9/hs3SKvD8Sga/Ct1bhMGO5RvTy2lwePvesc2x +ixAqFHbTrpQG70AIrqQuwten/o2zH2kQGlxudz8Dz9/7xLfJDzQ4UnXO/Xn2 +Ioxdi97LLsDnRfPGyM/5i6DvssQriM9/jFvXX1IKFyES0XbK5eHxarQ/9JQu +wp5zmpu25eL3dz5sXVazCIyaUPGQ9zTQDoexNV8XQWJWaXXuOzze11Hixu/4 +/QcX+3re4vd322ocoCyC9JjHmPsbPJ+7POBGX4So2jTD3Gw8XkOO3eXWRVAQ +afDkxSZZi11J7FqEI2LLoopf04AZWRX5tm8RvJrLE+Sx3zeef1k5tAifPWPT +7uPz61Hb31//sRfhMetD19UMGmyKDmmd4ixCbkCsMvcVDfh+bxnjX1wE0wvq +18Kxcw7ErtTk48KnX8Kx79NpEPbIXMNEkAsbj786vA/bsWXSxFaIC1JPwvaw +0/B40ml2LmJceB9/wPclNtnB3v2iFBfgbG7DQWzWY9KVMFku8GlYuIhh59AL +IhPkuGA68H4bBZ+3w2TdXmYpcmFLecKB59iOR6U+lKlyQbYopdAHe1Ni7ddG +dS7oj54/vQub3Hqp9Y8WF775Z51bj81aozY2sZkLEq5jX0Wwc5yoRD49Lth9 +7b3BTcHjPw9budKQC19KdB6zsR079DTUTbiQv++qxAT2JoVeEyMzLtgnOM9O +Y5NPPraz3onHG060JuLxWl9aujtbceF2U6vkSuzczpnA8/twfIKX2W75f/7K +mZG37LgQOrZ9yR772KnDL+MOcSFK+L7SDewt6QIfMo5yIeWbSEkONn9P0dfi +41y4Ivmntv//8dVOtza4cIHGkty5Accnz0N2rM2dC5dF6wz9sPeafsrPOsMF +4dQkhTLs3lUely97c2FfQcbtFXg/QthCRhZ+XKgsmzvtir2msYAr6s+FPp3X +Pz5hf8xw/NwWiOMRV5ejgvd3/03esKxreL6H3CUeYofp2ApZ3OaCS9sVh8s4 +PxSEZ36KRnBB7pG0wRR2ae+zR2338fiRIU8DcT6NPR1cffkRF1o1ZNvicL7d +vRjTYZ7ABbeqMxVaWTRQ3WeQKprEhemrTPnv2EcJ4RuyUrlgvdzLZQ3ObzZT +a8Q/gwsH0KBxI/bDAkqueTYXcgYCH4bheqjxUDJoy8NO3Buy7P/6aSy3FP3M +hcf2AarOuN6+Zpxa3lbLBcVVKpsscD263lze9LqeC+HWw/c24npN0DlyyPwX +F1TnjqvI4vrmTWSf8v/DhWu2vg76Jfg+eTFxvXkXztczRaf34X6gv89sSKQP +5+OgRubZMhp4EaIuvB7lQs3qNY+LcD+hemiEtHK5sNvp8pvEahpk6bgkm8kt +QWlhjv6NRnxfFBZ0FVFcginFZflTTTTo6H2v1qqyBLpPPOjnf9FAMnHx7SXN +JbiT9Gz+CoUG1wlPyjKNlqDPn5vUxMT70djEED66BGetzmgF9uH1dSpe+uq0 +BEK/+fdvH6ABmrkgGnJyCSrCH+qShv7PVxnLKc8lGBBvFErB/VnU70QB6/IS +NFSujpGcocFPqfEHmXFL8Hr3SGQ9GX8PncQtzH4twf0nvqmC6nRY77+BZqjC +gy68jbdUvESHwUqnbUiNB62H090/LuPvlWD0kx3redAzBw3Jq1fooPNsxtFW +kwcJbOKvot6gg2lNzR83HR50p6E1OeouHY6KOw9EWfAgctC2NE4yHe6/i13s +OcWDbHg01Mbr6WDDqTs+5M6DKlacTQ3+jr/3ZnOV4548aDzqcbFQEx0SWk6E +LHjxoD97axwVKHRIX9DiF7/EgxIyf6qottOhwuqrqPFtPD59za6n43QY71lQ +jk3nQWddDxrlSDFA+ppG26UMHpQjaFCauRKfjySOxh9+zYOuzBxRfSbLgDtQ +KLD2LQ9KTy+NCpRjwNqE88OZBdibqO+WVBiwd3fPx4pqHlStvM5521YG+HVI ++r6sxb/fINwxoMOAx5fM1UO/8KA12c1ZCXr4/vzyReLuBh5kxK9O6DFgQODc +0WDKbx50L/3i7E6E76vZTbsH/vKgzJ/5InJ7GfDdlMv74x8e/zN1x018v56g +aZa97+ZBOvcX3f7sY4Ax6a72pX4eFLTM3vrhfgZQjllI8IzzoOO5tWveH2LA +3ITf984JHiTbSxYZcGCAfMTL27VsPH6sZb38EQac+cCducvhQUPeBx9cdWQA +Qbi4VYqHgJ4u3lZjOzNALa03jkMgoHvF6Sp8J/F6DaVtWEQCerHuL0vUhQEJ +7heqXvATEFPfwFvmFAO0K7VeaYgQ0FqO7UivBwPsDx5zFhYjoBLJzTcbPRlw +ZfCuzLg4AVX37694f5oBtSv77n6UJqABU6dtLmcZcMw3xcd0LQEVJqw6GO7N +AMGdjmV7FQjow4GpXjsfBnxcLSl4WImAOMr9pjK+DBD9cjvFW42ADDY9sYs6 +z4DyJJPRwPUEpMErKWTuh9fnN2N0ewMB7ZVSjR/FrpY73ZKoTUBEjfDVehcZ +4DupqJSxiYAeVMev/om9pp7pnbeFgDbVF4+7XmKA/8W9AvV6BPTKsnBdoD8D +lK34DlK2EVBvVN69Oeyf8hUvOwwJyPLDrZ+XLjNgQ8NGo2kTAvrZXy12NIAB +tBd94QRTAvr08a1MNXao/0vKCnMCWvzhI6UWyIBNe48qyuwgoP5IS6Fb2G2K +Et7Kltj2fnxM7LszDSXauwnI+aYWUeMKPh//COU33ENA785/XO6P/S/F2H6H +NQEZhVqplGJHBUy/sLUhIM+V6+zmsI33vR923E9ACRERT7deZcCAsqehxwEC +2mjwntcD+/GsQrjfQQKKDm15+AjboonRfM2BgBS+GViWYY+nxShEHCEgU09Z +7Xbs51f2nHvkSEAHy3N3z2Fb2ZJKkp0ISOe3X7JoEANmVMvJ2c4E9HbdSz1F +7LT5Swc+niSgC1lcaU1s21/aL6pccXxWGu3ajL34qnfouxsBSWqRf2/Czgp6 +YUD3IKCIDJGyDdgOdkfC/p0moCALfmF5bNJ68eaRs3i9VUlNQti5i9/k584R +kDjrhsAMns/x5ltefL4EZG1z4hMTe/nr7cWifgRkyBrmFmEXXZ/iW3ORgFS3 +0xuisU/Zv7Nb509ARzc2abthi23wSN4SQEBqfiEb/49XxZL8kPEVAqJVvWyZ +x/E800LftjuIgIpYresrsWuCrX47BxMQuLpN6WKfP0SUPxtCQHZ5G6/34/1b +q1l21j+UgCwWAimPsQNoWnyRdwjo5HqiSDfOB9W3PfsT7hLQ4XM1fKHYv0OS +n6feJ6A1FRtH5bA1tMW2lUQRUPouwUoznF904rfQ2hgC0u2eLfyB8y+UEfLr +5yMC2nDgydcD2O2h7DO9CbgePfsP7sf5G8OiPZN8iePXOaoscYEBKYv3zBZT +CEh2/rVVCK6HXHnU251GQCub1c4M4/r56Zq5qTCTgIwn3xYU4voSGgqoPpJD +QE+O+TnL4XpcI6zlaZaH6+vKVp1z5xiguenvCo0CAjK/2Wde7IXz4eLuQwuF +BNQVsl13J67nOwuy/c8rCWi8eXSnDq7/hLWNkeFVBPS5PJ/pjvtDBgrZ4ltN +QM3c8ME4dwbUhQ5cNf1CQAGCqen9uJ8QhUqFuxoJiJL118sT95/rcsd01NsJ +aJuaWfM33L8egChD7A8BOaWf3F5/mAHPTtZcm/tLQK+dpd/U4H5Xlq75paGb +gLz1S6ryDjJgVmvxiPcw3o9eVpEX7pcXTZ7fyF/A/UPzu7/zLry/zn++Ga/m +ReImBcuu4f7dt/YMa40cL8p5HFWwFfd39/bJwfm1vGjXxJ/7fZsZ4OLEL1Si +xIvCrhr0793IAEdHbRu9DbxoZfzerYQNuF86BDVrG/AiYDtKysvj/mgj0yrv +wIvokt8NPARwfZnYDhNiedHIS/ViKp0O08anogXjeFFy4kCNLo0OC9sDdMUe +86L6VRUDj1roQDZ6cU0hkRfZBVRlHPhNhzX6Y0KQyotSHIzamhvosHNjlHZQ +Pi/q6hTo6amgw1P5nz7TzbxIuEtnKjadDslruyS4LbzI80OEKH8aHdLkOIV8 +dF50eUbN4WoKHd6vVuCRauVF2wp2h3vg73HNSt+orV286IP3nkM2T+gwIiKa +68vmRfPqN/xdI+lgzmM7MSBJRJU9MUea/emQtcd5pEmaiC7tUW+MxucD8cfe +AwUyRFR38Yus3UU6dGpFdl5fQ0Sb7y63pp+nQ4jjt9/iKkT0b2JHzbwXHT59 +tMg33EpEuvSb/amu+LzBa/9eXpeILkxVXwhxwfdZa9dskj4RXXH/rul6kg7O +XTdTGw2JqJU3BTSc6cAVq4x1MSOiB05Bl6lH6WB8zuDi3f14fnduZT6zw+st +2uXrc4CIbu1RufVyPx1WkA572R/E/193szXDlg6tT/1PrT1CRCqS9DVl++gQ +9DXfPu8EEX0+8NGauIcOJcraukwfInqW4GgiakEHJR/jzZXniUjOIVXYxJwO +d0v2aqVdwOu/sz3V24wOR/afVfW+TERNUec30BEdONczpXhvENHGKFWpH8Z0 +0GcqTas/IKIPg7yHTfH9Xs2t7LZ+FBFt8zMKeahPB8mxg1I7YojovGKQ9l89 +OkzwReiciCeiE5svrH2oi89bm0f94p8TkfeNxBaprXR4VnaHN+0F/v9NfWHB +W/B5ylIpJjeFiGJvKDNGNtPhjNPB3O+viEhc4+FZ6ib8exGlo7zviUhxtWP8 +L206SEkevCGaS0SGisbPjmCTkkeE1+bj/dI44dithfevQFHboJCIkq7FCAhg +/4LS8p3FRHTDWW/xuSbev2/21valeLwAiwID7Od/wr18KonoZvDXi1c06BB5 +VnEhqIqI3gs231LADpouuXe3moiuLvie+LYBnwdXjGSlfyGimCHdSHXs3Y/D +DfPriejFhqI/7fj8uU1J8dunBiJS6P4hkIAtvc2+n9VERHeNSUwpbL7q4YD+ +X0QUJP4jlLmeDmzrcIGZZiJi/wrkT8X+R1dIIFGJyP9xu4sP9m/XknXidCIK +v970GLCrRg4UyjOJ6E2KQoYEdk7g8E6tViLylH8VPbgO1w8pnGrYTkTmojqH +v2A/eKjgvusPzq+o5/OvsK+tKpk62ElErmXFQXexvdIP3HbtIqK8d0daz2M7 +bhqWPN+D43nLbrUTtlVpWNr1PiLyOBhguBfbYKeCzv0BIqKiZEPAXv+ruPrJ +EBGRTiau0cNeeezAgYwRIrr8C/3dhE3uHeosGCOiaaNTERuxp86H+X2eIKJg +5wbJLdhdC/K8P9m4npYkQ7ZhN4cXR7dN43zeTm0yw/4sfkBxkENEvw3SFmyx +c58N5XDmiEhMRpLfFfvF+jBEXiQizdmS4QDsh/nyPyWWcD5ztd7HYF83KXZW +JJBQhhWvVQ72uXq7UW0iCTlzv5f9wj5mP3R9Ox8JpRopk2ew93TcFrbiJyEF +lacqCji+hmfknzsIklAIo07aGlt9qkjLbTkJXbpmwrqGLRNsV+4nREKvNsf7 +5mFPxd1ujRQjIZ/9hgLr8H7bVbBp0RIk9M7NjeKGndPj2hwnRUJTcoW7MrG9 +9M2+PZMlIfURX5VtOJ++OefWvlxNQtFIMOI29ro7ClXpciT0YrDsARW7k84t +fKtIQhuaZ71v4fxEBO/8XGUSultqbtaB/Vy97d0HVRLqF9bINMH5feRKaXq5 +Op7PvgNy/9fDz9UBsT82k9Dax7GWtbh+tC16H/zaSkKLxnZWxhtxPXodutui +S0LeSzmfi7Aty3VuthmQ0C/1n3wluB4rjo97D5uSkOKttb7duH7XhJ84M25O +QjJuHiUBuL6vvG9ym9pBQllvNjiJ6NBBl+fdscXdJAQDlfE7cT948/KMlZAd +CQkMuem24v6x7Btjh5g9Ce0Lr0+NwP3Fc2KXqdQhEgr4tWe7oQEdlM3XbZM7 +SkJVJYqUNEP8vej6p6rlQkJHWZZzz3F/urPOiWDtR0I/U5U4irjf9dh8X7C9 +SELDKZloCdsiwIhj709CCebnbDp20GHpq+zosSvYilIvMizp4H+G2uoVQkKG +h2M2Hcb90/WtTdH9GDzeKFN5ywE6qCiVLPd+REJ9E5Ln1exxvsarONvEkxBp +XW3JmoN0OBU8yyf+lISWBinqIg50cDuQeuDxSxJafu/Gm2WOdPCYnR55mUNC +m670PDiIvxdndzxXLWzE+fJOeZKEvz8X2oZi/i7jQ3uSUS0hEffv6L+Bgyv4 +0Mo/bWb7k+jAu5N6YkqYD52P98578Qx/X95VagtK8KEkvfPG8AL31xsx3zat +5kOxAhptgfj7OaC4jTdYgw9NiI5Ktr6nwwn3W+fX7uVDd+TsY1bU0CFzVcDh +9fv40JH84MM7a+kw2ugFW2z5kN+NjY3X63C96B8S2mnPh+yNOS8Hv9IhUUD9 +9bljfKg2rGQh/wcdqFmNf8q8+BDBysuQQ6WD9aisrWMkHxrUhRzpPnw+GBV8 +aPaQD7We25LJ14/rc2z2h3o0H9pByEybwGaPM/ZwHuH12B2LqxukQxL7iWVc +Eh8aPdJQfXCUDkOzstCUjedvMZ0hNE2H+DnB6x/f8iH19N+lTGw0P1v27D0f +QmK1D9Jn6PBogWHolc+HOn3EXHRm6bB96YmeYCkfak+0s9FbwPlMWqVt/o0P +UefrPL4S8P2Eb9m5Dd/5EHPnviYfXgb84ZvLFmvEz0GmVpLIAB1+pvqfX3zo +n3bdfgcSA1oFn6peY/Ahn4wv2RVkBoQtu3vqFIsPOQqkmNrx4/vR8iupe9r4 +0KNFF7t/2KErjiqu+suHNjmVsBbx+UlDZJVcYR8fenNz5Jzkcnz/FVl27PkA +H3oOPnmx2NdF557eHuJDhtU2nqIr8PlajCljP8aHxKRjVXiF8H1U8qnk+Awf +YtTQauuEGaAidfcAfZYPpd9dHrRZhAGNUldiKuf5kOdyt6Qn2Eorj4o+WOJD +17YNrXQRZcA32VUrNPjJyE1ZoKtZDN/HCjs+CgiS0XGPfK314gxYOJh+smcZ +GW0P/8kJxNaK2VT4UpiM9FS0pKQlGLBz0/TJG6JktIp8wOME9vHG0hVO4mR0 +IbJweyZ21DJLFxlpMhI7JHhhkyQDMjNXCE2vJCP5hVaKL3bVzt+FzbJktFms +rPQd9kSIk9BDOTKa2H96lbIUvv8oKhd5yZPR6U652CPYKpV9LlaKePzsrJhI +7IPzF4r4VMmoJUd2/Qi29xMD139qZMTe31mxShrvh/6SUNV6/HufvdotsJNb +aoqebyCjOrr0HS/sogt3XYM0yahz7eXyaOyfYrbCR7XJKPqhQnABdv97qWL9 +TWQ0pvrqFwWbdx/LVWoLGa1pe5o/gb1q6IXw5FYy2pITvU54JQO23nUv/qlL +RjZP5Tauw967XvPUO30yior/1WCMfapuXPi+ARmJv0BL+7GvnSosPm1ERpP4 +IuiKHc977ZSlMX7/S+KmC9jvXpiJqAIZmbPebg7G/mIiUMJrSkZDfXVNd7H/ +tP449ceMjDwHA1fEYs9eiRWpsCAjStuR/gRscdkjJYk7yWhv6axHEvaGwrVu +gbvIaOT6UMQzbPODXSIOVmREU661/f/5scnXJTp7ySiySLri//cvRvu4ie8j +o+KDv5pjsCM36oqO2eD3Da8++v/3X/2YK/mxn4yEvsTy/j+/irOf3LIPkNH0 +4acK/8+fJhgmGnGQjO7YCI//v76xjD2l7g5klCbo42+HLbBTzN3iCBmt7zHK +N8FW7KKKKjmS0ZQ5+/V6bMOQpNKlY2Q0cHOlkyi2nYKLe9txMurlqjRN4fif +rVgnVnqCjH7IJvEysEOPDZcmuJDRlc0Ls8XYSXN57v6nyKgxraYwAbtRz6Rs +sycZDcvej7LB7qEQPUTOkJE/IyJnHfaSX73Y8FkyUvMdfrGI82nTe3uPTB88 +3vN/CynYu61XiYedJ6OMV8Hn/LBdBjvKXC/g908rFQN27Lqz4vKXyYhf4vRI +M87n6eSb5XHXyYj1UlzjH66H+Gu/5hODyai2MWJ9Eraeo6JhSgge74BvhR22 +v3TVx3dheP8rZquLcL1N3efJ+fKAjLTCeF974vp8dMZ25EcUGX37y2kVxtbZ +9UKTEkNGjpZG3/JwPV8kotd/4skotBX+TuJ6ZwfeSJl9jve/5fEtR9wfHjk0 +/Vl6gefXZcMzhvuHjq68PDkVx3PfeccQ7ItjFYniGWR0dKXwpxe430y6cx9p +vMfzDwv+WrMM1+eBa+FOlWSk3xHG/w73u5jNP2pdq8go5XJBthL2FhE50plq +MtolUhkUx8cAv29lwf5fyMiPal9yCffLcbQQ+LAJx2u+W1cR99cxrateVR1k +pHmcUrV+kQ7D/IH7VXn40bMgtXz5CTqMba7pFeDlR67mtr98x/H9wVHk+hCR +H+nrOI18GsPfk/fpWfn8/Ohc0U394/j7wHP4N9FMhB/dV5O4HTmE7x+ZGh+P +r8XPj24lV/fg89qu9lUJ2/nRg81+nq+ZdAi7Y961LJAfrbqf/se5ig7VidFF +alf5UcT51PigT3i89x33za7xI2NWtu+TSjoEtlzVvXKTHzXJmGQ2l+PzmVJB +WH8EPxKzkqq3KqHD/jIV9a9P+ZHwiaqhXfn4/DPG5327jB/x7Lw4m42/v4eJ +9mYvK/gR/3d7Qzq+v8ZJp0iXf+JHMure+/mwhY1NKtk1/Oif91ppF3yfJdz1 +Fz31gx9lHTIMVcP32R7l3jyzdn70gxixuyMBn3/0dcOP/+FHs+W5aDX2Catb +jlc6+RGcdnY6/JgODF95Ul4PP4qarV1FjaPD93KHg4qjOH5js/J/Yugg8Ctd +3XicH4UEP6lSxd7RNbl4eJIfWe1pzfaKxue5ZVGvomb4kfu0zVnuQzrMy7Vf +eTPLjz4LEnfvxt62WdPm6zw/elfuFBz3gA4XLa4ody1ia7yU+ofv17kOX2eW +lvjRrnPCQluw/wNc5gEX + "]]}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.32}, + DisplayFunction->Identity, + Frame->{{False, True}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameStyle->{Automatic, Automatic, Automatic, { + GrayLevel[0.5], + Thickness[0.01]}}, + FrameTicks->{{None, {{0.39, + FormBox["0.39`", TraditionalForm]}, {0.35, + FormBox["0.35`", TraditionalForm]}}}, {None, None}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->25, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 3}, {0.3208297751656169, 0.49251550147308487`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}]], "Output", + CellChangeTimes->{ + 3.710381311655034*^9, {3.710381720000657*^9, 3.710381739199018*^9}, + 3.710381902505272*^9, 3.710382363012937*^9, {3.7103824232103653`*^9, + 3.71038244335632*^9}, 3.7104961154205523`*^9, 3.710822025123342*^9, { + 3.7108224202050257`*^9, 3.710822440122488*^9}, 3.7108226956772013`*^9}], + +Cell[BoxData[ + GraphicsBox[{{{}, { + {GrayLevel[0], + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0., 0.3851588557168754}, {0.0019115984256825318`, + 0.382819282323714}, {0.004554517677139836, 0.3795889232844668}, { + 0.007178861164129035, 0.37638556451409566`}, {0.009784628886650134, + 0.37320920601260044`}, {0.01237182084470309, 0.37005984777998124`}, { + 0.014940437038287971`, 0.3669374898162381}, {0.017490477467404744`, + 0.36384213212137084`}, {0.020053623221047555`, + 0.36077303032838126`}, {0.022661555388210526`, + 0.35772944007027097`}, {0.02531427396889369, 0.35471136134703996`}, { + 0.028011778963097, 0.35171879415868823`}, {0.03075407037082048, + 0.34875173850521585`}, {0.03354114819206414, 0.3458101943866227}, { + 0.03427490217722325, 0.34505463184838814`}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.036730392837026095`, 0.3425350582048633}, { + 0.03924966307511195, 0.34000364075407424`}, {0.04224684379163194, + 0.33709736357557873`}, {0.04534119154753763, 0.33423244185734713`}, { + 0.04853270634282897, 0.3314088755993793}, {0.05182138817750596, + 0.32862666480167546`}, {0.05522592690124444, 0.32591601444365514`}, { + 0.05876501236372024, 0.32330712950473783`}, {0.06243864456493335, + 0.32080000998492375`}, {0.06624682350488377, 0.31839465588421273`}, { + 0.07020251346118928, 0.3161605447564495}, {0.07431867871146766, + 0.3141671541554787}, {0.07859531925571892, 0.3124144840813003}, { + 0.07935496503982704, 0.31215563438223193`}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.0826851630387827, 0.311020867668717}, { + 0.08303243509394309, 0.31090253453391437`}, {0.08660005045652942, + 0.30995811590749595`}, {0.09025584307933687, 0.30929573377492336`}, { + 0.09399981296236545, 0.3089153881361965}, {0.09783196010561515, + 0.30881707899131555`}, {0.10172589889527585`, 0.30907840883936333`}, { + 0.10565524371753743`, 0.3097769801794229}, {0.10961999457239989`, + 0.3109127930114941}, {0.11362015145986322`, 0.3124858473355771}, { + 0.11760143518796973`, 0.3145629826383019}, {0.12150956656476167`, + 0.3172110384062987}, {0.12534454559023908`, 0.32043001463956744`}, { + 0.12910637226440191`, 0.32421991133810807`}, {0.1300993341136002, + 0.32538351017493417`}}]}, + {Arrowheads[{{0.06249999999999999, 1.}}], + ArrowBox[{{0.13232800584796192`, 0.32810378906690935`}, { + 0.134133503046948, 0.33051877693333276`}, {0.13648905170180872`, + 0.33409479858414987`}, {0.13873925586572794`, 0.3379552128037701}, { + 0.14085662147161238`, 0.34206802129318087`}, {0.14281365445236874`, + 0.3464012257533693}, {0.14461035480799708`, 0.3509548261843355}, { + 0.14624672253849735`, 0.35572882258607946`}, {0.14769838790002462`, + 0.3606423559125114}, {0.14894098114873394`, 0.3656145671175416}, { + 0.14997450228462525`, 0.37064545620117}, {0.1507989513076986, + 0.37573502316339663`}, {0.1509482813608783, 0.3768699972654263}}]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.15137592686505913`, 0.38036199056628284`}, { + 0.15150516153479046`, 0.3815038868776958}, {0.15177359109480207`, + 0.3843467802109718}, {0.1519855702857908, 0.3871619811949986}, { + 0.15214109910775664`, 0.3899494898297764}, {0.15224017756069963`, + 0.39270930611530497`}, {0.15226898335951694`, 0.3981458616386147}, { + 0.15207198768224275`, 0.40347164776492805`}, {0.15164919052887704`, + 0.4086866644942449}, {0.15100059189941983`, 0.4137909118265652}, { + 0.15012619179387113`, 0.418784389761889}, {0.14906492760389564`, + 0.4235457874485489}, {0.1478557367211581, 0.42795379403487754`}, { + 0.1464986191456585, 0.4320084095208748}, {0.14632748177159524`, + 0.4324292727709063}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.14500222768094576`, 0.4356883548198223}, { + 0.14499357487739686`, 0.4357096339065408}, {0.14334060391637318`, + 0.43905746719187555`}, {0.14153970626258744`, 0.4420519093768789}, { + 0.13959088191603963`, 0.444692960461551}, {0.1374941308767298, + 0.4469806204458917}, {0.13531335184209756`, 0.44894994144420924`}, { + 0.13311244350958265`, 0.4506359755708117}, {0.12865023895090466`, + 0.4531581832088711}, {0.12410751720069585`, 0.4545472433600702}, { + 0.11948427825895622`, 0.4548031560244087}, {0.11438595073818905`, + 0.4549015961507503}, {0.10943921584183625`, 0.45413399947292576`}, { + 0.10458199721159307`, 0.4523448253251716}, {0.10134299337509667`, + 0.4506875757125706}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], ArrowBox[CompressedData[" +1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAr8qL8fk3uT96Q7R3tLbcPwwvKuGm ++rg/gLvSu9Ko3D8yt5Chv3G4P6iF07HngNw//IWXSa3xtz//ANM7alfcP3Mx +zn0wbbc/vyPT+7Uu3D9g84oEPfC2P5EMeFjwBdw/7dfpHYSHtj+fqXSzYtvb +P7owI6XiJrY/Xihhpx6w2z9nT291NcK1P0W21c41hds/3PQs40BbtT8+33ba +vFrbP0BWlbDg+7Q/6RDZExIw2z+Wc6jdFKS0P0ZL/Ho1Bds/2Exmat1TtD9S +juAPJ9raPwzizlY6C7Q/ENqF0uau2j8vM+KiK8qzP34u7MJ0g9o/QkCgTrGQ +sz+dixPh0FfaP0UJCVrLXrM/bvH7LPsr2j9kVMYSLBCzPxrGePu41Nk/KPPe +feEFsz+1e/NMgcPZP+v4oIk= + "]]}, + {Arrowheads[{{0.06249999999999999, 1.}}], + ArrowBox[{{0.07378852458946109, 0.3990780917607912}, { + 0.07368071750315805, 0.39835664238346846`}, {0.07331079658511049, + 0.3931786547925861}, {0.07335575484655874, 0.38807459357224644`}, { + 0.07379540012944194, 0.3830913075431456}, {0.07460954027569922, + 0.3782756455259796}, {0.07579817528533053, 0.37362760752074853`}, { + 0.0773613051583359, 0.36914719352745234`}, {0.078539761706409, + 0.3664263579113943}, {0.07984749498415025, 0.363859233527131}, { + 0.08128450499155968, 0.3614458203746625}, {0.08285079172863721, + 0.3591861184539886}, {0.08637119539179676, 0.3551278483080251}, { + 0.0904087059736289, 0.35168442308924047`}, {0.09061204889774696, + 0.3515652492216059}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.09364739217242726, 0.3497863154366654}, { + 0.09480080115481437, 0.3491103331766891}, {0.09938495861603389, + 0.34766006894942536`}, {0.10416117835728742`, 0.34733363040744913`}, { + 0.109129460378575, 0.3481310175507605}, {0.11166748905250426`, + 0.3490302226837937}, {0.11421726191298742`, 0.35036853809693835`}, { + 0.11672279027399765`, 0.3521326227135934}, {0.11912808544950808`, + 0.3543091354571578}, {0.12140087885437884`, 0.35688146861942144`}, { + 0.12350890190347008`, 0.35983301449217414`}, {0.12513487817230828`, + 0.36258026616821526`}, {0.12658599940130727`, 0.36550807816137443`}, { + 0.12786226559046707`, 0.36861645047165165`}, {0.12896367673978765`, + 0.3719053830990469}, {0.12987395748993127`, 0.3752957622904777}, { + 0.13008980780302967`, 0.37634379353785785`}}]}, + {Arrowheads[{{0.06249999999999997, 1.}}], + ArrowBox[{{0.13073442937813828`, 0.3798010797787475}, { + 0.13107230171467452`, 0.38214351910619826`}, {0.13136036518927413`, + 0.38560089673048803`}, {0.131447466651317, 0.38900304675420283`}, { + 0.1313400498467612, 0.39227240876581493`}, {0.13103811477560667`, + 0.39540898276532405`}, {0.13054166143785337`, 0.39841276875273035`}, { + 0.12969454840951164`, 0.4018951953619793}, {0.12863622512847595`, + 0.4050052556714333}, {0.12736669159474634`, 0.4077429496810923}, { + 0.12588594780832277`, 0.41010827739095634`}, {0.12252955011438124`, + 0.41369073437351567`}, {0.1188057526836389, 0.41572152708132754`}, { + 0.11491801838456739`, 0.416345224321629}, {0.11106981008563846`, + 0.4157063949016574}, {0.10745258952551383`, 0.41404351311304427`}, { + 0.10711691333976849`, 0.4137915218265294}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.1043032748765837, 0.4116793303567907}, { + 0.10413810592495967`, 0.41155533843129966`}, {0.10119798754601908`, + 0.4084202554947186}, {0.09870386265073518, 0.40481664894159636`}, { + 0.09668481289388028, 0.40088253721403144`}, {0.09516991993022678, + 0.39675593875412235`}, {0.0942345990909635, 0.3930117737790333}, { + 0.0936923322582305, 0.38934905914438045`}, {0.09354311943202775, + 0.38576779485016377`}, {0.09378696061235527, 0.3822679808963834}, { + 0.09438726949038831, 0.37896246084944063`}, {0.0953074597573021, + 0.3759640782757364}, {0.09654753141309667, 0.37327283317527093`}, { + 0.09810748445777195, 0.37088872554804425`}, {0.10185595834848198`, + 0.3674888229928541}, {0.10477834923709206`, + 0.36663366089736726`}}]}, + {Arrowheads[{{0.06249999999999999, 1.}}], + ArrowBox[{{0.10821733484437479`, 0.3664851652492144}, { + 0.10960978796029347`, 0.3666762849499072}, {0.11289806182330335`, + 0.36838959143753636`}, {0.11584913015395953`, 0.3712380798603043}, { + 0.11822549645304263`, 0.3751086397259152}, {0.11989575045954617`, + 0.37960755368737875`}, {0.12072848191246376`, 0.384341104397705}, { + 0.12082053822929964`, 0.3875144656764835}, {0.12054134848517496`, + 0.39052690118906064`}, {0.11897545727713499`, 0.3955933674270647}, { + 0.11637181718673933`, 0.3988695322767423}, {0.11246948377407202`, + 0.40020067978210677`}, {0.10858688349650696`, 0.39884433427707194`}, { + 0.10538387944743371`, 0.39550998867097253`}, {0.10501945337172329`, + 0.39472621481342335`}}]}, + {Arrowheads[{{0.05145105508965449, 1.}}], + ArrowBox[{{0.10353611054379266`, 0.3915359784176093}, { + 0.10326461454062309`, 0.39095206995469656`}, {0.10248900053288978`, + 0.38604642844504333`}, {0.10305360339653777`, 0.38154654431122004`}, { + 0.10590112422344973`, 0.37701253921444605`}, {0.10996387520807768`, + 0.3762743003040998}, {0.11358875937251312`, 0.3792751769002444}, { + 0.11500881668995891`, 0.38238517590277177`}, {0.11559285564569831`, + 0.38583907297438835`}, {0.1152602101014045, 0.38901392003329277`}, { + 0.11349035075148174`, 0.39210937986556815`}, {0.1109596872152753, + 0.39279562064294277`}, {0.10856859697533869`, + 0.39132466036878544`}}]}}, + {GrayLevel[0], + {Arrowheads[{{0.06249999999999997, 1.}}], + ArrowBox[{{0.17639942456681418`, 0.3}, {0.1773525937559305, + 0.3023786857734791}, {0.17870969888826208`, 0.3059450273457443}, { + 0.18002174743193822`, 0.3095742715352061}, {0.181288739386959, + 0.31326641834186464`}, {0.18251067475332441`, 0.31702146776571993`}, { + 0.18368755353103444`, 0.32083941980677194`}, {0.1848193757200891, + 0.3247202744650206}, {0.1859061413204884, 0.328664031740466}, { + 0.18694785033223232`, 0.33267069163310814`}, {0.1879408582937885, + 0.336723941979869}, {0.18888152074362471`, 0.34080747061767047`}, { + 0.18976983768174085`, 0.3449212775465127}, {0.19060580910813696`, + 0.34906536276639566`}, {0.19090384807610938`, + 0.35065301188498266`}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.1915413072690496, 0.3541129458966379}, { + 0.1921207154257691, 0.3574443680792836}, {0.19279965031700513`, + 0.36167928817228856`}, {0.19342623969652112`, 0.3659444865563342}, { + 0.19399980104364611`, 0.37021412807447085`}, {0.19451965183770928`, + 0.3744623775697488}, {0.19498579207871042`, 0.37868923504216795`}, { + 0.19539822176664967`, 0.38289470049172836`}, {0.19575694090152707`, + 0.3870787739184301}, {0.19606194948334246`, 0.39124145532227306`}, { + 0.19631324751209603`, 0.3953827447032573}, {0.19651083498778765`, + 0.3995026420613829}, {0.196627054372245, 0.40254326337639484`}, { + 0.1967219501809264, 0.4055575473003772}, {0.19674707045874504`, + 0.40657774261117713`}}]}, + {Arrowheads[{{0.06249999999999999, 1.}}], + ArrowBox[{{0.19682286108678107`, 0.41009513105241774`}, { + 0.196847771070961, 0.41150710297525334`}, {0.19687869615231426`, + 0.4144423747261471}, {0.19688829765789154`, 0.41735130908601137`}, { + 0.19687657558769273`, 0.4202339060548461}, {0.19684352994171794`, + 0.4230901656326512}, {0.19678916071996708`, 0.4259200878194268}, { + 0.1967134679224402, 0.428723672615173}, {0.19649811160005842`, + 0.4342518300335766}, {0.1961974609745725, 0.43967463788786204`}, { + 0.19581151604598243`, 0.4449920961780293}, {0.1953402768142883, + 0.4502042049040786}, {0.19478374327949005`, 0.4553109640660095}, { + 0.1941419154415877, 0.46031237366382266`}, {0.1937842168722236, + 0.4627209286655301}}]}, + {Arrowheads[{{0.062499999999999986`, 1.}}], + ArrowBox[{{0.19324702378893333`, 0.46619774793623564`}, { + 0.19260237685647066`, 0.46999914416709404`}, {0.19170466610925596`, + 0.47468450507255266`}, {0.19072166105893718`, 0.479264516413893}, { + 0.18965336170551428`, 0.4837391781911153}, {0.1885243347915827, + 0.4880792254522688}, {0.18735914705973788`, 0.4922553932454029}, { + 0.18615779850997982`, 0.4962676815705177}, {0.18492028914230846`, + 0.5001160904276131}, {0.18364661895672388`, 0.5038006198166889}, { + 0.18233678795322605`, 0.5073212697377455}, {0.18099079613181498`, + 0.5106780401907827}, {0.17960864349249062`, 0.5138709311758004}, { + 0.17831068316162496`, 0.5166429113546082}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.17672559353730863`, 0.5197836714164009}, { + 0.17524522066703813`, 0.5224663273227373}, {0.17371842475606078`, + 0.5250037004356776}, {0.17215546802717022`, 0.5273771940805984}, { + 0.17055635048036633`, 0.5295868082574998}, {0.16724963293301892`, + 0.5335143982072444}, {0.16387293179859852`, 0.536912819904966}, { + 0.16050090676168527`, 0.5399084229707191}, {0.157133557822279, + 0.5425012074045032}, {0.15377088498037988`, 0.5446911732063189}, { + 0.15041288823598786`, 0.5464783203761657}, {0.1470595675891029, + 0.5478626489140441}, {0.14371092303972505`, 0.5488441588199537}, { + 0.14036695458785425`, 0.5494228500938948}, {0.13621509881021066`, + 0.5497584754516037}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.1326984052866656, 0.5498334341081385}, { + 0.13143137925137707`, 0.5498515357543984}, {0.12712998267516978`, + 0.5496119630058969}, {0.12293951349365007`, 0.5490697798715597}, { + 0.1188599717068179, 0.5482249863513872}, {0.11489135731467327`, + 0.5470775824453791}, {0.1110336703172162, 0.5456275681535353}, { + 0.10728691071444667`, 0.5438749434758561}, {0.10349767477964988`, + 0.5420487279618296}, {0.09964314549193903, 0.5402743220188501}, { + 0.09591920291005629, 0.5383962969337767}, {0.09252172709274364, + 0.5362592239934681}, {0.08926081562345446, 0.5339690757282892}, { + 0.08593859589604823, 0.5316977662456397}, {0.08449955155389052, + 0.5306592828688516}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.08170275874231198, 0.5285280103137524}, { + 0.07984593076428947, 0.5269855982375763}, {0.07747243056017825, + 0.5246463935856805}, {0.07532028263326603, 0.5222951940197725}, { + 0.07325667561723342, 0.5199391964882596}, {0.071148798145761, + 0.5175855979395492}, {0.06911524341864983, 0.5152424701686608}, { + 0.06728272930228282, 0.5129091599743699}, {0.06553063143021354, + 0.5105797768107183}, {0.06373832543599538, 0.508248430131747}, { + 0.061921884415105904`, 0.5059186431485173}, {0.06017779770732027, + 0.503597866102729}, {0.05850606531263849, 0.5012860989943824}, { + 0.05690668723106056, 0.49898334182347714`}, {0.05392499400721627, + 0.49440485729399153`}, {0.05123271803578738, 0.48986241251427187`}, { + 0.0496321058682377, 0.48690220463972345`}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.04801468886075615, 0.4837784371393253}, { + 0.046586554497533586`, 0.48089548791617215`}, {0.04460020109254813, + 0.47647346952580233`}, {0.04283833326365695, 0.47209241374121913`}, { + 0.04127698425682328, 0.46775161368154106`}, {0.039892187318010336`, + 0.46345036246588645`}, {0.03868394244721812, 0.4591886600942554}, { + 0.03765224964444663, 0.4549665065666478}, {0.036649191091679204`, + 0.44996774164497244`}, {0.03588405816368087, 0.44502432013507537`}, { + 0.035337507700510695`, 0.4401355096890096}, {0.03499019654222775, + 0.43530057795882854`}, {0.034912826065318404`, + 0.43309068646474297`}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.03482141074670856, 0.4295740372476586}, { + 0.03481591950055978, 0.4257894212543319}, {0.0349502672972929, + 0.4211117315841226}, {0.03520648175914952, 0.41648499123801014`}, { + 0.035597612155885104`, 0.4119089128966109}, {0.03614667465870019, + 0.4073833461724068}, {0.0368492764598214, 0.4029077641152494}, { + 0.03770102475147538, 0.39848163977499024`}, {0.03869752672588878, + 0.3941044462014808}, {0.03983438957528824, 0.38977565644457274`}, { + 0.04110722049190037, 0.3854947435541174}, {0.04251162666795184, + 0.38126118057996633`}, {0.043759517365778544`, 0.3778899874938965}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.04507540780215363, 0.3746276274984085}, { + 0.04576624902073989, 0.3729601738678703}, {0.04763587735745817, + 0.3689024276157248}, {0.04967100131261777, 0.36490955644520495`}, { + 0.0518745840198875, 0.36098383811557877`}, {0.054249588612936224`, + 0.35712755038611416`}, {0.05679897822543277, 0.35334297101607925`}, { + 0.059525715991045954`, 0.3496323777647419}, {0.06243691153108672, + 0.34604964287934886`}, {0.06554095030921736, 0.3426645138342171}, { + 0.06884270922263386, 0.33950308122922024`}, {0.07234706516853211, + 0.3365914356642318}, {0.0760588950441081, 0.3339556677391252}, { + 0.07685935313565928, 0.3334796170717763}}]}, + {Arrowheads[{{0.06250000000000001, 1.}}], + ArrowBox[{{0.07988322434889442, 0.33168125195531145`}, { + 0.07998307574655775, 0.33162186805377425`}, {0.08412448417307701, + 0.3296161272080523}, {0.08848799722086186, 0.3279645358018328}, { + 0.09197444774311579, 0.3269815123298744}, {0.095552189207121, + 0.326285965166638}, {0.0992158721653236, 0.3259518630728696}, { + 0.10296014717016973`, 0.3260531748093153}, {0.10675906408518941`, + 0.3266364971645497}, {0.11058667277391268`, 0.3277484269271474}, { + 0.1143782359669976, 0.3294336928708771}, {0.11806901639510223`, + 0.3317370237695074}, {0.12165901405822656`, 0.33465841962303833`}, { + 0.12514822895637062`, 0.33819788043146987`}, {0.12688106901449053`, + 0.3403598881506959}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.12899764543828696`, 0.34316562297041187`}, { + 0.1314333256639386, 0.3469236176052083}, {0.13281942786466186`, + 0.34942653646176}, {0.1341314612749177, 0.35205804914355854`}, { + 0.13536942589470605`, 0.35481815565060404`}, {0.13653332172402685`, + 0.3577068559828962}, {0.13760796016254445`, 0.3606774901168623}, { + 0.13857815260992312`, 0.36368339802892957`}, {0.1394438990661628, + 0.36672457971909767`}, {0.14020519953126348`, 0.36980103518736673`}, { + 0.14086205400522528`, 0.372912764433737}, {0.14141446248804806`, + 0.37605976745820824`}, {0.14186242497973187`, 0.37924204426078023`}, { + 0.14220594148027674`, 0.3824595948414534}, {0.1424923102272112, + 0.38653940191019553`}, {0.14261015574009214`, 0.3905461733051059}, { + 0.14257431848825677`, 0.3933279534331004}}]}, + {Arrowheads[{{0.0625, 1.}}], + ArrowBox[{{0.14242534851411906`, 0.39684227913988224`}, { + 0.14234027706369334`, 0.39834060907343144`}, {0.14196243419920407`, + 0.40207666642559436`}, {0.14143583075024216`, 0.4056364740614211}, { + 0.14076046671680761`, 0.40902003198091175`}, {0.1399363420989004, + 0.41222734018406626`}, {0.13898394041094494`, 0.41523491789212913`}, { + 0.1379237451673656, 0.41801928432634494`}, {0.13675575636816234`, + 0.4205804394867136}, {0.1354799740133352, 0.42291838337323523`}, { + 0.13337244720457767`, 0.426082787260105}, {0.13113987736727567`, + 0.4287279204693262}, {0.12878226450142916`, 0.43085378300089877`}, { + 0.12629960860703818`, 0.43246037485482275`}, {0.12119243226869869`, + 0.43433955467308094`}, {0.11605161288833321`, 0.4345892680674568}, { + 0.1145276328326228, 0.4342517952887847}}]}, + {Arrowheads[{{0.06250000000000003, 1.}}], + ArrowBox[{{0.11109261934210313`, 0.4334911399619134}, { + 0.11103027681930608`, 0.4334773347258679}, {0.10628155041498169`, + 0.431271574336232}, {0.10181600754688375`, 0.42814069965760604`}, { + 0.09779798535565794, 0.4243451887253096}, {0.095964918586488, + 0.42223869472092385`}, {0.09425998013176796, 0.42004704176689844`}, { + 0.0926831699914978, 0.4177702298632332}, {0.09123448816567754, + 0.4154082590099283}, {0.08872625936658371, 0.4105333919032922}, { + 0.08674004364368351, 0.40552699189588304`}, {0.08581342548653345, + 0.40257727125315057`}, {0.08504955591331494, 0.3996551650526318}, { + 0.08444843492402801, 0.3967606732943271}, {0.08401006251867263, + 0.39389379597823626`}, {0.08376404722718411, 0.3913595372196097}}]}, + {Arrowheads[{{0.06249999999999999, 1.}}], + ArrowBox[{{0.08362868987007309, 0.3878450736180868}, { + 0.0836714368061959, 0.3854588506832472}, {0.0838840587365668, + 0.38270243113601193`}, {0.08474807266829926, 0.37743581156538475`}, { + 0.0861641295741499, 0.37260640215801644`}, {0.08813222945411872, + 0.368214202913907}, {0.09065237230820573, 0.36425921383305626`}, { + 0.09359313770970468, 0.36098551854967226`}, {0.0968231052319092, + 0.35863720069796295`}, {0.10034227487481936`, 0.35721426027792835`}, { + 0.10415064663843517`, 0.3567166972895682}, {0.10946689309681448`, + 0.35767022273500093`}, {0.11205014674525575`, 0.358897966163826}, { + 0.11458348733986481`, 0.36062636339672344`}, {0.11487105882822407`, + 0.3608913341810879}}]}, + {Arrowheads[{{0.02551974928835288, 1.}}], + ArrowBox[{{0.11738659846693482`, 0.36334269971223465`}, { + 0.11907876321231578`, 0.3654333923566606}, {0.12093528195134007`, + 0.36847409235418155`}, {0.12253105455889696`, 0.3719395826967374}, { + 0.12381491528234863`, 0.37562585247633684`}, {0.1247356983690574, + 0.37932889078498855`}, {0.1252934038190232, + 0.38304869762269256`}}]}}}}, {{}, {}, + {GrayLevel[0.5], Thickness[0.02], Opacity[1.], FaceForm[Opacity[0.3]], + LineBox[CompressedData[" +1:eJwcmXdczu/3x1OSEkUqKkohI58oSiqvqGQ2NBBJ0ZCMaGipJEk2LQ2kvbXv +7tHdRkNS92xTlJTIqNDv+v784/F8XPf7us51zrnOeR1WOJ4/6CQoICCwbK6A +wP/+fhz3vz8UaP7/n/e4GB7KULChQNxRNoS94T36udsyzaUoULJlpHuseQ8H +wX0mDXfL4XRjvcbNZe+xYCTcrOVeGU7faK+3E3mPI2Xusv8VlqBgGU1NiNcP +natXvm70LcGXOaJ/TNr7cTSJMvutQQnu67afu9nSD8rqtbnv3xZjsH/7WdGa +fqyZECv8b7oI+/cvXvorux8OCwoubTtdCDP/LdOVgf041WIu7q1TCBGJ9LtT +Pv04n6VwZJtYIZRjuYNbLvbjmexR+cO5LzCz8pR+vnM/SlL+VtZNFuB189y5 ++Wb9CDN4c6vMKh+TM99dx1f0wzbcSEtZOB/l126zDRT6EclwVL9cmgfN5czv +92X6wf26ZmmXfB7a74vv0ZnXjxfulMT94zkwtu3hJ0z0ISY52Pl9bRbkjgWF +ljf0weHPAsfAwCw0+r1szK7qw/MkyT4h7Sy4pgupPKP24W3CnsamnExc9ro+ +fT+/D5yaZULznmfAX3XbjlsxfVj0KF1iVXkaJJsDQvtd+rCW46535koamq0u +uPx06IO34awVvsZpyE2CmfixPhw81BP6viMVq7UKVbeb9+HTtHdx2UwKuh6V +fqJs7cO5EzqKqV7PIdT9Z9FCsT4MKizX9DR5jmABTr/R7D6ERru0fF76HAv/ +vcj2+9cL9wTcamYm44RK0aqRb73QGnNTXieTjNxHKhmDfMJTPjc4XU9xYVWm +hU5eL7zv0u46U55ioZSdw62MXsiX0raGRj3F0Q9n7fuSye+vyCc6mj3FEWfh +lfdjerHRZtYp5YdPoJGaRRMJ6cXRoWSrvzmJuCnHiTO36kX9KcUb1pcTcTAx +5ZKSWS9M1/WeDDFKxMpkt+/je3rxwpgXvr8nAYbPmvrj0IvueMds/+UJkArZ +e/Hvul5o7yraq/c1HvWKxmd5q3pRkPTEt6o6HjsVxcUoSr3knL0qi9ziIZQx +tNpfphfJvccPJVU9hmaod88iwV7EVG29Yxn3GBuulBVPTvZAP09UgOlBeF7n +QOtYDy4K6iqUr3yMdeGyP2/we/CpXvzLrwdxiJ989EKxqAeLRwuvO92NhVel +YsGgYw9UzqyIYXnE4tzUcO+Xwz34yVd2/WgVi7MWL/V+m/Ygva+9o18hFsp3 +8jxkdHswbPWmQ744Bsz+8aLLUj2Q/qe00Tk+Bv8OL1sRJ9qDcyYHd+8KjUGS +q80L2kw3bG5XL62xisFHm19a80e6wcjoW3z3XzQyQ5dT39V2Q0Zmq4bLcDQW +cntXzqd249fLfZ2NrGjENdMy97zoxv7XR69qvYjGw51NAk2J3VCsLbm17Uk0 +bsiKvV34qBu+VsKKDbej8TToUrntzW68+lsy29s9Gp23e17+8O6GkW++e/Sx +aBz0/jJmcrYbFuZvwnQPROO+t/66xJPdWMMqnJDYGI15hhXt5ubdoDoPDNVP +RyF1rHagc203EsY1bNW+RsHirEiKj1I3ua+0kdhAFLbPCzSTlu2GWYNQuFpr +FHYbOrgdmd2N9qU7Hc7XR0Ehe4Y9M9WFS0sDy1TpUXjWslE9c7wL4fvMeT+y +o6D6ISt6dk8X6FIKa8RSotD3XCW1tKMLD4r3TdxLiAKl4k7cmaYufPx9OSgi +KgqRErMvqdR0ISFbX+z7nShoRsRv7KZ0oclw6F3TjSgMdLm/jS/oQl/2m8Uy +oVEQ3XXH6lh6F35KP9nQEhiFDb1yFMWkLpz56hUxcTkK+hrq/wYedeFZ5sWH +NzyjsLr6o3J+ZBd+5ReVRlyIwltph9X+V7vQ4nHo+C/3KKgVlYns9e3CdbuA +H62no7BSaW69/IUuBPUZfJR2iUJy/7kTX527sMS9JqnuVBQeBc9lNdh1ofCM +cniPYxQGg8ZXJVt1Idc0YN5JhyiEOu8yC9rXBbfQsWizE1E4XKFiYb+zCyaX +Hz9KsY+C+ay0dTt1upAWH3/egfChqiGe6sYuDBxd+DCMsG3wPAdJ1S44q8q5 +SZLvDWtVadPLuhDh3m4/i+wvIHX089Bicl7c8Z5D5Hz/b1VfePO6oLGMbSlF +7Ev+dLm6RbALX69T1DSdoyDVlOBaN9kJXcuTv0pdo+CScqCH8bUTmrWC+5LO +RGGJRe4q6sdO2P+NYHw6FwWVsq5tFd2d2KX8+VPUxSiEUQWW0zo6cd5miUOq +dxT0DLe2MJs6cZIuxJDxj4KxZtrelzWdyPB7Ej0UFIUnF9wftFV0ou5FV8iy +sCiY9Oak9LzohOH1ApnCm1HQdYkIHsvoRGBUZ+x0dBSmTZPuy8Z0YresXHF+ +YhRqfeXq1O904l5tcXs1yZ8WswrG3rBOUNRfh8wuJvl2f0Qg4lIn0jev1dOg +ReFUQ7VJjlsnNn3PPUSvjcIJPSOLNodOrJH+Nn+YFQWJy60Zq807Menf1H2z +NwpbVZR+WJl0oj5ocVT4cBTeHcgQuL69EzsWjj95OBOFV3n/LL6qdeLU5fAz +yWLRYK+Xj167shMX1e+KictEo7JEPNpJnvjP4GfB6IZohAfOqx8Q7cS7Vr0V +ww7RqKmobJnzkY8lu6oEJi9EY21M7am4Lj4WbYjefCE4Gqe2b12n3s4H/auP +bvTTaOwuWIJTVXzEvp+FsoFofCq5fHEino/1dXNcZn5FY4F1idPTB3z892As +MFcsBsOpDUFmEXzsSb7I2LYpBuWGm1eWefNhEObsuZjUJxNmomSOBdk/p/Dv +9dgYVOr/VvDYzYe26uis43kxaNtWaqIDPoZebq3ayiffP1aZaFPjozDTSDhB +JxZrd26OXD+Xjzvsxt2Tc+OwPke64UIlDz5BFW+frYzDPE6GrkspD5fmNS3J +NYiD+ocv9BO5PGjqzqd/9o2Di9i5j8fieVj++a/93PE4ON08/cLXh4eZuss1 +lHFSz+s7txlt5GHuo9cjkVLx8M7ZLHFGlYfA/hCpqi3xWFb4offRch6uH7hU +Y+Ufj/ueuy6Pi/Ow0vtZ1Mp5CTAz7rdtGeJC9/ldaqB+IvI3KSyQSeESPz4/ +2eWYiAFjr7UCCVwoXW5ZHXUjEc+PXHs78pALy4cGr+d3JGJNyIPa5lAuPniF +LFl7MQk7eZJKeSe58O18dXoz/QnMZ6dNflThImOpV/yGT08g8DokeEqeC+pB +v+9M0afQSzEOl1jMxe912feStjzFkjLXhTtmc/HMa4XstbtPIVx2WrD6AwfL +yvhXlPY/w6+V1Znb0jgwo3ivjzz1DJofJds8kzhw8dXB6sBnaL3de/ZFNAe+ +7e8sR/OeoUBo6M+mcA7ijmdrNS5ORvm3z47mrhwENXzb0juUjNDXbkmz1nMw ++8WJByrUFAw/L7ioUcjGO2Htu0mdKchrz1gol8XGo/Z7V47+S8H4mfD7s5PZ +6HazYSXsTMXYy6eG/ffZ4MR91t3Tkopt208MMz3YCPqUNJX5LQ0Z1evaJTTY +2BSYU+azJB01cz06VdcR7vYOu7M9HVkS4qqGymwwpt8eiYtMR0AqOzd0ERvG +9/cu1libgfXF2TkbvrPw6q7o4MDFTEQe9u/ZWMKCns37/aGJmTBxZ3VfzWUh +4Pej4xdfZqLC57EwN5WF5sAVPSaKWajYr7D8QTQLoxZNXb2tWdhg4dOkc5mF +d/E7N1ka5eDZzcalXnosHGZLV1h65uCIylnu4i0szI58U5OfkgO3ScqZig0s +nMyR+BkwJxf+ImvSZRVZGE7xkrvSkouOMOO3ywVZUA5g5+ZeyIfmptsxYa86 +YGQf7VeWmo9guktHaXUHVoXn3FTh58Pxs773V2oH7jx8cOGBSgHsy/ZXB+Z1 +oIa2xmv0fgHc1D6GiTzqgGmkOH12XgGkk31irt7uQKjtu2umrwug/z5HaG54 +By7ImDEChV5AddaT7xp+HahI/IODl19AWGBF3UKHDtzXg7J49Ats3GDZ+9G2 +A5eH/j6bLnqB97Uyr15bEfsUVgcHfH2Btvt795fv7sAV5zNj89wL4TnesVFv +UweUtq6qvHm2CAdfnxzaIdyBR3pbA0vvFCHYf03fIoEOlN98GChXUISWa1b7 +f021k7qQFxn5vQhzBhb4//naji7Zn45SgcU43GbvNqe7Hb0sdwfBp8Uw2/za +IYTbDgtp3ei1NWRecGhSWdzRjrcH2VuUxEowXVB9IbSpHZvNrVdmPy6B9pwN +Ko9p7Yg9ObH/cGUJhufI3/lQ3o4UCn+z3ocSvDO9xdtX0o5rVyo+p/1Xijer +Vg5eymsHPeqAxAarUmScPSGuld0O6wUn4z/5luLr8N5+2Yx2XFnnpPuvrhTh +z+gR+sntsJszverQSCnuUzZ+vvqkHf+8IqzeLyrD3aIj8z8ntGN/CFMtWacM +8XIfKN6P26G90XzxwxNlaPH1r1gd2460m58ulISXweBYI2c6qh13nampc/PL +MHpKsOfnw3asUfz0KZJVBhepL0+XPGhH3/rYvdv/lWHp+IMph3vtmPIPsjiv +Uo5EBbOdX+60kzypqW7YXQ6HqajzCbfboXmhnbfrXDnS29S3XLjVjgcCSqzP +D8tR+OWD8enIdsQ/kB4voZSj7mGg1Y2b7fjNdT2W0lMOK9fT0i0R7bifzJIq +FabAMdjRUJdwMbN8zvB6Cnptfse13miHV03YShykIL+nqP0O4UGd4mPFlyko +WrA835uwbFFF0u4nFLSwKz/cILwpRIQ3VUdBo8KaTfWEXSUthl6NUBArImWh +TvbPsLLwLJaqwK7HHoJ1hAs9dshTtlVgZMcGof/ZZxppe4XlUIFnZ9QX+hL7 +t9d16M+LqIDvNYfhWHK/7YYjk9YFFbg9mbP/E7l/3trd5iXsCpxZ2PfD5W47 +nuzTf6E6U4Ewub6nS+6T9aIlLtmrqeB8yhOeJv792jaHut2Uiq3HNnVKkHgE +ym3+2eNFJTrYrPNQTDvcp5scbidSce7FGP1dXDt2Lfy3y7iOikCHya3XSLxb +AlL7hL9QsU/7iJAbyQfDDzc3Ni+mwbRe7GUYyZeh5R4r4vRoOM5N+o+T2o4f +QvLJLqdosNRN63bIbEeS276nWrdoECp7EaSS247JvZmNzXwaav3+aFiQfPXr +H86/L0TH34GiCAalHeL5iw8cWE/HEb+be5wZ7fB/derPMz86vjxeoO7ysh1n +5uZqaiXTcWLg9+mqZpLvx1ecK39Fh2uH/9bD79ohz+MPByxhYCigKVq/h+Qv +v6WGAgZaYkwnbg20o8R6/SyeMwPfFxY+lhtpR/giwWeUYgbeqn7Bt8l2rLOn +vU4zrcSawrptCUs6MBV3qjjfsxIpxxreDSp1wNCtvvna40ooN7ZXe6ztQJfq +G/fwgUrM0z6nvUe3A9JmRY6HhJlYeH5Lf5RRByI7Ir6+lmUi/JuPuIppByp9 +tHfs02Nil6aa9T9Sn5RztzdZmTJhlhDw3373Dqzs2/hK+wQTezKE/3K9OzAj +HxQfGsqEnej6+8W3OjB2YHvx7JdMGOb/MTpC6ucyW0vbhTwmXmmuGkp/2YHr +TKFlfZ+ZyHr29YE+qwO3kpe+rFpQBTrluvC2bx14yYyJa1GswsWW1ndJAiwo +Jc0+Er2xCu6PeYW7JFjoNFDMNLWoAl+/j29L6r3oyR9HdB2qQBuDRy3pDxYb +9VT5F6rg5FXVd2Y/Cz+4VHe1u1UIKZhDO+fOgs1X47T3DVWIXaKtK5PPwkvd +4we1Oqrg4/PNfieTBZ+eyyr/9VeBUVH1LuktOV9eV1tkugrKk06PeidY2Mi4 +7T8wpxpH/pmxquawYe49LHxyUTWqbg5taVzCRqvZkJL2mmqceziKA/psvHKQ +tIjUqIYGZf2JKjM2LlzQFPLTq4bff3MjrRzZJA9CPyubVePFP+OQlnA2nF/w +PfiHqmHs/9it4DEbn9SVPq47UY3l9LSC9Fw2RP8Kn488Xw2XRV2BTe/YWCu8 +7Ei8dzUKOT//TQwSnpNTicBqhN9kd66ZYuOvs8h/l0OrsUah/a7TfA42ndu1 +0SiiGvLm9LsZShyI54b4Pr9TjZ7bv83HNDkQeKM3EfWwGvzjy/drm3CQr6Rw +Vz62Goe6uFOBthyUj9Zs3ZxQjSgVFot5loO/xgW9PU+qkUk9ceRvMAc6HyQT +lz+vRoqK5KxNjzigDR6jfE2txtPOG3ZH0jloyOu5ZpNRDd+GUAHPCg4eJ34w +Nc+qhlgdxf9KMwcKjgku3dnVUE59ccK7l4M2qb+Gs3KrEfpil+mR7xyscS2O +oBDeaZY/s3IOF+cC6/tE8qrRXDlfk72Ei18e2j9GyPp9o2tpZ9dzsWf4x9nT +hIUubFoyqM8Fw81Z9koO8c/oBdvt5lzY+ah/XE/OK1/455SnIxcW2jkdlzKr +4WkkrXndk4vat9p8m/RqMjf/q/S4zoWr1uLxjpRqfLm6WmRLLBebqx9v+Pas +GpFtqctaMrlgNua9ykmqxi6mnpEulQvZlxoCIvHV0Npzt9KviQsjNVFxwZhq +eLvtaL/ZxYVn5uiaJw/I7zVNG06PclHTm5bVc7sa3fKrpqVnuPgPdVHmJH7v +cnaeb1XkYVFtw7YhEt+Wisaspv940GlNXqx1uRrPz8i3xOjzoN0+emj8TDWS +13vnRNvy8FyTZunoVI3sRmrCS1ceyYuA2FvHq7HENru4zpuHmAUfVReZV2O9 +xFLOsgc8fJIwV7iwuxr+zMQjPk940C38L+uWQTVMjtr8jM3hoePA6zkiG6tx +Z2euoEY9D0dl391zUa3Ga7WizRltPGx+bapxa3k1FtkpqX7o5uH9RQ9rVfFq +rFu06VX2Tx6idjx6/lSwGsI7tpdrCfLBrr2e/P53FfTrcwfC5vMR3Ght0/Sh +CvcNzvafV+FDS0Kd68mrQkN4lb3Yf3yIi7pnjbypgsupAEvXrXzME1NoM6uo +QoeMhui5/XysjPn0TT+/CoXmR7Okbfi4ZZI7LpBShRiVHdeD7fmYWh87e97t +KrxkPV/21IMPsdzaaGu7KtiLPbcSfchH7vO9WZKkvsw+7OTT/JgPG6G/R7KN +quC4c9lP62Q+Up+Cfm19FeSMGEolBXysUOz5Vre8Cr/W1wbcKuNj8ybNjs8L +qxBZoxS0lsHH3Wm1xOFfTHRNxfaUvOaDps74XjfMhGRd69y0Vj6Mrs1vu9nF +xFpDLw87Fh87WP1vOqqZePdV751KHx+CF6uNjpeQevnyTYnmIB9PzrYMtKcz +cazfrFj8Mx86nlI/791i4veBpPUKE3z8faAazrnChKjJo3LL33yM+S+9uciD +CfHw/yJs/vBR9Z0lYXCSiZM2IaqrBDoh6F+yytGaib7nsipMoU4UibHrfE2Y +iImE9BqRTsyevP0hXIcJ523yMXZiZF7eS+rPMiZannrnaUp2IvKIW81VCSbp +R9u8OxZ1Qmhfn7PnLCY8zvpqmkh3QqlzV0D1YCViPp4Pj5DtxK/Dnjsfva4E +vFdJJS7tBPNq1Bv7vEqYBR3yuUrm66w3E22rH1Si0LXGatuyTvSWdE4Pe5H1 +2NX765Z34vpU5GTukUp8VT38T0WpE8uOZSTM6Fci5HX5eYsVnSjNvyhrqVyJ +Y+lHblsrd4LSJ92UOacS+w22ft2oQuztpikIf2ZgqezBTR/+xw8enHF+w8Cd +3JSh82TeXz5cJfemiIFLYRsK2wlLL52JMIhlIEcrbqXUKuKPyrw/1AAGvnyt +4K0nLCemkLLTgYHWDMEzioS1J3e96DAmvCn3zCj5fmOkurX3OgZO2f+6GEe4 +j9HBXCXBgLDwctkVhK8+0lg18J2OtA+nRsOIPXuiKOklHDqujp66+5LYX2AZ +Yx5Lp+NMmOqtIXK/4qRTKneIvsitFfYaIvc3M65QiQ2nI7rhMO+lYicCZDZZ +l7nTcTHTd/8N4i+dPgfqiAUdd8Oqjq4h/gzSMz6io01H+r2e2Ezi7wqRrwpJ +CnRo7W+9Ly7XicLY4m55QToM7+e0WCzpxDUvmwqnZhqOXFyiGba4E1reS0M1 +i2hEDyq5eZJ4W6VVpS+Lo2EwY/bs3SQf7jl8PbTXiYb0N9KBSfM6Iewzz/HO +PhpGk7afUBbtxCj/VeP4Jhr+C1ySf2tOJ3o2yngtnaEibKXlNZlZndg7JiPZ +M0DFvaYvs7X/8fE17mlVfRMVV3bkDmCaD8X3DbNnHhP99/twkfgPPgqunw1R +1qFCdseNOU8+8iFVm71cdAUVDdLD1hIf+Jg9/8IBGVEqXJzln5zp5WPu/UvW +adwKaH5Kahvi8OHJ06nNCKhAuI9ej8grPmqFNu9udapAhYDF8fe1fLzYqfBq +hVkF4vQDxfOYfOh+e7TKSLkCtdG/zy0q5+PXqql/d15TIL5obMWKNPJ+u4O7 +A1UosJ69NDQ5iI/rpgc+lcyn4JaG72Y1Pz5O2ItfWvm7HHr8MtsMTz5u5ve1 +pzaXY9RF5LTvaT6y4rMM4V+OZuEw/RsH+XjQ/KVxo0s5HgefMM4n9U1+umCf +rWU5lOK++jTu4uN5bEKytVo5Bk1eRX7YxoejmGnt194yHFCIKX6mzAdCactT +W8ogLL7rsJ8CH25Gj/Y+oJXh+GWjoL0yfKTFWurJxpVBsyrBqk2UD0mplrAm +KzL/dMz5e/0rD8PB+leHWaWIjK1poNB46PT6OFv9ZSkWnJi1U7WUh7atDtdz +KKW4pbftw918HjYFdl04mFgKk0xbD8tkHugXJxJ2u5RixVG5txnhPHg+Np+0 +tC3FtHZx80QwD9sPzP4Wc6AU9QbvT+r78WC0uzPg1eZS2IhcEK9z5+F8laji +W+FSfNL5MVhowYNQaVDIk6kSXNUaMPy0l4fIgItDqWMlOMY64SdvxMO6i4aX +bHklaN/oNjdAiweagcScE4UlCFuUnLNWnvSvDHuVkYwSmGVGvbFYzEN/svLN +/Ccl8Fe49P7yfB6kg12a+LdLIPbJ166W9F/1N78PNLiX4GJ8pYzVBy6GxdLz +bzuVoDXwzKsR0r8r75oGhB4vgQHruFMYm+iDk3em/piXYDBqVXHpay7ur117 +JXhvCU68C3xkVstFkGq1pKZRCbw1VSmf6FwcoXyfs2prCWZEfNYpvODi2so7 +eqc0SpBS9CylNIuL0oknK9vUSmDcephukUK+v7s7R0e5BA+3v1a4GcPF8VMp +fzdLlOBjdOA74Stc7N83uPYjmc8PTkhdTffhQsAzfk/DnBIExVRd2uvBxYN9 +jkILZ4rxBjcuPjrFhe/hD+5+08XY6XQ0Xfc4FycOhpxe+LsY8rE3z304xAVt ++iStYbwYJcV9M9v2cXE5uaN/cLQYjQPTY5+MuKheWaGnOVKMn4U2jNjtXOhf +US3MGSpGPz4H7t3Kxa0szfWWH4uhU1C4498mLqxSJ+6uHihGhmqaQjHRZ9pu +wS9Xvy8G9xVjhfsqLjgTIzTLvmJ4V/w4uVqRS/S+uXVuTzE2LDP62U/03cAe +pq9mdzEypZ9/fraIi5h5losGO4vxoGHeoZPiXNwNXiRSxyfnP9qzT5Xow+Q3 +I2jlFWP1gx7ulxkOBi6eSxUhPCdkg3TZJAfCjfpKZ7jFOG/QIRFK9GXB1llx +U5xi7Mu/3GnxhYMoBfvfJYTDcyi3VT5ycIL9d3Ui4fmy27R+E33KfBU6v4Dw +y+b4T294HJyyink0Svh5fnBZVjsHv9ndKYfJ/rfib5bcaOFArURAdZSw+4Wj +P06/5CBn/3OhfGLPhvlREabVHKjOuKvEE/sZ5txrWjQO9m2Yfb6Q3G+u3OvJ +FaUc1GtLvJnoKsYvE9FpyQIOjIM2qzkS/3hRtsYLZXGw4a3R+aneYuTGJo9M +Pueg+I1XCL2/GGlp8bMmEjnY3ZS3L/tDMUTrJ76Mx3AQFve2tGawGJsG7tZ9 +v8/Bha9HpTw/F8O4U+q60HUODimGs+aReA/eY0YvJPr+2GmV7uavxaD90+pX +8eNAM07reOvPYnhUzvW1PseBwUqPDMkpYu+Y6oinKwfdi1N4fn+LseN+7FCs +I7HXw+9x0+wSiHz80TZqw8Gi13caREVL8Lt609EUcw6uLO2q9plfgtVC12Lt +95L40LIKBmRKMFJ/NO6jPge2sfLOA/Il+HTreFSxNgdjCw08pFeUQDevqjh8 +EwcBSVnic8h7Kduf0GqwioOdiyaO128qQeO523NUFTkY+vDrZql2CUS12tqk +lnLg5bplYhV5jx1/9zybReaj95pl6fr2JfD0idu26QcbZV7Rp3ydSzBd9sLE +bIyNgOGHQh/OluCPZGOb5xAb8/8TPGIcWILMI6VDrC42TrukX9qcVIIMj11N +U/VsWN08Yv0+rQTdCbv9Dlex4b5dYKoyvwQ3tzgXM6hs+Ldd+jOrugQO7ous +UgvYuPVBeTLlUwniamu+d5P5b/x84wz9Wwn4BzSp16LY6OYseyz0twQXBA+u +3XyPjUln7lupRaVgRax7XBDGRt/Zo7sMt5fiwiFVjZUebGzsEXxP3VMKlZCx +B/LubBz1uv7c3roUhQuu8pe5kO81dTmqZ0uRNP6w1tCOjYXVVWMlSaWgDHee +XbqXjRVJ6S5Xs0vx8qz0A3djNpr/nba7XF6Ky2MHfzcasLHH5V59T1sp6sby +TQq02VC+Xp4dJVoG88+l8otXs3FkK/u/dNkypLt1+rasYKPt2bB276oyFA3n +PIxexob+yQW9DTvLYKO+ssxcmo0zX1Y1OF0pgzblqe5FYTb8no5xTt4uQ0fe +rZwXs9hYerIvPSyhDCdnuQzO/GVhaafXBk1qGXT7aoNf/STzv8DXDLWpMmwI +3/peZoiFtQ/DvSBWjmz7rP/aBlhIryy3vyRXjqHOel5iPwu1h1dp6+uWY+J5 +/SqXThY+RDvPOnClHKU/9e81tLIg9+Syj93dchxx3dYyr4WFlMwjiZFPy7H3 +s56yYyMLLadXKaOmHLUn+z4Z17MQ4NEdVdNejuTfr169q2EhSVHo/cnBclzu +Mk70rGLBXEpN86coBWUd136P0VgYy/q396M8Bd437oy+rmDhhmiv07cNFGyL ++1FMKWdBJyrVzeogBYFxgvHvisn5Z9dJZ52iwHexwZqZQhZy7fbbyvpQoG66 +wgkvWDBJm9LUSqBA12j/y3+5LBTfNb8xmEdB8/P2o1dyWLhcyPqZXUX0yNwr +vlLZLPxhefSEtVMgU/vxECOThby6OcmXPlIguubFhqAMFqZ3+SV5TlEgeN13 +k006CwdUXmy+Mb8CT9R74wzTWJBRuVebq1SBAO9riSapLNQt+JP7QbMC2jnC +lxxTWDgte+qAmkkFzFY3WT56zoLpam5vqG0FToZ0enUlsxB+QTp2+GwFrB6G +i2wnXK1fn2wfUoH7WuLapc9YKO2I3dj/qAIRxpkauwjLBW/z8MioQPbjxDWj +T1lIuHb4kTitAi6Sa0zyCH9d9/RV4ZsKrA8Jp10n3FDBMDj5nqw3TJX6EG7z +d1i77BfZj848FUK4vmRLUY8YFbO2L5l4Tvhowaf5Wcup2K5i8LCH8PYi1dP+ +GlTkm/hc2EzOXznn6cTBXVTUhP2hJBOuzuf2qNtSsWpgQdI6Yn/3uM3Oheeo ++FXz1KSJ8OvURIWfIVRQDFJY4eT+bUOzPbuiqBgJeeVqR/yztfP9gfpMKqTy +mPIHiP8M4+/n59OpyP2sM/8Q8e82Y6ek2LdU6DoM2PoT/zv8LlEMJvrYYMsl +5QoSH6fv68Z2zaeh4MHPqHAST6xpr2hWpGE+c7x6isT724OtY2YaNBhlxR4L +y2PhaqqpreEhGi6I3t/SR/Il5F8bq/A0DfvlKVGFRSy8XTFjIRdAg+hEwdP4 +EhbOXTYubH5Kg//LusZiCgtGs4+2yBL9b5et//MDlQXfeRKHbOpo8FHR7VVj +sDBff49C7hANuc8CRGaT/D8XLOKdsYmOQSn9za3NLFz4HTEQYEiHNr6/Z5D3 +9UNFLnC7NR02MgPH6t6R97vP62jYZTqGX704upTHgrjyK/rcm3RYpqtWOHex +sNhRL8grng5PDYmHjb3E3ncPbEQYdDRannbif2ThTO+/8HVv6Pgx7K19/TML +8uIJZpq9dFRvUtuye4zkm7c/Z3wWA+qtNacW/iL541E7KGLEwBYjunuJCBvP +zz+T1rdiYDqdd0ZGnI3s5r6d5qcY8DR6fO62JKlHgUpc8WsMyK6todKWspHp +/bS8tooBuxzJ5fIb2JjNW5/0ppWBNb+C36/WYCM9ccGfgh4Gbly+rGBC6mPb +34GU738YMCw8XFyzg420W3M/n9hSCVux/p6UQ2wc1OtKEDGsROtCieJ9pB67 +/1b5GWheiR+Vijdmn2Tjv1T/bSy3SshpLfyRdY6NIb2m68sSK+HVMOdj1XU2 +pOf9270usxJLnBTvjN1iQ9wgw0OgpBLvRXYfVXvIRpCIKuY0VWJV1ouat0/Y +0FSTeXnqVyXeBhqYMylkfa9F8U4yv+f+fGf+mcnG1T25OflzmJiWCddb+ZKN +CdfTwssXMtErzrxCZ7Fhdl6vZbkME/p1b2MVutnIcmqdmJJjIiqAvSl8gI1l +wo90jVYycdCt4EzABBsPFb82Fqxhotbhz1vhP2y8FHd+/EuNCXPehp2xQkT/ +7Pz9dtEWJppaNRo7FnHwYtoge3ArE40SQZlBchx88chJfajHxFfj5fIblTnQ +nuh0vWzIhCLPUCKZ9H+N3M/j+buY+FlvaOiow0HsefvFzD1M3LK857Z6Bwf3 +6m/kZ+xn4oBzTveX3Rxs1y9PPm3GROaA3GQZ0R+vj29vFjzIxILy41LXDhO9 +UXpmgacVE19qpq5bnCD6wvdiUPdhJt58P8T7cp6DTSsqctm2TPxw3Hae6kP0 +12dtTsYxJnKGD9SHB3Fgd0Bj1sHjTGx5mKh7MJyDfPrYunf25PtTm9fL3eVg +fmHpITUHJspdlo13R3Pg9LQ5ws6RiU0pJ4eeJHEgqqNX63yS8MmC88fSOGg6 +dkxu9ykmEh4t75PK46DxwLL8WU5MDG6mJNeVEPYTTXtImGHkI+dB5+DWwWzl +f4Tbas3ypOs4aDW8vXuHMxNvS3RqC5s4OELX0bUjfHqJWrUJ0atDG3SXHyRs +8mXZgnY+BztmK0grEVbYMmfBofcc3I8J39NA9qNESaxtHSb7PQqdNCF86Fj7 +2+3fOBC5NOWcTOwbb04LSib62vsa6x2L2P/3GDdzSoALe3nBqwPkft/8GQ27 +5nIx66ZLUQu5v0lihvl1CS4SlMczH5xgwlNzmFouw8VF7Yj0TcRfYwUdwV3L +uPjI+TGabcfE3eMfZSZWcpHTONQ6i/h7ZE7Wv2kyT+T/9s7QJPFIDflUO6HB +RWFDe+sOEq/07bq/unS48H66LVXNhomu3G0qZQZc0Id7gicsiX8RxAoy4WLP +gj+MOAsm7jk+S9I25WJzsPebQJIvMoq9zy8e5ULtmI4dneRT9saRmQkHLmzk +vN7ySb65lJRVnnLlovuz2NoyAyZSKpRE5nlxMULfPuypT/Jz0dwuA38ufs0k +HZDaxsS76zuLHEO4OGYRW/pdg7wnL6O/rre5uDl/cp+POhPdZd0Tnx5wcVTt +9cK+9UxkHDxqaxPLxTrf5zWu5D2x/mol/07m4vXGD77hSkwE5wgqbsjgIt1s +w4/bCkxICQhsN83lwpa1543lYrLe5hpjXcbF2wbr31KSTDwbM3DXpXGR2yvl +T5/HhLOj3ZL5VVxk2I5vaRFkonDrMdtLZH6dNaUQ9KGnEpPjK7bt7iT2VHa8 +WciqRBNfSC2il4vgNelhS0g9ybTUnywm83Fz3MMg4grE2fqUNI1wIR/31PdA +biXEB7gh5V/JPPr6KqqTK5F2X7v7zgQXmg8lYoxvV4IVri4/Pc1Fy6PuTuur +lchzHxu4R+bvJ48bbXb5VEIz68fihUI81BUdNGs8Qeqh6BrPVlEevlnEKwVq +VOL4Gk/OXhkePvk4vk5bXQkLtomp5lIedlj4nS6Tq0SA0hnVOQo8tChK9d0T +rMTZ6NSlZ1bw4G1t7nz0JwPBw5X6f1V4iDf4rSM5zIDE/rpu39U8CDILRPTe +MhCgObdXYz0PWmKX44trGdh1cpXz+Q08iK3LLpIrZ0CS3V4Urc5DoE11SmES +A4HdmeOpmjyIL7WTHbzPgLhCvsidLTysWPZ2h1gY6SfjwpsctHnIj4z/rHqG +gVetdtKvtpH7eEh9UT7OQMjcb6LH9Xj4sHyyaKEFAw3W6YHd+jwkf1n8b8KQ +9K/g5Dt7wcM+HfWIZi0GzM3mHk024GH6mKRUwloGmDf/Cgzu4OFtUfARBwUG +pKbSkqQNeXBx2Sj1jvQ/2oNMHR1jHha6zRIMmSD9lmF+acMuHnY71z1d85H0 +U36m0gITHt4xtiS85tIx4qjpyif86tfGJJcmOq7nuV6I2s3Dzqgoc4FKOlqX +1Nnr7eHBWn6nXdQLOgT/1BxrJSy3QPqcagodVoW9ty328pA5PqJWFk3Hn6jo +pUzCXtECd1fdoCNKNkpQZR8PV7p12Q986XDKXO50gfDBZlrXjBsdNxlrLmYQ +vpbV7Xv2GJ3oK62jjYQ3lf7x7DxAx8cSOxsu4Y/G624dAB39E+8ftxHOs5QM +qNpIh8j3Efsywre5h2bpKNPhpZzQGU448m0mp1iKjj0/Fu82Ily4JZ+xRZiO +511+3BFin7DAwgu0nzQ8OzDeEEI4Yt3lzD2faHAsi98rRNgk/7ZqN5cGoduJ +sR7kvt7Nkml+jTQ8kPEeaiL+aTSVbVOk0xD3VsxHmvDya5/3t+TRID5q5L+P ++FOx+GrZdaKvthiPqJ8n/g9Y1Va45wENtgUvW4JJfD4vf9Mje42GurnJ94ON +yO8/nusZ96KBoWpQeI7E81Vt2kGOCw23B93c9u3k4cm/M7zGIzT4LR/+LkPi +f/y0f1anPg3qh7Y6+m/n4UzbkZXT6jS8UqFQF5N8kvkzNW+tMg1WiV9bEnV5 +eLp1zfaSOTSEnMoVDd7Kw9jQ077EVioW9F5VjtzEw7HPIoG7aqgQfdEVn0Hy +XST9SrlgKRXnTW0Sy8h7KL+2dqAsngqvvq8K2Wt5kGyWl1vhSsVlzhb1USWS +T11OApeOUqF3O0sqaTkPmp23Z/imVMzfmLZjB3mf84xY/ya2UHH7rpKtoyz5 +/QfR+APCVFh77bgkPZ8HZ5rB6pOTFdize9NTJzEe3GxkaQ++VMBxdlF9lggP +v04edd7BqkDQ3eftiwV52P6qQ2KQzAu9QdfKz/7kYiLEclVHYgVqdQLPn/nO +RV/tFWrvgwrcvrCCZk/q0xeutZ9pIJlfyh90qg1zYRrhWxJpWYHKmwapx7u4 +mI45uzNqTwUyz4q3reKR+st0It6tgOyRwZMDLC6ef4vbelKtAt8UOI6mrVwo +tUc7yolU4JPS9qtN1VxUFGy8svgfBRskhW8dreRCpVH/yoYfFPTnzbL8QOXi +rvvrQdp7CtIKs2rfF3PxL0bokXU1BfbfhEuS0rjoaHr8374KCqwEGjcIPOfC +of1U04lCCrpT7NKOPeFCP4cWOZJMQc+ulxoipF94FmVdiAijIF2QOr06gvRP +CRvfq1co4OrtLTkVxoVyx7RbApkfjec/SU4i/Ujm3p4Dmm4UxByUTxPx46LO +Jnh41JwCN7PR/wrdSD8ZuSU7vpeCFVt0nDqcuWhbQS9ZbEzB0aWmwz8cudA9 +lhjB1KHg24rD59RJv+Q/75+bs5ICv2ODK27s4yLrsOIWqiIFX/qZ9+NIv1Wx +nFg5IkfBRfeNdpmGXFRV7nAuWkjBdS/nG7W6XGjMcZLgCFBwmWtNHfnf/+da +7/r94085DP1+PZhQJfGp/K9ly2Q5PCTUXk6rcJHnsFJD/ls5Eubk1MxVIP3H +YE85c7QcZ+WU6hcsIf43GJO/8bkcX4sDkhYv5qJk4suZgIFyVPQZ7FES52KF +6XHzzP5ytK16e2g10Sf90kGCv3vKYWwVX6w2m4twvVnMKV45ut/993bbH6IH +d/jV5HHKwWUpNe/8zUH6nlWh11jlaJ1SurtvgujLIJ+5UW3EXq+FbPsRDmZP +NC760lqOxexrPvmfOPg867yZ45ty+G6LWSUwwIHWzS3FE83luPfF5rdFHwer +zk1opTSVw39725zULg6m7wQ3X2gsx1F/WddJLge/m/PO2r4uh+m3zZpmLA7s +xa3mO7wqh/f41qC0Ng481hsnX3tZjm/1m07OtHBwQfyQcl1DOfqZG34eaeQg +4d7xUGXCrht0zUobOJB0F6xIqCf3K5IJW1zLwZxjj0o1CQ/x+nI9mRzc/nba +9WNdOaT9q3tYNA4KqziMMsLj7t0bdSkchB3VykwhvCDiaNkzokelDnJk8ghP +pttHiBVy4K69+Nc7wjuSJeleRL8mJkJHhuzvY/7I9X0WByUyBU2ehFUjJZMt +0zmo2Ux9Okb4/brsoPrnHHRElKZcJ/ZunXtTVu8ph+z7q0GH3K90ui2oOIED +rGifnEvu/6Uru0U9joM2jRVrJwhrm8rJ5UVx8O1qscE08VdZbImP+gMOQgf8 +1i4n/pXnyPwtusNBkebxpmPE/4stOJW6kUSv79q9qKylHJa7H3XUE/2e8kv5 +gxqJ3w3BAUvraxwwFDnrGG/LcbL2lPnHYA5ktvlWaHSQ+HvYysn4cZDbvbVD +ml2O6sHZUkXeHCy395u7mFuO5d4mvZaXSH4cXnfMoascb37+NX3mTu53YL9Z +Ack3gc9p8qanOWAG8maWknx8X7xBasaJzCfmuxT1P5YjzLaHfdaeg2eam81/ +DpXjtEvkm/XHOPDXO1jzaqQcXs5yJqNkfskBJhjkPexOfC8WcpCDkXDmsp6Z +cvxJ1Nzaa8xBt4zUX2chClaNiFyt3Ul+/5q1eq4IBfPGa37kgoMDSm1dUQvI ++w75kX+PzFMds+Q2XF1EwWf9EaWbWiTfw7/vDZehIFSqWTJCk8TXrfAsfzkF +TM8d1TEbODh4plBlnQoFj7Nac9PXcaA+3C55X5UCdqGXO12Vg8sGaSNpGykY +CIwtnVrBAd0pQH3UkAJL1skGhgwHqbsWTLvsoYC2dktmrRQHOx18yv+YUhBU +77SuTZKDzC+T2t62FFRKnfOaPY+DT3d1Hz6/SEFS27Ilr2bYeFbBUhu7TIFX +iFjPgr9s5O2f+msZREHnwbCldlNs7PcX0nO9RcHwr3gzqR+E23T5RekUNF2L +vD00zMZRka0DVXkU/A5RZXh9YuPN/gULP5aQddZ29XmDbLh2edR41VIwscJG +52AfG4OiwiaJ/RS0TjyrsOSQeVhBQ9xumIJnAn9oamReVtAwrt/0jdy3UKBR +op0NQ8WG5iWCFQj3nHGeeMPGCbluuXblCpiZ31i7jczbu2x7fDTWV+DDpS9S +zvVs2CyU03yuWQGnhZ9qEmrZ0H4ycLnCiPQXlYdv11Wxscay0e7EgQq8PMCw +u1rJRtjWR9ayNhUwP+opPkBnw2n6vEaZSwVKDW//11TBRlxsvPuTCxXYfUr2 +rTmZ/0Mjrh2J8a3AoMahr71lbHAoP2nFkRVY63Z7TKWEjUnlze7cRxVgPG6Z +YBWxsU0zBuJJFTAQPVoVVchGcIJW7eOCCnxR/zylVUDWFVXzflAqIFqgc3tp +PhtBCakb7GpIf/zrumluHhvzecXHzUm/lnw4Mymaw4Z47eRufk8FtJJfGC7L +ZkPgz+ZtHkMVEJPgDellsbEx82cy7U8Fnt5XiX6WQeLT/tLMYw4VvP90qwfT +2bD/+eykuiQVKd3f728lvJJtcubnUioUS50kY9JIfKKDv9epUHFvdcZuQcIf +rBdFJG6gwuBZm7FfKtlvc015gDYVl2L+LJpJYePGwSMSJ3dQ4eGnT71HOKv1 +8VLzfVQEU3P2qBNmBfdte2xFRZ3tnb89z9lool33GLKjonY1XTCB8DvVant9 +Fyp0Vxs4niT8n1NjetQFKj7ZL1+lRXjFEt7ncV8qInjHrRYTHn+/qsUilNwn +Ye7k32Q2es8Mfi2+RUVcrrLCd8JalpY/5aKpuCZVXP8/jpB8Ghz6hIq5VvWz +BMj3/S8m1UYzqMi8E8+SJRw4rvrQtpCKeaVLdusSdiqZt/8llQqhH+42boRT +34d91aqj4ox3w6xUwrsdfZamtVCxxOnQ3s+Ej8hW2UtzqOj7vG+jPrnv4CfD +Y9f6qHiypb3oMeFJWm/6t2Eq1pxV7BAi/ov3vcy3n6DCin7s0WXCnbNH7jb+ +pWLSnDr+m3C9kcLxLSI0jB10+3KN+P+U4nB3giQNC0ZjwxVIvKr8tLJnydGw +/oA3s5LwwL6WiCo1GpiCUwvWZrJRd5vfLK9Fw8e8fyvHCN/7NMz0AA2nX5/j +MUl+BD6YmCtxkOhnIU2lcJJPXWfEQ62P0tC47voz/1w26Nr9f6NO0RAYFZ7h +T/KvqjB4v5APDVd4Z+WTSL6++pi6Tz2YBooIPJgv2JCW35lsGUH0+vIYpVGS +3yY3YnNC42l4l11sf4a8h/m78yPvpNCg4e3MrShlo3vhzyX3col+fuMTLF1O +/P2m6ZFXJQ017ffXjZD3JrCHknf4JQ3P312XdaWR+sG507zxLQ27RYqFx8j7 +zFoTfYHRT8PPLQGUZeQ9PyxTTDUk84ilSkj0nwbyfXa/dc18Or6LMmtbXrEx +zdrzarMMHTuXyh7LbmTjNavpxOfVdOT3wj2U1BOe67KNCSZkXjrCT8xhk3hI ++b1LMqNjf/O2p2+4xB/fxebdO0RHS73M4T98Nq5QSxL1XOjQvm12/WIvG27O +ekuKw+iQqGE6twyxcd/Jsmb6Fh0nj9Lvq4+wsXU0aUD9ER3CZnEqcaNsXCpf +qXcsmY6XL9IEwr6z8eiX8kcqnY5ju+V30Ej9LROVETxeS4dmkoyRnQAHSyNV +R4Zek/nuyKsSYSEOlpjLCzPYdCzIu7PPfS4H9S8vDZt9pWNxzp+/kaT+G+wQ +7936kw7jGv7WU6Q/bGy4Gyz6h46s47eydy4leqmlrviECAOHP8QnLFTkYGXk +6M0eMv+u9p975jvpPzkPFvv9W8GAbaWv4iTpT5b7AsSEVBlY9+G/RqFNHBRM +JtjRNjKged7ZRlWbg9VDgt+HdzKwdP2y48mGHHyNW7RIw4SB1Az66OtdRH80 +Xzlvt4+BJIH0Rb/2kO9dpzRPWDLw65ON4xFzDljPzXdqH2LgS/PyLXctOVCd +d79r3JYBHy2NoQYbDmbtkl2w0JHYI65hsMOOgyN/eE5eTgz0pWSGhpwg+70v +b6G5kvOWfvpSc5LoBZ/ZtybOMdB9516AqRsHrrQHtA8eDLSJDRpGn+XA+1RA +aZknAwK2XJ+eCxwoSzxnCPsxMPf0hTNePhwUZwlkBgcwcCJlprmK6BNJ/tTi +7isMfM8Uer/gCgfz1easMwhloEpsh1sW0TfPBrTzjcIYCOhzCvpN9M9F/olz +68MZsKGV39pF9NGBPeduPLnJwEUxpTd99zkIlDCcULvFwJTD8sz/iN5aOJWd +nXCbAbkD3tV+sUTfKYyXjd5hYFey8WhdPFmPtFVWucfAuHbWjMQTDt4e3jih +c5+Bex+qXh1O5uBJXIWW5gMGYq5kKT5NJfF12PF9wUMG/DpD2gcyiL014prN +hHPanahrc4j+1Lm7x+8RA16hBhaF+RwsaCmpnh3FQOQ60yNbizio07DNcies +c8PgMbWUg5dLbcQLCb+2fcXTrSD39Zj81U6Yv0Kwr5zOQciQ9oMOwvOqHbw0 +qjhwCdwvUkx49+VZThlEH980ORF6gfDYzRWBci85UHRM0JhH2NZAMPIG0dd2 +H9fuuEbs6et+f/Qb0d9+45v4fGJvX84c+iGiz3Med6ktIlz6Ncu/vIODtX+t +HVXJfSlfJZ0WE32vqlmbLk/8YfT98q4znRx02VisHbvLQOF2lS+0Hg6Cr66W +Sib+tF9qvlr0PQcmre73NxN/p75CpdkgWT9h2poWyUDTbo2we0McHBconD0Z +wYC75IxxI5lHJk/N9lp/gwG9mf9YM2Mc2NzzcN1+nQExTY74f9+JvddWrda4 +xkDGK8kq659Ev71ZuIwexEB09I1/98j883pt8gerQAZuzJ3YkjLDwQ7rtQ9b +SL7dtTIxKRDkgr26qcrViwH5b38tC//3771v0Rpxkdwn6Pbf9HlcLLOy7b99 +noFqOzuiM7loD2P+Z3CagdEhpYQjZD6LX7BEeIy8B6q66QZ1WS6Ma9csv/q/ +9zJv84k/S7mwU6i8ZnOUvKfRdK1ARS56PU7fiCXvTXX9jycblbk4bSujyyTv +UdLVV4u/ksx/e6uWVpP3+mV/qrf0Oi4eCX+YTiDvWXqd+GCKGhePKQcnjxsy +0OmxZsF6dS6sL9kVxm1jID17Rkp+MxdmMS4WE6ReNA5rjl7X5+LOoXc2i1QY +eJd+ROMVuCjSdwmVW86AsM62S7N2knldIm10WIqBHV880y13cTFk/HS6aAED +Px5/v3x2NxcSWg5NrqKk/mh4CwXu5YLB6bCO+UeHm0brTIApF8c7OJ0LJ+lQ +Wt1kdtaci21KO2p9v9ORu0Ra2vIgF/PqVKykPtFxgLuI8c+aixDxUQvfVjq6 +hJJjO45xcZ8t/6SN1FeZwSAz6+NcSHqZPF5eR0fpD8UnjfZcXLWWnbxLoWNe +FetnPJnfb6pPzystoqPgjvDPHye5WC12bH1rLh3xuasDdjmReXtMarTvGR0q +QhfmNbpw8eVelgEvnvSbfQXzZly58Lcf+NcQRew3zAxZ68YFh3FUOSyC9J+t +ESwHdy5iZ5/fbB1Kx74NYbTzZ7nYXC4poRBIRyRVe6XnOS4Crk95371Ah2dw +0/UTF7gYUGcW6LnR4ZFSfGO3BxfPT0mI95+kQ0DfXk71ItnvtnGwDOlfQWki +0w2XuLglmWWcZk5H1al5Fjc9udij9zBMfS8d2y92GRl6ke+zR5vV9em4bf1b +Ks6bi7FFFqHpWnSYFjb92uLDxSa/BWJyG+kYlZ2584rwOFW6KHwtHbuOO7+3 +vMxF9fWDb74q02ERx/7XTnhDREG+tQId4l2qn/f7kvh5yKeWStNxSV+tkEp4 +ztgVgcUSdFxrodit8CPxyK9fdG4uHTopqb8CCY86dKvVzaLjXlttxFvCWcUv +niydpuHa2ZFlCv5cWNmo0c5M0CAVMU63I+z/Q+cd9QsNW3UyL0UTzjKo3yL2 +kYav9z/trid8dpC2+VAvDdrp10y+EH7xXGLFcy4Nn8KO+84L4MI+fP/e0TYa +ziqWDCsRpgq5TW1tokEnTzJrA+HVssZ+oXU0hM7qrttEeDazYlELg4brnyL2 +/2+94k+6+NJyGvw1Qvb/7/vsxqGCUy9oeJy3sV2M8Ob1drtfZNGwTE342wg5 +n7G0R37mOQ16fmeK/2dfVtR+T9NEopdcW9fGEj6WePXxk2hyn7qnJxwIa6sf +Z3+7S847scdFmfCTPbRLu4n+shHV3s8n/vk97Fv+9CoNvXdYy24RTlnoOTrt +T4M989HwZsJvBJSO23oRfqNR1UH8Pxoa832FKw3n3c6+nSHx0mRnx0Y60GAt +MLwhgvCXPn/fSVsaDqa2cMUIv1B6O9J/gAZFyh6nXyQ/ttjE/DtuQoPm/1Vw +3vFctXEYRkYUaaGpjIZEqFDxGNmtt+y2LWTPyigzicoIRaSEhhHldw6ljBAq +qmOERMgoZVXivf15fYrOeZ7vuG5k/IatBXiNdrJ+pxpN+tvfTlegnsRM26N/ +KdCkcr+5nDfqzdwyzGoKvhpmrp9TiHrkqD95ef46+F1cSdkA6nV+nP3a3SI0 +mWyQX01Qz8fypFY5LqSJhfLS2COo9wNut+Jv8NHEc7KC080Zz994TUgE/pyj +EasYgn6JdOLOtBynyNECeakL6Kf7N4Wrn36nSNPuNB9fB/Rnwcz7wC74eNyP +iP32zWQO9fpG9CuKbI9+JZlh1UxkFZcpy76gyI2oX6m26O+CsAfeLcgDfpmJ +OyTQ/w3Fw6WGjyhy51vo9gjMh+HhpPvtyBsvmxX4ucxxX0lDVz7HID90hOyP +NW0mOhp8nSMXKfLCN//sKpNm0vEgPXFnAPJKVfPUKsNmMlbO4va1o0j4U9cT +LXvR3zkxTYMWFDlxXvjlzj3NpFcpMcYZeWlJ2aO2BMy/0TNbw9IPUkSvqyFJ +TaeZaFTJm79UochokQ+/iVozsXz+4nyBEkXU83x/xqg2EyLLP1agQJG8Lwnm +lbuaydSbepWvGylyTOeniIQy3pf5KbhEmCJnbSIXPJTDPJLfrXRxEUWC/Lvq +KzHf217pP1koQBG7M19aWjejH3g9NY24KKLsl6Xyd2MzKdZTGsobZZGdor4D +C7FP7g6fWlf0g0V+GDm9XrAG8yL6z7XXgyxS4xP/nG91M4niWG6/pYdF/Msi +dk9iP+04zQr5gHz7dgmn/eOF6J9fu7L9G1kk9KqeeeaCZtLaKc2n/IZFxh/L +bL/O30zG27nyuqtZRLvan8eDt5noll+YFillkSc3g4OE2JuJfPw9G0OKRbo0 +Pij/nWaI955wl/SnyPdlkdHt2McH9x244VXAIvXpXo5pkwzpCHFNYctmkT1X +xQ8v/8GQ+q7/9r3LZBGXE1EO40MMcY0/+7XoDp6n7d6rtwMM2SPD3fk0jUWO +WLmUhvYy5MW9aL0PqSzCpdASdKKHIfZ3n+ZwI+97bnPtVYZvvDRRPXUriUX8 +DqcPD7TD79Iq6nkTWeS3+h9WOXzFKFl9V2gCiyzq+uN/s4UhLg+zdj6NZREP +81qN2a9XVhqGVjldY5GetTccNjQxpPVXpNH2qywSu/dZOzv8aPiesg1bDIu0 +nxcbK6xjiGbIWAd7ND6f9djzGPgVRy+7vtBlnM8RtQ2O1QwxzetLVYlikWUf +9hDdKoacrlL45H2JRUJUrJZLVjDEeb7Tv/JIFtGdaajjeMmQMMvVUxLgh2HN +Tp+fM+Tzo7dNCRfxvpo1AmWlDMlsErywCpx4c6A8jWaIv00Ke1EEi1jnumdc +gC/a9jdqnQQvF29/bvOUIYOcLzVEZ/9cSH2zAfyyPfzMwPdwFul/kTe15TF8 +VItfoRGsf1JLQyQf580bPr8aLCO1cCF7LkMc7vw99RasaCx1duABQ3b2e6sP +gvlW343/mMOQqIz5F5bh8xuwEt0rshgin1ktZgZOsVy+rjCTIVPPSxfngDMP +qpTdhS9TZX91F+D55z0XNk26jfzkG1MYAnbqLv0XncaQI08u7RHA+7tN6lSE +wb+Nyi6xZYGVL1NlQTeRx/affmaE80sdPMXlD1+Xa9vpsQTnK7hqTfrZRNxf +4Dhvz+x5b0jPOpfAkL+GqQ5VuA8doaebg+D/Yy6KwRTua/2PDWph1xjSMvhM +tQz3qV1K/YxGXmjoVA5lrrCIQoSiSXI0fPMKt91O1MddRe5zLOSLnCZDdpc4 +FmHpdlt/j8DfFwlLKIhnkQLXV1/WhTNk6Yyrly3qbVmiMXMTecUyfPHNj6jH +SN8Wh0/nUQ+fHP2Mb7DI5N/XdaJByCc25v8CUM/CwTvlH5xjSHfKQQ8p1LtG +xLr9k2fgv+uVtb6ks0iDgL+zNvJR9ZbEhIC7LMKWdOD7gBdDFp9c5XbiIfot +K+7oUeSrQUM26TO5LLIme5znxWnUf9bJkNv5LCK/MVBUCnnMQsK2eOUTnHfD +txrOU7N5ZL6VUzGLGOfP8/W2Y8iAp45+Lfr5cjJTNWSDPLRZx/Dhc/S3R6xX +D/Leq5+uKgov8fzHFg3bWDAkUvzfYHkFixzUNN82iHwooMAmJVDLIpXD1hYc +xxjCy6nXuxXzxuKsauAxU9zfSp6Glc2o9+5Pz2aQN7/50FcF21jksMyFzXeM +8Pm6hxRXdLFIa92XsqmD8PlUY+PiYRaxm1j8p2MvQ6Zzp69NjbDItX7z1tt7 +kBdfnUzTH2ORob5yVUcDhjSVx6RyT7FIIe+yx3zIv+wSIiZ/eCli8sDCNWA3 +QwyiV6vF8FOksMvirB3yc4Df/s+yCylitPyxmbEG5onLLVakCEUmj0/mqakx +5GPx89s6KynSoHZRRYUwJHmPc/b8NRTh6eoqUVVlyIVJeZe89RQJSzSnD+xi +yLuvkh0xmyhSVS2vf3In+JVFrY8sRYyHNQe9djBEcZHXmZOKFDmke+FSnhLq +xVKCuaJDkf05ccust2EeGMir8O2hiKhiT87lraiHEyNrIg9QZGH+ofOlCujH +9rNhd8woMnV+20o5eczTBLfrqsew71YlDrrLMWTOglTtDuyzRuntq0q24Lx8 +O+O3O1Jk2a0vTy1kGZIdLVw16EIRl8CPW57JMOTh3ercLE+KGNbViomBLVZ+ +eb0d+5L7ztnLf6UZ0nfDMYo7mCLjOSuXuoGdLArF28JxfsLBst83IV+yVQ8l +XKVIz1IX5X9SDHl+pODRuQSKuJLmbZfBv4KvnrS7QZGHzdYdkmCJvP4KkzSK +HF/1U6l8I0MM57inGtylCM3Y7rYHh93sy9XMwfs1585ZCn6Wxgn5x/19L/Kp +2sAQNvmgUFJIEc5eyzuBYAMXkTcaLIrsjE6LVANn+Acf0XtGka1FZpt5wPwB +AcMHyykiKeV1qWk9QyKuvdQ9Xk0R7eLO7Hvgle18MqfrKfJG7sLFC+CqwAUn +Axop8vukzmZrcNTNyIyrDOpBWDhuL9jVWJnK/ITzEWt7uQvsXffOthR+Y74v +kJIHFz177fihlyLul0fOyYLFebgufh+kyEj7mXkK4AWqHIG8PykiYil1UgU8 +Lyp/gcQERZo/FZ3ZB763kvOP6hRF1i1qNbGZ/X7E0p4ZM3b49IsDP4PBfLc0 +uzy4abKh4K1ONvhnN79F9DyaPL8jbPQB/Hy+vFqWIE3uHW0T4sX7c6mlqLxY +SpO3N5sjNMAHM9VWtCyniczG6uzz4B0OPEk/RGmS+8LKqxq893GnH5ckTbQ3 +2/QL4fxX5rD8RaRo0r0pjM0BvHX3xl+KW2ky8UNAYD3uM1b0YbemMj6fV8G/ +2fu2e+TwZ48qTa7GNgTO1sPvnivJRro0KevasHoY9RKek51jCJ99cbpwnQvq +6V3arv79B+H3Z06mToJ3HZMeVz5Ck0cNRSUrUY8ymjv0N8CPD7o/+u8pOCB+ +7fuFNjRZc8BG3hz13F3Rdv29M00eOD0oykW9/47NWLbsAk3q1SffZaJfOj/V +pUWE0aTLK4HdFv3ksaPAcDSSJnlb8xw2od/M9MLPP4mlibt//MuX2xmy3Hf7 +2Pc7NNlRNLFDDv1qt3xFjTTyQ9ONHdMi6OdGTjszi4c0EfQ4m8qFfn/YIPi9 +qIgmdhvI3iEVvN+kzxBbFU1Ul8QIjKljPt8wuzRdQ5Pe41f8ODBvLu1mefyq +p8mAnZn1EsyjesMPQS8+0OQcafLR0mYIT6HHnpEe5BPtJZ0t+gz59PPOQEY/ +3iflWSQf5t24VE7yPuSt1y8rlVQxD09fS7l6AXnMvlLcNG//7PfTJJKdOUrI +1bEno+WG6I+WHwENXCXkz2Tnr0WYtyeKpFQleJG/27K9rEwYsqxTj5WDPDih +Jli60JwhIYc0/GWRH78Wa2pfO86Q/YKZFfKiJeScY4TZX8z35v7wsY3Im91N +U+az899EOzXp1/oSeIXtp93WDJk/sLTuh3wJSale37jWgSE/Gi02xWwrIe+9 +ivRTHXFfAV8ixJRKiOFRu+Wi2E8Pzj3sFEX+PSL93k3SFeeXINfvp11CTvwp +fKnvzcAjRv890i0hvJ9EXzA+DCkL9vX8iPycqH/S0w77sMrBVvPfPoyI/tJ7 +l7A/BQ2Xm6Ubl5AHMvI8Xy9gft3e+vi4aQmZu8fxqHcIzje0xWOBeQm59969 +mDcMvvgskVf7aAl55eGwVe4iQ9rSxRteH8Pn2yIuXYl970ov+aR1ooS8vC3f +ejgK+ySbv1AAeV9xqlcwIgZ+wBvqcsyqhHCEG7msucoQmyJtk1vWJaRKOFvp +KfwiesH5iD+2JUQwJqGwL54hejpOlYvsS8jU6kmNoOuY91+CFq46VUIeT9d/ +W5bEkPMqGTSPYwnJWmC4w+Dm7Pd3dVf3gflDh1lfUlCPErciWU4lRObh6rln +b+H+15ziCThdQh5uHxJYko770LWN3eZcQuTqLegc+NWLSZNt7eAj4uH/NOBf +By5PDfq4lJDGbutnzXcZkm69tJTLFfm/jPO78z34SatFTjBY3tbJlyubIYv2 +3HkyBrYMuWeQBN9zWXKzx9SthDjXlB6UgQ8uvsKn9BD8p/vpmbKHDLmx+mHe +GDjzQmrBIfijz+8kI1l3nM/I8d7uPIZskpgnfRh8Z5ib07OAIVc2b1f3BVtf +njc5p5Ah2iOn0iLAv5rm5V+Br/boT5peAk9V3lmzGj7LJ7TZIwgsY+8tn1WM +95ExnbEDKz1f/UGewj5xfsWtCX71RvkPC36c+/h1/ALwpVSbKHX4M1tLAVWP +51OQ0/SvfIb5wHodFAg+ddGJ0itD/8jbjEmAOx9dUKh9wZDSVQ1iNN5f8674 +e/1yhowaGwtpgzXcBi6/gr/PP+XZ9gLnKcvjvH83/J7DuDdEHvzsVBpX6Sv4 +YvzJ9XE4f5uLO9O31TCE9erR+2+4r2P6O4RykBdeu4/nOOM+hXeZ6UbXM0Rh +Xei/FNy33nb3vn8NDCnfJfKozAH1erJH/NRbzENet5DPqJ/atootO5FPTk2+ +aWy3KyHTo5u7U98zJL70xPsG1JtKw+dx9o/oZw11rSjUY7H5mumSZvx7TUqf +zFCviq7pTcKtmC9Jf/2Xo57XCnXWn0Y+av1I9vug3kc3Cf5b3MEQq48aMlno +l6YmxWHlbgbetujKOPppTZdLZTzyV4OEce92kxJiGidQ9/0rnj/u7FTMoRLy +7Xb5+vh+huz+fp4j578S4m4+5+iXb/CLtxoXn+4vIVpOv85LD2I+WO8sfGhQ +QmIDXljnD6OeaO37CXolhOu8GN/37/D/ivAqD50S8rZe3HH9CEN6c5cvma9Z +Qn6Hz98V+YshqlLmmQXKJYTRC32zCvlS32TmpIZiCfG3Z1uv+Bt+VPTwWuVW +/PvGaz4b/GGINZcYd64s6jnI/pAt8ulqBbtbSzeXEIFbRyec/sEfd1+3cpXC ++dRGM87Is6aHt6ybL1lCShZuV7RmayaPLxgFGWD+eS8avmuK/Lv5Y3tZEOaj +3TcHJR2OZhKjff1h47IS8uib2p2lnM1kQGnaeJEA5ukT7q9ePM0kuuvGP/55 +JWQnV8ZtjbnN5FvjMQ6OuSWkqIlvLy/ydXTz3qFG9hIyFuJuEsbXTG5Lx2/L +n6bJDJdRgeq8ZlIasS4t4i9N3vGSHz/ANzqM7kqMzf4+mQEObeR1KWHB9L4R +mhzWvNzYBzb8oBtyd5gmOU6TfqECzUTQ3rFSsI8mteSLZj7yvsMZt9CSbpp0 +hmieUBNsJmNXN/+0+kyTN6+k9KrB3/ysr2W0wDfmTvrULmwmE1Zj0iofaVIV +OvR896Jm4maZqPS2kSYtvVbvn4Lvta08NfiaJtzZWvZXFjeT1vG/I+7VNPFS +tB4YAztYDT+aqKAJD5s7MVrSTOJ95l8dLaWJYnKFBedSfHyposhpiiabk55v +NQRzJ3he735CkxFpofYUsOPbCk3TxzR5aL/2RDc4QWWDQXUuTaJtVGgJoWZi +kLSqU/EBTVJGvEePg6+8VlDIyKKJ3E9l/niwb4+3u8Bd+MdSjXlV4IzI0Qav +dJoM6+z79RPMOZq8c0UqTU55XjQVFm4ml47p/leaTJOK++amiuDJARnFE9dp +4tp1ffwgmKckeDF7HM6PT1TxFNjnp//8tCs0Ob+8atU5MOeDg7pql2lSzeXw +MBLsyL9tqP0izrOsezBulrceXnsOfrJAXeBTMviFxh++FcHwPd+y8zfBUmY6 +b54GwgdOMJ+TwA/c4hKMz9FkW63d9DXwKvtdoaO+NCkqFG8PB6tWFz676kWT +/zw2hfmCuUotbOXcaXJG/8aMNfi0W8atN/ClnDNX9+4Duy5su+ziSBNjAylv +eTB35SmjhfY0+TkVcH4RWILKEy6wpsmvxkeewzif8hWLfhtZoD4WfzCuBH9e +NLTyzzGa/JsRkE6a/fn42tt3Uw/j41u9/tqDnVwSirVNaSI2sLF2GzhyE2tu +0n80EcjrulCG+xOLuh+pvY8mpd/X+gaBF2RNS4zpw3cmOsNUwC5fQ1aY7aZJ +/zq3hdmoFwfJqScC6vC5Q+w3zME/upZ8q1ShiUPf1eM84IdLcqOIIk3mGyrm +GaHenO+6q7LBVxfJ8eyfQH3WjByeU74Fvhl0SCsObPljpa4R/DYivNW8EvW9 +oWw7j/h6mvBpNUWYga+HTpiOisP/Al9u6Uc/HLvQIZ++iiZfNq7hnkb/xB1f +OekPn/YNCNO6AH7SOe/VcWGaeD4dWs0FTng/Orp5IU2Cm43Kp9GP0RmXzs1w +0kT6z1BzDfr394upqzPw+w1Rd/q3gcej5kRxzlBkH39S2030f9jmquRVvynC +3sLEWGE+pHepikQPUaTl+uZt9dzN5BF/kUrxN+Sd1mWWa8EhyTqL+5E/ztZe +ee7K1UwOz03ZYI580mO0VZ4P84hnt5Fr8EeK+LrlzV2B+cV8rmi900SR0peG +5rqYb1a+3TX1bykiPuBOu80w5KpCbpbia4oozJHtKcV83Cu1Vt+ujCKnXSIU +t2OeJs9pp1+VIj81Wfvtxbz9elfMT46miBmPmaIF5jEtk7p55ROK9CssNgoe +xzz16+s3fUAR6e0v4u//RH5usRGbzkbeildbm4f5/k/wjcn9exQZ7Jh7peAH +Q7ijTrJJZCAvf3Iymd0P139emXs+mSL8gR7/rmOfUM2Fky6JFLm5VljuMvZN +2uNFdvbInwEG5ElQH0MYypnT+xreLyh7xBL7ac7GvB/clyjyvKbnhlAXQ9bG +DlzWvEiRb1N1XTOdDDl66MCqi8i3BVtP9PVi/5UIBMhtC6EIFVpi9/gTQ9Zv +omsSL1Ckgvfu9HXsS5U23jNzz1NkjpX7xbPYpxO7SnQ4kZ8fO08Uq2Hfds2P +975yjiI/I2p91jLwz3zrng1nKfJ3zzPL2f38Pb4hzcsX75urNlqKfZ4cssru +sgdFhvZN+8i/YTB31ExOu1Ok8kv2QgH4gNWrJQWmbhRROWGu3l+H/Ods+mwP +8rzUcHxSCnzCRGu+t7EzRfJPX273gW+Ipv/OOnWaItOPjw4frMbnC+aNyXek +CI+r6V1u+MoyQxf9rw4U+WA0bNcJn3mpJHJZAlwvLi/Ngu9sfeho7nSKIkcP +LPh37SXybaHSg+f2FFHLW9fnBD/aMqUVvBrM4yb8Rwf+FCZz7FOoHf68NJCI +PYev8n2Y721LEc1M5YSPJfDjHxZB3OCv120kKuFnrNIu4VQbihj6PuMthL/J +Hg2vVwMvEoz8L4OF/F0QenvAmiIZEoLcsfC9m1mCcangSP84uWD44Pr1ZmlH +wAY9J9s9njBkbPG1SjGw7RpayAb+WC+7hOOnFUWKizq7TeCXP9fI7KsB6+bf +PKj/mCEJa2IycsCGb67aq8BHje37p+PA9nXHFeTyGVKzrd84ArzIJqNYEv56 +6bnq3RBwizEb9wr4rdLuxK8XwXuOLBZb+Ajv9zdzYSJ4TP6c8Fz4cO6a5Wtz +wccTPn2fuc+Q/OEUgTfgpdpNjyfh05y3ehonwRl/2Vx+wrfVnW+eksLzx3nM +2TSUBZ9M8HxtBfZ0OvO9D37+5b9VvzLBDelzq3oyGRKh7sH8Al94ZEV9gc/v +aNXz0MX5pQz/ft8F3xc6XULdAbf7Bot+yWCIiHPr7Xk4/7NlrFvdyAfkUO5a +P3D+tkMWvcgPodG6UiNgSpvTaSCNIQPXc/NdcJ9vrIKrfyBv2HePPpoES7Nd +DJxIhU/3rhWOmL3/iNqkGeQT6x7biReol3USbSuWIL9srk00d0Q9fRISiV1z +A/lp19e/q1B/U0/sr8ok4/6vstUlOlHEtHL97v2JDEm06P1qiXrlW8LOa4F8 +5H1l+eLtqGe+t9VeXgnIB3G9bj9R7082ezhnxDHk8965EW2u6Lc7nHylsei/ +dzt969EfPzotnJqRv+5a3MiqRj9ZjrrdX4p8FusTGb8C/dbzXu9TxmXkTc+L +1Rp+qKeHudF1yHerAlabu56hyMCPYu3JS7hfptKoG/0rwp3SeQh5sOoJlbYB +/R3McfpdMPIiXzk3v0cgRXqpmq9PItAf6/TnrMF8kM1bGicRzpBzVyYdA4PR +fyHnVY4hb7oYpuf1Yp6snoqUSAplyPayu+dqMG/C/rpXiiCfpujnTLVfxn1e +ucoufx75cWRmmWMMRc7rMJVBQbi/OauVZq7g+V1cuhoD0e8uk9KKcXhewW0K +AQHIW/To6ADm48lN5s0/zzKk/4LFksybqBcT/+9G4MCtirdsUymSdvdfOHUG +eedTQeZkOkV+qa82uYw8HSlYt8IU89jsQP6bg8jbX/sqtHbdp4hbS75HDfJ4 +asn+LZIPUR95ifRusETPghHOfIq4aCrqqnsxxHFK48bfAorcPTN17aUnzieR +LX+8kCK3psqv6YLVB5ZU/S6miGvT2WfmHug3a7tkduyLRVl+v3rdsS+GSDA/ +9gnfi+sD3uAVA+Y75V6gHxx8FG+5YX+UXcu5U0OR2pGyC4tcUd+7792sxX46 +WaO6scgF/XRvWf9oPfpxt27mEXCmnMzm/xopUiVfsS3fGfX09dj4hfcUyc5P +0j8Jzk3iYRVjH4Z+e662GBwj2vZ2cxtF3l5/2RxwGvkjIG7coZ0iV5dzBO0A +F099LrrfiXl+ymjRpBNDlLv25WzrociWl9N/z4AFMo48Oof9+2OLr6kG+O3G +dcNV/djn9j/vzAPfX6b01GIY5yeZviTTEedz4O7Cgh/oP1Hl7b7gz10rNLh+ +UWT5m2i9fWDDpzlbzMZQX64f9q0DhxTZlT+coIiAmoo2O/j6S+turj+oD89R +2Q4HhjyqKPQ+NkUR5b3S85+Dh9IdrJ9OU2Q9x9LW22AP9aTYxfANtYb2GxfB +dmGGg85zaOLzvfg/D/CA+YNDdVw0Kb/54fcJ8Jr0J3mb5tJk2VLruAPgjZqh +Qxf54McxcRKaYCkJ6eFv82lyX/96phLY3OB6ksECmgQuT1otBx6RVmq+D/9Z +UtgeLg2+v4r9isASmrg/j+qWAu9XVTXLEKLJqOTu07N/vkXytduOZTQxf/3S +fvbjW9/XlbxZQZOjpalNyuCWQzbLbVfTpJDb4b4WuDj9qd2/NTRZnvt02BDM +Vdkbfg2+plWxItEWrFMmdHjjOpoMHlifdQ4877rds9IN8PGjp1cmgNv2ssUf +2kSTa+MXfhSAtb6yPevdTJM56/6KNYHfWUUtPwNfbBi3yZsAz697Fc6vQJM8 +d/PE1Tj/ILEP/SnbaHIy047RBW9SeLNKVgm+ni3p6AV+WTs3wAB+qtf/7UIr +WLRLxvkjoYlV/9rpRaiHZSo3i05q0KRAewO1F5z8R/idiw5Njjjb9b8Gs/0J +tR/TQz7pCT6wEPVHec/p8N5DEwnB7V9Nwd/Wf/vmCZ8efr8iYgS8Y6Jo98gh +mrBWKlzSQD0n+BvPOWVMk2SnjKx4sPz3d9sOwc/5g81FddEfS/oz17DD73Ot +zKwb0E9z6w+YWNnSpD1v6V0l9Jv96Zy55cgDb8XPvs0AD0r8Pu1zmia/7x6t +CUF/nlKPOpjvTZPxQAF3e/T3lhZz23HkkZ/6TxT7wUcLO1dtP0uTxOTtOQ6Y +D05e1+fcQ55pZ28I9MH8cHAvpw9G0ES4rnhRni9Deu6NjLhEIj9ZvvXSwjzS +/jLzNyKKJg+2LNRtAzeVLdx2H/lKJGHu/IWYZx23DaoeJtJkIPvNgnh/3J9/ +mWwa8toCAYnGXZiHFYtLiqNu0iR24uaTHvCW2gTGMI0mV0M4S1UwT79xfHlz +/R5Nxlo4C7mCMe8eB6zelY08Jfhyay54ncr8suYcmvR836R/BPNZtt2pYc4j +mphuO7GoGPP72ov0pIWFNNl4j1M0GPO/LZR/WWgRTYZGqw/uwH7o2WUeNIr8 ++pRtpmkE/CNyUUspC/7fuTzNCvul5j/5bXOf00RnW+Ex02iGjCZPRemX0eRD +yeA8kRiGyGmJOYW+QN6oWfSMASdVb0j9Vo48I7Vi4VHsM/VNL8Ytka9/seeb +uWAfCs5wZ7rW0OROwc9NirP/f/vw7xSfWprMNZvzdBps9iJa260OeWV7yMdo +7NeAFrHExW9poqR+a2Mx9vFxC6ucb+AmgaFnwdjX+042VbHeId8fj3x5APu8 +9Egh1IUmGu2nB/ux7x3Ytmiyv6eJ6Ibc6SL4gMx5C7dCsONncdNg+ML+0xz1 +cz/SZE9rEksUfsEE+I5ngg8rJeUOgd+UUCJqDE0aVcqrKPiIJX+hxuFmzAO/ +GAVT+ItUpaf27P9nXN4g47kOfvP095Jd5i00SeP8kTcKDhDlGNvVSpPXexrH +Y+BH3U/NHt8GD54ZGTgGf2rkTz86p40mK9dJFUnDr5w4Lb4fBlvOoQ3+gC81 +rHR8AN5kZne7Cj6W3XXt4wRY8ZXe41j4mnpe+Ladn2iyb8TP8+QD3NdDOsIb +rOAp1L4Zfle6b+TjfXDO6Pae3+DrnH3ireAzghNBFfDBt5oWrhztNLGzd82J +gS92BawtFwNvv/Xc9DB8Ulu6V3QXONtoJlASvulJe4TvA0dI6a74Dv52O5Ld +HHz9WeHqp/DT1cZDl4+BkwstzgfCXyO1D289AjZ+YK+iC7/9ePhJx3/gbSGJ +PaLw33cSK3wIOH3/ZN44+PjPvRyS4HMPFRJew5c9f7RemH2+0vyyiDT49OeZ +Bm4Gz59yUTzAE7792i0+/g64M9nPSRc+fjQ5WdUBrLOnT385fL201oBvIziO +/TL/AFjIeDFXB84vem1UzuzXX6MvHdsRBR5fyLMiAv5/oCyxUAEcpbTqoHEp +5qe23Pl3uK9lf39oiz1Dvjx9JccebP7s9vdBcPPFdSq/cd9CA8YaRcgTLd9u +VbKDuQR3l+5G/kh5d+y9H+rjWdPzRl7kk8oJDr9B1NNMwkuHOvBzfVZBMepN +ypD+ux/5Zmm+u/VS8IPCdZ8FKrGv34h/tf+AeSJaIfEaPLbvxPV/qO/mDI5M +9Vfw+Wd9A7vArwSa3v8GX+A6cdCzkSbvVqhq5iJPVcktvvEW/WLNUmMJI3/l +fDGcVq5H/ek83/kG+ex+y8oKTfQbH6/wed96htj2vFyn85omd283VK1Bnrv9 +amhmB/o1pb1Szh55z21DXMqm2X7e/12H7y36N8hNUugVTciCDvUssPnyZLXm +Cuwf6k5N5zv0h+memTzMgyZ9rX2+jfCnizN/gl/S5KuDSuoC5MmqasXpZZgn +DZmvrm57jzwbcyGEg6ZJWJemuM1s/jRizj3CPPredstjELyap+qISTFNlEd8 +bFyQVx287klcxzyryPlvqSvyrJS+5C45zDu2up3VQ2Bx7+64igK8L2/JPLsW +1PPlcufOXJpk+VbJGiEPy7zNF7XFvOz9N8L3Ctyw2t+1/wF8QW3cVgn5uThS +2/wz5m1aRn3SQuTrG6HNn25l0GS1+ZWLd9rh63zxxQK30R/KgnYcyONxth7C +vpjfdtRoxRHw1gV7CzVTaMKIik3wIr+fKtosmXGDJodaQiuPgKtbfTzZsQ9S +x28LPADrb9UTKkhAPU+Mc2l/xv7LM4jniaeJ68OMgsvgQ6TAyCyWJryn/nxo +AgeI3x8ZjaHJxWtRZ8y6GLLoJeufajT2Z6PG3wSwHc/Ge6HYTw2s6KFG8P2F +oooLLtJEd13nut1fMD/WShgcCKdJ0pnDjj7gr3YXjkSH0sRi5bG12WDnqL/n +XwfTxHlEXKsZ/OvB6AeeC/AjUcGPXN14v5YRF/UgmsToNH+UBe/r8LfzDaBJ +wNXXuibgrGC3+u4zNNFXsQ1MASttHnYQ8cN8c8/SKwWrPhOv0PehSaWPQXgr ++HPpzZEzXjS58jRJZRysl/t17n0PmnTf7D4l0IN8LRwh1upGk9ZrXgslwNy+ +C4x5XWmSwJUirwjOMuWktjvTZOuxew064Ic7ftpZOsEP5n7pNwKr3Lb0jnag +ySWX5PMnwf5CX/6x4A/BbKLJp8DxIn8Xf4VffBSntrqCF42GvhW0oUmQ+tsD +nuDwS277dlrhfULKR7zAEg1cadYWNCnTyV4+y24VpzuiT9DkxbHkejfwlE+r +KOsYTTbfyhV0Auv/8vXpPoL7/czRbQXuU/GZEYDvFP/ONjAHn7DgrFU2w/uU +lOnvBe88tWfEyoQmJnNOdKuAOY77h8cYof9vpayQBmvov7pLw6f+OMT/EgYH +bTO16IdvJe044czeM/v1sCNvhQ5g/nUtudqH89wsz8GntY8mtcp1x+rA9419 +xDzga8uF0plHYKO0wS0Z+vDFvfc5YsDnerMN3uvi/vXmdzqBuYqEI3jgf8Yc +iR564CfuTv92aKG+edrKxcBx4wdb7qjDD80rsutRL2Wm6ac+wSe3M5F6aeCl +3WZBQqqYn5x6Ra5g+dzAK1E7aCJb3TtvPvhv1KP8Wvjp06v9/96jXvvrK7Lm +KaLfHcXe3AQrPV5vfwV+y+T6rl8Pvtej+HtUDv7dOzQxiH5wi5G3MYcPe7XW +T+eCa4SdhTfBl4eLMksVwEVbj17qgW9f6xXylUC/WauaFppJwo+2uZ9uQ7/u +z4uVewM/d7oTRl8FD74LMy+Hv8vRup5/0O9s3P8N1SynibjNjpYizANl8/9k +DyEPJDraCFmAO4Rn5NqFabJeXurNPPCVBpHcKeSJsld99eaYJyvcDvMdRf5g +r2g824t55HhGuWqKnyYc7v5SYeAdT0yyUpFXMg4tOycJzsy6Pvc7L3zmCP+6 +Y5hnqnk8FoWc2Bcmp5c9xzwcDnnhPZuPPG2WBxmB3xzS4t3MQZP9PFef9H/A +Pij9WpM/g3z14O0dAbBI/8GJfuQxsWDD5QaYv+wTKcJlvylS3vsh8iPmc01d +EeeNSYp8mLd4wgLsEClqdXScIle6Fr71wjyf2fVgwYKfFAnpTZK9hn3wO0z2 +NNcIRZ44HJknAn7MvfHjzHfkS/2L/DewPz4ZmvSyIU++sg1OTsN+WSDly2z9 +RpG1SpZ+t18zpPPaRYs9yJ+bQ+atEwMf7tdRsOujSCSPkuQt7Kv0bxOs+18p +EpUwsTWphiHbLvB9tv9CES2ZcOUw7Lvv2jfuXuuiSMGvtXVjVQyp42ZPefGZ +IiUblr+2BCuGyypvQR52D96yURX70+6Ac9/pDjz/VGNcNvYtu9jpznzkZ7aw +zotC4OLh2DL9TxT550k2DWE/+/6QL0pB3v66SbjHBNzdLsI32UqR6e2Xdr/A +ft977FgzqwX/3mLvhfFlDFG7sXR3EEORB2tcsnfADz4/1rJjAx8+PmV2Gz5x +aGbi9+zXt8OMdfrmgd8eDHBM+UCRZ48iS9rgI6dd0g8ogAPlSxdpgWf6vtyr +e0+RjY/WWj6Av6xZcoxeBL7xcWihP3xHvbXbr6QJeTwj2v8rfGhG8VWBE3je +4BDHfvD12GprcbCM6Ly7T+BP/yxvX25vpIjK++TTa8C1cQukU8EeUoaWEfCt +tGWvdlqD+Xf2XfwJH1vVEUptAe8Wnz94ePbnM99zZbGDjWbco2Z/f9L5oWl2 +5h1F/AYaPWXBmUulywvAP+Z05iTC/4ZUdIZiwSNWe7ZzgkeM+M6cARdL1a1w +hi/+t1fWwRYc7Cpk2QKffLDYhTIFRxm1LdIGp18Ptd8PXvDrnVw+fLShVtrd +AKxt87ByNfjdjZUf9oBP14oxkfBX908l0YfAcr9GHH/Db38Kr08+Dv64MirS +Fhxm4vDTBaxpzLXjA3x4fvKN6DDwoWOn/LXAxz6/drwN7vlVe6wQPm22USC4 +fPbj3yt/lgR/dHVr+AbmeflyXgL8+3HxPD0hnMchP9/uueC6mYFv2uAk1inX +M/D1KQ3JR2fBLI3Mp8Pw+dXnq6OfgK+8VX1uARagv4VOgP9Jql/+iDyQ9T3p +8i7cV9t0yYa9YD3y48l7sKOyTesO5Adus+K6jbj/FpG8mfxMhni3LW07DzZ9 +Qc2VBjvvT3quifqpObS/Yw3yh0OdWXAO2Hqt9pMbyCuff7xZKYL6c5baG7EM +nB+9KHMG/F+CxRahDPRDnDViNUWElJIiUpB3ggqXdPaBn8y5Xb8ezPYu2rCr +mSLC81dtVkE+Gl90YpE16n9Z2dz91Wk4z9+xrwbAgVdYTsbg86rb2LjQP3M8 +rfPdkbeauzLcEsCWbM2dc8Cf3wU924x+EyjkWRWHfFZW4/vKGv0Y8Se2gZUy +ez7OYRzo53sVkv6Lke/cjkq+zgfrHGkLuo/8dyN+XqoN+r+GeD/SBofqvq1i +MB9unXoQN/vztw7nunkTuily3uWn4Urw0RfR+aY9FLFTczagkhiSN7pU8Cvm +iwVlOTCViP2SIpGX10sRTsmQ5FTwkjfyVwIxj2rfy8VogoW0Cr+ux/z6HBFo +OJtPb1juqk0ewvxINMrYnoD8nbd/d+Dw7M/Hz3/3BXl2Q+r9O7aYh3leNoev +gtfJtY2oYl6OynyK+IU8nEz+lstgnnpm2ijcBf/3curA2l8U+fLIUd0cfHSG +WAmMUSSxt+paZSxD1orVN87FPLZ5F9HmD54T/fE11wRFZMvTriqB/6wY28SD +ef5c4cH+3GvIo03hB9f9o8iOYAmDPORx++WiLxSmKUL6wnd5gifG+I9oYj/s +eTZ4fwe4Z3BVsx07TYw+qQvWXGHIi5djaf7YJ35KUlyxYGl5hRPx2De6eeHn +joM9epzDa7ngr/TlqT/I/yRfkenjhr8/2shVCz61bryPZy58KnBt3A1w4ZI+ +EQM+mjgECOzfDS4T6l7lPI8mC/gn/JaD2d/YPorF/mOUxeV/RuP5vBM0uwXg +M3Kbte+CrVxt984VpEl/sZfhBfBqKan02e9fWmUc7joJdhdZ+/fMYvheakag +ODhiKO1rBvYvvaXjKjd46IXCQP1S5MNGrQ0Dl5FXMiP41onQ5MNR27an4JnS +snmz+/yZ16U/aeBt8w7+DMS+TyvmSr4EfrzGK+/RCppsWBle4gOWj7Xf1bGS +JtPXXp20AVv/sQ1dsJom9UJnw4zAc/run1cTpcnuJBMZbXD5iLuEG3yCb4mg +sRL46P3JYxlr4WO+5tObwMH3vSQ/itFEvmxg3VrwSOhGBz4Jmnzr8GkQnn3e +N3vEVeErKbVFEwvAHqtWqrvBZ377mqfygic4Gp/cXU+TO50ilZzgxKUP/Fo3 +0GTv2F0HdrDgt56zglI0ufmgOHomiiGLlxbnaW2iidoMl/wsm26ymH9GmiYd +HWoH2fD3b7dXB+TCn1LNuX5wgA0GU6d7ZGbzjQwfD7hoqd/ZFfCtH6MaqfPB +8XfGBw/Ax5xSqx4sBt/8WqAZKk+TpYc0tq4EnxU/4EHB39bcU5JbB+69a+/2 +YytNXm7fclsOHE2lyEluhy8mPAxXBa+7H3XHDP6Xe1K5c8/seb1sKouCH9rI +GN87Au43WORXpoz8EXexwwnsF9NdNgqftJY9EhwILmvtv7R+F/w29kBc7OXZ +r5dwn4mEf84RfTr2HNz6xjwE1UFue27XaAaPrz38eVAN+XxiaPQn2P1C8xED +TeTLztVhUqgf5Y2xlr67cX7ety11wQW6qhfvwn+v3jx+yxa8Xymbexp+HJ+w +Qi4bfMRkTGuDHvLSmemAOvDwFJ/3f/Dr9SvWS87W9+M1tUG34N8jvwTtCOrf +WV1Qq3IvzrOjkM1utj82G9V9g6+nDNn2XAErPVzMtgV+39LICu8Hf+1eH3vg +IPLkcaIhjH7cJe363Bl54IDbdRVt8JAc8zgLeeFBbPT3THDPlGMjnzlNyq9x +/fad/XnAcJ/925E/9L+HqxaB9bLVio8jn8Ql2X39BT7dILr2PvKLnIvQHnfM +k7qortGNljTR6uv7FYR54+JwOEQTeSh9rdi7V2CfDQ/Tza3RD7bZ3wUxv4TU +DxsGIU/NObTg4+z3wwS+b9R5hPzlLfmvtQXz0KqmaqTAEeetF6S8CfOTCVGo +KURe2/BNrOAsOODvt6Zc5Lnv58T7xTBvRcYGxS640+RWffeHM5jHxv2m/C7I +h+m/2KObwJH+ve/NPGlybqfFThnMdyHe6HZxb5qMOaw40g12m/e7OQb507OZ +tekw9sUaD4cyS+TTipSdoyywpo+WusJZmhyfOBq2Avtm45uDvVXn4ONJRZPt +4N8+WS2VgZgfmzo8TmNffRSNu34O+TfQ1XO6EfxUVjN/y3k8v/fR9Tuw36zY +srojkZdL+B+pzcU+LEoZfLIU+XrsvMxoNvbncOWuyofgSx0bWpdgv45qNvHs +DqNJVFzU1gDw/vxkQUvk81fmYhuMsJ8T2u/XDYKDYkSePAdfe1+V5RaB+eTI +lS6NfX4p8VO2G/L9Iuv9nlzY/0pRxRWD4JEXLgfdwB52SoMWkcinow88OsDf +lPqNNC/RpLrU2pUFfwjaFOLXFIV5EjP10A3+sSlY9suGyzS5fO9xQTN4ISv7 +rS+4wOdJnRr8pWa7zK6F0TT522UvuwC+o8TSLDIBa9bNOHmBl8Xuzk8C2wo+ +ePQJfLpcTFoohiax6sul7sOXzpnw39sHLgt4brYYfqXI+pd2Abzsib6fH7j/ +4h+RQvD9BdJhn8GfbfnmfwHH5H08owtfE6657Md/hSZsXMmHHoE/SA5abwWH +eL7lFYLvmWpsf2MC/rtSM+ks+GFlIOUNztZjsX0B95l1bIwFM3rsynrwR+Hb +1qsegGsdulQfgQ301l9/Mcv/1gsshW8m/FK80QReve9Guh+YVy9n0xfwvBze +yQ5wwY9Y3eHZz2exg08L/nrnytyxMXDdy8mmLPCPd8sU/oBlVy4wFID/3jnc +xvkXrMXSueAGfv/O0nESbDLoeOwDOKbjpcPP2edl0/usDH/+ukGQqx8cqnWX +5ya43+jIjjawHO/+uhlwFj/N/xo8ksgvYwEfV5zQCHoKFtC+L1kOvl3MmTD7 +818Nh8ceScLnd255/V8YmE8+7lUo+MjYriJ78FfdFIde8P4D66t1wUfG/eJ0 +kA8GAg9HS4C3x8dpZIJ5q7L4/+E+VINNnbmRJ85bdOm+m+WVMiLW4J7rh3jd +wf8VsxrWII8EFkhfVwVPemp/PAf+KCY3wT17/waX97SAV8xMKV1GvXTk/XW9 +gnxTPGAluRdc/Xts+SDYU1p5bC74X7WRuDby0L0s24PeqEcnt++ak+A31hb9 +G8GqHNOGB5CffDz5vJtRz0ERK55kgndO3omQBauqSp8wLEE+cjVa9gH1r8Mz +lpoFXqhuUeQLXnlLRHwaXOT4YutT9IufjldfBvKagMBmiUORs1+PV5CcALdH +i6sMoL8m1f5L0kXe03jWxbMYvC2xUKwffDXue4U6+tX5uv7xNciHTZxH9z5F +fw/cKnjrAX77rubqJnCfa5LsK/A1y1b/uZgHZ+JvpDggX95ZJKLshg11y3/p +PQrM+zucYYJpYmFaFcWHPNrCEfz9BuaLfn5hewZ4c/op/z+YP//5RWr+AJ/w +KBY1Ap8oHvTeUc6Q+0sKqtkxr9Z7ndWqBb/4yz9/hz/m5acpmXbk36m+zQFB +mHfMAfNaUeTl9IYpq0rMQ9vh6+InwB6DNU91MS8Lg7r/tYE1m1pVQzFP1bq5 +zyxD3i4XeWZb5ov9p78t2xC8csWad1t8cB5TnUuqqmbPo2CTNeaxaoO7wTQ4 +crW/WYIXTRTSr0ltRZ5Pa1pnN4Z5vn/+50/JYCZzaWWiK3xMs+OveTXyeH+C +UqkLTWoce03DwH+Wr/jWif1wa4WwcT54jbghWXuaJvvq6qU5a+BT3Wn/VLFP +fPJ0ODeB9RzWbDmMfSPYXu19AOyd0rEu+hRNpBtrZRLAqduecmXa04T93C6X +p+B7tiNRJXY06ZW7rsfM/nx0tc+brzY0CS5TL1tci/468PTub+y74vptJ2TB +xms1js4DC+TWx+uBFzc0pW3Cvtx1R63WFxxQttlghwVNNsZqVEeDpaRc5+me +pMlR/p3HM8C/F+v8MDyB+/JXjXpSO/v720x4Th7H/jA8eagafCde/5gj9vH0 +vyd5zeCaqWoO76M0GZb1uNcHrvjqzBGE/e1vaK00Ds4qeXzqIvb7cXs1C47X +DPlSKqB3Dfv//Zfcdfzgz+tHs5PNaCKmbBEqBF62q+3mbVOatB5kO7/69ezX +lwxkc0zw/i6myyXBv0aLHPON4e86zgekwLeWR1kWwy82Vu2TlAG7hO9a+9yQ +Jp872ZK2gFsaFAoq4SNGIdGP5MD/A8BQvXk= + "]]}}}, + AspectRatio->1, + DisplayFunction->Identity, + Epilog->{ + PointSize[0.05], + PointBox[{{0.11039083557420919`, 0.3858774664985039}, {0.1, 0.6}}, + VertexColors -> { + RGBColor[1, 0, 0], + GrayLevel[0.5]}]}, + Frame->True, + FrameTicks->{{None, None}, {None, None}}, + GridLines->{{{0.11039083557420919`, + RGBColor[1, 0, 0]}, {0.1, + GrayLevel[0.5]}}, {{0.3858774664985039, + RGBColor[1, 0, 0]}, {0.6, + GrayLevel[0.5]}}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, + PlotRange->{{-0.005546780082173802, 0.2055467800821738}, { + 0.2944532199178262, 0.6055467800821738}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.05], + Scaled[0.05]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.710381311655034*^9, {3.710381720000657*^9, 3.710381739199018*^9}, + 3.710381902505272*^9, 3.710382363012937*^9, {3.7103824232103653`*^9, + 3.71038244335632*^9}, 3.7104961154205523`*^9, 3.710822025123342*^9, { + 3.7108224202050257`*^9, 3.710822440122488*^9}, 3.710822695819227*^9}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ +}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{"Hopf", " ", "bifurcation"}], ",", " ", + RowBox[{"detJ", ">", "0"}], ",", " ", + RowBox[{"Trace", "=", "0"}], ",", " ", + RowBox[{"Lyapunov", " ", "coefficient"}]}], "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"+", + RowBox[{"+", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{"++", + RowBox[{ + "++", "++"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ +}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{ + "ge", ",", "cplus", ",", "beta1", ",", "beta2", ",", "ze", ",", "zi", ",", + "plot1", ",", "plot2", ",", "P", ",", "F", ",", "Z", ",", "re1", ",", + "ri1", ",", "a", ",", "b", ",", "c", ",", "d", ",", "detDG", ",", "g20", + ",", "g11", ",", "g21", ",", "l1", ",", "conjP1", ",", "conjP2", ",", + "Q1", ",", "Q2"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], + "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "********)"}], + "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{"SSN", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{ + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", + "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "********)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ge", "=", "1.041904796426249668606"}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"cplus", "=", " ", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jii", "*", "ge"}], "+", + "gi"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{"(*", " ", + RowBox[{ + RowBox[{"Characteristic", " ", "function", " ", "for", " ", "detJ"}], + ">", "0"}], " ", "*)"}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"P", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", "z"}], "+", + "cplus"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z_", "]"}], "=", + RowBox[{ + RowBox[{"Jee", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"z", "^", "n"}], ",", + RowBox[{"z", ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{"z", "\[LessEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], + "-", + RowBox[{"Jei", "*", + RowBox[{"Piecewise", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"P", "[", "z", "]"}], ")"}], "^", "n"}], ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ">", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], "\[LessEqual]", "0"}]}], "}"}]}], + "}"}], "]"}]}], "-", "z", "+", "ge"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"P", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"plot2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"F", "[", "z", "]"}], ",", + RowBox[{"{", + RowBox[{"z", ",", + RowBox[{"-", "0.01"}], ",", ".6"}], "}"}], ",", + RowBox[{"PlotRange", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", ".6"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "0.5"}], ",", "1"}], "}"}]}], "}"}]}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"Directive", "[", + RowBox[{"Blue", ",", "Bold", ",", + RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}]}], + RowBox[{"(*", + RowBox[{",", + RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"GraphicsRow", "[", + RowBox[{"{", + RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", "detJ"}], "]"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Z", "=", + RowBox[{"Solve", "[", + RowBox[{ + RowBox[{ + RowBox[{"F", "[", "z", "]"}], "\[Equal]", "0"}], ",", "z"}], "]"}]}], + ";", + RowBox[{"(*", + RowBox[{"Zero", " ", "crossings", " ", "of", " ", "F"}], "*)"}], + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{"\"\\"", ",", " ", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ze", "=", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], " ", "\[IndentingNewLine]", + + RowBox[{ + RowBox[{"zi", "=", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"re1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], ";"}], " ", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"ri1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"detJ", "*", + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "n"}]}], "+", + RowBox[{ + RowBox[{"Jei", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jii", "*", + RowBox[{"(", + RowBox[{"z", "/.", + RowBox[{"Z", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", "cplus"}], ")"}], + "^", "n"}]}], ";", + RowBox[{"(*", + RowBox[{"steady", " ", "state"}], "*)"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"Print", "[", + RowBox[{ + "\"\\"", ",", " ", "re1", ",", + " ", "\"\<, ri=\>\"", ",", " ", "ri1"}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + "(*", "******************************************************************************************************)"}\ +], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"a", "=", + RowBox[{ + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Jee", "*", "n", "*", + RowBox[{"ze", "^", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}]}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"b", "=", + RowBox[{ + RowBox[{"-", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "*", "Jei", "*", "n", "*", + RowBox[{"ze", "^", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"c", "=", + RowBox[{ + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", "Jie", "*", "n", "*", + RowBox[{"zi", "^", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"d", "=", + RowBox[{ + RowBox[{"-", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"Jii", "*", "n", "*", + RowBox[{"zi", "^", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}]}], ";"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"a", "+", "d"}]}], "}"}], "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"detDG", "=", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"a", "^", "2"}]}], "-", + RowBox[{"c", "*", "b"}]}], ")"}]}]}], "}"}], "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"conjP1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", "detDG", ")"}], "^", + RowBox[{"(", + RowBox[{"1", "/", "2"}], ")"}]}], "-", + RowBox[{"a", "*", "I"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"2", "*", + RowBox[{ + RowBox[{"(", "detDG", ")"}], "^", + RowBox[{"(", + RowBox[{"1", "/", "2"}], ")"}]}], "*", "b"}], ")"}]}]}]}], "}"}], + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"conjP2", "=", + RowBox[{ + RowBox[{"-", "I"}], "/", + RowBox[{"(", + RowBox[{"2", "*", + RowBox[{ + RowBox[{"(", "detDG", ")"}], "^", + RowBox[{"(", + RowBox[{"1", "/", "2"}], ")"}]}]}], ")"}]}]}]}], "}"}], + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"Q1", "=", "b"}]}], "}"}], "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"Q2", "=", + RowBox[{ + RowBox[{"-", "a"}], "+", + RowBox[{"I", "*", + RowBox[{ + RowBox[{"(", "detDG", ")"}], "^", + RowBox[{"(", + RowBox[{"1", "/", "2"}], ")"}]}]}]}]}]}], "}"}], + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"beta1", "=", + RowBox[{ + RowBox[{"Jee", "*", "Q1"}], "-", + RowBox[{"Jei", "*", "Q2"}]}]}]}], "}"}], "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"beta2", "=", + RowBox[{ + RowBox[{"Jie", "*", "Q1"}], "-", + RowBox[{"Jii", "*", "Q2"}]}]}]}], "}"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"g20", "=", + RowBox[{"n", "*", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"conjP1", "*", + RowBox[{"ze", "^", + RowBox[{"(", + RowBox[{"n", "-", "2"}], ")"}]}], "*", + RowBox[{"beta1", "^", "2"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "+", + RowBox[{"conjP2", "*", + RowBox[{"zi", "^", + RowBox[{"(", + RowBox[{"n", "-", "2"}], ")"}]}], "*", + RowBox[{"beta2", "^", "2"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ")"}]}]}]}], "}"}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"g11", "=", + RowBox[{"n", "*", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"conjP1", "*", + RowBox[{"ze", "^", + RowBox[{"(", + RowBox[{"n", "-", "2"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", "beta1", "]"}], ")"}], "^", "2"}], "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "+", + RowBox[{"conjP2", "*", + RowBox[{"zi", "^", + RowBox[{"(", + RowBox[{"n", "-", "2"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", "beta2", "]"}], ")"}], "^", "2"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ")"}]}]}]}], "}"}], ";"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"g21", "=", + RowBox[{"n", "*", + RowBox[{"(", + RowBox[{"n", "-", "1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"n", "-", "2"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"conjP1", "*", + RowBox[{"ze", "^", + RowBox[{"(", + RowBox[{"n", "-", "3"}], ")"}]}], "*", + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", "beta1", "]"}], ")"}], "^", "2"}], "*", + "beta1", "*", + RowBox[{"te", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}], "+", + RowBox[{"conjP2", "*", + RowBox[{"zi", "^", + RowBox[{"(", + RowBox[{"n", "-", "3"}], ")"}]}], "*", "beta2", "*", + RowBox[{ + RowBox[{"(", + RowBox[{"Abs", "[", "beta2", "]"}], ")"}], "^", "2"}], "*", + RowBox[{"ti", "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}]}]}], ")"}]}]}]}], "}"}], ";"}], + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"l1", "=", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"2", "*", "detDG"}], ")"}], "^", + RowBox[{"(", + RowBox[{"-", "1"}], ")"}]}], "*", + RowBox[{"Re", "[", + RowBox[{ + RowBox[{"I", "*", "g20", "*", "g11"}], "+", + RowBox[{"g21", "*", + RowBox[{ + RowBox[{"(", "detDG", ")"}], "^", + RowBox[{"(", + RowBox[{"1", "/", "2"}], ")"}]}]}]}], "]"}]}]}]}], "}"}], + "\[IndentingNewLine]"}]}]], "Input", + CellChangeTimes->{{3.68568525641619*^9, 3.685685298987953*^9}, { + 3.685685342773551*^9, 3.6856853982668457`*^9}, {3.685685483259624*^9, + 3.685685532771741*^9}, {3.685685567980187*^9, 3.685685629964039*^9}, { + 3.6856856910018797`*^9, 3.68568569544382*^9}, {3.6856857718178387`*^9, + 3.685685779073902*^9}, {3.685686043801859*^9, 3.685686085391303*^9}, { + 3.685686158939683*^9, 3.685686499853938*^9}, {3.6856866052871647`*^9, + 3.6856866091119957`*^9}, {3.685686653140633*^9, 3.685686913775968*^9}, { + 3.6856869491797323`*^9, 3.685686997994083*^9}, {3.685687046299402*^9, + 3.685687091575254*^9}, {3.685687488509405*^9, 3.6856875951587276`*^9}, { + 3.685690852492889*^9, 3.6856908526931257`*^9}, {3.6856910220210342`*^9, + 3.6856910854475718`*^9}, {3.685691152612183*^9, 3.685691528528521*^9}, { + 3.685691565253765*^9, 3.685691576535327*^9}, {3.6856916067797422`*^9, + 3.6856916113330183`*^9}, {3.685691666057221*^9, 3.6856917526591167`*^9}, { + 3.685691791311267*^9, 3.685691802810646*^9}, {3.685691919149023*^9, + 3.6856919554215307`*^9}, {3.68569199026869*^9, 3.685692136242586*^9}, { + 3.68569217223094*^9, 3.6856921906658916`*^9}, {3.6856922651046057`*^9, + 3.685692418859467*^9}, {3.6856924820162973`*^9, 3.685692483314719*^9}, + 3.6857010883573933`*^9, {3.685701227581622*^9, 3.685701250156178*^9}, { + 3.6857013594477177`*^9, 3.685701418653027*^9}, {3.685701487748252*^9, + 3.685701727518729*^9}, {3.685701785282844*^9, 3.6857017985476303`*^9}, { + 3.685701831827784*^9, 3.68570184939762*^9}, {3.6857018797627907`*^9, + 3.685701909025935*^9}, {3.685702014043806*^9, 3.685702087438059*^9}, { + 3.6857021190693398`*^9, 3.685702120821862*^9}, {3.685702157951551*^9, + 3.6857021742074537`*^9}, {3.685702225942322*^9, 3.685702260331818*^9}, { + 3.685702340649845*^9, 3.685702355614644*^9}, {3.685702530970234*^9, + 3.6857027245658216`*^9}, {3.685702786938746*^9, 3.6857028444409237`*^9}, { + 3.685702902246871*^9, 3.685703120918825*^9}, {3.685703158823044*^9, + 3.685703232843652*^9}, {3.685703263541829*^9, 3.685703390105021*^9}, { + 3.685703451901897*^9, 3.6857035399848127`*^9}, {3.685703573672164*^9, + 3.685703612062427*^9}, {3.68570364315377*^9, 3.685703682823354*^9}, { + 3.685703726113858*^9, 3.6857038347475777`*^9}, {3.685703909942483*^9, + 3.685703910611238*^9}, {3.68570401900578*^9, 3.685704021946167*^9}, { + 3.6857040575585318`*^9, 3.685704063153735*^9}, {3.6857041196403713`*^9, + 3.685704234838978*^9}, 3.68570429784138*^9, {3.6857043685209837`*^9, + 3.6857043935591297`*^9}, {3.685704450028243*^9, 3.6857044725437803`*^9}, { + 3.685704564538342*^9, 3.685704620945957*^9}, {3.685768254306973*^9, + 3.6857683078309383`*^9}, {3.708158346364113*^9, 3.708158349060175*^9}, + 3.708158419379264*^9, {3.708158551370123*^9, 3.7081588228886023`*^9}, { + 3.708158881354252*^9, 3.708158910759551*^9}, {3.708340153915351*^9, + 3.708340288654563*^9}, {3.708340457596336*^9, 3.7083404815692797`*^9}, { + 3.7083405196400423`*^9, 3.708340521456808*^9}, {3.709260725990506*^9, + 3.709260745348625*^9}, {3.709262441880829*^9, 3.709262487552722*^9}, { + 3.709263240627383*^9, 3.7092633215340977`*^9}, {3.709267472797971*^9, + 3.709267482440415*^9}, 3.709267816569496*^9, {3.7092678609007883`*^9, + 3.70926788899505*^9}, {3.7092679271781178`*^9, 3.709267956243635*^9}, { + 3.70926798913109*^9, 3.7092680950803633`*^9}, {3.709268137923067*^9, + 3.709268214750649*^9}, {3.709272578296995*^9, 3.70927261500238*^9}, { + 3.709272683493741*^9, 3.7092726855067787`*^9}, {3.7092727897964907`*^9, + 3.709272814520968*^9}, {3.709273128487466*^9, 3.709273173904454*^9}, { + 3.709273242538546*^9, 3.709273336043355*^9}, {3.709606536954191*^9, + 3.7096065492030973`*^9}, {3.709606591716487*^9, 3.7096065947494698`*^9}, + 3.709607206571515*^9, 3.709607237938261*^9, 3.7096074052426023`*^9, { + 3.7096125434043913`*^9, 3.7096125457644587`*^9}, {3.710382488578725*^9, + 3.7103825016411133`*^9}, {3.710382560673511*^9, 3.710382561697268*^9}, { + 3.710382633602892*^9, 3.7103826345280333`*^9}, {3.710382672622456*^9, + 3.710382722193716*^9}, {3.7103827669792147`*^9, 3.710382778388432*^9}, { + 3.710382845139784*^9, 3.710382845533984*^9}, {3.710382878669442*^9, + 3.710382881425934*^9}, {3.710383000974825*^9, 3.710383002748065*^9}, { + 3.710383034498939*^9, 3.7103830531264057`*^9}, {3.7103830964182158`*^9, + 3.710383248340979*^9}, {3.710383340819359*^9, 3.710383425183846*^9}, { + 3.7104941929906178`*^9, 3.710494374358375*^9}, {3.710494405374009*^9, + 3.710494432535804*^9}, {3.710494480138646*^9, 3.710494493633329*^9}, { + 3.710494632010306*^9, 3.7104946489167347`*^9}, {3.7104946841308937`*^9, + 3.710494703146681*^9}, {3.7104948200766687`*^9, 3.710494900036887*^9}, { + 3.710494971735383*^9, 3.710495050205945*^9}, {3.710495097331377*^9, + 3.710495109725463*^9}, {3.710495174154817*^9, 3.7104958668959618`*^9}, { + 3.710822452937345*^9, 3.7108224918574553`*^9}, {3.710822564229286*^9, + 3.710822620722199*^9}, {3.710822655469091*^9, 3.710822660890655*^9}}], + +Cell[BoxData[ + GraphicsBox[{{}, {InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], + LineBox[{{-0.009999987551020408, -1.04190478397727}, \ +{-0.00981290207609477, -1.0417176985023444`}, {-0.00962581660116913, \ +-1.0415306130274187`}, {-0.009251645651317855, -1.0411564420775674`}, \ +{-0.008503303751615301, -1.040408100177865}, {-0.007006619952210195, \ +-1.0389114163784599`}, {-0.004013252353399982, -1.0359180487796495`}, \ +{-0.00019451530612244898`, -1.032099311732372}}], LineBox[CompressedData[" +1:eJwVynk81Hkcx/HZKZY2ba1WaDroYW2WzDDRqPZNdCztY9E2q2NLUUKLRz1K +ISupUI88aHaNo1OF5MpRSb7LNuWqJoPGMYzfL8Y0zpqhg2Zn//g83o/X4/mx +2Bvuu4/JYDA26O7/Tfj4LLHUxh/JPevZGVFjRHG2rN/16gVYFZ329F4/Rs55 +H40IfZCFDe4ehqbGYyTFTxTHeZuDVr1se1bdKOmpuRVSfO42wmbP7h72HSUC +7uoOp+0lELsrgscUI+ThjedG6SVl8L81cD8rfIT0GboG7Z2shL0sydJGPUxm +puaNPtOrQmWy7by46GFiU1ad6MJ/hJu/vWA1jQ+R3E8Becuc/0E++0+XGSFD +ZJVQenn3w1rsSuF6BclUxIuZsyjb/19Qk1Uu11aryM7pwbI85WPQMVs71me9 +ISOihJaKi0+wjaU041NKwkhKOfV+ZT0mZb28gqVKMlf27eavqhvgftDlbqT/ +ILn+eTx7cUATToUvqD0TryAOpT/pMUeaEZrDfTp+c4B4cCY1/RnP8dGhIe9g +bj9RtSVVaxeLcaygOfVD9mtS1tWWpKbE4Bw085EIaLKmfnNW8L2XmE6/pUwP +pIjHiZP3n5xogXut+NwXzn3kfPHw5R9dJZiSl97lT/USQX1Cg5NxK/JMiwti +7GSEdbtDayJtxTxFvldsUCcJPLQtKrKwDdov03LTeK/I0L25NW9j2/Fprusy +iUpC3olOG/HXvQJZZPdLdYGYPKyyusYzkSIwOeS4gbKBMI+dctXrlqLIW8jY +kFlHku6a5qsudSCx3K3cZHkleSmRbvWN6ARjMDi+V19AhI/4c65xu8Dmdjbt +ycjF0gvaWRGG3fBO91/IV9XA2nq/sbW4G6ssl+zZ3lKPsLUz+9+nyWAgnR30 +aOVLHHF59tFzfw9m2nQOWuS1Y0q7hXX6h17cCdrS9PWHLli2M2uvMOQYOqNv +uVYrR39IpF9ysBy8EgOfaJPXGKQbNQeadM6R7IKpAl5ix4qzK/tQ8VRg7BX7 +BiNXo6MyhX2IOTyluNg8DA57942qD31gysN5oX+NodXBb8w8gEJWGKurPfot +7pmx14WLKIhTPO9f36KGU0iHz3dPKXjnuPH0dqpRWRW/R1ZPwUrtZx4cqOsd +bXFezRTmvDswzT2i60tRxFpCYfpNmqfsbzXKLURr5HIKwiGHRRGdapQu3+7s +M0Vh6cnHCVf2asCOmrHR4DOFNm/jTStCNShpvMMnWgr8xLPhNYd1Hao9YjeD +xpTEX0Ul6LrwRrnhLBoGATsy1+RqUMQZ5dQtoOGbJBh3GNJgRbzQ7bgZDRH3 +Z32pWuctbj7shTR4MruTsdMaFB4WRFxeTONooyL/xZwJ3KngFUdZ0YjPqmuM +50zAVp+u4VjTcC7HfEcXnfPPPx/8nsaF+QOPX6/T9WTPMN+Wxh8+9js3/6r7 +35Q4bbSCRnbcN+7M33Uu5BiJ7GnUZF9JfbBP58pOVgyHhuWLiY2HwiZQwEuw +dXSkYe62ar9t5AT+A/uhUSI= + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"P(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{-0.01, 0.6}, {-1.04190478397727, 1.4040950768431402`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], {192., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ + GraphicsBox[{{{}, {}, + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], + Opacity[1.], LineBox[CompressedData[" +1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAAQ2NH0euDpT8AAAAAAADwP96+pmqv +i6o/r3ZVL0Sw7z+UNDvZNlqwPxlVMr41T+8/u6TODZewsz8npP4gzebuP+EJ +QGdi97Y/1kdvvTuB7j8EkajvzQW6P5RRYR13I+4/KrO8iDpWvT9zN1iM/77t +P6f7Y6gjN8A/fOGRS3ti7T84mNieX7vBP0Eq5sMbCe0/SwKjHZxgwz9gvGWD +w6nsP1z96LOo6cQ/8TyQlXVS7D/uxYTStZPGP9703jXJ9es/AImPg/g1yD9U +mQre8ZzrPxDdFUwLvMk/QivinCJM6z+i/vGcHmPLP6PzAQre9uo/MrFJBQLu +zD8T1LVipqnqP0Qx9/Xlmc4/5Wc7ErdY6j/r1Ym8/x7QP7NMFEotDOo/s9vV +ifTi0D8c+srrhcfpPzzITJtpt9E/1f1NezyA6T9EfYG4xn3SPwF9GOTFQOk/ +jK/tnj5A0z/5OCoalgXpP5TIhMk2E9Q/3izoLurI6D8cqtn/FtjUPznS1IDA +k+g/ZHJZenet1T9ULPV7DV7oP+y3EL7yftY/k/Pq/XMt6D/zxYUNVkLXPzJq +TUvwA+g/u7oloTkW2D+cuMyqOtvnPwJ4g0AF3Ng/aGImlmm55z+Jship653Z +P0OUCO9PnOc/0dPYVVJw2j/6IZ1VaoHnP3jLupBjc9o/e9itXQ+B5z8gw5zL +dHbaPwVWvKu0gOc/brJgQZd82j9gHfMZAIDnPwqR6CzciNo/jh+rP5p+5z9C +TvgDZqHaP3MEX7fbe+c/oliuNJWo2j90q1lcEXvnP3tbMt0= + "]], + LineBox[CompressedData[" +1:eJwdlQlUjdsbxk+DZhFhFa7KVaYbpZKmp1K5NF26xc2UkCYJnSIkNCC3MpVS +GpB0GwhXcU8ncQydjro06JzvnPN9p873RZlChpL7/f97rb32+q299/M+e7/v +Wq9p6I5VW1U5HE4JO/+33nw8pXbvMzH0Ug8ZZsUzWNv4deB4hxgfKjzuO7Ks +WiexKHghBj8h91gfl8FvV4oKG2RivLS74ufO8utUi2Nq/WIY8GoCh3YzMF+6 +OORPNQlKRD4/r9/J4BwvSL/ERgKtbXSgbjQDccjyFR8XSzB7q0VIZRSDaepO +acscJehq5w75sFy8wnT0tZsEQWFRtSciGVzt6n/t4C/BiiR++5gIBnfeJ4va +IyRoeZ87RbyVwciZ3dqzt7N6CSNbd7LsYh/muS9WAieHPa80WW5K8uaZJkgw ++D30oPUWBkLdyVUxKRJwLCIcD4QyIGb9dUKrSALNjPZvPRsY/PSk8PHaUtbv +ViNONMsh0dnqNZclECYFygfXM+it5e4PrJTgFkQTv69j3w/X6NJ6CbJKx1Sq +rmUw+keHt1M7e783w0UUxMAk84dOrDaB1WEVtxf5MkiZbcoc1yNg12E3J8eH +QV+T+/3L4wh8mjX+5ZA3g2ufU/dJJhGIi010vrGCgdsmvQEvMwL9nfUFk39l +EGpjJJruSOCMXhGOuDN4+NThqr0LAf1Nwe8fuTGYG7EuNcCNwFeebY4Oy4OF +Rc7HlhHQCW0qOQYGRzTNqz8GEEjab2sc48Tgktg6SxhN4Hyyi5/QloEW9/co +egcBySWnLQM2DKLHxS9T2U0gr79cT5dlG4/6H3Z7CazQ7R52tWYgqEJsaSqB +F07XL2ZaMqCTfVbuvUAgLF89/S9zBhYWYRMt2gjc4S/p4BkySC6qDLZ+TsB4 +uSt5fCJbD1M+lDh3Ehg4u0b4+wQGJ7SSF/5OEJiTu91CPo7Bu5d5vof6CMw3 +rnUW6TCoqxSlSzhSxJ8dVtPmMDCYZdhKq0lhJ7j1pniURmRh8ORBDSlCyop8 +bb/TmJbJXNIaK8VSO2efgG80Du1QabI1kiJ76PXRzR9prLC2HcmykoJu/Pz0 +KUPjYsW+pedtpMhxtaqZS9MYMWs6XrZYipTgpycP99KonuhvxHOWYufMAVdz +isbET+F2r5ZLIXgQucdJTIO4XRDrESrFsMp9QaGQRoyzuvLLKSl0PLcFj1bQ +CN209hevHCnag46pF5TTCEqt5Z7Ok8Jc3Uq8qIyGiyhEw7JYimuNRbKVJTTG +redZbK6SYvMp0sIrl8a1/fGRokdSGB5V7Nc4TONSsajWWCiFR4bWe7eDNM49 ++Hl421MpXqg00vH7aSTrPc9Q7ZCi3HbGPFE8jZUFC6oWK6SoT7fsmRNFY/Bu +39uSEVbveaVv/ioatBz2b3+w59fNKwv3pyFWy012UpPBkXressCHRpO3p0GX +tgzNx7hB5Z40TktKrPWmyHB+fc4kN3saNsPB3HgrGVoun/msMY0G10H0bUWY +DGYXTYgsqRInAgN6NkbIcLO0/GR5txKlsd3CuGgZvAomXa/vUOJpmbLgwi4Z +5m74oCYQKWE+cdRlMEmGwPF+7Uk8JTr7LY/k5crQrbOzm3teCfvCbN2+xzIM +7IzNmbVSCb+6yR9HhDK8ibvHt/NRYsvzAsKgVYaAA6OfXJYpka19tcqxg/Wj +jFpr46zES+49/yxKhvj8A4+uz1Yi32/wtN03GV483Pxh4HsvRn4ETEudJ0cj +4+ZpUNKLqoevxhCWcmzRzLCLyO/Fhj8PvbW2lsOVNFTcPN2LRuOaJtJeDu+A +QQuLtF6k2upEOHnJca53aSU3shf6UY23PoTIkV1Gralc2AuTzvn+oTlyzL/w ++YrujR78W3Dfvj5PDlMv98E7FT04vDnYbHyhHEd/2SpbW9qD3nfpn3gX5Sh+ +XRO462QPrur2nDe6LsfoOUHr25geWLvl9bUJ5bjjFuM63aIHZp2q94o4JH7V +Tqi5l6EAtzwkaqkqidJ6a07tIQUeJzZMYtRIpH9udDmVoEDMjMRIS00SaRlf +HM02K3An/P1E3lgSG5uCrJOWKBAwLA8TG5PY+3xxw6QeCikmPL1JtiQm88q/ +Os+h0DVofLvOjsS8mS/3aE6nMFewZ9M6exJxQa3JDeMptEXY/H3RkUS03mLx +x88kpt34a6O1Owm/028PJAtI3PTMr/X3J3E4bVaVynoSysiENccjSDyzVWQs +YvPSXDfwzCCKxOVTnwTPZDJUa4T65kWTEAf1+/veZ/NY6uNevoOEHqkueJ4h +g4bYdP5DLgkNlyPLzabKYL685YfKYRLBmD21zFqKMAvTK3vzSZhwto94ebB9 +hptjqlJAYpXgj53aP0tgeV+34Ggh67dD/2wp29eGNgxl5xaTCMkL9FvTJEZa +jjDxVhkJ/drDy0XOYlwZE+/3vpb9n10yo7vzu9HX0/wpXEiipcvqeubLTuSn +P441EJFQVV+SVNHYCe95D/vrn5JwIh+JsnI7Ub3rHqXzjMSbTLsZf3t0Ik6l +TlT5gkRfTHx1VEEHVGZcvvxOSaLY1GWGt1s7jIMPBu7hUFjkfeTmmo3/ouX7 +/jYTVQpN9Huhw4J/caAk0fuJGoVsmTZXPtoGso/rZqxJYXvPwjM7CttQlhD9 +yz9jKVjK93gvr2mF9dk/xnCmUriUmW66PrkF3m2LbqXbUnhxUnDUoVGAzLe/ +cgwXs3n3W2O2ZLUAbfobvIvtKZi0T0vjv36AIN+jVJ0jhSFPjwmhRg8Q0kyM +feXGxvc/+3UwsglxD1LDfPxY/V1LFj17zUNBXdcUg20UYieLurV41ZB1DYQW +hlNwfde08m53JUw/q1TPiWT3ffNFqz9WoMx2vof7draOBN59y2ZewbXa5Njd +uymQDuHm5a0XIKic86TjIAXOq5iQL4m+/DfF+xLzz1E4V+xYXTpwjT9vwczh +n/IpPB7cKO8fvs4P5zXvu3ieQnjS4Xkr9W7wFd1GByovsPGOT8nZvfAWv3NC +3cGGSxSu7XQIXphWz+enfExRXKOgfsLKabbNPX52+PasuU8ojJhciGtIa+aL +hgzH1zRTmN/gx6iaCvk6qf9kL2ph/WUmv+q5K+SnlOiecmqlECcITjnwoYW/ +R3z1jF8HhXL9P92nRbbyQ3zovF0UBa2vk9bUOzzjWy3ceOnOVwqjaWdefjjS +xXcyzJoVMkzBySbj9kNFF9/rS0PZmO8UQlcpiFG3F/x1jT9d/Y2jwAXP0YRi +lW5+2m+yKlpDgRTLEdXaVDFfHLv+9gRDBdr26lesLpHy6xOnLiidrgDn/4Pk +/weTqCgy + "]]}, {}}, {{}, {}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{ + FormBox["\"z\"", TraditionalForm], + FormBox["\"F(z)\"", 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]], + LabelStyle->Directive[ + RGBColor[0, 0, 1], Bold, FontFamily -> "Helvetica"], + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None}, + PlotRange->{{0, 0.6}, {-0.5, 1}}, + PlotRangeClipping->True, + PlotRangePadding->{{0, 0}, {0, 0}}, + Ticks->{Automatic, Automatic}], {576., -116.80842387373012`}, + ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, + ContentSelectable->True, + PlotRangePadding->{6, 5}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699142153*^9}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"detJ=\"\>", "\[InvisibleSpace]", "8.5`"}], + SequenceForm["detJ=", 8.5], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103827889419327`*^9, 3.710382846454965*^9, 3.7103828822880507`*^9, + 3.710383054167954*^9, 3.710383128716654*^9, 3.7103831727962427`*^9, { + 3.7103832164999533`*^9, 3.710383249104661*^9}, 3.7103833867507153`*^9, + 3.710383440616789*^9, 3.710494053061915*^9, {3.7104941943712053`*^9, + 3.710494375425349*^9}, {3.7104944058991833`*^9, 3.710494436711153*^9}, { + 3.710494483804188*^9, 3.71049449484048*^9}, {3.710494637743074*^9, + 3.710494649903376*^9}, {3.710494687266191*^9, 3.710494704459243*^9}, { + 3.710494821755375*^9, 3.710494901032928*^9}, {3.7104949728613367`*^9, + 3.710495051030272*^9}, {3.710495099313458*^9, 3.7104951131969233`*^9}, { + 3.710495175297721*^9, 3.710495867343841*^9}, 3.710822036146744*^9, + 3.710822495433889*^9, 3.7108226328052053`*^9, 3.7108226991620483`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The zero crossing of F is z1=\"\>", "\[InvisibleSpace]", + "0.5468116985174848`"}], + SequenceForm["The zero crossing of F is z1=", 0.5468116985174848], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103827889419327`*^9, 3.710382846454965*^9, 3.7103828822880507`*^9, + 3.710383054167954*^9, 3.710383128716654*^9, 3.7103831727962427`*^9, { + 3.7103832164999533`*^9, 3.710383249104661*^9}, 3.7103833867507153`*^9, + 3.710383440616789*^9, 3.710494053061915*^9, {3.7104941943712053`*^9, + 3.710494375425349*^9}, {3.7104944058991833`*^9, 3.710494436711153*^9}, { + 3.710494483804188*^9, 3.71049449484048*^9}, {3.710494637743074*^9, + 3.710494649903376*^9}, {3.710494687266191*^9, 3.710494704459243*^9}, { + 3.710494821755375*^9, 3.710494901032928*^9}, {3.7104949728613367`*^9, + 3.710495051030272*^9}, {3.710495099313458*^9, 3.7104951131969233`*^9}, { + 3.710495175297721*^9, 3.710495867343841*^9}, 3.710822036146744*^9, + 3.710822495433889*^9, 3.7108226328052053`*^9, 3.7108226991650057`*^9}], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"The steady state of the SSN is re=\"\>", "\[InvisibleSpace]", + "0.16349835668415033`", "\[InvisibleSpace]", "\<\", ri=\"\>", + "\[InvisibleSpace]", "0.7403406329349911`"}], + SequenceForm[ + "The steady state of the SSN is re=", 0.16349835668415033`, ", ri=", + 0.7403406329349911], + Editable->False]], "Print", + CellChangeTimes->{ + 3.7103827889419327`*^9, 3.710382846454965*^9, 3.7103828822880507`*^9, + 3.710383054167954*^9, 3.710383128716654*^9, 3.7103831727962427`*^9, { + 3.7103832164999533`*^9, 3.710383249104661*^9}, 3.7103833867507153`*^9, + 3.710383440616789*^9, 3.710494053061915*^9, {3.7104941943712053`*^9, + 3.710494375425349*^9}, {3.7104944058991833`*^9, 3.710494436711153*^9}, { + 3.710494483804188*^9, 3.71049449484048*^9}, {3.710494637743074*^9, + 3.710494649903376*^9}, {3.710494687266191*^9, 3.710494704459243*^9}, { + 3.710494821755375*^9, 3.710494901032928*^9}, {3.7104949728613367`*^9, + 3.710495051030272*^9}, {3.710495099313458*^9, 3.7104951131969233`*^9}, { + 3.710495175297721*^9, 3.710495867343841*^9}, 3.710822036146744*^9, + 3.710822495433889*^9, 3.7108226328052053`*^9, 3.710822699167973*^9}] +}, Open ]], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"Trace DG\"\>", ",", + RowBox[{"-", "4.440892098500626`*^-16"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.7108226991709414`*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"detDG\"\>", ",", "208.2900113392288`"}], "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699173703*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"conjP1\"\>", ",", + RowBox[{ + RowBox[{"-", "0.055740794546519264`"}], "+", + RowBox[{"0.013344556486385436`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.7108226991764174`*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"conjP2\"\>", ",", + RowBox[{"0.`", "\[VeryThinSpace]", "-", + RowBox[{"0.03464461843615062`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.7108226991791487`*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"Q1\"\>", ",", + RowBox[{"-", "8.9700910090673`"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699181919*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"Q2\"\>", ",", + RowBox[{ + RowBox[{"-", "3.4551365136009515`"}], "+", + RowBox[{"14.432255933818137`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.7108226991846743`*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"beta1\"\>", ",", + RowBox[{ + RowBox[{"-", "9.999999999999998`"}], "-", + RowBox[{"14.432255933818137`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699187416*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"beta2=\"\>", ",", + RowBox[{ + RowBox[{"-", "86.24577357707206`"}], "-", + RowBox[{"14.432255933818137`", " ", "\[ImaginaryI]"}]}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699189575*^9}], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"\<\"Lyapunov coefficient\"\>", ",", + RowBox[{"-", "1244.4175177866366`"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.708340489652965*^9, 3.708340521883884*^9, 3.708340582420183*^9, { + 3.709260717154634*^9, 3.709260746351856*^9}, 3.709262517184177*^9, + 3.709263249298089*^9, 3.7092633282012978`*^9, 3.7092679189231033`*^9, + 3.709267966117416*^9, 3.709268178917837*^9, 3.709268221127507*^9, + 3.709273246046587*^9, 3.7092733001520033`*^9, 3.709273339804079*^9, + 3.709606550142853*^9, {3.709606595584947*^9, 3.709606604838258*^9}, + 3.709607238550928*^9, 3.709607405616197*^9, 3.709612546961046*^9, + 3.7103827889240026`*^9, 3.7103828464385567`*^9, 3.710382882270959*^9, + 3.710383054150189*^9, 3.710383128700234*^9, 3.710383172780237*^9, { + 3.710383216482401*^9, 3.710383249078548*^9}, 3.710383386733035*^9, + 3.710383440591091*^9, 3.71049405304611*^9, {3.710494194354227*^9, + 3.710494375408925*^9}, {3.7104944058815403`*^9, 3.7104944366894903`*^9}, { + 3.710494483787425*^9, 3.71049449481507*^9}, {3.7104946377264843`*^9, + 3.710494649877469*^9}, {3.7104946872492456`*^9, 3.710494704436618*^9}, { + 3.710494821738469*^9, 3.710494901015421*^9}, {3.7104949728426323`*^9, + 3.7104950510117292`*^9}, {3.7104950992943287`*^9, 3.710495113178137*^9}, { + 3.710495175279418*^9, 3.710495867317206*^9}, 3.710822036130342*^9, + 3.710822495410159*^9, 3.710822632779929*^9, 3.710822699191771*^9}] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.708328629177593*^9, 3.708328630898872*^9}}], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.7081588339988203`*^9, 3.7081588365088463`*^9}, + 3.70815887467082*^9}] +}, +WindowSize->{1023, 731}, +WindowMargins->{{50, Automatic}, {Automatic, 5}}, +FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \ +2015)", +StyleDefinitions->"Default.nb" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 1215, 34, 284, "Input"], +Cell[CellGroupData[{ +Cell[1798, 58, 35460, 893, 1457, "Input"], +Cell[37261, 953, 12769, 229, 134, "Output"], +Cell[CellGroupData[{ +Cell[50055, 1186, 976, 16, 21, "Print"], +Cell[51034, 1204, 1058, 17, 22, "Print"], +Cell[52095, 1223, 1058, 17, 22, "Print"], +Cell[53156, 1242, 1185, 20, 22, "Print"] +}, Open ]], +Cell[54356, 1265, 40409, 689, 257, "Output"], +Cell[94768, 1956, 33711, 537, 375, "Output"] +}, Open ]], +Cell[128494, 2496, 91, 1, 28, "Input"], +Cell[CellGroupData[{ +Cell[128610, 2501, 30157, 819, 1440, "Input"], +Cell[158770, 3322, 12830, 230, 134, "Output"], +Cell[CellGroupData[{ +Cell[171625, 3556, 436, 9, 21, "Print"], +Cell[172064, 3567, 518, 10, 22, "Print"], +Cell[172585, 3579, 518, 10, 22, "Print"], +Cell[173106, 3591, 648, 13, 22, "Print"] +}, Open ]], +Cell[173769, 3607, 41289, 704, 257, "Output"], +Cell[215061, 4313, 35492, 566, 375, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250590, 4884, 29807, 799, 1491, "Input"], +Cell[280400, 5685, 9107, 171, 134, "Output"], +Cell[CellGroupData[{ +Cell[289532, 5860, 434, 8, 21, "Print"], +Cell[289969, 5870, 519, 9, 22, "Print"], +Cell[290491, 5881, 519, 9, 22, "Print"], +Cell[291013, 5892, 650, 12, 22, "Print"] +}, Open ]], +Cell[291678, 5907, 45066, 767, 257, "Output"], +Cell[336747, 6676, 65422, 1047, 375, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402206, 7728, 25039, 650, 1185, "Input"], +Cell[427248, 8380, 10134, 184, 134, "Output"], +Cell[CellGroupData[{ +Cell[437407, 8568, 981, 16, 21, "Print"], +Cell[438391, 8586, 1063, 17, 22, "Print"], +Cell[439457, 8605, 1196, 20, 22, "Print"] +}, Open ]], +Cell[440668, 8628, 1456, 22, 35, "Output"], +Cell[442127, 8652, 1427, 21, 28, "Output"], +Cell[443557, 8675, 1537, 25, 28, "Output"], +Cell[445097, 8702, 1518, 24, 28, "Output"], +Cell[446618, 8728, 1441, 22, 28, "Output"], +Cell[448062, 8752, 1529, 25, 28, "Output"], +Cell[449594, 8779, 1529, 25, 28, "Output"], +Cell[451126, 8806, 1530, 25, 28, "Output"], +Cell[452659, 8833, 1462, 22, 62, "Output"] +}, Open ]], +Cell[454136, 8858, 92, 1, 28, "Input"], +Cell[454231, 8861, 121, 2, 28, "Input"] +} +] +*) + +(* End of internal cache information *) diff --git a/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.pdf b/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.pdf new file mode 100755 index 0000000..7e2e43e Binary files /dev/null and b/Figure_4_hopf_bifurcation_and_Lyapunov_coefficient.pdf differ