(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 280879, 5245] NotebookOptionsPosition[ 276371, 5107] NotebookOutlinePosition[ 277990, 5157] CellTagsIndexPosition[ 277654, 5145] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Predator-Prey Ecosystem: A Real-Time Agent-Based Simulation", \ "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.4130503574375*^9, 3.413050368390625*^9}, { 3.413051474703125*^9, 3.413051476765625*^9}, {3.413060574765625*^9, 3.413060578875*^9}}], Cell[CellGroupData[{ Cell["", "InitializationSection"], Cell[BoxData[{ RowBox[{ RowBox[{"Fox", "=", "1."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Rabbit", "=", "2."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxRabbits", "=", "500."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxFoxes", "=", "500."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dummyPoint", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1."}], ",", RowBox[{"-", "1."}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.403283674203125*^9, 3.403283698984375*^9}, { 3.413062283015625*^9, 3.413062284125*^9}, {3.4130623660625*^9, 3.413062376828125*^9}, {3.4131001863125*^9, 3.413100190609375*^9}, { 3.413221055828125*^9, 3.413221057203125*^9}, {3.413222851015625*^9, 3.4132228525*^9}, {3.413223074015625*^9, 3.413223081828125*^9}, { 3.413223315171875*^9, 3.41322331828125*^9}}, Magnification->1., CellID->12186613], Cell[BoxData[ RowBox[{ RowBox[{"initialAgents", "[", "]"}], ":=", RowBox[{"Developer`ToPackedArray", "[", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"(*", " ", "Location", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0.", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], "<", "0.1"}], ",", "Fox", ",", "Rabbit"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", StyleBox[",", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"{", "100", "}"}], FontColor->GrayLevel[0]]}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], "]"}], "\[IndentingNewLine]", "]"}]}]], "Input",\ CellChangeTimes->{{3.403283674203125*^9, 3.403283698984375*^9}, { 3.413062283015625*^9, 3.413062284125*^9}, {3.4130623660625*^9, 3.413062369828125*^9}, {3.413099385046875*^9, 3.413099400484375*^9}, { 3.413099431953125*^9, 3.413099435640625*^9}, {3.413221069765625*^9, 3.413221103875*^9}, {3.4132212468125*^9, 3.41322126115625*^9}, { 3.413222073734375*^9, 3.413222074203125*^9}, 3.413227762890625*^9}, Magnification->1., CellID->179304614], Cell[BoxData[ RowBox[{ RowBox[{"visualize", "[", "agents_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"foxes", "=", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Fox"}], ")"}], "&"}]}], "]"}]}]}], ",", RowBox[{"rabbits", "=", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Rabbit"}], ")"}], "&"}]}], "]"}]}]}], ",", RowBox[{"dummyList", "=", RowBox[{"{", "dummyPoint", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Plotting", " ", "foxes"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".9", ",", ".42", ",", ".17"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "@", RowBox[{"If", "[", RowBox[{ RowBox[{"foxes", "\[Equal]", RowBox[{"{", "}"}]}], ",", "dummyList", ",", "foxes"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Plotting", " ", "rabbits"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{".48", ",", ".11", ",", ".56"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "@", RowBox[{"If", "[", RowBox[{ RowBox[{"rabbits", "\[Equal]", RowBox[{"{", "}"}]}], ",", "dummyList", ",", "rabbits"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"375", ",", "375"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.40328370721875*^9, 3.4032837329375*^9}, { 3.40353796284375*^9, 3.40353801059375*^9}, {3.40353804496875*^9, 3.403538066390625*^9}, {3.4130644830625*^9, 3.413064552640625*^9}, { 3.4130999793125*^9, 3.41309998003125*^9}, {3.4131000239375*^9, 3.413100025046875*^9}, {3.413118589519039*^9, 3.4131186158157454`*^9}, { 3.413221163671875*^9, 3.413221202890625*^9}, {3.4132212821875*^9, 3.4132213226875*^9}, {3.41322135325*^9, 3.413221386125*^9}, { 3.413221483109375*^9, 3.41322148471875*^9}, {3.413223089171875*^9, 3.413223090890625*^9}, 3.413227759421875*^9, {3.413228403471799*^9, 3.4132284198001328`*^9}, {3.413228467503868*^9, 3.4132284798790264`*^9}}, CellID->581179032], Cell[BoxData[ RowBox[{ RowBox[{"updateAgents", "[", RowBox[{ "agents_", ",", "rabbitGrowthRate_", ",", "rabbitMobility_", ",", "foxGrowthRate_", ",", "foxMobility_", ",", "foxEndurance_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"foxPop", "=", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Fox"}], ")"}], "&"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"rabbitPop", "=", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Rabbit"}], ")"}], "&"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"nearestFoxes", "=", RowBox[{"Nearest", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Fox"}], ")"}], "&"}]}], "]"}]}], ",", "dummyPoint"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"nearestRabbits", "=", RowBox[{"Nearest", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{"agents", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "Rabbit"}], ")"}], "&"}]}], "]"}]}], ",", "dummyPoint"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "i", ",", "nextLocation", ",", "survivors"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"survivors", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nextLocation", " ", "=", RowBox[{ RowBox[{"agents", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"agents", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "\[Equal]", "Rabbit"}], ",", "\[IndentingNewLine]", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "rabbitMobility"}], ",", "rabbitMobility"}], "}"}], ",", "2"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "foxMobility"}], ",", "foxMobility"}], "}"}], ",", "2"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nextLocation", "=", RowBox[{"Clip", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{"0.", ",", "1."}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"agents", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "\[Equal]", "Rabbit"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"rabbits", "'"}], " ", "behavior"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"nearestFoxes", "[", "nextLocation", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "nextLocation"}], "]"}], ">", "0.02"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"survivors", "=", RowBox[{"{", RowBox[{"Join", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{"0.", ",", "Rabbit"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], "<", RowBox[{"rabbitGrowthRate", RowBox[{"(", RowBox[{"1.", "-", RowBox[{"rabbitPop", "/", "maxRabbits"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"survivors", ",", RowBox[{"Join", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{"0.", ",", "Rabbit"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], RowBox[{"(*", " ", RowBox[{ RowBox[{ "Probabilistic", " ", "reproduction", " ", "with", " ", "logistic", " ", "growth", " ", "restriction"}], ";", " ", RowBox[{"adding", " ", "one", " ", "more", " ", "rabbit"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"foxes", "'"}], " ", "behavior"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{ RowBox[{"nearestRabbits", "[", "nextLocation", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "nextLocation"}], "]"}], ">", "0.02"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"agents", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "foxEndurance"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "starving", " ", "but", " ", "still", " ", "survive"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"survivors", "=", RowBox[{"{", RowBox[{"Join", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"agents", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", "1."}], ",", "Fox"}], "}"}]}], "]"}], "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"just", " ", "ate", " ", "rabbit", RowBox[{"(", "s", ")"}], " ", "and", " ", "survive"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"survivors", "=", RowBox[{"{", RowBox[{"Join", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{"0.", ",", "Fox"}], "}"}]}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], "<", RowBox[{"foxGrowthRate", RowBox[{"(", RowBox[{"1.", "-", RowBox[{"foxPop", "/", "maxFoxes"}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"survivors", ",", RowBox[{"Join", "[", RowBox[{"nextLocation", ",", RowBox[{"{", RowBox[{"0.", ",", "Fox"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], RowBox[{"(*", " ", RowBox[{ RowBox[{"Probabilistic", " ", "reproduction"}], ";", " ", RowBox[{"adding", " ", "one", " ", "more", " ", "fox"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "survivors"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "agents", "]"}]}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "//", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}]}], "//", "Developer`ToPackedArray"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.403283750546875*^9, 3.403283802375*^9}, { 3.41306236253125*^9, 3.413062402359375*^9}, {3.41306255884375*^9, 3.41306255965625*^9}, {3.41306268046875*^9, 3.413062707390625*^9}, { 3.41306273803125*^9, 3.413062805484375*^9}, {3.41306293971875*^9, 3.413062963265625*^9}, {3.413099488609375*^9, 3.413099542859375*^9}, { 3.413099590421875*^9, 3.413099700265625*^9}, {3.41310020765625*^9, 3.413100225046875*^9}, {3.413100415375*^9, 3.41310044275*^9}, { 3.41322154271875*^9, 3.41322158865625*^9}, {3.413221657125*^9, 3.413221662265625*^9}, {3.4132216996875*^9, 3.413221888265625*^9}, { 3.413221924609375*^9, 3.413222011984375*^9}, {3.4132221054375*^9, 3.413222121390625*^9}, {3.4132225985625*^9, 3.413222603375*^9}, { 3.413222665109375*^9, 3.413222835875*^9}, {3.41322293215625*^9, 3.413222952546875*^9}, {3.41322301365625*^9, 3.413223068125*^9}, { 3.413223235265625*^9, 3.413223235640625*^9}, {3.413224105453125*^9, 3.413224137109375*^9}, {3.41322416878125*^9, 3.413224274625*^9}, { 3.413224376765625*^9, 3.413224500703125*^9}, {3.413224658015625*^9, 3.413224735515625*^9}, {3.413226205375*^9, 3.413226239234375*^9}, 3.41322775375*^9, 3.41322783728125*^9}, CellID->323996531] }, Closed]], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Refresh", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{"moving", ",", RowBox[{"ag", "=", RowBox[{"updateAgents", "[", RowBox[{ "ag", ",", "rabbitGrowthRate", ",", "rabbitMobility", ",", "foxGrowthRate", ",", "foxMobility", ",", "foxEndurance"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"visualize", "[", "ag", "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"UpdateInterval", "\[Rule]", RowBox[{"If", "[", RowBox[{"moving", ",", "0", ",", "Infinity"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "rabbitGrowthRate", ",", "0.5", ",", "\"\\""}], "}"}], ",", "0", ",", "1", ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "rabbitMobility", ",", "0.03", ",", "\"\\""}], "}"}], ",", "0", ",", "0.05", ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "foxGrowthRate", ",", "0.5", ",", "\"\\""}], "}"}], ",", "0", ",", "1", ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"foxMobility", ",", "0.05", ",", "\"\\""}], "}"}], ",", "0", ",", "0.05", ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "foxEndurance", ",", "10", ",", "\"\\""}], "}"}], ",", "1", ",", "20", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], "\[IndentingNewLine]", ",", "\"\< \>\"", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"moving", ",", "False", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", " ", "False"}], "}"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ag", ",", RowBox[{"initialAgents", "[", "]"}]}], "}"}], ",", RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], "\[IndentingNewLine]", ",", "\"\< \>\"", "\[IndentingNewLine]", ",", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"moving", "=", "False"}], ";", RowBox[{"ag", "=", RowBox[{"initialAgents", "[", "]"}]}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"AutorunSequencing", "\[Rule]", RowBox[{"{", "6", "}"}]}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", RowBox[{"moving", ",", "ag"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"SynchronousUpdating", "\[Rule]", "True"}], ",", RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, {3.39277061965625*^9, 3.39277063709375*^9}, { 3.3930946172472615`*^9, 3.3930946192628736`*^9}, {3.393094659184493*^9, 3.3930948089335346`*^9}, {3.3930948869642854`*^9, 3.393094887479907*^9}, { 3.393095032150856*^9, 3.3930950693849926`*^9}, {3.3930951177128086`*^9, 3.393095161290655*^9}, {3.3930952078841066`*^9, 3.393095214712188*^9}, { 3.393134960328125*^9, 3.393135005484375*^9}, {3.393135098*^9, 3.393135100078125*^9}, {3.39313547115625*^9, 3.3931354996875*^9}, { 3.393135575234375*^9, 3.39313560240625*^9}, {3.393135647171875*^9, 3.39313566171875*^9}, {3.3931357040625*^9, 3.393135787375*^9}, { 3.393135846203125*^9, 3.393135880734375*^9}, {3.39313612671875*^9, 3.393136137703125*^9}, {3.393344439705454*^9, 3.3933444403617*^9}, { 3.394886271114541*^9, 3.3948862820833616`*^9}, {3.402225005859375*^9, 3.402225006109375*^9}, {3.413051118296875*^9, 3.413051124171875*^9}, { 3.41305125675*^9, 3.41305125796875*^9}, {3.41305133225*^9, 3.413051332609375*^9}, {3.413062440140625*^9, 3.413062481390625*^9}, { 3.4130628313125*^9, 3.413062919765625*^9}, {3.41306297046875*^9, 3.41306297765625*^9}, {3.413063013359375*^9, 3.4130630324375*^9}, { 3.413063245484375*^9, 3.41306325865625*^9}, 3.413063613109375*^9, { 3.41309974571875*^9, 3.413099843921875*^9}, {3.41310007334375*^9, 3.413100074046875*^9}, {3.413100464703125*^9, 3.413100466625*^9}, { 3.41310051540625*^9, 3.41310053109375*^9}, {3.413100691140625*^9, 3.413100714609375*^9}, {3.41310106871875*^9, 3.413101073921875*^9}, { 3.413118492816533*^9, 3.4131185644879494`*^9}, {3.4131247297262774`*^9, 3.4131247459764853`*^9}, {3.4131247797112923`*^9, 3.4131248370245256`*^9}, {3.41322235728125*^9, 3.41322235990625*^9}, { 3.413222414546875*^9, 3.4132224175625*^9}, 3.4135430135327787`*^9}, CellID->428012851], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ag$$ = CompressedData[" 1:eJxllmlQ01cXxiMFW8EFeWklGBQVqYAaxFFpBM9fAXGAKEakKIsRUMSFJTMV pFEpDVYUKBYECoWBqizKYgEtr4QtQGVRoQRMZAkJWZCQTSlg3zdq+VpOZv6f fnNy7n3u85x714VGM04ZkEik8PnPcP5LvbXMODiJD3WuniHLmeNA+vePsJj0 snt6dwxqfn6uauYpEGd3vh0xuCgAXd/Xoj8ipIibJljJugu1sHixcI/STYX4 +gjHb4d7FCCjOeZUx2gRT4zKpNraSUE8yx64k1OF+NKdTSTvllGgsMYnbdPw +tl5bmFen6jAeTzFeqPlBOJ9edEOR3JqIN7dJ/wJ+zXi4sjzvezkOhDadz6r tJcv4DpIOqvr2D2jAf2FjwKG9xiqV1bn6dRZWog5ZO53QN+N97csOXrrgxao 2+a5YptEhPiLgkffcg9OgvjX1g+/7CtGnJmeu1Wf/QDWmw+bklPx+RSRN2wx aePCGcmSc32M57g+kuKl3vAEOG7fUHfF4fMJ8qU51Cg04G9zTfOpSIK4okJp SXw+CZQbTpLoZCXS56GTQ9OaDC6EeJJm6qZluP8GypffC+d1O+ZpRl+Rgbhj /lLRov+2gv6Sn9NqP+yvzcYhA5laOYjvONeW67H+LSVHNXonOcT38G0D7r1E PHyZ1QmrGjWYVgRnXgtYuH4SsSa0WKe4NgW+/OlwT8MnaH/Ohmq37fsV4KOO uDkdOonqbV2G9kewJiAj0PSyWTfuTxj023TflIDvjzEpWy+1IB5Q94jfEfgn 6AhTd8aaZsQZuQ8qr1zRwI2mwnTeYdx/JOlWmKFcDceN1xKOP2gQz/rQZrzL cBxohvev1D5e6H8dXKm2LP3ZWQbnK6lp35mrUX1Go/7vt+2T0Le8YOMpK9yf yB/T51zvArPtX1TTh3C+2w9UfJ76mQTO7Gw4VJSG/ZclG0rgx46CS6V/2bYf cL4TVRdFxNwAlPE4F9iDI4iTyAaZ9S7pwJVwvtjkjfNft1vy+GbVCOQOMi7b /Y79FWRhlNTjIQLV84RvEhoHkD5FjxL/LzjQC0zGutJXFk34fHqCEmhWcigz GjYf5bdif38UlDd7DcNn1fylJ90XzhcScX/f6ahOigS41IIoW6UYcd13VoXu nR3w7OBO74j4V4jr+zPuER5ieJjbzwijtSGezXIwyZgYB+fsN9odJxbOBx2c fS8y4p9VwEO+H+0W5wXOV6iX609lJcDu6ksP/YDnQwsrJKEtswR8VfIlKjLW V1FbcPcOTQzm42cEy6fx/K06VpFM4UiBaKaYHQ3B/5/nzWVNyLXAI7tRmbFY H4Jaq1Wx2yF+1G6oKxnny7rXba4tvxqayntS3DZi/YX55veVJnzoLD8h+Dun Hd8fm+2PzGwRAVt6r9hrE54/ZYpz172dxEBcm8prDMH1pz3+c7DhlRi4u94G hJ/C/tzj4zuS3fQadJdOOHRfxfWO9qR9Mzsegw1HlNO5VoD1b7T0jc0vBY2k sOPqE5zPvgmtzCX1N+j0OUzeP73Q3yTiL13Uxb2SCWCuCCRTzbE+6eP1zOIi JRTVTS42OfIQ8etTb9hdwUro6/jkyGJb7B/S1np55aFqeP14li69xUNcRjej ZnzUgDh6h39OfAnilJLbS4Mv9oP9Os+KG6ZYv6Lzi8bzv2yA10cD/LPmehDf tE721VTTMJCsF8XuiA5FXPT75t4Ynhxmq4DH+w3PP2Gn9E8zeg8QF/z84vLx /SoSnNmbQp737W5ZStAWDp4PPq22BVI5WFvdey/UNyDu77Sy/Pr/5t8PXTUv 7FyxPjH2+pjGq6PAOlR1VuGH12fqoqG7fNoP3MjjacJdQ3h+e9Buj0e2ADH3 ckouxvlhWgsEGvoY3DVcH7fy2DDiNlapspMsKSR2zGU/nUnEXJwVm/gTHzhG Yc53S3C+GXtp/b+yJmG9zLmr9zZ+v5Dot9UfTKqAyeRsd1fh8/1FWvrHV4wx cHINbJqJwv4k3C74pOpGoD9/omHJG9yfRC/N7E1iQdTam051s/j+J762eD9k oATLVcKI7avw/cSOU1Pfb3kFjjzKarUlzmdAh+LplFEr6M5dMm/nDuL+mz1y xxaVQX+xqfVfcXj/9bl3aocvSyDo9NWQd819+P0bNVyvPjkI71YH20U44vsl yVH4cnXs/NzddNho1iUV8QHq+aG043xga2tiDqzC6xMXLA9p8SiCd9Q9Ng2u vThfK5tdAp+NQGGljBxZuXC+6MA97MazbRYyiBk8abwqEPvnHxqHSDc= "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rabbitGrowthRate$$], 0.5, "growth rate of rabbits"}, 0, 1}, {{ Hold[$CellContext`rabbitMobility$$], 0.03, "mobility of rabbits"}, 0, 0.05}, {{ Hold[$CellContext`foxGrowthRate$$], 0.5, "growth rate of foxes"}, 0, 1}, {{ Hold[$CellContext`foxMobility$$], 0.05, "mobility of foxes"}, 0, 0.05}, {{ Hold[$CellContext`foxEndurance$$], 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`moving$$], False, "run simulation"}, { True, False}}, {{ Hold[$CellContext`ag$$], CompressedData[" 1:eJxllmlQ01cXxiMFW8EFeWklGBQVqYAaxFFpBM9fAXGAKEakKIsRUMSFJTMV pFEpDVYUKBYECoWBqizKYgEtr4QtQGVRoQRMZAkJWZCQTSlg3zdq+VpOZv6f fnNy7n3u85x714VGM04ZkEik8PnPcP5LvbXMODiJD3WuniHLmeNA+vePsJj0 snt6dwxqfn6uauYpEGd3vh0xuCgAXd/Xoj8ipIibJljJugu1sHixcI/STYX4 +gjHb4d7FCCjOeZUx2gRT4zKpNraSUE8yx64k1OF+NKdTSTvllGgsMYnbdPw +tl5bmFen6jAeTzFeqPlBOJ9edEOR3JqIN7dJ/wJ+zXi4sjzvezkOhDadz6r tJcv4DpIOqvr2D2jAf2FjwKG9xiqV1bn6dRZWog5ZO53QN+N97csOXrrgxao 2+a5YptEhPiLgkffcg9OgvjX1g+/7CtGnJmeu1Wf/QDWmw+bklPx+RSRN2wx aePCGcmSc32M57g+kuKl3vAEOG7fUHfF4fMJ8qU51Cg04G9zTfOpSIK4okJp SXw+CZQbTpLoZCXS56GTQ9OaDC6EeJJm6qZluP8GypffC+d1O+ZpRl+Rgbhj /lLRov+2gv6Sn9NqP+yvzcYhA5laOYjvONeW67H+LSVHNXonOcT38G0D7r1E PHyZ1QmrGjWYVgRnXgtYuH4SsSa0WKe4NgW+/OlwT8MnaH/Ohmq37fsV4KOO uDkdOonqbV2G9kewJiAj0PSyWTfuTxj023TflIDvjzEpWy+1IB5Q94jfEfgn 6AhTd8aaZsQZuQ8qr1zRwI2mwnTeYdx/JOlWmKFcDceN1xKOP2gQz/rQZrzL cBxohvev1D5e6H8dXKm2LP3ZWQbnK6lp35mrUX1Go/7vt+2T0Le8YOMpK9yf yB/T51zvArPtX1TTh3C+2w9UfJ76mQTO7Gw4VJSG/ZclG0rgx46CS6V/2bYf cL4TVRdFxNwAlPE4F9iDI4iTyAaZ9S7pwJVwvtjkjfNft1vy+GbVCOQOMi7b /Y79FWRhlNTjIQLV84RvEhoHkD5FjxL/LzjQC0zGutJXFk34fHqCEmhWcigz GjYf5bdif38UlDd7DcNn1fylJ90XzhcScX/f6ahOigS41IIoW6UYcd13VoXu nR3w7OBO74j4V4jr+zPuER5ieJjbzwijtSGezXIwyZgYB+fsN9odJxbOBx2c fS8y4p9VwEO+H+0W5wXOV6iX609lJcDu6ksP/YDnQwsrJKEtswR8VfIlKjLW V1FbcPcOTQzm42cEy6fx/K06VpFM4UiBaKaYHQ3B/5/nzWVNyLXAI7tRmbFY H4Jaq1Wx2yF+1G6oKxnny7rXba4tvxqayntS3DZi/YX55veVJnzoLD8h+Dun Hd8fm+2PzGwRAVt6r9hrE54/ZYpz172dxEBcm8prDMH1pz3+c7DhlRi4u94G hJ/C/tzj4zuS3fQadJdOOHRfxfWO9qR9Mzsegw1HlNO5VoD1b7T0jc0vBY2k sOPqE5zPvgmtzCX1N+j0OUzeP73Q3yTiL13Uxb2SCWCuCCRTzbE+6eP1zOIi JRTVTS42OfIQ8etTb9hdwUro6/jkyGJb7B/S1np55aFqeP14li69xUNcRjej ZnzUgDh6h39OfAnilJLbS4Mv9oP9Os+KG6ZYv6Lzi8bzv2yA10cD/LPmehDf tE721VTTMJCsF8XuiA5FXPT75t4Ynhxmq4DH+w3PP2Gn9E8zeg8QF/z84vLx /SoSnNmbQp737W5ZStAWDp4PPq22BVI5WFvdey/UNyDu77Sy/Pr/5t8PXTUv 7FyxPjH2+pjGq6PAOlR1VuGH12fqoqG7fNoP3MjjacJdQ3h+e9Buj0e2ADH3 ckouxvlhWgsEGvoY3DVcH7fy2DDiNlapspMsKSR2zGU/nUnEXJwVm/gTHzhG Yc53S3C+GXtp/b+yJmG9zLmr9zZ+v5Dot9UfTKqAyeRsd1fh8/1FWvrHV4wx cHINbJqJwv4k3C74pOpGoD9/omHJG9yfRC/N7E1iQdTam051s/j+J762eD9k oATLVcKI7avw/cSOU1Pfb3kFjjzKarUlzmdAh+LplFEr6M5dMm/nDuL+mz1y xxaVQX+xqfVfcXj/9bl3aocvSyDo9NWQd819+P0bNVyvPjkI71YH20U44vsl yVH4cnXs/NzddNho1iUV8QHq+aG043xga2tiDqzC6xMXLA9p8SiCd9Q9Ng2u vThfK5tdAp+NQGGljBxZuXC+6MA97MazbRYyiBk8abwqEPvnHxqHSDc= "]}}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 375., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`rabbitGrowthRate$776$$ = 0, $CellContext`rabbitMobility$777$$ = 0, $CellContext`foxGrowthRate$778$$ = 0, $CellContext`foxMobility$779$$ = 0, $CellContext`foxEndurance$780$$ = 0, $CellContext`moving$781$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ag$$ = CompressedData[" 1:eJxllmlQ01cXxiMFW8EFeWklGBQVqYAaxFFpBM9fAXGAKEakKIsRUMSFJTMV pFEpDVYUKBYECoWBqizKYgEtr4QtQGVRoQRMZAkJWZCQTSlg3zdq+VpOZv6f fnNy7n3u85x714VGM04ZkEik8PnPcP5LvbXMODiJD3WuniHLmeNA+vePsJj0 snt6dwxqfn6uauYpEGd3vh0xuCgAXd/Xoj8ipIibJljJugu1sHixcI/STYX4 +gjHb4d7FCCjOeZUx2gRT4zKpNraSUE8yx64k1OF+NKdTSTvllGgsMYnbdPw +tl5bmFen6jAeTzFeqPlBOJ9edEOR3JqIN7dJ/wJ+zXi4sjzvezkOhDadz6r tJcv4DpIOqvr2D2jAf2FjwKG9xiqV1bn6dRZWog5ZO53QN+N97csOXrrgxao 2+a5YptEhPiLgkffcg9OgvjX1g+/7CtGnJmeu1Wf/QDWmw+bklPx+RSRN2wx aePCGcmSc32M57g+kuKl3vAEOG7fUHfF4fMJ8qU51Cg04G9zTfOpSIK4okJp SXw+CZQbTpLoZCXS56GTQ9OaDC6EeJJm6qZluP8GypffC+d1O+ZpRl+Rgbhj /lLRov+2gv6Sn9NqP+yvzcYhA5laOYjvONeW67H+LSVHNXonOcT38G0D7r1E PHyZ1QmrGjWYVgRnXgtYuH4SsSa0WKe4NgW+/OlwT8MnaH/Ohmq37fsV4KOO uDkdOonqbV2G9kewJiAj0PSyWTfuTxj023TflIDvjzEpWy+1IB5Q94jfEfgn 6AhTd8aaZsQZuQ8qr1zRwI2mwnTeYdx/JOlWmKFcDceN1xKOP2gQz/rQZrzL cBxohvev1D5e6H8dXKm2LP3ZWQbnK6lp35mrUX1Go/7vt+2T0Le8YOMpK9yf yB/T51zvArPtX1TTh3C+2w9UfJ76mQTO7Gw4VJSG/ZclG0rgx46CS6V/2bYf cL4TVRdFxNwAlPE4F9iDI4iTyAaZ9S7pwJVwvtjkjfNft1vy+GbVCOQOMi7b /Y79FWRhlNTjIQLV84RvEhoHkD5FjxL/LzjQC0zGutJXFk34fHqCEmhWcigz GjYf5bdif38UlDd7DcNn1fylJ90XzhcScX/f6ahOigS41IIoW6UYcd13VoXu nR3w7OBO74j4V4jr+zPuER5ieJjbzwijtSGezXIwyZgYB+fsN9odJxbOBx2c fS8y4p9VwEO+H+0W5wXOV6iX609lJcDu6ksP/YDnQwsrJKEtswR8VfIlKjLW V1FbcPcOTQzm42cEy6fx/K06VpFM4UiBaKaYHQ3B/5/nzWVNyLXAI7tRmbFY H4Jaq1Wx2yF+1G6oKxnny7rXba4tvxqayntS3DZi/YX55veVJnzoLD8h+Dun Hd8fm+2PzGwRAVt6r9hrE54/ZYpz172dxEBcm8prDMH1pz3+c7DhlRi4u94G hJ/C/tzj4zuS3fQadJdOOHRfxfWO9qR9Mzsegw1HlNO5VoD1b7T0jc0vBY2k sOPqE5zPvgmtzCX1N+j0OUzeP73Q3yTiL13Uxb2SCWCuCCRTzbE+6eP1zOIi JRTVTS42OfIQ8etTb9hdwUro6/jkyGJb7B/S1np55aFqeP14li69xUNcRjej ZnzUgDh6h39OfAnilJLbS4Mv9oP9Os+KG6ZYv6Lzi8bzv2yA10cD/LPmehDf tE721VTTMJCsF8XuiA5FXPT75t4Ynhxmq4DH+w3PP2Gn9E8zeg8QF/z84vLx /SoSnNmbQp737W5ZStAWDp4PPq22BVI5WFvdey/UNyDu77Sy/Pr/5t8PXTUv 7FyxPjH2+pjGq6PAOlR1VuGH12fqoqG7fNoP3MjjacJdQ3h+e9Buj0e2ADH3 ckouxvlhWgsEGvoY3DVcH7fy2DDiNlapspMsKSR2zGU/nUnEXJwVm/gTHzhG Yc53S3C+GXtp/b+yJmG9zLmr9zZ+v5Dot9UfTKqAyeRsd1fh8/1FWvrHV4wx cHINbJqJwv4k3C74pOpGoD9/omHJG9yfRC/N7E1iQdTam051s/j+J762eD9k oATLVcKI7avw/cSOU1Pfb3kFjjzKarUlzmdAh+LplFEr6M5dMm/nDuL+mz1y xxaVQX+xqfVfcXj/9bl3aocvSyDo9NWQd819+P0bNVyvPjkI71YH20U44vsl yVH4cnXs/NzddNho1iUV8QHq+aG043xga2tiDqzC6xMXLA9p8SiCd9Q9Ng2u vThfK5tdAp+NQGGljBxZuXC+6MA97MazbRYyiBk8abwqEPvnHxqHSDc= "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03}, "ControllerVariables" :> { Hold[$CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitGrowthRate$776$$, 0], Hold[$CellContext`rabbitMobility$$, $CellContext`rabbitMobility$777$$, 0], Hold[$CellContext`foxGrowthRate$$, $CellContext`foxGrowthRate$778$$, 0], Hold[$CellContext`foxMobility$$, $CellContext`foxMobility$779$$, 0], Hold[$CellContext`foxEndurance$$, $CellContext`foxEndurance$780$$, 0], Hold[$CellContext`moving$$, $CellContext`moving$781$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Refresh[If[$CellContext`moving$$, $CellContext`ag$$ = \ $CellContext`updateAgents[$CellContext`ag$$, $CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitMobility$$, $CellContext`foxGrowthRate$$, \ $CellContext`foxMobility$$, $CellContext`foxEndurance$$]]; \ $CellContext`visualize[$CellContext`ag$$], UpdateInterval -> If[$CellContext`moving$$, 0, Infinity]], "Specifications" :> {{{$CellContext`rabbitGrowthRate$$, 0.5, "growth rate of rabbits"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`rabbitMobility$$, 0.03, "mobility of rabbits"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxGrowthRate$$, 0.5, "growth rate of foxes"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`foxMobility$$, 0.05, "mobility of foxes"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxEndurance$$, 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1, Appearance -> "Labeled", ImageSize -> Tiny}, " ", {{$CellContext`moving$$, False, "run simulation"}, { True, False}}, {{$CellContext`ag$$, CompressedData[" 1:eJxllmlQ01cXxiMFW8EFeWklGBQVqYAaxFFpBM9fAXGAKEakKIsRUMSFJTMV pFEpDVYUKBYECoWBqizKYgEtr4QtQGVRoQRMZAkJWZCQTSlg3zdq+VpOZv6f fnNy7n3u85x714VGM04ZkEik8PnPcP5LvbXMODiJD3WuniHLmeNA+vePsJj0 snt6dwxqfn6uauYpEGd3vh0xuCgAXd/Xoj8ipIibJljJugu1sHixcI/STYX4 +gjHb4d7FCCjOeZUx2gRT4zKpNraSUE8yx64k1OF+NKdTSTvllGgsMYnbdPw +tl5bmFen6jAeTzFeqPlBOJ9edEOR3JqIN7dJ/wJ+zXi4sjzvezkOhDadz6r tJcv4DpIOqvr2D2jAf2FjwKG9xiqV1bn6dRZWog5ZO53QN+N97csOXrrgxao 2+a5YptEhPiLgkffcg9OgvjX1g+/7CtGnJmeu1Wf/QDWmw+bklPx+RSRN2wx aePCGcmSc32M57g+kuKl3vAEOG7fUHfF4fMJ8qU51Cg04G9zTfOpSIK4okJp SXw+CZQbTpLoZCXS56GTQ9OaDC6EeJJm6qZluP8GypffC+d1O+ZpRl+Rgbhj /lLRov+2gv6Sn9NqP+yvzcYhA5laOYjvONeW67H+LSVHNXonOcT38G0D7r1E PHyZ1QmrGjWYVgRnXgtYuH4SsSa0WKe4NgW+/OlwT8MnaH/Ohmq37fsV4KOO uDkdOonqbV2G9kewJiAj0PSyWTfuTxj023TflIDvjzEpWy+1IB5Q94jfEfgn 6AhTd8aaZsQZuQ8qr1zRwI2mwnTeYdx/JOlWmKFcDceN1xKOP2gQz/rQZrzL cBxohvev1D5e6H8dXKm2LP3ZWQbnK6lp35mrUX1Go/7vt+2T0Le8YOMpK9yf yB/T51zvArPtX1TTh3C+2w9UfJ76mQTO7Gw4VJSG/ZclG0rgx46CS6V/2bYf cL4TVRdFxNwAlPE4F9iDI4iTyAaZ9S7pwJVwvtjkjfNft1vy+GbVCOQOMi7b /Y79FWRhlNTjIQLV84RvEhoHkD5FjxL/LzjQC0zGutJXFk34fHqCEmhWcigz GjYf5bdif38UlDd7DcNn1fylJ90XzhcScX/f6ahOigS41IIoW6UYcd13VoXu nR3w7OBO74j4V4jr+zPuER5ieJjbzwijtSGezXIwyZgYB+fsN9odJxbOBx2c fS8y4p9VwEO+H+0W5wXOV6iX609lJcDu6ksP/YDnQwsrJKEtswR8VfIlKjLW V1FbcPcOTQzm42cEy6fx/K06VpFM4UiBaKaYHQ3B/5/nzWVNyLXAI7tRmbFY H4Jaq1Wx2yF+1G6oKxnny7rXba4tvxqayntS3DZi/YX55veVJnzoLD8h+Dun Hd8fm+2PzGwRAVt6r9hrE54/ZYpz172dxEBcm8prDMH1pz3+c7DhlRi4u94G hJ/C/tzj4zuS3fQadJdOOHRfxfWO9qR9Mzsegw1HlNO5VoD1b7T0jc0vBY2k sOPqE5zPvgmtzCX1N+j0OUzeP73Q3yTiL13Uxb2SCWCuCCRTzbE+6eP1zOIi JRTVTS42OfIQ8etTb9hdwUro6/jkyGJb7B/S1np55aFqeP14li69xUNcRjej ZnzUgDh6h39OfAnilJLbS4Mv9oP9Os+KG6ZYv6Lzi8bzv2yA10cD/LPmehDf tE721VTTMJCsF8XuiA5FXPT75t4Ynhxmq4DH+w3PP2Gn9E8zeg8QF/z84vLx /SoSnNmbQp737W5ZStAWDp4PPq22BVI5WFvdey/UNyDu77Sy/Pr/5t8PXTUv 7FyxPjH2+pjGq6PAOlR1VuGH12fqoqG7fNoP3MjjacJdQ3h+e9Buj0e2ADH3 ckouxvlhWgsEGvoY3DVcH7fy2DDiNlapspMsKSR2zGU/nUnEXJwVm/gTHzhG Yc53S3C+GXtp/b+yJmG9zLmr9zZ+v5Dot9UfTKqAyeRsd1fh8/1FWvrHV4wx cHINbJqJwv4k3C74pOpGoD9/omHJG9yfRC/N7E1iQdTam051s/j+J762eD9k oATLVcKI7avw/cSOU1Pfb3kFjjzKarUlzmdAh+LplFEr6M5dMm/nDuL+mz1y xxaVQX+xqfVfcXj/9bl3aocvSyDo9NWQd819+P0bNVyvPjkI71YH20U44vsl yVH4cnXs/NzddNho1iUV8QHq+aG043xga2tiDqzC6xMXLA9p8SiCd9Q9Ng2u vThfK5tdAp+NQGGljBxZuXC+6MA97MazbRYyiBk8abwqEPvnHxqHSDc= "]}, ControlType -> None}, " ", Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]}, "Options" :> { AutorunSequencing -> {6}, TrackedSymbols :> {$CellContext`moving$$, $CellContext`ag$$}, SynchronousUpdating -> True, ControlPlacement -> Left}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{646., {212., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`updateAgents[ Pattern[$CellContext`agents, Blank[]], Pattern[$CellContext`rabbitGrowthRate, Blank[]], Pattern[$CellContext`rabbitMobility, Blank[]], Pattern[$CellContext`foxGrowthRate, Blank[]], Pattern[$CellContext`foxMobility, Blank[]], Pattern[$CellContext`foxEndurance, Blank[]]] := Module[{$CellContext`foxPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbitPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`nearestFoxes = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`dummyPoint]], \ $CellContext`nearestRabbits = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyPoint]], \ $CellContext`i, $CellContext`nextLocation, $CellContext`survivors}, Developer`ToPackedArray[ (Flatten[#, 1]& )[ Table[$CellContext`survivors = {}; $CellContext`nextLocation = Part[$CellContext`agents, $CellContext`i, {1, 2}] + If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, RandomReal[{-$CellContext`rabbitMobility, \ $CellContext`rabbitMobility}, 2], RandomReal[{-$CellContext`foxMobility, \ $CellContext`foxMobility}, 2]]; $CellContext`nextLocation = Clip[$CellContext`nextLocation, {0., 1.}]; If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, If[Norm[Part[ $CellContext`nearestFoxes[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Rabbit}]}; If[RandomReal[] < $CellContext`rabbitGrowthRate ( 1. - $CellContext`rabbitPop/$CellContext`maxRabbits), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, { 0., $CellContext`Rabbit}]]]; Null], If[Norm[Part[ $CellContext`nearestRabbits[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, If[ Part[$CellContext`agents, $CellContext`i, 3] < $CellContext`foxEndurance, $CellContext`survivors = { Join[$CellContext`nextLocation, { Part[$CellContext`agents, $CellContext`i, 3] + 1., $CellContext`Fox}]}; Null], $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Fox}]}; If[RandomReal[] < $CellContext`foxGrowthRate ( 1. - $CellContext`foxPop/$CellContext`maxFoxes), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, {0., $CellContext`Fox}]]]; Null]]; $CellContext`survivors, {$CellContext`i, Length[$CellContext`agents]}]]]], $CellContext`Fox = 1., $CellContext`Rabbit = 2., $CellContext`dummyPoint = {-1., -1.}, $CellContext`maxRabbits = 500., $CellContext`maxFoxes = 500., $CellContext`visualize[ Pattern[$CellContext`agents, Blank[]]] := Module[{$CellContext`foxes = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbits = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyList = \ {$CellContext`dummyPoint}}, Show[ Graphics[{ AbsolutePointSize[10], RGBColor[0.9, 0.42, 0.17], Point[ If[$CellContext`foxes == {}, $CellContext`dummyList, \ $CellContext`foxes]]}], Graphics[{ AbsolutePointSize[10], RGBColor[0.48, 0.11, 0.56], Point[ If[$CellContext`rabbits == {}, $CellContext`dummyList, \ $CellContext`rabbits]]}], ImageSize -> {375, 375}, AspectRatio -> Automatic, Frame -> False, Axes -> False, PlotRange -> {{0, 1}, {0, 1}}]], Attributes[PlotRange] = {ReadProtected}, $CellContext`initialAgents[] := Developer`ToPackedArray[ Table[ Join[ RandomReal[{0, 1}, 2], {0., If[RandomReal[] < 0.1, $CellContext`Fox, $CellContext`Rabbit]}], { 100}]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.35696210375764*^9, {3.4135430141109037`*^9, 3.4135430321577787`*^9}}, CellID->54188526] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell["\<\ This Demonstration simulates the dynamics of predators (foxes, in orange) and \ prey (rabbits, in purple) in a 2D bounded square habitat. An individual of \ each species is simulated as a particle moving in a random walk. The initial \ condition is such that there are 100 particles randomly distributed in the \ space, 10% of which are foxes and the rest rabbits. A rabbit particle can \ replicate itself at a given growth rate. A fox particle has to eat (i.e., \ collide into) a rabbit particle in order to replicate itself, and will die if \ it doesn't eat any rabbit particles for a certain time period. The maximum \ population of each species is bounded to 500. Depending on the parameter \ settings, this ecosystem shows several distinct behaviors, including \ extinction of foxes (or both species), oscillation of populations, and \ spatial waves of foxes chasing clusters of rabbits. You can stop and restart \ the real-time simulation using the \"run simulation\" checkbox.\ \>", "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.413051635203125*^9, 3.41305166196875*^9}, { 3.413051729203125*^9, 3.41305188478125*^9}, {3.413051930765625*^9, 3.413051973890625*^9}, {3.4130520070625*^9, 3.413052056671875*^9}, { 3.41305229965625*^9, 3.413052340328125*^9}, {3.41305742590625*^9, 3.413057429765625*^9}, 3.41310111840625*^9, {3.4131018089375*^9, 3.413101832890625*^9}, {3.41310186775*^9, 3.413101904640625*^9}, { 3.413124865306138*^9, 3.4131248891033173`*^9}, {3.413223596109375*^9, 3.41322360009375*^9}, {3.413228505379353*^9, 3.413228506176238*^9}, { 3.413309711144929*^9, 3.413309758598054*^9}}, CellID->330077632] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ag$$ = CompressedData[" 1:eJyVnHk4Fd7z+ElKolSSkChKlLUklUFkixIqRZutUioiKYWsURJZkuwha6jI EpI1si/Xcq97r33NkkL6+uOtnl/j89xf/RFPr2fmzJmZMzPn3PvEf/7qUZNF dHR0G+b+Wjz3k03japHiBBmgPmG9Dl8f0P2/f+TbWCN42r92QqF5+L5JxV7E 1xFCX8m6dkNK3I2rtaGdiFsmOyS+UaKC6EmrdA+HHsRTPz1MClGjwszApbwo ayyfN7abLkWYDAbipSrX9KmI33rtb+QgRoFHhmUOq0bIiOtM9I1G6lJB4hGx 6kYz1t/88qll2E8y7GresC3xBeZt37I9712mwGrioE3SIF4/W193o68cFaJO lh6Vk+hC/Lz4mitMrVQQ77+9w0cG83qLjA8BYyQQkVLjVEzF9rscmU04QCLD m9tcsuZ7sLzBhJpN4ykKuD1iOG3s3I24/MY8RSOeTuB8+Tw4mAvHbzf5zZ6Y H2QImolZdGOB9cWl35TLFXTCoFba8/Fh7J/vHxxm7ntSQc+0UGo8CPunMmtD r9mabsjsjiu/poI5Q/GD+Ls13fDmVFl3sDLmvUqWJ00KqmGD+wOLUNNhxGVH jKgNEs3gcRwokZsx5y6KHP3VVA9G37Wu764fwvEN+xZsw1MC6966D75QxPKR k1Nit/LIsEjEecvXcmzfzFsXzmWhVNAXn75VYobPT44Xi+mLufz4tHlVcKAz 9r954xYbe0kqRDak5LoZYPmlV/kTMpRIoPRamjwhjf1Pi2/XUH9Xv74TquvZ rjfdx/mj+mpGSda2E1LtDlsfNcP509alKSHeRQWRNl41jjJs/71D6UtyGCiw nGdZWdUQ5lFRmtt5DlPAs+Lw5mM+OL+mZuxWG0hRYCSV7imHH7Y/f/XkBN8T Cly5yLH9Kjfm5wTcmjStKVCuWs9TKIXtz3wTWaLn2glvbtZML1HDvMfvHcEr sQM4Wc33kB1xfGnxprMth3sfU0DinBqrzlVsX1rCzSe5w91Qc6NqO9UR+4cW 9w/JelXJ0A0cRo0FfARs/0+Rk6ahYxQwDeiZSJTC8hbFa9scBjohbVGv2csd mJv69TGIdnTBvj7NAXklnH+79NQ2v1HvBBWe67n+C8Q3P/qoZD8XGez1fGav vMX7D0xglyUlk6GoTi9Y+ReOP7vGo3gzt7n6yK/7fewp5ncdjlb0HqKAw2HX 0V1RlH/maRLOghxPqbA1TXKA1Iz10+K2L5zWGct3gkm6BafpAxx/thvksEEe CjBsMg4x1MXnixaPbJAUPmXcBY0lAB+EsH9pcRuP7/nLqFSQHR5R4WddoL/u jdAk6VFg98mVU3wRWP7SjWvOEpGdcEKBWTr98b/zzCHl2jGWTnC8HPPtBTPm P7Oq7NXHu8AStAUhE/O6a+9Pa9eVQ6cHJWXmDq6/tLjN0ZdGSYmf//v3kX/m Zc0MNttelsLuniBRN0GsnxY/H/J4yoe/CoLOyrkPOOP+supu+q8m/QIw3p+x XkNzAPFEO/pr7deroIvq+OuMZz/ijixT0ZWv80HuSN+FvZ44//jG2NJMOCnQ xVju4/AV+3f0uLzb3ikqGHwekYgVwfn3ztiuj/1UHkjtUPd2j8Prl9vLtF55 nwenCP5F8onY/smITrOu16Vg3631c4XxAvXrpD9x9Ec5bFrWZCA3+e/cIlTI 4/HFYngb9prI8ArXJ9Xp8G9sdf87vlaaR5kdJ4rh0NSXPR0WOD6LM+3360pW /U/5Je8fKBewVkDekim/JzHY/xceeZxlje6C9qaEffqy2D5anOWQ7nUbw0+g 5ryeLbgc87zt29qM9lFh4205o7Eo7B9afJdcZOzK4E6I1hZaq6iH9StxmbVo CXaCxp1spjERzNmr9JcbylDh/WLX0M3SWH+NQN2aDZok2KG+VKIuCdf/jZRT M5LeHWB7Ky9DJwfXZ1r8ehznSfkZMqwhUCvE12H9o7KPfXMayXBN1bVg4yyu 33svxoyZHZybD0JHhdMPY3lavJfy8AD36w74uE6ws8cHx9+EcXpGQZIEp08E llw1wvxgzhI6+6VdcKWJ/yjZA58/WjxonOvXmbl7R4zX0PuwBeZ7Kzttk62j VCgyKBiP08B8mQhFJ0ycCqZGwlH2Z3D8mmsMbojtpMJXG4mfH/Nx/xiK54yk fKHCsYw9Dj4bsPwUccXRL8lUsL9c3vowBK9Pi68oodvo5UiBzap3+ywn8f6N jLYk95ZQYNdztY0TSVj+s+vY9JQWBaJCuj4bMeL6RYunlgmfXiVBgXVPR8Oj p3D+k6r8r/iPkYHxkdFZrgbMHzfcyhYOnLsf5J55M26F7afFI+Vnps+RKKD+ 0fXinYeYR3jKcBZJkcFokfXJY4H4fPjrhe3IeE6BS4YnKF69OP/zX1klCws0 wVYpoyHmR834/nhXZotsDAGsU/zUZMua8Pnsfjf4NqgZMiT9Ldu2Ef6ZTwg2 0Y1drYNDP3kaLcMw37BmS69kXAN8qNtNZhhoQbzV9mu+l0YXfJBRzuhfj/e3 o7DdJ2XuXARI5WyoXsA/DqEfx5lTqPAyIHgqYSM+n7S4Z9udH45DHcC/qqqp VrYB8SfvPp69xN4B+bu7zsTJ1CO+9cmVV78qibAnMtbZ9moj4tWn9BIOCJDg bu6KW46zRKxfpok1u4kIY2KCb9+rtuP7TwC/uUXt3HzOmKZBOYb3z9oUc6De twvOUiYdSx/h/WUoi2rH7e+ENaaPvhx+g/077rFLIW1XF9imvvPw+rzA/F4/ 6txkP6c38oepQAXWn1Aq/NgVukFwzc1wpu3/zhuGiCZ5v7pAWU+Cwp+EecFk 17178d1wInzKlJUF1+8ty+jKmt2I4DxSPHtuQ9s/c6bkxY6RdSR4m2BsaliJ eQSXb3i/bifc6NALq5zrY//KU+2/RrXmU0BSzLTkkR/m+3RsLQnjFEh4urRx 01Ls//MHXFTCX3ZBD+eYvUsB6Z+5Tw9JskSsE5rlPo1P6mCeKVO7R8l0rm4y RzCoF+L69PGOPmclWx8I8T1/op+P/Z/e97yGROwD+Qe7KuqjsDzHhnHWbqk+ EM7f6bLpyQLynzdM5FkNwPeQkrfLCnD8aXFvyfKDMna9EK5laCa4wP050l3h W5Z2Hxjpv9J6Gon73yb64kGPPf2Q/OO47xc/zJd/4luUZNANa7LlCLt0sf4v wXEP9Gb6YUYvXVy8BfefnlKXj3nnhuD8NXnTK8sXeJ+gwb+li66wlx2C+yJk RrUF+qtyDe/Z4m1DkF1hfa+XHdvv+XrsCoXQC7bOb7u//8DxocXJzEpZWgb9 EPvNS3xaB9cfWrysdmy/oC4VGoxX1x5/jbllSJ+CMH0XrNMwKd0ejHmomBBX 31Eq/Dj8IjkyHnMV7iJ6bVUqOBWWihnH4vygxdcFXOCyr+wF3ss3sskEvP9t KsQz/EXdYNx8tuDAR+zf2wppGYfXN0IKH4HNTgH335XbQfGdVBMcOHDA26kP 98e+ZJdzLPIEsBRrEN4TgfsHLb6Ya/cvI812cLZZ22nvi/trAt87liEWAlQP Bv9UWIz7i2t/vuDF/W2wQ4fFmo0ey/tu3nMi8Xst8AnQe51hxPtTXL0ogb2m EU6oqTyM4sa8NCbDf9FII7AVvWjwMMPzB/3SZ55W1GZI8lA6Y78e2zcTKKGg ml4GkiWde3XW4voR7F5Wsae9CO6Mj7FMGS7wPrV/C8GJtwIYJX9uM0rD9Y+9 RPUHX2gx2K7McS89iuVp8QO73u95P/IJWAUmZhUv4vwc7XF+fby3EB6f0Hvk t8D7+YbpaXpdYhH4nrQ+osm3wP2CW8V5hVglmBwXWnGeB3NNUUnXBs8iYLV8 os84gPtH4+xjRtsHpRAzkHOb7jOW52dwcRnyLwSyCFd84iW8P1La4MzA6SpY rxDvWtyPeULcdAOf8Bc4HKL+8c0pfH78tv7oMV9NBFElgzOeo3j+WQ63yh+f IkPtr7I1gX0LnH/5lbZMX0gwIxY95pCMedbs4bMvBTvg2wHl1RW8eP+0OEfr lxdZVR3QTB2e7tfB/rl4hP9bOKUD2sXclJ0vY85KIaxe8pgISuvPsNFZLPD+ aMy+skCsAyZDnD0s2bD9W4qDviVn1sLn2yaf7CIxV9R5t32d1kcQujRDZCrD 9Qcu3n++SaMC7lmoMB/7iO2jxa8eEF+bmlUCtbIMmZD779w6tvqtQPcnEGh3 PLTGFecHLW6lYWAbZZwFqo2aEd824v6mfTHKfCN/AfhwB9K7+eH+Wk9stek2 ygZpood/0278fkWLdziejFPcFA1nF3H0lTvi/K3i675faO0Eg3LNV7kkMSdu ZZ96mPUa5DdoSBgzY67bvaTwiUIivNuo9MJ4K46fsPU293ZqCvworLMzN8Zc faJIIJulEhh5qFqzN7H//Uy9NT/XV4J1EVnI6RnOn2tkWcGSmXxIvWARKvrh 33k7633nG5vy4IjzrO3an5jby7ywGDUugkNtT6mjZtg+YRNR230u8cDqxv/F XB/H90DtQN3WRdXQZd0ksswYnx+PTCGWNVzl0KK8aFJ0Bdb/6NW6jMezc/n5 k7vHNB7LCyRUUn56lAPpfDHBPPffeXQvcR2FNw+Uwq2U+Rd4P5J0Mu8n+mbD mpD9hLuS2L7Yld7TX5Z+hKYrT2u+qWIuJXWza8edIuDQvpIi4Yzz5w793qJC wmdoen5HYrEk9t/NZOXgHXP+X/npzaHkCaz/vUvlOsOaN6AiohO5kx3Hj92k QJb3Vw6I+m2sT1DGXG+vu/hSQiKcHWv+LLcbrz/WvW75K0Iu7HVzXqp/Fp9P u9zN8S9UIuDobUOyXhh+X4ls+mHm3p4ArMzHgmKe4fyf/+V8+VVG6V3/znXv hj1M93sMxfT7Pkr7YF68ui+vLsIXzELFXiaO4/cvVo99QUbWLnD+cN+k6m0s H6P266p7Zj4E3Bq6wGmD5ftjpeX9PySBjmy7yPrPmC991rZa1iER7hT97N30 Hvun6G55RXL2aygNe+Cs6Y3l5395ql2z8Vkxjg8tfk71vX7DvhewxbZJ1l8L x89vpni5i80zqKzNt9Jegu2bUZ3mojLHg+uQQ5fw0v+9/kWi2vUbC8TX6/aH mxGj0ZBya93t1AW45z2Nk2nawTBI8LyWo4t5u3XZvraNcbCzsN/4ZDL2j7FK 0DluhsC5+XFCMaoF27dO52h3vXk2hJ1ZPn5Qb4Hvv9Dgp1p+nVF9XwkieT8T NQRx/aDF7/J+lhcuLQarikoNbqEF7kcrzNifbK6ES0kvf9UG4vP9dfdm7WrP ZFi7g21qaxaeb2lxvalTkU71hRBUs7RH5wN+n0gz0/OcWl4AtqvcvRwfYHn7 oDYu92cfwGXFsUd6lZhrfX2188WOcsjIMmS/QIf31xueH/t8VQk8VUotO5eL 5WNX9OcdDCgCzRs+xzYsML/R4s09i2a7T7WAzenVyQk35z8fGvn98yjnJwZ9 iypYuzh5yOfV/P2HTX6eF4e2S9s71UCQsXtAU9P8/YXpN3fTr1nGEtACDvWb r/p+q/2P8/zmj/lIn8QfNIOUxnj9bGbqf1zgN//Ok652SZIIFou+GIY6Z/7H N/3mJRxToXGmzSCt+InjtFPQf5zvN7/mPnk6qfALXOA4bTd4IAdxAT6fpg9R BFBX1PNaNlmD1s/hYqye1O2AafslHvmquYgXlu6R+3KOAO93DXwVYapA+uVi PMeWfw2H94ZfpYxq3yH7dWwMsjmWtP4Vlz9c7jvZdNi1HmbOXfDV8EtB+rdv 4al/qd4MWwWm6JNCi5B+Jo5CQcvGBpBeXWPpVVGBeIFYa7fZbBOQLtb1pyib oPjlZ34zlw5rBOmJ9x4/433n7fzNa84LGrweqANRAffjDnYRiOsxmC9zZ+gA S4/p8Eu3C9D6SplNKysCKyG9wkC6mjUN8RATMsOWc51gPSUg+bAlD/n/wVMS g59bA/jISPLQry5H/LU3k1pqNwEWh9+1CT+chPiuRM/vGlxEiL41Lp3PV4bW P8Ts0+N0oRleJ1flNuaVInmmHOeKCs92uGTU8UHqZ8l/nPM3X2d6IuPdw1Zg 5zjeX6FXheSFz3tWVNk2w8t9RVYrtpUieWnqrc82qWSI+ma4YvjuB3R+jmn5 VGY2kcDZIIRjuK8C8dShrAv1H2ugInd/VJPQvP/Zf3MSoa4nMLAWLOy68k21 k1D8AkWeTW6jr4Mzhqx5B9iLkf7AReGKkXqfQeo2o1KsZAnyn3okc1CnAREc lhaIuJlg+1atEp7kS6oFm30h7kX3qhF3snEPNtnZAD11Lh+ED0Qj+x4pvz2l WNsBXZ/PaR/MScL6vf0mLg0PAr+T0rtVS/H9xppnyl/35xAcbhvefjjt37m4 h6M5ZAzDI2nuwx2peD7Q4ic2blAYAslitZgcX/z5e+ztc+fK5+xbd1BaJdZ3 EPHMrCtNl0WHIGk8dbHANJa/cH8rxzO7YVh6WsU73guvP++HtSe9v5+ywPaP WBIffM0dhlA528+EMTw/nDjXeS3ZbRgcIlOqb3/A9sER+ySWiSGI6DXxH7mE 7aPFa26GTMZ/GoJplyWZAwt8/rTsB31PssowvJg2GFfUwfeLa6ayL6nfhqBc /IEY8SzunwEPQh3Cg4eh01XT+00l1s9dNtb/c/cgnHSf9I7Tw/ppcc9W/VCO XcMwEjS0XVsH+29zRPPYM+NB+KLEqpeZg+WlXHYIXOUfhCLTs2OK1/+dC2mm 2TmFD8LZ2ybcTCH4fkRHX0HlnR2AVi3Lfd0pWL6st8Ryxq4FqBdcRetdrNH5 3WxwrI/FtOZvObr/X+6jvFjGgb8eVDtGJeH63++XIxCX7Kv37kwTCIketX/4 4e/3rxFgaLG9uW9RHTiukwnr65mP75/5JMXErmBofw2k9oTsyOr+e74ZAfsz wGt6mgB2dC32Vg2/4/97fy6VIjwpw/UgOmR2VCy4F/EitcJXvf2N8OSWFuuB ivn560//XS9c2XEqgQjPpT50lXf+nX+0eYjFQ5bCmCbQYSZJvdKYt/9P/Q95 miw3TWyGpGvm9R6N8/xPf9ZS+vLC5GoL5Ppm0LefnI/vn/lsY21eud/advAm Tjxc/Pv94Y//3ljx3P/S2AIbml9yEfd3IfnDrVsuVG0hQR2L190DRhTElzzs vNqdQYZSdndhk9y/7w+0+WK+KN7TcTVQJNb1YdYF+2dWybZOJrYZ+MJYtrfV dKD9f+pk2gwWDRBD+GVvWtuJeHNbNIPRYA288Vj1mK66C+3/0xPD0NK5+UXO csuL04swt+Rfra4WUAOOz9ySwt91Ik606/O1jvsCSwI6BY1UuhGvDSKblAq1 Qeyk7PrPgb3IPkXV7Sn3x9qhfMXG0ObmLsQJTPfTG6EZlh9UjkoexHxa2uJe jn4HCHDtXl4iP6//T38XCgwjTqxrBBaLC3T5W/sQ925q3l7H3gKtix3tVjZ2 I/69dO8Nx9WtUNbNq7JacX79P/1V/fKa5Spx7eDo6XWI7XUXyl/hC3YiF9Ma YUOUoL/uDSqyv9G3tP4YiQAyWYReBjsK4s5C34eCmqqgtP/n4XB/nL933u2v VntTAdwXYpubHuH8ocV3jKt/z2hpgNS4788KY3F9qBqZXlq3hgRWhbv6Vjr2 ofUjdYOaupxJcId49rLGIOaND+QYKubm05JV68P2J2L/1z4gFrGo1kF3i1KC 6Jq/v185AnlsLmvUsonQz5S5nNf57/o9AqJO32+6y1bBjjy5DTbePUh/WK/A 9H61mrlzksXf29uF9seuE2DKdKMG2o/fj2O+h89Ph8wNt7q9BGAue6OeqNaJ 5OM/PvSUT2kF5e6D586lkxCvvzR1pt2WCKXP26bo0fefaXO647yaPtQ28C7I 0VWJwPXvkk7b+CYbElRLeE/OxOD5c13e2iy3m1QgWO5dxOhIRPFZ0p4cUQVf 4Lkqa4haxmPUH5dqyySPebQCp5fElTxz/PkkLf75xNdhP2YSyCa6Tw544+/H cKioDDozEuHeQ7e1s4sxvyvLxrfocgvw2d/x7UnDn29GH3y9zfBmOxw+Mn1X rR1/vriR0dTx+AsCZFu08jCXY3m6i1lfGXrb4fuq6LATnJhPvZDY2rGUCMYV zzsUlLF+Wny1P/unxU0UKPPmdHvq14LiJ/peVJHpZTeIc/StI70lo/hYVVEp q5MGwVyD+YkZ+nxkrj48DhGypXZAgAS9yWhWH9JfaCUmPEDXAT43dsqWuvag /Owv+CV55AMZpgOtW58r/P1+R5tv2aMQLygwAPwV1Uuy8ufr75/5YJVCfV+7 yBAwnfK3eBCB+x8tfjeBVcRKtg4ayvaOrr/Rj+wvyraKFT1UDUs4t3ke+73/ P1yTjdkl+205qJM7NB4t+3v+HgHtulvButmfQefVbEDeDuxfWvzhHtYhvpB6 EOavZZARHUTrT+mqCwop1oGmd2VRSRG2L/BG+b5niqXwlcL+HsT/vl+MgCoM aIY2FkNaZdi+nQl/329GILf6oIKKcynkcF8U6SrAPDuToyPKogT6Je9OGjP+ ff+Z618e5zeRZz5CuaQfgT1lEOUf2+ZovgaZEni0O6T3FGkY8TrP7ynHQjPR v8//FGGL3tpVUQ0BQYqJO6/h+k5ti2Hbv7sObqxVKxr7htd/X/AhJD2tDgw2 HPrmmDCM8tumWuKd0Jbav+T+6H85eUBIS74OqmOGyyQM8Pq0+JnE+zLX71RC y7uLNdJi8/b9mf8eCQY7Kq+uhp319nUqsTh+IzGClZfWEEB7l2jHWFQP2t+h aq5dUWvbYP8uI3nVTtw/vUyirXMuESAnIWBT5nA3yh/L2Wofp8w2IMzyHq8O m7d/028+pGr/bPFkM4SbK7xQcR1C3PmE5sWKIxRwqH3KFLBtPj/+zC83q8+Y aiztAMOXkd82Lcf2nW9MuPbJswHe6q2KeLAKyxPfbNyxjNwOZ7ML105F9SH/ JbfAHeHHVCCpmgW6fsH1hZ/7VO6wXCsYyG6biHrTg+Iv5Xeo9HNyIwi+fWhG repGXAw60i2cOkBcynykwxuf3z2+qQrVjW0QeoCszU2dt//P/FAkc777qEc7 9A62Pm8tw/FvP7foZBFLBwhbu09eysD7c3eiOx51swFG7beeYZOdr49/5keu +0GsfoqdwCH9a9eX6D7kP2s+/lrFTyTQTt4Q9IkRzy8rmAtmjju0wvcHT6u7 kvH6LUe3MIvkt4OIa6AewyCezxvY66n60mRw7YxQlJvB+aX+RoQ7qbgV2J8z syZy4fuhkQMLj5p4F9wxmc3jVBxE+5uwnFgfeKIV7I+Xvr61HMfv2WDRnas7 2+DoRcGAVZV4/nq1JcimgtoCO9MP79WUxvcH6Vd9ew1PN0NtdnMjQRTbf/nK zV+Mvi2wl0WoQOH0EIrv02ux97bUkeBax/OVQ6J4fhzf9INaQzd3/3uiHmM1 he9HA97aZbZ2bVB+6WJCxVQP8v8oo70xryBpro7tb2/hxf4/sjOEJ5SeBKa+ 8HjWpRdxVZsi8buyHRDuv8XoxL1+xGOvWXtPZhHB7H5WleId3F9iPSc8NAMp 4HrWIKIs7+/Pp2hzSaFU1mdtc/Xheti1czf/ft+Zux+U3bhz7QIZIvn23mKf wPVtvMyWt0WdCO5FAX2TB/H5MimQuUJ4UAf08VEi5l+Hkf0X3oo2OeuQwboj brOlCb5/2mRyBrdxkCHXhY9OnhHPD33m/ilabh1QsC2BizEF27dEKbc/51IN 7I5XL/BTw/ORIsnx40P/JnDe326mI9aP8i9cRpex6nUdlOle535v2YX2Z72W /rLX13KwiswuVi/F+bsrrpeT/UQVhKZzR41dxfPbFSP1ePH7rbBeNCf67BNc v6mDMjkVqh0gv/OXRtV1fD5T+vVqwq0owDf92D7dHsePFrfQj+W7yEgBmddX +8cuYb493U9/lTcZDLToYy5W/f3+RpunxXcbBmR3AFuqOYfNXuy/OplGVsnH BPCPvD95NhSfn/Ent5gqpBrg9v7T3c2O+H4Z3fVIYEihFTIyq3bZPRlEXH2N vSIvdxPc/JjLzK8+798/9Ut+c2JlhRwJmOhcNkV74f7i/ux+OOkmCWbfe+n7 ZuL6kJGqVazn1QHL2eh3sr7qR/pZXN32D80QYMBHZ0TpI9bv5NdmtIqlBepT faUUSnD9L/je/TV2aq7/VZQlpMTi/P3x8oNVemsjiM3eviunjPuDz7vwLk6H ZhBgI6RlseHzlz4kJzy6lAyG0ry5K5vm/fOnP4XJX8389aIGljNRph8ux/PZ FI/hE/etjbAo/nmPpUk/yt+Vdnu3p82SoM+UZ3qRQy+yb3ON2A7Dt3P3i6/O vRFW+HzT4nV2Xxtz6vugQbGY2XkQx6dQcMLWg3sAosKaizv78PuHvxNj2Exp D7RW31OQ9sDvJ7S4V1fYvsHmHljhRJ8QnYXjV6wQxXuU0gOuj8jOnej/pxiB /wO5kuwR "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rabbitGrowthRate$$], 0.5, "growth rate of rabbits"}, 0, 1}, {{ Hold[$CellContext`rabbitMobility$$], 0.03, "mobility of rabbits"}, 0, 0.05}, {{ Hold[$CellContext`foxGrowthRate$$], 0.5, "growth rate of foxes"}, 0, 1}, {{ Hold[$CellContext`foxMobility$$], 0.05, "mobility of foxes"}, 0, 0.05}, {{ Hold[$CellContext`foxEndurance$$], 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`moving$$], False, "run simulation"}, { True, False}}, {{ Hold[$CellContext`ag$$], CompressedData[" 1:eJyVnHk4Fd7z+ElKolSSkChKlLUklUFkixIqRZutUioiKYWsURJZkuwha6jI EpI1si/Xcq97r33NkkL6+uOtnl/j89xf/RFPr2fmzJmZMzPn3PvEf/7qUZNF dHR0G+b+Wjz3k03japHiBBmgPmG9Dl8f0P2/f+TbWCN42r92QqF5+L5JxV7E 1xFCX8m6dkNK3I2rtaGdiFsmOyS+UaKC6EmrdA+HHsRTPz1MClGjwszApbwo ayyfN7abLkWYDAbipSrX9KmI33rtb+QgRoFHhmUOq0bIiOtM9I1G6lJB4hGx 6kYz1t/88qll2E8y7GresC3xBeZt37I9712mwGrioE3SIF4/W193o68cFaJO lh6Vk+hC/Lz4mitMrVQQ77+9w0cG83qLjA8BYyQQkVLjVEzF9rscmU04QCLD m9tcsuZ7sLzBhJpN4ykKuD1iOG3s3I24/MY8RSOeTuB8+Tw4mAvHbzf5zZ6Y H2QImolZdGOB9cWl35TLFXTCoFba8/Fh7J/vHxxm7ntSQc+0UGo8CPunMmtD r9mabsjsjiu/poI5Q/GD+Ls13fDmVFl3sDLmvUqWJ00KqmGD+wOLUNNhxGVH jKgNEs3gcRwokZsx5y6KHP3VVA9G37Wu764fwvEN+xZsw1MC6966D75QxPKR k1Nit/LIsEjEecvXcmzfzFsXzmWhVNAXn75VYobPT44Xi+mLufz4tHlVcKAz 9r954xYbe0kqRDak5LoZYPmlV/kTMpRIoPRamjwhjf1Pi2/XUH9Xv74TquvZ rjfdx/mj+mpGSda2E1LtDlsfNcP509alKSHeRQWRNl41jjJs/71D6UtyGCiw nGdZWdUQ5lFRmtt5DlPAs+Lw5mM+OL+mZuxWG0hRYCSV7imHH7Y/f/XkBN8T Cly5yLH9Kjfm5wTcmjStKVCuWs9TKIXtz3wTWaLn2glvbtZML1HDvMfvHcEr sQM4Wc33kB1xfGnxprMth3sfU0DinBqrzlVsX1rCzSe5w91Qc6NqO9UR+4cW 9w/JelXJ0A0cRo0FfARs/0+Rk6ahYxQwDeiZSJTC8hbFa9scBjohbVGv2csd mJv69TGIdnTBvj7NAXklnH+79NQ2v1HvBBWe67n+C8Q3P/qoZD8XGez1fGav vMX7D0xglyUlk6GoTi9Y+ReOP7vGo3gzt7n6yK/7fewp5ncdjlb0HqKAw2HX 0V1RlH/maRLOghxPqbA1TXKA1Iz10+K2L5zWGct3gkm6BafpAxx/thvksEEe CjBsMg4x1MXnixaPbJAUPmXcBY0lAB+EsH9pcRuP7/nLqFSQHR5R4WddoL/u jdAk6VFg98mVU3wRWP7SjWvOEpGdcEKBWTr98b/zzCHl2jGWTnC8HPPtBTPm P7Oq7NXHu8AStAUhE/O6a+9Pa9eVQ6cHJWXmDq6/tLjN0ZdGSYmf//v3kX/m Zc0MNttelsLuniBRN0GsnxY/H/J4yoe/CoLOyrkPOOP+supu+q8m/QIw3p+x XkNzAPFEO/pr7deroIvq+OuMZz/ijixT0ZWv80HuSN+FvZ44//jG2NJMOCnQ xVju4/AV+3f0uLzb3ikqGHwekYgVwfn3ztiuj/1UHkjtUPd2j8Prl9vLtF55 nwenCP5F8onY/smITrOu16Vg3631c4XxAvXrpD9x9Ec5bFrWZCA3+e/cIlTI 4/HFYngb9prI8ArXJ9Xp8G9sdf87vlaaR5kdJ4rh0NSXPR0WOD6LM+3360pW /U/5Je8fKBewVkDekim/JzHY/xceeZxlje6C9qaEffqy2D5anOWQ7nUbw0+g 5ryeLbgc87zt29qM9lFh4205o7Eo7B9afJdcZOzK4E6I1hZaq6iH9StxmbVo CXaCxp1spjERzNmr9JcbylDh/WLX0M3SWH+NQN2aDZok2KG+VKIuCdf/jZRT M5LeHWB7Ky9DJwfXZ1r8ehznSfkZMqwhUCvE12H9o7KPfXMayXBN1bVg4yyu 33svxoyZHZybD0JHhdMPY3lavJfy8AD36w74uE6ws8cHx9+EcXpGQZIEp08E llw1wvxgzhI6+6VdcKWJ/yjZA58/WjxonOvXmbl7R4zX0PuwBeZ7Kzttk62j VCgyKBiP08B8mQhFJ0ycCqZGwlH2Z3D8mmsMbojtpMJXG4mfH/Nx/xiK54yk fKHCsYw9Dj4bsPwUccXRL8lUsL9c3vowBK9Pi68oodvo5UiBzap3+ywn8f6N jLYk95ZQYNdztY0TSVj+s+vY9JQWBaJCuj4bMeL6RYunlgmfXiVBgXVPR8Oj p3D+k6r8r/iPkYHxkdFZrgbMHzfcyhYOnLsf5J55M26F7afFI+Vnps+RKKD+ 0fXinYeYR3jKcBZJkcFokfXJY4H4fPjrhe3IeE6BS4YnKF69OP/zX1klCws0 wVYpoyHmR834/nhXZotsDAGsU/zUZMua8Pnsfjf4NqgZMiT9Ldu2Ef6ZTwg2 0Y1drYNDP3kaLcMw37BmS69kXAN8qNtNZhhoQbzV9mu+l0YXfJBRzuhfj/e3 o7DdJ2XuXARI5WyoXsA/DqEfx5lTqPAyIHgqYSM+n7S4Z9udH45DHcC/qqqp VrYB8SfvPp69xN4B+bu7zsTJ1CO+9cmVV78qibAnMtbZ9moj4tWn9BIOCJDg bu6KW46zRKxfpok1u4kIY2KCb9+rtuP7TwC/uUXt3HzOmKZBOYb3z9oUc6De twvOUiYdSx/h/WUoi2rH7e+ENaaPvhx+g/077rFLIW1XF9imvvPw+rzA/F4/ 6txkP6c38oepQAXWn1Aq/NgVukFwzc1wpu3/zhuGiCZ5v7pAWU+Cwp+EecFk 17178d1wInzKlJUF1+8ty+jKmt2I4DxSPHtuQ9s/c6bkxY6RdSR4m2BsaliJ eQSXb3i/bifc6NALq5zrY//KU+2/RrXmU0BSzLTkkR/m+3RsLQnjFEh4urRx 01Ls//MHXFTCX3ZBD+eYvUsB6Z+5Tw9JskSsE5rlPo1P6mCeKVO7R8l0rm4y RzCoF+L69PGOPmclWx8I8T1/op+P/Z/e97yGROwD+Qe7KuqjsDzHhnHWbqk+ EM7f6bLpyQLynzdM5FkNwPeQkrfLCnD8aXFvyfKDMna9EK5laCa4wP050l3h W5Z2Hxjpv9J6Gon73yb64kGPPf2Q/OO47xc/zJd/4luUZNANa7LlCLt0sf4v wXEP9Gb6YUYvXVy8BfefnlKXj3nnhuD8NXnTK8sXeJ+gwb+li66wlx2C+yJk RrUF+qtyDe/Z4m1DkF1hfa+XHdvv+XrsCoXQC7bOb7u//8DxocXJzEpZWgb9 EPvNS3xaB9cfWrysdmy/oC4VGoxX1x5/jbllSJ+CMH0XrNMwKd0ejHmomBBX 31Eq/Dj8IjkyHnMV7iJ6bVUqOBWWihnH4vygxdcFXOCyr+wF3ss3sskEvP9t KsQz/EXdYNx8tuDAR+zf2wppGYfXN0IKH4HNTgH335XbQfGdVBMcOHDA26kP 98e+ZJdzLPIEsBRrEN4TgfsHLb6Ya/cvI812cLZZ22nvi/trAt87liEWAlQP Bv9UWIz7i2t/vuDF/W2wQ4fFmo0ey/tu3nMi8Xst8AnQe51hxPtTXL0ogb2m EU6oqTyM4sa8NCbDf9FII7AVvWjwMMPzB/3SZ55W1GZI8lA6Y78e2zcTKKGg ml4GkiWde3XW4voR7F5Wsae9CO6Mj7FMGS7wPrV/C8GJtwIYJX9uM0rD9Y+9 RPUHX2gx2K7McS89iuVp8QO73u95P/IJWAUmZhUv4vwc7XF+fby3EB6f0Hvk t8D7+YbpaXpdYhH4nrQ+osm3wP2CW8V5hVglmBwXWnGeB3NNUUnXBs8iYLV8 os84gPtH4+xjRtsHpRAzkHOb7jOW52dwcRnyLwSyCFd84iW8P1La4MzA6SpY rxDvWtyPeULcdAOf8Bc4HKL+8c0pfH78tv7oMV9NBFElgzOeo3j+WQ63yh+f IkPtr7I1gX0LnH/5lbZMX0gwIxY95pCMedbs4bMvBTvg2wHl1RW8eP+0OEfr lxdZVR3QTB2e7tfB/rl4hP9bOKUD2sXclJ0vY85KIaxe8pgISuvPsNFZLPD+ aMy+skCsAyZDnD0s2bD9W4qDviVn1sLn2yaf7CIxV9R5t32d1kcQujRDZCrD 9Qcu3n++SaMC7lmoMB/7iO2jxa8eEF+bmlUCtbIMmZD779w6tvqtQPcnEGh3 PLTGFecHLW6lYWAbZZwFqo2aEd824v6mfTHKfCN/AfhwB9K7+eH+Wk9stek2 ygZpood/0278fkWLdziejFPcFA1nF3H0lTvi/K3i675faO0Eg3LNV7kkMSdu ZZ96mPUa5DdoSBgzY67bvaTwiUIivNuo9MJ4K46fsPU293ZqCvworLMzN8Zc faJIIJulEhh5qFqzN7H//Uy9NT/XV4J1EVnI6RnOn2tkWcGSmXxIvWARKvrh 33k7633nG5vy4IjzrO3an5jby7ywGDUugkNtT6mjZtg+YRNR230u8cDqxv/F XB/H90DtQN3WRdXQZd0ksswYnx+PTCGWNVzl0KK8aFJ0Bdb/6NW6jMezc/n5 k7vHNB7LCyRUUn56lAPpfDHBPPffeXQvcR2FNw+Uwq2U+Rd4P5J0Mu8n+mbD mpD9hLuS2L7Yld7TX5Z+hKYrT2u+qWIuJXWza8edIuDQvpIi4Yzz5w793qJC wmdoen5HYrEk9t/NZOXgHXP+X/npzaHkCaz/vUvlOsOaN6AiohO5kx3Hj92k QJb3Vw6I+m2sT1DGXG+vu/hSQiKcHWv+LLcbrz/WvW75K0Iu7HVzXqp/Fp9P u9zN8S9UIuDobUOyXhh+X4ls+mHm3p4ArMzHgmKe4fyf/+V8+VVG6V3/znXv hj1M93sMxfT7Pkr7YF68ui+vLsIXzELFXiaO4/cvVo99QUbWLnD+cN+k6m0s H6P266p7Zj4E3Bq6wGmD5ftjpeX9PySBjmy7yPrPmC991rZa1iER7hT97N30 Hvun6G55RXL2aygNe+Cs6Y3l5395ql2z8Vkxjg8tfk71vX7DvhewxbZJ1l8L x89vpni5i80zqKzNt9Jegu2bUZ3mojLHg+uQQ5fw0v+9/kWi2vUbC8TX6/aH mxGj0ZBya93t1AW45z2Nk2nawTBI8LyWo4t5u3XZvraNcbCzsN/4ZDL2j7FK 0DluhsC5+XFCMaoF27dO52h3vXk2hJ1ZPn5Qb4Hvv9Dgp1p+nVF9XwkieT8T NQRx/aDF7/J+lhcuLQarikoNbqEF7kcrzNifbK6ES0kvf9UG4vP9dfdm7WrP ZFi7g21qaxaeb2lxvalTkU71hRBUs7RH5wN+n0gz0/OcWl4AtqvcvRwfYHn7 oDYu92cfwGXFsUd6lZhrfX2188WOcsjIMmS/QIf31xueH/t8VQk8VUotO5eL 5WNX9OcdDCgCzRs+xzYsML/R4s09i2a7T7WAzenVyQk35z8fGvn98yjnJwZ9 iypYuzh5yOfV/P2HTX6eF4e2S9s71UCQsXtAU9P8/YXpN3fTr1nGEtACDvWb r/p+q/2P8/zmj/lIn8QfNIOUxnj9bGbqf1zgN//Ok652SZIIFou+GIY6Z/7H N/3mJRxToXGmzSCt+InjtFPQf5zvN7/mPnk6qfALXOA4bTd4IAdxAT6fpg9R BFBX1PNaNlmD1s/hYqye1O2AafslHvmquYgXlu6R+3KOAO93DXwVYapA+uVi PMeWfw2H94ZfpYxq3yH7dWwMsjmWtP4Vlz9c7jvZdNi1HmbOXfDV8EtB+rdv 4al/qd4MWwWm6JNCi5B+Jo5CQcvGBpBeXWPpVVGBeIFYa7fZbBOQLtb1pyib oPjlZ34zlw5rBOmJ9x4/433n7fzNa84LGrweqANRAffjDnYRiOsxmC9zZ+gA S4/p8Eu3C9D6SplNKysCKyG9wkC6mjUN8RATMsOWc51gPSUg+bAlD/n/wVMS g59bA/jISPLQry5H/LU3k1pqNwEWh9+1CT+chPiuRM/vGlxEiL41Lp3PV4bW P8Ts0+N0oRleJ1flNuaVInmmHOeKCs92uGTU8UHqZ8l/nPM3X2d6IuPdw1Zg 5zjeX6FXheSFz3tWVNk2w8t9RVYrtpUieWnqrc82qWSI+ma4YvjuB3R+jmn5 VGY2kcDZIIRjuK8C8dShrAv1H2ugInd/VJPQvP/Zf3MSoa4nMLAWLOy68k21 k1D8AkWeTW6jr4Mzhqx5B9iLkf7AReGKkXqfQeo2o1KsZAnyn3okc1CnAREc lhaIuJlg+1atEp7kS6oFm30h7kX3qhF3snEPNtnZAD11Lh+ED0Qj+x4pvz2l WNsBXZ/PaR/MScL6vf0mLg0PAr+T0rtVS/H9xppnyl/35xAcbhvefjjt37m4 h6M5ZAzDI2nuwx2peD7Q4ic2blAYAslitZgcX/z5e+ztc+fK5+xbd1BaJdZ3 EPHMrCtNl0WHIGk8dbHANJa/cH8rxzO7YVh6WsU73guvP++HtSe9v5+ywPaP WBIffM0dhlA528+EMTw/nDjXeS3ZbRgcIlOqb3/A9sER+ySWiSGI6DXxH7mE 7aPFa26GTMZ/GoJplyWZAwt8/rTsB31PssowvJg2GFfUwfeLa6ayL6nfhqBc /IEY8SzunwEPQh3Cg4eh01XT+00l1s9dNtb/c/cgnHSf9I7Tw/ppcc9W/VCO XcMwEjS0XVsH+29zRPPYM+NB+KLEqpeZg+WlXHYIXOUfhCLTs2OK1/+dC2mm 2TmFD8LZ2ybcTCH4fkRHX0HlnR2AVi3Lfd0pWL6st8Ryxq4FqBdcRetdrNH5 3WxwrI/FtOZvObr/X+6jvFjGgb8eVDtGJeH63++XIxCX7Kv37kwTCIketX/4 4e/3rxFgaLG9uW9RHTiukwnr65mP75/5JMXErmBofw2k9oTsyOr+e74ZAfsz wGt6mgB2dC32Vg2/4/97fy6VIjwpw/UgOmR2VCy4F/EitcJXvf2N8OSWFuuB ivn560//XS9c2XEqgQjPpT50lXf+nX+0eYjFQ5bCmCbQYSZJvdKYt/9P/Q95 miw3TWyGpGvm9R6N8/xPf9ZS+vLC5GoL5Ppm0LefnI/vn/lsY21eud/advAm Tjxc/Pv94Y//3ljx3P/S2AIbml9yEfd3IfnDrVsuVG0hQR2L190DRhTElzzs vNqdQYZSdndhk9y/7w+0+WK+KN7TcTVQJNb1YdYF+2dWybZOJrYZ+MJYtrfV dKD9f+pk2gwWDRBD+GVvWtuJeHNbNIPRYA288Vj1mK66C+3/0xPD0NK5+UXO csuL04swt+Rfra4WUAOOz9ySwt91Ik606/O1jvsCSwI6BY1UuhGvDSKblAq1 Qeyk7PrPgb3IPkXV7Sn3x9qhfMXG0ObmLsQJTPfTG6EZlh9UjkoexHxa2uJe jn4HCHDtXl4iP6//T38XCgwjTqxrBBaLC3T5W/sQ925q3l7H3gKtix3tVjZ2 I/69dO8Nx9WtUNbNq7JacX79P/1V/fKa5Spx7eDo6XWI7XUXyl/hC3YiF9Ma YUOUoL/uDSqyv9G3tP4YiQAyWYReBjsK4s5C34eCmqqgtP/n4XB/nL933u2v VntTAdwXYpubHuH8ocV3jKt/z2hpgNS4788KY3F9qBqZXlq3hgRWhbv6Vjr2 ofUjdYOaupxJcId49rLGIOaND+QYKubm05JV68P2J2L/1z4gFrGo1kF3i1KC 6Jq/v185AnlsLmvUsonQz5S5nNf57/o9AqJO32+6y1bBjjy5DTbePUh/WK/A 9H61mrlzksXf29uF9seuE2DKdKMG2o/fj2O+h89Ph8wNt7q9BGAue6OeqNaJ 5OM/PvSUT2kF5e6D586lkxCvvzR1pt2WCKXP26bo0fefaXO647yaPtQ28C7I 0VWJwPXvkk7b+CYbElRLeE/OxOD5c13e2iy3m1QgWO5dxOhIRPFZ0p4cUQVf 4Lkqa4haxmPUH5dqyySPebQCp5fElTxz/PkkLf75xNdhP2YSyCa6Tw544+/H cKioDDozEuHeQ7e1s4sxvyvLxrfocgvw2d/x7UnDn29GH3y9zfBmOxw+Mn1X rR1/vriR0dTx+AsCZFu08jCXY3m6i1lfGXrb4fuq6LATnJhPvZDY2rGUCMYV zzsUlLF+Wny1P/unxU0UKPPmdHvq14LiJ/peVJHpZTeIc/StI70lo/hYVVEp q5MGwVyD+YkZ+nxkrj48DhGypXZAgAS9yWhWH9JfaCUmPEDXAT43dsqWuvag /Owv+CV55AMZpgOtW58r/P1+R5tv2aMQLygwAPwV1Uuy8ufr75/5YJVCfV+7 yBAwnfK3eBCB+x8tfjeBVcRKtg4ayvaOrr/Rj+wvyraKFT1UDUs4t3ke+73/ P1yTjdkl+205qJM7NB4t+3v+HgHtulvButmfQefVbEDeDuxfWvzhHtYhvpB6 EOavZZARHUTrT+mqCwop1oGmd2VRSRG2L/BG+b5niqXwlcL+HsT/vl+MgCoM aIY2FkNaZdi+nQl/329GILf6oIKKcynkcF8U6SrAPDuToyPKogT6Je9OGjP+ ff+Z618e5zeRZz5CuaQfgT1lEOUf2+ZovgaZEni0O6T3FGkY8TrP7ynHQjPR v8//FGGL3tpVUQ0BQYqJO6/h+k5ti2Hbv7sObqxVKxr7htd/X/AhJD2tDgw2 HPrmmDCM8tumWuKd0Jbav+T+6H85eUBIS74OqmOGyyQM8Pq0+JnE+zLX71RC y7uLNdJi8/b9mf8eCQY7Kq+uhp319nUqsTh+IzGClZfWEEB7l2jHWFQP2t+h aq5dUWvbYP8uI3nVTtw/vUyirXMuESAnIWBT5nA3yh/L2Wofp8w2IMzyHq8O m7d/028+pGr/bPFkM4SbK7xQcR1C3PmE5sWKIxRwqH3KFLBtPj/+zC83q8+Y aiztAMOXkd82Lcf2nW9MuPbJswHe6q2KeLAKyxPfbNyxjNwOZ7ML105F9SH/ JbfAHeHHVCCpmgW6fsH1hZ/7VO6wXCsYyG6biHrTg+Iv5Xeo9HNyIwi+fWhG repGXAw60i2cOkBcynykwxuf3z2+qQrVjW0QeoCszU2dt//P/FAkc777qEc7 9A62Pm8tw/FvP7foZBFLBwhbu09eysD7c3eiOx51swFG7beeYZOdr49/5keu +0GsfoqdwCH9a9eX6D7kP2s+/lrFTyTQTt4Q9IkRzy8rmAtmjju0wvcHT6u7 kvH6LUe3MIvkt4OIa6AewyCezxvY66n60mRw7YxQlJvB+aX+RoQ7qbgV2J8z syZy4fuhkQMLj5p4F9wxmc3jVBxE+5uwnFgfeKIV7I+Xvr61HMfv2WDRnas7 2+DoRcGAVZV4/nq1JcimgtoCO9MP79WUxvcH6Vd9ew1PN0NtdnMjQRTbf/nK zV+Mvi2wl0WoQOH0EIrv02ux97bUkeBax/OVQ6J4fhzf9INaQzd3/3uiHmM1 he9HA97aZbZ2bVB+6WJCxVQP8v8oo70xryBpro7tb2/hxf4/sjOEJ5SeBKa+ 8HjWpRdxVZsi8buyHRDuv8XoxL1+xGOvWXtPZhHB7H5WleId3F9iPSc8NAMp 4HrWIKIs7+/Pp2hzSaFU1mdtc/Xheti1czf/ft+Zux+U3bhz7QIZIvn23mKf wPVtvMyWt0WdCO5FAX2TB/H5MimQuUJ4UAf08VEi5l+Hkf0X3oo2OeuQwboj brOlCb5/2mRyBrdxkCHXhY9OnhHPD33m/ilabh1QsC2BizEF27dEKbc/51IN 7I5XL/BTw/ORIsnx40P/JnDe326mI9aP8i9cRpex6nUdlOle535v2YX2Z72W /rLX13KwiswuVi/F+bsrrpeT/UQVhKZzR41dxfPbFSP1ePH7rbBeNCf67BNc v6mDMjkVqh0gv/OXRtV1fD5T+vVqwq0owDf92D7dHsePFrfQj+W7yEgBmddX +8cuYb493U9/lTcZDLToYy5W/f3+RpunxXcbBmR3AFuqOYfNXuy/OplGVsnH BPCPvD95NhSfn/Ent5gqpBrg9v7T3c2O+H4Z3fVIYEihFTIyq3bZPRlEXH2N vSIvdxPc/JjLzK8+798/9Ut+c2JlhRwJmOhcNkV74f7i/ux+OOkmCWbfe+n7 ZuL6kJGqVazn1QHL2eh3sr7qR/pZXN32D80QYMBHZ0TpI9bv5NdmtIqlBepT faUUSnD9L/je/TV2aq7/VZQlpMTi/P3x8oNVemsjiM3eviunjPuDz7vwLk6H ZhBgI6RlseHzlz4kJzy6lAyG0ry5K5vm/fOnP4XJX8389aIGljNRph8ux/PZ FI/hE/etjbAo/nmPpUk/yt+Vdnu3p82SoM+UZ3qRQy+yb3ON2A7Dt3P3i6/O vRFW+HzT4nV2Xxtz6vugQbGY2XkQx6dQcMLWg3sAosKaizv78PuHvxNj2Exp D7RW31OQ9sDvJ7S4V1fYvsHmHljhRJ8QnYXjV6wQxXuU0gOuj8jOnej/pxiB /wO5kuwR "]}}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 375., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`rabbitGrowthRate$473450$$ = 0, $CellContext`rabbitMobility$473451$$ = 0, $CellContext`foxGrowthRate$473452$$ = 0, $CellContext`foxMobility$473453$$ = 0, $CellContext`foxEndurance$473454$$ = 0, $CellContext`moving$473455$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ag$$ = CompressedData[" 1:eJyVnHk4Fd7z+ElKolSSkChKlLUklUFkixIqRZutUioiKYWsURJZkuwha6jI EpI1si/Xcq97r33NkkL6+uOtnl/j89xf/RFPr2fmzJmZMzPn3PvEf/7qUZNF dHR0G+b+Wjz3k03japHiBBmgPmG9Dl8f0P2/f+TbWCN42r92QqF5+L5JxV7E 1xFCX8m6dkNK3I2rtaGdiFsmOyS+UaKC6EmrdA+HHsRTPz1MClGjwszApbwo ayyfN7abLkWYDAbipSrX9KmI33rtb+QgRoFHhmUOq0bIiOtM9I1G6lJB4hGx 6kYz1t/88qll2E8y7GresC3xBeZt37I9712mwGrioE3SIF4/W193o68cFaJO lh6Vk+hC/Lz4mitMrVQQ77+9w0cG83qLjA8BYyQQkVLjVEzF9rscmU04QCLD m9tcsuZ7sLzBhJpN4ykKuD1iOG3s3I24/MY8RSOeTuB8+Tw4mAvHbzf5zZ6Y H2QImolZdGOB9cWl35TLFXTCoFba8/Fh7J/vHxxm7ntSQc+0UGo8CPunMmtD r9mabsjsjiu/poI5Q/GD+Ls13fDmVFl3sDLmvUqWJ00KqmGD+wOLUNNhxGVH jKgNEs3gcRwokZsx5y6KHP3VVA9G37Wu764fwvEN+xZsw1MC6966D75QxPKR k1Nit/LIsEjEecvXcmzfzFsXzmWhVNAXn75VYobPT44Xi+mLufz4tHlVcKAz 9r954xYbe0kqRDak5LoZYPmlV/kTMpRIoPRamjwhjf1Pi2/XUH9Xv74TquvZ rjfdx/mj+mpGSda2E1LtDlsfNcP509alKSHeRQWRNl41jjJs/71D6UtyGCiw nGdZWdUQ5lFRmtt5DlPAs+Lw5mM+OL+mZuxWG0hRYCSV7imHH7Y/f/XkBN8T Cly5yLH9Kjfm5wTcmjStKVCuWs9TKIXtz3wTWaLn2glvbtZML1HDvMfvHcEr sQM4Wc33kB1xfGnxprMth3sfU0DinBqrzlVsX1rCzSe5w91Qc6NqO9UR+4cW 9w/JelXJ0A0cRo0FfARs/0+Rk6ahYxQwDeiZSJTC8hbFa9scBjohbVGv2csd mJv69TGIdnTBvj7NAXklnH+79NQ2v1HvBBWe67n+C8Q3P/qoZD8XGez1fGav vMX7D0xglyUlk6GoTi9Y+ReOP7vGo3gzt7n6yK/7fewp5ncdjlb0HqKAw2HX 0V1RlH/maRLOghxPqbA1TXKA1Iz10+K2L5zWGct3gkm6BafpAxx/thvksEEe CjBsMg4x1MXnixaPbJAUPmXcBY0lAB+EsH9pcRuP7/nLqFSQHR5R4WddoL/u jdAk6VFg98mVU3wRWP7SjWvOEpGdcEKBWTr98b/zzCHl2jGWTnC8HPPtBTPm P7Oq7NXHu8AStAUhE/O6a+9Pa9eVQ6cHJWXmDq6/tLjN0ZdGSYmf//v3kX/m Zc0MNttelsLuniBRN0GsnxY/H/J4yoe/CoLOyrkPOOP+supu+q8m/QIw3p+x XkNzAPFEO/pr7deroIvq+OuMZz/ijixT0ZWv80HuSN+FvZ44//jG2NJMOCnQ xVju4/AV+3f0uLzb3ikqGHwekYgVwfn3ztiuj/1UHkjtUPd2j8Prl9vLtF55 nwenCP5F8onY/smITrOu16Vg3631c4XxAvXrpD9x9Ec5bFrWZCA3+e/cIlTI 4/HFYngb9prI8ArXJ9Xp8G9sdf87vlaaR5kdJ4rh0NSXPR0WOD6LM+3360pW /U/5Je8fKBewVkDekim/JzHY/xceeZxlje6C9qaEffqy2D5anOWQ7nUbw0+g 5ryeLbgc87zt29qM9lFh4205o7Eo7B9afJdcZOzK4E6I1hZaq6iH9StxmbVo CXaCxp1spjERzNmr9JcbylDh/WLX0M3SWH+NQN2aDZok2KG+VKIuCdf/jZRT M5LeHWB7Ky9DJwfXZ1r8ehznSfkZMqwhUCvE12H9o7KPfXMayXBN1bVg4yyu 33svxoyZHZybD0JHhdMPY3lavJfy8AD36w74uE6ws8cHx9+EcXpGQZIEp08E llw1wvxgzhI6+6VdcKWJ/yjZA58/WjxonOvXmbl7R4zX0PuwBeZ7Kzttk62j VCgyKBiP08B8mQhFJ0ycCqZGwlH2Z3D8mmsMbojtpMJXG4mfH/Nx/xiK54yk fKHCsYw9Dj4bsPwUccXRL8lUsL9c3vowBK9Pi68oodvo5UiBzap3+ywn8f6N jLYk95ZQYNdztY0TSVj+s+vY9JQWBaJCuj4bMeL6RYunlgmfXiVBgXVPR8Oj p3D+k6r8r/iPkYHxkdFZrgbMHzfcyhYOnLsf5J55M26F7afFI+Vnps+RKKD+ 0fXinYeYR3jKcBZJkcFokfXJY4H4fPjrhe3IeE6BS4YnKF69OP/zX1klCws0 wVYpoyHmR834/nhXZotsDAGsU/zUZMua8Pnsfjf4NqgZMiT9Ldu2Ef6ZTwg2 0Y1drYNDP3kaLcMw37BmS69kXAN8qNtNZhhoQbzV9mu+l0YXfJBRzuhfj/e3 o7DdJ2XuXARI5WyoXsA/DqEfx5lTqPAyIHgqYSM+n7S4Z9udH45DHcC/qqqp VrYB8SfvPp69xN4B+bu7zsTJ1CO+9cmVV78qibAnMtbZ9moj4tWn9BIOCJDg bu6KW46zRKxfpok1u4kIY2KCb9+rtuP7TwC/uUXt3HzOmKZBOYb3z9oUc6De twvOUiYdSx/h/WUoi2rH7e+ENaaPvhx+g/077rFLIW1XF9imvvPw+rzA/F4/ 6txkP6c38oepQAXWn1Aq/NgVukFwzc1wpu3/zhuGiCZ5v7pAWU+Cwp+EecFk 17178d1wInzKlJUF1+8ty+jKmt2I4DxSPHtuQ9s/c6bkxY6RdSR4m2BsaliJ eQSXb3i/bifc6NALq5zrY//KU+2/RrXmU0BSzLTkkR/m+3RsLQnjFEh4urRx 01Ls//MHXFTCX3ZBD+eYvUsB6Z+5Tw9JskSsE5rlPo1P6mCeKVO7R8l0rm4y RzCoF+L69PGOPmclWx8I8T1/op+P/Z/e97yGROwD+Qe7KuqjsDzHhnHWbqk+ EM7f6bLpyQLynzdM5FkNwPeQkrfLCnD8aXFvyfKDMna9EK5laCa4wP050l3h W5Z2Hxjpv9J6Gon73yb64kGPPf2Q/OO47xc/zJd/4luUZNANa7LlCLt0sf4v wXEP9Gb6YUYvXVy8BfefnlKXj3nnhuD8NXnTK8sXeJ+gwb+li66wlx2C+yJk RrUF+qtyDe/Z4m1DkF1hfa+XHdvv+XrsCoXQC7bOb7u//8DxocXJzEpZWgb9 EPvNS3xaB9cfWrysdmy/oC4VGoxX1x5/jbllSJ+CMH0XrNMwKd0ejHmomBBX 31Eq/Dj8IjkyHnMV7iJ6bVUqOBWWihnH4vygxdcFXOCyr+wF3ss3sskEvP9t KsQz/EXdYNx8tuDAR+zf2wppGYfXN0IKH4HNTgH335XbQfGdVBMcOHDA26kP 98e+ZJdzLPIEsBRrEN4TgfsHLb6Ya/cvI812cLZZ22nvi/trAt87liEWAlQP Bv9UWIz7i2t/vuDF/W2wQ4fFmo0ey/tu3nMi8Xst8AnQe51hxPtTXL0ogb2m EU6oqTyM4sa8NCbDf9FII7AVvWjwMMPzB/3SZ55W1GZI8lA6Y78e2zcTKKGg ml4GkiWde3XW4voR7F5Wsae9CO6Mj7FMGS7wPrV/C8GJtwIYJX9uM0rD9Y+9 RPUHX2gx2K7McS89iuVp8QO73u95P/IJWAUmZhUv4vwc7XF+fby3EB6f0Hvk t8D7+YbpaXpdYhH4nrQ+osm3wP2CW8V5hVglmBwXWnGeB3NNUUnXBs8iYLV8 os84gPtH4+xjRtsHpRAzkHOb7jOW52dwcRnyLwSyCFd84iW8P1La4MzA6SpY rxDvWtyPeULcdAOf8Bc4HKL+8c0pfH78tv7oMV9NBFElgzOeo3j+WQ63yh+f IkPtr7I1gX0LnH/5lbZMX0gwIxY95pCMedbs4bMvBTvg2wHl1RW8eP+0OEfr lxdZVR3QTB2e7tfB/rl4hP9bOKUD2sXclJ0vY85KIaxe8pgISuvPsNFZLPD+ aMy+skCsAyZDnD0s2bD9W4qDviVn1sLn2yaf7CIxV9R5t32d1kcQujRDZCrD 9Qcu3n++SaMC7lmoMB/7iO2jxa8eEF+bmlUCtbIMmZD779w6tvqtQPcnEGh3 PLTGFecHLW6lYWAbZZwFqo2aEd824v6mfTHKfCN/AfhwB9K7+eH+Wk9stek2 ygZpood/0278fkWLdziejFPcFA1nF3H0lTvi/K3i675faO0Eg3LNV7kkMSdu ZZ96mPUa5DdoSBgzY67bvaTwiUIivNuo9MJ4K46fsPU293ZqCvworLMzN8Zc faJIIJulEhh5qFqzN7H//Uy9NT/XV4J1EVnI6RnOn2tkWcGSmXxIvWARKvrh 33k7633nG5vy4IjzrO3an5jby7ywGDUugkNtT6mjZtg+YRNR230u8cDqxv/F XB/H90DtQN3WRdXQZd0ksswYnx+PTCGWNVzl0KK8aFJ0Bdb/6NW6jMezc/n5 k7vHNB7LCyRUUn56lAPpfDHBPPffeXQvcR2FNw+Uwq2U+Rd4P5J0Mu8n+mbD mpD9hLuS2L7Yld7TX5Z+hKYrT2u+qWIuJXWza8edIuDQvpIi4Yzz5w793qJC wmdoen5HYrEk9t/NZOXgHXP+X/npzaHkCaz/vUvlOsOaN6AiohO5kx3Hj92k QJb3Vw6I+m2sT1DGXG+vu/hSQiKcHWv+LLcbrz/WvW75K0Iu7HVzXqp/Fp9P u9zN8S9UIuDobUOyXhh+X4ls+mHm3p4ArMzHgmKe4fyf/+V8+VVG6V3/znXv hj1M93sMxfT7Pkr7YF68ui+vLsIXzELFXiaO4/cvVo99QUbWLnD+cN+k6m0s H6P266p7Zj4E3Bq6wGmD5ftjpeX9PySBjmy7yPrPmC991rZa1iER7hT97N30 Hvun6G55RXL2aygNe+Cs6Y3l5395ql2z8Vkxjg8tfk71vX7DvhewxbZJ1l8L x89vpni5i80zqKzNt9Jegu2bUZ3mojLHg+uQQ5fw0v+9/kWi2vUbC8TX6/aH mxGj0ZBya93t1AW45z2Nk2nawTBI8LyWo4t5u3XZvraNcbCzsN/4ZDL2j7FK 0DluhsC5+XFCMaoF27dO52h3vXk2hJ1ZPn5Qb4Hvv9Dgp1p+nVF9XwkieT8T NQRx/aDF7/J+lhcuLQarikoNbqEF7kcrzNifbK6ES0kvf9UG4vP9dfdm7WrP ZFi7g21qaxaeb2lxvalTkU71hRBUs7RH5wN+n0gz0/OcWl4AtqvcvRwfYHn7 oDYu92cfwGXFsUd6lZhrfX2188WOcsjIMmS/QIf31xueH/t8VQk8VUotO5eL 5WNX9OcdDCgCzRs+xzYsML/R4s09i2a7T7WAzenVyQk35z8fGvn98yjnJwZ9 iypYuzh5yOfV/P2HTX6eF4e2S9s71UCQsXtAU9P8/YXpN3fTr1nGEtACDvWb r/p+q/2P8/zmj/lIn8QfNIOUxnj9bGbqf1zgN//Ok652SZIIFou+GIY6Z/7H N/3mJRxToXGmzSCt+InjtFPQf5zvN7/mPnk6qfALXOA4bTd4IAdxAT6fpg9R BFBX1PNaNlmD1s/hYqye1O2AafslHvmquYgXlu6R+3KOAO93DXwVYapA+uVi PMeWfw2H94ZfpYxq3yH7dWwMsjmWtP4Vlz9c7jvZdNi1HmbOXfDV8EtB+rdv 4al/qd4MWwWm6JNCi5B+Jo5CQcvGBpBeXWPpVVGBeIFYa7fZbBOQLtb1pyib oPjlZ34zlw5rBOmJ9x4/433n7fzNa84LGrweqANRAffjDnYRiOsxmC9zZ+gA S4/p8Eu3C9D6SplNKysCKyG9wkC6mjUN8RATMsOWc51gPSUg+bAlD/n/wVMS g59bA/jISPLQry5H/LU3k1pqNwEWh9+1CT+chPiuRM/vGlxEiL41Lp3PV4bW P8Ts0+N0oRleJ1flNuaVInmmHOeKCs92uGTU8UHqZ8l/nPM3X2d6IuPdw1Zg 5zjeX6FXheSFz3tWVNk2w8t9RVYrtpUieWnqrc82qWSI+ma4YvjuB3R+jmn5 VGY2kcDZIIRjuK8C8dShrAv1H2ugInd/VJPQvP/Zf3MSoa4nMLAWLOy68k21 k1D8AkWeTW6jr4Mzhqx5B9iLkf7AReGKkXqfQeo2o1KsZAnyn3okc1CnAREc lhaIuJlg+1atEp7kS6oFm30h7kX3qhF3snEPNtnZAD11Lh+ED0Qj+x4pvz2l WNsBXZ/PaR/MScL6vf0mLg0PAr+T0rtVS/H9xppnyl/35xAcbhvefjjt37m4 h6M5ZAzDI2nuwx2peD7Q4ic2blAYAslitZgcX/z5e+ztc+fK5+xbd1BaJdZ3 EPHMrCtNl0WHIGk8dbHANJa/cH8rxzO7YVh6WsU73guvP++HtSe9v5+ywPaP WBIffM0dhlA528+EMTw/nDjXeS3ZbRgcIlOqb3/A9sER+ySWiSGI6DXxH7mE 7aPFa26GTMZ/GoJplyWZAwt8/rTsB31PssowvJg2GFfUwfeLa6ayL6nfhqBc /IEY8SzunwEPQh3Cg4eh01XT+00l1s9dNtb/c/cgnHSf9I7Tw/ppcc9W/VCO XcMwEjS0XVsH+29zRPPYM+NB+KLEqpeZg+WlXHYIXOUfhCLTs2OK1/+dC2mm 2TmFD8LZ2ybcTCH4fkRHX0HlnR2AVi3Lfd0pWL6st8Ryxq4FqBdcRetdrNH5 3WxwrI/FtOZvObr/X+6jvFjGgb8eVDtGJeH63++XIxCX7Kv37kwTCIketX/4 4e/3rxFgaLG9uW9RHTiukwnr65mP75/5JMXErmBofw2k9oTsyOr+e74ZAfsz wGt6mgB2dC32Vg2/4/97fy6VIjwpw/UgOmR2VCy4F/EitcJXvf2N8OSWFuuB ivn560//XS9c2XEqgQjPpT50lXf+nX+0eYjFQ5bCmCbQYSZJvdKYt/9P/Q95 miw3TWyGpGvm9R6N8/xPf9ZS+vLC5GoL5Ppm0LefnI/vn/lsY21eud/advAm Tjxc/Pv94Y//3ljx3P/S2AIbml9yEfd3IfnDrVsuVG0hQR2L190DRhTElzzs vNqdQYZSdndhk9y/7w+0+WK+KN7TcTVQJNb1YdYF+2dWybZOJrYZ+MJYtrfV dKD9f+pk2gwWDRBD+GVvWtuJeHNbNIPRYA288Vj1mK66C+3/0xPD0NK5+UXO csuL04swt+Rfra4WUAOOz9ySwt91Ik606/O1jvsCSwI6BY1UuhGvDSKblAq1 Qeyk7PrPgb3IPkXV7Sn3x9qhfMXG0ObmLsQJTPfTG6EZlh9UjkoexHxa2uJe jn4HCHDtXl4iP6//T38XCgwjTqxrBBaLC3T5W/sQ925q3l7H3gKtix3tVjZ2 I/69dO8Nx9WtUNbNq7JacX79P/1V/fKa5Spx7eDo6XWI7XUXyl/hC3YiF9Ma YUOUoL/uDSqyv9G3tP4YiQAyWYReBjsK4s5C34eCmqqgtP/n4XB/nL933u2v VntTAdwXYpubHuH8ocV3jKt/z2hpgNS4788KY3F9qBqZXlq3hgRWhbv6Vjr2 ofUjdYOaupxJcId49rLGIOaND+QYKubm05JV68P2J2L/1z4gFrGo1kF3i1KC 6Jq/v185AnlsLmvUsonQz5S5nNf57/o9AqJO32+6y1bBjjy5DTbePUh/WK/A 9H61mrlzksXf29uF9seuE2DKdKMG2o/fj2O+h89Ph8wNt7q9BGAue6OeqNaJ 5OM/PvSUT2kF5e6D586lkxCvvzR1pt2WCKXP26bo0fefaXO647yaPtQ28C7I 0VWJwPXvkk7b+CYbElRLeE/OxOD5c13e2iy3m1QgWO5dxOhIRPFZ0p4cUQVf 4Lkqa4haxmPUH5dqyySPebQCp5fElTxz/PkkLf75xNdhP2YSyCa6Tw544+/H cKioDDozEuHeQ7e1s4sxvyvLxrfocgvw2d/x7UnDn29GH3y9zfBmOxw+Mn1X rR1/vriR0dTx+AsCZFu08jCXY3m6i1lfGXrb4fuq6LATnJhPvZDY2rGUCMYV zzsUlLF+Wny1P/unxU0UKPPmdHvq14LiJ/peVJHpZTeIc/StI70lo/hYVVEp q5MGwVyD+YkZ+nxkrj48DhGypXZAgAS9yWhWH9JfaCUmPEDXAT43dsqWuvag /Owv+CV55AMZpgOtW58r/P1+R5tv2aMQLygwAPwV1Uuy8ufr75/5YJVCfV+7 yBAwnfK3eBCB+x8tfjeBVcRKtg4ayvaOrr/Rj+wvyraKFT1UDUs4t3ke+73/ P1yTjdkl+205qJM7NB4t+3v+HgHtulvButmfQefVbEDeDuxfWvzhHtYhvpB6 EOavZZARHUTrT+mqCwop1oGmd2VRSRG2L/BG+b5niqXwlcL+HsT/vl+MgCoM aIY2FkNaZdi+nQl/329GILf6oIKKcynkcF8U6SrAPDuToyPKogT6Je9OGjP+ ff+Z618e5zeRZz5CuaQfgT1lEOUf2+ZovgaZEni0O6T3FGkY8TrP7ynHQjPR v8//FGGL3tpVUQ0BQYqJO6/h+k5ti2Hbv7sObqxVKxr7htd/X/AhJD2tDgw2 HPrmmDCM8tumWuKd0Jbav+T+6H85eUBIS74OqmOGyyQM8Pq0+JnE+zLX71RC y7uLNdJi8/b9mf8eCQY7Kq+uhp319nUqsTh+IzGClZfWEEB7l2jHWFQP2t+h aq5dUWvbYP8uI3nVTtw/vUyirXMuESAnIWBT5nA3yh/L2Wofp8w2IMzyHq8O m7d/028+pGr/bPFkM4SbK7xQcR1C3PmE5sWKIxRwqH3KFLBtPj/+zC83q8+Y aiztAMOXkd82Lcf2nW9MuPbJswHe6q2KeLAKyxPfbNyxjNwOZ7ML105F9SH/ JbfAHeHHVCCpmgW6fsH1hZ/7VO6wXCsYyG6biHrTg+Iv5Xeo9HNyIwi+fWhG repGXAw60i2cOkBcynykwxuf3z2+qQrVjW0QeoCszU2dt//P/FAkc777qEc7 9A62Pm8tw/FvP7foZBFLBwhbu09eysD7c3eiOx51swFG7beeYZOdr49/5keu +0GsfoqdwCH9a9eX6D7kP2s+/lrFTyTQTt4Q9IkRzy8rmAtmjju0wvcHT6u7 kvH6LUe3MIvkt4OIa6AewyCezxvY66n60mRw7YxQlJvB+aX+RoQ7qbgV2J8z syZy4fuhkQMLj5p4F9wxmc3jVBxE+5uwnFgfeKIV7I+Xvr61HMfv2WDRnas7 2+DoRcGAVZV4/nq1JcimgtoCO9MP79WUxvcH6Vd9ew1PN0NtdnMjQRTbf/nK zV+Mvi2wl0WoQOH0EIrv02ux97bUkeBax/OVQ6J4fhzf9INaQzd3/3uiHmM1 he9HA97aZbZ2bVB+6WJCxVQP8v8oo70xryBpro7tb2/hxf4/sjOEJ5SeBKa+ 8HjWpRdxVZsi8buyHRDuv8XoxL1+xGOvWXtPZhHB7H5WleId3F9iPSc8NAMp 4HrWIKIs7+/Pp2hzSaFU1mdtc/Xheti1czf/ft+Zux+U3bhz7QIZIvn23mKf wPVtvMyWt0WdCO5FAX2TB/H5MimQuUJ4UAf08VEi5l+Hkf0X3oo2OeuQwboj brOlCb5/2mRyBrdxkCHXhY9OnhHPD33m/ilabh1QsC2BizEF27dEKbc/51IN 7I5XL/BTw/ORIsnx40P/JnDe326mI9aP8i9cRpex6nUdlOle535v2YX2Z72W /rLX13KwiswuVi/F+bsrrpeT/UQVhKZzR41dxfPbFSP1ePH7rbBeNCf67BNc v6mDMjkVqh0gv/OXRtV1fD5T+vVqwq0owDf92D7dHsePFrfQj+W7yEgBmddX +8cuYb493U9/lTcZDLToYy5W/f3+RpunxXcbBmR3AFuqOYfNXuy/OplGVsnH BPCPvD95NhSfn/Ent5gqpBrg9v7T3c2O+H4Z3fVIYEihFTIyq3bZPRlEXH2N vSIvdxPc/JjLzK8+798/9Ut+c2JlhRwJmOhcNkV74f7i/ux+OOkmCWbfe+n7 ZuL6kJGqVazn1QHL2eh3sr7qR/pZXN32D80QYMBHZ0TpI9bv5NdmtIqlBepT faUUSnD9L/je/TV2aq7/VZQlpMTi/P3x8oNVemsjiM3eviunjPuDz7vwLk6H ZhBgI6RlseHzlz4kJzy6lAyG0ry5K5vm/fOnP4XJX8389aIGljNRph8ux/PZ FI/hE/etjbAo/nmPpUk/yt+Vdnu3p82SoM+UZ3qRQy+yb3ON2A7Dt3P3i6/O vRFW+HzT4nV2Xxtz6vugQbGY2XkQx6dQcMLWg3sAosKaizv78PuHvxNj2Exp D7RW31OQ9sDvJ7S4V1fYvsHmHljhRJ8QnYXjV6wQxXuU0gOuj8jOnej/pxiB /wO5kuwR "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03}, "ControllerVariables" :> { Hold[$CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitGrowthRate$473450$$, 0], Hold[$CellContext`rabbitMobility$$, \ $CellContext`rabbitMobility$473451$$, 0], Hold[$CellContext`foxGrowthRate$$, \ $CellContext`foxGrowthRate$473452$$, 0], Hold[$CellContext`foxMobility$$, $CellContext`foxMobility$473453$$, 0], Hold[$CellContext`foxEndurance$$, $CellContext`foxEndurance$473454$$, 0], Hold[$CellContext`moving$$, $CellContext`moving$473455$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Refresh[If[$CellContext`moving$$, $CellContext`ag$$ = \ $CellContext`updateAgents[$CellContext`ag$$, $CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitMobility$$, $CellContext`foxGrowthRate$$, \ $CellContext`foxMobility$$, $CellContext`foxEndurance$$]]; \ $CellContext`visualize[$CellContext`ag$$], UpdateInterval -> If[$CellContext`moving$$, 0, Infinity]], "Specifications" :> {{{$CellContext`rabbitGrowthRate$$, 0.5, "growth rate of rabbits"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`rabbitMobility$$, 0.03, "mobility of rabbits"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxGrowthRate$$, 0.5, "growth rate of foxes"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`foxMobility$$, 0.05, "mobility of foxes"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxEndurance$$, 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1, Appearance -> "Labeled", ImageSize -> Tiny}, " ", {{$CellContext`moving$$, False, "run simulation"}, { True, False}}, {{$CellContext`ag$$, CompressedData[" 1:eJyVnHk4Fd7z+ElKolSSkChKlLUklUFkixIqRZutUioiKYWsURJZkuwha6jI EpI1si/Xcq97r33NkkL6+uOtnl/j89xf/RFPr2fmzJmZMzPn3PvEf/7qUZNF dHR0G+b+Wjz3k03japHiBBmgPmG9Dl8f0P2/f+TbWCN42r92QqF5+L5JxV7E 1xFCX8m6dkNK3I2rtaGdiFsmOyS+UaKC6EmrdA+HHsRTPz1MClGjwszApbwo ayyfN7abLkWYDAbipSrX9KmI33rtb+QgRoFHhmUOq0bIiOtM9I1G6lJB4hGx 6kYz1t/88qll2E8y7GresC3xBeZt37I9712mwGrioE3SIF4/W193o68cFaJO lh6Vk+hC/Lz4mitMrVQQ77+9w0cG83qLjA8BYyQQkVLjVEzF9rscmU04QCLD m9tcsuZ7sLzBhJpN4ykKuD1iOG3s3I24/MY8RSOeTuB8+Tw4mAvHbzf5zZ6Y H2QImolZdGOB9cWl35TLFXTCoFba8/Fh7J/vHxxm7ntSQc+0UGo8CPunMmtD r9mabsjsjiu/poI5Q/GD+Ls13fDmVFl3sDLmvUqWJ00KqmGD+wOLUNNhxGVH jKgNEs3gcRwokZsx5y6KHP3VVA9G37Wu764fwvEN+xZsw1MC6966D75QxPKR k1Nit/LIsEjEecvXcmzfzFsXzmWhVNAXn75VYobPT44Xi+mLufz4tHlVcKAz 9r954xYbe0kqRDak5LoZYPmlV/kTMpRIoPRamjwhjf1Pi2/XUH9Xv74TquvZ rjfdx/mj+mpGSda2E1LtDlsfNcP509alKSHeRQWRNl41jjJs/71D6UtyGCiw nGdZWdUQ5lFRmtt5DlPAs+Lw5mM+OL+mZuxWG0hRYCSV7imHH7Y/f/XkBN8T Cly5yLH9Kjfm5wTcmjStKVCuWs9TKIXtz3wTWaLn2glvbtZML1HDvMfvHcEr sQM4Wc33kB1xfGnxprMth3sfU0DinBqrzlVsX1rCzSe5w91Qc6NqO9UR+4cW 9w/JelXJ0A0cRo0FfARs/0+Rk6ahYxQwDeiZSJTC8hbFa9scBjohbVGv2csd mJv69TGIdnTBvj7NAXklnH+79NQ2v1HvBBWe67n+C8Q3P/qoZD8XGez1fGav vMX7D0xglyUlk6GoTi9Y+ReOP7vGo3gzt7n6yK/7fewp5ncdjlb0HqKAw2HX 0V1RlH/maRLOghxPqbA1TXKA1Iz10+K2L5zWGct3gkm6BafpAxx/thvksEEe CjBsMg4x1MXnixaPbJAUPmXcBY0lAB+EsH9pcRuP7/nLqFSQHR5R4WddoL/u jdAk6VFg98mVU3wRWP7SjWvOEpGdcEKBWTr98b/zzCHl2jGWTnC8HPPtBTPm P7Oq7NXHu8AStAUhE/O6a+9Pa9eVQ6cHJWXmDq6/tLjN0ZdGSYmf//v3kX/m Zc0MNttelsLuniBRN0GsnxY/H/J4yoe/CoLOyrkPOOP+supu+q8m/QIw3p+x XkNzAPFEO/pr7deroIvq+OuMZz/ijixT0ZWv80HuSN+FvZ44//jG2NJMOCnQ xVju4/AV+3f0uLzb3ikqGHwekYgVwfn3ztiuj/1UHkjtUPd2j8Prl9vLtF55 nwenCP5F8onY/smITrOu16Vg3631c4XxAvXrpD9x9Ec5bFrWZCA3+e/cIlTI 4/HFYngb9prI8ArXJ9Xp8G9sdf87vlaaR5kdJ4rh0NSXPR0WOD6LM+3360pW /U/5Je8fKBewVkDekim/JzHY/xceeZxlje6C9qaEffqy2D5anOWQ7nUbw0+g 5ryeLbgc87zt29qM9lFh4205o7Eo7B9afJdcZOzK4E6I1hZaq6iH9StxmbVo CXaCxp1spjERzNmr9JcbylDh/WLX0M3SWH+NQN2aDZok2KG+VKIuCdf/jZRT M5LeHWB7Ky9DJwfXZ1r8ehznSfkZMqwhUCvE12H9o7KPfXMayXBN1bVg4yyu 33svxoyZHZybD0JHhdMPY3lavJfy8AD36w74uE6ws8cHx9+EcXpGQZIEp08E llw1wvxgzhI6+6VdcKWJ/yjZA58/WjxonOvXmbl7R4zX0PuwBeZ7Kzttk62j VCgyKBiP08B8mQhFJ0ycCqZGwlH2Z3D8mmsMbojtpMJXG4mfH/Nx/xiK54yk fKHCsYw9Dj4bsPwUccXRL8lUsL9c3vowBK9Pi68oodvo5UiBzap3+ywn8f6N jLYk95ZQYNdztY0TSVj+s+vY9JQWBaJCuj4bMeL6RYunlgmfXiVBgXVPR8Oj p3D+k6r8r/iPkYHxkdFZrgbMHzfcyhYOnLsf5J55M26F7afFI+Vnps+RKKD+ 0fXinYeYR3jKcBZJkcFokfXJY4H4fPjrhe3IeE6BS4YnKF69OP/zX1klCws0 wVYpoyHmR834/nhXZotsDAGsU/zUZMua8Pnsfjf4NqgZMiT9Ldu2Ef6ZTwg2 0Y1drYNDP3kaLcMw37BmS69kXAN8qNtNZhhoQbzV9mu+l0YXfJBRzuhfj/e3 o7DdJ2XuXARI5WyoXsA/DqEfx5lTqPAyIHgqYSM+n7S4Z9udH45DHcC/qqqp VrYB8SfvPp69xN4B+bu7zsTJ1CO+9cmVV78qibAnMtbZ9moj4tWn9BIOCJDg bu6KW46zRKxfpok1u4kIY2KCb9+rtuP7TwC/uUXt3HzOmKZBOYb3z9oUc6De twvOUiYdSx/h/WUoi2rH7e+ENaaPvhx+g/077rFLIW1XF9imvvPw+rzA/F4/ 6txkP6c38oepQAXWn1Aq/NgVukFwzc1wpu3/zhuGiCZ5v7pAWU+Cwp+EecFk 17178d1wInzKlJUF1+8ty+jKmt2I4DxSPHtuQ9s/c6bkxY6RdSR4m2BsaliJ eQSXb3i/bifc6NALq5zrY//KU+2/RrXmU0BSzLTkkR/m+3RsLQnjFEh4urRx 01Ls//MHXFTCX3ZBD+eYvUsB6Z+5Tw9JskSsE5rlPo1P6mCeKVO7R8l0rm4y RzCoF+L69PGOPmclWx8I8T1/op+P/Z/e97yGROwD+Qe7KuqjsDzHhnHWbqk+ EM7f6bLpyQLynzdM5FkNwPeQkrfLCnD8aXFvyfKDMna9EK5laCa4wP050l3h W5Z2Hxjpv9J6Gon73yb64kGPPf2Q/OO47xc/zJd/4luUZNANa7LlCLt0sf4v wXEP9Gb6YUYvXVy8BfefnlKXj3nnhuD8NXnTK8sXeJ+gwb+li66wlx2C+yJk RrUF+qtyDe/Z4m1DkF1hfa+XHdvv+XrsCoXQC7bOb7u//8DxocXJzEpZWgb9 EPvNS3xaB9cfWrysdmy/oC4VGoxX1x5/jbllSJ+CMH0XrNMwKd0ejHmomBBX 31Eq/Dj8IjkyHnMV7iJ6bVUqOBWWihnH4vygxdcFXOCyr+wF3ss3sskEvP9t KsQz/EXdYNx8tuDAR+zf2wppGYfXN0IKH4HNTgH335XbQfGdVBMcOHDA26kP 98e+ZJdzLPIEsBRrEN4TgfsHLb6Ya/cvI812cLZZ22nvi/trAt87liEWAlQP Bv9UWIz7i2t/vuDF/W2wQ4fFmo0ey/tu3nMi8Xst8AnQe51hxPtTXL0ogb2m EU6oqTyM4sa8NCbDf9FII7AVvWjwMMPzB/3SZ55W1GZI8lA6Y78e2zcTKKGg ml4GkiWde3XW4voR7F5Wsae9CO6Mj7FMGS7wPrV/C8GJtwIYJX9uM0rD9Y+9 RPUHX2gx2K7McS89iuVp8QO73u95P/IJWAUmZhUv4vwc7XF+fby3EB6f0Hvk t8D7+YbpaXpdYhH4nrQ+osm3wP2CW8V5hVglmBwXWnGeB3NNUUnXBs8iYLV8 os84gPtH4+xjRtsHpRAzkHOb7jOW52dwcRnyLwSyCFd84iW8P1La4MzA6SpY rxDvWtyPeULcdAOf8Bc4HKL+8c0pfH78tv7oMV9NBFElgzOeo3j+WQ63yh+f IkPtr7I1gX0LnH/5lbZMX0gwIxY95pCMedbs4bMvBTvg2wHl1RW8eP+0OEfr lxdZVR3QTB2e7tfB/rl4hP9bOKUD2sXclJ0vY85KIaxe8pgISuvPsNFZLPD+ aMy+skCsAyZDnD0s2bD9W4qDviVn1sLn2yaf7CIxV9R5t32d1kcQujRDZCrD 9Qcu3n++SaMC7lmoMB/7iO2jxa8eEF+bmlUCtbIMmZD779w6tvqtQPcnEGh3 PLTGFecHLW6lYWAbZZwFqo2aEd824v6mfTHKfCN/AfhwB9K7+eH+Wk9stek2 ygZpood/0278fkWLdziejFPcFA1nF3H0lTvi/K3i675faO0Eg3LNV7kkMSdu ZZ96mPUa5DdoSBgzY67bvaTwiUIivNuo9MJ4K46fsPU293ZqCvworLMzN8Zc faJIIJulEhh5qFqzN7H//Uy9NT/XV4J1EVnI6RnOn2tkWcGSmXxIvWARKvrh 33k7633nG5vy4IjzrO3an5jby7ywGDUugkNtT6mjZtg+YRNR230u8cDqxv/F XB/H90DtQN3WRdXQZd0ksswYnx+PTCGWNVzl0KK8aFJ0Bdb/6NW6jMezc/n5 k7vHNB7LCyRUUn56lAPpfDHBPPffeXQvcR2FNw+Uwq2U+Rd4P5J0Mu8n+mbD mpD9hLuS2L7Yld7TX5Z+hKYrT2u+qWIuJXWza8edIuDQvpIi4Yzz5w793qJC wmdoen5HYrEk9t/NZOXgHXP+X/npzaHkCaz/vUvlOsOaN6AiohO5kx3Hj92k QJb3Vw6I+m2sT1DGXG+vu/hSQiKcHWv+LLcbrz/WvW75K0Iu7HVzXqp/Fp9P u9zN8S9UIuDobUOyXhh+X4ls+mHm3p4ArMzHgmKe4fyf/+V8+VVG6V3/znXv hj1M93sMxfT7Pkr7YF68ui+vLsIXzELFXiaO4/cvVo99QUbWLnD+cN+k6m0s H6P266p7Zj4E3Bq6wGmD5ftjpeX9PySBjmy7yPrPmC991rZa1iER7hT97N30 Hvun6G55RXL2aygNe+Cs6Y3l5395ql2z8Vkxjg8tfk71vX7DvhewxbZJ1l8L x89vpni5i80zqKzNt9Jegu2bUZ3mojLHg+uQQ5fw0v+9/kWi2vUbC8TX6/aH mxGj0ZBya93t1AW45z2Nk2nawTBI8LyWo4t5u3XZvraNcbCzsN/4ZDL2j7FK 0DluhsC5+XFCMaoF27dO52h3vXk2hJ1ZPn5Qb4Hvv9Dgp1p+nVF9XwkieT8T NQRx/aDF7/J+lhcuLQarikoNbqEF7kcrzNifbK6ES0kvf9UG4vP9dfdm7WrP ZFi7g21qaxaeb2lxvalTkU71hRBUs7RH5wN+n0gz0/OcWl4AtqvcvRwfYHn7 oDYu92cfwGXFsUd6lZhrfX2188WOcsjIMmS/QIf31xueH/t8VQk8VUotO5eL 5WNX9OcdDCgCzRs+xzYsML/R4s09i2a7T7WAzenVyQk35z8fGvn98yjnJwZ9 iypYuzh5yOfV/P2HTX6eF4e2S9s71UCQsXtAU9P8/YXpN3fTr1nGEtACDvWb r/p+q/2P8/zmj/lIn8QfNIOUxnj9bGbqf1zgN//Ok652SZIIFou+GIY6Z/7H N/3mJRxToXGmzSCt+InjtFPQf5zvN7/mPnk6qfALXOA4bTd4IAdxAT6fpg9R BFBX1PNaNlmD1s/hYqye1O2AafslHvmquYgXlu6R+3KOAO93DXwVYapA+uVi PMeWfw2H94ZfpYxq3yH7dWwMsjmWtP4Vlz9c7jvZdNi1HmbOXfDV8EtB+rdv 4al/qd4MWwWm6JNCi5B+Jo5CQcvGBpBeXWPpVVGBeIFYa7fZbBOQLtb1pyib oPjlZ34zlw5rBOmJ9x4/433n7fzNa84LGrweqANRAffjDnYRiOsxmC9zZ+gA S4/p8Eu3C9D6SplNKysCKyG9wkC6mjUN8RATMsOWc51gPSUg+bAlD/n/wVMS g59bA/jISPLQry5H/LU3k1pqNwEWh9+1CT+chPiuRM/vGlxEiL41Lp3PV4bW P8Ts0+N0oRleJ1flNuaVInmmHOeKCs92uGTU8UHqZ8l/nPM3X2d6IuPdw1Zg 5zjeX6FXheSFz3tWVNk2w8t9RVYrtpUieWnqrc82qWSI+ma4YvjuB3R+jmn5 VGY2kcDZIIRjuK8C8dShrAv1H2ugInd/VJPQvP/Zf3MSoa4nMLAWLOy68k21 k1D8AkWeTW6jr4Mzhqx5B9iLkf7AReGKkXqfQeo2o1KsZAnyn3okc1CnAREc lhaIuJlg+1atEp7kS6oFm30h7kX3qhF3snEPNtnZAD11Lh+ED0Qj+x4pvz2l WNsBXZ/PaR/MScL6vf0mLg0PAr+T0rtVS/H9xppnyl/35xAcbhvefjjt37m4 h6M5ZAzDI2nuwx2peD7Q4ic2blAYAslitZgcX/z5e+ztc+fK5+xbd1BaJdZ3 EPHMrCtNl0WHIGk8dbHANJa/cH8rxzO7YVh6WsU73guvP++HtSe9v5+ywPaP WBIffM0dhlA528+EMTw/nDjXeS3ZbRgcIlOqb3/A9sER+ySWiSGI6DXxH7mE 7aPFa26GTMZ/GoJplyWZAwt8/rTsB31PssowvJg2GFfUwfeLa6ayL6nfhqBc /IEY8SzunwEPQh3Cg4eh01XT+00l1s9dNtb/c/cgnHSf9I7Tw/ppcc9W/VCO XcMwEjS0XVsH+29zRPPYM+NB+KLEqpeZg+WlXHYIXOUfhCLTs2OK1/+dC2mm 2TmFD8LZ2ybcTCH4fkRHX0HlnR2AVi3Lfd0pWL6st8Ryxq4FqBdcRetdrNH5 3WxwrI/FtOZvObr/X+6jvFjGgb8eVDtGJeH63++XIxCX7Kv37kwTCIketX/4 4e/3rxFgaLG9uW9RHTiukwnr65mP75/5JMXErmBofw2k9oTsyOr+e74ZAfsz wGt6mgB2dC32Vg2/4/97fy6VIjwpw/UgOmR2VCy4F/EitcJXvf2N8OSWFuuB ivn560//XS9c2XEqgQjPpT50lXf+nX+0eYjFQ5bCmCbQYSZJvdKYt/9P/Q95 miw3TWyGpGvm9R6N8/xPf9ZS+vLC5GoL5Ppm0LefnI/vn/lsY21eud/advAm Tjxc/Pv94Y//3ljx3P/S2AIbml9yEfd3IfnDrVsuVG0hQR2L190DRhTElzzs vNqdQYZSdndhk9y/7w+0+WK+KN7TcTVQJNb1YdYF+2dWybZOJrYZ+MJYtrfV dKD9f+pk2gwWDRBD+GVvWtuJeHNbNIPRYA288Vj1mK66C+3/0xPD0NK5+UXO csuL04swt+Rfra4WUAOOz9ySwt91Ik606/O1jvsCSwI6BY1UuhGvDSKblAq1 Qeyk7PrPgb3IPkXV7Sn3x9qhfMXG0ObmLsQJTPfTG6EZlh9UjkoexHxa2uJe jn4HCHDtXl4iP6//T38XCgwjTqxrBBaLC3T5W/sQ925q3l7H3gKtix3tVjZ2 I/69dO8Nx9WtUNbNq7JacX79P/1V/fKa5Spx7eDo6XWI7XUXyl/hC3YiF9Ma YUOUoL/uDSqyv9G3tP4YiQAyWYReBjsK4s5C34eCmqqgtP/n4XB/nL933u2v VntTAdwXYpubHuH8ocV3jKt/z2hpgNS4788KY3F9qBqZXlq3hgRWhbv6Vjr2 ofUjdYOaupxJcId49rLGIOaND+QYKubm05JV68P2J2L/1z4gFrGo1kF3i1KC 6Jq/v185AnlsLmvUsonQz5S5nNf57/o9AqJO32+6y1bBjjy5DTbePUh/WK/A 9H61mrlzksXf29uF9seuE2DKdKMG2o/fj2O+h89Ph8wNt7q9BGAue6OeqNaJ 5OM/PvSUT2kF5e6D586lkxCvvzR1pt2WCKXP26bo0fefaXO647yaPtQ28C7I 0VWJwPXvkk7b+CYbElRLeE/OxOD5c13e2iy3m1QgWO5dxOhIRPFZ0p4cUQVf 4Lkqa4haxmPUH5dqyySPebQCp5fElTxz/PkkLf75xNdhP2YSyCa6Tw544+/H cKioDDozEuHeQ7e1s4sxvyvLxrfocgvw2d/x7UnDn29GH3y9zfBmOxw+Mn1X rR1/vriR0dTx+AsCZFu08jCXY3m6i1lfGXrb4fuq6LATnJhPvZDY2rGUCMYV zzsUlLF+Wny1P/unxU0UKPPmdHvq14LiJ/peVJHpZTeIc/StI70lo/hYVVEp q5MGwVyD+YkZ+nxkrj48DhGypXZAgAS9yWhWH9JfaCUmPEDXAT43dsqWuvag /Owv+CV55AMZpgOtW58r/P1+R5tv2aMQLygwAPwV1Uuy8ufr75/5YJVCfV+7 yBAwnfK3eBCB+x8tfjeBVcRKtg4ayvaOrr/Rj+wvyraKFT1UDUs4t3ke+73/ P1yTjdkl+205qJM7NB4t+3v+HgHtulvButmfQefVbEDeDuxfWvzhHtYhvpB6 EOavZZARHUTrT+mqCwop1oGmd2VRSRG2L/BG+b5niqXwlcL+HsT/vl+MgCoM aIY2FkNaZdi+nQl/329GILf6oIKKcynkcF8U6SrAPDuToyPKogT6Je9OGjP+ ff+Z618e5zeRZz5CuaQfgT1lEOUf2+ZovgaZEni0O6T3FGkY8TrP7ynHQjPR v8//FGGL3tpVUQ0BQYqJO6/h+k5ti2Hbv7sObqxVKxr7htd/X/AhJD2tDgw2 HPrmmDCM8tumWuKd0Jbav+T+6H85eUBIS74OqmOGyyQM8Pq0+JnE+zLX71RC y7uLNdJi8/b9mf8eCQY7Kq+uhp319nUqsTh+IzGClZfWEEB7l2jHWFQP2t+h aq5dUWvbYP8uI3nVTtw/vUyirXMuESAnIWBT5nA3yh/L2Wofp8w2IMzyHq8O m7d/028+pGr/bPFkM4SbK7xQcR1C3PmE5sWKIxRwqH3KFLBtPj/+zC83q8+Y aiztAMOXkd82Lcf2nW9MuPbJswHe6q2KeLAKyxPfbNyxjNwOZ7ML105F9SH/ JbfAHeHHVCCpmgW6fsH1hZ/7VO6wXCsYyG6biHrTg+Iv5Xeo9HNyIwi+fWhG repGXAw60i2cOkBcynykwxuf3z2+qQrVjW0QeoCszU2dt//P/FAkc777qEc7 9A62Pm8tw/FvP7foZBFLBwhbu09eysD7c3eiOx51swFG7beeYZOdr49/5keu +0GsfoqdwCH9a9eX6D7kP2s+/lrFTyTQTt4Q9IkRzy8rmAtmjju0wvcHT6u7 kvH6LUe3MIvkt4OIa6AewyCezxvY66n60mRw7YxQlJvB+aX+RoQ7qbgV2J8z syZy4fuhkQMLj5p4F9wxmc3jVBxE+5uwnFgfeKIV7I+Xvr61HMfv2WDRnas7 2+DoRcGAVZV4/nq1JcimgtoCO9MP79WUxvcH6Vd9ew1PN0NtdnMjQRTbf/nK zV+Mvi2wl0WoQOH0EIrv02ux97bUkeBax/OVQ6J4fhzf9INaQzd3/3uiHmM1 he9HA97aZbZ2bVB+6WJCxVQP8v8oo70xryBpro7tb2/hxf4/sjOEJ5SeBKa+ 8HjWpRdxVZsi8buyHRDuv8XoxL1+xGOvWXtPZhHB7H5WleId3F9iPSc8NAMp 4HrWIKIs7+/Pp2hzSaFU1mdtc/Xheti1czf/ft+Zux+U3bhz7QIZIvn23mKf wPVtvMyWt0WdCO5FAX2TB/H5MimQuUJ4UAf08VEi5l+Hkf0X3oo2OeuQwboj brOlCb5/2mRyBrdxkCHXhY9OnhHPD33m/ilabh1QsC2BizEF27dEKbc/51IN 7I5XL/BTw/ORIsnx40P/JnDe326mI9aP8i9cRpex6nUdlOle535v2YX2Z72W /rLX13KwiswuVi/F+bsrrpeT/UQVhKZzR41dxfPbFSP1ePH7rbBeNCf67BNc v6mDMjkVqh0gv/OXRtV1fD5T+vVqwq0owDf92D7dHsePFrfQj+W7yEgBmddX +8cuYb493U9/lTcZDLToYy5W/f3+RpunxXcbBmR3AFuqOYfNXuy/OplGVsnH BPCPvD95NhSfn/Ent5gqpBrg9v7T3c2O+H4Z3fVIYEihFTIyq3bZPRlEXH2N vSIvdxPc/JjLzK8+798/9Ut+c2JlhRwJmOhcNkV74f7i/ux+OOkmCWbfe+n7 ZuL6kJGqVazn1QHL2eh3sr7qR/pZXN32D80QYMBHZ0TpI9bv5NdmtIqlBepT faUUSnD9L/je/TV2aq7/VZQlpMTi/P3x8oNVemsjiM3eviunjPuDz7vwLk6H ZhBgI6RlseHzlz4kJzy6lAyG0ry5K5vm/fOnP4XJX8389aIGljNRph8ux/PZ FI/hE/etjbAo/nmPpUk/yt+Vdnu3p82SoM+UZ3qRQy+yb3ON2A7Dt3P3i6/O vRFW+HzT4nV2Xxtz6vugQbGY2XkQx6dQcMLWg3sAosKaizv78PuHvxNj2Exp D7RW31OQ9sDvJ7S4V1fYvsHmHljhRJ8QnYXjV6wQxXuU0gOuj8jOnej/pxiB /wO5kuwR "]}, ControlType -> None}, " ", Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]}, "Options" :> { AutorunSequencing -> {3}, TrackedSymbols :> {$CellContext`moving$$, $CellContext`ag$$}, SynchronousUpdating -> True, ControlPlacement -> Left}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{646., {212., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`updateAgents[ Pattern[$CellContext`agents, Blank[]], Pattern[$CellContext`rabbitGrowthRate, Blank[]], Pattern[$CellContext`rabbitMobility, Blank[]], Pattern[$CellContext`foxGrowthRate, Blank[]], Pattern[$CellContext`foxMobility, Blank[]], Pattern[$CellContext`foxEndurance, Blank[]]] := Module[{$CellContext`foxPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbitPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`nearestFoxes = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`dummyPoint]], \ $CellContext`nearestRabbits = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyPoint]], \ $CellContext`i, $CellContext`nextLocation, $CellContext`survivors}, Developer`ToPackedArray[ (Flatten[#, 1]& )[ Table[$CellContext`survivors = {}; $CellContext`nextLocation = Part[$CellContext`agents, $CellContext`i, {1, 2}] + If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, RandomReal[{-$CellContext`rabbitMobility, \ $CellContext`rabbitMobility}, 2], RandomReal[{-$CellContext`foxMobility, \ $CellContext`foxMobility}, 2]]; $CellContext`nextLocation = Clip[$CellContext`nextLocation, {0., 1.}]; If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, If[Norm[Part[ $CellContext`nearestFoxes[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Rabbit}]}; If[RandomReal[] < $CellContext`rabbitGrowthRate ( 1. - $CellContext`rabbitPop/$CellContext`maxRabbits), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, { 0., $CellContext`Rabbit}]]]; Null], If[Norm[Part[ $CellContext`nearestRabbits[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, If[ Part[$CellContext`agents, $CellContext`i, 3] < $CellContext`foxEndurance, $CellContext`survivors = { Join[$CellContext`nextLocation, { Part[$CellContext`agents, $CellContext`i, 3] + 1., $CellContext`Fox}]}; Null], $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Fox}]}; If[RandomReal[] < $CellContext`foxGrowthRate ( 1. - $CellContext`foxPop/$CellContext`maxFoxes), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, {0., $CellContext`Fox}]]]; Null]]; $CellContext`survivors, {$CellContext`i, Length[$CellContext`agents]}]]]], $CellContext`Fox = 1., $CellContext`Rabbit = 2., $CellContext`dummyPoint = {-1., -1.}, $CellContext`maxRabbits = 500., $CellContext`maxFoxes = 500., $CellContext`visualize[ Pattern[$CellContext`agents, Blank[]]] := Module[{$CellContext`foxes = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbits = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyList = \ {$CellContext`dummyPoint}}, Show[ Graphics[{ AbsolutePointSize[10], RGBColor[0.9, 0.42, 0.17], Point[ If[$CellContext`foxes == {}, $CellContext`dummyList, \ $CellContext`foxes]]}], Graphics[{ AbsolutePointSize[10], RGBColor[0.48, 0.11, 0.56], Point[ If[$CellContext`rabbits == {}, $CellContext`dummyList, \ $CellContext`rabbits]]}], ImageSize -> {375, 375}, AspectRatio -> Automatic, Frame -> False, Axes -> False, PlotRange -> {{0, 1}, {0, 1}}]], Attributes[PlotRange] = {ReadProtected}, $CellContext`initialAgents[] := Developer`ToPackedArray[ Table[ Join[ RandomReal[{0, 1}, 2], {0., If[RandomReal[] < 0.1, $CellContext`Fox, $CellContext`Rabbit]}], { 100}]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->209586524] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ag$$ = CompressedData[" 1:eJyVm3k8FVr06EUiKSFjSYQIIVEyLCmNVFIZIkPJmDnKLVKZioRkSCIpFJnn OfM8z7Njds5BMqfX+/xe937eXb3P/bz+6JxP39baa09r2HsfHkOrS0aUFBQU h379tfHXJ7/1VpFZvwFotot012UZBor/+49i5zNt7gexQ5D3VUswjGIE8ZRj XPXVycOgniLGmNo1hPiF296RG7KHwKaZJ/TIy1HEezZnFElqfIW4U6ejv3X3 ID7eFFS04VoFuLVxkWsSuzGXYg1rEyqFsjn2OlXtXsSZquQYJcmFkCJ78HjQ Vaz/aaWDr5tSGdSureTGTHciXtMlPdgtUgl7Et8KDn/tQvyi76yt7OEyKJ+q ULTmw/bVBcqoFJfWwMHM0zwT2VjewOgH6YtnFviN2HwQ8WlF/MlMzXzVTCZo BmR6aa5i+1oul6d7zmeA2WqOfMAK5hSm24PtYsnw1iCP0bqMiLjemHfPk11k cHzHWsCoOI3tX8pi31VPBJaocyr72DAvv5I6WxpCBPGnLVqNQVj/NZeFrG/+ JNj08zWlz2bMl4V0lZUPEOEn90d5HUfMhXnLlQb2EKGbuuJa+jrmRlcNRXrJ JLjn8V2c3DeFON9pP8a0tAlQfkvkqfCtRTwoLUgrq3caqBxJI0v5A3h9OdnW Mi1PQ4jH5H0FVcw1G2TsUu1IEHoj770fDV7/4qk9b0+6kiBS8EPXB3rMPStq 9xUrkSGx0b42bRrzNvptNOkLJDD3L4qyp8P7k83ZllaPlwSZ77PcGR2wPH8+ We9e1xR4qowsUvNj+WvWYQ5/nSQDs8JfsUWTg4h7fIP916Om4XmjbgDRFOvf sY+4ShE9DXHc/EQ9KcyNNj2ZW/pIBK/gl4Mtslj/iqn+PWPHadANfrOo3oi5 WVpY2NPbU7DGnX6LvwXb3zrGuzd2YQrC6VQEvxjh9mkO9n28xkqEkb54EdlN WD5Tt430gG8IlqLurd/jz0N88Uz6jh3hgzCm7iU0GBqBeIZo3a2UfAI8MP50 slDUB/HvDaPOpjJDQK0rwcrokIi4ECftVbPLg7B7S+2TreLpeH8VHN6lEDUI 1txbX4isfEa8IsTC6+6tAdh00eG97dtCxLeYnG436R4Eg+cCNeeP5SLuekhv +ynqAajYYXbkphiWp9wnusY32wViPN/lTnaQEe890jE6MDcC+VcnWeYgE/HQ V3pTr8ij8CZU2cc6qBLxzVI0YlpNI8Au8GFTwfMiPH7D5ZSOG0YgbIubWoQh tr9G8a1z2xUy5G3eKaf2phzP381N688syLB9jW6DfXAOHt/42A8BTVMgwNFu 8eFwM+K8gQFFJktdUH99/OfaDPbvLrlnuOdDu0Bng1VFjCOOP3kTGffeVHRA D7ncupi6BfdPnk3V6XMB7K/Z0Sz4rgzx/m4aYX9ogPT4RZFzlnWI6zulaC0P NYLNepAtHXUf4gN0fCbBo7UwG0KjyqOF44vRQxeNktY28Ek4puOnMYl48LBx iEl7PyTQMWw+nIT9K22Z1198Hwjw9pWTx+I+7B+zZgNc3HlGYXr/GVZmXzw+ O4zeHW7LGAXdieZViqSx/8Nn/v7ksz0+y509CpnG+Vpcz3/nDzsUf3PVa6cU p56PATGlN0kwZhzxxZgvBw54jsHp/IHjO7sxn37C3KLBOQo8kh1b9eh/93/P 39x8bzVI0/6y60y9WsDg7/yH/W8uXJ4qdKf/l3z39hNFLWOItz14TszcPgHV AZEqYXt+c76/ucFP4Xd8SkRQc16V6Xz6u3+8f/PimsBjKpfHYZtlbXBsIZbX nBRb1NeZgP51QaclrknEU0x44uq2t4BDwsbC5WK8vlPYC/olWmtA8HE9/aHG dsTPSLy0blGpgwG9jSMcoW04vqlfFy6Ob4Dl6zHeV0WrEX8/sV9mpb0cBAL3 x1xvwuvvBael98nIWrh5vspdkQnbxxQ5KG6lUA2bT5qysKvj9d9V2DThYFcF bY45ckLaTXj/f6pcPL7WAAQGN52/HjYgLqdqfl3Nrgm8lthLWC2xvPqW0Ogg lWHodGKrGmDA+6vZImq4LYsA4q0eM4kncX53f+eTxpuvCXDFtM6HWg9zVZ1p Yt7TQbiYIOtd+hHvH74z1+ZmWJshS+noh8ivJTh/yUxWr6Kph4Xos2rrucWI C0wce5FqUAtS+2mFXg2WIp6m4Vmr4NEGDNGD7+/ercLx8755yqhvGzzQEO4Q WsTt74zlWAgbaAXbNPLcBVXMM2ke+O9obIKQL0F3f7Ri/88zUFLJfLAJRv86 MGIki+3T3dXITP2wBerIZ4bjsnF8zt3wujgrtBVCPtK6JipmIF556FOWYm4N 8IQZ7Ii9n484x/so4Ys2rbA1ZlNpwjW8ftezbz2TO9UEjQ4hfgQz7J+dG5vC 5fWrYW3C9enPjbh/tDdVLoa41IPGE9mD9tIViL/0vs1aE9MEEW+J33bn4fjF HpfPrKbcBIbXQuu2R+P2QziXb2i9bgKus4u5G9tx/rTn4HGJPWENkMhd4tni 84f8tA5sjfUaQVlIqkRVC6+/nQYPN7BUEaDUTmz3wtjv9v/xj01jOw7EGxCA frGhivvbb/v/8a9fPA/f3OBCAB81r2iHmt/jQ/s3X6fYpGPVTwAJt+qjdj8x DxDZ/LppOwF4rwofqyz4zbf/zSd32TSEMhBghWOfCoGpBslzDJtu6/tKADPd mxBAX4W4SFDKB9MQArxb4v+YzVeK9NP2g5vy0giI7Kwapn/7u///xKdVwasW 98VHoZx2I9vstn/vn1/jw/41nqt4BF7ITWQfSfz3+p4BbaoLi0e3j8DxyJIf cen/3r//zXfdLPYaVhmFwkN8Ak8ry5F92Um1PnGbRmE/kwlVYH4jig/0rIbP bajGIVQ9QvHN+r/9+3/zG3nbpZd+xaXwy26OSbcxPyNanCpxcBL4usyfZ/U0 Ifv0b3xtPXlyEuwDPuZ+isf84I2Yza/uTgDTGdu8TxZNaH4oJXh3XVfvge8l 8SWH3P6dn/033/HmQTQ1ez/o3JTfq6jRgda3Vs99okLPMDzjlMy3SehB7YdO zu1X0hyChxubkuiG+9D6+shyW/FJxxC4m7gf5ZPqR7zsxBXqmzbDoB2SG5fZ 3Ynmx31a4KoVWx+41+wJFDP49/78b15PXxKpyd0PWl9par36//+50BjfW1Gj LGiPNdybqZ6K/MOSXWjtYkcurK5sV++0wPWDe+AyZaVLEfALyXfcU8X5u/DR TAO26Fw4Zf2gausbHL865reGbFUPhI4Kz53sx9IQ//2F7sLcectGLO/l+f7Z G6FC2Ed/lyn4YDL2b8KRM99X0iDK66D5e+YkxAvzDsa6iYeD2BH5mzFof1Mo Ws+tsAVPJoJiSL5xjnwN4rTNde5F80m/4muv17vz+PyhU+z65btf84Ay7NGt jcw4PnGyPWxKG8+C/vtKeSbb8PhqZ0d5ckMu8Cae8+YOw/VljMS7s5mpGSB6 hDfna+EnxGc2KavnCyZDdTjFh2SzFMRNaipP7Xn+Hryttjzu2pCN40vZJd/x xHTQ3kVx5fYxN8Q9hy2SH0/kwpbWT3X2fXGIb9PIyrtLnwoOst/zfszg853a RN2Dh+mK4WWX7aZqDlx/erKEBAlKF4CvfkV6QCLm0TS2D48UpoPEMd87V8Mx p4yI/ywnnAWTBWubXAow1/+obm2pWQ1xVXS5ti/HEOd1OjU1dLUcLqr5tyqf w+ebnN7JE+oH6+FzYRatoifmZUM25H2nK4GKGCFz0x3rrxNJGXR6UAb22dJW J8/i/CpBsOzG1pgKqJ4yf5oVgte/4w9D+YTaRlD1ufpCrwVziSr5UBpCM4yL uKcuLn9F/IqhR0pKdQ2c5rvwxb0X5yer4vrPj1+sgRXZAtGnMnh/a43Md9He q4Pq5PV7OfK4vp+7PBodMtwExFtLTaZ/WN95WTNsQdINoPaGSfr9I5z/hJb2 eK7QNYI64+kvj89i/ojKyZrnZjVs7Dbg8yrG+eU0T7nLhTutcD+WVioecP4X o7WNZ7G2CZbj1l/5S2P7z4kzinGRG4DNXShk4RrO//gf7007vKsJBqkOeEg7 Yv22NuzfvcMrQTMq2ockgcd3DwffxnqpKmCcF8giDf+hf887XMgpDXAv4Jq4 vzxuX7m95F14SQMMcS+uny7A8y8/qRelEN0OPtLxXd1hHYjTD6S/5mHqAlWt D91P9DHnMG3XTGFogdalR8slLTh/JGkqmhcdbYVmGudrxCBcP9HGn1G4TkeA 1yLN7ZL++HxhKwvJ1qJ+GCZmd301FcRcMpCXQ/7cMAjpW5Kb5TDXOtugTBs7 DCye+RxHovD5Bi3rZIHY7WEYo/HdEVCDOevU+smuzgHg9HalGZjA/snDPntk duMQRB/I41kJxO0PNxHoljJHYPtP3em3T7B/EaRk60pQCgIK5t7WDMcJxHMa Fc3b3nyEhbmALpUMzNs5+jqFnKuBM49d96Q7Xh/miacEJMTHge2woNitHnz/ kT6ur+DbNQY3+tL8LwXi+pQxcVwifn4aaPoDxuV68fyLZd4OjGGdhisVLkoS x/H5GINwuJ7O5BSUpH48NFqKefrsftY9HpPQe7bpqNMJfL7QX10yYXNhGly6 5p4mRWL7g8UzDg+mEuG85mWDwFCs3/dreJJX8SQIX2fJ8d2P70fUnolraRMm gYF/zs/JHPfvXfk73wL6aWiaaLsnF4TtM7Jz4WV5OgEqQjrhbEa4feY+YqbQ oz5QetFDzXAMz99T8h2d/tw+EGxcGml0HEfc8hhj+AW7QVgs0711IgXHD0rG Zrf5X/vuHIud1X5HzCdzM6k/SfbDhTUT40clWD9ZhosqNbIDXHsj41vz8f2e v3q+3K3RAeD4dLBq+2W8vh/ah60WZgwAQ9zUvHwK5h7DNlrkM1OwNzQd2I3x +Y6Ogv7uPMlJSK56sFM2FedHZ5O2fsy2JYLQ4ZX+98frcX4X0/jNevMkVCWY fbVB9ccv/6PAIiH0fRKYfIS/6Lrj81do3JcaNTUOwv0XKXd24/r5vsz9EXaD CZD98fKZ5zlcP1O6g2r24ATQjSupPVUl4Pl9X7piOz4BkzIy8y9G8f3D8SIL xitqE2Buw56q1I75+K3PVzh/+a3F9kFZo+4/nD+Hk475uU9B3qmYFadq7F8V vSj217IS4d1elT0fb/zh/pLhcrap+RTwaAt3Sgpj/UbnvRlkDCeANYI+/3gM 3h8iH9TNBo70gCilTu70dbz+Zk2nv9Xq98Ih26efLkTi/OZtILNU0tUukGUm ddmWYV7kelHheUIXFF9RD86Zx+vzzgersqfz3fBJ1tyffQS338GRQ9z2sg/k DV4K9m3A+smTbyQjazrhiqro1i+hWN6ylqptLKsDnjGIcqdS4/jQNTqxefw+ Ca5GW9wmhOH8okJ/Z+6eODJs1bFezhnA+Q19dRbJKo0MfElG6SQCzu+gZ0xy bWoSwrIiNIve4PrF5B13oNuzSfi8Rs4QmsXc2GkrtydxCipflVJ1bcH5Xfix d2TdeBI8P9qUaPYN219/q/PbfWoiuHvGTbK2YftcE1UoRkxJYEq3rnA+DfsX fYtuqgRnMoTe6JWqu47932L8/Z4mBxJYmR1juCOK+YRfdhC/HAkO3hVakTPG 47/b4W6/AYEM3p4ynacbsXyQQEfuV4tf7c8fMZMuxvb1rG/OlwshQ8ne4rhX s3h9eDnKLJ4wJINSCadHmyfWPy4xwVGySobs/cxTQ5uxPJWM9AS5kQz18V2b CPWY7772dmlrAxEGnPyoGLfh/vUQjO8b3iCD0GtDa5EU3L5ba9UXjREipAco XNx+Act/ML4lR8VCBuuC2BSpBdz+/kMgcMCeDMKcljofvuPx+Z+PGbj7vVPC NgZzk5urcWsXydC6W/zc8QnMDzATFCjayGCXlW1lYIq5bYV50W3GbjgTtBzl FI7jB3XYHvq5iA7g2vFBSLAS92/5Ha1zr9M0xL+I4WOIxfXrOUu+tZwDE2AU 0CXieTUW8XydixkjvNNAeHhYL7sO3w/e3uBdzz88CdQPjNsuTuL615v9BHnd jghTS4YG+WvRiH8JeOQcbjYN97/Zi3emh2L98+PsO9/+al9v17ddbq44viiw BEmLT0NwkE3dlgRsX3jBy2iNc5NgslMo+EE75nyfjyiz/Iq/+seOusQY4/OF IO28aVkVIuy9kFyndD0e8ccP9B6eVSMCVexU24szCYifFIyIEq2dgqHTL9gS /fD9L1+8TbuYMBFOEnVbR7Zh/3Q+O653rRG9K/mb11/XsNowPg0pmRovg/fh 9vc475sO/zoNJXcMNYnT+Hwosz2b1zVpCoS29x63AVyf/BfflyB4p8GvFQy5 WLt0o/sRLw5vCFAkdoJGY1B46zF8v/lw6hKDuk835FtG7nRrwvmF/32RA3ud W+FVx87GQz6Yp+Zr0pNiOyFH53qtgQDm//MxA0mHA4YWvHB8fM7Cb0dhTwKx KKvSSTfMPV0rr3F5kaHSeXdXJTP2D48kgnvaG3/5pzNJgh+24/0rFF58MOY9 GXS1Zfa+TsTx0+1pwJcpIIH9tvmwTnPMz4W9jPh4lAzNxitdiraYVzW3Um2h I0HZE00q8fPYfpUkr4qun0TgsZeVOtqE8y9OUcNdz5jJQDOwupvrDdZfHVds HNlPhpNN/vVOrH/ITzQc/iIUkWF++obc+h0sHxFYdPRqLxECNbwUtxbj9se0 uR99/uX/C2qXKt3tMF/YcpkqqpEE3t6m6p1/yL8/2xKDnDNDwdVJ4cLHCJwf GrkUjEd5v4XQU+eDGhmxfYzx3Q00idngl5xKczkXt7/emMyknp4BjruHi2Zb Mfen8uDuiUkFehd7pqGfWD8tE6/mWkYjXDL0UGIqxvlBf51w8LZzbWBBIaub /AafnxL7FAqG1JugT/iDmVEp9p/pLW0ND5yaYG31juYRF5yfuCX6PP8x1Aoc VwhVzckFiJfnWuoXOo+BmTFZl0UI14/vXyn51zweheg2lk1vi/D9t+ANAv/Z V+Owc/o7pzUPzo8pRvxy5PaOg35jJ0eyCt7/lkfAbN/EGDxIDhSiS/qD/rhT VBuPjEHX/EMD3SjsX76IHWbxpB4H7bPxiln5OL9nyE59q+gzDk1n1bQFNLC8 /apk+5vZESjcvis+lB73f+zWqgWd3AQ0/dW8V94S92+325E9uyUmoNv3PpUJ K66fdwkuvTFLGgOReyTpg3O4/prJ0Rh+8m0cnvzVbnQ0BbdvfyWGjpIwAR35 pWnz1JjXqvJm+p1Ihk7frE8LNln/D/9HQfFJLviAfDq+XyUqQ2RF2QvIEZlR ufcIx7/fX+itnFbr9mH9VXeHnzQIPgMt+3OmRw9g+XOv2ij9z+fBvGiZy5wU Xp/5kt0dK6s5kELBuVprhvfH7y9L9bc3uObh/aHQcbVeaTISKK57sG06jfu3 92S7v4JGNMwxHtEYvoL1M1GLEAc802CK9GC9rgTnL40hH69YsSeB99RmvbPn 8PmmCBdrXUHqR8iP3MHr24frl1WH4xyXaOOhovVKfJ00Hr9QP8JE5BUHyHj0 XmzIE4+PoHlzWumvvJWrhjnldBCOv+dbpT/bMU1AyLTtQFwLjn/mwcS6i0tj MH5Rwzo0GNfnAxrDJ27Rj8EX7QDHvXcwF+wdHBZmGIPAR/r2737+4f78odW9 R4bj4KRZIUZ/EXOtQ2KiPpVj8LqqQSBIBPOTOhEjArRjUBOcOj9wFbffvlW4 d0fIAOy+QOpeyMfzF0/jqPbBgghE5nHZESos7+cjOLTNkgzMvvF1N9sx3/lJ 612fChnu6K37ctVh+yzTVTzuRJNhOkfZkfYZ9v+XOXUdM75MQ0aivNTlERx/ 7E1/DL88RAZHNhanwodY/n8+ZiA53v7N7HbMof8yZYwhCUq7z3n8SMb2KdA4 agr8iv9sCnRle3mwvCN1Ue7AARKceMQqVS2B7dv9abxIqKgQviYzCkm9wPmp W8X3Og67Mih7mzUftQnf/yV+DI1j5M+Gta6EXVoboxD3Id+SEP9WDGvnw7d0 //UF9y/x9bbAiBLIvF159DsJ+4/FCfGfNqkZsFmWTpeqBt+vWkd4f93QVwZH b/Har4vi/JfFWP/KW6pCOGRdz/pqHJ/vv2eOIbBLFUKSC/lnJQm/j5Hz5aY4 mlsC1LR+FwrT8PvTBr5To/w3BsGAmbouSx6vr3RXksnm04Pgb0I9OGuCeav5 7e+RF4fgkD7F8r4CPL8HgmcElDQJUNlcTo7Rw/u/t+slZZMHAaz2ZfHHCeD8 qJaN73shxTAoLlkk5PHh9XFW426wkM0AyHKMUeRtxZw7xSrQ8tYwLL6m4Vty wbzoW97+8CcD4ECXnp0hhPtnPZuwXalmAGp6w7hqH2P7n9OrLc8rDoJrsjU1 WzDmWlGqlTRRA8BRU1qS9hbr7zwUlKejNghFi1QZ4vGYTwtx2tjlDkNtQk5k 0UVs/wlpwVv+5QOQbDPgUSyIxy/7lH5ss8kwxJ35fuLdGp6fK1w3C8YeDQFX uDn1pcdYXmp0tX80bBAu9wjzXHbA7VObXadQfzAMx7OFJHRjcf8PzoJIXXQf WIMl54wolrcMjROrTh0EjdcCLU3BeH8Xf9pk9fNGJ3xif+X9tBOfj6y5r77e PtEDXxlqubfw4/OFJ/z9P7O1O4G5Oz+RjwafL3iPsSdsnuuEyGUzzpnjWD/N 3aW5PWxd8Mkz2cEhEctztikHXHvXDeWEraX8Kbh+6ux4vVYaNwglmQ0VISxY nne9QHrBZQDeN3DQ2f/h/Ef7lMiS4NdBML7fO8h7DfOZzG/mvTAEd0vf2Ln5 Yf3fVbaCA/0wWB3NMawVwONzKPmnUUv6EJD1h++HK2D9bzlNag9U98OH95VM qh1Y/mhQfTXb9V5Y7S3sX1jD8sNnlrKUBQdhzO7hETdDfL/2ZsGofA/DILBS +G8YcMWc8rBTWXXtAJyITbUXbMe/T1mX+5md+3IAUkfa7DlLsX11Fgd7n6QM Qbby2Enbj1ieJcz5+N7YIdATVWadXsFcyvSsF7XVAOirZKz9lYf1q36abd89 NwiHNqunpub+Yf56dXyKeIfgi2Sg9ysZLP/orvrxoBODYBZi5uy3Bc9fyxmd j1Y8A0AuMH3hmY71v3kkKJGlNgJXByKnnurh9efl/UhnopMAxJ9gtlcfyyc7 ipw/HDwCZlfVkzc04Ppv5MDeErlIAlQZJxa2XsDyksws1XosIxD3TDVVTQpz gb4ZFXPTEQgAF3fKKcytkku6nxAIcMnckPS/7zH/zV+mDk8TrhPg+G1H7QTp P5wva8guWqcOwwMnMbfrc7i+d9ZVzt4vOQIxg4xaAxmYp5genaIhj8DAsWua C2cxT6RKC6cXHgWdMI8mUx3MuT3KUm8sD0Nl44QxuzX2n6dzPkhx/Gr/Z+Ez KwY+zJ9u/FIo+2wEwqfP5imz4v4PrZ/ql+EahbtF+dayV3H7jmoecr3OBEhL FheQb8b6ef24vjU9IICxUCdX3DTml3o/vbP5FZ+rDV1vqYti/bbFG5LY7hKA 0zL2wxauP5zvSH0aCGMYAX5J/wibc1i/0lfbYqY8Agw+yN81dQH37+v7rC3S +/qAWFxfzrwD+/+cJLKpjX8PGD2hW5skYP5ef5b3DWs/ULE/i4ydwfb7vGSa fOndC003kwZe6mH7fA5//GIf3AuJekwGnNm4f9qil3WjNHt+pXn51RTZOH5N Rz2NiftVN29eftzYWI/1i4dYBJxu7IBemZ3E7JfY/hsnRUx2sU9D6KBCIbEd 349u9X1B4Uiagt3VS4z7pfD7dSY2vzv0X6bg6GfniN178P2rwFFmuuf3p+Hp NSGD3o+YF9pdlLz9YwrCW1cO6s7h9/O2AoZb9vyqTwSsSu18nmPOWXNeYLpq Ch5kFgwUdWP954XqKV1YiVBGwfveNwLzYZPzW2dvT0MhL98Z2TuYL1Ceia0Y I0LTbYmrW2RwfXwi/3HC2fFmULv5uPzQ8G///c/7ynXS8VgHhjrQVqs34a39 /T7jn/fLL5iuK7kztkJ+6iy9biQJye9O4dpo+qQJ9idXtt3l/M15/+YlL8dK KXObIKbiSp7RdTLi2xeuZD1q6QWS1w0lLbHf8v/UTcsOvDIX+DohUzw7N9b/ 3+9H/ptX0m6O3Xu+DWZtag6w2WD9l3OOPX5r3QnPGWfjY2qx/H/x9rVNPGOK nVDn+vpCpcVv/s/73R+BJCm2ofZ//fs/8udJonJBeW1I7venaq3gHQe2FsiA 3Y9Prf6O//+8v9XSy85g4eqCwuUGbaEE3L+HbTw5vcsd0Cz+zOv5PszvXbbg CdRpg+R9pzbJM/zW/8/vd/i+bYoY+tQCyQ0Ld16PTSF+1M7tm39JOywrqvBq GUwh+9QEKMkC39pAzJl3dcXjt/5/3hcnR2zVbnjSDjGl90JucuH1l6wsGZWs 3AE5PFH6ynMkxH8yzpdXrXRDBhdjrOUkHh8hSwrVoQu9EOg11yQkMI3GV7eP 6mu8Qwt0SvrsanmD12+K6ULTrmNtYNTerSY5TkT8oUinveFbMmg6/tgkmYzz s9//j7DM/4OmA/MTtObcl/1JoMVVZGRBh/mmyCZr5XIy+CgZazKZYi6r5qvL tEaGTvFOnZODOD/T25V/yUCNDGf5szld3LB8XfzzF7LrZKD5POgXMoq562r+ 5rISMvDUpHZ/VyYhfrlQydohbRT6b0j1KKji+3WqBWKjbcMI0InV7ObJx+8j 5x/FqX/QGAFN5/ZRQ35cv7u+tLcUPTINtXtc85n18fsVV/O7rX40RKDR7GWk 3IvPly/GVBx6rDQF2yYu/PCXwO83Ho6dLG//QQRtulE/zYtY/n3/jrIFCxLs PNigYWGOz3c9Sm5wJKYRIVFaIW/iMeYRZ90CNq9PgIzMjZeXbHH7i1tuUItu nAbNOr1vxmm4f439Tq2j9t3QlC38rm4O178OD++3dJ8ggnDlmW6CCT4/jaWQ 8+9wJEGZpOlyRjp+H7klp5dnnyQZPKRbi2U/4/j1jkN+enk/GUiy9+yDqhrx /KnK36+YIcGC97x1ogyWNzPxHep5QYbRlLcdF7VwfB4OjXu0+xEJAq+yVlus 4Pfj/Rs41tL4yfAlJU3Udgm/f5Ln0x5P+mX/4x6/I07RmMc/rgyzf0AG+vOC gn5xf3gfqPW580gmGYz3kDm2r+P1W00/+1nfnAx5vs7WIaY4vr4+NiERcZMM F3hSyvekYD7gc1v2xSkyuPcl+PgX4N/vEUcevC7/SYI7dU8Yi/fg97Flcm4L K3pk8Fp0bw+6jseXZ+8RjiGnEVg+7eZS14vrp4YOHofiOQIU5E8eqr+N/cN/ cX2f+/GuDQTQi29T9b6N97+QveFgejMBPJXqGzke4PaFuVT4L1z6VV95T0VL r2DeKTbV+Z2BADFckX4pLzDfdL6o11J7CG6lLlf6W/yhvmLzvafY2QQXjIII 96Xw+o8ZGjJ7frsOdow0K8r44fE7J3m2bDW0HrjSUvN+8uD5+S++Oydq+Ul9 DRCdU+S2u+P3y+el+R4172+AkR+Uh5+Z4/VRYGcwZUbXAMafR2dN92N56sNW zq6G1dCbzRnvKYT3bw49SZCmuBRYzl3aWaWE++9pf/6hUmQ1yEk03Jvpxfv3 EB1rglRyI9wk5H9+thHvD4mi6E8LQg0QVj19xHkDbr9CaM1VW70eDmevRrvo YfsDBXxvOQpUQIcTc4iKKN5feh77eskDtXDcjHuzcwW2z0Kareqv6Cq4sluE nKKC8//GHGEmvpc1IL+na+bheWzfjvLMnY7LjWAGDZUbs7F9V5lqNSNkGyHi VmrTJhnsnx6PssTnLHaCRGKLvN4zzKVZD+6Uu94J5ZtX6vlrsH8X3VCRFUnV C9RdEcwp3Ni//y98/dQk "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.72, $CellContext`foxMobility$$ = 0.024200000000000003`, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.785, $CellContext`rabbitMobility$$ = 0.0106, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rabbitGrowthRate$$], 0.785, "growth rate of rabbits"}, 0, 1}, {{ Hold[$CellContext`rabbitMobility$$], 0.0106, "mobility of rabbits"}, 0, 0.05}, {{ Hold[$CellContext`foxGrowthRate$$], 0.72, "growth rate of foxes"}, 0, 1}, {{ Hold[$CellContext`foxMobility$$], 0.024200000000000003`, "mobility of foxes"}, 0, 0.05}, {{ Hold[$CellContext`foxEndurance$$], 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`moving$$], False, "run simulation"}, { True, False}}, {{ Hold[$CellContext`ag$$], CompressedData[" 1:eJyVm3k8FVr06EUiKSFjSYQIIVEyLCmNVFIZIkPJmDnKLVKZioRkSCIpFJnn OfM8z7Njds5BMqfX+/xe937eXb3P/bz+6JxP39baa09r2HsfHkOrS0aUFBQU h379tfHXJ7/1VpFZvwFotot012UZBor/+49i5zNt7gexQ5D3VUswjGIE8ZRj XPXVycOgniLGmNo1hPiF296RG7KHwKaZJ/TIy1HEezZnFElqfIW4U6ejv3X3 ID7eFFS04VoFuLVxkWsSuzGXYg1rEyqFsjn2OlXtXsSZquQYJcmFkCJ78HjQ Vaz/aaWDr5tSGdSureTGTHciXtMlPdgtUgl7Et8KDn/tQvyi76yt7OEyKJ+q ULTmw/bVBcqoFJfWwMHM0zwT2VjewOgH6YtnFviN2HwQ8WlF/MlMzXzVTCZo BmR6aa5i+1oul6d7zmeA2WqOfMAK5hSm24PtYsnw1iCP0bqMiLjemHfPk11k cHzHWsCoOI3tX8pi31VPBJaocyr72DAvv5I6WxpCBPGnLVqNQVj/NZeFrG/+ JNj08zWlz2bMl4V0lZUPEOEn90d5HUfMhXnLlQb2EKGbuuJa+jrmRlcNRXrJ JLjn8V2c3DeFON9pP8a0tAlQfkvkqfCtRTwoLUgrq3caqBxJI0v5A3h9OdnW Mi1PQ4jH5H0FVcw1G2TsUu1IEHoj770fDV7/4qk9b0+6kiBS8EPXB3rMPStq 9xUrkSGx0b42bRrzNvptNOkLJDD3L4qyp8P7k83ZllaPlwSZ77PcGR2wPH8+ We9e1xR4qowsUvNj+WvWYQ5/nSQDs8JfsUWTg4h7fIP916Om4XmjbgDRFOvf sY+4ShE9DXHc/EQ9KcyNNj2ZW/pIBK/gl4Mtslj/iqn+PWPHadANfrOo3oi5 WVpY2NPbU7DGnX6LvwXb3zrGuzd2YQrC6VQEvxjh9mkO9n28xkqEkb54EdlN WD5Tt430gG8IlqLurd/jz0N88Uz6jh3hgzCm7iU0GBqBeIZo3a2UfAI8MP50 slDUB/HvDaPOpjJDQK0rwcrokIi4ECftVbPLg7B7S+2TreLpeH8VHN6lEDUI 1txbX4isfEa8IsTC6+6tAdh00eG97dtCxLeYnG436R4Eg+cCNeeP5SLuekhv +ynqAajYYXbkphiWp9wnusY32wViPN/lTnaQEe890jE6MDcC+VcnWeYgE/HQ V3pTr8ij8CZU2cc6qBLxzVI0YlpNI8Au8GFTwfMiPH7D5ZSOG0YgbIubWoQh tr9G8a1z2xUy5G3eKaf2phzP381N688syLB9jW6DfXAOHt/42A8BTVMgwNFu 8eFwM+K8gQFFJktdUH99/OfaDPbvLrlnuOdDu0Bng1VFjCOOP3kTGffeVHRA D7ncupi6BfdPnk3V6XMB7K/Z0Sz4rgzx/m4aYX9ogPT4RZFzlnWI6zulaC0P NYLNepAtHXUf4gN0fCbBo7UwG0KjyqOF44vRQxeNktY28Ek4puOnMYl48LBx iEl7PyTQMWw+nIT9K22Z1198Hwjw9pWTx+I+7B+zZgNc3HlGYXr/GVZmXzw+ O4zeHW7LGAXdieZViqSx/8Nn/v7ksz0+y509CpnG+Vpcz3/nDzsUf3PVa6cU p56PATGlN0kwZhzxxZgvBw54jsHp/IHjO7sxn37C3KLBOQo8kh1b9eh/93/P 39x8bzVI0/6y60y9WsDg7/yH/W8uXJ4qdKf/l3z39hNFLWOItz14TszcPgHV AZEqYXt+c76/ucFP4Xd8SkRQc16V6Xz6u3+8f/PimsBjKpfHYZtlbXBsIZbX nBRb1NeZgP51QaclrknEU0x44uq2t4BDwsbC5WK8vlPYC/olWmtA8HE9/aHG dsTPSLy0blGpgwG9jSMcoW04vqlfFy6Ob4Dl6zHeV0WrEX8/sV9mpb0cBAL3 x1xvwuvvBael98nIWrh5vspdkQnbxxQ5KG6lUA2bT5qysKvj9d9V2DThYFcF bY45ckLaTXj/f6pcPL7WAAQGN52/HjYgLqdqfl3Nrgm8lthLWC2xvPqW0Ogg lWHodGKrGmDA+6vZImq4LYsA4q0eM4kncX53f+eTxpuvCXDFtM6HWg9zVZ1p Yt7TQbiYIOtd+hHvH74z1+ZmWJshS+noh8ivJTh/yUxWr6Kph4Xos2rrucWI C0wce5FqUAtS+2mFXg2WIp6m4Vmr4NEGDNGD7+/ercLx8755yqhvGzzQEO4Q WsTt74zlWAgbaAXbNPLcBVXMM2ke+O9obIKQL0F3f7Ri/88zUFLJfLAJRv86 MGIki+3T3dXITP2wBerIZ4bjsnF8zt3wujgrtBVCPtK6JipmIF556FOWYm4N 8IQZ7Ii9n484x/so4Ys2rbA1ZlNpwjW8ftezbz2TO9UEjQ4hfgQz7J+dG5vC 5fWrYW3C9enPjbh/tDdVLoa41IPGE9mD9tIViL/0vs1aE9MEEW+J33bn4fjF HpfPrKbcBIbXQuu2R+P2QziXb2i9bgKus4u5G9tx/rTn4HGJPWENkMhd4tni 84f8tA5sjfUaQVlIqkRVC6+/nQYPN7BUEaDUTmz3wtjv9v/xj01jOw7EGxCA frGhivvbb/v/8a9fPA/f3OBCAB81r2iHmt/jQ/s3X6fYpGPVTwAJt+qjdj8x DxDZ/LppOwF4rwofqyz4zbf/zSd32TSEMhBghWOfCoGpBslzDJtu6/tKADPd mxBAX4W4SFDKB9MQArxb4v+YzVeK9NP2g5vy0giI7Kwapn/7u///xKdVwasW 98VHoZx2I9vstn/vn1/jw/41nqt4BF7ITWQfSfz3+p4BbaoLi0e3j8DxyJIf cen/3r//zXfdLPYaVhmFwkN8Ak8ry5F92Um1PnGbRmE/kwlVYH4jig/0rIbP bajGIVQ9QvHN+r/9+3/zG3nbpZd+xaXwy26OSbcxPyNanCpxcBL4usyfZ/U0 Ifv0b3xtPXlyEuwDPuZ+isf84I2Yza/uTgDTGdu8TxZNaH4oJXh3XVfvge8l 8SWH3P6dn/033/HmQTQ1ez/o3JTfq6jRgda3Vs99okLPMDzjlMy3SehB7YdO zu1X0hyChxubkuiG+9D6+shyW/FJxxC4m7gf5ZPqR7zsxBXqmzbDoB2SG5fZ 3Ynmx31a4KoVWx+41+wJFDP49/78b15PXxKpyd0PWl9par36//+50BjfW1Gj LGiPNdybqZ6K/MOSXWjtYkcurK5sV++0wPWDe+AyZaVLEfALyXfcU8X5u/DR TAO26Fw4Zf2gausbHL865reGbFUPhI4Kz53sx9IQ//2F7sLcectGLO/l+f7Z G6FC2Ed/lyn4YDL2b8KRM99X0iDK66D5e+YkxAvzDsa6iYeD2BH5mzFof1Mo Ws+tsAVPJoJiSL5xjnwN4rTNde5F80m/4muv17vz+PyhU+z65btf84Ay7NGt jcw4PnGyPWxKG8+C/vtKeSbb8PhqZ0d5ckMu8Cae8+YOw/VljMS7s5mpGSB6 hDfna+EnxGc2KavnCyZDdTjFh2SzFMRNaipP7Xn+Hryttjzu2pCN40vZJd/x xHTQ3kVx5fYxN8Q9hy2SH0/kwpbWT3X2fXGIb9PIyrtLnwoOst/zfszg853a RN2Dh+mK4WWX7aZqDlx/erKEBAlKF4CvfkV6QCLm0TS2D48UpoPEMd87V8Mx p4yI/ywnnAWTBWubXAow1/+obm2pWQ1xVXS5ti/HEOd1OjU1dLUcLqr5tyqf w+ebnN7JE+oH6+FzYRatoifmZUM25H2nK4GKGCFz0x3rrxNJGXR6UAb22dJW J8/i/CpBsOzG1pgKqJ4yf5oVgte/4w9D+YTaRlD1ufpCrwVziSr5UBpCM4yL uKcuLn9F/IqhR0pKdQ2c5rvwxb0X5yer4vrPj1+sgRXZAtGnMnh/a43Md9He q4Pq5PV7OfK4vp+7PBodMtwExFtLTaZ/WN95WTNsQdINoPaGSfr9I5z/hJb2 eK7QNYI64+kvj89i/ojKyZrnZjVs7Dbg8yrG+eU0T7nLhTutcD+WVioecP4X o7WNZ7G2CZbj1l/5S2P7z4kzinGRG4DNXShk4RrO//gf7007vKsJBqkOeEg7 Yv22NuzfvcMrQTMq2ockgcd3DwffxnqpKmCcF8giDf+hf887XMgpDXAv4Jq4 vzxuX7m95F14SQMMcS+uny7A8y8/qRelEN0OPtLxXd1hHYjTD6S/5mHqAlWt D91P9DHnMG3XTGFogdalR8slLTh/JGkqmhcdbYVmGudrxCBcP9HGn1G4TkeA 1yLN7ZL++HxhKwvJ1qJ+GCZmd301FcRcMpCXQ/7cMAjpW5Kb5TDXOtugTBs7 DCye+RxHovD5Bi3rZIHY7WEYo/HdEVCDOevU+smuzgHg9HalGZjA/snDPntk duMQRB/I41kJxO0PNxHoljJHYPtP3em3T7B/EaRk60pQCgIK5t7WDMcJxHMa Fc3b3nyEhbmALpUMzNs5+jqFnKuBM49d96Q7Xh/miacEJMTHge2woNitHnz/ kT6ur+DbNQY3+tL8LwXi+pQxcVwifn4aaPoDxuV68fyLZd4OjGGdhisVLkoS x/H5GINwuJ7O5BSUpH48NFqKefrsftY9HpPQe7bpqNMJfL7QX10yYXNhGly6 5p4mRWL7g8UzDg+mEuG85mWDwFCs3/dreJJX8SQIX2fJ8d2P70fUnolraRMm gYF/zs/JHPfvXfk73wL6aWiaaLsnF4TtM7Jz4WV5OgEqQjrhbEa4feY+YqbQ oz5QetFDzXAMz99T8h2d/tw+EGxcGml0HEfc8hhj+AW7QVgs0711IgXHD0rG Zrf5X/vuHIud1X5HzCdzM6k/SfbDhTUT40clWD9ZhosqNbIDXHsj41vz8f2e v3q+3K3RAeD4dLBq+2W8vh/ah60WZgwAQ9zUvHwK5h7DNlrkM1OwNzQd2I3x +Y6Ogv7uPMlJSK56sFM2FedHZ5O2fsy2JYLQ4ZX+98frcX4X0/jNevMkVCWY fbVB9ccv/6PAIiH0fRKYfIS/6Lrj81do3JcaNTUOwv0XKXd24/r5vsz9EXaD CZD98fKZ5zlcP1O6g2r24ATQjSupPVUl4Pl9X7piOz4BkzIy8y9G8f3D8SIL xitqE2Buw56q1I75+K3PVzh/+a3F9kFZo+4/nD+Hk475uU9B3qmYFadq7F8V vSj217IS4d1elT0fb/zh/pLhcrap+RTwaAt3Sgpj/UbnvRlkDCeANYI+/3gM 3h8iH9TNBo70gCilTu70dbz+Zk2nv9Xq98Ih26efLkTi/OZtILNU0tUukGUm ddmWYV7kelHheUIXFF9RD86Zx+vzzgersqfz3fBJ1tyffQS338GRQ9z2sg/k DV4K9m3A+smTbyQjazrhiqro1i+hWN6ylqptLKsDnjGIcqdS4/jQNTqxefw+ Ca5GW9wmhOH8okJ/Z+6eODJs1bFezhnA+Q19dRbJKo0MfElG6SQCzu+gZ0xy bWoSwrIiNIve4PrF5B13oNuzSfi8Rs4QmsXc2GkrtydxCipflVJ1bcH5Xfix d2TdeBI8P9qUaPYN219/q/PbfWoiuHvGTbK2YftcE1UoRkxJYEq3rnA+DfsX fYtuqgRnMoTe6JWqu47932L8/Z4mBxJYmR1juCOK+YRfdhC/HAkO3hVakTPG 47/b4W6/AYEM3p4ynacbsXyQQEfuV4tf7c8fMZMuxvb1rG/OlwshQ8ne4rhX s3h9eDnKLJ4wJINSCadHmyfWPy4xwVGySobs/cxTQ5uxPJWM9AS5kQz18V2b CPWY7772dmlrAxEGnPyoGLfh/vUQjO8b3iCD0GtDa5EU3L5ba9UXjREipAco XNx+Act/ML4lR8VCBuuC2BSpBdz+/kMgcMCeDMKcljofvuPx+Z+PGbj7vVPC NgZzk5urcWsXydC6W/zc8QnMDzATFCjayGCXlW1lYIq5bYV50W3GbjgTtBzl FI7jB3XYHvq5iA7g2vFBSLAS92/5Ha1zr9M0xL+I4WOIxfXrOUu+tZwDE2AU 0CXieTUW8XydixkjvNNAeHhYL7sO3w/e3uBdzz88CdQPjNsuTuL615v9BHnd jghTS4YG+WvRiH8JeOQcbjYN97/Zi3emh2L98+PsO9/+al9v17ddbq44viiw BEmLT0NwkE3dlgRsX3jBy2iNc5NgslMo+EE75nyfjyiz/Iq/+seOusQY4/OF IO28aVkVIuy9kFyndD0e8ccP9B6eVSMCVexU24szCYifFIyIEq2dgqHTL9gS /fD9L1+8TbuYMBFOEnVbR7Zh/3Q+O653rRG9K/mb11/XsNowPg0pmRovg/fh 9vc475sO/zoNJXcMNYnT+Hwosz2b1zVpCoS29x63AVyf/BfflyB4p8GvFQy5 WLt0o/sRLw5vCFAkdoJGY1B46zF8v/lw6hKDuk835FtG7nRrwvmF/32RA3ud W+FVx87GQz6Yp+Zr0pNiOyFH53qtgQDm//MxA0mHA4YWvHB8fM7Cb0dhTwKx KKvSSTfMPV0rr3F5kaHSeXdXJTP2D48kgnvaG3/5pzNJgh+24/0rFF58MOY9 GXS1Zfa+TsTx0+1pwJcpIIH9tvmwTnPMz4W9jPh4lAzNxitdiraYVzW3Um2h I0HZE00q8fPYfpUkr4qun0TgsZeVOtqE8y9OUcNdz5jJQDOwupvrDdZfHVds HNlPhpNN/vVOrH/ITzQc/iIUkWF++obc+h0sHxFYdPRqLxECNbwUtxbj9se0 uR99/uX/C2qXKt3tMF/YcpkqqpEE3t6m6p1/yL8/2xKDnDNDwdVJ4cLHCJwf GrkUjEd5v4XQU+eDGhmxfYzx3Q00idngl5xKczkXt7/emMyknp4BjruHi2Zb Mfen8uDuiUkFehd7pqGfWD8tE6/mWkYjXDL0UGIqxvlBf51w8LZzbWBBIaub /AafnxL7FAqG1JugT/iDmVEp9p/pLW0ND5yaYG31juYRF5yfuCX6PP8x1Aoc VwhVzckFiJfnWuoXOo+BmTFZl0UI14/vXyn51zweheg2lk1vi/D9t+ANAv/Z V+Owc/o7pzUPzo8pRvxy5PaOg35jJ0eyCt7/lkfAbN/EGDxIDhSiS/qD/rhT VBuPjEHX/EMD3SjsX76IHWbxpB4H7bPxiln5OL9nyE59q+gzDk1n1bQFNLC8 /apk+5vZESjcvis+lB73f+zWqgWd3AQ0/dW8V94S92+325E9uyUmoNv3PpUJ K66fdwkuvTFLGgOReyTpg3O4/prJ0Rh+8m0cnvzVbnQ0BbdvfyWGjpIwAR35 pWnz1JjXqvJm+p1Ihk7frE8LNln/D/9HQfFJLviAfDq+XyUqQ2RF2QvIEZlR ufcIx7/fX+itnFbr9mH9VXeHnzQIPgMt+3OmRw9g+XOv2ij9z+fBvGiZy5wU Xp/5kt0dK6s5kELBuVprhvfH7y9L9bc3uObh/aHQcbVeaTISKK57sG06jfu3 92S7v4JGNMwxHtEYvoL1M1GLEAc802CK9GC9rgTnL40hH69YsSeB99RmvbPn 8PmmCBdrXUHqR8iP3MHr24frl1WH4xyXaOOhovVKfJ00Hr9QP8JE5BUHyHj0 XmzIE4+PoHlzWumvvJWrhjnldBCOv+dbpT/bMU1AyLTtQFwLjn/mwcS6i0tj MH5Rwzo0GNfnAxrDJ27Rj8EX7QDHvXcwF+wdHBZmGIPAR/r2737+4f78odW9 R4bj4KRZIUZ/EXOtQ2KiPpVj8LqqQSBIBPOTOhEjArRjUBOcOj9wFbffvlW4 d0fIAOy+QOpeyMfzF0/jqPbBgghE5nHZESos7+cjOLTNkgzMvvF1N9sx3/lJ 612fChnu6K37ctVh+yzTVTzuRJNhOkfZkfYZ9v+XOXUdM75MQ0aivNTlERx/ 7E1/DL88RAZHNhanwodY/n8+ZiA53v7N7HbMof8yZYwhCUq7z3n8SMb2KdA4 agr8iv9sCnRle3mwvCN1Ue7AARKceMQqVS2B7dv9abxIqKgQviYzCkm9wPmp W8X3Og67Mih7mzUftQnf/yV+DI1j5M+Gta6EXVoboxD3Id+SEP9WDGvnw7d0 //UF9y/x9bbAiBLIvF159DsJ+4/FCfGfNqkZsFmWTpeqBt+vWkd4f93QVwZH b/Har4vi/JfFWP/KW6pCOGRdz/pqHJ/vv2eOIbBLFUKSC/lnJQm/j5Hz5aY4 mlsC1LR+FwrT8PvTBr5To/w3BsGAmbouSx6vr3RXksnm04Pgb0I9OGuCeav5 7e+RF4fgkD7F8r4CPL8HgmcElDQJUNlcTo7Rw/u/t+slZZMHAaz2ZfHHCeD8 qJaN73shxTAoLlkk5PHh9XFW426wkM0AyHKMUeRtxZw7xSrQ8tYwLL6m4Vty wbzoW97+8CcD4ECXnp0hhPtnPZuwXalmAGp6w7hqH2P7n9OrLc8rDoJrsjU1 WzDmWlGqlTRRA8BRU1qS9hbr7zwUlKejNghFi1QZ4vGYTwtx2tjlDkNtQk5k 0UVs/wlpwVv+5QOQbDPgUSyIxy/7lH5ss8kwxJ35fuLdGp6fK1w3C8YeDQFX uDn1pcdYXmp0tX80bBAu9wjzXHbA7VObXadQfzAMx7OFJHRjcf8PzoJIXXQf WIMl54wolrcMjROrTh0EjdcCLU3BeH8Xf9pk9fNGJ3xif+X9tBOfj6y5r77e PtEDXxlqubfw4/OFJ/z9P7O1O4G5Oz+RjwafL3iPsSdsnuuEyGUzzpnjWD/N 3aW5PWxd8Mkz2cEhEctztikHXHvXDeWEraX8Kbh+6ux4vVYaNwglmQ0VISxY nne9QHrBZQDeN3DQ2f/h/Ef7lMiS4NdBML7fO8h7DfOZzG/mvTAEd0vf2Ln5 Yf3fVbaCA/0wWB3NMawVwONzKPmnUUv6EJD1h++HK2D9bzlNag9U98OH95VM qh1Y/mhQfTXb9V5Y7S3sX1jD8sNnlrKUBQdhzO7hETdDfL/2ZsGofA/DILBS +G8YcMWc8rBTWXXtAJyITbUXbMe/T1mX+5md+3IAUkfa7DlLsX11Fgd7n6QM Qbby2Enbj1ieJcz5+N7YIdATVWadXsFcyvSsF7XVAOirZKz9lYf1q36abd89 NwiHNqunpub+Yf56dXyKeIfgi2Sg9ysZLP/orvrxoBODYBZi5uy3Bc9fyxmd j1Y8A0AuMH3hmY71v3kkKJGlNgJXByKnnurh9efl/UhnopMAxJ9gtlcfyyc7 ipw/HDwCZlfVkzc04Ppv5MDeErlIAlQZJxa2XsDyksws1XosIxD3TDVVTQpz gb4ZFXPTEQgAF3fKKcytkku6nxAIcMnckPS/7zH/zV+mDk8TrhPg+G1H7QTp P5wva8guWqcOwwMnMbfrc7i+d9ZVzt4vOQIxg4xaAxmYp5genaIhj8DAsWua C2cxT6RKC6cXHgWdMI8mUx3MuT3KUm8sD0Nl44QxuzX2n6dzPkhx/Gr/Z+Ez KwY+zJ9u/FIo+2wEwqfP5imz4v4PrZ/ql+EahbtF+dayV3H7jmoecr3OBEhL FheQb8b6ef24vjU9IICxUCdX3DTml3o/vbP5FZ+rDV1vqYti/bbFG5LY7hKA 0zL2wxauP5zvSH0aCGMYAX5J/wibc1i/0lfbYqY8Agw+yN81dQH37+v7rC3S +/qAWFxfzrwD+/+cJLKpjX8PGD2hW5skYP5ef5b3DWs/ULE/i4ydwfb7vGSa fOndC003kwZe6mH7fA5//GIf3AuJekwGnNm4f9qil3WjNHt+pXn51RTZOH5N Rz2NiftVN29eftzYWI/1i4dYBJxu7IBemZ3E7JfY/hsnRUx2sU9D6KBCIbEd 349u9X1B4Uiagt3VS4z7pfD7dSY2vzv0X6bg6GfniN178P2rwFFmuuf3p+Hp NSGD3o+YF9pdlLz9YwrCW1cO6s7h9/O2AoZb9vyqTwSsSu18nmPOWXNeYLpq Ch5kFgwUdWP954XqKV1YiVBGwfveNwLzYZPzW2dvT0MhL98Z2TuYL1Ceia0Y I0LTbYmrW2RwfXwi/3HC2fFmULv5uPzQ8G///c/7ynXS8VgHhjrQVqs34a39 /T7jn/fLL5iuK7kztkJ+6iy9biQJye9O4dpo+qQJ9idXtt3l/M15/+YlL8dK KXObIKbiSp7RdTLi2xeuZD1q6QWS1w0lLbHf8v/UTcsOvDIX+DohUzw7N9b/ 3+9H/ptX0m6O3Xu+DWZtag6w2WD9l3OOPX5r3QnPGWfjY2qx/H/x9rVNPGOK nVDn+vpCpcVv/s/73R+BJCm2ofZ//fs/8udJonJBeW1I7venaq3gHQe2FsiA 3Y9Prf6O//+8v9XSy85g4eqCwuUGbaEE3L+HbTw5vcsd0Cz+zOv5PszvXbbg CdRpg+R9pzbJM/zW/8/vd/i+bYoY+tQCyQ0Ld16PTSF+1M7tm39JOywrqvBq GUwh+9QEKMkC39pAzJl3dcXjt/5/3hcnR2zVbnjSDjGl90JucuH1l6wsGZWs 3AE5PFH6ynMkxH8yzpdXrXRDBhdjrOUkHh8hSwrVoQu9EOg11yQkMI3GV7eP 6mu8Qwt0SvrsanmD12+K6ULTrmNtYNTerSY5TkT8oUinveFbMmg6/tgkmYzz s9//j7DM/4OmA/MTtObcl/1JoMVVZGRBh/mmyCZr5XIy+CgZazKZYi6r5qvL tEaGTvFOnZODOD/T25V/yUCNDGf5szld3LB8XfzzF7LrZKD5POgXMoq562r+ 5rISMvDUpHZ/VyYhfrlQydohbRT6b0j1KKji+3WqBWKjbcMI0InV7ObJx+8j 5x/FqX/QGAFN5/ZRQ35cv7u+tLcUPTINtXtc85n18fsVV/O7rX40RKDR7GWk 3IvPly/GVBx6rDQF2yYu/PCXwO83Ho6dLG//QQRtulE/zYtY/n3/jrIFCxLs PNigYWGOz3c9Sm5wJKYRIVFaIW/iMeYRZ90CNq9PgIzMjZeXbHH7i1tuUItu nAbNOr1vxmm4f439Tq2j9t3QlC38rm4O178OD++3dJ8ggnDlmW6CCT4/jaWQ 8+9wJEGZpOlyRjp+H7klp5dnnyQZPKRbi2U/4/j1jkN+enk/GUiy9+yDqhrx /KnK36+YIcGC97x1ogyWNzPxHep5QYbRlLcdF7VwfB4OjXu0+xEJAq+yVlus 4Pfj/Rs41tL4yfAlJU3Udgm/f5Ln0x5P+mX/4x6/I07RmMc/rgyzf0AG+vOC gn5xf3gfqPW580gmGYz3kDm2r+P1W00/+1nfnAx5vs7WIaY4vr4+NiERcZMM F3hSyvekYD7gc1v2xSkyuPcl+PgX4N/vEUcevC7/SYI7dU8Yi/fg97Flcm4L K3pk8Fp0bw+6jseXZ+8RjiGnEVg+7eZS14vrp4YOHofiOQIU5E8eqr+N/cN/ cX2f+/GuDQTQi29T9b6N97+QveFgejMBPJXqGzke4PaFuVT4L1z6VV95T0VL r2DeKTbV+Z2BADFckX4pLzDfdL6o11J7CG6lLlf6W/yhvmLzvafY2QQXjIII 96Xw+o8ZGjJ7frsOdow0K8r44fE7J3m2bDW0HrjSUvN+8uD5+S++Oydq+Ul9 DRCdU+S2u+P3y+el+R4172+AkR+Uh5+Z4/VRYGcwZUbXAMafR2dN92N56sNW zq6G1dCbzRnvKYT3bw49SZCmuBRYzl3aWaWE++9pf/6hUmQ1yEk03Jvpxfv3 EB1rglRyI9wk5H9+thHvD4mi6E8LQg0QVj19xHkDbr9CaM1VW70eDmevRrvo YfsDBXxvOQpUQIcTc4iKKN5feh77eskDtXDcjHuzcwW2z0Kareqv6Cq4sluE nKKC8//GHGEmvpc1IL+na+bheWzfjvLMnY7LjWAGDZUbs7F9V5lqNSNkGyHi VmrTJhnsnx6PssTnLHaCRGKLvN4zzKVZD+6Uu94J5ZtX6vlrsH8X3VCRFUnV C9RdEcwp3Ni//y98/dQk "]}}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 375., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`rabbitGrowthRate$473537$$ = 0, $CellContext`rabbitMobility$473538$$ = 0, $CellContext`foxGrowthRate$473539$$ = 0, $CellContext`foxMobility$473540$$ = 0, $CellContext`foxEndurance$473541$$ = 0, $CellContext`moving$473542$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ag$$ = CompressedData[" 1:eJyVm3k8FVr06EUiKSFjSYQIIVEyLCmNVFIZIkPJmDnKLVKZioRkSCIpFJnn OfM8z7Njds5BMqfX+/xe937eXb3P/bz+6JxP39baa09r2HsfHkOrS0aUFBQU h379tfHXJ7/1VpFZvwFotot012UZBor/+49i5zNt7gexQ5D3VUswjGIE8ZRj XPXVycOgniLGmNo1hPiF296RG7KHwKaZJ/TIy1HEezZnFElqfIW4U6ejv3X3 ID7eFFS04VoFuLVxkWsSuzGXYg1rEyqFsjn2OlXtXsSZquQYJcmFkCJ78HjQ Vaz/aaWDr5tSGdSureTGTHciXtMlPdgtUgl7Et8KDn/tQvyi76yt7OEyKJ+q ULTmw/bVBcqoFJfWwMHM0zwT2VjewOgH6YtnFviN2HwQ8WlF/MlMzXzVTCZo BmR6aa5i+1oul6d7zmeA2WqOfMAK5hSm24PtYsnw1iCP0bqMiLjemHfPk11k cHzHWsCoOI3tX8pi31VPBJaocyr72DAvv5I6WxpCBPGnLVqNQVj/NZeFrG/+ JNj08zWlz2bMl4V0lZUPEOEn90d5HUfMhXnLlQb2EKGbuuJa+jrmRlcNRXrJ JLjn8V2c3DeFON9pP8a0tAlQfkvkqfCtRTwoLUgrq3caqBxJI0v5A3h9OdnW Mi1PQ4jH5H0FVcw1G2TsUu1IEHoj770fDV7/4qk9b0+6kiBS8EPXB3rMPStq 9xUrkSGx0b42bRrzNvptNOkLJDD3L4qyp8P7k83ZllaPlwSZ77PcGR2wPH8+ We9e1xR4qowsUvNj+WvWYQ5/nSQDs8JfsUWTg4h7fIP916Om4XmjbgDRFOvf sY+4ShE9DXHc/EQ9KcyNNj2ZW/pIBK/gl4Mtslj/iqn+PWPHadANfrOo3oi5 WVpY2NPbU7DGnX6LvwXb3zrGuzd2YQrC6VQEvxjh9mkO9n28xkqEkb54EdlN WD5Tt430gG8IlqLurd/jz0N88Uz6jh3hgzCm7iU0GBqBeIZo3a2UfAI8MP50 slDUB/HvDaPOpjJDQK0rwcrokIi4ECftVbPLg7B7S+2TreLpeH8VHN6lEDUI 1txbX4isfEa8IsTC6+6tAdh00eG97dtCxLeYnG436R4Eg+cCNeeP5SLuekhv +ynqAajYYXbkphiWp9wnusY32wViPN/lTnaQEe890jE6MDcC+VcnWeYgE/HQ V3pTr8ij8CZU2cc6qBLxzVI0YlpNI8Au8GFTwfMiPH7D5ZSOG0YgbIubWoQh tr9G8a1z2xUy5G3eKaf2phzP381N688syLB9jW6DfXAOHt/42A8BTVMgwNFu 8eFwM+K8gQFFJktdUH99/OfaDPbvLrlnuOdDu0Bng1VFjCOOP3kTGffeVHRA D7ncupi6BfdPnk3V6XMB7K/Z0Sz4rgzx/m4aYX9ogPT4RZFzlnWI6zulaC0P NYLNepAtHXUf4gN0fCbBo7UwG0KjyqOF44vRQxeNktY28Ek4puOnMYl48LBx iEl7PyTQMWw+nIT9K22Z1198Hwjw9pWTx+I+7B+zZgNc3HlGYXr/GVZmXzw+ O4zeHW7LGAXdieZViqSx/8Nn/v7ksz0+y509CpnG+Vpcz3/nDzsUf3PVa6cU p56PATGlN0kwZhzxxZgvBw54jsHp/IHjO7sxn37C3KLBOQo8kh1b9eh/93/P 39x8bzVI0/6y60y9WsDg7/yH/W8uXJ4qdKf/l3z39hNFLWOItz14TszcPgHV AZEqYXt+c76/ucFP4Xd8SkRQc16V6Xz6u3+8f/PimsBjKpfHYZtlbXBsIZbX nBRb1NeZgP51QaclrknEU0x44uq2t4BDwsbC5WK8vlPYC/olWmtA8HE9/aHG dsTPSLy0blGpgwG9jSMcoW04vqlfFy6Ob4Dl6zHeV0WrEX8/sV9mpb0cBAL3 x1xvwuvvBael98nIWrh5vspdkQnbxxQ5KG6lUA2bT5qysKvj9d9V2DThYFcF bY45ckLaTXj/f6pcPL7WAAQGN52/HjYgLqdqfl3Nrgm8lthLWC2xvPqW0Ogg lWHodGKrGmDA+6vZImq4LYsA4q0eM4kncX53f+eTxpuvCXDFtM6HWg9zVZ1p Yt7TQbiYIOtd+hHvH74z1+ZmWJshS+noh8ivJTh/yUxWr6Kph4Xos2rrucWI C0wce5FqUAtS+2mFXg2WIp6m4Vmr4NEGDNGD7+/ercLx8755yqhvGzzQEO4Q WsTt74zlWAgbaAXbNPLcBVXMM2ke+O9obIKQL0F3f7Ri/88zUFLJfLAJRv86 MGIki+3T3dXITP2wBerIZ4bjsnF8zt3wujgrtBVCPtK6JipmIF556FOWYm4N 8IQZ7Ii9n484x/so4Ys2rbA1ZlNpwjW8ftezbz2TO9UEjQ4hfgQz7J+dG5vC 5fWrYW3C9enPjbh/tDdVLoa41IPGE9mD9tIViL/0vs1aE9MEEW+J33bn4fjF HpfPrKbcBIbXQuu2R+P2QziXb2i9bgKus4u5G9tx/rTn4HGJPWENkMhd4tni 84f8tA5sjfUaQVlIqkRVC6+/nQYPN7BUEaDUTmz3wtjv9v/xj01jOw7EGxCA frGhivvbb/v/8a9fPA/f3OBCAB81r2iHmt/jQ/s3X6fYpGPVTwAJt+qjdj8x DxDZ/LppOwF4rwofqyz4zbf/zSd32TSEMhBghWOfCoGpBslzDJtu6/tKADPd mxBAX4W4SFDKB9MQArxb4v+YzVeK9NP2g5vy0giI7Kwapn/7u///xKdVwasW 98VHoZx2I9vstn/vn1/jw/41nqt4BF7ITWQfSfz3+p4BbaoLi0e3j8DxyJIf cen/3r//zXfdLPYaVhmFwkN8Ak8ry5F92Um1PnGbRmE/kwlVYH4jig/0rIbP bajGIVQ9QvHN+r/9+3/zG3nbpZd+xaXwy26OSbcxPyNanCpxcBL4usyfZ/U0 Ifv0b3xtPXlyEuwDPuZ+isf84I2Yza/uTgDTGdu8TxZNaH4oJXh3XVfvge8l 8SWH3P6dn/033/HmQTQ1ez/o3JTfq6jRgda3Vs99okLPMDzjlMy3SehB7YdO zu1X0hyChxubkuiG+9D6+shyW/FJxxC4m7gf5ZPqR7zsxBXqmzbDoB2SG5fZ 3Ynmx31a4KoVWx+41+wJFDP49/78b15PXxKpyd0PWl9par36//+50BjfW1Gj LGiPNdybqZ6K/MOSXWjtYkcurK5sV++0wPWDe+AyZaVLEfALyXfcU8X5u/DR TAO26Fw4Zf2gausbHL865reGbFUPhI4Kz53sx9IQ//2F7sLcectGLO/l+f7Z G6FC2Ed/lyn4YDL2b8KRM99X0iDK66D5e+YkxAvzDsa6iYeD2BH5mzFof1Mo Ws+tsAVPJoJiSL5xjnwN4rTNde5F80m/4muv17vz+PyhU+z65btf84Ay7NGt jcw4PnGyPWxKG8+C/vtKeSbb8PhqZ0d5ckMu8Cae8+YOw/VljMS7s5mpGSB6 hDfna+EnxGc2KavnCyZDdTjFh2SzFMRNaipP7Xn+Hryttjzu2pCN40vZJd/x xHTQ3kVx5fYxN8Q9hy2SH0/kwpbWT3X2fXGIb9PIyrtLnwoOst/zfszg853a RN2Dh+mK4WWX7aZqDlx/erKEBAlKF4CvfkV6QCLm0TS2D48UpoPEMd87V8Mx p4yI/ywnnAWTBWubXAow1/+obm2pWQ1xVXS5ti/HEOd1OjU1dLUcLqr5tyqf w+ebnN7JE+oH6+FzYRatoifmZUM25H2nK4GKGCFz0x3rrxNJGXR6UAb22dJW J8/i/CpBsOzG1pgKqJ4yf5oVgte/4w9D+YTaRlD1ufpCrwVziSr5UBpCM4yL uKcuLn9F/IqhR0pKdQ2c5rvwxb0X5yer4vrPj1+sgRXZAtGnMnh/a43Md9He q4Pq5PV7OfK4vp+7PBodMtwExFtLTaZ/WN95WTNsQdINoPaGSfr9I5z/hJb2 eK7QNYI64+kvj89i/ojKyZrnZjVs7Dbg8yrG+eU0T7nLhTutcD+WVioecP4X o7WNZ7G2CZbj1l/5S2P7z4kzinGRG4DNXShk4RrO//gf7007vKsJBqkOeEg7 Yv22NuzfvcMrQTMq2ockgcd3DwffxnqpKmCcF8giDf+hf887XMgpDXAv4Jq4 vzxuX7m95F14SQMMcS+uny7A8y8/qRelEN0OPtLxXd1hHYjTD6S/5mHqAlWt D91P9DHnMG3XTGFogdalR8slLTh/JGkqmhcdbYVmGudrxCBcP9HGn1G4TkeA 1yLN7ZL++HxhKwvJ1qJ+GCZmd301FcRcMpCXQ/7cMAjpW5Kb5TDXOtugTBs7 DCye+RxHovD5Bi3rZIHY7WEYo/HdEVCDOevU+smuzgHg9HalGZjA/snDPntk duMQRB/I41kJxO0PNxHoljJHYPtP3em3T7B/EaRk60pQCgIK5t7WDMcJxHMa Fc3b3nyEhbmALpUMzNs5+jqFnKuBM49d96Q7Xh/miacEJMTHge2woNitHnz/ kT6ur+DbNQY3+tL8LwXi+pQxcVwifn4aaPoDxuV68fyLZd4OjGGdhisVLkoS x/H5GINwuJ7O5BSUpH48NFqKefrsftY9HpPQe7bpqNMJfL7QX10yYXNhGly6 5p4mRWL7g8UzDg+mEuG85mWDwFCs3/dreJJX8SQIX2fJ8d2P70fUnolraRMm gYF/zs/JHPfvXfk73wL6aWiaaLsnF4TtM7Jz4WV5OgEqQjrhbEa4feY+YqbQ oz5QetFDzXAMz99T8h2d/tw+EGxcGml0HEfc8hhj+AW7QVgs0711IgXHD0rG Zrf5X/vuHIud1X5HzCdzM6k/SfbDhTUT40clWD9ZhosqNbIDXHsj41vz8f2e v3q+3K3RAeD4dLBq+2W8vh/ah60WZgwAQ9zUvHwK5h7DNlrkM1OwNzQd2I3x +Y6Ogv7uPMlJSK56sFM2FedHZ5O2fsy2JYLQ4ZX+98frcX4X0/jNevMkVCWY fbVB9ccv/6PAIiH0fRKYfIS/6Lrj81do3JcaNTUOwv0XKXd24/r5vsz9EXaD CZD98fKZ5zlcP1O6g2r24ATQjSupPVUl4Pl9X7piOz4BkzIy8y9G8f3D8SIL xitqE2Buw56q1I75+K3PVzh/+a3F9kFZo+4/nD+Hk475uU9B3qmYFadq7F8V vSj217IS4d1elT0fb/zh/pLhcrap+RTwaAt3Sgpj/UbnvRlkDCeANYI+/3gM 3h8iH9TNBo70gCilTu70dbz+Zk2nv9Xq98Ih26efLkTi/OZtILNU0tUukGUm ddmWYV7kelHheUIXFF9RD86Zx+vzzgersqfz3fBJ1tyffQS338GRQ9z2sg/k DV4K9m3A+smTbyQjazrhiqro1i+hWN6ylqptLKsDnjGIcqdS4/jQNTqxefw+ Ca5GW9wmhOH8okJ/Z+6eODJs1bFezhnA+Q19dRbJKo0MfElG6SQCzu+gZ0xy bWoSwrIiNIve4PrF5B13oNuzSfi8Rs4QmsXc2GkrtydxCipflVJ1bcH5Xfix d2TdeBI8P9qUaPYN219/q/PbfWoiuHvGTbK2YftcE1UoRkxJYEq3rnA+DfsX fYtuqgRnMoTe6JWqu47932L8/Z4mBxJYmR1juCOK+YRfdhC/HAkO3hVakTPG 47/b4W6/AYEM3p4ynacbsXyQQEfuV4tf7c8fMZMuxvb1rG/OlwshQ8ne4rhX s3h9eDnKLJ4wJINSCadHmyfWPy4xwVGySobs/cxTQ5uxPJWM9AS5kQz18V2b CPWY7772dmlrAxEGnPyoGLfh/vUQjO8b3iCD0GtDa5EU3L5ba9UXjREipAco XNx+Act/ML4lR8VCBuuC2BSpBdz+/kMgcMCeDMKcljofvuPx+Z+PGbj7vVPC NgZzk5urcWsXydC6W/zc8QnMDzATFCjayGCXlW1lYIq5bYV50W3GbjgTtBzl FI7jB3XYHvq5iA7g2vFBSLAS92/5Ha1zr9M0xL+I4WOIxfXrOUu+tZwDE2AU 0CXieTUW8XydixkjvNNAeHhYL7sO3w/e3uBdzz88CdQPjNsuTuL615v9BHnd jghTS4YG+WvRiH8JeOQcbjYN97/Zi3emh2L98+PsO9/+al9v17ddbq44viiw BEmLT0NwkE3dlgRsX3jBy2iNc5NgslMo+EE75nyfjyiz/Iq/+seOusQY4/OF IO28aVkVIuy9kFyndD0e8ccP9B6eVSMCVexU24szCYifFIyIEq2dgqHTL9gS /fD9L1+8TbuYMBFOEnVbR7Zh/3Q+O653rRG9K/mb11/XsNowPg0pmRovg/fh 9vc475sO/zoNJXcMNYnT+Hwosz2b1zVpCoS29x63AVyf/BfflyB4p8GvFQy5 WLt0o/sRLw5vCFAkdoJGY1B46zF8v/lw6hKDuk835FtG7nRrwvmF/32RA3ud W+FVx87GQz6Yp+Zr0pNiOyFH53qtgQDm//MxA0mHA4YWvHB8fM7Cb0dhTwKx KKvSSTfMPV0rr3F5kaHSeXdXJTP2D48kgnvaG3/5pzNJgh+24/0rFF58MOY9 GXS1Zfa+TsTx0+1pwJcpIIH9tvmwTnPMz4W9jPh4lAzNxitdiraYVzW3Um2h I0HZE00q8fPYfpUkr4qun0TgsZeVOtqE8y9OUcNdz5jJQDOwupvrDdZfHVds HNlPhpNN/vVOrH/ITzQc/iIUkWF++obc+h0sHxFYdPRqLxECNbwUtxbj9se0 uR99/uX/C2qXKt3tMF/YcpkqqpEE3t6m6p1/yL8/2xKDnDNDwdVJ4cLHCJwf GrkUjEd5v4XQU+eDGhmxfYzx3Q00idngl5xKczkXt7/emMyknp4BjruHi2Zb Mfen8uDuiUkFehd7pqGfWD8tE6/mWkYjXDL0UGIqxvlBf51w8LZzbWBBIaub /AafnxL7FAqG1JugT/iDmVEp9p/pLW0ND5yaYG31juYRF5yfuCX6PP8x1Aoc VwhVzckFiJfnWuoXOo+BmTFZl0UI14/vXyn51zweheg2lk1vi/D9t+ANAv/Z V+Owc/o7pzUPzo8pRvxy5PaOg35jJ0eyCt7/lkfAbN/EGDxIDhSiS/qD/rhT VBuPjEHX/EMD3SjsX76IHWbxpB4H7bPxiln5OL9nyE59q+gzDk1n1bQFNLC8 /apk+5vZESjcvis+lB73f+zWqgWd3AQ0/dW8V94S92+325E9uyUmoNv3PpUJ K66fdwkuvTFLGgOReyTpg3O4/prJ0Rh+8m0cnvzVbnQ0BbdvfyWGjpIwAR35 pWnz1JjXqvJm+p1Ihk7frE8LNln/D/9HQfFJLviAfDq+XyUqQ2RF2QvIEZlR ufcIx7/fX+itnFbr9mH9VXeHnzQIPgMt+3OmRw9g+XOv2ij9z+fBvGiZy5wU Xp/5kt0dK6s5kELBuVprhvfH7y9L9bc3uObh/aHQcbVeaTISKK57sG06jfu3 92S7v4JGNMwxHtEYvoL1M1GLEAc802CK9GC9rgTnL40hH69YsSeB99RmvbPn 8PmmCBdrXUHqR8iP3MHr24frl1WH4xyXaOOhovVKfJ00Hr9QP8JE5BUHyHj0 XmzIE4+PoHlzWumvvJWrhjnldBCOv+dbpT/bMU1AyLTtQFwLjn/mwcS6i0tj MH5Rwzo0GNfnAxrDJ27Rj8EX7QDHvXcwF+wdHBZmGIPAR/r2737+4f78odW9 R4bj4KRZIUZ/EXOtQ2KiPpVj8LqqQSBIBPOTOhEjArRjUBOcOj9wFbffvlW4 d0fIAOy+QOpeyMfzF0/jqPbBgghE5nHZESos7+cjOLTNkgzMvvF1N9sx3/lJ 612fChnu6K37ctVh+yzTVTzuRJNhOkfZkfYZ9v+XOXUdM75MQ0aivNTlERx/ 7E1/DL88RAZHNhanwodY/n8+ZiA53v7N7HbMof8yZYwhCUq7z3n8SMb2KdA4 agr8iv9sCnRle3mwvCN1Ue7AARKceMQqVS2B7dv9abxIqKgQviYzCkm9wPmp W8X3Og67Mih7mzUftQnf/yV+DI1j5M+Gta6EXVoboxD3Id+SEP9WDGvnw7d0 //UF9y/x9bbAiBLIvF159DsJ+4/FCfGfNqkZsFmWTpeqBt+vWkd4f93QVwZH b/Har4vi/JfFWP/KW6pCOGRdz/pqHJ/vv2eOIbBLFUKSC/lnJQm/j5Hz5aY4 mlsC1LR+FwrT8PvTBr5To/w3BsGAmbouSx6vr3RXksnm04Pgb0I9OGuCeav5 7e+RF4fgkD7F8r4CPL8HgmcElDQJUNlcTo7Rw/u/t+slZZMHAaz2ZfHHCeD8 qJaN73shxTAoLlkk5PHh9XFW426wkM0AyHKMUeRtxZw7xSrQ8tYwLL6m4Vty wbzoW97+8CcD4ECXnp0hhPtnPZuwXalmAGp6w7hqH2P7n9OrLc8rDoJrsjU1 WzDmWlGqlTRRA8BRU1qS9hbr7zwUlKejNghFi1QZ4vGYTwtx2tjlDkNtQk5k 0UVs/wlpwVv+5QOQbDPgUSyIxy/7lH5ss8kwxJ35fuLdGp6fK1w3C8YeDQFX uDn1pcdYXmp0tX80bBAu9wjzXHbA7VObXadQfzAMx7OFJHRjcf8PzoJIXXQf WIMl54wolrcMjROrTh0EjdcCLU3BeH8Xf9pk9fNGJ3xif+X9tBOfj6y5r77e PtEDXxlqubfw4/OFJ/z9P7O1O4G5Oz+RjwafL3iPsSdsnuuEyGUzzpnjWD/N 3aW5PWxd8Mkz2cEhEctztikHXHvXDeWEraX8Kbh+6ux4vVYaNwglmQ0VISxY nne9QHrBZQDeN3DQ2f/h/Ef7lMiS4NdBML7fO8h7DfOZzG/mvTAEd0vf2Ln5 Yf3fVbaCA/0wWB3NMawVwONzKPmnUUv6EJD1h++HK2D9bzlNag9U98OH95VM qh1Y/mhQfTXb9V5Y7S3sX1jD8sNnlrKUBQdhzO7hETdDfL/2ZsGofA/DILBS +G8YcMWc8rBTWXXtAJyITbUXbMe/T1mX+5md+3IAUkfa7DlLsX11Fgd7n6QM Qbby2Enbj1ieJcz5+N7YIdATVWadXsFcyvSsF7XVAOirZKz9lYf1q36abd89 NwiHNqunpub+Yf56dXyKeIfgi2Sg9ysZLP/orvrxoBODYBZi5uy3Bc9fyxmd j1Y8A0AuMH3hmY71v3kkKJGlNgJXByKnnurh9efl/UhnopMAxJ9gtlcfyyc7 ipw/HDwCZlfVkzc04Ppv5MDeErlIAlQZJxa2XsDyksws1XosIxD3TDVVTQpz gb4ZFXPTEQgAF3fKKcytkku6nxAIcMnckPS/7zH/zV+mDk8TrhPg+G1H7QTp P5wva8guWqcOwwMnMbfrc7i+d9ZVzt4vOQIxg4xaAxmYp5genaIhj8DAsWua C2cxT6RKC6cXHgWdMI8mUx3MuT3KUm8sD0Nl44QxuzX2n6dzPkhx/Gr/Z+Ez KwY+zJ9u/FIo+2wEwqfP5imz4v4PrZ/ql+EahbtF+dayV3H7jmoecr3OBEhL FheQb8b6ef24vjU9IICxUCdX3DTml3o/vbP5FZ+rDV1vqYti/bbFG5LY7hKA 0zL2wxauP5zvSH0aCGMYAX5J/wibc1i/0lfbYqY8Agw+yN81dQH37+v7rC3S +/qAWFxfzrwD+/+cJLKpjX8PGD2hW5skYP5ef5b3DWs/ULE/i4ydwfb7vGSa fOndC003kwZe6mH7fA5//GIf3AuJekwGnNm4f9qil3WjNHt+pXn51RTZOH5N Rz2NiftVN29eftzYWI/1i4dYBJxu7IBemZ3E7JfY/hsnRUx2sU9D6KBCIbEd 349u9X1B4Uiagt3VS4z7pfD7dSY2vzv0X6bg6GfniN178P2rwFFmuuf3p+Hp NSGD3o+YF9pdlLz9YwrCW1cO6s7h9/O2AoZb9vyqTwSsSu18nmPOWXNeYLpq Ch5kFgwUdWP954XqKV1YiVBGwfveNwLzYZPzW2dvT0MhL98Z2TuYL1Ceia0Y I0LTbYmrW2RwfXwi/3HC2fFmULv5uPzQ8G///c/7ynXS8VgHhjrQVqs34a39 /T7jn/fLL5iuK7kztkJ+6iy9biQJye9O4dpo+qQJ9idXtt3l/M15/+YlL8dK KXObIKbiSp7RdTLi2xeuZD1q6QWS1w0lLbHf8v/UTcsOvDIX+DohUzw7N9b/ 3+9H/ptX0m6O3Xu+DWZtag6w2WD9l3OOPX5r3QnPGWfjY2qx/H/x9rVNPGOK nVDn+vpCpcVv/s/73R+BJCm2ofZ//fs/8udJonJBeW1I7venaq3gHQe2FsiA 3Y9Prf6O//+8v9XSy85g4eqCwuUGbaEE3L+HbTw5vcsd0Cz+zOv5PszvXbbg CdRpg+R9pzbJM/zW/8/vd/i+bYoY+tQCyQ0Ld16PTSF+1M7tm39JOywrqvBq GUwh+9QEKMkC39pAzJl3dcXjt/5/3hcnR2zVbnjSDjGl90JucuH1l6wsGZWs 3AE5PFH6ynMkxH8yzpdXrXRDBhdjrOUkHh8hSwrVoQu9EOg11yQkMI3GV7eP 6mu8Qwt0SvrsanmD12+K6ULTrmNtYNTerSY5TkT8oUinveFbMmg6/tgkmYzz s9//j7DM/4OmA/MTtObcl/1JoMVVZGRBh/mmyCZr5XIy+CgZazKZYi6r5qvL tEaGTvFOnZODOD/T25V/yUCNDGf5szld3LB8XfzzF7LrZKD5POgXMoq562r+ 5rISMvDUpHZ/VyYhfrlQydohbRT6b0j1KKji+3WqBWKjbcMI0InV7ObJx+8j 5x/FqX/QGAFN5/ZRQ35cv7u+tLcUPTINtXtc85n18fsVV/O7rX40RKDR7GWk 3IvPly/GVBx6rDQF2yYu/PCXwO83Ho6dLG//QQRtulE/zYtY/n3/jrIFCxLs PNigYWGOz3c9Sm5wJKYRIVFaIW/iMeYRZ90CNq9PgIzMjZeXbHH7i1tuUItu nAbNOr1vxmm4f439Tq2j9t3QlC38rm4O178OD++3dJ8ggnDlmW6CCT4/jaWQ 8+9wJEGZpOlyRjp+H7klp5dnnyQZPKRbi2U/4/j1jkN+enk/GUiy9+yDqhrx /KnK36+YIcGC97x1ogyWNzPxHep5QYbRlLcdF7VwfB4OjXu0+xEJAq+yVlus 4Pfj/Rs41tL4yfAlJU3Udgm/f5Ln0x5P+mX/4x6/I07RmMc/rgyzf0AG+vOC gn5xf3gfqPW580gmGYz3kDm2r+P1W00/+1nfnAx5vs7WIaY4vr4+NiERcZMM F3hSyvekYD7gc1v2xSkyuPcl+PgX4N/vEUcevC7/SYI7dU8Yi/fg97Flcm4L K3pk8Fp0bw+6jseXZ+8RjiGnEVg+7eZS14vrp4YOHofiOQIU5E8eqr+N/cN/ cX2f+/GuDQTQi29T9b6N97+QveFgejMBPJXqGzke4PaFuVT4L1z6VV95T0VL r2DeKTbV+Z2BADFckX4pLzDfdL6o11J7CG6lLlf6W/yhvmLzvafY2QQXjIII 96Xw+o8ZGjJ7frsOdow0K8r44fE7J3m2bDW0HrjSUvN+8uD5+S++Oydq+Ul9 DRCdU+S2u+P3y+el+R4172+AkR+Uh5+Z4/VRYGcwZUbXAMafR2dN92N56sNW zq6G1dCbzRnvKYT3bw49SZCmuBRYzl3aWaWE++9pf/6hUmQ1yEk03Jvpxfv3 EB1rglRyI9wk5H9+thHvD4mi6E8LQg0QVj19xHkDbr9CaM1VW70eDmevRrvo YfsDBXxvOQpUQIcTc4iKKN5feh77eskDtXDcjHuzcwW2z0Kareqv6Cq4sluE nKKC8//GHGEmvpc1IL+na+bheWzfjvLMnY7LjWAGDZUbs7F9V5lqNSNkGyHi VmrTJhnsnx6PssTnLHaCRGKLvN4zzKVZD+6Uu94J5ZtX6vlrsH8X3VCRFUnV C9RdEcwp3Ni//y98/dQk "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.72, $CellContext`foxMobility$$ = 0.024200000000000003`, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.785, $CellContext`rabbitMobility$$ = 0.0106}, "ControllerVariables" :> { Hold[$CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitGrowthRate$473537$$, 0], Hold[$CellContext`rabbitMobility$$, \ $CellContext`rabbitMobility$473538$$, 0], Hold[$CellContext`foxGrowthRate$$, \ $CellContext`foxGrowthRate$473539$$, 0], Hold[$CellContext`foxMobility$$, $CellContext`foxMobility$473540$$, 0], Hold[$CellContext`foxEndurance$$, $CellContext`foxEndurance$473541$$, 0], Hold[$CellContext`moving$$, $CellContext`moving$473542$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Refresh[If[$CellContext`moving$$, $CellContext`ag$$ = \ $CellContext`updateAgents[$CellContext`ag$$, $CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitMobility$$, $CellContext`foxGrowthRate$$, \ $CellContext`foxMobility$$, $CellContext`foxEndurance$$]]; \ $CellContext`visualize[$CellContext`ag$$], UpdateInterval -> If[$CellContext`moving$$, 0, Infinity]], "Specifications" :> {{{$CellContext`rabbitGrowthRate$$, 0.785, "growth rate of rabbits"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`rabbitMobility$$, 0.0106, "mobility of rabbits"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxGrowthRate$$, 0.72, "growth rate of foxes"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`foxMobility$$, 0.024200000000000003`, "mobility of foxes"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxEndurance$$, 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1, Appearance -> "Labeled", ImageSize -> Tiny}, " ", {{$CellContext`moving$$, False, "run simulation"}, { True, False}}, {{$CellContext`ag$$, CompressedData[" 1:eJyVm3k8FVr06EUiKSFjSYQIIVEyLCmNVFIZIkPJmDnKLVKZioRkSCIpFJnn OfM8z7Njds5BMqfX+/xe937eXb3P/bz+6JxP39baa09r2HsfHkOrS0aUFBQU h379tfHXJ7/1VpFZvwFotot012UZBor/+49i5zNt7gexQ5D3VUswjGIE8ZRj XPXVycOgniLGmNo1hPiF296RG7KHwKaZJ/TIy1HEezZnFElqfIW4U6ejv3X3 ID7eFFS04VoFuLVxkWsSuzGXYg1rEyqFsjn2OlXtXsSZquQYJcmFkCJ78HjQ Vaz/aaWDr5tSGdSureTGTHciXtMlPdgtUgl7Et8KDn/tQvyi76yt7OEyKJ+q ULTmw/bVBcqoFJfWwMHM0zwT2VjewOgH6YtnFviN2HwQ8WlF/MlMzXzVTCZo BmR6aa5i+1oul6d7zmeA2WqOfMAK5hSm24PtYsnw1iCP0bqMiLjemHfPk11k cHzHWsCoOI3tX8pi31VPBJaocyr72DAvv5I6WxpCBPGnLVqNQVj/NZeFrG/+ JNj08zWlz2bMl4V0lZUPEOEn90d5HUfMhXnLlQb2EKGbuuJa+jrmRlcNRXrJ JLjn8V2c3DeFON9pP8a0tAlQfkvkqfCtRTwoLUgrq3caqBxJI0v5A3h9OdnW Mi1PQ4jH5H0FVcw1G2TsUu1IEHoj770fDV7/4qk9b0+6kiBS8EPXB3rMPStq 9xUrkSGx0b42bRrzNvptNOkLJDD3L4qyp8P7k83ZllaPlwSZ77PcGR2wPH8+ We9e1xR4qowsUvNj+WvWYQ5/nSQDs8JfsUWTg4h7fIP916Om4XmjbgDRFOvf sY+4ShE9DXHc/EQ9KcyNNj2ZW/pIBK/gl4Mtslj/iqn+PWPHadANfrOo3oi5 WVpY2NPbU7DGnX6LvwXb3zrGuzd2YQrC6VQEvxjh9mkO9n28xkqEkb54EdlN WD5Tt430gG8IlqLurd/jz0N88Uz6jh3hgzCm7iU0GBqBeIZo3a2UfAI8MP50 slDUB/HvDaPOpjJDQK0rwcrokIi4ECftVbPLg7B7S+2TreLpeH8VHN6lEDUI 1txbX4isfEa8IsTC6+6tAdh00eG97dtCxLeYnG436R4Eg+cCNeeP5SLuekhv +ynqAajYYXbkphiWp9wnusY32wViPN/lTnaQEe890jE6MDcC+VcnWeYgE/HQ V3pTr8ij8CZU2cc6qBLxzVI0YlpNI8Au8GFTwfMiPH7D5ZSOG0YgbIubWoQh tr9G8a1z2xUy5G3eKaf2phzP381N688syLB9jW6DfXAOHt/42A8BTVMgwNFu 8eFwM+K8gQFFJktdUH99/OfaDPbvLrlnuOdDu0Bng1VFjCOOP3kTGffeVHRA D7ncupi6BfdPnk3V6XMB7K/Z0Sz4rgzx/m4aYX9ogPT4RZFzlnWI6zulaC0P NYLNepAtHXUf4gN0fCbBo7UwG0KjyqOF44vRQxeNktY28Ek4puOnMYl48LBx iEl7PyTQMWw+nIT9K22Z1198Hwjw9pWTx+I+7B+zZgNc3HlGYXr/GVZmXzw+ O4zeHW7LGAXdieZViqSx/8Nn/v7ksz0+y509CpnG+Vpcz3/nDzsUf3PVa6cU p56PATGlN0kwZhzxxZgvBw54jsHp/IHjO7sxn37C3KLBOQo8kh1b9eh/93/P 39x8bzVI0/6y60y9WsDg7/yH/W8uXJ4qdKf/l3z39hNFLWOItz14TszcPgHV AZEqYXt+c76/ucFP4Xd8SkRQc16V6Xz6u3+8f/PimsBjKpfHYZtlbXBsIZbX nBRb1NeZgP51QaclrknEU0x44uq2t4BDwsbC5WK8vlPYC/olWmtA8HE9/aHG dsTPSLy0blGpgwG9jSMcoW04vqlfFy6Ob4Dl6zHeV0WrEX8/sV9mpb0cBAL3 x1xvwuvvBael98nIWrh5vspdkQnbxxQ5KG6lUA2bT5qysKvj9d9V2DThYFcF bY45ckLaTXj/f6pcPL7WAAQGN52/HjYgLqdqfl3Nrgm8lthLWC2xvPqW0Ogg lWHodGKrGmDA+6vZImq4LYsA4q0eM4kncX53f+eTxpuvCXDFtM6HWg9zVZ1p Yt7TQbiYIOtd+hHvH74z1+ZmWJshS+noh8ivJTh/yUxWr6Kph4Xos2rrucWI C0wce5FqUAtS+2mFXg2WIp6m4Vmr4NEGDNGD7+/ercLx8755yqhvGzzQEO4Q WsTt74zlWAgbaAXbNPLcBVXMM2ke+O9obIKQL0F3f7Ri/88zUFLJfLAJRv86 MGIki+3T3dXITP2wBerIZ4bjsnF8zt3wujgrtBVCPtK6JipmIF556FOWYm4N 8IQZ7Ii9n484x/so4Ys2rbA1ZlNpwjW8ftezbz2TO9UEjQ4hfgQz7J+dG5vC 5fWrYW3C9enPjbh/tDdVLoa41IPGE9mD9tIViL/0vs1aE9MEEW+J33bn4fjF HpfPrKbcBIbXQuu2R+P2QziXb2i9bgKus4u5G9tx/rTn4HGJPWENkMhd4tni 84f8tA5sjfUaQVlIqkRVC6+/nQYPN7BUEaDUTmz3wtjv9v/xj01jOw7EGxCA frGhivvbb/v/8a9fPA/f3OBCAB81r2iHmt/jQ/s3X6fYpGPVTwAJt+qjdj8x DxDZ/LppOwF4rwofqyz4zbf/zSd32TSEMhBghWOfCoGpBslzDJtu6/tKADPd mxBAX4W4SFDKB9MQArxb4v+YzVeK9NP2g5vy0giI7Kwapn/7u///xKdVwasW 98VHoZx2I9vstn/vn1/jw/41nqt4BF7ITWQfSfz3+p4BbaoLi0e3j8DxyJIf cen/3r//zXfdLPYaVhmFwkN8Ak8ry5F92Um1PnGbRmE/kwlVYH4jig/0rIbP bajGIVQ9QvHN+r/9+3/zG3nbpZd+xaXwy26OSbcxPyNanCpxcBL4usyfZ/U0 Ifv0b3xtPXlyEuwDPuZ+isf84I2Yza/uTgDTGdu8TxZNaH4oJXh3XVfvge8l 8SWH3P6dn/033/HmQTQ1ez/o3JTfq6jRgda3Vs99okLPMDzjlMy3SehB7YdO zu1X0hyChxubkuiG+9D6+shyW/FJxxC4m7gf5ZPqR7zsxBXqmzbDoB2SG5fZ 3Ynmx31a4KoVWx+41+wJFDP49/78b15PXxKpyd0PWl9par36//+50BjfW1Gj LGiPNdybqZ6K/MOSXWjtYkcurK5sV++0wPWDe+AyZaVLEfALyXfcU8X5u/DR TAO26Fw4Zf2gausbHL865reGbFUPhI4Kz53sx9IQ//2F7sLcectGLO/l+f7Z G6FC2Ed/lyn4YDL2b8KRM99X0iDK66D5e+YkxAvzDsa6iYeD2BH5mzFof1Mo Ws+tsAVPJoJiSL5xjnwN4rTNde5F80m/4muv17vz+PyhU+z65btf84Ay7NGt jcw4PnGyPWxKG8+C/vtKeSbb8PhqZ0d5ckMu8Cae8+YOw/VljMS7s5mpGSB6 hDfna+EnxGc2KavnCyZDdTjFh2SzFMRNaipP7Xn+Hryttjzu2pCN40vZJd/x xHTQ3kVx5fYxN8Q9hy2SH0/kwpbWT3X2fXGIb9PIyrtLnwoOst/zfszg853a RN2Dh+mK4WWX7aZqDlx/erKEBAlKF4CvfkV6QCLm0TS2D48UpoPEMd87V8Mx p4yI/ywnnAWTBWubXAow1/+obm2pWQ1xVXS5ti/HEOd1OjU1dLUcLqr5tyqf w+ebnN7JE+oH6+FzYRatoifmZUM25H2nK4GKGCFz0x3rrxNJGXR6UAb22dJW J8/i/CpBsOzG1pgKqJ4yf5oVgte/4w9D+YTaRlD1ufpCrwVziSr5UBpCM4yL uKcuLn9F/IqhR0pKdQ2c5rvwxb0X5yer4vrPj1+sgRXZAtGnMnh/a43Md9He q4Pq5PV7OfK4vp+7PBodMtwExFtLTaZ/WN95WTNsQdINoPaGSfr9I5z/hJb2 eK7QNYI64+kvj89i/ojKyZrnZjVs7Dbg8yrG+eU0T7nLhTutcD+WVioecP4X o7WNZ7G2CZbj1l/5S2P7z4kzinGRG4DNXShk4RrO//gf7007vKsJBqkOeEg7 Yv22NuzfvcMrQTMq2ockgcd3DwffxnqpKmCcF8giDf+hf887XMgpDXAv4Jq4 vzxuX7m95F14SQMMcS+uny7A8y8/qRelEN0OPtLxXd1hHYjTD6S/5mHqAlWt D91P9DHnMG3XTGFogdalR8slLTh/JGkqmhcdbYVmGudrxCBcP9HGn1G4TkeA 1yLN7ZL++HxhKwvJ1qJ+GCZmd301FcRcMpCXQ/7cMAjpW5Kb5TDXOtugTBs7 DCye+RxHovD5Bi3rZIHY7WEYo/HdEVCDOevU+smuzgHg9HalGZjA/snDPntk duMQRB/I41kJxO0PNxHoljJHYPtP3em3T7B/EaRk60pQCgIK5t7WDMcJxHMa Fc3b3nyEhbmALpUMzNs5+jqFnKuBM49d96Q7Xh/miacEJMTHge2woNitHnz/ kT6ur+DbNQY3+tL8LwXi+pQxcVwifn4aaPoDxuV68fyLZd4OjGGdhisVLkoS x/H5GINwuJ7O5BSUpH48NFqKefrsftY9HpPQe7bpqNMJfL7QX10yYXNhGly6 5p4mRWL7g8UzDg+mEuG85mWDwFCs3/dreJJX8SQIX2fJ8d2P70fUnolraRMm gYF/zs/JHPfvXfk73wL6aWiaaLsnF4TtM7Jz4WV5OgEqQjrhbEa4feY+YqbQ oz5QetFDzXAMz99T8h2d/tw+EGxcGml0HEfc8hhj+AW7QVgs0711IgXHD0rG Zrf5X/vuHIud1X5HzCdzM6k/SfbDhTUT40clWD9ZhosqNbIDXHsj41vz8f2e v3q+3K3RAeD4dLBq+2W8vh/ah60WZgwAQ9zUvHwK5h7DNlrkM1OwNzQd2I3x +Y6Ogv7uPMlJSK56sFM2FedHZ5O2fsy2JYLQ4ZX+98frcX4X0/jNevMkVCWY fbVB9ccv/6PAIiH0fRKYfIS/6Lrj81do3JcaNTUOwv0XKXd24/r5vsz9EXaD CZD98fKZ5zlcP1O6g2r24ATQjSupPVUl4Pl9X7piOz4BkzIy8y9G8f3D8SIL xitqE2Buw56q1I75+K3PVzh/+a3F9kFZo+4/nD+Hk475uU9B3qmYFadq7F8V vSj217IS4d1elT0fb/zh/pLhcrap+RTwaAt3Sgpj/UbnvRlkDCeANYI+/3gM 3h8iH9TNBo70gCilTu70dbz+Zk2nv9Xq98Ih26efLkTi/OZtILNU0tUukGUm ddmWYV7kelHheUIXFF9RD86Zx+vzzgersqfz3fBJ1tyffQS338GRQ9z2sg/k DV4K9m3A+smTbyQjazrhiqro1i+hWN6ylqptLKsDnjGIcqdS4/jQNTqxefw+ Ca5GW9wmhOH8okJ/Z+6eODJs1bFezhnA+Q19dRbJKo0MfElG6SQCzu+gZ0xy bWoSwrIiNIve4PrF5B13oNuzSfi8Rs4QmsXc2GkrtydxCipflVJ1bcH5Xfix d2TdeBI8P9qUaPYN219/q/PbfWoiuHvGTbK2YftcE1UoRkxJYEq3rnA+DfsX fYtuqgRnMoTe6JWqu47932L8/Z4mBxJYmR1juCOK+YRfdhC/HAkO3hVakTPG 47/b4W6/AYEM3p4ynacbsXyQQEfuV4tf7c8fMZMuxvb1rG/OlwshQ8ne4rhX s3h9eDnKLJ4wJINSCadHmyfWPy4xwVGySobs/cxTQ5uxPJWM9AS5kQz18V2b CPWY7772dmlrAxEGnPyoGLfh/vUQjO8b3iCD0GtDa5EU3L5ba9UXjREipAco XNx+Act/ML4lR8VCBuuC2BSpBdz+/kMgcMCeDMKcljofvuPx+Z+PGbj7vVPC NgZzk5urcWsXydC6W/zc8QnMDzATFCjayGCXlW1lYIq5bYV50W3GbjgTtBzl FI7jB3XYHvq5iA7g2vFBSLAS92/5Ha1zr9M0xL+I4WOIxfXrOUu+tZwDE2AU 0CXieTUW8XydixkjvNNAeHhYL7sO3w/e3uBdzz88CdQPjNsuTuL615v9BHnd jghTS4YG+WvRiH8JeOQcbjYN97/Zi3emh2L98+PsO9/+al9v17ddbq44viiw BEmLT0NwkE3dlgRsX3jBy2iNc5NgslMo+EE75nyfjyiz/Iq/+seOusQY4/OF IO28aVkVIuy9kFyndD0e8ccP9B6eVSMCVexU24szCYifFIyIEq2dgqHTL9gS /fD9L1+8TbuYMBFOEnVbR7Zh/3Q+O653rRG9K/mb11/XsNowPg0pmRovg/fh 9vc475sO/zoNJXcMNYnT+Hwosz2b1zVpCoS29x63AVyf/BfflyB4p8GvFQy5 WLt0o/sRLw5vCFAkdoJGY1B46zF8v/lw6hKDuk835FtG7nRrwvmF/32RA3ud W+FVx87GQz6Yp+Zr0pNiOyFH53qtgQDm//MxA0mHA4YWvHB8fM7Cb0dhTwKx KKvSSTfMPV0rr3F5kaHSeXdXJTP2D48kgnvaG3/5pzNJgh+24/0rFF58MOY9 GXS1Zfa+TsTx0+1pwJcpIIH9tvmwTnPMz4W9jPh4lAzNxitdiraYVzW3Um2h I0HZE00q8fPYfpUkr4qun0TgsZeVOtqE8y9OUcNdz5jJQDOwupvrDdZfHVds HNlPhpNN/vVOrH/ITzQc/iIUkWF++obc+h0sHxFYdPRqLxECNbwUtxbj9se0 uR99/uX/C2qXKt3tMF/YcpkqqpEE3t6m6p1/yL8/2xKDnDNDwdVJ4cLHCJwf GrkUjEd5v4XQU+eDGhmxfYzx3Q00idngl5xKczkXt7/emMyknp4BjruHi2Zb Mfen8uDuiUkFehd7pqGfWD8tE6/mWkYjXDL0UGIqxvlBf51w8LZzbWBBIaub /AafnxL7FAqG1JugT/iDmVEp9p/pLW0ND5yaYG31juYRF5yfuCX6PP8x1Aoc VwhVzckFiJfnWuoXOo+BmTFZl0UI14/vXyn51zweheg2lk1vi/D9t+ANAv/Z V+Owc/o7pzUPzo8pRvxy5PaOg35jJ0eyCt7/lkfAbN/EGDxIDhSiS/qD/rhT VBuPjEHX/EMD3SjsX76IHWbxpB4H7bPxiln5OL9nyE59q+gzDk1n1bQFNLC8 /apk+5vZESjcvis+lB73f+zWqgWd3AQ0/dW8V94S92+325E9uyUmoNv3PpUJ K66fdwkuvTFLGgOReyTpg3O4/prJ0Rh+8m0cnvzVbnQ0BbdvfyWGjpIwAR35 pWnz1JjXqvJm+p1Ihk7frE8LNln/D/9HQfFJLviAfDq+XyUqQ2RF2QvIEZlR ufcIx7/fX+itnFbr9mH9VXeHnzQIPgMt+3OmRw9g+XOv2ij9z+fBvGiZy5wU Xp/5kt0dK6s5kELBuVprhvfH7y9L9bc3uObh/aHQcbVeaTISKK57sG06jfu3 92S7v4JGNMwxHtEYvoL1M1GLEAc802CK9GC9rgTnL40hH69YsSeB99RmvbPn 8PmmCBdrXUHqR8iP3MHr24frl1WH4xyXaOOhovVKfJ00Hr9QP8JE5BUHyHj0 XmzIE4+PoHlzWumvvJWrhjnldBCOv+dbpT/bMU1AyLTtQFwLjn/mwcS6i0tj MH5Rwzo0GNfnAxrDJ27Rj8EX7QDHvXcwF+wdHBZmGIPAR/r2737+4f78odW9 R4bj4KRZIUZ/EXOtQ2KiPpVj8LqqQSBIBPOTOhEjArRjUBOcOj9wFbffvlW4 d0fIAOy+QOpeyMfzF0/jqPbBgghE5nHZESos7+cjOLTNkgzMvvF1N9sx3/lJ 612fChnu6K37ctVh+yzTVTzuRJNhOkfZkfYZ9v+XOXUdM75MQ0aivNTlERx/ 7E1/DL88RAZHNhanwodY/n8+ZiA53v7N7HbMof8yZYwhCUq7z3n8SMb2KdA4 agr8iv9sCnRle3mwvCN1Ue7AARKceMQqVS2B7dv9abxIqKgQviYzCkm9wPmp W8X3Og67Mih7mzUftQnf/yV+DI1j5M+Gta6EXVoboxD3Id+SEP9WDGvnw7d0 //UF9y/x9bbAiBLIvF159DsJ+4/FCfGfNqkZsFmWTpeqBt+vWkd4f93QVwZH b/Har4vi/JfFWP/KW6pCOGRdz/pqHJ/vv2eOIbBLFUKSC/lnJQm/j5Hz5aY4 mlsC1LR+FwrT8PvTBr5To/w3BsGAmbouSx6vr3RXksnm04Pgb0I9OGuCeav5 7e+RF4fgkD7F8r4CPL8HgmcElDQJUNlcTo7Rw/u/t+slZZMHAaz2ZfHHCeD8 qJaN73shxTAoLlkk5PHh9XFW426wkM0AyHKMUeRtxZw7xSrQ8tYwLL6m4Vty wbzoW97+8CcD4ECXnp0hhPtnPZuwXalmAGp6w7hqH2P7n9OrLc8rDoJrsjU1 WzDmWlGqlTRRA8BRU1qS9hbr7zwUlKejNghFi1QZ4vGYTwtx2tjlDkNtQk5k 0UVs/wlpwVv+5QOQbDPgUSyIxy/7lH5ss8kwxJ35fuLdGp6fK1w3C8YeDQFX uDn1pcdYXmp0tX80bBAu9wjzXHbA7VObXadQfzAMx7OFJHRjcf8PzoJIXXQf WIMl54wolrcMjROrTh0EjdcCLU3BeH8Xf9pk9fNGJ3xif+X9tBOfj6y5r77e PtEDXxlqubfw4/OFJ/z9P7O1O4G5Oz+RjwafL3iPsSdsnuuEyGUzzpnjWD/N 3aW5PWxd8Mkz2cEhEctztikHXHvXDeWEraX8Kbh+6ux4vVYaNwglmQ0VISxY nne9QHrBZQDeN3DQ2f/h/Ef7lMiS4NdBML7fO8h7DfOZzG/mvTAEd0vf2Ln5 Yf3fVbaCA/0wWB3NMawVwONzKPmnUUv6EJD1h++HK2D9bzlNag9U98OH95VM qh1Y/mhQfTXb9V5Y7S3sX1jD8sNnlrKUBQdhzO7hETdDfL/2ZsGofA/DILBS +G8YcMWc8rBTWXXtAJyITbUXbMe/T1mX+5md+3IAUkfa7DlLsX11Fgd7n6QM Qbby2Enbj1ieJcz5+N7YIdATVWadXsFcyvSsF7XVAOirZKz9lYf1q36abd89 NwiHNqunpub+Yf56dXyKeIfgi2Sg9ysZLP/orvrxoBODYBZi5uy3Bc9fyxmd j1Y8A0AuMH3hmY71v3kkKJGlNgJXByKnnurh9efl/UhnopMAxJ9gtlcfyyc7 ipw/HDwCZlfVkzc04Ppv5MDeErlIAlQZJxa2XsDyksws1XosIxD3TDVVTQpz gb4ZFXPTEQgAF3fKKcytkku6nxAIcMnckPS/7zH/zV+mDk8TrhPg+G1H7QTp P5wva8guWqcOwwMnMbfrc7i+d9ZVzt4vOQIxg4xaAxmYp5genaIhj8DAsWua C2cxT6RKC6cXHgWdMI8mUx3MuT3KUm8sD0Nl44QxuzX2n6dzPkhx/Gr/Z+Ez KwY+zJ9u/FIo+2wEwqfP5imz4v4PrZ/ql+EahbtF+dayV3H7jmoecr3OBEhL FheQb8b6ef24vjU9IICxUCdX3DTml3o/vbP5FZ+rDV1vqYti/bbFG5LY7hKA 0zL2wxauP5zvSH0aCGMYAX5J/wibc1i/0lfbYqY8Agw+yN81dQH37+v7rC3S +/qAWFxfzrwD+/+cJLKpjX8PGD2hW5skYP5ef5b3DWs/ULE/i4ydwfb7vGSa fOndC003kwZe6mH7fA5//GIf3AuJekwGnNm4f9qil3WjNHt+pXn51RTZOH5N Rz2NiftVN29eftzYWI/1i4dYBJxu7IBemZ3E7JfY/hsnRUx2sU9D6KBCIbEd 349u9X1B4Uiagt3VS4z7pfD7dSY2vzv0X6bg6GfniN178P2rwFFmuuf3p+Hp NSGD3o+YF9pdlLz9YwrCW1cO6s7h9/O2AoZb9vyqTwSsSu18nmPOWXNeYLpq Ch5kFgwUdWP954XqKV1YiVBGwfveNwLzYZPzW2dvT0MhL98Z2TuYL1Ceia0Y I0LTbYmrW2RwfXwi/3HC2fFmULv5uPzQ8G///c/7ynXS8VgHhjrQVqs34a39 /T7jn/fLL5iuK7kztkJ+6iy9biQJye9O4dpo+qQJ9idXtt3l/M15/+YlL8dK KXObIKbiSp7RdTLi2xeuZD1q6QWS1w0lLbHf8v/UTcsOvDIX+DohUzw7N9b/ 3+9H/ptX0m6O3Xu+DWZtag6w2WD9l3OOPX5r3QnPGWfjY2qx/H/x9rVNPGOK nVDn+vpCpcVv/s/73R+BJCm2ofZ//fs/8udJonJBeW1I7venaq3gHQe2FsiA 3Y9Prf6O//+8v9XSy85g4eqCwuUGbaEE3L+HbTw5vcsd0Cz+zOv5PszvXbbg CdRpg+R9pzbJM/zW/8/vd/i+bYoY+tQCyQ0Ld16PTSF+1M7tm39JOywrqvBq GUwh+9QEKMkC39pAzJl3dcXjt/5/3hcnR2zVbnjSDjGl90JucuH1l6wsGZWs 3AE5PFH6ynMkxH8yzpdXrXRDBhdjrOUkHh8hSwrVoQu9EOg11yQkMI3GV7eP 6mu8Qwt0SvrsanmD12+K6ULTrmNtYNTerSY5TkT8oUinveFbMmg6/tgkmYzz s9//j7DM/4OmA/MTtObcl/1JoMVVZGRBh/mmyCZr5XIy+CgZazKZYi6r5qvL tEaGTvFOnZODOD/T25V/yUCNDGf5szld3LB8XfzzF7LrZKD5POgXMoq562r+ 5rISMvDUpHZ/VyYhfrlQydohbRT6b0j1KKji+3WqBWKjbcMI0InV7ObJx+8j 5x/FqX/QGAFN5/ZRQ35cv7u+tLcUPTINtXtc85n18fsVV/O7rX40RKDR7GWk 3IvPly/GVBx6rDQF2yYu/PCXwO83Ho6dLG//QQRtulE/zYtY/n3/jrIFCxLs PNigYWGOz3c9Sm5wJKYRIVFaIW/iMeYRZ90CNq9PgIzMjZeXbHH7i1tuUItu nAbNOr1vxmm4f439Tq2j9t3QlC38rm4O178OD++3dJ8ggnDlmW6CCT4/jaWQ 8+9wJEGZpOlyRjp+H7klp5dnnyQZPKRbi2U/4/j1jkN+enk/GUiy9+yDqhrx /KnK36+YIcGC97x1ogyWNzPxHep5QYbRlLcdF7VwfB4OjXu0+xEJAq+yVlus 4Pfj/Rs41tL4yfAlJU3Udgm/f5Ln0x5P+mX/4x6/I07RmMc/rgyzf0AG+vOC gn5xf3gfqPW580gmGYz3kDm2r+P1W00/+1nfnAx5vs7WIaY4vr4+NiERcZMM F3hSyvekYD7gc1v2xSkyuPcl+PgX4N/vEUcevC7/SYI7dU8Yi/fg97Flcm4L K3pk8Fp0bw+6jseXZ+8RjiGnEVg+7eZS14vrp4YOHofiOQIU5E8eqr+N/cN/ cX2f+/GuDQTQi29T9b6N97+QveFgejMBPJXqGzke4PaFuVT4L1z6VV95T0VL r2DeKTbV+Z2BADFckX4pLzDfdL6o11J7CG6lLlf6W/yhvmLzvafY2QQXjIII 96Xw+o8ZGjJ7frsOdow0K8r44fE7J3m2bDW0HrjSUvN+8uD5+S++Oydq+Ul9 DRCdU+S2u+P3y+el+R4172+AkR+Uh5+Z4/VRYGcwZUbXAMafR2dN92N56sNW zq6G1dCbzRnvKYT3bw49SZCmuBRYzl3aWaWE++9pf/6hUmQ1yEk03Jvpxfv3 EB1rglRyI9wk5H9+thHvD4mi6E8LQg0QVj19xHkDbr9CaM1VW70eDmevRrvo YfsDBXxvOQpUQIcTc4iKKN5feh77eskDtXDcjHuzcwW2z0Kareqv6Cq4sluE nKKC8//GHGEmvpc1IL+na+bheWzfjvLMnY7LjWAGDZUbs7F9V5lqNSNkGyHi VmrTJhnsnx6PssTnLHaCRGKLvN4zzKVZD+6Uu94J5ZtX6vlrsH8X3VCRFUnV C9RdEcwp3Ni//y98/dQk "]}, ControlType -> None}, " ", Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]}, "Options" :> { AutorunSequencing -> {3}, TrackedSymbols :> {$CellContext`moving$$, $CellContext`ag$$}, SynchronousUpdating -> True, ControlPlacement -> Left}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{646., {212., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`updateAgents[ Pattern[$CellContext`agents, Blank[]], Pattern[$CellContext`rabbitGrowthRate, Blank[]], Pattern[$CellContext`rabbitMobility, Blank[]], Pattern[$CellContext`foxGrowthRate, Blank[]], Pattern[$CellContext`foxMobility, Blank[]], Pattern[$CellContext`foxEndurance, Blank[]]] := Module[{$CellContext`foxPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbitPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`nearestFoxes = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`dummyPoint]], \ $CellContext`nearestRabbits = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyPoint]], \ $CellContext`i, $CellContext`nextLocation, $CellContext`survivors}, Developer`ToPackedArray[ (Flatten[#, 1]& )[ Table[$CellContext`survivors = {}; $CellContext`nextLocation = Part[$CellContext`agents, $CellContext`i, {1, 2}] + If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, RandomReal[{-$CellContext`rabbitMobility, \ $CellContext`rabbitMobility}, 2], RandomReal[{-$CellContext`foxMobility, \ $CellContext`foxMobility}, 2]]; $CellContext`nextLocation = Clip[$CellContext`nextLocation, {0., 1.}]; If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, If[Norm[Part[ $CellContext`nearestFoxes[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Rabbit}]}; If[RandomReal[] < $CellContext`rabbitGrowthRate ( 1. - $CellContext`rabbitPop/$CellContext`maxRabbits), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, { 0., $CellContext`Rabbit}]]]; Null], If[Norm[Part[ $CellContext`nearestRabbits[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, If[ Part[$CellContext`agents, $CellContext`i, 3] < $CellContext`foxEndurance, $CellContext`survivors = { Join[$CellContext`nextLocation, { Part[$CellContext`agents, $CellContext`i, 3] + 1., $CellContext`Fox}]}; Null], $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Fox}]}; If[RandomReal[] < $CellContext`foxGrowthRate ( 1. - $CellContext`foxPop/$CellContext`maxFoxes), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, {0., $CellContext`Fox}]]]; Null]]; $CellContext`survivors, {$CellContext`i, Length[$CellContext`agents]}]]]], $CellContext`Fox = 1., $CellContext`Rabbit = 2., $CellContext`dummyPoint = {-1., -1.}, $CellContext`maxRabbits = 500., $CellContext`maxFoxes = 500., $CellContext`visualize[ Pattern[$CellContext`agents, Blank[]]] := Module[{$CellContext`foxes = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbits = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyList = \ {$CellContext`dummyPoint}}, Show[ Graphics[{ AbsolutePointSize[10], RGBColor[0.9, 0.42, 0.17], Point[ If[$CellContext`foxes == {}, $CellContext`dummyList, \ $CellContext`foxes]]}], Graphics[{ AbsolutePointSize[10], RGBColor[0.48, 0.11, 0.56], Point[ If[$CellContext`rabbits == {}, $CellContext`dummyList, \ $CellContext`rabbits]]}], ImageSize -> {375, 375}, AspectRatio -> Automatic, Frame -> False, Axes -> False, PlotRange -> {{0, 1}, {0, 1}}]], Attributes[PlotRange] = {ReadProtected}, $CellContext`initialAgents[] := Developer`ToPackedArray[ Table[ Join[ RandomReal[{0, 1}, 2], {0., If[RandomReal[] < 0.1, $CellContext`Fox, $CellContext`Rabbit]}], { 100}]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->178132442], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ag$$ = CompressedData[" 1:eJyVm3k41l3w8BVPJZ6opBQVURJFJEuMpVRCiUpUSiRKoZBsJRQJIZIte5Il a/bInuyyhuzulbSKer3X++B6m/v++dUffa/r/pg5M+ec7zkz58yX1+DqUaOF DAwMi6f/Y5p+hhmtlMwv6QSR/Cc53llUYPj//yn4jR9vPt3dCWJZh/c9sSQj vp7Tf9X48k54c1xN0SSMhDjrTmX9lbd7QGz7qqrV7hTEOfetJISzdoO97a+4 ksABxPms1iYo+g3BtcIazZfspYj/v8coPF1CVs7VHEF8tIQn9mPiW9h+/oHh TfY8xGtYvinwj2f++fssHywNOsta85out/i1KfHLkyy4ZsFZH9IUgfTf4/iY u/hSJeSG1DhvP4rbjztr3mSaHgIjbvaPCqPLEH8ublzQnFsIyf61C53E0hAf 1pO8U2NUBILUE2skHJGd8/Iz25U4esLLIGTttsx2hiLETwXu0zgX0gBrkuOK mu+9w9zMK/nq5stgKWRxX3gqA3Hra6NX93Q8Ae2fyjnsp7IR3yXJ+8T46Gs4 Wi9K9PGNQbz4lnBlS/trqBo3f9MjlkVn/BkYrIeI/r0P0DgqyDnxnatKewyR FlYq7e64fyNNBiUvVYbBRrsO+UuqxXT1M0YsffL5Gu5/nnA/o0V3MiCINUXX bAXWv17iiG+aZhoU+XMR9d7j+ZvvNlnHop0C7r06XhVHcf9YFy1sWbYmE/ZA SuVe6yTEpepava2cqLDXUVL58k/if3x09rnWd0n4j2YqGK/q44o5/ef7OT9f 8TPVw0icCK/8qth6lYb/49wKM9wqvoPRrLAM1vrDZAZnPbKP3BohsH0XFRaq xi5LiWjF3FjR+pQaFWyFZGwaQ8qQ/evCxK7UnqeC0L8vmVdUNKD2VVIshyJs SEBM8lrmXPfhP84xyx0fXdltpE0GQaep6sWWJci/+biAJa/O/RwqeCo8/9wi 0/QfXzOr/07xehaWRAK8zxt4bhIROCM/y5mT9E+yviOApb9t3ohhKfJPr+Sh cyJHM8g3797VvLn/v9/5ZuWNuY2Xv+YagopQIV7iOAnJP1Q0WrcjbwD2jlUu 6db7c/2en29MNhGUZB4AG4qzTHILGdn/gs91e1TZIKQ9dUweqf5z/R6F01EF xo3iPWAu0a9eFf/n+j0KY5cHJohTBHisnxVDufwM+dfgp+1UzvOnXv5Znl8r su7H8vcgG7V19dL+mv/+bsks39eW0O1+tx4OUUqassffIPujcwe573GXgaOQ Kse/u+oR94gw2H3FyAHeNJdJt+S/R+P7wcDowG5qCSwR9uAVa2pA/s3H+fdo RMauLIcyHfGcXOYq1L672+V8RZlAgCgVb44XNWj+zqrKsVmflY05ca+dRPLy GkjxP8j+QLIB8XH7N1qnHxTBreetY9kf6tD8KQ2zaF9MqYGtnwZinl2tQ/a1 3bMcOEKsg1/1XCqfvaqRfyKae7d/Wd4ADxr/ucvs3Yzap9pfWvT+WyuUf0sl aNwsRuO/yVrAurqlHo6aV56Sv9+B+KClq+qUfB0YHz/R+FmkGdlXyvdha6jX WzC0tQ0oq2//j2+c5QfHDE6dW1UGSz+EiP77a0b/3Ppxpyt1WGKiBHijNkqU C71D+pNLkvcU8VLgtidDpyoXjo9m/s42w6fVURRzA7meT26rCXD+IZclB434 KTC180T3UwLoV6ve7LiD46PHB3XPa1QQQfIe+7fyCsxVXIYVd7NSQUM4OmL5 Daw/x6G7IJCfCmuKr9WbJ2H5/T6FolcekeDH90fx1E3YfsmrYj6Py/9cd7D/ SkdqxHrssX5t7xyhhDVkqLcIHn0jgXk2ZxyvVQQBXI7LvHqTh9u36v52bheR BG3HdpDzfmP5gj51o/PDZPjMt1m8JArLhywTtYsRpoDSM9PHMZ24fwLCxPde XUsGTj6HU/w07A9f3BCnpkiGF5lpu9gX4PhWIP1584VFVLCU6lh5YgWWN/2c Wrczhgh8116frH2Pef5VA61z6yh0+1cw7dSrj9xEWDL8bP3+Huzfps5iwZ7p fSE0e0nMwCjmxVEeof2xZLDyqVkcuQ3bH7xno6HudFzu2MVctpAd949GRTDR M4UKAcwbh/ZJY/tn7PbbdDPO5vnf8/78Pd/iRylQkKIccmEvtl8kxs5s2xAZ eu8LlQYClj+VF5qsxUcBu7Vpoy4pRMR/XNd8ureBBLyyBm9unMf+GVVqnHNb TYLah3CYPQ63v7v3danYLzLoFzLwVIxg7qLlsyOBhQpH9nCQq45h/besa5ZG 8lDpjm8th/421wdksOZZzaqmjcenO6K6biKXAuFexUkp/Fi/8K8xjeo2Klwk WXI0nMH908q15MPSOAroJcl8S6bxfjPfE9zf8owCXiwMuSvWYvlLHcvsvCTI UDdq9uPpBdz+vm/3ReQfUuAkS/Bq+XgsPx/vWsXO//EiGUQrx75xXMH2zcft 9fZHCCqRYZnLW07GIqw/irRy7a3D9Ptf86FxoYQ0FV4qR6/wX4Tl/804p2Xv QQauwgKVakPM7ySPtbAKkunqZ9kWsfFQJH3ObrBd+akBGdjP9FTLs+Lxn5Ez EWQUVzDD/vc3Kur3eFEgINagnsWGxvog/Z7afoIC/RwmGrseY/tvDdmdFlCm gsg+izX6UX/Px7JCVm++QIChK1Vughv+nr+4MprLmDcCkeXlvzpladhvb8iR ODAM4pvekCd+YflrWmxq1TcpUF5f6cjiSn9/Tj1k4Kz1L31eaFy3w+IE5l+F Bz+n9w1Ah6hg93Ei5grXDim9OU6APi6VmmIp+utfZlVza0Q95szjexsXKhGA asJWwlaOeSlbzFI2ayJ4dejYZRXg98+7WldW1neE7vwSSBjK2+NMBnkxKVun IRr6RcUdagYpUEg8ulpRBfuXs+RZqOxjMgxKeifo8OP5OR+fsatJwjyizQTr v5W/pWT/a/r7X1eB2g8BdQo82DSy1e0T9j84NKJqexQBrhh5aKyhsf6yUN9t kZt+v7bltH1sVcL+r7lk6Ow8vb4E7X3YqtiL7We6mnDBi2EQKL5SIn3DWN65 8q6H4s8BMBReWfv7AfYvWod3OU8gGY5t+HVnwRi2r3dVyIDapun4aJtu1xM3 rD+0nVQ3pkCG45nnpwJVsX2UUaGt/fIUuOEmXbi1BbfPr+0qfmd63zb+WREQ sQXLz8crLlfJJS0iwqeFjlFCbNi++fiy93lynNxkiF9U5p4mhu07y6Rt6ZxL hmqzsASBKNx+7LGocWs7Amh/9Xz4jMb7uSlkxO0aC4Hu/AG9OCYmjhGIWMSt N1WD7VtqyfIzwOjPc5M5vsalYGjEfgh0w81vKbrQGF+qmJCy9CC0u5im9tKI TwquyVlXtvXS1f9ddnXopGQ/Xe76r8+1n079sIjTWsNMGLef+M9eTuHaPgh8 +jqxXgHz7Y22RxSm+qEm4t3HGkPMOUeNhF7JDYBm57+DOjTiS4dh6ZTi5gE4 1ng7Nurr33PRRgtzS9Y+eHnFZxe5EvePrSrTh2Q/MmilG5ct8MTjL1i7Mv1e 9Ag8VDciNZ/G+p21Tt9YKUB//TvQ4nc3uKEHErOdltow0ei/foZbSz07oJ+r 59V6dA7BoLBnyTn/6IJ2kBR64OgjguXVw22nE/NOuKU5mLuNhv8rstblnFtH gugAN5XfdpiXVSZH5F6iP3+TmwIzqqb3Bbujubq+GXj9kGS07xHqIsPaVcwr hDUwLyjqGGb6SQA9hSh/10O4/aDXrRajsSSQ3qpQJkFjf9z1gyH4tDYZQGUZ tERj/YbGHtnJ30lg47r50s44zPXHhxw8f9HPH10jF42Yy5CBWPqN0b0Tt2+d 6h3Z9pQC6xspg/o09qfORZ/2xK2gQoNTq8TzVty+NDdoLp3Oi9u8j/p+UsTy HBX8Z58eo0L84FK3mzTebxuBLS2ERgq8+JdgFZKM58fohzD/76r048tCfznj qhtUUBXzPSS1ButfFnOEzF5PXz7RlUnP5jn99Wk+bnjB+mgEK/34k6vjCU9d PAmOK3FvXnmTgLipGSeLmj4V6t7YMwgX4/6djwclr/Wwno7bRdVqeo9MYn7I wVPkC4EC93MOyzQq4v6dj3N6vDVYVUWC7ZSosqt+uH/D2obIxVum80etMs/j NOKrb36aTUfLiPAooSLrcyWWn4/7TC4s1icR4AWJ5cL9A1h/oAvX+M4eIpzo 6fbVX0cjfr/LrlPbSIbGbNW+I1sxf2sUMUQ0JMLxsFGiEhXrn483F0ey1T6k Pz9epJ/kMpjOD3vSBnpjt7UgLickkencRYAvv7li1hq8x/zJxvvb9pWBwZX0 x8Qjs/cTCjPtHXuaKKmbUgmtwi+vLO9w/sOOUQhyZCYs2N0A1IP5aWJqEYjP NHSd123Tgxcz5/tz57++Cr8WHGBKg7bJsP4kthbUPvvPTT4BmucgoIf50Huv mfM/9ln+pUJnS/y2FDjY98tLQqIHcf3bU77MlGQQr7jGdoDQ/If/8/OUUy7d 0gbZ8OBq6YHAZx3IfiFD4mEHrscgtI4aGlU5c/44dz65tT2yOqrWD34yBXwt XTSjf+58862V1U1ZOS/gCyVw87XXI/tDRpWePkkMgk/t1efHT5Yj/aaRl44J mWRNh0mhupdvdSL5zT2pcvdPjcD4wueHQhvx/JyPB/JKmXXWDUOEZMnNL114 fraJqQZMKA3A1wCr3ollcXj9j4pgins4ALnMT1T4Y0IRjyu7aOtqPwiFul8V QpSfIp4Xf2iRig0FnE3uedXaFCLOm71lSbExFcQUbx9KfoDvP2f6gWT89ZoP fzniE42tVMlJEuiJ8Gqvb8b3q5K8AvfV9lMh2mTs8qMPr/6aL6yxsV9mTgUt e7Ert4/9eT/FoHA8WJ4QvIEI9k/2PT2eg/l9oy1BRs/J4K5/+KHhXmz/ntiu 35xLSPDy8D9uw245OP85t5x4dzrvTL0cNs4igu9XU/fY7JnaSATZx6lFtW7Y /4F132VWuRBhR+qdL7oi+H41wfP3XVg8CMtVxY4W0jj/TU31uDnJNwLaUea3 X73GPPOhlaTStxFwem6SxDmE48cPH6pzjwsSYHnWdTbVahr77+R3R0PJESBJ 5eaM02jfKPaFHg9PL4ixpJ6s+v73fFsZX0DyRyIsCLK56lqL6xP46zpUNqn2 QwlruaquMt5/u83jfflTySBxunjhfqOhv+Z2ap4ZvnJkePEqa+OAyeBfcyUb rdMaH0lwaZSTfGk35sUTEzeeOVFB3cpG+uJS7F9f8+X3VC368Z95sOzpXX1k qMk8ECMtjNeH+fjyE4aDJf9QIE1dufjTGB7/p4EarRJZRAhg7rvKF4nH52NA JbfuGAUEL5L3Swlg/REXCnmEq+jHZ/NxvxGNpXJmrcBb3hl3yALHP3d/BNa8 WtMDO29waeZtwPYffLPh9zl2+vmNkJNN5O1d9POH9WtszRc4EOC3zaXkLwTc fqjlfXP1JyMgypvt/5abxvnDPHxHdmmp+c1huu1b8Nnmua4ZoMt//BZrqrGn wJHKlCzTfVh/5LHTH4am8162EHOerZ00zhfFbb5YWBGhjbyfqcgFz78iM4Vy uWn9/Ez2E9+lsf/Vd/o4KwlEWFUe8E7AFnPHxC8FoUFkUFrm9qxJAPOSrTpO vw4SoTp9W+5FGvnJfHyBTmQUoWIIAlQf1Rvfx9zOaae7UQAJbC0fkTo/YS6x rK5E6yv9/q2wXtvx8MQwXC7+2Z6Rjvvvk+IKyV0RRDhZfF7swQ4a9y+ik6fr 4unPL869ffZH5VDcOMuLLr9MDa1pAc7H6qx+B+4h+RC1MF+bsgZYmJQxzijr gfhh3ZMuSlINYM9uel6d8Rni3mu9DiT4N8LI96qjDo8f4/zGCqLaauvo2id3 P2qk4XItOHivbNayc0by8/Hnb8+G7LKtpat/Pp7df2zPa9lGGGOZVL8tkYL0 81WqM4y8bIZoBuOvBy/i+rJPfWOldTfJoFpaMcq44M/7r1EgZBkw2GhNj7v0 /reXnv05f+fibFGJD+5fP+P6oRLd+g2xx8kg6vxPX8HmmfdrLn6dedoZpJid 2khfP0ydP6goi+uL/rdcpymEFFf19/zgUDOD0HMKPKOYntZy/HMeT8fvRG8Z bxEitG/cbrUnfca/P+svRuHHZb/KyBtYPst30P2jIxkaAtMveA3/uU6PQrK2 QRZHIQlIAvr3xtH6Pgr8E4fZrHQ7wHS0TZ7Rf+accK7+JOO+w2FB/y6oK9pq XHhkRv9cfYxmmL9zFFcvXNDRk0vJHEby9lFDX5aE9wOTl/hH1rwZzjfLVXn2 Gbmu/wgPv37P1/MgIL6/QK0r2aob4tkH3g8x4/mxOswqVMa+B0x3XVlun4Tt y3w0QbaqGoHUYhnjBr4Z/XP5x44Yk41KQUMwusNIRlkf1zcF7vgx4h03AIEX 1nLXas3on8tPEg7UW8ldJEK6b3DM9kg8/1+lCYzf3EqGnhO/7kkewFy5OiAz 9QYJjmkmygvWYX504XGXBscRYE08I9HWO8Pn5r++wLKCq24UEBe5Xihz4+1/ fC4/G+7wogxOr99N4j6RK5urkX8zz0lzm0PqjjWofzbU389Vu0SBndIejh9H GxFfdLDxEePgeziju1/D3L0Xzd9kEeamodYhGI7/zuXyEPffrwfOFj8ODsA+ ua1DrmH9aP7847Xf+yR5CD7v7+hKm5Wf48eSDrg5viGCOmdkKc9+PP/tiUbO Ba8IwKPJUbO95s84Ybp/t+8SORrbB0kpefL5ZoOo/3jVi6/fJAyDx4pVv3+u G0BcK+pVov/IEFRMcTCNzZ5fzfmf4fMmQ+fjEEx8Xf7xmD8B+V+j7jf1M38Y vn3bmWsABDS+9VanWm9pT8fvyQJe15fg+SklS7S2DR4BjWRRdZ8nJCT/xLx+ 8s52AoiWazwQLMLrJ/uaY61qJCI8YvTL1+gcQjxMUIfL7l8C3LA75aS1GtsX 1HzRIb5qGPTJ+T/vVWH9ckz/LInwmM6/d2gML+chIv+PLfkysSWsDkYUw/LX WNA4f6v80b66rhZW6WivD7qLeYzetSTGegpEnBb51LsJx0cJB8a6w5mpYHtS ztyhA/NHZksDhLnIoPDigkvHFObudyUVurPIQDm+959OPtx+xi6XbRYxFDiW mNu3qY/+/euC5asWm3ri+KbIrFj0iAIZFkTJtj2/SON8ON81uP4pBWq/LJss aMbxeRxnRejiWvrxvyFfW6ZxNxmivntaRqL6y/m5/D3Zdb9TKODCF3wp+xX2 72v88CGZQgqsZ2np5L+N5XmGxw+1KdO3bz7ueMXQybSLDIXkiNrYdOz/6JbJ oserpsffoFLkBI37lYsRO4I9SkkgfsrguvYtzE9637tdMz1uLzdUTZ1chcff TnzFiiRvIkhezHUyz8D+b1vsfcWriv755nxcJCVo/LoQ/fNxAv8PxtVnyTBA 5j6rkkKjfizIq0BbiAI9iQm6ZEbsX/lqo95+TjLEZ2n9KCnBfJ0FY8YNTgqU eThsSb6H/ZuPv1DUUX3nSAI7nkzTDBr5hbaCuKc6Gwl8bx4aYqZx/zl1cHei 4B4ymPpwfLPwo3G/E2RxeYUf/f5hMGciuaO4cY43v9B7VnSdAgW29sQSGvdH jJ6PTvKnECDh+RdFDRr1e4u8TqZ7mVJgUFl3e24Fll+o3d1l9YUEz35vOXBR CMvrMPB4v+gnAPcVCT2xXOy/yO8v7vH7yaBoEXjllhTWryL3gHjWfgSSIihC vl9o3D96Vd7JMiHDhGlAn0Qmlhfd6LVdMol+/qQkHaaykakNPmcWhm+x6UP7 68Kd8XJOfYmgmLqvuPPazPn0XHy1+6gNi3xHAHRTLW8WbW5B/Fv88C+zvErg v1MicUqtA+lX3ntTssKvHM4L/7yeJl//h52jIG+uY7a6uhReqBt4xHX/Wd8/ P+8MGitY+TYLMoh8Tc/rcPudXgp5NfurwJaDt2fYBJ/P606sH86xLwXX8O56 Kf/3yD5uMbGXZUdewe+Mu5sjpGbio7n9z7/0q7mPyku4Puq19RgP5uYfth7k qUmHx68XnJFNwvoFqW7OR3QqID/Jhd07AnPSQDJTx/A72O160+fZiSZkf/Ji 0/f5yeWwU+j2/dWUd1h/Wu7O5ZAHTVE7ApT1cH22SazxxavrM4DTpfMOcXJG /9y+Zr1ZzV4+shycfxAWX3TC9x9e7z5tvHS6HkKjh2/L687cn8zFjw7OvlXR Me0g0DlltsoJ5w+Nokcqzrp3wcJEBRHPGzPxJd8sZ7uac9w8mgg5Iq8v93Dg +HkzW7vQpde9MPCSKVXqBgnJMw+yWi3r6Qcd+8nPriMz7c/Fb53hk2aW0QNw ICcwc+FsndNc/OcX9usl944RiJQSd+RH9b3zc+kDQztzi4bhxLYm8RpJ/H3D WqXQh5N8w/CbyvHJIpyC+pdb89XnBPdB0PzG2/XJE+cHita9DgP9g3DJqZs/ 8yjO/zYL6lpXWRDBru0g72p0fz+dV5td7paNGIGayq4KYUYSml/24elsYwyv YI/3ba4J5kq0vhiXsKf+NEmHnwvjhMr98Pn8fJxv3YWQurXBEPFlJIZ8KR3x M6InUoM8I6FPxl2BcXc+Xv8q4jZkMMXCW/YNpS/T8Pm/zxBV9IvUGVj0K8T5 H5tgxK+7m3yPNI2Eg488JOPln9OJ7xgY3nd/3cKkmYj3b8tnwQGqoRCmWSwb xojPV1T6JS+fvvgRwpXWX+sN6KOjf/o9uutYkS6Ev9/jlM2u086rB64LydQW 1QY0v43ijCVcd9XC4gviJqobqtD4yZ/7oZP2th40qpiWdqmUIR4YGFRzTrQF GJsiKpq18fnmsEXHzUBiOzRNKX+Q2YzvD+bjM+3kcHAcaNmA9RvyNkXXEMjg PazbMPQd11e79P+W8Wikv7/1Cvu+TPMngsZGPffs63j/dTV5ej1InwysFSe2 stCob9mqJ7VASpoChw7Hhu1ix/IKI0TjdQtI8JXllD7DUrw/349TUGzupADh +qrQHzTi0+puPp4lGhRIvG01LNeG9Z+gVsdKn6LCeEj/iAqN+FNY1aHbcy0Z 0pl1G5NWYx5t0cXnz0uGynXXlZ9yYq6e077mnhwJEvSu8q19gONrY4HozWrT cv4PLmyIpnF/SuE7PPn7JRV4ffulO+9jrrr3cH7/fgp8mORaXk6j/vBNSo6x egH9+H/m95z8JeI/g3H/3UnMsu/9H+qrZ36/q2nL5kWjvubFI81uWQoVBI0T Fk+oY/v7/Nn9h6bzGv1b3BkhNOrvpwLD3eXWUOBrY+vnu5b08z/dNoe74dk0 6sfF9jZkclPBJ0xMwFcN89MubHuL5ciQ7fk9X51G/Zq43u9+JlMqnHPLvttN wf1bqXl8j57hNPe9M3ZcjkZ9CVPFU8ViCoRF2MSbvMf3d6I/LJ+5WQ9DA/Oo 7TEa30cslp3MYHtOAG8LayGRCczf/Nq9cax0ABjMPTqlprD9ilr+Ok2WA0Dm iL2yfRWN7wOCA+WXBhGB77zRNuMs7B9R5oQo20EiCIq9lf1Ko76b29N7Sno3 /fxhPn52QiM7l5UCopeXWsRM4vXHbMRuo109EYpGmlM3CGH7qni/Oqq/JQP/ ZxkHdQ7Mo/s63mWnUyHk3ZG+Bhr151e5mG4P/d/z2/HzPGY08rf5eKi9JBeT K/rudZY3fmcND1jQCNXaakvNv4Xg/U/l+7uErhZQZD0otM4f32+cKW+xa0z/ AIdk2vXe0Ki/kx0S2vTySjucbTgY9M0Lr/9cps1TUv6lsPbpatPwc9h+pwUn Y3iNc8F45yjX6Q+Yy50S+TgZmwOvhwX8qvkxH5C1mDzHkAdr1ln+PJP295wj gXFVx/NMyNv7UquTxvlGjMsFAYUThZBZXCvapYn9/z/9Ne7m "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rabbitGrowthRate$$], 0.5, "growth rate of rabbits"}, 0, 1}, {{ Hold[$CellContext`rabbitMobility$$], 0.03, "mobility of rabbits"}, 0, 0.05}, {{ Hold[$CellContext`foxGrowthRate$$], 0.5, "growth rate of foxes"}, 0, 1}, {{ Hold[$CellContext`foxMobility$$], 0.05, "mobility of foxes"}, 0, 0.05}, {{ Hold[$CellContext`foxEndurance$$], 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`moving$$], False, "run simulation"}, { True, False}}, {{ Hold[$CellContext`ag$$], CompressedData[" 1:eJyVm3k41l3w8BVPJZ6opBQVURJFJEuMpVRCiUpUSiRKoZBsJRQJIZIte5Il a/bInuyyhuzulbSKer3X++B6m/v++dUffa/r/pg5M+ec7zkz58yX1+DqUaOF DAwMi6f/Y5p+hhmtlMwv6QSR/Cc53llUYPj//yn4jR9vPt3dCWJZh/c9sSQj vp7Tf9X48k54c1xN0SSMhDjrTmX9lbd7QGz7qqrV7hTEOfetJISzdoO97a+4 ksABxPms1iYo+g3BtcIazZfspYj/v8coPF1CVs7VHEF8tIQn9mPiW9h+/oHh TfY8xGtYvinwj2f++fssHywNOsta85out/i1KfHLkyy4ZsFZH9IUgfTf4/iY u/hSJeSG1DhvP4rbjztr3mSaHgIjbvaPCqPLEH8ublzQnFsIyf61C53E0hAf 1pO8U2NUBILUE2skHJGd8/Iz25U4esLLIGTttsx2hiLETwXu0zgX0gBrkuOK mu+9w9zMK/nq5stgKWRxX3gqA3Hra6NX93Q8Ae2fyjnsp7IR3yXJ+8T46Gs4 Wi9K9PGNQbz4lnBlS/trqBo3f9MjlkVn/BkYrIeI/r0P0DgqyDnxnatKewyR FlYq7e64fyNNBiUvVYbBRrsO+UuqxXT1M0YsffL5Gu5/nnA/o0V3MiCINUXX bAXWv17iiG+aZhoU+XMR9d7j+ZvvNlnHop0C7r06XhVHcf9YFy1sWbYmE/ZA SuVe6yTEpepava2cqLDXUVL58k/if3x09rnWd0n4j2YqGK/q44o5/ef7OT9f 8TPVw0icCK/8qth6lYb/49wKM9wqvoPRrLAM1vrDZAZnPbKP3BohsH0XFRaq xi5LiWjF3FjR+pQaFWyFZGwaQ8qQ/evCxK7UnqeC0L8vmVdUNKD2VVIshyJs SEBM8lrmXPfhP84xyx0fXdltpE0GQaep6sWWJci/+biAJa/O/RwqeCo8/9wi 0/QfXzOr/07xehaWRAK8zxt4bhIROCM/y5mT9E+yviOApb9t3ohhKfJPr+Sh cyJHM8g3797VvLn/v9/5ZuWNuY2Xv+YagopQIV7iOAnJP1Q0WrcjbwD2jlUu 6db7c/2en29MNhGUZB4AG4qzTHILGdn/gs91e1TZIKQ9dUweqf5z/R6F01EF xo3iPWAu0a9eFf/n+j0KY5cHJohTBHisnxVDufwM+dfgp+1UzvOnXv5Znl8r su7H8vcgG7V19dL+mv/+bsks39eW0O1+tx4OUUqassffIPujcwe573GXgaOQ Kse/u+oR94gw2H3FyAHeNJdJt+S/R+P7wcDowG5qCSwR9uAVa2pA/s3H+fdo RMauLIcyHfGcXOYq1L672+V8RZlAgCgVb44XNWj+zqrKsVmflY05ca+dRPLy GkjxP8j+QLIB8XH7N1qnHxTBreetY9kf6tD8KQ2zaF9MqYGtnwZinl2tQ/a1 3bMcOEKsg1/1XCqfvaqRfyKae7d/Wd4ADxr/ucvs3Yzap9pfWvT+WyuUf0sl aNwsRuO/yVrAurqlHo6aV56Sv9+B+KClq+qUfB0YHz/R+FmkGdlXyvdha6jX WzC0tQ0oq2//j2+c5QfHDE6dW1UGSz+EiP77a0b/3Ppxpyt1WGKiBHijNkqU C71D+pNLkvcU8VLgtidDpyoXjo9m/s42w6fVURRzA7meT26rCXD+IZclB434 KTC180T3UwLoV6ve7LiD46PHB3XPa1QQQfIe+7fyCsxVXIYVd7NSQUM4OmL5 Daw/x6G7IJCfCmuKr9WbJ2H5/T6FolcekeDH90fx1E3YfsmrYj6Py/9cd7D/ SkdqxHrssX5t7xyhhDVkqLcIHn0jgXk2ZxyvVQQBXI7LvHqTh9u36v52bheR BG3HdpDzfmP5gj51o/PDZPjMt1m8JArLhywTtYsRpoDSM9PHMZ24fwLCxPde XUsGTj6HU/w07A9f3BCnpkiGF5lpu9gX4PhWIP1584VFVLCU6lh5YgWWN/2c Wrczhgh8116frH2Pef5VA61z6yh0+1cw7dSrj9xEWDL8bP3+Huzfps5iwZ7p fSE0e0nMwCjmxVEeof2xZLDyqVkcuQ3bH7xno6HudFzu2MVctpAd949GRTDR M4UKAcwbh/ZJY/tn7PbbdDPO5vnf8/78Pd/iRylQkKIccmEvtl8kxs5s2xAZ eu8LlQYClj+VF5qsxUcBu7Vpoy4pRMR/XNd8ureBBLyyBm9unMf+GVVqnHNb TYLah3CYPQ63v7v3danYLzLoFzLwVIxg7qLlsyOBhQpH9nCQq45h/besa5ZG 8lDpjm8th/421wdksOZZzaqmjcenO6K6biKXAuFexUkp/Fi/8K8xjeo2Klwk WXI0nMH908q15MPSOAroJcl8S6bxfjPfE9zf8owCXiwMuSvWYvlLHcvsvCTI UDdq9uPpBdz+vm/3ReQfUuAkS/Bq+XgsPx/vWsXO//EiGUQrx75xXMH2zcft 9fZHCCqRYZnLW07GIqw/irRy7a3D9Ptf86FxoYQ0FV4qR6/wX4Tl/804p2Xv QQauwgKVakPM7ySPtbAKkunqZ9kWsfFQJH3ObrBd+akBGdjP9FTLs+Lxn5Ez EWQUVzDD/vc3Kur3eFEgINagnsWGxvog/Z7afoIC/RwmGrseY/tvDdmdFlCm gsg+izX6UX/Px7JCVm++QIChK1Vughv+nr+4MprLmDcCkeXlvzpladhvb8iR ODAM4pvekCd+YflrWmxq1TcpUF5f6cjiSn9/Tj1k4Kz1L31eaFy3w+IE5l+F Bz+n9w1Ah6hg93Ei5grXDim9OU6APi6VmmIp+utfZlVza0Q95szjexsXKhGA asJWwlaOeSlbzFI2ayJ4dejYZRXg98+7WldW1neE7vwSSBjK2+NMBnkxKVun IRr6RcUdagYpUEg8ulpRBfuXs+RZqOxjMgxKeifo8OP5OR+fsatJwjyizQTr v5W/pWT/a/r7X1eB2g8BdQo82DSy1e0T9j84NKJqexQBrhh5aKyhsf6yUN9t kZt+v7bltH1sVcL+r7lk6Ow8vb4E7X3YqtiL7We6mnDBi2EQKL5SIn3DWN65 8q6H4s8BMBReWfv7AfYvWod3OU8gGY5t+HVnwRi2r3dVyIDapun4aJtu1xM3 rD+0nVQ3pkCG45nnpwJVsX2UUaGt/fIUuOEmXbi1BbfPr+0qfmd63zb+WREQ sQXLz8crLlfJJS0iwqeFjlFCbNi++fiy93lynNxkiF9U5p4mhu07y6Rt6ZxL hmqzsASBKNx+7LGocWs7Amh/9Xz4jMb7uSlkxO0aC4Hu/AG9OCYmjhGIWMSt N1WD7VtqyfIzwOjPc5M5vsalYGjEfgh0w81vKbrQGF+qmJCy9CC0u5im9tKI TwquyVlXtvXS1f9ddnXopGQ/Xe76r8+1n079sIjTWsNMGLef+M9eTuHaPgh8 +jqxXgHz7Y22RxSm+qEm4t3HGkPMOUeNhF7JDYBm57+DOjTiS4dh6ZTi5gE4 1ng7Nurr33PRRgtzS9Y+eHnFZxe5EvePrSrTh2Q/MmilG5ct8MTjL1i7Mv1e 9Ag8VDciNZ/G+p21Tt9YKUB//TvQ4nc3uKEHErOdltow0ei/foZbSz07oJ+r 59V6dA7BoLBnyTn/6IJ2kBR64OgjguXVw22nE/NOuKU5mLuNhv8rstblnFtH gugAN5XfdpiXVSZH5F6iP3+TmwIzqqb3Bbujubq+GXj9kGS07xHqIsPaVcwr hDUwLyjqGGb6SQA9hSh/10O4/aDXrRajsSSQ3qpQJkFjf9z1gyH4tDYZQGUZ tERj/YbGHtnJ30lg47r50s44zPXHhxw8f9HPH10jF42Yy5CBWPqN0b0Tt2+d 6h3Z9pQC6xspg/o09qfORZ/2xK2gQoNTq8TzVty+NDdoLp3Oi9u8j/p+UsTy HBX8Z58eo0L84FK3mzTebxuBLS2ERgq8+JdgFZKM58fohzD/76r048tCfznj qhtUUBXzPSS1ButfFnOEzF5PXz7RlUnP5jn99Wk+bnjB+mgEK/34k6vjCU9d PAmOK3FvXnmTgLipGSeLmj4V6t7YMwgX4/6djwclr/Wwno7bRdVqeo9MYn7I wVPkC4EC93MOyzQq4v6dj3N6vDVYVUWC7ZSosqt+uH/D2obIxVum80etMs/j NOKrb36aTUfLiPAooSLrcyWWn4/7TC4s1icR4AWJ5cL9A1h/oAvX+M4eIpzo 6fbVX0cjfr/LrlPbSIbGbNW+I1sxf2sUMUQ0JMLxsFGiEhXrn483F0ey1T6k Pz9epJ/kMpjOD3vSBnpjt7UgLickkencRYAvv7li1hq8x/zJxvvb9pWBwZX0 x8Qjs/cTCjPtHXuaKKmbUgmtwi+vLO9w/sOOUQhyZCYs2N0A1IP5aWJqEYjP NHSd123Tgxcz5/tz57++Cr8WHGBKg7bJsP4kthbUPvvPTT4BmucgoIf50Huv mfM/9ln+pUJnS/y2FDjY98tLQqIHcf3bU77MlGQQr7jGdoDQ/If/8/OUUy7d 0gbZ8OBq6YHAZx3IfiFD4mEHrscgtI4aGlU5c/44dz65tT2yOqrWD34yBXwt XTSjf+58862V1U1ZOS/gCyVw87XXI/tDRpWePkkMgk/t1efHT5Yj/aaRl44J mWRNh0mhupdvdSL5zT2pcvdPjcD4wueHQhvx/JyPB/JKmXXWDUOEZMnNL114 fraJqQZMKA3A1wCr3ollcXj9j4pgins4ALnMT1T4Y0IRjyu7aOtqPwiFul8V QpSfIp4Xf2iRig0FnE3uedXaFCLOm71lSbExFcQUbx9KfoDvP2f6gWT89ZoP fzniE42tVMlJEuiJ8Gqvb8b3q5K8AvfV9lMh2mTs8qMPr/6aL6yxsV9mTgUt e7Ert4/9eT/FoHA8WJ4QvIEI9k/2PT2eg/l9oy1BRs/J4K5/+KHhXmz/ntiu 35xLSPDy8D9uw245OP85t5x4dzrvTL0cNs4igu9XU/fY7JnaSATZx6lFtW7Y /4F132VWuRBhR+qdL7oi+H41wfP3XVg8CMtVxY4W0jj/TU31uDnJNwLaUea3 X73GPPOhlaTStxFwem6SxDmE48cPH6pzjwsSYHnWdTbVahr77+R3R0PJESBJ 5eaM02jfKPaFHg9PL4ixpJ6s+v73fFsZX0DyRyIsCLK56lqL6xP46zpUNqn2 QwlruaquMt5/u83jfflTySBxunjhfqOhv+Z2ap4ZvnJkePEqa+OAyeBfcyUb rdMaH0lwaZSTfGk35sUTEzeeOVFB3cpG+uJS7F9f8+X3VC368Z95sOzpXX1k qMk8ECMtjNeH+fjyE4aDJf9QIE1dufjTGB7/p4EarRJZRAhg7rvKF4nH52NA JbfuGAUEL5L3Swlg/REXCnmEq+jHZ/NxvxGNpXJmrcBb3hl3yALHP3d/BNa8 WtMDO29waeZtwPYffLPh9zl2+vmNkJNN5O1d9POH9WtszRc4EOC3zaXkLwTc fqjlfXP1JyMgypvt/5abxvnDPHxHdmmp+c1huu1b8Nnmua4ZoMt//BZrqrGn wJHKlCzTfVh/5LHTH4am8162EHOerZ00zhfFbb5YWBGhjbyfqcgFz78iM4Vy uWn9/Ez2E9+lsf/Vd/o4KwlEWFUe8E7AFnPHxC8FoUFkUFrm9qxJAPOSrTpO vw4SoTp9W+5FGvnJfHyBTmQUoWIIAlQf1Rvfx9zOaae7UQAJbC0fkTo/YS6x rK5E6yv9/q2wXtvx8MQwXC7+2Z6Rjvvvk+IKyV0RRDhZfF7swQ4a9y+ik6fr 4unPL869ffZH5VDcOMuLLr9MDa1pAc7H6qx+B+4h+RC1MF+bsgZYmJQxzijr gfhh3ZMuSlINYM9uel6d8Rni3mu9DiT4N8LI96qjDo8f4/zGCqLaauvo2id3 P2qk4XItOHivbNayc0by8/Hnb8+G7LKtpat/Pp7df2zPa9lGGGOZVL8tkYL0 81WqM4y8bIZoBuOvBy/i+rJPfWOldTfJoFpaMcq44M/7r1EgZBkw2GhNj7v0 /reXnv05f+fibFGJD+5fP+P6oRLd+g2xx8kg6vxPX8HmmfdrLn6dedoZpJid 2khfP0ydP6goi+uL/rdcpymEFFf19/zgUDOD0HMKPKOYntZy/HMeT8fvRG8Z bxEitG/cbrUnfca/P+svRuHHZb/KyBtYPst30P2jIxkaAtMveA3/uU6PQrK2 QRZHIQlIAvr3xtH6Pgr8E4fZrHQ7wHS0TZ7Rf+accK7+JOO+w2FB/y6oK9pq XHhkRv9cfYxmmL9zFFcvXNDRk0vJHEby9lFDX5aE9wOTl/hH1rwZzjfLVXn2 Gbmu/wgPv37P1/MgIL6/QK0r2aob4tkH3g8x4/mxOswqVMa+B0x3XVlun4Tt y3w0QbaqGoHUYhnjBr4Z/XP5x44Yk41KQUMwusNIRlkf1zcF7vgx4h03AIEX 1nLXas3on8tPEg7UW8ldJEK6b3DM9kg8/1+lCYzf3EqGnhO/7kkewFy5OiAz 9QYJjmkmygvWYX504XGXBscRYE08I9HWO8Pn5r++wLKCq24UEBe5Xihz4+1/ fC4/G+7wogxOr99N4j6RK5urkX8zz0lzm0PqjjWofzbU389Vu0SBndIejh9H GxFfdLDxEePgeziju1/D3L0Xzd9kEeamodYhGI7/zuXyEPffrwfOFj8ODsA+ ua1DrmH9aP7847Xf+yR5CD7v7+hKm5Wf48eSDrg5viGCOmdkKc9+PP/tiUbO Ba8IwKPJUbO95s84Ybp/t+8SORrbB0kpefL5ZoOo/3jVi6/fJAyDx4pVv3+u G0BcK+pVov/IEFRMcTCNzZ5fzfmf4fMmQ+fjEEx8Xf7xmD8B+V+j7jf1M38Y vn3bmWsABDS+9VanWm9pT8fvyQJe15fg+SklS7S2DR4BjWRRdZ8nJCT/xLx+ 8s52AoiWazwQLMLrJ/uaY61qJCI8YvTL1+gcQjxMUIfL7l8C3LA75aS1GtsX 1HzRIb5qGPTJ+T/vVWH9ckz/LInwmM6/d2gML+chIv+PLfkysSWsDkYUw/LX WNA4f6v80b66rhZW6WivD7qLeYzetSTGegpEnBb51LsJx0cJB8a6w5mpYHtS ztyhA/NHZksDhLnIoPDigkvHFObudyUVurPIQDm+959OPtx+xi6XbRYxFDiW mNu3qY/+/euC5asWm3ri+KbIrFj0iAIZFkTJtj2/SON8ON81uP4pBWq/LJss aMbxeRxnRejiWvrxvyFfW6ZxNxmivntaRqL6y/m5/D3Zdb9TKODCF3wp+xX2 72v88CGZQgqsZ2np5L+N5XmGxw+1KdO3bz7ueMXQybSLDIXkiNrYdOz/6JbJ oserpsffoFLkBI37lYsRO4I9SkkgfsrguvYtzE9637tdMz1uLzdUTZ1chcff TnzFiiRvIkhezHUyz8D+b1vsfcWriv755nxcJCVo/LoQ/fNxAv8PxtVnyTBA 5j6rkkKjfizIq0BbiAI9iQm6ZEbsX/lqo95+TjLEZ2n9KCnBfJ0FY8YNTgqU eThsSb6H/ZuPv1DUUX3nSAI7nkzTDBr5hbaCuKc6Gwl8bx4aYqZx/zl1cHei 4B4ymPpwfLPwo3G/E2RxeYUf/f5hMGciuaO4cY43v9B7VnSdAgW29sQSGvdH jJ6PTvKnECDh+RdFDRr1e4u8TqZ7mVJgUFl3e24Fll+o3d1l9YUEz35vOXBR CMvrMPB4v+gnAPcVCT2xXOy/yO8v7vH7yaBoEXjllhTWryL3gHjWfgSSIihC vl9o3D96Vd7JMiHDhGlAn0Qmlhfd6LVdMol+/qQkHaaykakNPmcWhm+x6UP7 68Kd8XJOfYmgmLqvuPPazPn0XHy1+6gNi3xHAHRTLW8WbW5B/Fv88C+zvErg v1MicUqtA+lX3ntTssKvHM4L/7yeJl//h52jIG+uY7a6uhReqBt4xHX/Wd8/ P+8MGitY+TYLMoh8Tc/rcPudXgp5NfurwJaDt2fYBJ/P606sH86xLwXX8O56 Kf/3yD5uMbGXZUdewe+Mu5sjpGbio7n9z7/0q7mPyku4Puq19RgP5uYfth7k qUmHx68XnJFNwvoFqW7OR3QqID/Jhd07AnPSQDJTx/A72O160+fZiSZkf/Ji 0/f5yeWwU+j2/dWUd1h/Wu7O5ZAHTVE7ApT1cH22SazxxavrM4DTpfMOcXJG /9y+Zr1ZzV4+shycfxAWX3TC9x9e7z5tvHS6HkKjh2/L687cn8zFjw7OvlXR Me0g0DlltsoJ5w+Nokcqzrp3wcJEBRHPGzPxJd8sZ7uac9w8mgg5Iq8v93Dg +HkzW7vQpde9MPCSKVXqBgnJMw+yWi3r6Qcd+8nPriMz7c/Fb53hk2aW0QNw ICcwc+FsndNc/OcX9usl944RiJQSd+RH9b3zc+kDQztzi4bhxLYm8RpJ/H3D WqXQh5N8w/CbyvHJIpyC+pdb89XnBPdB0PzG2/XJE+cHita9DgP9g3DJqZs/ 8yjO/zYL6lpXWRDBru0g72p0fz+dV5td7paNGIGayq4KYUYSml/24elsYwyv YI/3ba4J5kq0vhiXsKf+NEmHnwvjhMr98Pn8fJxv3YWQurXBEPFlJIZ8KR3x M6InUoM8I6FPxl2BcXc+Xv8q4jZkMMXCW/YNpS/T8Pm/zxBV9IvUGVj0K8T5 H5tgxK+7m3yPNI2Eg488JOPln9OJ7xgY3nd/3cKkmYj3b8tnwQGqoRCmWSwb xojPV1T6JS+fvvgRwpXWX+sN6KOjf/o9uutYkS6Ev9/jlM2u086rB64LydQW 1QY0v43ijCVcd9XC4gviJqobqtD4yZ/7oZP2th40qpiWdqmUIR4YGFRzTrQF GJsiKpq18fnmsEXHzUBiOzRNKX+Q2YzvD+bjM+3kcHAcaNmA9RvyNkXXEMjg PazbMPQd11e79P+W8Wikv7/1Cvu+TPMngsZGPffs63j/dTV5ej1InwysFSe2 stCob9mqJ7VASpoChw7Hhu1ix/IKI0TjdQtI8JXllD7DUrw/349TUGzupADh +qrQHzTi0+puPp4lGhRIvG01LNeG9Z+gVsdKn6LCeEj/iAqN+FNY1aHbcy0Z 0pl1G5NWYx5t0cXnz0uGynXXlZ9yYq6e077mnhwJEvSu8q19gONrY4HozWrT cv4PLmyIpnF/SuE7PPn7JRV4ffulO+9jrrr3cH7/fgp8mORaXk6j/vBNSo6x egH9+H/m95z8JeI/g3H/3UnMsu/9H+qrZ36/q2nL5kWjvubFI81uWQoVBI0T Fk+oY/v7/Nn9h6bzGv1b3BkhNOrvpwLD3eXWUOBrY+vnu5b08z/dNoe74dk0 6sfF9jZkclPBJ0xMwFcN89MubHuL5ciQ7fk9X51G/Zq43u9+JlMqnHPLvttN wf1bqXl8j57hNPe9M3ZcjkZ9CVPFU8ViCoRF2MSbvMf3d6I/LJ+5WQ9DA/Oo 7TEa30cslp3MYHtOAG8LayGRCczf/Nq9cax0ABjMPTqlprD9ilr+Ok2WA0Dm iL2yfRWN7wOCA+WXBhGB77zRNuMs7B9R5oQo20EiCIq9lf1Ko76b29N7Sno3 /fxhPn52QiM7l5UCopeXWsRM4vXHbMRuo109EYpGmlM3CGH7qni/Oqq/JQP/ ZxkHdQ7Mo/s63mWnUyHk3ZG+Bhr151e5mG4P/d/z2/HzPGY08rf5eKi9JBeT K/rudZY3fmcND1jQCNXaakvNv4Xg/U/l+7uErhZQZD0otM4f32+cKW+xa0z/ AIdk2vXe0Ki/kx0S2vTySjucbTgY9M0Lr/9cps1TUv6lsPbpatPwc9h+pwUn Y3iNc8F45yjX6Q+Yy50S+TgZmwOvhwX8qvkxH5C1mDzHkAdr1ln+PJP295wj gXFVx/NMyNv7UquTxvlGjMsFAYUThZBZXCvapYn9/z/9Ne7m "]}}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 375., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`rabbitGrowthRate$473624$$ = 0, $CellContext`rabbitMobility$473625$$ = 0, $CellContext`foxGrowthRate$473626$$ = 0, $CellContext`foxMobility$473627$$ = 0, $CellContext`foxEndurance$473628$$ = 0, $CellContext`moving$473629$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ag$$ = CompressedData[" 1:eJyVm3k41l3w8BVPJZ6opBQVURJFJEuMpVRCiUpUSiRKoZBsJRQJIZIte5Il a/bInuyyhuzulbSKer3X++B6m/v++dUffa/r/pg5M+ec7zkz58yX1+DqUaOF DAwMi6f/Y5p+hhmtlMwv6QSR/Cc53llUYPj//yn4jR9vPt3dCWJZh/c9sSQj vp7Tf9X48k54c1xN0SSMhDjrTmX9lbd7QGz7qqrV7hTEOfetJISzdoO97a+4 ksABxPms1iYo+g3BtcIazZfspYj/v8coPF1CVs7VHEF8tIQn9mPiW9h+/oHh TfY8xGtYvinwj2f++fssHywNOsta85out/i1KfHLkyy4ZsFZH9IUgfTf4/iY u/hSJeSG1DhvP4rbjztr3mSaHgIjbvaPCqPLEH8ublzQnFsIyf61C53E0hAf 1pO8U2NUBILUE2skHJGd8/Iz25U4esLLIGTttsx2hiLETwXu0zgX0gBrkuOK mu+9w9zMK/nq5stgKWRxX3gqA3Hra6NX93Q8Ae2fyjnsp7IR3yXJ+8T46Gs4 Wi9K9PGNQbz4lnBlS/trqBo3f9MjlkVn/BkYrIeI/r0P0DgqyDnxnatKewyR FlYq7e64fyNNBiUvVYbBRrsO+UuqxXT1M0YsffL5Gu5/nnA/o0V3MiCINUXX bAXWv17iiG+aZhoU+XMR9d7j+ZvvNlnHop0C7r06XhVHcf9YFy1sWbYmE/ZA SuVe6yTEpepava2cqLDXUVL58k/if3x09rnWd0n4j2YqGK/q44o5/ef7OT9f 8TPVw0icCK/8qth6lYb/49wKM9wqvoPRrLAM1vrDZAZnPbKP3BohsH0XFRaq xi5LiWjF3FjR+pQaFWyFZGwaQ8qQ/evCxK7UnqeC0L8vmVdUNKD2VVIshyJs SEBM8lrmXPfhP84xyx0fXdltpE0GQaep6sWWJci/+biAJa/O/RwqeCo8/9wi 0/QfXzOr/07xehaWRAK8zxt4bhIROCM/y5mT9E+yviOApb9t3ohhKfJPr+Sh cyJHM8g3797VvLn/v9/5ZuWNuY2Xv+YagopQIV7iOAnJP1Q0WrcjbwD2jlUu 6db7c/2en29MNhGUZB4AG4qzTHILGdn/gs91e1TZIKQ9dUweqf5z/R6F01EF xo3iPWAu0a9eFf/n+j0KY5cHJohTBHisnxVDufwM+dfgp+1UzvOnXv5Znl8r su7H8vcgG7V19dL+mv/+bsks39eW0O1+tx4OUUqassffIPujcwe573GXgaOQ Kse/u+oR94gw2H3FyAHeNJdJt+S/R+P7wcDowG5qCSwR9uAVa2pA/s3H+fdo RMauLIcyHfGcXOYq1L672+V8RZlAgCgVb44XNWj+zqrKsVmflY05ca+dRPLy GkjxP8j+QLIB8XH7N1qnHxTBreetY9kf6tD8KQ2zaF9MqYGtnwZinl2tQ/a1 3bMcOEKsg1/1XCqfvaqRfyKae7d/Wd4ADxr/ucvs3Yzap9pfWvT+WyuUf0sl aNwsRuO/yVrAurqlHo6aV56Sv9+B+KClq+qUfB0YHz/R+FmkGdlXyvdha6jX WzC0tQ0oq2//j2+c5QfHDE6dW1UGSz+EiP77a0b/3Ppxpyt1WGKiBHijNkqU C71D+pNLkvcU8VLgtidDpyoXjo9m/s42w6fVURRzA7meT26rCXD+IZclB434 KTC180T3UwLoV6ve7LiD46PHB3XPa1QQQfIe+7fyCsxVXIYVd7NSQUM4OmL5 Daw/x6G7IJCfCmuKr9WbJ2H5/T6FolcekeDH90fx1E3YfsmrYj6Py/9cd7D/ SkdqxHrssX5t7xyhhDVkqLcIHn0jgXk2ZxyvVQQBXI7LvHqTh9u36v52bheR BG3HdpDzfmP5gj51o/PDZPjMt1m8JArLhywTtYsRpoDSM9PHMZ24fwLCxPde XUsGTj6HU/w07A9f3BCnpkiGF5lpu9gX4PhWIP1584VFVLCU6lh5YgWWN/2c Wrczhgh8116frH2Pef5VA61z6yh0+1cw7dSrj9xEWDL8bP3+Huzfps5iwZ7p fSE0e0nMwCjmxVEeof2xZLDyqVkcuQ3bH7xno6HudFzu2MVctpAd949GRTDR M4UKAcwbh/ZJY/tn7PbbdDPO5vnf8/78Pd/iRylQkKIccmEvtl8kxs5s2xAZ eu8LlQYClj+VF5qsxUcBu7Vpoy4pRMR/XNd8ureBBLyyBm9unMf+GVVqnHNb TYLah3CYPQ63v7v3danYLzLoFzLwVIxg7qLlsyOBhQpH9nCQq45h/besa5ZG 8lDpjm8th/421wdksOZZzaqmjcenO6K6biKXAuFexUkp/Fi/8K8xjeo2Klwk WXI0nMH908q15MPSOAroJcl8S6bxfjPfE9zf8owCXiwMuSvWYvlLHcvsvCTI UDdq9uPpBdz+vm/3ReQfUuAkS/Bq+XgsPx/vWsXO//EiGUQrx75xXMH2zcft 9fZHCCqRYZnLW07GIqw/irRy7a3D9Ptf86FxoYQ0FV4qR6/wX4Tl/804p2Xv QQauwgKVakPM7ySPtbAKkunqZ9kWsfFQJH3ObrBd+akBGdjP9FTLs+Lxn5Ez EWQUVzDD/vc3Kur3eFEgINagnsWGxvog/Z7afoIC/RwmGrseY/tvDdmdFlCm gsg+izX6UX/Px7JCVm++QIChK1Vughv+nr+4MprLmDcCkeXlvzpladhvb8iR ODAM4pvekCd+YflrWmxq1TcpUF5f6cjiSn9/Tj1k4Kz1L31eaFy3w+IE5l+F Bz+n9w1Ah6hg93Ei5grXDim9OU6APi6VmmIp+utfZlVza0Q95szjexsXKhGA asJWwlaOeSlbzFI2ayJ4dejYZRXg98+7WldW1neE7vwSSBjK2+NMBnkxKVun IRr6RcUdagYpUEg8ulpRBfuXs+RZqOxjMgxKeifo8OP5OR+fsatJwjyizQTr v5W/pWT/a/r7X1eB2g8BdQo82DSy1e0T9j84NKJqexQBrhh5aKyhsf6yUN9t kZt+v7bltH1sVcL+r7lk6Ow8vb4E7X3YqtiL7We6mnDBi2EQKL5SIn3DWN65 8q6H4s8BMBReWfv7AfYvWod3OU8gGY5t+HVnwRi2r3dVyIDapun4aJtu1xM3 rD+0nVQ3pkCG45nnpwJVsX2UUaGt/fIUuOEmXbi1BbfPr+0qfmd63zb+WREQ sQXLz8crLlfJJS0iwqeFjlFCbNi++fiy93lynNxkiF9U5p4mhu07y6Rt6ZxL hmqzsASBKNx+7LGocWs7Amh/9Xz4jMb7uSlkxO0aC4Hu/AG9OCYmjhGIWMSt N1WD7VtqyfIzwOjPc5M5vsalYGjEfgh0w81vKbrQGF+qmJCy9CC0u5im9tKI TwquyVlXtvXS1f9ddnXopGQ/Xe76r8+1n079sIjTWsNMGLef+M9eTuHaPgh8 +jqxXgHz7Y22RxSm+qEm4t3HGkPMOUeNhF7JDYBm57+DOjTiS4dh6ZTi5gE4 1ng7Nurr33PRRgtzS9Y+eHnFZxe5EvePrSrTh2Q/MmilG5ct8MTjL1i7Mv1e 9Ag8VDciNZ/G+p21Tt9YKUB//TvQ4nc3uKEHErOdltow0ei/foZbSz07oJ+r 59V6dA7BoLBnyTn/6IJ2kBR64OgjguXVw22nE/NOuKU5mLuNhv8rstblnFtH gugAN5XfdpiXVSZH5F6iP3+TmwIzqqb3Bbujubq+GXj9kGS07xHqIsPaVcwr hDUwLyjqGGb6SQA9hSh/10O4/aDXrRajsSSQ3qpQJkFjf9z1gyH4tDYZQGUZ tERj/YbGHtnJ30lg47r50s44zPXHhxw8f9HPH10jF42Yy5CBWPqN0b0Tt2+d 6h3Z9pQC6xspg/o09qfORZ/2xK2gQoNTq8TzVty+NDdoLp3Oi9u8j/p+UsTy HBX8Z58eo0L84FK3mzTebxuBLS2ERgq8+JdgFZKM58fohzD/76r048tCfznj qhtUUBXzPSS1ButfFnOEzF5PXz7RlUnP5jn99Wk+bnjB+mgEK/34k6vjCU9d PAmOK3FvXnmTgLipGSeLmj4V6t7YMwgX4/6djwclr/Wwno7bRdVqeo9MYn7I wVPkC4EC93MOyzQq4v6dj3N6vDVYVUWC7ZSosqt+uH/D2obIxVum80etMs/j NOKrb36aTUfLiPAooSLrcyWWn4/7TC4s1icR4AWJ5cL9A1h/oAvX+M4eIpzo 6fbVX0cjfr/LrlPbSIbGbNW+I1sxf2sUMUQ0JMLxsFGiEhXrn483F0ey1T6k Pz9epJ/kMpjOD3vSBnpjt7UgLickkencRYAvv7li1hq8x/zJxvvb9pWBwZX0 x8Qjs/cTCjPtHXuaKKmbUgmtwi+vLO9w/sOOUQhyZCYs2N0A1IP5aWJqEYjP NHSd123Tgxcz5/tz57++Cr8WHGBKg7bJsP4kthbUPvvPTT4BmucgoIf50Huv mfM/9ln+pUJnS/y2FDjY98tLQqIHcf3bU77MlGQQr7jGdoDQ/If/8/OUUy7d 0gbZ8OBq6YHAZx3IfiFD4mEHrscgtI4aGlU5c/44dz65tT2yOqrWD34yBXwt XTSjf+58862V1U1ZOS/gCyVw87XXI/tDRpWePkkMgk/t1efHT5Yj/aaRl44J mWRNh0mhupdvdSL5zT2pcvdPjcD4wueHQhvx/JyPB/JKmXXWDUOEZMnNL114 fraJqQZMKA3A1wCr3ollcXj9j4pgins4ALnMT1T4Y0IRjyu7aOtqPwiFul8V QpSfIp4Xf2iRig0FnE3uedXaFCLOm71lSbExFcQUbx9KfoDvP2f6gWT89ZoP fzniE42tVMlJEuiJ8Gqvb8b3q5K8AvfV9lMh2mTs8qMPr/6aL6yxsV9mTgUt e7Ert4/9eT/FoHA8WJ4QvIEI9k/2PT2eg/l9oy1BRs/J4K5/+KHhXmz/ntiu 35xLSPDy8D9uw245OP85t5x4dzrvTL0cNs4igu9XU/fY7JnaSATZx6lFtW7Y /4F132VWuRBhR+qdL7oi+H41wfP3XVg8CMtVxY4W0jj/TU31uDnJNwLaUea3 X73GPPOhlaTStxFwem6SxDmE48cPH6pzjwsSYHnWdTbVahr77+R3R0PJESBJ 5eaM02jfKPaFHg9PL4ixpJ6s+v73fFsZX0DyRyIsCLK56lqL6xP46zpUNqn2 QwlruaquMt5/u83jfflTySBxunjhfqOhv+Z2ap4ZvnJkePEqa+OAyeBfcyUb rdMaH0lwaZSTfGk35sUTEzeeOVFB3cpG+uJS7F9f8+X3VC368Z95sOzpXX1k qMk8ECMtjNeH+fjyE4aDJf9QIE1dufjTGB7/p4EarRJZRAhg7rvKF4nH52NA JbfuGAUEL5L3Swlg/REXCnmEq+jHZ/NxvxGNpXJmrcBb3hl3yALHP3d/BNa8 WtMDO29waeZtwPYffLPh9zl2+vmNkJNN5O1d9POH9WtszRc4EOC3zaXkLwTc fqjlfXP1JyMgypvt/5abxvnDPHxHdmmp+c1huu1b8Nnmua4ZoMt//BZrqrGn wJHKlCzTfVh/5LHTH4am8162EHOerZ00zhfFbb5YWBGhjbyfqcgFz78iM4Vy uWn9/Ez2E9+lsf/Vd/o4KwlEWFUe8E7AFnPHxC8FoUFkUFrm9qxJAPOSrTpO vw4SoTp9W+5FGvnJfHyBTmQUoWIIAlQf1Rvfx9zOaae7UQAJbC0fkTo/YS6x rK5E6yv9/q2wXtvx8MQwXC7+2Z6Rjvvvk+IKyV0RRDhZfF7swQ4a9y+ik6fr 4unPL869ffZH5VDcOMuLLr9MDa1pAc7H6qx+B+4h+RC1MF+bsgZYmJQxzijr gfhh3ZMuSlINYM9uel6d8Rni3mu9DiT4N8LI96qjDo8f4/zGCqLaauvo2id3 P2qk4XItOHivbNayc0by8/Hnb8+G7LKtpat/Pp7df2zPa9lGGGOZVL8tkYL0 81WqM4y8bIZoBuOvBy/i+rJPfWOldTfJoFpaMcq44M/7r1EgZBkw2GhNj7v0 /reXnv05f+fibFGJD+5fP+P6oRLd+g2xx8kg6vxPX8HmmfdrLn6dedoZpJid 2khfP0ydP6goi+uL/rdcpymEFFf19/zgUDOD0HMKPKOYntZy/HMeT8fvRG8Z bxEitG/cbrUnfca/P+svRuHHZb/KyBtYPst30P2jIxkaAtMveA3/uU6PQrK2 QRZHIQlIAvr3xtH6Pgr8E4fZrHQ7wHS0TZ7Rf+accK7+JOO+w2FB/y6oK9pq XHhkRv9cfYxmmL9zFFcvXNDRk0vJHEby9lFDX5aE9wOTl/hH1rwZzjfLVXn2 Gbmu/wgPv37P1/MgIL6/QK0r2aob4tkH3g8x4/mxOswqVMa+B0x3XVlun4Tt y3w0QbaqGoHUYhnjBr4Z/XP5x44Yk41KQUMwusNIRlkf1zcF7vgx4h03AIEX 1nLXas3on8tPEg7UW8ldJEK6b3DM9kg8/1+lCYzf3EqGnhO/7kkewFy5OiAz 9QYJjmkmygvWYX504XGXBscRYE08I9HWO8Pn5r++wLKCq24UEBe5Xihz4+1/ fC4/G+7wogxOr99N4j6RK5urkX8zz0lzm0PqjjWofzbU389Vu0SBndIejh9H GxFfdLDxEePgeziju1/D3L0Xzd9kEeamodYhGI7/zuXyEPffrwfOFj8ODsA+ ua1DrmH9aP7847Xf+yR5CD7v7+hKm5Wf48eSDrg5viGCOmdkKc9+PP/tiUbO Ba8IwKPJUbO95s84Ybp/t+8SORrbB0kpefL5ZoOo/3jVi6/fJAyDx4pVv3+u G0BcK+pVov/IEFRMcTCNzZ5fzfmf4fMmQ+fjEEx8Xf7xmD8B+V+j7jf1M38Y vn3bmWsABDS+9VanWm9pT8fvyQJe15fg+SklS7S2DR4BjWRRdZ8nJCT/xLx+ 8s52AoiWazwQLMLrJ/uaY61qJCI8YvTL1+gcQjxMUIfL7l8C3LA75aS1GtsX 1HzRIb5qGPTJ+T/vVWH9ckz/LInwmM6/d2gML+chIv+PLfkysSWsDkYUw/LX WNA4f6v80b66rhZW6WivD7qLeYzetSTGegpEnBb51LsJx0cJB8a6w5mpYHtS ztyhA/NHZksDhLnIoPDigkvHFObudyUVurPIQDm+959OPtx+xi6XbRYxFDiW mNu3qY/+/euC5asWm3ri+KbIrFj0iAIZFkTJtj2/SON8ON81uP4pBWq/LJss aMbxeRxnRejiWvrxvyFfW6ZxNxmivntaRqL6y/m5/D3Zdb9TKODCF3wp+xX2 72v88CGZQgqsZ2np5L+N5XmGxw+1KdO3bz7ueMXQybSLDIXkiNrYdOz/6JbJ oserpsffoFLkBI37lYsRO4I9SkkgfsrguvYtzE9637tdMz1uLzdUTZ1chcff TnzFiiRvIkhezHUyz8D+b1vsfcWriv755nxcJCVo/LoQ/fNxAv8PxtVnyTBA 5j6rkkKjfizIq0BbiAI9iQm6ZEbsX/lqo95+TjLEZ2n9KCnBfJ0FY8YNTgqU eThsSb6H/ZuPv1DUUX3nSAI7nkzTDBr5hbaCuKc6Gwl8bx4aYqZx/zl1cHei 4B4ymPpwfLPwo3G/E2RxeYUf/f5hMGciuaO4cY43v9B7VnSdAgW29sQSGvdH jJ6PTvKnECDh+RdFDRr1e4u8TqZ7mVJgUFl3e24Fll+o3d1l9YUEz35vOXBR CMvrMPB4v+gnAPcVCT2xXOy/yO8v7vH7yaBoEXjllhTWryL3gHjWfgSSIihC vl9o3D96Vd7JMiHDhGlAn0Qmlhfd6LVdMol+/qQkHaaykakNPmcWhm+x6UP7 68Kd8XJOfYmgmLqvuPPazPn0XHy1+6gNi3xHAHRTLW8WbW5B/Fv88C+zvErg v1MicUqtA+lX3ntTssKvHM4L/7yeJl//h52jIG+uY7a6uhReqBt4xHX/Wd8/ P+8MGitY+TYLMoh8Tc/rcPudXgp5NfurwJaDt2fYBJ/P606sH86xLwXX8O56 Kf/3yD5uMbGXZUdewe+Mu5sjpGbio7n9z7/0q7mPyku4Puq19RgP5uYfth7k qUmHx68XnJFNwvoFqW7OR3QqID/Jhd07AnPSQDJTx/A72O160+fZiSZkf/Ji 0/f5yeWwU+j2/dWUd1h/Wu7O5ZAHTVE7ApT1cH22SazxxavrM4DTpfMOcXJG /9y+Zr1ZzV4+shycfxAWX3TC9x9e7z5tvHS6HkKjh2/L687cn8zFjw7OvlXR Me0g0DlltsoJ5w+Nokcqzrp3wcJEBRHPGzPxJd8sZ7uac9w8mgg5Iq8v93Dg +HkzW7vQpde9MPCSKVXqBgnJMw+yWi3r6Qcd+8nPriMz7c/Fb53hk2aW0QNw ICcwc+FsndNc/OcX9usl944RiJQSd+RH9b3zc+kDQztzi4bhxLYm8RpJ/H3D WqXQh5N8w/CbyvHJIpyC+pdb89XnBPdB0PzG2/XJE+cHita9DgP9g3DJqZs/ 8yjO/zYL6lpXWRDBru0g72p0fz+dV5td7paNGIGayq4KYUYSml/24elsYwyv YI/3ba4J5kq0vhiXsKf+NEmHnwvjhMr98Pn8fJxv3YWQurXBEPFlJIZ8KR3x M6InUoM8I6FPxl2BcXc+Xv8q4jZkMMXCW/YNpS/T8Pm/zxBV9IvUGVj0K8T5 H5tgxK+7m3yPNI2Eg488JOPln9OJ7xgY3nd/3cKkmYj3b8tnwQGqoRCmWSwb xojPV1T6JS+fvvgRwpXWX+sN6KOjf/o9uutYkS6Ev9/jlM2u086rB64LydQW 1QY0v43ijCVcd9XC4gviJqobqtD4yZ/7oZP2th40qpiWdqmUIR4YGFRzTrQF GJsiKpq18fnmsEXHzUBiOzRNKX+Q2YzvD+bjM+3kcHAcaNmA9RvyNkXXEMjg PazbMPQd11e79P+W8Wikv7/1Cvu+TPMngsZGPffs63j/dTV5ej1InwysFSe2 stCob9mqJ7VASpoChw7Hhu1ix/IKI0TjdQtI8JXllD7DUrw/349TUGzupADh +qrQHzTi0+puPp4lGhRIvG01LNeG9Z+gVsdKn6LCeEj/iAqN+FNY1aHbcy0Z 0pl1G5NWYx5t0cXnz0uGynXXlZ9yYq6e077mnhwJEvSu8q19gONrY4HozWrT cv4PLmyIpnF/SuE7PPn7JRV4ffulO+9jrrr3cH7/fgp8mORaXk6j/vBNSo6x egH9+H/m95z8JeI/g3H/3UnMsu/9H+qrZ36/q2nL5kWjvubFI81uWQoVBI0T Fk+oY/v7/Nn9h6bzGv1b3BkhNOrvpwLD3eXWUOBrY+vnu5b08z/dNoe74dk0 6sfF9jZkclPBJ0xMwFcN89MubHuL5ciQ7fk9X51G/Zq43u9+JlMqnHPLvttN wf1bqXl8j57hNPe9M3ZcjkZ9CVPFU8ViCoRF2MSbvMf3d6I/LJ+5WQ9DA/Oo 7TEa30cslp3MYHtOAG8LayGRCczf/Nq9cax0ABjMPTqlprD9ilr+Ok2WA0Dm iL2yfRWN7wOCA+WXBhGB77zRNuMs7B9R5oQo20EiCIq9lf1Ko76b29N7Sno3 /fxhPn52QiM7l5UCopeXWsRM4vXHbMRuo109EYpGmlM3CGH7qni/Oqq/JQP/ ZxkHdQ7Mo/s63mWnUyHk3ZG+Bhr151e5mG4P/d/z2/HzPGY08rf5eKi9JBeT K/rudZY3fmcND1jQCNXaakvNv4Xg/U/l+7uErhZQZD0otM4f32+cKW+xa0z/ AIdk2vXe0Ki/kx0S2vTySjucbTgY9M0Lr/9cps1TUv6lsPbpatPwc9h+pwUn Y3iNc8F45yjX6Q+Yy50S+TgZmwOvhwX8qvkxH5C1mDzHkAdr1ln+PJP295wj gXFVx/NMyNv7UquTxvlGjMsFAYUThZBZXCvapYn9/z/9Ne7m "], $CellContext`foxEndurance$$ = 10, $CellContext`foxGrowthRate$$ = 0.5, $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 0.5, $CellContext`rabbitMobility$$ = 0.03}, "ControllerVariables" :> { Hold[$CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitGrowthRate$473624$$, 0], Hold[$CellContext`rabbitMobility$$, \ $CellContext`rabbitMobility$473625$$, 0], Hold[$CellContext`foxGrowthRate$$, \ $CellContext`foxGrowthRate$473626$$, 0], Hold[$CellContext`foxMobility$$, $CellContext`foxMobility$473627$$, 0], Hold[$CellContext`foxEndurance$$, $CellContext`foxEndurance$473628$$, 0], Hold[$CellContext`moving$$, $CellContext`moving$473629$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Refresh[If[$CellContext`moving$$, $CellContext`ag$$ = \ $CellContext`updateAgents[$CellContext`ag$$, $CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitMobility$$, $CellContext`foxGrowthRate$$, \ $CellContext`foxMobility$$, $CellContext`foxEndurance$$]]; \ $CellContext`visualize[$CellContext`ag$$], UpdateInterval -> If[$CellContext`moving$$, 0, Infinity]], "Specifications" :> {{{$CellContext`rabbitGrowthRate$$, 0.5, "growth rate of rabbits"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`rabbitMobility$$, 0.03, "mobility of rabbits"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxGrowthRate$$, 0.5, "growth rate of foxes"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`foxMobility$$, 0.05, "mobility of foxes"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxEndurance$$, 10, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1, Appearance -> "Labeled", ImageSize -> Tiny}, " ", {{$CellContext`moving$$, False, "run simulation"}, { True, False}}, {{$CellContext`ag$$, CompressedData[" 1:eJyVm3k41l3w8BVPJZ6opBQVURJFJEuMpVRCiUpUSiRKoZBsJRQJIZIte5Il a/bInuyyhuzulbSKer3X++B6m/v++dUffa/r/pg5M+ec7zkz58yX1+DqUaOF DAwMi6f/Y5p+hhmtlMwv6QSR/Cc53llUYPj//yn4jR9vPt3dCWJZh/c9sSQj vp7Tf9X48k54c1xN0SSMhDjrTmX9lbd7QGz7qqrV7hTEOfetJISzdoO97a+4 ksABxPms1iYo+g3BtcIazZfspYj/v8coPF1CVs7VHEF8tIQn9mPiW9h+/oHh TfY8xGtYvinwj2f++fssHywNOsta85out/i1KfHLkyy4ZsFZH9IUgfTf4/iY u/hSJeSG1DhvP4rbjztr3mSaHgIjbvaPCqPLEH8ublzQnFsIyf61C53E0hAf 1pO8U2NUBILUE2skHJGd8/Iz25U4esLLIGTttsx2hiLETwXu0zgX0gBrkuOK mu+9w9zMK/nq5stgKWRxX3gqA3Hra6NX93Q8Ae2fyjnsp7IR3yXJ+8T46Gs4 Wi9K9PGNQbz4lnBlS/trqBo3f9MjlkVn/BkYrIeI/r0P0DgqyDnxnatKewyR FlYq7e64fyNNBiUvVYbBRrsO+UuqxXT1M0YsffL5Gu5/nnA/o0V3MiCINUXX bAXWv17iiG+aZhoU+XMR9d7j+ZvvNlnHop0C7r06XhVHcf9YFy1sWbYmE/ZA SuVe6yTEpepava2cqLDXUVL58k/if3x09rnWd0n4j2YqGK/q44o5/ef7OT9f 8TPVw0icCK/8qth6lYb/49wKM9wqvoPRrLAM1vrDZAZnPbKP3BohsH0XFRaq xi5LiWjF3FjR+pQaFWyFZGwaQ8qQ/evCxK7UnqeC0L8vmVdUNKD2VVIshyJs SEBM8lrmXPfhP84xyx0fXdltpE0GQaep6sWWJci/+biAJa/O/RwqeCo8/9wi 0/QfXzOr/07xehaWRAK8zxt4bhIROCM/y5mT9E+yviOApb9t3ohhKfJPr+Sh cyJHM8g3797VvLn/v9/5ZuWNuY2Xv+YagopQIV7iOAnJP1Q0WrcjbwD2jlUu 6db7c/2en29MNhGUZB4AG4qzTHILGdn/gs91e1TZIKQ9dUweqf5z/R6F01EF xo3iPWAu0a9eFf/n+j0KY5cHJohTBHisnxVDufwM+dfgp+1UzvOnXv5Znl8r su7H8vcgG7V19dL+mv/+bsks39eW0O1+tx4OUUqassffIPujcwe573GXgaOQ Kse/u+oR94gw2H3FyAHeNJdJt+S/R+P7wcDowG5qCSwR9uAVa2pA/s3H+fdo RMauLIcyHfGcXOYq1L672+V8RZlAgCgVb44XNWj+zqrKsVmflY05ca+dRPLy GkjxP8j+QLIB8XH7N1qnHxTBreetY9kf6tD8KQ2zaF9MqYGtnwZinl2tQ/a1 3bMcOEKsg1/1XCqfvaqRfyKae7d/Wd4ADxr/ucvs3Yzap9pfWvT+WyuUf0sl aNwsRuO/yVrAurqlHo6aV56Sv9+B+KClq+qUfB0YHz/R+FmkGdlXyvdha6jX WzC0tQ0oq2//j2+c5QfHDE6dW1UGSz+EiP77a0b/3Ppxpyt1WGKiBHijNkqU C71D+pNLkvcU8VLgtidDpyoXjo9m/s42w6fVURRzA7meT26rCXD+IZclB434 KTC180T3UwLoV6ve7LiD46PHB3XPa1QQQfIe+7fyCsxVXIYVd7NSQUM4OmL5 Daw/x6G7IJCfCmuKr9WbJ2H5/T6FolcekeDH90fx1E3YfsmrYj6Py/9cd7D/ SkdqxHrssX5t7xyhhDVkqLcIHn0jgXk2ZxyvVQQBXI7LvHqTh9u36v52bheR BG3HdpDzfmP5gj51o/PDZPjMt1m8JArLhywTtYsRpoDSM9PHMZ24fwLCxPde XUsGTj6HU/w07A9f3BCnpkiGF5lpu9gX4PhWIP1584VFVLCU6lh5YgWWN/2c Wrczhgh8116frH2Pef5VA61z6yh0+1cw7dSrj9xEWDL8bP3+Huzfps5iwZ7p fSE0e0nMwCjmxVEeof2xZLDyqVkcuQ3bH7xno6HudFzu2MVctpAd949GRTDR M4UKAcwbh/ZJY/tn7PbbdDPO5vnf8/78Pd/iRylQkKIccmEvtl8kxs5s2xAZ eu8LlQYClj+VF5qsxUcBu7Vpoy4pRMR/XNd8ureBBLyyBm9unMf+GVVqnHNb TYLah3CYPQ63v7v3danYLzLoFzLwVIxg7qLlsyOBhQpH9nCQq45h/besa5ZG 8lDpjm8th/421wdksOZZzaqmjcenO6K6biKXAuFexUkp/Fi/8K8xjeo2Klwk WXI0nMH908q15MPSOAroJcl8S6bxfjPfE9zf8owCXiwMuSvWYvlLHcvsvCTI UDdq9uPpBdz+vm/3ReQfUuAkS/Bq+XgsPx/vWsXO//EiGUQrx75xXMH2zcft 9fZHCCqRYZnLW07GIqw/irRy7a3D9Ptf86FxoYQ0FV4qR6/wX4Tl/804p2Xv QQauwgKVakPM7ySPtbAKkunqZ9kWsfFQJH3ObrBd+akBGdjP9FTLs+Lxn5Ez EWQUVzDD/vc3Kur3eFEgINagnsWGxvog/Z7afoIC/RwmGrseY/tvDdmdFlCm gsg+izX6UX/Px7JCVm++QIChK1Vughv+nr+4MprLmDcCkeXlvzpladhvb8iR ODAM4pvekCd+YflrWmxq1TcpUF5f6cjiSn9/Tj1k4Kz1L31eaFy3w+IE5l+F Bz+n9w1Ah6hg93Ei5grXDim9OU6APi6VmmIp+utfZlVza0Q95szjexsXKhGA asJWwlaOeSlbzFI2ayJ4dejYZRXg98+7WldW1neE7vwSSBjK2+NMBnkxKVun IRr6RcUdagYpUEg8ulpRBfuXs+RZqOxjMgxKeifo8OP5OR+fsatJwjyizQTr v5W/pWT/a/r7X1eB2g8BdQo82DSy1e0T9j84NKJqexQBrhh5aKyhsf6yUN9t kZt+v7bltH1sVcL+r7lk6Ow8vb4E7X3YqtiL7We6mnDBi2EQKL5SIn3DWN65 8q6H4s8BMBReWfv7AfYvWod3OU8gGY5t+HVnwRi2r3dVyIDapun4aJtu1xM3 rD+0nVQ3pkCG45nnpwJVsX2UUaGt/fIUuOEmXbi1BbfPr+0qfmd63zb+WREQ sQXLz8crLlfJJS0iwqeFjlFCbNi++fiy93lynNxkiF9U5p4mhu07y6Rt6ZxL hmqzsASBKNx+7LGocWs7Amh/9Xz4jMb7uSlkxO0aC4Hu/AG9OCYmjhGIWMSt N1WD7VtqyfIzwOjPc5M5vsalYGjEfgh0w81vKbrQGF+qmJCy9CC0u5im9tKI TwquyVlXtvXS1f9ddnXopGQ/Xe76r8+1n079sIjTWsNMGLef+M9eTuHaPgh8 +jqxXgHz7Y22RxSm+qEm4t3HGkPMOUeNhF7JDYBm57+DOjTiS4dh6ZTi5gE4 1ng7Nurr33PRRgtzS9Y+eHnFZxe5EvePrSrTh2Q/MmilG5ct8MTjL1i7Mv1e 9Ag8VDciNZ/G+p21Tt9YKUB//TvQ4nc3uKEHErOdltow0ei/foZbSz07oJ+r 59V6dA7BoLBnyTn/6IJ2kBR64OgjguXVw22nE/NOuKU5mLuNhv8rstblnFtH gugAN5XfdpiXVSZH5F6iP3+TmwIzqqb3Bbujubq+GXj9kGS07xHqIsPaVcwr hDUwLyjqGGb6SQA9hSh/10O4/aDXrRajsSSQ3qpQJkFjf9z1gyH4tDYZQGUZ tERj/YbGHtnJ30lg47r50s44zPXHhxw8f9HPH10jF42Yy5CBWPqN0b0Tt2+d 6h3Z9pQC6xspg/o09qfORZ/2xK2gQoNTq8TzVty+NDdoLp3Oi9u8j/p+UsTy HBX8Z58eo0L84FK3mzTebxuBLS2ERgq8+JdgFZKM58fohzD/76r048tCfznj qhtUUBXzPSS1ButfFnOEzF5PXz7RlUnP5jn99Wk+bnjB+mgEK/34k6vjCU9d PAmOK3FvXnmTgLipGSeLmj4V6t7YMwgX4/6djwclr/Wwno7bRdVqeo9MYn7I wVPkC4EC93MOyzQq4v6dj3N6vDVYVUWC7ZSosqt+uH/D2obIxVum80etMs/j NOKrb36aTUfLiPAooSLrcyWWn4/7TC4s1icR4AWJ5cL9A1h/oAvX+M4eIpzo 6fbVX0cjfr/LrlPbSIbGbNW+I1sxf2sUMUQ0JMLxsFGiEhXrn483F0ey1T6k Pz9epJ/kMpjOD3vSBnpjt7UgLickkencRYAvv7li1hq8x/zJxvvb9pWBwZX0 x8Qjs/cTCjPtHXuaKKmbUgmtwi+vLO9w/sOOUQhyZCYs2N0A1IP5aWJqEYjP NHSd123Tgxcz5/tz57++Cr8WHGBKg7bJsP4kthbUPvvPTT4BmucgoIf50Huv mfM/9ln+pUJnS/y2FDjY98tLQqIHcf3bU77MlGQQr7jGdoDQ/If/8/OUUy7d 0gbZ8OBq6YHAZx3IfiFD4mEHrscgtI4aGlU5c/44dz65tT2yOqrWD34yBXwt XTSjf+58862V1U1ZOS/gCyVw87XXI/tDRpWePkkMgk/t1efHT5Yj/aaRl44J mWRNh0mhupdvdSL5zT2pcvdPjcD4wueHQhvx/JyPB/JKmXXWDUOEZMnNL114 fraJqQZMKA3A1wCr3ollcXj9j4pgins4ALnMT1T4Y0IRjyu7aOtqPwiFul8V QpSfIp4Xf2iRig0FnE3uedXaFCLOm71lSbExFcQUbx9KfoDvP2f6gWT89ZoP fzniE42tVMlJEuiJ8Gqvb8b3q5K8AvfV9lMh2mTs8qMPr/6aL6yxsV9mTgUt e7Ert4/9eT/FoHA8WJ4QvIEI9k/2PT2eg/l9oy1BRs/J4K5/+KHhXmz/ntiu 35xLSPDy8D9uw245OP85t5x4dzrvTL0cNs4igu9XU/fY7JnaSATZx6lFtW7Y /4F132VWuRBhR+qdL7oi+H41wfP3XVg8CMtVxY4W0jj/TU31uDnJNwLaUea3 X73GPPOhlaTStxFwem6SxDmE48cPH6pzjwsSYHnWdTbVahr77+R3R0PJESBJ 5eaM02jfKPaFHg9PL4ixpJ6s+v73fFsZX0DyRyIsCLK56lqL6xP46zpUNqn2 QwlruaquMt5/u83jfflTySBxunjhfqOhv+Z2ap4ZvnJkePEqa+OAyeBfcyUb rdMaH0lwaZSTfGk35sUTEzeeOVFB3cpG+uJS7F9f8+X3VC368Z95sOzpXX1k qMk8ECMtjNeH+fjyE4aDJf9QIE1dufjTGB7/p4EarRJZRAhg7rvKF4nH52NA JbfuGAUEL5L3Swlg/REXCnmEq+jHZ/NxvxGNpXJmrcBb3hl3yALHP3d/BNa8 WtMDO29waeZtwPYffLPh9zl2+vmNkJNN5O1d9POH9WtszRc4EOC3zaXkLwTc fqjlfXP1JyMgypvt/5abxvnDPHxHdmmp+c1huu1b8Nnmua4ZoMt//BZrqrGn wJHKlCzTfVh/5LHTH4am8162EHOerZ00zhfFbb5YWBGhjbyfqcgFz78iM4Vy uWn9/Ez2E9+lsf/Vd/o4KwlEWFUe8E7AFnPHxC8FoUFkUFrm9qxJAPOSrTpO vw4SoTp9W+5FGvnJfHyBTmQUoWIIAlQf1Rvfx9zOaae7UQAJbC0fkTo/YS6x rK5E6yv9/q2wXtvx8MQwXC7+2Z6Rjvvvk+IKyV0RRDhZfF7swQ4a9y+ik6fr 4unPL869ffZH5VDcOMuLLr9MDa1pAc7H6qx+B+4h+RC1MF+bsgZYmJQxzijr gfhh3ZMuSlINYM9uel6d8Rni3mu9DiT4N8LI96qjDo8f4/zGCqLaauvo2id3 P2qk4XItOHivbNayc0by8/Hnb8+G7LKtpat/Pp7df2zPa9lGGGOZVL8tkYL0 81WqM4y8bIZoBuOvBy/i+rJPfWOldTfJoFpaMcq44M/7r1EgZBkw2GhNj7v0 /reXnv05f+fibFGJD+5fP+P6oRLd+g2xx8kg6vxPX8HmmfdrLn6dedoZpJid 2khfP0ydP6goi+uL/rdcpymEFFf19/zgUDOD0HMKPKOYntZy/HMeT8fvRG8Z bxEitG/cbrUnfca/P+svRuHHZb/KyBtYPst30P2jIxkaAtMveA3/uU6PQrK2 QRZHIQlIAvr3xtH6Pgr8E4fZrHQ7wHS0TZ7Rf+accK7+JOO+w2FB/y6oK9pq XHhkRv9cfYxmmL9zFFcvXNDRk0vJHEby9lFDX5aE9wOTl/hH1rwZzjfLVXn2 Gbmu/wgPv37P1/MgIL6/QK0r2aob4tkH3g8x4/mxOswqVMa+B0x3XVlun4Tt y3w0QbaqGoHUYhnjBr4Z/XP5x44Yk41KQUMwusNIRlkf1zcF7vgx4h03AIEX 1nLXas3on8tPEg7UW8ldJEK6b3DM9kg8/1+lCYzf3EqGnhO/7kkewFy5OiAz 9QYJjmkmygvWYX504XGXBscRYE08I9HWO8Pn5r++wLKCq24UEBe5Xihz4+1/ fC4/G+7wogxOr99N4j6RK5urkX8zz0lzm0PqjjWofzbU389Vu0SBndIejh9H GxFfdLDxEePgeziju1/D3L0Xzd9kEeamodYhGI7/zuXyEPffrwfOFj8ODsA+ ua1DrmH9aP7847Xf+yR5CD7v7+hKm5Wf48eSDrg5viGCOmdkKc9+PP/tiUbO Ba8IwKPJUbO95s84Ybp/t+8SORrbB0kpefL5ZoOo/3jVi6/fJAyDx4pVv3+u G0BcK+pVov/IEFRMcTCNzZ5fzfmf4fMmQ+fjEEx8Xf7xmD8B+V+j7jf1M38Y vn3bmWsABDS+9VanWm9pT8fvyQJe15fg+SklS7S2DR4BjWRRdZ8nJCT/xLx+ 8s52AoiWazwQLMLrJ/uaY61qJCI8YvTL1+gcQjxMUIfL7l8C3LA75aS1GtsX 1HzRIb5qGPTJ+T/vVWH9ckz/LInwmM6/d2gML+chIv+PLfkysSWsDkYUw/LX WNA4f6v80b66rhZW6WivD7qLeYzetSTGegpEnBb51LsJx0cJB8a6w5mpYHtS ztyhA/NHZksDhLnIoPDigkvHFObudyUVurPIQDm+959OPtx+xi6XbRYxFDiW mNu3qY/+/euC5asWm3ri+KbIrFj0iAIZFkTJtj2/SON8ON81uP4pBWq/LJss aMbxeRxnRejiWvrxvyFfW6ZxNxmivntaRqL6y/m5/D3Zdb9TKODCF3wp+xX2 72v88CGZQgqsZ2np5L+N5XmGxw+1KdO3bz7ueMXQybSLDIXkiNrYdOz/6JbJ oserpsffoFLkBI37lYsRO4I9SkkgfsrguvYtzE9637tdMz1uLzdUTZ1chcff TnzFiiRvIkhezHUyz8D+b1vsfcWriv755nxcJCVo/LoQ/fNxAv8PxtVnyTBA 5j6rkkKjfizIq0BbiAI9iQm6ZEbsX/lqo95+TjLEZ2n9KCnBfJ0FY8YNTgqU eThsSb6H/ZuPv1DUUX3nSAI7nkzTDBr5hbaCuKc6Gwl8bx4aYqZx/zl1cHei 4B4ymPpwfLPwo3G/E2RxeYUf/f5hMGciuaO4cY43v9B7VnSdAgW29sQSGvdH jJ6PTvKnECDh+RdFDRr1e4u8TqZ7mVJgUFl3e24Fll+o3d1l9YUEz35vOXBR CMvrMPB4v+gnAPcVCT2xXOy/yO8v7vH7yaBoEXjllhTWryL3gHjWfgSSIihC vl9o3D96Vd7JMiHDhGlAn0Qmlhfd6LVdMol+/qQkHaaykakNPmcWhm+x6UP7 68Kd8XJOfYmgmLqvuPPazPn0XHy1+6gNi3xHAHRTLW8WbW5B/Fv88C+zvErg v1MicUqtA+lX3ntTssKvHM4L/7yeJl//h52jIG+uY7a6uhReqBt4xHX/Wd8/ P+8MGitY+TYLMoh8Tc/rcPudXgp5NfurwJaDt2fYBJ/P606sH86xLwXX8O56 Kf/3yD5uMbGXZUdewe+Mu5sjpGbio7n9z7/0q7mPyku4Puq19RgP5uYfth7k qUmHx68XnJFNwvoFqW7OR3QqID/Jhd07AnPSQDJTx/A72O160+fZiSZkf/Ji 0/f5yeWwU+j2/dWUd1h/Wu7O5ZAHTVE7ApT1cH22SazxxavrM4DTpfMOcXJG /9y+Zr1ZzV4+shycfxAWX3TC9x9e7z5tvHS6HkKjh2/L687cn8zFjw7OvlXR Me0g0DlltsoJ5w+Nokcqzrp3wcJEBRHPGzPxJd8sZ7uac9w8mgg5Iq8v93Dg +HkzW7vQpde9MPCSKVXqBgnJMw+yWi3r6Qcd+8nPriMz7c/Fb53hk2aW0QNw ICcwc+FsndNc/OcX9usl944RiJQSd+RH9b3zc+kDQztzi4bhxLYm8RpJ/H3D WqXQh5N8w/CbyvHJIpyC+pdb89XnBPdB0PzG2/XJE+cHita9DgP9g3DJqZs/ 8yjO/zYL6lpXWRDBru0g72p0fz+dV5td7paNGIGayq4KYUYSml/24elsYwyv YI/3ba4J5kq0vhiXsKf+NEmHnwvjhMr98Pn8fJxv3YWQurXBEPFlJIZ8KR3x M6InUoM8I6FPxl2BcXc+Xv8q4jZkMMXCW/YNpS/T8Pm/zxBV9IvUGVj0K8T5 H5tgxK+7m3yPNI2Eg488JOPln9OJ7xgY3nd/3cKkmYj3b8tnwQGqoRCmWSwb xojPV1T6JS+fvvgRwpXWX+sN6KOjf/o9uutYkS6Ev9/jlM2u086rB64LydQW 1QY0v43ijCVcd9XC4gviJqobqtD4yZ/7oZP2th40qpiWdqmUIR4YGFRzTrQF GJsiKpq18fnmsEXHzUBiOzRNKX+Q2YzvD+bjM+3kcHAcaNmA9RvyNkXXEMjg PazbMPQd11e79P+W8Wikv7/1Cvu+TPMngsZGPffs63j/dTV5ej1InwysFSe2 stCob9mqJ7VASpoChw7Hhu1ix/IKI0TjdQtI8JXllD7DUrw/349TUGzupADh +qrQHzTi0+puPp4lGhRIvG01LNeG9Z+gVsdKn6LCeEj/iAqN+FNY1aHbcy0Z 0pl1G5NWYx5t0cXnz0uGynXXlZ9yYq6e077mnhwJEvSu8q19gONrY4HozWrT cv4PLmyIpnF/SuE7PPn7JRV4ffulO+9jrrr3cH7/fgp8mORaXk6j/vBNSo6x egH9+H/m95z8JeI/g3H/3UnMsu/9H+qrZ36/q2nL5kWjvubFI81uWQoVBI0T Fk+oY/v7/Nn9h6bzGv1b3BkhNOrvpwLD3eXWUOBrY+vnu5b08z/dNoe74dk0 6sfF9jZkclPBJ0xMwFcN89MubHuL5ciQ7fk9X51G/Zq43u9+JlMqnHPLvttN wf1bqXl8j57hNPe9M3ZcjkZ9CVPFU8ViCoRF2MSbvMf3d6I/LJ+5WQ9DA/Oo 7TEa30cslp3MYHtOAG8LayGRCczf/Nq9cax0ABjMPTqlprD9ilr+Ok2WA0Dm iL2yfRWN7wOCA+WXBhGB77zRNuMs7B9R5oQo20EiCIq9lf1Ko76b29N7Sno3 /fxhPn52QiM7l5UCopeXWsRM4vXHbMRuo109EYpGmlM3CGH7qni/Oqq/JQP/ ZxkHdQ7Mo/s63mWnUyHk3ZG+Bhr151e5mG4P/d/z2/HzPGY08rf5eKi9JBeT K/rudZY3fmcND1jQCNXaakvNv4Xg/U/l+7uErhZQZD0otM4f32+cKW+xa0z/ AIdk2vXe0Ki/kx0S2vTySjucbTgY9M0Lr/9cps1TUv6lsPbpatPwc9h+pwUn Y3iNc8F45yjX6Q+Yy50S+TgZmwOvhwX8qvkxH5C1mDzHkAdr1ln+PJP295wj gXFVx/NMyNv7UquTxvlGjMsFAYUThZBZXCvapYn9/z/9Ne7m "]}, ControlType -> None}, " ", Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]}, "Options" :> { AutorunSequencing -> {3}, TrackedSymbols :> {$CellContext`moving$$, $CellContext`ag$$}, SynchronousUpdating -> True, ControlPlacement -> Left}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{646., {212., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`updateAgents[ Pattern[$CellContext`agents, Blank[]], Pattern[$CellContext`rabbitGrowthRate, Blank[]], Pattern[$CellContext`rabbitMobility, Blank[]], Pattern[$CellContext`foxGrowthRate, Blank[]], Pattern[$CellContext`foxMobility, Blank[]], Pattern[$CellContext`foxEndurance, Blank[]]] := Module[{$CellContext`foxPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbitPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`nearestFoxes = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`dummyPoint]], \ $CellContext`nearestRabbits = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyPoint]], \ $CellContext`i, $CellContext`nextLocation, $CellContext`survivors}, Developer`ToPackedArray[ (Flatten[#, 1]& )[ Table[$CellContext`survivors = {}; $CellContext`nextLocation = Part[$CellContext`agents, $CellContext`i, {1, 2}] + If[ Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, RandomReal[{-$CellContext`rabbitMobility, \ $CellContext`rabbitMobility}, 2], RandomReal[{-$CellContext`foxMobility, \ $CellContext`foxMobility}, 2]]; $CellContext`nextLocation = Clip[$CellContext`nextLocation, {0., 1.}]; If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, If[Norm[Part[ $CellContext`nearestFoxes[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Rabbit}]}; If[RandomReal[] < $CellContext`rabbitGrowthRate ( 1. - $CellContext`rabbitPop/$CellContext`maxRabbits), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, { 0., $CellContext`Rabbit}]]]; Null], If[Norm[Part[ $CellContext`nearestRabbits[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, If[ Part[$CellContext`agents, $CellContext`i, 3] < $CellContext`foxEndurance, $CellContext`survivors = { Join[$CellContext`nextLocation, { Part[$CellContext`agents, $CellContext`i, 3] + 1., $CellContext`Fox}]}; Null], $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Fox}]}; If[RandomReal[] < $CellContext`foxGrowthRate ( 1. - $CellContext`foxPop/$CellContext`maxFoxes), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, {0., $CellContext`Fox}]]]; Null]]; $CellContext`survivors, {$CellContext`i, Length[$CellContext`agents]}]]]], $CellContext`Fox = 1., $CellContext`Rabbit = 2., $CellContext`dummyPoint = {-1., -1.}, $CellContext`maxRabbits = 500., $CellContext`maxFoxes = 500., $CellContext`visualize[ Pattern[$CellContext`agents, Blank[]]] := Module[{$CellContext`foxes = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbits = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyList = \ {$CellContext`dummyPoint}}, Show[ Graphics[{ AbsolutePointSize[10], RGBColor[0.9, 0.42, 0.17], Point[ If[$CellContext`foxes == {}, $CellContext`dummyList, \ $CellContext`foxes]]}], Graphics[{ AbsolutePointSize[10], RGBColor[0.48, 0.11, 0.56], Point[ If[$CellContext`rabbits == {}, $CellContext`dummyList, \ $CellContext`rabbits]]}], ImageSize -> {375, 375}, AspectRatio -> Automatic, Frame -> False, Axes -> False, PlotRange -> {{0, 1}, {0, 1}}]], Attributes[PlotRange] = {ReadProtected}, $CellContext`initialAgents[] := Developer`ToPackedArray[ Table[ Join[ RandomReal[{0, 1}, 2], {0., If[RandomReal[] < 0.1, $CellContext`Fox, $CellContext`Rabbit]}], { 100}]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->469506639], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ag$$ = CompressedData[" 1:eJydnHk01d/38KUMKSqpVCqJkDJERalNgySVMTShoigiKVJK6kNKRMgsKRSl SEhFZB7uxDVc3ME8U5RKPdbzfK/7Xfbnt+7Tzx+s5bX2Pvvsvc8+w/u83yuP nzOy4eXh4XGb+DVj4u+5HXLpMTIsKKFXuj9e3QI8//dHVev//R2EpZGaf/p1 24EsOTM6+T4Z8bFbP2wezm2B2DQbjQU7qP/hPJPcqu1wrY9YA2zzquAnCDUA +//sv4KapFaNO43g47J0kCBLQTzsjf6y7pI2kBq8e/tlG+0//18zqd8lT1n0 qicTMpJ+uS8RoP+Hy03yzmrHrktRDVDVqMxKfFGD7FtgahBco8qE88kqbz7Y sNtfP8kXF2pfnnOsDTY7yxbX2VX9h0tMcvEdmXs8WpmwyV29JudFH+LJPUsT TUs7YfRDtbjhr+7/cLVJXhoemJsg2w4eDNaPl7xs+1U4+tf9Dj9/jwap6TQw sWHztZPcldfc4ENLC1TGpmvwCLL9Kz7Jw25qWpg8aYAzxx6d1RpmIJ74fM7B ROEmELqdpxCQzeZinPgdPX++fUkd7K4Jipy5sA75r1R91rxsMTIcEg9dFSLG Qnzhmd3+MxzIoHr85+wkHrZ+wUnOOEDLr5cggXXp7zPZz9jyczn928s4mRhH BJEim0fz7nSw9fOw+Su9o6GmGUSI1Z3/6tridsSryh1PUclkIMXY58+gdqD8 yqw11C0cqYNkF3/7xAi2vPJk+6s6hD97hzBg6FCe9Ze9Ayi+rKTvFP7r9Cl6 ObxaOtvjsj8THpoaXAg91Yripz9gbshTz4Lz4Sb0i0/aUf4NG+2MXvuRCRc+ S+qvSutB489cjHHK5TkTjq8+vKDuHdt/ipPcwydGZDi4B0r1g3OiM7tQfnks JlF4UzrApr4KFpX0o/gdeH9K3nOcAeHJu/SVA+kof4/bO74IN6ODSHvopoxH Paj/F3JXTo/so8F+o9qELfxdiCcdUvM2XtEAUnYeytvIHcg//ak5eeIudMg1 Iw32XepEvOz61/FtFDocM/tktLgHj3+zbI1pGj5NcChD2t15dgtqXz1cO13g IANMnuyaH7we1z+V+LjoXQlUqNz/ylH8QCsaP9tWx5yq31MLOz4l31SXbEe8 QK1ALu09Bb5ef/syrrcV2UdwFIymfq2H8rbsWIHOLuR/E2H6zPq6eohgZMT6 pXSj/E25m7LpfSUV3G2J8xolulD+6wlreL/dToVB+cvXS5V7kXxZ4Qf7KpV6 UArNjXzlw7aPU19NwkwT92fQIXFtwbqq9F7k/2frnx4M2MyCnb4+UiGjzYi/ Pb+V8qivAdZqUw6SvZpRfi8cD45LyGJBeS4xLHqMjvxfSdi3fpspY4rdqyd5 9I0MysE7DbDaPCHy0QXs/04t4/wIsTpYcuXXIuuiPuSfwOEfl6XHqNC9pjFg WhS7f5z6p+fpEG/f1QgvAuuF1on3I+6059dGL+k28BcXEOxb24n6J6cwfGXM mwmsY2laidK9aPyMz739e14GDd6Nfyu/GM3Of079kXM/NP3ArFawWvvzF8EM 16fLvI4/NIcYcGFjdtKarez4SU9yD8Gza3feqYNrd1MFbA1ZyP4I/do/cw/X gY90cfJofhviAiJ+r3oJzXBE01tTsZrdvtQk91KwsNOWooPfxrqm1+JtaHxV FH6gKnbVw2nFI6b997pRfK6XS42LLWOAziEX/ydWfSj/apgWLhs1WFPiz+nf n5DF/zhTmDBP1sKy+Adbv+QkP5ApmdVo3QbzGWKnJSbrN6c+Zk3/ePayXQf4 ZlsqDXri+KoL+nYsFmbA9rlVpt60fiTfOk97SYf01PrPaT/fOKZdfrgZtitc 1A1/14Hy+94vY7t0heYp8pz+swSkHWVVWkDzn/wfyVY9iI98T9IJcZjqH45/ ZZQWtbR0NEFYxhsBozcDiLuO7TH7bk2DeSlHdMf29WH5gXXpfBs6YU/qP/yJ G7tRfDWHzdpaTrWDUo2D21n/vil2DMKjqymLb9/vgnkySbmhUdj/zyFd4hOL Dg2OZ2xGJ8bZVC75VlhJpqwDDPMur1rPx17/cerLZz2Bl4rJdeBwofJGyWG2 fzn19fpimzwFrXaIf6ncYBTLXr9w6ocrZeabjqcM2H8xsk5dmYzy26BA3sf7 fh0QulPzLXLbkH8W1E+/nifBgOiC+keLTJkoPolvjC5aXmTAA94MooFXHepf s/2lGNE77eC+Ftb0teH6mbvkzDHjiXGtRI7i2dxLR/qpzBnTpDxYUJTjvPKy K3v9x5nfq8UkdB3dmFDy+Q9f5H4m0k8bv793QQ0TRM/+03VDEOsXV2C99pRh QLnv6DLrvURUP4UDOtbTyVSQ6Wg/GfONrZ8zf60KixrUFmmAhdsCfhR/Ys+v nPWfFoUeu/t1E2ydFvxCo4SO/C82fnOVY0MDZNK37N9YXo/0b7pitFnQmwrh YkUKlPgalH/vzeQXPKbWwO/nv8d4ijGXpwZtfB1AgZIYQ9tT9jWofzZrVK+I KtHANlugv1OFiuzfabWs7cyyRije9/51zGm8/5GRezpWlt4AYlcqEk660hBX laohNh+uhxlzvrxZZlWH9C8KWzVv9RUmiO9v2h7RiOvrnPS+ml6VNmheEB0Q 79aE6s8dfQ1L73stcCPAlmX1sxHxuMMH740sbwHH2O9K/MuakP8r7e6/Swtq gF8eug7bjrI5p/6W7JoWOeRNh+S59RX9Y1QkH3pRK+mKAA1Cw1g3btGw/hyZ Z8cPErpg8a1Kg2BaI8pPkUCdhXJH2kEi90G03mUGys+c+fcUeIqa4HiX06tj YzSkX0DivV5AJAMezzFrs7jeiOz3TXzWb5jQCLEyXQ3LDtSh/LjL8mCMedEh zmvR4eY+CoqfU5TPdD59OsjfKVYacsXxz8jVqTJ6TIeRuWfTc72x/PjLkRDX QBpIvzwmMYuM4/9mNPymwTgVjNJKLM4dJiL7Trns+VycWwsV5qmKTGEqyt+D EaXBlyby6tnpvp225Hok/7vAecD6MxXaapdtONKE99+yUQpN+xMn/h/2JF6k noz0n959XUZ6mAhzd1w+d6mUhPjSjoZc4zs1QNl2qb71Ox5//IaXxN0nxp/f 3dcqzW9wfUl9KfqosqoWgtb2ua9owPb9tj9z6ZVJAzBXqAf7nCUgeWpU8PoL P8nwavdGIV2JOsSnf1m3qPgEBXplY25W3KxF+j2yru4bOE4Gk65ZPM/jqxDf uk7ZoFytGVJO5rXO6y1C8fuez5t1/mgtDJ0o/6HdTkLyX15Vmu6aUQc5jY+S 24JJSL4uNGcR7wMGpKjsTXzhgvt39+TzGSYT+dm6rc+t+1w5yi9L53xrz2YG BBmytHdP1n9O/kvfCLtosZABpK3xZ01G8PjOqfp4Yr1SO2zSX7K1j49dfzjz S4isdltt2UT9cXGcseA2E/H6qtnOGk00cH4U2G3iwtbPWR/rfjhxoXVLE2Qb C8/I2sheX0lN8h22m9tMP9VC90jl6nOt7PUn53xgR1teQc1sJnToJuqlxeD5 X+3PhwebNrbCnrWH43WTOpF9WZtLhEQf0oGWOj6sY4D3n+K7hDqGZtaAzsXy /ts3WlH7V61GRtXd2mBX+YVg6dvs9T2nPtvwqIkmrSfB5+3KzmOT7bN/Jtav KkIW/lZkuFxYuGLL3G4UP8c8/YspAWR4Tq9Qq8vpQZz6OMYh80kjSB0tIqe+ ZvP/Wt9LrlVwJlDhecYfVu15JvLPUT+X+RfVGmGL49zyEmUW4rWXaq9kihDh u6OqHfNmG7Jfca/rabpwA9j5OP75x5/tH878EnpCfVO0HRHsu8Tmy8b3IHlu 3HzvYSeh7TTYekJp3MuyEfn3QqmPxE9fIvj/Pnda07kZyfdY2l9+nt4MK3k+ iiZHMVB+r6shlbq+pIGT/+7C0HQm0i/Ps4D/nXEDkIa82qVK8P7oXkRh6Q3F JrhsEk8+tRT7t/Xzmu2Hc8lgW3P9Sv6RVjS+9z/l0S9eVA3REe86btnj/NAT Wp926GQ1+B/WCf4ajfkyXZ0A3qZyGPX8eCDkAd7/G17euUp6TTXMzNJ57KSA zw+a6hpryBI0GGg0OnZVl+0fzvpUZZO2/D27ibq5wcM33Q2fHxzx+rTzwgoq zDiukE5PwvF71bJ8Oi2jBvQWfzlcMd6F5F+HfjXd0EgBy3M8leVz8f49XsZt +EszDRq82i+OULuR/7cm51W9GqTAW7GyTcRxvD8tV/OPZ55vgiNHJD1LmvD6 PYn303PobIS30mpLZYx6kH0XpvdUSYuSwF0nYFk6iYn4UpviTJ0J/38U4mt/ Yo/PPxdLilQ736VClYQOf1d7L/JPtW2vybVf9ZBPzT06c0cfkl95Kd51r1cL eL6rE1vxgt1/zv7lWROYLIbOKXZx8tuB8p4lmEUHhrXHJ7mjPYhny9q3vzxD g20JbVYHW7qQ/vjjuqeG+1nAd3NBaMIGtv2c+p24bMg9wYgBavI5CXnDuL46 Crttdd3aB5LEL99keAcQn38vUfLFPDpE2F0+EqDDto9Tfy2uCvQsqmgBF14T +ga7HiRvNyvvhNVyFuyX2B30yZidv5zzEUv4bn20pBOilT7zCcR1oPxu+Wz0 5WtZIWyRWDq/fUMbim+n6VKz+wcZ0Bq1S32OAfaP0s8voX+U6bDbYunsdXNw fn4ofvFUrbIFipgGBNvJ+HPkry9cHEoTr4PTcx89tv7cgeKfkN/V0ubPBBEV U8rRIHx+EvHV8gwpngXEKMsqo+F+pD9Of9nmQ7NbYV4a7/uNSt3IPyEaSjyb 1ZtAnDHtSGE+tn+WxnXxls2N8I8TsVd7RTvi5Js7T3n9YcK74fHA8LtdKH5b +LtntG8tB/MyNSHbbez+c+ZPVWtikaRBDbxYb+T0cSM+n1MdM5FSNK2D1EyR /oY1eHzeHzqUfJHVBPbX+Q0T/TEPjqkS0smmwr4FuT0p7nj/tL7jYeTeKwwI 89mcolnSifi+t58e7L/cCZY6SSEZwez6zTm/GVxnJLVlZQ9cWHHNIWspPt9Z LbW+cfvbLqg0V406YsXOT8753wftU34W/h3gom3u8tqWgeQ3+cc7x5p1wB2R Wr2ZCuz1O2f/c/b6dPeiWbXw2eejvxYfXv+vORv3PfJ1Azxa8WXOvh34+U6g 4+W2rLFmGDCLf7KAxuac+dtvfbiBuwcLmhTLeL2i2fOr1CTPPf7z3H6vBsgW Oe8mn8Q+f+DMb6C5JPljHR0W729x4y/H+58qkYtmUUMT+8NnQoJCfI2Ih6c1 daitpYOvy8DDPst6ZL/OQ2uHXxuaQSNJNLmzGq/fZ+skuVxeXQ8JprLJNqZ4 /yNGH1bZt4UMcQtVVWWe4/X16c4uq5nFVFg2kuN8gg8//9L4fk4pKaABmmtW Xd+v24C5C+Hg7hM1sHNIs164cOo54SCcG/TWVj5FAesR6YSF6jTUfuvZmTRB MhWetYw5GqQ1o/FT8FB5Q1AFDd5XbHry4gmOb2XK9WwNjyZY7dWnKzoN+7c5 ICmqxLoeQr0jiGmeeH9iFXb+Uc7pFvjwWn1H88YqZF/KbRWf6QnNMFf8H9W8 yfM1Tn0ald/gu2FDPWxwHU+ipWP/x6YLns6NY8LcxLSn4cns/OXUjyWl22iv b7dB15v+I89y+qe0z6MltivCqlC7DUqyn55YcHJq/eDRin9p5/VdhAG+QaKl YYzyv+YCTwfbk7sp4M7z0V7cph7xrO0nCfTlRGgPPXP+zqMWxL/xr4JZFQQw LpvDFLxE/2see8yAfnI3ERaSon1yfabmB48WUaPIsMqUCEtbzutLDjQi/nmH i4aBHwUe3H1r/y0D28+ND8XlzC5KIULDQP351n/Rb/epTCmokQhZ4o/tdFyx vAO19ETv3HLodL8Wyz/j7/l2qR22jVZEMD/o9TluM+aluxtd9kI13Ij6nJg/ PrX+cedP3FXMyXEkSJHQzKXyNSFua5Ga/yyZBN7U1fcG5mLeuKc+QS6FAASP B4u/FjQg/qUhUoX8lAC8d9tHhUqx//g6kyL1VhBgZlVdFrEZ9++bzpjxSBEB tEWT09/QsP5653GLu0EEcKq++PHgKsyvONy62pNBhJ4Nu0pTxDEPMEpaNvt2 NUgv2bPiNed8a5JL6jm/KSUQoSzQezRsH7Yv3w5u8n4iAt+JRGGGEdbPjdsd H1j9bHUNVCgsb9Pmw9zJfNWJZXQGVDJTtovIss+HOPWtfsfL2HsSDJDaTni4 K74E8e0uHootE/u7A49D5nsUvEfzb9IWy122Szqgwlddm8+zBvG2hLLmaakt UBCr4PT4ILv+ctYHDi0Hdn1mMuC5jtTs56Ps+seZn786SBTd+siEh8NHHFl9 RMS9/S2+B2mxINnDeWuLKRnpf8h03z7/OQsuxBhWvGKy48PZX7pWhowsNGgF koJ4d/hXKpLP04zrEG1iwdWSmeSaQnw+TCbo6Fxa0wQhovHJ1XpvUP0uGR7o KJvwn1bEVZ3UP6WIK+TuUz76jQHftHnu/DnDrl+c9aWafarvwEoW5LI+LzCe rO+c/YOHafOinLcsWOH5gqFX0YT8/8Qtj2/cqQkuFC8Z3F2J8zMjZvzt6TES mI1+fNux9O/5zSt82c+PkaFu9K10w8+/5+bvXMtahyhQE9awdkk6Hh9bHAeP Jv8gAjl5U8aNLjz+B95mNIUrVkHGOTjbq/b3nGicpbhXjghDCXutv7hNPd+c qJ8uf1aseU2E0AvNlrf6cf3ixjea8we5mZFg2s7LdS/D8Pwzcs/PR6GYDAHv CNvWyU59fsKj9SHBVoknnwRCV+wTGlqnnh/zaPGKmoQUiBCha7qhGJWG/bfA XUZDWocIxOTr4rZCf8/nzdPpMVKjwO2GQn2Zf6l/3Hgm9SEjsokIq8XC7tHN pp4vceerZvOdrs4mQHjJc6hQxOuDTzZXyQqZJJgfsbXyhRv2Lzfuv1d++b0/ FPhZYuXu+g63b8qzynln1MT8zuehHKWO+8eNv9ngBLtOEOHRLN89ab8wdx78 ditiCREWXM/wNg7C/SuLkw6x3ksC2ZBPP5xMsf3c+NiQX+Gv4QpwpV96MuqN 85uSH/zEOZ0Am6a/j2zTxeNjx6x75bCEAGlxObxhH7D9ret5NGIpRPAtvvrq xybc/ijh6OyRZAJIeJcFWXZgbrJIbrvf/WqgeFgvuOWMx4/E/oyNq7QIsD7T 6PrIv/hvq6j8wX+sCBCcnhV8zAr3b1VQyDWVtipI5zV0U1qN5ZfY8Pj28pHh ZYPMtO5AvH78Wh5tWSlIguWjH4PfpuH4+CgYKl3bRoTlB35+mSOE5Vm0E0eq 3xHgEu2hbWYi5nrkuENH+yrhRI+1sOdDBuK371rPEM+ogj7VoLSCKzg/uXGb 7kOlSn5k2Pq1x2bHTsw78tT3z55YP5GfHI2oEsD+t/ot/yHItxruKOiKf3HA 8uvTzEefSlXD6X1veSWicf/k8y1T3msQYav3173iRzBvdFjy8uc8IhSz3my5 eATn37vxJI0dZkQgvKOPzVDF9Ykbr1r++1zzNQp45naZ/8zA9nPjj1+/bJHS IoHXtCUqN/Sx/dx4y5x9aY5rSDAgEe4tRML6uXGxFzdazW6QgHl/dPGSUTx+ fqeUbcmyJ4DD/Uz5ryv/JT/NLJo/WhLh0pZlz43mYft63LS97A+RwEP46JxU WSx/6dk6QgoQYXjJDPEBIczdnBxdp5US4crpw2aBMjh/lP1exmtKECEoo3lz QSTu3zxVh51PT5WCz7VN5pfX/D0vzQm8F+ZQBZG2c+J/7sP2nbM1f+/4gADW symzF3/A/uPGc7YUjtvoVcKtEy7hCp24f/Ep19x7O6tgfXDLcudAbB837n/0 gE37bgKIriW1Ko9i/X1jmv6ND6qgNVbhZaMUjt8/234fkVlZDgetrugqpv09 TyKprXWWL4HE17EHLV9gfl1gW1k8qRJyxaYrqXpgvsjmdRjfdBJ4bh+x0VuI 6xc3vvyHs3S2/0T9PvPC4pMl9s8aw1SJhlcT89NSJ4Oua1Ofn03sL4USx+bx TOyvBe77mdyZen+ZR2vztte6MnHl4NuyZ4NF3NTnPxPrKwOViC+OJODXGcw7 6YbluXExl4Eg41YCLNNeKBe4APOOnw0/9utMyCteHZ5Vjvl3QdMD/g9K4Y17 wl5+t6n3s3m0Slh17lZnKkDEwEHw8WZsPzf+z/7NzEN1+RDLayZj7NyKuNSj fpVxp1LQpw18iuDHnH+f0XPKUAk4W9d4ODUyEW++ua/vYWcFxPVebVLe+fdc TG4uyM4ugs3zOn8438D5wY1n0/yVlYVLQWVUz93/NNYfcmvwxs1Zn8H1SOs2 71jcP25cO1JDXDu1BHzEDdM7dFmIexnwiCmafQbLItHV5e8xdyzYaJaVVQb7 XKyuLorA9h89/tPePJcM65SMQxPN8fmcasWmz6BcAxKyMXdePMe8RLI0NHE9 Ef4c9Ks/wT/1+SGPVtea3j2CBpUw2LNf9Z0lPt9r8Wk6LidDgHsfnRMfVWF5 vgin3+TIalA3+HH1wKmpz994tG4kucc+YhDhpsz0ZtUIbF9mp/L3GbNIcPdQ fDa/A25/t5hqySpXIuRansuMXYjls5XsP9NyibBOUt/J1Pvv+RfTtyPmpkTo vn9+q4cwbp8bL1cfKTSZqF8eYWSCjwbWL8Dk/Z6fSgAp80PRO3ZieeLX0U1S DALwGfmJBNT/Pd8sR/1+amklGHy9pPCrG/ufG//+oDSPvpQMB4rz3PatxPa/ k3NvdiJSICXN422WL24/aTxS1eBFNcCv97POzcfy3Pg/Z3Zvs1lbAZ4m0Fu8 F+u/sXKP/47p1TDLWSImphDzsRCVF3YsMhwiDrmohg/8Nd94++ZGgegqCO0T SRQRxvylUPeqfUbVMHBott2XLtz+zE2sUp1pBKjhVzz0xRf3jxs/M31fRucV AnyZ+auaGY/10z65CitOzO8t9XsiVyj/PZf2tFl5xb8aHuyFzc7o+fhE/OnM KJuuCuik3ugvDsLj23Bg2x6pe0Qoj1gmqRaD9XPj1D7fGzWtlXC2UzaQT+Tv uaavd+z1eBK4uGeclnDBvHXhcPSOc2So6Ax9NFcP84tBfqz3sQRQXLHb1WkV 7j83/sdC5FCuAwGGMtRnhcz4e37R+G3RzzW18DTu2S+1+m7ElWsKRCSptbDz lfxDz+nY/9w48dbv7UZytZAbd5Y27THOL2587QX1AbpWPTTsyVmTYIv50sNr T6gP1YGKYLj87bJ/if+uJXe7NCmQa3tdTvQVHj+HdUNUjx6hwMfs2e5qK/+e ZxZK9LXLE2FnakhU/HPMb/0a8dBxm3rvkcOn/SFlNvaS/9e8Jreu6jSzBnZq Xtt94BP2Dzd+ITln2tmVFMixSrdXO4D5x2pq1LnRGtgw+mHljhWYa//YuId3 LwUqjE+nyWbh/nPj+mKvyQutKGBV2ZY4fhHzr/HFJhqWZFA6m3NhaPffc7Ht tLsrpabeG+Vwo4J5z+pUakFore9Vr51YvuSbVuCFRXXQotG7+M3gv6xfuPAb +RqJsdYkuEI2WN0VhcefYMSLHAVhMgzL3WN2BWF5btzacO37z9soUB/XDcWA 8//Dymbjp/n/c/6tTFoBQsup8EL9VK/rGO4/N+42x/0LfR31f9Q/55S6nKB/ DVg8iY4JDMTy3HhQPfxZcux/1s+Nn6ilvbJOp0KdVvHN8CvYf1dHvX5EbqDC qU01/pcHcPvcuPWgZ4qXGRUCBoY2xFlivqPau0XStBbcdxYXFq7GvPXMxmM7 eKY+F///53EaQx01V0hg56qU++nQ1Pt/3Lm52slzjWeo0FCj4LJv5d/z0J+6 3ieulUHg/AZqz3O8f+PG+1Md9M6uKYF5uSf4Iv7g/eORuY+VDe+VQ9z9dXwF PVieG9+0NTr62qVqCFoEZcUz8PxW9CmGdkejBGrsHwe3rsDyl4esnt5OLQPz UyIVlFm4/9x41tFZLOf+Mgi4E2aXQ8L948a31M7q0X1bDPGy5jMC92N+Vryb mHm8BLZ8Mcqc7oLt58b97eoXZ+cVwS3d1O7kW9h+0cOszCUlpUAhaORrivw9 X19WelZ9cxnUM3gG+tWx/7nxk1UfzPtMSeCmfPkjVQbr58av8DF8qRKVsFw4 OMo6CvNKxRfhp79RIOhHtnAhDx6f3Lgwz4dH2YI1wN9d0j48juvLe+kiN+E+ Ioyej+k0QffbuPOL5kvOdm4iwEpVada9+9j+w6d/y23ZQ4DRUVpSgB/mRVs0 PnbNrwQvcyG99iB8frOE6vGSV4AId8UjHs1JxecH3PiJiIdjG0Yq4fxRC/n3 a7F+bnynScs9p08FYOg42qOdhPObGzemzVF7HlMIehKWmcH/cv60Xf83/XFG GZT1kwbKI3D+i65cU3mLWgmq03LDTydi+/K2GfAuNK2E1XPTlpWO4fM75/45 ou165SBBuFNg/y/nV9y4n3HGkz08BHBY4GKcNYr1L7e7udjvaxXI6weYwu6/ 57yKBwf9vKrho0oXIecfzCmpTeeJLUUw+/1q2h1N7D+J1LTUd3fL4fuNjZSs IMyNHAKmR10qhVPevHF3Y3H/fsgKNKUlVkDdwKHUH6pYnhufNlR18dqjEvB8 qbU68X/Bo/erJcEBEhz5/XK/1G4c35dzFAfMxYpBiyfky5pTWD4scP6n96EM SNqmGbTgJrs+ce5v/BR0ITJntkGq0awq0SH2+o5zvyK9VyH51eS9dvb8zbn/ UHDUO+TFaBfEz96gLj55v5Vzv8KPKlTz8SgLAn2gjfgOv7+bXVgiGq8w9f1f zv2QhsBTDk/ap97b59yvSPuapvNsIR2O79UJT5h8P5pzf9hiPGzLkfdNcO56 m/SNuez69F/v54bV8G6+2Q97gjTnxSoPIP0duyjZTwxaYa/i7sRFzDYkT4vK zeGvYML2k0K+I0/x/WV95YPPnBraQC4hO1JBiX0/kXM/cKPdadOzWzvBcz1f TIwsfn/0+brvRVdr26AjfP3BQlcK0k+8MPT7vjwDdFqNlSiLGMh/kTd9xK4B HUrH5FxnfWWf73Punxs5+pr2r6kHyRLdsgppJopPqN0cMSXCxP7zzjI14ddT nw9y53paO6P799OhOXrjKiv1qevcQVhO1xKua6mHuoRmCY8wfD/pvOYdm0eq NJAzqhjtpOH3e8JOx+YqbWmHoTiyvq5TM4qf9cYi0sneTti3KOjuN0X8/Q+h VbbBgV9ZkG3+a3Pms2o0PlQy66+VZ7eC0+rPNh2H2PZz7getu+I2UBvXCWuo 99Mq6tnrXM79Z8kbe0RN9JnwTTLwi+0BJuIBvWXT6m81QW+8ctOyF3UoPhay 9rOCFTuh8ruuLLOgHckz78w9JDStEaRqReZmGLci+TjfHXwanu2Qdnskso7A QryrYaeUd1cL2MbfVz5Ew99fISbEzch91wK3iXL2hkb4/cmmdJFzF0ZaIWqm qtyyBvx+UmfytTbrfhaIN6ZUBUw+3/iv8dGREW6yrB2SilXm6bGa0PiYI3lb Qc5vIj6yJefdtJjI/4Jqxzabd1JgRr9l6dvXk+f7k5x+rncptb8O3gy1L5id hO8vJ6mMDC7trwWnt1Zf/izGfGuRuqqiUSMsaE6K6ODB96fLu/K+53+mgKGz z2NBefx+JjfOd+nwvqyvFKD16hPePZh6P2IQdtQqvldMJ8E3Ow+F5On4/e4F POn180LpcP4X/dpMbzw+Ng/zR7g4MMGnstmkaD/+vkdl8NnCQn4WrKe0FEiG sRD/MZwhupC3DnrlPe1SJ78vxIkf/48o8z1CJBAJ3hp3VgC/PyTKf+nPvrQO iFntWbtiEX6/oNJQ4KdVXzucGmYmyIx2ovG5aMQtX06BBHdCLS97+TNQ+x7v 3VPnUmmgTCmfUSLDHv+c+iU8tq9kTSgF7szzO77bFPtXoYfhQA4lgu2m6FZj GVy/tqqXHZQrqwEJov29h6Sp9xsGoSJiJEH8IAtm/TpsoKnWjsaPyeOVIYQr jWA20KP0MoVtP6e+Faf89hv+zYJfIxcthZlNiNO0he4rBTVCbsCNhPnnWlB8 52u7KYh6kkBA0bklSRt/P4obd1x2Ry/rSi2wFmZGfNVljy/O/dP8gp6CC2Ik 8GPqb1GmtKH42oqGXF6+tBROOqtLdNe0ovETdEo4X0WgEXwDJR3zz2P9FnO/ xpiRasH/5aw1xgz8fZfpQhul1i9uAnvekYubJr+/wnl/INfdVT3nIRXkb3v+ zHftRDxls3fzLIUmWPxq7Y+8Hvz+qbQsoal1NRW+k2aKfR/C3y/Ku7auxHe8 GV7ojjrLmuPvY+zXeETNX82ESyKGV4+1sf3DqV/bNMhVrucaoNrizVkPzanv uQ3CFsFteorn6mGOjdSfcBf8/iM3/n8Aua9XSw== "], $CellContext`foxEndurance$$ = 20, $CellContext`foxGrowthRate$$ = 1., $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 1., $CellContext`rabbitMobility$$ = 0.028, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rabbitGrowthRate$$], 1., "growth rate of rabbits"}, 0, 1}, {{ Hold[$CellContext`rabbitMobility$$], 0.028, "mobility of rabbits"}, 0, 0.05}, {{ Hold[$CellContext`foxGrowthRate$$], 1., "growth rate of foxes"}, 0, 1}, {{ Hold[$CellContext`foxMobility$$], 0.05, "mobility of foxes"}, 0, 0.05}, {{ Hold[$CellContext`foxEndurance$$], 20, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`moving$$], False, "run simulation"}, { True, False}}, {{ Hold[$CellContext`ag$$], CompressedData[" 1:eJydnHk01d/38KUMKSqpVCqJkDJERalNgySVMTShoigiKVJK6kNKRMgsKRSl SEhFZB7uxDVc3ME8U5RKPdbzfK/7Xfbnt+7Tzx+s5bX2Pvvsvc8+w/u83yuP nzOy4eXh4XGb+DVj4u+5HXLpMTIsKKFXuj9e3QI8//dHVev//R2EpZGaf/p1 24EsOTM6+T4Z8bFbP2wezm2B2DQbjQU7qP/hPJPcqu1wrY9YA2zzquAnCDUA +//sv4KapFaNO43g47J0kCBLQTzsjf6y7pI2kBq8e/tlG+0//18zqd8lT1n0 qicTMpJ+uS8RoP+Hy03yzmrHrktRDVDVqMxKfFGD7FtgahBco8qE88kqbz7Y sNtfP8kXF2pfnnOsDTY7yxbX2VX9h0tMcvEdmXs8WpmwyV29JudFH+LJPUsT TUs7YfRDtbjhr+7/cLVJXhoemJsg2w4eDNaPl7xs+1U4+tf9Dj9/jwap6TQw sWHztZPcldfc4ENLC1TGpmvwCLL9Kz7Jw25qWpg8aYAzxx6d1RpmIJ74fM7B ROEmELqdpxCQzeZinPgdPX++fUkd7K4Jipy5sA75r1R91rxsMTIcEg9dFSLG Qnzhmd3+MxzIoHr85+wkHrZ+wUnOOEDLr5cggXXp7zPZz9jyczn928s4mRhH BJEim0fz7nSw9fOw+Su9o6GmGUSI1Z3/6tridsSryh1PUclkIMXY58+gdqD8 yqw11C0cqYNkF3/7xAi2vPJk+6s6hD97hzBg6FCe9Ze9Ayi+rKTvFP7r9Cl6 ObxaOtvjsj8THpoaXAg91Yripz9gbshTz4Lz4Sb0i0/aUf4NG+2MXvuRCRc+ S+qvSutB489cjHHK5TkTjq8+vKDuHdt/ipPcwydGZDi4B0r1g3OiM7tQfnks JlF4UzrApr4KFpX0o/gdeH9K3nOcAeHJu/SVA+kof4/bO74IN6ODSHvopoxH Paj/F3JXTo/so8F+o9qELfxdiCcdUvM2XtEAUnYeytvIHcg//ak5eeIudMg1 Iw32XepEvOz61/FtFDocM/tktLgHj3+zbI1pGj5NcChD2t15dgtqXz1cO13g IANMnuyaH7we1z+V+LjoXQlUqNz/ylH8QCsaP9tWx5yq31MLOz4l31SXbEe8 QK1ALu09Bb5ef/syrrcV2UdwFIymfq2H8rbsWIHOLuR/E2H6zPq6eohgZMT6 pXSj/E25m7LpfSUV3G2J8xolulD+6wlreL/dToVB+cvXS5V7kXxZ4Qf7KpV6 UArNjXzlw7aPU19NwkwT92fQIXFtwbqq9F7k/2frnx4M2MyCnb4+UiGjzYi/ Pb+V8qivAdZqUw6SvZpRfi8cD45LyGJBeS4xLHqMjvxfSdi3fpspY4rdqyd5 9I0MysE7DbDaPCHy0QXs/04t4/wIsTpYcuXXIuuiPuSfwOEfl6XHqNC9pjFg WhS7f5z6p+fpEG/f1QgvAuuF1on3I+6059dGL+k28BcXEOxb24n6J6cwfGXM mwmsY2laidK9aPyMz739e14GDd6Nfyu/GM3Of079kXM/NP3ArFawWvvzF8EM 16fLvI4/NIcYcGFjdtKarez4SU9yD8Gza3feqYNrd1MFbA1ZyP4I/do/cw/X gY90cfJofhviAiJ+r3oJzXBE01tTsZrdvtQk91KwsNOWooPfxrqm1+JtaHxV FH6gKnbVw2nFI6b997pRfK6XS42LLWOAziEX/ydWfSj/apgWLhs1WFPiz+nf n5DF/zhTmDBP1sKy+Adbv+QkP5ApmdVo3QbzGWKnJSbrN6c+Zk3/ePayXQf4 ZlsqDXri+KoL+nYsFmbA9rlVpt60fiTfOk97SYf01PrPaT/fOKZdfrgZtitc 1A1/14Hy+94vY7t0heYp8pz+swSkHWVVWkDzn/wfyVY9iI98T9IJcZjqH45/ ZZQWtbR0NEFYxhsBozcDiLuO7TH7bk2DeSlHdMf29WH5gXXpfBs6YU/qP/yJ G7tRfDWHzdpaTrWDUo2D21n/vil2DMKjqymLb9/vgnkySbmhUdj/zyFd4hOL Dg2OZ2xGJ8bZVC75VlhJpqwDDPMur1rPx17/cerLZz2Bl4rJdeBwofJGyWG2 fzn19fpimzwFrXaIf6ncYBTLXr9w6ocrZeabjqcM2H8xsk5dmYzy26BA3sf7 fh0QulPzLXLbkH8W1E+/nifBgOiC+keLTJkoPolvjC5aXmTAA94MooFXHepf s/2lGNE77eC+Ftb0teH6mbvkzDHjiXGtRI7i2dxLR/qpzBnTpDxYUJTjvPKy K3v9x5nfq8UkdB3dmFDy+Q9f5H4m0k8bv793QQ0TRM/+03VDEOsXV2C99pRh QLnv6DLrvURUP4UDOtbTyVSQ6Wg/GfONrZ8zf60KixrUFmmAhdsCfhR/Ys+v nPWfFoUeu/t1E2ydFvxCo4SO/C82fnOVY0MDZNK37N9YXo/0b7pitFnQmwrh YkUKlPgalH/vzeQXPKbWwO/nv8d4ijGXpwZtfB1AgZIYQ9tT9jWofzZrVK+I KtHANlugv1OFiuzfabWs7cyyRije9/51zGm8/5GRezpWlt4AYlcqEk660hBX laohNh+uhxlzvrxZZlWH9C8KWzVv9RUmiO9v2h7RiOvrnPS+ml6VNmheEB0Q 79aE6s8dfQ1L73stcCPAlmX1sxHxuMMH740sbwHH2O9K/MuakP8r7e6/Swtq gF8eug7bjrI5p/6W7JoWOeRNh+S59RX9Y1QkH3pRK+mKAA1Cw1g3btGw/hyZ Z8cPErpg8a1Kg2BaI8pPkUCdhXJH2kEi90G03mUGys+c+fcUeIqa4HiX06tj YzSkX0DivV5AJAMezzFrs7jeiOz3TXzWb5jQCLEyXQ3LDtSh/LjL8mCMedEh zmvR4eY+CoqfU5TPdD59OsjfKVYacsXxz8jVqTJ6TIeRuWfTc72x/PjLkRDX QBpIvzwmMYuM4/9mNPymwTgVjNJKLM4dJiL7Trns+VycWwsV5qmKTGEqyt+D EaXBlyby6tnpvp225Hok/7vAecD6MxXaapdtONKE99+yUQpN+xMn/h/2JF6k noz0n959XUZ6mAhzd1w+d6mUhPjSjoZc4zs1QNl2qb71Ox5//IaXxN0nxp/f 3dcqzW9wfUl9KfqosqoWgtb2ua9owPb9tj9z6ZVJAzBXqAf7nCUgeWpU8PoL P8nwavdGIV2JOsSnf1m3qPgEBXplY25W3KxF+j2yru4bOE4Gk65ZPM/jqxDf uk7ZoFytGVJO5rXO6y1C8fuez5t1/mgtDJ0o/6HdTkLyX15Vmu6aUQc5jY+S 24JJSL4uNGcR7wMGpKjsTXzhgvt39+TzGSYT+dm6rc+t+1w5yi9L53xrz2YG BBmytHdP1n9O/kvfCLtosZABpK3xZ01G8PjOqfp4Yr1SO2zSX7K1j49dfzjz S4isdltt2UT9cXGcseA2E/H6qtnOGk00cH4U2G3iwtbPWR/rfjhxoXVLE2Qb C8/I2sheX0lN8h22m9tMP9VC90jl6nOt7PUn53xgR1teQc1sJnToJuqlxeD5 X+3PhwebNrbCnrWH43WTOpF9WZtLhEQf0oGWOj6sY4D3n+K7hDqGZtaAzsXy /ts3WlH7V61GRtXd2mBX+YVg6dvs9T2nPtvwqIkmrSfB5+3KzmOT7bN/Jtav KkIW/lZkuFxYuGLL3G4UP8c8/YspAWR4Tq9Qq8vpQZz6OMYh80kjSB0tIqe+ ZvP/Wt9LrlVwJlDhecYfVu15JvLPUT+X+RfVGmGL49zyEmUW4rWXaq9kihDh u6OqHfNmG7Jfca/rabpwA9j5OP75x5/tH878EnpCfVO0HRHsu8Tmy8b3IHlu 3HzvYSeh7TTYekJp3MuyEfn3QqmPxE9fIvj/Pnda07kZyfdY2l9+nt4MK3k+ iiZHMVB+r6shlbq+pIGT/+7C0HQm0i/Ps4D/nXEDkIa82qVK8P7oXkRh6Q3F JrhsEk8+tRT7t/Xzmu2Hc8lgW3P9Sv6RVjS+9z/l0S9eVA3REe86btnj/NAT Wp926GQ1+B/WCf4ajfkyXZ0A3qZyGPX8eCDkAd7/G17euUp6TTXMzNJ57KSA zw+a6hpryBI0GGg0OnZVl+0fzvpUZZO2/D27ibq5wcM33Q2fHxzx+rTzwgoq zDiukE5PwvF71bJ8Oi2jBvQWfzlcMd6F5F+HfjXd0EgBy3M8leVz8f49XsZt +EszDRq82i+OULuR/7cm51W9GqTAW7GyTcRxvD8tV/OPZ55vgiNHJD1LmvD6 PYn303PobIS30mpLZYx6kH0XpvdUSYuSwF0nYFk6iYn4UpviTJ0J/38U4mt/ Yo/PPxdLilQ736VClYQOf1d7L/JPtW2vybVf9ZBPzT06c0cfkl95Kd51r1cL eL6rE1vxgt1/zv7lWROYLIbOKXZx8tuB8p4lmEUHhrXHJ7mjPYhny9q3vzxD g20JbVYHW7qQ/vjjuqeG+1nAd3NBaMIGtv2c+p24bMg9wYgBavI5CXnDuL46 Crttdd3aB5LEL99keAcQn38vUfLFPDpE2F0+EqDDto9Tfy2uCvQsqmgBF14T +ga7HiRvNyvvhNVyFuyX2B30yZidv5zzEUv4bn20pBOilT7zCcR1oPxu+Wz0 5WtZIWyRWDq/fUMbim+n6VKz+wcZ0Bq1S32OAfaP0s8voX+U6bDbYunsdXNw fn4ofvFUrbIFipgGBNvJ+HPkry9cHEoTr4PTcx89tv7cgeKfkN/V0ubPBBEV U8rRIHx+EvHV8gwpngXEKMsqo+F+pD9Of9nmQ7NbYV4a7/uNSt3IPyEaSjyb 1ZtAnDHtSGE+tn+WxnXxls2N8I8TsVd7RTvi5Js7T3n9YcK74fHA8LtdKH5b +LtntG8tB/MyNSHbbez+c+ZPVWtikaRBDbxYb+T0cSM+n1MdM5FSNK2D1EyR /oY1eHzeHzqUfJHVBPbX+Q0T/TEPjqkS0smmwr4FuT0p7nj/tL7jYeTeKwwI 89mcolnSifi+t58e7L/cCZY6SSEZwez6zTm/GVxnJLVlZQ9cWHHNIWspPt9Z LbW+cfvbLqg0V406YsXOT8753wftU34W/h3gom3u8tqWgeQ3+cc7x5p1wB2R Wr2ZCuz1O2f/c/b6dPeiWbXw2eejvxYfXv+vORv3PfJ1Azxa8WXOvh34+U6g 4+W2rLFmGDCLf7KAxuac+dtvfbiBuwcLmhTLeL2i2fOr1CTPPf7z3H6vBsgW Oe8mn8Q+f+DMb6C5JPljHR0W729x4y/H+58qkYtmUUMT+8NnQoJCfI2Ih6c1 daitpYOvy8DDPst6ZL/OQ2uHXxuaQSNJNLmzGq/fZ+skuVxeXQ8JprLJNqZ4 /yNGH1bZt4UMcQtVVWWe4/X16c4uq5nFVFg2kuN8gg8//9L4fk4pKaABmmtW Xd+v24C5C+Hg7hM1sHNIs164cOo54SCcG/TWVj5FAesR6YSF6jTUfuvZmTRB MhWetYw5GqQ1o/FT8FB5Q1AFDd5XbHry4gmOb2XK9WwNjyZY7dWnKzoN+7c5 ICmqxLoeQr0jiGmeeH9iFXb+Uc7pFvjwWn1H88YqZF/KbRWf6QnNMFf8H9W8 yfM1Tn0ald/gu2FDPWxwHU+ipWP/x6YLns6NY8LcxLSn4cns/OXUjyWl22iv b7dB15v+I89y+qe0z6MltivCqlC7DUqyn55YcHJq/eDRin9p5/VdhAG+QaKl YYzyv+YCTwfbk7sp4M7z0V7cph7xrO0nCfTlRGgPPXP+zqMWxL/xr4JZFQQw LpvDFLxE/2see8yAfnI3ERaSon1yfabmB48WUaPIsMqUCEtbzutLDjQi/nmH i4aBHwUe3H1r/y0D28+ND8XlzC5KIULDQP351n/Rb/epTCmokQhZ4o/tdFyx vAO19ETv3HLodL8Wyz/j7/l2qR22jVZEMD/o9TluM+aluxtd9kI13Ij6nJg/ PrX+cedP3FXMyXEkSJHQzKXyNSFua5Ga/yyZBN7U1fcG5mLeuKc+QS6FAASP B4u/FjQg/qUhUoX8lAC8d9tHhUqx//g6kyL1VhBgZlVdFrEZ9++bzpjxSBEB tEWT09/QsP5653GLu0EEcKq++PHgKsyvONy62pNBhJ4Nu0pTxDEPMEpaNvt2 NUgv2bPiNed8a5JL6jm/KSUQoSzQezRsH7Yv3w5u8n4iAt+JRGGGEdbPjdsd H1j9bHUNVCgsb9Pmw9zJfNWJZXQGVDJTtovIss+HOPWtfsfL2HsSDJDaTni4 K74E8e0uHootE/u7A49D5nsUvEfzb9IWy122Szqgwlddm8+zBvG2hLLmaakt UBCr4PT4ILv+ctYHDi0Hdn1mMuC5jtTs56Ps+seZn786SBTd+siEh8NHHFl9 RMS9/S2+B2mxINnDeWuLKRnpf8h03z7/OQsuxBhWvGKy48PZX7pWhowsNGgF koJ4d/hXKpLP04zrEG1iwdWSmeSaQnw+TCbo6Fxa0wQhovHJ1XpvUP0uGR7o KJvwn1bEVZ3UP6WIK+TuUz76jQHftHnu/DnDrl+c9aWafarvwEoW5LI+LzCe rO+c/YOHafOinLcsWOH5gqFX0YT8/8Qtj2/cqQkuFC8Z3F2J8zMjZvzt6TES mI1+fNux9O/5zSt82c+PkaFu9K10w8+/5+bvXMtahyhQE9awdkk6Hh9bHAeP Jv8gAjl5U8aNLjz+B95mNIUrVkHGOTjbq/b3nGicpbhXjghDCXutv7hNPd+c qJ8uf1aseU2E0AvNlrf6cf3ixjea8we5mZFg2s7LdS/D8Pwzcs/PR6GYDAHv CNvWyU59fsKj9SHBVoknnwRCV+wTGlqnnh/zaPGKmoQUiBCha7qhGJWG/bfA XUZDWocIxOTr4rZCf8/nzdPpMVKjwO2GQn2Zf6l/3Hgm9SEjsokIq8XC7tHN pp4vceerZvOdrs4mQHjJc6hQxOuDTzZXyQqZJJgfsbXyhRv2Lzfuv1d++b0/ FPhZYuXu+g63b8qzynln1MT8zuehHKWO+8eNv9ngBLtOEOHRLN89ab8wdx78 ditiCREWXM/wNg7C/SuLkw6x3ksC2ZBPP5xMsf3c+NiQX+Gv4QpwpV96MuqN 85uSH/zEOZ0Am6a/j2zTxeNjx6x75bCEAGlxObxhH7D9ret5NGIpRPAtvvrq xybc/ijh6OyRZAJIeJcFWXZgbrJIbrvf/WqgeFgvuOWMx4/E/oyNq7QIsD7T 6PrIv/hvq6j8wX+sCBCcnhV8zAr3b1VQyDWVtipI5zV0U1qN5ZfY8Pj28pHh ZYPMtO5AvH78Wh5tWSlIguWjH4PfpuH4+CgYKl3bRoTlB35+mSOE5Vm0E0eq 3xHgEu2hbWYi5nrkuENH+yrhRI+1sOdDBuK371rPEM+ogj7VoLSCKzg/uXGb 7kOlSn5k2Pq1x2bHTsw78tT3z55YP5GfHI2oEsD+t/ot/yHItxruKOiKf3HA 8uvTzEefSlXD6X1veSWicf/k8y1T3msQYav3173iRzBvdFjy8uc8IhSz3my5 eATn37vxJI0dZkQgvKOPzVDF9Ykbr1r++1zzNQp45naZ/8zA9nPjj1+/bJHS IoHXtCUqN/Sx/dx4y5x9aY5rSDAgEe4tRML6uXGxFzdazW6QgHl/dPGSUTx+ fqeUbcmyJ4DD/Uz5ryv/JT/NLJo/WhLh0pZlz43mYft63LS97A+RwEP46JxU WSx/6dk6QgoQYXjJDPEBIczdnBxdp5US4crpw2aBMjh/lP1exmtKECEoo3lz QSTu3zxVh51PT5WCz7VN5pfX/D0vzQm8F+ZQBZG2c+J/7sP2nbM1f+/4gADW symzF3/A/uPGc7YUjtvoVcKtEy7hCp24f/Ep19x7O6tgfXDLcudAbB837n/0 gE37bgKIriW1Ko9i/X1jmv6ND6qgNVbhZaMUjt8/234fkVlZDgetrugqpv09 TyKprXWWL4HE17EHLV9gfl1gW1k8qRJyxaYrqXpgvsjmdRjfdBJ4bh+x0VuI 6xc3vvyHs3S2/0T9PvPC4pMl9s8aw1SJhlcT89NSJ4Oua1Ofn03sL4USx+bx TOyvBe77mdyZen+ZR2vztte6MnHl4NuyZ4NF3NTnPxPrKwOViC+OJODXGcw7 6YbluXExl4Eg41YCLNNeKBe4APOOnw0/9utMyCteHZ5Vjvl3QdMD/g9K4Y17 wl5+t6n3s3m0Slh17lZnKkDEwEHw8WZsPzf+z/7NzEN1+RDLayZj7NyKuNSj fpVxp1LQpw18iuDHnH+f0XPKUAk4W9d4ODUyEW++ua/vYWcFxPVebVLe+fdc TG4uyM4ugs3zOn8438D5wY1n0/yVlYVLQWVUz93/NNYfcmvwxs1Zn8H1SOs2 71jcP25cO1JDXDu1BHzEDdM7dFmIexnwiCmafQbLItHV5e8xdyzYaJaVVQb7 XKyuLorA9h89/tPePJcM65SMQxPN8fmcasWmz6BcAxKyMXdePMe8RLI0NHE9 Ef4c9Ks/wT/1+SGPVtea3j2CBpUw2LNf9Z0lPt9r8Wk6LidDgHsfnRMfVWF5 vgin3+TIalA3+HH1wKmpz994tG4kucc+YhDhpsz0ZtUIbF9mp/L3GbNIcPdQ fDa/A25/t5hqySpXIuRansuMXYjls5XsP9NyibBOUt/J1Pvv+RfTtyPmpkTo vn9+q4cwbp8bL1cfKTSZqF8eYWSCjwbWL8Dk/Z6fSgAp80PRO3ZieeLX0U1S DALwGfmJBNT/Pd8sR/1+amklGHy9pPCrG/ufG//+oDSPvpQMB4rz3PatxPa/ k3NvdiJSICXN422WL24/aTxS1eBFNcCv97POzcfy3Pg/Z3Zvs1lbAZ4m0Fu8 F+u/sXKP/47p1TDLWSImphDzsRCVF3YsMhwiDrmohg/8Nd94++ZGgegqCO0T SRQRxvylUPeqfUbVMHBott2XLtz+zE2sUp1pBKjhVzz0xRf3jxs/M31fRucV AnyZ+auaGY/10z65CitOzO8t9XsiVyj/PZf2tFl5xb8aHuyFzc7o+fhE/OnM KJuuCuik3ugvDsLj23Bg2x6pe0Qoj1gmqRaD9XPj1D7fGzWtlXC2UzaQT+Tv uaavd+z1eBK4uGeclnDBvHXhcPSOc2So6Ax9NFcP84tBfqz3sQRQXLHb1WkV 7j83/sdC5FCuAwGGMtRnhcz4e37R+G3RzzW18DTu2S+1+m7ElWsKRCSptbDz lfxDz+nY/9w48dbv7UZytZAbd5Y27THOL2587QX1AbpWPTTsyVmTYIv50sNr T6gP1YGKYLj87bJ/if+uJXe7NCmQa3tdTvQVHj+HdUNUjx6hwMfs2e5qK/+e ZxZK9LXLE2FnakhU/HPMb/0a8dBxm3rvkcOn/SFlNvaS/9e8Jreu6jSzBnZq Xtt94BP2Dzd+ITln2tmVFMixSrdXO4D5x2pq1LnRGtgw+mHljhWYa//YuId3 LwUqjE+nyWbh/nPj+mKvyQutKGBV2ZY4fhHzr/HFJhqWZFA6m3NhaPffc7Ht tLsrpabeG+Vwo4J5z+pUakFore9Vr51YvuSbVuCFRXXQotG7+M3gv6xfuPAb +RqJsdYkuEI2WN0VhcefYMSLHAVhMgzL3WN2BWF5btzacO37z9soUB/XDcWA 8//Dymbjp/n/c/6tTFoBQsup8EL9VK/rGO4/N+42x/0LfR31f9Q/55S6nKB/ DVg8iY4JDMTy3HhQPfxZcux/1s+Nn6ilvbJOp0KdVvHN8CvYf1dHvX5EbqDC qU01/pcHcPvcuPWgZ4qXGRUCBoY2xFlivqPau0XStBbcdxYXFq7GvPXMxmM7 eKY+F///53EaQx01V0hg56qU++nQ1Pt/3Lm52slzjWeo0FCj4LJv5d/z0J+6 3ieulUHg/AZqz3O8f+PG+1Md9M6uKYF5uSf4Iv7g/eORuY+VDe+VQ9z9dXwF PVieG9+0NTr62qVqCFoEZcUz8PxW9CmGdkejBGrsHwe3rsDyl4esnt5OLQPz UyIVlFm4/9x41tFZLOf+Mgi4E2aXQ8L948a31M7q0X1bDPGy5jMC92N+Vryb mHm8BLZ8Mcqc7oLt58b97eoXZ+cVwS3d1O7kW9h+0cOszCUlpUAhaORrivw9 X19WelZ9cxnUM3gG+tWx/7nxk1UfzPtMSeCmfPkjVQbr58av8DF8qRKVsFw4 OMo6CvNKxRfhp79RIOhHtnAhDx6f3Lgwz4dH2YI1wN9d0j48juvLe+kiN+E+ Ioyej+k0QffbuPOL5kvOdm4iwEpVada9+9j+w6d/y23ZQ4DRUVpSgB/mRVs0 PnbNrwQvcyG99iB8frOE6vGSV4AId8UjHs1JxecH3PiJiIdjG0Yq4fxRC/n3 a7F+bnynScs9p08FYOg42qOdhPObGzemzVF7HlMIehKWmcH/cv60Xf83/XFG GZT1kwbKI3D+i65cU3mLWgmq03LDTydi+/K2GfAuNK2E1XPTlpWO4fM75/45 ou165SBBuFNg/y/nV9y4n3HGkz08BHBY4GKcNYr1L7e7udjvaxXI6weYwu6/ 57yKBwf9vKrho0oXIecfzCmpTeeJLUUw+/1q2h1N7D+J1LTUd3fL4fuNjZSs IMyNHAKmR10qhVPevHF3Y3H/fsgKNKUlVkDdwKHUH6pYnhufNlR18dqjEvB8 qbU68X/Bo/erJcEBEhz5/XK/1G4c35dzFAfMxYpBiyfky5pTWD4scP6n96EM SNqmGbTgJrs+ce5v/BR0ITJntkGq0awq0SH2+o5zvyK9VyH51eS9dvb8zbn/ UHDUO+TFaBfEz96gLj55v5Vzv8KPKlTz8SgLAn2gjfgOv7+bXVgiGq8w9f1f zv2QhsBTDk/ap97b59yvSPuapvNsIR2O79UJT5h8P5pzf9hiPGzLkfdNcO56 m/SNuez69F/v54bV8G6+2Q97gjTnxSoPIP0duyjZTwxaYa/i7sRFzDYkT4vK zeGvYML2k0K+I0/x/WV95YPPnBraQC4hO1JBiX0/kXM/cKPdadOzWzvBcz1f TIwsfn/0+brvRVdr26AjfP3BQlcK0k+8MPT7vjwDdFqNlSiLGMh/kTd9xK4B HUrH5FxnfWWf73Punxs5+pr2r6kHyRLdsgppJopPqN0cMSXCxP7zzjI14ddT nw9y53paO6P799OhOXrjKiv1qevcQVhO1xKua6mHuoRmCY8wfD/pvOYdm0eq NJAzqhjtpOH3e8JOx+YqbWmHoTiyvq5TM4qf9cYi0sneTti3KOjuN0X8/Q+h VbbBgV9ZkG3+a3Pms2o0PlQy66+VZ7eC0+rPNh2H2PZz7getu+I2UBvXCWuo 99Mq6tnrXM79Z8kbe0RN9JnwTTLwi+0BJuIBvWXT6m81QW+8ctOyF3UoPhay 9rOCFTuh8ruuLLOgHckz78w9JDStEaRqReZmGLci+TjfHXwanu2Qdnskso7A QryrYaeUd1cL2MbfVz5Ew99fISbEzch91wK3iXL2hkb4/cmmdJFzF0ZaIWqm qtyyBvx+UmfytTbrfhaIN6ZUBUw+3/iv8dGREW6yrB2SilXm6bGa0PiYI3lb Qc5vIj6yJefdtJjI/4Jqxzabd1JgRr9l6dvXk+f7k5x+rncptb8O3gy1L5id hO8vJ6mMDC7trwWnt1Zf/izGfGuRuqqiUSMsaE6K6ODB96fLu/K+53+mgKGz z2NBefx+JjfOd+nwvqyvFKD16hPePZh6P2IQdtQqvldMJ8E3Ow+F5On4/e4F POn180LpcP4X/dpMbzw+Ng/zR7g4MMGnstmkaD/+vkdl8NnCQn4WrKe0FEiG sRD/MZwhupC3DnrlPe1SJ78vxIkf/48o8z1CJBAJ3hp3VgC/PyTKf+nPvrQO iFntWbtiEX6/oNJQ4KdVXzucGmYmyIx2ovG5aMQtX06BBHdCLS97+TNQ+x7v 3VPnUmmgTCmfUSLDHv+c+iU8tq9kTSgF7szzO77bFPtXoYfhQA4lgu2m6FZj GVy/tqqXHZQrqwEJov29h6Sp9xsGoSJiJEH8IAtm/TpsoKnWjsaPyeOVIYQr jWA20KP0MoVtP6e+Faf89hv+zYJfIxcthZlNiNO0he4rBTVCbsCNhPnnWlB8 52u7KYh6kkBA0bklSRt/P4obd1x2Ry/rSi2wFmZGfNVljy/O/dP8gp6CC2Ik 8GPqb1GmtKH42oqGXF6+tBROOqtLdNe0ovETdEo4X0WgEXwDJR3zz2P9FnO/ xpiRasH/5aw1xgz8fZfpQhul1i9uAnvekYubJr+/wnl/INfdVT3nIRXkb3v+ zHftRDxls3fzLIUmWPxq7Y+8Hvz+qbQsoal1NRW+k2aKfR/C3y/Ku7auxHe8 GV7ojjrLmuPvY+zXeETNX82ESyKGV4+1sf3DqV/bNMhVrucaoNrizVkPzanv uQ3CFsFteorn6mGOjdSfcBf8/iM3/n8Aua9XSw== "]}}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 375., {185., 190.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`rabbitGrowthRate$473711$$ = 0, $CellContext`rabbitMobility$473712$$ = 0, $CellContext`foxGrowthRate$473713$$ = 0, $CellContext`foxMobility$473714$$ = 0, $CellContext`foxEndurance$473715$$ = 0, $CellContext`moving$473716$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ag$$ = CompressedData[" 1:eJydnHk01d/38KUMKSqpVCqJkDJERalNgySVMTShoigiKVJK6kNKRMgsKRSl SEhFZB7uxDVc3ME8U5RKPdbzfK/7Xfbnt+7Tzx+s5bX2Pvvsvc8+w/u83yuP nzOy4eXh4XGb+DVj4u+5HXLpMTIsKKFXuj9e3QI8//dHVev//R2EpZGaf/p1 24EsOTM6+T4Z8bFbP2wezm2B2DQbjQU7qP/hPJPcqu1wrY9YA2zzquAnCDUA +//sv4KapFaNO43g47J0kCBLQTzsjf6y7pI2kBq8e/tlG+0//18zqd8lT1n0 qicTMpJ+uS8RoP+Hy03yzmrHrktRDVDVqMxKfFGD7FtgahBco8qE88kqbz7Y sNtfP8kXF2pfnnOsDTY7yxbX2VX9h0tMcvEdmXs8WpmwyV29JudFH+LJPUsT TUs7YfRDtbjhr+7/cLVJXhoemJsg2w4eDNaPl7xs+1U4+tf9Dj9/jwap6TQw sWHztZPcldfc4ENLC1TGpmvwCLL9Kz7Jw25qWpg8aYAzxx6d1RpmIJ74fM7B ROEmELqdpxCQzeZinPgdPX++fUkd7K4Jipy5sA75r1R91rxsMTIcEg9dFSLG Qnzhmd3+MxzIoHr85+wkHrZ+wUnOOEDLr5cggXXp7zPZz9jyczn928s4mRhH BJEim0fz7nSw9fOw+Su9o6GmGUSI1Z3/6tridsSryh1PUclkIMXY58+gdqD8 yqw11C0cqYNkF3/7xAi2vPJk+6s6hD97hzBg6FCe9Ze9Ayi+rKTvFP7r9Cl6 ObxaOtvjsj8THpoaXAg91Yripz9gbshTz4Lz4Sb0i0/aUf4NG+2MXvuRCRc+ S+qvSutB489cjHHK5TkTjq8+vKDuHdt/ipPcwydGZDi4B0r1g3OiM7tQfnks JlF4UzrApr4KFpX0o/gdeH9K3nOcAeHJu/SVA+kof4/bO74IN6ODSHvopoxH Paj/F3JXTo/so8F+o9qELfxdiCcdUvM2XtEAUnYeytvIHcg//ak5eeIudMg1 Iw32XepEvOz61/FtFDocM/tktLgHj3+zbI1pGj5NcChD2t15dgtqXz1cO13g IANMnuyaH7we1z+V+LjoXQlUqNz/ylH8QCsaP9tWx5yq31MLOz4l31SXbEe8 QK1ALu09Bb5ef/syrrcV2UdwFIymfq2H8rbsWIHOLuR/E2H6zPq6eohgZMT6 pXSj/E25m7LpfSUV3G2J8xolulD+6wlreL/dToVB+cvXS5V7kXxZ4Qf7KpV6 UArNjXzlw7aPU19NwkwT92fQIXFtwbqq9F7k/2frnx4M2MyCnb4+UiGjzYi/ Pb+V8qivAdZqUw6SvZpRfi8cD45LyGJBeS4xLHqMjvxfSdi3fpspY4rdqyd5 9I0MysE7DbDaPCHy0QXs/04t4/wIsTpYcuXXIuuiPuSfwOEfl6XHqNC9pjFg WhS7f5z6p+fpEG/f1QgvAuuF1on3I+6059dGL+k28BcXEOxb24n6J6cwfGXM mwmsY2laidK9aPyMz739e14GDd6Nfyu/GM3Of079kXM/NP3ArFawWvvzF8EM 16fLvI4/NIcYcGFjdtKarez4SU9yD8Gza3feqYNrd1MFbA1ZyP4I/do/cw/X gY90cfJofhviAiJ+r3oJzXBE01tTsZrdvtQk91KwsNOWooPfxrqm1+JtaHxV FH6gKnbVw2nFI6b997pRfK6XS42LLWOAziEX/ydWfSj/apgWLhs1WFPiz+nf n5DF/zhTmDBP1sKy+Adbv+QkP5ApmdVo3QbzGWKnJSbrN6c+Zk3/ePayXQf4 ZlsqDXri+KoL+nYsFmbA9rlVpt60fiTfOk97SYf01PrPaT/fOKZdfrgZtitc 1A1/14Hy+94vY7t0heYp8pz+swSkHWVVWkDzn/wfyVY9iI98T9IJcZjqH45/ ZZQWtbR0NEFYxhsBozcDiLuO7TH7bk2DeSlHdMf29WH5gXXpfBs6YU/qP/yJ G7tRfDWHzdpaTrWDUo2D21n/vil2DMKjqymLb9/vgnkySbmhUdj/zyFd4hOL Dg2OZ2xGJ8bZVC75VlhJpqwDDPMur1rPx17/cerLZz2Bl4rJdeBwofJGyWG2 fzn19fpimzwFrXaIf6ncYBTLXr9w6ocrZeabjqcM2H8xsk5dmYzy26BA3sf7 fh0QulPzLXLbkH8W1E+/nifBgOiC+keLTJkoPolvjC5aXmTAA94MooFXHepf s/2lGNE77eC+Ftb0teH6mbvkzDHjiXGtRI7i2dxLR/qpzBnTpDxYUJTjvPKy K3v9x5nfq8UkdB3dmFDy+Q9f5H4m0k8bv793QQ0TRM/+03VDEOsXV2C99pRh QLnv6DLrvURUP4UDOtbTyVSQ6Wg/GfONrZ8zf60KixrUFmmAhdsCfhR/Ys+v nPWfFoUeu/t1E2ydFvxCo4SO/C82fnOVY0MDZNK37N9YXo/0b7pitFnQmwrh YkUKlPgalH/vzeQXPKbWwO/nv8d4ijGXpwZtfB1AgZIYQ9tT9jWofzZrVK+I KtHANlugv1OFiuzfabWs7cyyRije9/51zGm8/5GRezpWlt4AYlcqEk660hBX laohNh+uhxlzvrxZZlWH9C8KWzVv9RUmiO9v2h7RiOvrnPS+ml6VNmheEB0Q 79aE6s8dfQ1L73stcCPAlmX1sxHxuMMH740sbwHH2O9K/MuakP8r7e6/Swtq gF8eug7bjrI5p/6W7JoWOeRNh+S59RX9Y1QkH3pRK+mKAA1Cw1g3btGw/hyZ Z8cPErpg8a1Kg2BaI8pPkUCdhXJH2kEi90G03mUGys+c+fcUeIqa4HiX06tj YzSkX0DivV5AJAMezzFrs7jeiOz3TXzWb5jQCLEyXQ3LDtSh/LjL8mCMedEh zmvR4eY+CoqfU5TPdD59OsjfKVYacsXxz8jVqTJ6TIeRuWfTc72x/PjLkRDX QBpIvzwmMYuM4/9mNPymwTgVjNJKLM4dJiL7Trns+VycWwsV5qmKTGEqyt+D EaXBlyby6tnpvp225Hok/7vAecD6MxXaapdtONKE99+yUQpN+xMn/h/2JF6k noz0n959XUZ6mAhzd1w+d6mUhPjSjoZc4zs1QNl2qb71Ox5//IaXxN0nxp/f 3dcqzW9wfUl9KfqosqoWgtb2ua9owPb9tj9z6ZVJAzBXqAf7nCUgeWpU8PoL P8nwavdGIV2JOsSnf1m3qPgEBXplY25W3KxF+j2yru4bOE4Gk65ZPM/jqxDf uk7ZoFytGVJO5rXO6y1C8fuez5t1/mgtDJ0o/6HdTkLyX15Vmu6aUQc5jY+S 24JJSL4uNGcR7wMGpKjsTXzhgvt39+TzGSYT+dm6rc+t+1w5yi9L53xrz2YG BBmytHdP1n9O/kvfCLtosZABpK3xZ01G8PjOqfp4Yr1SO2zSX7K1j49dfzjz S4isdltt2UT9cXGcseA2E/H6qtnOGk00cH4U2G3iwtbPWR/rfjhxoXVLE2Qb C8/I2sheX0lN8h22m9tMP9VC90jl6nOt7PUn53xgR1teQc1sJnToJuqlxeD5 X+3PhwebNrbCnrWH43WTOpF9WZtLhEQf0oGWOj6sY4D3n+K7hDqGZtaAzsXy /ts3WlH7V61GRtXd2mBX+YVg6dvs9T2nPtvwqIkmrSfB5+3KzmOT7bN/Jtav KkIW/lZkuFxYuGLL3G4UP8c8/YspAWR4Tq9Qq8vpQZz6OMYh80kjSB0tIqe+ ZvP/Wt9LrlVwJlDhecYfVu15JvLPUT+X+RfVGmGL49zyEmUW4rWXaq9kihDh u6OqHfNmG7Jfca/rabpwA9j5OP75x5/tH878EnpCfVO0HRHsu8Tmy8b3IHlu 3HzvYSeh7TTYekJp3MuyEfn3QqmPxE9fIvj/Pnda07kZyfdY2l9+nt4MK3k+ iiZHMVB+r6shlbq+pIGT/+7C0HQm0i/Ps4D/nXEDkIa82qVK8P7oXkRh6Q3F JrhsEk8+tRT7t/Xzmu2Hc8lgW3P9Sv6RVjS+9z/l0S9eVA3REe86btnj/NAT Wp926GQ1+B/WCf4ajfkyXZ0A3qZyGPX8eCDkAd7/G17euUp6TTXMzNJ57KSA zw+a6hpryBI0GGg0OnZVl+0fzvpUZZO2/D27ibq5wcM33Q2fHxzx+rTzwgoq zDiukE5PwvF71bJ8Oi2jBvQWfzlcMd6F5F+HfjXd0EgBy3M8leVz8f49XsZt +EszDRq82i+OULuR/7cm51W9GqTAW7GyTcRxvD8tV/OPZ55vgiNHJD1LmvD6 PYn303PobIS30mpLZYx6kH0XpvdUSYuSwF0nYFk6iYn4UpviTJ0J/38U4mt/ Yo/PPxdLilQ736VClYQOf1d7L/JPtW2vybVf9ZBPzT06c0cfkl95Kd51r1cL eL6rE1vxgt1/zv7lWROYLIbOKXZx8tuB8p4lmEUHhrXHJ7mjPYhny9q3vzxD g20JbVYHW7qQ/vjjuqeG+1nAd3NBaMIGtv2c+p24bMg9wYgBavI5CXnDuL46 Crttdd3aB5LEL99keAcQn38vUfLFPDpE2F0+EqDDto9Tfy2uCvQsqmgBF14T +ga7HiRvNyvvhNVyFuyX2B30yZidv5zzEUv4bn20pBOilT7zCcR1oPxu+Wz0 5WtZIWyRWDq/fUMbim+n6VKz+wcZ0Bq1S32OAfaP0s8voX+U6bDbYunsdXNw fn4ofvFUrbIFipgGBNvJ+HPkry9cHEoTr4PTcx89tv7cgeKfkN/V0ubPBBEV U8rRIHx+EvHV8gwpngXEKMsqo+F+pD9Of9nmQ7NbYV4a7/uNSt3IPyEaSjyb 1ZtAnDHtSGE+tn+WxnXxls2N8I8TsVd7RTvi5Js7T3n9YcK74fHA8LtdKH5b +LtntG8tB/MyNSHbbez+c+ZPVWtikaRBDbxYb+T0cSM+n1MdM5FSNK2D1EyR /oY1eHzeHzqUfJHVBPbX+Q0T/TEPjqkS0smmwr4FuT0p7nj/tL7jYeTeKwwI 89mcolnSifi+t58e7L/cCZY6SSEZwez6zTm/GVxnJLVlZQ9cWHHNIWspPt9Z LbW+cfvbLqg0V406YsXOT8753wftU34W/h3gom3u8tqWgeQ3+cc7x5p1wB2R Wr2ZCuz1O2f/c/b6dPeiWbXw2eejvxYfXv+vORv3PfJ1Azxa8WXOvh34+U6g 4+W2rLFmGDCLf7KAxuac+dtvfbiBuwcLmhTLeL2i2fOr1CTPPf7z3H6vBsgW Oe8mn8Q+f+DMb6C5JPljHR0W729x4y/H+58qkYtmUUMT+8NnQoJCfI2Ih6c1 daitpYOvy8DDPst6ZL/OQ2uHXxuaQSNJNLmzGq/fZ+skuVxeXQ8JprLJNqZ4 /yNGH1bZt4UMcQtVVWWe4/X16c4uq5nFVFg2kuN8gg8//9L4fk4pKaABmmtW Xd+v24C5C+Hg7hM1sHNIs164cOo54SCcG/TWVj5FAesR6YSF6jTUfuvZmTRB MhWetYw5GqQ1o/FT8FB5Q1AFDd5XbHry4gmOb2XK9WwNjyZY7dWnKzoN+7c5 ICmqxLoeQr0jiGmeeH9iFXb+Uc7pFvjwWn1H88YqZF/KbRWf6QnNMFf8H9W8 yfM1Tn0ald/gu2FDPWxwHU+ipWP/x6YLns6NY8LcxLSn4cns/OXUjyWl22iv b7dB15v+I89y+qe0z6MltivCqlC7DUqyn55YcHJq/eDRin9p5/VdhAG+QaKl YYzyv+YCTwfbk7sp4M7z0V7cph7xrO0nCfTlRGgPPXP+zqMWxL/xr4JZFQQw LpvDFLxE/2see8yAfnI3ERaSon1yfabmB48WUaPIsMqUCEtbzutLDjQi/nmH i4aBHwUe3H1r/y0D28+ND8XlzC5KIULDQP351n/Rb/epTCmokQhZ4o/tdFyx vAO19ETv3HLodL8Wyz/j7/l2qR22jVZEMD/o9TluM+aluxtd9kI13Ij6nJg/ PrX+cedP3FXMyXEkSJHQzKXyNSFua5Ga/yyZBN7U1fcG5mLeuKc+QS6FAASP B4u/FjQg/qUhUoX8lAC8d9tHhUqx//g6kyL1VhBgZlVdFrEZ9++bzpjxSBEB tEWT09/QsP5653GLu0EEcKq++PHgKsyvONy62pNBhJ4Nu0pTxDEPMEpaNvt2 NUgv2bPiNed8a5JL6jm/KSUQoSzQezRsH7Yv3w5u8n4iAt+JRGGGEdbPjdsd H1j9bHUNVCgsb9Pmw9zJfNWJZXQGVDJTtovIss+HOPWtfsfL2HsSDJDaTni4 K74E8e0uHootE/u7A49D5nsUvEfzb9IWy122Szqgwlddm8+zBvG2hLLmaakt UBCr4PT4ILv+ctYHDi0Hdn1mMuC5jtTs56Ps+seZn786SBTd+siEh8NHHFl9 RMS9/S2+B2mxINnDeWuLKRnpf8h03z7/OQsuxBhWvGKy48PZX7pWhowsNGgF koJ4d/hXKpLP04zrEG1iwdWSmeSaQnw+TCbo6Fxa0wQhovHJ1XpvUP0uGR7o KJvwn1bEVZ3UP6WIK+TuUz76jQHftHnu/DnDrl+c9aWafarvwEoW5LI+LzCe rO+c/YOHafOinLcsWOH5gqFX0YT8/8Qtj2/cqQkuFC8Z3F2J8zMjZvzt6TES mI1+fNux9O/5zSt82c+PkaFu9K10w8+/5+bvXMtahyhQE9awdkk6Hh9bHAeP Jv8gAjl5U8aNLjz+B95mNIUrVkHGOTjbq/b3nGicpbhXjghDCXutv7hNPd+c qJ8uf1aseU2E0AvNlrf6cf3ixjea8we5mZFg2s7LdS/D8Pwzcs/PR6GYDAHv CNvWyU59fsKj9SHBVoknnwRCV+wTGlqnnh/zaPGKmoQUiBCha7qhGJWG/bfA XUZDWocIxOTr4rZCf8/nzdPpMVKjwO2GQn2Zf6l/3Hgm9SEjsokIq8XC7tHN pp4vceerZvOdrs4mQHjJc6hQxOuDTzZXyQqZJJgfsbXyhRv2Lzfuv1d++b0/ FPhZYuXu+g63b8qzynln1MT8zuehHKWO+8eNv9ngBLtOEOHRLN89ab8wdx78 ditiCREWXM/wNg7C/SuLkw6x3ksC2ZBPP5xMsf3c+NiQX+Gv4QpwpV96MuqN 85uSH/zEOZ0Am6a/j2zTxeNjx6x75bCEAGlxObxhH7D9ret5NGIpRPAtvvrq xybc/ijh6OyRZAJIeJcFWXZgbrJIbrvf/WqgeFgvuOWMx4/E/oyNq7QIsD7T 6PrIv/hvq6j8wX+sCBCcnhV8zAr3b1VQyDWVtipI5zV0U1qN5ZfY8Pj28pHh ZYPMtO5AvH78Wh5tWSlIguWjH4PfpuH4+CgYKl3bRoTlB35+mSOE5Vm0E0eq 3xHgEu2hbWYi5nrkuENH+yrhRI+1sOdDBuK371rPEM+ogj7VoLSCKzg/uXGb 7kOlSn5k2Pq1x2bHTsw78tT3z55YP5GfHI2oEsD+t/ot/yHItxruKOiKf3HA 8uvTzEefSlXD6X1veSWicf/k8y1T3msQYav3173iRzBvdFjy8uc8IhSz3my5 eATn37vxJI0dZkQgvKOPzVDF9Ykbr1r++1zzNQp45naZ/8zA9nPjj1+/bJHS IoHXtCUqN/Sx/dx4y5x9aY5rSDAgEe4tRML6uXGxFzdazW6QgHl/dPGSUTx+ fqeUbcmyJ4DD/Uz5ryv/JT/NLJo/WhLh0pZlz43mYft63LS97A+RwEP46JxU WSx/6dk6QgoQYXjJDPEBIczdnBxdp5US4crpw2aBMjh/lP1exmtKECEoo3lz QSTu3zxVh51PT5WCz7VN5pfX/D0vzQm8F+ZQBZG2c+J/7sP2nbM1f+/4gADW symzF3/A/uPGc7YUjtvoVcKtEy7hCp24f/Ep19x7O6tgfXDLcudAbB837n/0 gE37bgKIriW1Ko9i/X1jmv6ND6qgNVbhZaMUjt8/234fkVlZDgetrugqpv09 TyKprXWWL4HE17EHLV9gfl1gW1k8qRJyxaYrqXpgvsjmdRjfdBJ4bh+x0VuI 6xc3vvyHs3S2/0T9PvPC4pMl9s8aw1SJhlcT89NSJ4Oua1Ofn03sL4USx+bx TOyvBe77mdyZen+ZR2vztte6MnHl4NuyZ4NF3NTnPxPrKwOViC+OJODXGcw7 6YbluXExl4Eg41YCLNNeKBe4APOOnw0/9utMyCteHZ5Vjvl3QdMD/g9K4Y17 wl5+t6n3s3m0Slh17lZnKkDEwEHw8WZsPzf+z/7NzEN1+RDLayZj7NyKuNSj fpVxp1LQpw18iuDHnH+f0XPKUAk4W9d4ODUyEW++ua/vYWcFxPVebVLe+fdc TG4uyM4ugs3zOn8438D5wY1n0/yVlYVLQWVUz93/NNYfcmvwxs1Zn8H1SOs2 71jcP25cO1JDXDu1BHzEDdM7dFmIexnwiCmafQbLItHV5e8xdyzYaJaVVQb7 XKyuLorA9h89/tPePJcM65SMQxPN8fmcasWmz6BcAxKyMXdePMe8RLI0NHE9 Ef4c9Ks/wT/1+SGPVtea3j2CBpUw2LNf9Z0lPt9r8Wk6LidDgHsfnRMfVWF5 vgin3+TIalA3+HH1wKmpz994tG4kucc+YhDhpsz0ZtUIbF9mp/L3GbNIcPdQ fDa/A25/t5hqySpXIuRansuMXYjls5XsP9NyibBOUt/J1Pvv+RfTtyPmpkTo vn9+q4cwbp8bL1cfKTSZqF8eYWSCjwbWL8Dk/Z6fSgAp80PRO3ZieeLX0U1S DALwGfmJBNT/Pd8sR/1+amklGHy9pPCrG/ufG//+oDSPvpQMB4rz3PatxPa/ k3NvdiJSICXN422WL24/aTxS1eBFNcCv97POzcfy3Pg/Z3Zvs1lbAZ4m0Fu8 F+u/sXKP/47p1TDLWSImphDzsRCVF3YsMhwiDrmohg/8Nd94++ZGgegqCO0T SRQRxvylUPeqfUbVMHBott2XLtz+zE2sUp1pBKjhVzz0xRf3jxs/M31fRucV AnyZ+auaGY/10z65CitOzO8t9XsiVyj/PZf2tFl5xb8aHuyFzc7o+fhE/OnM KJuuCuik3ugvDsLj23Bg2x6pe0Qoj1gmqRaD9XPj1D7fGzWtlXC2UzaQT+Tv uaavd+z1eBK4uGeclnDBvHXhcPSOc2So6Ax9NFcP84tBfqz3sQRQXLHb1WkV 7j83/sdC5FCuAwGGMtRnhcz4e37R+G3RzzW18DTu2S+1+m7ElWsKRCSptbDz lfxDz+nY/9w48dbv7UZytZAbd5Y27THOL2587QX1AbpWPTTsyVmTYIv50sNr T6gP1YGKYLj87bJ/if+uJXe7NCmQa3tdTvQVHj+HdUNUjx6hwMfs2e5qK/+e ZxZK9LXLE2FnakhU/HPMb/0a8dBxm3rvkcOn/SFlNvaS/9e8Jreu6jSzBnZq Xtt94BP2Dzd+ITln2tmVFMixSrdXO4D5x2pq1LnRGtgw+mHljhWYa//YuId3 LwUqjE+nyWbh/nPj+mKvyQutKGBV2ZY4fhHzr/HFJhqWZFA6m3NhaPffc7Ht tLsrpabeG+Vwo4J5z+pUakFore9Vr51YvuSbVuCFRXXQotG7+M3gv6xfuPAb +RqJsdYkuEI2WN0VhcefYMSLHAVhMgzL3WN2BWF5btzacO37z9soUB/XDcWA 8//Dymbjp/n/c/6tTFoBQsup8EL9VK/rGO4/N+42x/0LfR31f9Q/55S6nKB/ DVg8iY4JDMTy3HhQPfxZcux/1s+Nn6ilvbJOp0KdVvHN8CvYf1dHvX5EbqDC qU01/pcHcPvcuPWgZ4qXGRUCBoY2xFlivqPau0XStBbcdxYXFq7GvPXMxmM7 eKY+F///53EaQx01V0hg56qU++nQ1Pt/3Lm52slzjWeo0FCj4LJv5d/z0J+6 3ieulUHg/AZqz3O8f+PG+1Md9M6uKYF5uSf4Iv7g/eORuY+VDe+VQ9z9dXwF PVieG9+0NTr62qVqCFoEZcUz8PxW9CmGdkejBGrsHwe3rsDyl4esnt5OLQPz UyIVlFm4/9x41tFZLOf+Mgi4E2aXQ8L948a31M7q0X1bDPGy5jMC92N+Vryb mHm8BLZ8Mcqc7oLt58b97eoXZ+cVwS3d1O7kW9h+0cOszCUlpUAhaORrivw9 X19WelZ9cxnUM3gG+tWx/7nxk1UfzPtMSeCmfPkjVQbr58av8DF8qRKVsFw4 OMo6CvNKxRfhp79RIOhHtnAhDx6f3Lgwz4dH2YI1wN9d0j48juvLe+kiN+E+ Ioyej+k0QffbuPOL5kvOdm4iwEpVada9+9j+w6d/y23ZQ4DRUVpSgB/mRVs0 PnbNrwQvcyG99iB8frOE6vGSV4AId8UjHs1JxecH3PiJiIdjG0Yq4fxRC/n3 a7F+bnynScs9p08FYOg42qOdhPObGzemzVF7HlMIehKWmcH/cv60Xf83/XFG GZT1kwbKI3D+i65cU3mLWgmq03LDTydi+/K2GfAuNK2E1XPTlpWO4fM75/45 ou165SBBuFNg/y/nV9y4n3HGkz08BHBY4GKcNYr1L7e7udjvaxXI6weYwu6/ 57yKBwf9vKrho0oXIecfzCmpTeeJLUUw+/1q2h1N7D+J1LTUd3fL4fuNjZSs IMyNHAKmR10qhVPevHF3Y3H/fsgKNKUlVkDdwKHUH6pYnhufNlR18dqjEvB8 qbU68X/Bo/erJcEBEhz5/XK/1G4c35dzFAfMxYpBiyfky5pTWD4scP6n96EM SNqmGbTgJrs+ce5v/BR0ITJntkGq0awq0SH2+o5zvyK9VyH51eS9dvb8zbn/ UHDUO+TFaBfEz96gLj55v5Vzv8KPKlTz8SgLAn2gjfgOv7+bXVgiGq8w9f1f zv2QhsBTDk/ap97b59yvSPuapvNsIR2O79UJT5h8P5pzf9hiPGzLkfdNcO56 m/SNuez69F/v54bV8G6+2Q97gjTnxSoPIP0duyjZTwxaYa/i7sRFzDYkT4vK zeGvYML2k0K+I0/x/WV95YPPnBraQC4hO1JBiX0/kXM/cKPdadOzWzvBcz1f TIwsfn/0+brvRVdr26AjfP3BQlcK0k+8MPT7vjwDdFqNlSiLGMh/kTd9xK4B HUrH5FxnfWWf73Punxs5+pr2r6kHyRLdsgppJopPqN0cMSXCxP7zzjI14ddT nw9y53paO6P799OhOXrjKiv1qevcQVhO1xKua6mHuoRmCY8wfD/pvOYdm0eq NJAzqhjtpOH3e8JOx+YqbWmHoTiyvq5TM4qf9cYi0sneTti3KOjuN0X8/Q+h VbbBgV9ZkG3+a3Pms2o0PlQy66+VZ7eC0+rPNh2H2PZz7getu+I2UBvXCWuo 99Mq6tnrXM79Z8kbe0RN9JnwTTLwi+0BJuIBvWXT6m81QW+8ctOyF3UoPhay 9rOCFTuh8ruuLLOgHckz78w9JDStEaRqReZmGLci+TjfHXwanu2Qdnskso7A QryrYaeUd1cL2MbfVz5Ew99fISbEzch91wK3iXL2hkb4/cmmdJFzF0ZaIWqm qtyyBvx+UmfytTbrfhaIN6ZUBUw+3/iv8dGREW6yrB2SilXm6bGa0PiYI3lb Qc5vIj6yJefdtJjI/4Jqxzabd1JgRr9l6dvXk+f7k5x+rncptb8O3gy1L5id hO8vJ6mMDC7trwWnt1Zf/izGfGuRuqqiUSMsaE6K6ODB96fLu/K+53+mgKGz z2NBefx+JjfOd+nwvqyvFKD16hPePZh6P2IQdtQqvldMJ8E3Ow+F5On4/e4F POn180LpcP4X/dpMbzw+Ng/zR7g4MMGnstmkaD/+vkdl8NnCQn4WrKe0FEiG sRD/MZwhupC3DnrlPe1SJ78vxIkf/48o8z1CJBAJ3hp3VgC/PyTKf+nPvrQO iFntWbtiEX6/oNJQ4KdVXzucGmYmyIx2ovG5aMQtX06BBHdCLS97+TNQ+x7v 3VPnUmmgTCmfUSLDHv+c+iU8tq9kTSgF7szzO77bFPtXoYfhQA4lgu2m6FZj GVy/tqqXHZQrqwEJov29h6Sp9xsGoSJiJEH8IAtm/TpsoKnWjsaPyeOVIYQr jWA20KP0MoVtP6e+Faf89hv+zYJfIxcthZlNiNO0he4rBTVCbsCNhPnnWlB8 52u7KYh6kkBA0bklSRt/P4obd1x2Ry/rSi2wFmZGfNVljy/O/dP8gp6CC2Ik 8GPqb1GmtKH42oqGXF6+tBROOqtLdNe0ovETdEo4X0WgEXwDJR3zz2P9FnO/ xpiRasH/5aw1xgz8fZfpQhul1i9uAnvekYubJr+/wnl/INfdVT3nIRXkb3v+ zHftRDxls3fzLIUmWPxq7Y+8Hvz+qbQsoal1NRW+k2aKfR/C3y/Ku7auxHe8 GV7ojjrLmuPvY+zXeETNX82ESyKGV4+1sf3DqV/bNMhVrucaoNrizVkPzanv uQ3CFsFteorn6mGOjdSfcBf8/iM3/n8Aua9XSw== "], $CellContext`foxEndurance$$ = 20, $CellContext`foxGrowthRate$$ = 1., $CellContext`foxMobility$$ = 0.05, $CellContext`moving$$ = False, $CellContext`rabbitGrowthRate$$ = 1., $CellContext`rabbitMobility$$ = 0.028}, "ControllerVariables" :> { Hold[$CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitGrowthRate$473711$$, 0], Hold[$CellContext`rabbitMobility$$, \ $CellContext`rabbitMobility$473712$$, 0], Hold[$CellContext`foxGrowthRate$$, \ $CellContext`foxGrowthRate$473713$$, 0], Hold[$CellContext`foxMobility$$, $CellContext`foxMobility$473714$$, 0], Hold[$CellContext`foxEndurance$$, $CellContext`foxEndurance$473715$$, 0], Hold[$CellContext`moving$$, $CellContext`moving$473716$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Refresh[If[$CellContext`moving$$, $CellContext`ag$$ = \ $CellContext`updateAgents[$CellContext`ag$$, $CellContext`rabbitGrowthRate$$, \ $CellContext`rabbitMobility$$, $CellContext`foxGrowthRate$$, \ $CellContext`foxMobility$$, $CellContext`foxEndurance$$]]; \ $CellContext`visualize[$CellContext`ag$$], UpdateInterval -> If[$CellContext`moving$$, 0, Infinity]], "Specifications" :> {{{$CellContext`rabbitGrowthRate$$, 1., "growth rate of rabbits"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`rabbitMobility$$, 0.028, "mobility of rabbits"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxGrowthRate$$, 1., "growth rate of foxes"}, 0, 1, ImageSize -> Tiny}, {{$CellContext`foxMobility$$, 0.05, "mobility of foxes"}, 0, 0.05, ImageSize -> Tiny}, {{$CellContext`foxEndurance$$, 20, "number of steps\nfoxes can survive\nwithout food"}, 1, 20, 1, Appearance -> "Labeled", ImageSize -> Tiny}, " ", {{$CellContext`moving$$, False, "run simulation"}, { True, False}}, {{$CellContext`ag$$, CompressedData[" 1:eJydnHk01d/38KUMKSqpVCqJkDJERalNgySVMTShoigiKVJK6kNKRMgsKRSl SEhFZB7uxDVc3ME8U5RKPdbzfK/7Xfbnt+7Tzx+s5bX2Pvvsvc8+w/u83yuP nzOy4eXh4XGb+DVj4u+5HXLpMTIsKKFXuj9e3QI8//dHVev//R2EpZGaf/p1 24EsOTM6+T4Z8bFbP2wezm2B2DQbjQU7qP/hPJPcqu1wrY9YA2zzquAnCDUA +//sv4KapFaNO43g47J0kCBLQTzsjf6y7pI2kBq8e/tlG+0//18zqd8lT1n0 qicTMpJ+uS8RoP+Hy03yzmrHrktRDVDVqMxKfFGD7FtgahBco8qE88kqbz7Y sNtfP8kXF2pfnnOsDTY7yxbX2VX9h0tMcvEdmXs8WpmwyV29JudFH+LJPUsT TUs7YfRDtbjhr+7/cLVJXhoemJsg2w4eDNaPl7xs+1U4+tf9Dj9/jwap6TQw sWHztZPcldfc4ENLC1TGpmvwCLL9Kz7Jw25qWpg8aYAzxx6d1RpmIJ74fM7B ROEmELqdpxCQzeZinPgdPX++fUkd7K4Jipy5sA75r1R91rxsMTIcEg9dFSLG Qnzhmd3+MxzIoHr85+wkHrZ+wUnOOEDLr5cggXXp7zPZz9jyczn928s4mRhH BJEim0fz7nSw9fOw+Su9o6GmGUSI1Z3/6tridsSryh1PUclkIMXY58+gdqD8 yqw11C0cqYNkF3/7xAi2vPJk+6s6hD97hzBg6FCe9Ze9Ayi+rKTvFP7r9Cl6 ObxaOtvjsj8THpoaXAg91Yripz9gbshTz4Lz4Sb0i0/aUf4NG+2MXvuRCRc+ S+qvSutB489cjHHK5TkTjq8+vKDuHdt/ipPcwydGZDi4B0r1g3OiM7tQfnks JlF4UzrApr4KFpX0o/gdeH9K3nOcAeHJu/SVA+kof4/bO74IN6ODSHvopoxH Paj/F3JXTo/so8F+o9qELfxdiCcdUvM2XtEAUnYeytvIHcg//ak5eeIudMg1 Iw32XepEvOz61/FtFDocM/tktLgHj3+zbI1pGj5NcChD2t15dgtqXz1cO13g IANMnuyaH7we1z+V+LjoXQlUqNz/ylH8QCsaP9tWx5yq31MLOz4l31SXbEe8 QK1ALu09Bb5ef/syrrcV2UdwFIymfq2H8rbsWIHOLuR/E2H6zPq6eohgZMT6 pXSj/E25m7LpfSUV3G2J8xolulD+6wlreL/dToVB+cvXS5V7kXxZ4Qf7KpV6 UArNjXzlw7aPU19NwkwT92fQIXFtwbqq9F7k/2frnx4M2MyCnb4+UiGjzYi/ Pb+V8qivAdZqUw6SvZpRfi8cD45LyGJBeS4xLHqMjvxfSdi3fpspY4rdqyd5 9I0MysE7DbDaPCHy0QXs/04t4/wIsTpYcuXXIuuiPuSfwOEfl6XHqNC9pjFg WhS7f5z6p+fpEG/f1QgvAuuF1on3I+6059dGL+k28BcXEOxb24n6J6cwfGXM mwmsY2laidK9aPyMz739e14GDd6Nfyu/GM3Of079kXM/NP3ArFawWvvzF8EM 16fLvI4/NIcYcGFjdtKarez4SU9yD8Gza3feqYNrd1MFbA1ZyP4I/do/cw/X gY90cfJofhviAiJ+r3oJzXBE01tTsZrdvtQk91KwsNOWooPfxrqm1+JtaHxV FH6gKnbVw2nFI6b997pRfK6XS42LLWOAziEX/ydWfSj/apgWLhs1WFPiz+nf n5DF/zhTmDBP1sKy+Adbv+QkP5ApmdVo3QbzGWKnJSbrN6c+Zk3/ePayXQf4 ZlsqDXri+KoL+nYsFmbA9rlVpt60fiTfOk97SYf01PrPaT/fOKZdfrgZtitc 1A1/14Hy+94vY7t0heYp8pz+swSkHWVVWkDzn/wfyVY9iI98T9IJcZjqH45/ ZZQWtbR0NEFYxhsBozcDiLuO7TH7bk2DeSlHdMf29WH5gXXpfBs6YU/qP/yJ G7tRfDWHzdpaTrWDUo2D21n/vil2DMKjqymLb9/vgnkySbmhUdj/zyFd4hOL Dg2OZ2xGJ8bZVC75VlhJpqwDDPMur1rPx17/cerLZz2Bl4rJdeBwofJGyWG2 fzn19fpimzwFrXaIf6ncYBTLXr9w6ocrZeabjqcM2H8xsk5dmYzy26BA3sf7 fh0QulPzLXLbkH8W1E+/nifBgOiC+keLTJkoPolvjC5aXmTAA94MooFXHepf s/2lGNE77eC+Ftb0teH6mbvkzDHjiXGtRI7i2dxLR/qpzBnTpDxYUJTjvPKy K3v9x5nfq8UkdB3dmFDy+Q9f5H4m0k8bv793QQ0TRM/+03VDEOsXV2C99pRh QLnv6DLrvURUP4UDOtbTyVSQ6Wg/GfONrZ8zf60KixrUFmmAhdsCfhR/Ys+v nPWfFoUeu/t1E2ydFvxCo4SO/C82fnOVY0MDZNK37N9YXo/0b7pitFnQmwrh YkUKlPgalH/vzeQXPKbWwO/nv8d4ijGXpwZtfB1AgZIYQ9tT9jWofzZrVK+I KtHANlugv1OFiuzfabWs7cyyRije9/51zGm8/5GRezpWlt4AYlcqEk660hBX laohNh+uhxlzvrxZZlWH9C8KWzVv9RUmiO9v2h7RiOvrnPS+ml6VNmheEB0Q 79aE6s8dfQ1L73stcCPAlmX1sxHxuMMH740sbwHH2O9K/MuakP8r7e6/Swtq gF8eug7bjrI5p/6W7JoWOeRNh+S59RX9Y1QkH3pRK+mKAA1Cw1g3btGw/hyZ Z8cPErpg8a1Kg2BaI8pPkUCdhXJH2kEi90G03mUGys+c+fcUeIqa4HiX06tj YzSkX0DivV5AJAMezzFrs7jeiOz3TXzWb5jQCLEyXQ3LDtSh/LjL8mCMedEh zmvR4eY+CoqfU5TPdD59OsjfKVYacsXxz8jVqTJ6TIeRuWfTc72x/PjLkRDX QBpIvzwmMYuM4/9mNPymwTgVjNJKLM4dJiL7Trns+VycWwsV5qmKTGEqyt+D EaXBlyby6tnpvp225Hok/7vAecD6MxXaapdtONKE99+yUQpN+xMn/h/2JF6k noz0n959XUZ6mAhzd1w+d6mUhPjSjoZc4zs1QNl2qb71Ox5//IaXxN0nxp/f 3dcqzW9wfUl9KfqosqoWgtb2ua9owPb9tj9z6ZVJAzBXqAf7nCUgeWpU8PoL P8nwavdGIV2JOsSnf1m3qPgEBXplY25W3KxF+j2yru4bOE4Gk65ZPM/jqxDf uk7ZoFytGVJO5rXO6y1C8fuez5t1/mgtDJ0o/6HdTkLyX15Vmu6aUQc5jY+S 24JJSL4uNGcR7wMGpKjsTXzhgvt39+TzGSYT+dm6rc+t+1w5yi9L53xrz2YG BBmytHdP1n9O/kvfCLtosZABpK3xZ01G8PjOqfp4Yr1SO2zSX7K1j49dfzjz S4isdltt2UT9cXGcseA2E/H6qtnOGk00cH4U2G3iwtbPWR/rfjhxoXVLE2Qb C8/I2sheX0lN8h22m9tMP9VC90jl6nOt7PUn53xgR1teQc1sJnToJuqlxeD5 X+3PhwebNrbCnrWH43WTOpF9WZtLhEQf0oGWOj6sY4D3n+K7hDqGZtaAzsXy /ts3WlH7V61GRtXd2mBX+YVg6dvs9T2nPtvwqIkmrSfB5+3KzmOT7bN/Jtav KkIW/lZkuFxYuGLL3G4UP8c8/YspAWR4Tq9Qq8vpQZz6OMYh80kjSB0tIqe+ ZvP/Wt9LrlVwJlDhecYfVu15JvLPUT+X+RfVGmGL49zyEmUW4rWXaq9kihDh u6OqHfNmG7Jfca/rabpwA9j5OP75x5/tH878EnpCfVO0HRHsu8Tmy8b3IHlu 3HzvYSeh7TTYekJp3MuyEfn3QqmPxE9fIvj/Pnda07kZyfdY2l9+nt4MK3k+ iiZHMVB+r6shlbq+pIGT/+7C0HQm0i/Ps4D/nXEDkIa82qVK8P7oXkRh6Q3F JrhsEk8+tRT7t/Xzmu2Hc8lgW3P9Sv6RVjS+9z/l0S9eVA3REe86btnj/NAT Wp926GQ1+B/WCf4ajfkyXZ0A3qZyGPX8eCDkAd7/G17euUp6TTXMzNJ57KSA zw+a6hpryBI0GGg0OnZVl+0fzvpUZZO2/D27ibq5wcM33Q2fHxzx+rTzwgoq zDiukE5PwvF71bJ8Oi2jBvQWfzlcMd6F5F+HfjXd0EgBy3M8leVz8f49XsZt +EszDRq82i+OULuR/7cm51W9GqTAW7GyTcRxvD8tV/OPZ55vgiNHJD1LmvD6 PYn303PobIS30mpLZYx6kH0XpvdUSYuSwF0nYFk6iYn4UpviTJ0J/38U4mt/ Yo/PPxdLilQ736VClYQOf1d7L/JPtW2vybVf9ZBPzT06c0cfkl95Kd51r1cL eL6rE1vxgt1/zv7lWROYLIbOKXZx8tuB8p4lmEUHhrXHJ7mjPYhny9q3vzxD g20JbVYHW7qQ/vjjuqeG+1nAd3NBaMIGtv2c+p24bMg9wYgBavI5CXnDuL46 Crttdd3aB5LEL99keAcQn38vUfLFPDpE2F0+EqDDto9Tfy2uCvQsqmgBF14T +ga7HiRvNyvvhNVyFuyX2B30yZidv5zzEUv4bn20pBOilT7zCcR1oPxu+Wz0 5WtZIWyRWDq/fUMbim+n6VKz+wcZ0Bq1S32OAfaP0s8voX+U6bDbYunsdXNw fn4ofvFUrbIFipgGBNvJ+HPkry9cHEoTr4PTcx89tv7cgeKfkN/V0ubPBBEV U8rRIHx+EvHV8gwpngXEKMsqo+F+pD9Of9nmQ7NbYV4a7/uNSt3IPyEaSjyb 1ZtAnDHtSGE+tn+WxnXxls2N8I8TsVd7RTvi5Js7T3n9YcK74fHA8LtdKH5b +LtntG8tB/MyNSHbbez+c+ZPVWtikaRBDbxYb+T0cSM+n1MdM5FSNK2D1EyR /oY1eHzeHzqUfJHVBPbX+Q0T/TEPjqkS0smmwr4FuT0p7nj/tL7jYeTeKwwI 89mcolnSifi+t58e7L/cCZY6SSEZwez6zTm/GVxnJLVlZQ9cWHHNIWspPt9Z LbW+cfvbLqg0V406YsXOT8753wftU34W/h3gom3u8tqWgeQ3+cc7x5p1wB2R Wr2ZCuz1O2f/c/b6dPeiWbXw2eejvxYfXv+vORv3PfJ1Azxa8WXOvh34+U6g 4+W2rLFmGDCLf7KAxuac+dtvfbiBuwcLmhTLeL2i2fOr1CTPPf7z3H6vBsgW Oe8mn8Q+f+DMb6C5JPljHR0W729x4y/H+58qkYtmUUMT+8NnQoJCfI2Ih6c1 daitpYOvy8DDPst6ZL/OQ2uHXxuaQSNJNLmzGq/fZ+skuVxeXQ8JprLJNqZ4 /yNGH1bZt4UMcQtVVWWe4/X16c4uq5nFVFg2kuN8gg8//9L4fk4pKaABmmtW Xd+v24C5C+Hg7hM1sHNIs164cOo54SCcG/TWVj5FAesR6YSF6jTUfuvZmTRB MhWetYw5GqQ1o/FT8FB5Q1AFDd5XbHry4gmOb2XK9WwNjyZY7dWnKzoN+7c5 ICmqxLoeQr0jiGmeeH9iFXb+Uc7pFvjwWn1H88YqZF/KbRWf6QnNMFf8H9W8 yfM1Tn0ald/gu2FDPWxwHU+ipWP/x6YLns6NY8LcxLSn4cns/OXUjyWl22iv b7dB15v+I89y+qe0z6MltivCqlC7DUqyn55YcHJq/eDRin9p5/VdhAG+QaKl YYzyv+YCTwfbk7sp4M7z0V7cph7xrO0nCfTlRGgPPXP+zqMWxL/xr4JZFQQw LpvDFLxE/2see8yAfnI3ERaSon1yfabmB48WUaPIsMqUCEtbzutLDjQi/nmH i4aBHwUe3H1r/y0D28+ND8XlzC5KIULDQP351n/Rb/epTCmokQhZ4o/tdFyx vAO19ETv3HLodL8Wyz/j7/l2qR22jVZEMD/o9TluM+aluxtd9kI13Ij6nJg/ PrX+cedP3FXMyXEkSJHQzKXyNSFua5Ga/yyZBN7U1fcG5mLeuKc+QS6FAASP B4u/FjQg/qUhUoX8lAC8d9tHhUqx//g6kyL1VhBgZlVdFrEZ9++bzpjxSBEB tEWT09/QsP5653GLu0EEcKq++PHgKsyvONy62pNBhJ4Nu0pTxDEPMEpaNvt2 NUgv2bPiNed8a5JL6jm/KSUQoSzQezRsH7Yv3w5u8n4iAt+JRGGGEdbPjdsd H1j9bHUNVCgsb9Pmw9zJfNWJZXQGVDJTtovIss+HOPWtfsfL2HsSDJDaTni4 K74E8e0uHootE/u7A49D5nsUvEfzb9IWy122Szqgwlddm8+zBvG2hLLmaakt UBCr4PT4ILv+ctYHDi0Hdn1mMuC5jtTs56Ps+seZn786SBTd+siEh8NHHFl9 RMS9/S2+B2mxINnDeWuLKRnpf8h03z7/OQsuxBhWvGKy48PZX7pWhowsNGgF koJ4d/hXKpLP04zrEG1iwdWSmeSaQnw+TCbo6Fxa0wQhovHJ1XpvUP0uGR7o KJvwn1bEVZ3UP6WIK+TuUz76jQHftHnu/DnDrl+c9aWafarvwEoW5LI+LzCe rO+c/YOHafOinLcsWOH5gqFX0YT8/8Qtj2/cqQkuFC8Z3F2J8zMjZvzt6TES mI1+fNux9O/5zSt82c+PkaFu9K10w8+/5+bvXMtahyhQE9awdkk6Hh9bHAeP Jv8gAjl5U8aNLjz+B95mNIUrVkHGOTjbq/b3nGicpbhXjghDCXutv7hNPd+c qJ8uf1aseU2E0AvNlrf6cf3ixjea8we5mZFg2s7LdS/D8Pwzcs/PR6GYDAHv CNvWyU59fsKj9SHBVoknnwRCV+wTGlqnnh/zaPGKmoQUiBCha7qhGJWG/bfA XUZDWocIxOTr4rZCf8/nzdPpMVKjwO2GQn2Zf6l/3Hgm9SEjsokIq8XC7tHN pp4vceerZvOdrs4mQHjJc6hQxOuDTzZXyQqZJJgfsbXyhRv2Lzfuv1d++b0/ FPhZYuXu+g63b8qzynln1MT8zuehHKWO+8eNv9ngBLtOEOHRLN89ab8wdx78 ditiCREWXM/wNg7C/SuLkw6x3ksC2ZBPP5xMsf3c+NiQX+Gv4QpwpV96MuqN 85uSH/zEOZ0Am6a/j2zTxeNjx6x75bCEAGlxObxhH7D9ret5NGIpRPAtvvrq xybc/ijh6OyRZAJIeJcFWXZgbrJIbrvf/WqgeFgvuOWMx4/E/oyNq7QIsD7T 6PrIv/hvq6j8wX+sCBCcnhV8zAr3b1VQyDWVtipI5zV0U1qN5ZfY8Pj28pHh ZYPMtO5AvH78Wh5tWSlIguWjH4PfpuH4+CgYKl3bRoTlB35+mSOE5Vm0E0eq 3xHgEu2hbWYi5nrkuENH+yrhRI+1sOdDBuK371rPEM+ogj7VoLSCKzg/uXGb 7kOlSn5k2Pq1x2bHTsw78tT3z55YP5GfHI2oEsD+t/ot/yHItxruKOiKf3HA 8uvTzEefSlXD6X1veSWicf/k8y1T3msQYav3173iRzBvdFjy8uc8IhSz3my5 eATn37vxJI0dZkQgvKOPzVDF9Ykbr1r++1zzNQp45naZ/8zA9nPjj1+/bJHS IoHXtCUqN/Sx/dx4y5x9aY5rSDAgEe4tRML6uXGxFzdazW6QgHl/dPGSUTx+ fqeUbcmyJ4DD/Uz5ryv/JT/NLJo/WhLh0pZlz43mYft63LS97A+RwEP46JxU WSx/6dk6QgoQYXjJDPEBIczdnBxdp5US4crpw2aBMjh/lP1exmtKECEoo3lz QSTu3zxVh51PT5WCz7VN5pfX/D0vzQm8F+ZQBZG2c+J/7sP2nbM1f+/4gADW symzF3/A/uPGc7YUjtvoVcKtEy7hCp24f/Ep19x7O6tgfXDLcudAbB837n/0 gE37bgKIriW1Ko9i/X1jmv6ND6qgNVbhZaMUjt8/234fkVlZDgetrugqpv09 TyKprXWWL4HE17EHLV9gfl1gW1k8qRJyxaYrqXpgvsjmdRjfdBJ4bh+x0VuI 6xc3vvyHs3S2/0T9PvPC4pMl9s8aw1SJhlcT89NSJ4Oua1Ofn03sL4USx+bx TOyvBe77mdyZen+ZR2vztte6MnHl4NuyZ4NF3NTnPxPrKwOViC+OJODXGcw7 6YbluXExl4Eg41YCLNNeKBe4APOOnw0/9utMyCteHZ5Vjvl3QdMD/g9K4Y17 wl5+t6n3s3m0Slh17lZnKkDEwEHw8WZsPzf+z/7NzEN1+RDLayZj7NyKuNSj fpVxp1LQpw18iuDHnH+f0XPKUAk4W9d4ODUyEW++ua/vYWcFxPVebVLe+fdc TG4uyM4ugs3zOn8438D5wY1n0/yVlYVLQWVUz93/NNYfcmvwxs1Zn8H1SOs2 71jcP25cO1JDXDu1BHzEDdM7dFmIexnwiCmafQbLItHV5e8xdyzYaJaVVQb7 XKyuLorA9h89/tPePJcM65SMQxPN8fmcasWmz6BcAxKyMXdePMe8RLI0NHE9 Ef4c9Ks/wT/1+SGPVtea3j2CBpUw2LNf9Z0lPt9r8Wk6LidDgHsfnRMfVWF5 vgin3+TIalA3+HH1wKmpz994tG4kucc+YhDhpsz0ZtUIbF9mp/L3GbNIcPdQ fDa/A25/t5hqySpXIuRansuMXYjls5XsP9NyibBOUt/J1Pvv+RfTtyPmpkTo vn9+q4cwbp8bL1cfKTSZqF8eYWSCjwbWL8Dk/Z6fSgAp80PRO3ZieeLX0U1S DALwGfmJBNT/Pd8sR/1+amklGHy9pPCrG/ufG//+oDSPvpQMB4rz3PatxPa/ k3NvdiJSICXN422WL24/aTxS1eBFNcCv97POzcfy3Pg/Z3Zvs1lbAZ4m0Fu8 F+u/sXKP/47p1TDLWSImphDzsRCVF3YsMhwiDrmohg/8Nd94++ZGgegqCO0T SRQRxvylUPeqfUbVMHBott2XLtz+zE2sUp1pBKjhVzz0xRf3jxs/M31fRucV AnyZ+auaGY/10z65CitOzO8t9XsiVyj/PZf2tFl5xb8aHuyFzc7o+fhE/OnM KJuuCuik3ugvDsLj23Bg2x6pe0Qoj1gmqRaD9XPj1D7fGzWtlXC2UzaQT+Tv uaavd+z1eBK4uGeclnDBvHXhcPSOc2So6Ax9NFcP84tBfqz3sQRQXLHb1WkV 7j83/sdC5FCuAwGGMtRnhcz4e37R+G3RzzW18DTu2S+1+m7ElWsKRCSptbDz lfxDz+nY/9w48dbv7UZytZAbd5Y27THOL2587QX1AbpWPTTsyVmTYIv50sNr T6gP1YGKYLj87bJ/if+uJXe7NCmQa3tdTvQVHj+HdUNUjx6hwMfs2e5qK/+e ZxZK9LXLE2FnakhU/HPMb/0a8dBxm3rvkcOn/SFlNvaS/9e8Jreu6jSzBnZq Xtt94BP2Dzd+ITln2tmVFMixSrdXO4D5x2pq1LnRGtgw+mHljhWYa//YuId3 LwUqjE+nyWbh/nPj+mKvyQutKGBV2ZY4fhHzr/HFJhqWZFA6m3NhaPffc7Ht tLsrpabeG+Vwo4J5z+pUakFore9Vr51YvuSbVuCFRXXQotG7+M3gv6xfuPAb +RqJsdYkuEI2WN0VhcefYMSLHAVhMgzL3WN2BWF5btzacO37z9soUB/XDcWA 8//Dymbjp/n/c/6tTFoBQsup8EL9VK/rGO4/N+42x/0LfR31f9Q/55S6nKB/ DVg8iY4JDMTy3HhQPfxZcux/1s+Nn6ilvbJOp0KdVvHN8CvYf1dHvX5EbqDC qU01/pcHcPvcuPWgZ4qXGRUCBoY2xFlivqPau0XStBbcdxYXFq7GvPXMxmM7 eKY+F///53EaQx01V0hg56qU++nQ1Pt/3Lm52slzjWeo0FCj4LJv5d/z0J+6 3ieulUHg/AZqz3O8f+PG+1Md9M6uKYF5uSf4Iv7g/eORuY+VDe+VQ9z9dXwF PVieG9+0NTr62qVqCFoEZcUz8PxW9CmGdkejBGrsHwe3rsDyl4esnt5OLQPz UyIVlFm4/9x41tFZLOf+Mgi4E2aXQ8L948a31M7q0X1bDPGy5jMC92N+Vryb mHm8BLZ8Mcqc7oLt58b97eoXZ+cVwS3d1O7kW9h+0cOszCUlpUAhaORrivw9 X19WelZ9cxnUM3gG+tWx/7nxk1UfzPtMSeCmfPkjVQbr58av8DF8qRKVsFw4 OMo6CvNKxRfhp79RIOhHtnAhDx6f3Lgwz4dH2YI1wN9d0j48juvLe+kiN+E+ Ioyej+k0QffbuPOL5kvOdm4iwEpVada9+9j+w6d/y23ZQ4DRUVpSgB/mRVs0 PnbNrwQvcyG99iB8frOE6vGSV4AId8UjHs1JxecH3PiJiIdjG0Yq4fxRC/n3 a7F+bnynScs9p08FYOg42qOdhPObGzemzVF7HlMIehKWmcH/cv60Xf83/XFG GZT1kwbKI3D+i65cU3mLWgmq03LDTydi+/K2GfAuNK2E1XPTlpWO4fM75/45 ou165SBBuFNg/y/nV9y4n3HGkz08BHBY4GKcNYr1L7e7udjvaxXI6weYwu6/ 57yKBwf9vKrho0oXIecfzCmpTeeJLUUw+/1q2h1N7D+J1LTUd3fL4fuNjZSs IMyNHAKmR10qhVPevHF3Y3H/fsgKNKUlVkDdwKHUH6pYnhufNlR18dqjEvB8 qbU68X/Bo/erJcEBEhz5/XK/1G4c35dzFAfMxYpBiyfky5pTWD4scP6n96EM SNqmGbTgJrs+ce5v/BR0ITJntkGq0awq0SH2+o5zvyK9VyH51eS9dvb8zbn/ UHDUO+TFaBfEz96gLj55v5Vzv8KPKlTz8SgLAn2gjfgOv7+bXVgiGq8w9f1f zv2QhsBTDk/ap97b59yvSPuapvNsIR2O79UJT5h8P5pzf9hiPGzLkfdNcO56 m/SNuez69F/v54bV8G6+2Q97gjTnxSoPIP0duyjZTwxaYa/i7sRFzDYkT4vK zeGvYML2k0K+I0/x/WV95YPPnBraQC4hO1JBiX0/kXM/cKPdadOzWzvBcz1f TIwsfn/0+brvRVdr26AjfP3BQlcK0k+8MPT7vjwDdFqNlSiLGMh/kTd9xK4B HUrH5FxnfWWf73Punxs5+pr2r6kHyRLdsgppJopPqN0cMSXCxP7zzjI14ddT nw9y53paO6P799OhOXrjKiv1qevcQVhO1xKua6mHuoRmCY8wfD/pvOYdm0eq NJAzqhjtpOH3e8JOx+YqbWmHoTiyvq5TM4qf9cYi0sneTti3KOjuN0X8/Q+h VbbBgV9ZkG3+a3Pms2o0PlQy66+VZ7eC0+rPNh2H2PZz7getu+I2UBvXCWuo 99Mq6tnrXM79Z8kbe0RN9JnwTTLwi+0BJuIBvWXT6m81QW+8ctOyF3UoPhay 9rOCFTuh8ruuLLOgHckz78w9JDStEaRqReZmGLci+TjfHXwanu2Qdnskso7A QryrYaeUd1cL2MbfVz5Ew99fISbEzch91wK3iXL2hkb4/cmmdJFzF0ZaIWqm qtyyBvx+UmfytTbrfhaIN6ZUBUw+3/iv8dGREW6yrB2SilXm6bGa0PiYI3lb Qc5vIj6yJefdtJjI/4Jqxzabd1JgRr9l6dvXk+f7k5x+rncptb8O3gy1L5id hO8vJ6mMDC7trwWnt1Zf/izGfGuRuqqiUSMsaE6K6ODB96fLu/K+53+mgKGz z2NBefx+JjfOd+nwvqyvFKD16hPePZh6P2IQdtQqvldMJ8E3Ow+F5On4/e4F POn180LpcP4X/dpMbzw+Ng/zR7g4MMGnstmkaD/+vkdl8NnCQn4WrKe0FEiG sRD/MZwhupC3DnrlPe1SJ78vxIkf/48o8z1CJBAJ3hp3VgC/PyTKf+nPvrQO iFntWbtiEX6/oNJQ4KdVXzucGmYmyIx2ovG5aMQtX06BBHdCLS97+TNQ+x7v 3VPnUmmgTCmfUSLDHv+c+iU8tq9kTSgF7szzO77bFPtXoYfhQA4lgu2m6FZj GVy/tqqXHZQrqwEJov29h6Sp9xsGoSJiJEH8IAtm/TpsoKnWjsaPyeOVIYQr jWA20KP0MoVtP6e+Faf89hv+zYJfIxcthZlNiNO0he4rBTVCbsCNhPnnWlB8 52u7KYh6kkBA0bklSRt/P4obd1x2Ry/rSi2wFmZGfNVljy/O/dP8gp6CC2Ik 8GPqb1GmtKH42oqGXF6+tBROOqtLdNe0ovETdEo4X0WgEXwDJR3zz2P9FnO/ xpiRasH/5aw1xgz8fZfpQhul1i9uAnvekYubJr+/wnl/INfdVT3nIRXkb3v+ zHftRDxls3fzLIUmWPxq7Y+8Hvz+qbQsoal1NRW+k2aKfR/C3y/Ku7auxHe8 GV7ojjrLmuPvY+zXeETNX82ESyKGV4+1sf3DqV/bNMhVrucaoNrizVkPzanv uQ3CFsFteorn6mGOjdSfcBf8/iM3/n8Aua9XSw== "]}, ControlType -> None}, " ", Button[ "Reset", $CellContext`moving$$ = False; $CellContext`ag$$ = $CellContext`initialAgents[], ImageSize -> Medium]}, "Options" :> { AutorunSequencing -> {3}, TrackedSymbols :> {$CellContext`moving$$, $CellContext`ag$$}, SynchronousUpdating -> True, ControlPlacement -> Left}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{646., {212., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`updateAgents[ Pattern[$CellContext`agents, Blank[]], Pattern[$CellContext`rabbitGrowthRate, Blank[]], Pattern[$CellContext`rabbitMobility, Blank[]], Pattern[$CellContext`foxGrowthRate, Blank[]], Pattern[$CellContext`foxMobility, Blank[]], Pattern[$CellContext`foxEndurance, Blank[]]] := Module[{$CellContext`foxPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbitPop = Length[ Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`nearestFoxes = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`dummyPoint]], \ $CellContext`nearestRabbits = Nearest[ Append[ Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyPoint]], \ $CellContext`i, $CellContext`nextLocation, $CellContext`survivors}, Developer`ToPackedArray[ (Flatten[#, 1]& )[ Table[$CellContext`survivors = {}; $CellContext`nextLocation = Part[$CellContext`agents, $CellContext`i, {1, 2}] + If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, RandomReal[{-$CellContext`rabbitMobility, \ $CellContext`rabbitMobility}, 2], RandomReal[{-$CellContext`foxMobility, \ $CellContext`foxMobility}, 2]]; $CellContext`nextLocation = Clip[$CellContext`nextLocation, {0., 1.}]; If[Part[$CellContext`agents, $CellContext`i, 4] == $CellContext`Rabbit, If[Norm[Part[ $CellContext`nearestFoxes[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Rabbit}]}; If[RandomReal[] < $CellContext`rabbitGrowthRate ( 1. - $CellContext`rabbitPop/$CellContext`maxRabbits), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, { 0., $CellContext`Rabbit}]]]; Null], If[Norm[Part[ $CellContext`nearestRabbits[$CellContext`nextLocation], 1] - $CellContext`nextLocation] > 0.02, If[ Part[$CellContext`agents, $CellContext`i, 3] < $CellContext`foxEndurance, $CellContext`survivors = { Join[$CellContext`nextLocation, { Part[$CellContext`agents, $CellContext`i, 3] + 1., $CellContext`Fox}]}; Null], $CellContext`survivors = { Join[$CellContext`nextLocation, {0., $CellContext`Fox}]}; If[RandomReal[] < $CellContext`foxGrowthRate ( 1. - $CellContext`foxPop/$CellContext`maxFoxes), AppendTo[$CellContext`survivors, Join[$CellContext`nextLocation, {0., $CellContext`Fox}]]]; Null]]; $CellContext`survivors, {$CellContext`i, Length[$CellContext`agents]}]]]], $CellContext`Fox = 1., $CellContext`Rabbit = 2., $CellContext`dummyPoint = {-1., -1.}, $CellContext`maxRabbits = 500., $CellContext`maxFoxes = 500., $CellContext`visualize[ Pattern[$CellContext`agents, Blank[]]] := Module[{$CellContext`foxes = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Fox& ]], $CellContext`rabbits = Map[Take[#, 2]& , Select[$CellContext`agents, Part[#, 4] == $CellContext`Rabbit& ]], $CellContext`dummyList = \ {$CellContext`dummyPoint}}, Show[ Graphics[{ AbsolutePointSize[10], RGBColor[0.9, 0.42, 0.17], Point[ If[$CellContext`foxes == {}, $CellContext`dummyList, \ $CellContext`foxes]]}], Graphics[{ AbsolutePointSize[10], RGBColor[0.48, 0.11, 0.56], Point[ If[$CellContext`rabbits == {}, $CellContext`dummyList, \ $CellContext`rabbits]]}], ImageSize -> {375, 375}, AspectRatio -> Automatic, Frame -> False, Axes -> False, PlotRange -> {{0, 1}, {0, 1}}]], Attributes[PlotRange] = {ReadProtected}, $CellContext`initialAgents[] := Developer`ToPackedArray[ Table[ Join[ RandomReal[{0, 1}, 2], {0., If[RandomReal[] < 0.1, $CellContext`Fox, $CellContext`Rabbit]}], { 100}]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->269640762] }, Open ]], Cell["", "DetailsSection"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Resize Images"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", ActionDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.413118644174939*^9}, FontFamily->"Verdana", CellTags->"ResizeImages"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Rotate and Zoom in 3D"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"RotateAndZoomIn3D"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Drag Locators"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"DragLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Create and Delete Locators"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"CreateAndDeleteLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Slider Zoom"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"SliderZoom"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Gamepad Controls"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", ActionDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9}, FontFamily->"Verdana", CellTags->"GamepadControls"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Automatic Animation"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"AutomaticAnimation"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Bookmark Animation"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection"], Cell["biology", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413057243484375*^9, 3.4130572449375*^9}}, CellID->731317257], Cell["ecology", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.4130606235625*^9, 3.413060624953125*^9}}, CellID->361917666], Cell["multi-agent modeling", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413057200390625*^9, 3.413057216640625*^9}, { 3.4130606200625*^9, 3.413060621265625*^9}}, CellID->488939388], Cell["particle systems", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413057200390625*^9, 3.413057216640625*^9}, { 3.4130606200625*^9, 3.41306062128125*^9}, {3.413101943234375*^9, 3.41310194703125*^9}}, CellID->360788637], Cell["random processes", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413057276609375*^9, 3.413057278578125*^9}}, CellID->143271145], Cell["diffusion", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413057200390625*^9, 3.413057216640625*^9}, { 3.4130606200625*^9, 3.41306062128125*^9}, 3.413101943234375*^9}, CellID->168781278], Cell["growth processes", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413060654859375*^9, 3.413060656921875*^9}}, CellID->37761803], Cell["population dynamics", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.4130606311875*^9, 3.4130606339375*^9}}, CellID->518782626], Cell["Lotka-Volterra equations", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.413060636515625*^9, 3.4130606419375*^9}}, CellID->232158056] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["Lotka-Volterra Equations", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/Lotka-VolterraEquations.html"], None}]], "RelatedLinks"] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell[TextData[{ "Contributed by: ", ButtonBox["Hiroki Sayama", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Hiroki+Sayama"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Hiroki+Sayama"] }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.41305731590625*^9, 3.413057317390625*^9}}] }, Open ]] }, Open ]] }, WindowSize->{937, 857}, WindowMargins->{{18, Automatic}, {Automatic, 13}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 11, 2008)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[268454, 4873, 373, 9, 22, "ControlSuggestions", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[268830, 4884, 677, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"]}, "DragLocators"->{ Cell[269510, 4902, 339, 11, 22, "ControlSuggestions", CellTags->"DragLocators"]}, "CreateAndDeleteLocators"->{ Cell[269852, 4915, 636, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"]}, "SliderZoom"->{ Cell[270491, 4932, 843, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"]}, "GamepadControls"->{ Cell[271337, 4955, 368, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"]}, "AutomaticAnimation"->{ Cell[271708, 4966, 1411, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[273122, 4999, 881, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 276747, 5118}, {"RotateAndZoomIn3D", 276857, 5121}, {"DragLocators", 276968, 5124}, {"CreateAndDeleteLocators", 277085, 5127}, {"SliderZoom", 277200, 5130}, {"GamepadControls", 277307, 5133}, {"AutomaticAnimation", 277421, 5136}, {"BookmarkAnimation", 277539, 5139} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 267, 5, 104, "DemoTitle"], Cell[CellGroupData[{ Cell[882, 32, 33, 0, 156, "InitializationSection"], Cell[918, 34, 903, 22, 108, "Input", CellID->12186613], Cell[1824, 58, 1536, 38, 188, "Input", CellID->179304614], Cell[3363, 98, 4007, 97, 468, "Input", CellID->581179032], Cell[7373, 197, 11397, 263, 1128, "Input", CellID->323996531] }, Closed]], Cell[CellGroupData[{ Cell[18807, 465, 29, 0, 188, "ManipulateSection"], Cell[CellGroupData[{ Cell[18861, 469, 5392, 119, 408, "Input", CellID->428012851], Cell[24256, 590, 19561, 369, 441, "Output", CellID->54188526] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[43863, 965, 36, 0, 136, "ManipulateCaptionSection"], Cell[43902, 967, 1678, 25, 127, "ManipulateCaption", CellID->330077632] }, Open ]], Cell[CellGroupData[{ Cell[45617, 997, 28, 0, 168, "ThumbnailSection"], Cell[45648, 999, 52740, 917, 441, "Output", CellID->209586524] }, Open ]], Cell[CellGroupData[{ Cell[98425, 1921, 28, 0, 138, "SnapshotsSection"], Cell[98456, 1923, 58737, 1014, 441, "Output", CellID->178132442], Cell[157196, 2939, 50476, 878, 441, "Output", CellID->469506639], Cell[207675, 3819, 60673, 1045, 441, "Output", CellID->269640762] }, Open ]], Cell[268363, 4867, 26, 0, 232, "DetailsSection"], Cell[CellGroupData[{ Cell[268414, 4871, 37, 0, 108, "ControlSuggestionsSection"], Cell[268454, 4873, 373, 9, 22, "ControlSuggestions", CellTags->"ResizeImages"], Cell[268830, 4884, 677, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"], Cell[269510, 4902, 339, 11, 22, "ControlSuggestions", CellTags->"DragLocators"], Cell[269852, 4915, 636, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"], Cell[270491, 4932, 843, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"], Cell[271337, 4955, 368, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"], Cell[271708, 4966, 1411, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"], Cell[273122, 4999, 881, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[274040, 5025, 30, 0, 152, "SearchTermsSection"], Cell[274073, 5027, 138, 3, 22, "SearchTerms", CellID->731317257], Cell[274214, 5032, 138, 3, 22, "SearchTerms", CellID->361917666], Cell[274355, 5037, 201, 4, 22, "SearchTerms", CellID->488939388], Cell[274559, 5043, 245, 5, 22, "SearchTerms", CellID->360788637], Cell[274807, 5050, 149, 3, 22, "SearchTerms", CellID->143271145], Cell[274959, 5055, 211, 4, 22, "SearchTerms", CellID->168781278], Cell[275173, 5061, 148, 3, 22, "SearchTerms", CellID->37761803], Cell[275324, 5066, 148, 3, 22, "SearchTerms", CellID->518782626], Cell[275475, 5071, 155, 3, 22, "SearchTerms", CellID->232158056] }, Open ]], Cell[CellGroupData[{ Cell[275667, 5079, 31, 0, 138, "RelatedLinksSection"], Cell[275701, 5081, 189, 4, 22, "RelatedLinks"] }, Open ]], Cell[CellGroupData[{ Cell[275927, 5090, 25, 0, 136, "AuthorSection"], Cell[275955, 5092, 388, 11, 22, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)