(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 115276, 2407] NotebookOptionsPosition[ 114723, 2383] NotebookOutlinePosition[ 115095, 2400] CellTagsIndexPosition[ 115052, 2397] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Cycling", " ", "through", " ", "perturbation", " ", "values"}], ",", " ", RowBox[{"probability", " ", "of", " ", "connection"}], ",", " ", RowBox[{"and", " ", "iterations"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Monitor", "[", RowBox[{ RowBox[{"Monitor", "[", RowBox[{ RowBox[{"Monitor", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kick", "=", "1"}], ",", RowBox[{"kick", "\[LessEqual]", "2.5"}], ",", RowBox[{"kick", "=", RowBox[{"kick", "+", "0.5"}]}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"prob", "=", "0"}], ",", RowBox[{"prob", "\[LessEqual]", "1"}], ",", RowBox[{"prob", "=", RowBox[{"prob", "+", "0.1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"JJ", "=", "1"}], ",", RowBox[{"JJ", "\[LessEqual]", "100"}], ",", RowBox[{"JJ", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "25"}], ";", "\[IndentingNewLine]", RowBox[{"m", "=", "25"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Post", " ", "Day"}], "-", RowBox[{"18", " ", "data"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"var", " ", "=", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "45"}], "/", RowBox[{"-", "47.234706"}]}], ")"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"10", "/", RowBox[{"-", "45"}]}], "]"}], "^", "2"}]}], "]"}], ",", RowBox[{"n", " ", "m"}]}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Day", "-", RowBox[{"18", " ", "data"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"var", " ", "=", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"1", ",", RowBox[{"0.161463468", "^", "2"}]}], "]"}], ",", RowBox[{"n", " ", "m"}]}], "]"}], ",", "n"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Day", "-", RowBox[{"15", " ", "data"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"var", " ", "=", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"1.04566289", ",", RowBox[{"0.0873686", "^", "2"}]}], "]"}], ",", RowBox[{"n", " ", "m"}]}], "]"}], ",", "n"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Pre", " ", "Day"}], "-", RowBox[{"15", " ", "data"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"var", " ", "=", " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.0955049", ",", RowBox[{"0.0349263", "^", "2"}]}], "]"}], ",", RowBox[{"n", " ", "m"}]}], "]"}], ",", "n"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Parameter", " ", "values", " ", "where", " ", "w0"}], ",", " ", RowBox[{ "\[Gamma]", " ", "are", " ", "scaled", " ", "according", " ", "to", " ", "the", " ", "RMP"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"A", "=", "3"}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", "3"}], ";", RowBox[{"(*", RowBox[{ "Changes", " ", "height", " ", "of", " ", "cubic", " ", "nullcline", " ", "peak"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"var", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", "0.05"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"1", "/", "\[Gamma]"}], " ", "is", " ", "the", " ", "gradient", " ", "of", " ", "the", " ", "straight"}], "-", RowBox[{"line", " ", "nullcline"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"v0", "=", "0.4"}], ";", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "\[Gamma]"}], " ", "v0", " ", "is", " ", "the", " ", "y", " ", "intercept", " ", "of", " ", "the", " ", "straight"}], "-", RowBox[{"line", " ", "nullcline"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"w0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"var", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", "0.4"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]", " ", "=", " ", "0.2"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", "25"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Intersection", " ", "of", " ", "nullclines"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"initial", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"wi", "\[Equal]", RowBox[{ RowBox[{"A", "*", "vi", "*", RowBox[{"(", RowBox[{"vi", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vi"}], ")"}]}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], "&&", RowBox[{"wi", "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"vi", "-", RowBox[{"v0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"\[Gamma]", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"vi", ",", "wi"}], "}"}], ",", "Reals"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"initialline", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"wj", "\[Equal]", RowBox[{ RowBox[{"A", "*", "vj", "*", RowBox[{"(", RowBox[{"vj", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vj"}], ")"}]}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], "&&", RowBox[{"wj", "\[Equal]", "wi"}]}], "/.", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"vj", ",", "wj"}], "}"}], ",", "Reals"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"localmax", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FindMaxValue", "[", RowBox[{ RowBox[{ RowBox[{"A", "*", "vi", "*", RowBox[{"(", RowBox[{"vi", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vi"}], ")"}]}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"vi", ",", RowBox[{"vj", "/.", RowBox[{"initialline", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "4"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Defining", " ", "perturbed", " ", "cell"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kickleftN", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kickrightN", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kickcellN", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kickleftM", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kickrightM", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "3"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kickcellM", "=", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"minscale", "=", RowBox[{"-", "0.25"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxscale", "=", "1.2"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Initialising", " ", "connection", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RC", "=", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "prob"}], ",", "prob"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "n"}], ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"K", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{"Coupling", " ", "strength"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Solving", " ", "FHN", " ", "equations"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fitz", "=", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"i", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}], "\[IndentingNewLine]", RowBox[{"+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"1", ",", "m"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{"2", ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"2", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"1", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "2"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "1"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", " ", "i"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "m"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "2"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", " ", "i"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "2"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "2"}], ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "1"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "1"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"n", ",", "i"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "2"}], ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "i"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ",", "i"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"i", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "i"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"n", ",", "m"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ",", RowBox[{"m", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", RowBox[{"m", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "n"}], "-", "2"}], ",", "m"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "m"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"n", ",", "m"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "/", "\[Epsilon]"}], ")"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "2"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "-", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{"2", " ", "i"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"RC", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", " ", "i"}], "-", "1"}], ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"K", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"n", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"\[Gamma]", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], "-", RowBox[{"v0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "kickleftN"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "kickrightN", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "j"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{ "kickcellN", ",", "j", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "kickleftM"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "j"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{ "kickcellN", ",", "j", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "kickrightM", ",", "m"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"kickcellN", ",", "kickcellM"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"kick", "+", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{ "kickcellN", ",", "kickcellM", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"Evaluate", "[", RowBox[{"initial", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "1", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", RowBox[{"MaxSteps", "\[Rule]", "100000"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Number", " ", "of", " ", "excited", " ", "cells"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CC", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Last", "/@", RowBox[{"Level", "[", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], "}"}], "/.", RowBox[{"fitz", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], "}"}]}], ",", RowBox[{"Background", "->", "White"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", "_Line", ",", "Infinity"}], "]"}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"clustersize", "[", "JJ", "]"}], "=", RowBox[{"Count", "[", RowBox[{ RowBox[{"Positive", "[", RowBox[{"Flatten", "[", RowBox[{"CC", "-", "localmax"}], "]"}], "]"}], ",", "True"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Cluster", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"clustersize", "[", "JJ", "]"}], ",", RowBox[{"{", RowBox[{"JJ", ",", "1", ",", "100", ",", "1"}], "}"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "K", "]"}], "<>", "\"\<_Pert_\>\"", "<>", RowBox[{"ToString", "[", "kick", "]"}], "<>", "\"\<_Prob_\>\"", "<>", RowBox[{"ToString", "[", "prob", "]"}], "<>", "\"\<.xls\>\""}], ",", "Cluster"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ",", "JJ"}], "]"}], ",", "prob"}], "]"}], ",", "kick"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "v0", "*)"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5490825595480003`*^9, 3.549082597309*^9}, { 3.549094714829*^9, 3.54909471988*^9}, {3.549108291487*^9, 3.54910829673*^9}, {3.552200372406968*^9, 3.552200747798113*^9}, { 3.552200897969551*^9, 3.552200926563067*^9}, {3.5522009786202717`*^9, 3.552200978815714*^9}, {3.5522751663686237`*^9, 3.552275168537368*^9}, { 3.552383957256565*^9, 3.552383963107732*^9}, {3.5523841275158052`*^9, 3.552384259026877*^9}, {3.5523844515497932`*^9, 3.552384534556531*^9}, { 3.552384572994872*^9, 3.552384573705386*^9}, {3.552384678137212*^9, 3.552384700952319*^9}, {3.55238496252382*^9, 3.552384972394671*^9}, { 3.552631813879616*^9, 3.552631862597848*^9}, {3.552634133960218*^9, 3.5526341448020153`*^9}, {3.552713126031603*^9, 3.552713130260384*^9}, { 3.552738884402656*^9, 3.552738886849677*^9}, {3.5528988845458107`*^9, 3.552898887336183*^9}, {3.5538608702453012`*^9, 3.553860911311367*^9}, { 3.55391602565093*^9, 3.55391604684774*^9}, {3.553921998556818*^9, 3.553922040445539*^9}, {3.553924270753708*^9, 3.5539242721572638`*^9}, { 3.5539247375261917`*^9, 3.553924738231964*^9}, {3.553924867355548*^9, 3.553924868086763*^9}, {3.553926495987535*^9, 3.553926548861264*^9}, { 3.553926769694518*^9, 3.553926818749007*^9}, {3.553968586627015*^9, 3.553968592357531*^9}, {3.554006362471016*^9, 3.554006381287442*^9}, { 3.5540226503758707`*^9, 3.5540226695580997`*^9}, {3.554099570208827*^9, 3.554099785662229*^9}, {3.554102245502528*^9, 3.554102327204904*^9}, { 3.554221644947269*^9, 3.554221653590681*^9}, {3.555135560454301*^9, 3.555135667223939*^9}, {3.5551364733857813`*^9, 3.555136474213715*^9}, { 3.55513657962113*^9, 3.555136595532449*^9}, {3.5551366418990097`*^9, 3.5551366489258413`*^9}, 3.555136906891803*^9, {3.555137243479109*^9, 3.555137334990848*^9}, {3.555137832659656*^9, 3.555137859232794*^9}, { 3.555137905588615*^9, 3.555137950462657*^9}, {3.5551381504409647`*^9, 3.555138183584428*^9}, {3.555138264870002*^9, 3.555138297249206*^9}, { 3.555138920788951*^9, 3.555138994078703*^9}, {3.631897125925934*^9, 3.631897194527638*^9}, {3.6318982060710983`*^9, 3.631898210860425*^9}, { 3.631900270294249*^9, 3.631900360720097*^9}}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.555145315436139*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"vnull", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "*", "v", "*", RowBox[{"(", RowBox[{"v", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "v"}], ")"}]}], "-", "w", "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "\[Equal]", "0"}], ",", "w"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"wnull", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"v", "-", RowBox[{ RowBox[{"\[Gamma]", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", "w"}], "-", RowBox[{"v0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "\[Equal]", "0"}], ",", "w"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nullclines", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "/.", RowBox[{"wnull", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"w", "/.", RowBox[{"vnull", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "0.5"}], ",", "4"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"v", ",", "w"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"initial", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"wi", "\[Equal]", RowBox[{ RowBox[{"A", "*", "vi", "*", RowBox[{"(", RowBox[{"vi", "-", "\[Alpha]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "vi"}], ")"}]}], "-", RowBox[{"w0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], "&&", RowBox[{"wi", "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"vi", "-", RowBox[{"v0", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"\[Gamma]", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"vi", ",", "wi"}], "}"}], ",", "Reals"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"trajectory", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"w", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "t", "]"}]}], "}"}], "/.", "fitz"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], "}"}]}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"v", ",", "w"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"nullclines", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"trajectory", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], "]"}]}], "*)"}]], "Input", CellChangeTimes->{{3.552384518376051*^9, 3.552384529321322*^9}, { 3.553921992399407*^9, 3.553921994984165*^9}, 3.553926789417948*^9, { 3.55513652525768*^9, 3.5551365277228127`*^9}, 3.5551366230154533`*^9, { 3.5551372791885567`*^9, 3.555137282262453*^9}, 3.555138983585271*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Dashing[Large], LineBox[{{0.1334068337343883, -5.}, { 0.14116371757970247`, -4.825566270598445}, { 0.23558246915559097`, -2.7023148088957716`}, { 0.3236554584349229, -0.7217643345171273}, {0.4191581956217798, 1.425863365957391}, {0.5083151705120801, 3.430790079107879}, { 0.5957182198405176, 5.39627520940764}, {0.6905510170764803, 7.528837565803275}, {0.7790380520158863, 9.51869893487488}, { 0.8004410024063299, 10.}}]}, {RGBColor[0, 0, 1], Dashing[Large], LineBox[CompressedData[" 1:eJwdlnk8VN//x+fOjK2khJmSLVKKQnYfdd4hFSVJJSmKRMoSqRRJi4qQRCFb yhJJESnuJVuy7/vYd7Lvy+9+f/PPPJ6PM3Pu+7xer/f73K2X7A0vUykUShRG ofzv+7iQ5bvVVRa+N7b9WBqfCDh3RnVfGmDh9Y+Ol3VMCENIHEu6oIqFn+vv zBepEoZuxXOZPh9Y+CHX3+uK/YXh9jHD+s16LDzN5EFsD48wRLsDr2JQG84e FPbfHh4hmGkXemwt04pfVkn7NLpJEMI+1F6rNG7C78i8rHO9wAB8n9K7fpUa fC5L3DZTgwf4c0bS/y2X4L/RqJ9TAhWU41sFeCpL8LP3vuume1DhzMtSJ5mY EnzYuDmMcYYKIReTZG10S/ANB6xGd9CpIEa9HtsZ9Bd/MpP8JtAMA2mt4aBa 2WK8APmE+m+hgGb+4M2fFwvxEvnLJeXHF5H9nz4Fr/wcvCWct9l+6wTiFGf9 qg/MwfOuhDxxqh1Hka51B6Usc/CZyrLbqc/GUYV0/pk/1Bxc93fd+MjEGJLz jb67Fgj8qeGJaVf/f6jzQ+YT0ZtZuPsyxue5NIh6Mj58kDNLxwmLcpO6PZ2o Pmu24IPVR7xB9pnkQ5Nk5HMxarj3yweckxXeP6kShzTZ9DZKLcbgYyKXVKK3 RKHEo+HnE/ze48SfeNWnSbeQZ7P21OeMSNzhT93H12vjcdMJCS0HgSB8cg+H +qH533hk28SU+TFtpCwov2FItB43uBfdedDeHD17ahueMFSPzwPnU4W/tmj4 HPdw3PcGXLLHxsbrwB1UkBr26pJuE/5fuqBJypIX4vyd8b3cuhXXEXMy1DEJ Rm13HOVZRAdeYhRRtoErFhWbBGCfAvpwjX/1S+xlseisdoLs7qk+PPHZBunl gDiU6difeOBUP+6d/cBrQCgBeZRim8QZA7iulCXkyiWhjZQKnbyAQbzbjb9R LTEFhXEyMhJujeAWJxp1h6rTEZf8qx83bo/jIeHTF62UM1D8OQ2v29HjeNUQ 752ONxnIwX3rsyMl47jmE93Y+vM/kGqhou0x0Qlc/OdPWl5fJtq59ZVTW+4E 3rkt/FfYYhbSqCoZUaBM4XL35JmxvLnoKbvEMVGjGTynMD975UAuCvLs6Wa7 NYMb8plYnb6Ri3bS/gT8fDuDOyd4prFV56KTWlT7wLYZPL2h+qRl4G8kIxjX vHx5Ft+v5OK/lZmPRKf5NmfZzuFHRzO5woSKUOs8FT97cgFvVTueMnm0CEWv HNh1wGEBt3vcZaznVoRKX20Jm/dZwP2FuOMWWotQfWRSZWv+Al6te17nbMQf xIhMV76ptIibxK56MsT/oifs3++OrF3Cr5hrL/nvKEMd3JPeDkHLeHTo5a44 ozLkgKpmuBKX8ba6J8XEgzL0vOmO/L2cZfz0sT9vxprL0Hiix+GhoWVcW11f ycC/HO1xxi5M71/BN6yRSfe6V4HEBW9K57Wu4J9jfyXwvapANhcH74yNreBH Dx4Lj4ivQOdDoy7O0FZxLw+7x+l1FajkiKKs385VfGXmy8k+uUrkr3lfYubG Kj7SpTSm01OJDsmfuBmzsoo/f1DQVbVYiYKDXUUzOCiElOiZ+gsbq9CYUYLS 2g0UwtLkdrYLqkIMDcP1d8QoREtFps/Ht1VojQCPlDNQiOIstJNdvxpdyXjq OHKPQlifqxAKsKxGkRbZZjsfUQj2efMNInerkX4AT7ehN4U4oOg5qxRXjXQ/ 7S6ye0shMhLy8i9Ta1DktpTPxakUIjb4yKX87zUoYlH01qZ+CrHG7TSoltcg qkPmk2+jFOLaJQuRT301KEHkg5XaNIWQ2+3W5L+pFul7eqWzUTEiM/eLoalr LfIu1HGPEsQIobgsufKAWpR5Y+f4KzGMuP+imEfzUy1S5Xjt7LgdI7SNu4t3 tNSiOC2J0hF5jCgbYWpN7qtDM3adH4YPYYRc9batVqfrkOafKjfVYxjxKkN+ tcGuDvX/fPTR3hAjjB/q/cyOqEMFOUfWRJpiROem+wrPsXp0NVVkicsBI2a0 eiW25tcjR5MdflyvyN/vnMQCW+vR8N2HyjzBGPGTh9LOPlOP6l5tTF4JwQiP xs1hw9sb0K2VHoX30Rixxv4Yf8bTBhQkIXV98QtGXDMymdgV1YDEz3e6m6Vi RLnalYp3PxqQlAZndHI6RgTSH/g8HGxAoprfNPizMUI4JJV+/Ggjsqg6GvPv D7n//ZzOHMtGZBi2SzythKzXsoxQdGtEeZmJ41blGPFRtv+e4OdG9O1o5ge/ GozgFJg2eVHQiCaHToaw12OE7QKmRmE1IjWVz5SrjaQ++Vume9Y3oYs7czRn WjEiIEGq2liqCbEtee0RbceIaT+llL/QhJSqpBMVO0l/TI5fT3FsQtnt290k e0l/wFRv2/Mm1Kzt007pJ/2RtNkZHN2EOOlD00UDpD9jnj33qpuQ8NCX06Ij GHHv2Omu44NNqEPTuurVKEakJuzsEMea0U/fF0Gz/zBC4nJFS9GeZuSxV3Pj iwmMMMl93xR6sBmdie6oy54k6xO91WBn2owYyutXWFMYQW0SruF/3owk5hV9 x2YwQl1lvLIvshmZwD56+yxG3AjMK89Mb0b6zZMz2XMYkTAeXPqirBlN1rZf ezFP6qdv+9e8pxnt1/C5preAEYKJ+/8oLDUjSUH3pTmSDbk2FrLztaCwu/sl ghYx4rlVT17jzhYUfO1Un/gSRuT8zshNhBa0bl73eATJc2I+xP0zLWhMJvbi 2mVSX3ezbEO7FqTKP7HtCsnWzXt/ST5uQY2Z3yK+khypyp45F9qCCmWcG0ZI bnjdmP73awuavfmzdtMKRmyYTEwL/9OCzKJ5wxVIPmzg8c2xvQVNZa2o7CfZ I+lkivZsC4qvWZOgSnLGmh3JTJ5W5DSRtSBO8tiVhcTBba1IVyJSbpncXyq/ NCHrv1Yk6qRmWEiymXhUnL9hKxoc4bV6QHLQfeePFjatKCIi5YY0yWUth2KU PVrR3sBI93zyfOzqW6K5glvRm3or/+Mk7w8ejWhJakWFN30+/yH1cZnKeZec 14q+ub5lKZD8+cTrUM/mVnRiQmCXL6ln72frt6cmWlFQ/7PABlJ/YW6NYCmu NnTbxk2Sj2Qjm/WvF0Xb0KDH7a59pF8+BZ0BZcptqFOdVmtM+rnk8czX2bIN qRT0XTObxgjFNlOfQ3fbkHvyCTE9Mg/X/pN7LhjQhkRsbbfuIPPSMl33mMDb 0P5nZdu/jGEE/8mEh6/q2lA8TUr1PJm3o1/cHliNtCHwOJGyQObz59Vtbtxb WKgoWXGafQgjJgpnXVnyLBTjulJyk8zzLsm/t78eZiGPWxnba/swIoTl6Gzs wkLrVYRdL3djhKsRbhtTyUJ6Qt5nSlsw4mtKgM2tfhaayU+fJpowYoDH6oru KgsdwQR0PzRgRKLlE/nbjHaUYfpAFsh+FRLdvVtEux35TVNj8GKy/05vUtA/ 3o4Q79rHOkWkH740NXeTdtTgXNObnU/6v9Ko3ebQjsY1Dx98RGBET+sT0/B3 7ahOmyJ4KQ0jsgVuXCqLa0f/Bi4k3fyKEW+Onbde+daODir9mHBNxgjdLAXn C8XtqGRk+ZNJPOlXWLu3yGw7Mpfjf2wfhhFeNX9f6lM7kNOJMCPetxhhzp0e 7L6uA/HdMuH48BojNt578b5NogNJrArIRvtixK1z6j/DDTpQ5NE6han7GAGC gYMiCR2IY0+b85IZRmw2vD+mn9aB0kT2muDnSH2fXZ1xJzpQYIXcY+czGBEz D1RWXQdaF/s3L00fI7gaRzZH0DoRu83voEANjKgKPnRE9Hwn4g0Q7i8SwIjL Aouxohu60FqK30mVbAoh5rhNQkuoC/2+mpZcmk7edyXHwq2kupDJaYG/RikU wvBRZGASdCExNHFBKYZCwOTBB/85dqFupFgPzyiEUKW/yZmqLsR78PaglwGF qPHZvs4vsBvdkJo+sCVuFffvP/70a2Q30shI3BcUvIrrad+h1SV2Izu19s9T T1bx3MW/80L53Whid5ic6eVV/MtVx96E6W6klOJnUy+2ivsc/oUXnO5B6PP7 Gz4BK7gW3fDGyqZe9HvUaejCxWV8MPTC8oltvciES3MsS38Z91ewffpBtheV nkmvYNNYxlsuPQo/qtOLxOITzxgwlnHnnO/FIU69yOzvqa7KP0v4R/ctEipl vSjQDYkEyCzhnPPd1fYP+5Avn6mXeccCXjpyS6ljpB9lNwnoU9bO4afjc5Wk FvqR2Vl+v+mxWbzNcp2yPfsAOnUh2by6bhYfbY5WXhYZQFzXi2cOR8/iG4pL VTYbDCD5TMp3YdVZ3OijhPqJrwOoYq7s512zGbzlQvn+HJdBZCI/j999N4UP l28/HLU6hCZYWZ6CTWO4Caa6hUb7hzxeGHfwq3bgmQwfJ8WBMeQhFdCrf94Z 540H7LT9BGqyr0/SzOhC2Rmm3neaJ9HepUj7by8n0XftfVlrraZRb1TbHLfh Cjo1p19uNzCDPtv4ryzY0UF3Z1FrteEcUo+/Lhe3jwue1bEFxjbNo8/Lnzv9 lXlABPuk43Z4Eb102J1YqckL504+aJRIXkJVSUblXrv4ICjbdo9q2hK6M3qq 4+BePqjYefrh0Z9LaNSuWmpVjQ+0KdK7bxYuodlfLoctjvCBTFKNRwFrCelf Lzw3foUPltilpGw2LKOdwg3nt8bwQXhmmctnx2XUmTC6M20TP3RuFeJXU1xB apxfvpWN88NG6TmHHrUV5Okvb1Y6yw8HFGtKX6IV1Mj/mVq4zA+ROj5eg7or aOK/nG2fuATggu3SQujFFfRC2uGu8lYBaExt6VjxXUHGZePvTx8XgIpD5Pgd WEEJvL42H2MFgHLiDrfjvxX0JsCsZTlRAGRNTtkIT6+glxdvth//KgC+19ZJ uFBWUR9fsF/XLwE4+tItaAdzFbHGq2T/VApAUdN5t+faq6i7Ynf88wUBwK+L 6BlErKJva1w5Kg4xoP3p20suH1aR0hWZxLqjDKDE8LuGfVpFHDcOutSdYIBm 05r4/vRVlM1/8mrOOQbk6cyyP6hYRfuFHc207RnQs966o4FCgTUppoMLgQwY 7Id3XHspkB0s0L+umQGuLitxQkoUyMkj9OVZDFhD/5Uqq0oBWgqP8bEuBkiL qpSc2k+BS0fUNe2HGHDt1O7FKF0KnOS8TDVZZMC/nM1n1S0o8EQpKbxwMxOm Qib4bQMpwMRkEnsNmFDz3CHXPpgCb+jJ8RxGTPjmOmrvHEIB8Um+DVvPMOGG yWCxWyQF7JncnPvOM2F8c6eHfyIFfHY4qm62YcLom8rhtDwKiPwcUjW7z4Sy p8dDMgspwNj+YoruyYSk26WH8GIK3A7c2xz9iAnXjP9EF1VQIAjbKFj4jAlD zBzj5hYKNBW2jX95xYT+oC95lGkKlJ59Ecv+kQlFT/bcYJujgNZXO63dcUyI dUkUXbNIgUfbXUr0EphgdTrOlQ/D4H7//SCHz0zoEYiU274OAzY39XDj70zI YxNp27UBg3sXOFX2ZzAhZjrUW5YPg7Er68K3ZDLBsja4V3UzBu23DxZmZTGh M9AvTE8Sg5f7dgpG5DEh99E6XQMpDHy4rmVoFjAhytl71kgag69cs2xthUww N/IyvCCPQYiMXcRiMRNYfPc5HfeRz4sNM6uqYEI2bTntJpCMt6xVqGJC+KSr hasWBg1Ml8Pe1Uy4UO2S/fAIBj/X77MQr2NCS4Cdc9ApDOoK6r8ONjHh+4ke ySvGGDy2+vtyqpkJ/htM61XOYfBiVH11poUJB32PqDeaY+BVT7nT08YEsWPE ULwFBtZFG+5XspiwsFblnasVBh456zm+tzPh87NtFKFrGMgOH/O37mTC08Oh KcN2GKQl6XgrdzHhEsdGiyxHDI4HRy0ukcx8vJp/4RYGb6njsk49TJjQcrkl 64qBCn/EiHgvE0qoI1IUNwwKrovz/yXZw6PJO8oTA79NQn70fiaYoBP7bjzG 4Me8XutrkhVXCkc1n2KQrJnnJTrABJ6s/ZF83hjY/LzoHUXywN20E90vMGiT xnq2DJL+qcvQ0vwxYDe9/9KX5PD56NTHr0h9+H68mCfZ8JY/c8dbsl71KuuM ISbIKHP8mQ3FoE/V9gD3MBM4pt1ci8LJPLD2njcmufPblPTbKAwip9h+hJH8 64Ztq00MWc+BnBONJAfJd/qqx2Kwy/fANp4RJjiMGcPaBAw4oi12/0eybnL5 eHMiBugg/ao5yZJ2Ou8TkzEoQpR6N5Ipu7OM3L6Sep1VdHxFctOQArt+GgYJ Jm5KUSSnJiSki2RgML4mQyyWZF+brTb/MjGw2psj+4Fka6k3gkQWBpS3N81C Sdbq4ynxJ0h/2L8mPiNZ5ONjt4u/ybxrneR3IHnOcmnP3gIMDJnKr/RJrpJw aqf+wWCHrsp2SZITOwdeVv/FYOa9QvEkeb4nUeZaMWUYpA5z3Msk+aJ5/ZRz JQYmw/6qd0jWENX/eLCG1P/qpyVZkhlteWcY9aTfcor5baS+Y2H/cfU1YnCe zun3mOTic18z01sw0EmmndlGcozgzmtPWRgMz9EEf5L+uDdGCJ/txEArvqfm CMkKZ154LPRh0HOekDz+P/8Z9L1/BzEQnriRlk/mo7/GtSt0hFzndpVTJDnM 0Fpn3yQGq9NzzXNkvlx4WbPrZjDYb7SL/TjJBhWn4tvmMBgwllj/jswnm74W t8cKBmY3WV/Euplgd0SkKpeLClWNH5rzyfwfeNltXsFNhQNXXKwKyP7gb0z4 17qeCtfMm7SyyP7JtFZZNy9ABS+2c70vyP5ie2pwWFacCvM7FE0y65nQUM6o 15CkgpnYa67rZL8mMFsv60pRIdHiyZBALVlPrM3Dy3uo8FZ9k4ou2e9hBZ7Z oepUqFMevadRwgR7niPH4vdRIfJVgUEkOS80T69v+Q5UeCAoo7JQRJ6/J3S+ UocKoox30v75pF5saYqcJ6nQX7lWSzub1FurL8HZlgrf8vI+/UliwjvvJDVP OyqE1EGRzycyr9VORX6OVJiq0Eo/GE/6Z0HpTbhFhaDRlqU3MaTfnpu3djyk QmaTwfe8EDI/hF7wsTAquLH6Lu5+zIS/nBu3n4uggqbP+wI9cn6HGzSkWkdT oZbFyvrffNdut6x6GEeF1cGGk9Z3mOC36rYuM5UKHuE5SYvXmLB9/5eH20up oNMl8HaHIXnfGNkzKBVUKF+idzXqMyHHdk98YxUV7l9VZHnqMcH0bWKZTwMV Wrcf78jQZkLAVNzmyS4qlFkYpKQqM2E1ISoZX6BC9D+L2P5N5LzJMdd8u0wF WQHcly7AhJAG0dobFBrs36ozxeBlgjJ7+IIkOw3uVlbJiHKR983FkIM+vDQI qsqd+zXHIOfuq2ZjKRq4G7PEpesY8HGPod1eaRrMJJtZJVUywOkgL8a9hwYG HrOTkqUM4HHy244r0AA5WLfP/2aAdpm3oySiwa5S6fcyKQz48ugRx8QpGly/ Jzib+YwBz8ZvKng/pMHyj9j1lgrk/lenr5x+QoOta95qFexmQG6Xc9jWZzQY mfPOFpFiwFKtE1uGLw1y4ve6fRVigEOmY333Wxrc3hJbaMnGgNMPr9/d/4UG tWd0O8drBGCbwOXf4y008Jm/mv7mmgAc8O2e/cWiwYW+0Kasy+T7EYelzNNO Gqjs+dzZcEEA3sxfei3ST4Oj2XtfjxkIwNo28yt6kzQQ/sTa/VFRACY+mq79 wEWHufJe9x0L/ICrGp00VqbD8NpQqetu/FCjLnHZXI0ORQkHhIOd+WFQY8LF WoMOYa2s9FRbfuA/4B9yW5P8v+SZ8uKz/HD1SEnHG306nDdw33xJiR8YJtoO jVZ02POImaQ2yAfX7yq+MAmmg+POH5aOunzg6UaLuBRCJ3Mn8IAT+ODN/aov V9/RoTmFqyBAiQ9yHzrUuL6nw4AXb6aHGB9s8kncEppMhzeG/S050xshL2xb QnMhHXybBCNr322ELdn8haZzdLB0qU/e0c0LMn4tLXKLdOD1btAYauAFDfOY CfoKHZSu7JV9X8oLplRFkSQaG1Coyipj33khTOfkzWUeNsgLsri78pQXhMpf SoRLssG2Xt+1A7t4QaSdx4NlyAZql5vp7Zc3gDiVS+1SEht8PDt8Qsd+HUib isk4fWGDuR+jStYG60Dxu4roo2/k+o4XU9fk18HBq1ZsH3+wAVeHbIfIJDdY V/2uHMhnA0Y+52uJm9yQFO1+1bGNDVKF+/XjndaCqtZUqMd6dmC/ek73ugkX 6D9irYQ7soOeGocxbykdDJP+Td91Zocrgw6blOPpcKpuddj4Fjs87OX+hB7T wVRKrHmjGzvwiTnLYPvoYFNinv7kKTvkaOzq0/hEg0f8nfZ2Eexw4r/nN196 knMhprt9Xyk7nD+US3gIUUAyfyC3RYoDlGtTS7jnplH5W+5ZzxYOoKjXfMvI jsMjEnnvm0dwAqvWKyskcBkXdNdlQ6e44KG8eJTRYR7CMqK5R+8HF1D+/8NP /B/LrGQG "]]}}, {{}, {}, {RGBColor[0.5, 0, 0.5], Thickness[Large], LineBox[CompressedData[" 1:eJwVl3c4Ff4Xx6+7XIrIuhd9jXwrUlKyis8hI6ms0EBoKHuUEmVvUagI0S57 RcXXR1YiuWbhZpWWyiz73t/9/XGe87yec87zvJ8z/jhyzl6Wp4gEAqGfa//3 g2830ztOz6LkCM+syWkODlijq5zY+Rf94681atDBwX64XB3mFlCvwuBH5VwO np4POS07sYI25WcTZYI4+NnKje9ZpjzgVDFQec2Qgxvi9xjzFpKgNSV8+SGF gyU77i1+LaaAztWxq+xqNkaHj9UtCPFCh//yrmIPNpYdiNmsMcALP0Xz9DUk 2VhEtVc6SJ8G8TEHzwY3rGCD6b0+3n40uGzxTLvYYwX7sydVzGNpYDEtoXNS fAXvltu4cX8yDXyZ/mVfapaxc/R7D6MbNHhXtE7wmMsyvi4rk3aJy48+WlZ3 rFnGdzI/97uk0qC966e55fMlbJKzN7uGW/+vZIjxsOMStgqImG6/RgOp6tXa l/mWcOejVsFXiTS4qHt4TLF0EZtUXeu+HEcD7SfU1DLSImZaZ/p1hNJg/LhS WtzjeTxVeL/ExpsGMdnmAvum/+C//4nMKXjSQCTLr2A84w8OX19fPu1GA8mW H0VZhn/wa4mBmwkuNLjNazC4PX0WSwzGfX3hQAOWnfW0nN4MJjy4rr+4nwae MV7xIqmT+K9c0W8BRRq8ujtMT0n4ggt73jimb6ABfhHwu75nDKe9GV6noEAD sj0tWEpmDFuUNZzXkKGB+TH5ft3ST7hNMjTSWowGugcEX9j0D2M736dnPHlo 8OSPusftE724/8gZPoE+XoAP3/ji6rcha7UhqaZIXlAcqXgSOjuGCDYmyY5D VAjqPZZbcp+NnEumAktZXN5/SzDzNxtZBUYAqZ8Kse5O5ue1OOiZl7PV3W4q lB/vcpx9x0FajR892t9Qwbrr2rbkIALMyJb0TJVRwYgin6rwkAds5szc9aKp 0J8Wvv/1BImr+8OUawQVvNKbNDeKkmHVjSyhlFAq5Iw+sL+iSYYtqTJCQ4FU UI22NVkbSgb5hoSOU95U0BzF3kxhCvhUnZVUPkIFn2eiqg9UqWBuKEiOUaRC 9KuAmXRXGmiFWkfqbKBCePDX833cuUuYtE1PylMhLUX/oGAlDehb9UIspKlA 91aesSXxASqy+jQvSAX/m3X5rhl80G3cH8WaoYCYvMmLuDf8MLpuaktHFQW6 enw70tcJwOntS/LazylQ37G7NkhfAHY2yZnllFOgxFsm4pCLAKTnkbadLKDA UurEhdFiAXgco2rw5g4FQrrdIi/sEQSv1PQanlAKbGa25oaeXgNV+/ntfupT YDjUaNVchxAwa3UEtyEKVNUNfwodFYJj2zL3ee+igLy1/1XeGSEQGnyw88sO Csy1LhmRRIVhiPw295ECBVoGwjhV1sKgfrSpx4tCATOm6zOVD8JwpY1ytb6e DAXR1lt5+9ZC6zaTtGBMhgEiK3Ts21pYPp5kp15FBm9FdZWa+bVAvUepSSkl g0OLR4QDXQS6ad/DV90lA8o/nHTUVgQuntdT6w8iw768guu7ukVA3a9DfYMK GYLms1UuvBEFlVrW3puKZEgNSgro6xMF65fdrkvryWAwXq2q9kMUJoo0eu7T ySBeMo07+cXgSPb7qFM8ZAiQZq8qMxWDXyFtZ08ySSCqZCr6p1UM8tftSiS0 kIDYuNXpw4AYfLPVUkuoJ8H4hPGesnExCDwvvdq7ggRKTv5hZqvE4R9j88qj GSSwWlP5U2afOPALRxRuciIBSdDugGCTOKzWZcr6HiFBvp9eslOPOPC2TJzM tuDmO8Xy530Whxl9zZYcPRLwymdLy5IkYN+Wj6mSsiSwHNRQS0IS4FMTGuIg QYKkZBx97aAERDUOtl0SJIFI/vh8lL0EWNbadKktE4E/kx1rGSgBckGrRLx6 iMBc56B1vIIbT3cO02glQrLPxFFyowQICtFEG2qJYBEhR8rqkoCm+psEqTwi CAffGnk8KQE5ppaKH7OJcDndOI7BkYBVF6YIVqlE8Eyh3LksQIdrnC2RBkFE 0Ip4Vi6lRAflnibtci8i/J6VI1hr0uGUjdQl7EyErOV7hsFGdPDyTcqNMSZC vesC+4EzHYYoVrvUtIigEv5fYLY3HeQdfffZKBFhe+9xYuwVOhyOaptv4efq CQ2s3XCbDiJ18x/NFnkg7nlVd/pjOjAT81zFv/OAgazV9EI5HSbC/5nkf88D q1JsTIzq6LBO7NAr8QYeGHpXN3O5nQ6i+Y45MsU8EPl+53Q2iw6HlAZ+UTN4 QBjbbcz7Toe7DyPG+t154OhSrsBFEgNiq01nXa14wHD5wn/qQgzoUhnLk9bk Af0y2rUP0gwg/XvxwGNJHpixvuNxTJEB1k8+KpQuEiA8Q/xH9U4GDE+4M5jv CdB3PWr7oh4DZqLKfAJKCKDoajy75iADzukVnSNFEyB2926dxSMMeNo5/TTV lgCb460syk8xQFXwmYaoPAHiK5GPpg8DAizYkgotHJRVnpwQHMQAif1WWcY6 HKQzUtcdEs2AiQ3j353S2Ghg72YF1WQGnHUYMdjbvYJ2G03LhmVyeTaveezL MjKJv7Pg+IgB8my+NS2vllCrtWREeREDzPY1vlgyW0RSV1+6H33OAKX0bUlj vvPo+KHv5PW1DBBONYr4zv6D9m6fNGttYkCJkYvhP1XTKMp7a9ufVga4etg7 1I/8RB78aWc3tDPAdCWkn7l/FHmU/BvH5LKtw7tZJuMt+tTrv+t6GwMS4g7q /vOpDJtu2HEnrpkBd31Mo5/s78AKNu+j/F4xwKLZncn36j123bMovOkFl3k9 vBwq+/HPNQoVhsUM6DwxmntsaQBfCDCckX3MgAcdX44EBbPwr0q78eEsbv+U FJXMSln4RdrxhJupDMiI0c00qGdhqYjR6b3xDPj2Nv+tRhMLv8ryW7sUyp33 SMnxE9z46CnZ9YUXGbD9vO+ccg0LW/64/NDZi9vfp9pKS5UsLFrm+45+mgE1 IlkDWbksnD65xiHOigGDX8IclJNY2L761NewrQzIjzNpMY1h4dt6ReGG/zIg LOywtlsoC99ateMHH3d/Kqt+Juf6sfCswiaxND4GeCr2f9p8mIXp5VmsN5/p wL+14baWHFfvRkFyeAYdDDX8zndKsrDcJh1lTjIdFjgaEW6iLHxMHw0HxdFB OkZG9w4vCw9Q7MaDAuiQpkeQo/4ewOwv7XFJtnQ4U/T08dDLARz3sriRLUKH nN7Mzy8ODeC+Vy0kcqIEyJBH3FbH9uOWrwdScqLEYYHGzNnZ+QETiTWpJEdR kCz+66Sy+z026HAlDPivhdFW0YCSkh681S3VbKVACHSkNeqa+brxLKHBcKpA ANZqJjbqhXVi+7eRpGU3fnCS+S7lPsjEyENTtVCEFxpth7aoJr7Db3fVb+xf IIHDjYLKS9mtWDUvwFJYl3u3HhG1GYHNmDk+fnPi0zIy6DxgH3GrEY8IvM7e vTCHeltjLx0KrcORvameFXPTqB1/CFVfjbHx6nYb/eqf6Pf9ji2LKS/wwetm 601KPyPHKz1fjrwqw2i8QF5Sqg8J7r2Tv6o/Hxfybxt5NNSIqrV3VcRn3cNH tz0abJfLwTscS9Q8BZNwcaC10eK6d1h8fjFydsgbZTPim80t+vG+c+NuCbR0 VDMNhPLmUfxLdBMsuD5CCQ1ury9/+Ir5Jg8UmB8tQhKiot43lH/iqAjDoZnD 5Uh/sNNoRnsSb2FfWlkT+xwdE0pip6yexj1/Mie8Llaj+Fp+QnXeDC737Glf Z1iLxJb6/K/r/8EvB0udZ4XrUOmJPMV7t/5iG/sok7lv9Sgw7tSg/OgcFp74 8Us4shFVmJ+bODc7j+NhruAcuwnF8FbK3f20gBUFeHhCApoR5bjAbYfmRSzh aV6eXfMGfZOVQQHhS9jlUQuBxWlBlNsCdhvUlrHe+A1+E+m3KFH5qmX3m2Xc 9s6tspq/DdU1H4s5p7+Ci9v0b26dakMyzcapvaUr+Pls3KxZ0TvUqKRy8uJq Nm5/ElPeYNWONj/QuVJry8YhqKLvykQ7ivac3yyTxcalLt3bC9SZ6MFUV1ZX FxunnyAalWowUZ1zMKm8m41NeFSLKzSZSHjt97qUHjb+sscx/j9tJmo86mRh 8Z6N+7TaXOp1mcjoxbWqhn42zkiyJxQbMZG734zS1RE2fvn8bJugDRM5XPi8 9/FvNnZZUHPhcHlQ/HOj3wQbJwyXOE/YMpFNd2gummRjv/TK4LYjTBRa1JTf M8XGJddv2YTZM1G/n2rm4iwbF9RtffnuJBP1npG7smmJjTc6PL367BQTFT7a em+cy2dGr73OOM3V22GkVrjMxu6JHl6nzzDRFp5791XZbPx7dO7mrBsTjVt0 Plfl4eC7q6kPe92ZqNTO0WaSyzTZfqnnHkyUutR6spDI/Y9eqxgGeDFRkWt9 zyYyB2Ntk/nD3kx0XVVYa4zLSQfsxTR9mGhlqFbwLvc/Oi9WkSnuy0R7THfY 2lE52G3kduIsl4e/Na+V4OXg/wFyh4Gh "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["v", TraditionalForm], FormBox["w", TraditionalForm]}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, PlotRange->{{-1, 4}, {-5, 10}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ",", GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Dashing[Large], LineBox[{{0.1357884841538509, -5.}, { 0.14116371757970247`, -4.881243977513704}, { 0.23558246915559097`, -2.7952331019027}, { 0.3236554584349229, -0.84942032194243}, {0.4191581956217798, 1.260539247500525}, {0.5083151705120801, 3.230300721292745}, { 0.5957182198405176, 5.161312394478704}, {0.6905510170764803, 7.256470857147348}, {0.7790380520158863, 9.211431224165258}, { 0.8147309049231054, 10.}}]}, {RGBColor[0, 0, 1], Dashing[Large], LineBox[CompressedData[" 1:eJwdlnk8Fe3/xs+cYy1LtjMl0UIpLXqQqNyfkGRPkkfIlkiRSJItUpLQquwk ShQ9iSQzZCmy7xz7FpEl+/qb7+/8c17v15xzzz3XdX2ue7ZYOxuep9NotASM Rvvft76YbczqaicRPvLHXp5XHNx6EvqshzoJhTLzIcuRTRD5ulOmpLaT+Lxn oiumfBP0yZ/NDXnVSbwiaqRPBG8CD13Dpg3anYRQfFihLdcmSPQBAflnHYRt W6pxOqcYzHSJBdrvbie+eX0ruSwoCtGvGi7VmLQSTS5xE/NnmEAcUYj5pVhP ZGmihJx9fCBcMJo9tvyT8CtbU+ISQ4cDb9pF+Gp+EkzOOr8sVzqceVjhujvp J/Gmd7ZWWIsOkVbp+xy0fhIV5f6S22cx2Ey/nNLzrJxQu/Wz8pEhBjJqI88a 9pURAWWva0L5aKBaPHzti1UpoXE89uBPhUXk/GNQ7m5xAWH8Uev4Jc5JxLW1 M6/pSQGh4l036fxlAsV7Nh6Tti0grgxy9mc4T6BqmeIzP+gFRFEzv8Vw8ziS DU28uRZI4qb3twpXszHU8yr3jsS1r4SLtNtvz+/DqD/n1SvZc9nEh9CjclUL 3ajp62zJK7tkgtb5Nm2daBoKsUoYGch4RciGFjjfmk1CquzagtKLSYRsNLf3 uU9RKE0n1jw17CVB+8V+1SxDlfBvU596lxNPaIp+lODSSSPMJrepXRF5RuwM UGm2+VFExHdMTlnqqqOTRTrn5u82EQZeiT3HnC1R0j93R3NONRPzwBUkV+6I ODmkD2WLtxBS/Q4Od4/eQF0WOT1XPrQSh7JFTTOX7qJtl+vZO6rbCY3NroYa phFoRG/VZGCqm/hpFFe5jjsFNe/bvPNDySBxeKxpiaMyBdltOHhGXvoXkXZv nczyo9eoVMO9XvPeL+J+/q27Q2KpKDQxDO3UGiK0pG2hUDYdbW4wdyovGSb6 vIVblNIy0Zv2l52Zb0cJm5MtWr/rslH4RlNd90cTRGTstJXdgRwkq8HY6JU3 QdT+FrjR/TwHzdj/EtMdmCBU72ilNJl/RkTm4oqB0iSx9csXRtFgLspYa8rZ w5okeiRj86IXv6LCvMe3FEWnCFmv/XiKQCHimxjq2uo0QxSUFuevHC1EYpfT PLgfzhCGQqZ2xlcLUcZo2HbivxnCLdU/i72uELXu+UF/PjdDZDfXnbJ98g19 YHN2xvxmCRUF9/AteDFK7mxNIwPnCJ0/udzRYt+Rbd8PQ/PLC0S7kn7mX53v SHqIK189eIFwCuw10fb+jox8evYtJy8Q4WI8rxfavyOL+27nuzsXiDotc41/ 436g6GCfMg/9RcI0ZdWfubUc8Ux48U9ILREXLNWXwndUIvvZzxJuGctEYtT5 3tdGlWhm54tg3pJloqPxThl5qxKtK4Zi37Zlwlj3x/PxtkrkEXGc9Yd9hVBX 1lMwCK9CHy2+T8yZrBDr1uzOvutVjV6zHSZKZ1eIdyl5qUKPq9G4dibv1JpV QueYbmzcm2rUF2g/Pb9plbjr5xSY3ViNDOUXCx+prRIrMxmnBmVrEHOPRvZ8 yCox2qswrtFfgwZ5Q9iMeGhk8K2S3trFGtTKYzH0WZhGSkucabIQrEXyZQ9W eTbRSFtTj3x3VItMMxVaPPfQSFZ1bkjyi1qkFzwxcU2XRpZ9RTs59OpQ6p5L h8bu0Uj7s9Vij2zrUF9zwk6ZhzSSY95ynfjNOvSQczLd6DmNPCrvP6vwug49 2Czw6EoyjcxJLSo+T69HfS+eePwsoJEpESesiz/Vo54rjKOi0zRyjbcxHKyq Rxr9MQZZizTykrWN+NvBevTncZDsITpGyu7xbg1f34Aezl68xcmPkbmFGYZm ng2o6vAuzZc7MFLs9VfZqkcNaHmQ58vTPRjp+6CMT/VtA7rp5aHiKoeR6iZ9 ZTtYDWgkhyNiTAUjK0dxtb9HGpFSX7HzHyNq/TrJLXbGjeiOyqfjyqYY+Thn /2qzUyPavd/+iss5jDQJ0P6SH9eIuBX31Cc4YGTPel+5YKwJpe+kl6z1xsgZ tYFtW4qb0MeqNf+ujad+v/Mv9qS9CclO2NHWJWHkFz5aF8dME9rAPeNBe42R fi0boke2N6Nc1x/LSe8xco2zrnBOUDNqeb5WcfkrRl4yMp3cldCM7GqLNa0K MLJK6UJ1zOdm5Jj52zGzCCOfsN0KCRhuRtbZzziY5Ri5KfIjm75OC0o+Lus0 0Uit71vQU2Dbgp4J8I18aqH2a1tJynu3IE7Z8C/2LIxM3vfLS/RdC5opiHF+ 2I2RXCLTpg9KWtABK0Vbrj6MdFzAlGidLcg77WGZ4wClT/HG6X7+VvQqNoln bhgjH6VK15lIt6ITLo5zm0cxcjpMIbMcWpHHcX73A2OUP6b6lzNdWhHdeM3x HX8pf8BMWzK4FYnnOqfSpyl/pBx2RiS2Iu0blUTZDOXPuH+/V10rsrR8snnL AkZ66Rr36g+3Iskc7einixj5MXVn91asDa0wXCznlzBy2/lq1ve9bagoRYoV uoqRpoUvW6OOtaFIvDiepNHJRxLXm53M2pDp28nSboxO0ls31QsHt6ELTutN Jhl0UllxomYwvg3FZm2u7Gajk1efFFXlZrehhwZNJMlOJ1MnIioeVLahA9pF B8I46GSPnmO5ZX8b8s90PqDLSSdF01R+yC21Ifswq5IFig25BUs5hFioc3zL aAQXnQy26y9q2clCrd0HMyW56WTBt5zCNGAhA6e9GxIontscQvqeYSH5xGAZ 3jV0UtbnXL6hEwt53Wv4Y0+xfds/eVKBLCQmG+HwkeL4gxy5c1EstDbxTOIY xc1PW7LLP7DQod+xcaJr6eS6v2lZsT9Y6CU+fUGBYk0Dv/9culhIUa4HA4r9 0k9lqs+y0MiJP67KFOes2fEe52tH2RcSiiQpHr+wkDYs2Y4ePA9YWKHWly6u SP16qB3Z/BIT+0Hxua0Jr8MN29Eem+l9ARQ/83VLtnFoRz3CTw/vobiSdTzp gF87usZ9W7OUej4O5Y2J3BHtiKWjZXqSYpWIP3Gs9Ha09rezRzmlj/tUQcz7 onY0O+b1RoHidyefRvm3taOnF+b/hlF6Dryzf3F6sh21ml+2aKX038RzOEKa uwPldViOCVNs5MD/dFGiA+2dOZuOKL9CSnoeVR7oQFIZA7GmlJ9LfvdC3Ww7 kOeh8gNWdDop32EWcvxmByqQVBjWofJw6ZBssOijDmTVpfdbmsoLa7oxkCQ6 kP9K5njmMkYKn0oNeNzYgUY91tLPUXnTyfC+ZTfagQKm5W8uUfn8clHSm2dj J+KRWk9wzWHkZOmsZ+f+TvRrrPvZdSrPu6TKPT5odqKikajxximMjOx0cTNx 70SGaTT1CxMY6WlEOCbVdKKwh05bqoYw8kPmI4frvzqR0qEoonAQI4f47C5o rXaiEPc5oZR+jEyzvbPfg9mFFmts549S8yomsWePuHoXqrs4cLmgiZo/4/Vy evpdyP/OHz3NBqrfQhlKPqZdSGw4O4OspfpgpUW940oXUsiR4b9TgZH97XfM YmO60Ibc3l6bQozMF7lqXfm6C8mdU71+ncDI57rm9iv/daF7qdF5XnkYqfVV zs2irAvx23RfM/uEke+iu+6Lz3ahl69m9VzeYOTd+vKHevRu9KnEV1woGSMt ebIjfHi7kfHIkZrkRIwU9HrwsmNbN7Jzm597GYWR188qf4k16Ea9BZ+Xp0Mw EkSfDIundiOtlwUqK5cwcoOh77heVjeaeywiWWBP6Xvv4owP2Y2ajwnru9ti ZNI80Dsbu5GB2PvQ7LMYyd0yuiGO0YO0OpItn53AyNqI4yckzHvQaU7sQ9lW jDwvspgisa4X6V27ukmpnEZudpHcpibWizi6nt+oKqLOu5+6sXbSvSi2fO6J cT6NNLwd/yQdepHtxwZpxUwaCX+P3Trk0ot2ZOEJqs9opFhNuOmZ2l50Ovfs x3vmNLI+ZDtv2JM+NCeY1yBeuEqE/9IP+hDfhwoTXWteZK4S2uo3GI1pfWhq W4rqXPwqUbhYPi9W3Ic81tsUnfNdJTIuugykTvehvCjj5VblVSJEM48oMe5H Jc8vcoSnrRBqbIZXV9YPIK0WZV/rm8vEcJTF8knJAdT1l+t2gf0yES7nGPRq 3wAyUvWx5TZeJljWt2N1NAZQ8mPX36dklwm3gk9lka4DaCBL7HpD7xKR7LNx m2LlABK15/jwVGOJ4Jrvq3MOGETCK1s32i4uEBWj1xW6R38h9WJWN0NqjjB+ U6ggvfALDai1bZ1fM0d02PIecOYYQixN96nG8VniT1vigWXxIRR+5mGwTt4s sa6sQnGDwRDKSSo9scVwljBK3qZ88sMQMu59qu97Y4ZgWVSpFLgPo66N5Cnf 7ClipGq7ZsLqb+RRdpspPjVOmGIHNzIYYyjUeoBL7FI3kcsMcZUfGkfxZ/KN XWTvEgJvADN2nkQVkSfuHLrdi/JzzO7faPuL0gRa295f/4s+qR/5utZuGllm 4+e5D66g03N6VU5DM8hxKk1+3ooNtHZ+b68znEOzcsF2ybLccK+R/UlK6zxy DCpfH7aTD8SxtxremotoLOtQqcFhATh76lbLtvdLSPav9TCHpBA8y3fcezBr CTXJ2S4VyQhB9U7jAJ0vS0jnY7eaj5wQqNNk9lwrXUKn6YE2PapCsDu93q+k cwmlfWhwv2IlBEsc0tIO65bRXesBj/gYIYjNrXR/57KMYHxJXV5QGHq2iAkr ya+gCN38St3fwiAoM3elX2kFdTUgT50JYTgqX1/xEK0gRdO8TRqzwhCvEXJ3 WGsFGdyqQrsYImDhuLQQZbWCfl/xeZYlKgItH1ndK6Er6JMQjWjQFIHq41T9 Dq0grjPRt6USRIB28gaPy9gKmmm6POuVLAL7TE87bJpeQWPJAYuVb0Ug9BLv NnfaKjr276tU608ioPPQ+9kOfBUdUezW0iwXge+t5t7B6qtIlXm4iHtKBIjL 4toGcatIwCBoq/5RJnQFvbB2f7WKHqcpl57WYAItSdgz+u0qOp996uFpbSao tq558yt7FYmZWgXCaSYUacxy3KpeRdHWvp7f7JnQz2/f3Uyjgf3MRXbPUCYM /4IY7n9oINa+jfGgngme7iuvxRRoILGmyiGjmQlr2PI+7jtIA6sZMdefLCbI SCj+PK1CAzJU0/xPHxMund6zmKBFg0xd100tU0wYK9jwr7INDfo8v3zWEMJh KnJS2PEJDa5pKJee18KhPvhKoXMEDWZOfC26o4vDf55/nN0iaeB3cKtMvAEO V02Hy7zjaVBhJrotzxiHiQ09fuFpNBi+5HvquTUOf57XjGQV0cCLtnCqwwOH yiD9yNxSGrg5RvHfvolDukfFcaKMBo0tMLPFB4dLJj8Sv1fTYEpjs4JGAA6/ 8QKTNhYNDvKO8sg+wOHXs4wi2jQNZOKiCgPjcPh+Z+9V9jkaJMx6WaQl4JDi niaxZpEGPY63B8te4mBn/NpTCMOgfU9o5lgKDv0i8bLbeTGwKdT83PQehyJ2 8Y5d6zBofck0/JqJQ9J01P19QhjopW/8HPkfDrYNEQMHN2Cgkn+q53A2Dj1P wqK1pTAY81dUEM/HofA2r5aBNAbDep51BQQOCW73Z41kMFinz77FvAAHS6O7 hhb7MZhz8cr1LMKhU8iXy+UIdb+RVM+TZTjkM5azrgHFbL+3fyjHIfavp42n GgYHzG/brKnAwaLOPT/gBAYbTmv7JFThwHrk5PbsNAbyPAMVDvU4fDrZL3XB BIPety1prg04hK8za1I8i8FvuROi7o04HAs9odxiiUG/GP8T22YcNuuSv9/Y YFDCKxFp0ILDwlrFGE87DDo4xLcqtOLw7p4kTewSBg/2m70dbMMhSDMqc8QJ A6G/RslZLBysOQVtvrpgkM56z/RqxwEPXC22uI7B7PFVrckOHCbV3K/v88Tg 6b/pXImdOPykj0rTvDGQ/E92n1YXDn5+rfcT/DEYNd+VGtCNgyk6eeRqIAY4 Mp0T7sFBfqX0j2oQBrxBtYmxFPN9VYkXuo9BKe1K8uZeHIZuZp3se4DBYRd+ WhTFRcq7GVnhGNgmPEjj7aP0m0/8GPiY0uff0tceFBteD8d3vKD269sVoNiP w+4DnD9mozA45nPD7D7FnNPent9jqTxIHvVoorjnvymZFwkYrCgJ128cwCHv qmO7QxK1n7tVl0wofra/J1Q5BYOgOn30gOIr4yawNhWD84MumrkUa72vmmhL wyAmWDCwk2IpJ42Xae8x2B7IN7lEMW3PVyPvD5ResaohgoM4tP6W49DLwoAr /r7BZoo/pqZmi+dgoG9Qcmg7xaEOWxzGcjEoul6lJUmxvfRzUfIrBhYdAZ6i FKsN8v0MJyl/dMhSLorFkwO9rb5ReQ+y2jdG3W/OdmnvPyUYZJipv6uguHab axf9BwaBYceOJlGc1jP0sK4cA6Oho/1XKb6TYKmWVImB4D/MCCWKrSybptxq MMjZH3dqjtLnsIRe8rF6Sv+Mz/h7ipkdRWeYTZTf11S7zCkejz7EPdiCwZcT zFQ2isvOfsjNZmGQNCVw9SXlR5LozktBnRhoqQgqKFPs0xK36V/qVT3hz9+x 75Sfcmce+C0MYqD2shIq/+c/k+2f8mEMbireqlan+Fe9Z2/UKHXdMEj7Pyo/ 0Yb2Gkf+YmB+iHP2OpUvd4HOWd4ZDKJfHNxSSeXPoPr0m445DI7H7t8lRjG7 nhqP3woGX3NHy+Oo/DqdEK8t5KaDrMTHGXUq/0cf9llW89AhLu32rWPUfAi3 pI6189Oh7NUvi8PU/OTaK/LOi9ChX8sB46Xmiz3IQHPfVjqcuax6TakGh+Yq ZtNhKTp8Pf9ScoSa11S8/byWNB3WvHnC8bSS2k+KQ8D5vXSY9d1u+IOa9+gS //woZTrIey1FfCnGwZnvhO6bI3RYaa53lKD6QtWYn/UJ6NB5TtnwRiH1/P1R 8zUadPA++1aDn+obOfYsea5TdNDARS2+Uf1UpjaY6uZIB4E1dSWaVN/F3E9X 8neiw9xG/d61r6i81rl+D3OhgyHTsLYokfLPhjaQep0OU3K/8fWxlN/+G7Z0 B9Bh/eZzNWpPqPyQ2hG60XRok5zxSqP6uZxLcPvZODrE12R2l1H9HWvQ/NE+ kQ5yUn+a/9fv6l22tQGv6WAuO+g0eBWHsFVv3tyPdOjorfruaYfDdpWMgO0V dEiSlvyYrE2dN0bOTFo1HfaoCq2YaOJQ4Lj3TUstHdrfqy5gx3Awe5FWGdJM h0OXzJcUVXB4NPV6w99eOux+Y/FTThaH1dSE98QCHWgKVwsvCFJ9U2Cp+mKZ Dg9MK94E8OEQ2SzRcJXGgGg7I/5na3A4wBG7IMXBgBZm9/FYOnXeWEUeCxFg wBReI3R4kgnN+OM2E2kGsGJGj6RWMSF5r6HTPzIMMJq+fGt3ORNcjwlgPHsZ 8K6Ynf9VCRP4XMO2E3IMiMlyX/T4ygT1yvsuUogBQYLK+W9TmZBx+zbn5GkG lBdICyoHMOHexDW5+wEMOLuatat3N7X+xekLxncY4KufYnFsBxMKe92it9xj gLZKZEvMFiYsNbiy54QyQGIMnu9nMuFKrktT3wsGNFpm9fSuiIBxwOWbKhkM kIsxWb5SKQKSIue/TbAYMKxyoxa3E4GjoX2zeZ0MyNudOn34HPV+xGm7O6iH AU9d85bPmIjA83nrp+K/GJDKOJrhrCUCazssL2j/ZcDN8VFNqb0iMJlstvYV NxsYi0y/SP4rDMRBo1MmB6j3yJNv1EbchaFeedt5SyU22D6uf5DpJAzDhyfd 7Q+zwcLWP7Vy54VB+Gh4pIcq9X/H88MnTgnDxRM/u5/rscGXpyHy3XuFgWmq fqXFjg1Cfkh9z+kVgss35R+YRrBBlVOp77iaEPh7M+KsI9lgp9626LtKQvDc tzbjYgwbKM3i3QL7hKAw4Eq950s2OF4h0bC6QQjWh6RtjHrPBjMRM7MwJghF 0ZKpbaVsMCKx84tRhCBszBcuNZtjg8Iv/WXJ7QKwO4zFkl1kA+fqgTMXawXg sGXSJNsKGzxOA62tpQJgRpcXT2ewg8VxdUPnDAGI1jh1bZmPHbayXJ55+wuA WNXDbbFS7OAvE7PdXlIAxLv4/DoN2SEidUji3Ll1sJXOrWSdzg42fVxB6ta8 IGO2ebdrBjtkqa+9ZKfGC/KfFCVu/0dd//Bml6MkLxy7aMee/JkdShx18E0D PGBf+61mqJgd6vSlyrfY80B6os9Flw52cHnNFphitxYOqk1F+fFzwLep636O utygd7tzJdaFA7iKtoXyk2xgmD42fdONAySvPdCTj2aD042rIybXOQBcdnYf 8WADM+nNbYLeHFCdGm69uo8NHH5aZt8J4gCfUo1Nh2IZcFu4x9kpjgP4SpLf hl2jQ25SX9eRCg4Qre2Y8eGngVTxUCFLmhMyhkcPcndMo6oXPLP+LE5oDs7c LbP6lohLE/C1jOMCO1LvZOy7ZULUR4sdneaGkmR2R+PTfKTvn8cLxTncQPv/ jzD5fz5lSpg= "]]}}, {{}, {}, {RGBColor[0.5, 0, 0.5], Thickness[Large], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAIAmIQ/bPP+BuTz0X7n9XH5jNO/b+fEP8HjfnfCPC/o/G/ UqgfnY/uni8E+KSa/4dE9/5H47/E4d5fUD5PPyr/Apq8FFT+N5QvgsZPgar/ AeU/RNPPgKaeF8r/A+W/6EOVR1f/G03+Axr/Xx+qeb8J8BnR7P+FJs+GJv8S TR7dfb/Q3PODAP9nH3796PLofHTzvhOQRzefVPcScj8h95Gqn9bmEQp/Sv0L ALyB7c0= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["v", TraditionalForm], FormBox["w", TraditionalForm]}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, PlotRange->{{-1, 4}, {-5, 10}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Dashing[Large], LineBox[{{0.14200315765094138`, -5.}, { 0.23558246915559097`, -3.023016254300259}, { 0.3236554584349229, -1.1623606730527378`}, {0.4191581956217798, 0.8552579229001631}, {0.5083151705120801, 2.73881409936472}, { 0.5957182198405176, 4.585316334405509}, {0.6905510170764803, 6.588781584151677}, {0.7790380520158863, 8.458184414409503}, { 0.8520189459056482, 10.}}]}, {RGBColor[0, 0, 1], Dashing[Large], LineBox[CompressedData[" 1:eJwdlXk8Fe/7xs/MQSmUcE7KUtkjLUi0PLdokyWiJJUiS4qUKKUspcWSfEQh SkJClC1hhuxk3x3bsYRS2bI7v/n+5p95vV8z88z9XPd1X8/GC07GF3EajfYG o9H+dzcUs37F4XQTclYVvHsWxMGF/ab/wnA3UQUaT+w6xCE8oVuxpL6bOBZb 5fUuRxz6VU/n+L/rJvbsTC4/dkscbuobt4ge7SYSGQ5Wl6fFIOYuCKqGdhHz Rr7T6f/Ww78esQd2Sp2E+USU7Q1sHUS+a7pcZ9ZOOA65B2OHGEDsVXs1pN5I sNX+sUv5BUC4YDTrz2IVkZxVsMzrNg4733eKCNRVEdqTjwuLjHA4+ez7daXY KqK5NkVYWh6H8PPJW+11q4i5bA0btSYMNuBX4tmhlcRVR5/VMdswUNT+Fdq0 tYKwdCJk97Rx0P7ikRtfz5cSrzfy5Y6MzSGn8h8qD4sLiNTA7Ion38bQ8k3d uS0hBcSLk1qugW5j6LV78wF56wKiouCGXY3iGKpVLD5ZjhcQEp89epc//4u2 BcbcXgkksX1HdGNq42/EfpfjK3kjj5DrNBzPghE0kP3u3bZzWYSdtrgm3/Ve 1JI3XfLOJo6w3Gy7rvfVW+R//s2vwdR3xIbPszlv/71A+7mPrpGfjyV6LtLS aHceoCS9qDOJT98Sni9El7MDnhHeHTqTKdmvCRfbhdb11p8Ii3Ep7asioYRR ak2u01AJ8bprfNJSXwcNmD83uhfWShy7E8M+4GSJdpXXdO+zaiNmYfkjlUoH FBF5dcte5XZCZsDe/qHWLeQyRWv6V9BB7M5aZ5628BBl0cVnrHq6iIMbrhsf NA9DO8OljN/fYRNVJtHVq3nj0abbOptuGAwRe/60LPBUx6NUa4tj0x+HiKTH qxUXgxOQYHD495WCw4RfvtfDYbFE1Dr6edevumFCV94aCrclo0sbvG0DDX4S /R7CbRpJaWhCvqzVReU3YWXUpvuzIQupaf0qP9k8RoRHTZ232ZmNmhyeh52h jRP1PwVv9b7IRpGB7i+VN48T+31141vOfEHWLQG3d3iME5u+fqUX/chBptt/ +XzbMEGwpaNyI+fzkB1bZmnt2Uli253tzHjBQpTOuHOG69M/oqC0OH9JqxAV Bu+bGmn8RxgLmducuFaITIQ2vX09/Y9wSfTO4G4oRHePn753a880kdXacNw6 5Bsy24z9Yn+bJvapuQZtZBYjXe4rCjHlM4Te7xzeSLEytHyFRc2+tDmiU8Mw bUKvDFULRGjKVs8Rjg/6zI56lKGZty5JXSNzRJAYX8JcZxnC03jYhVLzRIPu mYOnosvR/tTVh8z/myfM4znejE2V6BNjlX+9/QJha6mzECRXjfjE9SJNJxeJ mIiLfQkm1SjSUHHZH94loqvZt4L0qkaZI/Va5yWXiBP65S/+dlQjsbw2s9oj S4SOpoHasaAaZH7f3LE9colYvUIp6+GdWmSwuXr3+90cIiU+N1Hov1oU4qz9 pMmAQ+gd0I+Kfl+LHn2Yc+44zyEeejo+yGquRTOnApDLQw6x9C/1+I9tdSjX uFWlo5ZDjPap/T04UIe+bGgq1FGmkU+8Svrq5+tQsmR8fOJOGikvebLl7Jp6 xNPZnLe4j0Zam9/Md0X1SKnobpiDIY1k1eb4x72sRxteaabaONHIijykwGPQ gDwgY7b7A420O10rFmzdgDJ/jvxY/5lG8sxarpa43YCs1+2+fCCHRmqpek+r JTQgSxXzY+fLaGR2YlHxRbwRZSZ17szro5HxYUcuFGc2ogwfPc4KJkau8DgB u2oa0dqZQYE4cYy8fMFK4sOPRkTG1f1WlMbIbVs82oPWNiHrFeloZhtG5hSm Glu4N6E3htd5Qo5gpFhC3raa4CZUO2d6y9cQI+8FVAjs/9CEDJ4WLFiZYqSO WX+FHKsJ5VcamvZYYmT1KFN7Ym8z4psWUO52pdZvkN5oc6IZmRlxuBXvYOR/ 2ds5rY7NaEk7TfmCF0aa+Rz9mh/djFhHXIOD/TCSvfaeyhOsBXnuOXp/IQoj /2kPSm0sbkEP2ceZCwXU+woTWEhnC8K5UvNpJRj5VYDWw/OvBf1aj9THyjHS s0008pdsKwrwXZP7vI7av5O+cPajVpT0wWRqtJvav4n5+OY3rWjXgMAy4z6M rNGwrX31pRXtK1LdHDOIkSFcXv4+I61IraK7iGcUI8XD07kM9drQLfNbSuwZ av17BewC6zZkJ30yMX6eqte6mlT1aEPt+9tunVrCyLitQ3fWpbSh8sbBLd50 nFwuMmUeUNKGeF08N81y46TDHKZB625DhkT7I4vlOLmteP3UwKp25JY2WjHE h5PBifINZvLtaP399EzBVTg59VQtrRLa0VFzM1U5QZzMMTe8kubcjhrtjnOv FcFJMbA4Kv2kHY1VZdtNMHDynoy9QlhMO5LwZ979uhYndf56D9xpaEcq1zu7 BMVw8o7+iT7DkXY0XRFi7iuOk+mJCr2bsA5Ux8iRGJHASamLtawy5Q4UmuMY fm8jTpoXvm2PONCBrmwWOJe2iapP0q3V0aIDKeXv9q2Xwkm8XbxR+EkH0vA6 z+iTwUlN9bG6H6870NUye/96WZy8FlJUk5PVgaytNtxLk8PJxLGw7wHVHYj3 LP/UPXmcZBs4VFoOdCCTouzJvQo4uS5pX7nKQgfaHZN4/yfFxrxrSnmEWOgT 3eHDo804+cRmoKhNgYWSJ72cRBRxsuBbdmESsJCUl1vLM4pnNviT906yEE9G w/Aixdvunss3dmQhg0iJ5FNKOGnXsSNX5gEL/dnfI/eO4te7eHJmIlioM/21 ZQ/Frc/bsio/sRD/0o8zK7fg5OqJpIyocha6sXmfrCzFh495fnbuYaEVBxWp 2cFJz+TjaTrTLERYqO9QpDh7hdxHpkAneuw+4i1C8V/buaQR6U5k+aEq+w+1 vnzx98S83Z1Ibf5i+xeKz216kxBk3Ilorvt+X6c49J5LnJV9J8qQ65oTp7ia dSh2p2cnOiz2nSeb2g+P5voY3rBOlHLuv7X7Kd4X9jualdyJOhezd+ZS+rhO Frz6WNSJyvESW1mKU4yeR3h3dCJb9/2fPCk9B1PsXpqOd6Kkq5lilZT+4nx7 wuR5u1Dg2PtkbopN7Fc9n5fsQjTedw7bqH75l7CDq3d2oZnCrWeOUv1c8Hwc 6GLdhfQNhKeMpHFStcvC/9DtLhSifjdhL+WHy7u3PVkX3IVUJ8Lei1J+YU01 PyCJLmQiOJ8SI4mTwscTff5r7kKEnwlpSPlNL9XDy2a0C51YfldjlPLn10vS Hnzru1GX+nmPWVGcHC+ddu/e3o1ycEVTO8rPm2Uqb3463I1COf0ppZTfw7ud Xcxcu5EMcQQ3E8JJdxPCIbauG52PzeomVuLkp7Rge7ehbsRn0O/xmRcnhwVs bHU53ejcY636sGU4mWTtu/0mowdV9ydn7aDmVUxyyxYJnR70zmOr0qdZjJw6 sVbFwLAHmb5U59eYpvItkK5x17wH/V6gOaVNUnmw1KbTdbUHLat0+e76ByMH On0tol71oF9VSjEm/RiZL3LtQnVCD+K+5qdm14uRL/TP2C197kGn8wbcr3Rh pG6eisvZih7EvrFZVb8VI1Mie/wkpnuQazbwX6jEyIeNlc8M8F70uK2MRS/D SEu+rLC7/L1IgeP7NKwII9fcCXjbJdWLNB7uzwrJw0i305pfo471osxGPHcw BSNhXciIRGIvEs9csfg7ECNFje/9NcjoRZVxZ9lpTzBy/PGlf3fJXpRodobf 1hcjY2cB727uRVJbZ/QSPDCSt21UNJrORmJjfyQeOmBkfdihI5Jn2Ehune7V rzoYeVFkPl5ydR/a+Ohrh8IojdzgLC2lLdaH2sZ71clB6ryr0o+yke9DV7u0 jh/qoZHG91+HJEMf2lkq8UOugUbCxAGv3c59aK7U8pxKNo0UqwsyP1nfh+S+ x15zv0cjG/1l+Z+G9CNDMTkFGp1GBg0ZPvr0uh/ZlXEb3J7iEEd1btGbk/pR +BENoq2fQxTOV86KFfcjiX1ToPWNQ6Rech5MnOpHlgVDt3Lvcgj/w7lEyYkB dCl/wdv57xKhzWV8bWntIPq9VDWvTSwSIxFnF42kB5GvaATtbdIiEaTi8Ojd 1kE0Y7u6d+TlIsG6cD9K7+Ag0vvCbafmski4FGRWhF8fRE86UiYy5RaJuLvr pdSrBxEZ8ELZ7ckCsXy2v8HJ5wfKkcoIO4Dmie+jbmq9o0NoZMTx7IDdDHHi faGa/NwQemJ/JbrdYIbosubf6cQzjDwdlztnq84Qvztidi5KDCNVD6llyrQZ YnXFd3XRY8PIouJUCR46TZjESWkafRpGC8vlqyzz/hGsszX7ClxHkK+Wca3l /CTxq0b28BvOTyTxl/EfR32MMMd2rafT/6DW5BV490QvkcPwv646/Betfj5U ExYUSQi+B+yE0zjyMZQJuLnARvnZFn63OiYQz69D56pVJlCmzt68lTZTKOfZ gyG5yUVkOmNQ4zj8D73otXJdDlygq1DW2WA8g6Q3aiVkCPDC42bukPj2WfTi hrd51DIBkMA+HPQ4PI98lZh2ZoqCcPq4V5vUxwVUar/PT0BICELzHZR3ZSwg x0T0qmqdENQqnPDR+7qA+jbn9T/YJAQ6NMUtN0oX0K+bllwj24VAKbnRs6R7 AWkrpDFvHhOCBR55efvVi0iirUA0wV8IonKqXVOcF1GLTevAbkwY2BvFhDVU l5By0Usn03ZhWKM4c3VAYwm56a1fb9IjDFqqjd+foSVUXRuWrz8oDK8P+j8c 0V1CP6YTe7aPC8NZh4W5iPNLyPvHKfU8XhFoS2f1LgUuIf0nHec61UWg9hAV v8NLKPq7m8yWIBGgGd3ic/6zhAIMjry4/1wEtpqb2otPLSFf8XORzeEiEHiZ X8qVxkGsGs+jl96JgN4zj1A5Jgc1Juf+NMwRgbL2Mx5PdDiozZ95UbBPBIgr EkePRXNQQonVtxPbGNDz6OUF13cctFmKYXdGjQG0WGH3yA8ctLBl644zmgzY 377i/VAWB32u3SN7WIcBRQenebxqOUilzXx95UkGDKyy622l0YBz+WCclwcD RobgFe8OGnw+znkb8o0B7q5LCWJqNMj0TFyRXcqAFVy56Vt30WDm8oxQYyUD FCXVq0z30eAkt/TSVAMDLptumX+jS4PDRQb5PX0M+FMgekrTiga3x0LNDXAm TIaPCzuE0IAvT8TuigYTGp9cLXQKo0EA+eJi4B4mfHb/7eQSTgPmx8XKeMSE a+YjFR6vaWDdMPXt2wEmjImyPYOSaODVZz4ZbcSE3y/qfmUU0UDIrWlywJYJ 1Y8Mw3NKabCS7Zrqd4kJyTe/HyIqaHDlmFiYwhUmXDYrjymrpYFf3nyT/jUm /GQWmHWwaFDjU5asfocJQ6GpRbQpGhSKuFkFBDKhzFf5GvcMDXY5mnE+BzEh 3jVJcsU8DW6xzz2qD2aCzYkEdyEMA5dYe+PpUCYMiLzeJsuPwdwuafPuKCYU cUt0bV6NgfO68fGi10yInYrw2yqEwYDU9KmYGCZYN4UN7hLFoEl1q49OHBPY IU8jj8pg4Du7plkmmQmF9/l1j8lj4FVs6lKewoQ3Ln7TJooYxBf3FFinMsHS 5KHx2e0YPB06edr7MxO6he4td95L/c/Kd/2pL0zIpy9m3ACKb5eUfslhQtSE u5W7NgbfG85xrcllwtkG13yfIxikVspKvs9nAivY0SXUFINK7wJH529MyDQa kLE1w8B9U4b+7SImBK22aFE/jYF3ovRXj2ImHAg8otlmicGd/0ZUL5cyYYM+ +fO9FQZn7s9pmpUxYW6l+it3GwxueMwW7ilnQspjaZrYZQykE9T1/lQw4dHh iLRfjhgk2m87lFfJhAvL1ljlOWOgc9wvy6eKCcwHnOKzbhgE5rf/nP3OhHFt V7et7hgo1T56/76aCVX4qDzNA4OvCny1RjVM8PRs93vjjcH9Ru6jfrVMMEdG e689wCAlQ+2lWB0TVJdKf+9/hEHsUrJ2HMUCefteC/lhcNbt6CH5eiYM384w 6g/AoOHHyOsYios0legZQRjMM+31RRoo/WZj0h/8R+lTE3PEk2JjtyCm3Euq 3n9fpVEjE5R2LiufjsCANWmyGEzxsikP97Ioyg/hYqLdFLM/Tyq+fIPB89Q/ LlJNTMi95tBpH0vVs5jIb0lx6HZ2oGY8BpK6ij0hFF/9awYrEzFYOKM/XECx 7seasY4kDFSx3zI/KJZxPPg26SMGefPDwVzNTKBtyTPx+ETpJSKxZR3F7T9V eAwyMIhm2I7JUZyemJglkY3BYMkb1haKA+032v/JweD078SfihTbyb9YR+Zh MGVybv0mirV/CFQFkVR/CiPsVlMsEffA4/w3yu+cPbX/qP/PWC8o7yjB4FCD pGETxfVS13vwcgzEeDayP1CcxB5+1lCJwc9z4r7uFPu+sdSOrcbgfcKYuhbF 5y1bJl3qMDBMcJ/kUPrskTSIO9BI6S/7PDuTYkZX0UlGC9XvX+JeFyn+G7mb 90cbBsbkmC4fxRWnP+VksTDY7TC65gPVj9h1CpcfdWPQmz7apEXx3bZo8VNs DHZdrAmqpfqpcjLAc+4HBu2iib1N/+s/g2tH5QgGa1IsnPUoHmp074sYpZ6X Wf3KofwTaWx3cO8EBpNp7LB7lL9cBbun+f9hoLJauLCJ8t+xWtP3XTMYdAnz V0pRzG2gzee5hIHJ9vLL8ZR/HY9I1Bfy4lD6/GmYHuV/rWf9lrV8OOyUstyk T82HcFvin85VOJwXK+JoU/OTY6fOPyuCw50CnRhhar64Hx07vHUTDr/7xBla JBNaaxgte2RwMGHdLZ6g5jWR2XlRVx6HN5JX4yPzqHri7X0uKuMQ+A+bqKXm PbLEOz9CE4fK8ZZd39KZ4CRwRP/9XhyeG6byyVF5sf/EKlYm4ODaLDLhmUbt fyBitu4gDsL1vj8YVN6ocGeoLj+OQ2fA1FIFlU8V2j8SXRxwSPBMsT1G5d0r v2QNb0ccngZvvi8UQvm14XrZU2cchv23XK96RvXPijaY6IaDX2JJtmQA1W9v 0Y29Pjh8DNW8dtSH8g95NEw/EodrEXXi6VQ+Vy5fI3s6Ggf1wwHe9VR+Rx1r TbeLwaEiovzWIJXvOj3W9T4JOEzGFa76c54JTzke/DnpONww/2DvbcoE2X2p PrLfcdgdzTFJ0aTOGxMnBq0Wh6Ls31GW6kwocFB+31aPg4usRASvKhMsXiZV +7fiUM/e9QptYULwZILoRB8O3yQ1r+yWZAIn8c1HYg6HsA/6Vk4YlTcFlvtf LuIgXZeg67fIgPBWyaZrNDqodG5NfTXLgJ08UXMyPHS4GpA79G6MOg/Phx/w F6SDX2BSunYvA1qZ/3WYydPhunB5V1o+A+KUjR13KNLhp8ORTao5DLh+QBDj U6bDgT29H5MyGCBw/aksoUIHVSXjSM8kBuhU+znLIDpIPhY59/klA1Lv3182 bkqHC7u4PmtdY8DjsRsqfj50GL/xrHJkPbX+pSnbE750YJR4c/QYDCjsc4nc +JgO7PQb7u9WM2Ch6Tp3diAdMi+KaWhwM+BqjnNL/0s6XGkJ8vk5KgInfK7c 3pdKhwoh1aibeSIgLXLx2xiLDl4ZJtclTUVAK7B/OrebDsffPgjVMRCBs8us lR6x6aA0EhZ17pAIvJi98FxiiA5a7mJGbhoisLLL0vboBB3W2JYPK4mLwHic xcp3vFww6lermcIWBmKXyXGznVzQW3q/f+KiMDRqSl201OCCPBvFNvEzwjCy Z9zVbg8XPHtZfn23iTAIawWF39xPfd8Lfkb7heHSkareFwZcYMxn1zQkLgwM c52rbTZcIAWYPVkvBFduqwaYh3GBzUDMhpkdQuDtQY++EM4FZNHSnqfyQvDi Xn3qpVdcUHtlwktUQggKfa42ur/lgi7t+RvLeIVgrX/S+oiPXBAgUP/icNca KIqUTuwo5QKfUC4LC981sD5fuNRihgtO7ShwSKkSBKWnLNa2eS7gOVQ441wg CHssY8e5lrhgs5TYT4VMQbDAVSWS6dwwlSc54RotCJEHj99YFOCGL8b66g+c BUGs5plUlAw3iMbcLHUSEgSJHgHPbmNuUN5YTNoYrIZNOK/GhWRuCKojyo8D PyhabFC6nsoN7O2FyTc28oNqprrk/c/U82jLy+44Pxy4ZMMd94UbJszop5SK +MCu/lvdcDE30Pay+LYf5IPkmLuXnLu4Ier515JMnZWwS3sywnMVD/ztVS50 V+QFg/vdS1HOPKCW1l4jEUXpnPxn6rYLDxhd0AnSducC02bOLzM3HrhytmeT /gkusJDf0LHGgwcWww7FCghwgX2VZZbvIx74kL54VvcOHe4Ls50co3lg9+cz o1FUzuTE9vfs/c4DgXcVncU6OEimeLiQJb8MVhSfzpULn0I1L/mmvVnLIFfy 9rnkvZ+I6CTBe5bRy2HFYM/3e+OLxLq7utzIlBdefjFQOOQmQF45wHpol8UL tP+/hMn/AypnR8o= "]]}}, {{}, {}, {RGBColor[0.5, 0, 0.5], Thickness[Large], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ/X7hiu2Gdy7Y53/cEjSb9//+dwT4byjkvxrlj/KH ER8A9XMAvQ== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["v", TraditionalForm], FormBox["w", TraditionalForm]}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, PlotRange->{{-1, 4}, {-5, 10}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ",", GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Dashing[Large], LineBox[{{0.15464737105512377`, -5.}, { 0.23558246915559097`, -3.4299423091075103`}, { 0.3236554584349229, -1.7214168680651576`}, {0.4191581956217798, 0.1312380435947725}, {0.5083151705120801, 1.8607916910057027`}, { 0.5957182198405176, 3.556320985789826}, {0.6905510170764803, 5.395979751191528}, {0.7790380520158863, 7.1125372523442305`}, { 0.8749548348628173, 8.97322422411451}, {0.9278842263307426, 10.}}]}, {RGBColor[0, 0, 1], Dashing[Large], LineBox[CompressedData[" 1:eJwd1Xk4Vd/3B/B7zjVEyHgvGUuKNKikSPbKVFGUKUkyJYoQqZQyNMiUSilk yhxFkT6KcwgRmed5DpUMmaff+f7uP/d5Pec5++691nvtu8Ha2eA8TqPR4jAa 7X/f+mK2r1ZXuwmOqlRmTqs4uPfFDViPdBNv3wi/6P0kDhEp3fKldd3E7nXp jyReiMOA4pm8oMRuQiIuqLncRByuHzdoFtHtJoJ8dFwHG8Qg/jbwKT7vIjq/ nGfd0SAKMz1i9+y3dRKqFrevjnWJQFRio2OtaRtxwtAs1nMTA4iDe18N72sg ktbmrPxXxg2ChX9y/y5XEq7B3tJuSjgopXYK8dRWEuzfj3R95MLh1OMfbtsS KomIJCcFRj8GEVYZOx10KomCkDmfLaEYSOFOyX3PKwhFTfVtYb9oIK/x+3nj zu/EyPqDFlL6q0i9ZPTqZ6tvhNyPh1NVFxaQc/nPPQ9KCgllFSXcWXkCrdnY /aU5rJDYQCcyrvwZR7GeTVqytoWEodNUzIe4cVQjX3KqHC8kki0Whf9wjiOF kPiba4Ek1B9GaNwg/6C+xLz7klfzif2Kulbe20bQ4KfERIVzucT1COHUBose 1Jw/W5pol0RA+8AJqL+Cgqzifg9lJhKxjUoVUVJ+hDqrLr/sYgJB+yVYNlEW TqQfiz6b9ug1sf/MKcGLnGmEb7vmv7efYonxtxusWlg/E+aT0houQs+JdUZ9 ND3lCiK2a/Kf5XFNVJwe7TZGUHW+Fd+n5WyJmKKt2NvAdmIe1vjvqbiEPMdu 6KebdBAygw4ODw7dQEaHOWfPj3YSB3LXm2UtPUAVWwWCHe72ENpSbgbaZuFo s4Zsf09oP1FpFFPFy5GM+Dcd/ZBuPUKo/m1eYqtKRrHcVr07ikeI9Ie88stP UhDtQIyFhswoEVjg82BELA2VPf9ULj00SujI2kKRQgYyK78/V2L9mxjwEmxV Ts9CfbWVDumH/xI2J1t1ftXnooxnl5+4WU4SEdHTVnZKn9Bxkml5I2CSqPvF d6P3xSck0L9kpZM9Sajf10luPvsf6pDn1dRjnyI2fv5ML/6Zh37cu3ysO22K 6NsU/SVqMR91K6WUKg7/IxRu7WIm8xUh+UsrMlKqs0Tht5KClUNFSPknmc92 bpYwEDCzM7lShCovJFz64jNLuKf55rDWF6GZ5M7Dz0pnidyWekPbsK+o+rZf 9srxOUJtr0foBmYJKjr9dyLfcJ44NpbHESVWhrwtusLNDiwSncr6WVPHypCW jThd3XSRuHyv31TXqwy5zM24L7gvEqFiXCkLnWXIk/VhWlfGIlGvc1b7dEw5 +o/l6ToP8SXCLHnVl7GxAsldemw0NrVEXLDUXArdUoXuulbZut5eIeIjz/en GFUhgYSMas6wFaKr6f530qcKbUfGnF6pK4TJ8fIX4+1VKIzPfMPv+hVCU0Vv 74nQalTb0qE0s3mV4OXclvvgVg0quX2CpaRklXib/CVN4GkN4iotMZhoWSWO aR2PjkmtQTSal8rsr1Xigffle7lNNWh/MztL2RoauTKTafhToRZFGG6/fXM7 jfzTv3dce7AWTeswkg3caGSAT2l/3WItGjk6HPjpJo2UlTzVbMFfh9TZhePX 3qWRtmbXCzxQHbIfI27eCKORHTV5QUkv65D5t5th7tk08ns+kmPTq0f/XZzp /DNOI+3P1Ig9sa1Hk0LbKuXmaCTbvCWvxM16FKt564ThKo08pOg7uzelHkWd jVR05sbIT2nFJefxBjTZJCFaIYuRyeFHrUs+NqCJjOB+YXOM5PQygf3VDcho o+zUB2uMdLS2kXjzswEt1fDXKztgpMJ2r7ZQ4UYUqzgtzeaBkXlFmQbmno2o 80b2aFwIRoql5CtUP2lEXDLhZ8PCMPJO8Hce9TeNKOA/vNc1AiM1TQe+b+lo RAvTocpjiRhZ9YepMXWwCR3ZcIL/z2dq/fpNG+xMmlDYTRjdX4iRTz/tWm25 3IRULk/yu5RipKmf7ueCmCYk7J7rEVuDkX3Cd/YEYM3oi12QPecARs5oDElv KGlGX7meLXKw46Sp3BQW1tmM1HZMxPOsxcnPPLQetplmJKvtLbrKg5PerSJR vze3oPJMw9jXDJzkdD4u+Mm/BQ03Pmtd3ISTjkZmk1vjWpD7uhO/zsniZLXy hZpX/7VQ98VVnkx5nAxj8QnyG21Brv+kUgV346R4RDaL/rFWlHM3j3f8ILX+ ncK+QttWlKD3IiQHcLLPtopU9GpFDKf1Fhc0cDJp5/Ct9W9bEevqFv7QIzi5 RmjaLLi0FWlFF7Kx6+LkpQVMmdbdigJHRJ0uHsdJhRLR6cF1behD+453Mydx 8kmabL2pbBs69XY6QtIIJ6cf7c2qgDb04O5L4b0mOJlnpu+U5dqGeJ+GjciY 4aQYmOtuCmhD22fnj2HmOHlHxkEuPL4NmX00tS4/i5Oa476Dt+rbkPMria+S Vjh567hJv/5oG9oz3agWZo2T2WlyvRuxdsR9aBGfs8FJ6fM1HWU72lHdwLvb wXY4aVb0ui1Sqx2lGulrEBeo/Ulea7ls3o7sh29d7LHHSbxNvEEwoB1dfRO/ MH4RJ1X2TdT+jG1H6ZNpLj2XcPJKWHF1Xm47ig22siEccTJtIvxHcFU70vLX aw12ouqnd6nCcrAdhY7Nt+hexsn16Wrle5ba0bXKX/bzlA04+L+xCXSgse3p j54742SA3WBxq1wHGpH4aijtgpOFXz8VpUMHOvfm0+cYynNSQeSdUx1IvVuw aq0rVd/b5woMLneggNJzjy9Qtm/f/UXmXgeSd9rA9YFy7H62vLnIDiTS3as5 RrnlWWtuxfsOdFRWTl3kCk7yTqXnRJd3oCyjO5yKlI+c8P7g2tOBtF0cE9Qo e2cYZmnOdqDF+9cZypQ/cW55x+TpRCUJ8hekKY9fWEgf3dSJohq5Xy1T68uW /EjLP9CJXGWSC75RPrcxLiXUoBOpxt6p86H8/I57ko1DJ5o4KdktT7mq43CC kncnuqvN86uEOh+bimg8R3gnGn3YsKRPWS18LKYjoxOJyC6s/07Vx+Nf4at3 xZ2IdTv7MUXKb08+i/Rt70SvE/yeh1D1HHpr/9J4shMNR8zSWqn6i3Ophsty dKHvor8eC1A2clj3bFGyC6nuGdJXo/oVVNr3pEqpCyn+cTl0murnkvfDEHfb LvTwunHrOQecVOwyDzp8swvVWBFBulQeHA8oBKx/0oVcxFuDt1B56ZhuukcS XSj0gOrTTFucFDRM83va1IUWc54lnKXydizTy8fuTxd6spsQX6Ty+fniJi8u 0W603jreiv0cTk5+m/Xs3tWNZrY5KntQed4qU3H9/ZFuVCe3+WnjGZyM6HZ1 N/XoRlYjAUPnTXHS04i4lFDbjV5VzX39cQIn32c9cbg23I2OXJexLtTDyREe uws6q90o8oPvx8RjOJlue3/XdUYP4lz3NxKoeRWT3L5dQrMH9Sa78JJq1PyZ CO/R0+9Bj79en9BWpfoRQle+bdaDtm5RNySUqf6vtGp2ufQgjemcrLuKODnY ed88+lUPkp11um8th5MFQlesq1J60KGoShGPzTj54vhZ+5UPPSj85+ZzN6Vx Uid/j7vF9x4kEXtJ+Iw41a+onkCJ2R70vs9nwpkXJx80VDzWw3tRCZ2zkI8b Jy25csNvc/ei83JlbokcOMl/K/h1l3QvuprlFxmP4+S1Myqfo0/0oskVjdh/ UxgJ68NGJdJ60eke3d6leowUMbgzrpfTi9hrY0qJaoycfHhx5jbZi4Z8oyfc KzAyYR7w7qZedO608q6PRRjJ0fpHJIbeh0xFd9GfZWJkXfjho5Jn+5CNZqBR +UOMPC+0mCzJ24/Ovl8i9u3GSCnXTdIaYv1ISFxarEoeIzsqj0fbyfaj9DV+ +4xlMNLgbmxYBvSjKxPnKvYKU/ub0vI54NqPlCbjNA4t00ix2lCzU3X9yGZ2 0MS/mEY2BG3mfhQ2gAK17bl5jtDI0GF9//exA8iFRzOwAtFIXc0b9Kb0AcRR 3fnVcx+NLFqsmBcrGUC65Z/vvt1MIzMvug6lTQ+g3wF7Nziy0MigI1+IUpNB 1Md/RzfYc5XQYDG4siI8hOwM9YvPHV0hRiMtlk9uGkLLTuLlBUorROieS/6J O4eQy5cnqWybVogO67vRx7SH0Fduf4WTK8uEe+HH7xFuQwhX2PWlLmuZSLot Kr2vagjt61s/+0RwmVgzP1Dv7PcT7bq+z9KqfJH48efa3t4/w8gKTWzGpuYI k9SivbILwwgv+HthpmWO6LLlVnJmG0FzRQHKDQVzxFh7vNKyxAhKr02sPhow R/B+/7FP5MQIapDoCJGQmiOMkqRVTr4fQW5n08JuHZ4lOiyq1Qo9RtHys4YX t+5NE7+rNx+JW/2Fnmm+PCNaNEGYYftF6fS/6JvJuqeMNf1EHiPITXFkHHm3 qs0VB74j+FIBM3GeRGFJUksw3IsKPpkH3mifQo/CS56/T51EHzUP5q+1m0Ya B+lSXBeXkfGcXvXlkRlknrvxycICHXTkyjrrDebQ8Mzq1+TyNfCwiTUsuW0e mese8ggt4gYJ7I2215FFZB8+c7V2DR+cMfRplX63hFIbxF8+GOeH5wWXduzP WUInhCTfaM3xQ42cid+xz0uo5FnU5MoqP2jS5Ldf/baEqvoRv806AdiW0eBd 2r2EZMJCZSa2C8ASm6ysA+8yomnGbdlwUQCi86o83rouo/9qc6eyuwSgb4OY oLLiCuLdecOrKlcQ+OXnXAaVV9Dp3AXZH/mCcEix4cdjtIIyD1yrLP0qCLHa QQ9GdVZQuXXAWFq1IFhcWlqItFpBtgbKWko/BaE1u6N3JWQF7ZzOczIREoKa w9T1O7KCfPaf2pPkJAS0kze4XP+uIOf/ZJOWrwjBTjNjB/HpFWTvr5amf10I Qhy5pT1oq6hAxfJ0v68QHHvs9XwLcxV9FI6aLwsXgrK2s14Bmqvo8+zMlQBS CAgnCd0TMasoYJdGbTU3A3r8X1p7JK4irpDpq038DKAlCHpGvVlFXS94oInJ APU2ztTh3FX07ICYYuEGBhRrz7L51KwiIU0VOc29DBhcZ9/bQqNBb7NM9oIZ A0aH4RXHbho8K+jK4o5jgKfHSorYXhq8+PVQeFciAzhZvmTv3E+DtubmDcdT GSAvua/SWI0Gyi50LucsBjgab1+M06HB1p07Kk8XMuBvochpFRsanDX3sP/W zYB/EZOCl8JoMLZl+uoQgwkNAS5FzuE0cJa/7sa+ngkfPMec3SNoMC/S2Sol zoQrZqPfvWJpoK3WWKsqzYQJkT7v0HQa2Oip4CI7mTD2ovZ3TjENpnuz8XNa TKjy14/I+0aDP8dMCliOMCHj+o/DxHca6H9eTIjXYYKjaXl8WQ0NnGTb+0v1 mfCLWWja3kGDrLHkz5mnmTD8PLOYNk2DBG8TVzZHJpTd33GFdY4G61v3cW+/ zIRkj3RJzkUanDmOnuu6MMHOJMVTAMPAZN1RSxd3JgwKxSps5sag4zXd3vQW E4pZJbq28mJgeK+WpnabCQnTkYE7BTD4FtJ0QdSbCbaN4UP7RTDIjeF5nO/H hL6wR1G6MhjY2072Rwcwoegut84JWQxsFPb6qgcxIc49cNZIHoOHCmR1ZzAT LI0eGFjswsDVcJ/DYigTugXurHE9SP1e1Xm5uudMKKAv51wFykOJjbtfMCF6 ytPGUwODd2qIP/AlEyzqPQr8jmLwRIlt+8YoJnQ8uez+3BiDjD+xt0ZjmfDx 5KDMBVMMzIPDzvyLY0Ior3nzvjMY2AqxlM/EM0Er5KhKqyUGFivl6oMJTJA6 Tv5KtcEA/W09UpvIhIW1+1552mFwarilJieJCW8fbqKJOWLAJsA0s09hgv+R yKzflzEIalhnrJTKBGt2fpt8Vww2F1wsWaLMvLdaYnENAxe5vPkrb5gwqeFx bacnBjwH7HM3pjOhEv8jS/PC4FXYr87vlL292wLjfDGwQ4OmLG+ZYIZOHrxy D4NQKaHkZ5QVV76NqftjcN8h+KTkOybw5KvFCgRiAH1bjeMoj9zMOTkQjEGO wfe3oplU/1S20XNCMej0PXImhHL0fHz2vadUfVR8T81TNrgWytzyktqvVeTu T1lM2KbEXj4biUHBOcW1XO+ZwD7t5VkWTeWBdWmzKeW+D//kX8ZhcE202jeK 8pcrlzodEqj92AeItlJ+vqsvRCUZAyyHc4z7AxNcxk1hbRoGXWXbZlUo67yr nmhPx4Dh+GOPJWWZy9qv099hEGNXHutFmbY938jrPVUv72WVp5Tbfu1h08vB wMdHezWWcnZaWq7EJwzKdvmMJlEOcdjg8DcPg4OnA+YTKNvLvlhP5mPQTKjJ RVLW+MlTGUpS/dl+0+MhZYmke15WX6m8XxTrcqY8Z7u0Y3cpBnJqq+Z6lOuk 3XrwcgxWXGjjmyin9408rq/A4Mf3padT1Pnux1lqJFRhEChQq5VH2cqy+Z97 LQa7BMzwG5RVJfWStBqo+j92L91JmdFVfIrRTPX71HJIF1Xf8agDHD9bMVCU rzW9R/n7mfd5uR0YiDdVSm2inLBeztG/G4Ovkj/686j+3G6NET/dh8H6mrfR RynvORXsvfATgy93H/7V+1//GSy7K0Yx+CeseqeEysdwg2d/5B/q+R6NhT2U owzstQ9OYdAkVpQ4R+XLg697lnsGA6GbU9V6lE/UGKd2zWFA3vndEkXlk1VP g8t7BQOlqBRPqTQmXD4qUVfEgUMqzTmxhMr/occDljVcOAiHIIVSaj4EW9P+ dq7DQePBa+58an7y7PdxzwvhYLFtU2YwNV+s/ieO7NyIQ43esnTeKya0VDOa VWVwUDpsUe9IzWsas/O8jiwOfgH6OUKR1H6SHfzO78DBxaqXpkPNe1Spb0Gk Cg4ZZ3O1VZ8wwZnn6PHUgzhcy3u0Ppa6L9RN1nV8BBxMD03TFkKo8w9Gztdq 4zCjajf9KJCqF2uO4hpDHIi5Bi7Nu1S9NX6muV/CIeBX8NVyNya8CsxQ9r2M g+syx5MgVyqv9W5lj1xxqJjl8tFypvpnQxtKu4aDk1BS6YuLVL99RTb0+uHw GFvvXWxJ5YfUDT8ehYMRW5b8dl0mVKzh33wmBgeRD46hutT9HX2iJds+Hod0 ttQH/7vfNXts6/xScGjiixe3R0x4tOrFnZeNw6mSgGuLu5mwWS3Tb/MPHMQ5 u623CDPhn5Ezg1aDQ5J0VXqrIBMKL+1Iba3DweTxcoovHxPMX6ZXBbXgkH1c +M0nTiY8+ZciMtWPQ2KAyM3sJQaspsW9IxZwuMHY7jrcxYDKQkv1l8s4sKn6 m7K0MyCiRbLxCo0OQkfWFTCaGaDEFr0gw0YHg7nIGYlq6v/QKkIriI8OTvOB RV8KGNDCfNpuKksH4zspv7dGMSBph8Hl3fJ0+NEkq5ARzgA3LT6MawcdtiST +TJPGcDj9mgzsYcOjPBdafMPGaBZFegqg+iA/fvnuO0aAzLv3mWfNKaD5ut+ Mk+fAQ8nru4J9KNDQ49Lq828ECRdnL5gcp8OcwrW3KVTQlDU7x614SEdiiWN /SXGhGCp0Y31UwgdXtQsar/vEwKXPNfmgZd00Fd3eWxbIQQmfk431TLpkH5b IH0iQgg2CZ3/OtFBBxspRZ8Xu4XgUMjA7JduOuzlOZ+QLy8EFuy22/z76MBj fC29ZZMQvJi3fiYxTAfpwUWLcYYQrO2yvKA7RYd/tSmziQuCMJlkvjaRgwWq Z94d2UIKArHfyNBUiQW+7raddNQQhAYV6fOWyiwQU8v587mKIIyqTnrYq7KA G0uqT/YuQRA8FBpxXZ16/5jUy++SgnDxaGXvCz0WULx2uN9qUQAYZpourXYs wPqmx0M5UwCcbioGm4WzwJETvjtceQXA14seYx3BAvE7u3TWsAnAizt1mRdf scD7lrpHTxb5ocjPpcHzNQuQb9v8vIf4QTgoXTTyHQs438hKKvzMD8VRm9La v7HAeWzAodGGH0QLBL+Zz7HAgVexN7ak8cG2Rx0dCossMJwVx/Yrmg9ULRMm WVZYgCtkcS7+KR+Y44oSGXRWaJZdpY3f4oMobcOryzysEJm/TWtFjw/Eqh9L R8uwwiKXaePwOC9I9PB4dxuwAm9QQlW3PC9sxDmUrTNYwSj59qDWIhfIm0tt c8tkhSR2n/ILHVyg+HGf5N0P1POrkv6O+VygddGONek/VsjdUeQucYcL7Ou+ 1o6UsEIxf6SsNMYFGfG3L7p2sYL1Jc++lFVO2K/xL9J7HRtk5/7pdBxaA3p3 u1eiXdlg/v7LX7ynWcAg4+/0TXc2ENpPT9+7lwWMm1Z/m15jg12KMWqIjwXM ZaXa+b3YoNCJjaSV08Gh0jL3vj8bOAd88VTdR4e7gn3Ol2PYYNVfjOMxDw55 CQM9B3+wAXNragrt5CqSKRkp6pBlh6curVNreadR9UuuWd8Odth/IfanQ3ce EZPOd8cyZg34qtg8j7y1Qqy/rcOKjDmgsf8Rt/EXHnKu/EZwXDYH0P7/I0j+ H80lLGc= "]]}}, {{}, {}, {RGBColor[0.5, 0, 0.5], Thickness[Large], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ3R0QEv8l66L9oYNPqh7u/L+/B43fS2X+hFH+KH8Y 8QFKlxWw "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["v", TraditionalForm], FormBox["w", TraditionalForm]}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, PlotRange->{{-1, 4}, {-5, 10}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.555136528638377*^9, 3.555136606694126*^9, {3.5551372828951273`*^9, 3.555137339261211*^9}, {3.5551378481403103`*^9, 3.5551378638037357`*^9}, 3.555138172111642*^9, 3.555138280324808*^9, 3.5551389737558727`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", "CC", "*)"}]], "Input", CellChangeTimes->{{3.55238455026399*^9, 3.552384550391252*^9}}], Cell[BoxData[ RowBox[{"(*", "Cluster", "*)"}]], "Input", CellChangeTimes->{{3.552384555671053*^9, 3.5523845570568953`*^9}}] }, WindowSize->{1280, 693}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Visible->True, FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September 9, \ 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 62643, 1394, 2341, "Input"], Cell[63225, 1418, 77, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63339, 1424, 6553, 181, 233, "Input"], Cell[69895, 1607, 44564, 765, 146, "Output"] }, Open ]], Cell[114474, 2375, 117, 2, 28, "Input"], Cell[114594, 2379, 125, 2, 28, "Input"] } ] *) (* End of internal cache information *)