(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 52227, 1189] NotebookOptionsPosition[ 50446, 1121] NotebookOutlinePosition[ 50789, 1136] CellTagsIndexPosition[ 50746, 1133] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ RowBox[{"n", RowBox[{"(", RowBox[{"1", "-", FractionBox["n", "2"]}], ")"}]}], "-", FractionBox[ RowBox[{"n", "*", "p"}], RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"n", "*", "p"}], RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}]], "-", RowBox[{"0.5", "p"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"n", RowBox[{"(", RowBox[{"1", "-", FractionBox["n", "2"]}], ")"}]}], "-", FractionBox[ RowBox[{"n", "*", "p"}], RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}]]}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{ FractionBox[ RowBox[{"n", "*", "p"}], RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}]], "-", RowBox[{"0.5", "p"}]}], "\[Equal]", "0"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "p"}], "}"}], ",", "Reals"}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6621414745188074`*^9, 3.6621415351147385`*^9}, { 3.6621632908146877`*^9, 3.662163503752867*^9}, {3.662163577785102*^9, 3.6621636655481215`*^9}, {3.6621746376582565`*^9, 3.662174639002925*^9}, { 3.6621766448111167`*^9, 3.6621766662498894`*^9}, 3.6622597909397426`*^9, { 3.6623078340201416`*^9, 3.662307986570867*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "\[Rule]", RowBox[{"-", "0.6180339887498949`"}]}], ",", RowBox[{"p", "\[Rule]", RowBox[{"-", "1.618033988749895`"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "\[Rule]", "0"}], ",", RowBox[{"p", "\[Rule]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "\[Rule]", "1.618033988749895`"}], ",", RowBox[{"p", "\[Rule]", "0.6180339887498949`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "\[Rule]", "2"}], ",", RowBox[{"p", "\[Rule]", "0"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.662307784210293*^9, 3.6623079912581353`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"jacobianMatrix", "[", RowBox[{"n_", ",", "p_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"n", ",", "p"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"n", ",", "p"}], "]"}], ",", "p"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"n", ",", "p"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"n", ",", "p"}], "]"}], ",", "p"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"jacobianMatrix", "[", RowBox[{"n", ",", "p"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.662163732707963*^9, 3.6621638021829367`*^9}, { 3.662163971916645*^9, 3.66216397899605*^9}, {3.662164182409684*^9, 3.66216420244083*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1", "-", "n", "+", FractionBox[ RowBox[{"n", " ", "p"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}], "2"]], "-", FractionBox["p", RowBox[{"1", "+", "n", "+", "p"}]]}], RowBox[{ FractionBox[ RowBox[{"n", " ", "p"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}], "2"]], "-", FractionBox["n", RowBox[{"1", "+", "n", "+", "p"}]]}]}, { RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"n", " ", "p"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}], "2"]]}], "+", FractionBox["p", RowBox[{"1", "+", "n", "+", "p"}]]}], RowBox[{ RowBox[{"-", "0.5`"}], "-", FractionBox[ RowBox[{"n", " ", "p"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "n", "+", "p"}], ")"}], "2"]], "+", FractionBox["n", RowBox[{"1", "+", "n", "+", "p"}]]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.6623077842592955`*^9, 3.6623080044488897`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ss1", "=", RowBox[{"jacobianMatrix", "[", RowBox[{"0", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.6623077576697745`*^9, 3.662307758129801*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.5`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6623077842782965`*^9, 3.66230802421402*^9, {3.662308708231144*^9, 3.6623087112483163`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "ss1", "]"}]], "Input", CellChangeTimes->{{3.6621746301969433`*^9, 3.6621746534039087`*^9}, { 3.6623077607139487`*^9, 3.6623077631270866`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.6623077842972975`*^9, 3.6623087688489356`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ss2", "=", RowBox[{"jacobianMatrix", "[", RowBox[{ RowBox[{"-", "0.6180339887498949`"}], ",", RowBox[{"-", "1.618033988749895`"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6621638160807314`*^9, 3.662163836993928*^9}, { 3.6621639928428416`*^9, 3.662164005888588*^9}, {3.6623077691954336`*^9, 3.6623077695624547`*^9}, {3.6623087824521594`*^9, 3.6623087938869796`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.9635254915624214`", ",", "0.15450849718747373`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6545084971874736`", ",", RowBox[{"-", "0.6545084971874737`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6623077843192987`*^9, 3.6623087961645837`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "ss2", "]"}]], "Input", CellChangeTimes->{{3.6621747699894943`*^9, 3.662174776784913*^9}, { 3.6621748483928537`*^9, 3.6621748579668093`*^9}, {3.6623077726706324`*^9, 3.662307774395731*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.0237815391508964`", ",", RowBox[{"-", "0.7147645447759489`"}]}], "}"}]], "Output", CellChangeTimes->{3.6623077843423004`*^9, 3.6623088013749924`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ss3", "=", RowBox[{"jacobianMatrix", "[", RowBox[{"1.618033988749895`", ",", "0.6180339887498949`"}], "]"}]}]], "Input", CellChangeTimes->{{3.6623088178330216`*^9, 3.6623088457726707`*^9}, 3.6623088839147377`*^9, {3.662308916237994*^9, 3.662308941494439*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7135254915624212`"}], ",", RowBox[{"-", "0.4045084971874736`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.09549150281252627`", ",", RowBox[{"-", "0.09549150281252633`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.6623088570670905`*^9, 3.662308884616739*^9}, 3.662308942960841*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "ss3", "]"}]], "Input", CellChangeTimes->{{3.6623088935087547`*^9, 3.6623088941639557`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6429710278199776`"}], ",", RowBox[{"-", "0.16604596655496984`"}]}], "}"}]], "Output", CellChangeTimes->{3.6623088953339577`*^9, 3.662308946533248*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ss4", "=", RowBox[{"jacobianMatrix", "[", RowBox[{"2", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.6623089054271755`*^9, 3.6623089058483763`*^9}, { 3.6623089521180573`*^9, 3.6623089557372637`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", FractionBox["2", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.16666666666666663`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.66230895941887*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "ss4", "]"}]], "Input", CellChangeTimes->{{3.6623089671096835`*^9, 3.6623089675308847`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.16666666666666663`"}], "}"}]], "Output", CellChangeTimes->{3.6623089686384864`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"u1", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"n", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"p", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"n", "[", "0", "]"}], "\[Equal]", "1"}], "&&", RowBox[{ RowBox[{"p", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"plot1", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], "/.", "u1"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.662259841723117*^9, 3.662259862583359*^9}, { 3.6622598957722406`*^9, 3.6622599666189413`*^9}, 3.662260120609727*^9, { 3.662309007186154*^9, 3.662309007654155*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJw1z3tU03UABXACWnAcTp6TRwhpoGlRMm3MxxWLnXyAoQJqCoiPoYiKpIIc 5ZiIjGAgjLSBqGCogJTHgag89KColAMRNIHw9fttMNBtMNjvJzb6djrdc+65 5/Pn9Y7ZtXKLpYWFRTDpv/tf9Ph/7e0nmPmWegzNKTO0jemQ/yR3zM9aj5CA m9tLTTqsTO80RtnoMVzmJQ7W6fDizmB34yQ9+BdK5cpeHdI38ZeleusB0bfm tnodZPL02WOL9bjWGX1x/kEdehKt3nYd1WNzZsqkOgsdun8qrR9zNiB14Vp9 L+cNzLQ4rk5hAM++SbJW8Bo9gSNNMW5DuJ5lHyBKHkSA03qHwLNDyObEqK7c GkBkYIXU0X0YYmP5AspnAFa3/a9yFcOwaYsLX5CjRUt7yEVHeyOSXkrXj9to 8b40Q3P1gBHczBhh2ol+0JroYC+NEV/63PAw+vbj2Qduq7aJRzAs5JQcvt8H W+eCj4XFIwgqNLfw9/ZB/qufeKFpBJOF57n13n3wKDO2Sb8eheuyT320XRqs O5Uv9s8bhXT5LoFBroFXY2xH0p+jCNv2TXtcuAaqNt+lWicTHt47sYbnrcG7 s2VOglATijkygc2gGikbmGOtaSYwLyaIShvUkPQ8TGevmlDZFX1y33E1lD78 wuu0Cd/ZCWqaYtVYlxk4q5rL4O4NEb8uSA3+qOjsAn8GO59evnvuIzVuPqiq Mq9iMGX+YoRZqzHxmUgYlsCgOKLW5UofjTN6W0mojEF5rvR55x80nM4nWb0p Y7Dx8PGMEiWNzRZe8s8bGSjG7Mb9img47Lfmt3Qw0MxMc3t0lIawY++WaRoG efx45+V7aHQ1un0oZhnsFue1JkTSkFjOiLpsw2IrM+cpN5iGdotRdcyFhbE5 TcnOp8FLCZi8aBqLvrkOzdJZNN4xizKG/Vg0+STzHDxpeEx8Yiebx0LZ56kL 5NEINUitkoNYvD1tO+8zSxpVs6ZuiAth4W1UX7IapTDk0ZwfHsHCdeqgY2o/ hbTgHZXmSBYWpuYaSS+Fla/2GEq2sijwTxwfa6dg/qFFmBnPgukR3Q+7R4Gz MdoxNZGF54oZtb0NFIyzOYcOJLNQLT6pcK6mcK1bGHjhEPlTezAqspJCwWp+ xqYjLIpKuD9+cY7CbOmy0zMzWFzYze6rKaTgPlfyYnUWi5A65dFpcgrzIpVP thKP/JKVYEWcWNJwL4k4lVe86WU+BV6BQ2ERcWaQZN0Z4uV1eguKWPV9bJ4H 8cG/lj5KyGbxlaL1E5c8Crcai85IZSwetx8assul0MNJGlIQe3bmlrzOobDE NRSVxFRCxZoHxJY11i0q4oBI4+Ms4qDY8lLHHBZhAeXuXOKKA8ptRcQ5V1bc niCjYGcTteMScfx7go6BbApRtb7bG4hd9ttofyeuO+Ee8ZzYrT7FN4u4Qntn dGoui7kD0f1c4lfTFe0C4t+qCqe/zqLQXV10MYi4MPp6/ANi3UPBEgmxa+Ip WxnxeJzKPok47E5k9E7i6u3FnRnE4f1/14UQZz8qk/9MbIhInuJHbK7oDykn fittPcYj/genxXqI "]]}}, Axes->True, AxesLabel->{ FormBox["\"N\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.662307784372302*^9, 3.662308978591304*^9, 3.6623090087149568`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"u2", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"n", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"p", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"n", "[", "0", "]"}], "\[Equal]", "3"}], "&&", RowBox[{ RowBox[{"p", "[", "0", "]"}], "\[Equal]", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"plot2", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], "/.", "u2"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Dashed"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.6622599740255003`*^9, 3.662260002417307*^9}, 3.6622601176408434`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwl13k4VN8bAPAZ+z4UobQJ0R5ZK+8hJJRCthalxVISCiVFCyJLJYkKpWix JkuWsq/ZsiQq4UsjYgaz3Rl+p+c3/9zn88yZc89955z3fe9qV2+bU3wkEsmZ TCL9u/7/I4L+f5VGv0SvuupPCqPHv1PkvnEpSCLcRuTBN2FU9yDKKZdNQT4j 6c1574XRn8rvtw7MUJBRg49DgJcwetR6ycBtlIKcrGMjxoaEECf12s7RZgoa rmF+U+oUQqmSlMthDRSkpJOz3btSCA3cMrZdU0tBIQ6dPI9UIaQrOzxnU0FB sbZ6r3JchFBNIn9eZC4FBSnudYRhQRTG1xZ+PJ6C3NtFy1W6BJHP67ao1jgK Wn9dkKVcK4ji+J7E6UXj8RH6HPcMQXT5QmwBfxgFfZO4NyDrJYgU2ueFAwIo qNsya0UpVwDx2xC9PU4UxNIXDhlYL4COvuyWTVOioMQLij2eKwQQ93NXyUkF CrJSL+RKyQigH9quz1VlKSh9eGT6IYMfuZe4HE4Rp6Acmbjxl1X8qG7ci+LH kUIeU6zJmKP8iHF/37PUXim0gt/uyAkbftQyM+u4/YsUsu7sfGFhxo80VzzN +9IqhS6oPFhxYBM/KvoecpRXK4Us9NK09Rf40Bcbw53aBVLoj93IqE06H8o2 VSncHieFtq3TWmX8iA/5daqJv4uSQsLOF6qNYvhQsdB/B9XDpdCXc83vfQL5 0OWfVYMSV6XQ/Rx2XNxePpTlkG1bcUYKOV5YciyLQ0bZ3fXddWZSqEh4hD/G hYyebjWRjSEk0ffrVxKo9mSkVZ7QuZwpiSKd63T27yOj3x4RZm/pkmja0/CA 4U4y6nXVOlxLlUTrV/lWJy8jo2cBlEe/eyXRrXecZItvJGQZPbyG8U4SmSUK xRNHSehdh0W68RlJtKGuWPSBAwkZ2ryRzTktia7eW3DW3U9CDaWXk5a6SiLl jpc2CUYkZF7pTfvrKIkibh2hlqqQ0E3lLMVoM0nkv+5XuWbfAsx6diSlrZZE 5JoYsxCBBQj8mju9o1cCGZDyw2aZ83D4IzU0sxPbJCvN/8885CGrq4tbJRDn c4xUeuc8uAbbVI7VSOD/Z2NoWto8KL4NfX07XwJJRq04IGc8D0avlrQVREug 2Ff6ak53eCDzlG1YuEsCXWiI8nUN5YHlo/Cli0ECpX1epx/gz4NP+b0p3gYS yOvB9FzVMR68UHiavXarBNqzyNH3lzYPnlv2SsSvkEC/6CcfbxjigvirJCsX tjgSif0hfc+YC91l6/yas8XRm/hQDSU9LvROil8vfSWOIoJr7udt5MIPLU2P N+niiKlxW2legQs+NqX1kUniSM5Bb4/SNAEN7k6s3WHi6NhN22MuqQQEakWV lR8RR8VrXF0SRAjY2Kuk8VwC/96PNtMzy4Z029QdOZ5iaOLh24F9k2yItzPo ZJ0SQ6lLoz59/o8NR5+KPDE+LoZypN7aD/awoTcnoafHQQw5J9u2OJSwQU/Y mEk2FUODps1TEdfYcObNSMuJlWLoKfrBKJdmw8Oi1fGHu0RRQUpX9JgJC24V rY61A1GU/WmG5WrIAoXU7zHWBqIosfr47RFdFvhrBlAstUWR02D3PHsdCwoP VyTsWi+K91HrFS8ZFpiQON0G8qKoyfd60/mfTDhlKf3NeEoEbXux9FnJNSaQ fu6eq0gRQU+i3jqT2xnwOzVh7z0+ERR+7LvJRBMDDK+dv9/EE0ab+2df99cy YFHr7A1+tjBK3bWyr76UATPDa9wCpoSR5zl7o+4MBjQubDR1GxBGoQn0Y59C GGDhc/2rW6Ewui/S71qizYDliUPi057CaEvzxe+Ob+ZA4FZqoU6PENovoXY4 //Ms1L4/IqndKIiSTlxX2yk2CwnOxY4t+QLIbeBNspP/DHyJrJSbLOVHu5St LU+RZkBUcf8Z+x4+pLqHtTRpng4eJcs3RXfyoRSiOr6dSwch3omvNa18aMJU /7oxmw6qerrDOvV8qN+oV8WATgcTQb4O1WI+tEOzKzJghA5Bg+cFNyfxIV6+ 8uk1TXSIMmkP+nuUD21FDTnCSXT4bXNk84o/ZBSa2jdVmEiH12ubXZvHyKhn 7e0zbg/pEJPrfPjSCBnZuP9e1BJPh9UZj9J6v5PRZF+OZHosHXY/y/d90k5G h5qeL465RQedjA2r9hWSkY+LzUVTXzo8Vi9Yv+s6GUVoiNovt6ZDE1ckOkCJ jGS9FlaT9tHhrbaZ2yJFMqo5+2PziBUdXIecVLLlyOhLQIBUrgUdftneNvst RUZhKUSVvRkddnx8tdaNTEZ0yyD3nzvpoMxiG8WOkpAuZ0/K1410GPITXwjP I6GBS+0mQxvokJJpzjLMJqEFmyS5yfV0sCnxa2e8JiGXw6d0hNbRId1NfLlH OgmVdHe7mqnRQaI+Yo3jQxJKKBDp5a2gQ7Mop94lmISqdGlvTGToMGz4JkTW goQu3NDd7y9NB6/emJk5MxJSi11FfkWhw4uErfpfd5EQNz8vTEaKDnlCGjtS dpLQs+ocmSkxvF4lynLdrSTkWSWf3S+A431fa0OMAgnXtWC9ADYN0E9f+by2 BSi1VzvVyKLBw6PfVTMbFyChVT1aCXuHgFRHavUCFMxRPtcyaBBd/pqbULQA lcVmvDWzNFhdtyUtIWUBSNEnMqSmaBAvKjY05L0AzJEfuY/+o0GFea9RlswC 5ITcnVyMnSXO5W2XWABf08XMmBEa7OHfqdgitAB2z1nnwodpYJ+jfHaamAeD 1ZfGQn/RQLNz9Mqe0Xnge1OT/vg7DZ7Pp8rtLJ2HhSv9T0730CDhZ2ew+ul5 8PNreM/upsFwXXTm0LF5aBcLiIn+Z17juqeH5iHSuSSkqIsG6842b1M8MA// bd3mIvuFBqxKOceVO+Zhr4t0Ea2NBh8Xj6SfWTQPvVltnnpNNDjgZJrK94kH LMXY8v5GGgzOTBQEfuDBZ7LC6DVsdPqM3XQBD7L8awubGmhwI/Ot5sgrHtBs 91h41tMgJPjaiR/3efD12vlv7TU4HhUV1kruPFjUf8U+FDtqSnjitSsPztll pWliX10rJ7X9CA/EjX4/f1hNg+wzWkMuNjxwOFprdaaKBqTgW5WlO3ggFi3/ Ve8TDTpD82TLZHhgHWQoz/hIg/HQ6lFXCR4UCKKVBdiXbwbqiwvzwDEGRWhi d1vfcDnG5UJss847vQoaGOkqv1Aa48L1PrqsZxkNjggXtQ6UcSHN4HG+FnZj VOjN5CIuDLzvWTRfSgOeZOv7Q/lcUEs6q/gA+25T+u3BDC7sPY62tXygwUVR s0niHhcmRZ9YHy2hwS6LiEOXPLjg/vJ3oQ52nqjcy4yTXFj9Ib2Kgl3SV6nT 68IF0g2zuupifL8DXhoG9rjO7Fjqr4XttDHDirKLC53bvrCksUm8tk+7Dbnw fVnW8qkiGrzW4AaG6nPhFS3ZKgtbB+0vYG3mAuWote5W7OeT160ZSlyo8GJX Lcau3+I6oIfr2M3hC38ZhTSwW67+5spiLkjsLF7zEftXopOkiBgXRCycF+yx t774O7CRSYDXhkuhhtgyH5/6XKYTYD+hmKaGXduqYNYwScAZVFLEek+DnouH s9xGCHjc72iQji1zrtzrfQcBK63Op8Zh0yod2eKfCbgv8yEtGFvCMa3qRAMB Ar1lF5ywVWnrJeU/ElDdPWxqjm2nMRrt+wGPV1uRp4udGLnTsu09AUWWH+0U sBXDCi7feUvAuSMpd0SxT960mpjIwHXX+NYRooAGHud9H+17TkDEgl3jIHZZ n+MLuSQCbssVn+jCli+9yx/0gACnS4sTGrDNbPY8/hVHgOaLF5X52Pqeqlfy wwl4+vrgh0xsceuqKqUbBDwPnN6Tgt2c12occZUAepbm+QTskBoh7uwlAgyp XzfEYG8pUfvrepEA/caUa2HYg5XjCp3nCXgwscv9GnaSNOWK8VkCBOmho4HY rr3W8gVueHzgEo4vNph7jKudIGB0ecUzL2y9B/JzSUcJKAvVHnTHtp1eoivt jJ/fWD//JPbDqDW5YQcJyJ6/pXAcW/QR22V+PwGbD35ddBQ7z+KgWYAVAc9G JlIPYT/opLvSdhNQYhlS5YRd7hrz/uwuAtQ1rAMcsTdsHNlJNSRgRMO+0AHb xiftnpABAT9EH6b9s+D0cRtVbRxPSpnev/H+p9qumG4h4FCod9C/+b5F35dx W09A44tDHv/ud1LVUTpSjYDd1ev4/q3H7HddYPZqAixWhZv+W++7e7ctupQI MOdfpnUK++fgnluEPAEF+XFNHti8mDx1lcU4XhfviXv/i4+T57Z9Uvh545rm Lvy7H7E885IoASpWwxFB2Aua/jdeChDwfTKs5jr20Aeluq4FDuwtc8mMxC60 LvUWIDigynZye/xv/rhwhhuNA4GzbUYvsXvei3xJnuBAvo5KdS42+qou1zHG gbVJq0rq/8U7ZLwBfnBgVer6jf/2k9+Nn/qX+jgQsL3H7Bf2mMpSSkEXB8b2 tHnwsMlVIv9tbOZAh3mIrwTer9+40v+dreNAxeyDlUrYBXbC5lmVHDA5U3Bq J3Zb32ltzWIO+AeufhSOfTX7TrrVCw78vXmoLBl7s1lafkIqB3K9bobmYucy Z1cNJXOg4I/bdD92hBrf8uB7HNCBPgcDfF7PqFvfrr7GAb8vk6G22D78rFiF IA4Y+wVZemEvmdsye86fA1qTdaXPsF8mEV9WenFgyPu6iBzOH/knYsfuOnNA SahaVQs7wt2ug3aQA5t6hQYPYLeGcORsD3AgyOjIurvYkp73shXNObBtIFNS HuevbfF3Fhdpc8D2Y0Mj4Pxnczv4uKYMXv+PsN7T2L/ZjawyCQ40T/8JiMHm SJv3mYtwoHxTkvdP7L3GiRdOLrCBMiCjFYHz7aeVVeJvcB9tu7+mdRbnY18d Yf+LTWy4a06MquD8HTXacVm2jg139BOiD2ILX2mqLqhkg/7usZvF2D9OC6xm F7Nhqj9E9lY5DZRfdy3EZbChwPB3kB6uF1EO+SK8m2wo9XZ39sEO0/64LjeE DVdTRKtfYzfqMqJOXmFD0Y6nW1fiejRYnCbW4ccGH73kK1KVNPBcpj5d7MoG VoRBjBCuZ4Gd5XI1iA0dEjO1zrg+NmzjParlsSDW8s/5FOzZiXqdMTYLPOD3 nRFsM5fcQVEGCxYVqMqfx/XVLLvf2eYvC562q3jfwfWXl5j+a+oHC/o6hknf mvF+KzUhH/nEgketI+b17TQwlxhr4t1gQWeTXb5iB85nknxxKIQFm6kXws5i R2WYON+8wgImm+O1uBP/PyNGPKmLLFh1Jn7badwfzK1S9d9ymgVLwt/6rcT9 RnXVF+K5OQtCZ74e+tlPgztiFUmWUixItZqpMxugQUDpy5xjYizopxlmZmM/ jzT96y/EAtUnQS3XcP9Sou859nKeCfE/BB6s/Yn3V1fuJ9kpJqzYs45+Zwjv lxaDprXt+L0ixXl7FpUG67VDZDTuM2Fj0xK28jgN/nZeqHGNZcI11TjVR9hl hqYPn0QxQZba3Bj2B58/HcPkJTeZEC0+pOc2SQPZVNriJReZoPDMLXgHDec/ rvsNCwf8/WV7ii7u/wr0hneEKzEhM6gjOA97rftlCWVFJiwlpZht4NBgk25y a7kcE24XXRlVJmigMR2qwZJiwtnB/c6yPDy/33KtQDITfii0jAuTcf886uTy YpQBWooxvltE6eDYe8AzP48Bh+ueWgcvpcM9M9O22xYM0Lz4c4XYMjq0PJYx 8d7NgI0CdgYPsbV89t0/aMKAQZrewXwlOtwx1P+kYsgAJ4f7SyZwf3xHJm/v 560MePw8Pt1rDR1qGpcI7VZkwG1RpZ4M3H8ri6uc7P89B9JvVcangA4DcpmZ QZFzYK/WJ/wY0eE4fdsKh/A5kHtf4WduRAfy6aSbWjfn4G79Ye1nxnTImBpQ ngqegxu1z5ydTOkgmFj5xMdnDm7vNePvwe8Hqx/JHHjuOAdJbWevCNvj+XZS WovWzsHxc7HFyIsOFo+GnBIaZmF4dLp3fzId9xtz2ftXzULYXeXI3HY6EHuS UTN+D/PzI8rpwjPQtmui+eIAjttxLdsbO2eg6JzO0Ug8r8RCMMX00gygl4Xt AbgvpQRUZ6/Nn4Fi83GRnc40cFtlZhI9PgMuEw43hKamIdGrakxMfRbSHt4w end9Glj7jf3tj8/CfOeTE8kq02B+4GElOWUWiiI/JJhHTcEypRXNv3pnIYZf L2jD6F8IV/M6VyY1B0o9N2/93fcXiD7vx1zzOVAPjCCNvp8E+0mW5jyOi/+b yNqXWyZh4lDkg/r3c3DMB9HHXk2Adbl6Qun4HGjXdxc+2zQBCX+8t3gsZYD4 qZEK+eo/YBdsIahuxQCP/aGO8wf/gEhZXlNRIAM0WkiBbxjj8GeDLOvJMwa0 bM5oG3k6DkqOu/qkWxmwSfhA1B3TcchfdtaxdJYB+55b+O9jUuFrycbfJ+YY cO/Wtxpijgp2afp2EgwG7L3cfe7VLBX6mAaVh5kMCFVK7BKkU6HKb9MUwWbA xc+rRqomqJC4YdMTrQUGqGyqYe8dooJ76w67CFEmmFhf1Mr4TIW6t76+G8SY 0KzBKXRpocK7LeZe7djFq83uKTRToaJrgCUvwYQ1fyqsoxqoYGnIdHuBz0Wr l8DwhWoq1CuZZZYsZoLUtRMHHEvwerwK7x6SZcK847tdS4qp8GARzYGH3XqQ FdVVSIV7fO2X0RImnNafXG5TQAXrjdeW1iowQVrT1uRADhWOt9wZP4XPZfhb pWGZbCqsX3L5odBSJiRZ0Xs631LB6+B8+O5lTJi8urf84GsqZKYmNY9hD3Qk 5si/ooKy8eqJf+e8tjmI0ZdBhbKReOra5UxYsOq7+/glFZy0WNX12D+140Nd XlDhfw5k9GM= "]]}}, Axes->True, AxesLabel->{ FormBox["\"N\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6623077844093037`*^9, 3.6623089822885103`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"u3", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"n", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"p", "'"}], "[", "t", "]"}]}], "&&", RowBox[{ RowBox[{"n", "[", "0", "]"}], "\[Equal]", "5"}], "&&", RowBox[{ RowBox[{"p", "[", "0", "]"}], "\[Equal]", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"plot3", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "[", "t", "]"}], ",", RowBox[{"p", "[", "t", "]"}]}], "}"}], "/.", "u3"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.6622600160741262`*^9, 3.662260043356512*^9}, { 3.6622600965462265`*^9, 3.662260111749984*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 1, 0], LineBox[CompressedData[" 1:eJwl1nk8lNsbAPB3LEPWsc2ISkJXyZKtkJ5HQhStpHKjzRJJKCUiobjFlbK0 KaUoElIq3ZKkJEtJEUklInltg2FmfqfPb/55P9/Pe+ac857leR7N7XvX7RKh KCqMQVF/nv//KeP/n6poxBltqv2ihEvqDDJ3Czh4neq6zHimhBnOw4F1Uxw8 /lQw93ycEs72NFKMmeDgI1lrM3cFJazuucY8P8RB3cNmIwajirhTi7emkeag lVnIu60tijgl/20TY4CDcxZv9anMVsRbS7HLpY+Da9I1ZUMtFHEJ71HilW8c 7HRZUtWtoYgdKRPBNzo5+EJpNDyXqYhBbjtTbnRw8Oh2xm7p9wpoPe17Xton DirLPvU22a+AV33j6xa+46DWtL1vRJ6xUOSvoUs+FRxcmfIzpiSfhWrDXSs4 Tzh4hSPeeCmdhUUyG6cqyjk41T8nUjOQhQlT1YWSZRzUXjHa/XgmCw2Wj6Z6 3Obgbf9KnflSLOTvsn7fdYuD09m5U6n98pgZ5Rq5O4+D8+S2H112RR7/y5c2 9L7Gwey1L5WNZeXx54qyFbrnOJgY2uUw/accnhStGz6VzsHCJcyGLVVy2Gyt 5TFwhqxHNvtM/xE5TLULP5WTTPrba+mhwZXFOU8OJX+J5aCo23bh7WEZbGvY dy4zkLxfVfdA460Mfrqprh/jz8GMRjqv644MOlS0hXj7ctBH57hxwF4ZzJmW 7DRnOwflondU2dDSqNxKbfB15WCoWkCJEiWN4k0+eousOLh0b6CZ8zcpjP7X WeHLIg46+J/0qHkhhemHf66PM+VgVdGw7MkkKdx3QU2lSp+Daz/utlLWlEKj yppktdkc7P/BXxaxdhoyI9fs0RHj4MnKDOfExdPwr49iIRkUBz/e2SxTrzEN 1TVid0ny2Ti32f3bxG9JrGuXMu4YZaPsj3nNFcmSOMEWrPbrZuMuv+/qSa0S yK9OO8Z9xcZ+iZcMoxQmxr4UDdI9xUbvrBUTxlFMrM7PvZOQwEYTxWh/tz1M HEyIlP0Zx8a7ohEb+Y5M1NFKNco+wsa870KjZ2JMPH6VkSvYy8bkuxb/fI0S R3GuSObOdWxkJUb3vNgrjteOX+rLc2Fj4eslbS88xfGGmuONfic27jWdE6iK 4tiX1OIfZMtGOeeJbB5DHINfH7ixw5SNz170exxLFMP0ZtkcMTYbS24/0RWJ EMNt2S2njRXZmBDxOjVjjxhGLLmp7ynHRielcT/ptWJ46ptY+F0mmW/QYQnR 6WI4znb+tHpMBdsLYh9KF4hi2gxdFeePKshX699o8l0E3826HR6eqYI9utE7 oz+KYFmsHCvzrAoGX7c78rlWBA1N19XeS1HB1tt+dm9KRfBjbUDVQIIKOpSq ae47IYIFJk9l3MNV8Hn4jrK7RiJ4lV2+TWyLCv4temVg9UkG5u+68emzugpq 2c6dHxXDwOByxpVujgp+vhiY/uggA0+LP+gcUFJBs5iya1t2MdDT8MRngbQK ksWpNAMGPtIuYHKmlLFaJujSklEKRVbkyhi3KWNJXsfscT8K+wRpTZoXlNH+ aklHnxeF9/blzqtOV8Z0i5udfRspNOZtNA5IVUaXIrn1LHvy/7YOn9JEEpeE s3175lBo1lh2bfkhZfz+SOtnzGMheHKf7nZ3U8Zjm+JrpR4LwM272GknSxnD 1z88UFgggCezArzEZJSRuZQ+4XNJANduTwu8JqGMSsxYN4VoATg45hz8LlDC h3lbHzosF4DNwsbonf1KeK37kZtWAx827Dj/a1eNEtZfrev7b2QKPocv1g+P VUJ/802bQnqmoKyCucQnmlg938usbQqsWHTwhggltBlz/tVZOQUF7o//NgxV wtM206taU6dgeKjToXuHEsqBQ6+F+RS4LbUL8bIlcXaeSbVu7CTYZMXSUSJK KDgfOKVqwwP9GKukW0cV8Vjnad82cx7kRssZu0Yq4hluy6+bC3hwM0Z5tfCg IpYUlwt8VXnAupc0viFIEUN2Oyb50BMwrU1em+lJrOea4pU9Ac7V70qilyji X21f9rTKToDdajOx9jEFdHBK2CZNjcOJt82zPYMUcFHeHLGV42Pw6aa4u02A AjLm3jA9TY9B/j/Jptq+Cth7pUFtUecYzJz3saPPUwE7LbInW56NwetGfblj qxXw12Vt+YjjY9BdF2zTaKCAz8pOBg6rjMFEv+h5up+FleOsGtqOCx9rqcUb SNz9ceS80BK58Gr//tU3drPQaDJdKdGSC91f58tPerPQMCf0mbkhFzrZO05c 82Rhls/F/FeqXFi3zM1PuIaFqtpmlo2/RsF5Q67GexMWnl1oWGyXMQrqGglM sRF5DBoJyK6bHIHmKsP+FpY8rnAuVIhsHYY3iUkVTxfJYsXbXNmVwiEQbfLO +ZAmja8GzzJ/ugzBmbj282EqUnjoa8g2mZJBqJBd4KhxShJbzhn+ddJ6EPSD XrEumEvg+n7Z+5VWg5C2eQ6DWiiBrh6Bw1MWg8AYU0napSeBT9uM94SaD8Ky 3NIIs9kS+Dx6kV2Y4SDAxYU5PdMkcMOdXadeaw7C96KIrvPtTCx6O/73DYlB sFnCmGkaz8THjfttRz/QoFI+8kOtTRz57uNhac00bHj4YeZUszi+oE7KWryn YcTWoOFzozgu2XvJPeYtDea1Utdzq8Xx/Mj+jTpvaJgIXS/nUiKOXAdNzH9G Q6tlUXJHojj+du+xL7tNwyLWFRt1K3F8fTrhyOVEGu4Yrd33PUsM/YJHpa4n 0PBJoG0Rel4MNx2fupJ/goboVDNL8XQxDNpX1V8eT0NNs3T3/CQxnKeb3f8z hoYFJrHfY0kcdNWPn77/MA0SxZ7mIZvEUOXhxphVe2iIpIeCFymL4XTLyW3B ATQopaZ09cuL4d2ZM5Zk+tPwsMc9IUdaDIU3x9t/+tHw45fHDlVRMWTOlH+d 5k2DB3v6ZpkhUfyw0fbrLC8ahls3TtdvEMVNH7ZUfF9Pg+ORM+w1p0Txc8gz 4+nE5vO9Ut6eEEX+8fAHLuto8GqK93OLFUX3N8/FHq8h6+maZrT9sCheeTkt 9rozDYPeaaxEP1G8vf1sYb4DDdXF7XVq9qKoYFAsE7OEBluryzxrShTfSp/U +mhFg3VL1pG+SRG8otS11JA4VSzW9dyYCN7byIv+YkGDmdkt3uRvEewsmNBa vYiGhC3O0+vbRdAr68J+D2Ma9rZEbr37SAT39V+XNJ1Hg9/loCcHD4rgj9iw /mJd0v781Le0UBE8/Vg015i4UvLO3HtBIujDq7tg+hcNt9Mjxcd9RfDneGH4 Mh0a4tTsNRM2ieCZp2klcZo0rHHWTPtiKYJti+cdu6FG1lfrR+Z2AQMPNZj4 InHd75/CqzwGvpaJ5LROJ/v/+NLhH1wG2kSEvZMnfh0lVxI4wMDjIU/vx3Jo 6LLNVzv5hYE/bi3vTlWmgUK507xnDNQ8rpNsJ0+D280PTtdOkLzBtEyh5WjQ jsstfBjLQEcl29ALxAFVl9e8jWagr0vMJ64sDcGbiuzEDzHQIcNX654MDfY3 poYO+THQ1YW5fKsUDaHPg1mXnBg44LZuLof4cS9f/qU9A41GfL81TCP7f8/X fngZA+3OhfyyJ37+8KSbsxUD1TYEGlpL0mBS2cqTX8DAtYfCtNcxadiyb3Ba vSwDmTp/xasSl5pLrJGRYmCHekZ5hziZ34mH1U5MBmZlWF0PIj7hlOf0WkBh 4anxbRfEaHhyIeRs6wCF39fO8fQjtlRd5qn5i8LIckmDRcSOSrLufj0UHjRO gPeiNJQzVryf+kLhicSXc9WJpeRmjS58S+HlXOcbv0XI+jVd0I+po7Bc4zz3 GXFO1MHT72ooFG0ypgKJby7mdxyqpHBkX33pGwY5H0yro013KVy1X+HqDeKL dVlKBkUUFjvs8Igh7mivqz9RQOEt5daFlsSLY5Y9t7lOYVhA0tYSiox//8iZ inQKDU91mZ4hDjlSY2N2hswne+2b/cRPtuZK3/yXwmhlDVsrYr3nX4fTEijs /MYJuSQcgP2ZtbJHDlO4aYG8YQDxzCytdF4YhQkMqd1WxJP7LloeDKWwSCts 82fBABxrqag7sIfC0yLzlMyJ++eu0DrqSfJ6gHmpPHGArNF+pgeF78Q1G3v5 pP/9rz+fdKfw+jleSA7xKu2usQtryfcIsiZiiY0yqq/PdaHQZWcydxdxdbdO QJEThSzmg/ULiC1DZ1nU2FJI3corViCe93kGuiOFRlpr48enBoAb6enRvYRC yatSdV+I5+/OOBVmQeH43YUJNcT7Sw+9kzSnsC5b734pcX55qf55Ywq3eu/Y mE08upq6YGBI2ovZ+v1LvD1OdlalHoW/j5n+iiIWD0kpcdelMKXnSkcQ8YAB egxoU2iyeHTZDmKT+jec45oUzj2YobKR+Jvf7y6NWRQ+LBh1W0Usr+L24oEa hTafDzBtiWt+lJVt4FAoKx+vZUWsO1pTTitRGGh3qsCU2NIN355iUXg/nnvV kFhx9ptxPVkKLT7qMRcQV/jqGL2eRqE9pL+bR7zZnh/mz6TQoCJb+o9/10k2 yIhSaLujrOCPNRaO790qFMKH+cse6BFfDmZ75owLwWrmTf0//Z9Iagr4PSiE Ctgs9Wd87p1zGRZ9QniQXu5iScxiNnbGfxfCgflWPBti3oMOh+Z2ITjyQWYl 8Ydxg5q/PgjhmIpZrCtx7e+5vocbSPuDsdu2/WlfbajZ+EoIIXoZVwP/jHen aES3UgivTVodI4kvNCl/jSkXQmPa3fWniDd6VfR8LhXC+00pTy8Rf47SkLQu FMK8mNbkImJXz3S4mCuEWSq8p1XE7fNTkoRXhGDy7077IeJH5reCas4IYTTm WKYUOS+b6s+LmCQJIWt09ipt4nNihXkXjwvh196oN1uI00fbTQ+FCyGu0PLf MOIfDo/ubA4VwlOD9pgzxI1UMs86UAgOH+jRRuLJfxdwp20n8zkQuH+IeG+7 8PrQFiF8hF9zlMn5Hwtv02p3FULtUgZzC3Fh6vOo+45CUnflWEYTv4tq+fuG rRCqxvzPXycuL5dmZloLge1wpYNL7FPbU3x0oRCWfw3yziH3L3Zr4D7f6ULY rN0/8I74hpdrqreSEK4fZjYy/txnlQuHvWWFINVpBSbEW776XfRnCOFc3Gfx i8SVurTqPz8FoBEu011GvKTlsVf6NwH8nVe7+T2xUbO+f067APQGtSbkSXxJ EWG/eNEoAOV78tInic8hHT/roQB2s4rC84mtgx40L74rgCqOzuE/8Sss3qdr w20BFHjn6CuQ+FZckmp9OlsALmd71mURFy1QqdX8RwAS9+L2NJN4WRoiPpHq IQDJVNUGIbGRspjwlZsArjKET+aReBtSH1DOWCuAutof9lHE3t8ubjlgJwD+ TdE+IxK/V1/wmRVqQOY3xfK4TeJ9i4WocwUlADWR+2XfiV8tu6STwePD1bDY ++oSNMCALC9ohA+t75PP/UMska1xRreHD2NbYSCY5JO+Q5MRhfV84OQ8yPQk +eiyk+wV9Sw+qPfP5WURO6RxhhQy+cBYdG38C/G/y16aSaXyYdroy7qd0qTe WNB4mjrOh4Vqpz+GkHx3YnVQqthePlBSn3QLSX40XeBh4Ad8+PIgY+UE8eaT gzuPWJD3AhfJ5SS/opQw9qwJH9J8slw+EafUmUe9+osPNk+vSygokHojVnLV ChYfik9IDGUo0aA2mf/icucUtIi79KqSfC67r8zxQdwUPPB8dmUv8a2EQaZ/ 9BTYPjr38QWxlPoSz1mHp6CUVVJ5gNQHKkbWHQlBU3DKWyuxTZ2GqE8hrNAt U8Bxkil4MouGzPGP784snIKhNSuHv2rTcGX9nSdiHZOQqjtrsSOpR/7zFjB+ tkzC49qF3ELiCmO1xrqmSRBV3th+ZC7pL3JIKatmEjrrLdfNIfUN9+xNjXX3 JoETkHIrSo+s79KoPkbSJIycq246TeqlRnGx1XFLJ6FX6WK6uAkN95TuSJRY TMInjvurg8T220ONvppOwnht40EvUxrSbuU3LNebBMVl00XNzMl5d8tHddVJ iJTQyhoi9dkaB/84mSEevIkIe/GfDQ1f9zCa+dd5wHNYrAjLyHljJL92z+bB diqs+gnx/bkB2qUXeTDXrmLPM1saLilGCPad4cGh0LprtXak3nj/bMXUUR7Q TTvTRxzJ+Ft02tf9zQN2j2dgCqk/E86dcxdX4cGm2sT0+aQ+nSn9vnk+iwf2 ix+bPydeGF/Ss1aaB1dv+jSPbyDnYf2eqmsMHsxRnHHWZyMNUysdXf/+PQG1 RSu/bvagIfCd0/bpLyeg00vGJZ3Ux/dYpXUPIibA4EfsTI8Isp91OSZHe8eB M71cWTyS1CtH5F02/BiHbulMn9vEu4xKCnS/jsP551c0RKJo8OnWs3rfMg49 CZFNBUdpEJQdirV+NQ53Ljfrs4/TwCqGSKfccfD63hAz7zQNMYut9qz3GQf9 39aja/NocAoO+ynzcwzQ/ED67Js0vP+Wf+jT9zGQ1szKHCDWzvgv4NaXMZCK nixPyqfBdUfBodUfxyC6dnd4YyENk4/M5+RWj4HEj/hrvvfI/TPvdTx/fQxE svnubZXkvFiymuJ2jUFRmkNyXQeJD0kbC9Z3c6FpvX69j9og1Onwd4NgFLyT tbUp10EQU+994Ww2CnbaVVqGGYPg5NgsO+Y/Al5b2t4+bBmEZ3mBXd7/DYOy Xp6q+owhmBcxEVY6exhOxnwxG9g1BAOorH8oZgjmj/seE94agolt52YLJgZB rtuAXTQ+BNO4Jc1W+wah1tB153EchuNh+1IXTZJ9Dr8fXBE/DLvra72/JJN5 3mBHr3g7DHeeViSyyD0ZWYdR9ZwRqFpWxas5NQDFd374P9k2Ah3PX1e8fPsb JF80FmbmjkCDsPqI9LzfkHXAr7m7ZwQ2xz3sVkrrh7rVb+eELRiFa3zbhBki /WDGUFzt7jcKi+QPPqk/+gsGj3iFfcoeBclif7d4mV/wb88a9qPPozDzQP87 ZlofBKjyny1Q5kLoABqIG/bBq//sJNgqXNjqe7VvhX4fXNxuM0NI/DOvy+CU Xh+of3Usa+Bw4eTT5fYc3T4IjvAr26fOBUG9dMlCzT7gJu7/cHMOF2zHTDdH KfWBw+6lSRNGXPCVenchYrwX8viTP9oWcqEmOflhA7cX7mtsYj015oLhoy3u OqO98KJwsCnOlAuXrPcoNQz2whrPTB35xVxIjI2I0evrhc/jBd9VgQuL752Y wWvvheVmmxwmiJ95DOm4tfXCjOjs8BbkQmvymfzi1l5gdcqtz1zGhTXva432 fOiFXMNVr9n2XKgPUmb1NPSCMXQVjxIbyTsJHOpJ+4vq/k0OXNhRsMo3900v PPrm6ZziyIXOOaKFu2t6IfrCnrC9Tlzgsz3+qX3ZC4m2qsHOK7mQvLz2q0F1 LzQ/9bTWW0XWw2JuaUpVL2ybsm2RdOZCcdwSkdHKXvgfGVYTVA== "]]}}, Axes->True, AxesLabel->{ FormBox["\"N\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.662307784441306*^9, 3.662308985252516*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"plot1", ",", "plot2", ",", "plot3"}], "]"}]], "Input", CellChangeTimes->{{3.66226004852859*^9, 3.662260062888573*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJw1z3tU03UABXACWnAcTp6TRwhpoGlRMm3MxxWLnXyAoQJqCoiPoYiKpIIc 5ZiIjGAgjLSBqGCogJTHgag89KColAMRNIHw9fttMNBtMNjvJzb6djrdc+65 5/Pn9Y7ZtXKLpYWFRTDpv/tf9Ph/7e0nmPmWegzNKTO0jemQ/yR3zM9aj5CA m9tLTTqsTO80RtnoMVzmJQ7W6fDizmB34yQ9+BdK5cpeHdI38ZeleusB0bfm tnodZPL02WOL9bjWGX1x/kEdehKt3nYd1WNzZsqkOgsdun8qrR9zNiB14Vp9 L+cNzLQ4rk5hAM++SbJW8Bo9gSNNMW5DuJ5lHyBKHkSA03qHwLNDyObEqK7c GkBkYIXU0X0YYmP5AspnAFa3/a9yFcOwaYsLX5CjRUt7yEVHeyOSXkrXj9to 8b40Q3P1gBHczBhh2ol+0JroYC+NEV/63PAw+vbj2Qduq7aJRzAs5JQcvt8H W+eCj4XFIwgqNLfw9/ZB/qufeKFpBJOF57n13n3wKDO2Sb8eheuyT320XRqs O5Uv9s8bhXT5LoFBroFXY2xH0p+jCNv2TXtcuAaqNt+lWicTHt47sYbnrcG7 s2VOglATijkygc2gGikbmGOtaSYwLyaIShvUkPQ8TGevmlDZFX1y33E1lD78 wuu0Cd/ZCWqaYtVYlxk4q5rL4O4NEb8uSA3+qOjsAn8GO59evnvuIzVuPqiq Mq9iMGX+YoRZqzHxmUgYlsCgOKLW5UofjTN6W0mojEF5rvR55x80nM4nWb0p Y7Dx8PGMEiWNzRZe8s8bGSjG7Mb9img47Lfmt3Qw0MxMc3t0lIawY++WaRoG efx45+V7aHQ1un0oZhnsFue1JkTSkFjOiLpsw2IrM+cpN5iGdotRdcyFhbE5 TcnOp8FLCZi8aBqLvrkOzdJZNN4xizKG/Vg0+STzHDxpeEx8Yiebx0LZ56kL 5NEINUitkoNYvD1tO+8zSxpVs6ZuiAth4W1UX7IapTDk0ZwfHsHCdeqgY2o/ hbTgHZXmSBYWpuYaSS+Fla/2GEq2sijwTxwfa6dg/qFFmBnPgukR3Q+7R4Gz MdoxNZGF54oZtb0NFIyzOYcOJLNQLT6pcK6mcK1bGHjhEPlTezAqspJCwWp+ xqYjLIpKuD9+cY7CbOmy0zMzWFzYze6rKaTgPlfyYnUWi5A65dFpcgrzIpVP thKP/JKVYEWcWNJwL4k4lVe86WU+BV6BQ2ERcWaQZN0Z4uV1eguKWPV9bJ4H 8cG/lj5KyGbxlaL1E5c8Crcai85IZSwetx8assul0MNJGlIQe3bmlrzOobDE NRSVxFRCxZoHxJY11i0q4oBI4+Ms4qDY8lLHHBZhAeXuXOKKA8ptRcQ5V1bc niCjYGcTteMScfx7go6BbApRtb7bG4hd9ttofyeuO+Ee8ZzYrT7FN4u4Qntn dGoui7kD0f1c4lfTFe0C4t+qCqe/zqLQXV10MYi4MPp6/ANi3UPBEgmxa+Ip WxnxeJzKPok47E5k9E7i6u3FnRnE4f1/14UQZz8qk/9MbIhInuJHbK7oDykn fittPcYj/genxXqI "]]}}, {{}, {}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwl13k4VN8bAPAZ+z4UobQJ0R5ZK+8hJJRCthalxVISCiVFCyJLJYkKpWix JkuWsq/ZsiQq4UsjYgaz3Rl+p+c3/9zn88yZc89955z3fe9qV2+bU3wkEsmZ TCL9u/7/I4L+f5VGv0SvuupPCqPHv1PkvnEpSCLcRuTBN2FU9yDKKZdNQT4j 6c1574XRn8rvtw7MUJBRg49DgJcwetR6ycBtlIKcrGMjxoaEECf12s7RZgoa rmF+U+oUQqmSlMthDRSkpJOz3btSCA3cMrZdU0tBIQ6dPI9UIaQrOzxnU0FB sbZ6r3JchFBNIn9eZC4FBSnudYRhQRTG1xZ+PJ6C3NtFy1W6BJHP67ao1jgK Wn9dkKVcK4ji+J7E6UXj8RH6HPcMQXT5QmwBfxgFfZO4NyDrJYgU2ueFAwIo qNsya0UpVwDx2xC9PU4UxNIXDhlYL4COvuyWTVOioMQLij2eKwQQ93NXyUkF CrJSL+RKyQigH9quz1VlKSh9eGT6IYMfuZe4HE4Rp6Acmbjxl1X8qG7ci+LH kUIeU6zJmKP8iHF/37PUXim0gt/uyAkbftQyM+u4/YsUsu7sfGFhxo80VzzN +9IqhS6oPFhxYBM/KvoecpRXK4Us9NK09Rf40Bcbw53aBVLoj93IqE06H8o2 VSncHieFtq3TWmX8iA/5daqJv4uSQsLOF6qNYvhQsdB/B9XDpdCXc83vfQL5 0OWfVYMSV6XQ/Rx2XNxePpTlkG1bcUYKOV5YciyLQ0bZ3fXddWZSqEh4hD/G hYyebjWRjSEk0ffrVxKo9mSkVZ7QuZwpiSKd63T27yOj3x4RZm/pkmja0/CA 4U4y6nXVOlxLlUTrV/lWJy8jo2cBlEe/eyXRrXecZItvJGQZPbyG8U4SmSUK xRNHSehdh0W68RlJtKGuWPSBAwkZ2ryRzTktia7eW3DW3U9CDaWXk5a6SiLl jpc2CUYkZF7pTfvrKIkibh2hlqqQ0E3lLMVoM0nkv+5XuWbfAsx6diSlrZZE 5JoYsxCBBQj8mju9o1cCGZDyw2aZ83D4IzU0sxPbJCvN/8885CGrq4tbJRDn c4xUeuc8uAbbVI7VSOD/Z2NoWto8KL4NfX07XwJJRq04IGc8D0avlrQVREug 2Ff6ak53eCDzlG1YuEsCXWiI8nUN5YHlo/Cli0ECpX1epx/gz4NP+b0p3gYS yOvB9FzVMR68UHiavXarBNqzyNH3lzYPnlv2SsSvkEC/6CcfbxjigvirJCsX tjgSif0hfc+YC91l6/yas8XRm/hQDSU9LvROil8vfSWOIoJr7udt5MIPLU2P N+niiKlxW2legQs+NqX1kUniSM5Bb4/SNAEN7k6s3WHi6NhN22MuqQQEakWV lR8RR8VrXF0SRAjY2Kuk8VwC/96PNtMzy4Z029QdOZ5iaOLh24F9k2yItzPo ZJ0SQ6lLoz59/o8NR5+KPDE+LoZypN7aD/awoTcnoafHQQw5J9u2OJSwQU/Y mEk2FUODps1TEdfYcObNSMuJlWLoKfrBKJdmw8Oi1fGHu0RRQUpX9JgJC24V rY61A1GU/WmG5WrIAoXU7zHWBqIosfr47RFdFvhrBlAstUWR02D3PHsdCwoP VyTsWi+K91HrFS8ZFpiQON0G8qKoyfd60/mfTDhlKf3NeEoEbXux9FnJNSaQ fu6eq0gRQU+i3jqT2xnwOzVh7z0+ERR+7LvJRBMDDK+dv9/EE0ab+2df99cy YFHr7A1+tjBK3bWyr76UATPDa9wCpoSR5zl7o+4MBjQubDR1GxBGoQn0Y59C GGDhc/2rW6Ewui/S71qizYDliUPi057CaEvzxe+Ob+ZA4FZqoU6PENovoXY4 //Ms1L4/IqndKIiSTlxX2yk2CwnOxY4t+QLIbeBNspP/DHyJrJSbLOVHu5St LU+RZkBUcf8Z+x4+pLqHtTRpng4eJcs3RXfyoRSiOr6dSwch3omvNa18aMJU /7oxmw6qerrDOvV8qN+oV8WATgcTQb4O1WI+tEOzKzJghA5Bg+cFNyfxIV6+ 8uk1TXSIMmkP+nuUD21FDTnCSXT4bXNk84o/ZBSa2jdVmEiH12ubXZvHyKhn 7e0zbg/pEJPrfPjSCBnZuP9e1BJPh9UZj9J6v5PRZF+OZHosHXY/y/d90k5G h5qeL465RQedjA2r9hWSkY+LzUVTXzo8Vi9Yv+s6GUVoiNovt6ZDE1ckOkCJ jGS9FlaT9tHhrbaZ2yJFMqo5+2PziBUdXIecVLLlyOhLQIBUrgUdftneNvst RUZhKUSVvRkddnx8tdaNTEZ0yyD3nzvpoMxiG8WOkpAuZ0/K1410GPITXwjP I6GBS+0mQxvokJJpzjLMJqEFmyS5yfV0sCnxa2e8JiGXw6d0hNbRId1NfLlH OgmVdHe7mqnRQaI+Yo3jQxJKKBDp5a2gQ7Mop94lmISqdGlvTGToMGz4JkTW goQu3NDd7y9NB6/emJk5MxJSi11FfkWhw4uErfpfd5EQNz8vTEaKDnlCGjtS dpLQs+ocmSkxvF4lynLdrSTkWSWf3S+A431fa0OMAgnXtWC9ADYN0E9f+by2 BSi1VzvVyKLBw6PfVTMbFyChVT1aCXuHgFRHavUCFMxRPtcyaBBd/pqbULQA lcVmvDWzNFhdtyUtIWUBSNEnMqSmaBAvKjY05L0AzJEfuY/+o0GFea9RlswC 5ITcnVyMnSXO5W2XWABf08XMmBEa7OHfqdgitAB2z1nnwodpYJ+jfHaamAeD 1ZfGQn/RQLNz9Mqe0Xnge1OT/vg7DZ7Pp8rtLJ2HhSv9T0730CDhZ2ew+ul5 8PNreM/upsFwXXTm0LF5aBcLiIn+Z17juqeH5iHSuSSkqIsG6842b1M8MA// bd3mIvuFBqxKOceVO+Zhr4t0Ea2NBh8Xj6SfWTQPvVltnnpNNDjgZJrK94kH LMXY8v5GGgzOTBQEfuDBZ7LC6DVsdPqM3XQBD7L8awubGmhwI/Ot5sgrHtBs 91h41tMgJPjaiR/3efD12vlv7TU4HhUV1kruPFjUf8U+FDtqSnjitSsPztll pWliX10rJ7X9CA/EjX4/f1hNg+wzWkMuNjxwOFprdaaKBqTgW5WlO3ggFi3/ Ve8TDTpD82TLZHhgHWQoz/hIg/HQ6lFXCR4UCKKVBdiXbwbqiwvzwDEGRWhi d1vfcDnG5UJss847vQoaGOkqv1Aa48L1PrqsZxkNjggXtQ6UcSHN4HG+FnZj VOjN5CIuDLzvWTRfSgOeZOv7Q/lcUEs6q/gA+25T+u3BDC7sPY62tXygwUVR s0niHhcmRZ9YHy2hwS6LiEOXPLjg/vJ3oQ52nqjcy4yTXFj9Ib2Kgl3SV6nT 68IF0g2zuupifL8DXhoG9rjO7Fjqr4XttDHDirKLC53bvrCksUm8tk+7Dbnw fVnW8qkiGrzW4AaG6nPhFS3ZKgtbB+0vYG3mAuWote5W7OeT160ZSlyo8GJX Lcau3+I6oIfr2M3hC38ZhTSwW67+5spiLkjsLF7zEftXopOkiBgXRCycF+yx t774O7CRSYDXhkuhhtgyH5/6XKYTYD+hmKaGXduqYNYwScAZVFLEek+DnouH s9xGCHjc72iQji1zrtzrfQcBK63Op8Zh0yod2eKfCbgv8yEtGFvCMa3qRAMB Ar1lF5ywVWnrJeU/ElDdPWxqjm2nMRrt+wGPV1uRp4udGLnTsu09AUWWH+0U sBXDCi7feUvAuSMpd0SxT960mpjIwHXX+NYRooAGHud9H+17TkDEgl3jIHZZ n+MLuSQCbssVn+jCli+9yx/0gACnS4sTGrDNbPY8/hVHgOaLF5X52Pqeqlfy wwl4+vrgh0xsceuqKqUbBDwPnN6Tgt2c12occZUAepbm+QTskBoh7uwlAgyp XzfEYG8pUfvrepEA/caUa2HYg5XjCp3nCXgwscv9GnaSNOWK8VkCBOmho4HY rr3W8gVueHzgEo4vNph7jKudIGB0ecUzL2y9B/JzSUcJKAvVHnTHtp1eoivt jJ/fWD//JPbDqDW5YQcJyJ6/pXAcW/QR22V+PwGbD35ddBQ7z+KgWYAVAc9G JlIPYT/opLvSdhNQYhlS5YRd7hrz/uwuAtQ1rAMcsTdsHNlJNSRgRMO+0AHb xiftnpABAT9EH6b9s+D0cRtVbRxPSpnev/H+p9qumG4h4FCod9C/+b5F35dx W09A44tDHv/ud1LVUTpSjYDd1ev4/q3H7HddYPZqAixWhZv+W++7e7ctupQI MOdfpnUK++fgnluEPAEF+XFNHti8mDx1lcU4XhfviXv/i4+T57Z9Uvh545rm Lvy7H7E885IoASpWwxFB2Aua/jdeChDwfTKs5jr20Aeluq4FDuwtc8mMxC60 LvUWIDigynZye/xv/rhwhhuNA4GzbUYvsXvei3xJnuBAvo5KdS42+qou1zHG gbVJq0rq/8U7ZLwBfnBgVer6jf/2k9+Nn/qX+jgQsL3H7Bf2mMpSSkEXB8b2 tHnwsMlVIv9tbOZAh3mIrwTer9+40v+dreNAxeyDlUrYBXbC5lmVHDA5U3Bq J3Zb32ltzWIO+AeufhSOfTX7TrrVCw78vXmoLBl7s1lafkIqB3K9bobmYucy Z1cNJXOg4I/bdD92hBrf8uB7HNCBPgcDfF7PqFvfrr7GAb8vk6G22D78rFiF IA4Y+wVZemEvmdsye86fA1qTdaXPsF8mEV9WenFgyPu6iBzOH/knYsfuOnNA SahaVQs7wt2ug3aQA5t6hQYPYLeGcORsD3AgyOjIurvYkp73shXNObBtIFNS HuevbfF3Fhdpc8D2Y0Mj4Pxnczv4uKYMXv+PsN7T2L/ZjawyCQ40T/8JiMHm SJv3mYtwoHxTkvdP7L3GiRdOLrCBMiCjFYHz7aeVVeJvcB9tu7+mdRbnY18d Yf+LTWy4a06MquD8HTXacVm2jg139BOiD2ILX2mqLqhkg/7usZvF2D9OC6xm F7Nhqj9E9lY5DZRfdy3EZbChwPB3kB6uF1EO+SK8m2wo9XZ39sEO0/64LjeE DVdTRKtfYzfqMqJOXmFD0Y6nW1fiejRYnCbW4ccGH73kK1KVNPBcpj5d7MoG VoRBjBCuZ4Gd5XI1iA0dEjO1zrg+NmzjParlsSDW8s/5FOzZiXqdMTYLPOD3 nRFsM5fcQVEGCxYVqMqfx/XVLLvf2eYvC562q3jfwfWXl5j+a+oHC/o6hknf mvF+KzUhH/nEgketI+b17TQwlxhr4t1gQWeTXb5iB85nknxxKIQFm6kXws5i R2WYON+8wgImm+O1uBP/PyNGPKmLLFh1Jn7badwfzK1S9d9ymgVLwt/6rcT9 RnXVF+K5OQtCZ74e+tlPgztiFUmWUixItZqpMxugQUDpy5xjYizopxlmZmM/ jzT96y/EAtUnQS3XcP9Sou859nKeCfE/BB6s/Yn3V1fuJ9kpJqzYs45+Zwjv lxaDprXt+L0ixXl7FpUG67VDZDTuM2Fj0xK28jgN/nZeqHGNZcI11TjVR9hl hqYPn0QxQZba3Bj2B58/HcPkJTeZEC0+pOc2SQPZVNriJReZoPDMLXgHDec/ rvsNCwf8/WV7ii7u/wr0hneEKzEhM6gjOA97rftlCWVFJiwlpZht4NBgk25y a7kcE24XXRlVJmigMR2qwZJiwtnB/c6yPDy/33KtQDITfii0jAuTcf886uTy YpQBWooxvltE6eDYe8AzP48Bh+ueWgcvpcM9M9O22xYM0Lz4c4XYMjq0PJYx 8d7NgI0CdgYPsbV89t0/aMKAQZrewXwlOtwx1P+kYsgAJ4f7SyZwf3xHJm/v 560MePw8Pt1rDR1qGpcI7VZkwG1RpZ4M3H8ri6uc7P89B9JvVcangA4DcpmZ QZFzYK/WJ/wY0eE4fdsKh/A5kHtf4WduRAfy6aSbWjfn4G79Ye1nxnTImBpQ ngqegxu1z5ydTOkgmFj5xMdnDm7vNePvwe8Hqx/JHHjuOAdJbWevCNvj+XZS WovWzsHxc7HFyIsOFo+GnBIaZmF4dLp3fzId9xtz2ftXzULYXeXI3HY6EHuS UTN+D/PzI8rpwjPQtmui+eIAjttxLdsbO2eg6JzO0Ug8r8RCMMX00gygl4Xt AbgvpQRUZ6/Nn4Fi83GRnc40cFtlZhI9PgMuEw43hKamIdGrakxMfRbSHt4w end9Glj7jf3tj8/CfOeTE8kq02B+4GElOWUWiiI/JJhHTcEypRXNv3pnIYZf L2jD6F8IV/M6VyY1B0o9N2/93fcXiD7vx1zzOVAPjCCNvp8E+0mW5jyOi/+b yNqXWyZh4lDkg/r3c3DMB9HHXk2Adbl6Qun4HGjXdxc+2zQBCX+8t3gsZYD4 qZEK+eo/YBdsIahuxQCP/aGO8wf/gEhZXlNRIAM0WkiBbxjj8GeDLOvJMwa0 bM5oG3k6DkqOu/qkWxmwSfhA1B3TcchfdtaxdJYB+55b+O9jUuFrycbfJ+YY cO/Wtxpijgp2afp2EgwG7L3cfe7VLBX6mAaVh5kMCFVK7BKkU6HKb9MUwWbA xc+rRqomqJC4YdMTrQUGqGyqYe8dooJ76w67CFEmmFhf1Mr4TIW6t76+G8SY 0KzBKXRpocK7LeZe7djFq83uKTRToaJrgCUvwYQ1fyqsoxqoYGnIdHuBz0Wr l8DwhWoq1CuZZZYsZoLUtRMHHEvwerwK7x6SZcK847tdS4qp8GARzYGH3XqQ FdVVSIV7fO2X0RImnNafXG5TQAXrjdeW1iowQVrT1uRADhWOt9wZP4XPZfhb pWGZbCqsX3L5odBSJiRZ0Xs631LB6+B8+O5lTJi8urf84GsqZKYmNY9hD3Qk 5si/ooKy8eqJf+e8tjmI0ZdBhbKReOra5UxYsOq7+/glFZy0WNX12D+140Nd XlDhfw5k9GM= "]]}}, {{}, {}, {RGBColor[0, 1, 0], LineBox[CompressedData[" 1:eJwl1nk8lNsbAPB3LEPWsc2ISkJXyZKtkJ5HQhStpHKjzRJJKCUiobjFlbK0 KaUoElIq3ZKkJEtJEUklInltg2FmfqfPb/55P9/Pe+ac857leR7N7XvX7RKh KCqMQVF/nv//KeP/n6poxBltqv2ihEvqDDJ3Czh4neq6zHimhBnOw4F1Uxw8 /lQw93ycEs72NFKMmeDgI1lrM3cFJazuucY8P8RB3cNmIwajirhTi7emkeag lVnIu60tijgl/20TY4CDcxZv9anMVsRbS7HLpY+Da9I1ZUMtFHEJ71HilW8c 7HRZUtWtoYgdKRPBNzo5+EJpNDyXqYhBbjtTbnRw8Oh2xm7p9wpoPe17Xton DirLPvU22a+AV33j6xa+46DWtL1vRJ6xUOSvoUs+FRxcmfIzpiSfhWrDXSs4 Tzh4hSPeeCmdhUUyG6cqyjk41T8nUjOQhQlT1YWSZRzUXjHa/XgmCw2Wj6Z6 3Obgbf9KnflSLOTvsn7fdYuD09m5U6n98pgZ5Rq5O4+D8+S2H112RR7/y5c2 9L7Gwey1L5WNZeXx54qyFbrnOJgY2uUw/accnhStGz6VzsHCJcyGLVVy2Gyt 5TFwhqxHNvtM/xE5TLULP5WTTPrba+mhwZXFOU8OJX+J5aCo23bh7WEZbGvY dy4zkLxfVfdA460Mfrqprh/jz8GMRjqv644MOlS0hXj7ctBH57hxwF4ZzJmW 7DRnOwflondU2dDSqNxKbfB15WCoWkCJEiWN4k0+eousOLh0b6CZ8zcpjP7X WeHLIg46+J/0qHkhhemHf66PM+VgVdGw7MkkKdx3QU2lSp+Daz/utlLWlEKj yppktdkc7P/BXxaxdhoyI9fs0RHj4MnKDOfExdPwr49iIRkUBz/e2SxTrzEN 1TVid0ny2Ti32f3bxG9JrGuXMu4YZaPsj3nNFcmSOMEWrPbrZuMuv+/qSa0S yK9OO8Z9xcZ+iZcMoxQmxr4UDdI9xUbvrBUTxlFMrM7PvZOQwEYTxWh/tz1M HEyIlP0Zx8a7ohEb+Y5M1NFKNco+wsa870KjZ2JMPH6VkSvYy8bkuxb/fI0S R3GuSObOdWxkJUb3vNgrjteOX+rLc2Fj4eslbS88xfGGmuONfic27jWdE6iK 4tiX1OIfZMtGOeeJbB5DHINfH7ixw5SNz170exxLFMP0ZtkcMTYbS24/0RWJ EMNt2S2njRXZmBDxOjVjjxhGLLmp7ynHRielcT/ptWJ46ptY+F0mmW/QYQnR 6WI4znb+tHpMBdsLYh9KF4hi2gxdFeePKshX699o8l0E3826HR6eqYI9utE7 oz+KYFmsHCvzrAoGX7c78rlWBA1N19XeS1HB1tt+dm9KRfBjbUDVQIIKOpSq ae47IYIFJk9l3MNV8Hn4jrK7RiJ4lV2+TWyLCv4temVg9UkG5u+68emzugpq 2c6dHxXDwOByxpVujgp+vhiY/uggA0+LP+gcUFJBs5iya1t2MdDT8MRngbQK ksWpNAMGPtIuYHKmlLFaJujSklEKRVbkyhi3KWNJXsfscT8K+wRpTZoXlNH+ aklHnxeF9/blzqtOV8Z0i5udfRspNOZtNA5IVUaXIrn1LHvy/7YOn9JEEpeE s3175lBo1lh2bfkhZfz+SOtnzGMheHKf7nZ3U8Zjm+JrpR4LwM272GknSxnD 1z88UFgggCezArzEZJSRuZQ+4XNJANduTwu8JqGMSsxYN4VoATg45hz8LlDC h3lbHzosF4DNwsbonf1KeK37kZtWAx827Dj/a1eNEtZfrev7b2QKPocv1g+P VUJ/802bQnqmoKyCucQnmlg938usbQqsWHTwhggltBlz/tVZOQUF7o//NgxV wtM206taU6dgeKjToXuHEsqBQ6+F+RS4LbUL8bIlcXaeSbVu7CTYZMXSUSJK KDgfOKVqwwP9GKukW0cV8Vjnad82cx7kRssZu0Yq4hluy6+bC3hwM0Z5tfCg IpYUlwt8VXnAupc0viFIEUN2Oyb50BMwrU1em+lJrOea4pU9Ac7V70qilyji X21f9rTKToDdajOx9jEFdHBK2CZNjcOJt82zPYMUcFHeHLGV42Pw6aa4u02A AjLm3jA9TY9B/j/Jptq+Cth7pUFtUecYzJz3saPPUwE7LbInW56NwetGfblj qxXw12Vt+YjjY9BdF2zTaKCAz8pOBg6rjMFEv+h5up+FleOsGtqOCx9rqcUb SNz9ceS80BK58Gr//tU3drPQaDJdKdGSC91f58tPerPQMCf0mbkhFzrZO05c 82Rhls/F/FeqXFi3zM1PuIaFqtpmlo2/RsF5Q67GexMWnl1oWGyXMQrqGglM sRF5DBoJyK6bHIHmKsP+FpY8rnAuVIhsHYY3iUkVTxfJYsXbXNmVwiEQbfLO +ZAmja8GzzJ/ugzBmbj282EqUnjoa8g2mZJBqJBd4KhxShJbzhn+ddJ6EPSD XrEumEvg+n7Z+5VWg5C2eQ6DWiiBrh6Bw1MWg8AYU0napSeBT9uM94SaD8Ky 3NIIs9kS+Dx6kV2Y4SDAxYU5PdMkcMOdXadeaw7C96KIrvPtTCx6O/73DYlB sFnCmGkaz8THjfttRz/QoFI+8kOtTRz57uNhac00bHj4YeZUszi+oE7KWryn YcTWoOFzozgu2XvJPeYtDea1Utdzq8Xx/Mj+jTpvaJgIXS/nUiKOXAdNzH9G Q6tlUXJHojj+du+xL7tNwyLWFRt1K3F8fTrhyOVEGu4Yrd33PUsM/YJHpa4n 0PBJoG0Rel4MNx2fupJ/goboVDNL8XQxDNpX1V8eT0NNs3T3/CQxnKeb3f8z hoYFJrHfY0kcdNWPn77/MA0SxZ7mIZvEUOXhxphVe2iIpIeCFymL4XTLyW3B ATQopaZ09cuL4d2ZM5Zk+tPwsMc9IUdaDIU3x9t/+tHw45fHDlVRMWTOlH+d 5k2DB3v6ZpkhUfyw0fbrLC8ahls3TtdvEMVNH7ZUfF9Pg+ORM+w1p0Txc8gz 4+nE5vO9Ut6eEEX+8fAHLuto8GqK93OLFUX3N8/FHq8h6+maZrT9sCheeTkt 9rozDYPeaaxEP1G8vf1sYb4DDdXF7XVq9qKoYFAsE7OEBluryzxrShTfSp/U +mhFg3VL1pG+SRG8otS11JA4VSzW9dyYCN7byIv+YkGDmdkt3uRvEewsmNBa vYiGhC3O0+vbRdAr68J+D2Ma9rZEbr37SAT39V+XNJ1Hg9/loCcHD4rgj9iw /mJd0v781Le0UBE8/Vg015i4UvLO3HtBIujDq7tg+hcNt9Mjxcd9RfDneGH4 Mh0a4tTsNRM2ieCZp2klcZo0rHHWTPtiKYJti+cdu6FG1lfrR+Z2AQMPNZj4 InHd75/CqzwGvpaJ5LROJ/v/+NLhH1wG2kSEvZMnfh0lVxI4wMDjIU/vx3Jo 6LLNVzv5hYE/bi3vTlWmgUK507xnDNQ8rpNsJ0+D280PTtdOkLzBtEyh5WjQ jsstfBjLQEcl29ALxAFVl9e8jWagr0vMJ64sDcGbiuzEDzHQIcNX654MDfY3 poYO+THQ1YW5fKsUDaHPg1mXnBg44LZuLof4cS9f/qU9A41GfL81TCP7f8/X fngZA+3OhfyyJ37+8KSbsxUD1TYEGlpL0mBS2cqTX8DAtYfCtNcxadiyb3Ba vSwDmTp/xasSl5pLrJGRYmCHekZ5hziZ34mH1U5MBmZlWF0PIj7hlOf0WkBh 4anxbRfEaHhyIeRs6wCF39fO8fQjtlRd5qn5i8LIckmDRcSOSrLufj0UHjRO gPeiNJQzVryf+kLhicSXc9WJpeRmjS58S+HlXOcbv0XI+jVd0I+po7Bc4zz3 GXFO1MHT72ooFG0ypgKJby7mdxyqpHBkX33pGwY5H0yro013KVy1X+HqDeKL dVlKBkUUFjvs8Igh7mivqz9RQOEt5daFlsSLY5Y9t7lOYVhA0tYSiox//8iZ inQKDU91mZ4hDjlSY2N2hswne+2b/cRPtuZK3/yXwmhlDVsrYr3nX4fTEijs /MYJuSQcgP2ZtbJHDlO4aYG8YQDxzCytdF4YhQkMqd1WxJP7LloeDKWwSCts 82fBABxrqag7sIfC0yLzlMyJ++eu0DrqSfJ6gHmpPHGArNF+pgeF78Q1G3v5 pP/9rz+fdKfw+jleSA7xKu2usQtryfcIsiZiiY0yqq/PdaHQZWcydxdxdbdO QJEThSzmg/ULiC1DZ1nU2FJI3corViCe93kGuiOFRlpr48enBoAb6enRvYRC yatSdV+I5+/OOBVmQeH43YUJNcT7Sw+9kzSnsC5b734pcX55qf55Ywq3eu/Y mE08upq6YGBI2ovZ+v1LvD1OdlalHoW/j5n+iiIWD0kpcdelMKXnSkcQ8YAB egxoU2iyeHTZDmKT+jec45oUzj2YobKR+Jvf7y6NWRQ+LBh1W0Usr+L24oEa hTafDzBtiWt+lJVt4FAoKx+vZUWsO1pTTitRGGh3qsCU2NIN355iUXg/nnvV kFhx9ptxPVkKLT7qMRcQV/jqGL2eRqE9pL+bR7zZnh/mz6TQoCJb+o9/10k2 yIhSaLujrOCPNRaO790qFMKH+cse6BFfDmZ75owLwWrmTf0//Z9Iagr4PSiE Ctgs9Wd87p1zGRZ9QniQXu5iScxiNnbGfxfCgflWPBti3oMOh+Z2ITjyQWYl 8Ydxg5q/PgjhmIpZrCtx7e+5vocbSPuDsdu2/WlfbajZ+EoIIXoZVwP/jHen aES3UgivTVodI4kvNCl/jSkXQmPa3fWniDd6VfR8LhXC+00pTy8Rf47SkLQu FMK8mNbkImJXz3S4mCuEWSq8p1XE7fNTkoRXhGDy7077IeJH5reCas4IYTTm WKYUOS+b6s+LmCQJIWt09ipt4nNihXkXjwvh196oN1uI00fbTQ+FCyGu0PLf MOIfDo/ubA4VwlOD9pgzxI1UMs86UAgOH+jRRuLJfxdwp20n8zkQuH+IeG+7 8PrQFiF8hF9zlMn5Hwtv02p3FULtUgZzC3Fh6vOo+45CUnflWEYTv4tq+fuG rRCqxvzPXycuL5dmZloLge1wpYNL7FPbU3x0oRCWfw3yziH3L3Zr4D7f6ULY rN0/8I74hpdrqreSEK4fZjYy/txnlQuHvWWFINVpBSbEW776XfRnCOFc3Gfx i8SVurTqPz8FoBEu011GvKTlsVf6NwH8nVe7+T2xUbO+f067APQGtSbkSXxJ EWG/eNEoAOV78tInic8hHT/roQB2s4rC84mtgx40L74rgCqOzuE/8Sss3qdr w20BFHjn6CuQ+FZckmp9OlsALmd71mURFy1QqdX8RwAS9+L2NJN4WRoiPpHq IQDJVNUGIbGRspjwlZsArjKET+aReBtSH1DOWCuAutof9lHE3t8ubjlgJwD+ TdE+IxK/V1/wmRVqQOY3xfK4TeJ9i4WocwUlADWR+2XfiV8tu6STwePD1bDY ++oSNMCALC9ohA+t75PP/UMska1xRreHD2NbYSCY5JO+Q5MRhfV84OQ8yPQk +eiyk+wV9Sw+qPfP5WURO6RxhhQy+cBYdG38C/G/y16aSaXyYdroy7qd0qTe WNB4mjrOh4Vqpz+GkHx3YnVQqthePlBSn3QLSX40XeBh4Ad8+PIgY+UE8eaT gzuPWJD3AhfJ5SS/opQw9qwJH9J8slw+EafUmUe9+osPNk+vSygokHojVnLV ChYfik9IDGUo0aA2mf/icucUtIi79KqSfC67r8zxQdwUPPB8dmUv8a2EQaZ/ 9BTYPjr38QWxlPoSz1mHp6CUVVJ5gNQHKkbWHQlBU3DKWyuxTZ2GqE8hrNAt U8Bxkil4MouGzPGP784snIKhNSuHv2rTcGX9nSdiHZOQqjtrsSOpR/7zFjB+ tkzC49qF3ELiCmO1xrqmSRBV3th+ZC7pL3JIKatmEjrrLdfNIfUN9+xNjXX3 JoETkHIrSo+s79KoPkbSJIycq246TeqlRnGx1XFLJ6FX6WK6uAkN95TuSJRY TMInjvurg8T220ONvppOwnht40EvUxrSbuU3LNebBMVl00XNzMl5d8tHddVJ iJTQyhoi9dkaB/84mSEevIkIe/GfDQ1f9zCa+dd5wHNYrAjLyHljJL92z+bB diqs+gnx/bkB2qUXeTDXrmLPM1saLilGCPad4cGh0LprtXak3nj/bMXUUR7Q TTvTRxzJ+Ft02tf9zQN2j2dgCqk/E86dcxdX4cGm2sT0+aQ+nSn9vnk+iwf2 ix+bPydeGF/Ss1aaB1dv+jSPbyDnYf2eqmsMHsxRnHHWZyMNUysdXf/+PQG1 RSu/bvagIfCd0/bpLyeg00vGJZ3Ux/dYpXUPIibA4EfsTI8Isp91OSZHe8eB M71cWTyS1CtH5F02/BiHbulMn9vEu4xKCnS/jsP551c0RKJo8OnWs3rfMg49 CZFNBUdpEJQdirV+NQ53Ljfrs4/TwCqGSKfccfD63hAz7zQNMYut9qz3GQf9 39aja/NocAoO+ynzcwzQ/ED67Js0vP+Wf+jT9zGQ1szKHCDWzvgv4NaXMZCK nixPyqfBdUfBodUfxyC6dnd4YyENk4/M5+RWj4HEj/hrvvfI/TPvdTx/fQxE svnubZXkvFiymuJ2jUFRmkNyXQeJD0kbC9Z3c6FpvX69j9og1Onwd4NgFLyT tbUp10EQU+994Ww2CnbaVVqGGYPg5NgsO+Y/Al5b2t4+bBmEZ3mBXd7/DYOy Xp6q+owhmBcxEVY6exhOxnwxG9g1BAOorH8oZgjmj/seE94agolt52YLJgZB rtuAXTQ+BNO4Jc1W+wah1tB153EchuNh+1IXTZJ9Dr8fXBE/DLvra72/JJN5 3mBHr3g7DHeeViSyyD0ZWYdR9ZwRqFpWxas5NQDFd374P9k2Ah3PX1e8fPsb JF80FmbmjkCDsPqI9LzfkHXAr7m7ZwQ2xz3sVkrrh7rVb+eELRiFa3zbhBki /WDGUFzt7jcKi+QPPqk/+gsGj3iFfcoeBclif7d4mV/wb88a9qPPozDzQP87 ZlofBKjyny1Q5kLoABqIG/bBq//sJNgqXNjqe7VvhX4fXNxuM0NI/DOvy+CU Xh+of3Usa+Bw4eTT5fYc3T4IjvAr26fOBUG9dMlCzT7gJu7/cHMOF2zHTDdH KfWBw+6lSRNGXPCVenchYrwX8viTP9oWcqEmOflhA7cX7mtsYj015oLhoy3u OqO98KJwsCnOlAuXrPcoNQz2whrPTB35xVxIjI2I0evrhc/jBd9VgQuL752Y wWvvheVmmxwmiJ95DOm4tfXCjOjs8BbkQmvymfzi1l5gdcqtz1zGhTXva432 fOiFXMNVr9n2XKgPUmb1NPSCMXQVjxIbyTsJHOpJ+4vq/k0OXNhRsMo3900v PPrm6ZziyIXOOaKFu2t6IfrCnrC9Tlzgsz3+qX3ZC4m2qsHOK7mQvLz2q0F1 LzQ/9bTWW0XWw2JuaUpVL2ybsm2RdOZCcdwSkdHKXvgfGVYTVA== "]]}}}, Axes->True, AxesLabel->{ FormBox["\"N\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.662307784461307*^9, {3.662308988996522*^9, 3.6623090148145676`*^9}}] }, Open ]] }, WindowSize->{1350, 633}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 1695, 52, 118, "Input"], Cell[2277, 76, 725, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3039, 102, 1103, 33, 52, "Input"], Cell[4145, 137, 1729, 52, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5911, 194, 184, 4, 31, "Input"], Cell[6098, 200, 315, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6450, 215, 189, 3, 31, "Input"], Cell[6642, 220, 165, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6844, 229, 413, 8, 31, "Input"], Cell[7260, 239, 333, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7630, 252, 238, 4, 31, "Input"], Cell[7871, 258, 196, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8104, 267, 299, 6, 31, "Input"], Cell[8406, 275, 402, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8845, 291, 136, 2, 31, "Input"], Cell[8984, 295, 214, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9235, 305, 239, 5, 31, "Input"], Cell[9477, 312, 298, 10, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9812, 327, 136, 2, 31, "Input"], Cell[9951, 331, 157, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10145, 340, 1922, 54, 52, "Input"], Cell[12070, 396, 2063, 41, 256, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14170, 442, 1826, 53, 52, "Input"], Cell[15999, 497, 7472, 129, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23508, 631, 1793, 51, 52, "Input"], Cell[25304, 684, 8032, 138, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33373, 827, 167, 3, 31, "Input"], Cell[33543, 832, 16887, 286, 479, "Output"] }, Open ]] } ] *) (* End of internal cache information *)