Skip to content
This repository has been archived by the owner. It is now read-only.
Permalink
bbe1e8a55d
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
Go to file
 
 
Cannot retrieve contributors at this time
executable file 4140 lines (4108 sloc) 198 KB
(* 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[{"\"\<z\>\"", ",", "\"\<P(z)\>\""}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Blue", ",", "Bold", ",",
RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}]}],
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[{"\"\<z\>\"", ",", "\"\<F(z)\>\""}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Blue", ",", "Bold", ",",
RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}]}],
RowBox[{"(*",
RowBox[{",",
RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"GraphicsRow", "[",
RowBox[{"{",
RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<detJ=\>\"", ",", "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[{"\"\<The zero crossing of P is z0=\>\"", ",", " ",
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[{"\"\<Three zero crossings of F are z1=\>\"", ",", " ",
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[{
"\"\<Three steady states of the SSN are re1=\>\"", ",", " ", "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[{"\"\<z\>\"", ",", "\"\<P(z)\>\""}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Blue", ",", "Bold", ",",
RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}]}],
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[{"\"\<z\>\"", ",", "\"\<F(z)\>\""}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Blue", ",", "Bold", ",",
RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}]}],
RowBox[{"(*",
RowBox[{",",
RowBox[{"Ticks", "\[Rule]", "None"}]}], "*)"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"GraphicsRow", "[",
RowBox[{"{",
RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<detJ=\>\"", ",", "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[{"\"\<The zero crossing of P is z0=\>\"", ",", " ",
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[{"\"\<Three zero crossings of F are z1=\>\"", ",", " ",
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[{
"\"\<Three steady states of the SSN are re1=\>\"", ",", " ", "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 *)