(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 311430, 7098] NotebookOptionsPosition[ 283414, 6548] NotebookOutlinePosition[ 290409, 6682] CellTagsIndexPosition[ 290220, 6673] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"initializeButton", ",", "\[IndentingNewLine]", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "player1Panel", ",", "\[IndentingNewLine]", "player2Panel", ",", "\[IndentingNewLine]", "labelPanel"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "latticePanel", ",", "\[IndentingNewLine]", "dynamicsPanel", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "infoPanel", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "controlPanel", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Deploy", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "10"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"3", "\[Rule]", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{"graph", ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.5420585540871964`*^9, 3.5420586000388527`*^9}, { 3.5421105378328257`*^9, 3.5421105955423403`*^9}, {3.542110634951091*^9, 3.542110727049406*^9}, {3.542110759447322*^9, 3.542110759802177*^9}, { 3.542110831639361*^9, 3.5421109492783327`*^9}, {3.542110982277895*^9, 3.5421111354063177`*^9}, {3.542111339492803*^9, 3.542111385257618*^9}, { 3.542111816022348*^9, 3.542111829294297*^9}, {3.5421123223419228`*^9, 3.5421123252047157`*^9}, {3.5421135343402863`*^9, 3.5421136932633057`*^9}, {3.542113758546722*^9, 3.542113820283057*^9}, { 3.5421143105338707`*^9, 3.542114340986383*^9}, {3.542114383306031*^9, 3.5421144057186813`*^9}, {3.542115004040103*^9, 3.542115139689455*^9}, { 3.54211519231247*^9, 3.5421151923943253`*^9}, {3.542115261423829*^9, 3.542115295133524*^9}, {3.542115365838571*^9, 3.5421154014787617`*^9}, { 3.542115440499792*^9, 3.5421154765461073`*^9}, {3.5421155232381496`*^9, 3.542115570289955*^9}, {3.5421156295709257`*^9, 3.542115747307003*^9}, { 3.542115791284258*^9, 3.542115791785906*^9}, {3.5421159675248003`*^9, 3.542115971613805*^9}, 3.54211709351404*^9, {3.542117230044651*^9, 3.5421172337760887`*^9}, {3.542117272099909*^9, 3.542117308444365*^9}, { 3.5421173385373497`*^9, 3.5421173907269917`*^9}, {3.542117469719479*^9, 3.542117519464711*^9}, {3.542117939716501*^9, 3.542118070430689*^9}, { 3.542118151282902*^9, 3.5421181518412237`*^9}, {3.542118367026382*^9, 3.542118384696457*^9}, {3.542118516123602*^9, 3.542118518149395*^9}, { 3.542118568890245*^9, 3.5421186087224617`*^9}, {3.542119081973256*^9, 3.5421191495204687`*^9}, {3.542119185167354*^9, 3.542119193362013*^9}, { 3.542119381512353*^9, 3.542119391797676*^9}, {3.542119621041375*^9, 3.542119661902767*^9}, {3.542119726893825*^9, 3.542119727340884*^9}, { 3.5421209155004473`*^9, 3.542120963460058*^9}, {3.542125621882309*^9, 3.542125639019659*^9}, {3.542126004978813*^9, 3.542126012545094*^9}, { 3.542127303159605*^9, 3.542127313833782*^9}, {3.5421273457978983`*^9, 3.542127351400581*^9}, {3.542142685087146*^9, 3.54214273768362*^9}, { 3.542142903176056*^9, 3.542142903973692*^9}, {3.542142935357539*^9, 3.542143005409973*^9}, {3.542143407841455*^9, 3.542143441961378*^9}, { 3.542143669044701*^9, 3.5421436735388117`*^9}, {3.54214570677203*^9, 3.542145728529726*^9}, {3.542203015674388*^9, 3.542203061367423*^9}, { 3.542203093614917*^9, 3.542203097022573*^9}, {3.542206548176343*^9, 3.542206549438478*^9}, {3.542206584145616*^9, 3.542206585448607*^9}, { 3.542206834025002*^9, 3.5422069761803493`*^9}, {3.5422070987555323`*^9, 3.542207215361088*^9}, {3.54220726699165*^9, 3.542207272071423*^9}, { 3.542207308079439*^9, 3.5422073280852947`*^9}, {3.542207359885494*^9, 3.542207375756928*^9}, {3.542207454267036*^9, 3.542207464250944*^9}, { 3.542207539736486*^9, 3.542207748605771*^9}, {3.542207779188987*^9, 3.542207780036681*^9}, {3.542208634388637*^9, 3.542208654515954*^9}, { 3.542209102689047*^9, 3.5422091089126873`*^9}, {3.5422093673372097`*^9, 3.542209370856318*^9}, {3.5422110310001307`*^9, 3.5422110323717527`*^9}, { 3.542212939617263*^9, 3.542212940072227*^9}, {3.54222648361651*^9, 3.5422264986796227`*^9}, {3.542349981798572*^9, 3.542349984535885*^9}, { 3.54235079871896*^9, 3.5423507989202147`*^9}, {3.542351842780905*^9, 3.542351890554201*^9}, {3.542386626018628*^9, 3.542386630007731*^9}, { 3.542390991983205*^9, 3.542391103570736*^9}, {3.542391142858564*^9, 3.5423911613135633`*^9}, {3.5424712049136467`*^9, 3.542471209232995*^9}, { 3.542471496993499*^9, 3.542471665320381*^9}, {3.542471703025587*^9, 3.5424718422986183`*^9}, {3.542477585537002*^9, 3.5424775894143877`*^9}, { 3.5424921956233597`*^9, 3.542492216708755*^9}, {3.542492310645035*^9, 3.542492467468687*^9}, {3.542492556502531*^9, 3.542492720574883*^9}, { 3.542660489789028*^9, 3.542660491223798*^9}, {3.542866368350456*^9, 3.542866369469133*^9}, {3.542866455486684*^9, 3.542866464235372*^9}, { 3.626374006125455*^9, 3.626374058840094*^9}, {3.626374151391634*^9, 3.6263742891686783`*^9}, {3.626374330241584*^9, 3.626374332910302*^9}}, CellTags->"GameSeer",ExpressionUUID->"88088c7d-8e52-4793-aa0a-77973a7e0f16"], Cell[BoxData[ PanelBox[ TagBox[GridBox[{ { TagBox[GridBox[{ { TagBox[ ButtonBox[ StyleBox["\<\"Initialize GameSeer\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->Large, FontWeight->Bold], Alignment->{Bottom, Bottom}, Appearance->"DefaultButton", ButtonFunction:>(FrontEndExecute[ FrontEndToken["EvaluateInitialization"]]; NotebookLocate["GameSeer"]; FrontEndExecute[ FrontEndToken["Evaluate"]]), Evaluator->Automatic, FrameMargins->7, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"]}, { TagBox[ TagBox[GridBox[{ { TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Payoffs for Player 1\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]"}, { InputFieldBox[Dynamic[ Part[$CellContext`game, 1, 1, 1]], ImageSize->{40, 25}], InputFieldBox[Dynamic[ Part[$CellContext`game, 1, 1, 2]], ImageSize->{40, 25}]}, { InputFieldBox[Dynamic[ Part[$CellContext`game, 1, 2, 1]], ImageSize->{40, 25}], InputFieldBox[Dynamic[ Part[$CellContext`game, 1, 2, 2]], ImageSize->{40, 25}]} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], Alignment->{Left, Top}, ImageSize->{150, 100}], Deploy, DefaultBaseStyle->"Deploy"], TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Payoffs for Player 2\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]"}, { InputFieldBox[Dynamic[ Part[$CellContext`game, 2, 1, 1]], ImageSize->{40, 25}], InputFieldBox[Dynamic[ Part[$CellContext`game, 2, 1, 2]], ImageSize->{40, 25}]}, { InputFieldBox[Dynamic[ Part[$CellContext`game, 2, 2, 1]], ImageSize->{40, 25}], InputFieldBox[Dynamic[ Part[$CellContext`game, 2, 2, 2]], ImageSize->{40, 25}]} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], Alignment->{Left, Top}, ImageSize->{150, 100}], Deploy, DefaultBaseStyle->"Deploy"], TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Plot Labels\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { StyleBox["\<\"Title\"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`plotLabel], String, FieldHint->"Plot Title", ImageSize->{150, 25}], "\[SpanFromLeft]", "\[SpanFromLeft]"}, { StyleBox["\<\"x label\"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`xLabel], String, FieldHint->"x label", ImageSize->{44, 25}], StyleBox["\<\"y label\"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`yLabel], String, FieldHint->"y label", ImageSize->{45, 25}]} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{1}}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], Alignment->{Left, Top}, ImageSize->{230, 100}], Deploy, DefaultBaseStyle->"Deploy"]}, { TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Initial Points\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->13, FontWeight->Bold], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { StyleBox["\<\"dx\"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`dx], ImageSize->{30, 25}], StyleBox["\<\"dy\"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`dy], ImageSize->{30, 25}]}, { TagBox[GridBox[{ { TagBox[ CheckboxBox[Dynamic[$CellContext`customLatticeQ]], Deploy, DefaultBaseStyle->"Deploy"], "\<\"Custom\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { TagBox[ ButtonBox[ StyleBox["\<\"Choose Points\"\>", StripOnInput->False, FontFamily->"Palatino"], Appearance->Automatic, ButtonFunction:>CreateWindow[ DialogNotebook[$CellContext`customInitialConditionsDialog]\ ], Evaluator->Automatic, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 1, 3 -> 0.75, 4 -> 0}}], "Grid"], BaseStyle->{FontFamily -> "Palatino", 13}, ImageSize->{150, 125}], Deploy, DefaultBaseStyle->"Deploy"], TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Dynamics Calculations\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { StyleBox["\<\"Order \"\>", StripOnInput->False, FontSize->12], InterpretationBox[ StyleBox[GridBox[{ { SetterBox[Dynamic[$CellContext`order], {1}, "1"], SetterBox[Dynamic[$CellContext`order], {2}, "2"]} }, BaselinePosition->{1, 1}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed->True], SetterBar[ Dynamic[$CellContext`order], {1, 2}]], PopupMenuBox[Dynamic[$CellContext`dynamics], { "Replicator"-> StyleBox["\<\"Replicator Dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "MaynardSmith"-> StyleBox["\<\"Maynard Smith Dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "Entropic"-> StyleBox["\<\"Entropy-Adjusted Dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "ImitativeLogit"-> StyleBox["\<\"Imitative Logit dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "Smith"-> StyleBox["\<\"Smith Dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "BNN"-> StyleBox["\<\"Brown\[Dash]von Neumann\[Dash]Nash\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "Logit"-> StyleBox["\<\"Logit dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12], "Custom"-> StyleBox["\<\"Custom dynamics\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->12]}, ImageSize->{220, Automatic}], "\[SpanFromLeft]"}, { StyleBox["\<\"Temp. \"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`temperature], ImageSize->{40, 20}], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`calculateRestpointsFlag]],StyleBox[ "\"Rest points\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TagBox[ ButtonBox[ StyleBox["\<\"Input Dynamics\"\>", StripOnInput->False, FontFamily->"Palatino"], Appearance->Automatic, ButtonFunction:>( CreateDialog[$CellContext`dynamics = "Custom"; $CellContext`CustomField[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]]] := {$CellContext`xCustomField, \ $CellContext`yCustomField}; Grid[{{"\!\(\*SubscriptBox[\(V\), \(x\)]\) ", InputField[ Dynamic[$CellContext`xCustomField]]}, { "\!\(\*SubscriptBox[\(V\), \(y\)]\) ", InputField[ Dynamic[$CellContext`yCustomField]]}, { DefaultButton["Set Dynamics", DialogReturn[{$CellContext`xCustomField, \ $CellContext`yCustomField}]], SpanFromLeft}}]]; $CellContext`CustomField[ Pattern[$CellContext`xx, Blank[]], Pattern[$CellContext`yy, Blank[]]] := ReplaceAll[{$CellContext`xCustomField, \ $CellContext`yCustomField}, {$CellContext`x -> $CellContext`xx, \ $CellContext`y -> $CellContext`yy}]), Evaluator->Automatic, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"]}, { StyleBox["\<\"Time \"\>", StripOnInput->False, FontSize->12], InputFieldBox[Dynamic[$CellContext`time], ImageSize->{40, 20}], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`calculateOrbitsFlag]],StyleBox[ "\"Orbits\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TagBox[ ButtonBox[ StyleBox["\<\"Update Graph\"\>", StripOnInput->False, FontFamily->"Palatino", FontSize->14, FontWeight->Bold], Appearance->"DefaultButton", ButtonFunction:>(NotebookLocate["Update"]; FrontEndExecute[ FrontEndToken["Evaluate"]]; NotebookLocate["Update"]; FrontEndExecute[ FrontEndToken["OpenCloseGroup"]]; NotebookLocate["GameSeer"]; FrontEndExecute[ FrontEndToken["Evaluate"]]), Evaluator->Automatic, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"]} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 0, 3 -> 2}, "RowsIndexed" -> { 3 -> Rational[1, 2], 4 -> Rational[1, 4]}}], "Grid"], ImageSize->{Automatic, 125}], Deploy, DefaultBaseStyle->"Deploy"], "\[SpanFromLeft]"}, { PanelBox[ TagBox[GridBox[{ { DynamicBox[ToBoxes[ Style[ StringJoin[ "Equations of Motion (", $CellContext`dynamics, " dynamics)"], Bold], StandardForm], ImageSizeCache->{256., {4., 10.}}], "\[SpanFromLeft]"}, { TagBox[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["V", "x"], "(", RowBox[{"x", ",", "y"}], ")"}], "\[LongEqual]", DynamicBox[ToBoxes[ Rationalize[ Part[ $CellContext`DisplayField[$CellContext`dynamics], 1]], TraditionalForm], ImageSizeCache->{114., {4., 9.}}]}], TraditionalForm], TraditionalForm, Editable->True], ""}, { TagBox[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["V", "y"], "(", RowBox[{"x", ",", "y"}], ")"}], "\[LongEqual]", DynamicBox[ToBoxes[ Rationalize[ Part[ $CellContext`DisplayField[$CellContext`dynamics], 2]], TraditionalForm], ImageSizeCache->{105., {4., 9.}}]}], TraditionalForm], TraditionalForm, Editable->True], ""} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Grid"], ImageSize->{600, Automatic}], "\[SpanFromLeft]", "\[SpanFromLeft]"}, { TagBox[ PanelBox[ TagBox[GridBox[{ { StyleBox["\<\"Display and Output Options\"\>", StripOnInput->False, FontWeight->Bold], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`boundaryFlag]],StyleBox[ "\"Boundary\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`gridFlag]],StyleBox[ "\"Gridlines\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`labelsFlag]],StyleBox[ "\"Game labels\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`equilibriumFlag]],StyleBox[ "\"Nash Equilibria\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TagBox[ ButtonBox[ StyleBox["\<\"Export data\"\>", StripOnInput->False, FontFamily->"Palatino"], Appearance->Automatic, ButtonFunction:>(NotebookLocate["ExportData"]; FrontEndExecute[ FrontEndToken["Evaluate"]]; NotebookLocate["Export"]; FrontEndExecute[ FrontEndToken["OpenCloseGroup"]]; NotebookLocate["GameSeer"]; FrontEndExecute[ FrontEndToken["Evaluate"]]), Evaluator->Automatic, ImageSize->{100, Automatic}, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"]}, { TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`latticeFlag]],StyleBox[ "\"Initial points\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`showRestpointsFlag]],StyleBox[ "\"Rest points\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`showVectorsFlag]],StyleBox[ "\"Vectors\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TemplateBox[{"\[ThinSpace]","\" \"",CheckboxBox[ Dynamic[$CellContext`showOrbitsFlag]],StyleBox[ "\"Orbits\"", FontFamily -> "Palatino", FontSize -> 12, StripOnInput -> False]}, "RowWithSeparators"], TagBox[ ButtonBox[ StyleBox["\<\"Export plot\"\>", StripOnInput->False, FontFamily->"Palatino"], Appearance->Automatic, ButtonFunction:>(NotebookLocate["ExportPlot"]; FrontEndExecute[ FrontEndToken["Evaluate"]]; NotebookLocate["Export"]; FrontEndExecute[ FrontEndToken["OpenCloseGroup"]]; NotebookLocate["GameSeer"]; FrontEndExecute[ FrontEndToken["Evaluate"]]), Evaluator->Automatic, ImageSize->{100, Automatic}, Method->"Preemptive"], Deploy, DefaultBaseStyle->"Deploy"]} }, AutoDelete->False, BaseStyle->{FontFamily -> "Palatino", 13}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{2}}, "RowsIndexed" -> {2 -> 1}}], "Grid"], ImageSize->{600, Automatic}], Deploy, DefaultBaseStyle->"Deploy"], "\[SpanFromLeft]", "\[SpanFromLeft]"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{1}}}], "Grid"], Deploy, DefaultBaseStyle->"Deploy"]}, { TagBox[ StyleBox["\<\"Copyleft 2012 Panayotis Mertikopoulos; all wrongs \ reserved.\"\>", StripOnInput->False, FontSize->10], Deploy, DefaultBaseStyle->"Deploy"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "RowsIndexed" -> {3 -> 1}}], "Column"], PanelBox[ DynamicBox[ToBoxes[ Show[ If[ Nor[$CellContext`boundaryFlag, $CellContext`labelsFlag, \ $CellContext`gridFlag, $CellContext`latticeFlag, \ $CellContext`equilibriumFlag, $CellContext`showRestpointsFlag, \ $CellContext`showVectorsFlag, $CellContext`showOrbitsFlag], \ $CellContext`emptyGraph, {}], If[$CellContext`boundaryFlag, $CellContext`boundary, {}], If[$CellContext`gridFlag, $CellContext`grid, {}], If[$CellContext`showOrbitsFlag, $CellContext`orbits, {}], If[$CellContext`latticeFlag, $CellContext`lattice, {}], If[$CellContext`showVectorsFlag, $CellContext`vectors, {}], If[$CellContext`labelsFlag, $CellContext`labels, {}], If[$CellContext`showRestpointsFlag, $CellContext`restpoints, {}], If[$CellContext`equilibriumFlag, $CellContext`equilibria, {}], Background -> White, ImageSize -> Full, Frame -> True, FrameLabel -> $CellContext`frameLabel, BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, PlotRange -> {{-0.02, 1.02}, {-0.02, 1.02}}], StandardForm], ImageSizeCache->{582., {302., 306.}}], ImageSize->600]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], BaseStyle->{FontFamily -> "Palatino", 13}]], "Output", CellChangeTimes->{ 3.542491554585854*^9, 3.5424921668759613`*^9, {3.5424922023488073`*^9, 3.542492217606853*^9}, {3.542492294307575*^9, 3.54249246783251*^9}, { 3.5424925188646517`*^9, 3.54249272080907*^9}, 3.5424927512561207`*^9, 3.542492807571657*^9, {3.542492903029031*^9, 3.542492965687696*^9}, { 3.542493010748893*^9, 3.5424931283921328`*^9}, 3.542493303480834*^9, 3.5424933596231003`*^9, {3.5424948821456738`*^9, 3.542494897348515*^9}, { 3.542494948580574*^9, 3.542494958413821*^9}, {3.542494996282857*^9, 3.542495021937092*^9}, 3.542495069660102*^9, {3.542495101238556*^9, 3.542495150922213*^9}, {3.5424952229660053`*^9, 3.5424952446772842`*^9}, { 3.542495275184863*^9, 3.542495278622492*^9}, {3.5424953423144712`*^9, 3.542495345500779*^9}, {3.542495451115695*^9, 3.54249548368782*^9}, 3.542496032456728*^9, {3.542496092591844*^9, 3.5424960963640957`*^9}, { 3.542496152967*^9, 3.5424961814250107`*^9}, {3.542496217430743*^9, 3.5424962214948997`*^9}, {3.542519190999982*^9, 3.542519206085833*^9}, 3.5425198769638643`*^9, {3.542520873498467*^9, 3.542520885370779*^9}, 3.5425214511827908`*^9, {3.5425215645186768`*^9, 3.542521572455669*^9}, 3.542521605053627*^9, {3.542521858932213*^9, 3.5425218683402777`*^9}, { 3.54252375114334*^9, 3.5425238161323967`*^9}, {3.54254646643335*^9, 3.542546509479994*^9}, 3.542547635663097*^9, {3.542547672276023*^9, 3.542547677051887*^9}, {3.542547786466835*^9, 3.542547801468359*^9}, { 3.542547844221875*^9, 3.5425479140932426`*^9}, {3.542553223001676*^9, 3.5425532267258263`*^9}, {3.542553307165928*^9, 3.542553375517817*^9}, { 3.542553536873372*^9, 3.542553582214644*^9}, {3.542553663945188*^9, 3.5425537387103*^9}, {3.5425540875279703`*^9, 3.542554104034224*^9}, 3.542608652077024*^9, {3.542609147509336*^9, 3.542609174039503*^9}, { 3.542611162416658*^9, 3.542611243784051*^9}, {3.5426114446986923`*^9, 3.542611531085434*^9}, {3.542611582442751*^9, 3.542611642060424*^9}, { 3.542611904065936*^9, 3.542611923803681*^9}, {3.542613332731422*^9, 3.5426133353460293`*^9}, 3.5426133765118723`*^9, {3.5426134075069447`*^9, 3.542613628776197*^9}, {3.5426151529221973`*^9, 3.5426151568765793`*^9}, 3.542616112440105*^9, {3.5426162824644747`*^9, 3.542616297650654*^9}, 3.5426167030219717`*^9, {3.542616733334584*^9, 3.5426167639577837`*^9}, 3.542616903107345*^9, {3.542616995048876*^9, 3.542617057811234*^9}, { 3.542617190642419*^9, 3.542617206766337*^9}, {3.54261727146006*^9, 3.542617299809848*^9}, {3.542625359234125*^9, 3.542625367060295*^9}, { 3.5426270780972967`*^9, 3.542627080840156*^9}, {3.542629914161845*^9, 3.542629919469359*^9}, {3.542630259034012*^9, 3.542630262301668*^9}, { 3.542630315334258*^9, 3.542630330190905*^9}, {3.542630530602544*^9, 3.5426306522597713`*^9}, {3.542631262435474*^9, 3.542631273884151*^9}, { 3.54263130416033*^9, 3.542631331432147*^9}, {3.542631399335554*^9, 3.542631483013198*^9}, {3.542631531043647*^9, 3.5426315335580683`*^9}, { 3.542631576309243*^9, 3.542631629729802*^9}, {3.54263166589857*^9, 3.542631668124487*^9}, {3.542631741894496*^9, 3.5426317661754103`*^9}, { 3.542631839425035*^9, 3.542631897776113*^9}, 3.542632605740283*^9, { 3.542654035915942*^9, 3.542654041911511*^9}, {3.5426540819764147`*^9, 3.5426541058132544`*^9}, {3.542654142461134*^9, 3.542654266654811*^9}, { 3.5426543401183453`*^9, 3.542654394519476*^9}, {3.542654444532154*^9, 3.542654502065363*^9}, 3.542656712201771*^9, 3.542658122514947*^9, 3.542658511027747*^9, {3.542659858814213*^9, 3.54265995079134*^9}, 3.542660170739287*^9, 3.542660395059737*^9, 3.542660492651812*^9, { 3.54266055281257*^9, 3.542660569399926*^9}, 3.542660607420032*^9, { 3.54266064028331*^9, 3.542660645096944*^9}, 3.542693820812253*^9, { 3.542693855804837*^9, 3.542693859778019*^9}, {3.542694025577552*^9, 3.54269402906594*^9}, 3.542697173373362*^9, 3.542697340712118*^9, 3.542697835444397*^9, 3.542698006340119*^9, 3.542698119742003*^9, 3.5426981995191793`*^9, {3.542700527036076*^9, 3.542700541267785*^9}, 3.542700791187256*^9, {3.542701016867238*^9, 3.542701068948207*^9}, { 3.542701122908353*^9, 3.542701135404189*^9}, {3.5427011918509607`*^9, 3.542701212735568*^9}, {3.542701250707116*^9, 3.542701256301023*^9}, 3.542701383057704*^9, {3.542701820139073*^9, 3.5427018494831057`*^9}, 3.542702095332901*^9, 3.542702137305079*^9, {3.542702179890835*^9, 3.542702186164765*^9}, 3.5427022783115187`*^9, 3.5427023900071*^9, 3.542702433728052*^9, 3.542712193912221*^9, 3.542714736028364*^9, 3.542715591211177*^9, 3.542718967303507*^9, {3.542787875109764*^9, 3.542787920824189*^9}, {3.542788145595983*^9, 3.54278819905098*^9}, { 3.542788231882228*^9, 3.54278829491218*^9}, {3.542788347008071*^9, 3.542788395753706*^9}, 3.542795082777974*^9, 3.542801373710778*^9, 3.542801909446868*^9, 3.542802065801118*^9, 3.542802098846752*^9, { 3.5428021405189257`*^9, 3.542802185953596*^9}, 3.542803555946054*^9, { 3.5428038121112967`*^9, 3.5428038407787457`*^9}, 3.54280388118436*^9, 3.542806112924864*^9, 3.5428061967877827`*^9, 3.5428062283977747`*^9, { 3.5428063228139133`*^9, 3.542806325843767*^9}, 3.5428064058077087`*^9, { 3.542806435983308*^9, 3.5428064514580307`*^9}, {3.542808994064492*^9, 3.542809023716713*^9}, {3.542809060920055*^9, 3.5428090954629717`*^9}, { 3.542809164354657*^9, 3.542809199532217*^9}, {3.542809296460381*^9, 3.542809316326507*^9}, 3.542809349135796*^9, 3.542809826987939*^9, 3.54280987237146*^9, 3.5428099063743963`*^9, 3.5428114050750504`*^9, 3.542816565864134*^9, 3.5428664816186047`*^9, 3.54287304235562*^9, 3.54287312256207*^9, 3.54287315335017*^9, {3.5428735937649813`*^9, 3.542873622973377*^9}, {3.542873654783524*^9, 3.5428736571106997`*^9}, 3.54287385253109*^9, {3.542873888661765*^9, 3.542873907459527*^9}, { 3.542875707070776*^9, 3.542875729260763*^9}, 3.542875764160145*^9, 3.542875816525256*^9, 3.54287587719664*^9, 3.542875926148054*^9, 3.542875980256987*^9, {3.542876031040543*^9, 3.542876059078824*^9}, 3.5428763538448067`*^9, {3.542876410704636*^9, 3.542876432040861*^9}, { 3.542878955008663*^9, 3.5428789945787563`*^9}, 3.542879025643561*^9, 3.542879123015551*^9, 3.5431771652521667`*^9, 3.543177199795424*^9, { 3.5431772384995537`*^9, 3.5431772561869783`*^9}, {3.543177294598233*^9, 3.543177379807699*^9}, {3.543177412839582*^9, 3.5431774866027603`*^9}, { 3.54317754376978*^9, 3.543177596323125*^9}, {3.543177796013741*^9, 3.5431778099113827`*^9}, {3.543177844951421*^9, 3.54317789740106*^9}, { 3.543178051367869*^9, 3.543178073194191*^9}, 3.543178132272788*^9, { 3.543178168442288*^9, 3.5431782354281273`*^9}, {3.5431782799328814`*^9, 3.543178343958922*^9}, 3.543178383732481*^9, {3.543178421372979*^9, 3.5431785210283747`*^9}, {3.543178552060727*^9, 3.543178562348509*^9}, { 3.5431786150860147`*^9, 3.54317863672429*^9}, 3.543398052468441*^9, { 3.544127667272534*^9, 3.5441277112901087`*^9}, 3.544127797676194*^9, 3.6032777249233227`*^9, {3.603278492805593*^9, 3.603278504219997*^9}, { 3.603278574677135*^9, 3.60327859242152*^9}, {3.603278660479948*^9, 3.603278690155128*^9}, 3.603278722827054*^9, {3.603278758820284*^9, 3.603279247623637*^9}, {3.603279291122662*^9, 3.603279367175407*^9}, { 3.6032794650965633`*^9, 3.603279475637993*^9}, 3.6033637205895433`*^9, { 3.626373855025836*^9, 3.626373928050454*^9}, {3.626374045348118*^9, 3.6263740597492456`*^9}, {3.626374125806287*^9, 3.626374152153926*^9}, { 3.626374188363449*^9, 3.626374244988608*^9}, 3.6263743344027987`*^9}, CellTags->"GameSeer",ExpressionUUID->"b92c1c53-4421-41e5-ac99-81d9c9dd59ab"] }, Open ]], Cell[CellGroupData[{ Cell["Function Library", "Section", InitializationCell->True, CellChangeTimes->{{3.541971272723722*^9, 3.541971274712233*^9}, { 3.541971316382093*^9, 3.541971318698976*^9}, {3.541971388646249*^9, 3.541971390091364*^9}, 3.542116103083325*^9, {3.5421980927556067`*^9, 3.5421980968834457`*^9}, {3.542441135995779*^9, 3.542441138400098*^9}, { 3.542442248034959*^9, 3.542442252600121*^9}},ExpressionUUID->"9cf1d0c2-2aaf-440a-ad05-\ 1942c4636faa"], Cell[CellGroupData[{ Cell["Basic Functions", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542303686809185*^9, 3.542303690342774*^9}, { 3.5423804724371023`*^9, 3.542380475117423*^9}},ExpressionUUID->"fe93e684-d090-43df-a1e0-\ 0e3b00e16224"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Expit", "[", "x_", "]"}], ":=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Logit", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Log", "[", "x", "]"}], "-", RowBox[{"Log", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542020287682714*^9, 3.542020288110579*^9}, { 3.5420203220767593`*^9, 3.5420203228177357`*^9}, {3.5421788674988194`*^9, 3.5421788718402042`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"adcc5920-f6fc-4b5c-8b5a-b8c03afdecfa"] }, Closed]], Cell[CellGroupData[{ Cell["Property Tags", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542313451332674*^9, 3.54231346137263*^9}, { 3.542313568492833*^9, 3.542313617155815*^9}, {3.542519597068871*^9, 3.542519601680994*^9}, {3.542519861445312*^9, 3.542519862284677*^9}},ExpressionUUID->"04527779-dc27-41cf-9b4d-\ a6d0a4338af6"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitationQ", "[", "dynamics_String", "]"}], ":=", "False"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542313463566072*^9, 3.542313497505618*^9}, { 3.542313690465787*^9, 3.542313696873582*^9}, {3.542313841347486*^9, 3.5423138460322437`*^9}, 3.542313901614451*^9}, CellLabel->"In[3]:=",ExpressionUUID->"9a77b5b9-9efc-4258-9802-574bbb86928f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"OnlyInteriorRestpointsQ", "[", "dynamics_String", "]"}], ":=", "False"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542519612018441*^9, 3.542519634707301*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"baf05258-61a4-4158-9695-5b43ee5b8372"] }, Closed]], Cell[CellGroupData[{ Cell["Brown\[Dash]von Neumann\[Dash]Nash dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542313914772079*^9, 3.5423139467305117`*^9}, { 3.542316598682871*^9, 3.542316626064137*^9}},ExpressionUUID->"d4e6c4e6-7d31-4ae6-949c-\ a21fdf674ce5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNNField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "2"], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{ SuperscriptBox["x", "2"], RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], "2"], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{ SuperscriptBox["y", "2"], RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542318303751511*^9, 3.542318383390707*^9}, 3.542318764920391*^9, {3.542318849499695*^9, 3.542318902076037*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"6f1fdc7d-34d7-4cbc-890d-77450bc09ab9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNNScoreField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "x"}], "x"], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{ FractionBox["x", RowBox[{"1", "-", "x"}]], RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "y"}], "y"], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{ FractionBox["y", RowBox[{"1", "-", "y"}]], RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542315309369158*^9, 3.542315324044086*^9}, { 3.542315443097683*^9, 3.54231553290939*^9}, {3.5423166337210712`*^9, 3.542316633944727*^9}, {3.542316876454941*^9, 3.542316897883216*^9}, { 3.542317955082191*^9, 3.542317978417334*^9}, {3.542318924878254*^9, 3.5423189693822327`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"3f6e3d08-efe4-42be-89b5-ba0fbbf72c37"] }, Closed]], Cell[CellGroupData[{ Cell["Entropic dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5423036932634773`*^9, 3.542303702438805*^9}, { 3.5423805000729027`*^9, 3.5423805009761047`*^9}},ExpressionUUID->"c63f6653-7ea2-4b13-8e45-\ 4f32de402601"], Cell[BoxData[ RowBox[{ RowBox[{"EntropicField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "-", RowBox[{"temperature", " ", RowBox[{"Logit", "[", "x", "]"}]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "-", RowBox[{"temperature", " ", RowBox[{"Logit", "[", "y", "]"}]}]}], ")"}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5245101023733273`*^9, 3.524510168324913*^9}, 3.538436485238579*^9, {3.541704798220435*^9, 3.5417047994842043`*^9}, { 3.5420208931325617`*^9, 3.542020893745192*^9}, 3.542266738963688*^9, { 3.542266866249744*^9, 3.5422668765301847`*^9}, 3.542303717048437*^9, { 3.542380360732979*^9, 3.54238036165062*^9}, {3.542380436307044*^9, 3.542380452564468*^9}, {3.542380492232773*^9, 3.542380523510167*^9}, { 3.54238088453806*^9, 3.5423808894399242`*^9}, {3.542380932222437*^9, 3.542380934918127*^9}, {3.542381649288828*^9, 3.542381650862515*^9}, { 3.542381964174756*^9, 3.542381965716208*^9}, {3.5423839341694727`*^9, 3.542383966768299*^9}, {3.5423898959241056`*^9, 3.542389913417308*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"a496b681-e52f-4ed5-a490-dd065eb3b3c7"], Cell[BoxData[ RowBox[{ RowBox[{"EntropicScoreField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "-", RowBox[{"temperature", " ", RowBox[{"Logit", "[", "x", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "-", RowBox[{"temperature", " ", RowBox[{"Logit", "[", "y", "]"}]}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.54213913375734*^9, 3.542139190948094*^9}, 3.5422667389639273`*^9, {3.542266848802086*^9, 3.542266862970065*^9}, 3.542303717048667*^9, {3.542380751400766*^9, 3.5423807654565287`*^9}, { 3.542381655621874*^9, 3.542381657454027*^9}, {3.5423819688360777`*^9, 3.542381970427594*^9}, {3.542389926600019*^9, 3.5423899391200743`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"7adedfb7-b006-4e23-b0fb-578d30068c2c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitationQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542313544326695*^9, 3.542313554728385*^9}, { 3.5423136260551977`*^9, 3.5423136264622993`*^9}, 3.542313895694727*^9, { 3.542380925285137*^9, 3.5423809261785507`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"7ff5f60f-da39-4c02-b366-19d2d4280b7c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"OnlyInteriorRestpointsQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542519773434087*^9, 3.542519810768458*^9}, { 3.542519845138773*^9, 3.542519846008648*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"c064f259-5bc1-4795-94f9-a2bcfb2fa43b"] }, Closed]], Cell[CellGroupData[{ Cell["Imitative Logit dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542313914772079*^9, 3.5423139467305117`*^9}, { 3.542316598682871*^9, 3.542316626064137*^9}, {3.542347280506061*^9, 3.542347286880948*^9}, {3.543176040374857*^9, 3.543176042875317*^9}},ExpressionUUID->"3529039d-ae06-409d-bcbf-\ abffa14ab494"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitativeLogitField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["x", RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", "temperature"}], "]"}]}]}]], "-", "x"}], ",", "\[IndentingNewLine]", RowBox[{ FractionBox["y", RowBox[{"y", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "/", "temperature"}], "]"}]}]}]], "-", "y"}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542318303751511*^9, 3.542318383390707*^9}, 3.542318764920391*^9, {3.542318849499695*^9, 3.542318902076037*^9}, { 3.5423472932262287`*^9, 3.542347309328266*^9}, {3.542347481822439*^9, 3.542347516898802*^9}, {3.542441774871449*^9, 3.542441778252508*^9}, { 3.542441946148059*^9, 3.5424419615554934`*^9}, {3.543176045579918*^9, 3.5431760479147053`*^9}, {3.543176285121785*^9, 3.543176297727378*^9}, { 3.543176405463881*^9, 3.5431764585742598`*^9}, {3.54317772032047*^9, 3.543177731102007*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"73b8ba2f-8eb1-4487-83fb-e1adfbe81ef8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitativeLogitScoreField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", "temperature"}], "]"}]}], RowBox[{"x", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", "temperature"}], "]"}]}]}]], ",", "\[IndentingNewLine]", FractionBox[ RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "/", "temperature"}], "]"}]}], RowBox[{"y", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "/", "temperature"}], "]"}]}]}]]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542315309369158*^9, 3.542315324044086*^9}, { 3.542315443097683*^9, 3.54231553290939*^9}, {3.5423166337210712`*^9, 3.542316633944727*^9}, {3.542316876454941*^9, 3.542316897883216*^9}, { 3.542317955082191*^9, 3.542317978417334*^9}, {3.542318924878254*^9, 3.5423189693822327`*^9}, {3.5423472980766706`*^9, 3.5423472985257607`*^9}, 3.542347530820277*^9, {3.542441780893119*^9, 3.542441816930873*^9}, 3.542441937260126*^9, {3.543176051114504*^9, 3.543176052282305*^9}, { 3.5431768815045567`*^9, 3.543176946980206*^9}, {3.543177741406516*^9, 3.543177773693171*^9}, {3.543178023729062*^9, 3.5431780325916023`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"752b6b50-be24-4824-830d-cf414e5fd43a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitationQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542519773434087*^9, 3.542519810768458*^9}, { 3.543176068189456*^9, 3.5431760757729816`*^9}, {3.543177779974209*^9, 3.543177780573691*^9}, {3.543177888231687*^9, 3.543177888732848*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"c9a4c248-21f5-4120-9fea-365a73cf88c5"] }, Closed]], Cell[CellGroupData[{ Cell["Maynard Smith dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542303696863255*^9, 3.542303699766799*^9}},ExpressionUUID->"222897f2-8bd3-42c7-b775-\ 9a0ca81d9491"], Cell[BoxData[ RowBox[{ RowBox[{"MaynardSmithField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "/", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}]}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.54226675010467*^9, 3.54226676128442*^9}, { 3.542266804981786*^9, 3.54226684525671*^9}, {3.54226688544728*^9, 3.542266927123391*^9}, {3.542266973255227*^9, 3.5422669934975986`*^9}, { 3.5423039281417913`*^9, 3.542303930109322*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"441cf4d1-6b25-420f-8824-1cb124c6a17b"], Cell[BoxData[ RowBox[{ RowBox[{"MaynardSmithScoreField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "/", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542267010435812*^9, 3.54226704503869*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"4ec74f62-79c8-4c1d-84c1-9558454db7dc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitationQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542313544326695*^9, 3.542313554728385*^9}, { 3.5423136260551977`*^9, 3.5423136264622993`*^9}, {3.542313885273974*^9, 3.542313905637384*^9}, {3.543177218365893*^9, 3.543177218866411*^9}, { 3.543177275813015*^9, 3.543177276225292*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"da2e2cdf-b1d9-4db6-92a2-daaba6901417"] }, Closed]], Cell[CellGroupData[{ Cell["Logit dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542313914772079*^9, 3.5423139467305117`*^9}, { 3.542316598682871*^9, 3.542316626064137*^9}, {3.542347280506061*^9, 3.542347286880948*^9}},ExpressionUUID->"5466925d-a125-4013-8b23-\ 46a0b7ffaf47"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LogitField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Expit", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", "temperature"}], "]"}], "-", "x"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Expit", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "/", "temperature"}], "]"}], "-", "y"}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542318303751511*^9, 3.542318383390707*^9}, 3.542318764920391*^9, {3.542318849499695*^9, 3.542318902076037*^9}, { 3.5423472932262287`*^9, 3.542347309328266*^9}, {3.542347481822439*^9, 3.542347516898802*^9}, {3.542441774871449*^9, 3.542441778252508*^9}, { 3.542441946148059*^9, 3.5424419615554934`*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"0738aefc-57eb-419f-9d04-0e1eeb10ed64"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LogitScoreField", "[", RowBox[{"game_", ",", "vec_", ",", RowBox[{"temperature_:", "1"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Expit", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], "/", "temperature"}], "]"}], "-", "x"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Expit", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "/", "temperature"}], "]"}], "-", "y"}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542315309369158*^9, 3.542315324044086*^9}, { 3.542315443097683*^9, 3.54231553290939*^9}, {3.5423166337210712`*^9, 3.542316633944727*^9}, {3.542316876454941*^9, 3.542316897883216*^9}, { 3.542317955082191*^9, 3.542317978417334*^9}, {3.542318924878254*^9, 3.5423189693822327`*^9}, {3.5423472980766706`*^9, 3.5423472985257607`*^9}, 3.542347530820277*^9, {3.542441780893119*^9, 3.542441816930873*^9}, 3.542441937260126*^9}, CellLabel->"In[18]:=",ExpressionUUID->"dfba19ea-91b0-4913-bec7-e1d97aae7383"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"OnlyInteriorRestpointsQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542519773434087*^9, 3.542519810768458*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"dcb7d3cb-2e3e-4273-ae09-1c54119dcf8a"] }, Closed]], Cell[CellGroupData[{ Cell["Replicator dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5423036932634773`*^9, 3.542303702438805*^9}},ExpressionUUID->"621496ba-1753-4103-a332-\ 745d38f01793"], Cell[BoxData[ RowBox[{ RowBox[{"ReplicatorField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"y", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5245101023733273`*^9, 3.524510168324913*^9}, 3.538436485238579*^9, {3.541704798220435*^9, 3.5417047994842043`*^9}, { 3.5420208931325617`*^9, 3.542020893745192*^9}, 3.542266738963688*^9, { 3.542266866249744*^9, 3.5422668765301847`*^9}, 3.542303717048437*^9}, CellLabel->"In[20]:=",ExpressionUUID->"7082ca45-74a9-42ed-b178-1bd340cdea4d"], Cell[BoxData[ RowBox[{ RowBox[{"ReplicatorScoreField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.54213913375734*^9, 3.542139190948094*^9}, 3.5422667389639273`*^9, {3.542266848802086*^9, 3.542266862970065*^9}, 3.542303717048667*^9}, CellLabel->"In[21]:=",ExpressionUUID->"cdb2a0fb-9f62-44fc-aef9-79b46ba600c9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ImitationQ", "[", "\"\\"", "]"}], ":=", "True"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542313544326695*^9, 3.542313554728385*^9}, { 3.5423136260551977`*^9, 3.5423136264622993`*^9}, 3.542313895694727*^9}, CellLabel->"In[22]:=",ExpressionUUID->"331dd22c-073c-40c7-a183-54f02547bb7a"] }, Closed]], Cell[CellGroupData[{ Cell["Smith dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542313914772079*^9, 3.5423139467305117`*^9}},ExpressionUUID->"8cb13201-0445-4561-89d8-\ 838e1cfb8a22"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SmithField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{"x", " ", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}], RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}], "+", RowBox[{"y", " ", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542313954616448*^9, 3.542313978389592*^9}, { 3.542315254844419*^9, 3.542315306778385*^9}, 3.5423154595253963`*^9, { 3.542319600735299*^9, 3.5423196441204977`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"6a22d483-7db3-43f8-b419-fc6d720e0b0b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SmithScoreField", "[", RowBox[{"game_", ",", "vec_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U1", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"U2", "=", RowBox[{ "game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{"y", "=", RowBox[{ "vec", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}], "/", "x"}], "+", " ", RowBox[{ RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ".", "U1", ".", RowBox[{"{", RowBox[{"y", ",", RowBox[{"1", "-", "y"}]}], "}"}]}], ",", "0"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}], "/", "y"}], "+", " ", RowBox[{ RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}]}], "}"}], ".", "U2", ".", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", "0"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542315309369158*^9, 3.542315324044086*^9}, { 3.542315443097683*^9, 3.54231553290939*^9}, {3.542319654476186*^9, 3.5423196876467257`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"4f053adf-c499-4edd-8138-fa3af6921b89"] }, Closed]], Cell[CellGroupData[{ Cell["Dynamics display", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542441144001021*^9, 3.5424411461046143`*^9}, { 3.542441318180499*^9, 3.542441320098922*^9}, {3.542441391162504*^9, 3.5424413913386583`*^9}},ExpressionUUID->"7211e674-1ad8-4429-9d41-\ dbc6d6467213"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DisplayField", "[", "dynamics_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Switch", "[", "\[IndentingNewLine]", RowBox[{ "dynamics", ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"ReplicatorField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"MaynardSmithField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"EntropicField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "temperature"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"SmithField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"BNNField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"LogitField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "temperature"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"ImitativeLogitField", "[", RowBox[{"game", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "temperature"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"CustomField", "[", RowBox[{"x", ",", "y"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}], "&&", RowBox[{"0", "\[LessEqual]", "y", "\[LessEqual]", "1"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542441335272547*^9, 3.5424413449765873`*^9}, { 3.5424418802391243`*^9, 3.5424418888310432`*^9}, {3.5424912415533447`*^9, 3.542491250992799*^9}, {3.543176997962276*^9, 3.543177007826655*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"63f50b39-90b0-41d7-a604-3bd7af63c26c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Initialization and Controls", "Section"]], "Section", InitializationCell->True, CellChangeTimes->{{3.541974310922262*^9, 3.541974313030478*^9}, { 3.5419744145763893`*^9, 3.541974452667996*^9}, {3.5420178595760937`*^9, 3.542017864087696*^9}, {3.542019954214432*^9, 3.542019959795026*^9}, 3.542116100466074*^9, {3.5422127216514893`*^9, 3.542212725650701*^9}, { 3.542547737502049*^9, 3.54254774342096*^9}, {3.542608663176807*^9, 3.54260866761467*^9}, {3.5426112562522173`*^9, 3.542611256482264*^9}},ExpressionUUID->"119a5f82-fe25-4f49-8560-\ af900343d8ef"], Cell[CellGroupData[{ Cell["Game", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5419743367211857`*^9, 3.541974341813764*^9}, { 3.542212729858677*^9, 3.542212730002334*^9}},ExpressionUUID->"f43f0fcd-f582-488a-bb5d-\ 7142a8078691"], Cell[BoxData[{ RowBox[{ RowBox[{"game", "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"game", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"game", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542020174314948*^9, 3.5420201856555862`*^9}, { 3.5423200514992647`*^9, 3.542320058008642*^9}, {3.542320174782818*^9, 3.542320180885272*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"add0d09d-9b26-4d13-a82e-4caf44025d6a"] }, Closed]], Cell[CellGroupData[{ Cell["Dynamics", "Subsection", InitializationCell->True, CellChangeTimes->{{3.54202213369274*^9, 3.542022141186051*^9}, { 3.5420250430169773`*^9, 3.542025045222561*^9}, {3.542195500650127*^9, 3.542195503553554*^9}, {3.5422127317625713`*^9, 3.5422127319383307`*^9}},ExpressionUUID->"8f51239b-a750-4da8-a9ef-\ d86fe9fc92fa"], Cell[BoxData[{ RowBox[{ RowBox[{"dynamics", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"order", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"temperature", "=", "1"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.5421401911043253`*^9, 3.542140210873048*^9}, { 3.5421402452452993`*^9, 3.5421402657724524`*^9}, {3.542196228063403*^9, 3.542196228352956*^9}, 3.542196628705574*^9, 3.542216984736763*^9, 3.542313535096403*^9, {3.5423200657035227`*^9, 3.5423200662708063`*^9}, { 3.542371058217999*^9, 3.542371062183412*^9}, {3.542371125081058*^9, 3.5423711261742363`*^9}, {3.542383600622986*^9, 3.542383603142366*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"e8ded0fe-21ee-4a66-ae38-26037fb1d220"], Cell[BoxData[{ RowBox[{ RowBox[{"xDisplayField", "=", RowBox[{"Dynamic", "[", RowBox[{"Rationalize", "[", RowBox[{ RowBox[{"DisplayField", "[", "dynamics", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yDisplayField", "=", RowBox[{"Dynamic", "[", RowBox[{"Rationalize", "[", RowBox[{ RowBox[{"DisplayField", "[", "dynamics", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.54244145012958*^9, 3.542441451018743*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"e6dda9ea-cad8-4181-8f9d-cd3cea532ad3"], Cell[BoxData[{ RowBox[{ RowBox[{"xCustomField", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yCustomField", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CustomField", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"{", RowBox[{"xCustomField", ",", "yCustomField"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CustomScoreField", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"{", RowBox[{"xCustomField", ",", "yCustomField"}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542375336044526*^9, 3.542375351148118*^9}, { 3.5426584708265867`*^9, 3.542658492937965*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"89a1acf4-e557-4ce9-acd1-9a55c1577de5"], Cell[BoxData[{ RowBox[{ RowBox[{"time", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"resolution", "=", "300"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotclip", "=", "20."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotchop", "=", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.541975191994878*^9, 3.541975193698069*^9}, { 3.542021001617247*^9, 3.542021016785056*^9}, {3.5421390211265097`*^9, 3.5421390322655993`*^9}, {3.5421955327270184`*^9, 3.5421955733393993`*^9}, {3.542196262506853*^9, 3.5421963239659863`*^9}, 3.542196477962215*^9, {3.542196964716037*^9, 3.54219697908307*^9}, { 3.542214585814818*^9, 3.542214589067752*^9}, 3.542320079814968*^9, 3.542447684959153*^9}, CellLabel->"In[38]:=",ExpressionUUID->"a912a6af-8f1f-453f-b11e-3b0f701b79bf"] }, Closed]], Cell[CellGroupData[{ Cell["Bounding box", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5419734159091454`*^9, 3.54197342131584*^9}, { 3.541973537157105*^9, 3.5419735377367573`*^9}, {3.5419736599430017`*^9, 3.541973684868115*^9}, {3.542125394341058*^9, 3.5421253945248737`*^9}, { 3.542206460529257*^9, 3.542206468671153*^9}, {3.542209266177706*^9, 3.542209267070153*^9}, {3.542608928140708*^9, 3.5426089298906107`*^9}, 3.54260968957052*^9},ExpressionUUID->"426df69e-de53-4e43-ab54-\ 799d2c64b224"], Cell[BoxData[{ RowBox[{ RowBox[{"boundaryFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"boundary", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542816452031179*^9, 3.5428164560389957`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"995b4836-1bb2-4197-b0f3-3cfa9267bdf7"], Cell[BoxData[{ RowBox[{ RowBox[{"boundaryColor", "=", "Black"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryThickness", "=", "1"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.5426091929830093`*^9, 3.542609229176264*^9}, { 3.542694181999494*^9, 3.542694182366912*^9}, 3.542803872763727*^9}, CellLabel->"In[44]:=",ExpressionUUID->"50cf6e39-9d3c-48fa-ae23-1051b4546403"] }, Closed]], Cell[CellGroupData[{ Cell["Labels", "Subsection", InitializationCell->True, CellChangeTimes->{{3.54261091708488*^9, 3.542610917712886*^9}},ExpressionUUID->"ed7e1b9c-c2a9-407f-a8b1-\ 036c2699d197"], Cell[BoxData[{ RowBox[{ RowBox[{"labelsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"labels", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.5424919305531673`*^9, 3.5424919527500753`*^9}, { 3.542492532590744*^9, 3.542492533101256*^9}, {3.54260929823291*^9, 3.542609298990424*^9}, {3.542609331233819*^9, 3.542609332029551*^9}, { 3.542609450734927*^9, 3.5426094520193567`*^9}, {3.54260954893285*^9, 3.542609550402473*^9}, {3.542609942944941*^9, 3.542609959132731*^9}, { 3.542610586876308*^9, 3.542610588129334*^9}, {3.542816439896532*^9, 3.5428164429623117`*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"465fe884-02c4-49ba-98e8-da0e8e32d8a1"], Cell[BoxData[{ RowBox[{ RowBox[{"plotLabel", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xLabel", " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yLabel", " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"frameLabel", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Dynamic", "[", "yLabel", "]"}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], ",", "\[IndentingNewLine]", "None"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Dynamic", "[", "xLabel", "]"}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Dynamic", "[", "plotLabel", "]"}], ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "Large"}]}], "]"}]}], "}"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542373091002078*^9, 3.542373104312923*^9}, { 3.5423732533067904`*^9, 3.542373268635344*^9}, {3.542609126699435*^9, 3.542609156297408*^9}, {3.542816427677113*^9, 3.542816436361974*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"ce90a47c-b4d7-42cc-9265-a02a4f0df0bd"] }, Closed]], Cell[CellGroupData[{ Cell["Initial points", "Subsection", InitializationCell->True, CellChangeTimes->{{3.541974364831853*^9, 3.541974385853269*^9}, { 3.542010199422696*^9, 3.542010200428686*^9}, {3.542212733586438*^9, 3.542212733890547*^9}, {3.542609686148634*^9, 3.542609686610223*^9}},ExpressionUUID->"bb721a67-96b8-4e01-83f3-\ b9d17dbf101f"], Cell[BoxData[{ RowBox[{ RowBox[{"latticeFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lattice", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542816471550687*^9, 3.542816474782412*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"68fe6536-fbd6-4fb3-9f67-91c9994a403e"], Cell[BoxData[{ RowBox[{ RowBox[{"dx", "=", ".2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dy", "=", ".2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"standardLatticePoints", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Rationalize", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", "dx"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1", ",", "dy"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.541975191994878*^9, 3.541975193698069*^9}, { 3.542112730457465*^9, 3.54211273159135*^9}, {3.542178910382303*^9, 3.542178911405713*^9}, {3.5423207027074003`*^9, 3.542320753267448*^9}, { 3.542320792923346*^9, 3.542320804315309*^9}, {3.542320871866593*^9, 3.5423208754725533`*^9}, {3.542383790367882*^9, 3.5423837923068647`*^9}, { 3.5423919576003942`*^9, 3.5423919584800987`*^9}, {3.542398934409782*^9, 3.542399000975399*^9}, {3.5423993317567472`*^9, 3.542399333880912*^9}, { 3.542399899960147*^9, 3.542399904222467*^9}, {3.542400113309901*^9, 3.542400137857005*^9}, {3.5424005924620237`*^9, 3.542400600101801*^9}, { 3.542464026922608*^9, 3.542464093836746*^9}, {3.54246440720671*^9, 3.542464407742413*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"c857788c-89cf-4ae3-b9c1-9ba59924891d"], Cell[BoxData[{ RowBox[{ RowBox[{"dxCustom", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dyCustom", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nRandomPoints", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customLatticePoints", "=", "standardLatticePoints"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.541975191994878*^9, 3.541975193698069*^9}, { 3.542112730457465*^9, 3.54211273159135*^9}, {3.542178910382303*^9, 3.542178911405713*^9}, {3.5423207027074003`*^9, 3.542320753267448*^9}, { 3.542320792923346*^9, 3.542320804315309*^9}, {3.542320871866593*^9, 3.5423208754725533`*^9}, {3.542383790367882*^9, 3.5423837923068647`*^9}, { 3.5423919576003942`*^9, 3.5423919584800987`*^9}, {3.542398934409782*^9, 3.542399000975399*^9}, {3.5423993317567472`*^9, 3.542399333880912*^9}, { 3.542399899960147*^9, 3.542399904222467*^9}, {3.542400113309901*^9, 3.542400137857005*^9}, {3.5424005924620237`*^9, 3.542400600101801*^9}, { 3.542464026922608*^9, 3.542464093836746*^9}, {3.5424643814105988`*^9, 3.542464384800714*^9}, {3.542464419494199*^9, 3.542464423245727*^9}, { 3.5424646088529453`*^9, 3.5424646090834503`*^9}, {3.544127656660207*^9, 3.544127657773801*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"d1bda82c-d1a2-4df8-b84f-0aa5bf911d87"], Cell[BoxData[{ RowBox[{ RowBox[{"customLatticeQ", "=", "False"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"latticePoints", "=", "standardLatticePoints"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.541975191994878*^9, 3.541975193698069*^9}, { 3.542112730457465*^9, 3.54211273159135*^9}, {3.542178910382303*^9, 3.542178911405713*^9}, {3.5423207027074003`*^9, 3.542320753267448*^9}, { 3.542320792923346*^9, 3.542320804315309*^9}, {3.542320871866593*^9, 3.5423208754725533`*^9}, {3.542383790367882*^9, 3.5423837923068647`*^9}, { 3.5423919576003942`*^9, 3.5423919584800987`*^9}, {3.542398934409782*^9, 3.542399000975399*^9}, {3.5423993317567472`*^9, 3.542399333880912*^9}, { 3.542399899960147*^9, 3.542399904222467*^9}, {3.542400113309901*^9, 3.542400137857005*^9}, {3.5424005924620237`*^9, 3.542400600101801*^9}, { 3.542464026922608*^9, 3.542464093836746*^9}, {3.54246441474343*^9, 3.5424644155015297`*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"7a929760-3825-42cd-9880-2e20f1be58d2"], Cell[BoxData[{ RowBox[{ RowBox[{"latticePointColor", "=", RowBox[{"Darker", "[", "Gray", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"latticePointStyle", "=", RowBox[{"{", RowBox[{"latticePointColor", ",", RowBox[{"PointSize", "[", "Medium", "]"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.54260942142688*^9, 3.542609428607445*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"208d4203-99ea-4614-8412-c68df85fd929"] }, Closed]], Cell[CellGroupData[{ Cell["Gridlines", "Subsection", InitializationCell->True, CellChangeTimes->{{3.541974364831853*^9, 3.541974385853269*^9}, { 3.542010199422696*^9, 3.542010200428686*^9}, {3.5420177110666018`*^9, 3.542017717970089*^9}},ExpressionUUID->"63ec2e06-508a-421b-a302-\ e26df25fbd81"], Cell[BoxData[{ RowBox[{ RowBox[{"gridFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"grid", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542816482599557*^9, 3.542816484928855*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"b1b6a268-06f7-45a5-a54b-b84b62908d24"], Cell[BoxData[{ RowBox[{ RowBox[{"gridColor", "=", RowBox[{"Darker", "[", "Gray", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gridStyle", "=", RowBox[{"{", RowBox[{"DotDashed", ",", "gridColor", ",", RowBox[{"AbsoluteThickness", "[", ".75", "]"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542608845211884*^9, 3.542608863642605*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"e21de9a4-3903-4b70-ba3c-736a4e9fe173"], Cell[BoxData[{ RowBox[{ RowBox[{"xtick", "=", ".2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ytick", "=", ".2"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.541975191994878*^9, 3.541975193698069*^9}, { 3.542017719908959*^9, 3.542017723228777*^9}, {3.542017778123617*^9, 3.542017782103269*^9}, {3.542018342850861*^9, 3.5420183435147533`*^9}, { 3.542018802781371*^9, 3.542018803866783*^9}, {3.542313351439507*^9, 3.542313372095955*^9}, {3.542451576895266*^9, 3.54245157912499*^9}, { 3.542451663781086*^9, 3.5424516747630577`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"af82dee9-c752-4b9e-a63a-913540850895"] }, Closed]], Cell[CellGroupData[{ Cell["Nash Equilibria", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5426105785989122`*^9, 3.542610580484786*^9}},ExpressionUUID->"312d39dd-fe90-42d3-bc5e-\ 8275cf65c166"], Cell[BoxData[{ RowBox[{ RowBox[{"equilibriumFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"equilibria", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"equilibriumData", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542816491246378*^9, 3.5428164941448402`*^9}, { 3.542873499237288*^9, 3.542873503842895*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"efe17981-6d76-49b3-81c3-f5162b28a3e3"], Cell[BoxData[{ RowBox[{ RowBox[{"equilibriumColor", "=", RowBox[{"Darker", "[", "Red", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"equilibriumThickness", "=", "2.5"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542486754030568*^9, 3.542486795862522*^9}, { 3.542547476062641*^9, 3.5425474998396187`*^9}, {3.5426093500521507`*^9, 3.5426093510458317`*^9}, {3.542609533686335*^9, 3.542609535593184*^9}, { 3.542610014963366*^9, 3.542610015394981*^9}, {3.542610446305914*^9, 3.542610449826116*^9}, {3.542610670511284*^9, 3.542610675356681*^9}, { 3.543690749130012*^9, 3.5436907500634604`*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"2cbbfe3a-cc81-4727-8d27-0aa5ab73fa7e"] }, Closed]], Cell[CellGroupData[{ Cell["Rest points", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542609831093463*^9, 3.542609832333745*^9}},ExpressionUUID->"ff1e2693-87b3-452c-8a45-\ de2715948973"], Cell[BoxData[{ RowBox[{ RowBox[{"calculateRestpointsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"showRestpointsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"restpoints", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointsData", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542632386674796*^9, 3.542632401512828*^9}, { 3.542816506936737*^9, 3.542816507151497*^9}, {3.542873520570148*^9, 3.542873545656921*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"ce3b869d-cd0e-4a91-af39-433a96311ec8"], Cell[BoxData[ RowBox[{ RowBox[{"restColor", "=", RowBox[{"ColorData", "[", RowBox[{"1", ",", "1"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542610054162601*^9, 3.542610135006797*^9}, { 3.542610177964707*^9, 3.542610183620306*^9}, {3.542610302345879*^9, 3.542610302681744*^9}, {3.5426115029655952`*^9, 3.5426115176758137`*^9}, { 3.5426115902228527`*^9, 3.5426116160844812`*^9}, {3.5427032119813004`*^9, 3.542703213165895*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"27108cb6-a952-4cff-9eb2-b34c2283a66e"] }, Closed]], Cell[CellGroupData[{ Cell["Orbits", "Subsection", InitializationCell->True, CellChangeTimes->{{3.541974364831853*^9, 3.541974385853269*^9}, { 3.542010199422696*^9, 3.542010200428686*^9}, {3.542020996974815*^9, 3.542021035685937*^9}, 3.542139415978016*^9, {3.5421954886059933`*^9, 3.5421954958101387`*^9}, {3.542212742786882*^9, 3.542212749097827*^9}, 3.542375079220744*^9, {3.5426096550841513`*^9, 3.54260965735597*^9}, { 3.542611003530998*^9, 3.5426110043203707`*^9}},ExpressionUUID->"3851608b-e174-47f1-8561-\ 172d385ff109"], Cell[BoxData[{ RowBox[{ RowBox[{"calculateOrbitsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"showOrbitsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"orbits", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"orbitsData", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.54263243316945*^9, 3.542632441823365*^9}, { 3.5428165157782097`*^9, 3.54281651826433*^9}, {3.542873561259459*^9, 3.542873566313508*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"617d2ed7-c142-46a8-821d-d4839ad07964"], Cell[BoxData[{ RowBox[{ RowBox[{"orbitsColor", "=", RowBox[{"ColorData", "[", RowBox[{"1", ",", "4"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"orbitsThickness", "=", RowBox[{"AbsoluteThickness", "[", ".75", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"orbitStyle", "=", RowBox[{"{", RowBox[{"orbitsColor", ",", "orbitsThickness"}], "}"}]}], ";"}]}], "Input",\ InitializationCell->True, CellChangeTimes->{{3.5426095981289473`*^9, 3.5426096367680483`*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"1f346808-a276-4e52-8cba-20802d335a81"] }, Closed]], Cell[CellGroupData[{ Cell["Vectors", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542609964839576*^9, 3.542609967255539*^9}},ExpressionUUID->"19c53d2f-8a6e-42c5-9775-\ 3d800deba8f1"], Cell[BoxData[{ RowBox[{ RowBox[{"calculateVectorsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"showVectorsFlag", "=", "True"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectors", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542632489094487*^9, 3.5426324955826683`*^9}, { 3.542816527143139*^9, 3.542816529948908*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"238efae9-5bc5-4efd-86dc-1ef8597c3cf5"], Cell[BoxData[{ RowBox[{ RowBox[{"vectorColor", "=", RowBox[{"GrayLevel", "[", ".25", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorThickness", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorLength", "=", "1"}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542610472934534*^9, 3.542610485539056*^9}, 3.542629683425688*^9, {3.542629788515388*^9, 3.542629843357823*^9}, 3.542629936727509*^9, {3.5426305965024443`*^9, 3.542630596666634*^9}, { 3.542630768056593*^9, 3.542630781413763*^9}, {3.5426308188219357`*^9, 3.542630819676693*^9}, {3.5426309936279173`*^9, 3.542631046442685*^9}, { 3.542631130888772*^9, 3.5426311309893723`*^9}, {3.5426312021188803`*^9, 3.542631218821184*^9}, {3.542631292850087*^9, 3.542631295236862*^9}, { 3.5426313749215317`*^9, 3.542631391385058*^9}, {3.542631525556471*^9, 3.542631525611051*^9}, 3.542631559645526*^9, {3.54263161813522*^9, 3.5426316183250732`*^9}, {3.542631656949834*^9, 3.5426316919834433`*^9}, { 3.542631795898533*^9, 3.542631806025426*^9}, {3.54265443067653*^9, 3.542654430726416*^9}, 3.542701377155899*^9, 3.542701443355908*^9, 3.542701519140325*^9, 3.542701564345977*^9, {3.54270203199935*^9, 3.542702034351056*^9}, {3.542702064625513*^9, 3.54270206467585*^9}, 3.542703196479574*^9, 3.60327928329139*^9}, CellLabel->"In[91]:=",ExpressionUUID->"0d4fc95f-f29f-4534-9c0a-72710b20c9d5"] }, Closed]], Cell[CellGroupData[{ Cell["Graph", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542372584454677*^9, 3.542372586253248*^9}, { 3.542486749293415*^9, 3.542486750445158*^9}, {3.5425441400489807`*^9, 3.5425441404008913`*^9}},ExpressionUUID->"bfabf9c8-bb7f-49d6-9506-\ e8054aa3294d"], Cell[BoxData[{ RowBox[{ RowBox[{"emptyGraph", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"Text", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", "frameLabel"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".02"}], ",", "1.02"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".02"}], ",", "1.02"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"graph", "=", "emptyGraph"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"graphData", "=", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"Text", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542114209123918*^9, 3.5421142337273293`*^9}, { 3.542125483885221*^9, 3.542125512533226*^9}, {3.542186777022978*^9, 3.5421868506338987`*^9}, {3.5421956826542397`*^9, 3.542195689891725*^9}, { 3.542195853521192*^9, 3.5421958540958853`*^9}, {3.542209383227*^9, 3.5422094735659037`*^9}, {3.5422095442074013`*^9, 3.542209556187562*^9}, { 3.542210964635131*^9, 3.542210994420401*^9}, {3.5422126704188643`*^9, 3.542212674632739*^9}, {3.542215702623069*^9, 3.542215705998301*^9}, { 3.542216611853569*^9, 3.542216619145137*^9}, {3.542218527262684*^9, 3.542218527810479*^9}, {3.542266706554159*^9, 3.542266720825139*^9}, { 3.5423037487421703`*^9, 3.542303749868702*^9}, {3.542320911168188*^9, 3.542320915141171*^9}, {3.542370367956244*^9, 3.542370368464259*^9}, { 3.5423718922860518`*^9, 3.542371911963272*^9}, {3.542371948115079*^9, 3.542371992692114*^9}, {3.542372242624189*^9, 3.542372268930881*^9}, 3.5423723278969593`*^9, {3.542372534672645*^9, 3.542372540334831*^9}, { 3.542372668311379*^9, 3.542372678092964*^9}, {3.542491919844503*^9, 3.542491921025796*^9}, {3.542693793941065*^9, 3.542693805599421*^9}, { 3.54270086146632*^9, 3.54270091469938*^9}, {3.542702367391436*^9, 3.54270237657482*^9}, {3.5428730848397093`*^9, 3.54287314290985*^9}, { 3.542873585879902*^9, 3.5428736061743183`*^9}, 3.542873643276498*^9, { 3.603277569068466*^9, 3.603277570275104*^9}, {3.6032784741291647`*^9, 3.603278475360215*^9}, {3.603278559447844*^9, 3.603278559888433*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"9654fde3-b99b-4427-bb80-800161a87aaa"] }, Closed]], Cell[CellGroupData[{ Cell["GUI Appearance", "Subsection", InitializationCell->True, CellChangeTimes->{{3.542114204797473*^9, 3.5421142069888678`*^9}, { 3.5421142472548647`*^9, 3.542114248683806*^9}, {3.542124707783696*^9, 3.542124715172132*^9}, {3.542212765809643*^9, 3.542212778305052*^9}, { 3.5422156971141987`*^9, 3.54221569910609*^9}, {3.5424523137272863`*^9, 3.542452330149179*^9}, {3.542609272405501*^9, 3.542609274725141*^9}},ExpressionUUID->"0855cac9-57fb-49a7-9b45-\ e820f55fdc95"], Cell[BoxData[{ RowBox[{ RowBox[{"GUIFont", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GUIStyle", "=", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", "13"}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542452676465818*^9, 3.5424526863222723`*^9}, { 3.542452738203547*^9, 3.542452738800344*^9}, {3.5424529145100737`*^9, 3.542452915556485*^9}, {3.542453341245738*^9, 3.542453377909575*^9}, { 3.542453424904121*^9, 3.542453425461022*^9}, {3.542453479494347*^9, 3.542453501712805*^9}, {3.542453553239623*^9, 3.5424535790620527`*^9}, { 3.54245383186626*^9, 3.5424539091992826`*^9}, {3.5424539943998938`*^9, 3.542453995137867*^9}, {3.542463446670792*^9, 3.5424635186611443`*^9}, { 3.603277576790731*^9, 3.603277577814886*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"b4341980-f8ab-4dae-a79f-5b73ae36b63c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["GUI Elements", "Section", InitializationCell->True, CellChangeTimes->{{3.542124747925885*^9, 3.542124751346841*^9}},ExpressionUUID->"200b5fd0-ee32-42b4-9ab7-\ d5feb84d4a3a"], Cell[CellGroupData[{ Cell["Initialize GUI", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5421125667043858`*^9, 3.5421125679263372`*^9}, { 3.542124755444015*^9, 3.54212478692277*^9}, {3.542197287512488*^9, 3.5421972896773977`*^9}},ExpressionUUID->"8887c700-0d58-422c-a77f-\ 1e855b7a55e7"], Cell[BoxData[ RowBox[{ RowBox[{"initializeButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"DefaultButton", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "Large"}], ",", "Bold"}], "]"}], ",", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameMargins", "\[Rule]", "7"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Bottom", ",", "Bottom"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542008139356289*^9, 3.542008191884327*^9}, { 3.542056130645294*^9, 3.542056135205523*^9}, {3.542111466880453*^9, 3.5421114806619673`*^9}, {3.542112071145363*^9, 3.542112071227975*^9}, { 3.542112371400381*^9, 3.542112382760854*^9}, {3.542116287559794*^9, 3.542116289220113*^9}, 3.542120987794565*^9, {3.542121022214335*^9, 3.542121030811316*^9}, {3.5421210777657747`*^9, 3.542121183603483*^9}, { 3.542125078538308*^9, 3.542125083290441*^9}, {3.542125140195331*^9, 3.5421251442749443`*^9}, {3.5422183696275063`*^9, 3.542218374202401*^9}, { 3.542218853626137*^9, 3.5422188552641993`*^9}, {3.542369770156135*^9, 3.542369781987702*^9}, {3.5423699066553497`*^9, 3.542369906797227*^9}, { 3.542452148615397*^9, 3.542452150117571*^9}, {3.5424523565477543`*^9, 3.5424523887400913`*^9}, {3.542452747748757*^9, 3.542452783627462*^9}, { 3.5424528139137373`*^9, 3.5424528580970783`*^9}, 3.542464650775139*^9}, CellLabel->"In[99]:=",ExpressionUUID->"f95ca8bb-4a22-4cde-bd0f-72be97a8c0df"] }, Closed]], Cell[CellGroupData[{ Cell["Payoffs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5421248214836397`*^9, 3.542124825057675*^9}, { 3.54212492323844*^9, 3.542124923591064*^9}},ExpressionUUID->"58864eb2-b931-46dd-975b-\ 4bc2f7e4a2a5"], Cell[BoxData[ RowBox[{ RowBox[{"player1Panel", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}], ",", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}], ",", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "2"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"2", "\[Rule]", ".75"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Center"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "100"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.541939070539384*^9, 3.541939207240048*^9}, { 3.541939253578566*^9, 3.541939521977744*^9}, {3.541939694511017*^9, 3.54193978146913*^9}, {3.541939875410797*^9, 3.541939879275029*^9}, { 3.541939936081815*^9, 3.541939999494933*^9}, {3.5419400824328957`*^9, 3.541940148003677*^9}, {3.541940203991208*^9, 3.5419402051233807`*^9}, { 3.5419402427923813`*^9, 3.541940265633403*^9}, {3.541940339788739*^9, 3.541940341461246*^9}, {3.541941280203188*^9, 3.5419412823153343`*^9}, 3.541942091407007*^9, {3.5419676254009438`*^9, 3.5419676269918547`*^9}, { 3.5419679877898483`*^9, 3.541968026118332*^9}, 3.5419684210734787`*^9, { 3.5419695810756598`*^9, 3.5419695821916313`*^9}, {3.541970570677094*^9, 3.541970572071019*^9}, {3.54197479859715*^9, 3.5419748032697687`*^9}, { 3.542008206349328*^9, 3.542008213011032*^9}, {3.542021361734445*^9, 3.542021413084816*^9}, {3.542021533329341*^9, 3.542021533406456*^9}, { 3.542055820970991*^9, 3.542055840896864*^9}, 3.542110957775188*^9, { 3.5421184490062637`*^9, 3.542118450088398*^9}, {3.5421189053961687`*^9, 3.5421190382686768`*^9}, {3.542119328410015*^9, 3.542119359187481*^9}, { 3.542119567299749*^9, 3.542119567571946*^9}, {3.54211976760347*^9, 3.54211979041201*^9}, {3.542119832056098*^9, 3.5421198363791943`*^9}, { 3.5422042239907503`*^9, 3.5422042242221003`*^9}, {3.542452150936036*^9, 3.542452151839665*^9}, 3.5424528980026417`*^9, {3.5424531346377172`*^9, 3.542453155092903*^9}, {3.542453191604457*^9, 3.542453192077677*^9}, { 3.5424646859009657`*^9, 3.542464734565168*^9}, {3.542464797798863*^9, 3.5424648925162563`*^9}}, CellLabel->"In[100]:=", CellID->1399983455,ExpressionUUID->"87b18a84-2f72-427d-a5d1-8c713debdd9c"], Cell[BoxData[ RowBox[{ RowBox[{"player2Panel", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}], ",", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}], ",", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"game", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "2"}], "\[RightDoubleBracket]"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"2", "\[Rule]", ".75"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Center"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "100"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.541969576195668*^9, 3.541969584899419*^9}, { 3.541974648730259*^9, 3.541974689352757*^9}, {3.5419747573036013`*^9, 3.541974780814354*^9}, {3.542021174641892*^9, 3.542021194512045*^9}, { 3.542021347468812*^9, 3.542021476609676*^9}, {3.5420215304330063`*^9, 3.542021530491385*^9}, {3.542055844338183*^9, 3.54205585016873*^9}, 3.542110961967609*^9, {3.5421184537991753`*^9, 3.542118454776435*^9}, { 3.542118908814886*^9, 3.542118909858733*^9}, {3.542119029612529*^9, 3.542119050477889*^9}, {3.542119230110228*^9, 3.5421192301820917`*^9}, { 3.542119354641865*^9, 3.542119356707756*^9}, {3.542119564733403*^9, 3.542119565399748*^9}, {3.5421198421282578`*^9, 3.542119847495899*^9}, { 3.542204217326887*^9, 3.5422042264939823`*^9}, {3.5422042723597107`*^9, 3.542204289332753*^9}, {3.5424521526636667`*^9, 3.5424521535276823`*^9}, 3.542452888469322*^9, {3.54245313306161*^9, 3.5424531874039297`*^9}, { 3.542464901017816*^9, 3.542464926603368*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"86801e78-dcd1-4ed7-871d-77cd1ba5af2c"] }, Closed]], Cell[CellGroupData[{ Cell["Plot Labels", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5421249617666273`*^9, 3.542124965493486*^9}, { 3.542125300784163*^9, 3.542125301372814*^9}, {3.542206806603387*^9, 3.542206812263095*^9}},ExpressionUUID->"c86397e6-09c0-4439-abad-\ fbb5c5429dfa"], Cell[BoxData[ RowBox[{ RowBox[{"labelPanel", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "plotLabel", "]"}], ",", "String", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "25"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FieldHint", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "xLabel", "]"}], ",", "String", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"44", ",", "25"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FieldHint", "\[Rule]", "\"\\""}]}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "yLabel", "]"}], ",", "String", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"45", ",", "25"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FieldHint", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"2", "\[Rule]", ".75"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"230", ",", "100"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542022045828849*^9, 3.5420221040727253`*^9}, { 3.542055922812344*^9, 3.5420559308282957`*^9}, {3.542117554102145*^9, 3.542117558687098*^9}, {3.542117613448451*^9, 3.5421176327681923`*^9}, { 3.5421192673839197`*^9, 3.542119267489326*^9}, {3.5421194392454157`*^9, 3.542119554825942*^9}, {3.5421195988654222`*^9, 3.542119599576009*^9}, { 3.542119897652326*^9, 3.542119898324183*^9}, {3.542119990963214*^9, 3.5421200326754827`*^9}, {3.54212006537208*^9, 3.5421201370657597`*^9}, { 3.5421253227817307`*^9, 3.542125323973139*^9}, {3.542125835075286*^9, 3.542125907811043*^9}, {3.5421259477136106`*^9, 3.542125948176527*^9}, { 3.5421259798360167`*^9, 3.542125987784816*^9}, {3.542126040286996*^9, 3.5421260489354467`*^9}, {3.542126187415351*^9, 3.542126322655057*^9}, { 3.5421263744621067`*^9, 3.542126387203341*^9}, {3.54212645193014*^9, 3.542126516600895*^9}, {3.542126638602244*^9, 3.542126761846175*^9}, 3.5421268081060266`*^9, {3.542186709414187*^9, 3.542186757682839*^9}, { 3.5421993026988564`*^9, 3.542199373450543*^9}, {3.542199920907043*^9, 3.5421999620994453`*^9}, {3.542202891734186*^9, 3.5422028947552977`*^9}, { 3.5422042439022818`*^9, 3.542204244110126*^9}, {3.542204429402463*^9, 3.5422045206480722`*^9}, {3.542204554296959*^9, 3.542204606023501*^9}, { 3.542204656997436*^9, 3.5422046571649933`*^9}, {3.542207239617588*^9, 3.542207258898492*^9}, {3.542214116105513*^9, 3.542214121033742*^9}, { 3.5422264077061977`*^9, 3.542226410265617*^9}, {3.542350847901616*^9, 3.542350903795223*^9}, {3.542452154382372*^9, 3.542452157417214*^9}, 3.542452889577982*^9, {3.5424531022473497`*^9, 3.5424531219343357`*^9}, { 3.542464941328704*^9, 3.542465064046224*^9}, {3.5424654310333443`*^9, 3.542465464689464*^9}, {3.542465569647904*^9, 3.542465591181198*^9}, { 3.5424656272212*^9, 3.542465652918909*^9}, 3.5424911467722816`*^9, { 3.5425196995691223`*^9, 3.542519705464035*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"bdf2c0de-5207-44db-920f-d51fcd8de501"] }, Closed]], Cell[CellGroupData[{ Cell["Initial points", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5421125780785303`*^9, 3.542112578638671*^9}, { 3.542124891073986*^9, 3.5421248945356817`*^9}, {3.5421249334474916`*^9, 3.542124935534871*^9}},ExpressionUUID->"d99d1ba8-ed7f-4dfc-8167-\ 1e222c4bdb66"], Cell[BoxData[ RowBox[{ RowBox[{"customInitialGridCheckbox", "=", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "customLatticeQ", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\""}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Baseline"}]}], "]"}]}], ";"}]], "Input",\ InitializationCell->True, CellChangeTimes->{{3.542462725854054*^9, 3.542462767604761*^9}, { 3.542462801198531*^9, 3.542462806779809*^9}, {3.5424629311590014`*^9, 3.542462996909264*^9}, {3.542463110211261*^9, 3.542463113146731*^9}, { 3.542463216771657*^9, 3.542463227813636*^9}, {3.542463308165455*^9, 3.542463314341877*^9}, {3.542463596874757*^9, 3.54246359701388*^9}, 3.5424637046662807`*^9}, CellLabel-> "In[103]:=",ExpressionUUID->"c63f757a-9246-4595-8eb1-7d9a9b9009f1"], Cell[BoxData[ RowBox[{ RowBox[{"randomInitialConditionsButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"customLatticePoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Random", "[", "]"}], ",", RowBox[{"Random", "[", "]"}]}], "}"}], ",", RowBox[{"{", "nRandomPoints", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input",\ InitializationCell->True, CellChangeTimes->{{3.5424575875605383`*^9, 3.542457627767337*^9}, { 3.5424576906540213`*^9, 3.542457701949666*^9}, {3.542457806179245*^9, 3.542457814726609*^9}, {3.542457897525154*^9, 3.542457910012701*^9}, { 3.542457968443742*^9, 3.542457974930657*^9}, 3.54245865133694*^9, { 3.542459194139894*^9, 3.542459197345578*^9}, {3.542462067731838*^9, 3.5424620678279457`*^9}, {3.5424621137447233`*^9, 3.54246213244841*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"af9dff56-c495-4cd2-a5e5-b2226f684cda"], Cell[BoxData[ RowBox[{ RowBox[{"interiorGridInitialConditionsButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"customLatticePoints", "=", RowBox[{"Flatten", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "dxCustom", ",", RowBox[{"1", "-", "dxCustom"}], ",", RowBox[{"2", "dxCustom"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"y", ",", "dyCustom", ",", RowBox[{"1", "-", "dyCustom"}], ",", RowBox[{"2", "dyCustom"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "]"}], "]"}]}], ";"}]], "Input",\ InitializationCell->True, CellChangeTimes->{{3.542459636684842*^9, 3.542459747827414*^9}, { 3.5424612646308947`*^9, 3.5424612829156303`*^9}, {3.5424620658215714`*^9, 3.542462065867194*^9}, {3.542462117235043*^9, 3.542462134576603*^9}, { 3.542462297025032*^9, 3.5424623191845493`*^9}, {3.542462501586082*^9, 3.54246259789371*^9}}, CellLabel-> "In[105]:=",ExpressionUUID->"620beca4-7087-4117-ab24-d775d2809c60"], Cell[BoxData[ RowBox[{ RowBox[{"customInitialConditionsDialog", "=", "\[IndentingNewLine]", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", "14", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "nRandomPoints", "]"}], ",", "Number", ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}], ",", RowBox[{"FieldHint", "\[Rule]", "\"\<#\>\""}]}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft", ",", "\[IndentingNewLine]", "randomInitialConditionsButton"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "dxCustom", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}], ",", RowBox[{"FieldHint", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "dyCustom", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "25"}], "}"}]}], ",", RowBox[{"FieldHint", "\[Rule]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", "interiorGridInitialConditionsButton"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "customLatticePoints", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"300", ",", "200"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "2"}], ",", RowBox[{"5", "\[Rule]", "1"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Center"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"boundary", ",", "grid", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Append", "[", "\[IndentingNewLine]", RowBox[{"latticePointStyle", ",", RowBox[{"Point", "[", "point", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"point", ",", "customLatticePoints"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "320"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"Left", ",", "Bottom"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Automatic", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "5"}], ",", RowBox[{"3", "\[Rule]", "1"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.54245404394543*^9, 3.5424540623385477`*^9}, { 3.542454100509452*^9, 3.5424541229037323`*^9}, {3.5424554016981163`*^9, 3.542455426142659*^9}, {3.542455751059577*^9, 3.5424557618486958`*^9}, { 3.542455797871112*^9, 3.5424558213191357`*^9}, {3.542456953576973*^9, 3.542456954326706*^9}, {3.542457005113779*^9, 3.542457079344743*^9}, { 3.542457110805396*^9, 3.542457111381072*^9}, {3.542457152646913*^9, 3.542457211181652*^9}, {3.5424572461170053`*^9, 3.542457347552384*^9}, { 3.542457481238472*^9, 3.542457585453087*^9}, {3.542457739605957*^9, 3.542457778130288*^9}, {3.5424578245819597`*^9, 3.542457868086788*^9}, { 3.542457921552335*^9, 3.542458000357774*^9}, {3.542458052221122*^9, 3.54245805678881*^9}, {3.542458200287085*^9, 3.5424582237623167`*^9}, { 3.542458255235115*^9, 3.542458521654436*^9}, {3.542458580855115*^9, 3.542458601876628*^9}, {3.542458781847925*^9, 3.542458790165846*^9}, { 3.542458947603113*^9, 3.542458974700746*^9}, {3.5424590242611856`*^9, 3.542459030887487*^9}, {3.542459121123283*^9, 3.542459134129601*^9}, { 3.542459281326034*^9, 3.54245930703973*^9}, {3.542459385003572*^9, 3.542459503215685*^9}, {3.542459552318717*^9, 3.5424595608321533`*^9}, { 3.5424597645799847`*^9, 3.542459768817438*^9}, {3.5424597998156157`*^9, 3.542459799989759*^9}, {3.542461326841037*^9, 3.542461360039637*^9}, { 3.542461403708282*^9, 3.5424614531322203`*^9}, {3.542461535944789*^9, 3.5424616059337397`*^9}, {3.5424617067262506`*^9, 3.5424618374993067`*^9}, {3.542461919810911*^9, 3.542461929590785*^9}, 3.542461959890266*^9, {3.542462015030602*^9, 3.54246202406627*^9}, { 3.542462055452849*^9, 3.5424621582443113`*^9}, {3.542462216778081*^9, 3.5424622860800343`*^9}, {3.542462367651655*^9, 3.542462465882565*^9}, { 3.542463497373884*^9, 3.542463531397139*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"4f08ee6f-5375-4a43-a88c-1d1c64dcae7d"], Cell[BoxData[ RowBox[{ RowBox[{"customInitialConditionsButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"CreateWindow", "[", "\[IndentingNewLine]", RowBox[{"DialogNotebook", "[", "customInitialConditionsDialog", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542452109110985*^9, 3.542452140522553*^9}, { 3.54245227855962*^9, 3.5424522859731913`*^9}, {3.542454020951433*^9, 3.5424540270209417`*^9}, {3.542454129760491*^9, 3.542454165048324*^9}, { 3.542458559092787*^9, 3.542458564861885*^9}, 3.542458639825768*^9, 3.5424587103192043`*^9, {3.542458805873302*^9, 3.542458811214472*^9}, { 3.542458844113044*^9, 3.542458845789515*^9}, {3.54245887614321*^9, 3.5424588804451923`*^9}, {3.5424591241085052`*^9, 3.542459124690941*^9}, { 3.54245953674804*^9, 3.54245954281533*^9}, {3.542463141023439*^9, 3.542463154509956*^9}, {3.542463237970862*^9, 3.5424632603991528`*^9}, { 3.542463639599979*^9, 3.542463644429624*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"fa2b4b3c-c5ec-4201-94a0-68e888d0d078"], Cell[BoxData[ RowBox[{ RowBox[{"latticePanel", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "dx", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "25"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "dy", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "25"}], "}"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "customInitialGridCheckbox", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "customInitialConditionsButton", ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Spacings", "\[Rule]", " ", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "1"}], ",", RowBox[{"3", "\[Rule]", ".75"}], ",", RowBox[{"4", "\[Rule]", "0"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "125"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "GUIStyle"}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5419742229626017`*^9, 3.541974241856515*^9}, { 3.5419745526986628`*^9, 3.541974554904562*^9}, {3.541974594167836*^9, 3.541974642830024*^9}, {3.541974730086203*^9, 3.541974734907877*^9}, { 3.541974832408985*^9, 3.54197496694561*^9}, {3.541974999480666*^9, 3.54197510480611*^9}, {3.541975141629735*^9, 3.541975182365683*^9}, { 3.541975416527315*^9, 3.541975418686625*^9}, {3.542014366073197*^9, 3.542014400456119*^9}, {3.5420148429212303`*^9, 3.542014843177578*^9}, { 3.542021104021749*^9, 3.542021138406433*^9}, {3.542021204040053*^9, 3.54202124980827*^9}, {3.5420213033224487`*^9, 3.5420213292501802`*^9}, 3.5420214885124893`*^9, {3.5420215263037453`*^9, 3.5420215263552437`*^9}, { 3.542055854184597*^9, 3.542055860159108*^9}, {3.542111213215283*^9, 3.542111237592881*^9}, {3.542111289745583*^9, 3.542111303104436*^9}, { 3.542118458663762*^9, 3.542118459034514*^9}, {3.542118692653494*^9, 3.542118763740698*^9}, {3.542118797681738*^9, 3.542118805744214*^9}, { 3.542119233717937*^9, 3.54211925477667*^9}, {3.542119295450226*^9, 3.542119310081767*^9}, {3.542119557943541*^9, 3.542119558291622*^9}, { 3.542119856677994*^9, 3.542119888020319*^9}, 3.54212494787843*^9, { 3.542204236812668*^9, 3.54220423704422*^9}, {3.54220432073097*^9, 3.542204424064559*^9}, 3.5422084376237993`*^9, {3.542375755198408*^9, 3.542375755562723*^9}, {3.542398221043429*^9, 3.542398223337493*^9}, { 3.5423982586980133`*^9, 3.542398301539157*^9}, 3.542398467785829*^9, { 3.54239853259601*^9, 3.542398625417392*^9}, {3.542398899725007*^9, 3.542398900670698*^9}, {3.5424521602433167`*^9, 3.54245216142498*^9}, 3.542452891567594*^9, {3.542453020936404*^9, 3.542453060550356*^9}, { 3.5424630086268463`*^9, 3.542463072087574*^9}, {3.542463159216784*^9, 3.5424632034606447`*^9}, {3.5424632680861473`*^9, 3.542463294395132*^9}, { 3.5424633587950993`*^9, 3.542463404581727*^9}, {3.542463549020225*^9, 3.542463585518786*^9}, 3.5424636890018063`*^9, {3.542465481432444*^9, 3.542465539693531*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"e830b649-52c3-49a1-868f-6fde715863e9"] }, Closed]], Cell[CellGroupData[{ Cell["Dynamics control panel", "Subsection", InitializationCell->True, CellChangeTimes->{{3.5421125667043858`*^9, 3.5421125679263372`*^9}, { 3.542124835105777*^9, 3.5421248380895147`*^9}, {3.542124926591394*^9, 3.542124926902627*^9}, {3.54263257248636*^9, 3.542632573550102*^9}, { 3.542697967068883*^9, 3.542697967524837*^9}, {3.542700955282394*^9, 3.542700956274362*^9}},ExpressionUUID->"88c4e679-dd40-42ed-b75c-\ 26055192a047"], Cell[BoxData[ RowBox[{ RowBox[{"timeField", "=", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "time", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5423846878257723`*^9, 3.542384701178359*^9}, 3.542384796068492*^9, {3.542386032052648*^9, 3.542386038884444*^9}, { 3.542386119842544*^9, 3.5423861200259323`*^9}, {3.5423862692220707`*^9, 3.542386272229025*^9}, 3.542386700967762*^9, {3.542656631144507*^9, 3.542656636963049*^9}, {3.5426566691073103`*^9, 3.542656679972722*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"a7963a39-a62f-448d-bb79-bb08c061f361"], Cell[BoxData[ RowBox[{ RowBox[{"temperatureField", "=", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "temperature", "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5423847315233*^9, 3.542384744685319*^9}, { 3.542384797444461*^9, 3.542384805596518*^9}, {3.542386045102252*^9, 3.54238605429633*^9}, {3.542386111514092*^9, 3.542386122858116*^9}, { 3.54238630515768*^9, 3.542386314172181*^9}, 3.54238670274918*^9, { 3.5426566403153467`*^9, 3.542656684362907*^9}, {3.544127773029595*^9, 3.544127773445376*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"211796f1-cf17-494c-9a65-2943f5144965"], Cell[BoxData[ RowBox[{ RowBox[{"orderBar", "=", RowBox[{"SetterBar", "[", RowBox[{ RowBox[{"Dynamic", "[", "order", "]"}], ",", RowBox[{"Range", "[", "2", "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542384756051668*^9, 3.5423847603385677`*^9}, { 3.542386062290797*^9, 3.542386101277075*^9}, {3.542386283275969*^9, 3.542386284277261*^9}, {3.542386317799893*^9, 3.542386320748045*^9}, { 3.542656750888586*^9, 3.542656760369671*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"1451e7e5-a24c-4bf0-b7e3-2c0606bb9014"], Cell[BoxData[{ RowBox[{ RowBox[{"calculateOrbitsControl", "=", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "calculateOrbitsFlag", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], "}"}], ",", "\"\< \>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"calculateRestpointsControl", "=", RowBox[{"Row", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "calculateRestpointsFlag", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], "}"}], ",", "\"\< \>\""}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.542632640644004*^9, 3.542632693719531*^9}, { 3.542632768185763*^9, 3.542632768496767*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"442ffe85-508d-4b2c-83c7-8cf793969794"], Cell[BoxData[ RowBox[{ RowBox[{"dynamicsMenu", "=", RowBox[{"PopupMenu", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", "dynamics", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ "\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"220", ",", "Automatic"}], "}"}]}]}], "]"}]}], ";"}]], "Input",\ InitializationCell->True, CellChangeTimes->{{3.542025584673839*^9, 3.542025634485441*^9}, { 3.542025685649692*^9, 3.542025699841566*^9}, {3.542025755115526*^9, 3.542025771472948*^9}, {3.542025925024036*^9, 3.542025973424987*^9}, { 3.542055934458783*^9, 3.542055938611084*^9}, {3.542112084755683*^9, 3.542112109003188*^9}, {3.542112344070524*^9, 3.542112357606841*^9}, { 3.542119218779303*^9, 3.542119219923592*^9}, {3.542142186596815*^9, 3.542142213950067*^9}, {3.542198024885914*^9, 3.5421980268350983`*^9}, { 3.542198132525647*^9, 3.54219816612424*^9}, 3.5421986967123547`*^9, { 3.542199609132683*^9, 3.542199610284404*^9}, {3.542199760601182*^9, 3.542199760768865*^9}, {3.542204842587326*^9, 3.542204843722889*^9}, { 3.5422670860906887`*^9, 3.5422670985632343`*^9}, {3.542267136823694*^9, 3.5422671399793243`*^9}, {3.542315588418401*^9, 3.5423155951176777`*^9}, { 3.54231692555252*^9, 3.542316945232682*^9}, {3.542319408456358*^9, 3.542319408833488*^9}, {3.542347622738953*^9, 3.542347637902238*^9}, { 3.5423754569338627`*^9, 3.5423754650878553`*^9}, {3.542380574905957*^9, 3.54238061769242*^9}, {3.542385768669606*^9, 3.542385788734405*^9}, { 3.542385881185689*^9, 3.5423858812494297`*^9}, {3.5423859461454268`*^9, 3.5423859547442007`*^9}, {3.542391207035653*^9, 3.5423912073708677`*^9}, { 3.5423914656358747`*^9, 3.542391471501705*^9}, {3.5424521624376507`*^9, 3.542452175453727*^9}, {3.542452891827351*^9, 3.54245289344357*^9}, { 3.5426568789077187`*^9, 3.542656885026273*^9}, {3.54265698592015*^9, 3.542656986389352*^9}, {3.542657019982152*^9, 3.542657025789716*^9}, { 3.5426572688355837`*^9, 3.5426572811461773`*^9}, {3.5431770567934504`*^9, 3.5431770700581703`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"e5ee8f0e-7e1b-4df3-b005-00bebdf7c2e5"], Cell[BoxData[ RowBox[{ RowBox[{"inputDynamicsButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Button", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"CreateDialog", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"dynamics", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"CustomField", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"{", RowBox[{"xCustomField", ",", "yCustomField"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(V\), \(x\)]\) \>\"", ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{"Dynamic", "[", "xCustomField", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(V\), \(y\)]\) \>\"", ",", "\[IndentingNewLine]", RowBox[{"InputField", "[", RowBox[{"Dynamic", "[", "yCustomField", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"DefaultButton", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"DialogReturn", "[", RowBox[{"{", RowBox[{"xCustomField", ",", "yCustomField"}], "}"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}]}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"CustomField", "[", RowBox[{"xx_", ",", "yy_"}], "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"xCustomField", ",", "yCustomField"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xx"}], ",", RowBox[{"y", "\[Rule]", "yy"}]}], "}"}]}]}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5423742231946373`*^9, 3.5423742339897614`*^9}, { 3.5423743258246927`*^9, 3.542374362772109*^9}, {3.5423743961363783`*^9, 3.542374443354178*^9}, {3.542374586056849*^9, 3.5423746075781918`*^9}, { 3.542374655175756*^9, 3.5423746873560658`*^9}, {3.5423747461733723`*^9, 3.542374786623171*^9}, {3.542374914894545*^9, 3.542374922122877*^9}, { 3.542374982923813*^9, 3.5423749831082773`*^9}, {3.542375017471505*^9, 3.54237502662472*^9}, 3.542375222710053*^9, {3.542385798419611*^9, 3.54238580701945*^9}, {3.542385878357965*^9, 3.542385878415679*^9}, { 3.542442437281947*^9, 3.542442442423188*^9}, {3.542452176292573*^9, 3.5424521771183968`*^9}, 3.542452893728675*^9, {3.5424532529688396`*^9, 3.542453280750784*^9}, {3.542656891149852*^9, 3.542656891723171*^9}, { 3.5426573620412197`*^9, 3.54265736231282*^9}, {3.5426583018948803`*^9, 3.542658303398267*^9}, {3.542658401503154*^9, 3.542658422807146*^9}, { 3.542658569134428*^9, 3.542658584938566*^9}, {3.542698435303122*^9, 3.54269843569456*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"3e5c68b3-94ef-4234-b794-fd9fdfc46ef2"], Cell[BoxData[ RowBox[{ RowBox[{"updateButton", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"DefaultButton", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", "GUIFont"}], ",", "Bold", ",", "14"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}]}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.542008823116826*^9, 3.542008849635194*^9}, { 3.542008916781661*^9, 3.54200892289186*^9}, {3.542008955331334*^9, 3.54200895932296*^9}, {3.5420092655127153`*^9, 3.5420092855288973`*^9}, { 3.54200947077275*^9, 3.542009478836053*^9}, {3.542009523287513*^9, 3.5420095569805737`*^9}, {3.542009606563909*^9, 3.542009617200676*^9}, { 3.5420096498180437`*^9, 3.542009719586606*^9}, {3.5420097639543457`*^9, 3.5420097646556263`*^9}, {3.542009794888055*^9, 3.542009806348448*^9}, { 3.542009873173791*^9, 3.542009880222866*^9}, {3.54200991980322*^9, 3.542009920261422*^9}, {3.5420100478862333`*^9, 3.542010153745015*^9}, { 3.542010215137937*^9, 3.542010259247587*^9}, {3.5420104139862843`*^9, 3.542010430206853*^9}, {3.542010464360447*^9, 3.5420104988055468`*^9}, { 3.542010532344253*^9, 3.5420105350044193`*^9}, {3.542010603711442*^9, 3.5420106042157707`*^9}, {3.54201408563002*^9, 3.542014142977057*^9}, { 3.542014184698943*^9, 3.5420142617355213`*^9}, {3.542014320456093*^9, 3.54201432090025*^9}, {3.54201492331236*^9, 3.542014947378417*^9}, { 3.542014989100408*^9, 3.542015036302374*^9}, {3.5420150832181396`*^9, 3.542015090453433*^9}, {3.542015127894505*^9, 3.542015145126017*^9}, { 3.5420152195107803`*^9, 3.542015292229883*^9}, {3.5420153328601227`*^9, 3.542015365234063*^9}, {3.542015400241273*^9, 3.5420154036168423`*^9}, { 3.54201554244731*^9, 3.542015602039*^9}, {3.5420156416169367`*^9, 3.542015643818597*^9}, {3.542015811843211*^9, 3.5420158124267263`*^9}, { 3.542015842506423*^9, 3.542015888449603*^9}, {3.542015962825626*^9, 3.542015965713859*^9}, 3.5420160014322157`*^9, {3.542016176930276*^9, 3.542016183599118*^9}, {3.542016251778442*^9, 3.542016259217046*^9}, { 3.542016455043385*^9, 3.542016458101014*^9}, {3.542016661056858*^9, 3.5420166618616056`*^9}, {3.542016698809277*^9, 3.542016744274*^9}, { 3.542016788942984*^9, 3.542016793968543*^9}, {3.542016833655723*^9, 3.542016860372876*^9}, 3.542016926427052*^9, {3.5420171297109537`*^9, 3.542017195592621*^9}, {3.5420225961213827`*^9, 3.5420226031853228`*^9}, { 3.542022660083041*^9, 3.5420226607932463`*^9}, {3.542055960806119*^9, 3.5420559654038467`*^9}, {3.542111431496545*^9, 3.5421114477704287`*^9}, { 3.542111499521721*^9, 3.542111500352754*^9}, {3.542111558512838*^9, 3.542111558828993*^9}, {3.542111665569399*^9, 3.542111666180554*^9}, { 3.54211174221173*^9, 3.542111743542981*^9}, {3.542112068536768*^9, 3.5421120685903587`*^9}, {3.542112311004147*^9, 3.542112340947175*^9}, { 3.542114153790496*^9, 3.5421141548301907`*^9}, {3.542114269162146*^9, 3.5421142765176353`*^9}, {3.5421162707902412`*^9, 3.542116297269413*^9}, { 3.5421163810774517`*^9, 3.542116381884432*^9}, {3.5421167496031837`*^9, 3.5421167498906307`*^9}, {3.542198517480571*^9, 3.542198519232028*^9}, { 3.542198980347393*^9, 3.542198980891189*^9}, {3.542199444911437*^9, 3.542199454339128*^9}, {3.542199488169148*^9, 3.542199488904859*^9}, { 3.542199709735312*^9, 3.542199754180798*^9}, 3.5421997875796137`*^9, { 3.542199859355813*^9, 3.5421998598093767`*^9}, {3.5422000042603683`*^9, 3.5422000122656803`*^9}, {3.542202332996072*^9, 3.542202354363611*^9}, { 3.542202446121632*^9, 3.5422024512730637`*^9}, {3.542204149735042*^9, 3.542204150205598*^9}, {3.542204730226173*^9, 3.542204732209591*^9}, { 3.542208712204063*^9, 3.5422087128112383`*^9}, {3.542212639381184*^9, 3.5422126463886213`*^9}, {3.542267063814021*^9, 3.5422670644222803`*^9}, 3.542350974896348*^9, {3.54235116678335*^9, 3.542351168565629*^9}, { 3.54237202704452*^9, 3.54237203239522*^9}, {3.542385646818487*^9, 3.542385706463376*^9}, 3.542385757226461*^9, {3.542385826775839*^9, 3.542385845168251*^9}, {3.542389333684367*^9, 3.542389334083667*^9}, { 3.542389635110806*^9, 3.542389637020369*^9}, {3.542390579424221*^9, 3.542390605152178*^9}, {3.5424521779381104`*^9, 3.5424521802180843`*^9}, 3.5424528940474997`*^9, {3.5424529507374783`*^9, 3.542452981645248*^9}, { 3.542453217983876*^9, 3.5424532225673027`*^9}, {3.542546185881008*^9, 3.542546195258666*^9}, {3.5425468858756237`*^9, 3.542546906508605*^9}, { 3.5425469514564247`*^9, 3.542546958385233*^9}, {3.542656896839724*^9, 3.542656897399025*^9}, {3.542657411947481*^9, 3.5426574125957537`*^9}, { 3.542658384549155*^9, 3.542658387054058*^9}, {3.5426973667015133`*^9, 3.542697368101038*^9}, {3.542697855030694*^9, 3.54269788995914*^9}, { 3.542698289864072*^9, 3.542698290519414*^9}, {3.5427003759435787`*^9, 3.5427004053636293`*^9}, {3.542700435980556*^9, 3.542700438044099*^9}, { 3.5427009829439363`*^9, 3.542700994920001*^9}, {3.542701237692116*^9, 3.542701238329031*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"d4840a73-bf8c-4caa-8daa-dcee8477875c"], Cell[BoxData[ RowBox[{ RowBox[{"dynamicsPanel", "=", RowBox[{"Deploy", "[", "\[IndentingNewLine]", RowBox[{"Panel", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", "orderBar", ",", "\[IndentingNewLine]", "dynamicsMenu", ",", "SpanFromLeft"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", "temperatureField", ",", "\[IndentingNewLine]", "calculateRestpointsControl", ",", "\[IndentingNewLine]", "inputDynamicsButton"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\