use Wolfram Mathematica to solve the economic problem

(* 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[ 223164, 4181] NotebookOptionsPosition[ 220698, 4143] NotebookOutlinePosition[ 221088, 4160] CellTagsIndexPosition[ 221045, 4157] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "Simulating", " ", "the", " ", "Mankiw", " ", "Romer", " ", "Weil", " ", "92", " ", "Model"}], " ", "-", " ", RowBox[{ "focusing", " ", "on", " ", "the", " ", "time", " ", "paths", " ", "for", " ", "k"}]}], ",", " ", "h", ",", " ", RowBox[{"AND", " ", "y"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Set", " ", "\[Alpha]h"}], "=", RowBox[{ "0.00001", " ", "to", " ", "obtain", " ", "the", " ", "Solow", " ", "growth", " ", "model"}]}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"set", " ", "\[Alpha]h"}], "+", "\[Alpha]k"}], "=", RowBox[{ "1", " ", "to", " ", "obtain", " ", "the", " ", "endogenous", " ", "growth", " ", "model"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", " ", "all"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "Parameters", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sh", "=", "0.06"}], ";"}], "\n", RowBox[{ RowBox[{"sk", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "0.015"}], ";"}], " ", RowBox[{"(*", RowBox[{"1", " ", "to", " ", "2", " ", "%"}], "*)"}], "\n", RowBox[{ RowBox[{"g", "=", "0.015"}], ";"}], " ", RowBox[{"(*", RowBox[{"1", " ", "to", " ", "2", "%"}], "*)"}], "\n", RowBox[{ RowBox[{"\[Delta]", "=", "0.03"}], ";"}], " ", RowBox[{"(*", RowBox[{"3", " ", "to", " ", "4", " ", "percent", "%"}], "*)"}], "\n", RowBox[{ RowBox[{"\[Alpha]k", "=", RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]h", "=", RowBox[{"1", "/", "3"}]}], ";", RowBox[{"(*", RowBox[{"between", " ", RowBox[{"1", "/", "3"}], " ", "and", " ", RowBox[{"4", "/", "9"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Steady", " ", "state", " ", "variables"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<Steady state variables k,h,y\>\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"kstar", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sh", "^", "\[Alpha]h"}], "*", RowBox[{"sk", "^", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]h"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]h", "-", "\[Alpha]k"}], ")"}]}], ")"}]}]}], "\n", RowBox[{"hstar", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sk", "^", "\[Alpha]k"}], "*", RowBox[{"sh", "^", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]k"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]h", "-", "\[Alpha]k"}], ")"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"ystar", "=", RowBox[{ RowBox[{"kstar", "^", "\[Alpha]k"}], "*", RowBox[{"hstar", "^", "\[Alpha]h"}]}]}], " ", RowBox[{"(*", RowBox[{ RowBox[{"also", ":", " ", "y"}], "=", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]", "+", "n", "+", "g"}], ")"}], "/", "sh"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "System", " ", "of", " ", "Equation", " ", "of", " ", "the", " ", "MRW", " ", "model"}], "-", " ", RowBox[{"Dynamic", " ", "of", " ", "physical", " ", "capital"}]}], ",", " ", RowBox[{"human", " ", "capital", " ", "and", " ", "output"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dek", "=", RowBox[{ RowBox[{ RowBox[{"k", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"sk", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}], "*", RowBox[{"k", "[", "t", "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"deh", "=", RowBox[{ RowBox[{ RowBox[{"h", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"sh", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}], "*", RowBox[{"h", "[", "t", "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dey", "=", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"\[Alpha]k", "*", RowBox[{"(", RowBox[{ RowBox[{"sk", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}], "*", RowBox[{"k", "[", "t", "]"}]}]}], ")"}], "*", RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}], "+", RowBox[{"\[Alpha]h", "*", RowBox[{"(", RowBox[{ RowBox[{"sh", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "g", "+", "\[Delta]"}], ")"}], "*", RowBox[{"h", "[", "t", "]"}]}]}], ")"}], "*", RowBox[{ RowBox[{"k", "[", "t", "]"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"h", "[", "t", "]"}], "^", "\[Alpha]h"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<Time path k,h,y with k0<kstar and h0>kstar\>\"", "]"}], "\[IndentingNewLine]", " ", RowBox[{"(*", RowBox[{"Be", " ", RowBox[{"careful", ":", " ", RowBox[{ RowBox[{ "the", " ", "starting", " ", "point", " ", "for", " ", "y", " ", "has", " ", "to", " ", "be", " ", "consistent", " ", "with", " ", "the", " ", "one", " ", "for", " ", "k", " ", "and", " ", "h"}], " ", "-", " ", RowBox[{ "here", " ", "we", " ", "are", " ", "starting", " ", "in", " ", "the", " ", "neighborhood", " ", "of", " ", "the", " ", "steady", " ", "state"}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solm", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"dek", ",", "deh", ",", "dey", ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"(", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]h"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "h", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"k", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<k\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<k\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"h", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<h\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<h\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<y\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<y\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<Time path k,h,y with k0<kstar and h0<kstar\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Be", " ", RowBox[{"careful", ":", " ", RowBox[{ RowBox[{ "the", " ", "starting", " ", "point", " ", "for", " ", "y", " ", "has", " ", "to", " ", "be", " ", "consistent", " ", "with", " ", "the", " ", "one", " ", "for", " ", "k", " ", "and", " ", "h"}], " ", "-", " ", RowBox[{ "here", " ", "we", " ", "are", " ", "starting", " ", "in", " ", "the", " ", "neighborhood", " ", "of", " ", "the", " ", "steady", " ", "state"}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solm", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"dek", ",", "deh", ",", "dey", ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"(", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]h"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "h", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"k", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<k\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<k\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"h", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<h\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<h\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<y\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<y\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<Time path k,h,y with k0>kstar and h0<kstar\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Be", " ", RowBox[{"careful", ":", " ", RowBox[{ RowBox[{ "the", " ", "starting", " ", "point", " ", "for", " ", "y", " ", "has", " ", "to", " ", "be", " ", "consistent", " ", "with", " ", "the", " ", "one", " ", "for", " ", "k", " ", "and", " ", "h"}], " ", "-", " ", RowBox[{ "here", " ", "we", " ", "are", " ", "starting", " ", "in", " ", "the", " ", "neighborhood", " ", "of", " ", "the", " ", "steady", " ", "state"}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solm", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"dek", ",", "deh", ",", "dey", ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"kstar", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"(", RowBox[{"hstar", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}], ")"}]}], ")"}], "^", "\[Alpha]h"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "h", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"k", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<k\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<k\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"h", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<h\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<h\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", "solm"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\<y\>\""}], "}"}]}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<y\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<Growth of y in MRW model, 20 years in transition to SS\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Be", " ", RowBox[{"careful", ":", " ", RowBox[{ RowBox[{ "the", " ", "starting", " ", "point", " ", "for", " ", "y", " ", "has", " ", "to", " ", "be", " ", "consistent", " ", "with", " ", "the", " ", "one", " ", "for", " ", "k", " ", "and", " ", "h"}], " ", "-", " ", RowBox[{ "here", " ", "we", " ", "are", " ", "starting", " ", "from", " ", "a", " ", "point", " ", "close", " ", "to", " ", "zero"}], " ", "-", " ", RowBox[{ "we", " ", "have", " ", "to", " ", "recalculate", " ", "the", " ", "dynamics"}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solm", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"dek", ",", "deh", ",", "dey", ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", "0.001"}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", "0.001"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", "0.001", ")"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"(", "0.001", ")"}], "^", "\[Alpha]h"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "h", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yo1", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "20", "]"}], "/.", "solm"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "20", "]"}], "/.", "solm"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"yn1", "=", RowBox[{ RowBox[{"yo1", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "100"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<Growth of y in Solow model 20 years into transition to SS \>\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Be", " ", RowBox[{"careful", ":", " ", RowBox[{ RowBox[{ "the", " ", "starting", " ", "point", " ", "for", " ", "y", " ", "has", " ", "to", " ", "be", " ", "consistent", " ", "with", " ", "the", " ", "one", " ", "for", " ", "k", " ", "and", " ", "h"}], " ", "-", " ", RowBox[{ "here", " ", "we", " ", "are", " ", "starting", " ", "from", " ", "a", " ", "point", " ", "close", " ", "to", " ", "zero"}], " ", "-", " ", RowBox[{ RowBox[{"-", " ", "we"}], " ", "have", " ", "to", " ", "recalculate", " ", "the", " ", "dynamics", " ", "becasue", " ", "alpha", " ", "h", " ", "changes"}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]h", "=", "0.001"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solm2", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"dek", ",", "deh", ",", "dey", ",", RowBox[{ RowBox[{"k", "[", "0", "]"}], "\[Equal]", "0.001"}], ",", RowBox[{ RowBox[{"h", "[", "0", "]"}], "\[Equal]", "0.001"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", "0.001", ")"}], "^", "\[Alpha]k"}], "*", RowBox[{ RowBox[{"(", "0.001", ")"}], "^", "\[Alpha]h"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "h", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "200"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yo2", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "20", "]"}], "/.", "solm2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "20", "]"}], "/.", "solm2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"yn2", "=", RowBox[{ RowBox[{"yo2", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "100"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", " "}]}]], "Input", CellChangeTimes->{{3.689503125521896*^9, 3.6895031646776047`*^9}, { 3.6895065425571423`*^9, 3.68950663970613*^9}, {3.6895070661346693`*^9, 3.689507157552949*^9}, {3.689507262224793*^9, 3.68950727283181*^9}, { 3.689507513709031*^9, 3.689507552297097*^9}, {3.689507617233053*^9, 3.68950771122738*^9}, 3.689507741819022*^9, 3.68950777807799*^9, { 3.6895078144856653`*^9, 3.689507816103375*^9}, {3.689507910797552*^9, 3.689507953793325*^9}, {3.689508234768387*^9, 3.689508284437852*^9}, { 3.68950835985892*^9, 3.689508392009692*^9}, {3.689508445450548*^9, 3.689508467295669*^9}, {3.6895085002606916`*^9, 3.6895085870768843`*^9}, { 3.689508824345175*^9, 3.689508833161388*^9}, {3.68950888934814*^9, 3.689509024617414*^9}, 3.689509086618531*^9, {3.689509474547378*^9, 3.689509494075082*^9}, {3.689509560239176*^9, 3.689509661354019*^9}, { 3.689509691505921*^9, 3.689509726245925*^9}, {3.689509782756338*^9, 3.689509800810259*^9}, {3.68950984853656*^9, 3.68950991671204*^9}, { 3.6895099964306192`*^9, 3.6895101185726748`*^9}, {3.6895101563177547`*^9, 3.689510161436351*^9}, {3.6895102661308928`*^9, 3.68951054479493*^9}, { 3.689510694977126*^9, 3.689510847540567*^9}, 3.6895109040391483`*^9, { 3.6895109345371437`*^9, 3.689511039869151*^9}, {3.689511158753937*^9, 3.689511231604895*^9}, {3.689511363786338*^9, 3.6895114273140173`*^9}, { 3.689511474442287*^9, 3.6895114937556343`*^9}, {3.689511548186893*^9, 3.689511657311414*^9}, {3.68951170523985*^9, 3.689511724678043*^9}, { 3.689511756100745*^9, 3.689511916672736*^9}, {3.689512100807068*^9, 3.689512131101412*^9}, {3.689527271868021*^9, 3.68952729034872*^9}, { 3.689537938707787*^9, 3.689537987630064*^9}, {3.689538033363871*^9, 3.689538126278061*^9}, {3.689538729741459*^9, 3.689538872416087*^9}, { 3.68953893085273*^9, 3.689539134007227*^9}, 3.689540595073998*^9, { 3.689622133043201*^9, 3.689622159725731*^9}, {3.6896223513848886`*^9, 3.6896223650183897`*^9}, {3.689622458215521*^9, 3.6896225131268044`*^9}, { 3.6896225530651493`*^9, 3.689622555594788*^9}, {3.6896226083826857`*^9, 3.689622729510891*^9}, {3.6896227702785587`*^9, 3.689622833787299*^9}, { 3.68962290679007*^9, 3.689622921099897*^9}, {3.689622974933126*^9, 3.689623320277677*^9}, {3.689623351443194*^9, 3.6896233537473707`*^9}, { 3.689623448173008*^9, 3.6896234881637697`*^9}, {3.6896235522135*^9, 3.689623569254923*^9}, {3.6896236003753138`*^9, 3.689623705471539*^9}, { 3.6896237439626627`*^9, 3.689623754173417*^9}, {3.689623830553014*^9, 3.689623832069187*^9}, {3.6896238768698378`*^9, 3.689623985783209*^9}, { 3.689624026486066*^9, 3.689624093467329*^9}, {3.6896241316506853`*^9, 3.689624140525984*^9}, {3.689624251017816*^9, 3.689624262871797*^9}, { 3.689624292933653*^9, 3.689624417222937*^9}, {3.689961130134192*^9, 3.689961196426344*^9}, {3.689961247626845*^9, 3.689961270949449*^9}, { 3.6899616066549883`*^9, 3.689961794331254*^9}, {3.689961834799423*^9, 3.689961896189163*^9}, {3.68996193724222*^9, 3.689962169366501*^9}, { 3.6899622045484056`*^9, 3.68996232249397*^9}, 3.689962421419691*^9, { 3.689964653997829*^9, 3.689964658259001*^9}, {3.689964692966888*^9, 3.689964745089231*^9}, {3.689964794670685*^9, 3.689964804030188*^9}, { 3.689964845353023*^9, 3.689964862057411*^9}, {3.68996491343953*^9, 3.689965072267737*^9}, {3.6899655365547237`*^9, 3.689965563159089*^9}, { 3.689965759117506*^9, 3.689965764210425*^9}, {3.689965807514567*^9, 3.6899658106396093`*^9}, {3.6899662496903067`*^9, 3.6899663729001427`*^9}, {3.689966449583911*^9, 3.68996646946316*^9}, { 3.689966507411438*^9, 3.689966550350154*^9}, {3.689966651581031*^9, 3.689966656383586*^9}, {3.68996762025666*^9, 3.689967623730384*^9}, { 3.690051782014818*^9, 3.6900517873453608`*^9}, {3.690051839197921*^9, 3.6900518436072702`*^9}, {3.690052070209614*^9, 3.690052086768292*^9}, { 3.690052152279513*^9, 3.6900521938358803`*^9}, {3.690052294730686*^9, 3.6900524351449413`*^9}, {3.69005249767389*^9, 3.690052498289281*^9}, { 3.690052557850008*^9, 3.690052574711721*^9}, {3.69005262233727*^9, 3.6900526246175117`*^9}, {3.690054092750455*^9, 3.690054093253117*^9}, { 3.690054126602003*^9, 3.690054261995051*^9}, {3.690105707260499*^9, 3.690105707920968*^9}, {3.690105803192548*^9, 3.690106087220439*^9}, { 3.690106230955158*^9, 3.6901062680098963`*^9}, {3.690106316064122*^9, 3.690106429677742*^9}, {3.690106551452487*^9, 3.690106553677709*^9}, { 3.690107553286148*^9, 3.69010755667039*^9}, {3.690111166563118*^9, 3.690111183937018*^9}, {3.6901117196384087`*^9, 3.690111788866043*^9}, { 3.690111826546577*^9, 3.690111866767336*^9}, {3.690112005968072*^9, 3.690112080000306*^9}, {3.690112114413813*^9, 3.69011212540344*^9}, { 3.690112173933322*^9, 3.690112215953314*^9}, {3.690134439858693*^9, 3.6901345779101477`*^9}, {3.690134623202731*^9, 3.6901348071547623`*^9}, { 3.690135022621448*^9, 3.690135023204504*^9}, {3.690221753346336*^9, 3.690221838912827*^9}, {3.6902219866177063`*^9, 3.690222009262599*^9}, { 3.6902220782175303`*^9, 3.690222078518956*^9}, {3.69022211976431*^9, 3.690222168081811*^9}, {3.690222231500902*^9, 3.690222234300441*^9}, { 3.690222276513015*^9, 3.6902222784798813`*^9}, {3.690223053651635*^9, 3.690223077398123*^9}, 3.6902231413574123`*^9, {3.690223175040948*^9, 3.690223183442727*^9}, {3.6902236725828114`*^9, 3.69022374173715*^9}, { 3.6902256147475433`*^9, 3.6902256611867437`*^9}, {3.690227405445045*^9, 3.690227435705348*^9}, {3.6902275575016212`*^9, 3.69022764090981*^9}, { 3.690282570158205*^9, 3.6902826402104263`*^9}, 3.690283521577949*^9, { 3.690283873890731*^9, 3.690283890797784*^9}, {3.690283933213646*^9, 3.6902839681671267`*^9}, {3.690284094012332*^9, 3.690284103890341*^9}, { 3.690284137124269*^9, 3.690284157156273*^9}, {3.690284192890469*^9, 3.690284210283477*^9}, 3.6902988090998993`*^9, 3.690298850207852*^9, { 3.690298892531702*^9, 3.690298939476747*^9}, {3.6902995184275417`*^9, 3.690299519235381*^9}, 3.690301403834468*^9, {3.690301490427009*^9, 3.690301506478712*^9}, {3.692642064141451*^9, 3.6926420841987963`*^9}, { 3.692642386354166*^9, 3.692642386824533*^9}, {3.697454387368514*^9, 3.697454388083961*^9}, {3.697454436821127*^9, 3.697454437438538*^9}, { 3.7595166290110893`*^9, 3.759516641065052*^9}, {3.759516682488514*^9, 3.759516684421651*^9}, {3.759517037205452*^9, 3.7595170701565638`*^9}, { 3.759517128332429*^9, 3.759517144834504*^9}, {3.75951723307303*^9, 3.7595172956878653`*^9}, {3.759517353515514*^9, 3.759517553262177*^9}, { 3.760197176194839*^9, 3.7601971765193243`*^9}, {3.7601973952458677`*^9, 3.760197448362316*^9}, {3.760197563914554*^9, 3.760197572403698*^9}, { 3.760197611632513*^9, 3.760197738513472*^9}, {3.760197778351668*^9, 3.76019783589176*^9}, {3.7601978760059757`*^9, 3.760198131043352*^9}, { 3.7601981801329937`*^9, 3.7601982777429447`*^9}, {3.760198349310384*^9, 3.7601983498369007`*^9}, {3.760198382067149*^9, 3.7601983985162354`*^9}, { 3.760198442599105*^9, 3.760198445597765*^9}, {3.760198489475683*^9, 3.760198496752534*^9}, {3.760198529706979*^9, 3.760198688735334*^9}, { 3.760198763464332*^9, 3.760198886896743*^9}, {3.7602036661243887`*^9, 3.760203695201482*^9}, 3.760203783035698*^9, 3.760359721292848*^9, { 3.760359751377275*^9, 3.760359893927601*^9}, {3.791024258844427*^9, 3.791024288734703*^9}, {3.791024345682856*^9, 3.791024346411347*^9}, { 3.791024572003236*^9, 3.791024581013012*^9}, {3.791024713225959*^9, 3.791024802132422*^9}, {3.791024846455881*^9, 3.7910249660463667`*^9}, { 3.7910250054818487`*^9, 3.791025021401188*^9}, {3.791025076440024*^9, 3.791025090486085*^9}, {3.7910251539044647`*^9, 3.79102516455906*^9}, { 3.791025513101467*^9, 3.791025513291276*^9}, {3.791025552072435*^9, 3.791025615250512*^9}, {3.791025680212564*^9, 3.7910257144905167`*^9}, { 3.791025784682232*^9, 3.7910257937261467`*^9}, {3.7910258314362*^9, 3.791025854542921*^9}, {3.791025918202897*^9, 3.791025918906952*^9}}, CellLabel-> "In[1757]:=",ExpressionUUID->"e17d743d-9019-4d50-936e-72a8ea8d98c9"], Cell[BoxData["\<\"Steady state variables k,h,y\"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.791025925025077*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"7bf2f838-60d1-42fc-9727-dbb2f74226b0"], Cell[BoxData["11.111111111111123`"], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925027523*^9}, CellLabel-> "Out[1766]=",ExpressionUUID->"87725eb9-4254-4c49-872b-580cf760faf3"], Cell[BoxData["3.333333333333335`"], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925029455*^9}, CellLabel-> "Out[1767]=",ExpressionUUID->"fea8e310-3f3c-418d-bcfd-fa18e0f68eb0"], Cell[BoxData["3.333333333333335`"], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.7910259250322437`*^9}, CellLabel-> "Out[1768]=",ExpressionUUID->"91e07b15-4397-4ae5-80b5-3b4683edcff4"], Cell[BoxData["\<\"Time path k,h,y with k0<kstar and h0>kstar\"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.7910259250347357`*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"fedc1d91-5efd-4048-8027-06765802fe33"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd1Xc81V0YAHCEiAYpKpWXErJC8hp57L25rmtdrhmyM4uiskKSJLMkpGS/ kUJWQlZJRggNEmVnvOfcv36f7+fz/J7znOesf+w9jR3paGho6mhpaPCXN2Hj QeaR7rPLidqSkpL8UMUkeNTDpVjRN3kyVga5PvBproDLK8VoLa5RBeRmcW9n Rpd3ikHlOUGayK1xPZqLzp8VvW+oelsjv5GNeD7j/Evxn5KjF64ht90c9P7m vKWoO/VzsQ85KjXlza1TNNC4d6ByAFnYRZEkWUwDh2TUfUeQfbbfDPEppIXm bTUjX5E31aRezmVvg7a/meFryFyvg1V+3tgOWhy9C0ek+EG7drv+lPNuOHh4 qMYB+dSW/eL+ud0Q63vb0BU5jse2k09+DyQI5Y56IPvZV/ubNu4Bi4H3vy8g q055NVb0sYHgXs7RKOTxn8N2gYt7oXdxcuwxMs9GVfqGNBe45L/LmUXmyHSc 2xfCBetlLIW/kZkU96qKvuKC6AKhp0vIv8LPT9toHIA/xryFm8gv6Y/L1pkf hNwcT+9dp/nBmjWp/0ogNzSoyCqJIHfslGamt+YB969EOhfkHh321M5QHpha 6Td2Q/4YPct/N50Hjp8Uyz6PPMHwSFV0iAcmHnif8kde3+AMJ1r+A/SNqaJX kIVmV5eKLHgh//Hm7XvIUZ21E2aEY3DjdalIO7JyglrdIwMBYNyy4DouzQ/h 2uUFPecFAJKbHp1AfsnAd2vjhgBwxHRKCSHLhtI4mbQLgN90nYYYsqRrDcuW piDc77Iz+hf5mMopc4KyELwOd1rURWZc5p6lPy0MY8RdCT7IqqWx/WKmwpCV L/rBD/mKx1odyVcYXFdEDwUgb37pv/WsRBiYZ/ozQ5CXu5L+tRIVgfJ6hhuR yN8Kma6WnRAFM6EYxhRkR7G1nad2isNWyUhwFbLu4PWHXEfEQcz89pPnyFLX 9ynQiImDORf7SA0y/Wdx93eG4jB+1FmmDvl+vHObR7I47Mt41dOK/Pln37XC Q6dgqE8kewDZoqh4i09IAuLsfhetIgNR4Q6LnAScGy1K/4ssQP9W9I+OBBTJ esdsIK9YTlk3eEhAR+BRMu0ZfkhhOfyCXCIBCZ+1FpiQe8/FBGbISIJhQHI9 J7KeoOP8fg0psNKc25REXov1rxkmSEEWXVXKaeT82atXc52koMZlQ/gMMn15 3gGJa1KQrbrLTBa5+uw3Jb0mKdhKoNwCZH5Tt6QIldNA4F5+o4tME+YtOaco DXpqd044ID8du7xRaSAN5aSmm47IlqpJLRdtpWEj9N6aE3Ilc5klS5g0mC6o troiuycvRPC/lAa6bc9MPJEHCgL6rOTPwB0NWuFg5NK+i/5vZGQg5pHjdDyu 96qD/biWDFh+n9JIRM6U1jH4S5IB4uttD24ix6RyCYpclAH3ov1mycgUq7Kh xHoZkNbpzL+LzDHxTYWo/S98Oj66Oxf5wh8T9q+WsmBzonGiCteTK7u15S4L g0bWnM+R7c3+meG6JAv18jWa1cj6VbNN2tmysJu/7dEL5BMh0UFPJ2Qhl5Fg Xo/8ke7VqL+HHLhtSV5sQ5ZjFyqmD5OHufbAmUHkTlrSm44EeXixxbk4hEye j/6Ski0PhWFF68PIkV3fOQUb5OHr0nOmURwfXxCux6AA5aXXOCZwPIugcUqs AoiPTP2dxvH0AosnUs+CyWot21/k/Qvmu+fzz4LyDfm/2PlfrgtWPz8LR2b7 vqwjdzR8tdYdPAvpeealmzj+8qNmryOKkDfxVplOhh8KNvhTn+cqgkVoqBwz svPfpIyHRADdCKXY/cjJ+jOvg8gAebp2OpzIdTlqP/RcAIQ4OnZwIXNprkgv BQBwRsVeP4DcmmzdpX4HQML9v0BuZEFRgW3f3gMoqDjK8iJPk2tdhEyUgP08 o6II/r98f8ImSQlyto19x1bd7lXRY68ETVWHkkWR05/w0oX4KIEvU/mUGLLu 2vV7b28qwUzHpUgJ5Ce3jDvdu5RgvOX7/TPIns1fJYv1lGEXw1FPJVwvFLkJ E5Qh9u7HvcrIe2q8HhTYKINU+I8q7GfFq+y5nspw6c+BTRXk36ksv1NvKsPR s9VX1JEvuIk9u/JeGbibUjx0kEP3BAgTrFWgbOtcpylye4ycQ6+jCowsB9ia IR9moEk3PK8CoY/nf2G/XI1i0QlTgVZvkd3myDRf0n4o5qjAhbL36hbIERUv 8wUnVWBnj/09a+QYEuPxDXdVkCxTGHZEPivOuvTdTxV0CgNMnZDnGdhbPoSq QrsrvMUmlhx2fRanCuuM4VXOyMeZTj+hFKlCMndjjCuefwXldNu0KhjmNXJ7 IC/tqVe7c04NKnky5n2RKS0hTqdc1MG3SsMnHNlBnl9/yVMdCpm9OrGdSrpO 1wSowwcHZaHLyC73jjOoXVeHexFTo9jnPd89IOapg+x3ae0I5GBOvrGwCXWg JWvvvIac5Nxm2UnWgOOdJ81j8X4a8lO55aIB7uISBdi3jY6eJHppQMQ/M2vY qXJ+a2NhGiDUGpIRh5y5+8jdxUwNyHvH9vkGcmGV9wfuYQ2IYiaYJiLXbz9g 5GahCTdVBZlvI089ENUesNME9hYSEZsVVFU0zmnCzir5R9jEQM/TfCGa0L3F rpqC/Otb04HBdE3Yx8kWfAevX5vPuPaoJgx4JfXfRQ6Ka/cVctaCJ773SZm4 HoFx91RPLfA19sjGbmxcdmQM1IK0nPlJ7D0bvMTxKC3UtxNeWciPPILk0wq1 4FqQ0eVs5Pf6/Aw7ZrVAtO5Tyn3kU2zhKd/9tMG7pyYxD7maqV+gJVQbdrPz tWEr04jW5EZqw7Ku6bZHyKa/Bj/bJmuDjM8+f+wLHWcEP5Rpw40CTkI+8ovo XzUNv7WhRUVtVyGyJp3t2D0vHWj/lkh8gty9WuEbFKgDoo63YrFJ86yM5uE6 EPDG8SW222i1EHuiDhhtD+F7ihz/cr9fVLEOSFx3n8buC+5k9J/VAb0/KT7P kMl/FIT13XVBbtrKtgx5JztNV5+fLugRIhOxq8UbfC0v6oL//aB6bI7z6jUu 8brAnNLJW47vi2/62hHPdEH4N/8XbPERW5f/FnThbe1zUiU+L28u5/Je1IM/ GQX8z/F5/6qiWXBVD55oTxlhkxgZZ8Ti9eBc6lIodrlKjKRClh5870zqwXZ5 mdRgXq8HM8UvQ6qRu8oejMYx6IP/ZdbmGuSczCbu5Rv6wGHTIPcS3zdWwv1m KfpQfvOgHXbqwVs3yzP1oSZW7xp2fAqZ0adYH9gvq3ZhB8f//TXTpQ86lsH2 r5CNL516Pb7XALZuHAivQ6a3yXDtvGsAzyJ35DQgbx2iPyZy3wAyilfqsdcG zo3EFhqA0cOmcew5MxkTrRoDOHhhne818pBer3zjkAHYGY7lYn/KpGca3m0I XrQPsxuRy+JlB3uMDWE330Z4M7L9vV0M1QRDIJ9gS8dmzx8XzSEZgvUkSxW2 V33MFU97Q1Bbq5jBFl74JMjqYwhHQz4TWpBzLUIC1W4awlvfLP5WfF6Pvdj3 3ztDEORMLH+DrHIqUTGr1xDO3y5ux/6t4OB6rd8QllmfT2AbmrPWmn42BEm9 aI42fP5irBzmZw2h6DuPL3bkr/VSoV1GUC4pL/wW2a9awTBD1wiyOLLj25Er SC10A4ZGELLx9SH20pphBYeZEXSpcNViB8k5HIyzNgIWVYlp7EsvYiaCzxvB ZKK+egfy9Zf9gcREI9inJ7+CndbgnbO3zwhGPsTqvEMetP9rYvDRCKJTWMjY 3NuuMsYOGcHvuAt+2JkqqW50k0YgFLQrA/tB48vT84tGYNCh+RO7qJmlrZPT GMzN/kZ3Ib9qe/g72tIYncPF8m7kUq4u74u2xlA939uEneu0NudFMYYfUvc/ YMfQGfwydzOGVZ3dK9imsivTx0OMQU1ARLYH+UeB9mR9mjHsXrxSg80R/at/ dcAYzGrmS3uRGfsPmP8cNgbuLzP12KvHVD+MjhmD0JuBLuyRutS+lu/GsJ0+ eha7YEWp+/aqMUhmnxXsw++JS3LbqQMm0NHBlo7tqvFvrSvRBNYHSgPeI88K HGgqsTKBjMGD17B9dqy2r5JN4A+TXzJ2aMd/Q9GuJtAqsPYMO9FEZr0g2ATC dMy/Y1fanpH7kW4CookU8w/IdIGnn58bMwHDDQnBfrw+FvvqSydNgLAxchqb VW6xde27CVxavaiMvW+z/GPMbxOgcN62xBaIlFop3GYKT5QEb2AbJEqemT5u CoVsCz+x0/NPVbidM4X7ha55H/F9MkBpzTpvCnNiFiXYCztSBnt9TCEmV+EF to7HGq18iCkIxUx2Y6+deq3PGmcKH+JK17Etaky/FT0xhbQMHcMB5P2dAYdm 50yhgfT2F7byVoEo76IpXDDxXMU+Lz6kRFg1hcpi5m2fkJuT0JVDawZ29f/s x/Y3Z66IZzcDnoRROey+0TR9MSkzoKF7cBX75p/ay14BZiCv5cs+iPP1JNpZ hZjBPm2Hg9i6JRQlzTAzqB3S48Vm9GSm5bluBi5dOySwQ3+Yhr9LMYO6LGEj bKex6UuilWYwZ7wvHlv+3YHQmQUzsCnOoxtCPvB0xvLjihnob1YwYy/FvZJr XDeD+LyXe7BLtB3/3qMnwLdDL45g8zc/C9bhIECWpossNlutRlChJAGSj8R6 YU8V+l9w8SHAfTL/R2zC4c2R/AsEKJn/M4LdlHBN43swAazSqyexc/3ucJ2L IICOjeQfbPuzz6vdkgnA7Nu7cxjv3+71zfOVBIj72qeE/X4l4rr/GgHc1Xc+ xFZ1Y52r2CTAaSbWx9jlw8nEJTpz2FVBX4Kd1PBQMIDFHAImv7zANoxreRvI bQ4FZ0h92O1HWfaEnjWHNbOTdCP4/VZPSr1yxRwiDl+1wJ50qukIvmYObOBj g814fYLON8Yc9j4mUbA1W6Q9KEnmsOB22AO7XWNQSfW+OZTtdQvH7tU8Ns3Q YA7u74TysMe1KxWiaYkwfJc0i01r8Gk8IZwIjVLePp/xfn1pxucXSQTeZMUL 2Imi3RRiFBEuXdgRjM2zq3WCJ5EIzzpvX8aGjoqpkiwi+O+PSMQO17n5o/cl EdQNqp9g02hq/ubcIIJs45NJav6q1xLrNBYwnsr2nZr/hKLvKL0FhKv6zFDz b5deyGe1gCMnhf5Q8zfzLf3LbQHEMD+aUZxfdWvVUs4CYhP8D2LTKFXSZgdZ AO8TOV1skurXto8XLcC/O9wAu1yDK5ntigVUZDcYY7voB/NHxFgAWU/eArvb 8qyO0z0LOK3A5IR9/0JzsnCtBeg6MoRhqxZ9OPGchgQ92kVPsTOLt8/P05PA XftGCfZKqUy1EDMJ+Mlu5dhFz9N009lI4DJ4pBp7X4uNdxgvCew8KU3YU2NT 1WqqJHje4DyIHcW5rNdznQTtCl4MY/h9a2390hBLAlXjd9uxs4LSgsoSSDAs KrwDu3JQ4WHyHRL4aHzehT2ZFblOeEQCkxMnubCVBdgfDzaTYF3IUgh7XUaE aZLBEs7HCOhhM/3YzHjPbAkqzKoG2HvvdUk277QEmyhrI2yhDV/bR/tQfHyM GbZFfXWl63FL4Jput6aOr6XpOKtqCTmeCx7YXiRKw3KEJXDMforD3pX1Y1Q+ yhJSpsfisYu+eG9djrMEnp6pROyv7uHyrLctQZHyIxnbJiyjkifPEqT7PqZj 6+b2F2q1ovEnTYuwBWZ1bt1jtYI1jqE32M0SvSWje6zg0nLuW2yHAFLX8X1W ELPbvYPaLxrXnc8OWwHf1EIX9v691643ilrBCGG+H5tepi7kp6EVuCSlTGKP XZZyULxtBYTu9C1s/v274r3uWkH67AnaceRzhV+rcjKsoCishA57oSeNhT7P Ctro6hiwmY7RlrVWWoFCeRsLtmhzB63xRyvg2LzDiR28wznL4ZA1qG4eEsXm uHX3U3SONbCocZlj73i/t9vnoTV4dUsTsWk441ssC6xBx8LUAvtn2pVykRJr sLCJs8Ruvu8W311nDSnGc7bYgaUKygdGraEkOsoFe7h7rCD/iA2IULYCsfv2 WmXf5LUBls7NIOw2sw8pwfw2wKW7EYxdOdAWoStqA/9FLodiJ46VWc8p2ED/ +mg4tvL8VTYZaxt4+DQqCjtvj1BQyz0bOKslfoc63ymLFfpsG1Ar4U/FrqqJ DlDOtYGmI9x3sVudvvvXFtnA+k76e9g/XuT7lNXaQL15aya2iOsJ96zPNuDr zpeHXV5/zDaAzxZ4/xUqx5a/YzpSfsIWgo5vq8Buco+0/n3SFm6cHqT6A+eE pYeULVQ0RlVhL3s8IFLUbCH0+UA1tuxBXmMDZ+Qek3rsep+jaice2wI5/GkH 9trir0TuYlv4OU7uxJYKqhtiK7MF+nT2d9j5YXZ+69W2wMPh10XtT9yDB91t tqAmLNaLTc47QRf6wxZ+Xbz2EXtr5o7tNw4y7C2vHcfO5MnmVjAlA/+H84vY u2JOtYoQyFCQt0J12J8G3yNEMnxbvrxEzdc82bZlSYb2I7eWsXndTwY1UMjg daN4ldr/qsr3Gr5k0Hbp3sB+qt8Rb5xEhquTLxi+IB/5z0ZWJZkMx4bOMGIn /DM3KZlChj8OpVR7LbAr7Esjg5FY3nZsiTTidH8OcmUUM3bl5BcN6xIyRGyX 3YldG7pG49JFBqsWPQ7speKpuSs9ZIhpb6Ra/EvPaEYfGYTM5fZh52o9ruv9 SIbuTf792DH7rcIVx8hwKm+FE5vwrHZr/28yrLdePYT960v4ZtNeOyhf1+bF /kdn+zqfuR3EsmaKYqvbhuezWdqBhqa2GPY531XTLRs7WNNbpLr83vSTT052 UNmocYoaP/PO9uYFO7hcOyJJjb+R+nrzth2EtffLYMfnsHnN3LWDNFmff7HL KmK4P2XYgUM+iyz2+nCof8VDOwhIlJOj9k/U7oR7hR2kzCUoUMd7Jxg70Ifq kWdRxnYLINYdGrCD/LwcqnmPXl+0HraD3iFpFer/5ydsxyftgLnSWpVaz84s qeklO7C3yVDH5tHhGFnnsocLaVPa2HHNm+I81vbgYF1ijL1wqFPioJ09pAsd McG28s6Q4nC0BxGRGKpFuOVlmDzsgfOTrSl2p3eQ4lyoPfAz0xGw9xxe0KtL twdWDz4L7Fu+38+Rh+xBfmvKBru0Vviq8IQ9jAUk2mJ3bffKWpm2B123M2Ts XelLvYl/7aFp6qIddlTjNoX6gxSwEZ2lYOft0jC/wUsBUkikA3YTMcbbQogC VbFcjth0P/fkzf9LgW8HZZ2wQ/cd2c1rQQHFeYoL9qtr7bJ37CjQF7dANd1K sBPrOQowDF9xxb7+qb92KZgCN9+knsNOyrrp/jadAg85H7tjFwgytPmNUqC2 1deL2q+GCZOzcxTIfKrujQ1WjcPbaRxAMprDB/tjfMR82lEHCOHO8cU+JkAJ cRBzANH3tn7YnvXKDKKKDpBy5YA/NuMC7YF6GweIrLl4ATttsKppyNMBNI2k A7BFX3v4rIQ7wMO1b1QTkgbeij1wAP4o+SDsH0EJgTrlDqDjPkz1JTu1485N DsDkEBiM/Ui85FLmVwfQjk8PodZHeEY8t+IACvp8odhMF4slpJkdIYGYS7XL mydTHUKOIHM27SK2oH2h/oaHI0R6k8Ow93M/dTa54Qhh/Hzh1H5+KAkvKHIE 5YVPVM8mVNzdeusIbz9dv4w9qPW81GzaEQ59EryCTcx2ZTPc6QTOYh1Uf1g6 4KUt5gRMZZQI7J4HwSKKvk6QM+ITiT3kLD6/nOQEPK++UT15cqr8WakTZMpZ XMVeKTOS5/3tBLeZhK5R1196PNBU3Bmc28eo3vrPp+LaeWfg7o+8jv3Qz+oi bakz6P/ii8LWEVdXC110hrd8lVQzt8j2+0q5gPW8RDR2i7WYq5uvC/gO5lIt u93wWcVzF9i6zxmD/fSZ1/LWlgtEki5S/T9HOSnj "]]}, Annotation[#, "Charting`Private`Tag$36609#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"k\"", TraditionalForm]}, AxesOrigin -> {0, 11.100000002720192`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"k\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.7910259251320972`*^9}, CellLabel-> "Out[1774]=",ExpressionUUID->"dd571ff2-e703-4ddc-922a-5e88aaf2ec34"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd1Xk4VV0XAHCEJCGilEoq4SuR4ZVxmYXMw3Wv4brmMSGzkMqYKQkZEgrJ PBRRhKRIEQqFTFFEyJhvb3+d5/ectddZZ6199jlGuaRvS0NFRVVDTUWFr7xx mzmZRz7I9Xxa17haxgg1DAJHXR1K5I8WxX/zQW70Lc7ld3gh7xdz2e8ycqvw ZXt6h/fyZ/ayvLBBbov5qL5k/00+RfBZgibyG6mwZz/t5+QzKa26B5HbEwYu T9lvyTOLR7M8L2WEiJTkN7dFqGDzhhOxGvm0gzxRtIQKst+UFJYie+xMCPAo pIb7BANSHvI/FbGG3/d3QNyo7kYs8oFX/kq/bu2EWean/1kja9Tv1J6wZ4E3 CzaXWZBFtihLnL9ZoO9/V+Z3IcfwWHYel2GFpsc8PrTIXpTaK4bNrJCgIXJ7 tYQRlCfcm6t69sLTmLg9Y8ijv4asfJfYQVUhl74WmWezJn1T4gAwx7aMOSLv y7T9zRFwADwX0/fYIjPIsysLvTgAPja20mTkuRC3GQs1LuifrcwzRm6gPSn1 0uQguEW/qFRCNmdK7Lvmyw3Evl1PjyB37JHYRWvOA8cMe4T7ixnhoyZbSmcg D7AwGkj0IPdHzvKlpvOAPUe6fBfyGN0jZaFBHtjiDjZvQ97Y3B9CIB0D6+t8 rU+RBWdXl4tMeeEDYVItDTmis37MyPgEzB0KWbREVoxTeflIhx/0dryVXnrC CCEalQUf3fjBeR+/wAJyA93x25u3+OGaHYVrDlkqkMrO4B0/vHtrQ/MDWdSx bveWugAM3SIuDyKfUBIxMVYUBLGIz9YtyPR/uWdpxU/D9P4HSinIyuXRfWcN T8MypTP8DvI117WXRM/TcGY4vDMR+d/3vtulZadB5VKK9S3kv12J582EzsCi 24/H15CnChluVJwSgvS/khWuyLZn1/aI7BEGSiLhlgqy1kB43oEjwuAjyDyt iCwWziFLdVYYGDYvXQBk2m/CLu91hUFV9QyrNPKDWPt21yRh6OJSqBdG/var 52bhIRHYb0e5zY1sWlSydVzwHBjn3Dm8XMQIQJC9u1v6HHj/q27/g8xP+1bo j+Y5yBUW9Z9HXiFNmDe5oviIc8M/kZN3H35OLjsHigyMbd+Ru52ifDMkRaHB mpbuI/JFAdt5TjUxiFUR5y1FXou+UjdkLAazWlOSxcj5szdu5NqJQWKZg14R Mm3lQ65zN8Xgy7W34fnItXJTChdbxGCmd3ZXNjKfoXNimJI4nPpAoCQiUwVf Fv0tLwEJbkdMvZGLR0I3q3UkgMHv1kMvZJJy4usgSwkIpKQueSBX76og7Q6W gLim0JRLyC5Ji2F8DRIwqe4074D8ucCnx0zmP3BfU50lIZf3BF15IykJLnq3 dynhem/YUEYvSIKnkbu9AnKmhKbOOlESxE6utsojR6UcEDgTJAkd7vTRMsjW ZhWD8Y2S0Fn9mU8Ced/YlBJB4zzQ9DQ+FkD2/mPANkmSAjfhhuG9uJ5cqa0t FylYYJhyZ0WmGB37eeCqFKgoxdCwIGvXzLZo3JcCBnY5QSbkUwGRfsVjUvA9 +Ug0PXI/zYvhK67SMDobm7D+mBGk2QRLaINlIKmP8dEEcic18U1HnAzQ3brj OI5Mno/8nnxfBugJ5DNjyNe7fuwXaJJBcyh9OoLjYwtCLtLJgoIA59dBHL9b QD85WhZ+nmukdON4Wv6lUylycH8ftUYjMueiCct8vhwIsk6KvETO/x4uUPtM DgY1Rw6+QO5omjTXGpADxl17fj/H8aGPWt2PyMN/zn4FT5ELNvlSnuXKwwPL ZK1SZPv1xIw8AkB9Z5PhfeQk7Z+v/MgAfQ1ablnIL7NVpi86ADhXFkdkIh9Q X5FY9gFYO/v3RTpyW5J5l+pdALepUMlUZAEh/h1TnwD2v+rQTUSeIdc7CBoo gEGaD9cNvL6SM+4fUQGE90RoXUdW3ule9ZGC7psRQsKQ05/w0gR4KMBysPh0 KLLWWvi9twkKsHW5q/Uq8pPb+p0uXQpwwZA+xxf5UuukaMlFRTCzTR11wfVC kfNpY0Vwv0t/GJu1zj2nwEIRWrdkCM7IpSWrbLmXFIFJiuaDI/JCyu6FlARF yG/ue2uH7O18tvTaJ0WILlkbJyMHsvqcNjZXgh9L1x8aIb+LkrbptlWCdyO3 VgyRD9NRpeu6KcFgmJomdsNqxG7NYCUgaLcv6CNTfU+bls9Wgtia9Qu6yGFV DfkC40pgXxZwQBM5ikh/ctNFGWyXLUQUkOWEmZZ/eCmDJ7f1A0Cep2N73Ruo DGWH5tixCWWHHUtjlIH7ZvqKHPJJBvEn1kXKoHRGrk0Gv3+VtXj7jDKM3jse Iom8zNqoctdJBbrkfmgLI1u/DrATcVCFY+29useQbWT4tJcvqQKF12iUB9mu rEu8zkcV1jKlvLAd7p2kUwlXhRGv86lHkd0uvc8hPFSFiPnVycPI/vuPjwSP qcL7iuMpB5ET7dtJnWQ1qNd7Dfvwfhr0UrrtoAYs/a5f2ZHv6B39H8FdDab3 uQdip0h7rY0EqwEP5eYzNuRMliOpS5lqwHpw/r+9yIU1l3u5h9TgRcAVFWbk xp1ces6m6lDX/+s+A/JEjpDGZyt14COsK2AzgbKSmpM63NF2+L4T98v3kvjx AHXwVrU8hT031cI1kK4O0zM1FXR4fu0eoxrD6sBAahuiQfaLeecpaH8BdMUZ rmwWonr4R11S0NEf9dfsGHZz819bet8L4Eym79xAZt3kJYxGXADWd0b82I9c /WTSCi9AatLQ8BryJ20+OsbZC8AmqWK1giyyNyT5h5cGhBEPZPxBrmXo438d qAHp6+oEbEUqobrc6xrA41TLjm04N/DNMkkDpt5aRC8ge3f8J9BboQF7nR4F zSM/j5yra1rQAPOL9G5zyOo0liP33DWhMsklcAb5w2qVp5+vJjiUq8tjE+eZ 6E1CNCE91IIG23m4VpAtXhMY9CQip5FjGzi9Iko0ITggPvUHco9/J/2VWU0w /lvbPIlM/iN7WttFCzYk9ZTGkPewUXX1eGnBK1UHBuxa4SZPUpAWtHrWdXxH 3uemWucQqwXPtTlMsdumtDXCSrVg7V+8xyiy8FdLh6eLWkDc9CkdRqZ6E5rL G3QRYjmvGQ8hP5lUUi+4cRF6D5XzYhPp6X+ejb0I/MT9c4PIlUpRorJZF+F4 XkgEtkNDYpNJ40VgdG6rH0DuqsgZjqHTBknnDZEvyNmZLdx/b2nD8oinfB9y utnpPqNkbVhkqGLDTjl4O6EyUxvoe3knenE/ksn0HiXacCMh7Ba2f+z63M8u bdAbMPz6CVn/qsirUXYduMB4NKIHmdYiw7EzVQcmo+XXPyBvHaI9ceaBDvxg e9eNvfbZ6Wt0oQ4cdgspwv5tJGlwoU4HQqjJFtiDF7tlmgd1oFNu+VUX8pdM WoYhFl1I4zdLfo9cESs18FFfF+yslo07kCn3mOlqjXVBevGmBDZb/qhQNlEX lnvFObHdG6OuXaLowkPG2U/vkE8vfhFg8tCFmPvNxti5pgG+Kgm6UC46a/4W OenEc46n73XhjJVu6BtkJZF4+axuXbh63sUGe0HWxvFmny5MBjxQw9Y1Yao3 /KYLz1csmLGZosxs5md14W86R0Yb8vW5jXJBZj3Qem/34jWyV62sboaWHpj1 0+xvRa4ivqb5rKsHPAy86y3Iy2u6VfuM9OBOnPk3bD9pm4Mx5nogLCmQj331 edSYv5seJC+wSGOHN/T5EuL1gHB0h10zclrT5Wz2Hj3wXHj5vgl5gLJuoNOv B/JHJGqwuXfcoI8e1INmieZM7EylFGeacZTvpaAbdk5zg/j8kh68O3+EGbuo dXd75359ePzppn4j8ov2vIVIkj5ckcv++QK5/EDX5SBLfXB2c+/HzrVb++1u rQ8++frN2FE0OnMmzvoQsaGTjm0otTJzMkAfIt1PX8SeLtAYb0zTB5opi/IG /L1EzvWtftYHx32yUfXI9H1cJr+G9OEOSccXe/WEcu/wiD7E1HrYYX99mdLz +oc+JIb+VMQuWFH4cGdVHzaCCzeeI8s5JLWLcBmAXKaiJ7aj2vl6R4IBcJK9 XeqQZ/m5WsrMDGCk8TwJ24Nx9d0q2QD6ppk1sAM7ng5GOhrADqXZU9jxBpIb Bf4G8Gjk6lgtcrXlf9LT6Qbgfq2XjE3jK/7MacQA6NW+2D7D8zHlaCwfN4D2 X2XG2EzSS21rPwwgSShVDZvjX2V/1AKqTylZAJv/uthK4Q5DYOK+MPsUWSde 9L+Zk4ZwN/e6P3Z6vkiVs5Mh3Pk8k1GDz5PP1m1ZboZw/UR/PPYiY/JAt4ch tJd/CMPWdF2jlgkwhHCrn47YayKvtJliUP7QBgls0zrDqaInhuCa+OZjNTJn p8+h2d+GsKDDtQ9bcatAiHfJEEQ2Ehmw3YQHFYxXDUH6zIHNKuTWRHTkUBvB wLjyBPYVk11VsWxGcFeQ7xl2z3Ca9lkxI+B/t07GTvhTH+ruYwR5UPq0Euf7 GG9lFmAEVpXnSrC1yqwV1IONIIOlIQ+b/tIuap5wI3hkMZeIHThtGPI+2Qie 3KpzxbYbmbkqVG0EQbl/TmDLvOcK/LloBCLmxakVyFzFP0n9K0YwriSfgL0c 80K6ecMIOnn7I7DLNGzX79Eag+njY77YfK2l/pr7jGGRg90Ee2+9ml+hqDFI tTpwYk8UXvF28DCGPdKP08qRjQ//+5rvbQw8l6ITsVvibqr98DcG70nPKOxc r7sHnMKMof2quT82Re5ZrXMSyiebSMT++mHjn1u1MQxE+XFjf1oJC7+yZgzC wXQPy5CVnZl+V/0zBlGvoUzsyqEkwjKNCSiWP7+LndiUJ+Cz2wRq5uIjsXVj Xr/15TYBv7o4V+x3R3ezBsqZwPL8sAR2s2piyrVrJvCzJrezFHncrq7D/6YJ 5FE3t2HTh4/ReEaZQPH8VBO2+msJV+tEE6gqUarBfqc2oKD8wARyWGXuY3er n5ihazIBp05RT+xRjWrZSGoCsAcdPIxNrfNlNC6EAP/9zQguwfu1wei413UC 3Li1LwA7XuiDNSGCADR6cd7YPMxtYzzxBPiln+CKDR1VE2VZBPCebiVhh2gm THc3ECD70ZIkNpW6+sL+TQJkGGouF+P8Na/ObVCZAr+vwgJ2/Cl5z2FaUxCz kZ7F5tkpsZjPZArnI6UmsKH1+PJ5blMYLbbtxQ5R3lolSZvC6iOXGmwqhWrq +36mcE3zVCA2UXmyvT/IFOySFX2xK9UOJO29ZgqGX628sB20/fnCokxB1qjI BfsDSU7T7p4ptLu5m2M/8G5NOl1vCns6yuSxlYt6Tz2jIsLZA5v02JklO+fn aYlAIxO/A3ulXLJWcBcRjAb5qLCLnqVppe8lgss1i9Un+Px4bXE5mJcIen+W Z7AnRiZqVZSJcLSp9QN2xP6/Fz+GE2HHkbdZ2Eltbd+boomQbb6ajp3ll+ZX EUeE28qCadjVA7J5SXeJsJMqKQl7POv6hvEjIhgu3IzEVuRnezzQSgTSrylP 7A3JMwzjdCQQuB6rgc0w/S/j0y4SsNzbo47Nfq9LtHUPCdY54lSwBTc9LR9x kCDobCpgmzbWVjueJIFC9RuJ7edfULedVSZBsXTacWx3onXT3zAS8LtO/ytC Zs6aHpaJIEGrzbUN7KLvl7dCY0jANMi9hj3pEiLDdIcEn+RMl7AtgjOqeR6S wDVqbgZbK7ev8EIbCUZG4j5j889q3r7HZAY7MyOrsVvPdZcNs5qBdI9zJbaN D7HrJIcZ2AjplmNnUTnuKT1sBsFqR4uxOdlvhjcLmQHXQG8eNq3ky4BfumZw dq3gDvZIqJiN/B0zOFfY7Y3Nx8kc655qBmyZW17YToWTNdkZZkByPuOJvfgx bTftQzNwiY69hM1wgrqirdoMrpfbOWALtXZQ6/ebwfkTrkRsf0b7LJtD5sDb 3SqP/SIT3tw5ag715YJy2/WIHvzTetwc/onHy2DfInWoCpw2hxoe8nns+0Wi s79kzIGKwC6K/VqbStbHwhzufmrhw953O/VLZLY5zEjqsGAzfmL/4JFnDgHJ G3uwqfbHviYVmAPr/x4zYf9Ku1Z5pswc6pZ2M27384Fz7IeX5iC9MkCL7Vsu q8g1bA4b05Vrj5GHPowU5B+xAANd5UnsHnaz+wm8FrC/l3MCu92oN9mfzwKu eE+PYVd/bg/TErIA7x13RrHjRyrMf8taQKH43yFsxfkbeyXNLWBJdK4H+yGr oN/rexYwRX70CltownSF9r4FTP+63oRdUxfpo5hrAS151o3YbXY/rtQXWUBo wokX2NPP8z0q6i2AdL6yFvuM4ymXrG9o/btd5diVjScsfY5bAi/nzWxsmbuG XytPWULRu5v3sVtcrpsv/M8SuiMjsrB794+RXMUs4RJ7XAb2X9ccgrWKJZxV zk/FljrIq69jbwkbhxgTsRs9jqqcemwJS6+uh2GL+b0c3FthCeA0GoqdH2zl tVFrCUHiSiHb/YjJyfnQbgnZJ5iDsMkPT9EETlsCub3NG3vr513LqX1kYCG+ c8LO5LnPLWtIRv+5cUPs4D9NnkcIZJCvzjHYXt863r5FIkMWo40+Nq/L//ya rMnAUTqjs93fmupPap5kyCBxamIXa3fE6ieSwTGnRwE77tjvcdFkMvAMVQG2 +yKbLEcaGYKOpMpjn0sjzPRlk0E5x1Z2e77j39XMy8jwgZfzPHZ94BqVQxcZ AiZ7hLGFv38czughw4t/L85i5154/LK7nwxqxCdC2FGcZiHyI2SwaI89jW1c Wr/FuUAGPloXfuy57yH/WtitQDYqmgf7mObOjeMmVpCpIMOG7eS5arhlYQWH jItZt+d7b+bJFzsrOMLFx4Kt+vO9ZYK3FZwW5GPajr+V8urfHSu4s2hDj11R FcX9JcMKvFap6LA3hgKvVOVZQdPj7B3b/RCyOuVSZQU8Kb+ptvO/F4j+3GMF B/5rXi/E/T0avmQ+ZAUixU5r2HFuY5aj41Yg2Mm5iu20J0tsZtkKqIuDl7F5 NPd93ThAAUGPhHns2LTL6qHHKCBQRfmNvf6js5xOkAK3ZyTnsHsjIsOZpSkw 2/fnJ3ZM6z9hHnMKPBTNnsI2u5whts+WAopMBZPYZ7hlJBlcKcCSWjmB3XnZ T/53IAWsb/SOYbMeXrz4Mp0C3TlKI9hlHiJG+UUUuFJ86xu2fpubWfxzCuyZ /z6EfdvzhxN5kAJV7yq+YHftdM9amaGAc5f4Z2zm9OXu+HUK+Ea/6sOOaN4h 23jQGs53UH3CbiFEXTYVtIb6hyXd2DS/WB/On7cGqSGHj9iBHEdYeE2toY5+ 9f32/RV/OyYnazgWUt2JHf6lr37Z3xpaoq52YCdmJbi8TbeGl6mn32IXCNC1 ew1bg7zNYis2mDUP7aSygdqIky3Y/bFh82lHbYBN3O0V9qVGRToheRtQdexs xKZfpOZqtLABk5OqL7GFXrl6rITYQMn9mgZs48TPb8/m2MDOBuV67KtWKift W2zAKuhXHfYj4bKrmZM2UPe1rBabIajknMQuWwgaTX6G7fDmyUSHoC2IFMY/ xW7jKEqz1bKFif6UGmwBSqH2pqstLLqWVG+/f29ZSEGRLZorbxX2wIVn5UYz tjB1+3XF9n5Y5nLXOGsHm4ciyrE/5vifkfe0Awk7vzLs8f9NVJaW28FBjuRS 7JUKPRneBTvIbmkv2e63xKivobA9/Gk6uO2tpx5VN93sIe9jaDF2npdZEHW5 PXy3nHuCrSmsqhK4ZA9uqU7b3vVaqs9TzAG+MawXYb82P+vo7OkAh5nvbltq p25p1TMHeFIktu3iUve/W1sOwCg//Bj7/7wJXas= "]]}, Annotation[#, "Charting`Private`Tag$36685#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"h\"", TraditionalForm]}, AxesOrigin -> {0, 3.333333342343285}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"h\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925235845*^9}, CellLabel-> "Out[1775]=",ExpressionUUID->"c0de8f5b-4407-4509-9e6e-d611b6c90b7f"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd1nc4l18UAHBkhYrIKOGnrJLISObB1977a39t2avMIgohJCGJFJKGzESE jJIkMorKzspKVuR3b3+9z+d5z3PPufeee9/3PwcfI2cKMjKyTnIyMvzkTd6+ n8P1UUG5/+OB4mI6eE4rxO3lVqL4nvdCVQ1yY/DTfEG3V4qsAYGa75BbRf1c qd0+KNILiyrNIb9J7Nb47fpdMWZnMOjEIzp4KxP9Ys51QTHnMYnhCXL79UG/ KdcdxUOs7yTyHtNBXGb62xtiZKAoPLBdgizspmgpXkIGbhd+Vtcj+9NcD/Mv JgeKUV+qIeS/qhL1i3d3wY7w7Y0DT+iA/XWoys9rNGCTfMk6FlmrjkZv0nUf CGdFuZCe0oHYjsNv1sV98HxCvtAbOZHHrvOIHCMwRp/vD0cOdKg5Z9LMCPYy OXtvIRMmfZsrPzFBp+6Fj13Ioz+/2gf/Zob0XY6V8iV0wLP9PHtbih0CTgWZ 7XlGByw5zosHwtiBqs1khAOZVpGZIPKKHbZTXe34kRcivWdt1TlgvMheUhG5 npJPpsH8ICyVcWj5ItswpPZHBXOCdIAgbxfy+z1SuylteKBo+cxkTCkddGvv z+wM5wFX6kLJ68gDV+f5b2XzwO1KpbDbyONUDwgiQzwQpyQ8XYK8tc0WSbT6 D/yudRgMIB+b31h9bMELXhMnzAXK0Hp31o2bmh0F20fakfXIysmqDQ/0BaHS VutQTzkdRGpVPOz2FgSyaJn9g8j1VEdubF8ThJjIV+RjyDLhZC7GHYKwNZvX vowsfraWfkdDCFpaLlDur6CDoypi5mbKx0A8SZZLH5l6jXOeUlIYPtdxszUj E8oS+k+aCAN3r+SJd8hRXpsNlgHCcHW2RK4b+e9Y/41npcKQsDmtPoy81pV6 xlrkBBSNHmfcQp4qpr1SLiAC4vTKXqcq6cD55OYesT2iwDnEcikLWWcwtoCd SxQidirM85AlYg/Ik50UhV/xbgJFyJTfRT0/GIhCtQ9/WSXyvSTXdq80UYiO aznXhfz956eY4kNiULDeU0tZRQcWj0t2jhw7BZ43nvq5IQNRPoNeFplyJcgb WZDyncgv7VPwLY47OBB53WrSpsnrFEikKrlEIqfTH35JKj0FPkx2mxnIPe7x wXekxSGE3YOmFVlXyHmJVV0C7Aalxw4/p4PNhHO1X80k4HTjeD8vctH8lSv5 LhKwzD/RJoBMWVHIcSpGAgqP/rolhlyjMKWk2yIBYu9KqVWR+U08UqNVJGGo V5DaA5kswk98UVEKWNzPV5cjPx25tF2lLwUR73W4q5GtCKltF+ykIFb196WX yFW7y63oI6SAgr9DpgXZM20lmr9eCtrjd0L7kD8/DPpkLXcanqzMSq8jl326 cO6ttDTodxu3Slejeq84OYxqSgONVj6FPHKOlLb+H0tpuLHvrowScnwmu9CJ C9Iwf/HJHU1kR+vyoZRGaTjT/kjUEpllfEqFqHUG0vO8k0KRz/8y3v/DSgaU wjKVq5E982V2djxlwOhI4lYtsoPpf3PsF2Xg/OFHZa+Q9Z7Pt2jdlYHH1KHM bcgCYVdDno7LwPX7zQ96kQcoXg2f85KFK3UmXMvIsvuPlVBGyIHR0RwbwRd0 0Elu+fZ9shy4vvuTdhyZtHR1LP2uHPQ2H3orgny5a5pNqEkOJL8/E5DE8UkP I3Wp5EGb6ka9Eo6nFzJKT5CHQ6WGZpY4nlLwt0CmAiRZXFO7isy6Yr5vqUgB NlpYDiciF43FCtW8UICLtF2LScjvm37Y6AwqgD4sJqfh+EsPWn25FKFllu1B LvLDbf7MF/mKYNyvQaxEdv2TeqeACDBUMvH6G3Ka3tzrEBKA0UgVxwhyQ57q jK4bQB0j0WsMmV1jXWo1COBoGPPeKeQ3aTZdahkAIxtPJJeQhUQEd031AuTJ y3LvqqGDWVKd2zFjJRD14nDjQ2avYE3+a6kEYlr1YQLIBBrfym4HJTBv8Lsm hJz9hJcizF8JBFwYHp1A1tmMvf3uuhJ8rpH/IIn85IZRp2eXEnSJj71URfZp /SFeoqsMnF5vzjghN8BjD2EzZaA+aCvjgsxY63v/oS16f2hG2g35WcnG/nwf ZVAP/HnSE3k5k34587oybP4ZpApEPu9x8llUrzKUHRc2jkYOZwwSNrNRgbcZ 3FF3kTviZZ16nFUg72aE6j3kw1Rk2QbeKsDncoAmH7l+I45eO0IF1pSnLz9A JhvLmlHMUwENNXuPp8jRlfVFQhMqkKy+Z6IWOd6Smm/bkwAGn45n9CIriDKs TgcSwGfvKbp+5CWq/W194QRY2j0QNoBMLD189lkiAThbaa0GkfloJZ84PibA wS9Hdo/g+Vc6SrbPEkD6XCjfHPIqY6NqhrsquEh+dyWvReelLcxFzE0NfPpj DQSRneT49VZ91GCwwNRHCNmltEuyNkgNbLbZrh1DdrvNR6UaqwaaphdbhJG9 fT7cJxaqQaTLspAYcijbkZGIcTXwUAtqOoOc6tpu1UlSB0LY5mkt5LShQJUb buqw8UDptDbyTUPu40RfdWjZzpLUQc6UDdwciVCHnoTYk3rIOfu4bv3OUQdp ShK7EXLxc78+zq/qkLDRUW+B3EjDYehhoQEzJQlObsiT90W0PttrQNAypdVZ ZAYgqKi7a0BvboyBOzIx2EfySJgGHH1ZKO2JvDDVwjGYrQGDUf7bPsiH2/1H tYY1gC12yyIIOSSxI+CYqyYI2m45XcH1CI56ZvpogsAVSYUY5ObmNWfqYE0Y 477BGovMuM1LHI3ThCdir5rjkB94hchlFWuCjd4v1kTkXj1+Krp5TcgoTr6R iizGFJk+HagFxO/Pf+Ug19D2C7aFa0FBgGNhLrIymUht/mUtKPvlQryLbLIw +N0uTQs+UwbX5CGff39aqK9cCxYSus/nI7+8ulDbtKwF3WIzXQ+RNSjsRm77 aoMr+eO9FcgfNyoDQoK1Ifal/xNsyyUGavNIbWj7eF+7EtljuObY/hRtCCCq x1QhJ9WzBsaVaAPD2v2VauRPoZ3U5+a14baNTFUdMumXvLCepw44fvzT1Yq8 Zz9Z16dAHZCN3j7bhucj2hRgdUEHRMGR4g0yi7darVuSDnxlsxF7i/xmSk8r +pkOaExwxL1DFv1m51a9ogNGopIcXchkby/l817QhWW1ofcDyE9+qGg8vKIL 5/MCTT7j+qmp504m6UL0TNQX7AqVeHH5XF0ourxr4gvu1/rUJvNGXWCNzP81 hNxVfn84kUoPwt+Nrg0j5+W0cK5d04MTgTJ3p5CzrYX7TdP1gDUvnGUa9+PB G9crcvTAaF0rDjspnUTtX6IHFipJ3jO435P+LMx16UF0aK3kHLLRRbHXo8z6 wD328+kCMqXtnbOdt/ShoSdEfxV55xDl0RP39GFv1k4l9uZn928JxfqgTsfF uYa8aCptrFmrDzYx/D+wh3R75JqH9EFDwS94A/lLDiXt130GcE9KI24LuTxJ ZrDbyAA+3eyyo3iJvl+391LVmBnA58vcFdj7i0ZF8iwNYKODm3YXsm9jfJSP gwEoVEuWYAuvfBFi8DeAecGGDUrkfIuwYNXrBiA3lhlJg5x29OWB6g8GYKJQ YM6ArCKWopjbYwCLPxvvYS/LO52N6TeABaasn9gG5gx1Jt8NQKYvNGoPMkO8 tdPSvAHcpKN8uBf58sJW2bG9hsDz2nmaETmwRt7gjo4hRIbMSh9ArrRso/hs YAhHjrtfwl7dNKhkMTUEV/3ct9ghsk4HE20M4Ry9iAUr8sWX8eOh3obAxDwR yIYcW98fTEwxhASPtRwO5KwmvzzmT4bQefvOq8PIgw5/jPUHDKFuV+AONueu K9QJQ4ZArN2tyIWco5LpQTFhCGKSgXXY95vrJZd+G8J3Ft3n3MiPW+nbO9mM wCNZJ/c/5FftBctXrYwgsslLmQ+5jL3L74KdEWzarZ7HznfZXPR1NAK2VN1H 2PEU+gvmHkbQaurGzI9sIrM+yxdmBB0txiPYMw+1JhqzjIAmly9QEJnl6kL/ xmcjqJ/5cP44MnU/h/nPr0agax1SgL1xlNA3PGIEX71Xe7C/NWR+aps2gkR2 T1Fh5IfrSh9vbhjB+pTmD2wFt7R2MQ5jyPy0rCOCfFb9TN1ZojFEJbBsiCLP C3K0lFobg2/rCp8Ysj/dRscGyRjefS40wg5/Xz109awx6JpfeoSdYiy99TDU GMR0DlidQq6yOy07k20MDMyTpeLIFMGSL9xHjKGY/7KiFN4fiwONZRPGIOH9 1wWbQfb3m81pYyCIGyRhH/hbMRC/bAyrnaFD2IKXJdaLd5nA1bDF86eR9VPE T8/ymcA4T0S+NHJ2kVilh7sJbJhLjskgv/ns+CbX2wTu/VGnkkVeoUsf7PE3 gYMi0gLY2l6b5HJhJqDSVeqOvSn2Wo8h0QQW/u5ZxLaoNZl6/MQECkuvrsgh s3YGHZpfNAHOjoQJBWTlnYcivL9NgMIjfZcisrfokJLZhgn85Yr+D7s1FV05 5Kawy3yXDfY5892VSftN4eXWvW7sT8NZeiclTOF7+8VqQL7+q+6Sb5ApsDea +Sjj8bpT7K3DTKGghzUOW6fUUUkjwhRam1/dxab22U3OE2sKTikdH7HDZ0wi P6SbguxczykVZJeR2YsiVabwo6R4EVvuA0f43IopdIuTWasiczydsxpYNwXX EnJ/7NXEV7LNW6Zge34+FrtUy/nPbUoz2C0RX47N3/osVJvFDOKudexWQ2aq Uw8pFjeD2rJrZdiTxefOu/mbwZXUq7/Vkc0O//1WdN4MXv6pp9NAbkmOUZ8O NYOq6W/c2PmBGezu0WbwqeqbJraDwosajzQz2NM+nI397ePWX+8qM+CuoFTU RO5dj449t2kGOV/sA7WQCR4Mi5V/zSDWiTkWu+JrGnGVwhx27ZTewk5tKhAK ojeHO0VV9dgGiW3vgjnNYeLedxpt5A5uesZwBXNo6a9Px25WS82MijIHJkeB BzrIEy6170NjzMEz9nIVNnXsOEVAvDnM/uluwdZok/JyTDWHLnrCOHaH+qAS 4Z45XCUE8+gi92gcnaVqMgcZSsl07FGtKvmr5ET4xmgXpIdMrv9lNDmSiP5r /JkNcL/Wmx4JvEyEND4jbuwUkY+OxDgiZNgKHMfm2ftmnCeFCIGWpcrY8L5y sjSXCKK2BD/sSO3rMz31RPhb49WBTaahscy2TYTkFeowQzz+89entsgsYFXh 9hXsFAHFgGFKC3hVypeCzUMjtVLEYAECYocLsKH1yOoZTgtYCcvoxI4k7GxY yVpAn0sDtxEeX6mK/G6IBRi/5KzFtiT8aB+4YAFD04Yt2BXq7GlMURbgXRX+ AdtNL5Q/Ot4CnMzKx7A/Wilou9y2gPjeAnpj5HvnW9OE6yzAbrHIApvwuE/g BZkl/HfTdx47p4RmaYnSEm72e61hr5dJ1xzbbQkvqR3ITPB9/CJLJ5vJEnpN Tu7HPtBm6xfBawmPem0lsSdHJmtUCZZgwcQTih3HtqbbHWsJrAyu29hpb96M NSVYwprsB0pT5NyQrJDyZEtojhJlwK4alC9Iy7CEdfdvB7Enci9vmT1A+RWm TmMrC+5/NNhqCaK11b7YW9InaCeorOClSsBXbNqZv3d6d1uB6CTtODbz7S7x 1j1WYKGXOYN9bDvA7sEBK8i9kr+GbdFYU3WWzwp+CQYwmeH8mhrO8wQrkKSb V8H2tXRsWou2AtaAyHzsvbkzw3JxVnA9o68Y+/GY386lRCsQOMNfiv3DM1KO 4aYVBOwrq8O2jbhTxVNoBUrvwvuwdfL7izXfWAHx5ji1Ob5v57Vv3Gawhlh/ KUfs1lM9pcOM1kDY984N2ynIsovvgDWIsVl6Y+eSnd3z7LA1MIW5hmCzMsfE NotYAzMLJGNTSjeE/TRA46XNvcAeuSThpHjTGuwPGtMT8f3CujfJ95Y1nDks wIjtXvzjed4daxDUXWXBXunOoqcstIZ61RgubNqj5OVvqqyBnsVLDFuk9T25 0YA1rK9amGGH0rnmOh2ygQanD9nYLDdufbmaZwNsUYcPWyDT9TJ/9C+wgffv cniwydiS2qwe2gDvNOdR7J9ZURUnSm1g9MG+49it9zySPjbYgMP5D9LYwWXy yhzDNnDdusYY++vHkYdFXLagHqQbi/2J2frudV5bWHviFY/dbtqXHspvCwIU Cdewqz63R+uI2IIaQ90N7JSRcptFeVvgm/qbi628dIVJ2sYWbrz+8xy7kPFY SNttW/h4amYCW2TSYp3yLvKd+Sns57VXg5TzbcH3z8Is9huX6XN1j23BOGt6 CXvmZZF/eZ0tHH5RvY194qyAZ+53WyDtfctiic9r41G7oCN2cLmiFbDlMky+ VQjYwYqAjwp2i+dlm+XjdqA4x6KG3cc2buUlYQdCAURt7DWv+0RHVTto7Xhl ii1zkNdI39UODmrsd8du9OdWFXhkB34wkIK9+XshhbPEDv6cpr2BLRHSMMRU bgcvuKRuYhdF2Adu1dgBdWPCLeyUxPv3P7bbgX0C1z1sUqEARfiMHcy1j5Vh 78xl2E2xkIApbaMbO4fnLqe8CQn4Cc/3WOHzES/25oQZCX7Gu+3DjvjVFMBF JAGJwM6ETWqdaN+xIgErawALNq/n8ZAmRxIYObEewi58XtWrHkCCIMEDgthP 9d4nGaWSgFZ8B7C5qm1lVNJI8JojShk7+b/FCfF0Elx+uIuA7buyX/5AFgnG 2inUsU9lEWf780hwl7Ckg101MaZuU0qCxJQUInZd+CaZWxcJKl4NeGOvlkwu RnWToDpV3xdbdKx7+M4nEkxPNvth52s+augZIIEWx6NA7HhW60jFERLs7XEO xTZ7VrfDukwCiV3pV7AXxiL/tjDbQ0TWXBb2f9o0W0fM7YH5bUcjtkSvSvdB C3sYZfrahK1mF1nEZGUP1K5zr7HdAzZMdmztIVGWthW74vbsky8u9nC0TKL9 X/zcB7vr5+3BadO++1/8tczXf2/aw/xhtlHscLbeW78z7GEhhH4MOymPyXfu lj1wMuz8c3llPOeXO/YgMTA2gb31NfxcZYE9bIjnT/9bXxF7Ac9KeyjnIl/6 l/+DUMLnT/aw9ER4BzvlSGPBZp89TNAcIrNG9ggiNhz6bA/ffWjJsXm5Y3/b fLWHLK9hCuxk73G70Ql72CtzhRrbfU+uxOyqPbBP3tuDzaPN8m2L3QGWdkke wk5s/SvKY+MA3TxT4tgrhzpPHbR3gJ96SpLY1n53JFicHcCQIlMK+wSnnDSt lwPsYVI4g93pF6K4GO4A5EFeCtiMh1d0G7IdgK/YVgP7RsC0O2nIAQYIZZbY 99jpg9WGHWD3QoMVdlmd8BXhcQdgzH5vjd1F45u7PusAHQwjtth7s1d7Uv44 wL7Hiw7Ycc275BsPOkLgZqU7dsZZPq0HXI7QEFrogV24V938Gq8jREvd9MRu Icb7WRxzhFRvL29sip+MhUtnHGFFZbc/dvgBrn28Fo4Qlr0UjP0qpkMmw94R Tt97Ffovfj3UhcHdEXgDY8KxY7/0162GOsK+PTsR2Km51z3fZTvCHPXdGOyH QlTtgcOOEMDWmIqtt7qSZDHlCAlxB9L+rW/TuLHCoiOIkrvcxAbr5q80ZE5w ZPefDOyBpOilLG4nKAr4nY190SqgKkLACY7/dywH+6igY5jTSSeQ67PMxfZp VKYSUXQCKvNnedjUK+QcjbZOIF1+vPDfev6wXtBzdQK2LPMH2FmDz1uGfJzA sP9iEbbIay//9Ugn6DN5VYxtlvr53cn7TvCfNW3Jv36JkbhX98gJ+n/vfYY9 E5IcrF3hBFMTjKX/6rNX5XNtcYKDb6nLsR+Ill7M+eEEDbdrqv7Nx+wZ0X3d CdRu+lZj014oOSW12xkep7HUYLu9fTL5/pgzLHNI1WELORTrbXs5gykjxet/ +RWFrYouOMOEnmozNivnU1fja84gMBvR8m9/+kojHz52hnq5wTbs9TLxayYv nYFl+c8b7Pnkyls775zhEBVLO/ag5osy01lnkCMc68A+eI5p1GjLGe4Hy7/H Jt49y2SwxwVsYtQ6sftWOXy1TrpA6wmZLuzu+6EnFANcwCyjqQd7yFV0aS3V BXZ/0+nFnjg+WfGszAUivrT0/aun3FCOd9kFKlaiP2PL/L5lKcvkCuMDTV/+ 9Z/UaLCJqCsIcS8NYu9U+1fGeLvCr4+Hvv3Ll+7KQUhxBTqC2HfsgkDrC+Rl rtB8Um4YW1tUTTX8tyt4njs1ir27TaY/QMINUk6MjGG32Zw86xHgBpIkz4l/ +WkMnlW+cIN5se1J7KfPfNd2dtxg+5zjFPb/4lumxQ== "]]}, Annotation[#, "Charting`Private`Tag$36761#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"y\"", TraditionalForm]}, AxesOrigin -> {0, 3.333332224336943}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"y\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925326776*^9}, CellLabel-> "Out[1776]=",ExpressionUUID->"9720a4cb-7487-4c6d-a248-e3dd49dd6460"], Cell[BoxData["\<\"Time path k,h,y with k0<kstar and h0<kstar\"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.791025925337143*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"dcff725e-da74-4d19-86a2-f2890f0d3f8a"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVzHs81Xccx3FOxXh0umjL5XGKjMNpemCkJu18nOUyHJcT4Yi5HefL6YQT 0qZ2UhPRhFJNbrkuHKZOmB0nEkWW1PZY2KgeSdrDcqlTctjn98f78Xo8/3lv iYznCWgaGhpcHFXTXHVFyeYHX5qpHe3s7JjQ8hHLWEwa2dl1mxbt0Z2pskpL omTTMtO7HdA9NolCLXKfzZiq2OuIvpMz5P5GOMZe4rmInNF3HU+0/Sv8j53a QpP6oPvyRhInhcvsufuaIEJ7KLS9J4RrQffSpFk5eoDuoLMy1ASMt3FVa+yZ wMl1uVnjYwmyyX/ixGiB9QLdlm4DshV9tFtoLksws9HNHsrZslKD7UxofnQ0 +e7OnUBXNjtHonfpbW1c+b0TfFZx61YdWvghv7gqCODUM2+9aXR8zwu7Ri4H kph2RhYOTDjN1zJXH9gDluN7jMLRUb3fxdgSV1Dqs4zz0J3ahn6iYHfoyNU5 o0DbrpcWvkzygFr3ZNoUOnxut5X3AS/gVg3Auh1MKC+5zVCd8YbFMYtEB/S1 Hx1Hhni+UNU/+iwInfTrbt9iLz+YH5j7IQWt7KuazQrhQX/+kvk5dKzbF4rY oL3wdsSptAF9udZWLorzBw/ZAL0XnTenOJ5wOABaBnWW/0ZPXE1OIZJ98FPr aNsMuts1/2J6eiBwzu5PWLWTCZo+w09zpUFgIsmO2ojWcL6hWXYkGGJuG9w0 R2fqq7hDp/jAX+G9eTs6gR/VpToRAgp5XgAH/eS4fTT7/H6Ifq2T6YP+uODS cFZ5KPjXnI4PQVev23qktygMOgxK6gXoTomxi0XdN8BO+X0yHl1iUsbY7R8O CbPj8lS0Im1BgwyGw8Sfbk1S9BZP7cVPAyOgVe5Zn4m+fp+V/fhRBLwosj6d i87pWbIxCY2ESw2CmEJ0waGXceGjkcDQjfC6jE77ZPNa0+AoCL6SWFmO/pm1 qi9pPArcQ+YWq9Fa85qGnWHRUMkaO1+HrrH55VjJi2jQnImwakKzIq96q8UC 4K+Z8rmOHvm6rTnglQDoin1jLeihim+3sQ/FQL9kQdyOfnfNz8l0NgakrquP dqCXWyXyjINCMGx6yulEe9q4uqS9EQKzga7Tje4NtY4VHSKwq31Q1IPWiyLt xckEnIxWp1AOI+X0wcMErMe/klJ+K9nQbJ9GQLO69hxls0zVgvokgXknNwVl abMy52whATP5Y3ov2lHbt0neRmDuxv56yhmrs2iT7QS4IosblB+s7/I36iDg 1zitpEwY9u+PdREQv5I8pHzB1oDj3k/gQiBvgfJ8yPjD4VECvzEOut1BQ4Qh kz5GQBBN86OcHcNLZT8hsMG3gE/ZNLGbUfmcwEWDOjFlv4xagXiawPO85gLK l7OftJS+JhC6yaqY8uRZI92hWQI6gVeqKUuLcmQOKvwbPtlG+V7ZbY3Y9wTU 5jNdlPWrl3hFHwh8bs6/RzmybkfVgJrAu7+Uf1CWNSWolpcJFHBMxyj/D1t1 Dlo= "]]}, Annotation[#, "Charting`Private`Tag$36903#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"k\"", TraditionalForm]}, AxesOrigin -> {0, 11.10000000090674}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"k\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925420395*^9}, CellLabel-> "Out[1779]=",ExpressionUUID->"9097e62d-5c9b-45a4-b21a-fdd201b3355c"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVy3881HccB/CjUPfo1qKUe/htbfGIzsNlJbr3DN38PJfzm85x7kOZ8/tn pcjvEVq37WKs7vxoj5ToJ/lRMbVKt1ZDS7TCsrQiO5G9v3+8Hq/H8/F4vcxE 8XyxJo1G88JQbV6+eLLG+P7OoH43+qOTdLi4wtIkjjRztDWKbQbR3elnTm0i nZx+R3v+MLqXlSDRJvc4PgcrZCPoX0pV3FnJCCectZs5ge53yL08JZnmlDgv o6nRtyqGEyYkS5wj6ruezFN0cO/Q8X4hWQ0rjNerg9F3GPYrl4eZQuGJ0J4n aOdy1656n00gcf/DgKegg3jLPMOWwQKNmo0DF9BeluJ/9XexobslttRISYeW B/tT+rdtg5QN0okU9A5dq+blBx1h6Z2R8V205H1ltSIQ4Pc/K5qN6ukQ3ztu 1+zlDMXHpCYidHGw9sbFfS5gA1NHlOjIvqxoW+IG+hdkgaPobh0D371BXMj+ eWejfgMdbNfkHJ9Mdof3Fm81PdHCt06bvfd5QvfmsPEMdF3NTcO5b7whXLlw pR59vsxhWMXnwfXg+DX30clXnHjVnr7gZ3WtdgbdeUvxpiiED4JnMusNjXSI 2bW9IyZwN7Q/WNdpjz7RYNu2N9YP/qm+/qUAXfG245A0TQAPhYrbUvSLppRU kugPzLSf0gvRN9wqvzt8OAD268Wb1qI1fIbGynMCocQ8Oa0VTfvigkZtRhDo mua96EUXrp/zUhUEg2rgaMAgWhoc2TOXGwJjyiy7SfToIXYU59tQeJyvWKlG r636fqioLgxEIiVfp4kOyo+tMvrk4ZD592u5Hro70cT1s9N7gDtj9ZcJusa0 1tDJTwh57UNJVuiO7HkaGRBClrxdm40289BZsAiIABdGmdwJ3XrPsmTwQQRw X2kNuqJLez+wTMNEkLssc603uippMlb4WAR5icmbBOjsdcarzYMi4cOsWWUI utFS61by00jgOQQsRKC1ZzQMusOjwEKsyJGg61nnDtSMR4GN2WrNOLSlqMl7 MU4MMS4H1Qno4a8utwheiuHJGJuTiladzLTmJEVDlb86NxP933lfR/M30VDn 17DlAHrpUmJb/tcSmN6XmnsI7cFyc82elcCiZtOjPHRf2JaYvUkEnukday1A 60aSq9UpBM7xh7soh5M6xkAagR1gfIfyu0S9FnY2gWpr2XPKnxTOzS/mEQjO FugXonNaOkuPHifQx9FKo+ygwzvbdplA10eOW4vQ+auKNCeuEtjDXADK99f0 +DGvEZBpXfKkTAzZ6gM9BKZyLKIoy2w3OHNvE3i5tb+S8kzI09+GHhPwmOZN U4YIg08ZIwSaT9+bp1wSzU/njBJgCt21i9HmCTcMTz0nYHrRzoiyb36DOO4V 7rkP3SmfKBm9+ONrAqtes/0pTxxl0lVvCNTLyyMo58hLz9jPEWjV2p5O+dfa m7QYNQG7voJcyuuVH/jy9/ivUpVRFp3+XHFnkUBvrMEPlM+clc4tLREY9wlV UP4f1YQdVQ== "]]}, Annotation[#, "Charting`Private`Tag$36979#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"h\"", TraditionalForm]}, AxesOrigin -> {0, 3.3300000002720194`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"h\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925517057*^9}, CellLabel-> "Out[1780]=",ExpressionUUID->"5ee35dc7-ac71-485c-8113-afba2f1a1d7f"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVz3k81Hkcx/GpHPXdnaRYmUakKG05dq1ssvPJI5IcsWyucY2Z+RKbc5Vm 7aQeJERJqzQTaZSjcSfJMdYV2QoPj5ZaxxYjHRIpwn5/f7wfr8fzz/emgKMu 3OU0Gs2BjKpu2kKeeOOTn45uvqNeWIigeqWBdiguYS3uvc+pJJYdk97YhhtY Pb6vpfXErcbhfCX8iDWqcd+ih7g9pdt2hj/Ikh7XNPpC/GD3qZrX/HeszhUP BQ5FCDrOD4TL+UuskebE6jfEdnXKjqN8FSic75FvuY2gi262SoGtA4LoRJVr JQis0qwbbzptg6eKkhONZQi4RnN0E7oxXJjUaZVWIHAw4L7/Zr8ppF62+05U haC89/foB+bmEDvwKsKmGoHF2u0lCn/sgeKm4sW3dxHw5y+IJO4APCWnj6H3 EBxtHfu+xMEKtvSpsatrEZz1VNJbCNkHCTFDWbQ6BJy2EzwTbAOdvFV1G+rJ f2VN5yMetpD8baovswGBiarw0niUHUiezhlqNSLw+2C5wzHEHi6yu9bPEeeK W5izqY5QE9dZ3idDUHFu90C3yyFod7pbJmpCEHXP8pDI3hn0dw0M2f6FoKFD MpXk5QLzPh0K08RB+3+sC3L/GSyY53cmNiO4esuk6kiwK1RO0DUZLQjOf6g7 GRbjBifoKE9MPFoY/RuO+AV2xpqK17QiaLa5kBUffxjGrQuF8cTLnPpH0oTu kN++OvQFMW3vnWU5xz1g6E3wDss2BGc0Zh26Ez1Bw184k0kc5slpmj3lBSxG o9MI8fBJ00BWpjcMegefM2xHoJZxuT8plw16OWvcIonz12w/3pbtA+pd+gIp sSxC23prkS/k6RmJx4nFOjlMS1c/WLxvHcN8gKBOMEfDj/0gc9gqzY5400Hl L5sP+0O+lqj0GHHlI4Pkf3r9IXOt3DuHOKV10ViHHQCS3sSlNuKMyPFgv2cB ULsjY90rYoH6RhVdDw7MyCo+rOxAUGCg2BE1xIG/S3l9W4mVppdpynwCYUPY Dzwr4pvGZXHisUDInWbIvYkNAgodF0K5sP1e5ZMo4oEDNeVuE1xoeH6Fk0Tc nRe7kxXJAwljblJE/KnCeY/uFA+yyuxFJcRLdyOqEn7lQ7H26esNxAeNbawF M3zYlywpeETcxjYKOhKJYaolPOI58VoOrhVFY7CvTrtN2Qfn0h/HYNg8mCWn /DFiXbmpAEPRuxCff4m3nJmdWziNYcUI88AgsbC8ISX9EoaM2OuMYeLdyodK q2owhLyPkb4gTvg6abm8FoN0Eo1RfqLa5Mqox3Bb9az2S2LMNP0c14ThQJ99 OuU/TdZb2XZi6Nn1MmyUeNprqKf/GYaZDr6hnBj8NfXpgxjM3Bu5lJN5LsdY wxh6BYoiyrrhzcwbLzGkF7h9NU7snHCLG/oWw5DP6jHKV5OHq69NYvgv6qHW K2J5OgN1T2FQY8e4UhZmp0jNZjHwZBkyyg9zWmhBnzFY2Ct+oqyRv+iSPY8h v5VjOEEcULRL0rWAgWZeEkhZWho2u7SE4cbNsSuU/wdF9zzy "]]}, Annotation[#, "Charting`Private`Tag$37055#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"y\"", TraditionalForm]}, AxesOrigin -> {0, 3.333332223530696}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"y\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925613638*^9}, CellLabel-> "Out[1781]=",ExpressionUUID->"c59ec0e7-fb0e-4a86-88bc-df4b01f180fd"], Cell[BoxData["\<\"Time path k,h,y with k0>kstar and h0<kstar\"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.7910259256261587`*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"fc8f3adf-7d06-490d-84f7-9bd21a604551"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd13c81d8bAHBklZGGUlGSnYSQzMfee12uy3XtTcislFCySTIrKvyUrSiK b0YqWS2jJKOQlYSM3zn3r/t6v+7zee5zz3nO+Byl+Jm50NHQ0LympaHBn3zJ G4X5h3uUZaSEfqYrC8JjZpEjPu7lKlfkC5OTkJtDHxUJuz9XOWx6Tf4acptE gBuj+zuVg06nCy4gdyT06vxx+6oidfBQkQfyK/no+hm3ORVS7v0sQO5MHQz4 4balEn1vhXVRSRCuZmW+Spekgd6rJP1fyGLuKranymkgfF016QfyWabUiLOl tNA2HnT0K/KmpnTT/O1t8Ht5IfINMtd/4eq/EpmgpqNlWzGyXiOT0YTbTqg/ 2HOKgiy5Rfmzb34n/JK6lk9CTuB16DqmyAFEi19sNshBlIZgi5cckHDl3pox ssaE/8va/l3w0FKHRRl59NewY+ifPcCrEsNwCJl343HuhiwXZBUVKH9SFIS9 +S7znBFccJR5U6YfmVllj4b4cy5IyA6X7Eaei/Kdttc+AOPKjdIdyE30AvIv rA/CM5EFryfIJNa0j5dDueFOMeHWLeS3bLLb6Um8kCBs0WeP3Ku/O6srkhcq tNIvE5E/XZsVvJXLC2WM/6QJyGMMDzTEh3jBpVKu0BR5fWN/FIF4FG5kHryn gSw6u7pcZsMHCa2TCseRr3Y1jlla8UOqOvudNQVBUEvWfPHAWBhucPRX3kGO 0qsp6fUVhksD+nwFyE0Mx9I3EoWho1nwRi6yfCSNq/kbYbifuHHpJvIpj6cs WzoiEFywFJKIzK8uaW2lJgrfe6T7wpAZ/3LP0suIweo9ezkLZI2q6x9PWoiB jpD4ginyZZ+1F7aBYrBtnqfMGHnz+8f0ikoxoN2wFNZH/tuddsZO/ASc3vvr jBryj1LmmGohcXDZonshgexyco1Nkk0CmmJ59XciGwzG3eM6LAEzzylcbMjS cZxKNCclgPnY18kdyPRfJbzfmUhA24nziYzId5PcOn0yJMD/JdvvDXlB+Pqr P7b0kCQatwiBX8g2ZeVbx0SlYGT1AddbZCAo3WRRQH46K/waWZj+tfhvfSnQ GTiu8Ap5hThBavGRgpsnLrm0Imey8DwjV0rBwdPknkbkPs/40Dy5UzDELUFf jmwo4rKwT1saGh/saE9DXrse/HTYSho43HVPpiIXz8bEFLlKw1g9861kZPqa +wekYqXBk44+IAG5QfmHqmGrNJDqX0nFIgtaeKVFq8tAmtm59TBkmosBp+ZV ZMHjXWgBBfnRt0sbdcay4HzcSsYRmaiR1n7eQRYe5Vx/44Bct72ayHJRFhJK VjftkL0zlqIFm2ThO+vzQGvkzyUh/XaKp+FuTF+OAXJV//ngV3JykDekPXwa 1xvjTBnVlYNXD95HySLny+ob/7OVg9yRdgEZ5PgsLpET5+VAWLQvUArZya56 KKVZDtQYCLwnkPeO/VAn6J0Bi8zmej7kc7/Nd08S5UH64tw4O66nSH5ry1se rpLdq9mQKZZHZ7guyIN8NvdlVmSjx7OterflgaQmdWwHslDEtbBHY/LAenM+ kAH5E93zkWAfBXg8XGq0fkYQFHaLltNfVAQhpbsjU8hdtLav3iYrQkrXvk8/ kckL175n3laE0oOZ3T+Qr3T/3C/SogjrJhUvJ3B8UkmUIYMSnJc7VT+K41lE zDKvK8FPhsDeARxPL/xHKEsZAqUGG18j71uy3rlQrAwJ7v79ncjF3+NEGuqV 4b9X09OvkN+2TJIMBpXhVkQKTweOv/Sgzf+wClTyUhJfIpdsCGbVF6mA7VWL G43Ibv/S8u4RAOonX2tVIGcYzfwXRgY4V9EUW4784o7mlKE7gPIFl/ZHyFw6 K7LLIQBWym/0HiJ3ZJC6tW4CmEz8tClFFhEX3vbjPUBrTm9WEfI0udFd1FwV FLpIN27h52v2JW/aqsLe7ZlTWcgaTP61vRRVtLX7AnbuQz66iLOqcCf8369M ZIO1uJzXqapgsCfSJAP5YbpZl3e3KqwtPZBKRvZrmzxVbqgGOyi33WJwvVDm JWalBp/V/rVcQeZ46l9YYq8Gfd0bh7Eryld3F/mpwSWNv58uIy9msSxmpaqB 5bNiiyjkc14nKy6/VwOFcD/PCORIjhAxK5I6iAeP7DiL/CZewbnPRR1Y2yfD ApB5GGhyTXzVIcju8k9/5KbVqyz6F9VhhN+v0w+Z5nv2lModdZie35/ugxxd 21QsMq4O7LliKh7I8baMAhveGvDQP32TjKwswbr8M0gDngp4x2EvMOxu/xCp AUI76ziwCZU8HhUJGjBVn8PvgCzALPPQqUwD8nfcNSXh/1/rJNM5rQEDwTIv bJCXOZo1b3pqQj5P9IwZslN7hKukuxY4RPL4aiE7KwoaLftpAWMj425s18pu machWpA6r1mnieyeI8CgGacFV0Zfbmkg+/q9KyTc1wKydEOmOnL4/mPfLo5p QXSoZD8gp7l1ErvI2tAY63RdAffTUJB6urs2ZKn6nsG+YXrkOMFfGwQ8Wyfl kbMUgta+XdQGlhlrTez8nYdv/cnXBs7tjPRnkEsfB3zgHtYGb4JusixyM9MB Uy8bHYhuvDQoiTxRKK732VEH9MQoCdisoKGu7akDNMfTlLAJoX4yxyJ0IPPx 19sSyHM/Wg8M5urAa2ERr5N4/jrPjuqN6MB1LVn2E8hhCW8CRd10YU0HHaG4 HuFR7yw/XTAci9XCfvnyrwtjqC4Y7dhLi82xwUcYvaoLVe9pQoSQH/iEKWaX 6oJvDLerIPJ7I0GGHbO6MHqMx5QfWXJXVObPID04maZP4EVuYP4o3B6pB3Pb lw5jq9GIPy26ogcW0b3jR5At5ga/OmTogVqjRBD2ubenRT5U6wEHj0/6YeRn 1+aetizqQRnTs0FuZB06h285/vpwnuKadgC5Z7U2MCxUH2qOBDpg2y6wMlpH 6YPofLkYttdIg+juFH1gYqtv50JOatoXdLVcHyYZ6Gmw+8O7GINn9cFR1DRs H96ffiuJGXkbwI2jIYl7kNl203T3BxmAV7aDHXaDREsg8bwBfBYPP46911fr qXuSAZgvanTuxvvFDyO96AoDCB44vgNb4ouD+5MlA7Af35fOgdfLq0tFfOcN YTnjSAcbXu+T6jolMYaQqLeYi23LyDhzMskQ9G0XArBr1ONPKRUYAkd3IDe2 e1Nai3WzIYSzxASyIndXF44kMBhBZUiFCAvynfxW7r+JRjDe/6OGGe83dmIf LTONIJ21IBk762B6ak2+ETSEhHtiJ2WSGc+WG8FJ+du82OFJ/+Zmuo1A7Xlh EhOy2QXJ/0b3GMO28XMBjMj09nkeXbeM4XOjmyk98tYhev4Td43hSGKcBPba Z88v10uNwTqxYyf2vKWcue5TYwjLedi1DXnIsE/x5ZAxBOnRGGEP5NMzD+80 gcHeUjM65Ook+cFeMxPgjj8eSINMyWFnaLAygSJafgL27uJR8Tu2JvC7QUYJ 2785/rIfxQTGYouYsMWWBkRYz5rAzpSyvC05QSiyiQjVTDUBvXajrk3kDP5n nE/emUBo+2HVDWR1yRSVgj4TIAqxiGAvKjl7xH40Ab4Ctl3YJtasjRZfTaBZ wfLbOjJrvJ3zwqwJyMv8uox9ZW69SpTdFJ33Ep3/kIMalEzyDEyhLirOfQ25 1rad7rOJKTTwG5hiL6+Z1O61NAV3N2F57DAF54MJJFNI8RFixb7wLH4s3NcU rm8qVq4ixzV9DCWkmIK0StXWCnJ2S8CdPf2mcDFH4OFf5EHKP3PjT6bgOFGZ hc29LYbx+pApyC2bXcHOV8/yohs3heTtfUTswpdNMgt/TIEc1cGCXdbG0tm1 3wwyGoL8lpGfd95bvEY0g+Foac0/yFVc3QHnHcxA/KijNHaR69q8v5MZJOfm HcOOpzOes/Yyg8RVTTpsC/mVaYEIM9gaMXuxhDxVojfenG2G7k1mKth7r819 XP1sBkdH43V+IzN+PGD9a9gM2A9mn8Fe5df4MPLNDLJTHotif3mR1d/+0wwK GXjYsEtWVHturJrB38KU3kVkZfeMTskD5lBouZOM7aF9ptGDYA5NZTtjFpBn hQ+0VtqZw0BE1TnssztW36ySzSHukLM7duTbJ0PXPMwhOv63PnaKudx6Sbg5 XCU078GuczitMJVrDvSqO+7PI9OFytR7fjMHr8jR/jk8PzaczVXj5sAwCB3Y rAp/OtZ+moOgfNlTbM7Nmk/xi+bQ01FyF1v4ivRK6TYLyHqnHIBtnHLq9LSA BRxvbuXAzi2WrPXytIBCwQXCLHLHZ6eOAl8LAFcWI+ylHZmDfWctwKRaQh1b 32eNVjHCApS0c09gr0n+Z8SaYAGJHMt02DZPLX6UPbQAmn8l5b+Q93WFHJqd t4C5pmYObLWtEnG+PxZgwyfEhO0rMaRqtWoBM4czN2aQ29LQlkNrCTS1KVPY wdbba5N2W8KxnX9fYvePZBudlLYEkuGFCOzU342X/EMsgfO4ytw0zteb4mgX YQmHr1lNYhtUOqnqXLSEFrPgr9iMfttpeeMsYX7nq3fYkVMWUe8yLcExuqMC 2/Xb9AXxOkvIHzgahK347kDkzJIlTJbupsE+8GiG+GnFEsw8WFan8PpKeK7w ct0SZl7vWMSu1HP5l0NvBc3OPGPYgm0V4fp7rcBPNrUDe1ejdljpKSv4Nv4w DXuiNPic+1kruPw++Ti2Fc/ml+JzVpBV0smP3Zocq/0z3ArkHFkPYxcF3eTy jLYCM2IRBzZFub7BK8MKYnIFln/i/u1Z3/StswI3A9cW7Pcr0XHBa1bgLFDh gK3hxTpfu2kFC371Ntg1wxmEZTprePymwxw7reWeSAiLNQQ+WNXGNklofx3K bQ2S+oUS2G+OsHBEKlvD9qxd27BfaqVlXb5sDcQS6bIfyOOuT9+Gx1rDrqdG D7AZ48boAuOtgfWyz11snXZZH6c0a7A8XJ+F/UZ7UFXjrjXUcl6Nwe7T4Z9m aLGGteO0ZOxRvTqla7QEGCeocmHTGg+MJkcRYOsg/Y1J3K9NlseCrhCgW1Ux FTtFvMeJcJUAFd9DErF52TvGeFMIcCxpNQYb3tZOVBYQgCQtGIIdpZ861ddE gLhwPltsGh2dxf0bBJhKyeCj5n/8n9Q6jQ3k0Z8+Qs0vpBI4Qm8DfgVDh6j5 mWSXilltYF5FkpOav+3Y8hluG1ge3WKi5tfYWiUq2MA5F4nZCZxftY72dpgN RGy9foZtqzHZ+em8DVR7JNZj12hzZey6bAOtgmZ12O5G4YLR8TbAljBejt1D VNZ3zbEBr3unCrHvnmvLEGu0AX4Bz3hsjbIPQvU0tlA/IUzEzi9nWligt0X3 ByMC9kqVXIPodlsosj9niV1Wn22Quwt97/bOGJuz3T7gIp8tDDUXamBPfJto 0NSwhdxP3eLYV/f/NeyNs4XXNSIM2BkdHd9brtsCr3I3HXZBWHZYdbItFGyE 0mDXDSrdy7hpC3u4ev6N4/4ouLJu9cAW3bNyFrHVhHf/b7DNFmQ+3hzBXpc7 wTzOQIQXfUebsJmnNvPebyeC3jOWZ9h7crpPtbERYeju33ps0Y1AhwecRDjg 9L4W26a5oc5DgAjvLxQ/xK7T1XGZ1SBCSPb/8rD9bZ1a/kYTweXQgYvY7AVT I4pXicD5fP957LLvAVuXEojQGcIVgT3pHaXIeoMIpkd4Q7DtL+bV8d4ngjGz jh+2QdHHUt0OIkwYrjhgC8/qp+ew2sGyZocadptUX+UIhx1sa6NXxXYOse0W 4LSDDnZ1FewCGg+2Ch47iF96qYC9b09s3EtxOwifHJbGppd7EfHLxA4sjzgJ YX+7JO2scsMOBMIq2LAF97En+d+yg1RfUVZsz9LJx3fy7ODq7L0d2Eu92Sz0 9+3g/NU7TNTx5Ket7qizA/WNUlps8ba3tGaf7MC5gmF5DDl8h1uB8yESfPHp /or9PB9e3ThCgvsboV+w6U8d/N12jARHp/mGsROJb7VExEhw63P4APbtslOz vxRJYDws/x673YhGKcSeBAuaa53Ye9NvDVy7QwLvBu/H2Dve7+k5e48Eh2LN 6rBp9ie1E0tIwGp5phb7V/blmhOVJPQeuL0au+2uV1LPCxIU6D5+hB1apaR2 YIQEFJLqfezhnm8lxYftgUeAPRO7f4/d7VQ+e4j/ufsGdqflh8xwQXuIvsWV gV33uTPaQNwejtULpmGnfKsmzSvZg+2oYRK22kLMLjmSPZTJtsdi3+cQDWvP sQfux+RQbPEJmxX62/Yg9NA3BPvx02shakX2ALnnz2F3uP4Mbiyzhz7H/CDs qWfFZ6sb7YHdf9of+4SHkHfBV3sQaK3ywK5p5ncIOeYA3jVzRGzFmxZfaoQc IOrvQapbva+QFo87gAunti32h/1jRB9pB/g0fIeA/denkOCk6QBLsY6W2PIH +cyM3Rwg35nZGLv57BFNof85gFL+rBr22p+5FO5yBwhcU6FaOuzF0K5q9Pxm qip28UXHoPUGB4jbPA3U8UkoLOzpdIDn7deVsMn3hegipxxgjsZMDntr5qbD j71kYKCzFMfO573NrWRBhuqhvdzY7PGSHSesyDDql3QI++LvlsDDBDIoXmKm mtw23rlFJIMu9+YBbD7v42EtTmS4yD+3nzr+j+veaweSwWrbjz3Yj4zeJpml kcFNVJIV+/ATe3n1DDLMBNWzYCcfnR8/lUkGcTE1qv2XditxZpOh8YvFDmyp bML0xztkaNW4yEzth/Hv2qRKMgRmT9JjN0au0bh3k+F2PuPmd3zel0/MX+4l gwxd+ga2xPfekbx+Mpz4eoTqIt3/vej7RAbZbQrr2PH77KJUvpFBbvzcGrZV RePWvkUyuOTR/8We+x612brHEZ1fQfPYR/WZ1o9ZO8JKcNwYtpZDVPEuoiMo sH37ju0ZuGqxZe8Idz4oUF2TM/1wwNURvBeXvlHjZ945pJ5zBL75oK/U+MSs /zZvOAIHZ8kAdtKdXf4ztxxBSnEv1dW18dwDeY7Q5xD1GXt9ODK49p4jCCUT P2EnizsKedc6grIEzwfq770Tuf653xGqz7/twfYKIbw49NkR2OcVqeY7EveH NOwId9MedlOf9x1zGB13hHX7tHfUetgKpKeXHUG81+MtNq/+3i/rXBQQ5DB6 hf1xUW2PCg8F5jzedVDrzQ7QuXSUAuxdplT/+9lVxSBKgY//s2nH/nD1Why7 AgW0I4JbsRPaNiV4SRQ4Yz3YjG0XkCe914UC+5NYqT7BrSjH7EOB9AF4gd0V EKYyH0mBqnNVTdgcPEuGL3Ip8ITlyVPskfY005oiCpSp0FBdeVbSsriMAoNs +g3YZh2+dinPKKCg8OMJdnrgT0/yEAX1PdRhVzWKxYiNUeBkS0EtdjeTf8HK NAUyh2mpZs9d7kv5R4GnpLfV2FdfblNqPugEkrFRldj32bWtE/mcQG11sQK7 lRAfYCPqBL15blTT/eK4v3DGCcDauhw7kvPwTj4bJxBKMn6I/Tz2jfxNRyew 4egoo8avhLuyejqBaI8a1XEDHxuXw53gwojy/7DTClK9X+c6QeeicQl2iQhD Z9CIE+y69/oe9lLLmLnyvBPcVmamGuxeDjPROMO9Ft0i7E9J0QvZR5xhV/zg XWx+YacI55POEPr2ONV+zWoM4irOYPkv6g424xLtgWZ7ZwjYJ38bO3vwceuQ nzNMnUgtwBb/z+fsSpQzKLHM5lPXT9rn1ycLncFnf30e9lRYcqh+jTMYaAlR fcFRU8Ct1Rm2KeTkYj+QqLyQP+kMm8EZOdT6rCoInivOcH/6ENXM58ulZLe7 wKP54mxs91cPJ96KusB3ra5b2B2cZdkuBi6g9WArC1uEUmq04eMCn3cpUb2P +5GbeaILdLqn3aSO74fKqJIyF3h1ZjETeza59tbWaxf4cMWO6kHd+irLaRdY 0O25gU247bHLhM0VWES0qP6wfMBf76QrhNi0Z2D3FoafUAl0hd9Z4+nY48cn aiqqXCFiXYjqlWpTRb5FVwgNuZBGnX/Z0VALCTdw6JhOxd56crY21tcNht28 qb4XZHeetsoN+k4upmDrS2hpRv5xg9P+0VRvb5f/GCjtDjQBglS3k056eAW6 w2PevmRseSaTitp6d5AWukT1owr/v1tb7rD1Tp7q/wN0Z1eY "]]}, Annotation[#, "Charting`Private`Tag$37197#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"k\"", TraditionalForm]}, AxesOrigin -> {0, 11.11111114113737}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"k\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925709584*^9}, CellLabel-> "Out[1784]=",ExpressionUUID->"6b8c6b43-7107-400e-b493-80a546ebccf4"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd13c4V18YAHBkRJSGop9KSKiskMzX3nvztdc3o6xsUWQnK9nKChnJqIiQ 1bBlRCEUKaMQMn7n9Nd9Ps99z7nnvvec933uaetrOnZkJCQkpaQkJPjKenc7 N+tkr2S9nzHNUC4NPNvLdcqFWC5Fy1jq+Qm5yacsj5P4Siq1pmZkCrmNz82B ktgtlUy7Gr+E3BHTp7TqMC51gPlkHXUeDbwRDXnxw2FRqiWAfUUU+W38qNus w65U/s9jZ1ORI1KS3yTyk4AGv91oFvJ5opTJxXISkAzQiMpDdqeK93cvJoW8 b3TD5cg78oINSw/2gL/Oz4ttyIyv/WR/3qGCcYeUX8vIKvVUGl8dDoD6L8ky +Xwa4N+1Xj26dABUx0IuqCLHsFh0sYnTwzMZ3kdayJ7Wtdf1WuiBqaQ30hRZ 7qtrS/XAQXi+Z4HWDfnLz09WPquHgU6V8UA6Msv2s4xtYUbobkjhnEc+kmW3 xODPCGcXFXYXkfdKHZbjecUIpK4UvSvIi8FX580VmaCus91uB7mB/Ixoo+Fx KPmypHewgAbMaBOGbvkwQ2O9qoYwciedMDW5GQtwtRd0ByD3qR5K6QpgAfWH w2+CkYcjFzhSM1igm0y6MRR5muKRHM8YC2QQXz+MQd7aPhZsZHoa2BmXL2Ug cy9srJUYs8K5TrKqWuSIrvppfQN2GPv8eM8qssxd+cZHmpzQf7qvxuIRDQSr VBX1XeWEP69031gjN1CwJW7f4QSvyPVhO2TRABJ73feccP1h9aIT8sUrdft2 lbhg/6bsX29kdll+QwMZblD9NRlzF5nyD/MCudB52M9e+PglstzT6CFevfNw Io3o8Ar5lstmo4nHeaDTzWBpRt6ZGkp8UnEeAuMcotuR//QkXCbwXIDJkX6Z PuTZ4r23K8/ygK/ZfrFvyHa8m3T8dHww1y5ueaCQBtRGw/MZT/IBLcONPYeQ BcMZJEh4+WA2+nDeEWTycT7nbi0+WCJX+MSEnBPr8NYliQ9kwo/ysSOP/xwI K/6PHwQDeo1FkI1LynfZuAUgOzyi2xwZjCTu7xMTgK51B1YrZE7ydzy/VQXg 6sgPdxvkddOvZs0uAnDnxhItETl534mXlhUCwHWN9Ywbcr9jlE+myEUofaA8 ewtZnctu+aiiIAxxlL/LQ96Mvl73yUAQCMYU1QXIhQu3b+fZCwKZeGxGIV5/ VQGTQJggXGaTtC9BrpWclVZvFQTuFZiuRObQc0oIkRWCeC+OmGZkkiC3i0tS wmBdcSD5M3LZ5M3tGk1h8HEoUZpANpVLaA+0EAZqk5KNSeQa6krTfUHCwE05 ZjCD7Jy0EsLRIAwCq+w788gjRd4DBPFL8Jm8gnQD+elA4PU3IiJwL0vr28Ei tN7bttZflEVgaTs08jBylrCq5l8TESA203EzIEelMHJdCBQBUkF2e0ZkG0Ll WFyTCBx/l/b2JPKR6VlZI5XLEDWmpnAO2eu37qFvpqLAeTnqkCyyc57o7q6z KNA5ed6SQ7bWP/2D8YYoOClNL8kjazxbaFV5IArUPSZvlJDP+kf6lk2LAk3G O6IG8jDZq4nrLmJw3I3ExhhZ7BB3OXmQOJy0GNG4itxFavKm8644rNDYxlxD tlyOnEp+IA6y5WUdrsihPXPHuJpRPCFSwgPHxxYFq1NIQFSOH6MPjt/HpZMc LQFBjUFJN3E8Oefq2RRJqBV4XJaIfHTF8MByoSRsOI21JeF8TYVz1b6QBDXP jU/3kDubv5mpjUrCjvPW3hQcf/NRm+tJKRB6sa6ZgVy0zZHyIk8KfgQlluYh O/xNyMw3AmCYmyuoQk7S+PHa1xLgfoHXnWrkxofy39WJADpW5zxqkBmV1oXX vAEoNejFnyN3JJn1KNwHMLg58boOmYuHc8/sB4CaOZWSZuR5y3oit640XGY+ MNONx1cdvbtjIg2O9xie9iDLUblW91lLg9BFwo1e5IxSVjJ/d2lomi850o+s thme/i5eGkpLXEQGkUsTdbqce6ShQ26RMIZ8re3bxXJ1GXim/u7kLF4vlDid N5CB6SWvaWz6OtfcInMZOG1mXDSH/KR841DeNRmYetPKN4/8K2Xfr5R4GbgQ qiu8gPeLE++TWx9kgGRjjXkFOYDe+7yBmSzEG6yb7SK/jxKz7beThRnqvbQk xTRwgoIkQ+uqLKjucXiB3bARsU81SBZSbBkOkSGTTKV9l3ooCzpnFerIkUOq Gwq5ZmSB9nPkT2rkKBPKM9vOctCZfG7wMLIkH+3anKcckNFK2h1BXqY41D4Y IAeP8jt+YxtVnLjyJEYOtu2UDhxFPrNXqNSmRA72bJAAI3JjtY3Q23k5iGvo jmBGXqNvkr/vKA8mXNfq2JFt2v3t+YkKcGJV/OVFZFtxDo21awrQ0tHPLYhs X9EjVOetAIOee1KxielnKOTD0f2vPJ5CyFevdecaFSiA6ZHXZy4h+x1jmwya VgDncWkvUeQEh7emXZaKcIl1vguQk8Y8ZROJisAlacwvjXxP+9Q5I1dFaMty SsROEfPcnAxSBN0bNwxkkLMOnExdzVKEsVm7YVnk4mdug8yfFGF5K/SdAnIT FZO2k7ESvHil5aaG/DWXR2XESglC2Ix7sGlBTlbRUQnO7SXjVcf58rkmxOav BNfLhOexF2dbmUYzlOD+N0ELTfz93rp/UZlQAp7eHiEdZN+Y9x7cDspwp3g6 2xCvh/OLc8o1ZRhcyvuN3dLyx47SRxlIo+kVjZDpt1mNvkQogwXD/A/sRy6+ 4mnFyjCyWSNogvxBg4OCZkEZvnWuVhGQ+Q8GJ895qsCR485+Vsi1e4c42wNU 4KW3xitsGRKeurxQFbhHurTHGllvcXTcIkkFUgPdYrC9Oi9xDVaqgIK2Z5oN 8svIxbrmXyowe/lxsR2yEpnFZLqrKsznO2deQe7dqPbw9VEFjrGcj9gmy7SU hsGq8JiQfcwR2WmilvtQnCros/yIw45tOOoZUa4KIT8+BjshD/h1UV5fUAUm dhkDF2TL3xLnNZzVIDnl3bArMt0hkp4BTzVY62g/7Ibfh6/ZwzRQDcz6wjWw j1xVqCPGqoGKut5r7I5ZDZWQJ2rQu8Be7I7M99mC+HxFDS6LfnD2xOflzc08 1kB1qHm10u6NXPpNVqnotjqUswz9xTahpPzBG6sOP2VCeX2Qq2SjLkpkq4N4 oVQyNrEhodmwSR3MSKWtfJF7KnMnYig0wFAx66cf8sOsVuY/dzTAcVF+MhA5 g3B+SD9ZAx7LHd1/A+/H44nxVVkaoLP0QhQ7NtmS0r1cAxb+C0jE9ov9u/ij RwPoBZZkgpB1bvC//nJYE36Ll6cGI5ObZ17pStUEvbKMsyHIu/+Rs1/I0QSv QRZN7M0Rx8/RxZqwwx7ohb2kL6KrXKcJdB8aWrDH1PvFW8Y04cm4o0Uo8scs 8r2fDmgBMTHizm3kyljR0T4dLXh87FdnOLJ1+n6KWgMtuBfmuoB9qPALz0MT LTic07M/Atm1KerWNWstsLEU1sQ+v/KRi9ZdC4pvp3dh5xn7+8jHa8Hlztn2 SHxe2V8yPO/Wgi429/xoZFn+OKnsfi3Q/GnbjP1LwvZK2JAWmPNKjGNrGdLW 641rQXZuJmMMPn9RBNvlBS34kMcShR26uPWUe7820HdLE+8ge9ZKaGWqacP+ +bCDd5GrTdrJRrS0oaPf6wL22qZW9RF9bYi1UFHG9hWzPR5jpg0vOzOCsW+8 jJr2u6oNy2S/fmKHNwz5GMVpg9fr66/jkNOa3R4eHtCGBwI5JgnIo9Z/dTWH teF4qJgHNvOe25TRY9rgPl0XjZ0lm+JENqMNwlLuL7FzWxqElle1wdL0OXMi cknbvrddx3Rgk6V5GPvV2/xfkaY6kG8SKXUP+Sljj1ughQ7cON+ui51nv7nk aqMDY4vLDthRZJqLhk46cDNyfxy2nuj6/Bl/HXj+0m4c+3uRykxTmg74tqb6 JePzErk4tDGiAzOet3PvI1MOMRn+/ISeVxhUjb3BLjc4MakDCY3EduzPjSkD 7XM6oDJKNY9dtC7de29DB0Jc/flTcD8hJr3lZ9KFpy/l67CvKF6uv2KkCwVL /c2pyAucTK0VBF0gv3tiANudZuP9hqUuzFnpz2AHdD4fi7yiC2krd6nSkON0 RbaK/HTh8bqAKnaNxSWx7xm6EDAg3Y1N5iP0wnFSFxb7qd6l4+9jzND0dEYX mnLEP2LTiq12bM7pAku/1Rw2w07VcNQvXYhLDKTKQOYMFVwv3qMHNnxbMtia cRcvzZ/Rg2uvWZ9hZxTyVzs56sHH9ICkTFxPRmw6sq/qATdVxkPsFZrk0X53 PZA4V1aGreqySSrurwdhH4o7sDf5X2vQxuhB+WWqLWzjOr3ZklI9KPUxssxC Ptrl/d/Ckh68TGw4lY3r8W4RD+uqHihyaJ3Dvso3Jm2woQf+fIPC2G0JqOSQ 6kPt1Ct17OuG1NWxh/QhQ22fP/bARJoGr6A+XLSM7ceO/11/09VbH7pvRwQ8 wPP1xVkR/PVBkY0+DFutwkZaKUgfGAZj72JTXqMmZQnXh5xUtxzsgO96wd3J +vD3Smc7tv3k/A2eGn3IrJumf4gs3s0U8GNFH+RutWVgM5X9MB1e14c7ylL5 2Gsxr8RatvQhleFJKXaFit3fdHIDmB7xbcDmaHvip3rEADqmy8axD9Yr+hZf NIDXd/NZcnC/Lb7uRXQ3AMa0jQxsgxM7nwu9DKAykC0fu/VumOKcnwHkMcmX Yud53md0DDGAJw+u1WNbS76odUoyAKc160/Yn3u3dq7WGEAp77v/cnG/XA8J v75pALQtownYck60S9U7BqDuT5eGXfUpyWiNzBCEvl56iJ3QnM/lvc8Q3i95 lWNrxbS/82E2hFd3st5hvz+1jz5A0hCOx6SS5eH+rZCQcuuWITxrdXLCnrGv 6/QLM4RMNn03bMrwaTKPKENwGxbxxlZqF3axSTCEedPFW9jvFUel5XIMgdOM KQ27X4l9nqLZEC5O2rVjf1GpkYgkNYLGpxQn85FJNT9+uRtsBII24S+xOxr0 2TxDjaAhl7EJO46n18YowgiSqvJbsVn2d0yzxBlBnW5lFzZ0Vn+tyDYCgYmM Cexg1fjv/Q1GcOP34z0FuF8qKf06tm0E3gd7FLA7nr0W2CIxhtNekyrYcWel PCbIjeHbgUUNbBYq4ZVCWmOwW9wxwIY2trXLzMZgVbNsjx0st7thKmYM9Bwc Yf/ml64hfeBrDJfSJpqwTeS+vR0ONIZO7s5W7CpFxqSDt4zhWV31G2yihh9H SJQxPFjw68XuNZVUtU83BiL14AR2jldb0vl6Yxi737eDLVcyePYFiQkMAqnI I1yPy6mWl8lN4OKj62LY609FarmpTSAr9qskdsmLNLWMgyZQtVQvj83Qbu4W xIrGe8jqYn+d/ForL2cCz9jLXbAjjv1R7ws3gSvDpx5gJ3V0TDVHm0Cc0XoO drZvmm/lXRMQ5O3Kx64ZlchPum8CZrNuj7FnskO3DB6ZwKXW1BpsGc5Dj0fb TICO1OU99pbIhb0zFKagJc23hr33+07mB2pTYCt4to59OL3nYhudKYznif/F 5t72sHjEYAqhPlIkhbj+NNXWXDljCoGVnDTYNcpKdgtypiCgFX0C29XEpvlP iClUTGfLYO/P/j4hHmEKXmX75bFLptx2b8aYguaanyL2N+dgcdp7prBKo6aG bR6UWcNSYAqCiT362Gp5Q8XKHaZg72NHxOZcUE1MpyXAj6KBaOw2gf6KCXoC jC6u38G29TbpOcNAgLAD/8VhZ5NcoXtyggC8U0ZJ2EcPh4W38BAgh64uA5tc pNH/pxYBXm4fL8WevCloK3WPAIqN+u+xOY7uj3VNJcDvKd4ubMfib88eZhLg 9Pm9PdgrfWn7yAsI0MBX2Y+9l520sqOGAGdEf3/E5mnrJNUZJsBcG/Mcth+N Q7btf2agnHCavAj3z8TUj5EPzaDHQEsIm+bD4V73fDMQEioUxiY5FttuWmQG nz7uXML+mXar6kKFGYQFFYpit+U4xfY2msEFxZ9S2D5PJWSYJszA+r6ECvan 3smiwpPmcNxn1wx74DDhQTyrObSu81tgv9UfTPbjMIdLZjaW2DUjb0PUeMxh a6DZGjtustJsScIcdlI8HbBllm8fFDEzh2DRPFfsAnpu3/Z0c2BhEb2FzfPV eJ38gTkEdluFYD+ri/SWyTMHYZ2IUOwO+7nr9SXmID/YG4b9/WWhe2W9OZSt G0RjX7hy1jl73BwE87mTsKua2C282SzAOn43D1v8vt7nqrMW0Du+pwC71TnU 7Nc5C1g/Q/UIe/DYtKmLoAVsZdIUYf9xyTWykbeAIgJFKbbocVYdTQcL+I/h XRV2k/sp+bOPLUBOKes1tqBv49jBSgvISVduxS4MsvLcqrUAhZbltn/5iMnN 7X1rAY8ei7zFtiw4Sxbw3QKyrz7swd79cd9i9oglHMmbGsPOYnnALKFnCRnN 2r+xg343e5w0soTs+fSVf+PbZt7umlqiejq1is3qfM632cYSVMSc1//l91nN B0UPS3heZrWNXabRGauTYAlHW75QFiPfPb00czHZEghW1HuxXVcOSTCkWYLP rwvU2AJpRvNDDy2Bk8JtH3bNzJSiWYUliAWNH8CuD9gkIfYgR5sxYvNN9U1k DlgCd7ofE3ae8uPG/mFLsLe6dxw76ighWGrSEorYW5ixDZ7U7x79ZQkuB6lO Yy9OBe+0HraCrjEOLuzTqlRbbIZWUEm6fAnb0WNDb9fcCoqXYi5jV6XPl360 t4ImFjYxbIUf3RbxXlZwpVVS8l/8nZTXO/esILxQWA67sjqK+WOmFehwFspj b30KuF6dbwV+80cU/+WDx+qsc7UVUNRPKP+bv5sremTACsZipDWxWU+Fr5p9 soIPB4u0/sVfnbb4MmMFLR9pdP49jy5bcH7NCkYT6/WwWVSPfN5itAZV1i/G 2DFtO3wsZtbA+VjMBpvglil4xM4a+gakbLEvMIuL7HWxhkoxsMPucvOVWgqw Bu99wg7Y9CdW1BszrCGt7o8jdqLHnKPlmDXE+H1xw+6hcs1en7dGcV4e2Psz 1vrj/lqDfd+2J3ZEyx6JpuM2MN/33Ru71SjKzZjbBjrfa/lik/2kL1i+bAOz wiV+2AEMJw+wGtsA9wu5wH/31/3saR1tYGsr4wZ2+Meh+jU/G7ji/T0IOyE7 3vldhg1sd9rfwi7ionjrOWEDkzbLYdgrzdO6kks2cCEJ/b7hfkxo+URFYgsV T2cisIdjQ5bTTtmCZW1TFPa1JhkKHilbWPC7HYNNuULK1GRuC6YrfLHYPK9d 3NeDbaG8Y/ruv/2UMPKON9cW7I8HxGPfsJI/49BqC8FzawnYj/gqbmR9s4Vt If0k7L2B5QLC1HbAYBd/D5v4pvRrJ7cdKBY8T8bmsi7W2Haxg55vIyn/3n+w IrioxA6m2R+kYY8qv3iqP28HLRP8GdiDa0yuKrz2MH6mOBO7L9fvgpSHPRx/ tZiFPXPua9WTp/YQYU/+AHu9Uluc9Zc9DB3a/ecA4S8+enwOoJ06+hB797l7 ddhVB7DizM7BzvckBJI+dYAiZfNcbFU+BfmAVQcgjtLlYVO3iw55CBKhsCD3 n9vNeK84eRDBy+h8PrYoldaT6hdE+HGw5p/Lnrj+2d0lAjDzFWD/D26WCnc= "]]}, Annotation[#, "Charting`Private`Tag$37273#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"h\"", TraditionalForm]}, AxesOrigin -> {0, 3.3300000008160553`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"h\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925799263*^9}, CellLabel-> "Out[1785]=",ExpressionUUID->"ef0e9792-908d-429a-9404-f743d3e42792"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwd13c81V0YAHBECUnJKpUoK5u8Mh9b9l734rr2yiyziIpkJ1nZhJCtlFlm KUpJSkhKZoVQ8p7TX/fz/fyee875Pec8z7n3GNnb2ImKgoLiDSUFBf7kTtwq zDkypMjrAizl5XTQRCtw1Mv1ntLMCRPvDOSOoKoiftc2pe05npEY5G4xX5ed ri+UqE8dfO2C3Bv3UmvV5aOSZbNVLC9yn2zUg3mXJaUSuroXJWV00J885vvV ZVtprqKIXFtKBzHpaX03xCnAsy3nZiGykKuSteQ9Cnh7I+NNKrLfruRQv3JK SDhgFBmI/FddqnU5bwd4B1CHKyCzPw5RXYjfBaXFjttP79CBdssu/RmXvSAt s9Txo4QOxLfJq6zLe0HE98/FaeQ4LrvnPPJMMHgzVfsNcgC5+ZzpEyZ41M27 pxlZbcbnScPwPpjsOagYiTy18ME+aJUZlPisVVmQubaasrek2aHObylYvZgO DuQ4LbOEskOof/e8DDKtErOaSBs71N8+6ymEvBRxds5WkwO4zbaSmZFbqU/I tlscBFJOXsBUER3YMKSMRAZxAi+jfVwk8sAe6d3UNlzweHx3xdNCOnipsz/9 eRgXvKc5RuhAfnttkTcjmwvavjAcaEKeprmjJvKeC7LNFQsLkP9ssUVYEo7B mBytdAiy4OLGWoUVNxRsyZ44iRzzvGXazPw4XP61PnujgA5UEtXb7xjwAyV9 sFR4Ph1EaNeXvTzLDyXF0/KByK00PDe24vlBfm+rrjeybBiFs8kzfnDXy4u0 Q5Z0e0i/rSUAMm6eGoB8XFXcwlxFEB498OPfgbzzF+ci9SkhINyq50/IQ/mt vT4iaioEpWLK+6ORI7022639hSAs1oMqAvnvp5Eb1TVCsHAhfM0X+ddgymmi iDA4fJkXMkf+Wk57pY5PBMReJA4cRXYS3dwjvkcMFBwiGpty6UB3LLqY/YgY CPs0fqxGlopmUaAQFQOmh+/2liNTfxTzfGEoBm2mQ5ezkQsSXPq9UsXAIKey /RLyx4Xhq+WHxGGbbzRYD9mq4t42j6AEMK/mP57NoQOwVLhFLycBPBvklk/I /NRPRX7qSACHmFLLB+R1woxNp5cE6JuKvRhCTqM//IhUIwGM6ppyzciv3GOD bstIgqvyG5E4ZD0Bp++smlKgcirfVAp58/q5hx/MpSBolo0kily6eOVKkbMU WCjI+QgiU9eXcEhclYKnO4JyuJCbFb8q63VJQXofQWIPMq+pR0qU6ik4KWAt 9eU2HVCE+0ouK0mD+8P8KznIVZOXthoNpEFPhf5oJjJBLaXngp005DkXPrqJ 3Li7jkAfLg06PQbU8cieqStRvK3S0Fsi2BWKPFoWOEyU/w96np/fbY1cO3zh XJ+MDNBqvI3gQC694kieOiMDldTjaizIOdI6Br+tZeBOl8yefcix6ewCwhdk wEVltJwW2YFY9z6pQwZyhk5zrGejepr+qmqpfRo+vtJoHUE+/9Nk/xeCLHxb lWXKRPYskt3e9pSF4e5K8zRkstmxefaLsnCtczUvBVm/abFLO08WkiXW4Doy X+i14KppWahrNagKQ35L1TZxzksONIYPyZGQ5fYL3qMOl4dSYj+VIPJzSuu+ gUR5GDR8/5QXmfT92qe0PHnYOC6UzoN8eXCWTaBTHhSlAmUP4/iEsgg9GgXg sLMoZsLx9ALGadcVwNudZ996Foqn5l/lS1cEoZCd/H3IrCsWe7+XKoJh/7JR N3Lpp2iB5geKsCh+5+Jj5IHOLza6Y4pwjdF9ogXHX7rT7XNECQQNFvprkcu2 eNMfFCnBwC/i4dvILr9TbhdbAuSdnL/vj5yqP/84mARwsPGqgy9ye776Nz1X gFkTIyZvZHatdem1QACDRi8fd+TeVJtBjVsAdYlR2vbIAiL8O76+RuMFWTka IM+RWlwFTZQh/IcWtzD+fj1r4l9rZRg4uW/vSWS1XT4NL8nKMD/Yv8WPnF3J TRXqpwx83nSTx5F1N6OzniYrQ9hqfCsncuUN4+eeg8pwb9h4mAHZu/uL5D09 FWCXU7FdzETrhQoPIXMVKNvPYzuPzPTQp7DMVgXsUvaQviFX39vYX+StAlIi v9xmkH+k0/9IT1YBfZOpm+PI5z1EqyNfq8CYuJruC+QwpkAhcxtVEG2rPF6L /CxWzvGVkyqEnXlsX418mIYi2/CsKoSvF+RVIbduxNDrhKtC5PYDnrvIFJ8y vynlq8I1PTalIuSohtZSgc+qMNXH3JeGHGu988SWpxo6/3JHLiArijGszQao gTZf/t1Q5O80+3vehKmBvLSLbAiyZc1ht+o4NeAgMBIDkU/Qnqp0qFCD7+IF 93zx+zc4nOqfU4NPzsVpzshrTB3qt9zVgbXwq7URskNPqLO4qwZksdqFCyI7 yvPqr3lrgPrsGkkA2blm8NTDQA14xpmpyo/smnWCRj1aAyZu/aXnRT7r/aLQ skQDtPyPlB1DDmHjmQyf1gAu7xZmDuQUl37Cc5ImcAcHFNEip74PUL3hqgnG Z5KKdyHfNDp60tJHE+LHMu7sRE6XC9icDNcEnnG/KmrknL1HMlZzNKE66ngP BXJ5k+8bzg+aEJPYw7ORgX4/7OIw8rDSgvazrJe/Ic8UimiP2mtBkjxNwiwy A6iparprAeP1ufSvyJZB3qd4QrVgD39WzQzy0tcujrFsLSh85bU4hXy4329K e0ILqC9y3hxDDo575i/ocgaWr4QmDSDn8E95pnufgQz3O03PkJ88+eW0M+gM XGir+vgUmWmL23Iq5gzM/Kcr0Y98xytYPrP8DAwNl012I7/W56WhWzwDEzon XduRxfdFpM0GaIPDAB9jPXIz7Qh/T5g2dAuPEOqQVShEHhZd1obKeJHyWmTT pbGPdqnakLT1UqsG+fzAfwJv6rRBIWgqvgr50bWlh50/tOFPZaZ0GbIWld1k lo8O2Hc4/81BHtpo8A8O0gEhxnU7bOvvDDstInQgfeZI521kj4lmwf1JOvB+ TjAmGzmhlTUg5p4OFHILHcpEHg55vvPcog7s3qlDvIlM+qkgpO+pC0/eTmrE Ie/ZTzE4HKALW3zyVdfx+4h1+hMu6EKvqQQr9oGzGg9dE3ThEN3yl2vIvV/1 taOqdeGRTH5KNLLYuJ3r/RVdCNK3oY5Cpui7VMR9QQ8Wco3MQpArv6hqlV3R g1LW/S+C8fp37pwXTdAD2ijiGex61VhJhVw9eLgdpxSE7Nqa0mnRoQeU47oS 55EH6won4mj0If5Nv5gfcn5OF+eveH1o/T0c746cTRQaMUvTB3njGQ7s9IM3 kutz9EHFzqPEDecjjbTT754+9F583u6KHJLwe2l+UB/arBY2nZGNL4o/nmI2 gMM5BpcdkKltb7s9zzAAu9NjX4nI24eojwsXGMD4oZJI7M1R9/Hr5QYQKPeW E3vZTMbkzEMDeHDDx5iA/F7vlfyT9wbw0dS50wr5XQ417Ye9hlAXRt9gjlyX IDv20tgQEkNcpgyRyVmMNM3mhjBbR0rA3l86JZJvbQg0YaWy2D4dsZHeZEO4 5MqdaoAstPJOgMHPEOIjG7X1kYusQoPUkw1hUJa1Wwc59fgjlvsvDIHloctP DWRV8SSl3FeGcJYhqRT7h4Kj29URQ6Bi2bLBNrRgaDH9aAgR0SV96rj+YomO 3xcNQW1crEgN+fLSn1pBRiN4VPHDSQU5oFnB8LauEfzMKj6oiNxg3UM1amgE xYHeLxWQ1zYNGw6YGUFtX2QsdrCc48E4GyM42nD5tzzyxUex0yFnjWBrZmFC Djm6dSTIMskIbhSxPTiNnNnpm888bAROqyPZp5DHyL9NDN4aAcdJTRtszh1X dl5/bwRcG2uHsXNU0z2oPhuBuwpbnhRy4ZPWU99XjaCgx/iOJHJFN33/czZj 8IoN7BBHbusv/nGNYAxSo3HcIsi17IO+F+yMofyCyqIwzqfz5rKPgzGIhgo0 Y8dSGSxZeBjDu4+xxtimsutzJ0KNYXk67YoQ8rcy7c8dmcawFl29Iojr5drS yMaoMVBHvFjlQ945wmGx8MEYwnaRe7A3jqu9mZg0hroxrgzs8fb04Z5ZYxju 5VbALltXHrq5YQxHdCSjeZEVXVP7xTlMoDjDgecEspvm6RY3SxPgqpwJ4UZe 5OfoqiGaQOmqmj62H93Gsw2SCbgYDh3DDhu4//6amwnQevv3HUNOMpH5UxZi AsK1IwexG+3+k/uWbQLr1j+7jiJTBZ164D5pAt7ZR+QP4/2xYumo/WwC4qoT B7AZ5FZ7N2dNoNayf4ETmeVv/dvYHyawJs2Wh81/WWq9fIcpvExO3IltkCT5 39wJU1jRHn13ENdrqXiDh7spDB7qymXH/WTUoTf3rCk0z3y7gL1Clzb2ys8U djFJErF1vDYp5UNNgWZBgAN7U/yxPkOcKaiOVaayIVs9NP1aUWkKluOLyazI rM8DDy0umwLvScuiA7gfb5eJcK+agmFR1FXss2Lvlc03TOHZ6jNX7O4U1HIo zWA16b4w9jmL3Q0J+82grXbpPjPunxOZ+qJSZjC50TK8Hzn5Z8sln0Az+O+g 8LF9eLyXSfbEUDPg97hNi61b46CsFW4Gl54fX2bC+++9m5Ir2gwmLga1YYd9 M414kWYGN13E7bCdJ+cuijSaQSf5bcFeZPkXHGHzK2YQZeAvy4jMUTVPeLtu Bq9t845jr8W1yT35YwaqB6YYsWu0nX5nUZvDV57CT3uQeburQ3QOmEN6E0cC 9r4WzeBySXMIbe6ZYcD3bfm5865+5lB6IbeEHtn88N/x0vPm8CszMxm7K/Gq 5myIOezhuRuGXRRwi909yhzuMzGYYJMVHzR7pJqDflU/Bfb40J+/ZxvNwYj9 BIkO35frUdHnNs3BO+e+8G5kNQ+G5Ya/5rCafuoQdv2HVMs1KguQ8e+ixU7p LBYIpLeAA5cPT9PifhTX8zSI0wKdt8os7GdH6ZnCFNHzW/KM2E80UtIjIy1A Oq2YYhfyZ+eHAyFXLcDhgN/3nTjf0dNU/rEWoHxKbwpbq0fayyHFAgr4RZ9g P9McU1YrsAA2q7wY7Fdax+doOi0ga+PkAewp7UaFa5SWULMdc4oGmdLg3VRi hCWQlWxzduDz2mrGE3DZEs6MF6ZgJ4kMOVjGWEKV/spVbC7G3mmuJEswimrw xoaBhpmaXEtItLivjB2hk/ztVaslRMXc/0KF70strR9sW5bA/N1NDru36bHE Hwor9L9jQww7iU/Jf4LaCg633uDF5tolvVLKYAWq2dP7sKGbZ+00pxWMXN38 SonHV9veIMhZQd33pXRsCuVGyrxgK9ixo3ebAt+/al/6316wgjv191ex6zXZ U/dFWoFXc90ctqt+CG9UrBU0pfeOYA8RFHWcs6wgPcyzGrvgfHeqUIsVuDy5 4YCtVvGG7wGFNXxxZxvaTkf9+N6u79+prSHaT7EXe71WpllwtzVsRpxtw654 kKmbvc8aqmJmK7FZemx9w7mtATi1r2PPTM40q6tZg05WiSZ2DNsvvZfR1sBt nNL9Fzm1t/dT53VrUEjXbsPODc4Mrku0BlLL7vvYjWMKxam3rGEuIbsM+3Pu 5T/md6zBsZE5HluFf//dsW5rUDJSNcP+IyNM+5mGAM7XLn3bQqb99vf2690E IB2ln8ZmzhqU7N5DgLHPmR+wBbf87e6wECBm8dkgtlVHc6PbCQLQmIc0YTee 0XJaVCPAVNPqFWwfa4fOX1EE+JOhxYfNmPttQj6GAIQ/+49hV3zy3b4URwCf N58OYn/xjJBnuEmA1dfpjNi24bcbuUoIQAUGa3+QdYtGys/0EmC64ks3Nv+i zo0sBiI0tcd7YndLvKqZYCLCdU12F2zHQOvBEyxEGLIstcfOpXDbU32YCKq0 o+bYrMxXo5+IEGGUI0wZm1qmPXTBkAhBFF1s2JOXpByVbhKhM0+59zcyLytj gk8Gmm8x9jG2e/mXpvzbRPhIM9qKvfIyk566hAjEi1EN2LTHKet6G4nAcGRf IbZI9wCl8VsiOGrRh2OH0LnkOh6ygck+oix2Ww703TxqA8QBaWlsasmDP7t5 bKCAkUUCO54woCEgZAOHT48LYOdVSC4uyNvAaF0BB3aPPoVCoK0NXPVZ3thE PnAj4921fBuY14towaZ7zTzkV2wDeTzszdgUbAk9hDIb4DhS14i9kBlZL1xj A8eDftzD7i7wSBhqt4GjEWkF2EG1CiocEzbQMeYbg/1haLKs9IgtXC5wMsce ZibmJXPbQlimjQl2v9mbtBBeW7jqZWmI3TjaH6UrYgsZWeba2EmTdTbLCrag MBKgiK3y/co+GRtbSO+V5sMuYRIM7smyBVJA++YGzt+M1Tp1ni2Mqb7+hd30 8FqgSpEtSLEvrGD3Os+ea6mwhebHJ5awvz0q9atrsYWpV82fsIXd+DxzP9pC iYbvAHZ9x3G7QB47sJjZLMCWv2U6Xs9nBxF57nnYXZ6XbX6ctIMYyg+3sd+w TRO8pOzAv6IvHfuXV6Glg7odnDPpTMCWPchtbOBiB/P6IqHYHX5H1fnu2qE+ +tEMe3N1KYnznh3MbjwxwZYKbn+/r84OBqsqjLBLw+0D/jTbgZtopB52Ulxh 4VC/HYRYqatjk0r4qMK+2UFkq+Ap7O35W3ZfD5Cg+D8nVuwcrjxOBVMSrCtL ja/jeosV7xU2JwFdctp77PCfnf5HLEkALpvvsEndn/u3CSQwLOgeweb2PBnc 6UCCLB7fIeySpsbXmv4kuDXC0IVdpT+QYJxCAumTJpXYR+7byqqmkuAH66e7 2InHlj9LppGg0CSgHNtnZb8CSyYJuB9k3sGWyLScG8knwQmaX/nYjZ8/adrU kGAX73wadkvYJoXrIAkuCvRdwl67N7Mc+ZIEj2icI7DFPr2cuD1MAnZr6nDs ojN321+9Rc8d1cOwY1mJEUqTJBgefnse27y6ZZv1Bwl4H6h6Yi99ivjbxWwP nlZHLLGP6ez6w2NhD7bi8ZLYUq9VXx60sgeNzngJbA27iNJ9BHsgKSeKY7v7 b5hu29rDAvVNUez6rLnKd872sB129+S/+PkXdsnn7cF0z47j/+Lj0x//vWkP 9skmLNgJ+ft85jPsYf/6dWbsuoZYzne37aHIo2cf9p8PYecaiu3hoYEm4798 itjzeTbYA9NXt13/5nshcH102B54SbKbv5A9Ai3bD43aQ6t/xDo299HoVZsP 9hAq1b+GnXh22m7qsz1s5rr+xHbfkys1t2YPIkaD89hcOgfG/7CTIbZSbQJ7 5IcKs9JhMpw41jmOnZDpq3XpGBlUn6l8wP49+7yWRpAMWXf13mG/ibkWzShH hon2mGHsuO6/Ylw2ZBh5E9+HvXLoucRBezK0Fhv1YhN9b0sdcELzvWfrwRbm lJeh9SLDlNvdJ9jPfYOVlsPIsExYbMNmOryi155NhhLSeCN2kN9jg+Y8MiR9 7GrAnuhJMaovIkOG87167Bo/cbPSCjIcOBdTi23ce5aY9IgMLPNGVdg3/Gfd Se/JELYDSrAL2OmDNCbIQFuoU4xd2yJ0RWiaDNqiVkXYg7t8ctfnyPBtO7gA mzF77VXSbzKQj77MwY55skOh46ADJKuP3sIuYdS0iOd2AI2rQmnYXZaxvlaC DmB2/WoqNtUCU8n30w4AfvrJ2GEsR/ZyWzlAWb7gdey2q89kb9k7wKJc8rV/ 8eshzgzuDnC14280dvS7kZa1EAc4t71wGTslN9nzabYD5BE4wrHLBGj6AyYc QLIrKgBbf20lweorGs+I6P9vPzqnTRSXHcCyWMYPG4hPPuyicATZvD/e2G8T or5nHnUE8ZkaD+yLBP/GcD5HcCotdcc+zu8Q6ijqCJrihW7Y3h0qNCJKjnDw VqEL9s4VSo4OW0f4WTvk8C9/X4hL+i6O4C/0ioydOdbU9d7bEfhZRu2xRR57 +a1HOIKo1A87bPOU0aeihY7QVGpFxP4WnBikU+8IMn/vWP9bj736CZcuR7jO RGuFfUes5mLOF0e467Fl9m/95tWW7uuOIMmfYYpNe+GehPRuJxDYVDfBdu2r nBkQdIIoyU5D7PSlivYMOSfgY08wwO5lqch00nWCbiEHfWwBcrn+lpcT/PzM r/uvXpSECKUXnKA05KQONitnlYtJvBNQMUpr/9uvNzURZRVOUCTmoIW9mNiQ sf3UCd7pVWtgj515UGs25wSFTofVsS3z3PYZ7nGGo2Vxqv/qaY3DR1vUGQqv HFPBflkYIqzk7wz3V3KVsN+7iH3/leIMd1riFLE/n5ypr651BsqCGIV/8y1l Bbm9dIau/Bvy2Ot1RvLcP5xh5VGl3L/zJj0VZCrmAo5vWGWxt+/7NVw96wJG lM0y2MUBxAuUtS5wWtj7P2wdMQ31sFUX6N+tIY29u0d2xF/KFSj4DU5h99iI unn4u0J+R4AUtuwuw+qGB65Q5p8viV1V7fNre9sVTLyWJbD/Bz0XBSs= "]]}, Annotation[#, "Charting`Private`Tag$37349#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {Automatic, Automatic}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["t", HoldForm], TraditionalForm], FormBox["\"y\"", TraditionalForm]}, AxesOrigin -> {0, 3.3246902446386826`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"y\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.7910259259374247`*^9}, CellLabel-> "Out[1786]=",ExpressionUUID->"1cd1a083-6f99-4adf-a2c1-4e0c5848c7c1"], Cell[BoxData["\<\"Growth of y in MRW model, 20 years in transition to \ SS\"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.791025925955896*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"cd3760e8-d68f-4c9d-944e-14ac8cb90665"], Cell[BoxData["14.89295457955356`"], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.7910259259589853`*^9}, CellLabel-> "Out[1790]=",ExpressionUUID->"7fa06adf-8eb5-4f1f-974c-cd0a0c13e9a8"], Cell[BoxData["\<\"Growth of y in Solow model 20 years into transition to SS \ \"\>"], "Print", CellChangeTimes->{ 3.6900525763901043`*^9, 3.690052626204865*^9, 3.690054095440564*^9, { 3.690054132874213*^9, 3.690054263572177*^9}, 3.690105762659779*^9, { 3.690105847790679*^9, 3.690106018844211*^9}, {3.6901060528407907`*^9, 3.690106089206607*^9}, {3.690106254588937*^9, 3.69010626986252*^9}, 3.690106351862322*^9, {3.690106407486864*^9, 3.690106430627633*^9}, 3.690106555209321*^9, 3.690107558183793*^9, 3.690111789996834*^9, 3.69011183291234*^9, {3.690112012078573*^9, 3.690112081238092*^9}, { 3.690112116063916*^9, 3.690112126634061*^9}, {3.690112175302676*^9, 3.690112200140048*^9}, {3.690134497607543*^9, 3.690134593845945*^9}, { 3.69013463998813*^9, 3.6901348097527122`*^9}, {3.690221785237075*^9, 3.690221828578745*^9}, 3.690221900761402*^9, {3.690221989501033*^9, 3.690222010808835*^9}, 3.690222080646173*^9, {3.69022212172213*^9, 3.690222181664792*^9}, {3.6902222219443607`*^9, 3.69022223588447*^9}, 3.69022227955859*^9, {3.690223064085471*^9, 3.690223078875169*^9}, 3.6902231429332533`*^9, 3.6902231862665243`*^9, 3.6902256294061747`*^9, 3.6902261938998337`*^9, {3.6902274124364433`*^9, 3.690227437247944*^9}, { 3.690227559348921*^9, 3.690227642724001*^9}, {3.6902825768068867`*^9, 3.690282611659956*^9}, 3.6902826431424227`*^9, 3.6902834751742764`*^9, 3.690283523488069*^9, 3.690283878463299*^9, {3.690283937253398*^9, 3.690283959331024*^9}, {3.690284096199626*^9, 3.690284159701985*^9}, { 3.690284194520226*^9, 3.690284211163035*^9}, 3.690298810619295*^9, 3.6902988514864798`*^9, {3.690298893904454*^9, 3.69029893999366*^9}, 3.690299520123122*^9, 3.6903014046019793`*^9, {3.6903014938379173`*^9, 3.690301499181068*^9}, 3.692642321322508*^9, 3.692642390162306*^9, 3.697454390125519*^9, 3.697454441063961*^9, {3.7595170522329817`*^9, 3.75951707247218*^9}, 3.759517129988433*^9, 3.759517300169651*^9, { 3.7595173962353086`*^9, 3.7595174245062113`*^9}, 3.759517515036059*^9, 3.76019748046268*^9, 3.760197575488748*^9, 3.7601977429606867`*^9, 3.760197836795558*^9, {3.760197878888955*^9, 3.760197894514591*^9}, 3.760198079788059*^9, 3.760198109949087*^9, {3.7601982594672327`*^9, 3.760198319425309*^9}, {3.760198419946787*^9, 3.760198467016008*^9}, 3.7601985022830343`*^9, 3.760198628510296*^9, 3.760198695121751*^9, 3.760203431167591*^9, 3.76020378557163*^9, 3.760359899042614*^9, 3.791024321184547*^9, 3.791024808805256*^9, 3.7910249683855247`*^9, 3.7910250487444887`*^9, 3.791025104178039*^9, {3.791025554581155*^9, 3.791025570487967*^9}, 3.791025718149619*^9, 3.7910258557715387`*^9, 3.791025925961965*^9}, CellLabel-> "During evaluation of \ In[1757]:=",ExpressionUUID->"bb2c5912-6c2e-4ec7-bb05-c4f63487e4f6"], Cell[BoxData["6.786315176559171`"], "Output", CellChangeTimes->{ 3.6901062699635277`*^9, 3.6901063518691587`*^9, {3.690106407493737*^9, 3.690106430634213*^9}, 3.690106555215995*^9, 3.69010755819034*^9, 3.690111790007903*^9, 3.690111832927652*^9, {3.690112012088929*^9, 3.6901120812493267`*^9}, {3.690112116074484*^9, 3.690112126644643*^9}, { 3.6901121753131313`*^9, 3.690112200150942*^9}, {3.690134497614626*^9, 3.690134593852371*^9}, {3.690134639995549*^9, 3.6901348097639637`*^9}, { 3.690221785243444*^9, 3.6902218285851*^9}, 3.69022190076787*^9, { 3.6902219895100193`*^9, 3.6902220108151417`*^9}, 3.690222080653593*^9, { 3.690222121728511*^9, 3.6902221816692753`*^9}, {3.690222221951516*^9, 3.6902222358911543`*^9}, 3.6902222795656347`*^9, {3.690223064092553*^9, 3.6902230788823347`*^9}, 3.690223142939691*^9, 3.690223186273624*^9, 3.690225629413398*^9, 3.69022619390688*^9, {3.690227412442972*^9, 3.6902274372555304`*^9}, {3.6902275593553953`*^9, 3.690227642730571*^9}, { 3.6902825768138103`*^9, 3.690282611666582*^9}, 3.690282643149085*^9, 3.690283475181265*^9, 3.690283523494659*^9, 3.690283878470664*^9, { 3.69028393725987*^9, 3.690283959338263*^9}, {3.690284096206217*^9, 3.690284159708935*^9}, {3.690284194527464*^9, 3.690284211169553*^9}, 3.69029881062644*^9, 3.690298851493478*^9, {3.6902988939112597`*^9, 3.6902989400002203`*^9}, 3.690299520129862*^9, 3.690301404608638*^9, { 3.690301493844841*^9, 3.690301499187714*^9}, 3.692642321331314*^9, 3.6926423901688633`*^9, 3.697454390155282*^9, 3.697454441070387*^9, { 3.759517052242282*^9, 3.75951707248242*^9}, 3.7595171299990177`*^9, 3.75951730018075*^9, {3.759517396241802*^9, 3.7595174245163803`*^9}, 3.75951751504338*^9, 3.760197480473604*^9, 3.760197575497993*^9, 3.760197742970563*^9, 3.760197836805739*^9, {3.760197878899048*^9, 3.760197894525275*^9}, 3.760198079794301*^9, 3.7601981099561462`*^9, { 3.760198259474699*^9, 3.7601983194317493`*^9}, {3.760198419954034*^9, 3.760198467023169*^9}, 3.760198502289967*^9, 3.7601986285171432`*^9, 3.760198695128298*^9, 3.760203431180233*^9, 3.7602037855829782`*^9, 3.760359899054246*^9, 3.791024321187258*^9, 3.791024808807428*^9, 3.7910249683878927`*^9, 3.7910250487468452`*^9, 3.7910251041802483`*^9, { 3.7910255545835953`*^9, 3.7910255704903307`*^9}, 3.791025718151495*^9, 3.791025855773829*^9, 3.791025925965382*^9}, CellLabel-> "Out[1795]=",ExpressionUUID->"5e7b28e2-dd62-4d9c-8bf2-653c01d3033c"] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.592303013173291*^9, 3.592303119348524*^9}, { 3.592303150782524*^9, 3.5923031704073243`*^9}, {3.5923032163805246`*^9, 3.5923033600721245`*^9}, {3.5923034607409244`*^9, 3.5923035148729243`*^9}, {3.5923035561761246`*^9, 3.5923035642413244`*^9}, {3.5923036123985243`*^9, 3.5923036439417243`*^9}, {3.592303682894924*^9, 3.5923038349793243`*^9}, { 3.5923038676145244`*^9, 3.5923038713585243`*^9}, {3.592303956650524*^9, 3.5923039787577243`*^9}, {3.5923042959353476`*^9, 3.5923044839832287`*^9}, {3.592304610035269*^9, 3.59230473382088*^9}, { 3.5923049099124126`*^9, 3.59230498842511*^9}, {3.5923219486792574`*^9, 3.592322219760334*^9}, {3.5923222556901975`*^9, 3.592322428930502*^9}, { 3.5923224712845764`*^9, 3.592322537927893*^9}, {3.592322579908567*^9, 3.5923226703069115`*^9}, {3.592322711795782*^9, 3.59232281327396*^9}, { 3.5923228673592553`*^9, 3.5923229093021297`*^9}, {3.592323180265791*^9, 3.592323228646476*^9}, {3.5923232979391985`*^9, 3.5923233342872624`*^9}, { 3.5923233703545256`*^9, 3.5923235135783772`*^9}, {3.592323981516799*^9, 3.5923241042110147`*^9}, {3.5923241417446804`*^9, 3.5923241495914946`*^9}, {3.592324180526349*^9, 3.592324183084753*^9}, { 3.5923242364212465`*^9, 3.592324321520396*^9}, 3.592325013343275*^9, { 3.592325801308015*^9, 3.5923258125752344`*^9}, {3.592326005762375*^9, 3.5923260178211956`*^9}, {3.5923264983432407`*^9, 3.5923265392787123`*^9}, {3.592328639856205*^9, 3.592328702240715*^9}, { 3.5923287459373913`*^9, 3.592328780132652*^9}, {3.59232903950191*^9, 3.592329049626328*^9}, {3.592329109327633*^9, 3.5923291175644474`*^9}, { 3.592329310415986*^9, 3.5923293582330704`*^9}, {3.5923293884347234`*^9, 3.592329419556778*^9}, {3.5923295029857244`*^9, 3.592329549442606*^9}, { 3.592821742692944*^9, 3.592821884996394*^9}, 3.592822497337839*^9, 3.5928225425311184`*^9, {3.5928250564478607`*^9, 3.592825161809963*^9}, { 3.5928258612526608`*^9, 3.5928259107837477`*^9}, {3.5928274422560377`*^9, 3.592827456108862*^9}, {3.592827493250317*^9, 3.5928275253707733`*^9}, { 3.592827786484032*^9, 3.5928278877906103`*^9}, {3.592828880283263*^9, 3.5928289270833454`*^9}, {3.592829926520584*^9, 3.592829961497821*^9}, { 3.592829994647614*^9, 3.5928300379574223`*^9}, 3.5928300699816537`*^9, { 3.5928304307227645`*^9, 3.5928304330327673`*^9}, {3.5928310580607767`*^9, 3.592831126359211*^9}, {3.5928316203172736`*^9, 3.592831676759353*^9}, { 3.592832309279376*^9, 3.59283234758743*^9}, {3.5928324246713276`*^9, 3.592832468550763*^9}, 3.592840765072913*^9, {3.592842764815634*^9, 3.59284281683751*^9}, {3.59284285199656*^9, 3.592842905432009*^9}, { 3.59284303648768*^9, 3.592843126123288*^9}, {3.5928431713739605`*^9, 3.5928431781369705`*^9}, {3.5928443418643637`*^9, 3.592844371948593*^9}, { 3.592845257697855*^9, 3.5928453152771225`*^9}, {3.592845438111483*^9, 3.592845438612484*^9}, {3.5928455591888404`*^9, 3.592845593291075*^9}, { 3.592845830719597*^9, 3.5928458721786556`*^9}, {3.5928459435307565`*^9, 3.5928459441507573`*^9}, {3.5928461207860065`*^9, 3.592846133040024*^9}, { 3.5928461675090723`*^9, 3.592846202165122*^9}, {3.5928468128024054`*^9, 3.592846823908434*^9}, {3.5928468747807994`*^9, 3.5928468753008003`*^9}, { 3.5936309795478277`*^9, 3.593631006457875*^9}, {3.593631067734782*^9, 3.593631071369589*^9}, {3.5936311628013496`*^9, 3.593631170429763*^9}, { 3.593631212471837*^9, 3.5936312193202486`*^9}, {3.593631451729457*^9, 3.5936314658474817`*^9}, {3.5936322138229666`*^9, 3.5936322184093747`*^9}, {3.593632399120092*^9, 3.593632424782137*^9}, { 3.5936325018618727`*^9, 3.5936325079302835`*^9}, {3.593632722134259*^9, 3.593632742273895*^9}, {3.593633158385811*^9, 3.593633168291828*^9}, 3.5936332688808045`*^9, {3.5936340458869696`*^9, 3.5936340931238527`*^9}, { 3.593634199094838*^9, 3.5936342001556406`*^9}, {3.5936342753321724`*^9, 3.593634315455443*^9}, {3.593634429538443*^9, 3.593634430037644*^9}, { 3.5936347922390804`*^9, 3.59363479771469*^9}, {3.5936349819354134`*^9, 3.593634982559415*^9}, {3.5936350609339523`*^9, 3.5936350866271973`*^9}, { 3.593635132772715*^9, 3.593635133287516*^9}, {3.689441293251376*^9, 3.689441301554364*^9}, {3.689441333288087*^9, 3.689441333916554*^9}, { 3.689441436387124*^9, 3.689441490805035*^9}, {3.6894415355774317`*^9, 3.6894415360074883`*^9}, {3.6894415711338463`*^9, 3.6894416164480057`*^9}, 3.689442624010586*^9, {3.6894439934875298`*^9, 3.689444029693028*^9}, { 3.689444083345633*^9, 3.689444120812029*^9}, {3.689444226302259*^9, 3.689444259543942*^9}, {3.6894443256877193`*^9, 3.689444341885173*^9}, { 3.6894465294374638`*^9, 3.68944654765119*^9}, {3.689446593418804*^9, 3.689446595756385*^9}, {3.689446673698803*^9, 3.689446697493495*^9}, { 3.689446731694825*^9, 3.689446817557325*^9}, {3.6894468521116247`*^9, 3.6894468574286613`*^9}, {3.6894469033886633`*^9, 3.689446974411023*^9}, { 3.689447006239159*^9, 3.689447006858337*^9}, {3.689447079155017*^9, 3.6894470854866743`*^9}, 3.689447148796659*^9, {3.689447202549506*^9, 3.6894472596530123`*^9}, {3.689447314197872*^9, 3.689447363393394*^9}, { 3.689447424050839*^9, 3.6894475346891413`*^9}, {3.689447613241413*^9, 3.689447677569035*^9}, {3.689447708689456*^9, 3.689447738940914*^9}, { 3.6894477738296947`*^9, 3.689447905747136*^9}, {3.68944796128249*^9, 3.689448056917307*^9}, {3.689448113080202*^9, 3.689448582561861*^9}, { 3.689448651526608*^9, 3.689448654956846*^9}, 3.6894486928730793`*^9, { 3.689448758646542*^9, 3.689448770766357*^9}, {3.689449949205542*^9, 3.689449997522868*^9}, {3.68945005036767*^9, 3.689450139007403*^9}, { 3.689450203757119*^9, 3.689450215713686*^9}, {3.68945026250353*^9, 3.689450291944194*^9}, {3.6894504500813932`*^9, 3.689450473524239*^9}, { 3.68950319987365*^9, 3.689503228370843*^9}, {3.6895046022277603`*^9, 3.6895049714101543`*^9}, {3.6895050133981867`*^9, 3.689505109448275*^9}, { 3.6895052215052233`*^9, 3.689505256906271*^9}, {3.689505341114214*^9, 3.6895053452973146`*^9}, {3.689505376283205*^9, 3.689505380274873*^9}, { 3.689505435167513*^9, 3.689505437961919*^9}, 3.6895054850215883`*^9, { 3.689505539647674*^9, 3.6895055412085047`*^9}, {3.6895057560273457`*^9, 3.689505844488093*^9}, {3.689505877386074*^9, 3.689505897646323*^9}, { 3.689505959804555*^9, 3.6895059674754953`*^9}, {3.6895060415704927`*^9, 3.689506044348712*^9}, {3.689506137095468*^9, 3.6895061673130627`*^9}, { 3.6895062340157013`*^9, 3.6895062438481913`*^9}, 3.689506417326014*^9},ExpressionUUID->"5b7f24fb-af93-4170-866c-\ 0cef36acb2b8"] }, WindowSize->{1152, 788}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 32064, 758, 1732, "Input",ExpressionUUID->"e17d743d-9019-4d50-936e-72a8ea8d98c9"], Cell[32646, 782, 2830, 41, 24, "Print",ExpressionUUID->"7bf2f838-60d1-42fc-9727-dbb2f74226b0"], Cell[35479, 825, 2533, 36, 34, "Output",ExpressionUUID->"87725eb9-4254-4c49-872b-580cf760faf3"], Cell[38015, 863, 2532, 36, 34, "Output",ExpressionUUID->"fea8e310-3f3c-418d-bcfd-fa18e0f68eb0"], Cell[40550, 901, 2534, 36, 34, "Output",ExpressionUUID->"91e07b15-4397-4ae5-80b5-3b4683edcff4"], Cell[43087, 939, 2846, 41, 24, "Print",ExpressionUUID->"fedc1d91-5efd-4048-8027-06765802fe33"], Cell[45936, 982, 18929, 345, 243, "Output",ExpressionUUID->"dd571ff2-e703-4ddc-922a-5e88aaf2ec34"], Cell[64868, 1329, 18803, 343, 238, "Output",ExpressionUUID->"c0de8f5b-4407-4509-9e6e-d611b6c90b7f"], Cell[83674, 1674, 19295, 351, 241, "Output",ExpressionUUID->"9720a4cb-7487-4c6d-a248-e3dd49dd6460"], Cell[102972, 2027, 2844, 41, 24, "Print",ExpressionUUID->"dcff725e-da74-4d19-86a2-f2890f0d3f8a"], Cell[105819, 2070, 12362, 238, 243, "Output",ExpressionUUID->"9097e62d-5c9b-45a4-b21a-fdd201b3355c"], Cell[118184, 2310, 12372, 238, 243, "Output",ExpressionUUID->"5ee35dc7-ac71-485c-8113-afba2f1a1d7f"], Cell[130559, 2550, 12406, 238, 241, "Output",ExpressionUUID->"c59ec0e7-fb0e-4a86-88bc-df4b01f180fd"], Cell[142968, 2790, 2846, 41, 24, "Print",ExpressionUUID->"fc8f3adf-7d06-490d-84f7-9bd21a604551"], Cell[145817, 2833, 19116, 348, 238, "Output",ExpressionUUID->"6b8c6b43-7107-400e-b493-80a546ebccf4"], Cell[164936, 3183, 18643, 341, 243, "Output",ExpressionUUID->"ef0e9792-908d-429a-9404-f743d3e42792"], Cell[183582, 3526, 19433, 353, 241, "Output",ExpressionUUID->"1cd1a083-6f99-4adf-a2c1-4e0c5848c7c1"], Cell[203018, 3881, 2858, 42, 24, "Print",ExpressionUUID->"cd3760e8-d68f-4c9d-944e-14ac8cb90665"], Cell[205879, 3925, 2534, 36, 34, "Output",ExpressionUUID->"7fa06adf-8eb5-4f1f-974c-cd0a0c13e9a8"], Cell[208416, 3963, 2862, 42, 24, "Print",ExpressionUUID->"bb2c5912-6c2e-4ec7-bb05-c4f63487e4f6"], Cell[211281, 4007, 2532, 36, 34, "Output",ExpressionUUID->"5e7b28e2-dd62-4d9c-8bf2-653c01d3033c"] }, Open ]], Cell[213828, 4046, 6866, 95, 115, "Input",ExpressionUUID->"5b7f24fb-af93-4170-866c-0cef36acb2b8"] } ] *)