(* 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[ 1536623, 45341] NotebookOptionsPosition[ 1332377, 40576] NotebookOutlinePosition[ 1502022, 44279] CellTagsIndexPosition[ 1501372, 44259] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Dynamo 3S (v. 1.3)\nDiagrams for Evolutionary Game \ Dynamics", FontFamily->"Palatino"]], "Title", CellChangeTimes->{{3.511176603344358*^9, 3.511176655163392*^9}, 3.511176733945574*^9, {3.523732762536275*^9, 3.523732762664701*^9}, 3.557826538540789*^9, 3.562355484500728*^9, 3.582114030130237*^9, 3.582291505543871*^9}, TextAlignment->Center, FontSize->32, FontColor->GrayLevel[1], Background->RGBColor[0.4088197146562905, 0.7171587701228351, 1.], CellTags->"opengroup"], Cell[CellGroupData[{ Cell["\<\ When you have finished specifying parameters, click on the rightmost vertical \ bar and press Enter (or Shift-Enter) to run the program.\ \>", "Text", Evaluatable->False, FontFamily->"Palatino", FontSize->14], Cell[BoxData[{ RowBox[{ RowBox[{"avoiderroronremove", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Unprotect", "[", "Xt", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Remove", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{ 3.4883772540497675`*^9, {3.4883773166698103`*^9, 3.4883773200546775`*^9}, { 3.4883775117534704`*^9, 3.488377528692562*^9}, 3.4883776090481634`*^9, { 3.488377972862069*^9, 3.4883780643035555`*^9}, {3.488378297794034*^9, 3.488378299646698*^9}, 3.488378823900538*^9, 3.488385795853469*^9, { 3.4883859813501997`*^9, 3.4883860020099072`*^9}, {3.4883860528430014`*^9, 3.4883860905972896`*^9}, 3.488416188408044*^9, {3.58048713342305*^9, 3.580487137997472*^9}}, CellTags->"notopen"], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{ 3.4883772540497675`*^9, {3.4883773166698103`*^9, 3.4883773200546775`*^9}, { 3.4883775117534704`*^9, 3.488377528692562*^9}, 3.4883776090481634`*^9, { 3.488377972862069*^9, 3.4883780643035555`*^9}, {3.488378297794034*^9, 3.488378299646698*^9}, 3.488378823900538*^9, 3.488385795853469*^9, { 3.4883859813501997`*^9, 3.4883860020099072`*^9}, {3.4883860528430014`*^9, 3.4883860905972896`*^9}, 3.488416188408044*^9}, CellTags->"notopen"] }, Closed]], Cell[CellGroupData[{ Cell["User-defined Parameters", "Subtitle", CellDingbat->None, CellChangeTimes->{{3.5406674114052305`*^9, 3.540667411627243*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Choice of game", "Section"]], "Section", Evaluatable->False, CellChangeTimes->{{3.4749174046079693`*^9, 3.4749174059098415`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["Functional form", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, 3.51006963366746*^9}, CellTags->"corecell"], Cell[TextData[{ StyleBox["Select the Functional form of the game. To choose a nonlinear gam", Evaluatable->True], "e, you must define ", StyleBox["F[x_]", FontWeight->"Bold"], " accordingly. In doing so, the components of x should be entered as \ x[[1]], x[[2]], and x[[3]]. To help with the structure of the definition \ general presets are built in the buttons below. By hitting the congestion or \ quadratic buttons the structure appears after \"F[x_]:=\" below. The default \ value of F[x_] is A.x, the payoff vector field for the normal form game with \ payoff matrix A." }], "Text", Evaluatable->False, CellChangeTimes->{{3.481416137684971*^9, 3.481416148370336*^9}, { 3.481416185764106*^9, 3.481416344882907*^9}, 3.481416391519968*^9, { 3.481815812928955*^9, 3.481815825497027*^9}, {3.481815888277301*^9, 3.4818160139780493`*^9}, {3.4818888098052845`*^9, 3.481888810716595*^9}, 3.481894204638324*^9, 3.488628426477378*^9, {3.5130191827495327`*^9, 3.513019183580728*^9}, 3.5212850123925147`*^9}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "textsl", ",", "names", " ", ",", "texts", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowt", ",", "name", ",", "text", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"textsl", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"Join", "[", RowBox[{"texts", ",", RowBox[{"{", "rowt", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", "text", "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"120", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"text", "->", RowBox[{ RowBox[{"texts", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", " ", "[", " ", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818119966889615`*^9, 3.481812002957976*^9}, {3.481812105737727*^9, 3.481812272981318*^9}, { 3.4818124484235916`*^9, 3.481812457366451*^9}, {3.481812498485577*^9, 3.481812523040886*^9}, {3.4818125683860893`*^9, 3.4818125706493435`*^9}, { 3.481812612139003*^9, 3.481812639708646*^9}, {3.4818128485990157`*^9, 3.481812864662113*^9}, {3.4818129721767116`*^9, 3.4818130553963757`*^9}, { 3.4818132379588876`*^9, 3.4818133245333757`*^9}, {3.481813355407771*^9, 3.4818133663935676`*^9}, 3.4818134196132183`*^9, {3.4818134879827776`*^9, 3.481813489202236*^9}, {3.4818136452104654`*^9, 3.481813661273563*^9}, { 3.4818137634451456`*^9, 3.481813778596933*^9}, {3.4818140028480997`*^9, 3.481814031477353*^9}, {3.481814092975784*^9, 3.4818141259632177`*^9}, { 3.4818141856590557`*^9, 3.4818141929395247`*^9}, {3.4818142536968894`*^9, 3.481814383273211*^9}, {3.4818144211176286`*^9, 3.4818145387768145`*^9}, { 3.4818146624446397`*^9, 3.4818146646778507`*^9}, {3.48181469749504*^9, 3.4818147106439466`*^9}, {3.4818888661262703`*^9, 3.481888873416754*^9}, { 3.481893160246562*^9, 3.481893161117815*^9}, {3.4818932673806133`*^9, 3.481893309060546*^9}, {3.481893407021407*^9, 3.481893454229288*^9}, 3.4818939490808496`*^9, {3.5079816438177133`*^9, 3.507981644418577*^9}, { 3.5079816830090675`*^9, 3.507981699893346*^9}, {3.5079830585369797`*^9, 3.5079830589876275`*^9}, {3.507983372878981*^9, 3.507983373329629*^9}, { 3.5079854894925766`*^9, 3.5079854921514*^9}, {3.507985524718229*^9, 3.507985682595245*^9}, {3.539692463930496*^9, 3.5396924918480587`*^9}, { 3.539692593214583*^9, 3.539692593706407*^9}, {3.5397198530389843`*^9, 3.539719856519926*^9}, {3.56500177685438*^9, 3.565001777448216*^9}, { 3.569266244310647*^9, 3.569266261725143*^9}, {3.569280032875381*^9, 3.569280105706233*^9}, {3.5692801380666*^9, 3.569280250659495*^9}, { 3.569280657752921*^9, 3.56928065965056*^9}, {3.569280753871719*^9, 3.569280797333408*^9}, {3.569670654366118*^9, 3.569670667328805*^9}, { 3.571861959311717*^9, 3.571861961216567*^9}, 3.571862485631228*^9, 3.580648218346193*^9, 3.580648255404313*^9, {3.580648317854068*^9, 3.580648388939804*^9}, {3.580650229858484*^9, 3.58065023473296*^9}, { 3.580650648322659*^9, 3.58065067586012*^9}, {3.580652774830849*^9, 3.580652775725724*^9}, {3.580653852131587*^9, 3.58065385290289*^9}, { 3.580662840171053*^9, 3.580662841798962*^9}, {3.614426653187744*^9, 3.614426654195333*^9}, {3.61442794519296*^9, 3.614427949846928*^9}}, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Normal Form/Linear\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F[x_]:=A.x;\ngamekind=NormalGame;"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Quadratic\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F[x_]:=Table[x.Q[[j]].x,{j,Dimensions[x][[1]]}]+L.x+\ Transpose[B][[1]];\ngamekind=QuadraticGame;"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Congestion\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F[x_]:=Table[-Table[Sum[congestionCost[\[CapitalPhi][p][j][\ [k]]][u[\[CapitalPhi][j][k],x]],{k,Dimensions[\[CapitalPhi][p][j]][[1]]}],{j,\ dim[[p]]}],{p,pop}];\ngamekind=CongestionGame;"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", CellOpen->True, CellChangeTimes->{3.580662888810305*^9, 3.614426662496563*^9, 3.614427954899235*^9}, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}] }, {2}]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{"A", ".", "x"}]}], ";"}], "\n", RowBox[{ RowBox[{"gamekind", "=", "NormalGame"}], ";"}]}], "Input", CellChangeTimes->{{3.481406901042785*^9, 3.481406903496313*^9}, 3.48141121375416*^9, 3.481411283644657*^9, 3.4814113150498157`*^9, 3.4814114013038425`*^9, {3.4814114367147613`*^9, 3.4814114648952827`*^9}, { 3.4814115342850604`*^9, 3.4814115771667213`*^9}, {3.481411716106507*^9, 3.4814117225557804`*^9}, 3.481411785155795*^9, {3.4814118307914157`*^9, 3.48141185408491*^9}, 3.4814119277007647`*^9, {3.4814158208293552`*^9, 3.4814158268179665`*^9}, {3.48141641760748*^9, 3.4814164204215264`*^9}, { 3.481422160477479*^9, 3.4814221633616257`*^9}, {3.4814831639763174`*^9, 3.4814831655385637`*^9}, {3.4818146408836365`*^9, 3.4818146715877867`*^9}, 3.481818277853342*^9, 3.481888879785912*^9, 3.481894604823762*^9, { 3.4818954094607735`*^9, 3.4818954163506804`*^9}, {3.539692497795765*^9, 3.5396924992956142`*^9}, 3.5396926163873453`*^9, {3.554551373113027*^9, 3.554551394400234*^9}, 3.5575846681359797`*^9, {3.569280273232998*^9, 3.569280366586455*^9}, {3.569280429513154*^9, 3.569280438437691*^9}, { 3.569280818346901*^9, 3.569280825670629*^9}, {3.569411067724975*^9, 3.569411072753472*^9}, {3.569666972487743*^9, 3.569666973277941*^9}, { 3.569670636783333*^9, 3.569670642980488*^9}, {3.569670829858846*^9, 3.569670841413362*^9}, 3.569672755846156*^9, {3.569672799307453*^9, 3.569672804663286*^9}, {3.571861968444797*^9, 3.571861969945713*^9}, { 3.571862489412906*^9, 3.571862503397761*^9}, 3.580470205681962*^9, 3.580486633573075*^9, 3.580486937542812*^9, 3.580486987478326*^9, 3.5805866733186707`*^9, 3.5805867687781305`*^9, 3.580586803082093*^9, 3.5805869148284845`*^9, 3.5805869476393614`*^9, 3.580587237042914*^9, 3.580587311814191*^9, {3.580639677940583*^9, 3.580639683269971*^9}, 3.580639716633665*^9, {3.580639779549261*^9, 3.580639807340672*^9}, { 3.580640337269999*^9, 3.580640370500751*^9}, {3.580640465631046*^9, 3.580640481959021*^9}, {3.580640841211193*^9, 3.580640845084901*^9}, 3.580640946344134*^9, 3.580647860291951*^9, {3.580647903247172*^9, 3.58064791292708*^9}, {3.580648395113552*^9, 3.580648400747552*^9}, 3.580649518232785*^9, 3.580649615597626*^9, 3.580650967188645*^9, 3.580652128893402*^9, 3.580652166472628*^9, 3.580652333742635*^9, { 3.580652737424567*^9, 3.580652738793017*^9}, {3.580652821553707*^9, 3.58065282217508*^9}, {3.580652899563259*^9, 3.580652902410617*^9}, 3.580653317709635*^9, {3.58065378525423*^9, 3.580653786198416*^9}, 3.580653858018275*^9, {3.580662604572067*^9, 3.580662606799676*^9}, { 3.580662903086906*^9, 3.580662904973946*^9}, 3.61442648877877*^9, { 3.614426670442037*^9, 3.614426674807308*^9}, {3.614426755550535*^9, 3.614426759804838*^9}, {3.614426902136383*^9, 3.614426913266182*^9}, { 3.614426995090044*^9, 3.6144270042104*^9}, {3.614427065771215*^9, 3.614427113577318*^9}, {3.614427144984313*^9, 3.61442715946927*^9}, { 3.61442719183323*^9, 3.614427230502043*^9}, {3.61442765685881*^9, 3.614427658109795*^9}, 3.614427835304022*^9, 3.614427963512967*^9, 3.614428079111602*^9}, CellTags->{"corecell", "unique_payofffunction"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Payoff-related definitions", FontSlant->"Italic"]], "SmallText", CellTags->"corecell"], Cell[CellGroupData[{ Cell["The multi population payoff", "Subsubsection", CellChangeTimes->{{3.569672869024912*^9, 3.569672871980207*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"gamekind", "==", "NormalGame"}], ",", "\[IndentingNewLine]", RowBox[{"gamekind", "==", "QuadraticGame"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fmp", "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{"F", "[", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "}"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fmp", "[", "x_", "]"}], ":=", RowBox[{"F", "[", "x", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.569672332033369*^9, 3.569672375334008*^9}, { 3.569672722192605*^9, 3.569672783584934*^9}, {3.569746199920973*^9, 3.569746286903942*^9}, {3.58064850623261*^9, 3.580648507497012*^9}, { 3.58065118818461*^9, 3.580651202532058*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["The population's average payoff", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4928186346660337`*^9, {3.5079830590026493`*^9, 3.5079830590176706`*^9}, { 3.5079833733596725`*^9, 3.507983373374694*^9}, {3.5079857066448264`*^9, 3.507985711947451*^9}, {3.5130192630850496`*^9, 3.5130192769249506`*^9}, { 3.569256279151948*^9, 3.569256301093805*^9}, {3.569280862449428*^9, 3.569280879492904*^9}, {3.569751811772345*^9, 3.569751812525134*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff vector", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Fbar", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5130192670407376`*^9, 3.513019275382733*^9}, { 3.569256440317245*^9, 3.569256489508461*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Vector of positive parts of excess payoffs", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928186554258847`*^9, 3.4928186955636*^9}, 3.5079830590326924`*^9, 3.5079833734047375`*^9, {3.569256479840192*^9, 3.569256504533733*^9}, {3.571823388323414*^9, 3.571823389596136*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Projected payoff vector", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PhiF", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"projectionMatrix", "[", RowBox[{"{", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "}"}], "]"}], ".", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4923823666875*^9, 3.49238242565625*^9}, { 3.492382666359375*^9, 3.492382796125*^9}, {3.49238283375*^9, 3.492382916234375*^9}, {3.492382972734375*^9, 3.492383074765625*^9}, { 3.492383106296875*^9, 3.49238313746875*^9}, {3.5079817044599123`*^9, 3.5079817047603445`*^9}, {3.515956822883526*^9, 3.5159568282968354`*^9}, { 3.569405579312506*^9, 3.569405622074248*^9}, 3.569405690461629*^9, { 3.569411273367159*^9, 3.569411324126257*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Specification of payoff parameters", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.481816053845376*^9, 3.4818160546865854`*^9}, {3.4818162696456814`*^9, 3.4818162731507215`*^9}, {3.481891966159549*^9, 3.4818919684127893`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["Specification of Normal Form Game", "Subsubsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.481816053845376*^9, 3.4818160546865854`*^9}, {3.4818162696456814`*^9, 3.4818162731507215`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[TextData[{ "Choose a normal form game here by editing the payoff matrix below. To use \ one of the built-in payoff matrices, click the corresponding button and the \ expression below where \"", StyleBox["A", FontWeight->"Bold"], " = .\" appears will be updated." }], "Text", Evaluatable->False, CellChangeTimes->{{3.4814160902467585`*^9, 3.481416118357179*^9}, 3.4818153754699197`*^9, {3.4818154184817677`*^9, 3.481815456005725*^9}, { 3.539882179983562*^9, 3.5398821806825047`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Some standard normal form games", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "mats", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowm", ",", "name", ",", "mat", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\<123 Coordination\>\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"matsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "2", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "2"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", RowBox[{"-", "2"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "1", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "2", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "3"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "6", ",", " ", RowBox[{"-", "4"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "3", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "8"}], "}"}]}], "}"}]}], "\n", " ", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"Join", "[", RowBox[{"rowm", ",", RowBox[{"{", RowBox[{"matsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"Join", "[", RowBox[{"mats", ",", RowBox[{"{", "rowm", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "mat", "]"}], ",", "name"}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", RowBox[{"MatrixForm", "[", "mat", "]"}], "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "80"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"mat", "->", RowBox[{ RowBox[{"mats", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"FromCharacterCode", "[", "10", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "7", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818122976768284`*^9, 3.481812298417894*^9}, {3.481812350362587*^9, 3.481812357372667*^9}, { 3.4818128664446764`*^9, 3.481812875197262*^9}, {3.4818129301963468`*^9, 3.4818129355740795`*^9}, {3.4818143148348017`*^9, 3.4818143212440176`*^9}, {3.481814414818571*^9, 3.481814415068931*^9}, { 3.5079817312284036`*^9, 3.507981745108362*^9}, {3.511279652772031*^9, 3.511279681471314*^9}, {3.5112797625811377`*^9, 3.511279780249383*^9}, { 3.51163506115935*^9, 3.5116350617467566`*^9}, {3.51163545305356*^9, 3.5116354776057544`*^9}, {3.511635539303258*^9, 3.51163555734111*^9}, { 3.511635802744038*^9, 3.5116358073428373`*^9}, {3.539719899170842*^9, 3.5397199008795595`*^9}, {3.565001783641394*^9, 3.565001784276799*^9}, { 3.580490080065366*^9, 3.580490089905402*^9}, {3.580490120240179*^9, 3.580490129236783*^9}, 3.580490240386065*^9}, CellTags->{"buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "1"}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "2"}, {"2", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Good RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "2"}], "1"}, {"1", "0", RowBox[{"-", "2"}]}, { RowBox[{"-", "2"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Bad RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "2", "0"}, {"0", "0", "3"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"123 Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "6", RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "0", "5"}, { RowBox[{"-", "1"}], "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Zeeman\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6", "0", "0"}, {"5", "7", "5"}, {"0", "5", "8"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Young\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}], SequenceForm[ TableForm[{{ Style[ Button[ Column[{ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}], "RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}], "Good RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}], "Bad RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}], "Coordination"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}], "123 Coordination"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}], "Zeeman"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}], "Young"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}}, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}], "\n"], Editable->False]], "Print", CellOpen->True, CellChangeTimes->{3.580490247619248*^9}, CellTags->{"buttoncell", "corecell", "differentacrossnotebooks", "notopen"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["rps normal form games", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.6301529142841682`*^9, 3.630152926535574*^9}, { 3.63041562431886*^9, 3.6304156256603937`*^9}}, CellTags->{"corecell", "3Sexclusive"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "mats", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowm", ",", "name", ",", "mat", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Subscript", "[", RowBox[{"5", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"6", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"10", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"4", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"6", ",", "2"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "2"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"9", ",", "1"}], "]"}], ",", "2", ",", "3", ",", RowBox[{"Subscript", "[", RowBox[{"5", ",", "2"}], "]"}], ",", "8", ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"4", ",", "2"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"6", ",", "3"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"6", ",", "4"}], "]"}]}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"9", ",", "2"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"10", ",", "2"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"matsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "\n", " ", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"Join", "[", RowBox[{"rowm", ",", RowBox[{"{", RowBox[{"matsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"Join", "[", RowBox[{"mats", ",", RowBox[{"{", "rowm", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "mat", "]"}], ",", "name"}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", RowBox[{"MatrixForm", "[", "mat", "]"}], "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"105", ",", "80"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"mat", "->", RowBox[{ RowBox[{"mats", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "4", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, { 3.4816734185428734`*^9, 3.4816734847480717`*^9}, {3.4816736147750416`*^9, 3.4816736357251663`*^9}, {3.481674519866499*^9, 3.4816745531944227`*^9}, { 3.481674620030528*^9, 3.4816746292437763`*^9}, {3.4817353631917872`*^9, 3.481735408496933*^9}, {3.4817362068299475`*^9, 3.481736221180582*^9}, { 3.481736253597195*^9, 3.481736256992077*^9}, {3.481736717574362*^9, 3.4817367183755136`*^9}, 3.4817375342787247`*^9, {3.4818128766693788`*^9, 3.481812887645161*^9}, {3.4818129361248713`*^9, 3.48181294124223*^9}, { 3.507981769368246*^9, 3.5079817847052994`*^9}, {3.539719947142434*^9, 3.539719949371217*^9}, {3.565001817820727*^9, 3.565001818869557*^9}}, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[BoxData[ InterpretationBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0", "2"}, {"2", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"1"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "3", RowBox[{"-", "1"}]}, {"1", "0", "1"}, {"3", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["5", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, { RowBox[{"-", "1"}], "0", "3"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["6", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "6", RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "0", "5"}, { RowBox[{"-", "1"}], "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, {"1", "0", "1"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["10", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "3", RowBox[{"-", "1"}]}, {"3", "0", RowBox[{"-", "1"}]}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["4", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "3"}, { RowBox[{"-", "1"}], "0", "5"}, {"1", "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["6", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "3"}, { RowBox[{"-", "1"}], "0", "3"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["9", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"2"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, {"1", "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"3"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, {"1", "0", "1"}, {"1", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["5", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"8"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "1"}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["4", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["6", "3"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", RowBox[{"-", "3"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "3"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["6", "4"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "3"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "3"}]}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["9", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "3"}], RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["10", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], "\<\"\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], TableForm[{{ Style[ Button[ Column[{ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}], 1}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}], Subscript[5, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}], Subscript[6, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}], Subscript[7, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}], Subscript[10, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}], Subscript[4, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}], Subscript[6, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}], Subscript[7, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}], Subscript[9, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}], 2}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}], 3}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}], Subscript[5, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}], 8}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}], -Subscript[4, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}], - Subscript[6, 3]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}], - Subscript[6, 4]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}], Subscript[7, 3]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}], -Subscript[9, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}], - Subscript[10, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "unique_payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}}, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{{3.48167343678911*^9, 3.4816734855392094`*^9}, { 3.481673630307376*^9, 3.481673636616448*^9}, {3.481674530672037*^9, 3.481674553795286*^9}, {3.4816746240362883`*^9, 3.4816746299648128`*^9}, 3.481735383921595*^9, {3.4817362130188465`*^9, 3.481736222071864*^9}, 3.4817362579835024`*^9, 3.481736293154075*^9, 3.4817367219005823`*^9, 3.4817375356306686`*^9, 3.481813607606393*^9, 3.5397151783998804`*^9, 3.5397199505153627`*^9, 3.5397203699496236`*^9}, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}] }, {2}]] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "0.49"}], ".80"}, {".93", "0", RowBox[{"-", ".42"}]}, { RowBox[{"-", "0.09"}], ".78", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]], "Input", CellChangeTimes->{{3.4807914455931883`*^9, 3.4807914669051423`*^9}, { 3.480791789209391*^9, 3.4807917977404227`*^9}, 3.4807940301207724`*^9, 3.480859076992506*^9, 3.480864043008131*^9, {3.480865480008131*^9, 3.480865513508131*^9}, 3.480944241448495*^9, 3.4812465820055056`*^9, 3.4813021571797943`*^9, {3.4813023589584618`*^9, 3.481302362677164*^9}, { 3.4813026530171976`*^9, 3.481302666579524*^9}, {3.481302702610313*^9, 3.4813027138757935`*^9}, {3.4813027893592024`*^9, 3.4813028076714683`*^9}, {3.4813029176388106`*^9, 3.4813029292324123`*^9}, 3.4813030583401346`*^9, 3.4813061973624544`*^9, 3.4813062596272826`*^9, 3.4813064264376473`*^9, 3.4813065417486715`*^9, 3.481306624575736*^9, 3.481306679575032*^9, 3.481306727090049*^9, 3.4813070602576594`*^9, { 3.4813072989577293`*^9, 3.481307323738662*^9}, 3.4813095813972635`*^9, 3.4813101426869535`*^9, 3.4813101761865253`*^9, 3.4813102138891673`*^9, 3.4813103080598373`*^9, {3.4813104098866587`*^9, 3.481310424652095*^9}, 3.481311817743638*^9, {3.481311989928934*^9, 3.48131200235065*^9}, { 3.481312255316162*^9, 3.481312269315983*^9}, 3.4813123243152785`*^9, 3.481312355189883*^9, {3.4813125150628366`*^9, 3.4813125343907146`*^9}, { 3.481312567265294*^9, 3.4813125711402445`*^9}, 3.4813133889891505`*^9, 3.481313435316683*^9, 3.481314323086569*^9, 3.4813143631016817`*^9, 3.4813144088198466`*^9, {3.481314571833385*^9, 3.481314593676855*^9}, 3.481315789760878*^9, {3.4813158232458963`*^9, 3.481315856324656*^9}, 3.481315926279112*^9, 3.481316189044737*^9, {3.481316559946708*^9, 3.481316587571355*^9}, {3.4813166670234623`*^9, 3.48131666724221*^9}, { 3.4813166977261944`*^9, 3.4813166979449415`*^9}, 3.481316900504849*^9, 3.481316999191086*^9, 3.4813186422950535`*^9, 3.481319400613472*^9, { 3.4813195747049937`*^9, 3.4813195783455725`*^9}, 3.481329551359378*^9, 3.481334621489485*^9, 3.481336034025562*^9, 3.4813365135662985`*^9, 3.4814055733736906`*^9, {3.481405797455905*^9, 3.4814058068494124`*^9}, { 3.4814068175927896`*^9, 3.4814068317130938`*^9}, 3.4814158153815217`*^9, 3.4814195977302723`*^9, {3.481472827843325*^9, 3.481472855684579*^9}, { 3.481671080691208*^9, 3.481671084216277*^9}, {3.4816719070895104`*^9, 3.4816719104743776`*^9}, {3.4816735327771344`*^9, 3.481673534759986*^9}, 3.481736297109763*^9, 3.4817372901877394`*^9, {3.4818136137151775`*^9, 3.4818136167695694`*^9}, 3.4818157647296476`*^9, 3.4818182756401596`*^9, 3.4818967232661815`*^9, 3.4818967578459044`*^9, 3.4919286370626774`*^9, 3.4922604120748067`*^9, 3.4922813760617304`*^9, 3.492282420353348*^9, 3.492287500003594*^9, 3.4922920232027025`*^9, 3.4925108522131824`*^9, 3.4925114253773518`*^9, 3.4925191338515935`*^9, {3.492520443314509*^9, 3.4925204456178207`*^9}, 3.492600688454246*^9, 3.492636908581485*^9, 3.4928275145546865`*^9, 3.492828151510584*^9, 3.492828403753291*^9, 3.4928285694315248`*^9, 3.492892215656488*^9, 3.4932158663051214`*^9, { 3.493268713208069*^9, 3.4932687373628016`*^9}, 3.4932693842029123`*^9, 3.4932706727457457`*^9, 3.493413892173255*^9, 3.4934181901985793`*^9, 3.49341954831145*^9, 3.4934259528607397`*^9, 3.4934262524515295`*^9, 3.493474128937461*^9, {3.5074006517377553`*^9, 3.5074006578156977`*^9}, { 3.5074007492273192`*^9, 3.5074007633497143`*^9}, 3.508013272854101*^9, 3.5087864724279823`*^9, {3.5087962491583247`*^9, 3.5087962632986574`*^9}, { 3.508796964306484*^9, 3.5087969658487015`*^9}, 3.50919783937002*^9, 3.510066695551895*^9, {3.510066933151305*^9, 3.510066943869555*^9}, 3.510067020893757*^9, 3.5100696642033453`*^9, 3.5100697601558037`*^9, 3.510667786049495*^9, 3.510924572285383*^9, 3.510925057403319*^9, 3.511039225676178*^9, {3.5110956805166407`*^9, 3.511095685479405*^9}, 3.511175763490273*^9, 3.511279486461564*^9, 3.511280192199608*^9, 3.511280520312344*^9, 3.5130120070714145`*^9, {3.5130267978481426`*^9, 3.5130268172059774`*^9}, 3.5159558751713195`*^9, 3.5159559852876177`*^9, 3.5159570056509795`*^9, 3.515958865769372*^9, 3.515959366763027*^9, 3.515959551455591*^9, 3.5160382237423887`*^9, 3.516387128016509*^9, 3.519382385307869*^9, 3.519461216169551*^9, 3.539459235914659*^9, 3.539619739978017*^9, {3.539719926432804*^9, 3.53971995813433*^9}, { 3.5397236431752706`*^9, 3.539723643910864*^9}, {3.557748873732992*^9, 3.5577488849636345`*^9}, 3.557830694851338*^9, 3.557830781604845*^9, { 3.557833866271459*^9, 3.55783387598132*^9}, 3.557834057154661*^9, 3.557835076215402*^9, 3.557922458792365*^9, {3.558807818248766*^9, 3.558807829762751*^9}, 3.559160953114755*^9, 3.559170145487546*^9, { 3.564854739556765*^9, 3.564854754865901*^9}, 3.564911692511483*^9, 3.564994973391324*^9, 3.564996380655744*^9, 3.56500658587393*^9, { 3.57281651008741*^9, 3.572816531751606*^9}, {3.572963277949404*^9, 3.572963284346855*^9}, 3.572966068778873*^9, {3.572966107403465*^9, 3.572966119779882*^9}, 3.578924025371532*^9, 3.578924068509542*^9, { 3.630106719033094*^9, 3.630106768103986*^9}, {3.630156228292536*^9, 3.6301562468925743`*^9}, {3.63015629805107*^9, 3.630156316089169*^9}, 3.630156465665162*^9, {3.630156502771282*^9, 3.630156503191942*^9}, { 3.630349514734496*^9, 3.630349579739491*^9}, {3.630354581768592*^9, 3.6303546255025787`*^9}, {3.630354785712716*^9, 3.6303547966706743`*^9}, { 3.630414862464312*^9, 3.6304148930613194`*^9}, {3.630428622883356*^9, 3.630428701248624*^9}, {3.631322031278433*^9, 3.631322099789084*^9}, 3.6313221702349854`*^9}, CellTags->{"corecell", "unique_payoffmatrix"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"gamekind", "==", "NormalGame"}], ",", RowBox[{"A", "=", RowBox[{"A", "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "A", "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"dim", ",", "dim"}], "}"}]}], "]"}]}]}]}], "]"}], ";"}]], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{ 3.508788030659297*^9, {3.50878807825774*^9, 3.508788124153735*^9}, { 3.508788193523757*^9, 3.5087882581114244`*^9}, 3.5087883250576887`*^9, { 3.5087883998151846`*^9, 3.508788416258829*^9}, {3.5087887248525653`*^9, 3.508788800831818*^9}, {3.5087889592596264`*^9, 3.508788983664719*^9}, { 3.580648539653288*^9, 3.580648547118126*^9}, {3.580651211424344*^9, 3.580651216956601*^9}}, CellTags->{"corecell", "notopen", "singlepopulation"}] }, Open ]], Cell[CellGroupData[{ Cell["Specification of nonlinear game", "Subsubsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, 3.510068844399316*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definition of Quadratic Game", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}, { 3.4818163391456175`*^9, 3.4818163441127596`*^9}, {3.4818163908499646`*^9, 3.481816392382168*^9}}, CellTags->{"corecell", "singlepopulation"}], Cell[BoxData[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"L", "=", "A"}], ";"}], "\n", RowBox[{ RowBox[{"B", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]}], "Input", CellChangeTimes->{{3.481816422695757*^9, 3.481816579310958*^9}, { 3.4818170340648623`*^9, 3.4818170366686063`*^9}, 3.4818170885031404`*^9, { 3.4818933148288403`*^9, 3.4818933381223345`*^9}, {3.4818942896605797`*^9, 3.48189429182369*^9}, {3.4818944159922357`*^9, 3.481894441739258*^9}, 3.539688365091631*^9}, CellTags->{"corecell", "differentacrossnotebooks", "singlepopulation"}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definition of Congestion Game", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}, { 3.4818163391456175`*^9, 3.4818163441127596`*^9}}, CellTags->"corecell"], Cell["\<\ Cost functions for facilities as functions of utilization levels.\ \>", "Text", FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "1", "]"}], "[", "u_", "]"}], " ", ":=", RowBox[{"4", "+", RowBox[{"20", "u"}]}]}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "2", "]"}], "[", "u_", "]"}], " ", ":=", RowBox[{"2", "+", RowBox[{"30", RowBox[{"u", "^", "2"}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "3", "]"}], "[", "u_", "]"}], " ", ":=", RowBox[{"2", "+", RowBox[{"30", RowBox[{"u", "^", "2"}]}]}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "4", "]"}], "[", "u_", "]"}], " ", ":=", RowBox[{"4", "+", RowBox[{"20", "u"}]}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "5", "]"}], "[", "u_", "]"}], " ", ":=", RowBox[{"1", "+", RowBox[{"20", "u"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "6", "]"}], "[", "u_", "]"}], " ", ":=", "0"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "7", "]"}], "[", "u_", "]"}], " ", ":=", "0"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.56926619303037*^9, 3.569266222747615*^9}, { 3.569279860581643*^9, 3.569279900265885*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell["Which strategies use which facilities.", "Text", FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "\[CapitalPhi]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "[", "1", "]"}], "=", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "[", "2", "]"}], "=", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "\[Phi]_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "p", "]"}], "[", "j", "]"}], ",", "\[Phi]"}], "]"}], ",", "j"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", "Null"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"\[Phi]_", ",", "x_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Sum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{ RowBox[{"\[Rho]", "[", "\[Phi]", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"\[Rho]", "[", "\[Phi]", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4928187528159246`*^9, 3.4928187532565584`*^9}, { 3.507985720134223*^9, 3.507985733818901*^9}, {3.569264046507162*^9, 3.569264096595187*^9}, {3.569264154908149*^9, 3.56926417366321*^9}, { 3.569268735455526*^9, 3.569268735863632*^9}, {3.569279052944103*^9, 3.569279142100319*^9}, 3.569279920642762*^9, {3.569280892025758*^9, 3.569280927998333*^9}, {3.571864521471311*^9, 3.57186453054066*^9}, { 3.580587141875471*^9, 3.5805871439875917`*^9}, {3.5805872095713425`*^9, 3.580587225675264*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Names of strategies", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, { 3.4818185096266155`*^9, 3.48181851273108*^9}, 3.510069635539062*^9}, CellTags->{"corecell", "opengroup"}], Cell["\<\ Give the strategies names to be printed on the phase diagram. Vertices are \ ordered counterclockwise.\ \>", "Text", CellChangeTimes->{3.571865154341907*^9}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"strategy", "[", "1", "]"}], "=", "\"\\""}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "2", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "3", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"font", "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.474919131005475*^9, 3.474919134730832*^9}, 3.5194218593864717`*^9, {3.5194612363537054`*^9, 3.519461240877964*^9}, { 3.54047923471346*^9, 3.540479236948658*^9}, {3.568667927496173*^9, 3.568667932564085*^9}, {3.570141486091269*^9, 3.570141497680617*^9}, { 3.580470328337226*^9, 3.580470330166473*^9}, 3.580491220644174*^9, { 3.6301565523630333`*^9, 3.630156557593111*^9}, {3.6301566155848227`*^9, 3.6301566261772327`*^9}, {3.6303497669102287`*^9, 3.63034977288041*^9}, { 3.6304149600952473`*^9, 3.630414962957654*^9}, {3.630428829085022*^9, 3.630428835808826*^9}, {3.631322316372752*^9, 3.631322319105295*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Open ]], Cell[CellGroupData[{ Cell["Computation of Nash equilibria", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, { 3.4818185317784686`*^9, 3.481818537646907*^9}, 3.510069637051261*^9}, CellTags->"corecell"], Cell[TextData[{ "If the game you consider has a nontrivial component of Nash equilibria, the \ program will find a random subset of this component. If you'd prefer not to \ compute the Nash equilibria, set ", StyleBox["findnashequilibria", FontWeight->"Bold"], " to 0. Similarly, you may skip finding the regular ESSs of the game by \ setting ", StyleBox["findESSs ", FontWeight->"Bold"], "to 0. The option ", StyleBox["maxdenominator ", FontWeight->"Bold"], "allows to control how the equilibria are displayed in the output. The \ output is presented in either decimal or rational form. If a fraction has a \ denominator that is bigger than maxdenominator, the number is presented in \ decimal form. This helps avoid having fractions with big denominators that \ are visually not appealing, but can be problematic if analytic results are \ desired. Setting the maximum denominator to \[OpenCurlyDoubleQuote]Infinity\ \[CloseCurlyDoubleQuote], without quotes, makes the program display the exact \ rational numbers." }], "Text", CellChangeTimes->{ 3.4932159353741026`*^9, {3.510663392352625*^9, 3.5106634820697594`*^9}, 3.5106651666120124`*^9, {3.5109251561115*^9, 3.510925156502658*^9}, { 3.511176242525011*^9, 3.5111762733979197`*^9}, {3.521204612234915*^9, 3.521204612952956*^9}, {3.578833685348306*^9, 3.578833999588247*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"findnashequilibria", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"findESSs", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxdenominator", "=", "20"}], ";"}]}], "Input", CellChangeTimes->{{3.510663315294881*^9, 3.51066331622622*^9}, { 3.5106651715390973`*^9, 3.5106651749039354`*^9}, {3.5106655345711117`*^9, 3.510665534811457*^9}, {3.578833665354003*^9, 3.578833682844714*^9}, { 3.578833896428572*^9, 3.578833899611676*^9}, {3.578834106236645*^9, 3.578834106553512*^9}}, CellTags->"corecell"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Choice of dynamic", "Section", Evaluatable->False, CellChangeTimes->{3.4883859890412593`*^9, 3.488386264557432*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "opengroup"}], Cell["\<\ To specify a dynamic, press the button corresponding to the dynamic you \ desire. Definitions of the dynamics can be found in the closed group at the \ end of this section. Details: If you use Logit[eta] or ILogit[eta], be sure to enter a value for \ the noise parameter eta in the closed group below. The best response dynamic \ is actually the Logit[.001] dynamic, but with a different method of \ determining stability of rest points. When using the SampleBR[k] dynamic, \ set an integer value of k > 1 in the closed group below. SampleBR is most \ noticeably different from a best response dynamic only for values of k below \ 5.\ \>", "Text", CellChangeTimes->{ 3.4747151313883057`*^9, 3.474715257539703*^9, 3.4812474147760963`*^9, 3.4812474492912793`*^9, {3.481416554834803*^9, 3.48141681718204*^9}, { 3.4814168565586605`*^9, 3.481416945035885*^9}, {3.4814169932752495`*^9, 3.481416994306733*^9}, {3.481487401447174*^9, 3.481487410144681*^9}, { 3.481488265581498*^9, 3.481488269712858*^9}, {3.5072092451307364`*^9, 3.5072092562867775`*^9}, {3.510068899782366*^9, 3.510068960429554*^9}, 3.510069035442367*^9, {3.5130192962928*^9, 3.5130192974144125`*^9}, 3.521285140607848*^9, {3.5237325976760817`*^9, 3.523732640195251*^9}, { 3.539882288350531*^9, 3.539882304181365*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell["Some standard dynamics", "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"Replicator", ",", "BR", ",", RowBox[{"Defer", "[", RowBox[{"Logit", "[", "eta", "]"}], "]"}], ",", "MSReplicator", ",", RowBox[{"TemperedBR", "[", "tQ", "]"}], ",", "BNN", ",", RowBox[{"Defer", "[", RowBox[{"ILogit", "[", "eta", "]"}], "]"}], ",", RowBox[{"Defer", "[", RowBox[{"SampleBR", "[", "k", "]"}], "]"}], ",", "Smith"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}], "]"}], "==", " ", "\"\< \>\""}], ",", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "\"\<\>\"", "}"}]}], "]"}]}], ",", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.481812891450633*^9, 3.481812899642412*^9}, 3.481812942794462*^9, 3.4818349201208076`*^9, {3.482098521470656*^9, 3.4820985290114994`*^9}, {3.4888030563125*^9, 3.488803075015625*^9}, { 3.507209279970834*^9, 3.5072092822240734`*^9}, {3.5079818150489316`*^9, 3.5079818286434793`*^9}, {3.5212044815394397`*^9, 3.521204514042299*^9}, { 3.5397199809372253`*^9, 3.539719985117756*^9}, {3.5398577932252765`*^9, 3.5398578158685713`*^9}, {3.5398578871726503`*^9, 3.5398579091269054`*^9}, {3.565001819786562*^9, 3.565001820377301*^9}, { 3.571744193063739*^9, 3.571744197092472*^9}}, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox["Replicator", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Replicator], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["BR", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`BR], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ RowBox[{"Logit", "[", "eta", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`Logit[$CellContext`eta]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["MSReplicator", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`MSReplicator], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ RowBox[{"TemperedBR", "[", "tQ", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ $CellContext`TemperedBR[$CellContext`tQ]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["BNN", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`BNN], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ RowBox[{"ILogit", "[", "eta", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`ILogit[$CellContext`eta]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ RowBox[{"SampleBR", "[", "k", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`SampleBR[$CellContext`k]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Smith", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Smith], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{3.571744214010701*^9}, CellTags->{"buttoncell", "corecell", "notopen"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["More dynamics", "Subsection", CellChangeTimes->{{3.481894707891967*^9, 3.4818947086630754`*^9}, { 3.4818947430525255`*^9, 3.4818947437935905`*^9}}, CellTags->"corecell"], Cell["\<\ If you use SelMut[MM], enter the mutation matrix MM in its closed group. \ ExcessPayoff , PairwiseComparison, Combined, and Other must be specified in \ greater detail below.\ \>", "Text", CellChangeTimes->{ 3.4747151313883057`*^9, 3.474715257539703*^9, 3.4812474147760963`*^9, 3.4812474492912793`*^9, {3.481416554834803*^9, 3.48141681718204*^9}, { 3.4814168565586605`*^9, 3.481416945035885*^9}, {3.4814169932752495`*^9, 3.481416994306733*^9}, {3.481487401447174*^9, 3.481487410144681*^9}, { 3.481488265581498*^9, 3.481488269712858*^9}, {3.5072092451307364`*^9, 3.5072092562867775`*^9}, {3.510068899782366*^9, 3.510068960429554*^9}, { 3.510068997384774*^9, 3.510069019289111*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Defer", "[", RowBox[{"SelMut", "[", "MM", "]"}], "]"}], ",", "ExcessPayoff", ",", "PairwiseComparison", StyleBox[",", FontWeight->"Plain"], "Project", StyleBox[",", FontWeight->"Plain"], "Combined", StyleBox[",", FontWeight->"Plain"], "Other"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "6", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.48173788035636*^9, 3.4817378961991405`*^9}, { 3.48181290093427*^9, 3.481812907393558*^9}, 3.4818129433953257`*^9, 3.481834931817627*^9, {3.5079818552317114`*^9, 3.5079818681052227`*^9}, 3.5159566645764713`*^9, {3.539720022182963*^9, 3.5397200233196073`*^9}, { 3.5399894370242977`*^9, 3.5399894376143312`*^9}, 3.539990020684681*^9, { 3.56500182217855*^9, 3.565001822891805*^9}, 3.569281786970988*^9, 3.571923885957523*^9}, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ RowBox[{"SelMut", "[", "MM", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`SelMut[$CellContext`MM]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["ExcessPayoff", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`ExcessPayoff], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["PairwiseComparison", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`PairwiseComparison], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Project", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Project], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Combined", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Combined], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Other", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Other], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{3.539989534708885*^9, 3.539990031998328*^9, 3.56928179522809*^9, 3.571923897107588*^9}, CellTags->{"buttoncell", "corecell", "notopen"}] }, {2}]] }, Closed]], Cell["dyn := Replicator;", "Input", CellChangeTimes->{ 3.4747151336315317`*^9, {3.479671025083769*^9, 3.479671037201193*^9}, 3.479723589112198*^9, {3.4797237898408318`*^9, 3.479723791903798*^9}, { 3.479809813293728*^9, 3.479809816578451*^9}, 3.480780465926387*^9, { 3.4807847095625095`*^9, 3.480784719531005*^9}, {3.4807850623347287`*^9, 3.480785065412775*^9}, 3.480786382988419*^9, {3.4807870413153152`*^9, 3.4807870445964813`*^9}, {3.480865675367506*^9, 3.480865713945631*^9}, { 3.480868633586256*^9, 3.480868633586256*^9}, {3.480921736302143*^9, 3.4809217417083583`*^9}, {3.4809443688539295`*^9, 3.4809443688539295`*^9}, {3.4809449674594736`*^9, 3.4809449674750986`*^9}, {3.4809480125337353`*^9, 3.4809480125337353`*^9}, {3.4809480994081793`*^9, 3.4809480994081793`*^9}, {3.480948153485958*^9, 3.480948153485958*^9}, { 3.480948201048154*^9, 3.480948224094881*^9}, {3.4809483356879168`*^9, 3.4809483356879168`*^9}, {3.481245776437692*^9, 3.481245778281419*^9}, 3.4813311917978306`*^9, {3.481331301245208*^9, 3.481331362282976*^9}, 3.48133141054237*^9, 3.481331704525096*^9, 3.48133226392948*^9, 3.481332322613864*^9, {3.4813326465897183`*^9, 3.481332654571195*^9}, { 3.481332864422947*^9, 3.481332870762062*^9}, 3.481334643671381*^9, 3.4813352364437456`*^9, 3.48133650683201*^9, 3.481339085923997*^9, 3.4813391332671413`*^9, 3.481339294202581*^9, 3.4813393294677544`*^9, 3.481339466606624*^9, {3.481408817438427*^9, 3.4814088203526173`*^9}, 3.4814158381142097`*^9, {3.4814174163435917`*^9, 3.481417434539757*^9}, 3.481417503889477*^9, 3.48141754447784*^9, 3.481417590974699*^9, 3.4814186554954047`*^9, 3.481735482813795*^9, 3.4817378513146*^9, { 3.4817379157172065`*^9, 3.481737963596053*^9}, 3.481834851442053*^9, { 3.4818349125399075`*^9, 3.4818349355529985`*^9}, 3.481834975600584*^9, 3.4818957324151587`*^9, 3.4885769010622663`*^9, 3.4888031126875*^9, 3.491929508635909*^9, 3.4922031282706842`*^9, 3.4922764082392645`*^9, 3.4922824415838757`*^9, 3.4922875023669925`*^9, 3.4925108639801025`*^9, 3.492636904285307*^9, 3.492826830290763*^9, 3.4928274169142866`*^9, 3.4928281630471725`*^9, 3.493217695332925*^9, 3.4932688627230606`*^9, 3.4932693681298*^9, 3.4932704825322323`*^9, 3.506172887669325*^9, 3.5061732496798706`*^9, 3.507209558260995*^9, 3.508020054195327*^9, 3.5080246645304146`*^9, 3.508778680954258*^9, 3.508780220277696*^9, 3.5087809839057393`*^9, 3.508784813507504*^9, 3.508786241130325*^9, 3.5087863364173408`*^9, 3.5087863839076953`*^9, {3.5087864746311502`*^9, 3.5087864967930174`*^9}, 3.50878903521885*^9, 3.508789074845831*^9, 3.508789880824772*^9, 3.5087899113286343`*^9, 3.50879043101197*^9, 3.508790484378708*^9, 3.508796159128869*^9, 3.508796224572973*^9, { 3.508796256138362*^9, 3.5087962611856194`*^9}, 3.508796367438403*^9, 3.508796398106969*^9, 3.5087964362548323`*^9, 3.5087966727223377`*^9, 3.508796740680056*^9, 3.5087967995004683`*^9, 3.5087968983216023`*^9, 3.50879695844806*^9, 3.5091978438765*^9, 3.510066461404035*^9, 3.510067022619776*^9, 3.510067795770535*^9, 3.510069666333312*^9, 3.5100697616202602`*^9, {3.5106906587922993`*^9, 3.510690660875294*^9}, 3.5109250599235897`*^9, 3.510925122094789*^9, 3.510942139098502*^9, 3.5110101245970125`*^9, 3.515954624118764*^9, 3.5159566822384815`*^9, { 3.515957598123867*^9, 3.5159576147448177`*^9}, 3.515959791607327*^9, 3.516038230691786*^9, 3.516039285052092*^9, 3.5160393255744095`*^9, 3.516046363827975*^9, 3.5160464231643686`*^9, 3.516214795529269*^9, 3.51621505953937*^9, {3.516218211903675*^9, 3.5162182338229284`*^9}, 3.516276157700075*^9, 3.516385999001933*^9, 3.5163871324767647`*^9, 3.5193824611572075`*^9, 3.519383154433861*^9, 3.51946122489705*^9, 3.5210513285766444`*^9, 3.5211505633741035`*^9, 3.5211512152843904`*^9, { 3.5212045522234826`*^9, 3.5212045793060317`*^9}, 3.539459243404354*^9, 3.539619741965366*^9, {3.539720026994574*^9, 3.5397200292448597`*^9}, 3.539858528928356*^9, {3.539859054493417*^9, 3.5398590782477756`*^9}, 3.5398608286748943`*^9, 3.539860986459919*^9, 3.5398610940120707`*^9, 3.5398635490844927`*^9, 3.5398801709392085`*^9, 3.5398823312351027`*^9, 3.539956499903049*^9, 3.5586469889090347`*^9, 3.5586471105989947`*^9, 3.5586576801305375`*^9, 3.558658422507999*^9, {3.564994956704752*^9, 3.564994968155257*^9}, {3.569281818646645*^9, 3.569281822557501*^9}, { 3.56974636918394*^9, 3.56974637231166*^9}, 3.571736305606978*^9, 3.571736353822997*^9, 3.571742253744357*^9, 3.571742337807451*^9, 3.571742400669279*^9, 3.571742555155597*^9, 3.571742681290574*^9, 3.571742930666734*^9, 3.571743067217698*^9, 3.571743397051417*^9, { 3.571743479024894*^9, 3.571743486525066*^9}, 3.571744215983196*^9, 3.571744626294594*^9, 3.571823500765821*^9, 3.571824463565113*^9, { 3.571923911302323*^9, 3.57192391866738*^9}, 3.572107890690975*^9, 3.572108369153263*^9, 3.572110038254891*^9, 3.57211714715719*^9, 3.572121428991443*^9, 3.572171985728616*^9, 3.572172382558275*^9, 3.572816501243387*^9, 3.572963272922364*^9, 3.572964172991434*^9, 3.572966102723506*^9, 3.58064098706695*^9, 3.580646652436559*^9}, CellTags->{"corecell", "unique_meandynamic"}], Cell[CellGroupData[{ Cell["Noise level for logit dynamics", "SmallText", CellChangeTimes->{{3.4928274343894143`*^9, 3.4928274354409266`*^9}, { 3.510069060898769*^9, 3.510069069386961*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"eta", " ", "=", " ", ".1"}], ";"}]], "Input", CellChangeTimes->{{3.480865595226881*^9, 3.480865595461256*^9}, 3.493217709107732*^9, 3.5072093234133005`*^9, 3.5087890592133527`*^9, { 3.5193824682636137`*^9, 3.519382495479171*^9}, {3.519382892480878*^9, 3.519382892970906*^9}, 3.519383145977377*^9, 3.5396890622639217`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Sample size for the sample best response dynamic", "SmallText", CellChangeTimes->{{3.479723492252921*^9, 3.47972353833919*^9}, { 3.481894792974309*^9, 3.481894823938834*^9}, {3.5100690760763607`*^9, 3.5100690804039583`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"k", " ", "=", " ", "2"}], ";"}]], "Input", CellChangeTimes->{{3.4797235751220813`*^9, 3.4797235774754653`*^9}, 3.4798097927141356`*^9, 3.480791134913642*^9, {3.4807930226309395`*^9, 3.480793033474412*^9}, 3.4808020723992596`*^9, {3.480921321507923*^9, 3.4809213294609966`*^9}, {3.4809214148667*^9, 3.480921437897803*^9}, { 3.481247722678405*^9, 3.4812477230221505`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Transformation function for Tempered dynamics", "SmallText", CellChangeTimes->{{3.479723492252921*^9, 3.47972353833919*^9}, { 3.481894792974309*^9, 3.481894823938834*^9}, {3.5100690760763607`*^9, 3.5100690804039583`*^9}, {3.571744106147612*^9, 3.571744144592348*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"tQ", "[", "x_", "]"}], ":=", "x"}], ";"}]], "Input", CellChangeTimes->{{3.4797235751220813`*^9, 3.4797235774754653`*^9}, 3.4798097927141356`*^9, 3.480791134913642*^9, {3.4807930226309395`*^9, 3.480793033474412*^9}, 3.4808020723992596`*^9, {3.480921321507923*^9, 3.4809213294609966`*^9}, {3.4809214148667*^9, 3.480921437897803*^9}, { 3.481247722678405*^9, 3.4812477230221505`*^9}, {3.571744122598092*^9, 3.571744164103506*^9}, {3.571744209320702*^9, 3.571744209546624*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Matrix of mutation rates for the selection-mutation \ dynamic", FontSlant->"Italic"]], "SmallText", CellTags->"corecell"], Cell[TextData[{ StyleBox["Entry ij of the matrix ", FontFamily->"Palatino"], StyleBox["MM", FontFamily->"Palatino", FontWeight->"Bold"], StyleBox[" is the probability of a mutation from i to j \[NotEqual] i; entry \ ii is the probability of no mutation from i. The rows of M must sum to one. \ Note that the selection-mutation dynamic is only well defined for nonnegative \ payoffs, and that it is not invariant to the addition of a constant to all \ matrix entries.", FontFamily->"Palatino"] }], "Text", CellChangeTimes->{{3.569015923721744*^9, 3.569015927913449*^9}, 3.571923827037191*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"MM", "=", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}]}], " ", ";"}]], "Input", CellChangeTimes->{3.569015921249585*^9, 3.571923823590452*^9}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"dyn", "=", "dyn"}], ";"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4818348627583246`*^9, 3.481834865722587*^9}, 3.5087883666675205`*^9, 3.5087886890711145`*^9}, CellTags->{"corecell", "notopen"}], Cell[TextData[{ "If the dynamic you consider has a nontrivial component of rest points, the \ program will compute and plot a random subset of this components. If you set \ ", StyleBox["findrestpoints", FontWeight->"Bold"], " equal to 0, the computation and plotting is skipped." }], "Text", CellChangeTimes->{ 3.539689203810927*^9, {3.5396892420543947`*^9, 3.539689245793154*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"findrestpoints", "=", "1"}], ";"}]], "Input", CellChangeTimes->{ 3.4796710551269693`*^9, 3.4798098208245564`*^9, {3.480789604765314*^9, 3.4807896051559296`*^9}, 3.480859029773756*^9, {3.510658336300294*^9, 3.5106583475248475`*^9}, {3.5106633114493513`*^9, 3.510663311789841*^9}, { 3.5402194933686533`*^9, 3.5402194935874233`*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Definition of combination of two dynamics", "Subsubsection", CellTags->"corecell"], Cell["\<\ To define a combination of two dynamics, specify the two dynamics to be \ combined, the weights on the dynamics, and the characterization of the rest \ points of the combined dynamic. \"Nash\" is the default setting for the set \ or rest points. This is correct, for example, with combinations of the \ replicator dynamic and an excess payoff dynamic like the BNN dynamic. If the \ rest points aren't identical to the Nash equilibria for the dynamics you have \ specified, you can replace \"Nash\" with \"Automatic\" if the combined \ dynamic is continuous. (If the combined dynamic isn't continuous, you're on \ your own!) The last line of code formally defines the combined dynamic \ according to your specifications.\ \>", "Text", CellChangeTimes->{ 3.493300988179451*^9, {3.50802480672488*^9, 3.5080248083171697`*^9}, { 3.5080248595107822`*^9, 3.5080248667011213`*^9}, {3.539689249156068*^9, 3.539689249569701*^9}, {3.539689315756028*^9, 3.539689323781044*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "=", "Replicator"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "=", "BNN"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], "=", ".9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"weight", "[", "2", "]"}], "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Combined", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Combined", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Combined", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}], "+", RowBox[{ RowBox[{"weight", "[", "2", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.508024885438064*^9, {3.569141777150486*^9, 3.569141777461385*^9}, { 3.56914184636547*^9, 3.569141860280595*^9}, {3.569141895175843*^9, 3.569141904544224*^9}, {3.569318930730113*^9, 3.569318942278207*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Definitions of dynamics", "Subsubsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell["Replicator Dynamic", "SmallText", CellChangeTimes->{{3.480868612711256*^9, 3.480868614055006*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Replicator", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492818775148037*^9, 3.492818796899314*^9}, { 3.507983059047714*^9, 3.507983059047714*^9}, {3.50798337343478*^9, 3.507983373449802*^9}, 3.5160463593887205`*^9, 3.516046413715828*^9, { 3.569010019372249*^9, 3.569010073700499*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Replicator", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Replicator", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "Replicator", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.4925217796360445`*^9, {3.4925218155376687`*^9, 3.4925218331630125`*^9}, { 3.4925482527715673`*^9, 3.492548274703103*^9}, 3.5080249342782927`*^9, { 3.508763925043623*^9, 3.508763927695613*^9}, 3.5087650526787987`*^9, 3.5195529876537256`*^9, {3.5211510056724014`*^9, 3.5211510069504747`*^9}, { 3.521151221197729*^9, 3.5211512223657956`*^9}, {3.580643075530724*^9, 3.580643142841721*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Maynard Smith Replicator Dynamic", "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MSReplicator", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]], RowBox[{ RowBox[{"Replicator", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928188439469647`*^9, 3.492818851708125*^9}, { 3.508789189871229*^9, 3.508789270166689*^9}, {3.508789317394599*^9, 3.5087893363017864`*^9}, {3.508789745630372*^9, 3.508789851182148*^9}, { 3.569010114779248*^9, 3.569010147971223*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MSReplicator", "::", "negativepayoff"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"dyn", "===", "MSReplicator"}], ",", RowBox[{"gamekind", "==", "NormalGame"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "A", "]"}], "<", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"A", "-", RowBox[{"Min", "[", "A", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Message", "[", RowBox[{"MSReplicator", "::", "negativepayoff"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "points"}], "}"}], ",", RowBox[{ RowBox[{"n", "=", "40"}], ";", "\[IndentingNewLine]", RowBox[{"points", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"n", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fmp"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], "\[LessEqual]", "0"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"A", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4928188439469647`*^9, 3.492818851708125*^9}, { 3.508789189871229*^9, 3.508789270166689*^9}, {3.508789317394599*^9, 3.5087893363017864`*^9}, {3.508789745630372*^9, 3.508789851182148*^9}, { 3.5087916072784257`*^9, 3.508791633956787*^9}, {3.5087916915095444`*^9, 3.508791694614008*^9}, {3.569010190948711*^9, 3.56901021954338*^9}, { 3.572108438267424*^9, 3.572108438563175*^9}, {3.572111136343404*^9, 3.572111144138038*^9}, {3.572111737337091*^9, 3.572111919125928*^9}, { 3.572112045983102*^9, 3.572112068650956*^9}, {3.572112784717917*^9, 3.572112819356468*^9}, {3.580648581232073*^9, 3.580648582539798*^9}, { 3.580651285220812*^9, 3.580651296853853*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "MSReplicator", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "MSReplicator", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "MSReplicator", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.492548298337087*^9, 3.4925483080210123`*^9}, 3.5080249354099197`*^9, {3.508763938935272*^9, 3.5087639430243006`*^9}, 3.508765054120872*^9, 3.5195536195748696`*^9, {3.519553859996621*^9, 3.5195538604276457`*^9}, 3.519672857431008*^9, {3.5196732940069785`*^9, 3.519673298540238*^9}, {3.580643149226187*^9, 3.580643149772696*^9}, { 3.580643231294224*^9, 3.580643234174414*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["I-Logit Dynamic", "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ILogit", "[", "eta_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "eta"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "eta"]]}]}]], " ", "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.492818938783333*^9, 3.49281897296248*^9}, { 3.507209340557954*^9, 3.507209341969984*^9}, {3.5079830591378436`*^9, 3.507983059182908*^9}, {3.50798337352491*^9, 3.507983373569975*^9}, { 3.5079857902400303`*^9, 3.507985797119923*^9}, {3.569010278573266*^9, 3.569010500349916*^9}, {3.569015120928269*^9, 3.569015187224795*^9}, { 3.569015227198601*^9, 3.569015227567206*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "False"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.508024937112368*^9, {3.5087639631430187`*^9, 3.5087639760608015`*^9}, 3.50876505598355*^9, 3.5195536212949677`*^9, {3.5195544205786843`*^9, 3.519554421004709*^9}, 3.5196733097048764`*^9, {3.580643153132313*^9, 3.580643154043802*^9}, 3.580643243151475*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Best Response dynamic", "SmallText", CellChangeTimes->{{3.5211519626581383`*^9, 3.5211519690405035`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BR", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"Logit", "[", ".001", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}, { 3.5211519917578025`*^9, 3.521152052683287*^9}, {3.521152129871702*^9, 3.521152142614431*^9}, {3.5237327417000504`*^9, 3.5237327417606707`*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "BR", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "BR", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "BR", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}, { 3.5211519917578025`*^9, 3.521152052683287*^9}, {3.521152129871702*^9, 3.521152142614431*^9}, {3.5211525562650905`*^9, 3.521152556888126*^9}, { 3.580643165945753*^9, 3.580643167242956*^9}, {3.580643246238519*^9, 3.580643250780902*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Tempered Logit", "SmallText", CellChangeTimes->{{3.4819039639063683`*^9, 3.4819039858113937`*^9}, { 3.485720504448155*^9, 3.4857205070967503`*^9}, 3.4922091843087626`*^9, { 3.4922092286224823`*^9, 3.4922092296239223`*^9}, 3.5100691061094837`*^9, { 3.539858214906395*^9, 3.53985821707852*^9}, {3.569016557372028*^9, 3.569016558834539*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"TemperedLogit", "[", "eta_", "]"}], "[", "Q_", "]"}], "[", RowBox[{"x_", ",", " ", "F_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"payoff", ",", "max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"payoff", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"payoff", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Q", "[", RowBox[{"payoff", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"payoff", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"payoff", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "/", "eta"}], "]"}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"payoff", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "/", "eta"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"max", "[", RowBox[{"[", "p", "]"}], "]"}], "-", RowBox[{"payoff", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"max", "[", RowBox[{"[", "p", "]"}], "]"}], " ", "-", RowBox[{"payoff", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ")"}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812470171718106`*^9, {3.4857205184016542`*^9, 3.485720543854027*^9}, { 3.485720770487443*^9, 3.48572082648066*^9}, {3.485720921910668*^9, 3.4857209449494247`*^9}, {3.4857209843050547`*^9, 3.4857211713432503`*^9}, {3.4857212046884327`*^9, 3.485721238071824*^9}, 3.485721310913628*^9, 3.492166233758116*^9, {3.492166300083487*^9, 3.492166301084927*^9}, {3.4921663372268963`*^9, 3.4921663585375395`*^9}, { 3.492166441647045*^9, 3.492166479972154*^9}, {3.4921665325677834`*^9, 3.492166639321287*^9}, 3.492170682681574*^9, {3.4921707138463864`*^9, 3.492170764258876*^9}, {3.4921712629359384`*^9, 3.492171352674977*^9}, { 3.4921714425041447`*^9, 3.4921715491775336`*^9}, {3.492171581564103*^9, 3.492171623123863*^9}, {3.492171654989684*^9, 3.4921718491088133`*^9}, { 3.492172356848908*^9, 3.4921724562518425`*^9}, {3.492172495928895*^9, 3.4921727407108746`*^9}, {3.4921728905763702`*^9, 3.4921728913074217`*^9}, {3.4921729520748005`*^9, 3.4921729813569064`*^9}, {3.4921730440670795`*^9, 3.492173055082919*^9}, { 3.4921736505591717`*^9, 3.492173775909417*^9}, {3.492173826131633*^9, 3.492173833171756*^9}, {3.4921740210919724`*^9, 3.492174170136287*^9}, { 3.4921742674762554`*^9, 3.492174277110108*^9}, {3.4928203628610563`*^9, 3.4928203692101855`*^9}, {3.5072093461059313`*^9, 3.507209349410683*^9}, { 3.5079818723262925`*^9, 3.507981878995883*^9}, {3.5079858205385976`*^9, 3.5079858285451107`*^9}, {3.539858224618951*^9, 3.539858275901884*^9}, { 3.569010788901921*^9, 3.569010805925741*^9}, {3.569011220874367*^9, 3.569011247036556*^9}, {3.569011285515993*^9, 3.569011287646864*^9}, 3.569011323853288*^9, {3.569012243543583*^9, 3.569012294477956*^9}, { 3.569012414117606*^9, 3.56901283231418*^9}, {3.569012907576143*^9, 3.569012985284706*^9}, {3.569013064582915*^9, 3.569013198628249*^9}, { 3.569013283893679*^9, 3.569013284889502*^9}, {3.569013329874974*^9, 3.569013407804027*^9}, {3.569013438168313*^9, 3.569013518152344*^9}, { 3.569016572060734*^9, 3.569016573061599*^9}, {3.569016616335636*^9, 3.569016628946861*^9}, {3.5690167234303*^9, 3.569016724858359*^9}, { 3.571744447836316*^9, 3.571744455886426*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{ RowBox[{"TemperedLogit", "[", "_", "]"}], "[", "_", "]"}], "]"}], " ", "=", " ", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{ RowBox[{"TemperedLogit", "[", "_", "]"}], "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{ RowBox[{"TemperedLogit", "[", "_", "]"}], "[", "_", "]"}], "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.4812470181717978`*^9, 3.485720559015809*^9, 3.485721283563513*^9, 3.485721317004876*^9, 3.488803149046875*^9, {3.4922043825342264`*^9, 3.4922043862095113`*^9}, {3.492548349240282*^9, 3.4925483583634005`*^9}, 3.508024938083765*^9, 3.5087639847936*^9, 3.5087650569950047`*^9, 3.519553621958006*^9, {3.519673337870487*^9, 3.519673339629588*^9}, { 3.539860960906458*^9, 3.5398609685698957`*^9}, {3.569016735598735*^9, 3.569016749538684*^9}, {3.580643179917707*^9, 3.580643180718692*^9}, 3.580643259778457*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Tempered Best Response", "SmallText", CellChangeTimes->{{3.4819039639063683`*^9, 3.4819039858113937`*^9}, { 3.485720504448155*^9, 3.4857205070967503`*^9}, 3.4922091843087626`*^9, { 3.4922092286224823`*^9, 3.4922092296239223`*^9}, 3.5100691061094837`*^9, { 3.539858214906395*^9, 3.53985821707852*^9}}, CellTags->"corecell"], Cell["\<\ The tempered Best Response dynamic is an approximation through tempered logit \ of the tempered best response dynamic of Zusai (2011).\ \>", "Text", CellChangeTimes->{{3.510069132792099*^9, 3.510069157735979*^9}, { 3.5398583691122155`*^9, 3.539858385031126*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"TemperedBR", "[", "Q_", "]"}], "[", RowBox[{"x_", ",", " ", "F_"}], "]"}], " ", ":=", RowBox[{ RowBox[{ RowBox[{"TemperedLogit", "[", ".001", "]"}], "[", "Q", "]"}], "[", RowBox[{"x", ",", " ", "F"}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4812470171718106`*^9, {3.4857205184016542`*^9, 3.485720543854027*^9}, { 3.485720770487443*^9, 3.48572082648066*^9}, {3.485720921910668*^9, 3.4857209449494247`*^9}, {3.4857209843050547`*^9, 3.4857211713432503`*^9}, {3.4857212046884327`*^9, 3.485721238071824*^9}, 3.485721310913628*^9, 3.492166233758116*^9, {3.492166300083487*^9, 3.492166301084927*^9}, {3.4921663372268963`*^9, 3.4921663585375395`*^9}, { 3.492166441647045*^9, 3.492166479972154*^9}, {3.4921665325677834`*^9, 3.492166639321287*^9}, 3.492170682681574*^9, {3.4921707138463864`*^9, 3.492170764258876*^9}, {3.4921712629359384`*^9, 3.492171352674977*^9}, { 3.4921714425041447`*^9, 3.4921715491775336`*^9}, {3.492171581564103*^9, 3.492171623123863*^9}, {3.492171654989684*^9, 3.4921718491088133`*^9}, { 3.492172356848908*^9, 3.4921724562518425`*^9}, {3.492172495928895*^9, 3.4921727407108746`*^9}, {3.4921728905763702`*^9, 3.4921728913074217`*^9}, {3.4921729520748005`*^9, 3.4921729813569064`*^9}, {3.4921730440670795`*^9, 3.492173055082919*^9}, { 3.4921736505591717`*^9, 3.492173775909417*^9}, {3.492173826131633*^9, 3.492173833171756*^9}, {3.4921740210919724`*^9, 3.492174170136287*^9}, { 3.4921742674762554`*^9, 3.492174277110108*^9}, {3.4928203628610563`*^9, 3.4928203692101855`*^9}, {3.5072093461059313`*^9, 3.507209349410683*^9}, { 3.5079818723262925`*^9, 3.507981878995883*^9}, {3.5079858205385976`*^9, 3.5079858285451107`*^9}, {3.539858224618951*^9, 3.539858275901884*^9}, { 3.569010788901921*^9, 3.569010805925741*^9}, {3.569011220874367*^9, 3.569011247036556*^9}, {3.569011285515993*^9, 3.569011287646864*^9}, 3.569011323853288*^9, {3.569012243543583*^9, 3.569012294477956*^9}, { 3.569012414117606*^9, 3.56901283231418*^9}, {3.569012907576143*^9, 3.569012985284706*^9}, {3.569013064582915*^9, 3.569013198628249*^9}, { 3.569013283893679*^9, 3.569013284889502*^9}, {3.569013329874974*^9, 3.569013407804027*^9}, {3.569013438168313*^9, 3.569013518152344*^9}, { 3.569016638785272*^9, 3.569016656682025*^9}, {3.571744353900809*^9, 3.571744362156075*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"TemperedBR", "[", "_", "]"}], "]"}], " ", "=", " ", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"TemperedBR", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{"TemperedBR", "[", "_", "]"}], "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.4812470181717978`*^9, 3.485720559015809*^9, 3.485721283563513*^9, 3.485721317004876*^9, 3.488803149046875*^9, {3.4922043825342264`*^9, 3.4922043862095113`*^9}, {3.492548349240282*^9, 3.4925483583634005`*^9}, 3.508024938083765*^9, 3.5087639847936*^9, 3.5087650569950047`*^9, 3.519553621958006*^9, {3.519673337870487*^9, 3.519673339629588*^9}, { 3.539860960906458*^9, 3.5398609685698957`*^9}, {3.569016752147321*^9, 3.56901675320416*^9}, {3.580643185723562*^9, 3.58064318657523*^9}, 3.580643266607539*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["SampleBR Dynamic", "SmallText", CellChangeTimes->{{3.4796712797199183`*^9, 3.4796712899946923`*^9}, 3.479723591645841*^9, 3.4812468720330434`*^9}, CellTags->"corecell"], Cell["\<\ The sample best response dynamic is introduced in Oyama, Sandholm, and \ Tercieux (2011).\ \>", "Text", CellChangeTimes->{{3.5100691803786707`*^9, 3.510069202362444*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"sampleBRSimplex", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SampleBR", "[", "k_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Znk", ",", "Bk"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Znk", "=", "sampleBRSimplex"}], ";", "\[IndentingNewLine]", RowBox[{"Bk", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"bestResponse", "[", RowBox[{ RowBox[{"Znk", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], "*", RowBox[{"Apply", "[", RowBox[{"Multinomial", ",", RowBox[{"k", " ", "*", RowBox[{"Znk", "[", RowBox[{"[", RowBox[{"l", ",", "p"}], "]"}], "]"}]}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "+", "littleo"}], ")"}], "^", RowBox[{"(", RowBox[{"k", " ", "*", RowBox[{"Znk", "[", RowBox[{"[", RowBox[{"l", ",", "p", ",", "j"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"littleo", "->", "0"}], ",", RowBox[{"Direction", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{ RowBox[{"Dimensions", "[", "Znk", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Bk", "-", "x"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4796712918773994`*^9, 3.479671318125142*^9}, { 3.479671575645438*^9, 3.479671610755924*^9}, {3.4796717982254925`*^9, 3.479671845663705*^9}, {3.4796718915096283`*^9, 3.47967190566999*^9}, { 3.479673481726248*^9, 3.4796735125505705`*^9}, {3.479673563904414*^9, 3.4796735815698156`*^9}, {3.4796737007812333`*^9, 3.4796737186369085`*^9}, 3.479673830758131*^9, {3.479673869423729*^9, 3.479673959453185*^9}, { 3.47967750162658*^9, 3.4796775430561533`*^9}, {3.479677582012169*^9, 3.4796776844494667`*^9}, {3.4796777620810957`*^9, 3.4796778255123053`*^9}, {3.4796778960937967`*^9, 3.4796779890775003`*^9}, {3.479678019481219*^9, 3.4796780233267484`*^9}, { 3.4796780925562954`*^9, 3.479678167994771*^9}, {3.4796782003913546`*^9, 3.4796782457866297`*^9}, {3.4796782888886075`*^9, 3.4796784321746426`*^9}, {3.47967847862143*^9, 3.479678548071294*^9}, { 3.479678600807124*^9, 3.4796786026097164`*^9}, {3.479679037625238*^9, 3.4796790595768027`*^9}, {3.4796792007297707`*^9, 3.479679226717139*^9}, { 3.4796793968417664`*^9, 3.479679399115035*^9}, {3.4796794542943788`*^9, 3.4796796902036*^9}, {3.4796797303813725`*^9, 3.479679803606665*^9}, { 3.4796798854944143`*^9, 3.479679900586115*^9}, {3.4796799399627357`*^9, 3.479679942095803*^9}, {3.4796799807714157`*^9, 3.4796800378534956`*^9}, { 3.479680100283265*^9, 3.479680102075843*^9}, {3.479680568776926*^9, 3.479680569427862*^9}, 3.4796806190692425`*^9, {3.4796806549408236`*^9, 3.4796807843469005`*^9}, {3.4796809199018188`*^9, 3.479680935624427*^9}, { 3.47968110439711*^9, 3.479681165615137*^9}, {3.479681529608534*^9, 3.479681562495824*^9}, {3.479681639446473*^9, 3.4796816498614492`*^9}, { 3.4796828007763834`*^9, 3.479682847423459*^9}, {3.4796828805010223`*^9, 3.4796829641813483`*^9}, {3.479683074650195*^9, 3.4796831357981215`*^9}, { 3.479683294075713*^9, 3.479683299673763*^9}, {3.479683524477014*^9, 3.4796836172704444`*^9}, {3.4796839560676107`*^9, 3.4796840364531994`*^9}, {3.4796841181306458`*^9, 3.4796841333625484`*^9}, 3.479684385495097*^9, {3.4796844847578297`*^9, 3.4796844914073915`*^9}, { 3.479684532806921*^9, 3.4796846136932297`*^9}, {3.479684665407592*^9, 3.4796846782260237`*^9}, {3.4796848593364477`*^9, 3.479684877202137*^9}, { 3.479721750728732*^9, 3.4797217523811083`*^9}, {3.479721931128134*^9, 3.4797219388692656`*^9}, {3.47972219290455*^9, 3.479722193225011*^9}, { 3.4797227264317245`*^9, 3.47972273843899*^9}, 3.4797235951408668`*^9, 3.480788703085273*^9, 3.4807887373656454`*^9, {3.4807892930232954`*^9, 3.480789323585013*^9}, {3.480789398692465*^9, 3.4807894589096737`*^9}, { 3.480793997996595*^9, 3.4807939997934237`*^9}, {3.4807941639454713`*^9, 3.480794224381424*^9}, {3.4807942634585485`*^9, 3.4807942916609516`*^9}, { 3.4807943356754503`*^9, 3.4807943396753473`*^9}, {3.4807960717091312`*^9, 3.480796142113579*^9}, 3.4807980573614225`*^9, {3.4807986281749344`*^9, 3.4807986306748705`*^9}, {3.480800452971968*^9, 3.4808005012051086`*^9}, { 3.4808006038743553`*^9, 3.4808006043274684`*^9}, {3.480801812171547*^9, 3.4808018626546297`*^9}, {3.4808020322596626`*^9, 3.4808020506810656`*^9}, {3.4808028155521097`*^9, 3.480802818223916*^9}, { 3.480804381355774*^9, 3.4808043902461715`*^9}, 3.480804502258929*^9, { 3.480805704259407*^9, 3.4808057093530264`*^9}, {3.4808060786404476`*^9, 3.4808061148426456`*^9}, 3.480845050414381*^9, {3.480845084336256*^9, 3.480845174523756*^9}, 3.480845387430006*^9, 3.480845458430006*^9, { 3.480845696430006*^9, 3.480845736367506*^9}, {3.480845814695631*^9, 3.480845927898756*^9}, {3.480846059695631*^9, 3.480846103336256*^9}, { 3.480846236008131*^9, 3.480846237851881*^9}, 3.481246874939256*^9, { 3.4818176948149743`*^9, 3.481817718869563*^9}, {3.4927731399432592`*^9, 3.492773252274784*^9}, {3.492773316547203*^9, 3.492773334072403*^9}, { 3.4927733763431854`*^9, 3.4927734080988483`*^9}, {3.4928102095963106`*^9, 3.492810217277355*^9}, {3.4928133955474834`*^9, 3.4928134051112356`*^9}, { 3.4928136324080725`*^9, 3.492813633850146*^9}, {3.492814897977872*^9, 3.492814919508832*^9}, {3.5079818938372235`*^9, 3.5079819036763716`*^9}, 3.5079860229095926`*^9, {3.507986065120289*^9, 3.5079861198740206`*^9}, { 3.5211514179089804`*^9, 3.5211514664737577`*^9}, {3.5211516139981956`*^9, 3.5211516325592575`*^9}, 3.5400679491230164`*^9, {3.565002043276135*^9, 3.565002044071376*^9}, 3.56500230514961*^9, {3.56901358006809*^9, 3.569013589048077*^9}, {3.569013747839469*^9, 3.569014017278425*^9}, { 3.569014822606378*^9, 3.569014921598475*^9}, {3.5691413340364*^9, 3.569141369514036*^9}, {3.571744810890323*^9, 3.57174488732807*^9}, { 3.571744988826457*^9, 3.571745063643309*^9}, 3.571745123280793*^9, { 3.571745279019186*^9, 3.571745285181624*^9}, 3.571745347255964*^9, { 3.571745434142458*^9, 3.57174545344575*^9}, {3.571745513755449*^9, 3.571745545897157*^9}, 3.571745635693923*^9, {3.571745691490042*^9, 3.571745691742692*^9}, {3.571745731552273*^9, 3.571745768873518*^9}, { 3.57174586496443*^9, 3.571745879423576*^9}, {3.571745913891439*^9, 3.571745979210894*^9}, {3.57174601060847*^9, 3.571746012506985*^9}, { 3.571791046659707*^9, 3.571791058065735*^9}, 3.571791206714722*^9, { 3.571791287232125*^9, 3.571791288958295*^9}, {3.571820552588823*^9, 3.571820589317257*^9}, 3.571820745397187*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.4796716185671563`*^9, 3.4796716196186686`*^9}, { 3.479671748644198*^9, 3.479671749074817*^9}, {3.4796718023013535`*^9, 3.4796718083700795`*^9}, {3.479671882967345*^9, 3.4796718839287276`*^9}, { 3.4796841519693036`*^9, 3.479684154342716*^9}, 3.4797235969434586`*^9, 3.480861513305006*^9, 3.4812468777360954`*^9, {3.492523483741369*^9, 3.4925234845925927`*^9}, {3.49254852553378*^9, 3.4925485362592025`*^9}, 3.508024748621331*^9, 3.5087640585898657`*^9, 3.508765065337*^9, { 3.5087803881290545`*^9, 3.50878038937084*^9}, 3.51955362762533*^9, { 3.5196733466169877`*^9, 3.51967334840609*^9}, {3.521151236239589*^9, 3.5211512380616937`*^9}, {3.580643190886689*^9, 3.580643191661746*^9}, 3.580643274463628*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Logit Dynamic", "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Logit", "[", "eta_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "eta"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "eta"]]}]], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928188661488895`*^9, 3.4928189083796144`*^9}, { 3.5072093330070963`*^9, 3.50720933886552*^9}, {3.5079830590927787`*^9, 3.5079830591078005`*^9}, {3.507983373479845*^9, 3.507983373494867*^9}, { 3.5079857432524652`*^9, 3.5079857619543576`*^9}, {3.569015082528157*^9, 3.569015110483521*^9}, {3.569015212764635*^9, 3.569015219313285*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "False"}], ";"}]}], "Input",\ CellChangeTimes->{{3.4925483215905237`*^9, 3.4925483338181067`*^9}, 3.5080249362611437`*^9, {3.508763950343546*^9, 3.5087639518198957`*^9}, 3.508765055192413*^9, 3.519553620680933*^9, {3.580643195596121*^9, 3.580643196989899*^9}, 3.580643280271536*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["BNN dynamic", "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNN", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}, { 3.569015268818353*^9, 3.569015316988842*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "BNN", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "BNN", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "BNN", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.492548368067354*^9, 3.4925484047400875`*^9}, 3.508024887040368*^9, 3.50876399121976*^9, 3.5087650579363585`*^9, 3.5195536226010427`*^9, {3.519554059314021*^9, 3.5195540596810417`*^9}, { 3.580643200489615*^9, 3.580643201612536*^9}, 3.580643284958054*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Smith Dynamic", "SmallText", CellChangeTimes->{{3.4822829143327475`*^9, 3.482282915153928*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "Fx", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "-", RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.49281921822515*^9, 3.4928193439359136`*^9}, { 3.5079859279280157`*^9, 3.5079859425890975`*^9}, {3.569015347740136*^9, 3.569015390559829*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Smith", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ".", " ", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ".", RowBox[{ RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], ".", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812470171718106`*^9, {3.492819412865029*^9, 3.492819419784979*^9}, { 3.4928194587209663`*^9, 3.4928195309848766`*^9}, {3.569015408310822*^9, 3.569015441582072*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Smith", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Smith", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "Smith", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.4812470181717978`*^9, {3.4925484536404023`*^9, 3.4925484716462936`*^9}, 3.5080248933394256`*^9, 3.508764027801937*^9, 3.508765059758979*^9, 3.519553623914118*^9, {3.5195541377775087`*^9, 3.519554138157531*^9}, 3.580643206268834*^9, 3.58064328974231*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff dynamic", "SmallText", CellTags->"corecell"], Cell[TextData[{ "Here one specifies the vector field sig", "mat", "ilde that defines an excess payoff dynamic. This definition should be \ stated in terms of the excess payoff vector Fhat[x,F], which is defined as \ Fhat[x,F] = F[x] - Fbar[x,F]. (", StyleBox["Mathematica", FontSlant->"Italic"], " subtracts the scalar from the vector correctly.) When computing rest \ points, the program assumes that sigmatilde is acute, so that the rest points \ of the dynamic are the Nash equilibria of the underlying game." }], "Text", CellChangeTimes->{{3.48181294399619*^9, 3.481812948682929*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928190920236816`*^9, 3.4928191108106956`*^9}, 3.5079830592580166`*^9, 3.5079833736450825`*^9, {3.569015462305673*^9, 3.569015466727476*^9}, {3.569015507379409*^9, 3.569015511451323*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ExcessPayoff", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812473983388066`*^9, {3.492819117730646*^9, 3.492819145350362*^9}, { 3.507983059273038*^9, 3.5079830592880597`*^9}, {3.507983373675126*^9, 3.5079833736901474`*^9}, {3.507985913206848*^9, 3.507985915835628*^9}, { 3.56901552550848*^9, 3.56901555181885*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "ExcessPayoff", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "ExcessPayoff", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "ExcessPayoff", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.4812473993544188`*^9, {3.492548442314116*^9, 3.4925484491339226`*^9}, 3.508024892348*^9, 3.5087640201957445`*^9, 3.5087650589678416`*^9, 3.5195536232820816`*^9, {3.519554087670643*^9, 3.519554088073666*^9}, 3.580643213853532*^9, 3.580643294860939*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Pairwise Comparison Dynamic", "SmallText", CellTags->"corecell"], Cell["\<\ Here one specifies the vector field rho that defines an excess payoff \ dynamic. When computing rest points, the program assumes that rho is \ separable and sign-preserving, so that the rest points of the dynamic are the \ Nash equilibria of the underlying game. The leading example of the vector \ field is the one for the Smith dynamic defined above and it is the default.\ \>", "Text", CellChangeTimes->{{3.4928202376009407`*^9, 3.492820248967285*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho1", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492820174540264*^9, 3.492820179877939*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PairwiseComparison", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ".", " ", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ".", RowBox[{ RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], ".", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.481247465900442*^9, {3.492820208959757*^9, 3.4928202154691167`*^9}, { 3.56901558757488*^9, 3.569015620239706*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "PairwiseComparison", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "PairwiseComparison", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "PairwiseComparison", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{ 3.481247469072276*^9, {3.4925484780354805`*^9, 3.492548484915374*^9}, 3.508024897685675*^9, 3.5087640332621107`*^9, 3.5087650607904625`*^9, 3.5195536246061573`*^9, {3.5195541488211403`*^9, 3.5195541491711607`*^9}, { 3.580643218378014*^9, 3.58064321934076*^9}, 3.580643298589592*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Projection Dynamic", "SmallText", CellChangeTimes->{{3.539990087133482*^9, 3.5399900923907824`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Project", "[", RowBox[{ RowBox[{"x", ":", "pattern"}], ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "m", ",", "p", ",", "nc", ",", "Fx", ",", "boundaries", ",", "reduced", ",", "reducedx", ",", "npos", ",", "flag", ",", "project", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"p", "=", "1"}], ",", RowBox[{"p", "<=", "pop"}], ",", RowBox[{"p", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"support", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "]"}], "==", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "p", "]"}], "]"}], "=", RowBox[{ RowBox[{"projectionMatrix", "[", RowBox[{"{", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "}"}], "]"}], ".", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nc", "=", RowBox[{"2", "^", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaries", "=", RowBox[{"numberSystem", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "2", ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"support", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "3"}], "]"}], "-", "boundaries"}], "]"}], "==", "1"}], ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"npos", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"reducedx", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reduced", "[", RowBox[{"[", "npos", "]"}], "]"}], "=", RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"npos", "--"}], ";", "\[IndentingNewLine]", RowBox[{"project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "npos", "]"}], "-", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"npos", ",", "npos"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"project", ".", RowBox[{"Take", "[", RowBox[{"reduced", ",", "npos"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{ RowBox[{"Position", "[", RowBox[{"boundaries", ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], "-", RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "-", RowBox[{"reduced", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "0"}]}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"-", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], "=", RowBox[{"reduced", "[", RowBox[{"[", "m", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158610264992857`*^9, 3.5158611842993116`*^9}, { 3.5158628005917587`*^9, 3.5158630618697023`*^9}, {3.5158631055882034`*^9, 3.515863193911255*^9}, {3.51586322547406*^9, 3.515863342412749*^9}, 3.5158634026771955`*^9, {3.5158634466807127`*^9, 3.515863477944501*^9}, 3.5158635440622826`*^9, {3.515863586523711*^9, 3.5158636740217156`*^9}, { 3.5158637462118444`*^9, 3.5158638202180777`*^9}, {3.5158639196487646`*^9, 3.5158639402629433`*^9}, {3.5158639975272193`*^9, 3.515864274551064*^9}, { 3.5158647809020257`*^9, 3.5158648189702024`*^9}, {3.5158648573193965`*^9, 3.515864869824112*^9}, {3.5158649057141647`*^9, 3.5158649114164906`*^9}, { 3.515864958944209*^9, 3.5158649654255795`*^9}, {3.5158650186346235`*^9, 3.5158651631418886`*^9}, {3.5158662208313847`*^9, 3.5158662404495068`*^9}, {3.515866396670442*^9, 3.5158664147144747`*^9}, { 3.515866716775751*^9, 3.5158667470044804`*^9}, 3.515866834261471*^9, { 3.515866884230329*^9, 3.515866919060321*^9}, 3.5158669958897157`*^9, { 3.5158670831157045`*^9, 3.515867126987214*^9}, {3.515939811460528*^9, 3.515939845716487*^9}, {3.515939940738922*^9, 3.515939942289011*^9}, { 3.5159400153451896`*^9, 3.5159400290639744`*^9}, 3.5159400606837826`*^9, { 3.5159401883950872`*^9, 3.515940207594186*^9}, {3.5159407235136943`*^9, 3.515940750973265*^9}, {3.5159408755113883`*^9, 3.5159408984196987`*^9}, { 3.515940951486734*^9, 3.5159409687807226`*^9}, {3.515941056979768*^9, 3.515941125575691*^9}, {3.515941551347044*^9, 3.5159415627566967`*^9}, { 3.515942551758264*^9, 3.515942553183346*^9}, {3.515942769298707*^9, 3.5159427831104965`*^9}, 3.515942849675304*^9, {3.515942908068644*^9, 3.515942909479725*^9}, {3.515942983088935*^9, 3.515943036221974*^9}, { 3.5159431901947803`*^9, 3.5159432621618967`*^9}, {3.5159433949264903`*^9, 3.515943440513098*^9}, {3.515943510151081*^9, 3.5159435310722775`*^9}, { 3.5159517855074043`*^9, 3.515951785936429*^9}, {3.5159518234615755`*^9, 3.5159518237475915`*^9}, {3.5159520080041304`*^9, 3.515952037581822*^9}, { 3.5159520699776754`*^9, 3.515952096142172*^9}, {3.5159521936447487`*^9, 3.5159522360401735`*^9}, {3.515952266592921*^9, 3.5159522829178543`*^9}, 3.5159523791933613`*^9, {3.5159526272685504`*^9, 3.5159526277765794`*^9}, { 3.515953935612383*^9, 3.515953936742448*^9}, {3.5159573459824452`*^9, 3.515957347241517*^9}, {3.5159596512592993`*^9, 3.51595965231536*^9}, 3.5160382452476187`*^9, 3.516038412473183*^9, 3.516039628779752*^9, { 3.5160396629887085`*^9, 3.5160396699581075`*^9}, 3.5160401640093656`*^9, { 3.5160402785659175`*^9, 3.516040279315961*^9}, 3.5160460901553216`*^9, 3.5160961772861414`*^9, {3.5160962880094748`*^9, 3.51609628967957*^9}, { 3.516096414145689*^9, 3.516096425836358*^9}, {3.516096474003113*^9, 3.51609656084508*^9}, {3.516096678938834*^9, 3.5160966792978554`*^9}, 3.5162145979199667`*^9, 3.516215742206416*^9, 3.5162163349323187`*^9, { 3.516216393204651*^9, 3.516216393616675*^9}, 3.516216852943947*^9, 3.516216886289854*^9, 3.5162172238591623`*^9, {3.516217992187108*^9, 3.516217992412121*^9}, {3.5162182837447844`*^9, 3.516218284301816*^9}, 3.516218961110527*^9, {3.516219194089853*^9, 3.5162192115168495`*^9}, 3.516219423968001*^9, 3.5162744825432615`*^9, {3.5163860108686123`*^9, 3.516386011136627*^9}, {3.516386620043455*^9, 3.516386631638118*^9}, { 3.516386987323462*^9, 3.516386989969613*^9}, {3.516387055217345*^9, 3.5163870565674224`*^9}, {3.539989461903721*^9, 3.5399894624787536`*^9}, 3.5399900589678707`*^9, 3.565002008222612*^9, 3.5650021936907*^9, { 3.56905712235543*^9, 3.569057173664209*^9}, {3.569057215473716*^9, 3.569057289134857*^9}, {3.569057320115192*^9, 3.569057378004887*^9}, { 3.569057431868946*^9, 3.569057482066408*^9}, {3.5721176622646*^9, 3.572117667158044*^9}, {3.572171295357701*^9, 3.572171342130227*^9}, { 3.572171515351029*^9, 3.572171659481154*^9}, {3.572171865999254*^9, 3.572171886895589*^9}, {3.572172550218518*^9, 3.572172556484424*^9}, 3.572172602670046*^9, {3.580640513743908*^9, 3.580640520942297*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Project", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Project", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "Project", "]"}], "=", "True"}], ";"}]}], "Input", CellChangeTimes->{ 3.4747152700777316`*^9, {3.492548495590724*^9, 3.492548502050012*^9}, 3.5080248995183105`*^9, {3.5087640437020054`*^9, 3.508764045061373*^9}, 3.5087650617218018`*^9, {3.515956700432522*^9, 3.515956701185565*^9}, 3.5195536260592403`*^9, {3.5195541654450912`*^9, 3.5195541660201244`*^9}, { 3.5399894923614626`*^9, 3.5399894930725036`*^9}, {3.539990059901924*^9, 3.5399900605319605`*^9}, {3.580643307722729*^9, 3.580643323528796*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Selection-mutation", "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SelMut", "[", "M_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"M", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], " ", ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ".", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ".", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}], ")"}], RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492820444288142*^9, 3.492820452860469*^9}, { 3.569015767937372*^9, 3.569015795779592*^9}, {3.569015899370808*^9, 3.569015906907242*^9}, {3.580492102073976*^9, 3.580492103740049*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"SelMut", "[", "___", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"SelMut", "[", "___", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", RowBox[{"SelMut", "[", "___", "]"}], "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.492548506226017*^9, 3.4925485139371047`*^9}, 3.4933016786373487`*^9, 3.508024939135277*^9, 3.5087640556061897`*^9, 3.508765063103789*^9, 3.51955362675028*^9, {3.519674127376644*^9, 3.5196741311048574`*^9}, {3.580643400540533*^9, 3.5806434093876*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Other", "SmallText", CellTags->"corecell"], Cell["\<\ Define any other dynamic you want to use. When defining be sure you follow \ same style with previously defined dynamics. Otherwise, you may need to do \ major changes in the program.\ \>", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Other", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5079830610005217`*^9, 3.5079830610455866`*^9}, { 3.5079833766944675`*^9, 3.507983376724511*^9}, {3.518945584429287*^9, 3.5189455883805127`*^9}, {3.569015699525398*^9, 3.569015719450976*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Other", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Other", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AOCharacterization", "[", "Other", "]"}], "=", "False"}], ";"}]}], "Input", CellChangeTimes->{{3.4925485608745975`*^9, 3.492548575836111*^9}, { 3.4933015281709886`*^9, 3.493301530884891*^9}, 3.5080247495827136`*^9, 3.508764061971781*^9, 3.508764093225586*^9, 3.5087650661982384`*^9, 3.5195536284003744`*^9, {3.580643412938697*^9, 3.580643431690791*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Choice of contour function", "Section", Evaluatable->False, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "2dexclusive"}], Cell[TextData[{ "Choose a contour function here. To use one of the built-in contour \ functions, press the button corresponding to the contour function you desire. \ If you choose StableGameLyapunov[dyn], the program will use the Lyapunov \ function that is appropriate for the dynamic you selected in the previous \ section. ", StyleBox["contourFunction", FontWeight->"Bold"], " is used in almost all figures including the background contour plots on \ phase diagrams (see the next section)." }], "Text", CellChangeTimes->{ 3.474715146409906*^9, {3.481416531351035*^9, 3.4814165322623453`*^9}, 3.4814188859167347`*^9, 3.4817354828638673`*^9, 3.481805550504736*^9, { 3.511176315523027*^9, 3.511176315524838*^9}, {3.513019637964099*^9, 3.5130196386751213`*^9}, {3.569641821611898*^9, 3.569641826428338*^9}, { 3.572108975336888*^9, 3.572108998393395*^9}, {3.572109034077679*^9, 3.572109050023957*^9}}, FontFamily->"Palatino", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "names", " ", ",", "buttons", ",", "col", ",", "colbut", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Speed", ",", "L1Speed", ",", "RSSpeed"}], "}"}], ",", RowBox[{"{", RowBox[{ "NormalFormPotential", ",", "CongestionPotential", ",", "NormalFormLogitPotential", ",", "CongestionLogitPotential"}], "}"}], ",", RowBox[{"{", RowBox[{"Defer", "[", RowBox[{"StableGameLyapunov", "[", "dyn", "]"}], "]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"col", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"col", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"colbut", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "col", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "col", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"colbut", "=", RowBox[{"Join", "[", RowBox[{"colbut", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", RowBox[{"Column", "[", "colbut", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"col", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"{", "buttons", "}"}], ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Center", ",", "Top"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Row", "[", RowBox[{"buttons", ",", RowBox[{"Alignment", "->", RowBox[{"{", "Top", "}"}]}]}], "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, {3.4816740331466303`*^9, 3.481674065713459*^9}, { 3.481674238521946*^9, 3.4816742890345793`*^9}, {3.481674331806082*^9, 3.481674340829056*^9}, {3.4816743915620065`*^9, 3.4816744212947598`*^9}, { 3.4816747202947006`*^9, 3.481674733964357*^9}, {3.4816747804011297`*^9, 3.481674900724146*^9}, 3.481735482883896*^9, {3.4817380541162148`*^9, 3.48173807889184*^9}, {3.48173811685643*^9, 3.4817381399496365`*^9}, { 3.48173818204016*^9, 3.4817381861360493`*^9}, 3.481805509315509*^9, { 3.4818056125139008`*^9, 3.4818056395427666`*^9}, {3.4818129093764095`*^9, 3.4818129153650208`*^9}, {3.507981923865402*^9, 3.5079819292431345`*^9}, { 3.539720050558566*^9, 3.539720051906237*^9}, {3.565001825275073*^9, 3.565001827200672*^9}, 3.569641861227042*^9}, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ ButtonBox["Speed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`Speed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["L1Speed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`L1Speed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["RSSpeed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`RSSpeed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ ButtonBox["NormalFormPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`NormalFormPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["CongestionPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`CongestionPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["NormalFormLogitPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`NormalFormLogitPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["CongestionLogitPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[$CellContext`CongestionLogitPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ ButtonBox[ RowBox[{"StableGameLyapunov", "[", "dyn", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"contourFunction=", ToBoxes[ Defer[ $CellContext`StableGameLyapunov[$CellContext`dyn]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableAlignments -> {Center, Top}]]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{ 3.48142413463618*^9, 3.4814832925411844`*^9, {3.481674054998051*^9, 3.481674066785*^9}, {3.48167423987389*^9, 3.481674289715558*^9}, { 3.4816743936650305`*^9, 3.4816744225465603`*^9}, {3.481674800389872*^9, 3.4816748061281233`*^9}, {3.481674838624851*^9, 3.481674901515283*^9}, 3.4817381409510765`*^9, 3.4817381888799953`*^9, 3.4818056464527025`*^9, 3.539715303443759*^9, 3.5397187124386463`*^9, 3.539720053116391*^9, 3.5397203702721643`*^9, 3.569641870059481*^9}, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}] }, {2}]], Cell[BoxData[ RowBox[{ RowBox[{"contourFunction", "=", "Speed"}], ";"}]], "Input", CellChangeTimes->{{3.4814155235518913`*^9, 3.4814155237421646`*^9}, { 3.481415578280587*^9, 3.4814155786811633`*^9}, {3.481415708417715*^9, 3.481415721386363*^9}, 3.481415844563483*^9, {3.4817381544104304`*^9, 3.4817382113022366`*^9}, {3.481805514132435*^9, 3.481805530886526*^9}, { 3.481805655325461*^9, 3.481805657188139*^9}, 3.481849632859864*^9, 3.5397200666496096`*^9, 3.569641885251186*^9, 3.570091772935287*^9, 3.570140912806637*^9, 3.570140967949773*^9, 3.572117127606164*^9, 3.572117695656741*^9, 3.572121628898224*^9}, CellTags->{"corecell", "unique_contourfunction", "2dexclusive"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definitions of contour functions", FontSlant->"Italic"]], "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell["Speed functions", "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell["\<\ Speed is the standard (Euclidean) speed on the simplex. L1Speed is \ self-explanatory. RSSpeed is the speed of the replicator dynamic after \ solution trajectories have been moved to the sphere.\ \>", "Text", Evaluatable->False, FontFamily->"Palatino", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Speed", "[", "x_", "]"}], ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"dyn", "===", " ", "Project"}], ",", RowBox[{"stateNorm", "[", RowBox[{"PhiF", "[", RowBox[{"x", ",", "Fmp"}], "]"}], "]"}], ",", RowBox[{"stateNorm", "[", RowBox[{"dyn", "[", RowBox[{"x", ",", "Fmp"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4747151530594673`*^9, 3.474715155923586*^9}, 3.474715275094946*^9, {3.4747153409997125`*^9, 3.4747153426320596`*^9}, { 3.4807883758124013`*^9, 3.480788398624317*^9}, {3.4809477948007536`*^9, 3.4809478121600175`*^9}, {3.4814188859267488`*^9, 3.4814188859467773`*^9}, {3.4817354828939104`*^9, 3.481735482903925*^9}, { 3.492820797185584*^9, 3.4928208951865025`*^9}, {3.4928209850056562`*^9, 3.492821069707451*^9}, {3.4928211021641216`*^9, 3.4928211027149134`*^9}, 3.492826146327272*^9, {3.4928263011398816`*^9, 3.492826304024029*^9}, { 3.492826609363085*^9, 3.4928266643821983`*^9}, {3.4928267125915203`*^9, 3.4928267262812047`*^9}, 3.5159567112361403`*^9, 3.53998949703473*^9, 3.539990062574077*^9, {3.568977739961752*^9, 3.568977741886262*^9}, { 3.569671103865777*^9, 3.569671112169898*^9}, {3.569672226209249*^9, 3.569672227314862*^9}, 3.580653536597007*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"L1Speed", "[", "x_", "]"}], ":=", RowBox[{"stateNorm", "[", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "Fmp"}], "]"}], ",", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474715343623485*^9, 3.4747153456363797`*^9}, { 3.480947828050541*^9, 3.4809478319880157`*^9}, {3.4814188859467773`*^9, 3.481418885956792*^9}, {3.4817354829539967`*^9, 3.481735482964011*^9}, { 3.492821702717675*^9, 3.492821750035715*^9}, {3.492826323612195*^9, 3.4928263366609583`*^9}, 3.568977762869306*^9, 3.56967111791622*^9, 3.569672229096067*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RSSpeed", "[", "x_", "]"}], ":=", " ", RowBox[{"stateNorm", "[", RowBox[{"Fhat", "[", RowBox[{"x", ",", "Fmp"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480947818878724*^9, 3.480947824597438*^9}, { 3.4928210758562927`*^9, 3.492821133368992*^9}, {3.492821287009917*^9, 3.4928212902045107`*^9}, {3.4928213894872723`*^9, 3.492821497222187*^9}, { 3.4928215378205647`*^9, 3.49282154632279*^9}, {3.4928215773273726`*^9, 3.492821604165965*^9}, {3.4928263078194866`*^9, 3.4928263108738785`*^9}, { 3.569141518703996*^9, 3.569141524962443*^9}, {3.569141565909397*^9, 3.569141586002782*^9}, 3.569671116853109*^9, 3.569672228178984*^9}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Potential functions", "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"perturbedLogitPotential", "[", RowBox[{"x_", ",", "eta_", ",", RowBox[{"m_:", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "pop"}], "]"}]}]}], "]"}], ":=", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"m", "[", RowBox[{"[", "p", "]"}], "]"}], "eta", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "/", RowBox[{"m", " ", "[", RowBox[{"[", "p", "]"}], "]"}]}], RowBox[{"Log", "[", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "/", RowBox[{"m", "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492821913320507*^9, 3.492821948170619*^9}, 3.492822504089992*^9, {3.5072093511932464`*^9, 3.5072093518541965`*^9}, { 3.50798306107563*^9, 3.5079830610906515`*^9}, {3.507983376754554*^9, 3.5079833767695756`*^9}, {3.507986176355237*^9, 3.507986181717948*^9}, { 3.569181992086901*^9, 3.569181996751208*^9}, 3.569256830024125*^9, { 3.569279296845364*^9, 3.569279328450291*^9}, {3.569346718923436*^9, 3.569346724851712*^9}, {3.569346941837413*^9, 3.569346948260623*^9}, { 3.569347602320159*^9, 3.569347714622912*^9}, {3.56934776003714*^9, 3.569347778007915*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NormalFormPotential", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Total", "[", RowBox[{"Fbar", "[", RowBox[{"x", ",", "Fmp"}], "]"}], "]"}], "/", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"pop", "==", "1"}], ",", "2", ",", "pop"}], "]"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.569235368443072*^9, 3.569235382406498*^9}, { 3.56923548938851*^9, 3.569235548777446*^9}, {3.569256979794392*^9, 3.569257005604565*^9}, 3.569671124992658*^9, 3.569672234465497*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NormalFormLogitPotential", "[", RowBox[{"x_", ",", RowBox[{"m_:", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "pop"}], "]"}]}]}], "]"}], ":=", RowBox[{ RowBox[{"NormalFormPotential", "[", "x", "]"}], "-", RowBox[{"perturbedLogitPotential", "[", RowBox[{"x", ",", "eta"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.492821776313501*^9, {3.4928219657959633`*^9, 3.492821973557123*^9}, 3.5072093529457664`*^9, 3.56925682700608*^9, {3.569258921291787*^9, 3.569258923840705*^9}, {3.569258967428122*^9, 3.56925908809745*^9}, { 3.569347538173015*^9, 3.569347581397523*^9}, {3.569347724395455*^9, 3.56934772794519*^9}, {3.569347769477306*^9, 3.569347784161824*^9}, { 3.569347845469976*^9, 3.569347846600826*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CongestionPotential", "[", "x_", "]"}], ":=", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"congestionCost", "[", "k", "]"}], "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", RowBox[{"u", "[", RowBox[{"k", ",", "x"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "p", "]"}], "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4928220900546384`*^9, 3.4928220926383533`*^9}, { 3.5079830611056733`*^9, 3.507983061120695*^9}, {3.5079833767695756`*^9, 3.5079833767996187`*^9}, {3.5079862015164165`*^9, 3.5079862127225304`*^9}, 3.569266182561357*^9, {3.569266289660051*^9, 3.569266338047738*^9}, { 3.569266396186741*^9, 3.569266442587142*^9}, 3.569266704671593*^9, { 3.569266779047789*^9, 3.569266782554108*^9}, {3.569268872140166*^9, 3.569268936390325*^9}, {3.569269022178308*^9, 3.569269095661054*^9}, { 3.569269190713792*^9, 3.569269201441876*^9}, {3.569279180711049*^9, 3.569279281428177*^9}, {3.569347548178699*^9, 3.569347549612837*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CongestionLogitPotential", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"CongestionPotential", "[", "x", "]"}], "-", RowBox[{"perturbedLogitPotential", "[", RowBox[{"x", ",", "eta"}], "]"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.492821829850483*^9, {3.492821871610531*^9, 3.492821900271744*^9}, { 3.4928219816587725`*^9, 3.492822047593582*^9}, {3.492822101491083*^9, 3.492822106508298*^9}, 3.5072093539872637`*^9, 3.569256828127694*^9, { 3.569259119413801*^9, 3.569259123917033*^9}, 3.569347736520544*^9, { 3.569347771545244*^9, 3.569347785585016*^9}, {3.569347835702574*^9, 3.569347836904125*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Lyapunov functions", "Subsubsection", CellChangeTimes->{{3.4919262386780148`*^9, 3.491926239399051*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Replicator", "]"}], "[", "x_", "]"}], ":=", RowBox[{"-", " ", RowBox[{"Product", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ SuperscriptBox[ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], RowBox[{"NEa", "[", RowBox[{"[", RowBox[{"1", ",", "p", ",", "j"}], "]"}], "]"}]], " ", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4928224614186335`*^9, 3.492822461749109*^9}, 3.507983061150738*^9, 3.50798337681464*^9, {3.5079862368021555`*^9, 3.507986241624089*^9}, 3.5106652236940928`*^9, {3.569181805224756*^9, 3.569181860286644*^9}, {3.569279353578478*^9, 3.569279372787327*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", RowBox[{"Logit", "[", "eta", "]"}], "]"}], "[", "x_", "]"}], ":=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"eta", " ", RowBox[{"Log", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"Fmp", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "eta"]]}], "]"}]}], "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ".", RowBox[{ RowBox[{"Fmp", "[", "x", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "-", RowBox[{"perturbedLogitPotential", "[", RowBox[{"x", ",", "eta"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.4928224760196285`*^9, {3.492822509928387*^9, 3.4928225205536656`*^9}, { 3.507209356440792*^9, 3.507209371983141*^9}, 3.507983061150738*^9, 3.5079833768446836`*^9, {3.5079862514482155`*^9, 3.5079862548130536`*^9}, { 3.5691819014642*^9, 3.569181930526303*^9}, {3.569182013946951*^9, 3.569182014936361*^9}, {3.569182048452098*^9, 3.569182058646028*^9}, 3.569182094315972*^9, 3.569256829036113*^9, {3.569347870143617*^9, 3.569347946710506*^9}, {3.569671158189275*^9, 3.569671159305812*^9}, { 3.56967224252856*^9, 3.569672243698125*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "BNN", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], SuperscriptBox[ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "Fmp"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "2"]}], " ", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4928225343735375`*^9, 3.492822534724042*^9}, 3.5079830611807814`*^9, 3.507983376874727*^9, {3.50798626989474*^9, 3.5079862728990602`*^9}, {3.569182299052379*^9, 3.569182314798915*^9}, 3.569671164231553*^9, 3.569672245288665*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Smith", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmp", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"Fmp", "[", "x", "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}]}], ",", "0"}], "]"}], ")"}], "2"]}]}]}], " ", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.481247021952999*^9, {3.4928225575568733`*^9, 3.492822561853051*^9}, { 3.5079830611958027`*^9, 3.5079830612108245`*^9}, {3.50798337690477*^9, 3.5079833769348135`*^9}, {3.5079862808755293`*^9, 3.5079863041890526`*^9}, {3.507986373739061*^9, 3.507986379417226*^9}, { 3.569182340231939*^9, 3.569182381474873*^9}, {3.569671167592796*^9, 3.569671169948625*^9}, {3.5696722485343*^9, 3.569672249579905*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Project", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "-", RowBox[{"NEa", "[", RowBox[{"[", RowBox[{"1", ",", "p"}], "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.474715219835487*^9, {3.4928226601343727`*^9, 3.4928226749757137`*^9}, 3.5079830612258463`*^9, 3.507983376964856*^9, 3.510665224795676*^9, 3.5159567194426093`*^9, 3.539989503417095*^9, 3.539990065628252*^9, 3.568977791464163*^9, {3.569182196955205*^9, 3.569182256168049*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Other contour functions", "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell["Define your own contour function here.", "Text", FontFamily->"Palatino", CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Other", "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.492826559751747*^9, 3.4928265625357504`*^9}, { 3.53968961280319*^9, 3.5396896242758703`*^9}, {3.569142039324976*^9, 3.569142059891007*^9}, {3.572115934424788*^9, 3.572115934936178*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Specification of graphical output", "Section", Evaluatable->False, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Specifications for phase diagram", "Subsection", CellChangeTimes->{{3.481670096105443*^9, 3.4816701004717216`*^9}, { 3.4818952324462385`*^9, 3.481895257672512*^9}}, CellTags->{"corecell", "opengroup"}], Cell[TextData[{ "These parameters are used for contour function output. If you do not \ include contour functions in your output, these parameters are not used.\n", StyleBox["drawphasediagram", FontWeight->"Bold"], " = 1 creates a phase diagram on the simplex. The solution trajectories to \ be included are specified below.\n", StyleBox["ppoints", FontWeight->"Bold"], " determines how many points will be used when drawing the solution \ trajectories. \n", StyleBox["pdcontourplot", FontWeight->"Bold"], " = 1 draws the phase diagram on top of a contour plot.\n", StyleBox["pdcolor", FontWeight->"Bold"], " = 1 generates color output; pdcolor = 0 generates black and white. The \ scales used are drawn below.\n", StyleBox["conbrightness", FontWeight->"Bold"], " specifies how light the black and white coloring should be. 1 is the \ default, 1.5 will give a balanced overall lighter image. The option is \ ineffective when color is selected.\n", StyleBox["plotprecision", FontWeight->"Bold"], " specifies the number of points sampled in each dimension when drawing the \ contour plots. Typically, this option is the main determinant of the \ program's running time. Settings between 50 and 200 are accurate enough for \ most purposes. For fast drafts a setting of 20 is adequate.\n", StyleBox["numberofcontours", FontWeight->"Bold"], " specifies the number of contour levels shown in the contour plots.\n", StyleBox["compressgraphic ", FontWeight->"Bold"], "= 1 uses an unofficial patch to generate a contour plot that is both of \ higher quality and smaller size (see \ http://library.wolfram.com/infocenter/MathSource/7029/ ). In particular, \ Mathematica\[CloseCurlyQuote]s routine for converting output into eps and pdf \ format works poorly unless this patch is used. Using this patch can \ substantially increase the program\[CloseCurlyQuote]s running time (say, by a \ factor of 5 or more), so it is typically used only to create figures for \ publication. If compressgraphic = 0, the original Mathematica code, which \ since version 6 has created lower-quality output, is used.\n" }], "Text", CellChangeTimes->{{3.480779243193115*^9, 3.4807792961292334`*^9}, 3.4807794713011184`*^9, {3.480779514703528*^9, 3.4807795412717314`*^9}, { 3.4807797587995887`*^9, 3.4807799035777693`*^9}, {3.4807799399500704`*^9, 3.4807799407712507`*^9}, {3.480780151674515*^9, 3.4807801526859694`*^9}, { 3.481756068394542*^9, 3.48175606959627*^9}, {3.4818061451898513`*^9, 3.481806188842621*^9}, {3.4818062519032974`*^9, 3.4818062577016354`*^9}, { 3.4919259064803376`*^9, 3.4919259068608847`*^9}, {3.4919260563057756`*^9, 3.4919260627650642`*^9}, {3.5100683019354763`*^9, 3.510068473377914*^9}, { 3.510068530424493*^9, 3.51006857697589*^9}, {3.510068612787033*^9, 3.510068703951317*^9}, {3.510068759140867*^9, 3.5100688299262753`*^9}, { 3.5100692555121937`*^9, 3.510069357549266*^9}, {3.511176334307261*^9, 3.511176581727478*^9}, 3.513021503086013*^9, {3.5194167157432723`*^9, 3.5194168216763315`*^9}, {3.5212851920957932`*^9, 3.5212852156631413`*^9}, 3.5212852464659033`*^9, {3.539432175056289*^9, 3.539432187888066*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .10844 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.00258189 0.47619 [ [ 0 0 0 0 ] [ 1 .10844 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .10844 L 0 .10844 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00258189 0.477324 0.105858 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.942951 0.0337105 0.942951 [ [ 0 0 0 0 ] [ 1 .22772 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .22772 L 0 .22772 L closepath clip newpath 0 .1 1 r .02381 .03371 m .02381 .2223 L .03324 .2223 L .03324 .03371 L F 0 .145 1 r .03324 .03371 m .03324 .2223 L .04267 .2223 L .04267 .03371 L F 0 .19 1 r .04267 .03371 m .04267 .2223 L .0521 .2223 L .0521 .03371 L F 0 .235 1 r .0521 .03371 m .0521 .2223 L .06153 .2223 L .06153 .03371 L F 0 .28 1 r .06153 .03371 m .06153 .2223 L .07096 .2223 L .07096 .03371 L F 0 .325 1 r .07096 .03371 m .07096 .2223 L .08039 .2223 L .08039 .03371 L F 0 .37 1 r .08039 .03371 m .08039 .2223 L .08982 .2223 L .08982 .03371 L F 0 .415 1 r .08982 .03371 m .08982 .2223 L .09925 .2223 L .09925 .03371 L F 0 .46 1 r .09925 .03371 m .09925 .2223 L .10868 .2223 L .10868 .03371 L F 0 .505 1 r .10868 .03371 m .10868 .2223 L .1181 .2223 L .1181 .03371 L F 0 .55 1 r .1181 .03371 m .1181 .2223 L .12753 .2223 L .12753 .03371 L F 0 .595 1 r .12753 .03371 m .12753 .2223 L .13696 .2223 L .13696 .03371 L F 0 .64 1 r .13696 .03371 m .13696 .2223 L .14639 .2223 L .14639 .03371 L F 0 .685 1 r .14639 .03371 m .14639 .2223 L .15582 .2223 L .15582 .03371 L F 0 .73 1 r .15582 .03371 m .15582 .2223 L .16525 .2223 L .16525 .03371 L F 0 .775 1 r .16525 .03371 m .16525 .2223 L .17468 .2223 L .17468 .03371 L F 0 .82 1 r .17468 .03371 m .17468 .2223 L .18411 .2223 L .18411 .03371 L F 0 .865 1 r .18411 .03371 m .18411 .2223 L .19354 .2223 L .19354 .03371 L F 0 .91 1 r .19354 .03371 m .19354 .2223 L .20297 .2223 L .20297 .03371 L F 0 .955 1 r .20297 .03371 m .20297 .2223 L .2124 .2223 L .2124 .03371 L F 0 1 1 r .2124 .03371 m .2124 .2223 L .22183 .2223 L .22183 .03371 L F 0 1 .955 r .22183 .03371 m .22183 .2223 L .23126 .2223 L .23126 .03371 L F 0 1 .91 r .23126 .03371 m .23126 .2223 L .24069 .2223 L .24069 .03371 L F 0 1 .865 r .24069 .03371 m .24069 .2223 L .25012 .2223 L .25012 .03371 L F 0 1 .82 r .25012 .03371 m .25012 .2223 L .25955 .2223 L .25955 .03371 L F 0 1 .775 r .25955 .03371 m .25955 .2223 L .26898 .2223 L .26898 .03371 L F 0 1 .73 r .26898 .03371 m .26898 .2223 L .27841 .2223 L .27841 .03371 L F 0 1 .685 r .27841 .03371 m .27841 .2223 L .28784 .2223 L .28784 .03371 L F 0 1 .64 r .28784 .03371 m .28784 .2223 L .29727 .2223 L .29727 .03371 L F 0 1 .595 r .29727 .03371 m .29727 .2223 L .30669 .2223 L .30669 .03371 L F 0 1 .55 r .30669 .03371 m .30669 .2223 L .31612 .2223 L .31612 .03371 L F 0 1 .505 r .31612 .03371 m .31612 .2223 L .32555 .2223 L .32555 .03371 L F 0 1 .46 r .32555 .03371 m .32555 .2223 L .33498 .2223 L .33498 .03371 L F 0 1 .415 r .33498 .03371 m .33498 .2223 L .34441 .2223 L .34441 .03371 L F 0 1 .352 r .34441 .03371 m .34441 .2223 L .35384 .2223 L .35384 .03371 L F 0 1 .28 r .35384 .03371 m .35384 .2223 L .36327 .2223 L .36327 .03371 L F 0 1 .208 r .36327 .03371 m .36327 .2223 L .3727 .2223 L .3727 .03371 L F 0 1 .136 r .3727 .03371 m .3727 .2223 L .38213 .2223 L .38213 .03371 L F 0 1 .064 r .38213 .03371 m .38213 .2223 L .39156 .2223 L .39156 .03371 L F .008 1 0 r .39156 .03371 m .39156 .2223 L .40099 .2223 L .40099 .03371 L F .08 1 0 r .40099 .03371 m .40099 .2223 L .41042 .2223 L .41042 .03371 L F .152 1 0 r .41042 .03371 m .41042 .2223 L .41985 .2223 L .41985 .03371 L F .224 1 0 r .41985 .03371 m .41985 .2223 L .42928 .2223 L .42928 .03371 L F .296 1 0 r .42928 .03371 m .42928 .2223 L .43871 .2223 L .43871 .03371 L F .368 1 0 r .43871 .03371 m .43871 .2223 L .44814 .2223 L .44814 .03371 L F .44 1 0 r .44814 .03371 m .44814 .2223 L .45757 .2223 L .45757 .03371 L F .512 1 0 r .45757 .03371 m .45757 .2223 L .467 .2223 L .467 .03371 L F .584 1 0 r .467 .03371 m .467 .2223 L .47643 .2223 L .47643 .03371 L F .656 1 0 r .47643 .03371 m .47643 .2223 L .48586 .2223 L .48586 .03371 L F .728 1 0 r .48586 .03371 m .48586 .2223 L .49529 .2223 L .49529 .03371 L F .8 1 0 r .49529 .03371 m .49529 .2223 L .50471 .2223 L .50471 .03371 L F .824 1 0 r .50471 .03371 m .50471 .2223 L .51414 .2223 L .51414 .03371 L F .848 1 0 r .51414 .03371 m .51414 .2223 L .52357 .2223 L .52357 .03371 L F .872 1 0 r .52357 .03371 m .52357 .2223 L .533 .2223 L .533 .03371 L F .896 1 0 r .533 .03371 m .533 .2223 L .54243 .2223 L .54243 .03371 L F .92 1 0 r .54243 .03371 m .54243 .2223 L .55186 .2223 L .55186 .03371 L F .944 1 0 r .55186 .03371 m .55186 .2223 L .56129 .2223 L .56129 .03371 L F .968 1 0 r .56129 .03371 m .56129 .2223 L .57072 .2223 L .57072 .03371 L F .992 1 0 r .57072 .03371 m .57072 .2223 L .58015 .2223 L .58015 .03371 L F 1 .984 0 r .58015 .03371 m .58015 .2223 L .58958 .2223 L .58958 .03371 L F 1 .96 0 r .58958 .03371 m .58958 .2223 L .59901 .2223 L .59901 .03371 L F 1 .936 0 r .59901 .03371 m .59901 .2223 L .60844 .2223 L .60844 .03371 L F 1 .912 0 r .60844 .03371 m .60844 .2223 L .61787 .2223 L .61787 .03371 L F 1 .888 0 r .61787 .03371 m .61787 .2223 L .6273 .2223 L .6273 .03371 L F 1 .864 0 r .6273 .03371 m .6273 .2223 L .63673 .2223 L .63673 .03371 L F 1 .84 0 r .63673 .03371 m .63673 .2223 L .64616 .2223 L .64616 .03371 L F 1 .816 0 r .64616 .03371 m .64616 .2223 L .65559 .2223 L .65559 .03371 L F 1 .792 0 r .65559 .03371 m .65559 .2223 L .66502 .2223 L .66502 .03371 L F 1 .768 0 r .66502 .03371 m .66502 .2223 L .67445 .2223 L .67445 .03371 L F 1 .744 0 r .67445 .03371 m .67445 .2223 L .68388 .2223 L .68388 .03371 L F 1 .72 0 r .68388 .03371 m .68388 .2223 L .69331 .2223 L .69331 .03371 L F 1 .696 0 r .69331 .03371 m .69331 .2223 L .70273 .2223 L .70273 .03371 L F 1 .672 0 r .70273 .03371 m .70273 .2223 L .71216 .2223 L .71216 .03371 L F 1 .648 0 r .71216 .03371 m .71216 .2223 L .72159 .2223 L .72159 .03371 L F 1 .624 0 r .72159 .03371 m .72159 .2223 L .73102 .2223 L .73102 .03371 L F 1 .6 0 r .73102 .03371 m .73102 .2223 L .74045 .2223 L .74045 .03371 L F 1 .576 0 r .74045 .03371 m .74045 .2223 L .74988 .2223 L .74988 .03371 L F 1 .552 0 r .74988 .03371 m .74988 .2223 L .75931 .2223 L .75931 .03371 L F 1 .528 0 r .75931 .03371 m .75931 .2223 L .76874 .2223 L .76874 .03371 L F 1 .504 0 r .76874 .03371 m .76874 .2223 L .77817 .2223 L .77817 .03371 L F 1 .48 0 r .77817 .03371 m .77817 .2223 L .7876 .2223 L .7876 .03371 L F 1 .456 0 r .7876 .03371 m .7876 .2223 L .79703 .2223 L .79703 .03371 L F 1 .432 0 r .79703 .03371 m .79703 .2223 L .80646 .2223 L .80646 .03371 L F 1 .408 0 r .80646 .03371 m .80646 .2223 L .81589 .2223 L .81589 .03371 L F 1 .384 0 r .81589 .03371 m .81589 .2223 L .82532 .2223 L .82532 .03371 L F 1 .36 0 r .82532 .03371 m .82532 .2223 L .83475 .2223 L .83475 .03371 L F 1 .336 0 r .83475 .03371 m .83475 .2223 L .84418 .2223 L .84418 .03371 L F 1 .312 0 r .84418 .03371 m .84418 .2223 L .85361 .2223 L .85361 .03371 L F 1 .288 0 r .85361 .03371 m .85361 .2223 L .86304 .2223 L .86304 .03371 L F 1 .264 0 r .86304 .03371 m .86304 .2223 L .87247 .2223 L .87247 .03371 L F 1 .24 0 r .87247 .03371 m .87247 .2223 L .8819 .2223 L .8819 .03371 L F 1 .216 0 r .8819 .03371 m .8819 .2223 L .89132 .2223 L .89132 .03371 L F 1 .192 0 r .89132 .03371 m .89132 .2223 L .90075 .2223 L .90075 .03371 L F 1 .168 0 r .90075 .03371 m .90075 .2223 L .91018 .2223 L .91018 .03371 L F 1 .144 0 r .91018 .03371 m .91018 .2223 L .91961 .2223 L .91961 .03371 L F 1 .12 0 r .91961 .03371 m .91961 .2223 L .92904 .2223 L .92904 .03371 L F 1 .096 0 r .92904 .03371 m .92904 .2223 L .93847 .2223 L .93847 .03371 L F 1 .072 0 r .93847 .03371 m .93847 .2223 L .9479 .2223 L .9479 .03371 L F 1 .048 0 r .9479 .03371 m .9479 .2223 L .95733 .2223 L .95733 .03371 L F 1 .024 0 r .95733 .03371 m .95733 .2223 L .96676 .2223 L .96676 .03371 L F 1 0 0 r .96676 .03371 m .96676 .2223 L .97619 .2223 L .97619 .03371 L F 0 g .5 Mabswid [ ] 0 setdash .02381 .03371 m .02381 .04785 L s .1181 .03371 m .1181 .04785 L s .2124 .03371 m .2124 .04785 L s .30669 .03371 m .30669 .04785 L s .40099 .03371 m .40099 .04785 L s .49529 .03371 m .49529 .04785 L s .58958 .03371 m .58958 .04785 L s .68388 .03371 m .68388 .04785 L s .77817 .03371 m .77817 .04785 L s .87247 .03371 m .87247 .04785 L s .96676 .03371 m .96676 .04785 L s .49529 .03371 m .49529 .06671 L s .02381 .03371 m .02381 .06671 L s .96676 .03371 m .96676 .06671 L s gsave .02381 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .96676 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.00258189 0.97619 0.105858 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.942951 0.0337105 0.942951 [ [ 0 0 0 0 ] [ 1 .22772 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .22772 L 0 .22772 L closepath clip newpath .295 g .02381 .03371 m .02381 .2223 L .03324 .2223 L .03324 .03371 L F .301 g .03324 .03371 m .03324 .2223 L .04267 .2223 L .04267 .03371 L F .308 g .04267 .03371 m .04267 .2223 L .0521 .2223 L .0521 .03371 L F .314 g .0521 .03371 m .0521 .2223 L .06153 .2223 L .06153 .03371 L F .321 g .06153 .03371 m .06153 .2223 L .07096 .2223 L .07096 .03371 L F .328 g .07096 .03371 m .07096 .2223 L .08039 .2223 L .08039 .03371 L F .334 g .08039 .03371 m .08039 .2223 L .08982 .2223 L .08982 .03371 L F .341 g .08982 .03371 m .08982 .2223 L .09925 .2223 L .09925 .03371 L F .347 g .09925 .03371 m .09925 .2223 L .10868 .2223 L .10868 .03371 L F .354 g .10868 .03371 m .10868 .2223 L .1181 .2223 L .1181 .03371 L F .36 g .1181 .03371 m .1181 .2223 L .12753 .2223 L .12753 .03371 L F .367 g .12753 .03371 m .12753 .2223 L .13696 .2223 L .13696 .03371 L F .373 g .13696 .03371 m .13696 .2223 L .14639 .2223 L .14639 .03371 L F .38 g .14639 .03371 m .14639 .2223 L .15582 .2223 L .15582 .03371 L F .387 g .15582 .03371 m .15582 .2223 L .16525 .2223 L .16525 .03371 L F .393 g .16525 .03371 m .16525 .2223 L .17468 .2223 L .17468 .03371 L F .4 g .17468 .03371 m .17468 .2223 L .18411 .2223 L .18411 .03371 L F .406 g .18411 .03371 m .18411 .2223 L .19354 .2223 L .19354 .03371 L F .413 g .19354 .03371 m .19354 .2223 L .20297 .2223 L .20297 .03371 L F .419 g .20297 .03371 m .20297 .2223 L .2124 .2223 L .2124 .03371 L F .426 g .2124 .03371 m .2124 .2223 L .22183 .2223 L .22183 .03371 L F .432 g .22183 .03371 m .22183 .2223 L .23126 .2223 L .23126 .03371 L F .439 g .23126 .03371 m .23126 .2223 L .24069 .2223 L .24069 .03371 L F .446 g .24069 .03371 m .24069 .2223 L .25012 .2223 L .25012 .03371 L F .452 g .25012 .03371 m .25012 .2223 L .25955 .2223 L .25955 .03371 L F .459 g .25955 .03371 m .25955 .2223 L .26898 .2223 L .26898 .03371 L F .465 g .26898 .03371 m .26898 .2223 L .27841 .2223 L .27841 .03371 L F .472 g .27841 .03371 m .27841 .2223 L .28784 .2223 L .28784 .03371 L F .478 g .28784 .03371 m .28784 .2223 L .29727 .2223 L .29727 .03371 L F .485 g .29727 .03371 m .29727 .2223 L .30669 .2223 L .30669 .03371 L F .491 g .30669 .03371 m .30669 .2223 L .31612 .2223 L .31612 .03371 L F .498 g .31612 .03371 m .31612 .2223 L .32555 .2223 L .32555 .03371 L F .504 g .32555 .03371 m .32555 .2223 L .33498 .2223 L .33498 .03371 L F .511 g .33498 .03371 m .33498 .2223 L .34441 .2223 L .34441 .03371 L F .518 g .34441 .03371 m .34441 .2223 L .35384 .2223 L .35384 .03371 L F .524 g .35384 .03371 m .35384 .2223 L .36327 .2223 L .36327 .03371 L F .531 g .36327 .03371 m .36327 .2223 L .3727 .2223 L .3727 .03371 L F .537 g .3727 .03371 m .3727 .2223 L .38213 .2223 L .38213 .03371 L F .544 g .38213 .03371 m .38213 .2223 L .39156 .2223 L .39156 .03371 L F .55 g .39156 .03371 m .39156 .2223 L .40099 .2223 L .40099 .03371 L F .557 g .40099 .03371 m .40099 .2223 L .41042 .2223 L .41042 .03371 L F .563 g .41042 .03371 m .41042 .2223 L .41985 .2223 L .41985 .03371 L F .57 g .41985 .03371 m .41985 .2223 L .42928 .2223 L .42928 .03371 L F .577 g .42928 .03371 m .42928 .2223 L .43871 .2223 L .43871 .03371 L F .583 g .43871 .03371 m .43871 .2223 L .44814 .2223 L .44814 .03371 L F .59 g .44814 .03371 m .44814 .2223 L .45757 .2223 L .45757 .03371 L F .596 g .45757 .03371 m .45757 .2223 L .467 .2223 L .467 .03371 L F .603 g .467 .03371 m .467 .2223 L .47643 .2223 L .47643 .03371 L F .609 g .47643 .03371 m .47643 .2223 L .48586 .2223 L .48586 .03371 L F .616 g .48586 .03371 m .48586 .2223 L .49529 .2223 L .49529 .03371 L F .622 g .49529 .03371 m .49529 .2223 L .50471 .2223 L .50471 .03371 L F .629 g .50471 .03371 m .50471 .2223 L .51414 .2223 L .51414 .03371 L F .636 g .51414 .03371 m .51414 .2223 L .52357 .2223 L .52357 .03371 L F .642 g .52357 .03371 m .52357 .2223 L .533 .2223 L .533 .03371 L F .649 g .533 .03371 m .533 .2223 L .54243 .2223 L .54243 .03371 L F .655 g .54243 .03371 m .54243 .2223 L .55186 .2223 L .55186 .03371 L F .662 g .55186 .03371 m .55186 .2223 L .56129 .2223 L .56129 .03371 L F .668 g .56129 .03371 m .56129 .2223 L .57072 .2223 L .57072 .03371 L F .675 g .57072 .03371 m .57072 .2223 L .58015 .2223 L .58015 .03371 L F .681 g .58015 .03371 m .58015 .2223 L .58958 .2223 L .58958 .03371 L F .688 g .58958 .03371 m .58958 .2223 L .59901 .2223 L .59901 .03371 L F .694 g .59901 .03371 m .59901 .2223 L .60844 .2223 L .60844 .03371 L F .701 g .60844 .03371 m .60844 .2223 L .61787 .2223 L .61787 .03371 L F .708 g .61787 .03371 m .61787 .2223 L .6273 .2223 L .6273 .03371 L F .714 g .6273 .03371 m .6273 .2223 L .63673 .2223 L .63673 .03371 L F .721 g .63673 .03371 m .63673 .2223 L .64616 .2223 L .64616 .03371 L F .727 g .64616 .03371 m .64616 .2223 L .65559 .2223 L .65559 .03371 L F .734 g .65559 .03371 m .65559 .2223 L .66502 .2223 L .66502 .03371 L F .74 g .66502 .03371 m .66502 .2223 L .67445 .2223 L .67445 .03371 L F .747 g .67445 .03371 m .67445 .2223 L .68388 .2223 L .68388 .03371 L F .753 g .68388 .03371 m .68388 .2223 L .69331 .2223 L .69331 .03371 L F .76 g .69331 .03371 m .69331 .2223 L .70273 .2223 L .70273 .03371 L F .767 g .70273 .03371 m .70273 .2223 L .71216 .2223 L .71216 .03371 L F .773 g .71216 .03371 m .71216 .2223 L .72159 .2223 L .72159 .03371 L F .78 g .72159 .03371 m .72159 .2223 L .73102 .2223 L .73102 .03371 L F .786 g .73102 .03371 m .73102 .2223 L .74045 .2223 L .74045 .03371 L F .793 g .74045 .03371 m .74045 .2223 L .74988 .2223 L .74988 .03371 L F .799 g .74988 .03371 m .74988 .2223 L .75931 .2223 L .75931 .03371 L F .806 g .75931 .03371 m .75931 .2223 L .76874 .2223 L .76874 .03371 L F .812 g .76874 .03371 m .76874 .2223 L .77817 .2223 L .77817 .03371 L F .819 g .77817 .03371 m .77817 .2223 L .7876 .2223 L .7876 .03371 L F .826 g .7876 .03371 m .7876 .2223 L .79703 .2223 L .79703 .03371 L F .832 g .79703 .03371 m .79703 .2223 L .80646 .2223 L .80646 .03371 L F .839 g .80646 .03371 m .80646 .2223 L .81589 .2223 L .81589 .03371 L F .845 g .81589 .03371 m .81589 .2223 L .82532 .2223 L .82532 .03371 L F .852 g .82532 .03371 m .82532 .2223 L .83475 .2223 L .83475 .03371 L F .858 g .83475 .03371 m .83475 .2223 L .84418 .2223 L .84418 .03371 L F .865 g .84418 .03371 m .84418 .2223 L .85361 .2223 L .85361 .03371 L F .871 g .85361 .03371 m .85361 .2223 L .86304 .2223 L .86304 .03371 L F .878 g .86304 .03371 m .86304 .2223 L .87247 .2223 L .87247 .03371 L F .884 g .87247 .03371 m .87247 .2223 L .8819 .2223 L .8819 .03371 L F .891 g .8819 .03371 m .8819 .2223 L .89132 .2223 L .89132 .03371 L F .898 g .89132 .03371 m .89132 .2223 L .90075 .2223 L .90075 .03371 L F .904 g .90075 .03371 m .90075 .2223 L .91018 .2223 L .91018 .03371 L F .911 g .91018 .03371 m .91018 .2223 L .91961 .2223 L .91961 .03371 L F .917 g .91961 .03371 m .91961 .2223 L .92904 .2223 L .92904 .03371 L F .924 g .92904 .03371 m .92904 .2223 L .93847 .2223 L .93847 .03371 L F .93 g .93847 .03371 m .93847 .2223 L .9479 .2223 L .9479 .03371 L F .937 g .9479 .03371 m .9479 .2223 L .95733 .2223 L .95733 .03371 L F .943 g .95733 .03371 m .95733 .2223 L .96676 .2223 L .96676 .03371 L F .95 g .96676 .03371 m .96676 .2223 L .97619 .2223 L .97619 .03371 L F .2 0 1 r .5 Mabswid [ ] 0 setdash .02381 .03371 m .02381 .04785 L s .1181 .03371 m .1181 .04785 L s .2124 .03371 m .2124 .04785 L s .30669 .03371 m .30669 .04785 L s .40099 .03371 m .40099 .04785 L s .49529 .03371 m .49529 .04785 L s .58958 .03371 m .58958 .04785 L s .68388 .03371 m .68388 .04785 L s .77817 .03371 m .77817 .04785 L s .87247 .03371 m .87247 .04785 L s .96676 .03371 m .96676 .04785 L s .49529 .03371 m .49529 .06671 L s .02381 .03371 m .02381 .06671 L s .96676 .03371 m .96676 .06671 L s 0 g gsave .02381 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .96676 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{507.438, 55}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt2l9olWUcB/Cv37e66iLUzG5sRXXTTREhQV0FSYyZOEwZUznN1ClbY3Mo Q5GZOGRLlCEuRYZ/cojDP4kyJqbI5jDH1twwU7bEFJ2JQzS60Hh7vuccj4oj drAM2hf2+54fz/s8z/ueve/7uTp5iSULvyhJLCkuSuRMKU+ULSwuqsj5+Mvy MBSNAcbcBTA5B+rj0KYjDn/xPYVGHvTj9UFNOaPuWXWvDDM2ITV9XPLjGaT2 jFODQG+yiR4ZnjTyqd787zZ/cIt6M92rw4xNfPzuvjjMrmOHGRs3wnkjHXuS /Ua6Nic99m7qGz+y9uGxsSMce5K1//R+Ex6+falnBS+HgTeSFe7224oP4vAf maIuXzFHsUhRqajOrKwLqxqSFebv0LF9ilbFSUWPol9xTVPuZFYmn6c7qnAs vqboV/QoTipaw/x4n7odiobMyrpQ1SoNVyoWKQo0f4q69xSvKV4gGE6UWjk+ dG+mKsL7MYhcxRxFmeIrxUZFk6I1zE09GJ1xqogzOvCz4hfFFcVviluKP7Tz n+riu/fPGv8eaihZYXhQ8auiX/FTmB//qO4HRZvi+8zKllDfJSsMN2vqt+oa Fd8o6hVfK2oU1fevN64KtUTXGzJEqWKh4nNFoeIzxaeKT7TzR5mzfhhqcrLC sXcUbyleV0xSTNT8seqeVzyXOWv6FXr49cnNzU0WkZeXR0ydOpWYNm0aMX36 dCI/P5+YMWMGMXPmzAizZs0iCgoKwpVobWFhIWbPnq0i5s6dSyQSCaKoqIiY N29ehPnz5xMLFiwgiouLicWLF6dXlpSUoLS0VBVubVkZUV5eHqGiooKorAyP zNKlS4lly5YRVVVVxPLly9PXu2LFCqxcuTJcb0iiujo8ZKtWrSJWr15NrFmz hqipqSHWrl1L1NbWRqirq0ufdd26dVi/fr2K2LBhA1FfXx8eqI0biU2bNhEN DQ0RNm/eTGzZsoXYunVremVjYyO2bdumIrZv307s3LmT2LVrV4SmpiZi9+7d xJ49e4jm5mZi79696ZX79+/HgQMHVBEOHjxIHDp0iDh8+DDR0tISHuLWVuLI kSPE0aNHiWPHjqW/6fHjx5NFnDhxgmhrayPa29uJjo4O4tSpU8Tp06eJzs7O CF1dXUR3d3f6rD09Pejt7VURfX19xNmzZ4lz584R58+fj3DhwgWivz+80QMD A8TFixfTKy9duoTLly+rwttz5UqEq1evEoODg8T169eJGzduEDdv3iSGhobC a3XrVvp6b9++bcAMmAEzYAbMgBkwA2bADJgBM2AGzIA9fcAou5gNXOIkGSMG S1HHbKCijOLTAoqyidnARJnEbECiLIqyYYgSiP8lP5Q8zIYdShxmww0lTZQN MpQvfDq4UK4wG1QiWZIVJZQizIYQSg+aDtNhOkyH6TAdpsN0mA7TYTpMx/+d DkoNjkYyIkkxKqGgjEj+pi+SCqMSBcoDjkYMKAdeMgEmwASYABNgAkyACTAB JsAEmAATYAJMgAkwASbABJgAE2ACTIAJMAEmwASYABNgAkyACTABJsAEmAAT YAJMgAkwASbABJgAE2ACTIAJMAEmwASYABNgAkyACTABJsAEmAATYAJMgAkw ASbABJgAE2ACTIAJMAEmwASYABNgAkyACTABJsAEmAATYAJMgAkwASbABJgA E2ACTIAJMAEmwASYABNgAkyACTABJsAEmAATYAJMgAkwASbABJgAE2ACTIAJ MAEmwASYABNgAkyACTABJsAEmAATYAJMwL9LQKyPe4/3GPMX155LKg==\ \>"],ImageRangeCache->{{{0, 506.438}, {54, 0}} -> {-0.0678623, -0.00542311, 0.00421716, 0.00421716}, {{16.0625, 241.875}, {52.6875, 1.25}} -> {-0.100692, -0.0419516, 0.00469642, 0.00469642}, {{264.5, 490.313}, {52.6875, 1.25}} -> {-1.26746, -0.0419516, 0.00469642, 0.00469642}}]], "Text", CellChangeTimes->{{3.540559021873857*^9, 3.540559021874059*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{"drawphasediagram", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ppoints", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pdcontourplot", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pdcolor", "=", "1"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conbrightness", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotprecision", "=", "50"}], ";"}], "\n", RowBox[{ RowBox[{"numberofcontours", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"compressgraphic", " ", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.481806280424309*^9, 3.481806282507304*^9}, { 3.4818063574951315`*^9, 3.4818063682706256`*^9}, {3.4818908249685974`*^9, 3.48189083860821*^9}, {3.4885768700276413`*^9, 3.4885768707486777`*^9}, 3.491925934530672*^9, 3.491926043767747*^9, {3.4922641205846014`*^9, 3.492264120851182*^9}, {3.492281395059047*^9, 3.492281410260906*^9}, 3.492286630783717*^9, 3.492297153935402*^9, {3.5061812789763684`*^9, 3.5061812792768*^9}, {3.510068289177514*^9, 3.510068292042533*^9}, 3.510068713377421*^9, 3.5130268339300256`*^9, {3.5130268810177345`*^9, 3.5130268830907154`*^9}, {3.5192924812876534`*^9, 3.519292481527667*^9}, { 3.5193816914781847`*^9, 3.5193816917632008`*^9}, {3.51941560584579*^9, 3.519415608347933*^9}, 3.5194157881532173`*^9, 3.519416385575388*^9, 3.5194164874482145`*^9, {3.5194167057657013`*^9, 3.519416711592035*^9}, { 3.51941680417033*^9, 3.5194168075645237`*^9}, 3.5194200153079967`*^9, { 3.5194613167703047`*^9, 3.519461327157899*^9}, 3.521051310767626*^9, 3.521051367066846*^9, 3.539431974754329*^9, {3.539432064391229*^9, 3.539432064855665*^9}, 3.539619792046968*^9, 3.539620494060451*^9, { 3.53962682598835*^9, 3.539626828236417*^9}, {3.539882534934709*^9, 3.5398825375956583`*^9}, 3.540210947551487*^9, 3.540212683424498*^9, 3.540491511346945*^9, 3.540492204270289*^9, 3.540558787599379*^9, 3.540724630778364*^9, 3.540725546866185*^9, {3.540725654494421*^9, 3.540725654820567*^9}, 3.540725703784699*^9, 3.572107976225897*^9, { 3.572121670111249*^9, 3.572121698981408*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell["Solution trajectories", "Subsubsection", CellChangeTimes->{{3.4818065979508896`*^9, 3.4818065990524735`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["\<\ Instructions for \"automated\" specification of solution trajectories\ \>", "SmallText", CellTags->"corecell"], Cell[TextData[{ "This section specifies the solution trajectories to be included in the \ phase diagram using built-in specifications. These are of three types:\n(i) \ initial conditions drawn from a grid, with the grid including points on the \ boundary (i.e., the dots in the diagram below); \n(ii) initial conditions \ drawn from a grid, with the grid excluding points on the boundary (i.e., the \ \"x\"s in the diagram below);\n(iii) randomly chosen initial conditions. \n\ To use one of these options, press the appropriate button below.\n", StyleBox["endtime", FontWeight->"Bold"], " determines the time interval [0, endtime] of each solution. \nFor the \ grid options, ", StyleBox["trajgridpoints", FontWeight->"Bold"], " specifies the number of initial conditions on each boundary of the grid. \ \nFor the random option, ", StyleBox["trajrandompoints", FontWeight->"Bold"], " specifies the number of random initial conditions.\n", StyleBox["trajnumberofarrows", FontWeight->"Bold"], " specifies how many arrows to draw on each solution. \n", StyleBox["trajarrowheadsize", FontWeight->"Bold"], " is self-explanatory; it can be set to zero if arrowheads are not desired. \ \nIf trajnumberofarrows = 1 is specified, the arrow appears at the end of \ each solution trajectory. If trajnumberofarrows = n, arrows are drawn at \ times {endtime/n, 2 endtime/n, ... , endtime}. For more on how arrows are \ drawn, see \"Adjusting positions of arrow heads and 'tails'\" below." }], "Text", CellChangeTimes->{ 3.481424833766508*^9, {3.4818092562232976`*^9, 3.4818092563935423`*^9}, 3.513021798180338*^9, {3.539433215841687*^9, 3.539433246993052*^9}, { 3.539433821477082*^9, 3.539433832818061*^9}, {3.539434275461132*^9, 3.539434279010791*^9}, {3.539434318514547*^9, 3.539434342122523*^9}, { 3.539434405891321*^9, 3.539434407890833*^9}, {3.5400646151573243`*^9, 3.5400646162743883`*^9}, {3.580470788605359*^9, 3.580470788943825*^9}, { 3.580470837910392*^9, 3.580470839422376*^9}}, TextAlignment->Left, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .86788 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0303841 0.939232 0.0272383 0.939232 [ [ 0 0 0 0 ] [ 1 .86788 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .86788 L 0 .86788 L closepath clip newpath 0 g .03038 .02724 m .03038 .02724 .00657 0 365.73 arc F .12431 .02724 m .12431 .02724 .00657 0 365.73 arc F .21823 .02724 m .21823 .02724 .00657 0 365.73 arc F .31215 .02724 m .31215 .02724 .00657 0 365.73 arc F .40608 .02724 m .40608 .02724 .00657 0 365.73 arc F .5 .02724 m .5 .02724 .00657 0 365.73 arc F .59392 .02724 m .59392 .02724 .00657 0 365.73 arc F .68785 .02724 m .68785 .02724 .00657 0 365.73 arc F .78177 .02724 m .78177 .02724 .00657 0 365.73 arc F .87569 .02724 m .87569 .02724 .00657 0 365.73 arc F .96962 .02724 m .96962 .02724 .00657 0 365.73 arc F .07735 .10858 m .07735 .10858 .00657 0 365.73 arc F .17127 .10858 m .17127 .10858 .00657 0 365.73 arc F .26519 .10858 m .26519 .10858 .00657 0 365.73 arc F .35912 .10858 m .35912 .10858 .00657 0 365.73 arc F .45304 .10858 m .45304 .10858 .00657 0 365.73 arc F .54696 .10858 m .54696 .10858 .00657 0 365.73 arc F .64088 .10858 m .64088 .10858 .00657 0 365.73 arc F .73481 .10858 m .73481 .10858 .00657 0 365.73 arc F .82873 .10858 m .82873 .10858 .00657 0 365.73 arc F .92265 .10858 m .92265 .10858 .00657 0 365.73 arc F .12431 .18992 m .12431 .18992 .00657 0 365.73 arc F .21823 .18992 m .21823 .18992 .00657 0 365.73 arc F .31215 .18992 m .31215 .18992 .00657 0 365.73 arc F .40608 .18992 m .40608 .18992 .00657 0 365.73 arc F .5 .18992 m .5 .18992 .00657 0 365.73 arc F .59392 .18992 m .59392 .18992 .00657 0 365.73 arc F .68785 .18992 m .68785 .18992 .00657 0 365.73 arc F .78177 .18992 m .78177 .18992 .00657 0 365.73 arc F .87569 .18992 m .87569 .18992 .00657 0 365.73 arc F .17127 .27126 m .17127 .27126 .00657 0 365.73 arc F .26519 .27126 m .26519 .27126 .00657 0 365.73 arc F .35912 .27126 m .35912 .27126 .00657 0 365.73 arc F .45304 .27126 m .45304 .27126 .00657 0 365.73 arc F .54696 .27126 m .54696 .27126 .00657 0 365.73 arc F .64088 .27126 m .64088 .27126 .00657 0 365.73 arc F .73481 .27126 m .73481 .27126 .00657 0 365.73 arc F .82873 .27126 m .82873 .27126 .00657 0 365.73 arc F .21823 .3526 m .21823 .3526 .00657 0 365.73 arc F .31215 .3526 m .31215 .3526 .00657 0 365.73 arc F .40608 .3526 m .40608 .3526 .00657 0 365.73 arc F .5 .3526 m .5 .3526 .00657 0 365.73 arc F .59392 .3526 m .59392 .3526 .00657 0 365.73 arc F .68785 .3526 m .68785 .3526 .00657 0 365.73 arc F .78177 .3526 m .78177 .3526 .00657 0 365.73 arc F .26519 .43394 m .26519 .43394 .00657 0 365.73 arc F .35912 .43394 m .35912 .43394 .00657 0 365.73 arc F .45304 .43394 m .45304 .43394 .00657 0 365.73 arc F .54696 .43394 m .54696 .43394 .00657 0 365.73 arc F .64088 .43394 m .64088 .43394 .00657 0 365.73 arc F .73481 .43394 m .73481 .43394 .00657 0 365.73 arc F .31215 .51528 m .31215 .51528 .00657 0 365.73 arc F .40608 .51528 m .40608 .51528 .00657 0 365.73 arc F .5 .51528 m .5 .51528 .00657 0 365.73 arc F .59392 .51528 m .59392 .51528 .00657 0 365.73 arc F .68785 .51528 m .68785 .51528 .00657 0 365.73 arc F .35912 .59662 m .35912 .59662 .00657 0 365.73 arc F .45304 .59662 m .45304 .59662 .00657 0 365.73 arc F .54696 .59662 m .54696 .59662 .00657 0 365.73 arc F .64088 .59662 m .64088 .59662 .00657 0 365.73 arc F .40608 .67796 m .40608 .67796 .00657 0 365.73 arc F .5 .67796 m .5 .67796 .00657 0 365.73 arc F .59392 .67796 m .59392 .67796 .00657 0 365.73 arc F .45304 .7593 m .45304 .7593 .00657 0 365.73 arc F .54696 .7593 m .54696 .7593 .00657 0 365.73 arc F .5 .84064 m .5 .84064 .00657 0 365.73 arc F gsave .07735 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .92265 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .12431 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .87569 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .78641 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 Mabswid [ ] 0 setdash .03038 .02724 m .5 .84064 L .96962 .02724 L .03038 .02724 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{282.5, 245.125}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlnF1sFUUUx6e0fAoIYj+gYKsgICAICAgIFYSCShEERASESy20fJV+AAJi BQFRND4Z44MxxhjjkzE+GGOMMcYn45MxxhjjkzE+GGMMMT7V7p3xut38znb2 7N5b1Bu2d/P//+fMOXP3njOzs5emXHdry5Fcd1tzrn5dZ+5Ya1tzV31je2cf VF5mTNkkY8zVehOc9/aduj+9ff96a4M/AZLN+fDgrTwwX104qwnOhhTORCzS wsPKCNvpsOAtH9OYEOrrSvJuY1wZmX/LI/mz/BH8rQDCtRkltRkCxEh9m+uk NhFslCyvKETeR7gxz7+qJKIyuxYZmkreYoQ8UKOlgQphwasGsOoUujRtfXUU tr0w+r5rA4cdHNGugiPaVRJdmra+umGAjZbDHvK//VrEDNRYoP4EbIxKfj1Q fwA2ViUfB9RVwKxZMx6o3wEbp5LfANRvgI1XyScA9Stg1qy5EahfAJugl/tW auWUojLaVV5UUbj+K/o3rI7FIi0iGHeVKALfcaiyXVXB2P4MmPOMct9PgDnr lD5/BKxaJZ8IlDjhuDbTYfIWwyHoGnk8hkaw4DVYc4M0cwgX4iSPEP+5Qko/ D0gzX5goh1j+X7+qY8ajFqgfALPjZiYD9T1gtSr5FKC+A2yySn4TUN8CNkUl rwPqG8CsWVMP1NeA1ankNwP1FWD1ennqwk9lc2q0gzTlnlrc4hNBmlsQLoJp MHpfAqaT3wrUF4BNU8mnA5W88F+bKyeq73Z4zAwp7Axrb9b1ncKZLofjW8sH a+1PdcqFMxMocZ3/L7so6WOZIYf9uSy/DajPAJupks8C6lPArFkzG6hPAJul ks8B6mPAZqvktwP1EWBzVPK5QH0ImDVr5gH1AWBzQ/JI0fIoadQiXzPnhZzO cF0eNptoMhFfsu+wZufD+LwPmJMvAOo9wOar5AuBehewBbK8FAW4yHXWRXen FF2Ra2WamrpQdj3rmpp1/XSuLwKqFPWzyGXSfiJmMVDvALZIJV8C1NuALVbJ 7wLqLcCWqORLgXoTMGvWLAPqDcCWquTLgXodsGUq+d1AvQbY8pD11EvLFaG+ xQrqgXkZiy/gkZLojK2EEXgVMCdvAOoVwFaq5PcA9TJgDbI8wz3vIu9HuyBW SUEoa1bW937tIJvVHm4GRynWhlTHVsluZrjfW+Sbri6Ie4F6CbDVKvkaoF4E zJo1a4G6AtgalbwRqOcAW6uSrwPqWcAaVfL1QF0EzJo19wH1DGDrVfL8m3LR dX+oR99qEsEGMuGxRnMmHoAYewBz8g1AnQXMmjVNQJ0BbINKvhEocfdosPYr m2RfS/EcFNUY59KDHi4FRyn2AzfKLg3q80Mxvm4C6jhgNiazGaguwDap5A8B 1QHYZpV8C1DtgFmzZitQRwDbopJvA+oQYFtV8oeBagNsW0gu5lhK4tujDX1X OTEN42sQN/RYvTxiG+6A8JsB08kfBSoH2A5ZPrTgcfEmlpRHnUs7JZcyXD5Q 93YozC6P7oMjzbKA0uBOuftSPMIR49JukeqP7VLJHxOvhP7YbpV8D1DbAbNm zV6gKOPtUcnpe0i1YK9Kvg8oKns5lZxSDk0v9oXkHhPolqg8Pgs/jtbFLOzk LZ5f1er+roYd3A9yWuM4+QGgaH22XyVvBSrDLRSadh+Qe/bNzb552HVFs4Q0 2xGU4FrlrpLn3ESp1fV8ECi6pWY9xIlWA2AHVfLDQK0A7JBKTlNQugd+WCU/ ChTtDlizONumnY2jKvkxoGiLql0l7yhcZ5T8OkM2xVlwR0gkplFniVZJtGev k3cDRc8bdKnktH5MnigpSVlHzAmpA498SGaPy2Z9cx9lb2f2JFDJt0kpnZ2Q O6BHtZz8CaDocb6TKvkpoKYCZs2a00DRo6OnVHK67VYH2GmV/Emg6PnhMyo5 3ZCkJ6utWfMUUPTzgrMheSSd9YQ6jswFewZs9TT0VQmYTn4OKPpZkzVrzgNF P8k6J8vFhEUJxNmhW+2Ul8jEedkE5SDKN87EBaDEfENpxfqA2xL0i+ELKvkl oOin1RdVctqBoSG7pJJf9vyQrFncbCoH7LJK/rzrPkz9/Qlf8ZZEt9uC1wsh qjwE5M1VxCny5jP4vwZM2V8uf/3P\ \>"],ImageRangeCache->{{{76.875, 301.875}, {255.938, 60.875}} -> {-0.397098, 0.259369, 0.00378972, 0.00378972}}]], "Input", Evaluatable->False, CellChangeTimes->{{3.4814248536891623`*^9, 3.4814248536891623`*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Instructions for \"manual\" specification of solution trajectories\ \>", "SmallText", CellTags->"corecell"], Cell[TextData[{ "The user can also specify which solution trajectories to graph directly. \ To do this, ", "trajectoryspecs", " must be defined as a table of the following form: {{{initial condition 1}, \ T1, {color1, thickness1, dashing1},{Arrow positions 1}, {Head lengths 1}}, \ {{initial condition 2}, T2, {color2, thickness2, dashing2}, {Arrow positions \ 2}, {Head lengths 2}}, ... }\nEach initial condition is entered as a vector \ in the simplex (e.g.,{1/3, 1/3, 1/3}). Ti determines time interval [0, Ti] \ of the ith solution. Arrow positions i and Head lengths i should be vectors \ of the same length, where this length is the number of arrowheads to be drawn \ on the solution trajectory. Arrow positions are stated as points in the time \ interval [0, Ti]. For no arrows, set Arrow positions i and Head lengths i to \ {0}. \n\n{color", StyleBox["i, ", FontSlant->"Italic"], StyleBox["thickness", FontVariations->{"CompatibilityType"->0}], StyleBox["i,", FontSlant->"Italic"], StyleBox[" dashing", FontVariations->{"CompatibilityType"->0}], StyleBox["i", FontSlant->"Italic"], "} specifies the appearance of solutions trajectories. You can specify any \ collection of graphics primitives you like (even ones beyond the three \ mentioned here), and you can place them in any order. To use the default \ appearance, write {}. \ncolor", StyleBox["i", FontSlant->"Italic"], " can be Hue[?], GrayLevel[?] or any other color command.\nthickness", StyleBox["i", FontSlant->"Italic"], " can be Thickness[?] or AbsoluteThickness[?].\ndashing", StyleBox["i", FontSlant->"Italic"], " is specified as Dashing[{???}]. " }], "Text", CellChangeTimes->{ 3.4817566837694077`*^9, {3.521285283322011*^9, 3.521285334371931*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"endtime", "=", "1"}], ";"}], "\[IndentingNewLine]", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"trajgridpoints", "=", "15"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"trajrandompoints", "=", "6"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"trajnumberofarrows", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"trajarrowheadsize", "=", ".025"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{ 3.481809280788621*^9, 3.5134232572399387`*^9, 3.513423396507904*^9, { 3.5136206174134245`*^9, 3.5136206290470905`*^9}, {3.515957283776887*^9, 3.5159572851439657`*^9}, 3.515958930041048*^9, 3.539433842060571*^9, { 3.539434289866266*^9, 3.539434290410024*^9}, 3.53943435018953*^9, 3.539434393222518*^9, 3.5400646214486837`*^9, {3.540491436517138*^9, 3.540491436947617*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "textsl", ",", "discard", ",", "names", " ", ",", "texts", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowt", ",", "name", ",", "text", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", RowBox[{"{", " ", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"textsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ "\"\\"", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\"", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\""}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"Join", "[", RowBox[{"texts", ",", RowBox[{"{", "rowt", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "text", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"text", "->", RowBox[{ RowBox[{"texts", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", " ", "[", " ", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818119966889615`*^9, 3.481812002957976*^9}, {3.481812105737727*^9, 3.481812272981318*^9}, { 3.4818124484235916`*^9, 3.481812457366451*^9}, {3.481812498485577*^9, 3.481812523040886*^9}, {3.4818125683860893`*^9, 3.4818125706493435`*^9}, { 3.481812612139003*^9, 3.481812639708646*^9}, {3.4818128485990157`*^9, 3.481812864662113*^9}, {3.4818129721767116`*^9, 3.4818130553963757`*^9}, { 3.4818132379588876`*^9, 3.4818133245333757`*^9}, {3.481813355407771*^9, 3.4818133663935676`*^9}, 3.4818134196132183`*^9, {3.4818134879827776`*^9, 3.481813489202236*^9}, {3.4818136452104654`*^9, 3.481813661273563*^9}, { 3.4818137634451456`*^9, 3.481813778596933*^9}, {3.4818140028480997`*^9, 3.481814031477353*^9}, {3.481814092975784*^9, 3.4818141259632177`*^9}, { 3.4818141856590557`*^9, 3.4818141929395247`*^9}, {3.4818142536968894`*^9, 3.481814383273211*^9}, {3.4818144211176286`*^9, 3.4818145387768145`*^9}, { 3.4818146624446397`*^9, 3.4818146646778507`*^9}, {3.48181469749504*^9, 3.4818147106439466`*^9}, {3.4818472323981695`*^9, 3.4818473124933405`*^9}, {3.481847364648336*^9, 3.4818474569710894`*^9}, { 3.507981953563105*^9, 3.507981966646919*^9}, {3.5079865809770546`*^9, 3.5079866832591286`*^9}, {3.507986721714425*^9, 3.5079867637448616`*^9}, { 3.5079868085843377`*^9, 3.507986986620341*^9}, {3.5079870295520735`*^9, 3.507987181899712*^9}, {3.507987333026555*^9, 3.5079873437946544`*^9}, { 3.5105193489668736`*^9, 3.510519350999797*^9}, {3.510519404586851*^9, 3.510519410515376*^9}, {3.5117094690182247`*^9, 3.511709486092777*^9}, { 3.5117095343822136`*^9, 3.511709551416708*^9}, {3.511709796353978*^9, 3.511709826327078*^9}, {3.511715675478099*^9, 3.5117156806054716`*^9}, { 3.519324618693808*^9, 3.5193246409330797`*^9}, {3.519324753375511*^9, 3.519324841867573*^9}, {3.539433858057646*^9, 3.53943386081823*^9}, 3.539434271867473*^9, {3.539434351310913*^9, 3.539434360681051*^9}, { 3.539434394057629*^9, 3.53943439548573*^9}, {3.539692545106886*^9, 3.5396925663606853`*^9}, {3.5396930276470737`*^9, 3.539693031448367*^9}, 3.5397200890479536`*^9, {3.5400646359155116`*^9, 3.5400646381336384`*^9}, 3.565001617505072*^9, {3.565001810284546*^9, 3.565001811049524*^9}, { 3.565002070856554*^9, 3.565002071795897*^9}, {3.56958392561399*^9, 3.569583956602484*^9}, {3.569611188323207*^9, 3.56961120324234*^9}, { 3.56961130042906*^9, 3.569611310125618*^9}, {3.56961139787797*^9, 3.569611430085389*^9}, {3.569611539680263*^9, 3.569611558067558*^9}, { 3.569611825806511*^9, 3.569611844168775*^9}, {3.569611908162878*^9, 3.569611928400979*^9}}, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary included)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs =Module[{ds,arrows,arrowheads}, \ \[IndentingNewLine]ds=Tuples[Table[discSimplex[trajgridpoints-1,dim[[p]]],{p,\ pop}]];\[IndentingNewLine]arrows=Table[((trajnumberofarrows - j + \ 1)*endtime)/trajnumberofarrows,{j,trajnumberofarrows}];\[IndentingNewLine]\ arrowheads=ConstantArray[trajarrowheadsize,trajnumberofarrows];\ \[IndentingNewLine]Table[{ds[[j]],endtime,{Black},arrows,arrowheads},{j,\ Dimensions[ds][[1]]}]\[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary excluded)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs =Module[{ds,dsp,arrows,arrowheads}, \ \[IndentingNewLine]ds=Tuples[Table[\[IndentingNewLine]dsp=discSimplex[\ trajgridpoints,dim[[p]]]+1/(dim[[p]]*trajgridpoints);\[IndentingNewLine]dsp=\ Table[Append[Drop[dsp[[j]],-1],dsp[[j,dim[[p]]]]-1/trajgridpoints],{j,\ Dimensions[dsp][[1]]}];\[IndentingNewLine]DeleteCases[Table[If[Min[dsp[[j]]]<\ 0,Infinity,dsp[[j]]],{j,Dimensions[dsp][[1]]}],Infinity],{p,pop}]];\ \[IndentingNewLine]arrows=Table[((trajnumberofarrows - j + \ 1)*endtime)/trajnumberofarrows,{j,trajnumberofarrows}];\[IndentingNewLine]\ arrowheads=ConstantArray[trajarrowheadsize,trajnumberofarrows];\ \[IndentingNewLine]Table[{ds[[j]],endtime,{Black},arrows,arrowheads},{j,\ Dimensions[ds][[1]]}]\[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Random initial conditions\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs=Module[{ds,arrows,arrowheads}, \ \[IndentingNewLine]ds=Tuples[Table[sampleAround[ConstantArray[1/dim[[p]],dim[[\ p]]],1,trajrandompoints],{p,pop}]];\[IndentingNewLine]arrows=Table[((\ trajnumberofarrows - j + \ 1)*endtime)/trajnumberofarrows,{j,trajnumberofarrows}];\[IndentingNewLine]\ arrowheads=ConstantArray[trajarrowheadsize,trajnumberofarrows];\ \[IndentingNewLine]Table[{ds[[j]],endtime,{Black},arrows,arrowheads},{j,\ Dimensions[ds][[1]]}]\[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{3.5400649152084866`*^9, 3.569583970182499*^9, 3.569611976610776*^9}, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}] }, {2}]], Cell[BoxData[ RowBox[{ RowBox[{"trajectoryspecs", " ", "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ds", ",", "dsp", ",", "arrows", ",", "arrowheads"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dsp", "=", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"trajgridpoints", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "*", "trajgridpoints"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dsp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"dsp", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"dsp", "[", RowBox[{"[", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "-", RowBox[{"1", "/", "trajgridpoints"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "dsp", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"dsp", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "<", "0"}], ",", "Infinity", ",", RowBox[{"dsp", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "dsp", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Infinity"}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ "trajnumberofarrows", " ", "-", " ", "j", " ", "+", " ", "1"}], ")"}], "*", "endtime"}], ")"}], "/", "trajnumberofarrows"}], ",", RowBox[{"{", RowBox[{"j", ",", "trajnumberofarrows"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrowheads", "=", RowBox[{"ConstantArray", "[", RowBox[{"trajarrowheadsize", ",", "trajnumberofarrows"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ds", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "endtime", ",", RowBox[{"{", "Black", "}"}], ",", "arrows", ",", "arrowheads"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "ds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4817567343220987`*^9, 3.481807372905219*^9, {3.5079235560433884`*^9, 3.507923564725873*^9}, {3.507925809258556*^9, 3.507925810690615*^9}, { 3.5079874903813033`*^9, 3.5079875239621964`*^9}, {3.510519362265997*^9, 3.5105193631672926`*^9}, 3.5117094969584007`*^9, {3.51170973474539*^9, 3.5117097378097963`*^9}, {3.51938224492784*^9, 3.5193822963247795`*^9}, { 3.519382334668973*^9, 3.5193823723791294`*^9}, {3.5193832967460003`*^9, 3.5193833046814547`*^9}, 3.5394338640243*^9, {3.539434362690551*^9, 3.539434364795268*^9}, 3.539434396379584*^9, 3.5400646390026884`*^9, 3.565002067417076*^9, {3.569611581528829*^9, 3.569611786742373*^9}, { 3.569611855021561*^9, 3.569611859035142*^9}, {3.580501719797092*^9, 3.580501719985033*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks", "unique_trajectoryspecs"}] }, Open ]], Cell[CellGroupData[{ Cell["Tuning rest point search", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ StyleBox["restPointSearchStartingValues", FontWeight->"Bold"], " contains the initial conditions used in the FindRoot command when the \ program searches for rest points. If you suspect that the program has missed \ some rest points, add initial conditions in the regions where the missing \ rest points should be. Each initial condition is written as a state.\nr", StyleBox["estTolerance", FontWeight->"Bold"], " is a parameter in a filtering procedure used to eliminate false rest \ points. If the speed of the dynamic at a prospective rest point is above \ (restTolerance) * (the maximum speed of the dynamic), the prospective rest \ point is thrown out." }], "Text", CellChangeTimes->{{3.56882947576603*^9, 3.568829482425709*^9}, { 3.568829529260814*^9, 3.56882953807912*^9}, {3.568829754521962*^9, 3.568829768596121*^9}, {3.568968871098573*^9, 3.568968884276089*^9}, { 3.56896896781003*^9, 3.568968990663157*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"restPointSearchStartingValues", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"10", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "True", ",", ".001"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{".98", ",", ".01", ",", ".01"}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{".54", ",", ".27", ",", ".29"}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{".7", ",", ".3", ",", "0"}], "}"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480922639796361*^9, 3.480922673983642*^9}, { 3.480922804389057*^9, 3.4809229535131025`*^9}, {3.480922984231656*^9, 3.480923055090578*^9}, {3.4809230871372476`*^9, 3.4809232712766943`*^9}, { 3.4809234030414762`*^9, 3.4809235202126007`*^9}, {3.4809236287275314`*^9, 3.4809237248362913`*^9}, {3.4926953249263363`*^9, 3.4926953254771285`*^9}, {3.4928139689319696`*^9, 3.492814011423069*^9}, { 3.492814079571061*^9, 3.4928141143510723`*^9}, {3.492817964131853*^9, 3.4928179664251504`*^9}, {3.4928180248591747`*^9, 3.4928180553830657`*^9}, {3.492818088240312*^9, 3.492818089712429*^9}, { 3.492818168435627*^9, 3.4928181695972977`*^9}, {3.492818218307339*^9, 3.4928183427162304`*^9}, {3.492818377205824*^9, 3.492818451172182*^9}, 3.492827194714779*^9, {3.507981971333658*^9, 3.50798197163409*^9}, 3.565002068208459*^9, {3.568829487289989*^9, 3.568829498535058*^9}, { 3.568829994856287*^9, 3.568830047428281*^9}, {3.568830084916213*^9, 3.568830215366356*^9}, {3.568840742665304*^9, 3.56884074906985*^9}, 3.568968894985311*^9, {3.5689690430743*^9, 3.568969048387814*^9}, 3.57891481748318*^9}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"restTolerance", "=", ".01"}], " ", ";"}]], "Input", CellChangeTimes->{{3.568829484694987*^9, 3.568829485595406*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Tuning stability tests", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ "The first four parameters determine how rest points are checked for \ stability. The parameter ", StyleBox["stabn", FontWeight->"Bold"], " specifies how many trajectories will be checked. These initial conditions \ are random points at distance ", StyleBox["stabeps", FontWeight->"Bold"], " from the rest point. Solutions from these points over the time interval \ [0, ", StyleBox["stabT", FontWeight->"Bold"], "] are computed. If any of these solutions winds up more than ", StyleBox["stabdelta", FontWeight->"Bold"], " away from the rest point, the rest point is considered unstable; otherwise \ it is considered stable. Notice that ", StyleBox["stabeps ", FontWeight->"Bold"], "should be large relative to ", StyleBox["stabdelta", FontWeight->"Bold"], " and at least four times as big for the algorithm to work properly.\n\n\ Extra notes: if ", StyleBox["stabdelta", FontWeight->"Bold"], " is set too small, stable rest points wont be detected unless ", StyleBox["stabT", FontWeight->"Bold"], " is large giving time for the trajectories to converge. However, for large \ values of ", StyleBox["stabT", FontWeight->"Bold"], " the algorithm will tend to interpret saddles as sources, although this is \ a distinction of secondary importance in general, so that in principle a safe \ way to run the algorithm is with relatively large values of ", StyleBox["stabeps", FontWeight->"Bold"], " compared with ", StyleBox["stabdelta", FontWeight->"Bold"], " and a generous time span ", StyleBox["stabT", FontWeight->"Bold"], ". There is a way to differentiate sources from saddles and cycles. Notice \ that there will be an inevitable computational burden since this distinction \ will require large values for ", StyleBox["stabn", FontWeight->"Bold"], " so that even for a large ", StyleBox["stabT", FontWeight->"Bold"], " after enough sampling around the rest point at least one of the sampled \ surrounding starting conditions will be close enough to the direction that \ converges to the rest point and stay in it's proximity in spite of the large \ time span. To have the algorithm determine whether a ", "rest point", " is a sink, a source, a cycle or a saddle the numericStabilityTest[] \ routine is available. Evaluate numericStabilityTest::notes to learn about its \ arguments, and ?numericStabilityTest for its general definition and output \ values." }], "Text", CellChangeTimes->{{3.4928856154045706`*^9, 3.492885721637326*^9}, { 3.492885788121913*^9, 3.4928860704940248`*^9}, {3.4928861138864202`*^9, 3.4928864044942937`*^9}, {3.492886440556148*^9, 3.4928857544456997`*^9}, { 3.4928859920723906`*^9, 3.4928859973750153`*^9}, {3.492886520772624*^9, 3.492886568060621*^9}, {3.4928866139065437`*^9, 3.4928866272156816`*^9}, { 3.521285369708952*^9, 3.521285396506485*^9}, {3.539693516829969*^9, 3.53969360203141*^9}, {3.539693699915825*^9, 3.5396937641193113`*^9}, { 3.565003029932379*^9, 3.565003033988022*^9}, {3.568976016107743*^9, 3.568976018899113*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"stabn", "=", "10"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stabeps", "=", ".01"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"stabdelta", "=", ".0025"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stabT", "=", "10"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{ 3.4928838040627327`*^9, {3.4928839440340014`*^9, 3.492883949622037*^9}, { 3.492885561517084*^9, 3.4928855948950796`*^9}, {3.4928857740277257`*^9, 3.4928857914889655`*^9}, 3.4932705602640047`*^9, {3.4932902238639407`*^9, 3.4932902240942717`*^9}, 3.4932902739359407`*^9, {3.4932903619024305`*^9, 3.4932903646664047`*^9}, 3.493290559396413*^9, 3.4932906137645903`*^9, { 3.4932915007299843`*^9, 3.49329150113056*^9}, 3.5211498178374615`*^9, 3.5396935361860228`*^9, 3.539693607445776*^9, {3.539693749437049*^9, 3.5396937499651003`*^9}, 3.539693838635762*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Adjusting the position of arrows", "Subsubsection", CellChangeTimes->{{3.540035928694006*^9, 3.5400359296516275`*^9}, { 3.5400359833319445`*^9, 3.540035994338842*^9}}, CellTags->"corecell"], Cell[TextData[{ "To draw an arrow, the program must know where to put the tail of the arrow \ and where to put the head. Even if one does not want the base-line of the \ arrow to appear in the picture, the position of its starting point must be \ specified so that the arrow points in some direction. \nThe parameter ", StyleBox["relarrowstart", FontWeight->"Bold"], " below determines the positions of arrows' base-lines when arrows are \ drawn on solution trajectories. In particular, if an arrow is supposed to \ appear at a solution trajectory's position at time t, the program draws the \ end of the line at this point, placing the starting point (and therefore \ changing the direction of the arrow) at the solution trajectory's position at \ time t(1 \[Dash]relarrowstart).\nA value of .005 for relarrowstart works well \ in most cases: the arrow line is not visible, and the arrow points in the \ right direction. If after a diagram is produced the user notices that arrow \ base-lines are visible, a smaller value of relarrowstart should be specified. \ If arrows point in the wrong directions, a larger value of relarrowstart \ could make the arrows look more aligned with the overall trajectory instead \ of its final portion.\nThe parameter ", StyleBox["arrowheadpos", FontWeight->"Bold"], " specifies the location of the arrow-head within the base-line. The number \ is relative so it ranges from 0 to 1 as a proportion of the base-line." }], "Text", CellChangeTimes->{{3.540035203523921*^9, 3.540035208071499*^9}, { 3.54003523911244*^9, 3.5400352428519154`*^9}, {3.5400352977158823`*^9, 3.540035307123577*^9}, {3.540035356771881*^9, 3.5400353653479705`*^9}, { 3.5400353972995276`*^9, 3.540035488819649*^9}, {3.540035529555822*^9, 3.5400357062762628`*^9}, {3.5400357420893106`*^9, 3.540035782546948*^9}, { 3.5400358272526245`*^9, 3.540035901380038*^9}, {3.5400609990254936`*^9, 3.540060999355512*^9}, {3.5400674147114496`*^9, 3.5400674546427336`*^9}, { 3.540067530326062*^9, 3.540067539634595*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"relarrowstart", "=", ".005"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowheadpos", "=", ".8"}], " ", ";"}]}], "Input", CellChangeTimes->{3.540035644950475*^9, 3.540058847869664*^9, 3.5400592475483146`*^9, 3.5400610089960637`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Adjusting Rest Points and NE dots", "Subsubsection", CellChangeTimes->{{3.539373873337262*^9, 3.539373879465357*^9}}, CellTags->"corecell"], Cell[TextData[{ "If the Rest Points and/or NE of the game have been calculated, this options \ control whether to show them and their appearence. The first two options, ", StyleBox["drawrestpoints ", FontWeight->"Bold"], "and", StyleBox[" drawnashequilibra ", FontWeight->"Bold"], "include the dots in the phase diagram if they are set to one. Notice that \ since for most dynamics these sets overlap, a hierachy exists. Dynamo \ priorizes the drawrestpoint option and only if it is disabled will the rest \ points which are also NE be drawn with the necolor. Since for imitative \ dynamics every NE is a rest point, the option ", StyleBox["drawnashequilibra", FontWeight->"Bold"], " is ineffective in that context unless the option ", StyleBox["drawrestpoints", FontWeight->"Bold"], " is set to 0. However,in principle it is possible that a point will emerge \ as a NE without being a rest point, this is why both option are enabled by \ default.\nThe option ", StyleBox["dotradius ", FontWeight->"Bold"], "controls how big the dots are. The three options named ", StyleBox["srpcolor, urpcolor ", FontWeight->"Bold"], "and ", StyleBox["necolor ", FontWeight->"Bold"], "allow the user to modify the default grayscale color for stable rest \ points, unstable ", "rest point", "s and nash equilibria respectively. the defaults are black (0), white(1) \ and gray (.5)." }], "Text", CellChangeTimes->{{3.535300116015084*^9, 3.53530042108937*^9}, { 3.535301062722094*^9, 3.535301136714599*^9}, {3.535301261915186*^9, 3.535301317571302*^9}, {3.535301378066795*^9, 3.535301436271492*^9}, { 3.535301626315198*^9, 3.535301628660941*^9}, 3.535301762539234*^9, { 3.539378865664901*^9, 3.539378949247051*^9}, {3.539379001967136*^9, 3.539379035359755*^9}, {3.53937911399079*^9, 3.539379187903614*^9}, { 3.539459769716296*^9, 3.539459795493571*^9}, {3.539459840111018*^9, 3.539459875429639*^9}, 3.539694132097412*^9, {3.539694304710458*^9, 3.539694305596389*^9}, {3.5396943418964853`*^9, 3.5396943430504*^9}, { 3.539694373309739*^9, 3.5396944043129387`*^9}, {3.568976027220156*^9, 3.568976034757383*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"drawrestpoints", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"drawnashequilibria", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dotradius", "=", ".01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"srpcolor", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"urpcolor", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"necolor", "=", ".5"}], ";"}]}], "Input", CellChangeTimes->{{3.535300041562691*^9, 3.535300071371947*^9}, { 3.53530101844686*^9, 3.535301058547384*^9}, {3.535301255807105*^9, 3.535301256244587*^9}, {3.535301365840308*^9, 3.535301370704862*^9}, 3.539375837572479*^9, {3.539375943330617*^9, 3.539375949732499*^9}, 3.539694136715096*^9}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Adding extra graphic elements", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ "This section allows the user to add dots, lines, arrows, text, and color \ solution trajectories to a phase diagram/contour plot.\n\nEnter the data for \ dots as follows: ", StyleBox["customdots", FontWeight->"Bold"], " = {{center1, radius1, color1, open1}, {center2, radius2, color2, open2}, \ ...}. color1 should be a ", StyleBox["Mathematica", FontSlant->"Italic"], "-defined color function (Hue[.], GrayLevel[.], etc). Set open1 = 0 for \ solid dot and = 1 for a dot with a black edge.\n \nEnter the data for lines \ as follows: ", StyleBox["customlines", FontWeight->"Bold"], " = {{startingpoint1, endpoint1, thickness1, dashing1, color1, \ arrowheadsize1}, {startingpoint2, endpoint2, thickness2, dashing2, color2, \ arrowheadsize2},...}. If you want an arrow at the end of the line enter the \ value for arrowheadsize specifying the size of arrow head; if you do not want \ an arrow simply set it to 0. Thickness and Dashing are usual ", StyleBox["Mathematica ", FontSlant->"Italic"], "commands. If you want to enter position using simplex coordinates, you can \ directly enter the state (e.g.,{0, 1, 0}). Otherwise, 2d coordinates can be \ used with \"planeToSimplex\" command: for example, the bottom-left vertex is \ at planeToSimplex[{0, 0}] ={0,1,0}.\n\nEnter data for text as follows: ", StyleBox["customtext ", FontWeight->"Bold"], "= {{\"label1\", position1, \"fontfamily1\",\"fontslant1\", fontsize1}, \ {\"label2\", position2, \"fontfamily2\",\"fontslant2\", fontsize2}, ...}. \ Remember that you are restricted to positions in the surroundings of the \ simplex. If you want to enter position using simplex coordinates, use the \ \"simplexToPlane\" command (e.g., simplexToPlane{[{0, 1, 0}}]). \n\nEnter \ data for extra solution trajectories as follows: ", StyleBox["customtrajectoryspecs ", FontWeight->"Bold"], "= {{initial condition on simplex 1, endtime1 for NDSolve, beginningtime1 to \ be used in in the plot, {color1, thickness1}, {arrow position1}, {head \ lengths1}}, {initial condition on simplex 2, endtime2 for NDSolve, \ beginningtime2 to be used in in the plot, {color2, thickness2}, {arrow \ position2}, {head lengths2}},...}. \nThe program computes a solution to the \ dynamic from time 0 through endtime?, and then plots the solution trajectory \ from the beginning time? through endtime. color? should be a ", StyleBox["Mathematica", FontSlant->"Italic"], "-defined color function (Hue[.], GrayLevel[.], etc) (both color and \ thickness can be ignored, just write {} if you do not want to bother with \ these. arrowpositon? must be a number strictly greater than beginingtime? \ and less than endtime (it must be strictly bigger than begining time). Each \ trajectory can have multiple arrows, but even if there is only one arrow, be \ sure to put brackets around the arrow positions and head lengths.\n\nWrite \ customdots = {}, customlines = {}, customtext = {}, and \ customtrajectoryspecs = {} if you do not want to add anything. (This is the \ default setting.)" }], "Text", CellChangeTimes->{{3.481758323757595*^9, 3.4817583519681597`*^9}, { 3.4817584052647963`*^9, 3.481758449087811*^9}, {3.481758479571645*^9, 3.481758491468752*^9}, {3.4817585233145437`*^9, 3.4817585430629406`*^9}, 3.4818174985127053`*^9, 3.4818175879412975`*^9, {3.492692899083375*^9, 3.492692909157861*^9}, {3.5189480745547137`*^9, 3.518948079218981*^9}, { 3.5189481666509814`*^9, 3.518948212098581*^9}, {3.5212854599821157`*^9, 3.521285471367767*^9}, {3.5400646403177633`*^9, 3.5400646429919167`*^9}, { 3.554563814118454*^9, 3.554563827862392*^9}, {3.564999342537918*^9, 3.564999343995644*^9}, {3.564999444873737*^9, 3.564999446061701*^9}, { 3.566767058829246*^9, 3.566767059771845*^9}, {3.566767116605319*^9, 3.566767118112766*^9}, {3.569613937733704*^9, 3.569613940088293*^9}, { 3.57191921727388*^9, 3.57191921786613*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell["\<\ Example: This example generates one line, one dot, and one piece of text, \ one special solution trajectory (customtrajectoryspecs). customdots={{{1/3, 1/3, 1/3}, .01, GrayLevel[0], 1}}; [draws a black dot \ with white center at the center of the simplex] customlines={{{1/2, 0, 1/2},{1/2, 1/2, 0}, Thickness[.004], Dashing[{}], \ GrayLevel[0], 0}}; [draws a horizontal line through at x1=1/2] customtext={{\"trial\", simplexToPlane[{{1/3, 1/3, 1/3}}], \"Palatino\", \ \"Plain\", 12}}; customtrajectoryspecs={{{.8, .1, .1}, 50, 45, {Hue[.83], Thickness[.005]}, \ {47}, {.03}}}; \ \>", "Text", CellChangeTimes->{ 3.4817583537306943`*^9, {3.481758420306425*^9, 3.481758450039179*^9}, 3.481758492129702*^9, {3.481758544304726*^9, 3.4817585454163246`*^9}, 3.481817499754491*^9, {3.4926929131335783`*^9, 3.492692917149352*^9}, 3.564999345292789*^9, {3.56960981363013*^9, 3.569609817759199*^9}, 3.56961397649703*^9, {3.572103679541684*^9, 3.572103690159913*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"customdots", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customlines", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customtext", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customtrajectoryspecs", "=", RowBox[{"{", "}"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.4817583548923645`*^9, {3.481758425403755*^9, 3.4817584509805326`*^9}, 3.481758493010969*^9, 3.481758546387721*^9, 3.4926929185313396`*^9, 3.513423299643364*^9, {3.5134233347303705`*^9, 3.5134233700823927`*^9}, 3.5134234334720182`*^9, 3.513423630441284*^9, 3.513424327461152*^9, { 3.513424415422183*^9, 3.513424423684655*^9}, {3.513424596629547*^9, 3.513424619392849*^9}, {3.5134246558659353`*^9, 3.5134246687016697`*^9}, { 3.513424715343337*^9, 3.513424719300564*^9}, {3.5134248058885164`*^9, 3.51342488043978*^9}, {3.5134249130356445`*^9, 3.513424925941383*^9}, { 3.5134249580552197`*^9, 3.5134249727300587`*^9}, {3.513425004708888*^9, 3.5134250100751953`*^9}, {3.513425053794696*^9, 3.5134250563828435`*^9}, { 3.5134251338502746`*^9, 3.51342515649257*^9}, {3.51342520528036*^9, 3.513425205509373*^9}, {3.5136180986033573`*^9, 3.5136181036106434`*^9}, 3.5159571167613344`*^9, {3.519140756403737*^9, 3.5191407620890617`*^9}, { 3.51938347122598*^9, 3.519383484087716*^9}, {3.5193838258042607`*^9, 3.5193838315495896`*^9}, {3.519383886493732*^9, 3.51938389170603*^9}, { 3.519383957707805*^9, 3.51938405657146*^9}, {3.5193840993609076`*^9, 3.519384176708331*^9}, {3.519384247568384*^9, 3.5193843204735546`*^9}, { 3.519384351236314*^9, 3.5193843856552825`*^9}, {3.519384441868498*^9, 3.5193845971203775`*^9}, {3.5193848036981936`*^9, 3.5193848389002066`*^9}, {3.519384894124365*^9, 3.5193849355487347`*^9}, { 3.5193850042026615`*^9, 3.519385012418131*^9}, {3.5193850430348825`*^9, 3.5193850759117627`*^9}, {3.5193851517110987`*^9, 3.519385454292405*^9}, { 3.5193858517061357`*^9, 3.519385886655135*^9}, {3.5193944736130953`*^9, 3.519394499972603*^9}, {3.51941538818434*^9, 3.519415499641715*^9}, { 3.519461260784103*^9, 3.519461271592721*^9}, {3.539862606522581*^9, 3.5398626429886675`*^9}, 3.540206799176022*^9, {3.570091870350469*^9, 3.570091930387663*^9}, {3.571735730698706*^9, 3.571735739520632*^9}, 3.572106321442188*^9, 3.572107989716485*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell[TextData[{ "These are extra, less used parameters that are used for displaying ", "accessory", " elements in the contour function. If you do not include contour functions \ in your output, these parameters are not used.\n", StyleBox["colorbar", FontWeight->"Bold"], " = 1 to create a color scale (alternatively, a black and white scale) along \ with your contour plot.\n", StyleBox["showcontourformula", FontWeight->"Bold"], " = 1 displays the formula for the contour function in the output notebook.\n\ ", StyleBox["drawbasinboundaries", FontWeight->"Bold"], " =1 displays the approximate separatrices of the basins of attraction. \ (This code is work in progress!)" }], "Text", CellChangeTimes->{{3.480779243193115*^9, 3.4807792961292334`*^9}, 3.4807794713011184`*^9, {3.480779514703528*^9, 3.4807795412717314`*^9}, { 3.4807797587995887`*^9, 3.4807799035777693`*^9}, {3.4807799399500704`*^9, 3.4807799407712507`*^9}, {3.480780151674515*^9, 3.4807801526859694`*^9}, { 3.481756068394542*^9, 3.48175606959627*^9}, {3.481806079305114*^9, 3.481806116598739*^9}, {3.4818067166716013`*^9, 3.481806733405664*^9}, { 3.488629870402668*^9, 3.4886299270340996`*^9}, {3.491922128653241*^9, 3.491922130706193*^9}, {3.4934739429800673`*^9, 3.49347394635492*^9}, { 3.5100694090881863`*^9, 3.51006944594421*^9}, 3.5212855026315546`*^9}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"colorbar", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"showcontourformula", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"drawbasinboundaries", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.480779208673478*^9, 3.4807792403690543`*^9}, { 3.480779912300312*^9, 3.480779956343643*^9}, {3.480780155029339*^9, 3.4807802069740314`*^9}, {3.4808105872656336`*^9, 3.480810604312072*^9}, { 3.481299367902998*^9, 3.481299371371703*^9}, {3.4813361046496577`*^9, 3.4813361051496515`*^9}, {3.4817562146147966`*^9, 3.48175621514556*^9}, { 3.4818061298678193`*^9, 3.481806133673291*^9}, {3.4886298483409443`*^9, 3.488629868459874*^9}, {3.4886362734449067`*^9, 3.4886362738554974`*^9}, { 3.4919221436147547`*^9, 3.4919221451069*^9}, {3.492036264958202*^9, 3.4920362687736883`*^9}, {3.493473954566728*^9, 3.4934739572305584`*^9}, 3.5061732398757734`*^9, 3.506181069995869*^9, 3.5072102857421293`*^9, 3.5072190262709846`*^9, 3.5072283404178286`*^9, 3.5072289220561843`*^9, 3.5079233029194136`*^9, 3.508763813146513*^9, {3.51929252038889*^9, 3.5192925276253033`*^9}, {3.570091956478807*^9, 3.570091961269761*^9}, 3.571735969229139*^9, 3.57195868842685*^9, 3.571959748477834*^9}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Specifications for other graphics", "Subsection", CellChangeTimes->{{3.4816700653812637`*^9, 3.4816700693269377`*^9}, 3.4818952670660195`*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell["Vector field diagram", "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[TextData[{ StyleBox["drawvectorfield", FontWeight->"Bold"], " = 1 draws a vector field diagram on the simplex. The vector fields should \ take values in the tangent space of the simplex (i.e., values whose \ components sum to zero). \n", StyleBox["vfcontourplot", FontWeight->"Bold"], " = 1 draws the vector field on top of a contour plot." }], "Text", CellChangeTimes->{{3.4919249177486115`*^9, 3.491924943705936*^9}, 3.491925714784693*^9, {3.491926010069291*^9, 3.491926010610069*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{"drawvectorfield", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vfcontourplot", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.4749167511883984`*^9, 3.474916751699133*^9}, { 3.4919249232465167`*^9, 3.4919249460392914`*^9}, 3.491925720623088*^9, 3.491925989459656*^9, 3.492286619036826*^9, 3.493474032839278*^9, 3.5061810066047173`*^9, {3.519292618252487*^9, 3.519292618852522*^9}, { 3.519381721959928*^9, 3.5193817331955705`*^9}, 3.539434444538842*^9, 3.5398591459456477`*^9, {3.540031822342066*^9, 3.540031823605226*^9}, 3.540032202021779*^9, 3.5400331196057973`*^9, 3.5400331528220153`*^9, 3.5400584552117357`*^9, 3.54005888414077*^9, {3.540558803083349*^9, 3.540558805565053*^9}, 3.540724643665455*^9, {3.5586454067725415`*^9, 3.5586454087246532`*^9}, 3.5586471278439813`*^9, 3.570091975748884*^9, 3.571735753880695*^9, {3.572103769919759*^9, 3.57210377281676*^9}, { 3.572106532626618*^9, 3.572106532982694*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell["Instructions for specification of vector fields", "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[TextData[{ "Either one or two vector fields is drawn, according to whether ", StyleBox["drawvf[1]", FontWeight->"Bold"], ", ", StyleBox["drawvf[2]", FontWeight->"Bold"], ", or both are set to 1.\n", StyleBox["vectorfieldf[?]", FontWeight->"Bold"], " specifies the vector field to be drawn. (Here and below, \"?\" equals 1 \ or 2.) Common specifications for this are dyn (the dynamic specified in the \ \"Choice of dynamic\" section) and PhiF (the projection of the payoff vector \ field onto the tangent space of the simplex - see \"Payoff-related \ definitions\" in the \"Choice of game\"section).\n", StyleBox["vfscale[?]", FontWeight->"Bold"], " rescales the vectors, as is often needed to prevent the vector field \ arrows from overlapping or looking too small. A value of one should ensure \ that no arrow overlaps with the other.\n", StyleBox["vfarrowheadsize[?]", FontWeight->"Bold"], " is the relative size of the arrow heads; set it to zero if you do not want \ arrowheads.\n", StyleBox["vfcolor[?]", FontWeight->"Bold"], " determines the color of the vector field. It should be set to Hue[t] or \ GrayLevel[t] using the charts below." }], "Text", CellChangeTimes->{ 3.474715351404674*^9, 3.4814188859868355`*^9, 3.481735483034112*^9, { 3.53943231028846*^9, 3.539432339099945*^9}, 3.539432386680697*^9, { 3.539432509073672*^9, 3.53943251779241*^9}, {3.539432738224529*^9, 3.539432739312875*^9}, {3.539433142033798*^9, 3.539433184049106*^9}, { 3.539433527383021*^9, 3.53943354902581*^9}, 3.539433635093414*^9, { 3.539433690612667*^9, 3.539433751057571*^9}, 3.56958191602652*^9, { 3.570095505068878*^9, 3.570095508229269*^9}, {3.571919945024313*^9, 3.571920014837633*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .13736 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.00327054 0.47619 [ [ 0 0 0 0 ] [ 1 .13736 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .13736 L 0 .13736 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00327054 0.477324 0.134092 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.961538 0.0480769 0.961538 [ [ 0 0 0 0 ] [ 1 .28846 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .28846 L 0 .28846 L closepath clip newpath 1 0 0 r .01923 .04808 m .01923 .24038 L .02019 .24038 L .02019 .04808 L F 1 .006 0 r .02019 .04808 m .02019 .24038 L .02115 .24038 L .02115 .04808 L F 1 .012 0 r .02115 .04808 m .02115 .24038 L .02212 .24038 L .02212 .04808 L F 1 .018 0 r .02212 .04808 m .02212 .24038 L .02308 .24038 L .02308 .04808 L F 1 .024 0 r .02308 .04808 m .02308 .24038 L .02404 .24038 L .02404 .04808 L F 1 .03 0 r .02404 .04808 m .02404 .24038 L .025 .24038 L .025 .04808 L F 1 .036 0 r .025 .04808 m .025 .24038 L .02596 .24038 L .02596 .04808 L F 1 .042 0 r .02596 .04808 m .02596 .24038 L .02692 .24038 L .02692 .04808 L F 1 .048 0 r .02692 .04808 m .02692 .24038 L .02788 .24038 L .02788 .04808 L F 1 .054 0 r .02788 .04808 m .02788 .24038 L .02885 .24038 L .02885 .04808 L F 1 .06 0 r .02885 .04808 m .02885 .24038 L .02981 .24038 L .02981 .04808 L F 1 .066 0 r .02981 .04808 m .02981 .24038 L .03077 .24038 L .03077 .04808 L F 1 .072 0 r .03077 .04808 m .03077 .24038 L .03173 .24038 L .03173 .04808 L F 1 .078 0 r .03173 .04808 m .03173 .24038 L .03269 .24038 L .03269 .04808 L F 1 .084 0 r .03269 .04808 m .03269 .24038 L .03365 .24038 L .03365 .04808 L F 1 .09 0 r .03365 .04808 m .03365 .24038 L .03462 .24038 L .03462 .04808 L F 1 .096 0 r .03462 .04808 m .03462 .24038 L .03558 .24038 L .03558 .04808 L F 1 .102 0 r .03558 .04808 m .03558 .24038 L .03654 .24038 L .03654 .04808 L F 1 .108 0 r .03654 .04808 m .03654 .24038 L .0375 .24038 L .0375 .04808 L F 1 .114 0 r .0375 .04808 m .0375 .24038 L .03846 .24038 L .03846 .04808 L F 1 .12 0 r .03846 .04808 m .03846 .24038 L .03942 .24038 L .03942 .04808 L F 1 .126 0 r .03942 .04808 m .03942 .24038 L .04038 .24038 L .04038 .04808 L F 1 .132 0 r .04038 .04808 m .04038 .24038 L .04135 .24038 L .04135 .04808 L F 1 .138 0 r .04135 .04808 m .04135 .24038 L .04231 .24038 L .04231 .04808 L F 1 .144 0 r .04231 .04808 m .04231 .24038 L .04327 .24038 L .04327 .04808 L F 1 .15 0 r .04327 .04808 m .04327 .24038 L .04423 .24038 L .04423 .04808 L F 1 .156 0 r .04423 .04808 m .04423 .24038 L .04519 .24038 L .04519 .04808 L F 1 .162 0 r .04519 .04808 m .04519 .24038 L .04615 .24038 L .04615 .04808 L F 1 .168 0 r .04615 .04808 m .04615 .24038 L .04712 .24038 L .04712 .04808 L F 1 .174 0 r .04712 .04808 m .04712 .24038 L .04808 .24038 L .04808 .04808 L F 1 .18 0 r .04808 .04808 m .04808 .24038 L .04904 .24038 L .04904 .04808 L F 1 .186 0 r .04904 .04808 m .04904 .24038 L .05 .24038 L .05 .04808 L F 1 .192 0 r .05 .04808 m .05 .24038 L .05096 .24038 L .05096 .04808 L F 1 .198 0 r .05096 .04808 m .05096 .24038 L .05192 .24038 L .05192 .04808 L F 1 .204 0 r .05192 .04808 m .05192 .24038 L .05288 .24038 L .05288 .04808 L F 1 .21 0 r .05288 .04808 m .05288 .24038 L .05385 .24038 L .05385 .04808 L F 1 .216 0 r .05385 .04808 m .05385 .24038 L .05481 .24038 L .05481 .04808 L F 1 .222 0 r .05481 .04808 m .05481 .24038 L .05577 .24038 L .05577 .04808 L F 1 .228 0 r .05577 .04808 m .05577 .24038 L .05673 .24038 L .05673 .04808 L F 1 .234 0 r .05673 .04808 m .05673 .24038 L .05769 .24038 L .05769 .04808 L F 1 .24 0 r .05769 .04808 m .05769 .24038 L .05865 .24038 L .05865 .04808 L F 1 .246 0 r .05865 .04808 m .05865 .24038 L .05962 .24038 L .05962 .04808 L F 1 .252 0 r .05962 .04808 m .05962 .24038 L .06058 .24038 L .06058 .04808 L F 1 .258 0 r .06058 .04808 m .06058 .24038 L .06154 .24038 L .06154 .04808 L F 1 .264 0 r .06154 .04808 m .06154 .24038 L .0625 .24038 L .0625 .04808 L F 1 .27 0 r .0625 .04808 m .0625 .24038 L .06346 .24038 L .06346 .04808 L F 1 .276 0 r .06346 .04808 m .06346 .24038 L .06442 .24038 L .06442 .04808 L F 1 .282 0 r .06442 .04808 m .06442 .24038 L .06538 .24038 L .06538 .04808 L F 1 .288 0 r .06538 .04808 m .06538 .24038 L .06635 .24038 L .06635 .04808 L F 1 .294 0 r .06635 .04808 m .06635 .24038 L .06731 .24038 L .06731 .04808 L F 1 .3 0 r .06731 .04808 m .06731 .24038 L .06827 .24038 L .06827 .04808 L F 1 .306 0 r .06827 .04808 m .06827 .24038 L .06923 .24038 L .06923 .04808 L F 1 .312 0 r .06923 .04808 m .06923 .24038 L .07019 .24038 L .07019 .04808 L F 1 .318 0 r .07019 .04808 m .07019 .24038 L .07115 .24038 L .07115 .04808 L F 1 .324 0 r .07115 .04808 m .07115 .24038 L .07212 .24038 L .07212 .04808 L F 1 .33 0 r .07212 .04808 m .07212 .24038 L .07308 .24038 L .07308 .04808 L F 1 .336 0 r .07308 .04808 m .07308 .24038 L .07404 .24038 L .07404 .04808 L F 1 .342 0 r .07404 .04808 m .07404 .24038 L .075 .24038 L .075 .04808 L F 1 .348 0 r .075 .04808 m .075 .24038 L .07596 .24038 L .07596 .04808 L F 1 .354 0 r .07596 .04808 m .07596 .24038 L .07692 .24038 L .07692 .04808 L F 1 .36 0 r .07692 .04808 m .07692 .24038 L .07788 .24038 L .07788 .04808 L F 1 .366 0 r .07788 .04808 m .07788 .24038 L .07885 .24038 L .07885 .04808 L F 1 .372 0 r .07885 .04808 m .07885 .24038 L .07981 .24038 L .07981 .04808 L F 1 .378 0 r .07981 .04808 m .07981 .24038 L .08077 .24038 L .08077 .04808 L F 1 .384 0 r .08077 .04808 m .08077 .24038 L .08173 .24038 L .08173 .04808 L F 1 .39 0 r .08173 .04808 m .08173 .24038 L .08269 .24038 L .08269 .04808 L F 1 .396 0 r .08269 .04808 m .08269 .24038 L .08365 .24038 L .08365 .04808 L F 1 .402 0 r .08365 .04808 m .08365 .24038 L .08462 .24038 L .08462 .04808 L F 1 .408 0 r .08462 .04808 m .08462 .24038 L .08558 .24038 L .08558 .04808 L F 1 .414 0 r .08558 .04808 m .08558 .24038 L .08654 .24038 L .08654 .04808 L F 1 .42 0 r .08654 .04808 m .08654 .24038 L .0875 .24038 L .0875 .04808 L F 1 .426 0 r .0875 .04808 m .0875 .24038 L .08846 .24038 L .08846 .04808 L F 1 .432 0 r .08846 .04808 m .08846 .24038 L .08942 .24038 L .08942 .04808 L F 1 .438 0 r .08942 .04808 m .08942 .24038 L .09038 .24038 L .09038 .04808 L F 1 .444 0 r .09038 .04808 m .09038 .24038 L .09135 .24038 L .09135 .04808 L F 1 .45 0 r .09135 .04808 m .09135 .24038 L .09231 .24038 L .09231 .04808 L F 1 .456 0 r .09231 .04808 m .09231 .24038 L .09327 .24038 L .09327 .04808 L F 1 .462 0 r .09327 .04808 m .09327 .24038 L .09423 .24038 L .09423 .04808 L F 1 .468 0 r .09423 .04808 m .09423 .24038 L .09519 .24038 L .09519 .04808 L F 1 .474 0 r .09519 .04808 m .09519 .24038 L .09615 .24038 L .09615 .04808 L F 1 .48 0 r .09615 .04808 m .09615 .24038 L .09712 .24038 L .09712 .04808 L F 1 .486 0 r .09712 .04808 m .09712 .24038 L .09808 .24038 L .09808 .04808 L F 1 .492 0 r .09808 .04808 m .09808 .24038 L .09904 .24038 L .09904 .04808 L F 1 .498 0 r .09904 .04808 m .09904 .24038 L .1 .24038 L .1 .04808 L F 1 .504 0 r .1 .04808 m .1 .24038 L .10096 .24038 L .10096 .04808 L F 1 .51 0 r .10096 .04808 m .10096 .24038 L .10192 .24038 L .10192 .04808 L F 1 .516 0 r .10192 .04808 m .10192 .24038 L .10288 .24038 L .10288 .04808 L F 1 .522 0 r .10288 .04808 m .10288 .24038 L .10385 .24038 L .10385 .04808 L F 1 .528 0 r .10385 .04808 m .10385 .24038 L .10481 .24038 L .10481 .04808 L F 1 .534 0 r .10481 .04808 m .10481 .24038 L .10577 .24038 L .10577 .04808 L F 1 .54 0 r .10577 .04808 m .10577 .24038 L .10673 .24038 L .10673 .04808 L F 1 .546 0 r .10673 .04808 m .10673 .24038 L .10769 .24038 L .10769 .04808 L F 1 .552 0 r .10769 .04808 m .10769 .24038 L .10865 .24038 L .10865 .04808 L F 1 .558 0 r .10865 .04808 m .10865 .24038 L .10962 .24038 L .10962 .04808 L F 1 .564 0 r .10962 .04808 m .10962 .24038 L .11058 .24038 L .11058 .04808 L F 1 .57 0 r .11058 .04808 m .11058 .24038 L .11154 .24038 L .11154 .04808 L F 1 .576 0 r .11154 .04808 m .11154 .24038 L .1125 .24038 L .1125 .04808 L F 1 .582 0 r .1125 .04808 m .1125 .24038 L .11346 .24038 L .11346 .04808 L F 1 .588 0 r .11346 .04808 m .11346 .24038 L .11442 .24038 L .11442 .04808 L F 1 .594 0 r .11442 .04808 m .11442 .24038 L .11538 .24038 L .11538 .04808 L F 1 .6 0 r .11538 .04808 m .11538 .24038 L .11635 .24038 L .11635 .04808 L F 1 .606 0 r .11635 .04808 m .11635 .24038 L .11731 .24038 L .11731 .04808 L F 1 .612 0 r .11731 .04808 m .11731 .24038 L .11827 .24038 L .11827 .04808 L F 1 .618 0 r .11827 .04808 m .11827 .24038 L .11923 .24038 L .11923 .04808 L F 1 .624 0 r .11923 .04808 m .11923 .24038 L .12019 .24038 L .12019 .04808 L F 1 .63 0 r .12019 .04808 m .12019 .24038 L .12115 .24038 L .12115 .04808 L F 1 .636 0 r .12115 .04808 m .12115 .24038 L .12212 .24038 L .12212 .04808 L F 1 .642 0 r .12212 .04808 m .12212 .24038 L .12308 .24038 L .12308 .04808 L F 1 .648 0 r .12308 .04808 m .12308 .24038 L .12404 .24038 L .12404 .04808 L F 1 .654 0 r .12404 .04808 m .12404 .24038 L .125 .24038 L .125 .04808 L F 1 .66 0 r .125 .04808 m .125 .24038 L .12596 .24038 L .12596 .04808 L F 1 .666 0 r .12596 .04808 m .12596 .24038 L .12692 .24038 L .12692 .04808 L F 1 .672 0 r .12692 .04808 m .12692 .24038 L .12788 .24038 L .12788 .04808 L F 1 .678 0 r .12788 .04808 m .12788 .24038 L .12885 .24038 L .12885 .04808 L F 1 .684 0 r .12885 .04808 m .12885 .24038 L .12981 .24038 L .12981 .04808 L F 1 .69 0 r .12981 .04808 m .12981 .24038 L .13077 .24038 L .13077 .04808 L F 1 .696 0 r .13077 .04808 m .13077 .24038 L .13173 .24038 L .13173 .04808 L F 1 .702 0 r .13173 .04808 m .13173 .24038 L .13269 .24038 L .13269 .04808 L F 1 .708 0 r .13269 .04808 m .13269 .24038 L .13365 .24038 L .13365 .04808 L F 1 .714 0 r .13365 .04808 m .13365 .24038 L .13462 .24038 L .13462 .04808 L F 1 .72 0 r .13462 .04808 m .13462 .24038 L .13558 .24038 L .13558 .04808 L F 1 .726 0 r .13558 .04808 m .13558 .24038 L .13654 .24038 L .13654 .04808 L F 1 .732 0 r .13654 .04808 m .13654 .24038 L .1375 .24038 L .1375 .04808 L F 1 .738 0 r .1375 .04808 m .1375 .24038 L .13846 .24038 L .13846 .04808 L F 1 .744 0 r .13846 .04808 m .13846 .24038 L .13942 .24038 L .13942 .04808 L F 1 .75 0 r .13942 .04808 m .13942 .24038 L .14038 .24038 L .14038 .04808 L F 1 .756 0 r .14038 .04808 m .14038 .24038 L .14135 .24038 L .14135 .04808 L F 1 .762 0 r .14135 .04808 m .14135 .24038 L .14231 .24038 L .14231 .04808 L F 1 .768 0 r .14231 .04808 m .14231 .24038 L .14327 .24038 L .14327 .04808 L F 1 .774 0 r .14327 .04808 m .14327 .24038 L .14423 .24038 L .14423 .04808 L F 1 .78 0 r .14423 .04808 m .14423 .24038 L .14519 .24038 L .14519 .04808 L F 1 .786 0 r .14519 .04808 m .14519 .24038 L .14615 .24038 L .14615 .04808 L F 1 .792 0 r .14615 .04808 m .14615 .24038 L .14712 .24038 L .14712 .04808 L F 1 .798 0 r .14712 .04808 m .14712 .24038 L .14808 .24038 L .14808 .04808 L F 1 .804 0 r .14808 .04808 m .14808 .24038 L .14904 .24038 L .14904 .04808 L F 1 .81 0 r .14904 .04808 m .14904 .24038 L .15 .24038 L .15 .04808 L F 1 .816 0 r .15 .04808 m .15 .24038 L .15096 .24038 L .15096 .04808 L F 1 .822 0 r .15096 .04808 m .15096 .24038 L .15192 .24038 L .15192 .04808 L F 1 .828 0 r .15192 .04808 m .15192 .24038 L .15288 .24038 L .15288 .04808 L F 1 .834 0 r .15288 .04808 m .15288 .24038 L .15385 .24038 L .15385 .04808 L F 1 .84 0 r .15385 .04808 m .15385 .24038 L .15481 .24038 L .15481 .04808 L F 1 .846 0 r .15481 .04808 m .15481 .24038 L .15577 .24038 L .15577 .04808 L F 1 .852 0 r .15577 .04808 m .15577 .24038 L .15673 .24038 L .15673 .04808 L F 1 .858 0 r .15673 .04808 m .15673 .24038 L .15769 .24038 L .15769 .04808 L F 1 .864 0 r .15769 .04808 m .15769 .24038 L .15865 .24038 L .15865 .04808 L F 1 .87 0 r .15865 .04808 m .15865 .24038 L .15962 .24038 L .15962 .04808 L F 1 .876 0 r .15962 .04808 m .15962 .24038 L .16058 .24038 L .16058 .04808 L F 1 .882 0 r .16058 .04808 m .16058 .24038 L .16154 .24038 L .16154 .04808 L F 1 .888 0 r .16154 .04808 m .16154 .24038 L .1625 .24038 L .1625 .04808 L F 1 .894 0 r .1625 .04808 m .1625 .24038 L .16346 .24038 L .16346 .04808 L F 1 .9 0 r .16346 .04808 m .16346 .24038 L .16442 .24038 L .16442 .04808 L F 1 .906 0 r .16442 .04808 m .16442 .24038 L .16538 .24038 L .16538 .04808 L F 1 .912 0 r .16538 .04808 m .16538 .24038 L .16635 .24038 L .16635 .04808 L F 1 .918 0 r .16635 .04808 m .16635 .24038 L .16731 .24038 L .16731 .04808 L F 1 .924 0 r .16731 .04808 m .16731 .24038 L .16827 .24038 L .16827 .04808 L F 1 .93 0 r .16827 .04808 m .16827 .24038 L .16923 .24038 L .16923 .04808 L F 1 .936 0 r .16923 .04808 m .16923 .24038 L .17019 .24038 L .17019 .04808 L F 1 .942 0 r .17019 .04808 m .17019 .24038 L .17115 .24038 L .17115 .04808 L F 1 .948 0 r .17115 .04808 m .17115 .24038 L .17212 .24038 L .17212 .04808 L F 1 .954 0 r .17212 .04808 m .17212 .24038 L .17308 .24038 L .17308 .04808 L F 1 .96 0 r .17308 .04808 m .17308 .24038 L .17404 .24038 L .17404 .04808 L F 1 .966 0 r .17404 .04808 m .17404 .24038 L .175 .24038 L .175 .04808 L F 1 .972 0 r .175 .04808 m .175 .24038 L .17596 .24038 L .17596 .04808 L F 1 .978 0 r .17596 .04808 m .17596 .24038 L .17692 .24038 L .17692 .04808 L F 1 .984 0 r .17692 .04808 m .17692 .24038 L .17788 .24038 L .17788 .04808 L F 1 .99 0 r .17788 .04808 m .17788 .24038 L .17885 .24038 L .17885 .04808 L F 1 .996 0 r .17885 .04808 m .17885 .24038 L .17981 .24038 L .17981 .04808 L F .998 1 0 r .17981 .04808 m .17981 .24038 L .18077 .24038 L .18077 .04808 L F .992 1 0 r .18077 .04808 m .18077 .24038 L .18173 .24038 L .18173 .04808 L F .986 1 0 r .18173 .04808 m .18173 .24038 L .18269 .24038 L .18269 .04808 L F .98 1 0 r .18269 .04808 m .18269 .24038 L .18365 .24038 L .18365 .04808 L F .974 1 0 r .18365 .04808 m .18365 .24038 L .18462 .24038 L .18462 .04808 L F .968 1 0 r .18462 .04808 m .18462 .24038 L .18558 .24038 L .18558 .04808 L F .962 1 0 r .18558 .04808 m .18558 .24038 L .18654 .24038 L .18654 .04808 L F .956 1 0 r .18654 .04808 m .18654 .24038 L .1875 .24038 L .1875 .04808 L F .95 1 0 r .1875 .04808 m .1875 .24038 L .18846 .24038 L .18846 .04808 L F .944 1 0 r .18846 .04808 m .18846 .24038 L .18942 .24038 L .18942 .04808 L F .938 1 0 r .18942 .04808 m .18942 .24038 L .19038 .24038 L .19038 .04808 L F .932 1 0 r .19038 .04808 m .19038 .24038 L .19135 .24038 L .19135 .04808 L F .926 1 0 r .19135 .04808 m .19135 .24038 L .19231 .24038 L .19231 .04808 L F .92 1 0 r .19231 .04808 m .19231 .24038 L .19327 .24038 L .19327 .04808 L F .914 1 0 r .19327 .04808 m .19327 .24038 L .19423 .24038 L .19423 .04808 L F .908 1 0 r .19423 .04808 m .19423 .24038 L .19519 .24038 L .19519 .04808 L F .902 1 0 r .19519 .04808 m .19519 .24038 L .19615 .24038 L .19615 .04808 L F .896 1 0 r .19615 .04808 m .19615 .24038 L .19712 .24038 L .19712 .04808 L F .89 1 0 r .19712 .04808 m .19712 .24038 L .19808 .24038 L .19808 .04808 L F .884 1 0 r .19808 .04808 m .19808 .24038 L .19904 .24038 L .19904 .04808 L F .878 1 0 r .19904 .04808 m .19904 .24038 L .2 .24038 L .2 .04808 L F .872 1 0 r .2 .04808 m .2 .24038 L .20096 .24038 L .20096 .04808 L F .866 1 0 r .20096 .04808 m .20096 .24038 L .20192 .24038 L .20192 .04808 L F .86 1 0 r .20192 .04808 m .20192 .24038 L .20288 .24038 L .20288 .04808 L F .854 1 0 r .20288 .04808 m .20288 .24038 L .20385 .24038 L .20385 .04808 L F .848 1 0 r .20385 .04808 m .20385 .24038 L .20481 .24038 L .20481 .04808 L F .842 1 0 r .20481 .04808 m .20481 .24038 L .20577 .24038 L .20577 .04808 L F .836 1 0 r .20577 .04808 m .20577 .24038 L .20673 .24038 L .20673 .04808 L F .83 1 0 r .20673 .04808 m .20673 .24038 L .20769 .24038 L .20769 .04808 L F .824 1 0 r .20769 .04808 m .20769 .24038 L .20865 .24038 L .20865 .04808 L F .818 1 0 r .20865 .04808 m .20865 .24038 L .20962 .24038 L .20962 .04808 L F .812 1 0 r .20962 .04808 m .20962 .24038 L .21058 .24038 L .21058 .04808 L F .806 1 0 r .21058 .04808 m .21058 .24038 L .21154 .24038 L .21154 .04808 L F .8 1 0 r .21154 .04808 m .21154 .24038 L .2125 .24038 L .2125 .04808 L F .794 1 0 r .2125 .04808 m .2125 .24038 L .21346 .24038 L .21346 .04808 L F .788 1 0 r .21346 .04808 m .21346 .24038 L .21442 .24038 L .21442 .04808 L F .782 1 0 r .21442 .04808 m .21442 .24038 L .21538 .24038 L .21538 .04808 L F .776 1 0 r .21538 .04808 m .21538 .24038 L .21635 .24038 L .21635 .04808 L F .77 1 0 r .21635 .04808 m .21635 .24038 L .21731 .24038 L .21731 .04808 L F .764 1 0 r .21731 .04808 m .21731 .24038 L .21827 .24038 L .21827 .04808 L F .758 1 0 r .21827 .04808 m .21827 .24038 L .21923 .24038 L .21923 .04808 L F .752 1 0 r .21923 .04808 m .21923 .24038 L .22019 .24038 L .22019 .04808 L F .746 1 0 r .22019 .04808 m .22019 .24038 L .22115 .24038 L .22115 .04808 L F .74 1 0 r .22115 .04808 m .22115 .24038 L .22212 .24038 L .22212 .04808 L F .734 1 0 r .22212 .04808 m .22212 .24038 L .22308 .24038 L .22308 .04808 L F .728 1 0 r .22308 .04808 m .22308 .24038 L .22404 .24038 L .22404 .04808 L F .722 1 0 r .22404 .04808 m .22404 .24038 L .225 .24038 L .225 .04808 L F .716 1 0 r .225 .04808 m .225 .24038 L .22596 .24038 L .22596 .04808 L F .71 1 0 r .22596 .04808 m .22596 .24038 L .22692 .24038 L .22692 .04808 L F .704 1 0 r .22692 .04808 m .22692 .24038 L .22788 .24038 L .22788 .04808 L F .698 1 0 r .22788 .04808 m .22788 .24038 L .22885 .24038 L .22885 .04808 L F .692 1 0 r .22885 .04808 m .22885 .24038 L .22981 .24038 L .22981 .04808 L F .686 1 0 r .22981 .04808 m .22981 .24038 L .23077 .24038 L .23077 .04808 L F .68 1 0 r .23077 .04808 m .23077 .24038 L .23173 .24038 L .23173 .04808 L F .674 1 0 r .23173 .04808 m .23173 .24038 L .23269 .24038 L .23269 .04808 L F .668 1 0 r .23269 .04808 m .23269 .24038 L .23365 .24038 L .23365 .04808 L F .662 1 0 r .23365 .04808 m .23365 .24038 L .23462 .24038 L .23462 .04808 L F .656 1 0 r .23462 .04808 m .23462 .24038 L .23558 .24038 L .23558 .04808 L F .65 1 0 r .23558 .04808 m .23558 .24038 L .23654 .24038 L .23654 .04808 L F .644 1 0 r .23654 .04808 m .23654 .24038 L .2375 .24038 L .2375 .04808 L F .638 1 0 r .2375 .04808 m .2375 .24038 L .23846 .24038 L .23846 .04808 L F .632 1 0 r .23846 .04808 m .23846 .24038 L .23942 .24038 L .23942 .04808 L F .626 1 0 r .23942 .04808 m .23942 .24038 L .24038 .24038 L .24038 .04808 L F .62 1 0 r .24038 .04808 m .24038 .24038 L .24135 .24038 L .24135 .04808 L F .614 1 0 r .24135 .04808 m .24135 .24038 L .24231 .24038 L .24231 .04808 L F .608 1 0 r .24231 .04808 m .24231 .24038 L .24327 .24038 L .24327 .04808 L F .602 1 0 r .24327 .04808 m .24327 .24038 L .24423 .24038 L .24423 .04808 L F .596 1 0 r .24423 .04808 m .24423 .24038 L .24519 .24038 L .24519 .04808 L F .59 1 0 r .24519 .04808 m .24519 .24038 L .24615 .24038 L .24615 .04808 L F .584 1 0 r .24615 .04808 m .24615 .24038 L .24712 .24038 L .24712 .04808 L F .578 1 0 r .24712 .04808 m .24712 .24038 L .24808 .24038 L .24808 .04808 L F .572 1 0 r .24808 .04808 m .24808 .24038 L .24904 .24038 L .24904 .04808 L F .566 1 0 r .24904 .04808 m .24904 .24038 L .25 .24038 L .25 .04808 L F .56 1 0 r .25 .04808 m .25 .24038 L .25096 .24038 L .25096 .04808 L F .554 1 0 r .25096 .04808 m .25096 .24038 L .25192 .24038 L .25192 .04808 L F .548 1 0 r .25192 .04808 m .25192 .24038 L .25288 .24038 L .25288 .04808 L F .542 1 0 r .25288 .04808 m .25288 .24038 L .25385 .24038 L .25385 .04808 L F .536 1 0 r .25385 .04808 m .25385 .24038 L .25481 .24038 L .25481 .04808 L F .53 1 0 r .25481 .04808 m .25481 .24038 L .25577 .24038 L .25577 .04808 L F .524 1 0 r .25577 .04808 m .25577 .24038 L .25673 .24038 L .25673 .04808 L F .518 1 0 r .25673 .04808 m .25673 .24038 L .25769 .24038 L .25769 .04808 L F .512 1 0 r .25769 .04808 m .25769 .24038 L .25865 .24038 L .25865 .04808 L F .506 1 0 r .25865 .04808 m .25865 .24038 L .25962 .24038 L .25962 .04808 L F .5 1 0 r .25962 .04808 m .25962 .24038 L .26058 .24038 L .26058 .04808 L F .494 1 0 r .26058 .04808 m .26058 .24038 L .26154 .24038 L .26154 .04808 L F .488 1 0 r .26154 .04808 m .26154 .24038 L .2625 .24038 L .2625 .04808 L F .482 1 0 r .2625 .04808 m .2625 .24038 L .26346 .24038 L .26346 .04808 L F .476 1 0 r .26346 .04808 m .26346 .24038 L .26442 .24038 L .26442 .04808 L F .47 1 0 r .26442 .04808 m .26442 .24038 L .26538 .24038 L .26538 .04808 L F .464 1 0 r .26538 .04808 m .26538 .24038 L .26635 .24038 L .26635 .04808 L F .458 1 0 r .26635 .04808 m .26635 .24038 L .26731 .24038 L .26731 .04808 L F .452 1 0 r .26731 .04808 m .26731 .24038 L .26827 .24038 L .26827 .04808 L F .446 1 0 r .26827 .04808 m .26827 .24038 L .26923 .24038 L .26923 .04808 L F .44 1 0 r .26923 .04808 m .26923 .24038 L .27019 .24038 L .27019 .04808 L F .434 1 0 r .27019 .04808 m .27019 .24038 L .27115 .24038 L .27115 .04808 L F .428 1 0 r .27115 .04808 m .27115 .24038 L .27212 .24038 L .27212 .04808 L F .422 1 0 r .27212 .04808 m .27212 .24038 L .27308 .24038 L .27308 .04808 L F .416 1 0 r .27308 .04808 m .27308 .24038 L .27404 .24038 L .27404 .04808 L F .41 1 0 r .27404 .04808 m .27404 .24038 L .275 .24038 L .275 .04808 L F .404 1 0 r .275 .04808 m .275 .24038 L .27596 .24038 L .27596 .04808 L F .398 1 0 r .27596 .04808 m .27596 .24038 L .27692 .24038 L .27692 .04808 L F .392 1 0 r .27692 .04808 m .27692 .24038 L .27788 .24038 L .27788 .04808 L F .386 1 0 r .27788 .04808 m .27788 .24038 L .27885 .24038 L .27885 .04808 L F .38 1 0 r .27885 .04808 m .27885 .24038 L .27981 .24038 L .27981 .04808 L F .374 1 0 r .27981 .04808 m .27981 .24038 L .28077 .24038 L .28077 .04808 L F .368 1 0 r .28077 .04808 m .28077 .24038 L .28173 .24038 L .28173 .04808 L F .362 1 0 r .28173 .04808 m .28173 .24038 L .28269 .24038 L .28269 .04808 L F .356 1 0 r .28269 .04808 m .28269 .24038 L .28365 .24038 L .28365 .04808 L F .35 1 0 r .28365 .04808 m .28365 .24038 L .28462 .24038 L .28462 .04808 L F .344 1 0 r .28462 .04808 m .28462 .24038 L .28558 .24038 L .28558 .04808 L F .338 1 0 r .28558 .04808 m .28558 .24038 L .28654 .24038 L .28654 .04808 L F .332 1 0 r .28654 .04808 m .28654 .24038 L .2875 .24038 L .2875 .04808 L F .326 1 0 r .2875 .04808 m .2875 .24038 L .28846 .24038 L .28846 .04808 L F .32 1 0 r .28846 .04808 m .28846 .24038 L .28942 .24038 L .28942 .04808 L F .314 1 0 r .28942 .04808 m .28942 .24038 L .29038 .24038 L .29038 .04808 L F .308 1 0 r .29038 .04808 m .29038 .24038 L .29135 .24038 L .29135 .04808 L F .302 1 0 r .29135 .04808 m .29135 .24038 L .29231 .24038 L .29231 .04808 L F .296 1 0 r .29231 .04808 m .29231 .24038 L .29327 .24038 L .29327 .04808 L F .29 1 0 r .29327 .04808 m .29327 .24038 L .29423 .24038 L .29423 .04808 L F .284 1 0 r .29423 .04808 m .29423 .24038 L .29519 .24038 L .29519 .04808 L F .278 1 0 r .29519 .04808 m .29519 .24038 L .29615 .24038 L .29615 .04808 L F .272 1 0 r .29615 .04808 m .29615 .24038 L .29712 .24038 L .29712 .04808 L F .266 1 0 r .29712 .04808 m .29712 .24038 L .29808 .24038 L .29808 .04808 L F .26 1 0 r .29808 .04808 m .29808 .24038 L .29904 .24038 L .29904 .04808 L F .254 1 0 r .29904 .04808 m .29904 .24038 L .3 .24038 L .3 .04808 L F .248 1 0 r .3 .04808 m .3 .24038 L .30096 .24038 L .30096 .04808 L F .242 1 0 r .30096 .04808 m .30096 .24038 L .30192 .24038 L .30192 .04808 L F .236 1 0 r .30192 .04808 m .30192 .24038 L .30288 .24038 L .30288 .04808 L F .23 1 0 r .30288 .04808 m .30288 .24038 L .30385 .24038 L .30385 .04808 L F .224 1 0 r .30385 .04808 m .30385 .24038 L .30481 .24038 L .30481 .04808 L F .218 1 0 r .30481 .04808 m .30481 .24038 L .30577 .24038 L .30577 .04808 L F .212 1 0 r .30577 .04808 m .30577 .24038 L .30673 .24038 L .30673 .04808 L F .206 1 0 r .30673 .04808 m .30673 .24038 L .30769 .24038 L .30769 .04808 L F .2 1 0 r .30769 .04808 m .30769 .24038 L .30865 .24038 L .30865 .04808 L F .194 1 0 r .30865 .04808 m .30865 .24038 L .30962 .24038 L .30962 .04808 L F .188 1 0 r .30962 .04808 m .30962 .24038 L .31058 .24038 L .31058 .04808 L F .182 1 0 r .31058 .04808 m .31058 .24038 L .31154 .24038 L .31154 .04808 L F .176 1 0 r .31154 .04808 m .31154 .24038 L .3125 .24038 L .3125 .04808 L F .17 1 0 r .3125 .04808 m .3125 .24038 L .31346 .24038 L .31346 .04808 L F .164 1 0 r .31346 .04808 m .31346 .24038 L .31442 .24038 L .31442 .04808 L F .158 1 0 r .31442 .04808 m .31442 .24038 L .31538 .24038 L .31538 .04808 L F .152 1 0 r .31538 .04808 m .31538 .24038 L .31635 .24038 L .31635 .04808 L F .146 1 0 r .31635 .04808 m .31635 .24038 L .31731 .24038 L .31731 .04808 L F .14 1 0 r .31731 .04808 m .31731 .24038 L .31827 .24038 L .31827 .04808 L F .134 1 0 r .31827 .04808 m .31827 .24038 L .31923 .24038 L .31923 .04808 L F .128 1 0 r .31923 .04808 m .31923 .24038 L .32019 .24038 L .32019 .04808 L F .122 1 0 r .32019 .04808 m .32019 .24038 L .32115 .24038 L .32115 .04808 L F .116 1 0 r .32115 .04808 m .32115 .24038 L .32212 .24038 L .32212 .04808 L F .11 1 0 r .32212 .04808 m .32212 .24038 L .32308 .24038 L .32308 .04808 L F .104 1 0 r .32308 .04808 m .32308 .24038 L .32404 .24038 L .32404 .04808 L F .098 1 0 r .32404 .04808 m .32404 .24038 L .325 .24038 L .325 .04808 L F .092 1 0 r .325 .04808 m .325 .24038 L .32596 .24038 L .32596 .04808 L F .086 1 0 r .32596 .04808 m .32596 .24038 L .32692 .24038 L .32692 .04808 L F .08 1 0 r .32692 .04808 m .32692 .24038 L .32788 .24038 L .32788 .04808 L F .074 1 0 r .32788 .04808 m .32788 .24038 L .32885 .24038 L .32885 .04808 L F .068 1 0 r .32885 .04808 m .32885 .24038 L .32981 .24038 L .32981 .04808 L F .062 1 0 r .32981 .04808 m .32981 .24038 L .33077 .24038 L .33077 .04808 L F .056 1 0 r .33077 .04808 m .33077 .24038 L .33173 .24038 L .33173 .04808 L F .05 1 0 r .33173 .04808 m .33173 .24038 L .33269 .24038 L .33269 .04808 L F .044 1 0 r .33269 .04808 m .33269 .24038 L .33365 .24038 L .33365 .04808 L F .038 1 0 r .33365 .04808 m .33365 .24038 L .33462 .24038 L .33462 .04808 L F .032 1 0 r .33462 .04808 m .33462 .24038 L .33558 .24038 L .33558 .04808 L F .026 1 0 r .33558 .04808 m .33558 .24038 L .33654 .24038 L .33654 .04808 L F .02 1 0 r .33654 .04808 m .33654 .24038 L .3375 .24038 L .3375 .04808 L F .014 1 0 r .3375 .04808 m .3375 .24038 L .33846 .24038 L .33846 .04808 L F .008 1 0 r .33846 .04808 m .33846 .24038 L .33942 .24038 L .33942 .04808 L F .002 1 0 r .33942 .04808 m .33942 .24038 L .34038 .24038 L .34038 .04808 L F 0 1 .004 r .34038 .04808 m .34038 .24038 L .34135 .24038 L .34135 .04808 L F 0 1 .01 r .34135 .04808 m .34135 .24038 L .34231 .24038 L .34231 .04808 L F 0 1 .016 r .34231 .04808 m .34231 .24038 L .34327 .24038 L .34327 .04808 L F 0 1 .022 r .34327 .04808 m .34327 .24038 L .34423 .24038 L .34423 .04808 L F 0 1 .028 r .34423 .04808 m .34423 .24038 L .34519 .24038 L .34519 .04808 L F 0 1 .034 r .34519 .04808 m .34519 .24038 L .34615 .24038 L .34615 .04808 L F 0 1 .04 r .34615 .04808 m .34615 .24038 L .34712 .24038 L .34712 .04808 L F 0 1 .046 r .34712 .04808 m .34712 .24038 L .34808 .24038 L .34808 .04808 L F 0 1 .052 r .34808 .04808 m .34808 .24038 L .34904 .24038 L .34904 .04808 L F 0 1 .058 r .34904 .04808 m .34904 .24038 L .35 .24038 L .35 .04808 L F 0 1 .064 r .35 .04808 m .35 .24038 L .35096 .24038 L .35096 .04808 L F 0 1 .07 r .35096 .04808 m .35096 .24038 L .35192 .24038 L .35192 .04808 L F 0 1 .076 r .35192 .04808 m .35192 .24038 L .35288 .24038 L .35288 .04808 L F 0 1 .082 r .35288 .04808 m .35288 .24038 L .35385 .24038 L .35385 .04808 L F 0 1 .088 r .35385 .04808 m .35385 .24038 L .35481 .24038 L .35481 .04808 L F 0 1 .094 r .35481 .04808 m .35481 .24038 L .35577 .24038 L .35577 .04808 L F 0 1 .1 r .35577 .04808 m .35577 .24038 L .35673 .24038 L .35673 .04808 L F 0 1 .106 r .35673 .04808 m .35673 .24038 L .35769 .24038 L .35769 .04808 L F 0 1 .112 r .35769 .04808 m .35769 .24038 L .35865 .24038 L .35865 .04808 L F 0 1 .118 r .35865 .04808 m .35865 .24038 L .35962 .24038 L .35962 .04808 L F 0 1 .124 r .35962 .04808 m .35962 .24038 L .36058 .24038 L .36058 .04808 L F 0 1 .13 r .36058 .04808 m .36058 .24038 L .36154 .24038 L .36154 .04808 L F 0 1 .136 r .36154 .04808 m .36154 .24038 L .3625 .24038 L .3625 .04808 L F 0 1 .142 r .3625 .04808 m .3625 .24038 L .36346 .24038 L .36346 .04808 L F 0 1 .148 r .36346 .04808 m .36346 .24038 L .36442 .24038 L .36442 .04808 L F 0 1 .154 r .36442 .04808 m .36442 .24038 L .36538 .24038 L .36538 .04808 L F 0 1 .16 r .36538 .04808 m .36538 .24038 L .36635 .24038 L .36635 .04808 L F 0 1 .166 r .36635 .04808 m .36635 .24038 L .36731 .24038 L .36731 .04808 L F 0 1 .172 r .36731 .04808 m .36731 .24038 L .36827 .24038 L .36827 .04808 L F 0 1 .178 r .36827 .04808 m .36827 .24038 L .36923 .24038 L .36923 .04808 L F 0 1 .184 r .36923 .04808 m .36923 .24038 L .37019 .24038 L .37019 .04808 L F 0 1 .19 r .37019 .04808 m .37019 .24038 L .37115 .24038 L .37115 .04808 L F 0 1 .196 r .37115 .04808 m .37115 .24038 L .37212 .24038 L .37212 .04808 L F 0 1 .202 r .37212 .04808 m .37212 .24038 L .37308 .24038 L .37308 .04808 L F 0 1 .208 r .37308 .04808 m .37308 .24038 L .37404 .24038 L .37404 .04808 L F 0 1 .214 r .37404 .04808 m .37404 .24038 L .375 .24038 L .375 .04808 L F 0 1 .22 r .375 .04808 m .375 .24038 L .37596 .24038 L .37596 .04808 L F 0 1 .226 r .37596 .04808 m .37596 .24038 L .37692 .24038 L .37692 .04808 L F 0 1 .232 r .37692 .04808 m .37692 .24038 L .37788 .24038 L .37788 .04808 L F 0 1 .238 r .37788 .04808 m .37788 .24038 L .37885 .24038 L .37885 .04808 L F 0 1 .244 r .37885 .04808 m .37885 .24038 L .37981 .24038 L .37981 .04808 L F 0 1 .25 r .37981 .04808 m .37981 .24038 L .38077 .24038 L .38077 .04808 L F 0 1 .256 r .38077 .04808 m .38077 .24038 L .38173 .24038 L .38173 .04808 L F 0 1 .262 r .38173 .04808 m .38173 .24038 L .38269 .24038 L .38269 .04808 L F 0 1 .268 r .38269 .04808 m .38269 .24038 L .38365 .24038 L .38365 .04808 L F 0 1 .274 r .38365 .04808 m .38365 .24038 L .38462 .24038 L .38462 .04808 L F 0 1 .28 r .38462 .04808 m .38462 .24038 L .38558 .24038 L .38558 .04808 L F 0 1 .286 r .38558 .04808 m .38558 .24038 L .38654 .24038 L .38654 .04808 L F 0 1 .292 r .38654 .04808 m .38654 .24038 L .3875 .24038 L .3875 .04808 L F 0 1 .298 r .3875 .04808 m .3875 .24038 L .38846 .24038 L .38846 .04808 L F 0 1 .304 r .38846 .04808 m .38846 .24038 L .38942 .24038 L .38942 .04808 L F 0 1 .31 r .38942 .04808 m .38942 .24038 L .39038 .24038 L .39038 .04808 L F 0 1 .316 r .39038 .04808 m .39038 .24038 L .39135 .24038 L .39135 .04808 L F 0 1 .322 r .39135 .04808 m .39135 .24038 L .39231 .24038 L .39231 .04808 L F 0 1 .328 r .39231 .04808 m .39231 .24038 L .39327 .24038 L .39327 .04808 L F 0 1 .334 r .39327 .04808 m .39327 .24038 L .39423 .24038 L .39423 .04808 L F 0 1 .34 r .39423 .04808 m .39423 .24038 L .39519 .24038 L .39519 .04808 L F 0 1 .346 r .39519 .04808 m .39519 .24038 L .39615 .24038 L .39615 .04808 L F 0 1 .352 r .39615 .04808 m .39615 .24038 L .39712 .24038 L .39712 .04808 L F 0 1 .358 r .39712 .04808 m .39712 .24038 L .39808 .24038 L .39808 .04808 L F 0 1 .364 r .39808 .04808 m .39808 .24038 L .39904 .24038 L .39904 .04808 L F 0 1 .37 r .39904 .04808 m .39904 .24038 L .4 .24038 L .4 .04808 L F 0 1 .376 r .4 .04808 m .4 .24038 L .40096 .24038 L .40096 .04808 L F 0 1 .382 r .40096 .04808 m .40096 .24038 L .40192 .24038 L .40192 .04808 L F 0 1 .388 r .40192 .04808 m .40192 .24038 L .40288 .24038 L .40288 .04808 L F 0 1 .394 r .40288 .04808 m .40288 .24038 L .40385 .24038 L .40385 .04808 L F 0 1 .4 r .40385 .04808 m .40385 .24038 L .40481 .24038 L .40481 .04808 L F 0 1 .406 r .40481 .04808 m .40481 .24038 L .40577 .24038 L .40577 .04808 L F 0 1 .412 r .40577 .04808 m .40577 .24038 L .40673 .24038 L .40673 .04808 L F 0 1 .418 r .40673 .04808 m .40673 .24038 L .40769 .24038 L .40769 .04808 L F 0 1 .424 r .40769 .04808 m .40769 .24038 L .40865 .24038 L .40865 .04808 L F 0 1 .43 r .40865 .04808 m .40865 .24038 L .40962 .24038 L .40962 .04808 L F 0 1 .436 r .40962 .04808 m .40962 .24038 L .41058 .24038 L .41058 .04808 L F 0 1 .442 r .41058 .04808 m .41058 .24038 L .41154 .24038 L .41154 .04808 L F 0 1 .448 r .41154 .04808 m .41154 .24038 L .4125 .24038 L .4125 .04808 L F 0 1 .454 r .4125 .04808 m .4125 .24038 L .41346 .24038 L .41346 .04808 L F 0 1 .46 r .41346 .04808 m .41346 .24038 L .41442 .24038 L .41442 .04808 L F 0 1 .466 r .41442 .04808 m .41442 .24038 L .41538 .24038 L .41538 .04808 L F 0 1 .472 r .41538 .04808 m .41538 .24038 L .41635 .24038 L .41635 .04808 L F 0 1 .478 r .41635 .04808 m .41635 .24038 L .41731 .24038 L .41731 .04808 L F 0 1 .484 r .41731 .04808 m .41731 .24038 L .41827 .24038 L .41827 .04808 L F 0 1 .49 r .41827 .04808 m .41827 .24038 L .41923 .24038 L .41923 .04808 L F 0 1 .496 r .41923 .04808 m .41923 .24038 L .42019 .24038 L .42019 .04808 L F 0 1 .502 r .42019 .04808 m .42019 .24038 L .42115 .24038 L .42115 .04808 L F 0 1 .508 r .42115 .04808 m .42115 .24038 L .42212 .24038 L .42212 .04808 L F 0 1 .514 r .42212 .04808 m .42212 .24038 L .42308 .24038 L .42308 .04808 L F 0 1 .52 r .42308 .04808 m .42308 .24038 L .42404 .24038 L .42404 .04808 L F 0 1 .526 r .42404 .04808 m .42404 .24038 L .425 .24038 L .425 .04808 L F 0 1 .532 r .425 .04808 m .425 .24038 L .42596 .24038 L .42596 .04808 L F 0 1 .538 r .42596 .04808 m .42596 .24038 L .42692 .24038 L .42692 .04808 L F 0 1 .544 r .42692 .04808 m .42692 .24038 L .42788 .24038 L .42788 .04808 L F 0 1 .55 r .42788 .04808 m .42788 .24038 L .42885 .24038 L .42885 .04808 L F 0 1 .556 r .42885 .04808 m .42885 .24038 L .42981 .24038 L .42981 .04808 L F 0 1 .562 r .42981 .04808 m .42981 .24038 L .43077 .24038 L .43077 .04808 L F 0 1 .568 r .43077 .04808 m .43077 .24038 L .43173 .24038 L .43173 .04808 L F 0 1 .574 r .43173 .04808 m .43173 .24038 L .43269 .24038 L .43269 .04808 L F 0 1 .58 r .43269 .04808 m .43269 .24038 L .43365 .24038 L .43365 .04808 L F 0 1 .586 r .43365 .04808 m .43365 .24038 L .43462 .24038 L .43462 .04808 L F 0 1 .592 r .43462 .04808 m .43462 .24038 L .43558 .24038 L .43558 .04808 L F 0 1 .598 r .43558 .04808 m .43558 .24038 L .43654 .24038 L .43654 .04808 L F 0 1 .604 r .43654 .04808 m .43654 .24038 L .4375 .24038 L .4375 .04808 L F 0 1 .61 r .4375 .04808 m .4375 .24038 L .43846 .24038 L .43846 .04808 L F 0 1 .616 r .43846 .04808 m .43846 .24038 L .43942 .24038 L .43942 .04808 L F 0 1 .622 r .43942 .04808 m .43942 .24038 L .44038 .24038 L .44038 .04808 L F 0 1 .628 r .44038 .04808 m .44038 .24038 L .44135 .24038 L .44135 .04808 L F 0 1 .634 r .44135 .04808 m .44135 .24038 L .44231 .24038 L .44231 .04808 L F 0 1 .64 r .44231 .04808 m .44231 .24038 L .44327 .24038 L .44327 .04808 L F 0 1 .646 r .44327 .04808 m .44327 .24038 L .44423 .24038 L .44423 .04808 L F 0 1 .652 r .44423 .04808 m .44423 .24038 L .44519 .24038 L .44519 .04808 L F 0 1 .658 r .44519 .04808 m .44519 .24038 L .44615 .24038 L .44615 .04808 L F 0 1 .664 r .44615 .04808 m .44615 .24038 L .44712 .24038 L .44712 .04808 L F 0 1 .67 r .44712 .04808 m .44712 .24038 L .44808 .24038 L .44808 .04808 L F 0 1 .676 r .44808 .04808 m .44808 .24038 L .44904 .24038 L .44904 .04808 L F 0 1 .682 r .44904 .04808 m .44904 .24038 L .45 .24038 L .45 .04808 L F 0 1 .688 r .45 .04808 m .45 .24038 L .45096 .24038 L .45096 .04808 L F 0 1 .694 r .45096 .04808 m .45096 .24038 L .45192 .24038 L .45192 .04808 L F 0 1 .7 r .45192 .04808 m .45192 .24038 L .45288 .24038 L .45288 .04808 L F 0 1 .706 r .45288 .04808 m .45288 .24038 L .45385 .24038 L .45385 .04808 L F 0 1 .712 r .45385 .04808 m .45385 .24038 L .45481 .24038 L .45481 .04808 L F 0 1 .718 r .45481 .04808 m .45481 .24038 L .45577 .24038 L .45577 .04808 L F 0 1 .724 r .45577 .04808 m .45577 .24038 L .45673 .24038 L .45673 .04808 L F 0 1 .73 r .45673 .04808 m .45673 .24038 L .45769 .24038 L .45769 .04808 L F 0 1 .736 r .45769 .04808 m .45769 .24038 L .45865 .24038 L .45865 .04808 L F 0 1 .742 r .45865 .04808 m .45865 .24038 L .45962 .24038 L .45962 .04808 L F 0 1 .748 r .45962 .04808 m .45962 .24038 L .46058 .24038 L .46058 .04808 L F 0 1 .754 r .46058 .04808 m .46058 .24038 L .46154 .24038 L .46154 .04808 L F 0 1 .76 r .46154 .04808 m .46154 .24038 L .4625 .24038 L .4625 .04808 L F 0 1 .766 r .4625 .04808 m .4625 .24038 L .46346 .24038 L .46346 .04808 L F 0 1 .772 r .46346 .04808 m .46346 .24038 L .46442 .24038 L .46442 .04808 L F 0 1 .778 r .46442 .04808 m .46442 .24038 L .46538 .24038 L .46538 .04808 L F 0 1 .784 r .46538 .04808 m .46538 .24038 L .46635 .24038 L .46635 .04808 L F 0 1 .79 r .46635 .04808 m .46635 .24038 L .46731 .24038 L .46731 .04808 L F 0 1 .796 r .46731 .04808 m .46731 .24038 L .46827 .24038 L .46827 .04808 L F 0 1 .802 r .46827 .04808 m .46827 .24038 L .46923 .24038 L .46923 .04808 L F 0 1 .808 r .46923 .04808 m .46923 .24038 L .47019 .24038 L .47019 .04808 L F 0 1 .814 r .47019 .04808 m .47019 .24038 L .47115 .24038 L .47115 .04808 L F 0 1 .82 r .47115 .04808 m .47115 .24038 L .47212 .24038 L .47212 .04808 L F 0 1 .826 r .47212 .04808 m .47212 .24038 L .47308 .24038 L .47308 .04808 L F 0 1 .832 r .47308 .04808 m .47308 .24038 L .47404 .24038 L .47404 .04808 L F 0 1 .838 r .47404 .04808 m .47404 .24038 L .475 .24038 L .475 .04808 L F 0 1 .844 r .475 .04808 m .475 .24038 L .47596 .24038 L .47596 .04808 L F 0 1 .85 r .47596 .04808 m .47596 .24038 L .47692 .24038 L .47692 .04808 L F 0 1 .856 r .47692 .04808 m .47692 .24038 L .47788 .24038 L .47788 .04808 L F 0 1 .862 r .47788 .04808 m .47788 .24038 L .47885 .24038 L .47885 .04808 L F 0 1 .868 r .47885 .04808 m .47885 .24038 L .47981 .24038 L .47981 .04808 L F 0 1 .874 r .47981 .04808 m .47981 .24038 L .48077 .24038 L .48077 .04808 L F 0 1 .88 r .48077 .04808 m .48077 .24038 L .48173 .24038 L .48173 .04808 L F 0 1 .886 r .48173 .04808 m .48173 .24038 L .48269 .24038 L .48269 .04808 L F 0 1 .892 r .48269 .04808 m .48269 .24038 L .48365 .24038 L .48365 .04808 L F 0 1 .898 r .48365 .04808 m .48365 .24038 L .48462 .24038 L .48462 .04808 L F 0 1 .904 r .48462 .04808 m .48462 .24038 L .48558 .24038 L .48558 .04808 L F 0 1 .91 r .48558 .04808 m .48558 .24038 L .48654 .24038 L .48654 .04808 L F 0 1 .916 r .48654 .04808 m .48654 .24038 L .4875 .24038 L .4875 .04808 L F 0 1 .922 r .4875 .04808 m .4875 .24038 L .48846 .24038 L .48846 .04808 L F 0 1 .928 r .48846 .04808 m .48846 .24038 L .48942 .24038 L .48942 .04808 L F 0 1 .934 r .48942 .04808 m .48942 .24038 L .49038 .24038 L .49038 .04808 L F 0 1 .94 r .49038 .04808 m .49038 .24038 L .49135 .24038 L .49135 .04808 L F 0 1 .946 r .49135 .04808 m .49135 .24038 L .49231 .24038 L .49231 .04808 L F 0 1 .952 r .49231 .04808 m .49231 .24038 L .49327 .24038 L .49327 .04808 L F 0 1 .958 r .49327 .04808 m .49327 .24038 L .49423 .24038 L .49423 .04808 L F 0 1 .964 r .49423 .04808 m .49423 .24038 L .49519 .24038 L .49519 .04808 L F 0 1 .97 r .49519 .04808 m .49519 .24038 L .49615 .24038 L .49615 .04808 L F 0 1 .976 r .49615 .04808 m .49615 .24038 L .49712 .24038 L .49712 .04808 L F 0 1 .982 r .49712 .04808 m .49712 .24038 L .49808 .24038 L .49808 .04808 L F 0 1 .988 r .49808 .04808 m .49808 .24038 L .49904 .24038 L .49904 .04808 L F 0 1 .994 r .49904 .04808 m .49904 .24038 L .5 .24038 L .5 .04808 L F 0 1 1 r .5 .04808 m .5 .24038 L .50096 .24038 L .50096 .04808 L F 0 .994 1 r .50096 .04808 m .50096 .24038 L .50192 .24038 L .50192 .04808 L F 0 .988 1 r .50192 .04808 m .50192 .24038 L .50288 .24038 L .50288 .04808 L F 0 .982 1 r .50288 .04808 m .50288 .24038 L .50385 .24038 L .50385 .04808 L F 0 .976 1 r .50385 .04808 m .50385 .24038 L .50481 .24038 L .50481 .04808 L F 0 .97 1 r .50481 .04808 m .50481 .24038 L .50577 .24038 L .50577 .04808 L F 0 .964 1 r .50577 .04808 m .50577 .24038 L .50673 .24038 L .50673 .04808 L F 0 .958 1 r .50673 .04808 m .50673 .24038 L .50769 .24038 L .50769 .04808 L F 0 .952 1 r .50769 .04808 m .50769 .24038 L .50865 .24038 L .50865 .04808 L F 0 .946 1 r .50865 .04808 m .50865 .24038 L .50962 .24038 L .50962 .04808 L F 0 .94 1 r .50962 .04808 m .50962 .24038 L .51058 .24038 L .51058 .04808 L F 0 .934 1 r .51058 .04808 m .51058 .24038 L .51154 .24038 L .51154 .04808 L F 0 .928 1 r .51154 .04808 m .51154 .24038 L .5125 .24038 L .5125 .04808 L F 0 .922 1 r .5125 .04808 m .5125 .24038 L .51346 .24038 L .51346 .04808 L F 0 .916 1 r .51346 .04808 m .51346 .24038 L .51442 .24038 L .51442 .04808 L F 0 .91 1 r .51442 .04808 m .51442 .24038 L .51538 .24038 L .51538 .04808 L F 0 .904 1 r .51538 .04808 m .51538 .24038 L .51635 .24038 L .51635 .04808 L F 0 .898 1 r .51635 .04808 m .51635 .24038 L .51731 .24038 L .51731 .04808 L F 0 .892 1 r .51731 .04808 m .51731 .24038 L .51827 .24038 L .51827 .04808 L F 0 .886 1 r .51827 .04808 m .51827 .24038 L .51923 .24038 L .51923 .04808 L F 0 .88 1 r .51923 .04808 m .51923 .24038 L .52019 .24038 L .52019 .04808 L F 0 .874 1 r .52019 .04808 m .52019 .24038 L .52115 .24038 L .52115 .04808 L F 0 .868 1 r .52115 .04808 m .52115 .24038 L .52212 .24038 L .52212 .04808 L F 0 .862 1 r .52212 .04808 m .52212 .24038 L .52308 .24038 L .52308 .04808 L F 0 .856 1 r .52308 .04808 m .52308 .24038 L .52404 .24038 L .52404 .04808 L F 0 .85 1 r .52404 .04808 m .52404 .24038 L .525 .24038 L .525 .04808 L F 0 .844 1 r .525 .04808 m .525 .24038 L .52596 .24038 L .52596 .04808 L F 0 .838 1 r .52596 .04808 m .52596 .24038 L .52692 .24038 L .52692 .04808 L F 0 .832 1 r .52692 .04808 m .52692 .24038 L .52788 .24038 L .52788 .04808 L F 0 .826 1 r .52788 .04808 m .52788 .24038 L .52885 .24038 L .52885 .04808 L F 0 .82 1 r .52885 .04808 m .52885 .24038 L .52981 .24038 L .52981 .04808 L F 0 .814 1 r .52981 .04808 m .52981 .24038 L .53077 .24038 L .53077 .04808 L F 0 .808 1 r .53077 .04808 m .53077 .24038 L .53173 .24038 L .53173 .04808 L F 0 .802 1 r .53173 .04808 m .53173 .24038 L .53269 .24038 L .53269 .04808 L F 0 .796 1 r .53269 .04808 m .53269 .24038 L .53365 .24038 L .53365 .04808 L F 0 .79 1 r .53365 .04808 m .53365 .24038 L .53462 .24038 L .53462 .04808 L F 0 .784 1 r .53462 .04808 m .53462 .24038 L .53558 .24038 L .53558 .04808 L F 0 .778 1 r .53558 .04808 m .53558 .24038 L .53654 .24038 L .53654 .04808 L F 0 .772 1 r .53654 .04808 m .53654 .24038 L .5375 .24038 L .5375 .04808 L F 0 .766 1 r .5375 .04808 m .5375 .24038 L .53846 .24038 L .53846 .04808 L F 0 .76 1 r .53846 .04808 m .53846 .24038 L .53942 .24038 L .53942 .04808 L F 0 .754 1 r .53942 .04808 m .53942 .24038 L .54038 .24038 L .54038 .04808 L F 0 .748 1 r .54038 .04808 m .54038 .24038 L .54135 .24038 L .54135 .04808 L F 0 .742 1 r .54135 .04808 m .54135 .24038 L .54231 .24038 L .54231 .04808 L F 0 .736 1 r .54231 .04808 m .54231 .24038 L .54327 .24038 L .54327 .04808 L F 0 .73 1 r .54327 .04808 m .54327 .24038 L .54423 .24038 L .54423 .04808 L F 0 .724 1 r .54423 .04808 m .54423 .24038 L .54519 .24038 L .54519 .04808 L F 0 .718 1 r .54519 .04808 m .54519 .24038 L .54615 .24038 L .54615 .04808 L F 0 .712 1 r .54615 .04808 m .54615 .24038 L .54712 .24038 L .54712 .04808 L F 0 .706 1 r .54712 .04808 m .54712 .24038 L .54808 .24038 L .54808 .04808 L F 0 .7 1 r .54808 .04808 m .54808 .24038 L .54904 .24038 L .54904 .04808 L F 0 .694 1 r .54904 .04808 m .54904 .24038 L .55 .24038 L .55 .04808 L F 0 .688 1 r .55 .04808 m .55 .24038 L .55096 .24038 L .55096 .04808 L F 0 .682 1 r .55096 .04808 m .55096 .24038 L .55192 .24038 L .55192 .04808 L F 0 .676 1 r .55192 .04808 m .55192 .24038 L .55288 .24038 L .55288 .04808 L F 0 .67 1 r .55288 .04808 m .55288 .24038 L .55385 .24038 L .55385 .04808 L F 0 .664 1 r .55385 .04808 m .55385 .24038 L .55481 .24038 L .55481 .04808 L F 0 .658 1 r .55481 .04808 m .55481 .24038 L .55577 .24038 L .55577 .04808 L F 0 .652 1 r .55577 .04808 m .55577 .24038 L .55673 .24038 L .55673 .04808 L F 0 .646 1 r .55673 .04808 m .55673 .24038 L .55769 .24038 L .55769 .04808 L F 0 .64 1 r .55769 .04808 m .55769 .24038 L .55865 .24038 L .55865 .04808 L F 0 .634 1 r .55865 .04808 m .55865 .24038 L .55962 .24038 L .55962 .04808 L F 0 .628 1 r .55962 .04808 m .55962 .24038 L .56058 .24038 L .56058 .04808 L F 0 .622 1 r .56058 .04808 m .56058 .24038 L .56154 .24038 L .56154 .04808 L F 0 .616 1 r .56154 .04808 m .56154 .24038 L .5625 .24038 L .5625 .04808 L F 0 .61 1 r .5625 .04808 m .5625 .24038 L .56346 .24038 L .56346 .04808 L F 0 .604 1 r .56346 .04808 m .56346 .24038 L .56442 .24038 L .56442 .04808 L F 0 .598 1 r .56442 .04808 m .56442 .24038 L .56538 .24038 L .56538 .04808 L F 0 .592 1 r .56538 .04808 m .56538 .24038 L .56635 .24038 L .56635 .04808 L F 0 .586 1 r .56635 .04808 m .56635 .24038 L .56731 .24038 L .56731 .04808 L F 0 .58 1 r .56731 .04808 m .56731 .24038 L .56827 .24038 L .56827 .04808 L F 0 .574 1 r .56827 .04808 m .56827 .24038 L .56923 .24038 L .56923 .04808 L F 0 .568 1 r .56923 .04808 m .56923 .24038 L .57019 .24038 L .57019 .04808 L F 0 .562 1 r .57019 .04808 m .57019 .24038 L .57115 .24038 L .57115 .04808 L F 0 .556 1 r .57115 .04808 m .57115 .24038 L .57212 .24038 L .57212 .04808 L F 0 .55 1 r .57212 .04808 m .57212 .24038 L .57308 .24038 L .57308 .04808 L F 0 .544 1 r .57308 .04808 m .57308 .24038 L .57404 .24038 L .57404 .04808 L F 0 .538 1 r .57404 .04808 m .57404 .24038 L .575 .24038 L .575 .04808 L F 0 .532 1 r .575 .04808 m .575 .24038 L .57596 .24038 L .57596 .04808 L F 0 .526 1 r .57596 .04808 m .57596 .24038 L .57692 .24038 L .57692 .04808 L F 0 .52 1 r .57692 .04808 m .57692 .24038 L .57788 .24038 L .57788 .04808 L F 0 .514 1 r .57788 .04808 m .57788 .24038 L .57885 .24038 L .57885 .04808 L F 0 .508 1 r .57885 .04808 m .57885 .24038 L .57981 .24038 L .57981 .04808 L F 0 .502 1 r .57981 .04808 m .57981 .24038 L .58077 .24038 L .58077 .04808 L F 0 .496 1 r .58077 .04808 m .58077 .24038 L .58173 .24038 L .58173 .04808 L F 0 .49 1 r .58173 .04808 m .58173 .24038 L .58269 .24038 L .58269 .04808 L F 0 .484 1 r .58269 .04808 m .58269 .24038 L .58365 .24038 L .58365 .04808 L F 0 .478 1 r .58365 .04808 m .58365 .24038 L .58462 .24038 L .58462 .04808 L F 0 .472 1 r .58462 .04808 m .58462 .24038 L .58558 .24038 L .58558 .04808 L F 0 .466 1 r .58558 .04808 m .58558 .24038 L .58654 .24038 L .58654 .04808 L F 0 .46 1 r .58654 .04808 m .58654 .24038 L .5875 .24038 L .5875 .04808 L F 0 .454 1 r .5875 .04808 m .5875 .24038 L .58846 .24038 L .58846 .04808 L F 0 .448 1 r .58846 .04808 m .58846 .24038 L .58942 .24038 L .58942 .04808 L F 0 .442 1 r .58942 .04808 m .58942 .24038 L .59038 .24038 L .59038 .04808 L F 0 .436 1 r .59038 .04808 m .59038 .24038 L .59135 .24038 L .59135 .04808 L F 0 .43 1 r .59135 .04808 m .59135 .24038 L .59231 .24038 L .59231 .04808 L F 0 .424 1 r .59231 .04808 m .59231 .24038 L .59327 .24038 L .59327 .04808 L F 0 .418 1 r .59327 .04808 m .59327 .24038 L .59423 .24038 L .59423 .04808 L F 0 .412 1 r .59423 .04808 m .59423 .24038 L .59519 .24038 L .59519 .04808 L F 0 .406 1 r .59519 .04808 m .59519 .24038 L .59615 .24038 L .59615 .04808 L F 0 .4 1 r .59615 .04808 m .59615 .24038 L .59712 .24038 L .59712 .04808 L F 0 .394 1 r .59712 .04808 m .59712 .24038 L .59808 .24038 L .59808 .04808 L F 0 .388 1 r .59808 .04808 m .59808 .24038 L .59904 .24038 L .59904 .04808 L F 0 .382 1 r .59904 .04808 m .59904 .24038 L .6 .24038 L .6 .04808 L F 0 .376 1 r .6 .04808 m .6 .24038 L .60096 .24038 L .60096 .04808 L F 0 .37 1 r .60096 .04808 m .60096 .24038 L .60192 .24038 L .60192 .04808 L F 0 .364 1 r .60192 .04808 m .60192 .24038 L .60288 .24038 L .60288 .04808 L F 0 .358 1 r .60288 .04808 m .60288 .24038 L .60385 .24038 L .60385 .04808 L F 0 .352 1 r .60385 .04808 m .60385 .24038 L .60481 .24038 L .60481 .04808 L F 0 .346 1 r .60481 .04808 m .60481 .24038 L .60577 .24038 L .60577 .04808 L F 0 .34 1 r .60577 .04808 m .60577 .24038 L .60673 .24038 L .60673 .04808 L F 0 .334 1 r .60673 .04808 m .60673 .24038 L .60769 .24038 L .60769 .04808 L F 0 .328 1 r .60769 .04808 m .60769 .24038 L .60865 .24038 L .60865 .04808 L F 0 .322 1 r .60865 .04808 m .60865 .24038 L .60962 .24038 L .60962 .04808 L F 0 .316 1 r .60962 .04808 m .60962 .24038 L .61058 .24038 L .61058 .04808 L F 0 .31 1 r .61058 .04808 m .61058 .24038 L .61154 .24038 L .61154 .04808 L F 0 .304 1 r .61154 .04808 m .61154 .24038 L .6125 .24038 L .6125 .04808 L F 0 .298 1 r .6125 .04808 m .6125 .24038 L .61346 .24038 L .61346 .04808 L F 0 .292 1 r .61346 .04808 m .61346 .24038 L .61442 .24038 L .61442 .04808 L F 0 .286 1 r .61442 .04808 m .61442 .24038 L .61538 .24038 L .61538 .04808 L F 0 .28 1 r .61538 .04808 m .61538 .24038 L .61635 .24038 L .61635 .04808 L F 0 .274 1 r .61635 .04808 m .61635 .24038 L .61731 .24038 L .61731 .04808 L F 0 .268 1 r .61731 .04808 m .61731 .24038 L .61827 .24038 L .61827 .04808 L F 0 .262 1 r .61827 .04808 m .61827 .24038 L .61923 .24038 L .61923 .04808 L F 0 .256 1 r .61923 .04808 m .61923 .24038 L .62019 .24038 L .62019 .04808 L F 0 .25 1 r .62019 .04808 m .62019 .24038 L .62115 .24038 L .62115 .04808 L F 0 .244 1 r .62115 .04808 m .62115 .24038 L .62212 .24038 L .62212 .04808 L F 0 .238 1 r .62212 .04808 m .62212 .24038 L .62308 .24038 L .62308 .04808 L F 0 .232 1 r .62308 .04808 m .62308 .24038 L .62404 .24038 L .62404 .04808 L F 0 .226 1 r .62404 .04808 m .62404 .24038 L .625 .24038 L .625 .04808 L F 0 .22 1 r .625 .04808 m .625 .24038 L .62596 .24038 L .62596 .04808 L F 0 .214 1 r .62596 .04808 m .62596 .24038 L .62692 .24038 L .62692 .04808 L F 0 .208 1 r .62692 .04808 m .62692 .24038 L .62788 .24038 L .62788 .04808 L F 0 .202 1 r .62788 .04808 m .62788 .24038 L .62885 .24038 L .62885 .04808 L F 0 .196 1 r .62885 .04808 m .62885 .24038 L .62981 .24038 L .62981 .04808 L F 0 .19 1 r .62981 .04808 m .62981 .24038 L .63077 .24038 L .63077 .04808 L F 0 .184 1 r .63077 .04808 m .63077 .24038 L .63173 .24038 L .63173 .04808 L F 0 .178 1 r .63173 .04808 m .63173 .24038 L .63269 .24038 L .63269 .04808 L F 0 .172 1 r .63269 .04808 m .63269 .24038 L .63365 .24038 L .63365 .04808 L F 0 .166 1 r .63365 .04808 m .63365 .24038 L .63462 .24038 L .63462 .04808 L F 0 .16 1 r .63462 .04808 m .63462 .24038 L .63558 .24038 L .63558 .04808 L F 0 .154 1 r .63558 .04808 m .63558 .24038 L .63654 .24038 L .63654 .04808 L F 0 .148 1 r .63654 .04808 m .63654 .24038 L .6375 .24038 L .6375 .04808 L F 0 .142 1 r .6375 .04808 m .6375 .24038 L .63846 .24038 L .63846 .04808 L F 0 .136 1 r .63846 .04808 m .63846 .24038 L .63942 .24038 L .63942 .04808 L F 0 .13 1 r .63942 .04808 m .63942 .24038 L .64038 .24038 L .64038 .04808 L F 0 .124 1 r .64038 .04808 m .64038 .24038 L .64135 .24038 L .64135 .04808 L F 0 .118 1 r .64135 .04808 m .64135 .24038 L .64231 .24038 L .64231 .04808 L F 0 .112 1 r .64231 .04808 m .64231 .24038 L .64327 .24038 L .64327 .04808 L F 0 .106 1 r .64327 .04808 m .64327 .24038 L .64423 .24038 L .64423 .04808 L F 0 .1 1 r .64423 .04808 m .64423 .24038 L .64519 .24038 L .64519 .04808 L F 0 .094 1 r .64519 .04808 m .64519 .24038 L .64615 .24038 L .64615 .04808 L F 0 .088 1 r .64615 .04808 m .64615 .24038 L .64712 .24038 L .64712 .04808 L F 0 .082 1 r .64712 .04808 m .64712 .24038 L .64808 .24038 L .64808 .04808 L F 0 .076 1 r .64808 .04808 m .64808 .24038 L .64904 .24038 L .64904 .04808 L F 0 .07 1 r .64904 .04808 m .64904 .24038 L .65 .24038 L .65 .04808 L F 0 .064 1 r .65 .04808 m .65 .24038 L .65096 .24038 L .65096 .04808 L F 0 .058 1 r .65096 .04808 m .65096 .24038 L .65192 .24038 L .65192 .04808 L F 0 .052 1 r .65192 .04808 m .65192 .24038 L .65288 .24038 L .65288 .04808 L F 0 .046 1 r .65288 .04808 m .65288 .24038 L .65385 .24038 L .65385 .04808 L F 0 .04 1 r .65385 .04808 m .65385 .24038 L .65481 .24038 L .65481 .04808 L F 0 .034 1 r .65481 .04808 m .65481 .24038 L .65577 .24038 L .65577 .04808 L F 0 .028 1 r .65577 .04808 m .65577 .24038 L .65673 .24038 L .65673 .04808 L F 0 .022 1 r .65673 .04808 m .65673 .24038 L .65769 .24038 L .65769 .04808 L F 0 .016 1 r .65769 .04808 m .65769 .24038 L .65865 .24038 L .65865 .04808 L F 0 .01 1 r .65865 .04808 m .65865 .24038 L .65962 .24038 L .65962 .04808 L F 0 .004 1 r .65962 .04808 m .65962 .24038 L .66058 .24038 L .66058 .04808 L F .002 0 1 r .66058 .04808 m .66058 .24038 L .66154 .24038 L .66154 .04808 L F .008 0 1 r .66154 .04808 m .66154 .24038 L .6625 .24038 L .6625 .04808 L F .014 0 1 r .6625 .04808 m .6625 .24038 L .66346 .24038 L .66346 .04808 L F .02 0 1 r .66346 .04808 m .66346 .24038 L .66442 .24038 L .66442 .04808 L F .026 0 1 r .66442 .04808 m .66442 .24038 L .66538 .24038 L .66538 .04808 L F .032 0 1 r .66538 .04808 m .66538 .24038 L .66635 .24038 L .66635 .04808 L F .038 0 1 r .66635 .04808 m .66635 .24038 L .66731 .24038 L .66731 .04808 L F .044 0 1 r .66731 .04808 m .66731 .24038 L .66827 .24038 L .66827 .04808 L F .05 0 1 r .66827 .04808 m .66827 .24038 L .66923 .24038 L .66923 .04808 L F .056 0 1 r .66923 .04808 m .66923 .24038 L .67019 .24038 L .67019 .04808 L F .062 0 1 r .67019 .04808 m .67019 .24038 L .67115 .24038 L .67115 .04808 L F .068 0 1 r .67115 .04808 m .67115 .24038 L .67212 .24038 L .67212 .04808 L F .074 0 1 r .67212 .04808 m .67212 .24038 L .67308 .24038 L .67308 .04808 L F .08 0 1 r .67308 .04808 m .67308 .24038 L .67404 .24038 L .67404 .04808 L F .086 0 1 r .67404 .04808 m .67404 .24038 L .675 .24038 L .675 .04808 L F .092 0 1 r .675 .04808 m .675 .24038 L .67596 .24038 L .67596 .04808 L F .098 0 1 r .67596 .04808 m .67596 .24038 L .67692 .24038 L .67692 .04808 L F .104 0 1 r .67692 .04808 m .67692 .24038 L .67788 .24038 L .67788 .04808 L F .11 0 1 r .67788 .04808 m .67788 .24038 L .67885 .24038 L .67885 .04808 L F .116 0 1 r .67885 .04808 m .67885 .24038 L .67981 .24038 L .67981 .04808 L F .122 0 1 r .67981 .04808 m .67981 .24038 L .68077 .24038 L .68077 .04808 L F .128 0 1 r .68077 .04808 m .68077 .24038 L .68173 .24038 L .68173 .04808 L F .134 0 1 r .68173 .04808 m .68173 .24038 L .68269 .24038 L .68269 .04808 L F .14 0 1 r .68269 .04808 m .68269 .24038 L .68365 .24038 L .68365 .04808 L F .146 0 1 r .68365 .04808 m .68365 .24038 L .68462 .24038 L .68462 .04808 L F .152 0 1 r .68462 .04808 m .68462 .24038 L .68558 .24038 L .68558 .04808 L F .158 0 1 r .68558 .04808 m .68558 .24038 L .68654 .24038 L .68654 .04808 L F .164 0 1 r .68654 .04808 m .68654 .24038 L .6875 .24038 L .6875 .04808 L F .17 0 1 r .6875 .04808 m .6875 .24038 L .68846 .24038 L .68846 .04808 L F .176 0 1 r .68846 .04808 m .68846 .24038 L .68942 .24038 L .68942 .04808 L F .182 0 1 r .68942 .04808 m .68942 .24038 L .69038 .24038 L .69038 .04808 L F .188 0 1 r .69038 .04808 m .69038 .24038 L .69135 .24038 L .69135 .04808 L F .194 0 1 r .69135 .04808 m .69135 .24038 L .69231 .24038 L .69231 .04808 L F .2 0 1 r .69231 .04808 m .69231 .24038 L .69327 .24038 L .69327 .04808 L F .206 0 1 r .69327 .04808 m .69327 .24038 L .69423 .24038 L .69423 .04808 L F .212 0 1 r .69423 .04808 m .69423 .24038 L .69519 .24038 L .69519 .04808 L F .218 0 1 r .69519 .04808 m .69519 .24038 L .69615 .24038 L .69615 .04808 L F .224 0 1 r .69615 .04808 m .69615 .24038 L .69712 .24038 L .69712 .04808 L F .23 0 1 r .69712 .04808 m .69712 .24038 L .69808 .24038 L .69808 .04808 L F .236 0 1 r .69808 .04808 m .69808 .24038 L .69904 .24038 L .69904 .04808 L F .242 0 1 r .69904 .04808 m .69904 .24038 L .7 .24038 L .7 .04808 L F .248 0 1 r .7 .04808 m .7 .24038 L .70096 .24038 L .70096 .04808 L F .254 0 1 r .70096 .04808 m .70096 .24038 L .70192 .24038 L .70192 .04808 L F .26 0 1 r .70192 .04808 m .70192 .24038 L .70288 .24038 L .70288 .04808 L F .266 0 1 r .70288 .04808 m .70288 .24038 L .70385 .24038 L .70385 .04808 L F .272 0 1 r .70385 .04808 m .70385 .24038 L .70481 .24038 L .70481 .04808 L F .278 0 1 r .70481 .04808 m .70481 .24038 L .70577 .24038 L .70577 .04808 L F .284 0 1 r .70577 .04808 m .70577 .24038 L .70673 .24038 L .70673 .04808 L F .29 0 1 r .70673 .04808 m .70673 .24038 L .70769 .24038 L .70769 .04808 L F .296 0 1 r .70769 .04808 m .70769 .24038 L .70865 .24038 L .70865 .04808 L F .302 0 1 r .70865 .04808 m .70865 .24038 L .70962 .24038 L .70962 .04808 L F .308 0 1 r .70962 .04808 m .70962 .24038 L .71058 .24038 L .71058 .04808 L F .314 0 1 r .71058 .04808 m .71058 .24038 L .71154 .24038 L .71154 .04808 L F .32 0 1 r .71154 .04808 m .71154 .24038 L .7125 .24038 L .7125 .04808 L F .326 0 1 r .7125 .04808 m .7125 .24038 L .71346 .24038 L .71346 .04808 L F .332 0 1 r .71346 .04808 m .71346 .24038 L .71442 .24038 L .71442 .04808 L F .338 0 1 r .71442 .04808 m .71442 .24038 L .71538 .24038 L .71538 .04808 L F .344 0 1 r .71538 .04808 m .71538 .24038 L .71635 .24038 L .71635 .04808 L F .35 0 1 r .71635 .04808 m .71635 .24038 L .71731 .24038 L .71731 .04808 L F .356 0 1 r .71731 .04808 m .71731 .24038 L .71827 .24038 L .71827 .04808 L F .362 0 1 r .71827 .04808 m .71827 .24038 L .71923 .24038 L .71923 .04808 L F .368 0 1 r .71923 .04808 m .71923 .24038 L .72019 .24038 L .72019 .04808 L F .374 0 1 r .72019 .04808 m .72019 .24038 L .72115 .24038 L .72115 .04808 L F .38 0 1 r .72115 .04808 m .72115 .24038 L .72212 .24038 L .72212 .04808 L F .386 0 1 r .72212 .04808 m .72212 .24038 L .72308 .24038 L .72308 .04808 L F .392 0 1 r .72308 .04808 m .72308 .24038 L .72404 .24038 L .72404 .04808 L F .398 0 1 r .72404 .04808 m .72404 .24038 L .725 .24038 L .725 .04808 L F .404 0 1 r .725 .04808 m .725 .24038 L .72596 .24038 L .72596 .04808 L F .41 0 1 r .72596 .04808 m .72596 .24038 L .72692 .24038 L .72692 .04808 L F .416 0 1 r .72692 .04808 m .72692 .24038 L .72788 .24038 L .72788 .04808 L F .422 0 1 r .72788 .04808 m .72788 .24038 L .72885 .24038 L .72885 .04808 L F .428 0 1 r .72885 .04808 m .72885 .24038 L .72981 .24038 L .72981 .04808 L F .434 0 1 r .72981 .04808 m .72981 .24038 L .73077 .24038 L .73077 .04808 L F .44 0 1 r .73077 .04808 m .73077 .24038 L .73173 .24038 L .73173 .04808 L F .446 0 1 r .73173 .04808 m .73173 .24038 L .73269 .24038 L .73269 .04808 L F .452 0 1 r .73269 .04808 m .73269 .24038 L .73365 .24038 L .73365 .04808 L F .458 0 1 r .73365 .04808 m .73365 .24038 L .73462 .24038 L .73462 .04808 L F .464 0 1 r .73462 .04808 m .73462 .24038 L .73558 .24038 L .73558 .04808 L F .47 0 1 r .73558 .04808 m .73558 .24038 L .73654 .24038 L .73654 .04808 L F .476 0 1 r .73654 .04808 m .73654 .24038 L .7375 .24038 L .7375 .04808 L F .482 0 1 r .7375 .04808 m .7375 .24038 L .73846 .24038 L .73846 .04808 L F .488 0 1 r .73846 .04808 m .73846 .24038 L .73942 .24038 L .73942 .04808 L F .494 0 1 r .73942 .04808 m .73942 .24038 L .74038 .24038 L .74038 .04808 L F .5 0 1 r .74038 .04808 m .74038 .24038 L .74135 .24038 L .74135 .04808 L F .506 0 1 r .74135 .04808 m .74135 .24038 L .74231 .24038 L .74231 .04808 L F .512 0 1 r .74231 .04808 m .74231 .24038 L .74327 .24038 L .74327 .04808 L F .518 0 1 r .74327 .04808 m .74327 .24038 L .74423 .24038 L .74423 .04808 L F .524 0 1 r .74423 .04808 m .74423 .24038 L .74519 .24038 L .74519 .04808 L F .53 0 1 r .74519 .04808 m .74519 .24038 L .74615 .24038 L .74615 .04808 L F .536 0 1 r .74615 .04808 m .74615 .24038 L .74712 .24038 L .74712 .04808 L F .542 0 1 r .74712 .04808 m .74712 .24038 L .74808 .24038 L .74808 .04808 L F .548 0 1 r .74808 .04808 m .74808 .24038 L .74904 .24038 L .74904 .04808 L F .554 0 1 r .74904 .04808 m .74904 .24038 L .75 .24038 L .75 .04808 L F .56 0 1 r .75 .04808 m .75 .24038 L .75096 .24038 L .75096 .04808 L F .566 0 1 r .75096 .04808 m .75096 .24038 L .75192 .24038 L .75192 .04808 L F .572 0 1 r .75192 .04808 m .75192 .24038 L .75288 .24038 L .75288 .04808 L F .578 0 1 r .75288 .04808 m .75288 .24038 L .75385 .24038 L .75385 .04808 L F .584 0 1 r .75385 .04808 m .75385 .24038 L .75481 .24038 L .75481 .04808 L F .59 0 1 r .75481 .04808 m .75481 .24038 L .75577 .24038 L .75577 .04808 L F .596 0 1 r .75577 .04808 m .75577 .24038 L .75673 .24038 L .75673 .04808 L F .602 0 1 r .75673 .04808 m .75673 .24038 L .75769 .24038 L .75769 .04808 L F .608 0 1 r .75769 .04808 m .75769 .24038 L .75865 .24038 L .75865 .04808 L F .614 0 1 r .75865 .04808 m .75865 .24038 L .75962 .24038 L .75962 .04808 L F .62 0 1 r .75962 .04808 m .75962 .24038 L .76058 .24038 L .76058 .04808 L F .626 0 1 r .76058 .04808 m .76058 .24038 L .76154 .24038 L .76154 .04808 L F .632 0 1 r .76154 .04808 m .76154 .24038 L .7625 .24038 L .7625 .04808 L F .638 0 1 r .7625 .04808 m .7625 .24038 L .76346 .24038 L .76346 .04808 L F .644 0 1 r .76346 .04808 m .76346 .24038 L .76442 .24038 L .76442 .04808 L F .65 0 1 r .76442 .04808 m .76442 .24038 L .76538 .24038 L .76538 .04808 L F .656 0 1 r .76538 .04808 m .76538 .24038 L .76635 .24038 L .76635 .04808 L F .662 0 1 r .76635 .04808 m .76635 .24038 L .76731 .24038 L .76731 .04808 L F .668 0 1 r .76731 .04808 m .76731 .24038 L .76827 .24038 L .76827 .04808 L F .674 0 1 r .76827 .04808 m .76827 .24038 L .76923 .24038 L .76923 .04808 L F .68 0 1 r .76923 .04808 m .76923 .24038 L .77019 .24038 L .77019 .04808 L F .686 0 1 r .77019 .04808 m .77019 .24038 L .77115 .24038 L .77115 .04808 L F .692 0 1 r .77115 .04808 m .77115 .24038 L .77212 .24038 L .77212 .04808 L F .698 0 1 r .77212 .04808 m .77212 .24038 L .77308 .24038 L .77308 .04808 L F .704 0 1 r .77308 .04808 m .77308 .24038 L .77404 .24038 L .77404 .04808 L F .71 0 1 r .77404 .04808 m .77404 .24038 L .775 .24038 L .775 .04808 L F .716 0 1 r .775 .04808 m .775 .24038 L .77596 .24038 L .77596 .04808 L F .722 0 1 r .77596 .04808 m .77596 .24038 L .77692 .24038 L .77692 .04808 L F .728 0 1 r .77692 .04808 m .77692 .24038 L .77788 .24038 L .77788 .04808 L F .734 0 1 r .77788 .04808 m .77788 .24038 L .77885 .24038 L .77885 .04808 L F .74 0 1 r .77885 .04808 m .77885 .24038 L .77981 .24038 L .77981 .04808 L F .746 0 1 r .77981 .04808 m .77981 .24038 L .78077 .24038 L .78077 .04808 L F .752 0 1 r .78077 .04808 m .78077 .24038 L .78173 .24038 L .78173 .04808 L F .758 0 1 r .78173 .04808 m .78173 .24038 L .78269 .24038 L .78269 .04808 L F .764 0 1 r .78269 .04808 m .78269 .24038 L .78365 .24038 L .78365 .04808 L F .77 0 1 r .78365 .04808 m .78365 .24038 L .78462 .24038 L .78462 .04808 L F .776 0 1 r .78462 .04808 m .78462 .24038 L .78558 .24038 L .78558 .04808 L F .782 0 1 r .78558 .04808 m .78558 .24038 L .78654 .24038 L .78654 .04808 L F .788 0 1 r .78654 .04808 m .78654 .24038 L .7875 .24038 L .7875 .04808 L F .794 0 1 r .7875 .04808 m .7875 .24038 L .78846 .24038 L .78846 .04808 L F .8 0 1 r .78846 .04808 m .78846 .24038 L .78942 .24038 L .78942 .04808 L F .806 0 1 r .78942 .04808 m .78942 .24038 L .79038 .24038 L .79038 .04808 L F .812 0 1 r .79038 .04808 m .79038 .24038 L .79135 .24038 L .79135 .04808 L F .818 0 1 r .79135 .04808 m .79135 .24038 L .79231 .24038 L .79231 .04808 L F .824 0 1 r .79231 .04808 m .79231 .24038 L .79327 .24038 L .79327 .04808 L F .83 0 1 r .79327 .04808 m .79327 .24038 L .79423 .24038 L .79423 .04808 L F .836 0 1 r .79423 .04808 m .79423 .24038 L .79519 .24038 L .79519 .04808 L F .842 0 1 r .79519 .04808 m .79519 .24038 L .79615 .24038 L .79615 .04808 L F .848 0 1 r .79615 .04808 m .79615 .24038 L .79712 .24038 L .79712 .04808 L F .854 0 1 r .79712 .04808 m .79712 .24038 L .79808 .24038 L .79808 .04808 L F .86 0 1 r .79808 .04808 m .79808 .24038 L .79904 .24038 L .79904 .04808 L F .866 0 1 r .79904 .04808 m .79904 .24038 L .8 .24038 L .8 .04808 L F .872 0 1 r .8 .04808 m .8 .24038 L .80096 .24038 L .80096 .04808 L F .878 0 1 r .80096 .04808 m .80096 .24038 L .80192 .24038 L .80192 .04808 L F .884 0 1 r .80192 .04808 m .80192 .24038 L .80288 .24038 L .80288 .04808 L F .89 0 1 r .80288 .04808 m .80288 .24038 L .80385 .24038 L .80385 .04808 L F .896 0 1 r .80385 .04808 m .80385 .24038 L .80481 .24038 L .80481 .04808 L F .902 0 1 r .80481 .04808 m .80481 .24038 L .80577 .24038 L .80577 .04808 L F .908 0 1 r .80577 .04808 m .80577 .24038 L .80673 .24038 L .80673 .04808 L F .914 0 1 r .80673 .04808 m .80673 .24038 L .80769 .24038 L .80769 .04808 L F .92 0 1 r .80769 .04808 m .80769 .24038 L .80865 .24038 L .80865 .04808 L F .926 0 1 r .80865 .04808 m .80865 .24038 L .80962 .24038 L .80962 .04808 L F .932 0 1 r .80962 .04808 m .80962 .24038 L .81058 .24038 L .81058 .04808 L F .938 0 1 r .81058 .04808 m .81058 .24038 L .81154 .24038 L .81154 .04808 L F .944 0 1 r .81154 .04808 m .81154 .24038 L .8125 .24038 L .8125 .04808 L F .95 0 1 r .8125 .04808 m .8125 .24038 L .81346 .24038 L .81346 .04808 L F .956 0 1 r .81346 .04808 m .81346 .24038 L .81442 .24038 L .81442 .04808 L F .962 0 1 r .81442 .04808 m .81442 .24038 L .81538 .24038 L .81538 .04808 L F .968 0 1 r .81538 .04808 m .81538 .24038 L .81635 .24038 L .81635 .04808 L F .974 0 1 r .81635 .04808 m .81635 .24038 L .81731 .24038 L .81731 .04808 L F .98 0 1 r .81731 .04808 m .81731 .24038 L .81827 .24038 L .81827 .04808 L F .986 0 1 r .81827 .04808 m .81827 .24038 L .81923 .24038 L .81923 .04808 L F .992 0 1 r .81923 .04808 m .81923 .24038 L .82019 .24038 L .82019 .04808 L F .998 0 1 r .82019 .04808 m .82019 .24038 L .82115 .24038 L .82115 .04808 L F 1 0 .996 r .82115 .04808 m .82115 .24038 L .82212 .24038 L .82212 .04808 L F 1 0 .99 r .82212 .04808 m .82212 .24038 L .82308 .24038 L .82308 .04808 L F 1 0 .984 r .82308 .04808 m .82308 .24038 L .82404 .24038 L .82404 .04808 L F 1 0 .978 r .82404 .04808 m .82404 .24038 L .825 .24038 L .825 .04808 L F 1 0 .972 r .825 .04808 m .825 .24038 L .82596 .24038 L .82596 .04808 L F 1 0 .966 r .82596 .04808 m .82596 .24038 L .82692 .24038 L .82692 .04808 L F 1 0 .96 r .82692 .04808 m .82692 .24038 L .82788 .24038 L .82788 .04808 L F 1 0 .954 r .82788 .04808 m .82788 .24038 L .82885 .24038 L .82885 .04808 L F 1 0 .948 r .82885 .04808 m .82885 .24038 L .82981 .24038 L .82981 .04808 L F 1 0 .942 r .82981 .04808 m .82981 .24038 L .83077 .24038 L .83077 .04808 L F 1 0 .936 r .83077 .04808 m .83077 .24038 L .83173 .24038 L .83173 .04808 L F 1 0 .93 r .83173 .04808 m .83173 .24038 L .83269 .24038 L .83269 .04808 L F 1 0 .924 r .83269 .04808 m .83269 .24038 L .83365 .24038 L .83365 .04808 L F 1 0 .918 r .83365 .04808 m .83365 .24038 L .83462 .24038 L .83462 .04808 L F 1 0 .912 r .83462 .04808 m .83462 .24038 L .83558 .24038 L .83558 .04808 L F 1 0 .906 r .83558 .04808 m .83558 .24038 L .83654 .24038 L .83654 .04808 L F 1 0 .9 r .83654 .04808 m .83654 .24038 L .8375 .24038 L .8375 .04808 L F 1 0 .894 r .8375 .04808 m .8375 .24038 L .83846 .24038 L .83846 .04808 L F 1 0 .888 r .83846 .04808 m .83846 .24038 L .83942 .24038 L .83942 .04808 L F 1 0 .882 r .83942 .04808 m .83942 .24038 L .84038 .24038 L .84038 .04808 L F 1 0 .876 r .84038 .04808 m .84038 .24038 L .84135 .24038 L .84135 .04808 L F 1 0 .87 r .84135 .04808 m .84135 .24038 L .84231 .24038 L .84231 .04808 L F 1 0 .864 r .84231 .04808 m .84231 .24038 L .84327 .24038 L .84327 .04808 L F 1 0 .858 r .84327 .04808 m .84327 .24038 L .84423 .24038 L .84423 .04808 L F 1 0 .852 r .84423 .04808 m .84423 .24038 L .84519 .24038 L .84519 .04808 L F 1 0 .846 r .84519 .04808 m .84519 .24038 L .84615 .24038 L .84615 .04808 L F 1 0 .84 r .84615 .04808 m .84615 .24038 L .84712 .24038 L .84712 .04808 L F 1 0 .834 r .84712 .04808 m .84712 .24038 L .84808 .24038 L .84808 .04808 L F 1 0 .828 r .84808 .04808 m .84808 .24038 L .84904 .24038 L .84904 .04808 L F 1 0 .822 r .84904 .04808 m .84904 .24038 L .85 .24038 L .85 .04808 L F 1 0 .816 r .85 .04808 m .85 .24038 L .85096 .24038 L .85096 .04808 L F 1 0 .81 r .85096 .04808 m .85096 .24038 L .85192 .24038 L .85192 .04808 L F 1 0 .804 r .85192 .04808 m .85192 .24038 L .85288 .24038 L .85288 .04808 L F 1 0 .798 r .85288 .04808 m .85288 .24038 L .85385 .24038 L .85385 .04808 L F 1 0 .792 r .85385 .04808 m .85385 .24038 L .85481 .24038 L .85481 .04808 L F 1 0 .786 r .85481 .04808 m .85481 .24038 L .85577 .24038 L .85577 .04808 L F 1 0 .78 r .85577 .04808 m .85577 .24038 L .85673 .24038 L .85673 .04808 L F 1 0 .774 r .85673 .04808 m .85673 .24038 L .85769 .24038 L .85769 .04808 L F 1 0 .768 r .85769 .04808 m .85769 .24038 L .85865 .24038 L .85865 .04808 L F 1 0 .762 r .85865 .04808 m .85865 .24038 L .85962 .24038 L .85962 .04808 L F 1 0 .756 r .85962 .04808 m .85962 .24038 L .86058 .24038 L .86058 .04808 L F 1 0 .75 r .86058 .04808 m .86058 .24038 L .86154 .24038 L .86154 .04808 L F 1 0 .744 r .86154 .04808 m .86154 .24038 L .8625 .24038 L .8625 .04808 L F 1 0 .738 r .8625 .04808 m .8625 .24038 L .86346 .24038 L .86346 .04808 L F 1 0 .732 r .86346 .04808 m .86346 .24038 L .86442 .24038 L .86442 .04808 L F 1 0 .726 r .86442 .04808 m .86442 .24038 L .86538 .24038 L .86538 .04808 L F 1 0 .72 r .86538 .04808 m .86538 .24038 L .86635 .24038 L .86635 .04808 L F 1 0 .714 r .86635 .04808 m .86635 .24038 L .86731 .24038 L .86731 .04808 L F 1 0 .708 r .86731 .04808 m .86731 .24038 L .86827 .24038 L .86827 .04808 L F 1 0 .702 r .86827 .04808 m .86827 .24038 L .86923 .24038 L .86923 .04808 L F 1 0 .696 r .86923 .04808 m .86923 .24038 L .87019 .24038 L .87019 .04808 L F 1 0 .69 r .87019 .04808 m .87019 .24038 L .87115 .24038 L .87115 .04808 L F 1 0 .684 r .87115 .04808 m .87115 .24038 L .87212 .24038 L .87212 .04808 L F 1 0 .678 r .87212 .04808 m .87212 .24038 L .87308 .24038 L .87308 .04808 L F 1 0 .672 r .87308 .04808 m .87308 .24038 L .87404 .24038 L .87404 .04808 L F 1 0 .666 r .87404 .04808 m .87404 .24038 L .875 .24038 L .875 .04808 L F 1 0 .66 r .875 .04808 m .875 .24038 L .87596 .24038 L .87596 .04808 L F 1 0 .654 r .87596 .04808 m .87596 .24038 L .87692 .24038 L .87692 .04808 L F 1 0 .648 r .87692 .04808 m .87692 .24038 L .87788 .24038 L .87788 .04808 L F 1 0 .642 r .87788 .04808 m .87788 .24038 L .87885 .24038 L .87885 .04808 L F 1 0 .636 r .87885 .04808 m .87885 .24038 L .87981 .24038 L .87981 .04808 L F 1 0 .63 r .87981 .04808 m .87981 .24038 L .88077 .24038 L .88077 .04808 L F 1 0 .624 r .88077 .04808 m .88077 .24038 L .88173 .24038 L .88173 .04808 L F 1 0 .618 r .88173 .04808 m .88173 .24038 L .88269 .24038 L .88269 .04808 L F 1 0 .612 r .88269 .04808 m .88269 .24038 L .88365 .24038 L .88365 .04808 L F 1 0 .606 r .88365 .04808 m .88365 .24038 L .88462 .24038 L .88462 .04808 L F 1 0 .6 r .88462 .04808 m .88462 .24038 L .88558 .24038 L .88558 .04808 L F 1 0 .594 r .88558 .04808 m .88558 .24038 L .88654 .24038 L .88654 .04808 L F 1 0 .588 r .88654 .04808 m .88654 .24038 L .8875 .24038 L .8875 .04808 L F 1 0 .582 r .8875 .04808 m .8875 .24038 L .88846 .24038 L .88846 .04808 L F 1 0 .576 r .88846 .04808 m .88846 .24038 L .88942 .24038 L .88942 .04808 L F 1 0 .57 r .88942 .04808 m .88942 .24038 L .89038 .24038 L .89038 .04808 L F 1 0 .564 r .89038 .04808 m .89038 .24038 L .89135 .24038 L .89135 .04808 L F 1 0 .558 r .89135 .04808 m .89135 .24038 L .89231 .24038 L .89231 .04808 L F 1 0 .552 r .89231 .04808 m .89231 .24038 L .89327 .24038 L .89327 .04808 L F 1 0 .546 r .89327 .04808 m .89327 .24038 L .89423 .24038 L .89423 .04808 L F 1 0 .54 r .89423 .04808 m .89423 .24038 L .89519 .24038 L .89519 .04808 L F 1 0 .534 r .89519 .04808 m .89519 .24038 L .89615 .24038 L .89615 .04808 L F 1 0 .528 r .89615 .04808 m .89615 .24038 L .89712 .24038 L .89712 .04808 L F 1 0 .522 r .89712 .04808 m .89712 .24038 L .89808 .24038 L .89808 .04808 L F 1 0 .516 r .89808 .04808 m .89808 .24038 L .89904 .24038 L .89904 .04808 L F 1 0 .51 r .89904 .04808 m .89904 .24038 L .9 .24038 L .9 .04808 L F 1 0 .504 r .9 .04808 m .9 .24038 L .90096 .24038 L .90096 .04808 L F 1 0 .498 r .90096 .04808 m .90096 .24038 L .90192 .24038 L .90192 .04808 L F 1 0 .492 r .90192 .04808 m .90192 .24038 L .90288 .24038 L .90288 .04808 L F 1 0 .486 r .90288 .04808 m .90288 .24038 L .90385 .24038 L .90385 .04808 L F 1 0 .48 r .90385 .04808 m .90385 .24038 L .90481 .24038 L .90481 .04808 L F 1 0 .474 r .90481 .04808 m .90481 .24038 L .90577 .24038 L .90577 .04808 L F 1 0 .468 r .90577 .04808 m .90577 .24038 L .90673 .24038 L .90673 .04808 L F 1 0 .462 r .90673 .04808 m .90673 .24038 L .90769 .24038 L .90769 .04808 L F 1 0 .456 r .90769 .04808 m .90769 .24038 L .90865 .24038 L .90865 .04808 L F 1 0 .45 r .90865 .04808 m .90865 .24038 L .90962 .24038 L .90962 .04808 L F 1 0 .444 r .90962 .04808 m .90962 .24038 L .91058 .24038 L .91058 .04808 L F 1 0 .438 r .91058 .04808 m .91058 .24038 L .91154 .24038 L .91154 .04808 L F 1 0 .432 r .91154 .04808 m .91154 .24038 L .9125 .24038 L .9125 .04808 L F 1 0 .426 r .9125 .04808 m .9125 .24038 L .91346 .24038 L .91346 .04808 L F 1 0 .42 r .91346 .04808 m .91346 .24038 L .91442 .24038 L .91442 .04808 L F 1 0 .414 r .91442 .04808 m .91442 .24038 L .91538 .24038 L .91538 .04808 L F 1 0 .408 r .91538 .04808 m .91538 .24038 L .91635 .24038 L .91635 .04808 L F 1 0 .402 r .91635 .04808 m .91635 .24038 L .91731 .24038 L .91731 .04808 L F 1 0 .396 r .91731 .04808 m .91731 .24038 L .91827 .24038 L .91827 .04808 L F 1 0 .39 r .91827 .04808 m .91827 .24038 L .91923 .24038 L .91923 .04808 L F 1 0 .384 r .91923 .04808 m .91923 .24038 L .92019 .24038 L .92019 .04808 L F 1 0 .378 r .92019 .04808 m .92019 .24038 L .92115 .24038 L .92115 .04808 L F 1 0 .372 r .92115 .04808 m .92115 .24038 L .92212 .24038 L .92212 .04808 L F 1 0 .366 r .92212 .04808 m .92212 .24038 L .92308 .24038 L .92308 .04808 L F 1 0 .36 r .92308 .04808 m .92308 .24038 L .92404 .24038 L .92404 .04808 L F 1 0 .354 r .92404 .04808 m .92404 .24038 L .925 .24038 L .925 .04808 L F 1 0 .348 r .925 .04808 m .925 .24038 L .92596 .24038 L .92596 .04808 L F 1 0 .342 r .92596 .04808 m .92596 .24038 L .92692 .24038 L .92692 .04808 L F 1 0 .336 r .92692 .04808 m .92692 .24038 L .92788 .24038 L .92788 .04808 L F 1 0 .33 r .92788 .04808 m .92788 .24038 L .92885 .24038 L .92885 .04808 L F 1 0 .324 r .92885 .04808 m .92885 .24038 L .92981 .24038 L .92981 .04808 L F 1 0 .318 r .92981 .04808 m .92981 .24038 L .93077 .24038 L .93077 .04808 L F 1 0 .312 r .93077 .04808 m .93077 .24038 L .93173 .24038 L .93173 .04808 L F 1 0 .306 r .93173 .04808 m .93173 .24038 L .93269 .24038 L .93269 .04808 L F 1 0 .3 r .93269 .04808 m .93269 .24038 L .93365 .24038 L .93365 .04808 L F 1 0 .294 r .93365 .04808 m .93365 .24038 L .93462 .24038 L .93462 .04808 L F 1 0 .288 r .93462 .04808 m .93462 .24038 L .93558 .24038 L .93558 .04808 L F 1 0 .282 r .93558 .04808 m .93558 .24038 L .93654 .24038 L .93654 .04808 L F 1 0 .276 r .93654 .04808 m .93654 .24038 L .9375 .24038 L .9375 .04808 L F 1 0 .27 r .9375 .04808 m .9375 .24038 L .93846 .24038 L .93846 .04808 L F 1 0 .264 r .93846 .04808 m .93846 .24038 L .93942 .24038 L .93942 .04808 L F 1 0 .258 r .93942 .04808 m .93942 .24038 L .94038 .24038 L .94038 .04808 L F 1 0 .252 r .94038 .04808 m .94038 .24038 L .94135 .24038 L .94135 .04808 L F 1 0 .246 r .94135 .04808 m .94135 .24038 L .94231 .24038 L .94231 .04808 L F 1 0 .24 r .94231 .04808 m .94231 .24038 L .94327 .24038 L .94327 .04808 L F 1 0 .234 r .94327 .04808 m .94327 .24038 L .94423 .24038 L .94423 .04808 L F 1 0 .228 r .94423 .04808 m .94423 .24038 L .94519 .24038 L .94519 .04808 L F 1 0 .222 r .94519 .04808 m .94519 .24038 L .94615 .24038 L .94615 .04808 L F 1 0 .216 r .94615 .04808 m .94615 .24038 L .94712 .24038 L .94712 .04808 L F 1 0 .21 r .94712 .04808 m .94712 .24038 L .94808 .24038 L .94808 .04808 L F 1 0 .204 r .94808 .04808 m .94808 .24038 L .94904 .24038 L .94904 .04808 L F 1 0 .198 r .94904 .04808 m .94904 .24038 L .95 .24038 L .95 .04808 L F 1 0 .192 r .95 .04808 m .95 .24038 L .95096 .24038 L .95096 .04808 L F 1 0 .186 r .95096 .04808 m .95096 .24038 L .95192 .24038 L .95192 .04808 L F 1 0 .18 r .95192 .04808 m .95192 .24038 L .95288 .24038 L .95288 .04808 L F 1 0 .174 r .95288 .04808 m .95288 .24038 L .95385 .24038 L .95385 .04808 L F 1 0 .168 r .95385 .04808 m .95385 .24038 L .95481 .24038 L .95481 .04808 L F 1 0 .162 r .95481 .04808 m .95481 .24038 L .95577 .24038 L .95577 .04808 L F 1 0 .156 r .95577 .04808 m .95577 .24038 L .95673 .24038 L .95673 .04808 L F 1 0 .15 r .95673 .04808 m .95673 .24038 L .95769 .24038 L .95769 .04808 L F 1 0 .144 r .95769 .04808 m .95769 .24038 L .95865 .24038 L .95865 .04808 L F 1 0 .138 r .95865 .04808 m .95865 .24038 L .95962 .24038 L .95962 .04808 L F 1 0 .132 r .95962 .04808 m .95962 .24038 L .96058 .24038 L .96058 .04808 L F 1 0 .126 r .96058 .04808 m .96058 .24038 L .96154 .24038 L .96154 .04808 L F 1 0 .12 r .96154 .04808 m .96154 .24038 L .9625 .24038 L .9625 .04808 L F 1 0 .114 r .9625 .04808 m .9625 .24038 L .96346 .24038 L .96346 .04808 L F 1 0 .108 r .96346 .04808 m .96346 .24038 L .96442 .24038 L .96442 .04808 L F 1 0 .102 r .96442 .04808 m .96442 .24038 L .96538 .24038 L .96538 .04808 L F 1 0 .096 r .96538 .04808 m .96538 .24038 L .96635 .24038 L .96635 .04808 L F 1 0 .09 r .96635 .04808 m .96635 .24038 L .96731 .24038 L .96731 .04808 L F 1 0 .084 r .96731 .04808 m .96731 .24038 L .96827 .24038 L .96827 .04808 L F 1 0 .078 r .96827 .04808 m .96827 .24038 L .96923 .24038 L .96923 .04808 L F 1 0 .072 r .96923 .04808 m .96923 .24038 L .97019 .24038 L .97019 .04808 L F 1 0 .066 r .97019 .04808 m .97019 .24038 L .97115 .24038 L .97115 .04808 L F 1 0 .06 r .97115 .04808 m .97115 .24038 L .97212 .24038 L .97212 .04808 L F 1 0 .054 r .97212 .04808 m .97212 .24038 L .97308 .24038 L .97308 .04808 L F 1 0 .048 r .97308 .04808 m .97308 .24038 L .97404 .24038 L .97404 .04808 L F 1 0 .042 r .97404 .04808 m .97404 .24038 L .975 .24038 L .975 .04808 L F 1 0 .036 r .975 .04808 m .975 .24038 L .97596 .24038 L .97596 .04808 L F 1 0 .03 r .97596 .04808 m .97596 .24038 L .97692 .24038 L .97692 .04808 L F 1 0 .024 r .97692 .04808 m .97692 .24038 L .97788 .24038 L .97788 .04808 L F 1 0 .018 r .97788 .04808 m .97788 .24038 L .97885 .24038 L .97885 .04808 L F 1 0 .012 r .97885 .04808 m .97885 .24038 L .97981 .24038 L .97981 .04808 L F 1 0 .006 r .97981 .04808 m .97981 .24038 L .98077 .24038 L .98077 .04808 L F 1 0 0 r .98077 .04808 m .98077 .24038 L .98173 .24038 L .98173 .04808 L F 0 g .5 Mabswid [ ] 0 setdash .01923 .04808 m .01923 .0625 L s .11538 .04808 m .11538 .0625 L s .21154 .04808 m .21154 .0625 L s .30769 .04808 m .30769 .0625 L s .40385 .04808 m .40385 .0625 L s .5 .04808 m .5 .0625 L s .59615 .04808 m .59615 .0625 L s .69231 .04808 m .69231 .0625 L s .78846 .04808 m .78846 .0625 L s .88462 .04808 m .88462 .0625 L s .98077 .04808 m .98077 .0625 L s .5 .04808 m .5 .08173 L s .01923 .04808 m .01923 .08173 L s .98077 .04808 m .98077 .08173 L s gsave .01923 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .98077 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.00327054 0.97619 0.134092 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.961538 0.0480769 0.961538 [ [ 0 0 0 0 ] [ 1 .28846 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .28846 L 0 .28846 L closepath clip newpath 0 g .01923 .04808 m .01923 .24038 L .02019 .24038 L .02019 .04808 L F .001 g .02019 .04808 m .02019 .24038 L .02115 .24038 L .02115 .04808 L F .002 g .02115 .04808 m .02115 .24038 L .02212 .24038 L .02212 .04808 L F .003 g .02212 .04808 m .02212 .24038 L .02308 .24038 L .02308 .04808 L F .004 g .02308 .04808 m .02308 .24038 L .02404 .24038 L .02404 .04808 L F .005 g .02404 .04808 m .02404 .24038 L .025 .24038 L .025 .04808 L F .006 g .025 .04808 m .025 .24038 L .02596 .24038 L .02596 .04808 L F .007 g .02596 .04808 m .02596 .24038 L .02692 .24038 L .02692 .04808 L F .008 g .02692 .04808 m .02692 .24038 L .02788 .24038 L .02788 .04808 L F .009 g .02788 .04808 m .02788 .24038 L .02885 .24038 L .02885 .04808 L F .01 g .02885 .04808 m .02885 .24038 L .02981 .24038 L .02981 .04808 L F .011 g .02981 .04808 m .02981 .24038 L .03077 .24038 L .03077 .04808 L F .012 g .03077 .04808 m .03077 .24038 L .03173 .24038 L .03173 .04808 L F .013 g .03173 .04808 m .03173 .24038 L .03269 .24038 L .03269 .04808 L F .014 g .03269 .04808 m .03269 .24038 L .03365 .24038 L .03365 .04808 L F .015 g .03365 .04808 m .03365 .24038 L .03462 .24038 L .03462 .04808 L F .016 g .03462 .04808 m .03462 .24038 L .03558 .24038 L .03558 .04808 L F .017 g .03558 .04808 m .03558 .24038 L .03654 .24038 L .03654 .04808 L F .018 g .03654 .04808 m .03654 .24038 L .0375 .24038 L .0375 .04808 L F .019 g .0375 .04808 m .0375 .24038 L .03846 .24038 L .03846 .04808 L F .02 g .03846 .04808 m .03846 .24038 L .03942 .24038 L .03942 .04808 L F .021 g .03942 .04808 m .03942 .24038 L .04038 .24038 L .04038 .04808 L F .022 g .04038 .04808 m .04038 .24038 L .04135 .24038 L .04135 .04808 L F .023 g .04135 .04808 m .04135 .24038 L .04231 .24038 L .04231 .04808 L F .024 g .04231 .04808 m .04231 .24038 L .04327 .24038 L .04327 .04808 L F .025 g .04327 .04808 m .04327 .24038 L .04423 .24038 L .04423 .04808 L F .026 g .04423 .04808 m .04423 .24038 L .04519 .24038 L .04519 .04808 L F .027 g .04519 .04808 m .04519 .24038 L .04615 .24038 L .04615 .04808 L F .028 g .04615 .04808 m .04615 .24038 L .04712 .24038 L .04712 .04808 L F .029 g .04712 .04808 m .04712 .24038 L .04808 .24038 L .04808 .04808 L F .03 g .04808 .04808 m .04808 .24038 L .04904 .24038 L .04904 .04808 L F .031 g .04904 .04808 m .04904 .24038 L .05 .24038 L .05 .04808 L F .032 g .05 .04808 m .05 .24038 L .05096 .24038 L .05096 .04808 L F .033 g .05096 .04808 m .05096 .24038 L .05192 .24038 L .05192 .04808 L F .034 g .05192 .04808 m .05192 .24038 L .05288 .24038 L .05288 .04808 L F .035 g .05288 .04808 m .05288 .24038 L .05385 .24038 L .05385 .04808 L F .036 g .05385 .04808 m .05385 .24038 L .05481 .24038 L .05481 .04808 L F .037 g .05481 .04808 m .05481 .24038 L .05577 .24038 L .05577 .04808 L F .038 g .05577 .04808 m .05577 .24038 L .05673 .24038 L .05673 .04808 L F .039 g .05673 .04808 m .05673 .24038 L .05769 .24038 L .05769 .04808 L F .04 g .05769 .04808 m .05769 .24038 L .05865 .24038 L .05865 .04808 L F .041 g .05865 .04808 m .05865 .24038 L .05962 .24038 L .05962 .04808 L F .042 g .05962 .04808 m .05962 .24038 L .06058 .24038 L .06058 .04808 L F .043 g .06058 .04808 m .06058 .24038 L .06154 .24038 L .06154 .04808 L F .044 g .06154 .04808 m .06154 .24038 L .0625 .24038 L .0625 .04808 L F .045 g .0625 .04808 m .0625 .24038 L .06346 .24038 L .06346 .04808 L F .046 g .06346 .04808 m .06346 .24038 L .06442 .24038 L .06442 .04808 L F .047 g .06442 .04808 m .06442 .24038 L .06538 .24038 L .06538 .04808 L F .048 g .06538 .04808 m .06538 .24038 L .06635 .24038 L .06635 .04808 L F .049 g .06635 .04808 m .06635 .24038 L .06731 .24038 L .06731 .04808 L F .05 g .06731 .04808 m .06731 .24038 L .06827 .24038 L .06827 .04808 L F .051 g .06827 .04808 m .06827 .24038 L .06923 .24038 L .06923 .04808 L F .052 g .06923 .04808 m .06923 .24038 L .07019 .24038 L .07019 .04808 L F .053 g .07019 .04808 m .07019 .24038 L .07115 .24038 L .07115 .04808 L F .054 g .07115 .04808 m .07115 .24038 L .07212 .24038 L .07212 .04808 L F .055 g .07212 .04808 m .07212 .24038 L .07308 .24038 L .07308 .04808 L F .056 g .07308 .04808 m .07308 .24038 L .07404 .24038 L .07404 .04808 L F .057 g .07404 .04808 m .07404 .24038 L .075 .24038 L .075 .04808 L F .058 g .075 .04808 m .075 .24038 L .07596 .24038 L .07596 .04808 L F .059 g .07596 .04808 m .07596 .24038 L .07692 .24038 L .07692 .04808 L F .06 g .07692 .04808 m .07692 .24038 L .07788 .24038 L .07788 .04808 L F .061 g .07788 .04808 m .07788 .24038 L .07885 .24038 L .07885 .04808 L F .062 g .07885 .04808 m .07885 .24038 L .07981 .24038 L .07981 .04808 L F .063 g .07981 .04808 m .07981 .24038 L .08077 .24038 L .08077 .04808 L F .064 g .08077 .04808 m .08077 .24038 L .08173 .24038 L .08173 .04808 L F .065 g .08173 .04808 m .08173 .24038 L .08269 .24038 L .08269 .04808 L F .066 g .08269 .04808 m .08269 .24038 L .08365 .24038 L .08365 .04808 L F .067 g .08365 .04808 m .08365 .24038 L .08462 .24038 L .08462 .04808 L F .068 g .08462 .04808 m .08462 .24038 L .08558 .24038 L .08558 .04808 L F .069 g .08558 .04808 m .08558 .24038 L .08654 .24038 L .08654 .04808 L F .07 g .08654 .04808 m .08654 .24038 L .0875 .24038 L .0875 .04808 L F .071 g .0875 .04808 m .0875 .24038 L .08846 .24038 L .08846 .04808 L F .072 g .08846 .04808 m .08846 .24038 L .08942 .24038 L .08942 .04808 L F .073 g .08942 .04808 m .08942 .24038 L .09038 .24038 L .09038 .04808 L F .074 g .09038 .04808 m .09038 .24038 L .09135 .24038 L .09135 .04808 L F .075 g .09135 .04808 m .09135 .24038 L .09231 .24038 L .09231 .04808 L F .076 g .09231 .04808 m .09231 .24038 L .09327 .24038 L .09327 .04808 L F .077 g .09327 .04808 m .09327 .24038 L .09423 .24038 L .09423 .04808 L F .078 g .09423 .04808 m .09423 .24038 L .09519 .24038 L .09519 .04808 L F .079 g .09519 .04808 m .09519 .24038 L .09615 .24038 L .09615 .04808 L F .08 g .09615 .04808 m .09615 .24038 L .09712 .24038 L .09712 .04808 L F .081 g .09712 .04808 m .09712 .24038 L .09808 .24038 L .09808 .04808 L F .082 g .09808 .04808 m .09808 .24038 L .09904 .24038 L .09904 .04808 L F .083 g .09904 .04808 m .09904 .24038 L .1 .24038 L .1 .04808 L F .084 g .1 .04808 m .1 .24038 L .10096 .24038 L .10096 .04808 L F .085 g .10096 .04808 m .10096 .24038 L .10192 .24038 L .10192 .04808 L F .086 g .10192 .04808 m .10192 .24038 L .10288 .24038 L .10288 .04808 L F .087 g .10288 .04808 m .10288 .24038 L .10385 .24038 L .10385 .04808 L F .088 g .10385 .04808 m .10385 .24038 L .10481 .24038 L .10481 .04808 L F .089 g .10481 .04808 m .10481 .24038 L .10577 .24038 L .10577 .04808 L F .09 g .10577 .04808 m .10577 .24038 L .10673 .24038 L .10673 .04808 L F .091 g .10673 .04808 m .10673 .24038 L .10769 .24038 L .10769 .04808 L F .092 g .10769 .04808 m .10769 .24038 L .10865 .24038 L .10865 .04808 L F .093 g .10865 .04808 m .10865 .24038 L .10962 .24038 L .10962 .04808 L F .094 g .10962 .04808 m .10962 .24038 L .11058 .24038 L .11058 .04808 L F .095 g .11058 .04808 m .11058 .24038 L .11154 .24038 L .11154 .04808 L F .096 g .11154 .04808 m .11154 .24038 L .1125 .24038 L .1125 .04808 L F .097 g .1125 .04808 m .1125 .24038 L .11346 .24038 L .11346 .04808 L F .098 g .11346 .04808 m .11346 .24038 L .11442 .24038 L .11442 .04808 L F .099 g .11442 .04808 m .11442 .24038 L .11538 .24038 L .11538 .04808 L F .1 g .11538 .04808 m .11538 .24038 L .11635 .24038 L .11635 .04808 L F .101 g .11635 .04808 m .11635 .24038 L .11731 .24038 L .11731 .04808 L F .102 g .11731 .04808 m .11731 .24038 L .11827 .24038 L .11827 .04808 L F .103 g .11827 .04808 m .11827 .24038 L .11923 .24038 L .11923 .04808 L F .104 g .11923 .04808 m .11923 .24038 L .12019 .24038 L .12019 .04808 L F .105 g .12019 .04808 m .12019 .24038 L .12115 .24038 L .12115 .04808 L F .106 g .12115 .04808 m .12115 .24038 L .12212 .24038 L .12212 .04808 L F .107 g .12212 .04808 m .12212 .24038 L .12308 .24038 L .12308 .04808 L F .108 g .12308 .04808 m .12308 .24038 L .12404 .24038 L .12404 .04808 L F .109 g .12404 .04808 m .12404 .24038 L .125 .24038 L .125 .04808 L F .11 g .125 .04808 m .125 .24038 L .12596 .24038 L .12596 .04808 L F .111 g .12596 .04808 m .12596 .24038 L .12692 .24038 L .12692 .04808 L F .112 g .12692 .04808 m .12692 .24038 L .12788 .24038 L .12788 .04808 L F .113 g .12788 .04808 m .12788 .24038 L .12885 .24038 L .12885 .04808 L F .114 g .12885 .04808 m .12885 .24038 L .12981 .24038 L .12981 .04808 L F .115 g .12981 .04808 m .12981 .24038 L .13077 .24038 L .13077 .04808 L F .116 g .13077 .04808 m .13077 .24038 L .13173 .24038 L .13173 .04808 L F .117 g .13173 .04808 m .13173 .24038 L .13269 .24038 L .13269 .04808 L F .118 g .13269 .04808 m .13269 .24038 L .13365 .24038 L .13365 .04808 L F .119 g .13365 .04808 m .13365 .24038 L .13462 .24038 L .13462 .04808 L F .12 g .13462 .04808 m .13462 .24038 L .13558 .24038 L .13558 .04808 L F .121 g .13558 .04808 m .13558 .24038 L .13654 .24038 L .13654 .04808 L F .122 g .13654 .04808 m .13654 .24038 L .1375 .24038 L .1375 .04808 L F .123 g .1375 .04808 m .1375 .24038 L .13846 .24038 L .13846 .04808 L F .124 g .13846 .04808 m .13846 .24038 L .13942 .24038 L .13942 .04808 L F .125 g .13942 .04808 m .13942 .24038 L .14038 .24038 L .14038 .04808 L F .126 g .14038 .04808 m .14038 .24038 L .14135 .24038 L .14135 .04808 L F .127 g .14135 .04808 m .14135 .24038 L .14231 .24038 L .14231 .04808 L F .128 g .14231 .04808 m .14231 .24038 L .14327 .24038 L .14327 .04808 L F .129 g .14327 .04808 m .14327 .24038 L .14423 .24038 L .14423 .04808 L F .13 g .14423 .04808 m .14423 .24038 L .14519 .24038 L .14519 .04808 L F .131 g .14519 .04808 m .14519 .24038 L .14615 .24038 L .14615 .04808 L F .132 g .14615 .04808 m .14615 .24038 L .14712 .24038 L .14712 .04808 L F .133 g .14712 .04808 m .14712 .24038 L .14808 .24038 L .14808 .04808 L F .134 g .14808 .04808 m .14808 .24038 L .14904 .24038 L .14904 .04808 L F .135 g .14904 .04808 m .14904 .24038 L .15 .24038 L .15 .04808 L F .136 g .15 .04808 m .15 .24038 L .15096 .24038 L .15096 .04808 L F .137 g .15096 .04808 m .15096 .24038 L .15192 .24038 L .15192 .04808 L F .138 g .15192 .04808 m .15192 .24038 L .15288 .24038 L .15288 .04808 L F .139 g .15288 .04808 m .15288 .24038 L .15385 .24038 L .15385 .04808 L F .14 g .15385 .04808 m .15385 .24038 L .15481 .24038 L .15481 .04808 L F .141 g .15481 .04808 m .15481 .24038 L .15577 .24038 L .15577 .04808 L F .142 g .15577 .04808 m .15577 .24038 L .15673 .24038 L .15673 .04808 L F .143 g .15673 .04808 m .15673 .24038 L .15769 .24038 L .15769 .04808 L F .144 g .15769 .04808 m .15769 .24038 L .15865 .24038 L .15865 .04808 L F .145 g .15865 .04808 m .15865 .24038 L .15962 .24038 L .15962 .04808 L F .146 g .15962 .04808 m .15962 .24038 L .16058 .24038 L .16058 .04808 L F .147 g .16058 .04808 m .16058 .24038 L .16154 .24038 L .16154 .04808 L F .148 g .16154 .04808 m .16154 .24038 L .1625 .24038 L .1625 .04808 L F .149 g .1625 .04808 m .1625 .24038 L .16346 .24038 L .16346 .04808 L F .15 g .16346 .04808 m .16346 .24038 L .16442 .24038 L .16442 .04808 L F .151 g .16442 .04808 m .16442 .24038 L .16538 .24038 L .16538 .04808 L F .152 g .16538 .04808 m .16538 .24038 L .16635 .24038 L .16635 .04808 L F .153 g .16635 .04808 m .16635 .24038 L .16731 .24038 L .16731 .04808 L F .154 g .16731 .04808 m .16731 .24038 L .16827 .24038 L .16827 .04808 L F .155 g .16827 .04808 m .16827 .24038 L .16923 .24038 L .16923 .04808 L F .156 g .16923 .04808 m .16923 .24038 L .17019 .24038 L .17019 .04808 L F .157 g .17019 .04808 m .17019 .24038 L .17115 .24038 L .17115 .04808 L F .158 g .17115 .04808 m .17115 .24038 L .17212 .24038 L .17212 .04808 L F .159 g .17212 .04808 m .17212 .24038 L .17308 .24038 L .17308 .04808 L F .16 g .17308 .04808 m .17308 .24038 L .17404 .24038 L .17404 .04808 L F .161 g .17404 .04808 m .17404 .24038 L .175 .24038 L .175 .04808 L F .162 g .175 .04808 m .175 .24038 L .17596 .24038 L .17596 .04808 L F .163 g .17596 .04808 m .17596 .24038 L .17692 .24038 L .17692 .04808 L F .164 g .17692 .04808 m .17692 .24038 L .17788 .24038 L .17788 .04808 L F .165 g .17788 .04808 m .17788 .24038 L .17885 .24038 L .17885 .04808 L F .166 g .17885 .04808 m .17885 .24038 L .17981 .24038 L .17981 .04808 L F .167 g .17981 .04808 m .17981 .24038 L .18077 .24038 L .18077 .04808 L F .168 g .18077 .04808 m .18077 .24038 L .18173 .24038 L .18173 .04808 L F .169 g .18173 .04808 m .18173 .24038 L .18269 .24038 L .18269 .04808 L F .17 g .18269 .04808 m .18269 .24038 L .18365 .24038 L .18365 .04808 L F .171 g .18365 .04808 m .18365 .24038 L .18462 .24038 L .18462 .04808 L F .172 g .18462 .04808 m .18462 .24038 L .18558 .24038 L .18558 .04808 L F .173 g .18558 .04808 m .18558 .24038 L .18654 .24038 L .18654 .04808 L F .174 g .18654 .04808 m .18654 .24038 L .1875 .24038 L .1875 .04808 L F .175 g .1875 .04808 m .1875 .24038 L .18846 .24038 L .18846 .04808 L F .176 g .18846 .04808 m .18846 .24038 L .18942 .24038 L .18942 .04808 L F .177 g .18942 .04808 m .18942 .24038 L .19038 .24038 L .19038 .04808 L F .178 g .19038 .04808 m .19038 .24038 L .19135 .24038 L .19135 .04808 L F .179 g .19135 .04808 m .19135 .24038 L .19231 .24038 L .19231 .04808 L F .18 g .19231 .04808 m .19231 .24038 L .19327 .24038 L .19327 .04808 L F .181 g .19327 .04808 m .19327 .24038 L .19423 .24038 L .19423 .04808 L F .182 g .19423 .04808 m .19423 .24038 L .19519 .24038 L .19519 .04808 L F .183 g .19519 .04808 m .19519 .24038 L .19615 .24038 L .19615 .04808 L F .184 g .19615 .04808 m .19615 .24038 L .19712 .24038 L .19712 .04808 L F .185 g .19712 .04808 m .19712 .24038 L .19808 .24038 L .19808 .04808 L F .186 g .19808 .04808 m .19808 .24038 L .19904 .24038 L .19904 .04808 L F .187 g .19904 .04808 m .19904 .24038 L .2 .24038 L .2 .04808 L F .188 g .2 .04808 m .2 .24038 L .20096 .24038 L .20096 .04808 L F .189 g .20096 .04808 m .20096 .24038 L .20192 .24038 L .20192 .04808 L F .19 g .20192 .04808 m .20192 .24038 L .20288 .24038 L .20288 .04808 L F .191 g .20288 .04808 m .20288 .24038 L .20385 .24038 L .20385 .04808 L F .192 g .20385 .04808 m .20385 .24038 L .20481 .24038 L .20481 .04808 L F .193 g .20481 .04808 m .20481 .24038 L .20577 .24038 L .20577 .04808 L F .194 g .20577 .04808 m .20577 .24038 L .20673 .24038 L .20673 .04808 L F .195 g .20673 .04808 m .20673 .24038 L .20769 .24038 L .20769 .04808 L F .196 g .20769 .04808 m .20769 .24038 L .20865 .24038 L .20865 .04808 L F .197 g .20865 .04808 m .20865 .24038 L .20962 .24038 L .20962 .04808 L F .198 g .20962 .04808 m .20962 .24038 L .21058 .24038 L .21058 .04808 L F .199 g .21058 .04808 m .21058 .24038 L .21154 .24038 L .21154 .04808 L F .2 g .21154 .04808 m .21154 .24038 L .2125 .24038 L .2125 .04808 L F .201 g .2125 .04808 m .2125 .24038 L .21346 .24038 L .21346 .04808 L F .202 g .21346 .04808 m .21346 .24038 L .21442 .24038 L .21442 .04808 L F .203 g .21442 .04808 m .21442 .24038 L .21538 .24038 L .21538 .04808 L F .204 g .21538 .04808 m .21538 .24038 L .21635 .24038 L .21635 .04808 L F .205 g .21635 .04808 m .21635 .24038 L .21731 .24038 L .21731 .04808 L F .206 g .21731 .04808 m .21731 .24038 L .21827 .24038 L .21827 .04808 L F .207 g .21827 .04808 m .21827 .24038 L .21923 .24038 L .21923 .04808 L F .208 g .21923 .04808 m .21923 .24038 L .22019 .24038 L .22019 .04808 L F .209 g .22019 .04808 m .22019 .24038 L .22115 .24038 L .22115 .04808 L F .21 g .22115 .04808 m .22115 .24038 L .22212 .24038 L .22212 .04808 L F .211 g .22212 .04808 m .22212 .24038 L .22308 .24038 L .22308 .04808 L F .212 g .22308 .04808 m .22308 .24038 L .22404 .24038 L .22404 .04808 L F .213 g .22404 .04808 m .22404 .24038 L .225 .24038 L .225 .04808 L F .214 g .225 .04808 m .225 .24038 L .22596 .24038 L .22596 .04808 L F .215 g .22596 .04808 m .22596 .24038 L .22692 .24038 L .22692 .04808 L F .216 g .22692 .04808 m .22692 .24038 L .22788 .24038 L .22788 .04808 L F .217 g .22788 .04808 m .22788 .24038 L .22885 .24038 L .22885 .04808 L F .218 g .22885 .04808 m .22885 .24038 L .22981 .24038 L .22981 .04808 L F .219 g .22981 .04808 m .22981 .24038 L .23077 .24038 L .23077 .04808 L F .22 g .23077 .04808 m .23077 .24038 L .23173 .24038 L .23173 .04808 L F .221 g .23173 .04808 m .23173 .24038 L .23269 .24038 L .23269 .04808 L F .222 g .23269 .04808 m .23269 .24038 L .23365 .24038 L .23365 .04808 L F .223 g .23365 .04808 m .23365 .24038 L .23462 .24038 L .23462 .04808 L F .224 g .23462 .04808 m .23462 .24038 L .23558 .24038 L .23558 .04808 L F .225 g .23558 .04808 m .23558 .24038 L .23654 .24038 L .23654 .04808 L F .226 g .23654 .04808 m .23654 .24038 L .2375 .24038 L .2375 .04808 L F .227 g .2375 .04808 m .2375 .24038 L .23846 .24038 L .23846 .04808 L F .228 g .23846 .04808 m .23846 .24038 L .23942 .24038 L .23942 .04808 L F .229 g .23942 .04808 m .23942 .24038 L .24038 .24038 L .24038 .04808 L F .23 g .24038 .04808 m .24038 .24038 L .24135 .24038 L .24135 .04808 L F .231 g .24135 .04808 m .24135 .24038 L .24231 .24038 L .24231 .04808 L F .232 g .24231 .04808 m .24231 .24038 L .24327 .24038 L .24327 .04808 L F .233 g .24327 .04808 m .24327 .24038 L .24423 .24038 L .24423 .04808 L F .234 g .24423 .04808 m .24423 .24038 L .24519 .24038 L .24519 .04808 L F .235 g .24519 .04808 m .24519 .24038 L .24615 .24038 L .24615 .04808 L F .236 g .24615 .04808 m .24615 .24038 L .24712 .24038 L .24712 .04808 L F .237 g .24712 .04808 m .24712 .24038 L .24808 .24038 L .24808 .04808 L F .238 g .24808 .04808 m .24808 .24038 L .24904 .24038 L .24904 .04808 L F .239 g .24904 .04808 m .24904 .24038 L .25 .24038 L .25 .04808 L F .24 g .25 .04808 m .25 .24038 L .25096 .24038 L .25096 .04808 L F .241 g .25096 .04808 m .25096 .24038 L .25192 .24038 L .25192 .04808 L F .242 g .25192 .04808 m .25192 .24038 L .25288 .24038 L .25288 .04808 L F .243 g .25288 .04808 m .25288 .24038 L .25385 .24038 L .25385 .04808 L F .244 g .25385 .04808 m .25385 .24038 L .25481 .24038 L .25481 .04808 L F .245 g .25481 .04808 m .25481 .24038 L .25577 .24038 L .25577 .04808 L F .246 g .25577 .04808 m .25577 .24038 L .25673 .24038 L .25673 .04808 L F .247 g .25673 .04808 m .25673 .24038 L .25769 .24038 L .25769 .04808 L F .248 g .25769 .04808 m .25769 .24038 L .25865 .24038 L .25865 .04808 L F .249 g .25865 .04808 m .25865 .24038 L .25962 .24038 L .25962 .04808 L F .25 g .25962 .04808 m .25962 .24038 L .26058 .24038 L .26058 .04808 L F .251 g .26058 .04808 m .26058 .24038 L .26154 .24038 L .26154 .04808 L F .252 g .26154 .04808 m .26154 .24038 L .2625 .24038 L .2625 .04808 L F .253 g .2625 .04808 m .2625 .24038 L .26346 .24038 L .26346 .04808 L F .254 g .26346 .04808 m .26346 .24038 L .26442 .24038 L .26442 .04808 L F .255 g .26442 .04808 m .26442 .24038 L .26538 .24038 L .26538 .04808 L F .256 g .26538 .04808 m .26538 .24038 L .26635 .24038 L .26635 .04808 L F .257 g .26635 .04808 m .26635 .24038 L .26731 .24038 L .26731 .04808 L F .258 g .26731 .04808 m .26731 .24038 L .26827 .24038 L .26827 .04808 L F .259 g .26827 .04808 m .26827 .24038 L .26923 .24038 L .26923 .04808 L F .26 g .26923 .04808 m .26923 .24038 L .27019 .24038 L .27019 .04808 L F .261 g .27019 .04808 m .27019 .24038 L .27115 .24038 L .27115 .04808 L F .262 g .27115 .04808 m .27115 .24038 L .27212 .24038 L .27212 .04808 L F .263 g .27212 .04808 m .27212 .24038 L .27308 .24038 L .27308 .04808 L F .264 g .27308 .04808 m .27308 .24038 L .27404 .24038 L .27404 .04808 L F .265 g .27404 .04808 m .27404 .24038 L .275 .24038 L .275 .04808 L F .266 g .275 .04808 m .275 .24038 L .27596 .24038 L .27596 .04808 L F .267 g .27596 .04808 m .27596 .24038 L .27692 .24038 L .27692 .04808 L F .268 g .27692 .04808 m .27692 .24038 L .27788 .24038 L .27788 .04808 L F .269 g .27788 .04808 m .27788 .24038 L .27885 .24038 L .27885 .04808 L F .27 g .27885 .04808 m .27885 .24038 L .27981 .24038 L .27981 .04808 L F .271 g .27981 .04808 m .27981 .24038 L .28077 .24038 L .28077 .04808 L F .272 g .28077 .04808 m .28077 .24038 L .28173 .24038 L .28173 .04808 L F .273 g .28173 .04808 m .28173 .24038 L .28269 .24038 L .28269 .04808 L F .274 g .28269 .04808 m .28269 .24038 L .28365 .24038 L .28365 .04808 L F .275 g .28365 .04808 m .28365 .24038 L .28462 .24038 L .28462 .04808 L F .276 g .28462 .04808 m .28462 .24038 L .28558 .24038 L .28558 .04808 L F .277 g .28558 .04808 m .28558 .24038 L .28654 .24038 L .28654 .04808 L F .278 g .28654 .04808 m .28654 .24038 L .2875 .24038 L .2875 .04808 L F .279 g .2875 .04808 m .2875 .24038 L .28846 .24038 L .28846 .04808 L F .28 g .28846 .04808 m .28846 .24038 L .28942 .24038 L .28942 .04808 L F .281 g .28942 .04808 m .28942 .24038 L .29038 .24038 L .29038 .04808 L F .282 g .29038 .04808 m .29038 .24038 L .29135 .24038 L .29135 .04808 L F .283 g .29135 .04808 m .29135 .24038 L .29231 .24038 L .29231 .04808 L F .284 g .29231 .04808 m .29231 .24038 L .29327 .24038 L .29327 .04808 L F .285 g .29327 .04808 m .29327 .24038 L .29423 .24038 L .29423 .04808 L F .286 g .29423 .04808 m .29423 .24038 L .29519 .24038 L .29519 .04808 L F .287 g .29519 .04808 m .29519 .24038 L .29615 .24038 L .29615 .04808 L F .288 g .29615 .04808 m .29615 .24038 L .29712 .24038 L .29712 .04808 L F .289 g .29712 .04808 m .29712 .24038 L .29808 .24038 L .29808 .04808 L F .29 g .29808 .04808 m .29808 .24038 L .29904 .24038 L .29904 .04808 L F .291 g .29904 .04808 m .29904 .24038 L .3 .24038 L .3 .04808 L F .292 g .3 .04808 m .3 .24038 L .30096 .24038 L .30096 .04808 L F .293 g .30096 .04808 m .30096 .24038 L .30192 .24038 L .30192 .04808 L F .294 g .30192 .04808 m .30192 .24038 L .30288 .24038 L .30288 .04808 L F .295 g .30288 .04808 m .30288 .24038 L .30385 .24038 L .30385 .04808 L F .296 g .30385 .04808 m .30385 .24038 L .30481 .24038 L .30481 .04808 L F .297 g .30481 .04808 m .30481 .24038 L .30577 .24038 L .30577 .04808 L F .298 g .30577 .04808 m .30577 .24038 L .30673 .24038 L .30673 .04808 L F .299 g .30673 .04808 m .30673 .24038 L .30769 .24038 L .30769 .04808 L F .3 g .30769 .04808 m .30769 .24038 L .30865 .24038 L .30865 .04808 L F .301 g .30865 .04808 m .30865 .24038 L .30962 .24038 L .30962 .04808 L F .302 g .30962 .04808 m .30962 .24038 L .31058 .24038 L .31058 .04808 L F .303 g .31058 .04808 m .31058 .24038 L .31154 .24038 L .31154 .04808 L F .304 g .31154 .04808 m .31154 .24038 L .3125 .24038 L .3125 .04808 L F .305 g .3125 .04808 m .3125 .24038 L .31346 .24038 L .31346 .04808 L F .306 g .31346 .04808 m .31346 .24038 L .31442 .24038 L .31442 .04808 L F .307 g .31442 .04808 m .31442 .24038 L .31538 .24038 L .31538 .04808 L F .308 g .31538 .04808 m .31538 .24038 L .31635 .24038 L .31635 .04808 L F .309 g .31635 .04808 m .31635 .24038 L .31731 .24038 L .31731 .04808 L F .31 g .31731 .04808 m .31731 .24038 L .31827 .24038 L .31827 .04808 L F .311 g .31827 .04808 m .31827 .24038 L .31923 .24038 L .31923 .04808 L F .312 g .31923 .04808 m .31923 .24038 L .32019 .24038 L .32019 .04808 L F .313 g .32019 .04808 m .32019 .24038 L .32115 .24038 L .32115 .04808 L F .314 g .32115 .04808 m .32115 .24038 L .32212 .24038 L .32212 .04808 L F .315 g .32212 .04808 m .32212 .24038 L .32308 .24038 L .32308 .04808 L F .316 g .32308 .04808 m .32308 .24038 L .32404 .24038 L .32404 .04808 L F .317 g .32404 .04808 m .32404 .24038 L .325 .24038 L .325 .04808 L F .318 g .325 .04808 m .325 .24038 L .32596 .24038 L .32596 .04808 L F .319 g .32596 .04808 m .32596 .24038 L .32692 .24038 L .32692 .04808 L F .32 g .32692 .04808 m .32692 .24038 L .32788 .24038 L .32788 .04808 L F .321 g .32788 .04808 m .32788 .24038 L .32885 .24038 L .32885 .04808 L F .322 g .32885 .04808 m .32885 .24038 L .32981 .24038 L .32981 .04808 L F .323 g .32981 .04808 m .32981 .24038 L .33077 .24038 L .33077 .04808 L F .324 g .33077 .04808 m .33077 .24038 L .33173 .24038 L .33173 .04808 L F .325 g .33173 .04808 m .33173 .24038 L .33269 .24038 L .33269 .04808 L F .326 g .33269 .04808 m .33269 .24038 L .33365 .24038 L .33365 .04808 L F .327 g .33365 .04808 m .33365 .24038 L .33462 .24038 L .33462 .04808 L F .328 g .33462 .04808 m .33462 .24038 L .33558 .24038 L .33558 .04808 L F .329 g .33558 .04808 m .33558 .24038 L .33654 .24038 L .33654 .04808 L F .33 g .33654 .04808 m .33654 .24038 L .3375 .24038 L .3375 .04808 L F .331 g .3375 .04808 m .3375 .24038 L .33846 .24038 L .33846 .04808 L F .332 g .33846 .04808 m .33846 .24038 L .33942 .24038 L .33942 .04808 L F .333 g .33942 .04808 m .33942 .24038 L .34038 .24038 L .34038 .04808 L F .334 g .34038 .04808 m .34038 .24038 L .34135 .24038 L .34135 .04808 L F .335 g .34135 .04808 m .34135 .24038 L .34231 .24038 L .34231 .04808 L F .336 g .34231 .04808 m .34231 .24038 L .34327 .24038 L .34327 .04808 L F .337 g .34327 .04808 m .34327 .24038 L .34423 .24038 L .34423 .04808 L F .338 g .34423 .04808 m .34423 .24038 L .34519 .24038 L .34519 .04808 L F .339 g .34519 .04808 m .34519 .24038 L .34615 .24038 L .34615 .04808 L F .34 g .34615 .04808 m .34615 .24038 L .34712 .24038 L .34712 .04808 L F .341 g .34712 .04808 m .34712 .24038 L .34808 .24038 L .34808 .04808 L F .342 g .34808 .04808 m .34808 .24038 L .34904 .24038 L .34904 .04808 L F .343 g .34904 .04808 m .34904 .24038 L .35 .24038 L .35 .04808 L F .344 g .35 .04808 m .35 .24038 L .35096 .24038 L .35096 .04808 L F .345 g .35096 .04808 m .35096 .24038 L .35192 .24038 L .35192 .04808 L F .346 g .35192 .04808 m .35192 .24038 L .35288 .24038 L .35288 .04808 L F .347 g .35288 .04808 m .35288 .24038 L .35385 .24038 L .35385 .04808 L F .348 g .35385 .04808 m .35385 .24038 L .35481 .24038 L .35481 .04808 L F .349 g .35481 .04808 m .35481 .24038 L .35577 .24038 L .35577 .04808 L F .35 g .35577 .04808 m .35577 .24038 L .35673 .24038 L .35673 .04808 L F .351 g .35673 .04808 m .35673 .24038 L .35769 .24038 L .35769 .04808 L F .352 g .35769 .04808 m .35769 .24038 L .35865 .24038 L .35865 .04808 L F .353 g .35865 .04808 m .35865 .24038 L .35962 .24038 L .35962 .04808 L F .354 g .35962 .04808 m .35962 .24038 L .36058 .24038 L .36058 .04808 L F .355 g .36058 .04808 m .36058 .24038 L .36154 .24038 L .36154 .04808 L F .356 g .36154 .04808 m .36154 .24038 L .3625 .24038 L .3625 .04808 L F .357 g .3625 .04808 m .3625 .24038 L .36346 .24038 L .36346 .04808 L F .358 g .36346 .04808 m .36346 .24038 L .36442 .24038 L .36442 .04808 L F .359 g .36442 .04808 m .36442 .24038 L .36538 .24038 L .36538 .04808 L F .36 g .36538 .04808 m .36538 .24038 L .36635 .24038 L .36635 .04808 L F .361 g .36635 .04808 m .36635 .24038 L .36731 .24038 L .36731 .04808 L F .362 g .36731 .04808 m .36731 .24038 L .36827 .24038 L .36827 .04808 L F .363 g .36827 .04808 m .36827 .24038 L .36923 .24038 L .36923 .04808 L F .364 g .36923 .04808 m .36923 .24038 L .37019 .24038 L .37019 .04808 L F .365 g .37019 .04808 m .37019 .24038 L .37115 .24038 L .37115 .04808 L F .366 g .37115 .04808 m .37115 .24038 L .37212 .24038 L .37212 .04808 L F .367 g .37212 .04808 m .37212 .24038 L .37308 .24038 L .37308 .04808 L F .368 g .37308 .04808 m .37308 .24038 L .37404 .24038 L .37404 .04808 L F .369 g .37404 .04808 m .37404 .24038 L .375 .24038 L .375 .04808 L F .37 g .375 .04808 m .375 .24038 L .37596 .24038 L .37596 .04808 L F .371 g .37596 .04808 m .37596 .24038 L .37692 .24038 L .37692 .04808 L F .372 g .37692 .04808 m .37692 .24038 L .37788 .24038 L .37788 .04808 L F .373 g .37788 .04808 m .37788 .24038 L .37885 .24038 L .37885 .04808 L F .374 g .37885 .04808 m .37885 .24038 L .37981 .24038 L .37981 .04808 L F .375 g .37981 .04808 m .37981 .24038 L .38077 .24038 L .38077 .04808 L F .376 g .38077 .04808 m .38077 .24038 L .38173 .24038 L .38173 .04808 L F .377 g .38173 .04808 m .38173 .24038 L .38269 .24038 L .38269 .04808 L F .378 g .38269 .04808 m .38269 .24038 L .38365 .24038 L .38365 .04808 L F .379 g .38365 .04808 m .38365 .24038 L .38462 .24038 L .38462 .04808 L F .38 g .38462 .04808 m .38462 .24038 L .38558 .24038 L .38558 .04808 L F .381 g .38558 .04808 m .38558 .24038 L .38654 .24038 L .38654 .04808 L F .382 g .38654 .04808 m .38654 .24038 L .3875 .24038 L .3875 .04808 L F .383 g .3875 .04808 m .3875 .24038 L .38846 .24038 L .38846 .04808 L F .384 g .38846 .04808 m .38846 .24038 L .38942 .24038 L .38942 .04808 L F .385 g .38942 .04808 m .38942 .24038 L .39038 .24038 L .39038 .04808 L F .386 g .39038 .04808 m .39038 .24038 L .39135 .24038 L .39135 .04808 L F .387 g .39135 .04808 m .39135 .24038 L .39231 .24038 L .39231 .04808 L F .388 g .39231 .04808 m .39231 .24038 L .39327 .24038 L .39327 .04808 L F .389 g .39327 .04808 m .39327 .24038 L .39423 .24038 L .39423 .04808 L F .39 g .39423 .04808 m .39423 .24038 L .39519 .24038 L .39519 .04808 L F .391 g .39519 .04808 m .39519 .24038 L .39615 .24038 L .39615 .04808 L F .392 g .39615 .04808 m .39615 .24038 L .39712 .24038 L .39712 .04808 L F .393 g .39712 .04808 m .39712 .24038 L .39808 .24038 L .39808 .04808 L F .394 g .39808 .04808 m .39808 .24038 L .39904 .24038 L .39904 .04808 L F .395 g .39904 .04808 m .39904 .24038 L .4 .24038 L .4 .04808 L F .396 g .4 .04808 m .4 .24038 L .40096 .24038 L .40096 .04808 L F .397 g .40096 .04808 m .40096 .24038 L .40192 .24038 L .40192 .04808 L F .398 g .40192 .04808 m .40192 .24038 L .40288 .24038 L .40288 .04808 L F .399 g .40288 .04808 m .40288 .24038 L .40385 .24038 L .40385 .04808 L F .4 g .40385 .04808 m .40385 .24038 L .40481 .24038 L .40481 .04808 L F .401 g .40481 .04808 m .40481 .24038 L .40577 .24038 L .40577 .04808 L F .402 g .40577 .04808 m .40577 .24038 L .40673 .24038 L .40673 .04808 L F .403 g .40673 .04808 m .40673 .24038 L .40769 .24038 L .40769 .04808 L F .404 g .40769 .04808 m .40769 .24038 L .40865 .24038 L .40865 .04808 L F .405 g .40865 .04808 m .40865 .24038 L .40962 .24038 L .40962 .04808 L F .406 g .40962 .04808 m .40962 .24038 L .41058 .24038 L .41058 .04808 L F .407 g .41058 .04808 m .41058 .24038 L .41154 .24038 L .41154 .04808 L F .408 g .41154 .04808 m .41154 .24038 L .4125 .24038 L .4125 .04808 L F .409 g .4125 .04808 m .4125 .24038 L .41346 .24038 L .41346 .04808 L F .41 g .41346 .04808 m .41346 .24038 L .41442 .24038 L .41442 .04808 L F .411 g .41442 .04808 m .41442 .24038 L .41538 .24038 L .41538 .04808 L F .412 g .41538 .04808 m .41538 .24038 L .41635 .24038 L .41635 .04808 L F .413 g .41635 .04808 m .41635 .24038 L .41731 .24038 L .41731 .04808 L F .414 g .41731 .04808 m .41731 .24038 L .41827 .24038 L .41827 .04808 L F .415 g .41827 .04808 m .41827 .24038 L .41923 .24038 L .41923 .04808 L F .416 g .41923 .04808 m .41923 .24038 L .42019 .24038 L .42019 .04808 L F .417 g .42019 .04808 m .42019 .24038 L .42115 .24038 L .42115 .04808 L F .418 g .42115 .04808 m .42115 .24038 L .42212 .24038 L .42212 .04808 L F .419 g .42212 .04808 m .42212 .24038 L .42308 .24038 L .42308 .04808 L F .42 g .42308 .04808 m .42308 .24038 L .42404 .24038 L .42404 .04808 L F .421 g .42404 .04808 m .42404 .24038 L .425 .24038 L .425 .04808 L F .422 g .425 .04808 m .425 .24038 L .42596 .24038 L .42596 .04808 L F .423 g .42596 .04808 m .42596 .24038 L .42692 .24038 L .42692 .04808 L F .424 g .42692 .04808 m .42692 .24038 L .42788 .24038 L .42788 .04808 L F .425 g .42788 .04808 m .42788 .24038 L .42885 .24038 L .42885 .04808 L F .426 g .42885 .04808 m .42885 .24038 L .42981 .24038 L .42981 .04808 L F .427 g .42981 .04808 m .42981 .24038 L .43077 .24038 L .43077 .04808 L F .428 g .43077 .04808 m .43077 .24038 L .43173 .24038 L .43173 .04808 L F .429 g .43173 .04808 m .43173 .24038 L .43269 .24038 L .43269 .04808 L F .43 g .43269 .04808 m .43269 .24038 L .43365 .24038 L .43365 .04808 L F .431 g .43365 .04808 m .43365 .24038 L .43462 .24038 L .43462 .04808 L F .432 g .43462 .04808 m .43462 .24038 L .43558 .24038 L .43558 .04808 L F .433 g .43558 .04808 m .43558 .24038 L .43654 .24038 L .43654 .04808 L F .434 g .43654 .04808 m .43654 .24038 L .4375 .24038 L .4375 .04808 L F .435 g .4375 .04808 m .4375 .24038 L .43846 .24038 L .43846 .04808 L F .436 g .43846 .04808 m .43846 .24038 L .43942 .24038 L .43942 .04808 L F .437 g .43942 .04808 m .43942 .24038 L .44038 .24038 L .44038 .04808 L F .438 g .44038 .04808 m .44038 .24038 L .44135 .24038 L .44135 .04808 L F .439 g .44135 .04808 m .44135 .24038 L .44231 .24038 L .44231 .04808 L F .44 g .44231 .04808 m .44231 .24038 L .44327 .24038 L .44327 .04808 L F .441 g .44327 .04808 m .44327 .24038 L .44423 .24038 L .44423 .04808 L F .442 g .44423 .04808 m .44423 .24038 L .44519 .24038 L .44519 .04808 L F .443 g .44519 .04808 m .44519 .24038 L .44615 .24038 L .44615 .04808 L F .444 g .44615 .04808 m .44615 .24038 L .44712 .24038 L .44712 .04808 L F .445 g .44712 .04808 m .44712 .24038 L .44808 .24038 L .44808 .04808 L F .446 g .44808 .04808 m .44808 .24038 L .44904 .24038 L .44904 .04808 L F .447 g .44904 .04808 m .44904 .24038 L .45 .24038 L .45 .04808 L F .448 g .45 .04808 m .45 .24038 L .45096 .24038 L .45096 .04808 L F .449 g .45096 .04808 m .45096 .24038 L .45192 .24038 L .45192 .04808 L F .45 g .45192 .04808 m .45192 .24038 L .45288 .24038 L .45288 .04808 L F .451 g .45288 .04808 m .45288 .24038 L .45385 .24038 L .45385 .04808 L F .452 g .45385 .04808 m .45385 .24038 L .45481 .24038 L .45481 .04808 L F .453 g .45481 .04808 m .45481 .24038 L .45577 .24038 L .45577 .04808 L F .454 g .45577 .04808 m .45577 .24038 L .45673 .24038 L .45673 .04808 L F .455 g .45673 .04808 m .45673 .24038 L .45769 .24038 L .45769 .04808 L F .456 g .45769 .04808 m .45769 .24038 L .45865 .24038 L .45865 .04808 L F .457 g .45865 .04808 m .45865 .24038 L .45962 .24038 L .45962 .04808 L F .458 g .45962 .04808 m .45962 .24038 L .46058 .24038 L .46058 .04808 L F .459 g .46058 .04808 m .46058 .24038 L .46154 .24038 L .46154 .04808 L F .46 g .46154 .04808 m .46154 .24038 L .4625 .24038 L .4625 .04808 L F .461 g .4625 .04808 m .4625 .24038 L .46346 .24038 L .46346 .04808 L F .462 g .46346 .04808 m .46346 .24038 L .46442 .24038 L .46442 .04808 L F .463 g .46442 .04808 m .46442 .24038 L .46538 .24038 L .46538 .04808 L F .464 g .46538 .04808 m .46538 .24038 L .46635 .24038 L .46635 .04808 L F .465 g .46635 .04808 m .46635 .24038 L .46731 .24038 L .46731 .04808 L F .466 g .46731 .04808 m .46731 .24038 L .46827 .24038 L .46827 .04808 L F .467 g .46827 .04808 m .46827 .24038 L .46923 .24038 L .46923 .04808 L F .468 g .46923 .04808 m .46923 .24038 L .47019 .24038 L .47019 .04808 L F .469 g .47019 .04808 m .47019 .24038 L .47115 .24038 L .47115 .04808 L F .47 g .47115 .04808 m .47115 .24038 L .47212 .24038 L .47212 .04808 L F .471 g .47212 .04808 m .47212 .24038 L .47308 .24038 L .47308 .04808 L F .472 g .47308 .04808 m .47308 .24038 L .47404 .24038 L .47404 .04808 L F .473 g .47404 .04808 m .47404 .24038 L .475 .24038 L .475 .04808 L F .474 g .475 .04808 m .475 .24038 L .47596 .24038 L .47596 .04808 L F .475 g .47596 .04808 m .47596 .24038 L .47692 .24038 L .47692 .04808 L F .476 g .47692 .04808 m .47692 .24038 L .47788 .24038 L .47788 .04808 L F .477 g .47788 .04808 m .47788 .24038 L .47885 .24038 L .47885 .04808 L F .478 g .47885 .04808 m .47885 .24038 L .47981 .24038 L .47981 .04808 L F .479 g .47981 .04808 m .47981 .24038 L .48077 .24038 L .48077 .04808 L F .48 g .48077 .04808 m .48077 .24038 L .48173 .24038 L .48173 .04808 L F .481 g .48173 .04808 m .48173 .24038 L .48269 .24038 L .48269 .04808 L F .482 g .48269 .04808 m .48269 .24038 L .48365 .24038 L .48365 .04808 L F .483 g .48365 .04808 m .48365 .24038 L .48462 .24038 L .48462 .04808 L F .484 g .48462 .04808 m .48462 .24038 L .48558 .24038 L .48558 .04808 L F .485 g .48558 .04808 m .48558 .24038 L .48654 .24038 L .48654 .04808 L F .486 g .48654 .04808 m .48654 .24038 L .4875 .24038 L .4875 .04808 L F .487 g .4875 .04808 m .4875 .24038 L .48846 .24038 L .48846 .04808 L F .488 g .48846 .04808 m .48846 .24038 L .48942 .24038 L .48942 .04808 L F .489 g .48942 .04808 m .48942 .24038 L .49038 .24038 L .49038 .04808 L F .49 g .49038 .04808 m .49038 .24038 L .49135 .24038 L .49135 .04808 L F .491 g .49135 .04808 m .49135 .24038 L .49231 .24038 L .49231 .04808 L F .492 g .49231 .04808 m .49231 .24038 L .49327 .24038 L .49327 .04808 L F .493 g .49327 .04808 m .49327 .24038 L .49423 .24038 L .49423 .04808 L F .494 g .49423 .04808 m .49423 .24038 L .49519 .24038 L .49519 .04808 L F .495 g .49519 .04808 m .49519 .24038 L .49615 .24038 L .49615 .04808 L F .496 g .49615 .04808 m .49615 .24038 L .49712 .24038 L .49712 .04808 L F .497 g .49712 .04808 m .49712 .24038 L .49808 .24038 L .49808 .04808 L F .498 g .49808 .04808 m .49808 .24038 L .49904 .24038 L .49904 .04808 L F .499 g .49904 .04808 m .49904 .24038 L .5 .24038 L .5 .04808 L F .5 g .5 .04808 m .5 .24038 L .50096 .24038 L .50096 .04808 L F .501 g .50096 .04808 m .50096 .24038 L .50192 .24038 L .50192 .04808 L F .502 g .50192 .04808 m .50192 .24038 L .50288 .24038 L .50288 .04808 L F .503 g .50288 .04808 m .50288 .24038 L .50385 .24038 L .50385 .04808 L F .504 g .50385 .04808 m .50385 .24038 L .50481 .24038 L .50481 .04808 L F .505 g .50481 .04808 m .50481 .24038 L .50577 .24038 L .50577 .04808 L F .506 g .50577 .04808 m .50577 .24038 L .50673 .24038 L .50673 .04808 L F .507 g .50673 .04808 m .50673 .24038 L .50769 .24038 L .50769 .04808 L F .508 g .50769 .04808 m .50769 .24038 L .50865 .24038 L .50865 .04808 L F .509 g .50865 .04808 m .50865 .24038 L .50962 .24038 L .50962 .04808 L F .51 g .50962 .04808 m .50962 .24038 L .51058 .24038 L .51058 .04808 L F .511 g .51058 .04808 m .51058 .24038 L .51154 .24038 L .51154 .04808 L F .512 g .51154 .04808 m .51154 .24038 L .5125 .24038 L .5125 .04808 L F .513 g .5125 .04808 m .5125 .24038 L .51346 .24038 L .51346 .04808 L F .514 g .51346 .04808 m .51346 .24038 L .51442 .24038 L .51442 .04808 L F .515 g .51442 .04808 m .51442 .24038 L .51538 .24038 L .51538 .04808 L F .516 g .51538 .04808 m .51538 .24038 L .51635 .24038 L .51635 .04808 L F .517 g .51635 .04808 m .51635 .24038 L .51731 .24038 L .51731 .04808 L F .518 g .51731 .04808 m .51731 .24038 L .51827 .24038 L .51827 .04808 L F .519 g .51827 .04808 m .51827 .24038 L .51923 .24038 L .51923 .04808 L F .52 g .51923 .04808 m .51923 .24038 L .52019 .24038 L .52019 .04808 L F .521 g .52019 .04808 m .52019 .24038 L .52115 .24038 L .52115 .04808 L F .522 g .52115 .04808 m .52115 .24038 L .52212 .24038 L .52212 .04808 L F .523 g .52212 .04808 m .52212 .24038 L .52308 .24038 L .52308 .04808 L F .524 g .52308 .04808 m .52308 .24038 L .52404 .24038 L .52404 .04808 L F .525 g .52404 .04808 m .52404 .24038 L .525 .24038 L .525 .04808 L F .526 g .525 .04808 m .525 .24038 L .52596 .24038 L .52596 .04808 L F .527 g .52596 .04808 m .52596 .24038 L .52692 .24038 L .52692 .04808 L F .528 g .52692 .04808 m .52692 .24038 L .52788 .24038 L .52788 .04808 L F .529 g .52788 .04808 m .52788 .24038 L .52885 .24038 L .52885 .04808 L F .53 g .52885 .04808 m .52885 .24038 L .52981 .24038 L .52981 .04808 L F .531 g .52981 .04808 m .52981 .24038 L .53077 .24038 L .53077 .04808 L F .532 g .53077 .04808 m .53077 .24038 L .53173 .24038 L .53173 .04808 L F .533 g .53173 .04808 m .53173 .24038 L .53269 .24038 L .53269 .04808 L F .534 g .53269 .04808 m .53269 .24038 L .53365 .24038 L .53365 .04808 L F .535 g .53365 .04808 m .53365 .24038 L .53462 .24038 L .53462 .04808 L F .536 g .53462 .04808 m .53462 .24038 L .53558 .24038 L .53558 .04808 L F .537 g .53558 .04808 m .53558 .24038 L .53654 .24038 L .53654 .04808 L F .538 g .53654 .04808 m .53654 .24038 L .5375 .24038 L .5375 .04808 L F .539 g .5375 .04808 m .5375 .24038 L .53846 .24038 L .53846 .04808 L F .54 g .53846 .04808 m .53846 .24038 L .53942 .24038 L .53942 .04808 L F .541 g .53942 .04808 m .53942 .24038 L .54038 .24038 L .54038 .04808 L F .542 g .54038 .04808 m .54038 .24038 L .54135 .24038 L .54135 .04808 L F .543 g .54135 .04808 m .54135 .24038 L .54231 .24038 L .54231 .04808 L F .544 g .54231 .04808 m .54231 .24038 L .54327 .24038 L .54327 .04808 L F .545 g .54327 .04808 m .54327 .24038 L .54423 .24038 L .54423 .04808 L F .546 g .54423 .04808 m .54423 .24038 L .54519 .24038 L .54519 .04808 L F .547 g .54519 .04808 m .54519 .24038 L .54615 .24038 L .54615 .04808 L F .548 g .54615 .04808 m .54615 .24038 L .54712 .24038 L .54712 .04808 L F .549 g .54712 .04808 m .54712 .24038 L .54808 .24038 L .54808 .04808 L F .55 g .54808 .04808 m .54808 .24038 L .54904 .24038 L .54904 .04808 L F .551 g .54904 .04808 m .54904 .24038 L .55 .24038 L .55 .04808 L F .552 g .55 .04808 m .55 .24038 L .55096 .24038 L .55096 .04808 L F .553 g .55096 .04808 m .55096 .24038 L .55192 .24038 L .55192 .04808 L F .554 g .55192 .04808 m .55192 .24038 L .55288 .24038 L .55288 .04808 L F .555 g .55288 .04808 m .55288 .24038 L .55385 .24038 L .55385 .04808 L F .556 g .55385 .04808 m .55385 .24038 L .55481 .24038 L .55481 .04808 L F .557 g .55481 .04808 m .55481 .24038 L .55577 .24038 L .55577 .04808 L F .558 g .55577 .04808 m .55577 .24038 L .55673 .24038 L .55673 .04808 L F .559 g .55673 .04808 m .55673 .24038 L .55769 .24038 L .55769 .04808 L F .56 g .55769 .04808 m .55769 .24038 L .55865 .24038 L .55865 .04808 L F .561 g .55865 .04808 m .55865 .24038 L .55962 .24038 L .55962 .04808 L F .562 g .55962 .04808 m .55962 .24038 L .56058 .24038 L .56058 .04808 L F .563 g .56058 .04808 m .56058 .24038 L .56154 .24038 L .56154 .04808 L F .564 g .56154 .04808 m .56154 .24038 L .5625 .24038 L .5625 .04808 L F .565 g .5625 .04808 m .5625 .24038 L .56346 .24038 L .56346 .04808 L F .566 g .56346 .04808 m .56346 .24038 L .56442 .24038 L .56442 .04808 L F .567 g .56442 .04808 m .56442 .24038 L .56538 .24038 L .56538 .04808 L F .568 g .56538 .04808 m .56538 .24038 L .56635 .24038 L .56635 .04808 L F .569 g .56635 .04808 m .56635 .24038 L .56731 .24038 L .56731 .04808 L F .57 g .56731 .04808 m .56731 .24038 L .56827 .24038 L .56827 .04808 L F .571 g .56827 .04808 m .56827 .24038 L .56923 .24038 L .56923 .04808 L F .572 g .56923 .04808 m .56923 .24038 L .57019 .24038 L .57019 .04808 L F .573 g .57019 .04808 m .57019 .24038 L .57115 .24038 L .57115 .04808 L F .574 g .57115 .04808 m .57115 .24038 L .57212 .24038 L .57212 .04808 L F .575 g .57212 .04808 m .57212 .24038 L .57308 .24038 L .57308 .04808 L F .576 g .57308 .04808 m .57308 .24038 L .57404 .24038 L .57404 .04808 L F .577 g .57404 .04808 m .57404 .24038 L .575 .24038 L .575 .04808 L F .578 g .575 .04808 m .575 .24038 L .57596 .24038 L .57596 .04808 L F .579 g .57596 .04808 m .57596 .24038 L .57692 .24038 L .57692 .04808 L F .58 g .57692 .04808 m .57692 .24038 L .57788 .24038 L .57788 .04808 L F .581 g .57788 .04808 m .57788 .24038 L .57885 .24038 L .57885 .04808 L F .582 g .57885 .04808 m .57885 .24038 L .57981 .24038 L .57981 .04808 L F .583 g .57981 .04808 m .57981 .24038 L .58077 .24038 L .58077 .04808 L F .584 g .58077 .04808 m .58077 .24038 L .58173 .24038 L .58173 .04808 L F .585 g .58173 .04808 m .58173 .24038 L .58269 .24038 L .58269 .04808 L F .586 g .58269 .04808 m .58269 .24038 L .58365 .24038 L .58365 .04808 L F .587 g .58365 .04808 m .58365 .24038 L .58462 .24038 L .58462 .04808 L F .588 g .58462 .04808 m .58462 .24038 L .58558 .24038 L .58558 .04808 L F .589 g .58558 .04808 m .58558 .24038 L .58654 .24038 L .58654 .04808 L F .59 g .58654 .04808 m .58654 .24038 L .5875 .24038 L .5875 .04808 L F .591 g .5875 .04808 m .5875 .24038 L .58846 .24038 L .58846 .04808 L F .592 g .58846 .04808 m .58846 .24038 L .58942 .24038 L .58942 .04808 L F .593 g .58942 .04808 m .58942 .24038 L .59038 .24038 L .59038 .04808 L F .594 g .59038 .04808 m .59038 .24038 L .59135 .24038 L .59135 .04808 L F .595 g .59135 .04808 m .59135 .24038 L .59231 .24038 L .59231 .04808 L F .596 g .59231 .04808 m .59231 .24038 L .59327 .24038 L .59327 .04808 L F .597 g .59327 .04808 m .59327 .24038 L .59423 .24038 L .59423 .04808 L F .598 g .59423 .04808 m .59423 .24038 L .59519 .24038 L .59519 .04808 L F .599 g .59519 .04808 m .59519 .24038 L .59615 .24038 L .59615 .04808 L F .6 g .59615 .04808 m .59615 .24038 L .59712 .24038 L .59712 .04808 L F .601 g .59712 .04808 m .59712 .24038 L .59808 .24038 L .59808 .04808 L F .602 g .59808 .04808 m .59808 .24038 L .59904 .24038 L .59904 .04808 L F .603 g .59904 .04808 m .59904 .24038 L .6 .24038 L .6 .04808 L F .604 g .6 .04808 m .6 .24038 L .60096 .24038 L .60096 .04808 L F .605 g .60096 .04808 m .60096 .24038 L .60192 .24038 L .60192 .04808 L F .606 g .60192 .04808 m .60192 .24038 L .60288 .24038 L .60288 .04808 L F .607 g .60288 .04808 m .60288 .24038 L .60385 .24038 L .60385 .04808 L F .608 g .60385 .04808 m .60385 .24038 L .60481 .24038 L .60481 .04808 L F .609 g .60481 .04808 m .60481 .24038 L .60577 .24038 L .60577 .04808 L F .61 g .60577 .04808 m .60577 .24038 L .60673 .24038 L .60673 .04808 L F .611 g .60673 .04808 m .60673 .24038 L .60769 .24038 L .60769 .04808 L F .612 g .60769 .04808 m .60769 .24038 L .60865 .24038 L .60865 .04808 L F .613 g .60865 .04808 m .60865 .24038 L .60962 .24038 L .60962 .04808 L F .614 g .60962 .04808 m .60962 .24038 L .61058 .24038 L .61058 .04808 L F .615 g .61058 .04808 m .61058 .24038 L .61154 .24038 L .61154 .04808 L F .616 g .61154 .04808 m .61154 .24038 L .6125 .24038 L .6125 .04808 L F .617 g .6125 .04808 m .6125 .24038 L .61346 .24038 L .61346 .04808 L F .618 g .61346 .04808 m .61346 .24038 L .61442 .24038 L .61442 .04808 L F .619 g .61442 .04808 m .61442 .24038 L .61538 .24038 L .61538 .04808 L F .62 g .61538 .04808 m .61538 .24038 L .61635 .24038 L .61635 .04808 L F .621 g .61635 .04808 m .61635 .24038 L .61731 .24038 L .61731 .04808 L F .622 g .61731 .04808 m .61731 .24038 L .61827 .24038 L .61827 .04808 L F .623 g .61827 .04808 m .61827 .24038 L .61923 .24038 L .61923 .04808 L F .624 g .61923 .04808 m .61923 .24038 L .62019 .24038 L .62019 .04808 L F .625 g .62019 .04808 m .62019 .24038 L .62115 .24038 L .62115 .04808 L F .626 g .62115 .04808 m .62115 .24038 L .62212 .24038 L .62212 .04808 L F .627 g .62212 .04808 m .62212 .24038 L .62308 .24038 L .62308 .04808 L F .628 g .62308 .04808 m .62308 .24038 L .62404 .24038 L .62404 .04808 L F .629 g .62404 .04808 m .62404 .24038 L .625 .24038 L .625 .04808 L F .63 g .625 .04808 m .625 .24038 L .62596 .24038 L .62596 .04808 L F .631 g .62596 .04808 m .62596 .24038 L .62692 .24038 L .62692 .04808 L F .632 g .62692 .04808 m .62692 .24038 L .62788 .24038 L .62788 .04808 L F .633 g .62788 .04808 m .62788 .24038 L .62885 .24038 L .62885 .04808 L F .634 g .62885 .04808 m .62885 .24038 L .62981 .24038 L .62981 .04808 L F .635 g .62981 .04808 m .62981 .24038 L .63077 .24038 L .63077 .04808 L F .636 g .63077 .04808 m .63077 .24038 L .63173 .24038 L .63173 .04808 L F .637 g .63173 .04808 m .63173 .24038 L .63269 .24038 L .63269 .04808 L F .638 g .63269 .04808 m .63269 .24038 L .63365 .24038 L .63365 .04808 L F .639 g .63365 .04808 m .63365 .24038 L .63462 .24038 L .63462 .04808 L F .64 g .63462 .04808 m .63462 .24038 L .63558 .24038 L .63558 .04808 L F .641 g .63558 .04808 m .63558 .24038 L .63654 .24038 L .63654 .04808 L F .642 g .63654 .04808 m .63654 .24038 L .6375 .24038 L .6375 .04808 L F .643 g .6375 .04808 m .6375 .24038 L .63846 .24038 L .63846 .04808 L F .644 g .63846 .04808 m .63846 .24038 L .63942 .24038 L .63942 .04808 L F .645 g .63942 .04808 m .63942 .24038 L .64038 .24038 L .64038 .04808 L F .646 g .64038 .04808 m .64038 .24038 L .64135 .24038 L .64135 .04808 L F .647 g .64135 .04808 m .64135 .24038 L .64231 .24038 L .64231 .04808 L F .648 g .64231 .04808 m .64231 .24038 L .64327 .24038 L .64327 .04808 L F .649 g .64327 .04808 m .64327 .24038 L .64423 .24038 L .64423 .04808 L F .65 g .64423 .04808 m .64423 .24038 L .64519 .24038 L .64519 .04808 L F .651 g .64519 .04808 m .64519 .24038 L .64615 .24038 L .64615 .04808 L F .652 g .64615 .04808 m .64615 .24038 L .64712 .24038 L .64712 .04808 L F .653 g .64712 .04808 m .64712 .24038 L .64808 .24038 L .64808 .04808 L F .654 g .64808 .04808 m .64808 .24038 L .64904 .24038 L .64904 .04808 L F .655 g .64904 .04808 m .64904 .24038 L .65 .24038 L .65 .04808 L F .656 g .65 .04808 m .65 .24038 L .65096 .24038 L .65096 .04808 L F .657 g .65096 .04808 m .65096 .24038 L .65192 .24038 L .65192 .04808 L F .658 g .65192 .04808 m .65192 .24038 L .65288 .24038 L .65288 .04808 L F .659 g .65288 .04808 m .65288 .24038 L .65385 .24038 L .65385 .04808 L F .66 g .65385 .04808 m .65385 .24038 L .65481 .24038 L .65481 .04808 L F .661 g .65481 .04808 m .65481 .24038 L .65577 .24038 L .65577 .04808 L F .662 g .65577 .04808 m .65577 .24038 L .65673 .24038 L .65673 .04808 L F .663 g .65673 .04808 m .65673 .24038 L .65769 .24038 L .65769 .04808 L F .664 g .65769 .04808 m .65769 .24038 L .65865 .24038 L .65865 .04808 L F .665 g .65865 .04808 m .65865 .24038 L .65962 .24038 L .65962 .04808 L F .666 g .65962 .04808 m .65962 .24038 L .66058 .24038 L .66058 .04808 L F .667 g .66058 .04808 m .66058 .24038 L .66154 .24038 L .66154 .04808 L F .668 g .66154 .04808 m .66154 .24038 L .6625 .24038 L .6625 .04808 L F .669 g .6625 .04808 m .6625 .24038 L .66346 .24038 L .66346 .04808 L F .67 g .66346 .04808 m .66346 .24038 L .66442 .24038 L .66442 .04808 L F .671 g .66442 .04808 m .66442 .24038 L .66538 .24038 L .66538 .04808 L F .672 g .66538 .04808 m .66538 .24038 L .66635 .24038 L .66635 .04808 L F .673 g .66635 .04808 m .66635 .24038 L .66731 .24038 L .66731 .04808 L F .674 g .66731 .04808 m .66731 .24038 L .66827 .24038 L .66827 .04808 L F .675 g .66827 .04808 m .66827 .24038 L .66923 .24038 L .66923 .04808 L F .676 g .66923 .04808 m .66923 .24038 L .67019 .24038 L .67019 .04808 L F .677 g .67019 .04808 m .67019 .24038 L .67115 .24038 L .67115 .04808 L F .678 g .67115 .04808 m .67115 .24038 L .67212 .24038 L .67212 .04808 L F .679 g .67212 .04808 m .67212 .24038 L .67308 .24038 L .67308 .04808 L F .68 g .67308 .04808 m .67308 .24038 L .67404 .24038 L .67404 .04808 L F .681 g .67404 .04808 m .67404 .24038 L .675 .24038 L .675 .04808 L F .682 g .675 .04808 m .675 .24038 L .67596 .24038 L .67596 .04808 L F .683 g .67596 .04808 m .67596 .24038 L .67692 .24038 L .67692 .04808 L F .684 g .67692 .04808 m .67692 .24038 L .67788 .24038 L .67788 .04808 L F .685 g .67788 .04808 m .67788 .24038 L .67885 .24038 L .67885 .04808 L F .686 g .67885 .04808 m .67885 .24038 L .67981 .24038 L .67981 .04808 L F .687 g .67981 .04808 m .67981 .24038 L .68077 .24038 L .68077 .04808 L F .688 g .68077 .04808 m .68077 .24038 L .68173 .24038 L .68173 .04808 L F .689 g .68173 .04808 m .68173 .24038 L .68269 .24038 L .68269 .04808 L F .69 g .68269 .04808 m .68269 .24038 L .68365 .24038 L .68365 .04808 L F .691 g .68365 .04808 m .68365 .24038 L .68462 .24038 L .68462 .04808 L F .692 g .68462 .04808 m .68462 .24038 L .68558 .24038 L .68558 .04808 L F .693 g .68558 .04808 m .68558 .24038 L .68654 .24038 L .68654 .04808 L F .694 g .68654 .04808 m .68654 .24038 L .6875 .24038 L .6875 .04808 L F .695 g .6875 .04808 m .6875 .24038 L .68846 .24038 L .68846 .04808 L F .696 g .68846 .04808 m .68846 .24038 L .68942 .24038 L .68942 .04808 L F .697 g .68942 .04808 m .68942 .24038 L .69038 .24038 L .69038 .04808 L F .698 g .69038 .04808 m .69038 .24038 L .69135 .24038 L .69135 .04808 L F .699 g .69135 .04808 m .69135 .24038 L .69231 .24038 L .69231 .04808 L F .7 g .69231 .04808 m .69231 .24038 L .69327 .24038 L .69327 .04808 L F .701 g .69327 .04808 m .69327 .24038 L .69423 .24038 L .69423 .04808 L F .702 g .69423 .04808 m .69423 .24038 L .69519 .24038 L .69519 .04808 L F .703 g .69519 .04808 m .69519 .24038 L .69615 .24038 L .69615 .04808 L F .704 g .69615 .04808 m .69615 .24038 L .69712 .24038 L .69712 .04808 L F .705 g .69712 .04808 m .69712 .24038 L .69808 .24038 L .69808 .04808 L F .706 g .69808 .04808 m .69808 .24038 L .69904 .24038 L .69904 .04808 L F .707 g .69904 .04808 m .69904 .24038 L .7 .24038 L .7 .04808 L F .708 g .7 .04808 m .7 .24038 L .70096 .24038 L .70096 .04808 L F .709 g .70096 .04808 m .70096 .24038 L .70192 .24038 L .70192 .04808 L F .71 g .70192 .04808 m .70192 .24038 L .70288 .24038 L .70288 .04808 L F .711 g .70288 .04808 m .70288 .24038 L .70385 .24038 L .70385 .04808 L F .712 g .70385 .04808 m .70385 .24038 L .70481 .24038 L .70481 .04808 L F .713 g .70481 .04808 m .70481 .24038 L .70577 .24038 L .70577 .04808 L F .714 g .70577 .04808 m .70577 .24038 L .70673 .24038 L .70673 .04808 L F .715 g .70673 .04808 m .70673 .24038 L .70769 .24038 L .70769 .04808 L F .716 g .70769 .04808 m .70769 .24038 L .70865 .24038 L .70865 .04808 L F .717 g .70865 .04808 m .70865 .24038 L .70962 .24038 L .70962 .04808 L F .718 g .70962 .04808 m .70962 .24038 L .71058 .24038 L .71058 .04808 L F .719 g .71058 .04808 m .71058 .24038 L .71154 .24038 L .71154 .04808 L F .72 g .71154 .04808 m .71154 .24038 L .7125 .24038 L .7125 .04808 L F .721 g .7125 .04808 m .7125 .24038 L .71346 .24038 L .71346 .04808 L F .722 g .71346 .04808 m .71346 .24038 L .71442 .24038 L .71442 .04808 L F .723 g .71442 .04808 m .71442 .24038 L .71538 .24038 L .71538 .04808 L F .724 g .71538 .04808 m .71538 .24038 L .71635 .24038 L .71635 .04808 L F .725 g .71635 .04808 m .71635 .24038 L .71731 .24038 L .71731 .04808 L F .726 g .71731 .04808 m .71731 .24038 L .71827 .24038 L .71827 .04808 L F .727 g .71827 .04808 m .71827 .24038 L .71923 .24038 L .71923 .04808 L F .728 g .71923 .04808 m .71923 .24038 L .72019 .24038 L .72019 .04808 L F .729 g .72019 .04808 m .72019 .24038 L .72115 .24038 L .72115 .04808 L F .73 g .72115 .04808 m .72115 .24038 L .72212 .24038 L .72212 .04808 L F .731 g .72212 .04808 m .72212 .24038 L .72308 .24038 L .72308 .04808 L F .732 g .72308 .04808 m .72308 .24038 L .72404 .24038 L .72404 .04808 L F .733 g .72404 .04808 m .72404 .24038 L .725 .24038 L .725 .04808 L F .734 g .725 .04808 m .725 .24038 L .72596 .24038 L .72596 .04808 L F .735 g .72596 .04808 m .72596 .24038 L .72692 .24038 L .72692 .04808 L F .736 g .72692 .04808 m .72692 .24038 L .72788 .24038 L .72788 .04808 L F .737 g .72788 .04808 m .72788 .24038 L .72885 .24038 L .72885 .04808 L F .738 g .72885 .04808 m .72885 .24038 L .72981 .24038 L .72981 .04808 L F .739 g .72981 .04808 m .72981 .24038 L .73077 .24038 L .73077 .04808 L F .74 g .73077 .04808 m .73077 .24038 L .73173 .24038 L .73173 .04808 L F .741 g .73173 .04808 m .73173 .24038 L .73269 .24038 L .73269 .04808 L F .742 g .73269 .04808 m .73269 .24038 L .73365 .24038 L .73365 .04808 L F .743 g .73365 .04808 m .73365 .24038 L .73462 .24038 L .73462 .04808 L F .744 g .73462 .04808 m .73462 .24038 L .73558 .24038 L .73558 .04808 L F .745 g .73558 .04808 m .73558 .24038 L .73654 .24038 L .73654 .04808 L F .746 g .73654 .04808 m .73654 .24038 L .7375 .24038 L .7375 .04808 L F .747 g .7375 .04808 m .7375 .24038 L .73846 .24038 L .73846 .04808 L F .748 g .73846 .04808 m .73846 .24038 L .73942 .24038 L .73942 .04808 L F .749 g .73942 .04808 m .73942 .24038 L .74038 .24038 L .74038 .04808 L F .75 g .74038 .04808 m .74038 .24038 L .74135 .24038 L .74135 .04808 L F .751 g .74135 .04808 m .74135 .24038 L .74231 .24038 L .74231 .04808 L F .752 g .74231 .04808 m .74231 .24038 L .74327 .24038 L .74327 .04808 L F .753 g .74327 .04808 m .74327 .24038 L .74423 .24038 L .74423 .04808 L F .754 g .74423 .04808 m .74423 .24038 L .74519 .24038 L .74519 .04808 L F .755 g .74519 .04808 m .74519 .24038 L .74615 .24038 L .74615 .04808 L F .756 g .74615 .04808 m .74615 .24038 L .74712 .24038 L .74712 .04808 L F .757 g .74712 .04808 m .74712 .24038 L .74808 .24038 L .74808 .04808 L F .758 g .74808 .04808 m .74808 .24038 L .74904 .24038 L .74904 .04808 L F .759 g .74904 .04808 m .74904 .24038 L .75 .24038 L .75 .04808 L F .76 g .75 .04808 m .75 .24038 L .75096 .24038 L .75096 .04808 L F .761 g .75096 .04808 m .75096 .24038 L .75192 .24038 L .75192 .04808 L F .762 g .75192 .04808 m .75192 .24038 L .75288 .24038 L .75288 .04808 L F .763 g .75288 .04808 m .75288 .24038 L .75385 .24038 L .75385 .04808 L F .764 g .75385 .04808 m .75385 .24038 L .75481 .24038 L .75481 .04808 L F .765 g .75481 .04808 m .75481 .24038 L .75577 .24038 L .75577 .04808 L F .766 g .75577 .04808 m .75577 .24038 L .75673 .24038 L .75673 .04808 L F .767 g .75673 .04808 m .75673 .24038 L .75769 .24038 L .75769 .04808 L F .768 g .75769 .04808 m .75769 .24038 L .75865 .24038 L .75865 .04808 L F .769 g .75865 .04808 m .75865 .24038 L .75962 .24038 L .75962 .04808 L F .77 g .75962 .04808 m .75962 .24038 L .76058 .24038 L .76058 .04808 L F .771 g .76058 .04808 m .76058 .24038 L .76154 .24038 L .76154 .04808 L F .772 g .76154 .04808 m .76154 .24038 L .7625 .24038 L .7625 .04808 L F .773 g .7625 .04808 m .7625 .24038 L .76346 .24038 L .76346 .04808 L F .774 g .76346 .04808 m .76346 .24038 L .76442 .24038 L .76442 .04808 L F .775 g .76442 .04808 m .76442 .24038 L .76538 .24038 L .76538 .04808 L F .776 g .76538 .04808 m .76538 .24038 L .76635 .24038 L .76635 .04808 L F .777 g .76635 .04808 m .76635 .24038 L .76731 .24038 L .76731 .04808 L F .778 g .76731 .04808 m .76731 .24038 L .76827 .24038 L .76827 .04808 L F .779 g .76827 .04808 m .76827 .24038 L .76923 .24038 L .76923 .04808 L F .78 g .76923 .04808 m .76923 .24038 L .77019 .24038 L .77019 .04808 L F .781 g .77019 .04808 m .77019 .24038 L .77115 .24038 L .77115 .04808 L F .782 g .77115 .04808 m .77115 .24038 L .77212 .24038 L .77212 .04808 L F .783 g .77212 .04808 m .77212 .24038 L .77308 .24038 L .77308 .04808 L F .784 g .77308 .04808 m .77308 .24038 L .77404 .24038 L .77404 .04808 L F .785 g .77404 .04808 m .77404 .24038 L .775 .24038 L .775 .04808 L F .786 g .775 .04808 m .775 .24038 L .77596 .24038 L .77596 .04808 L F .787 g .77596 .04808 m .77596 .24038 L .77692 .24038 L .77692 .04808 L F .788 g .77692 .04808 m .77692 .24038 L .77788 .24038 L .77788 .04808 L F .789 g .77788 .04808 m .77788 .24038 L .77885 .24038 L .77885 .04808 L F .79 g .77885 .04808 m .77885 .24038 L .77981 .24038 L .77981 .04808 L F .791 g .77981 .04808 m .77981 .24038 L .78077 .24038 L .78077 .04808 L F .792 g .78077 .04808 m .78077 .24038 L .78173 .24038 L .78173 .04808 L F .793 g .78173 .04808 m .78173 .24038 L .78269 .24038 L .78269 .04808 L F .794 g .78269 .04808 m .78269 .24038 L .78365 .24038 L .78365 .04808 L F .795 g .78365 .04808 m .78365 .24038 L .78462 .24038 L .78462 .04808 L F .796 g .78462 .04808 m .78462 .24038 L .78558 .24038 L .78558 .04808 L F .797 g .78558 .04808 m .78558 .24038 L .78654 .24038 L .78654 .04808 L F .798 g .78654 .04808 m .78654 .24038 L .7875 .24038 L .7875 .04808 L F .799 g .7875 .04808 m .7875 .24038 L .78846 .24038 L .78846 .04808 L F .8 g .78846 .04808 m .78846 .24038 L .78942 .24038 L .78942 .04808 L F .801 g .78942 .04808 m .78942 .24038 L .79038 .24038 L .79038 .04808 L F .802 g .79038 .04808 m .79038 .24038 L .79135 .24038 L .79135 .04808 L F .803 g .79135 .04808 m .79135 .24038 L .79231 .24038 L .79231 .04808 L F .804 g .79231 .04808 m .79231 .24038 L .79327 .24038 L .79327 .04808 L F .805 g .79327 .04808 m .79327 .24038 L .79423 .24038 L .79423 .04808 L F .806 g .79423 .04808 m .79423 .24038 L .79519 .24038 L .79519 .04808 L F .807 g .79519 .04808 m .79519 .24038 L .79615 .24038 L .79615 .04808 L F .808 g .79615 .04808 m .79615 .24038 L .79712 .24038 L .79712 .04808 L F .809 g .79712 .04808 m .79712 .24038 L .79808 .24038 L .79808 .04808 L F .81 g .79808 .04808 m .79808 .24038 L .79904 .24038 L .79904 .04808 L F .811 g .79904 .04808 m .79904 .24038 L .8 .24038 L .8 .04808 L F .812 g .8 .04808 m .8 .24038 L .80096 .24038 L .80096 .04808 L F .813 g .80096 .04808 m .80096 .24038 L .80192 .24038 L .80192 .04808 L F .814 g .80192 .04808 m .80192 .24038 L .80288 .24038 L .80288 .04808 L F .815 g .80288 .04808 m .80288 .24038 L .80385 .24038 L .80385 .04808 L F .816 g .80385 .04808 m .80385 .24038 L .80481 .24038 L .80481 .04808 L F .817 g .80481 .04808 m .80481 .24038 L .80577 .24038 L .80577 .04808 L F .818 g .80577 .04808 m .80577 .24038 L .80673 .24038 L .80673 .04808 L F .819 g .80673 .04808 m .80673 .24038 L .80769 .24038 L .80769 .04808 L F .82 g .80769 .04808 m .80769 .24038 L .80865 .24038 L .80865 .04808 L F .821 g .80865 .04808 m .80865 .24038 L .80962 .24038 L .80962 .04808 L F .822 g .80962 .04808 m .80962 .24038 L .81058 .24038 L .81058 .04808 L F .823 g .81058 .04808 m .81058 .24038 L .81154 .24038 L .81154 .04808 L F .824 g .81154 .04808 m .81154 .24038 L .8125 .24038 L .8125 .04808 L F .825 g .8125 .04808 m .8125 .24038 L .81346 .24038 L .81346 .04808 L F .826 g .81346 .04808 m .81346 .24038 L .81442 .24038 L .81442 .04808 L F .827 g .81442 .04808 m .81442 .24038 L .81538 .24038 L .81538 .04808 L F .828 g .81538 .04808 m .81538 .24038 L .81635 .24038 L .81635 .04808 L F .829 g .81635 .04808 m .81635 .24038 L .81731 .24038 L .81731 .04808 L F .83 g .81731 .04808 m .81731 .24038 L .81827 .24038 L .81827 .04808 L F .831 g .81827 .04808 m .81827 .24038 L .81923 .24038 L .81923 .04808 L F .832 g .81923 .04808 m .81923 .24038 L .82019 .24038 L .82019 .04808 L F .833 g .82019 .04808 m .82019 .24038 L .82115 .24038 L .82115 .04808 L F .834 g .82115 .04808 m .82115 .24038 L .82212 .24038 L .82212 .04808 L F .835 g .82212 .04808 m .82212 .24038 L .82308 .24038 L .82308 .04808 L F .836 g .82308 .04808 m .82308 .24038 L .82404 .24038 L .82404 .04808 L F .837 g .82404 .04808 m .82404 .24038 L .825 .24038 L .825 .04808 L F .838 g .825 .04808 m .825 .24038 L .82596 .24038 L .82596 .04808 L F .839 g .82596 .04808 m .82596 .24038 L .82692 .24038 L .82692 .04808 L F .84 g .82692 .04808 m .82692 .24038 L .82788 .24038 L .82788 .04808 L F .841 g .82788 .04808 m .82788 .24038 L .82885 .24038 L .82885 .04808 L F .842 g .82885 .04808 m .82885 .24038 L .82981 .24038 L .82981 .04808 L F .843 g .82981 .04808 m .82981 .24038 L .83077 .24038 L .83077 .04808 L F .844 g .83077 .04808 m .83077 .24038 L .83173 .24038 L .83173 .04808 L F .845 g .83173 .04808 m .83173 .24038 L .83269 .24038 L .83269 .04808 L F .846 g .83269 .04808 m .83269 .24038 L .83365 .24038 L .83365 .04808 L F .847 g .83365 .04808 m .83365 .24038 L .83462 .24038 L .83462 .04808 L F .848 g .83462 .04808 m .83462 .24038 L .83558 .24038 L .83558 .04808 L F .849 g .83558 .04808 m .83558 .24038 L .83654 .24038 L .83654 .04808 L F .85 g .83654 .04808 m .83654 .24038 L .8375 .24038 L .8375 .04808 L F .851 g .8375 .04808 m .8375 .24038 L .83846 .24038 L .83846 .04808 L F .852 g .83846 .04808 m .83846 .24038 L .83942 .24038 L .83942 .04808 L F .853 g .83942 .04808 m .83942 .24038 L .84038 .24038 L .84038 .04808 L F .854 g .84038 .04808 m .84038 .24038 L .84135 .24038 L .84135 .04808 L F .855 g .84135 .04808 m .84135 .24038 L .84231 .24038 L .84231 .04808 L F .856 g .84231 .04808 m .84231 .24038 L .84327 .24038 L .84327 .04808 L F .857 g .84327 .04808 m .84327 .24038 L .84423 .24038 L .84423 .04808 L F .858 g .84423 .04808 m .84423 .24038 L .84519 .24038 L .84519 .04808 L F .859 g .84519 .04808 m .84519 .24038 L .84615 .24038 L .84615 .04808 L F .86 g .84615 .04808 m .84615 .24038 L .84712 .24038 L .84712 .04808 L F .861 g .84712 .04808 m .84712 .24038 L .84808 .24038 L .84808 .04808 L F .862 g .84808 .04808 m .84808 .24038 L .84904 .24038 L .84904 .04808 L F .863 g .84904 .04808 m .84904 .24038 L .85 .24038 L .85 .04808 L F .864 g .85 .04808 m .85 .24038 L .85096 .24038 L .85096 .04808 L F .865 g .85096 .04808 m .85096 .24038 L .85192 .24038 L .85192 .04808 L F .866 g .85192 .04808 m .85192 .24038 L .85288 .24038 L .85288 .04808 L F .867 g .85288 .04808 m .85288 .24038 L .85385 .24038 L .85385 .04808 L F .868 g .85385 .04808 m .85385 .24038 L .85481 .24038 L .85481 .04808 L F .869 g .85481 .04808 m .85481 .24038 L .85577 .24038 L .85577 .04808 L F .87 g .85577 .04808 m .85577 .24038 L .85673 .24038 L .85673 .04808 L F .871 g .85673 .04808 m .85673 .24038 L .85769 .24038 L .85769 .04808 L F .872 g .85769 .04808 m .85769 .24038 L .85865 .24038 L .85865 .04808 L F .873 g .85865 .04808 m .85865 .24038 L .85962 .24038 L .85962 .04808 L F .874 g .85962 .04808 m .85962 .24038 L .86058 .24038 L .86058 .04808 L F .875 g .86058 .04808 m .86058 .24038 L .86154 .24038 L .86154 .04808 L F .876 g .86154 .04808 m .86154 .24038 L .8625 .24038 L .8625 .04808 L F .877 g .8625 .04808 m .8625 .24038 L .86346 .24038 L .86346 .04808 L F .878 g .86346 .04808 m .86346 .24038 L .86442 .24038 L .86442 .04808 L F .879 g .86442 .04808 m .86442 .24038 L .86538 .24038 L .86538 .04808 L F .88 g .86538 .04808 m .86538 .24038 L .86635 .24038 L .86635 .04808 L F .881 g .86635 .04808 m .86635 .24038 L .86731 .24038 L .86731 .04808 L F .882 g .86731 .04808 m .86731 .24038 L .86827 .24038 L .86827 .04808 L F .883 g .86827 .04808 m .86827 .24038 L .86923 .24038 L .86923 .04808 L F .884 g .86923 .04808 m .86923 .24038 L .87019 .24038 L .87019 .04808 L F .885 g .87019 .04808 m .87019 .24038 L .87115 .24038 L .87115 .04808 L F .886 g .87115 .04808 m .87115 .24038 L .87212 .24038 L .87212 .04808 L F .887 g .87212 .04808 m .87212 .24038 L .87308 .24038 L .87308 .04808 L F .888 g .87308 .04808 m .87308 .24038 L .87404 .24038 L .87404 .04808 L F .889 g .87404 .04808 m .87404 .24038 L .875 .24038 L .875 .04808 L F .89 g .875 .04808 m .875 .24038 L .87596 .24038 L .87596 .04808 L F .891 g .87596 .04808 m .87596 .24038 L .87692 .24038 L .87692 .04808 L F .892 g .87692 .04808 m .87692 .24038 L .87788 .24038 L .87788 .04808 L F .893 g .87788 .04808 m .87788 .24038 L .87885 .24038 L .87885 .04808 L F .894 g .87885 .04808 m .87885 .24038 L .87981 .24038 L .87981 .04808 L F .895 g .87981 .04808 m .87981 .24038 L .88077 .24038 L .88077 .04808 L F .896 g .88077 .04808 m .88077 .24038 L .88173 .24038 L .88173 .04808 L F .897 g .88173 .04808 m .88173 .24038 L .88269 .24038 L .88269 .04808 L F .898 g .88269 .04808 m .88269 .24038 L .88365 .24038 L .88365 .04808 L F .899 g .88365 .04808 m .88365 .24038 L .88462 .24038 L .88462 .04808 L F .9 g .88462 .04808 m .88462 .24038 L .88558 .24038 L .88558 .04808 L F .901 g .88558 .04808 m .88558 .24038 L .88654 .24038 L .88654 .04808 L F .902 g .88654 .04808 m .88654 .24038 L .8875 .24038 L .8875 .04808 L F .903 g .8875 .04808 m .8875 .24038 L .88846 .24038 L .88846 .04808 L F .904 g .88846 .04808 m .88846 .24038 L .88942 .24038 L .88942 .04808 L F .905 g .88942 .04808 m .88942 .24038 L .89038 .24038 L .89038 .04808 L F .906 g .89038 .04808 m .89038 .24038 L .89135 .24038 L .89135 .04808 L F .907 g .89135 .04808 m .89135 .24038 L .89231 .24038 L .89231 .04808 L F .908 g .89231 .04808 m .89231 .24038 L .89327 .24038 L .89327 .04808 L F .909 g .89327 .04808 m .89327 .24038 L .89423 .24038 L .89423 .04808 L F .91 g .89423 .04808 m .89423 .24038 L .89519 .24038 L .89519 .04808 L F .911 g .89519 .04808 m .89519 .24038 L .89615 .24038 L .89615 .04808 L F .912 g .89615 .04808 m .89615 .24038 L .89712 .24038 L .89712 .04808 L F .913 g .89712 .04808 m .89712 .24038 L .89808 .24038 L .89808 .04808 L F .914 g .89808 .04808 m .89808 .24038 L .89904 .24038 L .89904 .04808 L F .915 g .89904 .04808 m .89904 .24038 L .9 .24038 L .9 .04808 L F .916 g .9 .04808 m .9 .24038 L .90096 .24038 L .90096 .04808 L F .917 g .90096 .04808 m .90096 .24038 L .90192 .24038 L .90192 .04808 L F .918 g .90192 .04808 m .90192 .24038 L .90288 .24038 L .90288 .04808 L F .919 g .90288 .04808 m .90288 .24038 L .90385 .24038 L .90385 .04808 L F .92 g .90385 .04808 m .90385 .24038 L .90481 .24038 L .90481 .04808 L F .921 g .90481 .04808 m .90481 .24038 L .90577 .24038 L .90577 .04808 L F .922 g .90577 .04808 m .90577 .24038 L .90673 .24038 L .90673 .04808 L F .923 g .90673 .04808 m .90673 .24038 L .90769 .24038 L .90769 .04808 L F .924 g .90769 .04808 m .90769 .24038 L .90865 .24038 L .90865 .04808 L F .925 g .90865 .04808 m .90865 .24038 L .90962 .24038 L .90962 .04808 L F .926 g .90962 .04808 m .90962 .24038 L .91058 .24038 L .91058 .04808 L F .927 g .91058 .04808 m .91058 .24038 L .91154 .24038 L .91154 .04808 L F .928 g .91154 .04808 m .91154 .24038 L .9125 .24038 L .9125 .04808 L F .929 g .9125 .04808 m .9125 .24038 L .91346 .24038 L .91346 .04808 L F .93 g .91346 .04808 m .91346 .24038 L .91442 .24038 L .91442 .04808 L F .931 g .91442 .04808 m .91442 .24038 L .91538 .24038 L .91538 .04808 L F .932 g .91538 .04808 m .91538 .24038 L .91635 .24038 L .91635 .04808 L F .933 g .91635 .04808 m .91635 .24038 L .91731 .24038 L .91731 .04808 L F .934 g .91731 .04808 m .91731 .24038 L .91827 .24038 L .91827 .04808 L F .935 g .91827 .04808 m .91827 .24038 L .91923 .24038 L .91923 .04808 L F .936 g .91923 .04808 m .91923 .24038 L .92019 .24038 L .92019 .04808 L F .937 g .92019 .04808 m .92019 .24038 L .92115 .24038 L .92115 .04808 L F .938 g .92115 .04808 m .92115 .24038 L .92212 .24038 L .92212 .04808 L F .939 g .92212 .04808 m .92212 .24038 L .92308 .24038 L .92308 .04808 L F .94 g .92308 .04808 m .92308 .24038 L .92404 .24038 L .92404 .04808 L F .941 g .92404 .04808 m .92404 .24038 L .925 .24038 L .925 .04808 L F .942 g .925 .04808 m .925 .24038 L .92596 .24038 L .92596 .04808 L F .943 g .92596 .04808 m .92596 .24038 L .92692 .24038 L .92692 .04808 L F .944 g .92692 .04808 m .92692 .24038 L .92788 .24038 L .92788 .04808 L F .945 g .92788 .04808 m .92788 .24038 L .92885 .24038 L .92885 .04808 L F .946 g .92885 .04808 m .92885 .24038 L .92981 .24038 L .92981 .04808 L F .947 g .92981 .04808 m .92981 .24038 L .93077 .24038 L .93077 .04808 L F .948 g .93077 .04808 m .93077 .24038 L .93173 .24038 L .93173 .04808 L F .949 g .93173 .04808 m .93173 .24038 L .93269 .24038 L .93269 .04808 L F .95 g .93269 .04808 m .93269 .24038 L .93365 .24038 L .93365 .04808 L F .951 g .93365 .04808 m .93365 .24038 L .93462 .24038 L .93462 .04808 L F .952 g .93462 .04808 m .93462 .24038 L .93558 .24038 L .93558 .04808 L F .953 g .93558 .04808 m .93558 .24038 L .93654 .24038 L .93654 .04808 L F .954 g .93654 .04808 m .93654 .24038 L .9375 .24038 L .9375 .04808 L F .955 g .9375 .04808 m .9375 .24038 L .93846 .24038 L .93846 .04808 L F .956 g .93846 .04808 m .93846 .24038 L .93942 .24038 L .93942 .04808 L F .957 g .93942 .04808 m .93942 .24038 L .94038 .24038 L .94038 .04808 L F .958 g .94038 .04808 m .94038 .24038 L .94135 .24038 L .94135 .04808 L F .959 g .94135 .04808 m .94135 .24038 L .94231 .24038 L .94231 .04808 L F .96 g .94231 .04808 m .94231 .24038 L .94327 .24038 L .94327 .04808 L F .961 g .94327 .04808 m .94327 .24038 L .94423 .24038 L .94423 .04808 L F .962 g .94423 .04808 m .94423 .24038 L .94519 .24038 L .94519 .04808 L F .963 g .94519 .04808 m .94519 .24038 L .94615 .24038 L .94615 .04808 L F .964 g .94615 .04808 m .94615 .24038 L .94712 .24038 L .94712 .04808 L F .965 g .94712 .04808 m .94712 .24038 L .94808 .24038 L .94808 .04808 L F .966 g .94808 .04808 m .94808 .24038 L .94904 .24038 L .94904 .04808 L F .967 g .94904 .04808 m .94904 .24038 L .95 .24038 L .95 .04808 L F .968 g .95 .04808 m .95 .24038 L .95096 .24038 L .95096 .04808 L F .969 g .95096 .04808 m .95096 .24038 L .95192 .24038 L .95192 .04808 L F .97 g .95192 .04808 m .95192 .24038 L .95288 .24038 L .95288 .04808 L F .971 g .95288 .04808 m .95288 .24038 L .95385 .24038 L .95385 .04808 L F .972 g .95385 .04808 m .95385 .24038 L .95481 .24038 L .95481 .04808 L F .973 g .95481 .04808 m .95481 .24038 L .95577 .24038 L .95577 .04808 L F .974 g .95577 .04808 m .95577 .24038 L .95673 .24038 L .95673 .04808 L F .975 g .95673 .04808 m .95673 .24038 L .95769 .24038 L .95769 .04808 L F .976 g .95769 .04808 m .95769 .24038 L .95865 .24038 L .95865 .04808 L F .977 g .95865 .04808 m .95865 .24038 L .95962 .24038 L .95962 .04808 L F .978 g .95962 .04808 m .95962 .24038 L .96058 .24038 L .96058 .04808 L F .979 g .96058 .04808 m .96058 .24038 L .96154 .24038 L .96154 .04808 L F .98 g .96154 .04808 m .96154 .24038 L .9625 .24038 L .9625 .04808 L F .981 g .9625 .04808 m .9625 .24038 L .96346 .24038 L .96346 .04808 L F .982 g .96346 .04808 m .96346 .24038 L .96442 .24038 L .96442 .04808 L F .983 g .96442 .04808 m .96442 .24038 L .96538 .24038 L .96538 .04808 L F .984 g .96538 .04808 m .96538 .24038 L .96635 .24038 L .96635 .04808 L F .985 g .96635 .04808 m .96635 .24038 L .96731 .24038 L .96731 .04808 L F .986 g .96731 .04808 m .96731 .24038 L .96827 .24038 L .96827 .04808 L F .987 g .96827 .04808 m .96827 .24038 L .96923 .24038 L .96923 .04808 L F .988 g .96923 .04808 m .96923 .24038 L .97019 .24038 L .97019 .04808 L F .989 g .97019 .04808 m .97019 .24038 L .97115 .24038 L .97115 .04808 L F .99 g .97115 .04808 m .97115 .24038 L .97212 .24038 L .97212 .04808 L F .991 g .97212 .04808 m .97212 .24038 L .97308 .24038 L .97308 .04808 L F .992 g .97308 .04808 m .97308 .24038 L .97404 .24038 L .97404 .04808 L F .993 g .97404 .04808 m .97404 .24038 L .975 .24038 L .975 .04808 L F .994 g .975 .04808 m .975 .24038 L .97596 .24038 L .97596 .04808 L F .995 g .97596 .04808 m .97596 .24038 L .97692 .24038 L .97692 .04808 L F .996 g .97692 .04808 m .97692 .24038 L .97788 .24038 L .97788 .04808 L F .997 g .97788 .04808 m .97788 .24038 L .97885 .24038 L .97885 .04808 L F .998 g .97885 .04808 m .97885 .24038 L .97981 .24038 L .97981 .04808 L F .999 g .97981 .04808 m .97981 .24038 L .98077 .24038 L .98077 .04808 L F 1 g .98077 .04808 m .98077 .24038 L .98173 .24038 L .98173 .04808 L F .2 0 1 r .5 Mabswid [ ] 0 setdash .01923 .04808 m .01923 .0625 L s .11538 .04808 m .11538 .0625 L s .21154 .04808 m .21154 .0625 L s .30769 .04808 m .30769 .0625 L s .40385 .04808 m .40385 .0625 L s .5 .04808 m .5 .0625 L s .59615 .04808 m .59615 .0625 L s .69231 .04808 m .69231 .0625 L s .78846 .04808 m .78846 .0625 L s .88462 .04808 m .88462 .0625 L s .98077 .04808 m .98077 .0625 L s .5 .04808 m .5 .08173 L s .01923 .04808 m .01923 .08173 L s .98077 .04808 m .98077 .08173 L s 0 g gsave .01923 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .98077 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{503, 68.875}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt2XVQVP0ex/EPttcuDFBRzMduMbDB7m7AABMxsLEbsR67u0V07O5O7BYL u0V9dO/n7O71XlzmXv/AmYc7H8c3vzNn8Ls7Z8/5vXbGWh69vNt39ejl4+Xh 5O7n4evt49XTya27H0/FtgPsPgGo7ATj2MRD6w8T/5oijB/Gmf99nMpYYhn/ NNQ4imscOURxLpXl11OalziwvJbJchK4ZD6IHel0hl//VQ3/b8P//RFd+nGU MYpzaX7hk8Y1yyvw9U2JWUqWgWVhOVkBVoKVZVVYTVafNWdtmTfzZX3YIDaS jWdTYZm7iK1kwWwL28MOsVPsIrvO7rFw9orxJjZ9B77w/b1jz9hDdotdYWdN lrkHuO5gIWwtW8rmsRksiI1mQ1k/1pN1Ye1Ya9aY1WZVWQXmYp2Zh2t2lpHZ s2Qsgcn6IBk3vSkJS80cWFb2ByvISjJX5sZqsQasBfOyXoQerC8bzEaxiWwa m8sWs1VsI9vK9rKj7DQLZTfZffaUvWURlpmf+abesqfsAbvJQtkZdpTtZdvZ RraGLWFz2XQ2kY1iQ1hf1oN1tl6EFlwbsVrMnZVjJVlh9gfLyhxZapaExbdc oAQsKbNnjsyZ5bHsQHDhWoG5s9qsMWvJ2rEuzI/1YwFsNAtif7J5bClbw0LY DraPHbPOvcz1Fgtjz9g79tm4w/GdfWJvWDi7x26wi+w0O8L2sG0smK1kiy0f FaayQDaSDWL+zJf5ME/WnDVkNVkV5spKsAIsN8sC8yNtPF1IzOKZ52YyP2tX UYRn7OzsECtWLMSOHRtx4sRBvHjxED9+fCRIkAAJEyZEokSJkDhxYiRJkgRJ kyZFsmTJkDx5cqRIkQKpUqVC6tSpkSZNGtjb2yNdunRInz69ea6DgwMcHR2R MWNGZM6cGU5OTsiSJQuyZs0KZ2dnZM+eHTly5EDOnDmRK1cu5M6dG3ny5EHe vHmRL18+5M+fHwUKFEDBggVRuHBh88yiRYuiWLFiKF68OEqWLAkXFxeUKlUK pUuXRpkyZVC2bFmUK1cO5cuXR4UKFVCxYkVUqlQJVapUgZubG9zd3VG1alVU q1YNNWrUQM2aNc1za9eujTp16qBu3bqoX78+GjRogIYNG6JRo0Zo0qQJmjZt imbNmqF58+Zo0aIFWrZsidatW6NNmzZo27YtPDw84OnpiXbt2qF9+/bmmR07 doS3tzd8fHzQuXNndOnSBV27dkW3bt3QvXt39OjRA35+fujZsyd69eqF3r17 w9/fH3379kW/fv3Qv39/DBgwAAMHDsTgwYMREBBgnjt06FAMGzYMI0aMwMiR IzFq1CiMHj0aY8aMwdixYzF+/HhMmDABgYGBmDhxIoKCgjB58mRMmTIFU6dO xbRp0zB9+nTMmDEDM2fONM+cPXs25syZg3nz5mH+/PlYsGABFi5ciEWLFmHJ kiVYunQpli1bhuXLl2PFihVYuXIlVq9ejTVr1mDt2rVYt24d1q9fj+DgYGzc uBEhISHmuZs3b8aWLVuwdetWbNu2Ddu3b8eOHTuwc+dO7N69G3v27MHevXux b98+7N+/HwcPHsShQ4dw+PBhHDlyBEePHsWxY8dw4sQJnDx50jzz9OnTOHPm DM6dO4fz58/jwoULuHjxIkJDQ3H58mVcuXIFV69exbVr13D9+nXcvHkTt27d wu3bt3Hnzh3cvXsX9+/fR1hYGB48eICHDx+a5z5+/Bjh4eF4+vQpnj17hufP n+PFixd49eoVXr9+jTdv3uDt27d49+4d3r9/j48fP+LTp0+IiIjA58+f8eXL F/z111/49u0bvn//bsxME4Vs8awbdyrrxu3McrNCP23ctVlD1pJ5Mh/rxu3P AthoFmjZuM1zjY17NQth26wb9xHrxn2J3WBh7Bl7Y9m4jfdmbNxvWDgLs27c l60bt/FnH9dtP23cc9ifLNC6cQdYN24/1ol5spas4U8bdwnrzNxcnf9j407K 4pk3buO7YnyWlNkzR5aN5WWFmQsrx9xZHdaItWLtrBfBj/VnQ9gYFsSms3ls CVvDNrHtbD87xs6wy+w2e8Ces3fss2VmBN/Ya/aE3Wc32EV2mh1mu9lWFsxW scVsNpvGJrCRbDDzZ92Zj/UiNOfagNVkbsyVFWcFWS6WhTkYNw9LxOKaEIt3 aUKWjKVl/JKF7CyfVaBSXCuyqqwua8pas/asK+vJBhg7CBvLJrEZbD5bztYa TyzbyQ6w49a5V7jeYQ/ZC/aefTHL9o19YK+M54fdZdfZBXaKHWK72Ba2ga1g i6yyTWbj2Qg2kPVh3Zg3a8uasfqsBqvEyrJiLD/LyZxYOsbvtvgH/vWVNSrZ DNXixo37S7IZqqVMmTKSbGnTpo1StkyZMtnIli1btl+WrVChQpFkM1QrUaKE jWyGaq6urpFkM1SrXLmyjWzVq1e3kc1QrV69epFka9y4cZSytWrVykY2Ly+v KGXr1KmTjWy+vr42svXp08dGNkO1QYMGRZLNUG348OE2shmqjRs3LpJshmqT Jk36Jdnmzp1rI9vixYujlG3VqlU2sm3YsOGXZDNU27VrVyTZDNUOHDhgI5uh 2vHjxyPJZqh29uxZG9kuXbpkI9uNGzdsZLt3716Usj158sRGtpcvX0Yp24cP HyLJZqj29etXySbZJJtkk2ySTbJJNskm2SSbZJNsku0n2X78N1I0y3bEFP2y FTL9JtlMnWOObB6maJfNuIN/h2xnWXTLZsKsGCtbhgwZol+2IkV+i2y1atWK dtk6dOgQY2SbNWvWb5Ft06ZN0S7bqVOnfotsjx49kmySTbJJNskm2SSbZJNs kk2ySTbJJtkkm2STbJJNskk2ySbZJJtkk2ySTbL9LWUzSbaYJdt3k2SLQbKZ fsh2xaycZIs5sg0ZMkSyxRDZ7MWaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbW xJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2ti TayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm 1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNr Yk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWx JtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgT a2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1 sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpY E2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIm1/xfWTMYS8fc5ht0/ AduDoJw=\ \>"],ImageRangeCache->{{{37.875, 439.25}, {456.688, 402.625}} -> {0, 2, 0, 0}, {{51.125, 229.625}, {455.375, 403.875}} -> {0, 2, 0, 0}, {{247.438, 425.938}, {455.375, 403.875}} -> {-1, 2, 0, 0}}]], "Text", CellTags->{"corecell", "2dexclusive"}], Cell[TextData[{ "The base points for the vectors in the diagram can be chosen from a grid \n\ (i) with the grid including points on the boundary;\n(ii) with the grid \ excluding points on the boundary;\nOption (i) is the default setting.\nTo \ switch options press the appropriate palette button.\n", StyleBox["vfgridpoints", FontWeight->"Bold"], " specifies the number of initial conditions on each dimension of the grid.\n\ ", StyleBox["arrowsfromrestpoints ", FontWeight->"Bold"], "= 1 causes vector field arrows to be drawn from the rest points (in \ addition to all other arrows), conditional on rest points beeing drawn in the \ first place." }], "Text", CellChangeTimes->{{3.4816315814317226`*^9, 3.4816315826534796`*^9}, { 3.539377256751813*^9, 3.5393772573773*^9}, {3.539377311693946*^9, 3.539377329596336*^9}, {3.539433904914003*^9, 3.539433928418253*^9}, 3.568976041312455*^9, {3.571920145504635*^9, 3.571920159852562*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vectorfieldf", "[", "1", "]"}], "=", "PhiF"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"drawvf", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vfscale", "[", "1", "]"}], "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vfarrowheadsize", "[", "1", "]"}], "=", ".8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vfcolor", "[", "1", "]"}], "=", " ", RowBox[{"Hue", "[", ".64", "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.53943221271503*^9, 3.539432278347807*^9, 3.539432345586095*^9, { 3.539432425259869*^9, 3.539432433597865*^9}, 3.539432557326469*^9, { 3.539433196139359*^9, 3.539433200187496*^9}, {3.53943349945433*^9, 3.539433503676291*^9}, 3.539433642476822*^9, 3.569581930441368*^9, { 3.570033346613991*^9, 3.570033347960602*^9}, {3.570094918341203*^9, 3.570094952843653*^9}, {3.572103776425315*^9, 3.572103783892388*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vectorfieldf", "[", "2", "]"}], "=", "dyn"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"drawvf", "[", "2", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vfscale", "[", "2", "]"}], "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vfarrowheadsize", "[", "2", "]"}], "=", ".8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vfcolor", "[", "2", "]"}], "=", " ", RowBox[{"Hue", "[", ".84", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vfgridpoints", "=", " ", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowsfromrestpoints", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{ 3.4747153535477557`*^9, {3.474916776965464*^9, 3.474916781471944*^9}, 3.4814188859868355`*^9, 3.4817354830741696`*^9, {3.5192926379096117`*^9, 3.5192926397747183`*^9}, {3.539432227190787*^9, 3.539432250399506*^9}, 3.539432384016546*^9, {3.539432430013456*^9, 3.539432456779347*^9}, 3.539432565975094*^9, {3.539433207053746*^9, 3.539433209053171*^9}, { 3.539433482222461*^9, 3.539433490861181*^9}, 3.539433646190179*^9, { 3.539433944604729*^9, 3.539433952156169*^9}, 3.539434226684627*^9, 3.569581938023269*^9, {3.570094914077261*^9, 3.570094972835088*^9}, { 3.572103787592087*^9, 3.572103795912031*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "textsl", ",", "names", " ", ",", "texts", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowt", ",", "name", ",", "text", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", RowBox[{"{", " ", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"textsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ "\"\\"", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\""}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"Join", "[", RowBox[{"texts", ",", RowBox[{"{", "rowt", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "text", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"text", "->", RowBox[{ RowBox[{"texts", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", " ", "[", " ", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"matrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818119966889615`*^9, 3.481812002957976*^9}, {3.481812105737727*^9, 3.481812272981318*^9}, { 3.4818124484235916`*^9, 3.481812457366451*^9}, {3.481812498485577*^9, 3.481812523040886*^9}, {3.4818125683860893`*^9, 3.4818125706493435`*^9}, { 3.481812612139003*^9, 3.481812639708646*^9}, {3.4818128485990157`*^9, 3.481812864662113*^9}, {3.4818129721767116`*^9, 3.4818130553963757`*^9}, { 3.4818132379588876`*^9, 3.4818133245333757`*^9}, {3.481813355407771*^9, 3.4818133663935676`*^9}, 3.4818134196132183`*^9, {3.4818134879827776`*^9, 3.481813489202236*^9}, {3.4818136452104654`*^9, 3.481813661273563*^9}, { 3.4818137634451456`*^9, 3.481813778596933*^9}, {3.4818140028480997`*^9, 3.481814031477353*^9}, {3.481814092975784*^9, 3.4818141259632177`*^9}, { 3.4818141856590557`*^9, 3.4818141929395247`*^9}, {3.4818142536968894`*^9, 3.481814383273211*^9}, {3.4818144211176286`*^9, 3.4818145387768145`*^9}, { 3.4818146624446397`*^9, 3.4818146646778507`*^9}, {3.48181469749504*^9, 3.4818147106439466`*^9}, {3.4818472323981695`*^9, 3.4818473124933405`*^9}, {3.481847364648336*^9, 3.4818474569710894`*^9}, { 3.4818475630135713`*^9, 3.48184763238332*^9}, {3.481847664829976*^9, 3.4818476670431585`*^9}, {3.5079820053726034`*^9, 3.507982018155985*^9}, { 3.539434001708587*^9, 3.539434014913833*^9}, {3.539692833093227*^9, 3.539692872519628*^9}, 3.539720118800232*^9, {3.565001835546871*^9, 3.565001836694656*^9}, {3.56958310849815*^9, 3.569583162570682*^9}, 3.569583206573222*^9, {3.569583407537451*^9, 3.569583433089187*^9}, { 3.56958361411585*^9, 3.569583617252356*^9}, {3.569583685459267*^9, 3.569583702149872*^9}, {3.569583743157373*^9, 3.569583757704083*^9}, { 3.569583822763229*^9, 3.569583828000471*^9}, {3.569610558384265*^9, 3.569610610282793*^9}, {3.569610653545594*^9, 3.569610655755989*^9}, { 3.569610690641981*^9, 3.569610744280412*^9}}, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary included)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_vectorfieldspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "vectorfieldspecs=Tuples[Table[discSimplex[vfgridpoints,dim[[p]]],{\ p,pop}]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary excluded)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "unique_vectorfieldspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "vectorfieldspecs=Tuples[Table[Module[{ds},\[IndentingNewLine]ds=\ discSimplex[vfgridpoints,dim[[p]]];\[IndentingNewLine]ds=ds+1/(dim[[p]]*\ vfgridpoints);\[IndentingNewLine]ds=Table[Append[Drop[ds[[j]],-1],ds[[j,dim[[\ p]]]]-1/vfgridpoints],{j,Dimensions[ds][[1]]}];ds=DeleteCases[Table[If[Min[ds[\ [j]]]<0,Infinity,ds[[j]]],{j,Dimensions[ds][[1]]}],Infinity]\ \[IndentingNewLine]],{p,pop}]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellOpen->True, CellChangeTimes->{ 3.481424180412002*^9, 3.4814835754680133`*^9, 3.481739126868757*^9, 3.4817570300873885`*^9, {3.4818476430085983`*^9, 3.4818476704981265`*^9}, 3.539434230002488*^9, 3.5397153466987514`*^9, 3.5397201203364267`*^9, 3.5397203704916925`*^9, 3.53972274266442*^9, 3.569583714211124*^9, 3.569583773364739*^9, 3.569583832567969*^9, 3.569610752053721*^9}, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}] }, {2}]], Cell[BoxData[ RowBox[{ RowBox[{"vectorfieldspecs", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"vfgridpoints", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.481423836988183*^9, 3.4817568770973997`*^9, {3.539433993305053*^9, 3.539433996980696*^9}, {3.569583455107873*^9, 3.569583482167944*^9}, { 3.569583620021646*^9, 3.569583647422201*^9}}, CellTags->{"corecell", "unique_vectorfieldspecs", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["3D graph of the contour function", "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[TextData[{ StyleBox["draw3dcontourfunction", FontWeight->"Bold"], " = 1 creates a 3d plot of the contour function. \n", StyleBox["shiftpercentage", FontWeight->"Bold"], " specifies the distance above the simplex that the lowest point on the \ contour function will appear, as a percentage of the distance from the \ minimum value of the function to the maximum value of the function.\n", StyleBox["grayline", FontWeight->"Bold"], " = 1 draws a gray line on the edges of the 3d plot.\n", StyleBox["heightratio", FontWeight->"Bold"], " specifies the ratios of the three coordinates in the graphical output. \ The default setting is {1, 1, 1.25}.\n \n", StyleBox["vpoint", FontWeight->"Bold"], " determines the value for the ", StyleBox["Mathematica", FontSlant->"Italic"], " command ViewPoint and hence the point from which the 3d plot is observed. \ In ", StyleBox["Mathematica", FontSlant->"Italic"], ", ViewPoint ", StyleBox["->", "MR"], " {", StyleBox["x", "TI"], StyleBox[",", "MR"], " ", StyleBox["y", "TI"], StyleBox[",", "MR"], " ", StyleBox["z", "TI"], Cell[BoxData[ FormBox["}", TraditionalForm]], "InlineFormula"], " gives the position of the view point relative to the center of the three\ \[Hyphen]dimensional box that contains the object being plotted. The view \ point is given in a special scaled coordinate system in which the longest \ side of the bounding box has length 1. (When heightratio is at its default \ setting of {1, 1, 1.25}, the longest side corresponds to the z coordinate. \ The center of the bounding box is taken to have coordinates ", StyleBox["{0,", "MR"], " ", StyleBox["0,", "MR"], " ", StyleBox["0}", "MR"], ". Choosing ", StyleBox["ViewPoint", "MR"], " further away from the object reduces the distortion associated with \ perspective." }], "Text", CellChangeTimes->{3.4919256454449873`*^9}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{"draw3dcontourfunction", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"grayline", "=", "0"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shiftpercentage", "=", ".2"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"heightratio", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vpoint", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.730"}], ",", " ", RowBox[{"-", "1.673"}], ",", " ", "1.096"}], "}"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4749168505012035`*^9, 3.474916850841693*^9}, { 3.4919256015618863`*^9, 3.491925612687885*^9}, 3.492286683769908*^9, 3.4934740580555377`*^9, 3.5061810245905795`*^9, {3.519292657967759*^9, 3.5192926586737995`*^9}, {3.5193818491112003`*^9, 3.5193818494062176`*^9}, 3.540031833911535*^9, 3.5400321961360316`*^9, 3.5400584646222734`*^9, 3.5400588769918623`*^9, 3.558645420839346*^9, 3.5586471224686737`*^9, 3.570092004485549*^9, {3.571735764191607*^9, 3.571735765502808*^9}, 3.571956434261564*^9, 3.571956528837019*^9, 3.571957051078439*^9, 3.571957285373835*^9, 3.571957364549049*^9, 3.571957396749464*^9, 3.571961882930757*^9, 3.57196568197349*^9, 3.57198465432202*^9, 3.571993019634278*^9, 3.572378937114302*^9}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Phase diagram on the surface of the sphere", "Subsubsection", CellTags->{"corecell", "3Sexclusive"}], Cell[TextData[{ StyleBox["drawsphere", FontWeight->"Bold"], " = 1 generates a contour plot on the sphere, which is obtained by mapping \ vectors {x[[1]], x[[2]], x", "[[", "3]]} in the simplex to vectors {", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}]], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]], TraditionalForm]]], "} on the sphere. \n", StyleBox["viewray", FontWeight->"Bold"], " defines the ray from the origin from which the sphere is viewed; it should \ be set to some nonnegative vector.\n", StyleBox["viewraydot", FontWeight->"Bold"], " = 1 draws a dot at the point where the view ray hits the surface of the \ sphere.\nOther parameters (e.g., solution trajectories) are borrowed from the \ previous subsection.\n", StyleBox["raydotstyle", FontWeight->"Bold"], "=.6 tells what color to paint the origin dot (0,0,0) when pdcolor=1; when \ pdcolor=0 it chooses the greyscale level; this option requires viewraydot=1;" }], "Text", CellChangeTimes->{{3.4817560925893326`*^9, 3.4817560934906282`*^9}, { 3.481756173265339*^9, 3.4817561770808253`*^9}, {3.481756248423411*^9, 3.4817562843350496`*^9}, 3.4817571024113855`*^9, 3.4919255319417777`*^9, { 3.5079830613910837`*^9, 3.5079830615863647`*^9}, {3.507983377054986*^9, 3.5079833772652884`*^9}, {3.539432052320454*^9, 3.539432052591334*^9}, { 3.539432090201801*^9, 3.539432090576038*^9}}, CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"drawsphere", "=", "0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"viewray", "=", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"viewraydot", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"raydotstyle", "=", ".6"}], ";"}], "\[IndentingNewLine]"}], "Input",\ CellChangeTimes->{{3.4749181303364124`*^9, 3.4749181311662426`*^9}, { 3.4817562245991535`*^9, 3.4817562414033165`*^9}, 3.4919255230489902`*^9, 3.492286581432754*^9, 3.49347406786965*^9, 3.5061810302687445`*^9, { 3.519292670032449*^9, 3.5192926742906923`*^9}, 3.5193818594107895`*^9, 3.539376865669167*^9, 3.539378832999778*^9, 3.5400318385341215`*^9, 3.5400321908068547`*^9, 3.540058469564556*^9, 3.540058869901962*^9, 3.540210582528783*^9, 3.540212702318783*^9, 3.558645425476611*^9, 3.5586471181494265`*^9, {3.569744812697331*^9, 3.569744813619175*^9}, 3.570092017368167*^9, 3.571735770458704*^9, 3.571988941856901*^9, 3.572049347210006*^9}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Program Core", "Subtitle", CellDingbat->None, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"time1", "=", RowBox[{"AbsoluteTime", "[", "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4807853654988422`*^9, 3.4807853679362803`*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Multipopulation Bridge", "Section", CellChangeTimes->{{3.539862052950919*^9, 3.5398620553350554`*^9}, { 3.569612240104287*^9, 3.569612248072867*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "singlepopulation"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"singlePopFilter", "[", RowBox[{"list_", ",", RowBox[{"length_:", "1"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"pop", "==", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "list", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "!=", "0"}], ",", RowBox[{ RowBox[{"Depth", "[", RowBox[{"list", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "==", "2"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"list", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "length"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"length", "+", "1"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"list", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "list", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "list"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.569613576906343*^9, 3.569613696343879*^9}, { 3.569614057128991*^9, 3.56961406362477*^9}, {3.569614110681404*^9, 3.569614151596504*^9}, {3.570039271683068*^9, 3.570039273000559*^9}, { 3.570093567697816*^9, 3.570093568404481*^9}, {3.570093611377162*^9, 3.570093655642816*^9}, 3.570094087462733*^9}, CellTags->{"corecell", "singlepopulation"}], Cell[CellGroupData[{ Cell["Trajectory Specifications", "Subsection", CellChangeTimes->{ 3.4928106456433153`*^9, {3.569612279691381*^9, 3.5696122875253*^9}}, CellTags->{"corecell", "singlepopulation"}], Cell[BoxData[ RowBox[{ RowBox[{"trajectoryspecs", "=", RowBox[{"singlePopFilter", "[", "trajectoryspecs", "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.519306097477455*^9}, { 3.519306141114951*^9, 3.51930623743346*^9}, 3.565002068874544*^9, { 3.568829787978145*^9, 3.568829795241821*^9}, {3.568829839276476*^9, 3.568829868031256*^9}, {3.56932789483381*^9, 3.569327935238941*^9}, { 3.569328026344155*^9, 3.569328030616673*^9}, {3.569581335135994*^9, 3.569581387841289*^9}, 3.569612328574528*^9, {3.56961236512435*^9, 3.569612381564566*^9}, {3.569612582190573*^9, 3.569612653098557*^9}, { 3.56961268729505*^9, 3.569612701437591*^9}, {3.569613211767658*^9, 3.569613324938983*^9}, {3.569613405640411*^9, 3.56961344699713*^9}, { 3.569613705612018*^9, 3.569613731897814*^9}}, CellTags->{"corecell", "singlepopulation"}] }, Closed]], Cell[CellGroupData[{ Cell["Custom", "Subsection", CellChangeTimes->{ 3.4928106456433153`*^9, {3.569612279691381*^9, 3.5696122875253*^9}, { 3.569612355249465*^9, 3.569612356421181*^9}}, CellTags->{"corecell", "singlepopulation"}], Cell[BoxData[{ RowBox[{ RowBox[{"customdots", "=", RowBox[{"singlePopFilter", "[", "customdots", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customlines", "=", RowBox[{"singlePopFilter", "[", RowBox[{"customlines", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customtrajectoryspecs", "=", RowBox[{"singlePopFilter", "[", "customtrajectoryspecs", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.519306097477455*^9}, { 3.519306141114951*^9, 3.51930623743346*^9}, 3.565002068874544*^9, { 3.568829787978145*^9, 3.568829795241821*^9}, {3.568829839276476*^9, 3.568829868031256*^9}, {3.56932789483381*^9, 3.569327935238941*^9}, { 3.569328026344155*^9, 3.569328030616673*^9}, {3.569581335135994*^9, 3.569581387841289*^9}, 3.569612328574528*^9, 3.569613470652631*^9, { 3.569613506105794*^9, 3.569613511817505*^9}, {3.569613740191941*^9, 3.569613774929198*^9}, {3.569614072953336*^9, 3.569614097580035*^9}}, CellTags->{"corecell", "singlepopulation"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Solving Numerically", "Section", CellChangeTimes->{{3.539862052950919*^9, 3.5398620553350554`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Rest points and stability test", "Subsection", CellChangeTimes->{3.4928106456433153`*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"grid", ",", "step", ",", "accuracy"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"step", "=", ".05"}], ";", "\[IndentingNewLine]", RowBox[{"accuracy", "=", "5"}], ";", "\[IndentingNewLine]", RowBox[{"grid", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{ RowBox[{"1", "/", "step"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tolLevel", "=", RowBox[{"restTolerance", " ", RowBox[{"Max", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Speed", "[", RowBox[{"grid", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "grid", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.519306097477455*^9}, { 3.519306141114951*^9, 3.51930623743346*^9}, 3.565002068874544*^9, { 3.568829787978145*^9, 3.568829795241821*^9}, {3.568829839276476*^9, 3.568829868031256*^9}, {3.56932789483381*^9, 3.569327935238941*^9}, { 3.569328026344155*^9, 3.569328030616673*^9}, {3.569581335135994*^9, 3.569581387841289*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", " ", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPs", "=", RowBox[{"restPoints", "[", RowBox[{ "dyn", ",", "Fmp", ",", "restPointSearchStartingValues", ",", "tolLevel"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CRPs", "=", RowBox[{"stabilitySets", "[", RowBox[{"RPs", ",", "dyn", ",", "Fmp", ",", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", "True", ",", "\"\\""}], "]"}], ",", "stabn", ",", "stabT", ",", "stabdelta", ",", "stabeps"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SRPs", "=", RowBox[{"CRPs", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"USRPs", "=", RowBox[{"CRPs", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SRPvs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"smoothStabilityValues", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "Fmp"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"USRPvs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"smoothStabilityValues", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "Fmp"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NEa", "=", RowBox[{"nashEquilibria", "[", "Fmp", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"findnashequilibria", "==", "1"}], ",", RowBox[{"findESSs", "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"QEa", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"quasiStrictEqQ", "[", RowBox[{ RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fmp"}], "]"}], " ", ",", RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ESSs", "=", RowBox[{ RowBox[{"stabilitySets", "[", RowBox[{ "QEa", ",", "dyn", ",", "Fmp", ",", "\"\\"", ",", "stabn", ",", "stabT", ",", "stabdelta", ",", "stabeps"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ESSs", "=", RowBox[{ RowBox[{"regularESSs", "[", RowBox[{"NEa", ",", "Fmp"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.5193060505597715`*^9}, { 3.519420109304373*^9, 3.51942011345161*^9}, {3.5194204471216946`*^9, 3.519420450790905*^9}, {3.5194205027298756`*^9, 3.519420505626041*^9}, { 3.519553630121473*^9, 3.5195536323536005`*^9}, {3.5195566617508717`*^9, 3.5195567128527946`*^9}, {3.5196739226629353`*^9, 3.5196739279172363`*^9}, {3.5396935385608377`*^9, 3.539693539815733*^9}, { 3.539693611593792*^9, 3.5396936286111517`*^9}, 3.5396937901739397`*^9, { 3.539693839967111*^9, 3.53969384094844*^9}, 3.565002418271581*^9, 3.565002692188596*^9, 3.565002838205875*^9, {3.565002960019383*^9, 3.565002960712094*^9}, 3.565003146473299*^9, {3.565003186789034*^9, 3.565003187949549*^9}, {3.568829698404254*^9, 3.568829698590887*^9}, 3.568829854057624*^9, 3.568968904180613*^9, 3.568969065874125*^9, { 3.56967122183976*^9, 3.569671238060129*^9}, {3.569672251984788*^9, 3.56967225854737*^9}, {3.580644645015419*^9, 3.580644646588778*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Trajectories for Basins of Attraction", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.4841838748558636`*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"findrestpoints", "\[Equal]", " ", "1"}], " ", "&&", " ", RowBox[{"drawbasinboundaries", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dta", ",", "timetopass", ",", "trajectories", ",", "trajectorySpecs"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"trajectories", "=", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"basinsTrajectories", "[", RowBox[{"USRPs", ",", "dyn", ",", "Fmp", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"basinsBoundaryTrajectories", "[", RowBox[{"USRPs", ",", "dyn", ",", "Fmp", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"trajectorySpecs", " ", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "timetopass", ",", " ", "0", ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}], ",", " ", RowBox[{"{", "}"}], ",", " ", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"customtrajectoryspecs", "=", RowBox[{"Join", "[", RowBox[{"customtrajectoryspecs", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"eliminateDuplicates", "[", RowBox[{".1", ",", "trajectorySpecs", ",", "Norm", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.484183903537105*^9}, {3.484184050157935*^9, 3.4841840598418603`*^9}, { 3.484188063842988*^9, 3.4841880655730925`*^9}, {3.4841883718089237`*^9, 3.4841883723198614`*^9}, 3.4841886208953023`*^9, {3.484188755724307*^9, 3.4841887560968895`*^9}, {3.4841889290521083`*^9, 3.484188929467381*^9}, { 3.4841893813310227`*^9, 3.484189387850397*^9}, {3.4841895035968323`*^9, 3.4841895465686226`*^9}, {3.4841895972615156`*^9, 3.4841896055233955`*^9}, {3.4841897262369733`*^9, 3.4841898264510736`*^9}, {3.4841898576859875`*^9, 3.4841899381516914`*^9}, {3.4841900286818676`*^9, 3.484190095628132*^9}, { 3.4841901433868055`*^9, 3.484190153601493*^9}, 3.4841901917162995`*^9, { 3.4841902865827107`*^9, 3.4841903117288694`*^9}, {3.484190422157658*^9, 3.4841904740122213`*^9}, {3.48419054554508*^9, 3.4841905478884497`*^9}, { 3.484190773653084*^9, 3.484190794272733*^9}, {3.4841908273803396`*^9, 3.4841908474491973`*^9}, 3.4841908931749477`*^9, {3.4841909446990356`*^9, 3.484190950948021*^9}, {3.484191025174754*^9, 3.484191061827458*^9}, 3.484191111328637*^9, {3.484191530200946*^9, 3.484191533726015*^9}, { 3.484191615954253*^9, 3.484191631777005*^9}, {3.4841932571942406`*^9, 3.4841932629324913`*^9}, {3.484193367813303*^9, 3.4841933903156595`*^9}, { 3.4841939840994787`*^9, 3.4841939922311716`*^9}, {3.4841941378405476`*^9, 3.4841941561468706`*^9}, {3.4841944591525717`*^9, 3.484194459953724*^9}, { 3.4841955427306805`*^9, 3.4841955469767857`*^9}, {3.484195624468213*^9, 3.4841956288445063`*^9}, 3.4841957078881655`*^9, {3.4841969477009287`*^9, 3.4841969480013604`*^9}, {3.484197029638749*^9, 3.4841970320722485`*^9}, { 3.4841970672027636`*^9, 3.484197082584882*^9}, {3.4843110887979755`*^9, 3.484311111510635*^9}, {3.4843122365083017`*^9, 3.4843122367286186`*^9}, { 3.4843132110696526`*^9, 3.484313212501712*^9}, {3.4844204918135357`*^9, 3.4844204926847887`*^9}, {3.484422780634699*^9, 3.48442278471056*^9}, { 3.484671172645377*^9, 3.484671181538164*^9}, {3.484676867654534*^9, 3.484676872671748*^9}, {3.4846771238329*^9, 3.4846771413280573`*^9}, { 3.4846776271666584`*^9, 3.4846776299106045`*^9}, 3.4846778929989066`*^9, { 3.488629953261813*^9, 3.488629980921586*^9}, 3.491922381856966*^9, { 3.4922645142519865`*^9, 3.492264515528823*^9}, {3.4922648346777363`*^9, 3.492264848737954*^9}, {3.492264976782072*^9, 3.492264980357213*^9}, 3.4922678126191616`*^9, {3.492276615166812*^9, 3.4922766222670217`*^9}, { 3.4922799026990194`*^9, 3.4922799039408045`*^9}, {3.4922818450260677`*^9, 3.4922818453265*^9}, {3.4922829235669336`*^9, 3.492282924608431*^9}, { 3.4922864980228167`*^9, 3.492286518942898*^9}, {3.492291166080221*^9, 3.492291184306429*^9}, {3.4922913350231495`*^9, 3.492291340701314*^9}, 3.4923505269976273`*^9, 3.492351488281898*^9, {3.492351694664397*^9, 3.4923516974884577`*^9}, 3.4923520724422646`*^9, {3.4923582429705505`*^9, 3.4923582618730807`*^9}, {3.4923685544842443`*^9, 3.4923685580994425`*^9}, {3.4926007500928783`*^9, 3.4926007545893435`*^9}, 3.492601022244212*^9, {3.4926929308690805`*^9, 3.4926929316702323`*^9}, 3.4928091839214625`*^9, 3.492810808627675*^9, 3.492810940357093*^9, { 3.4928268813441744`*^9, 3.4928268865516624`*^9}, 3.4932620055979314`*^9, 3.493262052575482*^9, 3.4932629382590322`*^9, 3.4932685857147427`*^9, { 3.5079248017997656`*^9, 3.5079248315124903`*^9}, {3.5079820473729973`*^9, 3.5079820476283646`*^9}, {3.508020652886202*^9, 3.5080206532967925`*^9}, 3.50802173780624*^9, {3.5080693481691127`*^9, 3.5080693567915115`*^9}, 3.508069751348857*^9, {3.5080699091958294`*^9, 3.5080699312775817`*^9}, { 3.508779032339525*^9, 3.5087790760323524`*^9}, 3.565000639458856*^9, 3.565000675989687*^9, 3.565001421106396*^9, {3.56897813904608*^9, 3.568978145809579*^9}, {3.569328258563367*^9, 3.569328258750661*^9}, { 3.569411686502337*^9, 3.569411802402863*^9}, {3.569411855802295*^9, 3.569411868533826*^9}, {3.56941190474039*^9, 3.569411910046015*^9}, { 3.569411948850622*^9, 3.56941198696869*^9}, {3.569415451257985*^9, 3.569415464351455*^9}, {3.569415501910965*^9, 3.569415726739188*^9}, 3.569416316848429*^9, {3.569416408766698*^9, 3.569416493708624*^9}, { 3.569671239622946*^9, 3.569671240969185*^9}, {3.569672262849846*^9, 3.569672263847124*^9}, {3.569858261246616*^9, 3.569858280551557*^9}, { 3.580642695731533*^9, 3.580642712409368*^9}, {3.580643578564808*^9, 3.580643597017897*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Regular Trajectories", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841773919238653`*^9, 3.484177394978257*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"trajSol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"difEqSol", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "dyn", ",", "Fmp", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4747149974256773`*^9, 3.4747150022626324`*^9}, { 3.4747152395638547`*^9, 3.474715251210602*^9}, {3.4814188859968495`*^9, 3.4814188860268927`*^9}, {3.481735483124242*^9, 3.4817354831542845`*^9}, { 3.481756513534622*^9, 3.481756522547582*^9}, {3.484193468958743*^9, 3.4841934921120358`*^9}, {3.4841942078912754`*^9, 3.4841942304737473`*^9}, 3.492686689629551*^9, {3.4926869916037683`*^9, 3.492687022017501*^9}, { 3.492687315409378*^9, 3.492687334637026*^9}, {3.4926873813542023`*^9, 3.492687416664976*^9}, {3.4926884415337334`*^9, 3.4926885089406595`*^9}, { 3.4926885633789377`*^9, 3.4926886219832067`*^9}, {3.492688658986415*^9, 3.4926887209455075`*^9}, {3.492692464588602*^9, 3.4926924679834833`*^9}, { 3.5079240895355797`*^9, 3.507924098398324*^9}, {3.5079814105345907`*^9, 3.5079814140296164`*^9}, 3.5080189455211315`*^9, {3.5080190451844406`*^9, 3.5080191028974276`*^9}, 3.508019510112975*^9, 3.5159567659692707`*^9, { 3.5160386219971676`*^9, 3.5160386400442*^9}, {3.516039030338523*^9, 3.5160390324096413`*^9}, {3.516039313782735*^9, 3.5160393162508764`*^9}, { 3.5160405835083594`*^9, 3.5160405954870443`*^9}, 3.516044451296584*^9, { 3.5192892633075953`*^9, 3.519289264569668*^9}, 3.5399895065632753`*^9, 3.5399900683664083`*^9, 3.565001021328486*^9, 3.569637621073082*^9, { 3.569856345750003*^9, 3.569856348557041*^9}, {3.580642785286404*^9, 3.580642792209772*^9}, 3.580642922051517*^9, 3.58064360075784*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Special Trajectories", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841773919238653`*^9, 3.4841774030498633`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"cTrajSol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"difEqSol", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "dyn", ",", "Fmp", ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474715003814864*^9, 3.474715004666088*^9}, { 3.4814188860268927`*^9, 3.481418886036907*^9}, {3.4817354831943426`*^9, 3.481735483204357*^9}, {3.4817565232586045`*^9, 3.481756549155843*^9}, { 3.481758547649536*^9, 3.4817585513448496`*^9}, {3.4841941945921526`*^9, 3.4841941973260837`*^9}, {3.484195489754504*^9, 3.484195498196644*^9}, { 3.492688897559466*^9, 3.492688948352503*^9}, {3.492688978485832*^9, 3.4926889801982946`*^9}, {3.4926911314216022`*^9, 3.4926911349466705`*^9}, 3.4926911784291954`*^9, {3.4926912279003315`*^9, 3.4926912287715845`*^9}, 3.4926924734112883`*^9, {3.492692865965754*^9, 3.4926928686796565`*^9}, { 3.507924101632975*^9, 3.5079241051380153`*^9}, {3.5079516157839394`*^9, 3.507951618413091*^9}, 3.507983061601386*^9, 3.5079833772803097`*^9, { 3.508018949036186*^9, 3.508018990866335*^9}, {3.5080191276530247`*^9, 3.508019146990831*^9}, {3.508019183002613*^9, 3.5080191839339523`*^9}, { 3.5080195150100164`*^9, 3.50801953322621*^9}, 3.515956767033331*^9, 3.5192893631393056`*^9, 3.539989508901409*^9, 3.5399900701335096`*^9, 3.565001022209496*^9, 3.569637601372383*^9, {3.569856358698417*^9, 3.569856361611539*^9}, {3.580642802764109*^9, 3.580642822130715*^9}, 3.580642924259909*^9, 3.580643605087451*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Drawing", "Section", CellChangeTimes->{{3.539862040631214*^9, 3.5398620417342772`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"drawvf", "[", "1", "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"drawvf", "[", "2", "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawphasediagram", "\[Equal]", "0"}], ",", RowBox[{"pdcontourplot", "=", "0"}]}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{ 3.491925712531453*^9, 3.4919259369040847`*^9, 3.491926048524587*^9, 3.521637590531484*^9, 3.53943249916042*^9, 3.539432567024583*^9, { 3.570095518424668*^9, 3.570095525767057*^9}, {3.570095757487967*^9, 3.570095774393049*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell["Calculating color scale/gray scale", "Subsection", CellChangeTimes->{{3.5191405866880293`*^9, 3.5191405893441815`*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell["\<\ The approximate minimum and maximum values of the contour function are \ computed here. These values are then used to assign colors/gray levels \ optimally.\ \>", "Text", CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", RowBox[{"vfcontourplot", "\[Equal]", "1"}], "||", RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"drawsphere", "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"contourFunctionValues", ",", "n"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "40"}], ";", "\[IndentingNewLine]", RowBox[{"contourFunctionValues", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"n", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"contourFunctionValues", "=", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{ RowBox[{"contourFunction", "[", RowBox[{"contourFunctionValues", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "contourFunctionValues", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"contourFunctionValues", "=", RowBox[{"DeleteCases", "[", RowBox[{"contourFunctionValues", ",", "Indeterminate"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"contourFunction", " ", "===", " ", "Speed"}], ",", "\[IndentingNewLine]", RowBox[{"minAttained", "=", "0"}], ",", "\[IndentingNewLine]", RowBox[{"minAttained", "=", RowBox[{"N", "[", RowBox[{"Min", "[", "contourFunctionValues", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"maxAttained", "=", RowBox[{"N", "[", RowBox[{"Max", "[", "contourFunctionValues", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rangeAttained", "=", RowBox[{"shiftpercentage", " ", RowBox[{"(", RowBox[{"maxAttained", "-", "minAttained"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"conColFunAux", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{"Min", "[", RowBox[{ FractionBox[ RowBox[{"\[CapitalPsi]", "-", "minAttained"}], RowBox[{"maxAttained", "-", "minAttained"}]], ",", "1"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"pdcolor", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"conColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"GrayLevel", "[", RowBox[{ FractionBox[".95", "1.45"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"conColFunAux", "[", RowBox[{"conbrightness", " ", "\[CapitalPsi]"}], "]"}], "+", ".45"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"Hue", "[", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["2", "5"], RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ FractionBox["1", "2"], "<", RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["2", "3"]}], ",", " ", RowBox[{ RowBox[{ FractionBox["6", "5"], RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["2", "5"]}], ",", RowBox[{ FractionBox["2", "3"], "<", RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["3", "4"], RowBox[{"conColFunAux", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["1", "10"]}]}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"vfcontourplot", "\[Equal]", "1"}]}], ")"}], "&&", " ", RowBox[{"colorbar", "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"colorBarPosition", "=", RowBox[{"{", RowBox[{".95", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"simplexColorBar", "=", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pdcolor", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", "#1"}], " ", "\[LessEqual]", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["2", "5"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "<", RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}], "\[LessEqual]", FractionBox["2", "3"]}], ",", " ", RowBox[{ RowBox[{ FractionBox["6", "5"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], "-", FractionBox["2", "5"]}], ",", RowBox[{ FractionBox["2", "3"], "<", RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["3", "4"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], "-", FractionBox["1", "10"]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "ColorData", "[", "\"\\"", "]"}], "[", RowBox[{"450", "+", RowBox[{"#1", "*", RowBox[{"(", RowBox[{"650", "-", "450"}], ")"}]}]}], "]"}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "1", "]"}], "]"}], ",", FractionBox[ RowBox[{"#1", "+", "1.5"}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "2", "]"}], "]"}], ",", FractionBox[ RowBox[{"#1", " ", "+", "1.51"}], "3"]}], "}"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{ FractionBox[".95", "1.45"], RowBox[{"(", RowBox[{ RowBox[{"(", "#1", ")"}], "+", ".45"}], ")"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "1", "]"}], "]"}], ",", FractionBox[ RowBox[{"#1", "+", "1.5"}], "3"]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "2", "]"}], "]"}], ",", FractionBox[ RowBox[{"#1", " ", "+", "1.51"}], "3"]}], "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "&"}], ")"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "1", ",", ".01"}], "]"}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", " ", RowBox[{"minAttained", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "2", "]"}], "]"}], "+", ".05"}], ",", ".5"}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", RowBox[{"maxAttained", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"colorBarPosition", "[", RowBox[{"[", "2", "]"}], "]"}], "+", ".05"}], ",", ".83"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexColorBar", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], ",", RowBox[{"pdColorBar", "=", "simplexColorBar"}], ",", RowBox[{"pdColorBar", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"vfcontourplot", "\[Equal]", "1"}], ",", RowBox[{"vfColorBar", "=", "simplexColorBar"}], ",", RowBox[{"vfColorBar", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], " ", ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.481805496907667*^9, 3.481805499351181*^9}, { 3.488628723945115*^9, 3.4886287252870445`*^9}, {3.491924960480056*^9, 3.491925054234869*^9}, {3.49192563063369*^9, 3.4919256365522003`*^9}, { 3.4919259409999743`*^9, 3.4919259548298607`*^9}, {3.4919259920634003`*^9, 3.491926003199413*^9}, {3.5192925669755545`*^9, 3.5192925693636913`*^9}, { 3.5194169795543613`*^9, 3.519416980738429*^9}, {3.539432127428375*^9, 3.539432146203321*^9}, {3.539713339286843*^9, 3.539713341117075*^9}, { 3.569581702776158*^9, 3.56958172105089*^9}, {3.569641232644983*^9, 3.569641285952632*^9}, {3.56964132779878*^9, 3.569641360590306*^9}, 3.569641434575631*^9, {3.569641479731505*^9, 3.569641613535064*^9}, { 3.56964166875389*^9, 3.569641690366148*^9}, {3.569641724289994*^9, 3.56964172976353*^9}, 3.569641894857364*^9, {3.569641996663444*^9, 3.56964214497008*^9}, {3.569642283379751*^9, 3.569642311002765*^9}, { 3.569642353949022*^9, 3.569642475822375*^9}, {3.569642527644265*^9, 3.569642540579745*^9}, {3.569642600673254*^9, 3.569642674778847*^9}, { 3.569642784142931*^9, 3.569642787383891*^9}, {3.56964287038242*^9, 3.569642874802808*^9}, {3.569642946734944*^9, 3.56964295152267*^9}, { 3.5696429828417*^9, 3.569642983560322*^9}, 3.569643067201416*^9, { 3.569643192038778*^9, 3.569643197440958*^9}, {3.569668815619162*^9, 3.569668832998264*^9}, {3.570033655448573*^9, 3.570033695761665*^9}, { 3.570033993777322*^9, 3.570033998072525*^9}, {3.570034248813841*^9, 3.570034253865145*^9}, {3.570034540338538*^9, 3.57003459185924*^9}, { 3.570034865730468*^9, 3.570034866035067*^9}, {3.57003724444574*^9, 3.570037256274995*^9}, 3.570037286672423*^9, {3.570037439794112*^9, 3.570037716280679*^9}, {3.570093125390275*^9, 3.570093127990365*^9}, { 3.571821434220674*^9, 3.571821437419964*^9}, {3.57182150924101*^9, 3.571821545334701*^9}, 3.571959046131296*^9, {3.571959080093076*^9, 3.571959186502046*^9}, {3.571959328724843*^9, 3.571959330829233*^9}, 3.571959391913741*^9, {3.571959432074599*^9, 3.571959432550332*^9}, { 3.571959487501468*^9, 3.571959490389746*^9}, {3.571959651747873*^9, 3.571959655169736*^9}, {3.572110012743823*^9, 3.572110016080892*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Frames and Dots", "Subsection", CellChangeTimes->{{3.519140370261651*^9, 3.519140374359885*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["\<\ The cells that belong to this group are for drawing the simplex frame and \ strategy names.\ \>", "Text", CellChangeTimes->{{3.4809472476323805`*^9, 3.480947255241707*^9}, { 3.519138688100436*^9, 3.5191386884474564`*^9}, {3.519140337098754*^9, 3.519140339236876*^9}, {3.5191650703269057`*^9, 3.5191650710579476`*^9}, 3.5192031647003098`*^9, {3.571987185589763*^9, 3.571987196931006*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"simplex", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", ".004", "]"}], "]"}], ",", RowBox[{"FaceForm", "[", "]"}], ",", RowBox[{"Polygon", "[", "planeCorners", "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.481817151673976*^9, 3.4818171688987436`*^9}, { 3.4818172393700767`*^9, 3.481817260610619*^9}, {3.481817309681179*^9, 3.481817338222219*^9}, 3.4818173774185805`*^9, {3.4818175139949675`*^9, 3.4818175185214767`*^9}, {3.4844092206768103`*^9, 3.4844092654912505`*^9}, {3.4844097378704987`*^9, 3.484409745882018*^9}, { 3.484410830473482*^9, 3.4844108358644037`*^9}, {3.4844109004672985`*^9, 3.484410902960884*^9}, {3.4844109402745385`*^9, 3.484410941456238*^9}, 3.4844112644807243`*^9, {3.4846667950016527`*^9, 3.4846667966440144`*^9}, { 3.484670088095872*^9, 3.4846701164065804`*^9}, {3.5191394894242697`*^9, 3.519139505745203*^9}, {3.5193084584334936`*^9, 3.5193084598815765`*^9}, { 3.564999346410241*^9, 3.564999351434732*^9}, {3.569416537509221*^9, 3.569416538325071*^9}, {3.569416587102688*^9, 3.569416617044858*^9}, { 3.569438561078888*^9, 3.569438624672154*^9}, {3.56943867850327*^9, 3.569438695797997*^9}, {3.569581444717623*^9, 3.569581451518205*^9}, { 3.569584071965637*^9, 3.569584074431835*^9}, {3.570031948865801*^9, 3.570031953559054*^9}, {3.570032144157599*^9, 3.570032159878075*^9}, { 3.570032257921996*^9, 3.570032265013089*^9}, {3.57003252506677*^9, 3.570032584944941*^9}, {3.5700326588889*^9, 3.570032662709757*^9}, { 3.5700327818573*^9, 3.570032806583176*^9}, {3.570032840342529*^9, 3.570032845353898*^9}, 3.570032875584502*^9, 3.570036032084893*^9, { 3.571956984673738*^9, 3.571957040153366*^9}, 3.571957279279463*^9, { 3.571988601350763*^9, 3.571988609724873*^9}, {3.580479096865547*^9, 3.580479097521539*^9}, {3.580479179118391*^9, 3.580479181982212*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"simplexStrategies", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "j", "]"}], ",", RowBox[{"simplexStrategiesPositions", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.481817151673976*^9, 3.4818171688987436`*^9}, { 3.4818172393700767`*^9, 3.481817260610619*^9}, {3.481817309681179*^9, 3.481817338222219*^9}, 3.4818173774185805`*^9, {3.4818175139949675`*^9, 3.4818175185214767`*^9}, {3.4844092206768103`*^9, 3.4844092654912505`*^9}, {3.4844097378704987`*^9, 3.484409745882018*^9}, { 3.484410830473482*^9, 3.4844108358644037`*^9}, {3.4844109004672985`*^9, 3.484410902960884*^9}, {3.4844109402745385`*^9, 3.484410941456238*^9}, 3.4844112644807243`*^9, {3.4846667950016527`*^9, 3.4846667966440144`*^9}, { 3.484670088095872*^9, 3.4846701164065804`*^9}, {3.5191394894242697`*^9, 3.519139505745203*^9}, {3.5193084584334936`*^9, 3.5193084598815765`*^9}, { 3.564999346410241*^9, 3.564999351434732*^9}, {3.569416537509221*^9, 3.569416538325071*^9}, {3.569416587102688*^9, 3.569416617044858*^9}, { 3.569438561078888*^9, 3.569438624672154*^9}, {3.56943867850327*^9, 3.569438695797997*^9}, {3.569581444717623*^9, 3.569581451518205*^9}, { 3.569584071965637*^9, 3.569584074431835*^9}, {3.570031948865801*^9, 3.570031953559054*^9}, {3.570032144157599*^9, 3.570032159878075*^9}, { 3.570032257921996*^9, 3.570032265013089*^9}, {3.57003252506677*^9, 3.570032584944941*^9}, {3.5700326588889*^9, 3.570032662709757*^9}, { 3.5700327818573*^9, 3.570032806583176*^9}, {3.570032840342529*^9, 3.570032845353898*^9}, 3.570032875584502*^9, 3.570036032084893*^9, { 3.571956984673738*^9, 3.571957040153366*^9}, 3.571957279279463*^9, { 3.571987288913116*^9, 3.571987298858385*^9}, {3.571987449569133*^9, 3.571987466511833*^9}, {3.571987520913866*^9, 3.571987526872442*^9}, { 3.57198757185503*^9, 3.571987727743864*^9}, {3.571987771515703*^9, 3.571987883642248*^9}, {3.57198792643245*^9, 3.571987956904014*^9}, { 3.571988038084013*^9, 3.571988051430865*^9}, 3.571988113820234*^9, { 3.57198818996245*^9, 3.571988191982813*^9}, {3.572377932056562*^9, 3.572377932452167*^9}, 3.580476431987002*^9, 3.580476475130239*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["These cells draw a white area around the eighth-sphere", "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"points", ",", "minmaxf", ",", "di"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"points", "[", "x_", "]"}], "[", "1", "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", RowBox[{"1", "-", "x"}], ",", "0"}], "}"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"points", "[", "x_", "]"}], "[", "2", "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "x"}], ",", "0", ",", "x"}], "}"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"points", "[", "x_", "]"}], "[", "3", "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "x", ",", RowBox[{"1", "-", "x"}]}], "}"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"points", "[", "x_", "]"}], "[", "4", "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"1", "-", "x"}]}], "}"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"points", "[", "x_", "]"}], "[", "5", "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "x"}], ",", "x"}], "}"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"minmaxf", "[", RowBox[{"operator_", ",", "j_"}], "]"}], ":=", RowBox[{"operator", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{ RowBox[{"points", "[", "l", "]"}], "[", "k", "]"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"di", "=", ".001"}], " ", ";", "\[IndentingNewLine]", RowBox[{"delta", "=", ".05"}], ";", "\[IndentingNewLine]", RowBox[{"sphereCurvedTri", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{ RowBox[{"points", "[", "k", "]"}], "[", "j", "]"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "=", RowBox[{"minmaxf", "[", RowBox[{"Min", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "=", RowBox[{"minmaxf", "[", RowBox[{"Max", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "=", RowBox[{"minmaxf", "[", RowBox[{"Min", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "=", RowBox[{"minmaxf", "[", RowBox[{"Max", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereLeftTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{ RowBox[{"points", "[", "j", "]"}], "[", "1", "]"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "+", RowBox[{"towmax", "[", "2", "]"}]}], ")"}], "/", "2"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereRightTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{ RowBox[{"points", "[", "j", "]"}], "[", "4", "]"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", "delta"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", "delta"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "+", RowBox[{"towmax", "[", "2", "]"}]}], ")"}], "/", "2"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", "delta"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"sphereDownTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{ RowBox[{"points", "[", "j", "]"}], "[", "5", "]"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", "delta"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", RowBox[{"fromwmin", "[", "1", "]"}]}], ")"}], "/", "2"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereCurvedTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereLeftTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereRightTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereDownTri", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4919255236298256`*^9, 3.5191395127316027`*^9, {3.5192902629447713`*^9, 3.519290290735361*^9}, {3.519290321700132*^9, 3.5192903940572705`*^9}, { 3.5192905659030995`*^9, 3.5192905757376623`*^9}, {3.539376648659733*^9, 3.539376703039848*^9}, {3.539377437246989*^9, 3.539377445151111*^9}, { 3.564999256055845*^9, 3.564999279557075*^9}, {3.56941740910611*^9, 3.569417538392978*^9}, {3.56941767801119*^9, 3.569417819916748*^9}, { 3.569437594121158*^9, 3.569437815104807*^9}, {3.569437938727301*^9, 3.569438035540557*^9}, {3.56943809072497*^9, 3.569438102488273*^9}, { 3.569438135625573*^9, 3.569438380250833*^9}, {3.569497252197509*^9, 3.569497312078998*^9}, {3.569498660819033*^9, 3.569498681598251*^9}, { 3.569498723549625*^9, 3.5694987349384*^9}, {3.569498774766457*^9, 3.569498923352323*^9}, {3.569498967682651*^9, 3.569498971965601*^9}, { 3.569499028603864*^9, 3.569499037953269*^9}, {3.569499115404556*^9, 3.569499223646344*^9}, {3.569499261088853*^9, 3.569499314265105*^9}, { 3.569499413316983*^9, 3.569499461312038*^9}, {3.569499500450188*^9, 3.56949950090037*^9}, 3.569499879412459*^9, {3.569637334135848*^9, 3.569637354384866*^9}, {3.569637401993611*^9, 3.569637406863374*^9}, { 3.569637833646891*^9, 3.569637836487354*^9}, {3.569638223732209*^9, 3.5696382240683*^9}, {3.569639579865632*^9, 3.569639597943105*^9}, { 3.570140766130768*^9, 3.570140774501429*^9}, {3.570145114940896*^9, 3.570145249061469*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ This part draws the dots for the rest points. restPoints[] and \ stabilitySets[] should have been called in order to determine the rest points \ and their stability. You may need to modify this part if the stability test \ does not work for your choice of dynamic.\ \>", "Text", CellChangeTimes->{ 3.474715011716226*^9, 3.481418886086979*^9, 3.481735483284472*^9, 3.492477466508514*^9, {3.4924811111091924`*^9, 3.492481127542823*^9}, { 3.4928318187188387`*^9, 3.4928318675190096`*^9}, 3.4934025014542055`*^9, 3.5087652862746925`*^9, 3.565002839828234*^9, 3.565003189176658*^9, 3.568976047902921*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"findrestpoints", "==", "1"}], ",", RowBox[{"drawrestpoints", "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"srpDots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "srpcolor", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "dotradius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"urpDots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "urpcolor", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", RowBox[{".4", "*", "dotradius"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{".8", "*", "dotradius"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"srpDots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"urpDots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"findnashequilibria", "\[Equal]", " ", "1"}], ",", RowBox[{"drawnashequilibria", "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"neDots", "=", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "necolor", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", RowBox[{".4", "*", "dotradius"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{".8", "*", "dotradius"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"neDots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4818175194828587`*^9, 3.481817520414198*^9}, { 3.492701111454836*^9, 3.492701112159847*^9}, {3.492809186354962*^9, 3.492809189789901*^9}, {3.4928108100597343`*^9, 3.492810811071189*^9}, 3.4928109428106213`*^9, 3.4928277714240465`*^9, {3.5079818638263927`*^9, 3.5079818836048326`*^9}, {3.5079840630714293`*^9, 3.507984071643756*^9}, { 3.519138190793992*^9, 3.51913819198006*^9}, {3.5191382248269386`*^9, 3.5191382263540263`*^9}, {3.519289972392153*^9, 3.519290003620939*^9}, { 3.539374840503021*^9, 3.539374849826319*^9}, {3.539374888085667*^9, 3.539374909866335*^9}, {3.539375021742673*^9, 3.539375075244198*^9}, 3.539375168804672*^9, {3.539375260156928*^9, 3.539375262262122*^9}, { 3.539375375657555*^9, 3.539375382577832*^9}, {3.539375689058983*^9, 3.539375777718745*^9}, {3.539375998558558*^9, 3.539376062993081*^9}, { 3.539376255092529*^9, 3.539376256034831*^9}, {3.539377129116799*^9, 3.539377131519602*^9}, {3.539377463020719*^9, 3.539377466400508*^9}, { 3.539377860789994*^9, 3.53937787200012*^9}, {3.539377914445229*^9, 3.539377923601465*^9}, {3.539377968899867*^9, 3.539377969970929*^9}, { 3.539378029965517*^9, 3.53937803498238*^9}, {3.539378098718596*^9, 3.539378111377969*^9}, {3.539378161820735*^9, 3.539378173758658*^9}, 3.539378217953879*^9, 3.539378274292609*^9, 3.539378329594676*^9, 3.539378374067916*^9, {3.539378440666416*^9, 3.539378468004299*^9}, { 3.5396941380730057`*^9, 3.539694141064054*^9}, {3.5398597499481945`*^9, 3.539859753114376*^9}, {3.539860169909215*^9, 3.5398601832769794`*^9}, { 3.564999353733384*^9, 3.564999356219908*^9}, {3.569581539091793*^9, 3.569581578447954*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell["for sphere", "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"findrestpoints", "\[Equal]", "1"}]}], " ", ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereSRPDots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "srpcolor", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "viewray"}], "]"}], ",", "dotradius"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"sphereURPDots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", RowBox[{".4", "*", "dotradius"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "viewray"}], "]"}], ",", RowBox[{".8", "*", "dotradius"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"viewraydot", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"origDot", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pdcolor", "\[Equal]", "1"}], ",", RowBox[{"Hue", "[", "raydotstyle", "]"}], ",", RowBox[{"GrayLevel", "[", "raydotstyle", "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", "viewray"}], "]"}], ",", "dotradius"}], "]"}]}], "}"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"origDot", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereSRPDots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereURPDots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"origDot", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4807791279373856`*^9, 3.480779128898768*^9}, { 3.4807799877387867`*^9, 3.480780078218891*^9}, {3.4817561942354927`*^9, 3.481756197249827*^9}, 3.4817562781561646`*^9, 3.4919255241806173`*^9, { 3.4927011130080633`*^9, 3.4927011137240906`*^9}, {3.4928091916025076`*^9, 3.4928091927541637`*^9}, {3.492810812102672*^9, 3.4928108126935215`*^9}, { 3.5079829936136246`*^9, 3.5079830120901923`*^9}, 3.5079830616164074`*^9, { 3.5079833635956326`*^9, 3.507983363941129*^9}, {3.5079840766709843`*^9, 3.5079840831402864`*^9}, 3.519138193004119*^9, 3.519138227557095*^9, 3.5191398666828475`*^9, {3.5192904223418884`*^9, 3.5192904895647335`*^9}, { 3.519290777948228*^9, 3.519290794800192*^9}, {3.539376711046305*^9, 3.539376773124702*^9}, {3.539376979571517*^9, 3.539376989224685*^9}, { 3.539432099677735*^9, 3.539432099869513*^9}, {3.5398602730471144`*^9, 3.539860277547372*^9}, {3.540031519690634*^9, 3.5400315783450823`*^9}, { 3.540031633740116*^9, 3.5400316370655384`*^9}, {3.540031676714073*^9, 3.5400316788733473`*^9}, {3.540031749834358*^9, 3.5400317572668023`*^9}, { 3.564999280390172*^9, 3.564999281998375*^9}, {3.569417178860079*^9, 3.569417194175227*^9}, {3.56951264837389*^9, 3.569512651304578*^9}, { 3.569512696393395*^9, 3.569512697755588*^9}, {3.569512964123491*^9, 3.569512970343782*^9}, {3.569637355423654*^9, 3.569637357215788*^9}, { 3.569637407973741*^9, 3.569637410558944*^9}, 3.569638982945903*^9, { 3.569639637585711*^9, 3.569639663721323*^9}, 3.569639864242831*^9, { 3.569670199805708*^9, 3.569670201344294*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["These cells draw custom text, lines and dots", "Text", CellChangeTimes->{{3.492481094024626*^9, 3.492481094795735*^9}, { 3.5191401927915*^9, 3.5191402258053885`*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"cDots", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customdots", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cWDots", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customdots", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Thickness", "[", RowBox[{".4", "*", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{".8", " ", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cLines", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customlines", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], ",", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "5"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "6"}], "]"}], "]"}], ",", " ", RowBox[{"4", "/", "5"}]}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"simplexToPlane", "[", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customlines", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cText", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customtext", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"FontSlant", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"FontSize", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "5"}], "]"}], "]"}]}]}], "]"}], ",", RowBox[{"N", "[", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtext", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.519141058093992*^9, 3.5191411798919587`*^9}, { 3.5191412153019843`*^9, 3.519141251912078*^9}, 3.519141350094694*^9, 3.5191414066769304`*^9, 3.5191415320040984`*^9, {3.5191415728694363`*^9, 3.519141573552475*^9}, 3.5191416040312185`*^9, {3.519202966577977*^9, 3.5192030171888723`*^9}, {3.5398623880420847`*^9, 3.5398624615902915`*^9}, {3.5398625013985686`*^9, 3.539862536619583*^9}, { 3.5398625761148424`*^9, 3.5398625935718403`*^9}, {3.55456177816995*^9, 3.554561788223509*^9}, {3.56499935706139*^9, 3.564999359399118*^9}, { 3.569582168440941*^9, 3.569582212985464*^9}, {3.569582628562061*^9, 3.569582656647595*^9}, {3.570133051623722*^9, 3.570133071367185*^9}, { 3.570139854676878*^9, 3.570139859492362*^9}, {3.572107140606069*^9, 3.572107146735984*^9}, {3.596712128502553*^9, 3.596712229067802*^9}}, CellTags->{"differentacrossnotebooks", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ These cells draw the frame, lines, dots and text for the 3D plot of the \ contour function\ \>", "Text", CellChangeTimes->{{3.492481094024626*^9, 3.492481094795735*^9}, { 3.571957567050083*^9, 3.571957567606012*^9}, {3.571989586151127*^9, 3.571989590978447*^9}}, CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"graphf", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{"simplexToPlane", "[", "x", "]"}], ",", RowBox[{"contourFunction", "[", "x", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"graphmin", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{"simplexToPlane", "[", "x", "]"}], ",", RowBox[{"minAttained", "-", "rangeAttained"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdSimplex", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{ RowBox[{"planeCorners", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"minAttained", "-", "rangeAttained"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "planeCorners", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdStrategies", "=", RowBox[{"Graphics3D", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"strategy", "[", "j", "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "font"}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Append", "[", RowBox[{ RowBox[{"simplexStrategiesPositions", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"minAttained", "-", "rangeAttained"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".01", ",", ".01"}], "}"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"graphmin", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"graphf", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".02", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"graphmin", "[", RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", ".5", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"graphmin", "[", RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdSimplex", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdStrategies", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{ 3.4818054954655933`*^9, {3.4818175212253647`*^9, 3.4818175236788926`*^9}, 3.4919256290013423`*^9, {3.4928090954642677`*^9, 3.4928091136203747`*^9}, { 3.4928091944065394`*^9, 3.4928091955882387`*^9}, {3.4928101725630593`*^9, 3.49281017388496*^9}, {3.49281081339453*^9, 3.4928108141155663`*^9}, { 3.492810863266242*^9, 3.4928108650588193`*^9}, {3.507983013832698*^9, 3.5079830176331625`*^9}, {3.5079833642265396`*^9, 3.5079833647673173`*^9}, {3.5079840971804757`*^9, 3.5079841148058195`*^9}, {3.50799828547429*^9, 3.5079982856745777`*^9}, { 3.5192910124786425`*^9, 3.5192913105456905`*^9}, {3.519308548033619*^9, 3.5193085555440483`*^9}, {3.564999360466679*^9, 3.564999363536296*^9}, { 3.569417275851466*^9, 3.569417276398503*^9}, {3.569582259488718*^9, 3.569582278133986*^9}, 3.569641893901539*^9, {3.569642943296287*^9, 3.569642945897749*^9}, {3.569643061251318*^9, 3.569643064454831*^9}, { 3.569668680409959*^9, 3.569668715887561*^9}, 3.571956304371154*^9, 3.571956412224205*^9, {3.571956956943552*^9, 3.571956958023348*^9}, { 3.571957099676708*^9, 3.571957107092396*^9}, {3.571957236318996*^9, 3.571957237460258*^9}, {3.571957271997217*^9, 3.571957272323825*^9}, 3.571957378541151*^9, {3.571988627616618*^9, 3.57198862854038*^9}, { 3.571989543956857*^9, 3.571989572685684*^9}, {3.571989671793637*^9, 3.571989673826103*^9}, {3.571989994000423*^9, 3.571990021789306*^9}, { 3.571990259438161*^9, 3.571990260273157*^9}, {3.571990295865249*^9, 3.571990304257271*^9}, 3.580476446396247*^9}, CellTags->{"corecell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Drawing vector fields on the simplex", "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"drawvf", "[", "1", "]"}], "\[Equal]", "1"}], " ", "||", " ", RowBox[{ RowBox[{"drawvf", "[", "2", "]"}], "\[Equal]", "1"}]}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawvf", "[", "f", "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"arrowsfromrestpoints", "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vectorField", "[", "f", "]"}], "=", RowBox[{ "customVectorField", " ", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{ RowBox[{"vectorfieldf", "[", "f", "]"}], "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fmp"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{ RowBox[{"vectorfieldf", "[", "f", "]"}], "[", RowBox[{ RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fmp"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"vfcolor", "[", "f", "]"}], ",", RowBox[{"vfscale", "[", "f", "]"}], ",", RowBox[{"vfarrowheadsize", "[", "f", "]"}], ",", "vfgridpoints"}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vectorField", "[", "f", "]"}], "=", RowBox[{"customVectorField", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{ RowBox[{"vectorfieldf", "[", "f", "]"}], "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fmp"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"vfcolor", "[", "f", "]"}], ",", RowBox[{"vfscale", "[", "f", "]"}], ",", RowBox[{"vfarrowheadsize", "[", "f", "]"}], ",", "vfgridpoints"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vectorField", "[", "f", "]"}], "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"f", ",", "2"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"vectorField", "[", "f", "]"}], "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{"f", ",", "2"}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.474409954579438*^9, 3.474409965885696*^9}, 3.474410059590437*^9, {3.474411264432915*^9, 3.4744112661553917`*^9}, { 3.4744116091886497`*^9, 3.474411659190549*^9}, {3.4744123256688976`*^9, 3.474412328432872*^9}, {3.474412365966843*^9, 3.474412367268715*^9}, { 3.474413032935898*^9, 3.4744130631293135`*^9}, {3.4744134674306707`*^9, 3.4744134677010593`*^9}, {3.4744135541954317`*^9, 3.4744136513551407`*^9}, {3.474413735275813*^9, 3.47441374325729*^9}, { 3.4744138135583773`*^9, 3.474414013936507*^9}, 3.474414044710758*^9, { 3.4748346690119486`*^9, 3.474834677499152*^9}, 3.4748349834947605`*^9, { 3.4748350407883787`*^9, 3.474835104676106*^9}, {3.474835159185567*^9, 3.4748351841832514`*^9}, {3.474835221063692*^9, 3.47483524289749*^9}, { 3.474835285613969*^9, 3.474835288696415*^9}, {3.4750384882350035`*^9, 3.475038572616338*^9}, {3.4750386241604548`*^9, 3.4750386281962576`*^9}, { 3.475038751563651*^9, 3.4750389399044724`*^9}, {3.475038973953432*^9, 3.475039023755043*^9}, {3.475039098853029*^9, 3.47503931464332*^9}, { 3.475039346378954*^9, 3.4750394584501038`*^9}, {3.475039492028387*^9, 3.4750395462663774`*^9}, {3.4750664634347763`*^9, 3.4750664976539807`*^9}, 3.475066615333195*^9, 3.475066735526024*^9, {3.475066775433408*^9, 3.4750667967240224`*^9}, {3.4750668370520115`*^9, 3.4750668459648275`*^9}, {3.475066932038595*^9, 3.4750669522576685`*^9}, { 3.4750669843938785`*^9, 3.475066996100712*^9}, 3.4750672694738035`*^9, { 3.475149702602003*^9, 3.4751497551876173`*^9}, {3.4751498244872656`*^9, 3.4751498561628127`*^9}, {3.4817568779786673`*^9, 3.4817568872820444`*^9}, {3.481817504681576*^9, 3.4818175112510223`*^9}, 3.491925713332605*^9, {3.49270110286651*^9, 3.4927011106947455`*^9}, { 3.5079839355080023`*^9, 3.5079840086631937`*^9}, {3.539432213621856*^9, 3.539432226375483*^9}, {3.539432500619158*^9, 3.539432502882128*^9}, { 3.539432568002045*^9, 3.539432569329004*^9}, {3.539432627021251*^9, 3.539432641426032*^9}, {3.539433998058204*^9, 3.539434000230252*^9}, { 3.539434045432005*^9, 3.539434100388491*^9}, {3.540033056011722*^9, 3.5400330584565325`*^9}, {3.564999365405445*^9, 3.56499937303557*^9}, { 3.565000705352346*^9, 3.565000707563769*^9}, {3.569581872560152*^9, 3.569581880088112*^9}, {3.569581978166604*^9, 3.56958201877068*^9}, { 3.569671289653905*^9, 3.569671323825783*^9}, {3.569672268702126*^9, 3.569672273608444*^9}, {3.570033029034952*^9, 3.57003305334573*^9}, { 3.570033144684529*^9, 3.570033246897792*^9}, {3.570033277063403*^9, 3.570033282800888*^9}, {3.570095005903351*^9, 3.570095172687042*^9}, { 3.570095532613503*^9, 3.570095541114852*^9}, {3.570132874918437*^9, 3.570132910857109*^9}}, CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff Eqs", "Subsection", CellChangeTimes->{{3.506174473166073*^9, 3.506174473506562*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"trajLines", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"X", "[", "t", "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajSol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "simplexPlotRange"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4817565864194255`*^9, 3.4817565892234573`*^9}, 3.4818175122524624`*^9, {3.4926957945966234`*^9, 3.492695798235078*^9}, { 3.5079504320793877`*^9, 3.507950444847748*^9}, {3.5079818369277143`*^9, 3.5079818385800905`*^9}, {3.50798401391074*^9, 3.5079840215717554`*^9}, { 3.5192891819659433`*^9, 3.519289185550148*^9}, 3.519289318720765*^9, { 3.5192914337617383`*^9, 3.5192914464604645`*^9}, {3.558645085258152*^9, 3.5586450924605637`*^9}, 3.564999373701366*^9, 3.56958175392593*^9, 3.569637622885437*^9, 3.569637668643769*^9, 3.57195798833426*^9, 3.571958055501865*^9}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cTrajLines", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"X", "[", "t", "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"cTrajSol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "simplexPlotRange"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.481758552085915*^9, 3.4817585549199905`*^9}, 3.48181751295347*^9, {3.492692873977274*^9, 3.4926928785037827`*^9}, { 3.4926958490750933`*^9, 3.492695852600162*^9}, {3.507950315842247*^9, 3.5079503387351656`*^9}, {3.5079503826583242`*^9, 3.507950410343133*^9}, { 3.507981847312647*^9, 3.5079818570166006`*^9}, {3.5079840315360837`*^9, 3.5079840425719523`*^9}, 3.5192892258414526`*^9, 3.519289349633533*^9, { 3.5192893925809894`*^9, 3.5192893946791096`*^9}, {3.5192914107414217`*^9, 3.5192914169257755`*^9}, 3.5586451081154594`*^9, 3.564999374374086*^9, 3.569581742637377*^9, 3.569637603029098*^9, 3.569637670027989*^9, { 3.571957992635135*^9, 3.571957995285997*^9}, 3.571958053728816*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff Eqs on sphere", "Subsection", CellChangeTimes->{{3.5061745136442776`*^9, 3.5061745138846235`*^9}, 3.5061746097124166`*^9}, CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"sphereTrajSol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"X", "[", "t", "]"}], ",", "viewray"}], "]"}], "/.", RowBox[{"trajSol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", "delta"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", "delta"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", "delta"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereStrategies", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "j", "]"}], ",", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"simplexCorners", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "viewray"}], "]"}], "+", RowBox[{"sphereStrategiesOffset", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereTrajSol", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereStrategies", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4807783562526894`*^9, 3.480778376221403*^9}, { 3.481756599368045*^9, 3.481756601410982*^9}, 3.491925524741424*^9, { 3.492695861172488*^9, 3.49269587257889*^9}, 3.5079830189851065`*^9, 3.5079833647973604`*^9, {3.507984135896146*^9, 3.507984142956298*^9}, 3.519289323450035*^9, {3.519291370897143*^9, 3.519291393077411*^9}, { 3.558645128263612*^9, 3.558645142081402*^9}, 3.564999287768432*^9, { 3.569497398914266*^9, 3.569497401603584*^9}, {3.569637190001518*^9, 3.569637234486869*^9}, 3.569637358162529*^9, 3.569637615085414*^9, { 3.569637716354632*^9, 3.569637716917769*^9}, {3.569639682136884*^9, 3.56963968486405*^9}, {3.571988249362904*^9, 3.57198825355044*^9}, { 3.57198845704063*^9, 3.57198854514343*^9}, {3.571988670074491*^9, 3.571988685827038*^9}, {3.571988805337429*^9, 3.571988905096836*^9}, { 3.571992813988751*^9, 3.571992820787479*^9}, {3.572378059725465*^9, 3.572378060154616*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Arrows", "Subsection", CellChangeTimes->{{3.5191404527803707`*^9, 3.519140454050443*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"invertarrows", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"invertarrows", "==", "1"}], ",", RowBox[{"auxrelarrowstart", "=", RowBox[{ RowBox[{"-", "1"}], "*", "relarrowstart"}]}], ",", RowBox[{"auxrelarrowstart", "=", "relarrowstart"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"trajAr", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "0"}], ",", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"Hue", "[", "__", "]"}]}], "]"}], " ", "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"GrayLevel", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"RGBColor", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"CMYKColor", "[", "__", "]"}]}], "]"}]}], ")"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", "0", "]"}]}], " ", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5", ",", "j"}], "]"}], "]"}], ",", "arrowheadpos"}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"X", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", "auxrelarrowstart"}], ")"}]}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"X", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4", ",", "j"}], "]"}], "]"}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4747544483459153`*^9, 3.4747545032604313`*^9}, { 3.474754537139147*^9, 3.474754595633257*^9}, {3.474915436257621*^9, 3.4749154421260595`*^9}, {3.4817566037142944`*^9, 3.481756632025003*^9}, { 3.4818175248105197`*^9, 3.4818175258520174`*^9}, {3.484421050737229*^9, 3.4844210556142416`*^9}, {3.484421129850989*^9, 3.484421193302227*^9}, { 3.484421250204048*^9, 3.484421268510371*^9}, {3.4844213848476562`*^9, 3.4844213992583776`*^9}, {3.484421503658498*^9, 3.484421505571248*^9}, { 3.4844215708350925`*^9, 3.4844215898824816`*^9}, {3.4844216922296495`*^9, 3.484421693291176*^9}, {3.4844224694572477`*^9, 3.4844224858107634`*^9}, 3.4844225185878944`*^9, {3.48442255763404*^9, 3.4844226360568066`*^9}, { 3.484422676234579*^9, 3.4844226782274446`*^9}, {3.484676740882244*^9, 3.484676742454505*^9}, 3.4846776463041773`*^9, {3.4886362110952525`*^9, 3.4886362112755117`*^9}, {3.492695915540666*^9, 3.49269591655212*^9}, { 3.4926959512620306`*^9, 3.4926959532248535`*^9}, {3.4926962062835045`*^9, 3.4926962348746166`*^9}, {3.5079830205022883`*^9, 3.5079830366354866`*^9}, {3.5079833650527277`*^9, 3.5079833670055356`*^9}, {3.5079841503369107`*^9, 3.5079841654987125`*^9}, {3.5079841965533667`*^9, 3.507984254837175*^9}, { 3.5192033940264263`*^9, 3.519203447679495*^9}, {3.5192045617522163`*^9, 3.519204562272246*^9}, {3.5192047352131376`*^9, 3.5192048773002644`*^9}, { 3.5192049999292784`*^9, 3.519205040082575*^9}, {3.51928931006427*^9, 3.5192893114753504`*^9}, {3.51929168450508*^9, 3.5192916941646323`*^9}, { 3.540036021631808*^9, 3.5400360352870417`*^9}, {3.540036193072578*^9, 3.540036236575102*^9}, {3.5400584141803885`*^9, 3.5400584200857267`*^9}, { 3.5400591553550415`*^9, 3.540059187195863*^9}, {3.540059340043605*^9, 3.5400593462209587`*^9}, 3.5400610101611304`*^9, {3.540068002878091*^9, 3.540068013816716*^9}, {3.540068058651281*^9, 3.5400680686608534`*^9}, { 3.5586451578093014`*^9, 3.5586451953924513`*^9}, {3.564999375122596*^9, 3.564999375768309*^9}, 3.569582133857538*^9, {3.569637616031397*^9, 3.56963761688452*^9}, 3.571990885067398*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"invertarrows", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"invertarrows", "==", "1"}], ",", RowBox[{"auxrelarrowstart", "=", RowBox[{ RowBox[{"-", "1"}], "*", "relarrowstart"}]}], ",", RowBox[{"auxrelarrowstart", "=", "relarrowstart"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cTrajAr", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "0"}], ",", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"Hue", "[", "__", "]"}]}], "]"}], " ", "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"GrayLevel", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"RGBColor", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"CMYKColor", "[", "__", "]"}]}], "]"}]}], ")"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", "0", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "6", ",", "j"}], "]"}], "]"}], ",", "arrowheadpos"}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexToPlane", "[", "\[IndentingNewLine]", RowBox[{"X", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", "auxrelarrowstart"}], " ", ")"}]}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"cTrajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexToPlane", "[", "\[IndentingNewLine]", RowBox[{"X", "[", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5", ",", "j"}], "]"}], "]"}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"cTrajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "6"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4747546288810654`*^9, 3.4747546425607357`*^9}, { 3.4747547001635647`*^9, 3.474754732680321*^9}, {3.474915464998949*^9, 3.4749154724897203`*^9}, {3.481756641438539*^9, 3.4817566484085617`*^9}, { 3.481758555570926*^9, 3.4817585603878527`*^9}, {3.4818175266832123`*^9, 3.481817527404249*^9}, {3.4841958368035364`*^9, 3.4841958441841493`*^9}, { 3.4841961363442545`*^9, 3.4841961709039493`*^9}, {3.484196668088866*^9, 3.484196668809903*^9}, 3.4841967373684855`*^9, {3.484422538075917*^9, 3.4844225490617137`*^9}, {3.4844226453701982`*^9, 3.4844226559754477`*^9}, {3.484422687500779*^9, 3.4844226922375903`*^9}, { 3.4926928793449926`*^9, 3.4926928893393636`*^9}, {3.4926959178940496`*^9, 3.49269592014729*^9}, {3.4926959545267253`*^9, 3.49269595578854*^9}, { 3.5079830373565235`*^9, 3.507983054481148*^9}, {3.507983367260903*^9, 3.507983369964791*^9}, {3.507984280123535*^9, 3.50798431124829*^9}, { 3.5079843423430023`*^9, 3.5079843529983234`*^9}, 3.519204394046624*^9, { 3.5192045649664*^9, 3.5192045655524335`*^9}, {3.519205078418768*^9, 3.5192051534800615`*^9}, {3.519289343868203*^9, 3.519289344636247*^9}, 3.5192917160558844`*^9, {3.540036037234289*^9, 3.540036043421075*^9}, { 3.5400362572152233`*^9, 3.540036286097891*^9}, {3.5400584295882697`*^9, 3.5400584399708633`*^9}, {3.5400591385540805`*^9, 3.540059143248349*^9}, { 3.540059196472393*^9, 3.5400592028597584`*^9}, {3.5400593542664185`*^9, 3.5400593593377085`*^9}, 3.540061010816168*^9, {3.540068026361434*^9, 3.5400680324387817`*^9}, {3.558645217271703*^9, 3.558645233255617*^9}, { 3.564999376423493*^9, 3.564999377025987*^9}, 3.569582073583145*^9, { 3.569637597674498*^9, 3.569637599126231*^9}, {3.571990812091723*^9, 3.571990834632114*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell["Arrows for the sphere plot", "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "!=", "0"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereTrajAr", "=", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5", ",", "j"}], "]"}], "]"}], ",", "arrowheadpos"}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4", ",", "j"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", "relarrowstart"}], ")"}]}], "]"}], ",", "viewray"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{ RowBox[{"X", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4", ",", "j"}], "]"}], "]"}], "]"}], ",", "viewray"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajSol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereTrajAr", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4747547746206284`*^9, 3.4747547942087946`*^9}, { 3.4749154855184546`*^9, 3.474915506919227*^9}, {3.481756657271305*^9, 3.481756679302985*^9}, 3.4919255292579184`*^9, {3.4926959221201267`*^9, 3.4926959600446596`*^9}, {3.5079830545262127`*^9, 3.5079830574103594`*^9}, {3.507983370220158*^9, 3.507983371842491*^9}, { 3.5079851006584606`*^9, 3.507985158146124*^9}, 3.5079874332177925`*^9, { 3.519204630491148*^9, 3.519204631036179*^9}, {3.5192893140864997`*^9, 3.519289315821599*^9}, {3.519291803790903*^9, 3.519291824175069*^9}, { 3.539376787619448*^9, 3.539376806976456*^9}, {3.5400360450827856`*^9, 3.540036049457341*^9}, {3.54003630491478*^9, 3.540036380608892*^9}, 3.5400610114522038`*^9, {3.5400680915241613`*^9, 3.5400681126453695`*^9}, { 3.5586452466793847`*^9, 3.558645279846282*^9}, {3.564999289967881*^9, 3.564999291097043*^9}, {3.569582109266199*^9, 3.569582110537791*^9}, { 3.569637313282412*^9, 3.569637314397963*^9}, {3.569637386405297*^9, 3.569637387957718*^9}, {3.569637617938451*^9, 3.569637619907479*^9}, { 3.569638456691736*^9, 3.569638613432995*^9}, {3.569638732942844*^9, 3.569638743065697*^9}, {3.569639692200142*^9, 3.569639692548299*^9}, { 3.569639724616748*^9, 3.569639741337402*^9}, {3.571990690637452*^9, 3.571990809535869*^9}, {3.57199084036612*^9, 3.571990845442211*^9}, { 3.571992833491703*^9, 3.571992851042686*^9}, {3.571994392225714*^9, 3.571994393435551*^9}, {3.571994730875167*^9, 3.571994731232424*^9}, { 3.571994769481274*^9, 3.571994773926964*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Contour Plot", "Subsection", CellChangeTimes->{{3.5061744874265785`*^9, 3.5061745241994553`*^9}, { 3.5061745821227446`*^9, 3.5061745870999017`*^9}, {3.5061811317046022`*^9, 3.506181164601906*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"contourRanges", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}]}], "}"}]}], ";"}]], "Input", CellTags->{"corecell", "differentacrossnotebooks", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"drawphasediagram", "==", "1"}], ",", RowBox[{"pdcontourplot", "\[Equal]", "1"}]}], "]"}], ",", RowBox[{"And", "[", RowBox[{ RowBox[{"drawvectorfield", "==", "1"}], ",", RowBox[{"vfcontourplot", "\[Equal]", "1"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "f", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"contourFunction", "[", RowBox[{"planeToSimplex", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"con", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"y", "<", RowBox[{ RowBox[{ SqrtBox["3"], "x"}], "+", ".001"}]}], " ", "&&", " ", RowBox[{"y", "<", RowBox[{ SqrtBox["3"], "-", RowBox[{ SqrtBox["3"], "x"}], "+", ".001"}]}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", "\[Rule]", "plotprecision"}], ",", "\[IndentingNewLine]", RowBox[{"Contours", "\[Rule]", RowBox[{"customContours", "[", RowBox[{ "numberofcontours", ",", "50", ",", "f", ",", "contourRanges"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ContourStyle", "\[Rule]", "None"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"conColFun", "[", "#1", "]"}], "&"}], ")"}]}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"con", "=", RowBox[{"con", "/.", "contourPlotRule"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"compressgraphic", "==", "1"}], ",", RowBox[{"con", "=", RowBox[{"fixPolygons", "[", "con", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"con", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\n", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], ",", RowBox[{"pdCon", "=", "con"}], ",", RowBox[{"pdCon", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"vfcontourplot", "\[Equal]", "1"}], ",", RowBox[{"vfCon", "=", "con"}], ",", RowBox[{"vfCon", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4809466663861003`*^9, 3.48094669543279*^9}, 3.481805502986408*^9, 3.481817589914134*^9, {3.483928909734166*^9, 3.4839289464269276`*^9}, {3.4839290227066126`*^9, 3.483929030407686*^9}, { 3.4844007021427264`*^9, 3.4844007073001423`*^9}, {3.4844007875655584`*^9, 3.4844009196705837`*^9}, {3.4844010704974623`*^9, 3.484401121871334*^9}, { 3.4844016863015375`*^9, 3.4844017155535994`*^9}, 3.484403244479725*^9, { 3.484403672282983*^9, 3.4844037072671633`*^9}, {3.48440392555104*^9, 3.484403988882106*^9}, {3.4844069519128704`*^9, 3.484406952353504*^9}, { 3.484407000783142*^9, 3.4844070024855905`*^9}, {3.4844108478916984`*^9, 3.484410884654561*^9}, {3.4844109209066887`*^9, 3.484410927265833*^9}, { 3.4844114299586697`*^9, 3.4844114406039767`*^9}, {3.4844116935577064`*^9, 3.484411697713682*^9}, {3.48441175083006*^9, 3.4844117800120215`*^9}, { 3.48441197665478*^9, 3.4844119768951254`*^9}, {3.484421177028827*^9, 3.4844211803235645`*^9}, {3.4846706502742443`*^9, 3.4846706515160303`*^9}, 3.484674724602977*^9, {3.4846747572399063`*^9, 3.484674775005452*^9}, { 3.4846750623486314`*^9, 3.484675072353017*^9}, {3.4846763490488157`*^9, 3.4846763530846186`*^9}, {3.484676390828892*^9, 3.4846764079435015`*^9}, { 3.4919226530940423`*^9, 3.491922682291828*^9}, {3.4919250631176414`*^9, 3.4919250699975348`*^9}, {3.491925960708314*^9, 3.4919259627612658`*^9}, { 3.4919260040606513`*^9, 3.4919260051522207`*^9}, 3.491931484426795*^9, 3.491931811216696*^9, {3.4919335995215807`*^9, 3.4919336044340334`*^9}, { 3.492040526036707*^9, 3.49204052699809*^9}, {3.492040791238048*^9, 3.4920408104757104`*^9}, {3.4920409239889345`*^9, 3.492040934313781*^9}, { 3.492041132729088*^9, 3.492041149703496*^9}, {3.4920413016419725`*^9, 3.492041326347498*^9}, {3.492041688658475*^9, 3.492041707635763*^9}, 3.4920417511082735`*^9, {3.492042736208557*^9, 3.4920427443502645`*^9}, 3.4920436765267363`*^9, {3.506174784944388*^9, 3.506174807556903*^9}, { 3.507228256296869*^9, 3.507228257698885*^9}, {3.5192918784221716`*^9, 3.519291893561037*^9}, {3.5396266623299794`*^9, 3.539626704728609*^9}, { 3.539626992440119*^9, 3.539626993727188*^9}, {3.5396273203584127`*^9, 3.5396273219752903`*^9}, {3.5396589697605586`*^9, 3.5396589781359386`*^9}, {3.5396591589463058`*^9, 3.5396591612042294`*^9}, {3.5397132119426723`*^9, 3.539713212940299*^9}, { 3.5402097898972588`*^9, 3.540209790781067*^9}, 3.564999447212243*^9, 3.565000591687566*^9, {3.565003322861509*^9, 3.565003347223055*^9}, { 3.565003412649272*^9, 3.565003416589108*^9}, {3.569581639113954*^9, 3.569581655723664*^9}, 3.569641771458799*^9, 3.569642979607485*^9, { 3.569643339299862*^9, 3.569643375543987*^9}, {3.569644983775928*^9, 3.569644993612289*^9}, {3.569645024617142*^9, 3.569645033745159*^9}, 3.569645086850106*^9, {3.569668469969839*^9, 3.569668497253047*^9}, 3.571959927150462*^9, {3.571959993953198*^9, 3.571960025867403*^9}, { 3.571960149239593*^9, 3.571960222882271*^9}, {3.571960280424012*^9, 3.571960301658931*^9}, {3.571960531670157*^9, 3.571960547806295*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing 3D Plot of contour function", "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "==", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"restricted", ",", "f", ",", "tdEdgef"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restricted", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexQ", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"contourFunction", "[", "x", "]"}], ",", RowBox[{"-", "Infinity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"restricted", "[", RowBox[{"planeToSimplex", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], "]"}], "]"}]}], ";", " ", RowBox[{"tdCon", "=", " ", RowBox[{"Plot3D", "[", " ", RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"contourRanges", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", " ", "\[Rule]", " ", "plotprecision"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"minAttained", "-", "rangeAttained"}], ",", RowBox[{"maxAttained", "+", ".05"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", " ", "False"}], " ", ",", " ", RowBox[{"ColorFunction", "\[Rule]", " ", RowBox[{"(", RowBox[{ RowBox[{"conColFun", "[", "#3", "]"}], "&"}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Mesh", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"BoxRatios", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"grayline", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tdEdgef", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"ParametricPlot3D", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"contourFunction", "[", RowBox[{"planeToSimplex", "[", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"Thickness", "[", ".006", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Full", ",", "Full", ",", RowBox[{"{", RowBox[{ RowBox[{"minAttained", "-", "rangeAttained"}], ",", RowBox[{"maxAttained", "+", ".05"}]}], "}"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdEdge", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdEdgef", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"t", ",", RowBox[{"t", "/", "2"}]}], "]"}], ",", RowBox[{"Function", "[", RowBox[{"t", ",", FractionBox[ RowBox[{ SqrtBox["3"], "t"}], "2"]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"tdEdgef", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"t", ",", RowBox[{"1", "-", RowBox[{"t", "/", "2"}]}]}], "]"}], ",", RowBox[{"Function", "[", RowBox[{"t", ",", FractionBox[ RowBox[{ SqrtBox["3"], "t"}], "2"]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"tdEdgef", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"t", ",", RowBox[{"1", "-", "t"}]}], "]"}], ",", RowBox[{"Function", "[", RowBox[{"t", ",", "0"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdEdge", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tdCon", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tdEdge", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.474737157697256*^9, 3.474737158688682*^9}, { 3.474914898344139*^9, 3.4749148987747583`*^9}, {3.474918575556779*^9, 3.474918600132117*^9}, {3.4809470073526683`*^9, 3.4809470402899575`*^9}, 3.481298819769389*^9, {3.4818055039878483`*^9, 3.4818055057503824`*^9}, { 3.4818175907353153`*^9, 3.481817592397705*^9}, 3.491925637824029*^9, { 3.5192919133021665`*^9, 3.5192919700154104`*^9}, {3.564999447957466*^9, 3.564999449766142*^9}, {3.569497402672702*^9, 3.569497420203246*^9}, { 3.56949771904237*^9, 3.569497724867026*^9}, {3.56958233149771*^9, 3.569582335794607*^9}, {3.5695824364901*^9, 3.569582440216202*^9}, { 3.569641772936555*^9, 3.569641777244402*^9}, {3.569642809828804*^9, 3.569642811859451*^9}, {3.569642879020324*^9, 3.569642881977873*^9}, 3.569642980449894*^9, {3.569643051977477*^9, 3.569643055112112*^9}, { 3.569643403195644*^9, 3.569643597210388*^9}, {3.569643770900743*^9, 3.569643915160315*^9}, 3.569644020104753*^9, {3.569644099147865*^9, 3.569644157473433*^9}, {3.569644187779072*^9, 3.569644261939154*^9}, { 3.569644298028608*^9, 3.569644413667299*^9}, {3.569644445804507*^9, 3.569644446775912*^9}, {3.569644520113978*^9, 3.569644717647004*^9}, { 3.569644995300153*^9, 3.569644996416212*^9}, {3.569645038414507*^9, 3.569645039997648*^9}, {3.569668581636212*^9, 3.569668582824246*^9}, { 3.569668773712794*^9, 3.569668781353254*^9}, {3.570145638421986*^9, 3.570145663449563*^9}, {3.571960495225283*^9, 3.571960508930555*^9}, { 3.571960590137391*^9, 3.571960598461189*^9}, 3.571960794206597*^9, { 3.571963449212145*^9, 3.571963472687584*^9}, {3.571963864935975*^9, 3.571963910371242*^9}, {3.571964269064563*^9, 3.571964269602139*^9}, { 3.571965441318351*^9, 3.571965463785302*^9}, {3.571965536219091*^9, 3.571965536599057*^9}, 3.571965609051283*^9, {3.571984539645978*^9, 3.571984613578907*^9}, 3.571984864269536*^9, {3.571988129124932*^9, 3.571988170850266*^9}, {3.571989525886036*^9, 3.571989554559173*^9}}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Contour Plot for sphere", "Subsection", CellChangeTimes->{{3.5061745908753304`*^9, 3.50617461500002*^9}, { 3.506181173294405*^9, 3.506181175607732*^9}}, CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "restricted"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restricted", "[", RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[Element]", "Reals"}], "&&", RowBox[{"y", "\[Element]", "Reals"}], "&&", RowBox[{"z", "\[Element]", "Reals"}], "&&", RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", RowBox[{"z", "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"x", "+", "y", "+", "z"}], "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"contourFunction", "[", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}], "]"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"restricted", "[", RowBox[{"sphereToSimplex", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "viewray"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereCon", "=", RowBox[{"ContourPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"fromwmin", "[", "1", "]"}], ",", RowBox[{"towmax", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"fromwmin", "[", "2", "]"}], ",", RowBox[{"towmax", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", "plotprecision"}], ",", RowBox[{"Contours", "\[Rule]", RowBox[{"customContours", "[", RowBox[{"numberofcontours", ",", "50", ",", "f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], ",", RowBox[{"towmax", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], ",", RowBox[{"towmax", "[", "2", "]"}]}], "}"}]}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ContourStyle", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"conColFun", "[", "#1", "]"}], "&"}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sphereCon", "=", RowBox[{"sphereCon", "/.", "contourPlotRule"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"compressgraphic", "==", "1"}], ",", RowBox[{"sphereCon", "=", RowBox[{"fixPolygons", "[", "sphereCon", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sphereCon", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.480946839556867*^9, 3.4809468496661777`*^9}, 3.4818055365747056`*^9, 3.4919255283866653`*^9, {3.492040847128414*^9, 3.4920408746079283`*^9}, {3.4920411712044125`*^9, 3.492041260132285*^9}, { 3.4920427533632245`*^9, 3.4920427788999443`*^9}, {3.492042810074772*^9, 3.4920428428619175`*^9}, {3.492043118197831*^9, 3.492043118458205*^9}, 3.4920436777885504`*^9, 3.519139556832125*^9, {3.5192919825181255`*^9, 3.5192920221933947`*^9}, {3.54020957684973*^9, 3.540209626752468*^9}, { 3.540209658240424*^9, 3.540209717091483*^9}, {3.540209749253173*^9, 3.540209775386539*^9}, {3.540209858317498*^9, 3.5402098796123943`*^9}, 3.564999237387204*^9, 3.565000592807868*^9, 3.565003350085854*^9, 3.569639075841453*^9, {3.569640752090348*^9, 3.569640752777917*^9}, 3.569641780824779*^9, 3.569642737128038*^9, 3.569642981372628*^9, { 3.569644800636602*^9, 3.569644911609005*^9}, {3.569645110717295*^9, 3.569645145497191*^9}, 3.569645261834601*^9, {3.569668424764103*^9, 3.569668434690794*^9}, {3.569745484058025*^9, 3.569745489772605*^9}, { 3.570141121133057*^9, 3.570141125067119*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Generating the output notebook", "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell["Redirection", "Text", CellChangeTimes->{{3.519293386924453*^9, 3.519293396552004*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"OutputToOneNotebook", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OutputClearNotebook", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.4819270007532053`*^9, 3.4819270530183587`*^9}, 3.481927590451149*^9, 3.4819278444263477`*^9, 3.4819282299507046`*^9, 3.4819286333107076`*^9, 3.488578830716974*^9, {3.488578960313324*^9, 3.4885789607239146`*^9}, {3.4885790378247805`*^9, 3.4885790387160616`*^9}, 3.4885794410846395`*^9, 3.513619302965243*^9, {3.513619365443816*^9, 3.513619379921644*^9}, {3.5159601858828783`*^9, 3.515960208399166*^9}, 3.5400322337818117`*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"$VersionNumber", "\[Equal]", "8"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "flag", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"ScheduledTasks", "[", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"str", "=", RowBox[{"ToString", "[", RowBox[{ RowBox[{"ScheduledTasks", "[", "]"}], "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{"str", ",", RowBox[{"Min", "[", RowBox[{"11", ",", RowBox[{"StringLength", "[", "str", "]"}]}], "]"}]}], "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"RunScheduledTask", "[", "\[IndentingNewLine]", RowBox[{"dynamotask", ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{ RowBox[{ RowBox[{"Notebooks", "[", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\\""}], "]"}], "!=", "\"\\""}], ",", " ", "..."}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nb", ",", "name"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nb", "=", RowBox[{"SelectedNotebook", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"name", "=", RowBox[{"CurrentValue", "[", RowBox[{"nb", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", "name", "]"}], "!=", "\"\<$Failed\>\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{"name", ",", RowBox[{"Min", "[", RowBox[{"13", ",", RowBox[{"StringLength", "[", "name", "]"}]}], "]"}]}], "]"}], "!=", "\"\\""}], ",", RowBox[{ RowBox[{"StringTake", "[", RowBox[{"name", ",", RowBox[{"-", RowBox[{"Min", "[", RowBox[{"3", ",", RowBox[{"StringLength", "[", "name", "]"}]}], "]"}]}]}], "]"}], "==", "\"\<.nb\>\""}]}], "]"}], ",", RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"Options", "[", RowBox[{"nb", ",", "WindowTitle"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"WindowTitle", "->", "Automatic"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"NotebookSave", "[", "nb", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], "]"}], ";"}], "\[IndentingNewLine]", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "With", " ", "the", " ", "technology", " ", "to", " ", "keep", " ", "track", " ", "of", " ", "all", " ", "the", " ", "dynamo_notebooks", " ", "the", " ", "following", " ", "should", " ", "be", " ", "rewritten"}], ";", " ", RowBox[{"only", " ", "v8", " ", "and", " ", RowBox[{"above", ".", " ", "The"}], " ", "use", " ", "of", " ", RowBox[{"Notebooks", "[", "]"}], " ", "crashes", " ", "mathematica", " ", "when", " ", "saving", " ", "figures", " ", "who", " ", "knows", " ", RowBox[{"why", "."}]}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{ 3.4744628258336067`*^9, 3.474464139362368*^9, {3.4744670890838594`*^9, 3.474467110013955*^9}, {3.4744688011456833`*^9, 3.474468802697915*^9}, { 3.4749407895967093`*^9, 3.4749407915894203`*^9}, {3.481850396037259*^9, 3.4818504258401136`*^9}, {3.481850492976651*^9, 3.481850504062592*^9}, { 3.4818505494778957`*^9, 3.481850629563053*^9}, {3.481850876468085*^9, 3.48185090267577*^9}, {3.481852369224563*^9, 3.481852415130573*^9}, { 3.4818524479077044`*^9, 3.4818524680266333`*^9}, {3.4818525094061346`*^9, 3.4818525146336513`*^9}, {3.4818525834225645`*^9, 3.481852588289563*^9}, { 3.4818905060400004`*^9, 3.481890511207431*^9}, {3.4818907547476244`*^9, 3.481890769178375*^9}, {3.481890965610831*^9, 3.481890977007218*^9}, { 3.481891014891693*^9, 3.48189106793797*^9}, {3.48189119086473*^9, 3.4818912201468353`*^9}, {3.48189171696122*^9, 3.4818917858803205`*^9}, { 3.4819128855365205`*^9, 3.4819130159840946`*^9}, {3.481913126803445*^9, 3.4819131405031443`*^9}, {3.4819133713350644`*^9, 3.481913385875973*^9}, { 3.4819134240708947`*^9, 3.481913424731845*^9}, {3.4819271026797686`*^9, 3.48192712819646*^9}, {3.481927226898386*^9, 3.4819272350200644`*^9}, 3.481927268638405*^9, {3.481927312601621*^9, 3.4819273452786083`*^9}, { 3.481927414508156*^9, 3.4819274840281205`*^9}, {3.481927515132847*^9, 3.481927592544159*^9}, 3.481927701831306*^9, 3.481927802245695*^9, { 3.481927877503911*^9, 3.481927887378109*^9}, {3.481928180058964*^9, 3.481928198886036*^9}, 3.482102927436123*^9, 3.488577291533737*^9, { 3.488578471770835*^9, 3.4885784907481227`*^9}, {3.4885785249773417`*^9, 3.488578668283406*^9}, {3.4885787265071273`*^9, 3.488578791640785*^9}, 3.4885788684111757`*^9, {3.4885790329477673`*^9, 3.488579034670244*^9}, { 3.488579181170902*^9, 3.4885792208980265`*^9}, {3.4887166422958193`*^9, 3.488716710493883*^9}, {3.48871675002072*^9, 3.4887169524217587`*^9}, { 3.4887170168243647`*^9, 3.4887170803156605`*^9}, {3.4887176029471684`*^9, 3.488717793921776*^9}, {3.4887179412636433`*^9, 3.488717952599944*^9}, 3.4919096715747457`*^9, 3.491911804702297*^9, {3.492206707387201*^9, 3.4922067082484393`*^9}, 3.4922070187749543`*^9, {3.493292099055402*^9, 3.4932921103516445`*^9}, {3.4932921819846478`*^9, 3.493292182936016*^9}, { 3.493292331229251*^9, 3.493292334013254*^9}, {3.4932924788515215`*^9, 3.4932925167560253`*^9}, {3.4932925506247263`*^9, 3.493292589400483*^9}, { 3.493292633533944*^9, 3.493292656396819*^9}, {3.493292695603195*^9, 3.4932927427610044`*^9}, {3.4932927988616734`*^9, 3.493292908559411*^9}, { 3.493292985119499*^9, 3.493293027850944*^9}, {3.4932931051320686`*^9, 3.493293263029114*^9}, {3.4932933341714115`*^9, 3.493293501411891*^9}, { 3.4932936199423294`*^9, 3.4932936281541376`*^9}, {3.493293681020155*^9, 3.4932937166213474`*^9}, {3.5134506501871157`*^9, 3.51345066547599*^9}, { 3.513619443890303*^9, 3.513619462332358*^9}, {3.513619503475711*^9, 3.5136195095140567`*^9}, {3.513619585230387*^9, 3.5136195903876824`*^9}, 3.5136198710437346`*^9, {3.5136200334760256`*^9, 3.51362004911592*^9}, { 3.5136201303015633`*^9, 3.5136201526408415`*^9}, 3.5136202407418804`*^9, { 3.5136207304318895`*^9, 3.5136207741163874`*^9}, {3.513620827627448*^9, 3.5136208493186893`*^9}, 3.515960259470087*^9, 3.5192125129840007`*^9, { 3.534877203063891*^9, 3.534877212039724*^9}, {3.534877442005128*^9, 3.534877444294795*^9}, {3.534882576077549*^9, 3.534882585418604*^9}, { 3.534882641837071*^9, 3.534882721421357*^9}, {3.534882892905429*^9, 3.534882937562893*^9}, {3.534883102417454*^9, 3.5348831647559*^9}, { 3.534883232511087*^9, 3.534883238994903*^9}, {3.534883304176552*^9, 3.53488337778108*^9}, {3.534883571215105*^9, 3.534883576340143*^9}, { 3.534883642015004*^9, 3.534883718819896*^9}, {3.534883879507542*^9, 3.534883892605078*^9}, {3.534883949032186*^9, 3.534883974271927*^9}, { 3.534884245526599*^9, 3.534884246177126*^9}, {3.534890502856115*^9, 3.534890525364187*^9}, {3.534890747705965*^9, 3.534890748311044*^9}, { 3.534891083538096*^9, 3.534891097421664*^9}, {3.534891236637099*^9, 3.534891302545374*^9}, {3.53489139160912*^9, 3.534891392685655*^9}, { 3.534891440637543*^9, 3.534891587376244*^9}, {3.534891719030115*^9, 3.534891777505655*^9}, {3.534891811852268*^9, 3.534891938828646*^9}, { 3.534892002663717*^9, 3.534892059795539*^9}, {3.535194716728555*^9, 3.535194749728377*^9}, {3.535194916997455*^9, 3.535194948429304*^9}, { 3.535195142636111*^9, 3.535195145675747*^9}, {3.535195247734684*^9, 3.535195252727247*^9}, {3.53519550849198*^9, 3.535195530669729*^9}, { 3.535195570115893*^9, 3.535195571454197*^9}, {3.535195735877003*^9, 3.535195742461371*^9}, {3.535195773990878*^9, 3.535195775503743*^9}, { 3.535195872354998*^9, 3.535195873093282*^9}, {3.535196003449821*^9, 3.535196019543781*^9}, {3.535196094093035*^9, 3.535196116719279*^9}, { 3.535196204031754*^9, 3.535196271448115*^9}, {3.535196316990155*^9, 3.535196332253896*^9}, {3.53519641162841*^9, 3.535196417375656*^9}, { 3.535196685814177*^9, 3.535196735320065*^9}, {3.535196824014973*^9, 3.535196879945483*^9}, {3.535197038780751*^9, 3.535197211042725*^9}, { 3.53519763548899*^9, 3.535197732148759*^9}, {3.53519776215084*^9, 3.535197763410854*^9}, {3.535197877944032*^9, 3.535197977582992*^9}, { 3.535198015305199*^9, 3.535198119041687*^9}, {3.535198152919574*^9, 3.53519822118637*^9}, {3.535198262415356*^9, 3.535198356967782*^9}, { 3.53519848992645*^9, 3.535198494810415*^9}, {3.535198572657414*^9, 3.53519857660383*^9}, {3.535198653207776*^9, 3.535198664117836*^9}, { 3.535198718269121*^9, 3.535198759997529*^9}, {3.535198835344086*^9, 3.535198849199196*^9}, {3.535198895228369*^9, 3.535198895620291*^9}, 3.53519895267718*^9, {3.535199087859097*^9, 3.535199112954699*^9}, { 3.535199202771707*^9, 3.535199207387837*^9}, {3.535200383657942*^9, 3.535200421570152*^9}, {3.535200477394101*^9, 3.535200562911352*^9}, { 3.535200748642593*^9, 3.535200901602166*^9}, {3.535202915457114*^9, 3.535202948036654*^9}, {3.535208083509515*^9, 3.535208096028963*^9}, { 3.535208514737791*^9, 3.535208525792168*^9}, {3.53520862868647*^9, 3.535208641923977*^9}, {3.535208674167192*^9, 3.535208675764962*^9}, { 3.535302162994192*^9, 3.53530224569201*^9}, {3.535302289291187*^9, 3.535302289833243*^9}, {3.535302422363998*^9, 3.535302427040458*^9}, { 3.535302556435537*^9, 3.535302556843267*^9}, {3.535302701746615*^9, 3.535302712002741*^9}, {3.5396221992587805`*^9, 3.539622206169593*^9}, { 3.539622262626092*^9, 3.539622265590097*^9}, {3.539626849813619*^9, 3.539626855615736*^9}, {3.5396388473876667`*^9, 3.5396388503004274`*^9}, { 3.539639012538885*^9, 3.539639029656252*^9}, {3.5396396754976063`*^9, 3.539639685276086*^9}, {3.5396397404879427`*^9, 3.539639743876923*^9}, { 3.5396397996600103`*^9, 3.539639832948827*^9}, {3.53963995704625*^9, 3.539639976250066*^9}, {3.53964157700106*^9, 3.539641588280031*^9}, { 3.5396416579955626`*^9, 3.5396419357199707`*^9}, {3.539642309743785*^9, 3.5396423099797983`*^9}, {3.539724436468506*^9, 3.5397244462462473`*^9}, 3.5397247242255464`*^9, {3.539724781935875*^9, 3.5397247824134355`*^9}, { 3.539724829891464*^9, 3.5397248356476955`*^9}, {3.5397262743598886`*^9, 3.539726362691605*^9}, {3.5397268130132885`*^9, 3.539726978191264*^9}, { 3.5397271356702614`*^9, 3.539727136708893*^9}, {3.5399709505474215`*^9, 3.5399710306950054`*^9}, {3.539971428676769*^9, 3.5399714552452884`*^9}, { 3.5399720328833275`*^9, 3.5399720358924994`*^9}, {3.539972105522482*^9, 3.5399721286768064`*^9}, {3.5399726360658274`*^9, 3.5399726758191013`*^9}, {3.5399728222164745`*^9, 3.539972885918118*^9}, { 3.5400695880411987`*^9, 3.5400696328233852`*^9}, {3.540212349470435*^9, 3.540212401250454*^9}, {3.5402132082534246`*^9, 3.540213211842168*^9}, { 3.540214941593575*^9, 3.540214951940196*^9}, {3.540218762155703*^9, 3.5402187638035994`*^9}, {3.5402188563957663`*^9, 3.5402188601863203`*^9}, {3.540218988109654*^9, 3.5402189970384827`*^9}, { 3.540219031101911*^9, 3.540219043437808*^9}, {3.5402190792184477`*^9, 3.5402190810177517`*^9}, 3.566816026468449*^9, {3.566817122194599*^9, 3.566817131366986*^9}, {3.566817353169292*^9, 3.566817356704487*^9}, { 3.566817797030224*^9, 3.566817805269693*^9}, {3.5668190375407*^9, 3.566819041238951*^9}, {3.566819185052538*^9, 3.566819186862085*^9}, { 3.56681957438486*^9, 3.566819606188912*^9}, {3.566820465066762*^9, 3.566820465316976*^9}, {3.566820655198971*^9, 3.566820658163562*^9}, { 3.566820824081942*^9, 3.566820829919006*^9}, {3.566820977337488*^9, 3.56682097869982*^9}, {3.566835964608947*^9, 3.566835967381326*^9}, { 3.566836015565601*^9, 3.566836021717571*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Redirecting"}]}]}]}]}], " ", "output", " ", "to", " ", "a", " ", "new", " ", RowBox[{ RowBox[{ RowBox[{"notebook", "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", " ", RowBox[{"WindowTitle", "->", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"$nb", ",", RowBox[{"WindowTitle", "->", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"Quiet", "[", RowBox[{"NotebookFileName", "[", "$nb", "]"}], "]"}], "]"}], "!=", "\"\<$Failed\>\""}], ",", "Automatic", ",", "\"\\""}], "]"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}], " ", "]"}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SetSelectedNotebook", "[", "$nb", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"OutputClearNotebook", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookDelete", "[", "$nb", "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"NotebookPut", "[", RowBox[{ RowBox[{"Notebook", "[", RowBox[{"{", "}"}], "]"}], ",", "$nb"}], "]"}], "*)"}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"OutputToOneNotebook", "==", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetNotebookCounter", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nb", ",", "NotebookCounter", ",", "notebook", ",", "namelength", ",", "tmpstring", ",", "tmpcounter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookCounter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"notebook", "=", "1"}], ",", RowBox[{"notebook", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Notebooks", "[", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"notebook", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nb", "=", RowBox[{ RowBox[{"Notebooks", "[", "]"}], "[", RowBox[{"[", "notebook", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"namelength", "=", RowBox[{"StringLength", "[", RowBox[{"CurrentValue", "[", RowBox[{"nb", ",", "\"\\""}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"namelength", ">", "14"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tmpstring", "=", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"nb", ",", "\"\\""}], "]"}], ",", "14"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tmpcounter", "=", RowBox[{"ToExpression", "[", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"nb", ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"15", ",", "namelength"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tmpcounter", " ", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"IntegerQ", "[", "tmpcounter", "]"}], ",", "tmpcounter", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"tmpstring", ",", "tmpcounter"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"tmpstring", "==", "\"\\""}], " ", "&&", " ", RowBox[{"Not", "[", RowBox[{"tmpcounter", " ", "<=", "0"}], " ", "]"}], " ", "&&", " ", RowBox[{"tmpcounter", ">", "NotebookCounter"}]}], ",", RowBox[{"NotebookCounter", "=", "tmpcounter"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookCounter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NotebookCounter", "==", "2"}], " ", "&&", " ", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}]}], ",", RowBox[{"NotebookCounter", "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Notebooks", "[", RowBox[{"\"\\"", "~~", RowBox[{"ToString", "[", "NotebookCounter", "]"}]}], "]"}], "==", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookCounter", "=", RowBox[{"NotebookCounter", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "NotebookCounter"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", RowBox[{"WindowTitle", "->", RowBox[{"\"\\"", "~~", RowBox[{"ToString", "[", RowBox[{"SetNotebookCounter", "[", "]"}], "]"}]}]}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$DisplayFunction", "=", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"$DisplayFunction", "=", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", " ", RowBox[{"Cell", "[", RowBox[{ RowBox[{"GraphicsData", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ExportString", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$Post", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "=!=", " ", "Null"}], ",", RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Unprotect", "[", "Print", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], "]"}], "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x__", "]"}], " ", ":=", RowBox[{"Map", "[", RowBox[{"Print", ",", RowBox[{"{", "x", "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Protect", "[", "Print", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Redirecting"}]}]}]}]}]}]}]}], " ", "code", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ends", "--"}], "--"}], "--"}], "--"}], "--"}]}], "-", RowBox[{"--", RowBox[{"--", "-"}]}]}], "*)"}]}]}]], "Input", CellChangeTimes->{ 3.4744628258336067`*^9, 3.474464139362368*^9, {3.4744670890838594`*^9, 3.474467110013955*^9}, {3.4744688011456833`*^9, 3.474468802697915*^9}, { 3.4749407895967093`*^9, 3.4749407915894203`*^9}, {3.481850396037259*^9, 3.4818504258401136`*^9}, {3.481850492976651*^9, 3.481850504062592*^9}, { 3.4818505494778957`*^9, 3.481850629563053*^9}, {3.481850876468085*^9, 3.48185090267577*^9}, {3.481852369224563*^9, 3.481852415130573*^9}, { 3.4818524479077044`*^9, 3.4818524680266333`*^9}, {3.4818525094061346`*^9, 3.4818525146336513`*^9}, {3.4818525834225645`*^9, 3.481852588289563*^9}, { 3.4818905060400004`*^9, 3.481890511207431*^9}, {3.4818907547476244`*^9, 3.481890769178375*^9}, {3.481890965610831*^9, 3.481890977007218*^9}, { 3.481891014891693*^9, 3.48189106793797*^9}, {3.48189119086473*^9, 3.4818912201468353`*^9}, {3.48189171696122*^9, 3.4818917858803205`*^9}, { 3.4819128855365205`*^9, 3.4819130159840946`*^9}, {3.481913126803445*^9, 3.4819131405031443`*^9}, {3.4819133713350644`*^9, 3.481913385875973*^9}, { 3.4819134240708947`*^9, 3.481913424731845*^9}, {3.4819271026797686`*^9, 3.48192712819646*^9}, {3.481927226898386*^9, 3.4819272350200644`*^9}, 3.481927268638405*^9, {3.481927312601621*^9, 3.4819273452786083`*^9}, { 3.481927414508156*^9, 3.4819274840281205`*^9}, {3.481927515132847*^9, 3.481927592544159*^9}, 3.481927701831306*^9, 3.481927802245695*^9, { 3.481927877503911*^9, 3.481927887378109*^9}, {3.481928180058964*^9, 3.481928198886036*^9}, 3.482102927436123*^9, 3.488577291533737*^9, { 3.488578471770835*^9, 3.4885784907481227`*^9}, {3.4885785249773417`*^9, 3.488578668283406*^9}, {3.4885787265071273`*^9, 3.488578791640785*^9}, 3.4885788684111757`*^9, {3.4885790329477673`*^9, 3.488579034670244*^9}, { 3.488579181170902*^9, 3.4885792208980265`*^9}, {3.4887166422958193`*^9, 3.488716710493883*^9}, {3.48871675002072*^9, 3.4887169524217587`*^9}, { 3.4887170168243647`*^9, 3.4887170803156605`*^9}, {3.4887176029471684`*^9, 3.488717793921776*^9}, {3.4887179412636433`*^9, 3.488717952599944*^9}, 3.4919096715747457`*^9, 3.491911804702297*^9, {3.492206707387201*^9, 3.4922067082484393`*^9}, 3.4922070187749543`*^9, {3.493292099055402*^9, 3.4932921103516445`*^9}, {3.4932921819846478`*^9, 3.493292182936016*^9}, { 3.493292331229251*^9, 3.493292334013254*^9}, {3.4932924788515215`*^9, 3.4932925167560253`*^9}, {3.4932925506247263`*^9, 3.493292589400483*^9}, { 3.493292633533944*^9, 3.493292656396819*^9}, {3.493292695603195*^9, 3.4932927427610044`*^9}, {3.4932927988616734`*^9, 3.493292908559411*^9}, { 3.493292985119499*^9, 3.493293027850944*^9}, {3.4932931051320686`*^9, 3.493293263029114*^9}, {3.4932933341714115`*^9, 3.493293501411891*^9}, { 3.4932936199423294`*^9, 3.4932936281541376`*^9}, {3.493293681020155*^9, 3.4932937166213474`*^9}, {3.5134506501871157`*^9, 3.51345066547599*^9}, { 3.513619443890303*^9, 3.513619462332358*^9}, {3.513619503475711*^9, 3.5136195095140567`*^9}, {3.513619585230387*^9, 3.5136195903876824`*^9}, 3.5136198710437346`*^9, {3.5136200334760256`*^9, 3.51362004911592*^9}, { 3.5136201303015633`*^9, 3.5136201526408415`*^9}, 3.5136202407418804`*^9, { 3.5136207304318895`*^9, 3.5136207741163874`*^9}, {3.513620827627448*^9, 3.5136208493186893`*^9}, 3.515960259470087*^9, 3.5192125129840007`*^9, { 3.534877203063891*^9, 3.534877212039724*^9}, {3.534877442005128*^9, 3.534877444294795*^9}, {3.534882576077549*^9, 3.534882585418604*^9}, { 3.534882641837071*^9, 3.534882721421357*^9}, {3.534882892905429*^9, 3.534882937562893*^9}, {3.534883102417454*^9, 3.5348831647559*^9}, { 3.534883232511087*^9, 3.534883238994903*^9}, {3.534883304176552*^9, 3.53488337778108*^9}, {3.534883571215105*^9, 3.534883576340143*^9}, { 3.534883642015004*^9, 3.534883718819896*^9}, {3.534883879507542*^9, 3.534883892605078*^9}, {3.534883949032186*^9, 3.534883974271927*^9}, { 3.534884245526599*^9, 3.534884246177126*^9}, {3.534890502856115*^9, 3.534890525364187*^9}, {3.534890747705965*^9, 3.534890748311044*^9}, { 3.534891083538096*^9, 3.534891097421664*^9}, {3.534891236637099*^9, 3.534891302545374*^9}, {3.53489139160912*^9, 3.534891392685655*^9}, { 3.534891440637543*^9, 3.534891587376244*^9}, {3.534891719030115*^9, 3.534891777505655*^9}, {3.534891811852268*^9, 3.534891938828646*^9}, { 3.534892002663717*^9, 3.534892059795539*^9}, {3.535194716728555*^9, 3.535194749728377*^9}, {3.535194916997455*^9, 3.535194948429304*^9}, { 3.535195142636111*^9, 3.535195145675747*^9}, {3.535195247734684*^9, 3.535195252727247*^9}, {3.53519550849198*^9, 3.535195530669729*^9}, { 3.535195570115893*^9, 3.535195571454197*^9}, {3.535195735877003*^9, 3.535195742461371*^9}, {3.535195773990878*^9, 3.535195775503743*^9}, { 3.535195872354998*^9, 3.535195873093282*^9}, {3.535196003449821*^9, 3.535196019543781*^9}, {3.535196094093035*^9, 3.535196116719279*^9}, { 3.535196204031754*^9, 3.535196271448115*^9}, {3.535196316990155*^9, 3.535196332253896*^9}, {3.53519641162841*^9, 3.535196417375656*^9}, { 3.535196685814177*^9, 3.535196735320065*^9}, {3.535196824014973*^9, 3.535196879945483*^9}, {3.535197038780751*^9, 3.535197211042725*^9}, { 3.53519763548899*^9, 3.535197732148759*^9}, {3.53519776215084*^9, 3.535197763410854*^9}, {3.535197877944032*^9, 3.535197977582992*^9}, { 3.535198015305199*^9, 3.535198119041687*^9}, {3.535198152919574*^9, 3.53519822118637*^9}, {3.535198262415356*^9, 3.535198356967782*^9}, { 3.53519848992645*^9, 3.535198494810415*^9}, {3.535198572657414*^9, 3.53519857660383*^9}, {3.535198653207776*^9, 3.535198664117836*^9}, { 3.535198718269121*^9, 3.535198759997529*^9}, {3.535198835344086*^9, 3.535198849199196*^9}, {3.535198895228369*^9, 3.535198895620291*^9}, 3.53519895267718*^9, {3.535199087859097*^9, 3.535199112954699*^9}, { 3.535199202771707*^9, 3.535199207387837*^9}, {3.535200383657942*^9, 3.535200421570152*^9}, {3.535200477394101*^9, 3.535200562911352*^9}, { 3.535200748642593*^9, 3.535200901602166*^9}, {3.535202915457114*^9, 3.535202948036654*^9}, {3.535208083509515*^9, 3.535208096028963*^9}, { 3.535208514737791*^9, 3.535208525792168*^9}, {3.53520862868647*^9, 3.535208641923977*^9}, {3.535208674167192*^9, 3.535208675764962*^9}, { 3.535302162994192*^9, 3.53530224569201*^9}, {3.535302289291187*^9, 3.535302289833243*^9}, {3.535302422363998*^9, 3.535302427040458*^9}, { 3.535302556435537*^9, 3.535302556843267*^9}, {3.535302701746615*^9, 3.535302712002741*^9}, {3.5396221992587805`*^9, 3.539622206169593*^9}, { 3.539622262626092*^9, 3.539622265590097*^9}, {3.539626849813619*^9, 3.539626855615736*^9}, {3.5396388473876667`*^9, 3.5396388503004274`*^9}, { 3.539639012538885*^9, 3.539639029656252*^9}, {3.5396396754976063`*^9, 3.539639685276086*^9}, {3.5396397404879427`*^9, 3.539639743876923*^9}, { 3.5396397996600103`*^9, 3.539639832948827*^9}, {3.53963995704625*^9, 3.539639976250066*^9}, {3.53964157700106*^9, 3.539641588280031*^9}, { 3.5396416579955626`*^9, 3.5396419357199707`*^9}, {3.539642309743785*^9, 3.5396423099797983`*^9}, {3.539724436468506*^9, 3.5397244462462473`*^9}, 3.5397247242255464`*^9, {3.539724781935875*^9, 3.5397247824134355`*^9}, { 3.539724829891464*^9, 3.5397248356476955`*^9}, {3.5397262743598886`*^9, 3.539726362691605*^9}, {3.5397268130132885`*^9, 3.539726978191264*^9}, { 3.5397271356702614`*^9, 3.539727136708893*^9}, {3.5399709505474215`*^9, 3.5399710306950054`*^9}, {3.539971428676769*^9, 3.5399714552452884`*^9}, { 3.5399720328833275`*^9, 3.5399720358924994`*^9}, {3.539972105522482*^9, 3.5399721286768064`*^9}, {3.5399726360658274`*^9, 3.5399726758191013`*^9}, {3.5399728222164745`*^9, 3.539972885918118*^9}, { 3.5400695880411987`*^9, 3.5400696328233852`*^9}, {3.540212349470435*^9, 3.540212401250454*^9}, {3.5402132082534246`*^9, 3.540213211842168*^9}, { 3.540214941593575*^9, 3.540214951940196*^9}, {3.540218762155703*^9, 3.5402187638035994`*^9}, {3.5402188563957663`*^9, 3.5402188601863203`*^9}, {3.540218988109654*^9, 3.5402189970384827`*^9}, { 3.540219034230105*^9, 3.540219077698072*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{"$nb", ",", "After", ",", "Notebook"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", "\"\\"", "]"}], ",", "\"\\"", ",", " ", RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontColor", "\[Rule]", " ", RowBox[{"GrayLevel", "[", ".7", "]"}]}], ",", RowBox[{"Background", "\[Rule]", " ", RowBox[{"Hue", "[", RowBox[{ RowBox[{"RandomReal", "[", "]"}], ",", ".4"}], "]"}]}], ",", RowBox[{"TextAlignment", "\[Rule]", " ", "Center"}], ",", RowBox[{"CellFrame", "\[Rule]", " ", "False"}]}], "]"}]}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.474918875798506*^9, 3.4749188776311407`*^9}, { 3.511177082574048*^9, 3.511177108876659*^9}, {3.511177337997253*^9, 3.5111773433881273`*^9}, {3.5111774000655003`*^9, 3.51117741257031*^9}, { 3.511177574540593*^9, 3.5111775811971292`*^9}, {3.5111776635531683`*^9, 3.511177700489028*^9}, 3.511177873820657*^9, {3.511177928407447*^9, 3.511177938870274*^9}, {3.5111779904665613`*^9, 3.511177994801902*^9}, { 3.511178028660982*^9, 3.5111780346115437`*^9}, {3.511178241249456*^9, 3.511178251540807*^9}, {3.5111783198532963`*^9, 3.511178361902246*^9}, { 3.511178405786429*^9, 3.51117840921915*^9}, {3.5111785934373198`*^9, 3.511178648471777*^9}, {3.511278428985016*^9, 3.5112784313406396`*^9}, { 3.515960147849703*^9, 3.5159601673408175`*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the game", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.4744652297202253`*^9, 3.4744652305013485`*^9}, 3.4744652739137726`*^9, {3.47446538996064*^9, 3.4744654114415283`*^9}, { 3.4744657681945133`*^9, 3.4744658496516433`*^9}, {3.474465912091427*^9, 3.4744659346037984`*^9}, {3.4744761436922846`*^9, 3.4744762944891195`*^9}, {3.474476361195038*^9, 3.474476407892185*^9}, { 3.474476518981924*^9, 3.474476528335374*^9}, {3.4744770460698395`*^9, 3.474477081831262*^9}, {3.474477217456281*^9, 3.4744772567227435`*^9}, { 3.474477311120964*^9, 3.4744773117518716`*^9}, 3.4744792889549503`*^9, { 3.474479577770246*^9, 3.474479630065443*^9}, {3.474479705734249*^9, 3.4744797091491594`*^9}, {3.474479746492857*^9, 3.474479838815611*^9}, { 3.4744799072840633`*^9, 3.474479933932382*^9}, {3.474479972587966*^9, 3.474480022910326*^9}, {3.474480076717697*^9, 3.474480078730592*^9}, { 3.4744801120985727`*^9, 3.4744802178806796`*^9}, {3.4744802661000156`*^9, 3.4744805247218957`*^9}, {3.4744805637780557`*^9, 3.474480644454062*^9}, { 3.4744806825187964`*^9, 3.474480733251747*^9}, {3.474480765978806*^9, 3.4744807751119385`*^9}, {3.4747484930067997`*^9, 3.4747484955204144`*^9}, {3.474748696409278*^9, 3.474748729687129*^9}, { 3.47474879334867*^9, 3.474748838373412*^9}, {3.4747488966872635`*^9, 3.4747489445060234`*^9}, {3.4747490727103724`*^9, 3.474749112627771*^9}, { 3.474749204740222*^9, 3.4747492219850187`*^9}, {3.4747493148385353`*^9, 3.474749315299198*^9}, {3.474918934412789*^9, 3.4749190461634784`*^9}, 3.4749191678083954`*^9, 3.4749217394963007`*^9, {3.4750252650253696`*^9, 3.4750252801471133`*^9}, {3.4818889226375294`*^9, 3.481888959170061*^9}, { 3.493148569432272*^9, 3.493148587287947*^9}, {3.493148638781992*^9, 3.4931486737723055`*^9}, {3.493182858068296*^9, 3.4931828662700896`*^9}, { 3.4931829768691235`*^9, 3.493182995195475*^9}, {3.493183791029829*^9, 3.4931838062917747`*^9}, {3.507464028658447*^9, 3.507464045883215*^9}, { 3.5074646586393824`*^9, 3.5074646690143013`*^9}, {3.5074647984655104`*^9, 3.507464824973627*^9}, {3.507464855815859*^9, 3.5074648669446816`*^9}, { 3.5074649468839936`*^9, 3.507464974954357*^9}, {3.507465012708645*^9, 3.507465021491274*^9}, {3.5074650544586782`*^9, 3.507465056661846*^9}, { 3.507465211794917*^9, 3.5074652407064896`*^9}, {3.507465753243617*^9, 3.5074657612351084`*^9}, {3.507981944622572*^9, 3.5079819517628393`*^9}, { 3.507985201453397*^9, 3.507985203661572*^9}, {3.5106650256092606`*^9, 3.510665131561612*^9}, 3.510665189635118*^9, {3.510665232116203*^9, 3.5106652480090556`*^9}, 3.510665359859889*^9, 3.5106655198499436`*^9, { 3.5106658176231885`*^9, 3.5106658409166827`*^9}, {3.5106658857010794`*^9, 3.510665966006553*^9}, {3.510666155218627*^9, 3.510666171582156*^9}, { 3.510924417999257*^9, 3.510924424245224*^9}, {3.510924938723393*^9, 3.510924960495397*^9}, {3.5109250222983513`*^9, 3.510925033297825*^9}, { 3.510941857623761*^9, 3.510941868739745*^9}, {3.5109435349816513`*^9, 3.5109435685399055`*^9}, {3.5110117542104177`*^9, 3.5110117551517715`*^9}, {3.511017927055215*^9, 3.5110179417758036`*^9}, { 3.5110179981949124`*^9, 3.5110182563981867`*^9}, {3.511018315981435*^9, 3.5110183219396935`*^9}, {3.5110403884457855`*^9, 3.511040393162568*^9}, { 3.5110418077417*^9, 3.5110418282912493`*^9}, {3.511045501275484*^9, 3.5110455078649597`*^9}, 3.5110931744738865`*^9, {3.511093288718162*^9, 3.5110933851368055`*^9}, {3.5110936952927876`*^9, 3.5110937174546547`*^9}, {3.51109577703052*^9, 3.5110957771866693`*^9}, { 3.511175839410593*^9, 3.51117593834101*^9}, {3.5111759712151737`*^9, 3.511175973263085*^9}, 3.511176027967751*^9, 3.539712534261118*^9, 3.569645548112671*^9, {3.569674320026764*^9, 3.569674320832268*^9}, 3.569687196516368*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"FormatNumberSingle", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"aux1", ",", "aux2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux1", "=", RowBox[{"N", "[", RowBox[{"x", ",", "precision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"aux2", "=", RowBox[{"Rationalize", "[", RowBox[{"aux1", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "precision"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Denominator", "[", "aux2", "]"}], ">", "maxdenominator"}], ",", "aux1", ",", "aux2"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FormatNumber", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "arg", ",", "d", ",", "aux"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "arg_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Depth", "[", "arg", "]"}], "\[Equal]", "1"}], ",", RowBox[{"FormatNumberSingle", "[", RowBox[{"arg", ",", "maxdenominator", ",", "precision"}], "]"}], ",", "arg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Depth", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"aux", "=", RowBox[{"Apart", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"d", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux", "=", RowBox[{"Map", "[", RowBox[{"f", ",", "aux", ",", RowBox[{"{", "d", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "aux"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FormatState", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "maxdenominator", ",", "precision"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"FormatNumber", "[", RowBox[{"x", ",", "maxdenominator", ",", "precision"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4744652297202253`*^9, 3.4744652305013485`*^9}, 3.4744652739137726`*^9, {3.47446538996064*^9, 3.4744654114415283`*^9}, { 3.4744657681945133`*^9, 3.4744658496516433`*^9}, {3.474465912091427*^9, 3.4744659346037984`*^9}, {3.4744761436922846`*^9, 3.4744762944891195`*^9}, {3.474476361195038*^9, 3.474476407892185*^9}, { 3.474476518981924*^9, 3.474476528335374*^9}, {3.4744770460698395`*^9, 3.474477081831262*^9}, {3.474477217456281*^9, 3.4744772567227435`*^9}, { 3.474477311120964*^9, 3.4744773117518716`*^9}, 3.4744792889549503`*^9, { 3.474479577770246*^9, 3.474479630065443*^9}, {3.474479705734249*^9, 3.4744797091491594`*^9}, {3.474479746492857*^9, 3.474479838815611*^9}, { 3.4744799072840633`*^9, 3.474479933932382*^9}, {3.474479972587966*^9, 3.474480022910326*^9}, {3.474480076717697*^9, 3.474480078730592*^9}, { 3.4744801120985727`*^9, 3.4744802178806796`*^9}, {3.4744802661000156`*^9, 3.4744805247218957`*^9}, {3.4744805637780557`*^9, 3.474480644454062*^9}, { 3.4744806825187964`*^9, 3.474480733251747*^9}, {3.474480765978806*^9, 3.4744807751119385`*^9}, {3.4747484930067997`*^9, 3.4747484955204144`*^9}, {3.474748696409278*^9, 3.474748729687129*^9}, { 3.47474879334867*^9, 3.474748838373412*^9}, {3.4747488966872635`*^9, 3.4747489445060234`*^9}, {3.4747490727103724`*^9, 3.474749112627771*^9}, { 3.474749204740222*^9, 3.4747492219850187`*^9}, {3.4747493148385353`*^9, 3.474749315299198*^9}, {3.474918934412789*^9, 3.4749190461634784`*^9}, 3.4749191678083954`*^9, 3.4749217394963007`*^9, {3.4750252650253696`*^9, 3.4750252801471133`*^9}, {3.4818889226375294`*^9, 3.481888959170061*^9}, { 3.493148569432272*^9, 3.493148587287947*^9}, {3.493148638781992*^9, 3.4931486737723055`*^9}, {3.493182858068296*^9, 3.4931828662700896`*^9}, { 3.4931829768691235`*^9, 3.493182995195475*^9}, {3.493183791029829*^9, 3.4931838062917747`*^9}, {3.507464028658447*^9, 3.507464045883215*^9}, { 3.5074646586393824`*^9, 3.5074646690143013`*^9}, {3.5074647984655104`*^9, 3.507464824973627*^9}, {3.507464855815859*^9, 3.5074648669446816`*^9}, { 3.5074649468839936`*^9, 3.507464974954357*^9}, {3.507465012708645*^9, 3.507465021491274*^9}, {3.5074650544586782`*^9, 3.507465056661846*^9}, { 3.507465211794917*^9, 3.5074652407064896`*^9}, {3.507465753243617*^9, 3.5074657612351084`*^9}, {3.507981944622572*^9, 3.5079819517628393`*^9}, { 3.507985201453397*^9, 3.507985203661572*^9}, {3.5106650256092606`*^9, 3.510665131561612*^9}, 3.510665189635118*^9, {3.510665232116203*^9, 3.5106652480090556`*^9}, 3.510665359859889*^9, 3.5106655198499436`*^9, { 3.5106658176231885`*^9, 3.5106658409166827`*^9}, {3.5106658857010794`*^9, 3.510665966006553*^9}, {3.510666155218627*^9, 3.510666171582156*^9}, { 3.510924417999257*^9, 3.510924424245224*^9}, {3.510924938723393*^9, 3.510924960495397*^9}, {3.5109250222983513`*^9, 3.510925033297825*^9}, { 3.510941857623761*^9, 3.510941868739745*^9}, {3.5109435349816513`*^9, 3.5109435685399055`*^9}, {3.5110117542104177`*^9, 3.5110117551517715`*^9}, {3.511017927055215*^9, 3.5110179417758036`*^9}, { 3.5110179981949124`*^9, 3.5110182563981867`*^9}, {3.511018315981435*^9, 3.5110183219396935`*^9}, {3.5110403884457855`*^9, 3.511040393162568*^9}, { 3.5110418077417*^9, 3.5110418282912493`*^9}, {3.511045501275484*^9, 3.5110455078649597`*^9}, 3.5110931744738865`*^9, {3.511093288718162*^9, 3.5110933851368055`*^9}, {3.5110936952927876`*^9, 3.5110937174546547`*^9}, {3.51109577703052*^9, 3.5110957771866693`*^9}, { 3.511175839410593*^9, 3.51117593834101*^9}, {3.5111759712151737`*^9, 3.511175973263085*^9}, 3.511176027967751*^9, 3.539712534261118*^9, 3.569645548112671*^9, {3.569674320026764*^9, 3.569674320832268*^9}, 3.569687196516368*^9, {3.569699729329828*^9, 3.569699895935127*^9}, 3.569700076577663*^9, {3.578833575698833*^9, 3.578833588894507*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"gamekind", "==", "NormalGame"}], ",", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Normal form game: \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"strategy", "[", "1", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "2", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "3", "]"}], "}"}]}], "}"}], "]"}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "A", "]"}]}], "}"}], "]"}], "\[IndentingNewLine]", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Payoff vector field: F\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Flatten", "[", RowBox[{"F", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4744652297202253`*^9, 3.4744652305013485`*^9}, 3.4744652739137726`*^9, {3.47446538996064*^9, 3.4744654114415283`*^9}, { 3.4744657681945133`*^9, 3.4744658496516433`*^9}, {3.474465912091427*^9, 3.4744659346037984`*^9}, {3.4744761436922846`*^9, 3.4744762944891195`*^9}, {3.474476361195038*^9, 3.474476407892185*^9}, { 3.474476518981924*^9, 3.474476528335374*^9}, {3.4744770460698395`*^9, 3.474477081831262*^9}, {3.474477217456281*^9, 3.4744772567227435`*^9}, { 3.474477311120964*^9, 3.4744773117518716`*^9}, 3.4744792889549503`*^9, { 3.474479577770246*^9, 3.474479630065443*^9}, {3.474479705734249*^9, 3.4744797091491594`*^9}, {3.474479746492857*^9, 3.474479838815611*^9}, { 3.4744799072840633`*^9, 3.474479933932382*^9}, {3.474479972587966*^9, 3.474480022910326*^9}, {3.474480076717697*^9, 3.474480078730592*^9}, { 3.4744801120985727`*^9, 3.4744802178806796`*^9}, {3.4744802661000156`*^9, 3.4744805247218957`*^9}, {3.4744805637780557`*^9, 3.474480644454062*^9}, { 3.4744806825187964`*^9, 3.474480733251747*^9}, {3.474480765978806*^9, 3.4744807751119385`*^9}, {3.4747484930067997`*^9, 3.4747484955204144`*^9}, {3.474748696409278*^9, 3.474748729687129*^9}, { 3.47474879334867*^9, 3.474748838373412*^9}, {3.4747488966872635`*^9, 3.4747489445060234`*^9}, {3.4747490727103724`*^9, 3.474749112627771*^9}, { 3.474749204740222*^9, 3.4747492219850187`*^9}, {3.4747493148385353`*^9, 3.474749315299198*^9}, {3.474918934412789*^9, 3.4749190461634784`*^9}, 3.4749191678083954`*^9, 3.4749217394963007`*^9, {3.4750252650253696`*^9, 3.4750252801471133`*^9}, {3.4818889226375294`*^9, 3.481888959170061*^9}, { 3.493148569432272*^9, 3.493148587287947*^9}, {3.493148638781992*^9, 3.4931486737723055`*^9}, {3.493182858068296*^9, 3.4931828662700896`*^9}, { 3.4931829768691235`*^9, 3.493182995195475*^9}, {3.493183791029829*^9, 3.4931838062917747`*^9}, {3.507464028658447*^9, 3.507464045883215*^9}, { 3.5074646586393824`*^9, 3.5074646690143013`*^9}, {3.5074647984655104`*^9, 3.507464824973627*^9}, {3.507464855815859*^9, 3.5074648669446816`*^9}, { 3.5074649468839936`*^9, 3.507464974954357*^9}, {3.507465012708645*^9, 3.507465021491274*^9}, {3.5074650544586782`*^9, 3.507465056661846*^9}, { 3.507465211794917*^9, 3.5074652407064896`*^9}, {3.507465753243617*^9, 3.5074657612351084`*^9}, {3.507981944622572*^9, 3.5079819517628393`*^9}, { 3.507985201453397*^9, 3.507985203661572*^9}, {3.5106650256092606`*^9, 3.510665131561612*^9}, 3.510665189635118*^9, {3.510665232116203*^9, 3.5106652480090556`*^9}, 3.510665359859889*^9, 3.5106655198499436`*^9, { 3.5106658176231885`*^9, 3.5106658409166827`*^9}, {3.5106658857010794`*^9, 3.510665966006553*^9}, {3.510666155218627*^9, 3.510666171582156*^9}, { 3.510924417999257*^9, 3.510924424245224*^9}, {3.510924938723393*^9, 3.510924960495397*^9}, {3.5109250222983513`*^9, 3.510925033297825*^9}, { 3.510941857623761*^9, 3.510941868739745*^9}, {3.5109435349816513`*^9, 3.5109435685399055`*^9}, {3.5110117542104177`*^9, 3.5110117551517715`*^9}, {3.511017927055215*^9, 3.5110179417758036`*^9}, { 3.5110179981949124`*^9, 3.5110182563981867`*^9}, {3.511018315981435*^9, 3.5110183219396935`*^9}, {3.5110403884457855`*^9, 3.511040393162568*^9}, { 3.5110418077417*^9, 3.5110418282912493`*^9}, {3.511045501275484*^9, 3.5110455078649597`*^9}, 3.5110931744738865`*^9, {3.511093288718162*^9, 3.5110933851368055`*^9}, {3.5110936952927876`*^9, 3.5110937174546547`*^9}, {3.51109577703052*^9, 3.5110957771866693`*^9}, { 3.511175839410593*^9, 3.51117593834101*^9}, {3.5111759712151737`*^9, 3.511175973263085*^9}, 3.511176027967751*^9, 3.539712534261118*^9, 3.5397126052051263`*^9, {3.56964543839266*^9, 3.56964544231797*^9}, { 3.569671450731139*^9, 3.569671452632897*^9}, 3.571985401466716*^9, { 3.580473385996481*^9, 3.580473386872745*^9}, {3.580648607766324*^9, 3.580648609105577*^9}, 3.580651306090811*^9}, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"findnashequilibria", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Nash equilibrium:\>\"", "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Nash equilibria:\>\"", "}"}], "]"}], "]"}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"findESSs", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< No regular ESSs found\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Regular ESS:\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Regular ESSs:\>\"", "}"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"ESSs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4744652297202253`*^9, 3.4744652305013485`*^9}, 3.4744652739137726`*^9, {3.47446538996064*^9, 3.4744654114415283`*^9}, { 3.4744657681945133`*^9, 3.4744658496516433`*^9}, {3.474465912091427*^9, 3.4744659346037984`*^9}, {3.4744761436922846`*^9, 3.4744762944891195`*^9}, {3.474476361195038*^9, 3.474476407892185*^9}, { 3.474476518981924*^9, 3.474476528335374*^9}, {3.4744770460698395`*^9, 3.474477081831262*^9}, {3.474477217456281*^9, 3.4744772567227435`*^9}, { 3.474477311120964*^9, 3.4744773117518716`*^9}, 3.4744792889549503`*^9, { 3.474479577770246*^9, 3.474479630065443*^9}, {3.474479705734249*^9, 3.4744797091491594`*^9}, {3.474479746492857*^9, 3.474479838815611*^9}, { 3.4744799072840633`*^9, 3.474479933932382*^9}, {3.474479972587966*^9, 3.474480022910326*^9}, {3.474480076717697*^9, 3.474480078730592*^9}, { 3.4744801120985727`*^9, 3.4744802178806796`*^9}, {3.4744802661000156`*^9, 3.4744805247218957`*^9}, {3.4744805637780557`*^9, 3.474480644454062*^9}, { 3.4744806825187964`*^9, 3.474480733251747*^9}, {3.474480765978806*^9, 3.4744807751119385`*^9}, {3.4747484930067997`*^9, 3.4747484955204144`*^9}, {3.474748696409278*^9, 3.474748729687129*^9}, { 3.47474879334867*^9, 3.474748838373412*^9}, {3.4747488966872635`*^9, 3.4747489445060234`*^9}, {3.4747490727103724`*^9, 3.474749112627771*^9}, { 3.474749204740222*^9, 3.4747492219850187`*^9}, {3.4747493148385353`*^9, 3.474749315299198*^9}, {3.474918934412789*^9, 3.4749190461634784`*^9}, 3.4749191678083954`*^9, 3.4749217394963007`*^9, {3.4750252650253696`*^9, 3.4750252801471133`*^9}, {3.4818889226375294`*^9, 3.481888959170061*^9}, { 3.493148569432272*^9, 3.493148587287947*^9}, {3.493148638781992*^9, 3.4931486737723055`*^9}, {3.493182858068296*^9, 3.4931828662700896`*^9}, { 3.4931829768691235`*^9, 3.493182995195475*^9}, {3.493183791029829*^9, 3.4931838062917747`*^9}, {3.507464028658447*^9, 3.507464045883215*^9}, { 3.5074646586393824`*^9, 3.5074646690143013`*^9}, {3.5074647984655104`*^9, 3.507464824973627*^9}, {3.507464855815859*^9, 3.5074648669446816`*^9}, { 3.5074649468839936`*^9, 3.507464974954357*^9}, {3.507465012708645*^9, 3.507465021491274*^9}, {3.5074650544586782`*^9, 3.507465056661846*^9}, { 3.507465211794917*^9, 3.5074652407064896`*^9}, {3.507465753243617*^9, 3.5074657612351084`*^9}, {3.507981944622572*^9, 3.5079819517628393`*^9}, { 3.507985201453397*^9, 3.507985203661572*^9}, {3.5106650256092606`*^9, 3.510665131561612*^9}, 3.510665189635118*^9, {3.510665232116203*^9, 3.5106652480090556`*^9}, 3.510665359859889*^9, 3.5106655198499436`*^9, { 3.5106658176231885`*^9, 3.5106658409166827`*^9}, {3.5106658857010794`*^9, 3.510665966006553*^9}, {3.510666155218627*^9, 3.510666171582156*^9}, { 3.510924417999257*^9, 3.510924424245224*^9}, {3.510924938723393*^9, 3.510924960495397*^9}, {3.5109250222983513`*^9, 3.510925033297825*^9}, { 3.510941857623761*^9, 3.510941868739745*^9}, {3.5109435349816513`*^9, 3.5109435685399055`*^9}, {3.5110117542104177`*^9, 3.5110117551517715`*^9}, {3.511017927055215*^9, 3.5110179417758036`*^9}, { 3.5110179981949124`*^9, 3.5110182563981867`*^9}, {3.511018315981435*^9, 3.5110183219396935`*^9}, {3.5110403884457855`*^9, 3.511040393162568*^9}, { 3.5110418077417*^9, 3.5110418282912493`*^9}, {3.511045501275484*^9, 3.5110455078649597`*^9}, 3.5110931744738865`*^9, {3.511093288718162*^9, 3.5110933851368055`*^9}, {3.5110936952927876`*^9, 3.5110937174546547`*^9}, {3.51109577703052*^9, 3.5110957771866693`*^9}, { 3.511175839410593*^9, 3.51117593834101*^9}, {3.5111759712151737`*^9, 3.511175973263085*^9}, 3.511176027967751*^9, 3.539712534261118*^9, 3.5397126052051263`*^9, {3.569671504101698*^9, 3.569671522024721*^9}, { 3.569699912196235*^9, 3.569699913475361*^9}, {3.580473380305907*^9, 3.580473381695146*^9}, {3.580514402106399*^9, 3.580514402464406*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the dynamic", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Name of dynamic: \>\"", "}"}], "]"}], "]"}], ",", " ", "dyn"}], "}"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Law of motion: \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \!\(\*SubscriptBox[\(V\), \(F\)]\)\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"Flatten", "[", RowBox[{"dyn", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}], ",", "Fmp"}], "]"}], "]"}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.4744075007209635`*^9, 3.4744075347599087`*^9}, { 3.4744660145287247`*^9, 3.47446606534179*^9}, {3.474480893792593*^9, 3.4744810714280205`*^9}, {3.474749510860401*^9, 3.4747495506976843`*^9}, { 3.481418886107008*^9, 3.481418886107008*^9}, {3.4817354833245296`*^9, 3.481735483334544*^9}, {3.569671583405945*^9, 3.569671598354111*^9}, { 3.569671634406624*^9, 3.569671678079186*^9}, 3.569672274980706*^9, { 3.571986046036521*^9, 3.571986057631458*^9}}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Text output - stability of rest points", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Stable rest point:\>\"", "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Stable rest points:\>\"", "}"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< None\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< (state x, relevant eigenvalues of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x], relevant eigenvectors of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x])\>\"", "}"}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"SRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"SRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"TableAlignments", "\[Rule]", "Top"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Unstable rest point:\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Unstable rest points:\>\"", "}"}], "]"}], "]"}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< None\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< (state x, relevant eigenvalues of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x], relevant eigenvectors of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x])\>\"", "}"}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"USRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"USRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"TableAlignments", "\[Rule]", "Top"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatState", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4744811007802267`*^9, 3.4744811710512714`*^9}, { 3.474481208264782*^9, 3.474481211339203*^9}, 3.4744812504854927`*^9, { 3.47448132363067*^9, 3.474481814296212*^9}, {3.474481853382416*^9, 3.4744820200721035`*^9}, {3.4744820531997385`*^9, 3.474482227570472*^9}, { 3.474921890112877*^9, 3.4749218918653965`*^9}, {3.474921990917827*^9, 3.4749220127191763`*^9}, {3.47492206314168*^9, 3.474922086004555*^9}, { 3.492809114832117*^9, 3.492809118447315*^9}, {3.4928091971104274`*^9, 3.492809203229226*^9}, {3.4928108148866754`*^9, 3.4928108168394833`*^9}, { 3.492810871307805*^9, 3.492810875664069*^9}, {3.493183022074125*^9, 3.493183032218712*^9}, {3.493183178278736*^9, 3.4931831881028624`*^9}, { 3.4931837700797043`*^9, 3.4931837769796257`*^9}, {3.49318381955084*^9, 3.4931838306868525`*^9}, {3.507464682403554*^9, 3.5074646904050593`*^9}, { 3.5074657919192305`*^9, 3.507465802955099*^9}, {3.507981961486821*^9, 3.5079819688273764`*^9}, {3.5079852099105577`*^9, 3.507985220440699*^9}, 3.510688007830267*^9, {3.5106880446932735`*^9, 3.510688058372944*^9}, { 3.510688088666504*^9, 3.510688129815674*^9}, {3.510688210191248*^9, 3.5106882184931855`*^9}, {3.510688249337538*^9, 3.5106883060090275`*^9}, { 3.5106883367832785`*^9, 3.510688381838064*^9}, 3.51068845033069*^9, { 3.510688528273696*^9, 3.5106885356743374`*^9}, {3.510688703675912*^9, 3.510688704767482*^9}, {3.5106889361201506`*^9, 3.510688942108762*^9}, { 3.51068897601752*^9, 3.510688983518306*^9}, {3.510689201256372*^9, 3.5106892442653036`*^9}, {3.5106892918367133`*^9, 3.510689388966379*^9}, { 3.5106894640643644`*^9, 3.510689464444912*^9}, {3.510689535457022*^9, 3.510689578128381*^9}, {3.510690851194027*^9, 3.510691043831025*^9}, { 3.510691436746009*^9, 3.5106914404313087`*^9}, {3.5106915304307213`*^9, 3.5106915959449263`*^9}, {3.510691765318473*^9, 3.510691770475889*^9}, { 3.510691807969803*^9, 3.510691815841121*^9}, {3.51069191133844*^9, 3.510691936664857*^9}, {3.510691967389036*^9, 3.5106920297787485`*^9}, { 3.5106920681439147`*^9, 3.5106921117766557`*^9}, {3.510924448223147*^9, 3.510924454461604*^9}, {3.510924522227621*^9, 3.510924559324623*^9}, { 3.510924775050046*^9, 3.510924811101347*^9}, {3.510924882857869*^9, 3.5109249066561823`*^9}, {3.510925002422447*^9, 3.510925016911188*^9}, { 3.510941874818486*^9, 3.510941900805854*^9}, {3.5109435996446323`*^9, 3.5109436775666785`*^9}, {3.51101101993952*^9, 3.5110110352915955`*^9}, { 3.5110117564135857`*^9, 3.511011759528064*^9}, {3.5110182949421287`*^9, 3.511018302368745*^9}, {3.511018337551158*^9, 3.5110184035658875`*^9}, { 3.511041696041083*^9, 3.51104177578575*^9}, {3.5110419690336266`*^9, 3.511041981100979*^9}, {3.511093390915114*^9, 3.511093411194274*^9}, { 3.519553642086157*^9, 3.519553643085214*^9}, {3.56969991443132*^9, 3.569699920922037*^9}, 3.569700589597515*^9, {3.580485541740741*^9, 3.580485547655803*^9}, {3.580514480304119*^9, 3.580514482714198*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the contour function", "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}]}], ",", RowBox[{"Print", "[", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\""}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", "]"}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}]}], ",", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Name of Contour Function: \>\"", "}"}], "]"}], "]"}], ",", " ", "\[IndentingNewLine]", "contourFunction"}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"showcontourformula", "\[Equal]", "1"}], ",", RowBox[{"Print", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Definition of Contour Function: \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \[Psi]\>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", " ", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"contourFunction", "[", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Minimum Value = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", "minAttained", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Maximum Value = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", "maxAttained", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{{3.474466109635482*^9, 3.474466160278302*^9}, { 3.47448228501307*^9, 3.4744824248541517`*^9}, {3.474482460485387*^9, 3.4744827969042015`*^9}, {3.4744828588432655`*^9, 3.4744828619277*^9}, { 3.4747498361881995`*^9, 3.474749850919382*^9}, {3.475074155605898*^9, 3.475074158039397*^9}, {3.481805506721779*^9, 3.481805507412773*^9}, { 3.491925638865526*^9, 3.491925640027197*^9}, {3.4919259664165215`*^9, 3.491925967898653*^9}, 3.56964178211198*^9, 3.569641896003746*^9, 3.56964281260926*^9, 3.569642883083198*^9, {3.569700736170013*^9, 3.569700760414462*^9}}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Generating the vector field diagram", "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Return", "[", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"vfCon", ",", "vfColorBar", ",", " ", "simplex", ",", RowBox[{"vectorField", "[", "f", "]"}], ",", "neDots", ",", "srpDots", ",", "urpDots"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "simplexPlotRange"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "font"}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", "simplexStrategies"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"f", ",", "2"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4744168929863777`*^9, {3.474466213675083*^9, 3.4744662162888412`*^9}, { 3.474466418739952*^9, 3.4744664201720114`*^9}, {3.4744664709450192`*^9, 3.474466519645046*^9}, {3.474749981206726*^9, 3.4747500452688427`*^9}, { 3.4747500861376095`*^9, 3.474750119455518*^9}, 3.474933826338138*^9, { 3.4751538585312967`*^9, 3.475153861285257*^9}, 3.475153941150097*^9, 3.4919257139735265`*^9, 3.51913819862344*^9, 3.5191382287201614`*^9, 3.5191393556216164`*^9, {3.519139423819517*^9, 3.519139436016215*^9}, { 3.5192900286483707`*^9, 3.5192900333536396`*^9}, {3.5192909286778493`*^9, 3.5192909642678847`*^9}, {3.519308561091366*^9, 3.5193085620724216`*^9}, 3.5194888106638656`*^9, {3.53937630107504*^9, 3.539376313986567*^9}, { 3.539377556816426*^9, 3.539377562820151*^9}, {3.539432630143672*^9, 3.539432637777508*^9}, 3.568667908265399*^9, {3.56958153623994*^9, 3.569581579203683*^9}, 3.569581641738413*^9, 3.569581701704539*^9, { 3.56958188129431*^9, 3.569581882491123*^9}, 3.569668498116437*^9, 3.569668817720673*^9, {3.570094527831062*^9, 3.570094531104877*^9}, { 3.570094657085254*^9, 3.570094688949097*^9}, {3.570095191621826*^9, 3.570095245563318*^9}, {3.570096058467598*^9, 3.570096066722812*^9}, 3.570132704887985*^9, 3.571958009395435*^9, {3.571958062658035*^9, 3.571958063901334*^9}, {3.571986727338041*^9, 3.571986732933042*^9}, { 3.57198736161249*^9, 3.571987363288747*^9}, 3.580476462342872*^9}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Generating the phase diagram on simplex ", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"drawphasediagram", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "pdCon", ",", "pdColorBar", ",", "simplex", ",", "trajLines", ",", "cTrajLines", ",", "cLines", ",", "trajAr", ",", "cTrajAr", ",", "neDots", ",", "srpDots", ",", "urpDots", ",", "cDots", ",", "cWDots", ",", "cText"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "simplexPlotRange"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "font"}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", "simplexStrategies"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{ 3.4747501886470375`*^9, {3.4749337998901076`*^9, 3.4749338018028584`*^9}, 3.4919260498364735`*^9, {3.5134241012662144`*^9, 3.5134241023872786`*^9}, { 3.514555814318804*^9, 3.5145558163929224`*^9}, {3.514637511573911*^9, 3.5146375161671743`*^9}, 3.5191380693220444`*^9, 3.5191381009678545`*^9, { 3.5191381997345037`*^9, 3.519138229445203*^9}, {3.5191393329623203`*^9, 3.5191393458400574`*^9}, {3.519139451113078*^9, 3.5191394521371365`*^9}, 3.5191413486686125`*^9, {3.519141389995976*^9, 3.519141412003235*^9}, 3.519141538421466*^9, {3.519141580372865*^9, 3.519141581036903*^9}, 3.519141618069021*^9, 3.5192044234093037`*^9, {3.519204533461598*^9, 3.5192045360467463`*^9}, {3.5192892043142214`*^9, 3.5192892270995245`*^9}, {3.519289621996111*^9, 3.519289654576975*^9}, { 3.519290919388318*^9, 3.5192909235775576`*^9}, {3.5193085665286765`*^9, 3.5193085673677244`*^9}, 3.51948880636762*^9, {3.539376322930021*^9, 3.539376343762155*^9}, {3.539377568915223*^9, 3.539377576209223*^9}, 3.5397132108710365`*^9, 3.539713340270968*^9, 3.568667909686398*^9, { 3.569581537497145*^9, 3.569581580041415*^9}, 3.569581654005683*^9, { 3.569581723824517*^9, 3.569581753152887*^9}, 3.569582074600121*^9, 3.569582134689206*^9, {3.569582169475651*^9, 3.569582213875976*^9}, { 3.569637671377392*^9, 3.569637672133668*^9}, 3.569668468476589*^9, 3.569668829832995*^9, {3.570132720979689*^9, 3.570132725772509*^9}, 3.571958016955835*^9, {3.571958066814336*^9, 3.571958068159714*^9}, { 3.571987408430663*^9, 3.571987439170782*^9}, 3.572377988458759*^9, 3.580476465230452*^9}, CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Generating the 3D plot of the contour function", "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "\[Equal]", " ", "1"}], ",", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "tdCon", ",", "tdSimplex", ",", "tdLines", ",", "tdPoints", ",", "tdEdge", ",", "tdStrategies"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"ImagePadding", "\[Rule]", "30"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.474466597827467*^9, 3.474466607261032*^9}, { 3.4747505114601674`*^9, 3.474750610128528*^9}, {3.4749337801817684`*^9, 3.4749337828656273`*^9}, 3.4919256421101923`*^9, {3.5192920967806606`*^9, 3.519292158679201*^9}, {3.5193085719999895`*^9, 3.5193085728540382`*^9}, 3.54048640467378*^9, {3.540667328839508*^9, 3.5406673304736013`*^9}, { 3.568667910786925*^9, 3.568667912357477*^9}, {3.569582258328163*^9, 3.569582276248345*^9}, 3.569582336954872*^9, {3.569582441189131*^9, 3.569582442138098*^9}, {3.569642813602433*^9, 3.569642815556112*^9}, { 3.569643056259911*^9, 3.56964305989805*^9}, 3.569668580531156*^9, { 3.56966867957972*^9, 3.569668708077712*^9}, {3.569668782149797*^9, 3.56966878320486*^9}, 3.571984629336727*^9, {3.571987499183152*^9, 3.571987510146154*^9}, {3.571989793165329*^9, 3.571989801839606*^9}}, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the sphere contour function", "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", ",", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", ",", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< Name of Sphere Contour Function = \>\"", "}"}], "]"}], "]"}], ",", " ", "contourFunction"}], "}"}], "]"}], " ", "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"showcontourformula", "\[Equal]", "1"}], ",", RowBox[{"Print", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< Definition of Sphere Contour Function = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \[CapitalPsi]\>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"contourFunction", "[", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Minimum Value = \>\"", "}"}], "]"}], "]"}], ",", " ", "minAttained"}], " ", "}"}], "]"}], "]"}], " ", ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Maximum Value = \>\"", "}"}], "]"}], "]"}], ",", " ", "maxAttained"}], " ", "}"}], "]"}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Tangent point = \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"N", "[", RowBox[{"viewray", "/", RowBox[{"Norm", "[", "viewray", "]"}]}], "]"}]}], "}"}], "]"}], "]"}]}]}], " ", "]"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{{3.474753802720477*^9, 3.4747541844380045`*^9}, { 3.4818055374860163`*^9, 3.481805539609069*^9}, {3.49192553039956*^9, 3.4919255308602223`*^9}, {3.569641896995879*^9, 3.569641897894968*^9}, { 3.569642839022369*^9, 3.569642858274832*^9}, {3.56964575673238*^9, 3.569645780935569*^9}, {3.569700803428236*^9, 3.569700807195393*^9}, { 3.570093094959051*^9, 3.570093102145943*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Generating the phase diagram on the sphere", "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "==", "1"}], ",", " ", RowBox[{"Show", "[", RowBox[{ "sphereCon", ",", "sphereTrajSol", ",", "sphereRightTri", ",", "sphereLeftTri", ",", "sphereDownTri", ",", "sphereCurvedTri", ",", "origDot", ",", "sphereSRPDots", ",", "sphereURPDots", ",", "sphereTrajAr", ",", "sphereStrategies", ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "$DisplayFunction"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".1"}], ",", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".1"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"10", ",", RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}]}], "]"}]}], "]"}], " ", ";"}]], "Input", CellChangeTimes->{ 3.474750732766054*^9, {3.480814660583229*^9, 3.480814662801922*^9}, { 3.4808152149127874`*^9, 3.4808152272249727`*^9}, 3.4919255313909855`*^9, { 3.5191382023956556`*^9, 3.5191382210227213`*^9}, 3.519139514241689*^9, 3.519139558749235*^9, 3.519139865621787*^9, {3.5192046443189387`*^9, 3.5192046448489695`*^9}, {3.5192906648507595`*^9, 3.51929068497291*^9}, { 3.519292328313904*^9, 3.519292367549148*^9}, {3.539376470378345*^9, 3.539376612377038*^9}, {3.564999292395331*^9, 3.564999293956243*^9}, 3.568667913102714*^9, {3.569499414232507*^9, 3.569499462559913*^9}, 3.569499499002795*^9, 3.569512643202304*^9, 3.569512695451308*^9, 3.569582111390697*^9, {3.56963731551369*^9, 3.569637317288869*^9}, { 3.569637389218813*^9, 3.569637400627002*^9}, 3.569637718115036*^9, { 3.569639778546711*^9, 3.569639802890767*^9}, 3.569668423985364*^9, 3.569670198770077*^9, {3.571988022197979*^9, 3.571988025143548*^9}}, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell["Printing time elapsed", "Text", CellChangeTimes->{{3.474917604905984*^9, 3.4749176096928673`*^9}, 3.511176162238818*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PrintTimeElapsed", "[", "t_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "dif", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dif", "=", RowBox[{"DateList", "[", RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], "-", "t"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}], "<", "10"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<:\>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}], "<", "10"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}]}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"PrintTimeElapsed", "[", "time1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "}"}], "]"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.474469352418374*^9, 3.4744693581065536`*^9}, { 3.474751622691947*^9, 3.4747516398966866`*^9}, {3.474751672513587*^9, 3.474751689237635*^9}, {3.474751726040555*^9, 3.474751730086373*^9}, { 3.4747517957007217`*^9, 3.4747518073174257`*^9}, {3.474751944634878*^9, 3.474751965474845*^9}, {3.4747521102430115`*^9, 3.474752124924122*^9}, { 3.4747522923148174`*^9, 3.4747522925351343`*^9}, {3.474752453726917*^9, 3.4747524697900143`*^9}, {3.474752530737653*^9, 3.4747525343628654`*^9}, { 3.474752731001686*^9, 3.474752820951027*^9}, {3.4747529104096622`*^9, 3.4747529481439214`*^9}, {3.474753130586261*^9, 3.4747531369954767`*^9}, { 3.4747531837126527`*^9, 3.4747532973660784`*^9}, {3.4747533306439295`*^9, 3.474753346887286*^9}, {3.474753483303443*^9, 3.4747535108230143`*^9}, { 3.4747535509907722`*^9, 3.47475355287348*^9}, {3.474753610626525*^9, 3.4747537008863115`*^9}, {3.4807853786547556`*^9, 3.480785419372463*^9}, { 3.4886284886367583`*^9, 3.48862851256116*^9}, {3.4919143059727964`*^9, 3.4919143820521927`*^9}, {3.4919144726524696`*^9, 3.491914503276505*^9}, { 3.49191453465162*^9, 3.491914548821996*^9}, {3.4919145834818344`*^9, 3.4919146767859993`*^9}, 3.4919147454092917`*^9, {3.491914784260234*^9, 3.4919147878253603`*^9}, {3.4919148313479433`*^9, 3.4919148832826214`*^9}, {3.4919149360885525`*^9, 3.491914936929762*^9}, { 3.4919348385569973`*^9, 3.4919348466686616`*^9}, {3.4919348888993864`*^9, 3.491935091931332*^9}, {3.4919351355640726`*^9, 3.4919351499347367`*^9}, { 3.491935190082466*^9, 3.4919352218982153`*^9}, {3.491935258500847*^9, 3.491935266432252*^9}, {3.491935307821767*^9, 3.491935386404764*^9}, { 3.492280514018053*^9, 3.4922805233314447`*^9}, 3.492280682579484*^9, { 3.492280726412513*^9, 3.492280754042242*^9}, {3.49228080875091*^9, 3.4922808378727846`*^9}, {3.492280965661604*^9, 3.492280967754614*^9}, { 3.4932326695185633`*^9, 3.4932326724327536`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["End redirection", "Text", CellChangeTimes->{{3.519293386924453*^9, 3.5192934223244777`*^9}, { 3.5192935062902803`*^9, 3.5192935066613016`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Returning"}]}]}]}]}], " ", "to", " ", "original", " ", "output", " ", RowBox[{ RowBox[{ RowBox[{"production", "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$DisplayFunction", "=", "Identity"}], ";"}], "\n", RowBox[{ RowBox[{"$Post", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "=!=", "Null"}], ",", RowBox[{"CellPrint", "[", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#1", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}]}], "]"}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{"Unprotect", "[", "Print", "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x_", "]"}], ":=", RowBox[{"CellPrint", "[", RowBox[{"Cell", "[", RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], "]"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x__", "]"}], ":=", RowBox[{"Print", "/@", RowBox[{"{", "x", "}"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"Protect", "[", "Print", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "code"}]}]}]}]}]}]}]}], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ends", "--"}], "--"}], "--"}], "--"}], "--"}]}], "-", RowBox[{"--", RowBox[{"--", "-"}]}]}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.474463029536517*^9, 3.4744630427254815`*^9}, { 3.474464168474229*^9, 3.4744641696559277`*^9}, {3.474464379727997*^9, 3.474464386367544*^9}, {3.474467076205341*^9, 3.4744670820537505`*^9}, { 3.474468634325808*^9, 3.4744686348465567`*^9}, {3.474469449648184*^9, 3.47446945054948*^9}, {3.474469481123443*^9, 3.4744694823251715`*^9}, { 3.5134516087329407`*^9, 3.5134516103430333`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Procedures; Maintenance", "Subtitle", CellChangeTimes->{{3.510069615192811*^9, 3.5100696169137373`*^9}, 3.569744605944674*^9}], Cell[CellGroupData[{ Cell["Procedures", "Section", CellChangeTimes->{{3.492208005463666*^9, 3.492208032121999*^9}, { 3.569744624668716*^9, 3.569744627552562*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Preliminary definitions and calculations", "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell["Norm", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.4928128620603666`*^9, 3.4928128997044964`*^9}, {3.493151231640339*^9, 3.4931512369479713`*^9}, { 3.571921939502137*^9, 3.571921942108179*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"dim", "=", RowBox[{"{", "3", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NormalGame", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"QuadraticGame", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CongestionGame", "=", "3"}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9, {3.539723825865969*^9, 3.539723860040309*^9}, { 3.5586249363598814`*^9, 3.558624956771049*^9}, {3.5586251901313963`*^9, 3.558625273367157*^9}, {3.5586253240880585`*^9, 3.558625382085376*^9}, { 3.5586254234637423`*^9, 3.558625466921228*^9}, {3.558625501241191*^9, 3.558625508710618*^9}, {3.5586259170309725`*^9, 3.55862591751*^9}, { 3.5586386315110188`*^9, 3.558638651165143*^9}, {3.5586388597080708`*^9, 3.5586388830474057`*^9}, 3.5586389191654716`*^9, {3.5586389660761547`*^9, 3.5586390191321898`*^9}, {3.5586442349195156`*^9, 3.5586442358795705`*^9}, {3.558644572823842*^9, 3.558644573381874*^9}, 3.558644753106154*^9, {3.5586450479730196`*^9, 3.558645048949075*^9}, { 3.56854174383713*^9, 3.568541746133914*^9}, {3.568541871996656*^9, 3.56854187862657*^9}, {3.568541936114507*^9, 3.568541941354117*^9}, { 3.568978226409765*^9, 3.568978436371108*^9}, {3.568978468302534*^9, 3.568978524773533*^9}, 3.569666536462631*^9, {3.569745630229281*^9, 3.569745713708716*^9}, {3.571822631608726*^9, 3.571822660902201*^9}, 3.571921885132814*^9, {3.571922018228694*^9, 3.571922019906379*^9}, { 3.580650717562898*^9, 3.580650751821951*^9}, {3.580650909787924*^9, 3.580650911980897*^9}}, CellTags->{"initcell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "dim", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x_", ",", RowBox[{"p_:", "2"}]}], "]"}], ":=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"Flatten", "[", "x", "]"}], ",", "p"}], "]"}]}], ";", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x_", ",", RowBox[{"p_:", "2"}]}], "]"}], ":=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", "p"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "p"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x_", ",", RowBox[{"p_:", "2"}]}], "]"}], ":=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "p"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "p"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9, {3.539723825865969*^9, 3.539723860040309*^9}, { 3.5586249363598814`*^9, 3.558624956771049*^9}, {3.5586251901313963`*^9, 3.558625273367157*^9}, {3.5586253240880585`*^9, 3.558625382085376*^9}, { 3.5586254234637423`*^9, 3.558625466921228*^9}, {3.558625501241191*^9, 3.558625508710618*^9}, {3.5586259170309725`*^9, 3.55862591751*^9}, { 3.5586386315110188`*^9, 3.558638651165143*^9}, {3.5586388597080708`*^9, 3.5586388830474057`*^9}, 3.5586389191654716`*^9, {3.5586389660761547`*^9, 3.5586390191321898`*^9}, {3.5586442349195156`*^9, 3.5586442358795705`*^9}, {3.558644572823842*^9, 3.558644573381874*^9}, 3.558644753106154*^9, {3.5586450479730196`*^9, 3.558645048949075*^9}, { 3.56854174383713*^9, 3.568541746133914*^9}, {3.568541871996656*^9, 3.56854187862657*^9}, {3.568541936114507*^9, 3.568541941354117*^9}, { 3.568978226409765*^9, 3.568978436371108*^9}, {3.568978468302534*^9, 3.568978524773533*^9}, 3.569666536462631*^9, {3.569745630229281*^9, 3.569745713708716*^9}, {3.571822631608726*^9, 3.571822660902201*^9}, 3.571921885132814*^9, {3.571922021663559*^9, 3.571922023167*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["General Purpose Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"emptyVector", "[", RowBox[{"name_", ",", "dim_", ",", RowBox[{"var_:", "\"\<\>\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"x", "=", RowBox[{"Join", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"ToExpression", "[", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"name", ",", "j", ",", "var"}], "}"}], "]"}], "]"}], "]"}], "}"}]}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"Join", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"ToExpression", "[", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"ToString", "[", "name", "]"}], ",", RowBox[{"ToString", "[", "j", "]"}], ",", RowBox[{"ToString", "[", "var", "]"}]}], "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "x"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"emptyVector", "[", RowBox[{"y", ",", "3", ",", "\"\<_\>\""}], "]"}], "]"}], ";"}], " ", "*)"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwdyGkog3EAx/HH5GhsuWovLOYoJSG1vZDGU0SMWMILRjIRY2bDapmWa4WJ lZuiHEsRLxwvlOsNmmvNUd54YdlaQ0ly/n/Pi2+f+kZVN0vlLIqiIkiwLXl0 VunjpPeWqQW4G/B8BhO8RFb4plHdwZSuA98WoqbBxIb+IyVcWDbL4cH7sa9w WCuXzMMEAdsCaUerl4poLSrlQG6Nu7uD+Pe50gPHs+odkFOc/gxL2m1uOFRh 8cBEVy+tJRq4x9mw3ywpgHP2YUazR6uf8nXSEe9PffBXuH5vjXbSWp3nASbZ P8rPidvt35XwZ3FPAWVWThPUyV6aLomPkeZmmLNjVMNpV6gGfvFOOqF9tVsP Y9TL8itinai3FqrcZ2HXRK6nkQf3TUF8GMKPZTRmHsZBVt5APAzkb4jhnHdw BtytKhyCgsTJYSjdct8w+vvdwpZzgcRGVApSGR0Tayb4eppmZv6veAkeCXMZ hYqZ/E2Tk74YNBTAfxNQ6IQ= "], CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"vectorReplace", "[", RowBox[{"orig_", ",", "replace_", ",", "positions_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "counter", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "orig", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Join", "[", RowBox[{"result", ",", RowBox[{"{", RowBox[{"replace", "[", RowBox[{"[", "counter", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "++"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Join", "[", RowBox[{"result", ",", RowBox[{"{", RowBox[{"orig", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"vectorReplace", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], ";"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4931238869534855`*^9, 3.4931240282065973`*^9}, { 3.493124108742402*^9, 3.4931241467470503`*^9}, {3.493124353764727*^9, 3.49312453865058*^9}, {3.4931252506844344`*^9, 3.4931252972513943`*^9}, { 3.507981247520029*^9, 3.5079812477303314`*^9}, {3.565001370194773*^9, 3.565001384483836*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"eliminateDuplicates", "[", RowBox[{"delta_", ",", "reallist_", ",", RowBox[{"norm_:", "Norm"}], ",", RowBox[{"complist_:", RowBox[{"{", "}"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k", ",", "reducedreallist", ",", "reducedcomplist"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"complist", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"reducedcomplist", "=", "reallist"}], ",", RowBox[{"reducedcomplist", "=", "complist"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"reducedreallist", "=", "reallist"}], ";", "\[IndentingNewLine]", RowBox[{"j", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "reducedcomplist", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", "reducedcomplist", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"j", "==", "k"}], "]"}], " ", "&&", " ", RowBox[{ RowBox[{"norm", "[", RowBox[{ RowBox[{"reducedcomplist", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"reducedcomplist", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "<", "delta"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"reducedcomplist", "=", RowBox[{"Drop", "[", RowBox[{"reducedcomplist", ",", RowBox[{"{", "k", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"reducedreallist", "=", RowBox[{"Drop", "[", RowBox[{"reducedreallist", ",", RowBox[{"{", "k", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"j", ",", "k"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Continue", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "reducedreallist"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"eliminateDuplicates", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1", ",", ".9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1", ",", ".95"}], "}"}]}], "}"}]}], "]"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.492287687663436*^9, 3.492287805562967*^9}, 3.492287860141447*^9, {3.4922878908856544`*^9, 3.4922879942542915`*^9}, { 3.492288025929839*^9, 3.492288032068666*^9}, {3.492288076903135*^9, 3.4922880788359137`*^9}, {3.4922881186331396`*^9, 3.492288169736623*^9}, { 3.492288293985284*^9, 3.4922884291596546`*^9}, {3.492288474825319*^9, 3.492288499851304*^9}, {3.492288685498252*^9, 3.4922887101136465`*^9}, { 3.4922887960071554`*^9, 3.4922888052204037`*^9}, {3.4922888856560645`*^9, 3.492288998538381*^9}, {3.492289120974436*^9, 3.492289136877303*^9}, { 3.492289195201168*^9, 3.4922891984858913`*^9}, {3.4922897179228053`*^9, 3.4922898327479153`*^9}, {3.4922899331923475`*^9, 3.4922899497060933`*^9}, {3.4922900755570583`*^9, 3.4922901174172497`*^9}, {3.4922901552616673`*^9, 3.4922901802275667`*^9}, {3.4922902757148705`*^9, 3.4922902914975653`*^9}, {3.492290340037362*^9, 3.49229034064824*^9}, { 3.492290386594308*^9, 3.4922903898890452`*^9}, {3.4922904673304005`*^9, 3.492290468642287*^9}, {3.492290509360837*^9, 3.4922905221592407`*^9}, { 3.4922908409226675`*^9, 3.492290846290386*^9}, {3.492290893928887*^9, 3.4922909445116215`*^9}, {3.4922910000214405`*^9, 3.492291015243328*^9}, { 3.492291070112226*^9, 3.492291131170023*^9}, {3.5079812523669987`*^9, 3.5079812569936404`*^9}, {3.565001418201373*^9, 3.565001422217051*^9}, 3.568977879634011*^9, {3.568978013288202*^9, 3.568978036325175*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"subMatrix", "[", RowBox[{"matrix_", ",", "positions_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k", ",", "dim", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "positions", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", "matrix"}], ";", "\[IndentingNewLine]", RowBox[{"j", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", RowBox[{"result", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", RowBox[{"result", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"subMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "8"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "]"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4933905614818573`*^9, 3.49339088156211*^9}, { 3.4933909239630795`*^9, 3.4933909734943023`*^9}, {3.493391012520419*^9, 3.4933910351429486`*^9}, 3.49339109605398*^9, {3.493391133369259*^9, 3.4933912900345325`*^9}, {3.493391339195222*^9, 3.493391354907816*^9}, { 3.493391388996833*^9, 3.4933914629341493`*^9}, {3.507981263845468*^9, 3.507981264054768*^9}, {3.565001466497927*^9, 3.56500146777892*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"simplexQ", "[", RowBox[{"x_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Max", "[", "x", "]"}], ">", "1"}], "||", RowBox[{ RowBox[{"Min", "[", "x", "]"}], "<", "0"}], "||", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Total", "[", "x", "]"}], "-", "1"}], "]"}], ">", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}]}], ",", "False", ",", "True"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.5074086040718455`*^9, 3.5074086127543306`*^9}, {3.5074086477746873`*^9, 3.507408724615178*^9}, 3.565001517145268*^9, 3.578923770519437*^9}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"checkBoundary", "[", RowBox[{"x_", ",", "delta_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "boundaryvector"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"Append", "[", RowBox[{"boundaryvector", ",", "1"}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"Append", "[", RowBox[{"boundaryvector", ",", "0"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "boundaryvector"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.507981270416357*^9, 3.5079812706829376`*^9}, 3.565001574199294*^9, {3.568548163861234*^9, 3.568548174454891*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"sampleAround", "[", RowBox[{"x_", ",", "eps_", ",", RowBox[{"n_:", "1"}], ",", RowBox[{"variant_:", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"validpoints", ",", "j", ",", "point"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"validpoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "n"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", " ", RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"point", "=", RowBox[{"point", "-", RowBox[{"Mean", "[", "point", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", "eps"}], "}"}], "]"}], "*", RowBox[{"point", "/", RowBox[{"Norm", "[", "point", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", RowBox[{"eps", "*", RowBox[{"point", "/", RowBox[{"Norm", "[", "point", "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"point", " ", "=", RowBox[{"x", "+", "point"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"simplexQ", "[", "point", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"validpoints", " ", "=", RowBox[{"Append", "[", RowBox[{"validpoints", ",", "point"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "validpoints"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.4841838889761677`*^9}, {3.48418403555694*^9, 3.4841840433982153`*^9}, 3.4922779201532907`*^9, {3.4928173034217987`*^9, 3.4928173171915984`*^9}, { 3.5079322795294523`*^9, 3.5079323808150935`*^9}, {3.5079812758327904`*^9, 3.507981276075136*^9}, 3.558883820643627*^9, 3.565001620743792*^9, { 3.568548096372006*^9, 3.568548157481129*^9}, {3.569775857655394*^9, 3.569775888386827*^9}, {3.569775950991475*^9, 3.569775967496944*^9}, { 3.569776037476771*^9, 3.569776074015517*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"numberSystem", "[", RowBox[{"npositions_", ",", "npossibilities_", ",", "j_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leftover", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leftover", "=", RowBox[{"j", "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "npositions"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"IntegerPart", "[", RowBox[{"leftover", "/", RowBox[{"npossibilities", "^", RowBox[{"(", RowBox[{"npositions", "-", "k"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leftover", "=", RowBox[{"leftover", "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"npossibilities", "^", RowBox[{"(", RowBox[{"npositions", "-", "k"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "npositions"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "x"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158613135357037`*^9, 3.515861612057778*^9}, { 3.5158616486758723`*^9, 3.515861677798538*^9}, {3.5158617503256865`*^9, 3.5158617612923136`*^9}, {3.515861916961218*^9, 3.5158619185713096`*^9}, { 3.5158624090003605`*^9, 3.5158624101194243`*^9}, {3.515862672394426*^9, 3.5158626821859856`*^9}, {3.565001903173182*^9, 3.565001909601768*^9}, 3.565002010393186*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"n_", ",", "dim_", ",", RowBox[{"perturbed_:", "False"}], ",", RowBox[{"eps_:", "Infinity"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "epsilon", ",", "x", ",", "grid", ",", "leftover", ",", "nc"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"perturbed", "==", "True"}], " ", "&&", " ", RowBox[{"eps", ">", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "dim"}], ")"}]}]}]}], ",", RowBox[{"epsilon", "=", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "dim"}], ")"}]}]}], ",", RowBox[{"epsilon", "=", "eps"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"grid", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"nc", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "dim"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "+=", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"numberSystem", "[", RowBox[{"dim", ",", RowBox[{"n", "+", "1"}], ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", "x", "]"}], "==", " ", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"x", "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"perturbed", "==", "True"}], ",", RowBox[{"x", "=", RowBox[{ RowBox[{"sampleAround", "[", RowBox[{"x", ",", "epsilon"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"grid", "=", RowBox[{"Append", "[", RowBox[{"grid", ",", "x"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "grid"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPointPlot3D", "[", RowBox[{"discSimplex", "[", RowBox[{"50", ",", "3"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Dimensions", "[", RowBox[{"discSimplex", "[", RowBox[{"50", ",", "3"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.5158620478207026`*^9, 3.515862213644187*^9}, { 3.51586233363605*^9, 3.515862333932067*^9}, {3.5158624540689383`*^9, 3.5158624745091076`*^9}, {3.515862517539569*^9, 3.5158625222378373`*^9}, { 3.5158625895476875`*^9, 3.515862592885878*^9}, 3.565001598537931*^9, { 3.565002005584083*^9, 3.565002033902193*^9}, 3.565002069778929*^9}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"support", "[", RowBox[{"x_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "tolLevel", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tolLevel", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ">", "tolLevel"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158431432344217`*^9, 3.5158431650806713`*^9}, 3.565002195072414*^9, {3.568829855090309*^9, 3.568829858523706*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"simplexSupport", "[", RowBox[{"x_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "tolLevel", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tolLevel", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ">", "tolLevel"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158431432344217`*^9, 3.5158431650806713`*^9}, { 3.5163869212186813`*^9, 3.5163869344314365`*^9}, {3.565002196611813*^9, 3.565002214995478*^9}, {3.568829859759375*^9, 3.568829861496666*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"simplexClosestPoint", "[", "x_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "m", ",", "dim", ",", "nc", ",", "boundaries", ",", "reduced", ",", "npos", ",", "flag", ",", "project", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"nc", "=", RowBox[{"2", "^", "dim"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaries", "=", RowBox[{"numberSystem", "[", RowBox[{"dim", ",", "2", ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reduced", "[", RowBox[{"[", "npos", "]"}], "]"}], "=", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"npos", "--"}], ";", "\[IndentingNewLine]", RowBox[{"project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "npos", "]"}], "-", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"npos", ",", "npos"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{ RowBox[{"project", ".", RowBox[{"Take", "[", RowBox[{"reduced", ",", "npos"}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "npos"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "reduced", "]"}], "<", "0"}], ",", " ", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"boundaries", ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "-", RowBox[{"reduced", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "0"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"reduced", "[", RowBox[{"[", "m", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158610264992857`*^9, 3.5158611842993116`*^9}, { 3.5158628005917587`*^9, 3.5158630618697023`*^9}, {3.5158631055882034`*^9, 3.515863193911255*^9}, {3.51586322547406*^9, 3.515863342412749*^9}, 3.5158634026771955`*^9, {3.5158634466807127`*^9, 3.515863477944501*^9}, 3.5158635440622826`*^9, {3.515863586523711*^9, 3.5158636740217156`*^9}, { 3.5158637462118444`*^9, 3.5158638202180777`*^9}, {3.5158639196487646`*^9, 3.5158639402629433`*^9}, {3.5158639975272193`*^9, 3.515864274551064*^9}, { 3.5158647809020257`*^9, 3.5158648189702024`*^9}, {3.5158648573193965`*^9, 3.515864869824112*^9}, {3.5158649057141647`*^9, 3.5158649114164906`*^9}, { 3.515864958944209*^9, 3.5158649654255795`*^9}, {3.5158650186346235`*^9, 3.5158651631418886`*^9}, {3.5158662208313847`*^9, 3.5158662404495068`*^9}, {3.515866396670442*^9, 3.5158664147144747`*^9}, { 3.515866716775751*^9, 3.5158667470044804`*^9}, 3.515866834261471*^9, { 3.515866884230329*^9, 3.515866919060321*^9}, 3.5158669958897157`*^9, { 3.5158670831157045`*^9, 3.515867126987214*^9}, {3.515940216575699*^9, 3.5159402360598135`*^9}, {3.5159406099401984`*^9, 3.515940641584008*^9}, 3.56500200645568*^9, 3.565002271909319*^9}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"projectionMatrix", "[", "dim_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "pop", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "dim", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"p", "==", "1"}], ",", "0", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"IdentityMatrix", "[", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"1", "/", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"p", "==", "pop"}], ",", "0", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "+", "1"}], ",", "pop"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.507981270416357*^9, 3.5079812706829376`*^9}, 3.565001574199294*^9, {3.568548163861234*^9, 3.568548174454891*^9}, { 3.56899036093993*^9, 3.568990377610872*^9}, {3.568990461862211*^9, 3.568990538338224*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["General Game Theory Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.492812641853725*^9, 3.492812647141328*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"bestResponse", "::", "multip"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bestResponse", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Fx", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"Ordering", "[", RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Position", "[", RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "1"}], ",", RowBox[{"Message", "[", RowBox[{"bestResponse", "::", "multip"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "y"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.507981293117962*^9, 3.5079812934258614`*^9}, { 3.565002306736852*^9, 3.565002309437866*^9}, {3.568571839358576*^9, 3.568571907750358*^9}, {3.571820705550477*^9, 3.571820706511558*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"bestResponseSet", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Fx", ",", "max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"F", "[", "x", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"max", "=", RowBox[{"Max", "[", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "==", "max"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.50798130105005*^9, 3.507981301372611*^9}, { 3.508769607818768*^9, 3.508769638583005*^9}, {3.5087697145822864`*^9, 3.5087697191388383`*^9}, {3.508783530267227*^9, 3.5087835556136737`*^9}, { 3.5087838134744596`*^9, 3.508783813664733*^9}, {3.5087841208414993`*^9, 3.508784126599779*^9}, {3.508784194968088*^9, 3.5087841954788227`*^9}, { 3.515843252859692*^9, 3.515843253757743*^9}, 3.565002315668596*^9, { 3.568571935954388*^9, 3.56857201790816*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quasiStrictEqQ", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "==", RowBox[{"bestResponseSet", "[", RowBox[{"x", ",", "F", ",", "accuracy"}], "]"}]}], ",", "True", ",", "False"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.5079813067780743`*^9, 3.507981307078506*^9}, { 3.5087679470707293`*^9, 3.508767953039312*^9}, {3.508767996481779*^9, 3.5087680048237743`*^9}, {3.5087680460330305`*^9, 3.5087680873524446`*^9}, 3.5087695150353518`*^9, 3.508769840553424*^9, {3.5087700564939313`*^9, 3.50877007103484*^9}, {3.5087702664858847`*^9, 3.508770287616269*^9}, { 3.5087703782766323`*^9, 3.5087703902838974`*^9}, {3.5087704217491426`*^9, 3.50877044757628*^9}, {3.5087704895466304`*^9, 3.5087705280620127`*^9}, { 3.5087707114857635`*^9, 3.508770761177216*^9}, {3.5087707918613377`*^9, 3.5087708187199583`*^9}, 3.5087709119840655`*^9, {3.508771159790394*^9, 3.5087711640965853`*^9}, {3.5087835827226543`*^9, 3.5087836053251553`*^9}, {3.508783660234111*^9, 3.5087836792814994`*^9}, { 3.5087838015873666`*^9, 3.5087838018777843`*^9}, 3.515843256474899*^9, 3.565002317194565*^9, 3.565002419653941*^9, {3.568572065572681*^9, 3.568572099079215*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"nashEqQ", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "BRS", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"BRS", "=", RowBox[{"bestResponseSet", "[", RowBox[{"x", ",", "F", ",", "accuracy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BRS", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "==", "1"}], ",", "1", ",", "0"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "==", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "==", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "True", ",", "False"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.5079813067780743`*^9, 3.507981307078506*^9}, { 3.5087679470707293`*^9, 3.508767953039312*^9}, {3.508767996481779*^9, 3.5087680048237743`*^9}, {3.5087680460330305`*^9, 3.5087680873524446`*^9}, 3.5087695150353518`*^9, 3.508769840553424*^9, {3.5087700564939313`*^9, 3.50877007103484*^9}, {3.5087702664858847`*^9, 3.508770287616269*^9}, { 3.5087703782766323`*^9, 3.5087703902838974`*^9}, {3.5087704217491426`*^9, 3.50877044757628*^9}, {3.5087704895466304`*^9, 3.5087705280620127`*^9}, { 3.5087707114857635`*^9, 3.508770761177216*^9}, {3.5087707918613377`*^9, 3.5087708187199583`*^9}, {3.5087709119840655`*^9, 3.5087709456725073`*^9}, {3.5087711546930637`*^9, 3.5087711571866493`*^9}, {3.5087835930975733`*^9, 3.5087836084596624`*^9}, {3.5087836483570323`*^9, 3.5087836499192786`*^9}, {3.508783684819463*^9, 3.508783687433221*^9}, { 3.5087838182513285`*^9, 3.5087838184416018`*^9}, 3.5158432580919914`*^9, 3.565002318873617*^9, 3.565002482480643*^9, {3.568572166520815*^9, 3.568572180758783*^9}, {3.56857225919258*^9, 3.568572327230462*^9}, { 3.568572394428983*^9, 3.568572497804054*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"variationalIneqCheck", "[", RowBox[{"x_", ",", "support_", ",", "Fx_", ",", RowBox[{"variant_:", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "dim", ",", "flag"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"support", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"UnitVector", "[", RowBox[{"dim", ",", "j"}], "]"}]}], ")"}], ".", "Fx"}], ">", "0"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"UnitVector", "[", RowBox[{"dim", ",", "j"}], "]"}]}], ")"}], ".", "Fx"}], ">=", "0"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", "flag", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "flag"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.4932304372995567`*^9, 3.493230446362991*^9}, { 3.4932305116095705`*^9, 3.4932305121461644`*^9}, {3.4932305741978664`*^9, 3.4932306014590936`*^9}, {3.4932307456320677`*^9, 3.493230773878895*^9}, { 3.4932308296086855`*^9, 3.493230885292202*^9}, {3.4932309584957905`*^9, 3.4932311120825996`*^9}, {3.493231155655254*^9, 3.493231177366473*^9}, { 3.4932313170072665`*^9, 3.4932313337112856`*^9}, {3.4932313767131195`*^9, 3.4932304833349857`*^9}, {3.493231867004605*^9, 3.4932318932022753`*^9}, { 3.4932322080850544`*^9, 3.493232228183955*^9}, {3.493232260660654*^9, 3.4932322707852125`*^9}, {3.4932695180153246`*^9, 3.4932695197378016`*^9}, {3.4932696938081026`*^9, 3.4932697581105647`*^9}, {3.493269851174384*^9, 3.493269852356083*^9}, { 3.4932702736118193`*^9, 3.49327031849636*^9}, {3.4933779894139757`*^9, 3.4933779990177855`*^9}, {3.4933781126912403`*^9, 3.4933783242854977`*^9}, {3.4933784533210416`*^9, 3.49337856959824*^9}, { 3.4933786279120913`*^9, 3.493378646759192*^9}, {3.4933786965007167`*^9, 3.493378874456605*^9}, {3.4934031443286133`*^9, 3.493403186919856*^9}, { 3.493403217784237*^9, 3.4934032211691046`*^9}, {3.507402745162653*^9, 3.5074028861954484`*^9}, {3.507403078497032*^9, 3.5074030958019156`*^9}, { 3.5074034271130886`*^9, 3.5074034272933474`*^9}, {3.5074038088871202`*^9, 3.507403893628973*^9}, {3.507404918137347*^9, 3.507404945646904*^9}, { 3.5074052694725423`*^9, 3.507405271235077*^9}, {3.5074053554122186`*^9, 3.507405356356061*^9}, {3.5074054221171026`*^9, 3.5074055518536544`*^9}, { 3.5074056108384705`*^9, 3.5074056251089907`*^9}, {3.50740658809383*^9, 3.5074065896160192`*^9}, {3.5074067052923536`*^9, 3.507406741425291*^9}, { 3.5074067717898226`*^9, 3.507406772221687*^9}, {3.5074068130824156`*^9, 3.507406897814254*^9}, {3.507407086004859*^9, 3.507407086765953*^9}, { 3.507407124059579*^9, 3.5074071262427177`*^9}, {3.507407358852262*^9, 3.50740737056911*^9}, {3.507407409905673*^9, 3.5074074568631945`*^9}, { 3.507407571798464*^9, 3.5074076550381565`*^9}, {3.507407705864667*^9, 3.507407706034202*^9}, {3.5074077532844954`*^9, 3.507407761576419*^9}, { 3.5074080777750683`*^9, 3.507408202304132*^9}, {3.507408900382826*^9, 3.507408948301892*^9}, {3.507408989090543*^9, 3.507409019364074*^9}, { 3.507409077217263*^9, 3.5074090988383527`*^9}, {3.507409164592903*^9, 3.5074091925030355`*^9}, {3.5074092466772604`*^9, 3.507409294614933*^9}, 3.5074093327497683`*^9, {3.507409415789173*^9, 3.507409551824783*^9}, 3.5074095885676165`*^9, {3.5074096370373125`*^9, 3.5074096425252037`*^9}, { 3.507409699229843*^9, 3.50740970357926*^9}, {3.507409811182789*^9, 3.5074098754151506`*^9}, {3.5074099165442915`*^9, 3.5074099402183332`*^9}, {3.5074100172591124`*^9, 3.507410090181966*^9}, { 3.507410135379363*^9, 3.5074101366101756`*^9}, {3.507410199155735*^9, 3.5074102406153507`*^9}, {3.507410307341298*^9, 3.5074104113459167`*^9}, { 3.5074104942715235`*^9, 3.507410494735777*^9}, {3.507410673978632*^9, 3.5074107008072095`*^9}, {3.5074107351065297`*^9, 3.507410761704776*^9}, { 3.507410800760936*^9, 3.507410828600968*^9}, {3.5074108722537374`*^9, 3.5074109060923953`*^9}, {3.5074109378676157`*^9, 3.507410966274177*^9}, { 3.507411014473307*^9, 3.5074110213632145`*^9}, {3.5074111192840176`*^9, 3.5074111715291424`*^9}, 3.5074133137945113`*^9, {3.507429697020052*^9, 3.507429697580858*^9}, {3.5074297563653865`*^9, 3.507429758258108*^9}, { 3.5074297983457513`*^9, 3.5074298011798267`*^9}, {3.5074302419737926`*^9, 3.507430317051749*^9}, {3.5074304835912213`*^9, 3.5074305171795187`*^9}, { 3.5074305749225492`*^9, 3.507430616902914*^9}, {3.507430714152753*^9, 3.5074307330799685`*^9}, {3.5074308407848406`*^9, 3.507430845671868*^9}, { 3.5074309085622997`*^9, 3.5074309864469614`*^9}, {3.5074310257058115`*^9, 3.507431100753725*^9}, {3.5074312094629297`*^9, 3.5074312147805758`*^9}, { 3.507431267666622*^9, 3.507431283038726*^9}, {3.507431334582843*^9, 3.507431366969413*^9}, {3.50743145062971*^9, 3.507431453644045*^9}, { 3.507431526639006*^9, 3.507431533038208*^9}, 3.5074315770114384`*^9, { 3.5074317413877997`*^9, 3.507431752013078*^9}, {3.507431799901939*^9, 3.5074318517064304`*^9}, {3.507431885174555*^9, 3.507431888769725*^9}, { 3.507432021355441*^9, 3.5074320249906683`*^9}, {3.507432062104035*^9, 3.5074321689576826`*^9}, {3.5074322979832125`*^9, 3.5074323036713915`*^9}, {3.5074323375132103`*^9, 3.5074323409217577`*^9}, {3.5074324216360846`*^9, 3.507432436477425*^9}, { 3.507432483284731*^9, 3.507432485507928*^9}, {3.507432546425523*^9, 3.507432549029267*^9}, {3.507432612851038*^9, 3.507432634982862*^9}, { 3.5074326983539853`*^9, 3.507432707567233*^9}, {3.5074327552958636`*^9, 3.507432783596558*^9}, {3.507433759623076*^9, 3.5074338199197783`*^9}, { 3.507433862240633*^9, 3.507433883771593*^9}, {3.5074339344644856`*^9, 3.5074339465919237`*^9}, {3.5074339992276106`*^9, 3.507434036771596*^9}, { 3.507434072231654*^9, 3.5074340727125945`*^9}, {3.507434190978402*^9, 3.507434197718094*^9}, {3.507434253338071*^9, 3.50743425786458*^9}, { 3.507434534136908*^9, 3.507434645737382*^9}, {3.5074347427068167`*^9, 3.5074349673498373`*^9}, {3.5074350329141145`*^9, 3.5074351091437273`*^9}, {3.5074351391668987`*^9, 3.507435139927993*^9}, { 3.5074351839813385`*^9, 3.50743519147211*^9}, 3.5074352393008842`*^9, { 3.507435376419031*^9, 3.5074353767134867`*^9}, 3.507435505518754*^9, { 3.5074355408796005`*^9, 3.507435634384053*^9}, {3.50743570470517*^9, 3.5074357228612776`*^9}, {3.5074721547880163`*^9, 3.5074721555991826`*^9}, {3.5079092010115876`*^9, 3.5079092063492627`*^9}, {3.5079093533023605`*^9, 3.5079093535627356`*^9}, {3.507981461921159*^9, 3.5079814846939044`*^9}, { 3.5079853078814325`*^9, 3.5079853472680683`*^9}, {3.5130124616650877`*^9, 3.5130124664419565`*^9}, {3.5130129969447823`*^9, 3.513013032646118*^9}, { 3.513013247104494*^9, 3.513013249417821*^9}, {3.513013398752554*^9, 3.5130134215152845`*^9}, {3.513013484485832*^9, 3.5130134890523987`*^9}, { 3.5130184917959905`*^9, 3.5130184935785537`*^9}, {3.5130185260452385`*^9, 3.513018537281395*^9}, {3.5130185854506593`*^9, 3.5130186205210876`*^9}, 3.565002767446707*^9, {3.568828084876328*^9, 3.568828107203159*^9}, { 3.568828170480275*^9, 3.568828189437389*^9}, {3.569758200559709*^9, 3.569758237507665*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Differential Equations Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.5586450187563486`*^9, 3.5586450259217577`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Protect", "[", "Xt", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pattern", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"__", "?", "NumberQ"}], "}"}], "..."}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"X", "[", "t_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";", RowBox[{"Append", "[", RowBox[{"result", ",", RowBox[{"1", "-", RowBox[{"Total", "[", "result", "]"}]}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9, {3.539723825865969*^9, 3.539723860040309*^9}, { 3.5586249363598814`*^9, 3.558624956771049*^9}, {3.5586251901313963`*^9, 3.558625273367157*^9}, {3.5586253240880585`*^9, 3.558625382085376*^9}, { 3.5586254234637423`*^9, 3.558625466921228*^9}, {3.558625501241191*^9, 3.558625508710618*^9}, {3.5586259170309725`*^9, 3.55862591751*^9}, { 3.5586386315110188`*^9, 3.558638651165143*^9}, {3.5586388597080708`*^9, 3.5586388830474057`*^9}, 3.5586389191654716`*^9, {3.5586389660761547`*^9, 3.5586390191321898`*^9}, {3.5586442349195156`*^9, 3.5586442358795705`*^9}, {3.558644572823842*^9, 3.558644573381874*^9}, 3.558644753106154*^9, {3.5650011736184*^9, 3.565001175089341*^9}, { 3.568541760917001*^9, 3.568541800917922*^9}, {3.568541894025357*^9, 3.5685419470183*^9}, {3.569752945773311*^9, 3.569753022910902*^9}, { 3.580640888602146*^9, 3.580640890402175*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"scalarDyn", "[", RowBox[{ RowBox[{"p_", "?", "NumericQ"}], ",", RowBox[{"j_", "?", "NumericQ"}], ",", RowBox[{"x", ":", "pattern"}], ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"difEqSol", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", "t0_", ",", "T_", ",", RowBox[{"condition_:", "\"\\""}], ",", RowBox[{"altopt_:", "False"}], ",", RowBox[{"accuracy_:", "10"}], ",", RowBox[{"maxsteps_:", "10000"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "cond", ",", "method", ",", "ms", ",", "solvedelayed", ",", "d"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"condition", "==", "\"\\""}], " ", ",", RowBox[{ RowBox[{"cond", "=", "t0"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"condition", "==", "\"\\""}], " ", ",", RowBox[{ RowBox[{"cond", "=", "T"}], ";"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"cond", "=", "condition"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"altopt", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"ms", "=", RowBox[{ RowBox[{"10", "/", "maxsteps"}], "*", RowBox[{"(", RowBox[{"T", "-", "t0"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"solvedelayed", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"scalarDyn", "[", RowBox[{"p", ",", "j", ",", RowBox[{"X", "[", "t", "]"}], ",", "F"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"ms", "=", "Automatic"}], ";", "\[IndentingNewLine]", RowBox[{"solvedelayed", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"dyn", "[", RowBox[{ RowBox[{"X", "[", "t", "]"}], ",", "F"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"d", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], "[", "cond", "]"}], "\[Equal]", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "t0", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AccuracyGoal", "\[Rule]", "accuracy"}], ",", RowBox[{"PrecisionGoal", "->", "accuracy"}], ",", "\[IndentingNewLine]", RowBox[{"Method", "->", "method"}], ",", "\[IndentingNewLine]", RowBox[{"MaxSteps", "->", "maxsteps"}], ",", "\[IndentingNewLine]", RowBox[{"MaxStepSize", "\[Rule]", "ms"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MaxStepFraction", "->", "ms"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"SolveDelayed", "->", "solvedelayed"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9, {3.507930806471298*^9, 3.5079308195901623`*^9}, { 3.507930909479417*^9, 3.507930944329529*^9}, {3.507931084591215*^9, 3.5079311356245975`*^9}, 3.5079312172019*^9, {3.5079312571893992`*^9, 3.507931263949119*^9}, 3.5079315007195787`*^9, 3.507931605870778*^9, { 3.5079474930948815`*^9, 3.507947511381176*^9}, {3.507951869241627*^9, 3.5079518744991875`*^9}, {3.507981391707519*^9, 3.5079813945215654`*^9}, { 3.5079830583416986`*^9, 3.5079830583416986`*^9}, {3.507983372698722*^9, 3.5079833727137437`*^9}, {3.5080185564216337`*^9, 3.508018564212837*^9}, { 3.5080185977009907`*^9, 3.5080186050816035`*^9}, {3.5080187812148705`*^9, 3.5080189213363557`*^9}, {3.508021289782013*^9, 3.5080213236106567`*^9}, 3.508021400801652*^9, {3.508021495818279*^9, 3.5080215019170485`*^9}, { 3.5160388141421576`*^9, 3.516038819696475*^9}, {3.516038859102729*^9, 3.516038859440748*^9}, 3.516039055351954*^9, 3.5160391207526946`*^9, 3.5160392407855597`*^9, 3.5160393857108493`*^9, {3.5160466441200066`*^9, 3.516046647283188*^9}, {3.5160477754117126`*^9, 3.5160478161390424`*^9}, { 3.516047878392603*^9, 3.5160478843099413`*^9}, {3.5162146630956945`*^9, 3.516214773653018*^9}, {3.516214850752428*^9, 3.516214893887895*^9}, { 3.516215007372386*^9, 3.516215019699091*^9}, {3.5162164391022763`*^9, 3.5162164837668314`*^9}, 3.516216776228559*^9, 3.516216930379376*^9, { 3.5162170706253977`*^9, 3.5162170714334435`*^9}, {3.5162177849492545`*^9, 3.516217852017091*^9}, {3.516217924719249*^9, 3.5162179438743443`*^9}, { 3.5162180843183775`*^9, 3.5162181927785807`*^9}, {3.5162189157239313`*^9, 3.5162189191591277`*^9}, {3.516219222997506*^9, 3.516219226946732*^9}, { 3.5162192687931256`*^9, 3.5162192778466434`*^9}, {3.516274225802577*^9, 3.5162742315189037`*^9}, {3.516275100527608*^9, 3.516275106072925*^9}, { 3.516275218491355*^9, 3.516275244329833*^9}, 3.516275442277155*^9, 3.5162756364542613`*^9, {3.5162761511166983`*^9, 3.5162761519057436`*^9}, { 3.516276214629331*^9, 3.516276215523382*^9}, {3.51627624573411*^9, 3.5162762999032087`*^9}, {3.516386025383442*^9, 3.516386027141543*^9}, { 3.516386064604686*^9, 3.5163860651337156`*^9}, {3.516386109721266*^9, 3.5163862498682823`*^9}, {3.5163863031643305`*^9, 3.516386316727106*^9}, 3.5163863839769526`*^9, {3.5163864969164124`*^9, 3.516386586768552*^9}, { 3.5164184284257903`*^9, 3.516418431607972*^9}, {3.521153098505105*^9, 3.5211531184532456`*^9}, 3.5211531943995895`*^9, {3.5211532825356307`*^9, 3.5211533236019793`*^9}, {3.5211533601620708`*^9, 3.521153405857684*^9}, { 3.521637043319827*^9, 3.521637062411399*^9}, {3.5216370942592907`*^9, 3.5216371178638105`*^9}, {3.558620351021615*^9, 3.558620418174456*^9}, { 3.558620870583332*^9, 3.5586208987869453`*^9}, {3.5586247744956236`*^9, 3.55862477513666*^9}, {3.558624840768414*^9, 3.5586248490108857`*^9}, { 3.55862491273253*^9, 3.5586249205409765`*^9}, {3.5586257653902993`*^9, 3.558625768987505*^9}, {3.558637784207556*^9, 3.5586377888658223`*^9}, { 3.5586382010593987`*^9, 3.558638259716753*^9}, {3.5586382976689243`*^9, 3.5586383114947147`*^9}, 3.5586384280453815`*^9, {3.558638511088131*^9, 3.5586385211067038`*^9}, {3.55863866930418*^9, 3.558638695980706*^9}, { 3.5586390214533224`*^9, 3.558639028325715*^9}, {3.5586442902416797`*^9, 3.5586442926708183`*^9}, {3.5586481853404665`*^9, 3.5586482770597124`*^9}, {3.565000968711419*^9, 3.565000969684009*^9}, 3.565001036214117*^9, {3.568542105700873*^9, 3.568542113280424*^9}, { 3.568542146827201*^9, 3.568542172935487*^9}, {3.568542265310028*^9, 3.568542295061872*^9}, {3.568542362188522*^9, 3.568542363876217*^9}, 3.568542437978345*^9, {3.568542579943589*^9, 3.568542580204728*^9}, { 3.568542619194094*^9, 3.5685427065336*^9}, {3.56854293192797*^9, 3.568542945092706*^9}, {3.568543256338675*^9, 3.568543256579353*^9}, { 3.569671848556508*^9, 3.569671853030525*^9}, {3.56967227646599*^9, 3.569672280229266*^9}, {3.569752406411822*^9, 3.569752407065286*^9}, { 3.569752457444502*^9, 3.569752457861936*^9}, {3.569757539002903*^9, 3.569757549423612*^9}, {3.569856373550456*^9, 3.569856378909003*^9}, { 3.569856412826683*^9, 3.569856416112827*^9}, {3.572118065052033*^9, 3.572118070028603*^9}, {3.572172979985382*^9, 3.57217299051662*^9}, { 3.580640556287066*^9, 3.580640563323592*^9}, {3.580641869922801*^9, 3.580641871727995*^9}, {3.580642332899635*^9, 3.580642341369067*^9}, { 3.580644611512535*^9, 3.580644611692108*^9}, 3.580644921483152*^9}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"difEqAdvance", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", "T_", ",", RowBox[{"altopt_:", "False"}], ",", RowBox[{"accuracy_:", "10"}], ",", RowBox[{"maxsteps_:", "10000"}], ",", RowBox[{"method_:", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"maxstepsize", ",", "result", ",", "r"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"difEqSol", "[", RowBox[{ "x", ",", "dyn", ",", "F", ",", "0", ",", "T", ",", "\"\\"", ",", "altopt", ",", "accuracy", ",", "maxsteps"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "d", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{"dyn", "[", RowBox[{ RowBox[{"X", "[", "t", "]"}], ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"d", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], "[", "0", "]"}], "\[Equal]", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Xt", "[", "p", "]"}], "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AccuracyGoal", "\[Rule]", "accuracy"}], ",", RowBox[{"PrecisionGoal", "->", "Infinity"}], ",", "\[IndentingNewLine]", RowBox[{"Method", "->", "method"}], ",", "\[IndentingNewLine]", RowBox[{"MaxSteps", "->", "maxsteps"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"X", "[", "T", "]"}], "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], "/.", "\[InvisibleSpace]", "result"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r", "=", RowBox[{"result", "[", RowBox[{"[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"p", "==", "1"}], ",", "0", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], "+", "1"}], ";;", "\[IndentingNewLine]", RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"j", ",", "p"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Append", "[", RowBox[{"r", ",", RowBox[{"1", "-", RowBox[{"Total", "[", "r", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.557689825087273*^9, 3.557689829737721*^9}, { 3.55768986090595*^9, 3.557689865115477*^9}, {3.557689933965158*^9, 3.557690051153547*^9}, {3.557690123479296*^9, 3.55769016110612*^9}, 3.557690233504489*^9, {3.557690641320119*^9, 3.557690683533776*^9}, { 3.557690796073244*^9, 3.557691079482815*^9}, {3.557691147449412*^9, 3.557691241809426*^9}, {3.557691280187725*^9, 3.55769134833166*^9}, { 3.557691401406796*^9, 3.557691545567169*^9}, {3.557691576478633*^9, 3.557691578986042*^9}, {3.557691634200618*^9, 3.557691642372945*^9}, { 3.557691679612523*^9, 3.557691695471587*^9}, {3.557691746954067*^9, 3.557692146608407*^9}, {3.557692204077006*^9, 3.557692214218333*^9}, { 3.557692420634619*^9, 3.557692421222586*^9}, {3.557692601129979*^9, 3.557692650976607*^9}, {3.557692693828507*^9, 3.557692819707601*^9}, { 3.557692849848672*^9, 3.557692902527301*^9}, {3.557692995506108*^9, 3.557693041473971*^9}, {3.557693125132984*^9, 3.557693227326541*^9}, { 3.55769326232499*^9, 3.557693268761132*^9}, {3.557693310039918*^9, 3.557693474844129*^9}, {3.55769351122605*^9, 3.55769366017373*^9}, { 3.557693732774461*^9, 3.557693739519095*^9}, 3.557749030400953*^9, { 3.557749108902443*^9, 3.557749129974648*^9}, {3.5577491675747986`*^9, 3.557749168633859*^9}, {3.557749300679412*^9, 3.557749309428912*^9}, { 3.557749470909148*^9, 3.557749474220338*^9}, {3.5577497696942377`*^9, 3.557749774236498*^9}, {3.55792253499592*^9, 3.557922564866593*^9}, { 3.557923155073567*^9, 3.557923162122001*^9}, {3.5586249963503127`*^9, 3.5586250245059233`*^9}, {3.55862507917205*^9, 3.558625114154051*^9}, { 3.5586384680626698`*^9, 3.5586384954362354`*^9}, {3.55863871038053*^9, 3.5586387176429453`*^9}, {3.5586390296037884`*^9, 3.5586390367361965`*^9}, {3.558639818683921*^9, 3.5586398225401416`*^9}, { 3.5586442937538805`*^9, 3.558644363788886*^9}, {3.5586443982218556`*^9, 3.5586444027641153`*^9}, {3.5586448369329486`*^9, 3.5586448376499896`*^9}, 3.565001220039692*^9, {3.56854278097066*^9, 3.56854281507457*^9}, { 3.568542891335227*^9, 3.568542892714209*^9}, {3.568542951795661*^9, 3.568542965047635*^9}, {3.56854300378729*^9, 3.568543022258348*^9}, { 3.568543062373535*^9, 3.568543079602516*^9}, {3.568543118148931*^9, 3.56854312773308*^9}, {3.568543179805218*^9, 3.568543198153083*^9}, { 3.568543492350667*^9, 3.568543507065747*^9}, {3.568543569982729*^9, 3.568543600726138*^9}, {3.568543690309785*^9, 3.568543850629325*^9}, { 3.569667805841669*^9, 3.569667814270804*^9}, {3.569667870189416*^9, 3.569667903742907*^9}, {3.569746527060001*^9, 3.569746528331759*^9}, { 3.569757485214905*^9, 3.569757524374903*^9}, {3.569757626612602*^9, 3.569757682994552*^9}, {3.580641879917307*^9, 3.580641883011975*^9}, 3.580641914304147*^9, {3.580642035544164*^9, 3.580642087316661*^9}, { 3.580642237208419*^9, 3.580642243755934*^9}, {3.580642314375759*^9, 3.580642319555092*^9}, {3.580642388854497*^9, 3.580642397294632*^9}, { 3.580643967202409*^9, 3.580643968104375*^9}, {3.580644527428339*^9, 3.58064453067642*^9}, {3.58064460413854*^9, 3.58064460506679*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Coordinate transformation (for plotting the phase diagram)", \ "Subsubsection", CellChangeTimes->{{3.569746419858425*^9, 3.569746423125254*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["\<\ simplexToPlane maps points in the simplex to their 2D represetations for \ graphing. planeToSimplex does the reverse.\ \>", "Text", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, 3.564999378157588*^9, 3.56499945462633*^9}, CellTags->{"initcell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"simplexToPlane", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"-", "1"}]}, { FractionBox[ SqrtBox["3"], "2"], "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"planeToSimplex", "[", "c_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "reduced", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"reduced", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"-", "1"}]}, { FractionBox[ SqrtBox["3"], "2"], "0"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", RowBox[{"c", "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Append", "[", RowBox[{"reduced", ",", RowBox[{"1", "-", RowBox[{"Total", "[", "reduced", "]"}]}]}], "]"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.4749178565978994`*^9, {3.4818174361229935`*^9, 3.4818174636325502`*^9}, { 3.4818175843961997`*^9, 3.48181760508595*^9}, {3.507983058266591*^9, 3.5079830583266773`*^9}, {3.5079833726085925`*^9, 3.5079833726686788`*^9}, {3.554559924187413*^9, 3.554559939940249*^9}, { 3.554561856425631*^9, 3.554561856713756*^9}, 3.564999378838288*^9, { 3.564999429725192*^9, 3.56499945592722*^9}, {3.565000328426468*^9, 3.565000430992858*^9}, 3.566818202970769*^9, {3.569416862021677*^9, 3.56941693837489*^9}, {3.572377964326401*^9, 3.572377965659045*^9}, { 3.572378068750168*^9, 3.572378069929169*^9}, {3.572378135230698*^9, 3.572378136396062*^9}, {3.572378175761053*^9, 3.57237817794124*^9}, 3.580476427610195*^9, {3.580479197364564*^9, 3.58047919871969*^9}, { 3.580479407639873*^9, 3.580479413775772*^9}, 3.580479559250402*^9}, CellTags->{"initcell", "differentacrossnotebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{"simplexCorners", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"UnitVector", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"planeCorners", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"simplexToPlane", "[", RowBox[{"simplexCorners", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "simplexCorners", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.4749178565978994`*^9, {3.4818174361229935`*^9, 3.4818174636325502`*^9}, { 3.4818175843961997`*^9, 3.48181760508595*^9}, {3.507983058266591*^9, 3.5079830583266773`*^9}, {3.5079833726085925`*^9, 3.5079833726686788`*^9}, {3.554559924187413*^9, 3.554559939940249*^9}, { 3.554561856425631*^9, 3.554561856713756*^9}, 3.564999378838288*^9, { 3.564999429725192*^9, 3.56499945592722*^9}, {3.565000328426468*^9, 3.565000430992858*^9}, 3.566818202970769*^9, {3.569416862021677*^9, 3.56941693837489*^9}, {3.57192090983366*^9, 3.571920982300742*^9}, { 3.572377878901591*^9, 3.572377880082496*^9}, {3.572378158894012*^9, 3.572378181338409*^9}, {3.572378331651023*^9, 3.572378338916473*^9}, { 3.572378401640321*^9, 3.572378416027096*^9}, {3.572378587937379*^9, 3.572378612329389*^9}, 3.580476545276149*^9, {3.580479054906449*^9, 3.580479063938333*^9}, {3.580479185882794*^9, 3.580479194030367*^9}, { 3.580479410958202*^9, 3.58047941128212*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"sphereStrategiesOffset", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", ".04"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", RowBox[{"-", ".04"}]}], "}"}], ",", RowBox[{"{", RowBox[{".04", ",", RowBox[{"-", ".04"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexPlotRange", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", ".95"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexStrategiesPositions", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", ".9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".03"}], ",", RowBox[{"-", ".02"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.03", ",", RowBox[{"-", ".02"}]}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.4749178565978994`*^9, {3.4818174361229935`*^9, 3.4818174636325502`*^9}, { 3.4818175843961997`*^9, 3.48181760508595*^9}, {3.507983058266591*^9, 3.5079830583266773`*^9}, {3.5079833726085925`*^9, 3.5079833726686788`*^9}, {3.554559924187413*^9, 3.554559939940249*^9}, { 3.554561856425631*^9, 3.554561856713756*^9}, 3.564999378838288*^9, { 3.564999429725192*^9, 3.56499945592722*^9}, {3.565000328426468*^9, 3.565000430992858*^9}, 3.566818202970769*^9, {3.569416862021677*^9, 3.56941693837489*^9}, {3.572377964326401*^9, 3.572377965659045*^9}, { 3.572378068750168*^9, 3.572378069929169*^9}, {3.572378135230698*^9, 3.572378136396062*^9}, {3.572378175761053*^9, 3.57237817794124*^9}, 3.580476427610195*^9, {3.580479197364564*^9, 3.58047919871969*^9}, { 3.580479407639873*^9, 3.580479413775772*^9}, 3.580479559250402*^9}, CellTags->{"initcell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "simplexToSphere", " and its inverse produce the ", StyleBox["Akin transformation", FontSlant->"Italic"], " required for the sphere." }], "Text", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.539713953733368*^9, 3.5397140352362175`*^9}, 3.564999296587334*^9, 3.569637326116464*^9}, CellTags->{"initcell", "3Sexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sphereRotationMatrix", "[", "viewray_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"R1", ",", "R2", ",", "wstar"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"R1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"wstar", "=", RowBox[{"R1", ".", "viewray"}]}], ";", "\[IndentingNewLine]", RowBox[{"R2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"R2", ".", "R1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"simplexToSphere", "[", RowBox[{"x_", ",", "viewray_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "result", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Re", "[", RowBox[{ RowBox[{"sphereRotationMatrix", "[", "viewray", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", "viewray"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"result", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"result", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sphereToSimplex", "[", RowBox[{"x_", ",", "viewray_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "r"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", RowBox[{"sphereRotationMatrix", "[", "viewray", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"R", ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "-", "viewray"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], " ", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "+", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", "R", "]"}], ".", "r"}], "+", "viewray"}], ")"}], "^", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.539713675093985*^9, {3.539713861817696*^9, 3.5397138745583134`*^9}, { 3.564998962776749*^9, 3.564998966741122*^9}, 3.564999238719623*^9, 3.564999299130484*^9, 3.564999553565629*^9, 3.569637328497584*^9, 3.569639070638132*^9, {3.569639187592747*^9, 3.569639188151549*^9}, { 3.56963935937413*^9, 3.569639481067774*^9}, {3.569639517462321*^9, 3.569639562296017*^9}, {3.569639916936398*^9, 3.569639932175478*^9}, { 3.569639986983498*^9, 3.569640033554452*^9}, {3.569640093562272*^9, 3.569640232590399*^9}, 3.569640326526824*^9, {3.569640372023555*^9, 3.569640383692068*^9}, {3.56964043926548*^9, 3.569640638966105*^9}, { 3.569640677450816*^9, 3.569640716658974*^9}, {3.569640900469501*^9, 3.56964090878197*^9}, {3.569640971523483*^9, 3.569640973736786*^9}, { 3.569745258834679*^9, 3.569745472719101*^9}, {3.57199290527009*^9, 3.571992910744923*^9}, {3.571993985752744*^9, 3.571993987511649*^9}, { 3.57199408819024*^9, 3.571994100326098*^9}}, CellTags->{"initcell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Custom Graphics Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.4928128620603666`*^9, 3.4928128997044964`*^9}, {3.493151231640339*^9, 3.4931512369479713`*^9}, { 3.540032679891961*^9, 3.540032690162765*^9}}, CellTags->{"initcell", "2dexclusive"}], Cell[BoxData[{ RowBox[{ RowBox[{"contourPlotRule", "=", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"r_", "?", RowBox[{"(", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{ "RGBColor", ",", "Hue", ",", "CMYKColor", ",", "GrayLevel"}], "}"}], ",", RowBox[{"Head", "[", "#", "]"}]}], "]"}], "&"}], ")"}]}], ",", "i___"}], "}"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{"r", ",", RowBox[{"Thickness", "[", "Small", "]"}]}], "}"}], "]"}], ",", "r", ",", "i"}], "}"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"http", ":"}], "//", RowBox[{ RowBox[{ RowBox[{"pages", ".", "uoregon", ".", "edu"}], "/", "noeckel"}], "/", RowBox[{"MathematicaGraphics", ".", "html"}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5402098169902267`*^9, 3.540209818012643*^9}, { 3.540758307360132*^9, 3.540758313169226*^9}, 3.540758426414315*^9}, CellTags->{"initcell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"customContours", "[", RowBox[{ "numberofcontours_", ",", "extremesgridsize_", ",", "function_", ",", "range_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"values", ",", "extremes"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"values", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"function", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"i", "/", "extremesgridsize"}], "*", RowBox[{"(", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"j", "/", "extremesgridsize"}], "*", RowBox[{"(", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "extremesgridsize"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "extremesgridsize"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"extremes", "=", RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "values", "]"}], ",", RowBox[{"Max", "[", "values", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"extremes", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"extremes", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"extremes", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"extremes", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"numberofcontours", " ", "-", "1"}], ")"}]}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4920420303598175`*^9, 3.4920420986680403`*^9}, 3.565000588656111*^9}, CellTags->{"initcell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"customVectorField", "[", RowBox[{ "points_", ",", "vectors_", ",", "color_", ",", "magninorm_", ",", "magnihead_", ",", "gridpoints_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"rescaler", ",", "maxnorm"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"maxnorm", "=", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectors", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rescaler", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"gridpoints", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rescaler", "=", RowBox[{"magninorm", " ", RowBox[{"rescaler", "/", "maxnorm"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ">", RowBox[{".01", "*", "maxnorm"}]}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color", ",", RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"magnihead", " ", "/", RowBox[{"(", RowBox[{"2", "gridpoints"}], ")"}]}], ",", ".99"}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "+", RowBox[{ RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], "rescaler"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color", ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Scaled", "[", "0.005", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectors", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474409954579438*^9, 3.474409965885696*^9}, 3.474410059590437*^9, {3.474411264432915*^9, 3.4744112661553917`*^9}, { 3.4744116091886497`*^9, 3.474411659190549*^9}, {3.4744123256688976`*^9, 3.474412328432872*^9}, {3.474412365966843*^9, 3.474412367268715*^9}, { 3.474413032935898*^9, 3.4744130631293135`*^9}, {3.4744134674306707`*^9, 3.4744134677010593`*^9}, {3.4744135541954317`*^9, 3.4744136513551407`*^9}, {3.474413735275813*^9, 3.47441374325729*^9}, { 3.4744138135583773`*^9, 3.474414013936507*^9}, 3.474414044710758*^9, { 3.4748346690119486`*^9, 3.474834677499152*^9}, 3.4748349834947605`*^9, { 3.4748350407883787`*^9, 3.474835104676106*^9}, {3.474835159185567*^9, 3.4748351841832514`*^9}, {3.474835221063692*^9, 3.47483524289749*^9}, { 3.474835285613969*^9, 3.474835288696415*^9}, {3.4750384882350035`*^9, 3.475038572616338*^9}, {3.4750386241604548`*^9, 3.4750386281962576`*^9}, { 3.475038751563651*^9, 3.4750389399044724`*^9}, {3.475038973953432*^9, 3.475039023755043*^9}, {3.475039098853029*^9, 3.47503931464332*^9}, { 3.475039346378954*^9, 3.4750394584501038`*^9}, {3.475039492028387*^9, 3.4750395222017746`*^9}, {3.480862284648756*^9, 3.480862369289381*^9}, { 3.480862497430006*^9, 3.480862561070631*^9}, {3.480862643789381*^9, 3.480862683930006*^9}, {3.480862834836256*^9, 3.480862839711256*^9}, { 3.480863114320631*^9, 3.480863184914381*^9}, {3.480863286039381*^9, 3.480863322883131*^9}, {3.480863369711256*^9, 3.480863437101881*^9}, { 3.480863471805006*^9, 3.480863601336256*^9}, {3.480863663055006*^9, 3.480863665680006*^9}, {3.480863701680006*^9, 3.480863714180006*^9}, 3.480863759383131*^9, {3.507983551195388*^9, 3.507983565796383*^9}, 3.5400330601692495`*^9, 3.565000704542138*^9}, CellTags->{"initcell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Rest Points and Equilibria", "Subsection", CellChangeTimes->{{3.4928924875774913`*^9, 3.492892494457384*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Calculation of rest points (continuous dynamics)", "Subsubsection", CellChangeTimes->{{3.5087643373582993`*^9, 3.508764340347404*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"subFindRoot", "::", "inconsistency"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"subFindRoot", "[", RowBox[{"dyn_", ",", "F_", ",", "x0_", ",", "indicator_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "p", ",", "counter", ",", "pop", ",", "dim", ",", "subdim", ",", "subdimlast", ",", "x", ",", "xp", ",", "equations", ",", "restrictions", ",", "root"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "indicator", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"indicator", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"indicator", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdimlast", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"indicator", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "==", "1"}], ",", "j", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", "subdim", "]"}], ">", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"emptyVector", "[", RowBox[{"\"\\"", ",", RowBox[{"Total", "[", "subdim", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"vectorReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"indicator", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"p", "=", "1"}], ",", RowBox[{"p", "<=", "pop"}], ",", RowBox[{"p", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{"subdimlast", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{"subdimlast", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"Total", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"equations", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"restrictions", " ", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"p", "=", "1"}], ",", RowBox[{"p", "<=", "pop"}], ",", RowBox[{"p", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"indicator", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], "==", "1"}], " ", "&&", " ", RowBox[{"j", "!=", RowBox[{"subdimlast", "[", RowBox[{"[", "p", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equations", "=", RowBox[{"Append", "[", RowBox[{"equations", ",", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restrictions", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"restrictions", ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], ",", RowBox[{"x0", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"FindRoot", "::", "jsing"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"root", "=", RowBox[{"FindRoot", "[", RowBox[{"equations", ",", "restrictions", ",", " ", RowBox[{"MaxIterations", " ", "\[Rule]", "1000"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "accuracy"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "accuracy"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"On", "[", RowBox[{"FindRoot", "::", "jsing"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"root", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"root", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "root", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"root", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"vectorReplace", "[", RowBox[{ RowBox[{"x0", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Append", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"root", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"j", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", ",", "0"}], "]"}], ",", RowBox[{"indicator", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"root", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{"subdimlast", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"Total", "[", RowBox[{"root", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"subFindRoot", "::", "inconsistency"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dyn", "[", RowBox[{"x0", ",", "F"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ",", RowBox[{"root", "=", RowBox[{"{", "x0", "}"}]}], ",", RowBox[{"root", "=", RowBox[{"{", "}"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "root"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.4931211737020216`*^9, 3.4931211961843495`*^9}, { 3.4931212325065784`*^9, 3.4931213398809752`*^9}, {3.4931214668235097`*^9, 3.4931216154572344`*^9}, {3.4931216480040345`*^9, 3.493121684726839*^9}, { 3.493121780444474*^9, 3.4931217953659306`*^9}, {3.4931218419429045`*^9, 3.4931219170709333`*^9}, {3.4931219521113195`*^9, 3.4931219729512854`*^9}, {3.4931220088028374`*^9, 3.4931220697304473`*^9}, {3.493122120353239*^9, 3.493122227246945*^9}, { 3.49312245055805*^9, 3.4931224522705126`*^9}, {3.493122530703294*^9, 3.4931225361611414`*^9}, 3.4931233439927464`*^9, {3.4931250944898376`*^9, 3.4931250984555397`*^9}, {3.4931252129902325`*^9, 3.49312523915786*^9}, { 3.4931253353662004`*^9, 3.4931253487454395`*^9}, {3.4931253898946085`*^9, 3.49312550094429*^9}, {3.493125619274441*^9, 3.493125742551705*^9}, { 3.4931266257616987`*^9, 3.4931266759338427`*^9}, {3.493126709291809*^9, 3.4931267159413705`*^9}, {3.4931268375963016`*^9, 3.4931268837727003`*^9}, {3.4931269427374873`*^9, 3.493126943188135*^9}, { 3.4931270150614843`*^9, 3.493127056170596*^9}, {3.4931271070036907`*^9, 3.49312711260174*^9}, 3.4931272073980503`*^9, {3.493127443427444*^9, 3.4931274492257814`*^9}, {3.493127486609537*^9, 3.493127524904602*^9}, { 3.4931278064194007`*^9, 3.4931278423410535`*^9}, {3.4931278757891493`*^9, 3.493127877421497*^9}, {3.493128628421382*^9, 3.49312863028406*^9}, { 3.493151259350184*^9, 3.4931512631957135`*^9}, {3.4931514316779795`*^9, 3.493151450214634*^9}, {3.4931515690655327`*^9, 3.4931515776078157`*^9}, { 3.4931516078412895`*^9, 3.4931516312549567`*^9}, {3.493151934010298*^9, 3.4931519500533667`*^9}, {3.493152025321597*^9, 3.4931521147201457`*^9}, { 3.4931521456646414`*^9, 3.493152175086949*^9}, {3.493152362155941*^9, 3.493152599997941*^9}, {3.493153034402584*^9, 3.4931530346128864`*^9}, { 3.4931530900826483`*^9, 3.4931531105220385`*^9}, {3.49315315839087*^9, 3.493153286284773*^9}, {3.493153808776078*^9, 3.4931538393900995`*^9}, { 3.4931540951879187`*^9, 3.493154132361371*^9}, {3.493154174161477*^9, 3.4931541745219955`*^9}, {3.493170838199506*^9, 3.4931708438676558`*^9}, { 3.4931709866930285`*^9, 3.4931709900879107`*^9}, {3.4931710685907917`*^9, 3.4931710750901375`*^9}, {3.4931711910568895`*^9, 3.493171203064155*^9}, { 3.4931713722374144`*^9, 3.493171376363347*^9}, {3.493171953963896*^9, 3.493172095757786*^9}, {3.4931721311586895`*^9, 3.4931721631046257`*^9}, { 3.4931722868125086`*^9, 3.4931722874233875`*^9}, {3.493172785639787*^9, 3.4931727880432434`*^9}, {3.493172850252696*^9, 3.4931729367170258`*^9}, { 3.493173140049403*^9, 3.4931731407904687`*^9}, {3.4931732157582674`*^9, 3.493173225792696*^9}, {3.4931734368662047`*^9, 3.4931735038625407`*^9}, { 3.4931735716500144`*^9, 3.493173622583253*^9}, {3.493174017831592*^9, 3.4931740235297856`*^9}, {3.493174786486864*^9, 3.493174790452566*^9}, { 3.4931759822763247`*^9, 3.493175990267816*^9}, {3.493176157418166*^9, 3.4931761651492834`*^9}, {3.4931767599445567`*^9, 3.493176774445408*^9}, { 3.493176908838656*^9, 3.49317693037963*^9}, {3.4931810270554285`*^9, 3.4931810315418797`*^9}, {3.493181088443701*^9, 3.4931810927398787`*^9}, { 3.4931811231836543`*^9, 3.4931811327474065`*^9}, {3.4931813270167522`*^9, 3.4931813325447006`*^9}, {3.4931814008829665`*^9, 3.4931814042177615`*^9}, {3.4931815107108912`*^9, 3.4931815163189554`*^9}, {3.493181567001834*^9, 3.493181580931864*^9}, { 3.4931825000234528`*^9, 3.4931825203426704`*^9}, {3.507909967075178*^9, 3.507910036094423*^9}, {3.507910093486949*^9, 3.5079101075872245`*^9}, { 3.5079104476852417`*^9, 3.5079104493045645`*^9}, {3.507910545211068*^9, 3.507910546623099*^9}, {3.5079105997494907`*^9, 3.5079106477184668`*^9}, { 3.5079108516116505`*^9, 3.5079108610452156`*^9}, {3.507910918437742*^9, 3.507910929343424*^9}, {3.507911387166809*^9, 3.5079113908420935`*^9}, { 3.5079155033657656`*^9, 3.5079155217622185`*^9}, {3.507915878394679*^9, 3.5079158840628295`*^9}, {3.507916261820897*^9, 3.5079162667780247`*^9}, { 3.507916326744252*^9, 3.50791632703467*^9}, {3.5079164190770197`*^9, 3.5079164767098923`*^9}, {3.507916636750018*^9, 3.5079166372907963`*^9}, { 3.5079167643735323`*^9, 3.507916801256567*^9}, {3.5079169157111444`*^9, 3.5079169204179125`*^9}, 3.507922197205697*^9, 3.507932674998108*^9, { 3.507932765348025*^9, 3.507932776714369*^9}, 3.5079329312165318`*^9, { 3.507932963402814*^9, 3.507932971824924*^9}, {3.5079334095643625`*^9, 3.507933430103897*^9}, {3.507933512812826*^9, 3.507933576524439*^9}, { 3.5079819737444468`*^9, 3.50798197862146*^9}, {3.5087954135817566`*^9, 3.5087954149236865`*^9}, 3.565001325856992*^9, {3.565001371485748*^9, 3.565001372770381*^9}, {3.568575847950654*^9, 3.568575928643147*^9}, 3.568575989405669*^9, 3.568576052819748*^9, {3.568576479621514*^9, 3.568576593879849*^9}, {3.568576624910525*^9, 3.568576635219272*^9}, { 3.56857681235516*^9, 3.568576826162153*^9}, {3.568577005899004*^9, 3.568577006275652*^9}, {3.568577038110133*^9, 3.568577182550897*^9}, { 3.56857755644391*^9, 3.568577598585088*^9}, {3.568577635391928*^9, 3.56857781565235*^9}, {3.568577853680738*^9, 3.568577857513446*^9}, { 3.568577887540859*^9, 3.568578011552417*^9}, {3.568578140264348*^9, 3.568578171433316*^9}, {3.568578362062393*^9, 3.56857838815895*^9}, { 3.568578423594796*^9, 3.568578430226354*^9}, {3.568579075238615*^9, 3.568579076042777*^9}, {3.568579106790434*^9, 3.5685791341603*^9}, { 3.568579176706234*^9, 3.568579179058254*^9}, {3.568579354074627*^9, 3.568579378314399*^9}, {3.568579419532807*^9, 3.568579459080656*^9}, { 3.568579555983514*^9, 3.56857955890407*^9}, {3.568579701265958*^9, 3.568579778568219*^9}, {3.568580227807085*^9, 3.568580272492271*^9}, { 3.56858077157623*^9, 3.56858077221191*^9}, {3.568580834401088*^9, 3.568580853092834*^9}, {3.568580974609735*^9, 3.568580975117487*^9}, { 3.568581682509181*^9, 3.568581725783053*^9}, {3.568589728184075*^9, 3.568589843145458*^9}, {3.568589880383173*^9, 3.568589962480004*^9}, { 3.568590024389532*^9, 3.568590047748526*^9}, {3.568590140090106*^9, 3.568590291395336*^9}, {3.569758769638025*^9, 3.569758840012716*^9}, { 3.569758906428952*^9, 3.569758933494245*^9}, {3.569758995963363*^9, 3.569759016282268*^9}, {3.569759049790717*^9, 3.569759093245054*^9}, { 3.569759145198897*^9, 3.569759172806155*^9}, {3.569759209879959*^9, 3.569759285829185*^9}, {3.569759506446935*^9, 3.56975958474467*^9}, { 3.569759620550539*^9, 3.56975962121566*^9}, {3.569759688064415*^9, 3.569759711166038*^9}, {3.569759746791259*^9, 3.569759764614232*^9}, 3.569759802296656*^9, {3.572039917036322*^9, 3.572039928103476*^9}, { 3.57203996039655*^9, 3.572039960727148*^9}, {3.572039995199384*^9, 3.572040015925548*^9}, {3.572040098994732*^9, 3.572040099862809*^9}, { 3.572047769333492*^9, 3.572047810721989*^9}, {3.572047858439129*^9, 3.572047868251023*^9}, 3.57204792708242*^9, {3.572048119661712*^9, 3.572048122838433*^9}, {3.572048343366387*^9, 3.572048350230131*^9}, { 3.572048589534833*^9, 3.572048591859203*^9}, {3.572048671511153*^9, 3.572048672047473*^9}, {3.572048754768239*^9, 3.572048755965627*^9}, { 3.572048786097575*^9, 3.572048801078795*^9}, 3.572049209370126*^9, { 3.580486022324917*^9, 3.58048603626275*^9}, {3.580501481438418*^9, 3.580501483110501*^9}, {3.580655937446991*^9, 3.580655977113146*^9}, { 3.580656046118594*^9, 3.580656169118036*^9}, {3.580662584663193*^9, 3.580662589238495*^9}, {3.59670976058072*^9, 3.596709765768348*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"restPointsContinuous", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restPointsContinuous", "::", "notes"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restPointsContinuous", "::", "inconsistency"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restPointsContinuous", "[", RowBox[{"dyn_", ",", "F_", ",", "startingValues_", ",", RowBox[{"tolLevel_:", ".00001"}], ",", RowBox[{"delta_:", ".001"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"sup_:", RowBox[{"{", "}"}]}], ",", RowBox[{"dim_:", "dim"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "n", ",", "pop", ",", "support", ",", "grid", ",", "roots"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "dim", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"sup", "==", RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"support", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"support", "=", "sup"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "startingValues", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Finds", " ", "rest", " ", "points", " ", "by", " ", "grid", " ", "search", " ", "on", " ", "the", " ", "subsimplex", " ", "determined", " ", "by", " ", "support"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"subFindRoot", "[", RowBox[{"dyn", ",", "F", ",", RowBox[{"startingValues", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "support", ",", "accuracy"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Eliminate", " ", "rest", " ", "points", " ", "due", " ", "to", " ", "singularities", " ", "in", " ", "Jacobian"}], "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"startingValues", "[", RowBox[{"[", "j", "]"}], "]"}], "==", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"F", "[", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ">", "delta"}]}], "]"}], ",", "\"\\"", ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Round", " ", "to", " ", "Accuracy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"Round", "[", RowBox[{"roots", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Eliminates", " ", "double", " ", "countings"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"eliminateDuplicates", "[", RowBox[{"delta", ",", "roots", ",", "stateNorm"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "roots", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"clever", " ", "code", " ", "by", " ", "emin"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "similar", " ", "to", " ", "Eliminate", " ", "duplicates", "\[IndentingNewLine]", RowBox[{"reduce", "[", "points_", "]"}]}], ":=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"(", RowBox[{"x1", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}], ">", "delta"}], " ", "||", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x2", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"(", RowBox[{"x2", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], " ", ")"}]}], "]"}], ">", "delta"}]}], ")"}], ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "2", ",", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"FixedPointList", "[", RowBox[{"reduce", ",", "roots"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{"roots", ",", RowBox[{"{", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Check", " ", "points", " ", "are", " ", "in", " ", "the", " ", "simplex"}], ",", " ", RowBox[{"eliminate", " ", "them", " ", "if", " ", "not"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", " ", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"simplexQ", "[", RowBox[{ RowBox[{"roots", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", "accuracy"}], "]"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], "==", "pop"}], ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Check", " ", "points", " ", "to", " ", "have", " ", "\"\\""}], ",", " ", RowBox[{"eliminate", " ", "them", " ", "if", " ", RowBox[{"not", ".", " ", "This"}], " ", "makes", " ", "no", " ", "sense"}], ",", " ", RowBox[{ "since", " ", "the", " ", "points", " ", "are", " ", "roots", " ", "of", " ", "the", " ", "equation"}], ",", " ", RowBox[{ RowBox[{ "a", " ", "double", " ", "check", " ", "after", " ", "the", " ", "roundoff", " ", "I", " ", "guess"}], ";", " ", RowBox[{ "look", " ", "at", " ", "the", " ", "explanation", " ", "in", " ", "the", " ", "startingValues", " ", "definition", " ", RowBox[{"above", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{"Abs", "[", RowBox[{"dyn", "[", RowBox[{ RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "]"}], " ", ">", " ", "tolLevel"}], ",", " ", "\"\\"", ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Message", "[", RowBox[{"restPointsContinuous", "::", "inconsistency"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "roots"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.474715065062935*^9, 3.4747150795036993`*^9}, 3.480859462164381*^9, {3.481418886127037*^9, 3.4814188861570797`*^9}, { 3.481735483384616*^9, 3.481735483434688*^9}, {3.492703877055523*^9, 3.492703941718504*^9}, {3.492703977249595*^9, 3.492703984780424*^9}, { 3.4927040568240175`*^9, 3.4927040577854*^9}, {3.492704115598768*^9, 3.4927041470788655`*^9}, {3.4927042624996033`*^9, 3.492704324727126*^9}, { 3.492704409358765*^9, 3.492704409979658*^9}, {3.492705753193187*^9, 3.4927057599929647`*^9}, {3.4927086390929427`*^9, 3.4927087171952486`*^9}, {3.4927087608680468`*^9, 3.4927087753288403`*^9}, {3.492708832240676*^9, 3.492708832701338*^9}, { 3.492708880369882*^9, 3.4927090735877156`*^9}, {3.4927095666967716`*^9, 3.4927095973909073`*^9}, {3.4927096505673714`*^9, 3.492709668933781*^9}, { 3.4927097180644274`*^9, 3.4927097338371077`*^9}, 3.492709847490533*^9, 3.4927248080778694`*^9, {3.492725616410194*^9, 3.492725625052621*^9}, 3.4927257902501636`*^9, {3.49272643323473*^9, 3.492726606203447*^9}, { 3.492726654022207*^9, 3.4927266859881716`*^9}, {3.4927267340873346`*^9, 3.4927267395551972`*^9}, {3.4927268632029943`*^9, 3.4927268641143045`*^9}, {3.492726938491253*^9, 3.4927270960778513`*^9}, { 3.492727126441512*^9, 3.4927271723775654`*^9}, {3.4927272819751587`*^9, 3.492727341580868*^9}, {3.492727401429018*^9, 3.4927274786920013`*^9}, { 3.49272754323481*^9, 3.492727693530925*^9}, {3.4927327629103346`*^9, 3.492732793324067*^9}, {3.4927329891857023`*^9, 3.492733040148984*^9}, { 3.4927331176003537`*^9, 3.492733146151408*^9}, {3.4927367570536304`*^9, 3.492736900549968*^9}, {3.492737054120792*^9, 3.492737064225322*^9}, { 3.492737096301445*^9, 3.492737096952381*^9}, {3.4927371377710752`*^9, 3.4927372018432064`*^9}, {3.4927372334586673`*^9, 3.492737269480464*^9}, { 3.4927373470119486`*^9, 3.492737423171461*^9}, {3.492737492150648*^9, 3.492737504017712*^9}, {3.492737548792094*^9, 3.492737560528971*^9}, { 3.4927375940071106`*^9, 3.492737672329733*^9}, {3.4927378284442143`*^9, 3.4927378421138706`*^9}, {3.4927378981244097`*^9, 3.4927379293192654`*^9}, {3.4927379691765776`*^9, 3.4927379946331825`*^9}, {3.49273805109437*^9, 3.4927381665503874`*^9}, 3.492738321473155*^9, 3.492738382931528*^9, 3.492738471589011*^9, { 3.4927394277189264`*^9, 3.4927394293512735`*^9}, {3.4927398402421055`*^9, 3.4927399018106365`*^9}, {3.49281195769996*^9, 3.492812029252848*^9}, { 3.492812119923226*^9, 3.492812131870405*^9}, {3.492812213037117*^9, 3.4928122315938005`*^9}, 3.492812353178631*^9, {3.4928258263071055`*^9, 3.49282582656748*^9}, {3.492829253595304*^9, 3.4928292603750525`*^9}, { 3.4931226514369*^9, 3.49312271552906*^9}, {3.493122785810119*^9, 3.493122929216327*^9}, {3.493122982993655*^9, 3.4931229841853685`*^9}, { 3.4931234732786503`*^9, 3.4931235176925144`*^9}, {3.4931236963794537`*^9, 3.4931237410436773`*^9}, {3.4931237935391626`*^9, 3.493123816632369*^9}, { 3.493125814435068*^9, 3.4931258539819336`*^9}, {3.493125952072982*^9, 3.493126043344223*^9}, {3.4931275723027573`*^9, 3.4931276521475687`*^9}, { 3.493127702990678*^9, 3.4931277451513014`*^9}, {3.4931286125485573`*^9, 3.493128614651582*^9}, {3.4931504399819903`*^9, 3.4931504529506383`*^9}, { 3.49315057751976*^9, 3.493150587043454*^9}, {3.4931508569816065`*^9, 3.4931508606669054`*^9}, {3.4931508938345985`*^9, 3.493150898791726*^9}, { 3.4931510665729837`*^9, 3.493151074504389*^9}, {3.4931511205906577`*^9, 3.493151123004128*^9}, 3.4931523089995055`*^9, {3.4931526779300013`*^9, 3.4931526890159426`*^9}, {3.4931527273510656`*^9, 3.4931527524671807`*^9}, 3.4931706934012957`*^9, {3.4931710956897583`*^9, 3.493171100186224*^9}, 3.4931712110256033`*^9, {3.493171786473056*^9, 3.493171814533405*^9}, 3.493171857955843*^9, {3.493174312725629*^9, 3.493174313947386*^9}, { 3.493174389896595*^9, 3.4931744010225935`*^9}, 3.4931744826900253`*^9, { 3.4931754733745604`*^9, 3.4931754812258496`*^9}, 3.493175590072363*^9, { 3.493176231825158*^9, 3.493176394649288*^9}, {3.4931764698974895`*^9, 3.4931764781593695`*^9}, {3.493180792668397*^9, 3.4931807976455536`*^9}, { 3.493180892702238*^9, 3.493180930746944*^9}, {3.493180975981989*^9, 3.4931809764426513`*^9}, {3.493181849267712*^9, 3.493181861305021*^9}, { 3.4931818942523966`*^9, 3.493181930184064*^9}, 3.493182000535224*^9, { 3.4931820483940415`*^9, 3.4931820643670096`*^9}, {3.5079813135227723`*^9, 3.5079813209885073`*^9}, {3.507981430510993*^9, 3.5079814365046115`*^9}, { 3.5079830583717422`*^9, 3.5079830584919147`*^9}, {3.5079833727287655`*^9, 3.507983372848938*^9}, {3.5087643758842363`*^9, 3.50876437751058*^9}, { 3.508764435602042*^9, 3.508764438402277*^9}, {3.5106571201574283`*^9, 3.510657127811706*^9}, {3.5193812107786903`*^9, 3.519381215865981*^9}, 3.539693870369824*^9, 3.565001418986457*^9, {3.565002512812274*^9, 3.565002555432224*^9}, {3.568629383334811*^9, 3.568629387674571*^9}, { 3.568629440644919*^9, 3.568629506860064*^9}, 3.568629744126922*^9, 3.568630018329293*^9, {3.568630088595815*^9, 3.568630264924613*^9}, { 3.56863060037989*^9, 3.568630601280297*^9}, {3.568829608284315*^9, 3.568829646649284*^9}, {3.568829716681305*^9, 3.568829719819193*^9}, { 3.568829862981219*^9, 3.568829863792847*^9}, {3.568968905436822*^9, 3.568968910847051*^9}, {3.568975916529093*^9, 3.568975952717543*^9}, 3.568977559777479*^9, 3.568977613232619*^9, {3.568978054456633*^9, 3.568978071808256*^9}, {3.569760265272671*^9, 3.569760277633726*^9}, { 3.569774554641077*^9, 3.569774561616417*^9}, {3.569774596022683*^9, 3.569774623575369*^9}, {3.569777208935804*^9, 3.569777222303051*^9}, { 3.569777344703673*^9, 3.569777367550234*^9}, {3.569777645779557*^9, 3.569777653097888*^9}, {3.572039423403811*^9, 3.572039437289259*^9}, { 3.572039494395959*^9, 3.572039521669672*^9}, {3.572039637635646*^9, 3.572039639064786*^9}, {3.578923817892711*^9, 3.57892382007156*^9}, { 3.580486059157969*^9, 3.580486064806447*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Calculation of restricted equilibria, Nash equilibria and Quasistrict \ equilibria\ \>", "Subsubsection", CellChangeTimes->{{3.493403088368146*^9, 3.4934030988231792`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"restrictedEquilibria", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restrictedEquilibria", "::", "notes"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restrictedEquilibria", "[", RowBox[{"F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"gridsize_:", "10"}], " ", ",", RowBox[{"eps_:", ".01"}], ",", RowBox[{"dim_:", "dim"}]}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "p", ",", "pop", ",", "subdim", ",", "subdimlast", ",", "x", ",", "fx", ",", " ", "RNE", ",", "supports", ",", "restPoints", ",", "grid"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "F", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "dim", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"supports", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RNE", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"subdim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdimlast", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p", ",", "k"}], "]"}], "]"}], "==", "1"}], ",", "k", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", "subdim", "]"}], ">", "pop"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"emptyVector", "[", RowBox[{"\"\\"", ",", RowBox[{"Total", "[", "subdim", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fx", "=", RowBox[{"F", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorReplace", "[", RowBox[{ RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p", ",", "k"}], "]"}], "]"}], "==", "1"}], ",", RowBox[{"fx", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}], " ", ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restPoints", "=", "\[IndentingNewLine]", RowBox[{"Quiet", "[", RowBox[{"Solve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Thread", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Append", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"fx", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"fx", "[", RowBox[{"[", RowBox[{"p", ",", RowBox[{"subdim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "p", "]"}], "]"}], "-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Total", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "-", "1"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "==", "\[IndentingNewLine]", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"subdim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"x", ",", "1"}], "]"}]}], "\[IndentingNewLine]", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restPoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"restPoints", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "<", RowBox[{"Total", "[", "subdim", "]"}]}], ",", RowBox[{"{", "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"restPoints", "[", RowBox[{"[", RowBox[{"k", ",", "l", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"Total", "[", "subdim", "]"}]}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "restPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"restPoints", "==", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NON", " ", "TRIVIAL", " ", "COMPONENT", " ", "DETECTED"}], ",", " ", RowBox[{"PRINT", " ", "WARNING", " ", "MESSAGE"}]}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"restPoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"restPoints", "[", RowBox[{"[", "k", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "restPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restPoints", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"simplexQ", "[", RowBox[{ RowBox[{"restPoints", "[", RowBox[{"[", RowBox[{"k", ",", "p"}], "]"}], "]"}], ",", "accuracy"}], "]"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}], "==", "pop"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"vectorReplace", "[", RowBox[{ RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", RowBox[{"restPoints", "[", RowBox[{"[", RowBox[{"k", ",", "p"}], "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\""}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "restPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"grid", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"discSimplex", "[", RowBox[{"gridsize", ",", RowBox[{"subdim", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "True", ",", "eps"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"grid", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"vectorReplace", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"grid", "[", RowBox[{"[", RowBox[{"k", ",", "p"}], "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "grid", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Find", " ", "the", " ", "rest", " ", "points", " ", "for", " ", "the", " ", "Replicator", " ", "dynamic", " ", "without", " ", "tolerance", " ", "check", " ", "and", " ", "for", " ", "the", " ", "specific", " ", "subsimplex"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"restPoints", "=", RowBox[{"restPointsContinuous", "[", RowBox[{ "Replicator", ",", "F", ",", "grid", ",", "Infinity", ",", "delta", ",", "accuracy", ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restPoints", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", "dim", "]"}], "-", RowBox[{"Total", "[", "subdim", "]"}]}], "==", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"restPoints", "[", RowBox[{"[", RowBox[{"k", ",", "p", ",", "l"}], "]"}], "]"}], "==", "0"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"restPoints", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\\""}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "restPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"restPoints", "=", RowBox[{"{", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"RNE", "=", RowBox[{"Append", "[", RowBox[{"RNE", ",", "restPoints"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "RNE"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.493230194664242*^9, 3.49323030911831*^9}, { 3.4932303440334597`*^9, 3.493230365833398*^9}, {3.4932303983651247`*^9, 3.493230413539231*^9}, {3.4932306882766237`*^9, 3.493230702704651*^9}, { 3.4932309812745066`*^9, 3.4932309816750827`*^9}, {3.493231182824321*^9, 3.493231183194854*^9}, {3.4932312258061256`*^9, 3.493230531689516*^9}, 3.493230848389909*^9, {3.4932309215901656`*^9, 3.4932309620433345`*^9}, { 3.4932313466714025`*^9, 3.4932313977748857`*^9}, {3.4932317884716797`*^9, 3.4932318082851706`*^9}, {3.4932321658292933`*^9, 3.493232177275753*^9}, { 3.507981441792215*^9, 3.5079814567236853`*^9}, {3.507985275660101*^9, 3.507985278243816*^9}, 3.5087644400814915`*^9, {3.540749650083197*^9, 3.540749681034644*^9}, {3.540749778164917*^9, 3.540749803513258*^9}, { 3.540749859932888*^9, 3.540749946692326*^9}, {3.540750497040759*^9, 3.540750548541351*^9}, {3.54075065638881*^9, 3.540750666080374*^9}, { 3.54075080400577*^9, 3.540750902474841*^9}, {3.540750962696495*^9, 3.540750975560083*^9}, {3.540751617266845*^9, 3.540751630296349*^9}, { 3.540751682178717*^9, 3.540751695843026*^9}, {3.540751740024022*^9, 3.540751794883692*^9}, {3.540751895543882*^9, 3.540751924814444*^9}, { 3.540751991398058*^9, 3.540752003228833*^9}, {3.540752335247642*^9, 3.540752424685683*^9}, {3.540752468380779*^9, 3.540752479669046*^9}, { 3.54075264349362*^9, 3.540752678520436*^9}, {3.540752711270308*^9, 3.540752731751557*^9}, {3.540752763721452*^9, 3.540752881527654*^9}, { 3.540752955709673*^9, 3.540752981913565*^9}, {3.540753728237459*^9, 3.540753764018167*^9}, {3.564997352743542*^9, 3.564997400399442*^9}, { 3.564997618247028*^9, 3.564997624921703*^9}, {3.564998155552283*^9, 3.564998228214541*^9}, 3.565001326848216*^9, {3.565001373733612*^9, 3.565001375139058*^9}, 3.565001518000355*^9, 3.565002035005992*^9, 3.565002516390648*^9, {3.565002563921222*^9, 3.56500257638392*^9}, { 3.567596710579924*^9, 3.567596759606003*^9}, {3.56759764835381*^9, 3.56759775870262*^9}, {3.567598027230908*^9, 3.567598041572603*^9}, { 3.5675981166399*^9, 3.5675981296506*^9}, {3.5675981726941*^9, 3.567598185445903*^9}, {3.56759826912878*^9, 3.567598327975194*^9}, { 3.567598409899761*^9, 3.567598482664264*^9}, {3.567598526574879*^9, 3.567598539318888*^9}, 3.567605563231222*^9, {3.568630430458819*^9, 3.568630478707133*^9}, {3.568668736669972*^9, 3.568668803388808*^9}, { 3.568668870806127*^9, 3.568668872395226*^9}, {3.568669158378595*^9, 3.568669168296597*^9}, {3.568678872442663*^9, 3.568678897862581*^9}, { 3.568678941351205*^9, 3.568679097418097*^9}, {3.568679155248096*^9, 3.568679248388562*^9}, {3.5686793126389*^9, 3.568679315924913*^9}, { 3.568679766339415*^9, 3.568679777827171*^9}, {3.568679818918575*^9, 3.56867981964306*^9}, {3.568679873094235*^9, 3.568679898653396*^9}, { 3.568679934553056*^9, 3.568679962490627*^9}, {3.568680177603318*^9, 3.568680251376718*^9}, {3.568680292933841*^9, 3.568680351841859*^9}, { 3.56868038220775*^9, 3.568680429143451*^9}, {3.568680562940537*^9, 3.568680596530618*^9}, 3.568680734642636*^9, {3.568680793473415*^9, 3.568680798157031*^9}, {3.568680911154834*^9, 3.568680935027659*^9}, { 3.56868103866392*^9, 3.568681078727099*^9}, {3.568681187492194*^9, 3.568681271551631*^9}, {3.568681372427408*^9, 3.56868137727625*^9}, { 3.568681444889926*^9, 3.568681505032749*^9}, {3.568681540030517*^9, 3.568681594100103*^9}, {3.568681640137972*^9, 3.568681664020197*^9}, { 3.56868171737624*^9, 3.56868172530616*^9}, {3.568681853181549*^9, 3.568681882612227*^9}, {3.568681916721196*^9, 3.56868195098064*^9}, { 3.568681981120283*^9, 3.568682007703193*^9}, {3.56868207387051*^9, 3.568682119226568*^9}, {3.568682227045907*^9, 3.568682258178793*^9}, { 3.568682355217946*^9, 3.568682372598966*^9}, {3.568682408320554*^9, 3.568682579439678*^9}, {3.568682610128814*^9, 3.568682612561135*^9}, { 3.568827271641484*^9, 3.568827273286065*^9}, {3.568829963841614*^9, 3.568829970894355*^9}, {3.568969186183407*^9, 3.568969208017507*^9}, { 3.568969425305834*^9, 3.568969486543167*^9}, {3.56896951895839*^9, 3.568969519404896*^9}, {3.568969579332451*^9, 3.568969619854559*^9}, { 3.568969744851381*^9, 3.568969861791901*^9}, {3.568970370704079*^9, 3.568970391889502*^9}, {3.568970432761732*^9, 3.568970447575567*^9}, { 3.568970547338049*^9, 3.568970552372111*^9}, 3.568975959292311*^9, { 3.569762975777167*^9, 3.569763026166416*^9}, 3.569763062653064*^9, { 3.569763111220853*^9, 3.569763140991094*^9}, {3.569763312110693*^9, 3.569763324766286*^9}, {3.569763383962049*^9, 3.569763421557141*^9}, { 3.569763703978559*^9, 3.569763796538508*^9}, {3.569763896525487*^9, 3.569763897055728*^9}, {3.569763929315848*^9, 3.569764020759103*^9}, { 3.569764216991411*^9, 3.569764261982836*^9}, {3.569764307311641*^9, 3.569764315581581*^9}, {3.569764498256791*^9, 3.569764519613752*^9}, { 3.569764555102242*^9, 3.569764573414726*^9}, {3.569764637486024*^9, 3.569764650595134*^9}, {3.569764691152133*^9, 3.569764711865937*^9}, { 3.569764756412744*^9, 3.56976475690664*^9}, {3.569764805606193*^9, 3.569764849732327*^9}, {3.569764941828499*^9, 3.569765027214347*^9}, 3.569765074878481*^9, {3.56976513223448*^9, 3.569765278019306*^9}, { 3.569765353389899*^9, 3.569765354655334*^9}, {3.569765439917038*^9, 3.569765545403736*^9}, {3.569765636821247*^9, 3.569765662855901*^9}, { 3.569765941131413*^9, 3.569766005785892*^9}, {3.56976607771329*^9, 3.569766127922046*^9}, {3.56976615799341*^9, 3.569766161533163*^9}, { 3.569766236317416*^9, 3.569766329697606*^9}, {3.569766360817548*^9, 3.569766370177092*^9}, 3.569766419804144*^9, {3.569766465275765*^9, 3.5697665623455*^9}, 3.569766609602087*^9, {3.56977401149254*^9, 3.569774018331704*^9}, {3.569774176127404*^9, 3.569774194150774*^9}, { 3.569774233772049*^9, 3.569774234027557*^9}, {3.56977432980819*^9, 3.569774397358568*^9}, {3.569774834719819*^9, 3.569774840024715*^9}, { 3.569774981422407*^9, 3.569775020088884*^9}, {3.569775474737197*^9, 3.569775475764336*^9}, {3.569775560946701*^9, 3.569775562067044*^9}, { 3.569776200270802*^9, 3.569776205661499*^9}, {3.569776345832273*^9, 3.569776352857099*^9}, {3.56977644192729*^9, 3.569776508039465*^9}, { 3.569776663345551*^9, 3.569776672744076*^9}, {3.569776991085755*^9, 3.569777001718372*^9}, {3.569777477765432*^9, 3.569777498570196*^9}, { 3.569777574499218*^9, 3.569777581649621*^9}, {3.569777688348941*^9, 3.569777707703509*^9}, {3.569777797535417*^9, 3.569777811955187*^9}, { 3.569777845335655*^9, 3.569777868169876*^9}, {3.572048818821806*^9, 3.572048875985749*^9}, {3.578923845228395*^9, 3.578923847029941*^9}, { 3.580502477480934*^9, 3.580502487535712*^9}, {3.580502638302386*^9, 3.580502669456097*^9}, {3.580502731503588*^9, 3.580502732947545*^9}, { 3.580502818222577*^9, 3.580502939138551*^9}, {3.580503017065427*^9, 3.580503067747659*^9}, 3.596709782792974*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nashEquilibria", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nashEquilibria", "::", "notes"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nashEquilibria", "[", RowBox[{"F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"variant_:", "\"\\""}], ",", RowBox[{"delta_:", ".001"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"gridsize_:", "10"}], " ", ",", RowBox[{"n_:", "100"}], ",", RowBox[{"eps_:", ".01"}], ",", RowBox[{"dim_:", "dim"}]}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "l", ",", "pop", ",", " ", "NE", ",", "RNE", ",", "supports", ",", "sample", ",", "Fx", ",", "flag"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "dim", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"supports", "=", RowBox[{"Tuples", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"RNE", "=", RowBox[{"restrictedEquilibria", "[", RowBox[{ "F", ",", "method", ",", "delta", ",", "accuracy", ",", "gridsize"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Following", " ", "lines", " ", "eliminate", " ", "the", " ", "rest", " ", "points", " ", "that", " ", "are", " ", "not", " ", RowBox[{"NE", "."}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "<", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"RNE", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "!=", RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "this", " ", "method", " ", "will", " ", "check", " ", "against", " ", "the", " ", "pure", " ", "strategies", " ", "that", " ", "are", " ", "left", " ", "out", " ", "of", " ", "the", " ", "support"}], ",", " ", RowBox[{ RowBox[{"it", "'"}], "s", " ", "more", " ", "efficient"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"variationalIneqCheck", "[", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k", ",", "p"}], "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "variant"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "this", " ", "method", " ", "will", " ", "check", " ", "against", " ", "a", " ", "sample", " ", "of", " ", "points", " ", "around", " ", "the", " ", "subsimplex", " ", "rest", " ", "point"}], ",", " ", RowBox[{ RowBox[{"it", "'"}], "s", " ", "less", " ", "efficient"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sampleAround", "[", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k", ",", "p"}], "]"}], "]"}], ",", "eps", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", RowBox[{"p", ",", "l"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"l", "=", "1"}], ",", RowBox[{"l", "<=", " ", "n"}], ",", RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k", ",", "p"}], "]"}], "]"}], "-", RowBox[{"sample", "[", RowBox[{"[", RowBox[{"l", ",", "p"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}]}], ">", "0"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k", ",", "p"}], "]"}], "]"}], "-", RowBox[{"sample", "[", RowBox[{"[", RowBox[{"l", ",", "p"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"Fx", "[", RowBox[{"[", "p", "]"}], "]"}]}], ">=", "0"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", "flag", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"NE", "=", RowBox[{"Append", "[", RowBox[{"NE", ",", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", "j", "]"}], "]"}], "!=", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}], ",", RowBox[{"NE", "=", RowBox[{"Join", "[", RowBox[{"NE", ",", RowBox[{"RNE", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"eliminateDuplicates", "[", RowBox[{"delta", ",", "NE", ",", "stateNorm"}], "]"}]}], ";", "\[IndentingNewLine]", "NE"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.4932304372995567`*^9, 3.493230446362991*^9}, { 3.4932305116095705`*^9, 3.4932305121461644`*^9}, {3.4932305741978664`*^9, 3.4932306014590936`*^9}, {3.4932307456320677`*^9, 3.493230773878895*^9}, { 3.4932308296086855`*^9, 3.493230885292202*^9}, {3.4932309584957905`*^9, 3.4932311120825996`*^9}, {3.493231155655254*^9, 3.493231177366473*^9}, { 3.4932313170072665`*^9, 3.4932313337112856`*^9}, {3.4932313767131195`*^9, 3.4932304833349857`*^9}, {3.493231867004605*^9, 3.4932318932022753`*^9}, { 3.4932322080850544`*^9, 3.493232228183955*^9}, {3.493232260660654*^9, 3.4932322707852125`*^9}, {3.4932695180153246`*^9, 3.4932695197378016`*^9}, {3.4932696938081026`*^9, 3.4932697581105647`*^9}, {3.493269851174384*^9, 3.493269852356083*^9}, { 3.4932702736118193`*^9, 3.49327031849636*^9}, {3.4933779894139757`*^9, 3.4933779990177855`*^9}, {3.4933781126912403`*^9, 3.4933783242854977`*^9}, {3.4933784533210416`*^9, 3.49337856959824*^9}, { 3.4933786279120913`*^9, 3.493378646759192*^9}, {3.4933786965007167`*^9, 3.493378874456605*^9}, {3.4934031443286133`*^9, 3.493403186919856*^9}, { 3.493403217784237*^9, 3.4934032211691046`*^9}, {3.507402745162653*^9, 3.5074028861954484`*^9}, {3.507403078497032*^9, 3.5074030958019156`*^9}, { 3.5074034271130886`*^9, 3.5074034272933474`*^9}, {3.5074038088871202`*^9, 3.507403893628973*^9}, {3.507404918137347*^9, 3.507404945646904*^9}, { 3.5074052694725423`*^9, 3.507405271235077*^9}, {3.5074053554122186`*^9, 3.507405356356061*^9}, {3.5074054221171026`*^9, 3.5074055518536544`*^9}, { 3.5074056108384705`*^9, 3.5074056251089907`*^9}, {3.50740658809383*^9, 3.5074065896160192`*^9}, {3.5074067052923536`*^9, 3.507406741425291*^9}, { 3.5074067717898226`*^9, 3.507406772221687*^9}, {3.5074068130824156`*^9, 3.507406897814254*^9}, {3.507407086004859*^9, 3.507407086765953*^9}, { 3.507407124059579*^9, 3.5074071262427177`*^9}, {3.507407358852262*^9, 3.50740737056911*^9}, {3.507407409905673*^9, 3.5074074568631945`*^9}, { 3.507407571798464*^9, 3.5074076550381565`*^9}, {3.507407705864667*^9, 3.507407706034202*^9}, {3.5074077532844954`*^9, 3.507407761576419*^9}, { 3.5074080777750683`*^9, 3.507408202304132*^9}, {3.507408900382826*^9, 3.507408948301892*^9}, {3.507408989090543*^9, 3.507409019364074*^9}, { 3.507409077217263*^9, 3.5074090988383527`*^9}, {3.507409164592903*^9, 3.5074091925030355`*^9}, {3.5074092466772604`*^9, 3.507409294614933*^9}, 3.5074093327497683`*^9, {3.507409415789173*^9, 3.507409551824783*^9}, 3.5074095885676165`*^9, {3.5074096370373125`*^9, 3.5074096425252037`*^9}, { 3.507409699229843*^9, 3.50740970357926*^9}, {3.507409811182789*^9, 3.5074098754151506`*^9}, {3.5074099165442915`*^9, 3.5074099402183332`*^9}, {3.5074100172591124`*^9, 3.507410090181966*^9}, { 3.507410135379363*^9, 3.5074101366101756`*^9}, {3.507410199155735*^9, 3.5074102406153507`*^9}, {3.507410307341298*^9, 3.5074104113459167`*^9}, { 3.5074104942715235`*^9, 3.507410494735777*^9}, {3.507410673978632*^9, 3.5074107008072095`*^9}, {3.5074107351065297`*^9, 3.507410761704776*^9}, { 3.507410800760936*^9, 3.507410828600968*^9}, {3.5074108722537374`*^9, 3.5074109060923953`*^9}, {3.5074109378676157`*^9, 3.507410966274177*^9}, { 3.507411014473307*^9, 3.5074110213632145`*^9}, {3.5074111192840176`*^9, 3.5074111715291424`*^9}, 3.5074133137945113`*^9, {3.507429697020052*^9, 3.507429697580858*^9}, {3.5074297563653865`*^9, 3.507429758258108*^9}, { 3.5074297983457513`*^9, 3.5074298011798267`*^9}, {3.5074302419737926`*^9, 3.507430317051749*^9}, {3.5074304835912213`*^9, 3.5074305171795187`*^9}, { 3.5074305749225492`*^9, 3.507430616902914*^9}, {3.507430714152753*^9, 3.5074307330799685`*^9}, {3.5074308407848406`*^9, 3.507430845671868*^9}, { 3.5074309085622997`*^9, 3.5074309864469614`*^9}, {3.5074310257058115`*^9, 3.507431100753725*^9}, {3.5074312094629297`*^9, 3.5074312147805758`*^9}, { 3.507431267666622*^9, 3.507431283038726*^9}, {3.507431334582843*^9, 3.507431366969413*^9}, {3.50743145062971*^9, 3.507431453644045*^9}, { 3.507431526639006*^9, 3.507431533038208*^9}, 3.5074315770114384`*^9, { 3.5074317413877997`*^9, 3.507431752013078*^9}, {3.507431799901939*^9, 3.5074318517064304`*^9}, {3.507431885174555*^9, 3.507431888769725*^9}, { 3.507432021355441*^9, 3.5074320249906683`*^9}, {3.507432062104035*^9, 3.5074321689576826`*^9}, {3.5074322979832125`*^9, 3.5074323036713915`*^9}, {3.5074323375132103`*^9, 3.5074323409217577`*^9}, {3.5074324216360846`*^9, 3.507432436477425*^9}, { 3.507432483284731*^9, 3.507432485507928*^9}, {3.507432546425523*^9, 3.507432549029267*^9}, {3.507432612851038*^9, 3.507432634982862*^9}, { 3.5074326983539853`*^9, 3.507432707567233*^9}, {3.5074327552958636`*^9, 3.507432783596558*^9}, {3.507433759623076*^9, 3.5074338199197783`*^9}, { 3.507433862240633*^9, 3.507433883771593*^9}, {3.5074339344644856`*^9, 3.5074339465919237`*^9}, {3.5074339992276106`*^9, 3.507434036771596*^9}, { 3.507434072231654*^9, 3.5074340727125945`*^9}, {3.507434190978402*^9, 3.507434197718094*^9}, {3.507434253338071*^9, 3.50743425786458*^9}, { 3.507434534136908*^9, 3.507434645737382*^9}, {3.5074347427068167`*^9, 3.5074349673498373`*^9}, {3.5074350329141145`*^9, 3.5074351091437273`*^9}, {3.5074351391668987`*^9, 3.507435139927993*^9}, { 3.5074351839813385`*^9, 3.50743519147211*^9}, 3.5074352393008842`*^9, { 3.507435376419031*^9, 3.5074353767134867`*^9}, 3.507435505518754*^9, { 3.5074355408796005`*^9, 3.507435634384053*^9}, {3.50743570470517*^9, 3.5074357228612776`*^9}, {3.5074721547880163`*^9, 3.5074721555991826`*^9}, {3.5079092010115876`*^9, 3.5079092063492627`*^9}, {3.5079093533023605`*^9, 3.5079093535627356`*^9}, {3.507981461921159*^9, 3.5079814846939044`*^9}, { 3.5079853078814325`*^9, 3.5079853472680683`*^9}, {3.5130124616650877`*^9, 3.5130124664419565`*^9}, {3.5130129969447823`*^9, 3.513013032646118*^9}, { 3.513013247104494*^9, 3.513013249417821*^9}, {3.513013398752554*^9, 3.5130134215152845`*^9}, {3.513013484485832*^9, 3.5130134890523987`*^9}, { 3.5130184917959905`*^9, 3.5130184935785537`*^9}, 3.5130185260452385`*^9, { 3.519418828964142*^9, 3.519418856352708*^9}, {3.540749559460033*^9, 3.540749559658739*^9}, {3.540749844991627*^9, 3.540749845175496*^9}, { 3.540750079183285*^9, 3.540750079361253*^9}, {3.540750324208343*^9, 3.540750324465142*^9}, {3.540751018366722*^9, 3.540751025383477*^9}, { 3.540751143904863*^9, 3.54075114632085*^9}, {3.540751298504355*^9, 3.540751303423439*^9}, {3.564997845350355*^9, 3.564997852186038*^9}, 3.565001419706606*^9, 3.565001599299682*^9, 3.56500257745459*^9, { 3.565002671070177*^9, 3.56500268901273*^9}, 3.565002768615814*^9, 3.567605757532798*^9, 3.568746292491486*^9, {3.568746417041088*^9, 3.568746417295284*^9}, {3.568746528054455*^9, 3.568746532237424*^9}, { 3.56874667817539*^9, 3.568746681920626*^9}, {3.568746748562174*^9, 3.568746770917701*^9}, {3.56882721396443*^9, 3.568827308409979*^9}, { 3.56882749351184*^9, 3.568827506209362*^9}, {3.568827626293739*^9, 3.568827677716303*^9}, {3.568827765592244*^9, 3.568827777091091*^9}, { 3.568827808215494*^9, 3.568827909259466*^9}, {3.568828154248491*^9, 3.568828167803474*^9}, {3.568828299781924*^9, 3.568828302578163*^9}, { 3.568968385775743*^9, 3.56896839049107*^9}, {3.568969234584629*^9, 3.568969249956544*^9}, {3.568969302043362*^9, 3.568969377101499*^9}, 3.568975966109392*^9, 3.568978086625431*^9, 3.568978164994475*^9, { 3.569773425832835*^9, 3.569773427966245*^9}, {3.569773466271509*^9, 3.569773468117964*^9}, {3.569773525158583*^9, 3.569773532723978*^9}, { 3.569777953672414*^9, 3.569777955373759*^9}, {3.569778004817343*^9, 3.569778034813469*^9}, {3.569778066432153*^9, 3.569778079475755*^9}, { 3.572965939652278*^9, 3.572965943013631*^9}, {3.572965974101273*^9, 3.572965975232315*^9}, {3.580503403706551*^9, 3.580503413751301*^9}, { 3.580503540592406*^9, 3.580503545032809*^9}, {3.580503688267704*^9, 3.580503792499726*^9}, {3.580503828013455*^9, 3.580503830452748*^9}, 3.580515794053752*^9, {3.580515974790649*^9, 3.580516032927355*^9}, 3.580516128552071*^9, {3.58051615893886*^9, 3.580516188436799*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Specification of rest points", "Subsubsection", CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"restPoints", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restPoints", "::", "notes"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"restPoints", "[", RowBox[{ "dyn_", ",", "F_", ",", "startingValues_", ",", "tolLevel_", ",", RowBox[{"delta_:", ".001"}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", " ", "\"\\""}], ",", RowBox[{"restPointsContinuous", "[", RowBox[{ "dyn", ",", "F", ",", "startingValues", ",", "tolLevel", ",", "delta", ",", "accuracy"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", " ", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"nashEquilibria", "[", RowBox[{ "F", ",", "\"\\"", ",", "\"\\"", ",", "delta", ",", "accuracy"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"restPointsContinuous", "[", RowBox[{ "Replicator", ",", "F", ",", " ", "startingValues", ",", "tolLevel", ",", "delta", ",", "accuracy"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"restrictedEquilibria", "[", "F", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.47471508216753*^9, 3.4747150946254435`*^9}, { 3.481418886167094*^9, 3.481418886177109*^9}, {3.4817354834747458`*^9, 3.4817354834847603`*^9}, 3.492809407533*^9, {3.49280945318865*^9, 3.4928094540999603`*^9}, {3.4928095514198995`*^9, 3.4928095898751955`*^9}, {3.4928096452848706`*^9, 3.492809851180935*^9}, { 3.4931484968378863`*^9, 3.4931484979594994`*^9}, {3.4931822307562656`*^9, 3.49318232499177*^9}, 3.493182375504403*^9, 3.507405221213149*^9, { 3.5079815138658514`*^9, 3.507981518777915*^9}, 3.5080247838620048`*^9, 3.5080249731141357`*^9, {3.5087644486154013`*^9, 3.5087644547633104`*^9}, { 3.510668458171026*^9, 3.5106684638992634`*^9}, {3.510668527390559*^9, 3.510668545536652*^9}, {3.519418459792026*^9, 3.5194185131320767`*^9}, { 3.519418640620369*^9, 3.519418652019021*^9}, {3.5194190106905355`*^9, 3.5194190138197145`*^9}, {3.56499781957186*^9, 3.564997820315573*^9}, { 3.564998487892445*^9, 3.564998547111822*^9}, {3.56499858720189*^9, 3.564998620775562*^9}, {3.564998671545752*^9, 3.564998671880927*^9}, { 3.565002517798076*^9, 3.565002518574487*^9}, {3.565002578680135*^9, 3.565002579573152*^9}, {3.565002615572716*^9, 3.565002645328796*^9}, 3.565002689936061*^9, {3.56500282498051*^9, 3.565002841100198*^9}, { 3.568829720820553*^9, 3.568829727060228*^9}, {3.568829864582356*^9, 3.568829866946799*^9}, {3.568830423784334*^9, 3.56883044508653*^9}, { 3.568968912241539*^9, 3.568968915226842*^9}, 3.568975972318984*^9, 3.578919628719791*^9}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Stability", "Subsection", CellChangeTimes->{{3.492892437555563*^9, 3.49289243918791*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Stability Test Subroutine for Smooth Dynamics", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928843532674503`*^9, 3.492884357158045*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"smoothStabilityTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"smoothStabilityTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"smoothStabilityValues", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "p", ",", "dim", ",", "pop", ",", "s", ",", "xv", ",", "xvp", ",", "DV", ",", "DVp", ",", "es", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xv", "=", RowBox[{"emptyVector", "[", RowBox[{"\"\\"", ",", RowBox[{"Total", "[", "dim", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xvp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"xv", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DV", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"dyn", "[", RowBox[{"xvp", ",", "F"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", "xv", "}"}]}], "]"}], "/.", RowBox[{"Thread", "[", RowBox[{"xv", "->", RowBox[{"Flatten", "[", RowBox[{"x", ",", "1"}], "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DV", "=", RowBox[{"Transpose", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ND", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"pt", "==", "p"}], ",", RowBox[{"jt", "==", "j"}]}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{"pt", ",", "jt"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"jt", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"pt", ",", "pop"}], "}"}]}], "]"}], ",", "F"}], "]"}], ",", "1"}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Eigensystem", "[", RowBox[{"DV", ".", RowBox[{"projectionMatrix", "[", "dim", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "notice", " ", "the", " ", "eigenvalues", " ", "could", " ", "be", " ", "complex"}], ";", " ", RowBox[{ RowBox[{"Round", "[", "]"}], " ", "works", " ", RowBox[{"anyway", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "not", " ", "checking", " ", "independence", " ", "of", " ", "the", " ", "eigenvectors", " ", "or", " ", "that", " ", "we", " ", "have", " ", "pop", " ", "of", " ", "them"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "==", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "-", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j", ",", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"p", "==", "1"}], ",", "0", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}], "]"}], "<", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}]}], "\[IndentingNewLine]", ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"es", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"smoothStabilityTest", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"values", ",", "es"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"values", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"smoothStabilityValues", "[", RowBox[{ "x", ",", "dyn", ",", "F", ",", "method", ",", "accuracy"}], "]"}], ",", "1"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"values", "=", RowBox[{"smoothStabilityValues", "[", RowBox[{"x", ",", "dyn", ",", "F", ",", "method", ",", "accuracy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"values", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "values", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Max", "[", "es", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "<=", "0"}], ",", "1", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Min", "[", "es", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], ">=", "0"}], ",", RowBox[{"-", "1"}], ",", "\[IndentingNewLine]", "True", ",", "0"}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Replicator", ",", " ", RowBox[{"1", "-", "2", "-", RowBox[{"3", " ", "coord", "\[IndentingNewLine]", RowBox[{"smoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}], ",", "dyn", ",", "F", ",", "\"\\"", ",", "10"}], "]"}], "\[IndentingNewLine]", RowBox[{"smoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.6", ",", "0.4"}], "}"}], ",", "dyn", ",", "F", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"smoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "dyn", ",", "F"}], "]"}]}]}]}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, { 3.489675763578027*^9, 3.489675873818288*^9}, {3.489785598683547*^9, 3.4897856440587935`*^9}, {3.49237910090625*^9, 3.49237910209375*^9}, { 3.49237913315625*^9, 3.492379151359375*^9}, {3.492379210390625*^9, 3.49237924003125*^9}, {3.492379317296875*^9, 3.492379332*^9}, { 3.49237936209375*^9, 3.492379451953125*^9}, {3.492379517359375*^9, 3.492379531265625*^9}, {3.492379716265625*^9, 3.4923797461875*^9}, { 3.492379883828125*^9, 3.492379889296875*^9}, {3.492379930140625*^9, 3.492379994125*^9}, {3.49238009878125*^9, 3.492380113140625*^9}, 3.4923807724375*^9, {3.49238080425*^9, 3.49238084190625*^9}, { 3.4923808950625*^9, 3.492380897484375*^9}, {3.49238101340625*^9, 3.492381108796875*^9}, {3.49238114659375*^9, 3.4923811901875*^9}, { 3.4923812591875*^9, 3.492381376359375*^9}, {3.492381613921875*^9, 3.492381632640625*^9}, {3.492381709359375*^9, 3.49238176990625*^9}, { 3.4923818083125*^9, 3.492381849796875*^9}, {3.492381892984375*^9, 3.492381937421875*^9}, {3.492382001421875*^9, 3.492382151046875*^9}, { 3.49238220828125*^9, 3.49238230375*^9}, {3.4923833268125*^9, 3.492383401375*^9}, 3.492383436609375*^9, {3.4923890745813046`*^9, 3.4923890750031796`*^9}, {3.4923892254875546`*^9, 3.4923892461750546`*^9}, {3.4923893093938046`*^9, 3.4923893293156796`*^9}, 3.4923893621750546`*^9, {3.4923894555969296`*^9, 3.4923895083781796`*^9}, { 3.4923895475656796`*^9, 3.4923895500969296`*^9}, {3.4923895919875546`*^9, 3.4923895927688046`*^9}, {3.4923897556594296`*^9, 3.4923897763156796`*^9}, {3.4923898126281796`*^9, 3.4923901057375546`*^9}, {3.4923901490656796`*^9, 3.4923902065813046`*^9}, {3.4923902863625546`*^9, 3.4923902913156796`*^9}, {3.4923909770813046`*^9, 3.4923909873781796`*^9}, {3.4923911478469296`*^9, 3.4923911614719296`*^9}, {3.4923915060656796`*^9, 3.4923915147063046`*^9}, {3.4923915529563046`*^9, 3.4923915551594296`*^9}, {3.4924594902949204`*^9, 3.4924595552783623`*^9}, {3.4924596130013638`*^9, 3.492459616987095*^9}, { 3.492459657605501*^9, 3.492459666187842*^9}, {3.492460328189754*^9, 3.4924603454045076`*^9}, {3.492460806046879*^9, 3.492460934882135*^9}, { 3.49246098093836*^9, 3.4924609982132006`*^9}, {3.49246221805725*^9, 3.492462219939957*^9}, {3.4924622671478386`*^9, 3.4924622722451687`*^9}, { 3.492462407599799*^9, 3.4924624299719687`*^9}, {3.4924624797435365`*^9, 3.492462483238562*^9}, {3.4924627260076466`*^9, 3.4924628079755106`*^9}, { 3.49246293133289*^9, 3.492463027280856*^9}, {3.492463241408757*^9, 3.492463245434546*^9}, {3.492463530814903*^9, 3.4924635316861553`*^9}, { 3.492465940559946*^9, 3.492466030939906*^9}, {3.492473116338208*^9, 3.4924731246802034`*^9}, {3.4924732190659237`*^9, 3.4924732649719334`*^9}, {3.4924732968778114`*^9, 3.4924732992311954`*^9}, {3.49247481459525*^9, 3.492474816558072*^9}, { 3.492476066385236*^9, 3.4924760684882593`*^9}, {3.4924772069252515`*^9, 3.4924773442126613`*^9}, {3.492477471896261*^9, 3.492477475871978*^9}, { 3.4925115413541183`*^9, 3.4925115439178047`*^9}, {3.492511606317531*^9, 3.492511615230347*^9}, {3.4925117778241453`*^9, 3.4925118154582605`*^9}, { 3.492511893730811*^9, 3.492511925726819*^9}, {3.492512300605869*^9, 3.4925123092583103`*^9}, 3.492512382273301*^9, {3.4925125022658415`*^9, 3.4925125591476336`*^9}, {3.492512683987144*^9, 3.4925126958942657`*^9}, { 3.4925127501522846`*^9, 3.4925127597260513`*^9}, 3.492512801185667*^9, { 3.4925130030359135`*^9, 3.4925130040373535`*^9}, {3.4925139399331055`*^9, 3.492513955235109*^9}, {3.4925140254761105`*^9, 3.4925141280135517`*^9}, { 3.492516660975773*^9, 3.49251669181011*^9}, {3.492516748381456*^9, 3.4925168477843904`*^9}, {3.492516886199629*^9, 3.492516958463539*^9}, { 3.492516989067546*^9, 3.492517010207944*^9}, {3.4925171923097935`*^9, 3.492517198698981*^9}, {3.4925172600471954`*^9, 3.492517295167696*^9}, 3.492517388031227*^9, {3.492517423902808*^9, 3.492517460555512*^9}, { 3.4925175472201295`*^9, 3.492517597933051*^9}, {3.492518873687496*^9, 3.492518874889224*^9}, {3.4925189176106544`*^9, 3.4925189605223584`*^9}, { 3.4925194897633696`*^9, 3.49251956653376*^9}, {3.4925197590606003`*^9, 3.4925197837460957`*^9}, {3.4925204148635983`*^9, 3.492520419460208*^9}, { 3.4925205526717567`*^9, 3.492520561294155*^9}, {3.492522162391488*^9, 3.4925221679194365`*^9}, {3.492531167107565*^9, 3.4925311961092677`*^9}, { 3.49253211714365*^9, 3.492532152013791*^9}, {3.4925321821471205`*^9, 3.492532291634556*^9}, {3.492532325713559*^9, 3.4925323356378293`*^9}, { 3.4925323669027863`*^9, 3.4925324973403463`*^9}, {3.4925327186385574`*^9, 3.4925327346615973`*^9}, {3.4925327793057923`*^9, 3.492532782981077*^9}, { 3.492532852571143*^9, 3.4925328533622804`*^9}, {3.4925329144501204`*^9, 3.4925330995462756`*^9}, {3.492533139663962*^9, 3.492533142518066*^9}, { 3.4925332367335415`*^9, 3.4925332671973457`*^9}, {3.492533312041829*^9, 3.4925333187715063`*^9}, {3.4925333492252965`*^9, 3.4925334183246565`*^9}, {3.4925334999219875`*^9, 3.492533605884354*^9}, { 3.492541976871378*^9, 3.492541982529514*^9}, {3.4925420513985424`*^9, 3.4925421408271346`*^9}, {3.4925421824870386`*^9, 3.492542284944365*^9}, { 3.4925423477947397`*^9, 3.492542358069514*^9}, {3.492542391227192*^9, 3.4925423944418144`*^9}, {3.4925424623895187`*^9, 3.4925424757587423`*^9}, {3.492542514975133*^9, 3.4925425158163424`*^9}, { 3.492542564296053*^9, 3.4925425971733284`*^9}, {3.492698138447184*^9, 3.4926981626219454`*^9}, {3.4927018364584103`*^9, 3.492701844830448*^9}, 3.4927025707010098`*^9, {3.492702605981741*^9, 3.49270260659262*^9}, { 3.4927026692126627`*^9, 3.492702669553152*^9}, {3.492725726818954*^9, 3.492725728952021*^9}, 3.492725824960074*^9, {3.4927264126150804`*^9, 3.492726419565074*^9}, {3.4931286675676713`*^9, 3.49312866849901*^9}, { 3.4933901932623835`*^9, 3.493390193773118*^9}, {3.4959902691492662`*^9, 3.4959903171167774`*^9}, 3.5072556786456265`*^9, 3.507926987388692*^9, { 3.5079815231041355`*^9, 3.507981523434611*^9}, {3.5087902584538436`*^9, 3.508790288687317*^9}, {3.5087954977427745`*^9, 3.5087956931437473`*^9}, { 3.508795835949091*^9, 3.5087958433196898`*^9}, {3.5106594118271484`*^9, 3.510659493304307*^9}, {3.5106598151470942`*^9, 3.510659879349413*^9}, { 3.510659949400141*^9, 3.5106599515432224`*^9}, {3.510660294356163*^9, 3.5106603386298256`*^9}, {3.510660376654502*^9, 3.5106604786211233`*^9}, { 3.510668164238372*^9, 3.5106681981170874`*^9}, {3.511009771198851*^9, 3.5110098252465677`*^9}, 3.51100995689587*^9, {3.511009990263851*^9, 3.5110100009792595`*^9}, {3.5110103054421234`*^9, 3.5110103180202093`*^9}, {3.511010447266056*^9, 3.511010452353371*^9}, { 3.51101049593604*^9, 3.5110105067415776`*^9}, {3.5110105773931694`*^9, 3.5110105777436733`*^9}, {3.511010661694389*^9, 3.511010758513608*^9}, { 3.564854969030057*^9, 3.564854998402191*^9}, {3.564857158213597*^9, 3.56485715903618*^9}, {3.565001327586373*^9, 3.565001328354987*^9}, { 3.565002914236476*^9, 3.565002962298071*^9}, {3.568840793106556*^9, 3.568840798761034*^9}, {3.568840872670655*^9, 3.568840888981353*^9}, { 3.568841176475854*^9, 3.568841199226915*^9}, {3.568841233374522*^9, 3.56884126492218*^9}, {3.568841295873377*^9, 3.568841306733565*^9}, { 3.568841349931065*^9, 3.56884137780304*^9}, {3.568841425342505*^9, 3.568841467415417*^9}, {3.56889136959019*^9, 3.568891467235562*^9}, { 3.568891515817536*^9, 3.568891529192079*^9}, {3.568891561996615*^9, 3.568891655422415*^9}, {3.568891742326039*^9, 3.568891767105301*^9}, { 3.568891899428762*^9, 3.568892022431277*^9}, {3.568892062728783*^9, 3.568892174441185*^9}, {3.568892222744383*^9, 3.568892223139747*^9}, { 3.568892263138347*^9, 3.568892283619491*^9}, {3.568892321960244*^9, 3.568892478175765*^9}, {3.568892568600534*^9, 3.568892572107823*^9}, { 3.5688926059365*^9, 3.568892945951586*^9}, {3.568893842012566*^9, 3.568893891455276*^9}, {3.568894015354597*^9, 3.568894029306415*^9}, { 3.568894061115414*^9, 3.568894106677366*^9}, {3.568894136735361*^9, 3.568894139420607*^9}, {3.568971125401368*^9, 3.568971146322191*^9}, { 3.56897142374485*^9, 3.568971427592911*^9}, {3.568972041627209*^9, 3.568972158952264*^9}, {3.568972190923037*^9, 3.568972247062894*^9}, { 3.568972499545548*^9, 3.568972690603112*^9}, {3.568972764144384*^9, 3.56897276451207*^9}, {3.568972812892229*^9, 3.568972841091582*^9}, { 3.568972910569758*^9, 3.568972950666707*^9}, {3.568972992610442*^9, 3.56897311378804*^9}, {3.568973174761365*^9, 3.568973209801845*^9}, { 3.568973268420467*^9, 3.568973366908359*^9}, {3.568973419882353*^9, 3.568973425708107*^9}, {3.568973543626761*^9, 3.568973551775393*^9}, { 3.568973626157758*^9, 3.568973652542435*^9}, {3.568973819527675*^9, 3.568973888691252*^9}, {3.568973939230755*^9, 3.568974065490488*^9}, { 3.568974330436616*^9, 3.568974331309865*^9}, {3.568974392285582*^9, 3.568974396795987*^9}, {3.568974443428226*^9, 3.568974620580877*^9}, { 3.568980446720792*^9, 3.568980465567609*^9}, {3.5689807237937*^9, 3.568980876153406*^9}, {3.568981526067144*^9, 3.568981531716001*^9}, { 3.568990593520942*^9, 3.5689906153312*^9}, {3.568995295762247*^9, 3.568995316615371*^9}, {3.569101613401916*^9, 3.569101636537304*^9}, { 3.56966702401226*^9, 3.569667086440154*^9}, {3.569667289320993*^9, 3.569667339673549*^9}, {3.56966741493519*^9, 3.569667417197054*^9}, 3.569667457991879*^9, {3.569667495122*^9, 3.569667501677178*^9}, { 3.56966766912401*^9, 3.569667682780354*^9}, {3.56985414223947*^9, 3.569854257145877*^9}, {3.569854388056931*^9, 3.569854395608922*^9}, { 3.569854453949377*^9, 3.56985446476228*^9}, {3.569854507376142*^9, 3.569854532547893*^9}, {3.56985456812061*^9, 3.569854628912508*^9}, 3.56985467002942*^9, {3.569854803149801*^9, 3.569854807101056*^9}, 3.569854892731948*^9, {3.569854984323738*^9, 3.569854986185579*^9}, { 3.569855698662291*^9, 3.569855702685481*^9}, {3.569855876699386*^9, 3.569855899812032*^9}, {3.572048884482949*^9, 3.572048892315936*^9}, { 3.578662245694814*^9, 3.57866229403726*^9}, 3.596709792779041*^9}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Numeric Stability Test Subroutine for non Smooth Dynamics", \ "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928840924023447`*^9, 3.492884104690014*^9}, {3.4928842615305395`*^9, 3.4928842813139863`*^9}, {3.492884326949607*^9, 3.492884339717967*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", " ", RowBox[{"n_:", "10"}], ",", RowBox[{"T_:", "10"}], ",", " ", RowBox[{"delta_:", ".01"}], ",", " ", RowBox[{"eps_:", ".05"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "dim", ",", "pop", ",", "sample", ",", "ns", ",", "trajectories", ",", "classifiedTrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sampleAround", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "eps", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "the", " ", "following", " ", "code", " ", "eliminated", " ", "too", " ", "many", " ", "initial", " ", "conditions", " ", "that", " ", "are", " ", "close", " ", "to", " ", "each", " ", "other"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"sample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "<", RowBox[{"eps", "/", "3"}]}], ",", "\"\\"", ",", RowBox[{"sample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ns", "=", RowBox[{ RowBox[{"Dimensions", "[", "sample", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"trajectories", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"difEqAdvance", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "T", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "ns"}], "}"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"-", " ", "Checking"}], " ", "Stability", " ", "using", " ", "delta", " ", "neighborhood"}], " ", "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"classifiedTrajectories", " ", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"trajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", "1", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"trajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ">", RowBox[{"eps", "+", "delta"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"trajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ">", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"sample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "+", "delta"}]}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"-", "1"}], ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", "0"}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"sample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "-", RowBox[{"stateNorm", "[", RowBox[{"x", "-", RowBox[{"trajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", RowBox[{"-", "1"}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ "notice", " ", "that", " ", "the", " ", "time", " ", "elapsed", " ", "has", " ", "to", " ", "be", " ", "large", " ", "if", " ", "we", " ", "want", " ", "to", " ", "capture", " ", "a", " ", "cycle", " ", "that", " ", "is", " ", "spiriling", " ", "outwards", " ", RowBox[{"(", RowBox[{"heteroclinic", " ", "cycle"}], ")"}]}], ",", " ", RowBox[{ "so", " ", "that", " ", "the", " ", "traj", " ", "is", " ", "suf", " ", "further", " ", "away", " ", "from", " ", "the", " ", "rest", " ", "point", " ", "than", " ", "the", " ", "initial", " ", RowBox[{"trajectory", ".", " ", "However"}]}], ",", " ", RowBox[{ RowBox[{ "the", " ", "values", " ", "returned", " ", "will", " ", "be", " ", "either", " ", "0", " ", "or"}], " ", "-", RowBox[{"1", " ", "but", " ", "the", " ", "point", " ", RowBox[{"won", "'"}], "t", " ", "be", " ", "confused", " ", "with", " ", "a", " ", "stable", " ", "rest", " ", RowBox[{"point", "."}]}]}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "ns"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", "1"}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], ">=", "0"}], ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", "1", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "<=", "0"}], ",", RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", "1"}], ",", "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", "0"}], " ", ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "0"}]}], "]"}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", "2"}], ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", RowBox[{"-", "3"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, 3.4887257424375*^9, {3.492477459528477*^9, 3.492477461831789*^9}, { 3.492682907761492*^9, 3.4926830408528676`*^9}, {3.4926830726185446`*^9, 3.4926831446220803`*^9}, {3.492683322097277*^9, 3.492683370476844*^9}, { 3.492683465323226*^9, 3.4926835676804085`*^9}, {3.492683604493343*^9, 3.49268362499282*^9}, {3.4926837660256147`*^9, 3.4926840173169537`*^9}, { 3.492684146923319*^9, 3.4926841868407173`*^9}, 3.492684396361994*^9, { 3.4926845611589603`*^9, 3.492684589299424*^9}, {3.4926964124312925`*^9, 3.4926964418059053`*^9}, {3.492696480813327*^9, 3.4926965404234333`*^9}, { 3.492696673725789*^9, 3.4926966905800242`*^9}, {3.492696734312909*^9, 3.492696762448355*^9}, {3.4926968924247365`*^9, 3.4926969666311903`*^9}, 3.492697064677194*^9, {3.4926973210858917`*^9, 3.492697331871401*^9}, { 3.4926973943011703`*^9, 3.492697432836581*^9}, {3.492697486283434*^9, 3.492697493213399*^9}, {3.492697609240237*^9, 3.4926978239390945`*^9}, { 3.492697877165631*^9, 3.492698118077894*^9}, {3.4926981528078337`*^9, 3.492698157504587*^9}, {3.492698244154251*^9, 3.492698244654971*^9}, { 3.4926984974184275`*^9, 3.49269850154436*^9}, {3.4926985324588127`*^9, 3.492698622918888*^9}, {3.4926986837763968`*^9, 3.492698712788499*^9}, { 3.4926989262100673`*^9, 3.4926990415759554`*^9}, {3.492699108912781*^9, 3.4926991187669506`*^9}, {3.492699192012272*^9, 3.49269920347876*^9}, { 3.492699283719208*^9, 3.4926992858823185`*^9}, {3.4926993165864687`*^9, 3.4926993225149937`*^9}, {3.492699613543472*^9, 3.4926999789713826`*^9}, { 3.4927025086017156`*^9, 3.492702509713314*^9}, {3.492702637587188*^9, 3.492702639980629*^9}, {3.4927026763028584`*^9, 3.492702676503146*^9}, { 3.4928175821325645`*^9, 3.492817583835013*^9}, {3.4928177008632913`*^9, 3.4928177068519025`*^9}, {3.492856947654248*^9, 3.4928569504783087`*^9}, { 3.4928571530896497`*^9, 3.4928571759725533`*^9}, {3.492857288564453*^9, 3.492857336273054*^9}, {3.4928576688012066`*^9, 3.4928576793263407`*^9}, { 3.4928636806948195`*^9, 3.4928636859724083`*^9}, {3.492863790312442*^9, 3.49286381536847*^9}, {3.492877865837265*^9, 3.492877938597926*^9}, { 3.4928779731364784`*^9, 3.4928779771074095`*^9}, {3.4928826507493496`*^9, 3.492882651545494*^9}, {3.492882710970944*^9, 3.492882816422576*^9}, { 3.4928830617703686`*^9, 3.4928831038608923`*^9}, {3.492883164848588*^9, 3.492883169790694*^9}, 3.4928833139980545`*^9, {3.492883567127036*^9, 3.4928835759447155`*^9}, {3.4928844189118423`*^9, 3.49288443071882*^9}, { 3.492884802278096*^9, 3.4928848092030535`*^9}, {3.492884892032156*^9, 3.492884903673896*^9}, {3.4928850421880693`*^9, 3.4928850603642054`*^9}, { 3.4928852178333693`*^9, 3.4928854336632395`*^9}, {3.4928860358603544`*^9, 3.492886040952677*^9}, {3.492886656913385*^9, 3.4928866858149433`*^9}, 3.492886723218727*^9, {3.492886789283724*^9, 3.4928868331017313`*^9}, { 3.4928931807842736`*^9, 3.492893188625549*^9}, {3.4931301016597943`*^9, 3.493130103222041*^9}, {3.4932899980091777`*^9, 3.493290016175299*^9}, { 3.4932900895908656`*^9, 3.4932901310304527`*^9}, {3.493290447655738*^9, 3.4932904678247395`*^9}, {3.4932905433934016`*^9, 3.4932905480100403`*^9}, {3.4932906470624704`*^9, 3.493290653021038*^9}, { 3.4932908192600784`*^9, 3.4932908248180704`*^9}, {3.493290865586693*^9, 3.4932908664879885`*^9}, {3.493291323555219*^9, 3.4932914046117725`*^9}, 3.493291439341712*^9, {3.4932916075636034`*^9, 3.4932916107982545`*^9}, { 3.5079265451628017`*^9, 3.5079265453530755`*^9}, {3.5079267040112147`*^9, 3.507926730599447*^9}, {3.5079275829610505`*^9, 3.507927743682156*^9}, { 3.5079278172579527`*^9, 3.5079278245083785`*^9}, 3.507927870083913*^9, { 3.5079279731320887`*^9, 3.5079279825556393`*^9}, {3.507928245884287*^9, 3.5079282563593493`*^9}, 3.5079283385875883`*^9, {3.50792866276373*^9, 3.5079286672702103`*^9}, {3.5079286996267366`*^9, 3.5079287095810504`*^9}, {3.507928799380175*^9, 3.507928835021425*^9}, { 3.507928878764324*^9, 3.507928901046364*^9}, {3.5079294464406023`*^9, 3.5079294499856997`*^9}, {3.5079296248471384`*^9, 3.507929629163345*^9}, { 3.5079298106142583`*^9, 3.5079298468263288`*^9}, {3.5079299137725925`*^9, 3.5079299232762585`*^9}, {3.50793017577934*^9, 3.5079301998539577`*^9}, { 3.5079303217392197`*^9, 3.507930326576175*^9}, {3.5079304222539034`*^9, 3.5079304252769513`*^9}, {3.5079304874125147`*^9, 3.5079305177561464`*^9}, {3.5079815280011773`*^9, 3.5079815518554783`*^9}, {3.508019874587063*^9, 3.508019879353917*^9}, { 3.508765099115571*^9, 3.508765122999915*^9}, {3.5211469204557405`*^9, 3.5211469403688793`*^9}, {3.521147176533387*^9, 3.521147186874979*^9}, 3.521147233427642*^9, {3.5211482924422135`*^9, 3.5211483020037603`*^9}, { 3.521148347172344*^9, 3.521148373636858*^9}, 3.5211484790418863`*^9, { 3.5211490263371897`*^9, 3.5211490301774096`*^9}, 3.5586450736904907`*^9, { 3.565001009045205*^9, 3.565001019249157*^9}, 3.565001420423271*^9, 3.565001599997953*^9, {3.565003009914687*^9, 3.565003035602486*^9}, { 3.568968296550251*^9, 3.568968298437301*^9}, {3.568968408258742*^9, 3.568968423323152*^9}, {3.568968455517205*^9, 3.568968485691472*^9}, { 3.568975425505143*^9, 3.568975439501072*^9}, {3.568975665768309*^9, 3.568975694977318*^9}, {3.568975981205662*^9, 3.568975988681881*^9}, { 3.568976620501979*^9, 3.568976621184922*^9}, {3.568976675371062*^9, 3.568976722862142*^9}, {3.568976820709857*^9, 3.56897688014082*^9}, { 3.568977566780299*^9, 3.568977574286841*^9}, {3.568977614620002*^9, 3.568977660062113*^9}, 3.568978095380722*^9, 3.568978171730311*^9, { 3.568979004569296*^9, 3.568979010545385*^9}, {3.568979078815326*^9, 3.568979089803125*^9}, {3.568979121638174*^9, 3.568979126116885*^9}, { 3.56897917576291*^9, 3.568979177730925*^9}, 3.568979233647085*^9, { 3.568979956024827*^9, 3.568979957973686*^9}, {3.568980010513315*^9, 3.568980020643322*^9}, {3.569856018300348*^9, 3.569856085941767*^9}, { 3.569856170363334*^9, 3.569856212978625*^9}, {3.569856459362577*^9, 3.569856587696193*^9}, {3.569856660810249*^9, 3.569856687474924*^9}, { 3.569856877953837*^9, 3.569856878365327*^9}, {3.569857217064699*^9, 3.569857217297716*^9}, {3.56985727309924*^9, 3.569857278241017*^9}, 3.569857356411856*^9, 3.580643669686709*^9, 3.580643703638554*^9}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Regular ESS", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928843532674503`*^9, 3.492884357158045*^9}, {3.4933791612990637`*^9, 3.493379172795595*^9}, {3.493414446350122*^9, 3.4934144598595476`*^9}, 3.5106571861789775`*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"regularESSTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"regularESSTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"regularESSTest", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "dim", ",", "pop", ",", "subdim", ",", "s", ",", "xv", ",", "xvp", ",", "DF", ",", "project", ",", "matrix", ",", "support", ",", "es"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xv", "=", RowBox[{"emptyVector", "[", RowBox[{"\"\\"", ",", RowBox[{"Total", "[", "dim", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xvp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"xv", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}], "+", "1"}], ";;", RowBox[{"Sum", "[", RowBox[{ RowBox[{"dim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "p"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DF", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"F", "[", "xvp", "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", "xv", "}"}]}], "]"}], "/.", RowBox[{"Thread", "[", RowBox[{"xv", "->", RowBox[{"Flatten", "[", RowBox[{"x", ",", "1"}], "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DF", "=", RowBox[{"Transpose", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ND", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"pt", "==", "p"}], ",", RowBox[{"jt", "==", "j"}]}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{"pt", ",", "jt"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"jt", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"pt", ",", "pop"}], "}"}]}], "]"}], "]"}], ",", "1"}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", RowBox[{"p", ",", "j"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"matrix", "=", RowBox[{"DF", "+", RowBox[{"Transpose", "[", "DF", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"support", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"dim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], "-", RowBox[{"checkBoundary", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "p", "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"matrix", "=", RowBox[{"subMatrix", "[", RowBox[{"matrix", ",", RowBox[{"Flatten", "[", RowBox[{"support", ",", "1"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"support", "[", RowBox[{"[", "p", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"project", "=", RowBox[{"projectionMatrix", "[", "subdim", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Eigensystem", "[", RowBox[{"project", ".", "matrix", ".", "project"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "==", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "==", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j", ",", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"p", "==", "1"}], ",", "0", ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"subdim", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"p", "-", "1"}]}], "}"}]}], "]"}]}], "]"}], "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"subdim", "[", RowBox[{"[", "p", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], "]"}]}]}], ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"es", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"es", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "es", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Max", "[", "es", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "<", "0"}], ",", "1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", "es", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"Min", "[", "es", "]"}], "==", "0"}]}], "]"}], ",", RowBox[{"-", "1"}], ",", "0"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Replicator", ",", " ", RowBox[{"1", "-", "2", "-", RowBox[{"3", " ", "coord", "\[IndentingNewLine]", RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}], "}"}], ",", "Replicator", ",", "Fmp", ",", "\"\\"", ",", "10"}], "]"}], "\[IndentingNewLine]", RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0.6", ",", "0.4"}], "}"}], "}"}], ",", "Replicator", ",", "Fmp", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "}"}], ",", "Replicator", ",", "Fmp"}], "]"}]}]}]}], "\[IndentingNewLine]", "*)"}]}]}], "Input",\ CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, { 3.489675763578027*^9, 3.489675873818288*^9}, {3.489785598683547*^9, 3.4897856440587935`*^9}, {3.49237910090625*^9, 3.49237910209375*^9}, { 3.49237913315625*^9, 3.492379151359375*^9}, {3.492379210390625*^9, 3.49237924003125*^9}, {3.492379317296875*^9, 3.492379332*^9}, { 3.49237936209375*^9, 3.492379451953125*^9}, {3.492379517359375*^9, 3.492379531265625*^9}, {3.492379716265625*^9, 3.4923797461875*^9}, { 3.492379883828125*^9, 3.492379889296875*^9}, {3.492379930140625*^9, 3.492379994125*^9}, {3.49238009878125*^9, 3.492380113140625*^9}, 3.4923807724375*^9, {3.49238080425*^9, 3.49238084190625*^9}, { 3.4923808950625*^9, 3.492380897484375*^9}, {3.49238101340625*^9, 3.492381108796875*^9}, {3.49238114659375*^9, 3.4923811901875*^9}, { 3.4923812591875*^9, 3.492381376359375*^9}, {3.492381613921875*^9, 3.492381632640625*^9}, {3.492381709359375*^9, 3.49238176990625*^9}, { 3.4923818083125*^9, 3.492381849796875*^9}, {3.492381892984375*^9, 3.492381937421875*^9}, {3.492382001421875*^9, 3.492382151046875*^9}, { 3.49238220828125*^9, 3.49238230375*^9}, {3.4923833268125*^9, 3.492383401375*^9}, 3.492383436609375*^9, {3.4923890745813046`*^9, 3.4923890750031796`*^9}, {3.4923892254875546`*^9, 3.4923892461750546`*^9}, {3.4923893093938046`*^9, 3.4923893293156796`*^9}, 3.4923893621750546`*^9, {3.4923894555969296`*^9, 3.4923895083781796`*^9}, { 3.4923895475656796`*^9, 3.4923895500969296`*^9}, {3.4923895919875546`*^9, 3.4923895927688046`*^9}, {3.4923897556594296`*^9, 3.4923897763156796`*^9}, {3.4923898126281796`*^9, 3.4923901057375546`*^9}, {3.4923901490656796`*^9, 3.4923902065813046`*^9}, {3.4923902863625546`*^9, 3.4923902913156796`*^9}, {3.4923909770813046`*^9, 3.4923909873781796`*^9}, {3.4923911478469296`*^9, 3.4923911614719296`*^9}, {3.4923915060656796`*^9, 3.4923915147063046`*^9}, {3.4923915529563046`*^9, 3.4923915551594296`*^9}, {3.4924594902949204`*^9, 3.4924595552783623`*^9}, {3.4924596130013638`*^9, 3.492459616987095*^9}, { 3.492459657605501*^9, 3.492459666187842*^9}, {3.492460328189754*^9, 3.4924603454045076`*^9}, {3.492460806046879*^9, 3.492460934882135*^9}, { 3.49246098093836*^9, 3.4924609982132006`*^9}, {3.49246221805725*^9, 3.492462219939957*^9}, {3.4924622671478386`*^9, 3.4924622722451687`*^9}, { 3.492462407599799*^9, 3.4924624299719687`*^9}, {3.4924624797435365`*^9, 3.492462483238562*^9}, {3.4924627260076466`*^9, 3.4924628079755106`*^9}, { 3.49246293133289*^9, 3.492463027280856*^9}, {3.492463241408757*^9, 3.492463245434546*^9}, {3.492463530814903*^9, 3.4924635316861553`*^9}, { 3.492465940559946*^9, 3.492466030939906*^9}, {3.492473116338208*^9, 3.4924731246802034`*^9}, {3.4924732190659237`*^9, 3.4924732649719334`*^9}, {3.4924732968778114`*^9, 3.4924732992311954`*^9}, {3.49247481459525*^9, 3.492474816558072*^9}, { 3.492476066385236*^9, 3.4924760684882593`*^9}, {3.4924772069252515`*^9, 3.4924773442126613`*^9}, {3.492477471896261*^9, 3.492477475871978*^9}, { 3.4925115413541183`*^9, 3.4925115439178047`*^9}, {3.492511606317531*^9, 3.492511615230347*^9}, {3.4925117778241453`*^9, 3.4925118154582605`*^9}, { 3.492511893730811*^9, 3.492511925726819*^9}, {3.492512300605869*^9, 3.4925123092583103`*^9}, 3.492512382273301*^9, {3.4925125022658415`*^9, 3.4925125591476336`*^9}, {3.492512683987144*^9, 3.4925126958942657`*^9}, { 3.4925127501522846`*^9, 3.4925127597260513`*^9}, 3.492512801185667*^9, { 3.4925130030359135`*^9, 3.4925130040373535`*^9}, {3.4925139399331055`*^9, 3.492513955235109*^9}, {3.4925140254761105`*^9, 3.4925141280135517`*^9}, { 3.492516660975773*^9, 3.49251669181011*^9}, {3.492516748381456*^9, 3.4925168477843904`*^9}, {3.492516886199629*^9, 3.492516958463539*^9}, { 3.492516989067546*^9, 3.492517010207944*^9}, {3.4925171923097935`*^9, 3.492517198698981*^9}, {3.4925172600471954`*^9, 3.492517295167696*^9}, 3.492517388031227*^9, {3.492517423902808*^9, 3.492517460555512*^9}, { 3.4925175472201295`*^9, 3.492517597933051*^9}, {3.492518873687496*^9, 3.492518874889224*^9}, {3.4925189176106544`*^9, 3.4925189605223584`*^9}, { 3.4925194897633696`*^9, 3.49251956653376*^9}, {3.4925197590606003`*^9, 3.4925197837460957`*^9}, {3.4925204148635983`*^9, 3.492520419460208*^9}, { 3.4925205526717567`*^9, 3.492520561294155*^9}, {3.492522162391488*^9, 3.4925221679194365`*^9}, {3.492531167107565*^9, 3.4925311961092677`*^9}, { 3.49253211714365*^9, 3.492532152013791*^9}, {3.4925321821471205`*^9, 3.492532291634556*^9}, {3.492532325713559*^9, 3.4925323356378293`*^9}, { 3.4925323669027863`*^9, 3.4925324973403463`*^9}, {3.4925327186385574`*^9, 3.4925327346615973`*^9}, {3.4925327793057923`*^9, 3.492532782981077*^9}, { 3.492532852571143*^9, 3.4925328533622804`*^9}, {3.4925329144501204`*^9, 3.4925330995462756`*^9}, {3.492533139663962*^9, 3.492533142518066*^9}, { 3.4925332367335415`*^9, 3.4925332671973457`*^9}, {3.492533312041829*^9, 3.4925333187715063`*^9}, {3.4925333492252965`*^9, 3.4925334183246565`*^9}, {3.4925334999219875`*^9, 3.492533605884354*^9}, { 3.492541976871378*^9, 3.492541982529514*^9}, {3.4925420513985424`*^9, 3.4925421408271346`*^9}, {3.4925421824870386`*^9, 3.492542284944365*^9}, { 3.4925423477947397`*^9, 3.492542358069514*^9}, {3.492542391227192*^9, 3.4925423944418144`*^9}, {3.4925424623895187`*^9, 3.4925424757587423`*^9}, {3.492542514975133*^9, 3.4925425158163424`*^9}, { 3.492542564296053*^9, 3.4925425971733284`*^9}, {3.492698138447184*^9, 3.4926981626219454`*^9}, {3.4927018364584103`*^9, 3.492701844830448*^9}, 3.4927025707010098`*^9, {3.492702605981741*^9, 3.49270260659262*^9}, { 3.4927026692126627`*^9, 3.492702669553152*^9}, {3.492725726818954*^9, 3.492725728952021*^9}, 3.492725824960074*^9, {3.4927264126150804`*^9, 3.492726419565074*^9}, {3.4931286675676713`*^9, 3.49312866849901*^9}, { 3.493379202558392*^9, 3.4933793049456177`*^9}, {3.49337968228821*^9, 3.493379699693237*^9}, {3.4933808044918594`*^9, 3.4933808064747105`*^9}, { 3.4933808668114705`*^9, 3.493380886099205*^9}, 3.4933811162000737`*^9, { 3.493381158200467*^9, 3.4933812481898656`*^9}, {3.4933814214289713`*^9, 3.4933815599080944`*^9}, 3.4933888787371216`*^9, {3.493388928248315*^9, 3.493389010987288*^9}, 3.493389045216507*^9, {3.493389110600525*^9, 3.493389148114467*^9}, {3.4933892362712307`*^9, 3.4933893037082*^9}, { 3.493389357355341*^9, 3.4933893884400387`*^9}, 3.493389617339179*^9, { 3.4933897523833632`*^9, 3.4933897589928675`*^9}, 3.493389830796115*^9, { 3.49338989566638*^9, 3.4933899159443817`*^9}, {3.493389998081728*^9, 3.4933900800195484`*^9}, {3.493390224407168*^9, 3.4933902609096556`*^9}, { 3.4933903002462187`*^9, 3.493390501595745*^9}, {3.4933914914998307`*^9, 3.493391506142449*^9}, {3.4933915777941594`*^9, 3.493391593907329*^9}, { 3.4933916617258153`*^9, 3.4933916921478024`*^9}, {3.4933917408236523`*^9, 3.4933917770156937`*^9}, {3.4933918240833735`*^9, 3.49339189624714*^9}, { 3.4933920176316824`*^9, 3.493392075224497*^9}, {3.4934026889037447`*^9, 3.493402694171319*^9}, {3.4934043842415204`*^9, 3.4934044108597956`*^9}, { 3.4934044521691957`*^9, 3.493404519295719*^9}, {3.4934045944137335`*^9, 3.493404603596938*^9}, {3.4934157408265553`*^9, 3.4934158043679237`*^9}, { 3.493417776123168*^9, 3.4934178496589074`*^9}, {3.4934202118255363`*^9, 3.493420257060581*^9}, {3.4934203244975505`*^9, 3.493420332148552*^9}, { 3.493420394658437*^9, 3.493420395129114*^9}, {3.4934222485141506`*^9, 3.493422264447061*^9}, {3.4934223093215876`*^9, 3.4934223384634914`*^9}, { 3.493422399210842*^9, 3.4934225211762195`*^9}, {3.493422689187808*^9, 3.4934227712357874`*^9}, {3.493423147887386*^9, 3.4934232863765235`*^9}, { 3.4934243872394867`*^9, 3.493424398165197*^9}, {3.5079815580143337`*^9, 3.507981589785018*^9}, {3.508782334457738*^9, 3.5087823466252337`*^9}, { 3.508782700143568*^9, 3.5087827118203583`*^9}, {3.5087909837718678`*^9, 3.508791007325736*^9}, {3.508791067151762*^9, 3.5087910740016117`*^9}, { 3.508791235423725*^9, 3.508791263914693*^9}, {3.508792044286813*^9, 3.5087921068868275`*^9}, 3.508792174323797*^9, {3.5087951388467073`*^9, 3.5087951577338657`*^9}, {3.508795883507477*^9, 3.5087959260186048`*^9}, { 3.5091973653984823`*^9, 3.50919746633362*^9}, {3.5106571945382643`*^9, 3.5106572028650045`*^9}, {3.519419993921773*^9, 3.5194199943687987`*^9}, { 3.519671549984226*^9, 3.519671562278929*^9}, {3.565001329049471*^9, 3.565001329750212*^9}, 3.565001469167613*^9, 3.565001572035484*^9, { 3.565003082579922*^9, 3.565003105068803*^9}, {3.568979756054144*^9, 3.56897977835273*^9}, {3.56897982606404*^9, 3.568979848118304*^9}, 3.568979879022638*^9, {3.568979930131286*^9, 3.568979934555207*^9}, { 3.568980092914545*^9, 3.568980261011427*^9}, {3.568980292178348*^9, 3.568980388119768*^9}, {3.568980531418148*^9, 3.56898053204978*^9}, { 3.568980590229932*^9, 3.568980604478023*^9}, {3.568980636944539*^9, 3.568980702647631*^9}, {3.568981350722364*^9, 3.568981401087091*^9}, { 3.568981493630407*^9, 3.56898150848337*^9}, {3.568981570556911*^9, 3.568981600280914*^9}, 3.568981632318574*^9, 3.568981674193201*^9, { 3.568984087443889*^9, 3.568984110449109*^9}, {3.568984318202701*^9, 3.568984346684358*^9}, 3.568984419367345*^9, {3.568989826483344*^9, 3.568989835814862*^9}, {3.568989973602585*^9, 3.568989979364197*^9}, { 3.568990105148594*^9, 3.568990111734929*^9}, {3.568990166545008*^9, 3.568990296216722*^9}, {3.568990657594977*^9, 3.568990669316852*^9}, { 3.568995030676928*^9, 3.568995083681195*^9}, {3.568995130889144*^9, 3.568995182586356*^9}, {3.568995236164193*^9, 3.568995256799769*^9}, { 3.569667383679337*^9, 3.569667402209241*^9}, {3.569667528433186*^9, 3.569667657569015*^9}, {3.569671962930781*^9, 3.569671992065278*^9}, { 3.569672281423388*^9, 3.569672282728389*^9}, {3.569847788445811*^9, 3.569847863859531*^9}, {3.56984790457609*^9, 3.569847916444169*^9}, { 3.569847962415739*^9, 3.56984796984081*^9}, {3.569848018736408*^9, 3.569848059446916*^9}, {3.569848090727698*^9, 3.56984809717158*^9}, { 3.569848240582192*^9, 3.569848364336022*^9}, {3.569848427061889*^9, 3.569848495634021*^9}, {3.569848674418965*^9, 3.569848675326047*^9}, { 3.569848767770284*^9, 3.569848772305714*^9}, {3.569848817805023*^9, 3.569848830461098*^9}, {3.56984886507733*^9, 3.569848892058406*^9}, { 3.569848934971752*^9, 3.569848951815032*^9}, {3.569849262532854*^9, 3.569849286272214*^9}, {3.569853969631977*^9, 3.569854018286762*^9}, { 3.569854070261935*^9, 3.569854104931659*^9}, 3.569854832188426*^9, 3.569855620709685*^9, {3.569855797291881*^9, 3.569855817052497*^9}, { 3.572048900258453*^9, 3.572048907445751*^9}, 3.596709807996814*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"regularESSs", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"regularESSs", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"regularESSs", "[", RowBox[{"points_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "stable", ",", "unstable"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"stable", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"unstable", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"quasiStrictEqQ", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F", ",", "method", ",", "accuracy"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stable", "=", RowBox[{"Append", "[", RowBox[{"stable", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstable", "=", RowBox[{"Append", "[", RowBox[{"unstable", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"stable", ",", "unstable"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4934023382595425`*^9, 3.4934023397216454`*^9}, { 3.4934027092429905`*^9, 3.4934028096673937`*^9}, {3.4934028463501415`*^9, 3.4934028999472103`*^9}, {3.4934030152329826`*^9, 3.493403043854138*^9}, { 3.4934035796445665`*^9, 3.4934035883370657`*^9}, {3.4934036631446342`*^9, 3.4934036819216337`*^9}, {3.4934037368706465`*^9, 3.493403856492655*^9}, { 3.493403919803692*^9, 3.4934040549380054`*^9}, {3.4934040986809044`*^9, 3.4934041010643315`*^9}, {3.4934043046370544`*^9, 3.4934043161736436`*^9}, {3.507981594561887*^9, 3.507981594847297*^9}, { 3.510657203633524*^9, 3.5106572061615486`*^9}, {3.510666318112857*^9, 3.510666319454787*^9}, 3.5106664544689274`*^9, {3.510666521715624*^9, 3.5106665420849133`*^9}, {3.5106665869093676`*^9, 3.5106666926313887`*^9}, {3.5106667884892254`*^9, 3.510666804452179*^9}, { 3.5106668412951565`*^9, 3.510666878548724*^9}, {3.5106669919117327`*^9, 3.510666995657118*^9}, {3.5106726073219995`*^9, 3.5106726216926637`*^9}, { 3.510672813788884*^9, 3.510672814700195*^9}, {3.5106738885644712`*^9, 3.5106738955745516`*^9}, {3.5106739339297037`*^9, 3.51067394684828*^9}, { 3.510674205960865*^9, 3.510674283001644*^9}, 3.565002412012507*^9, 3.565003101171706*^9, {3.565003143762287*^9, 3.565003145252596*^9}, 3.568975999995614*^9, {3.568983718127837*^9, 3.56898373574245*^9}, { 3.568995439794636*^9, 3.568995440482638*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Stability Sets Routine", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928841378877497`*^9, 3.4928841991608562`*^9}, {3.492884378623911*^9, 3.492884381042389*^9}, {3.4934025879886355`*^9, 3.493402592214712*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"stabilitySets", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"stabilitySets", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stabilitySets", "[", RowBox[{"points_", ",", "dyn_", ",", "F_", ",", " ", RowBox[{"method_:", "\"\\""}], ",", " ", RowBox[{"n_:", "10"}], ",", RowBox[{"T_:", "10"}], ",", " ", RowBox[{"delta_:", ".01"}], ",", " ", RowBox[{"eps_:", ".05"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "stablepoints", ",", "unstablepoints", ",", "flag"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"stablepoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"smoothStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F"}], "]"}], "==", "1"}], ","}], " "}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"smoothStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Replicator", ",", "F"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Append", "[", RowBox[{"unstablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ","}], " "}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Append", "[", RowBox[{"unstablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Append", "[", RowBox[{"unstablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"quasiStrictEqQ", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"regularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "the", " ", "proofs", " ", "in", " ", "chapter", " ", "8", " ", "go", " ", "in", " ", "one", " ", "direction", " ", "only"}], ";", " ", RowBox[{ RowBox[{"if", " ", RowBox[{"it", "'"}], "s", " ", "not", " ", "an", " ", "ESS", " ", "we", " ", RowBox[{"don", "'"}], "t", " ", "know", " ", "if", " ", RowBox[{"it", "'"}], "s", " ", "unstable", "\[IndentingNewLine]", "flag"}], "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ","}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"Or", "[", RowBox[{ RowBox[{"flag", "==", "0"}], ",", RowBox[{"flag", "==", RowBox[{"-", "1"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Append", "[", RowBox[{"unstablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"numericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Append", "[", RowBox[{"stablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Append", "[", RowBox[{"unstablepoints", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"stablepoints", ",", "unstablepoints"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4927014886037645`*^9, 3.4927015660595956`*^9}, { 3.492701596373184*^9, 3.4927016910393076`*^9}, {3.4927017510255637`*^9, 3.492701802529623*^9}, {3.4927019066493397`*^9, 3.4927019097738323`*^9}, 3.492702004740388*^9, {3.492702051217218*^9, 3.492702155071621*^9}, { 3.4927021862464485`*^9, 3.4927024897446003`*^9}, {3.492702653990775*^9, 3.4927026814202166`*^9}, {3.4927027199055557`*^9, 3.4927028513145123`*^9}, {3.4927028962290964`*^9, 3.492702962334151*^9}, { 3.4928108178909955`*^9, 3.492810822707922*^9}, {3.492810907419731*^9, 3.492810912977723*^9}, {3.4928177103469276`*^9, 3.492817712129491*^9}, { 3.49283163300179*^9, 3.492831678537267*^9}, {3.4928569541535935`*^9, 3.492856956707266*^9}, {3.493401751716135*^9, 3.4934018535725975`*^9}, 3.4934022637824497`*^9, {3.4934022987026625`*^9, 3.4934023125926356`*^9}, { 3.4934024462348037`*^9, 3.4934024626984773`*^9}, {3.4934033676998053`*^9, 3.4934034307504673`*^9}, {3.493403485409063*^9, 3.4934035066496053`*^9}, { 3.4934036151456146`*^9, 3.4934036387295265`*^9}, {3.495989676751183*^9, 3.4959895112568703`*^9}, {3.4959903253786573`*^9, 3.495990428166459*^9}, { 3.495990619000865*^9, 3.4959906655678253`*^9}, {3.5079272779825125`*^9, 3.507927298151514*^9}, {3.5079815991885395`*^9, 3.507981615501997*^9}, { 3.508764909442835*^9, 3.5087649138792143`*^9}, 3.508765050425558*^9, { 3.5087652861445055`*^9, 3.5087652861945777`*^9}, {3.508767802342621*^9, 3.508767838154115*^9}, {3.5087710560812674`*^9, 3.508771062610656*^9}, { 3.508771135765848*^9, 3.508771146230896*^9}, {3.508771228018501*^9, 3.508771286182136*^9}, {3.5087713201710095`*^9, 3.5087713316575265`*^9}, { 3.508771570170491*^9, 3.508771580265006*^9}, {3.508779364537202*^9, 3.508779368593034*^9}, {3.5087794324949203`*^9, 3.5087794404363394`*^9}, { 3.508781684262803*^9, 3.508781692544712*^9}, {3.5087822409933424`*^9, 3.5087822416042213`*^9}, {3.508782271697493*^9, 3.5087822809407845`*^9}, { 3.508782768341632*^9, 3.508782768732194*^9}, 3.5087842802807617`*^9, { 3.5087903104686375`*^9, 3.5087903446978564`*^9}, {3.509197501934812*^9, 3.5091975396290135`*^9}, {3.509197572015583*^9, 3.509197692428729*^9}, { 3.509197742360527*^9, 3.5091978036786985`*^9}, {3.5106572191822433`*^9, 3.5106572444920964`*^9}, {3.510942415361717*^9, 3.5109424213302994`*^9}, { 3.5109427296736755`*^9, 3.51094273494125*^9}, {3.5196718445260725`*^9, 3.519671912969988*^9}, {3.521051877011013*^9, 3.521051911009958*^9}, { 3.521052016100969*^9, 3.521052031556853*^9}, {3.5210520798266134`*^9, 3.5210520801796336`*^9}, 3.56500241292894*^9, {3.565002931478158*^9, 3.565002932223514*^9}, {3.565003025915402*^9, 3.565003028570568*^9}, { 3.565003102011638*^9, 3.565003102646236*^9}, {3.565003185482682*^9, 3.56500319117692*^9}, {3.569857426142355*^9, 3.569857571570211*^9}, { 3.569857629795328*^9, 3.569857689601426*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Basins", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928841378877497`*^9, 3.4928841991608562`*^9}, {3.492884378623911*^9, 3.492884381042389*^9}, {3.4934025879886355`*^9, 3.493402592214712*^9}, { 3.568976409824978*^9, 3.568976410977716*^9}}, CellTags->{"initcell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"basinsTrajectories", "[", RowBox[{"unstableRestPoints_", ",", "dyn_", ",", "F_", ",", RowBox[{"altopt_:", "False"}], ",", RowBox[{"T_:", "20"}], ",", RowBox[{"n_:", "100"}], ",", RowBox[{"delta_:", ".05"}], ",", RowBox[{"eps_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "l", ",", "pop", ",", "sample", ",", "trajectories", ",", "solutions", ",", "nearTrajectories", ",", "selectedTrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"unstableRestPoints", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"selectedTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstableRestPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sampleAround", "[", RowBox[{ RowBox[{"unstableRestPoints", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", "eps", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"solutions", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"difEqSol", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "dyn", ",", "F", ",", "0", ",", "T", ",", "\"\\"", ",", "altopt", ",", "accuracy"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"trajectories", "=", RowBox[{ RowBox[{"X", "[", "0", "]"}], " ", "/.", " ", "solutions"}]}], ";", "\[IndentingNewLine]", RowBox[{"nearTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstableRestPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"k", "==", "j"}], " ", ",", RowBox[{ RowBox[{"++", "k"}], ";", RowBox[{"Continue", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"l", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"l", "<=", "n"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"j", ",", RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{ RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}], "-", RowBox[{"unstableRestPoints", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nearTrajectories", "=", RowBox[{"Append", "[", RowBox[{"nearTrajectories", ",", RowBox[{"{", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "0", ",", RowBox[{"trajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"++", "l"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"++", "k"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"selectedTrajectories", "=", RowBox[{"Join", "[", RowBox[{"selectedTrajectories", ",", "nearTrajectories"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "selectedTrajectories"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.484183903537105*^9}, {3.484184050157935*^9, 3.4841840598418603`*^9}, { 3.484184202196556*^9, 3.484184276543462*^9}, {3.484185048142967*^9, 3.48418507989863*^9}, {3.4841851179934072`*^9, 3.484185147005124*^9}, { 3.4841851803330474`*^9, 3.4841854739051833`*^9}, {3.4841855082345467`*^9, 3.4841855210730076`*^9}, {3.484185553689908*^9, 3.4841855662579803`*^9}, { 3.4841856072068615`*^9, 3.484185612424364*^9}, {3.4841857524657335`*^9, 3.4841857611782618`*^9}, {3.484185878627145*^9, 3.4841860989940166`*^9}, { 3.4841861604624043`*^9, 3.48418623155463*^9}, {3.484186515222524*^9, 3.484186527760553*^9}, {3.4841870198381257`*^9, 3.4841870347796106`*^9}, { 3.484187090619905*^9, 3.484187096688631*^9}, {3.4841875039342217`*^9, 3.484187561276676*^9}, {3.4841876012942185`*^9, 3.4841876089151773`*^9}, { 3.4841876678399067`*^9, 3.4841876939975195`*^9}, {3.484187989031758*^9, 3.4841879894223194`*^9}, {3.4841881134500995`*^9, 3.484188124192093*^9}, { 3.484188180718254*^9, 3.484188280804389*^9}, {3.4841883492534833`*^9, 3.4841883562785454`*^9}, {3.484188418724679*^9, 3.484188458444105*^9}, { 3.4841885037078524`*^9, 3.4841885041585*^9}, {3.4841885355986986`*^9, 3.48418856540139*^9}, {3.4841886318122325`*^9, 3.484188700713552*^9}, { 3.484188791021244*^9, 3.484188798979134*^9}, {3.4841888309515514`*^9, 3.4841888892328873`*^9}, {3.484188961362021*^9, 3.4841890001691256`*^9}, { 3.484189040715145*^9, 3.484189042272549*^9}, {3.4841891620000944`*^9, 3.4841891680396037`*^9}, {3.48418921743801*^9, 3.4841892289717913`*^9}, { 3.484189397814725*^9, 3.4841893985758195`*^9}, {3.4841894572301607`*^9, 3.484189469567901*^9}, {3.484193276181543*^9, 3.4841932937768435`*^9}, 3.4841936330647154`*^9, {3.4841940542603655`*^9, 3.484194054600855*^9}, { 3.4922765228741016`*^9, 3.492276525537932*^9}, {3.4922779009556856`*^9, 3.4922779262620745`*^9}, {3.4922799142055645`*^9, 3.492279932281557*^9}, { 3.4923527693243313`*^9, 3.4923527725689974`*^9}, {3.4923528306124597`*^9, 3.492352838553879*^9}, {3.49235287909217*^9, 3.492352910717645*^9}, { 3.4923582246292667`*^9, 3.49235822887035*^9}, {3.4926844654513397`*^9, 3.492684521962599*^9}, {3.492685077020733*^9, 3.4926850781223173`*^9}, { 3.492685142985586*^9, 3.4926852013394947`*^9}, 3.4926855591439924`*^9, 3.4926855929726353`*^9, {3.4926860432701316`*^9, 3.492686054746634*^9}, { 3.492686140950589*^9, 3.492686143464204*^9}, {3.4926913201029124`*^9, 3.4926913260915236`*^9}, {3.492692358105487*^9, 3.492692407336277*^9}, { 3.4926961218208246`*^9, 3.4926961227730904`*^9}, {3.4926968034438505`*^9, 3.4926968065964575`*^9}, {3.4928091608382707`*^9, 3.4928091734263716`*^9}, {3.492810799324298*^9, 3.492810804411613*^9}, { 3.4928109236931314`*^9, 3.492810931243989*^9}, {3.4928110307670965`*^9, 3.4928110425840883`*^9}, {3.492817595501789*^9, 3.4928175964331284`*^9}, { 3.49329613121336*^9, 3.4932961485783296`*^9}, {3.4932961902382336`*^9, 3.4932962754107056`*^9}, {3.49329661716212*^9, 3.493296648517206*^9}, { 3.4932966881542015`*^9, 3.4932966990498686`*^9}, 3.493296890705456*^9, { 3.493296962739035*^9, 3.4932969834087567`*^9}, {3.5074683538533583`*^9, 3.5074683559663963`*^9}, {3.5079500767284184`*^9, 3.5079500904731827`*^9}, 3.507950165716377*^9, 3.507950214221123*^9, {3.5079820225873575`*^9, 3.507982026988686*^9}, {3.507987376281049*^9, 3.507987393146594*^9}, { 3.508020170592698*^9, 3.508020176220791*^9}, {3.50802048083881*^9, 3.508020482711503*^9}, 3.558645293068038*^9, 3.565000637845718*^9, { 3.565001023809307*^9, 3.565001029185722*^9}, 3.565001618935831*^9, { 3.568540675541914*^9, 3.568540714890259*^9}, {3.568541294545564*^9, 3.568541305917263*^9}, {3.568549103244784*^9, 3.56854915303547*^9}, { 3.568549203030602*^9, 3.568549213857203*^9}, {3.56854927651383*^9, 3.568549287341435*^9}, {3.568554063582257*^9, 3.568554095245404*^9}, 3.568554132657687*^9, {3.568554177307105*^9, 3.568554274630998*^9}, { 3.568554315238639*^9, 3.568554349763232*^9}, {3.568554593777414*^9, 3.568554607371531*^9}, {3.568968473489794*^9, 3.568968478990284*^9}, { 3.56897544073377*^9, 3.568975486285633*^9}, {3.568975653424182*^9, 3.568975654871308*^9}, {3.568975825466399*^9, 3.56897583035146*^9}, { 3.568976073923385*^9, 3.568976080165808*^9}, {3.568976247615922*^9, 3.568976251493802*^9}, {3.568976316267787*^9, 3.568976322936159*^9}, 3.568977663614675*^9, {3.56985631347883*^9, 3.569856316563644*^9}, { 3.569857804771395*^9, 3.569857831485184*^9}, 3.569858232754135*^9, { 3.569858648429554*^9, 3.569858650653075*^9}, {3.569858714324905*^9, 3.569858718071754*^9}, 3.569859449648935*^9, {3.580642442745793*^9, 3.580642459064349*^9}, {3.580642496973999*^9, 3.580642520026742*^9}, { 3.580642558177699*^9, 3.580642562225967*^9}}, CellTags->{"initcell", "2dexclusive"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"basinsBoundaryTrajectories", "[", RowBox[{"unstableRestPoints_", ",", "dyn_", ",", "F_", ",", RowBox[{"altopt_:", "False"}], ",", RowBox[{"T_:", "20"}], ",", RowBox[{"n_:", "100"}], ",", RowBox[{"delta_:", ".05"}], ",", RowBox[{"eps_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "t0", ",", "j", ",", "k", ",", "l", ",", "pop", ",", "sample", ",", "trajectories", ",", "nearTrajectories", ",", "selectedTrajectories", ",", "solutions", ",", "point", ",", "possibleboundaries", ",", "boundaryvector1", ",", "boundaryvector2", ",", "doublebreak", ",", "nextpoint", ",", "repeated", ",", "ntrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"selectedTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"unstableRestPoints", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstableRestPoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "when", " ", "the", " ", "rest", " ", "point", " ", "is", " ", "in", " ", "the", " ", "boundary"}], ",", " ", RowBox[{ RowBox[{"there", "'"}], "s", " ", "a", " ", "trajectory", " ", "that", " ", "starts", " ", "on", " ", "the", " ", "edge", " ", "of", " ", "the", " ", "simplex", " ", "and", " ", "lands", " ", "on", " ", "it"}], ",", " ", RowBox[{"find", " ", "it"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"sampleAround", "[", RowBox[{ RowBox[{"unstableRestPoints", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", "eps", ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sample", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", RowBox[{"p", ",", "k"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"solutions", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"difEqSol", "[", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "dyn", ",", "F", ",", "0", ",", "T", ",", "\"\\"", ",", "altopt", ",", "accuracy"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"trajectories", "=", RowBox[{ RowBox[{"X", "[", "0", "]"}], " ", "/.", " ", "solutions"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "trajectories", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"nearTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "I", " ", "was", " ", "planning", " ", "to", " ", "use", " ", "this", " ", "to", " ", "chck", " ", "for", " ", "connections", " ", "to", " ", "every", " ", "possible", " ", "boundary", " ", "but", " ", "then", " ", "dropped", " ", "the", " ", "idea"}], ";", " ", RowBox[{ "the", " ", "code", " ", "could", " ", "be", " ", "useful", " ", "in", " ", "the", " ", "future", " ", "though"}], ";", " ", "\[IndentingNewLine]", RowBox[{"possibleboundaries", " ", "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"unstableRestPoints", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"boundaryvector1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"checkBoundary", "[", RowBox[{ RowBox[{"unstableRestPoints", "[", RowBox[{"[", RowBox[{"j", ",", "p"}], "]"}], "]"}], ",", "delta"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "boundaryvector1", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"l", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"ntrajectories", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"l", "<=", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", "=", "T"}], ";", "\[IndentingNewLine]", RowBox[{"repeated", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"t0", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", "=", RowBox[{ RowBox[{"X", "[", "t0", "]"}], " ", "/.", " ", RowBox[{"solutions", "[", RowBox[{"[", "l", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"point", "=", RowBox[{"point", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "point", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"boundaryvector2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"checkBoundary", "[", RowBox[{ RowBox[{"point", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "delta"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"boundaryvector1", ",", "boundaryvector2"}], "}"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", "nearTrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"stateNorm", "[", RowBox[{ RowBox[{"nearTrajectories", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", "point"}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"repeated", " ", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "k"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Goto", "[", "nextpoint", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", "boundaryvector2", "]"}], ">", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"Max", "[", RowBox[{"boundaryvector2", "-", "boundaryvector1"}], "]"}], "==", "1"}], " ", "&&", " ", RowBox[{"repeated", "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nearTrajectories", "=", RowBox[{"Append", "[", RowBox[{"nearTrajectories", ",", RowBox[{"{", RowBox[{ RowBox[{"sample", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "t0", ",", "point"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "nearTrajectories", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "t0"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ntrajectories", "++"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"t0", "=", " ", RowBox[{"t0", "-", "delta"}]}], " ", ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "i"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "the", " ", "following", " ", "is", " ", "usuful", " ", "only", " ", "in", " ", "planar", " ", "system", " ", "where", " ", "we", " ", "know", " ", "there", " ", "can", " ", "be", " ", "at", " ", "most", " ", "2", " ", "trajectories", " ", "converging", " ", "to", " ", "a", " ", "saddle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ntrajectories", ">=", "2"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Label", "[", "nextpoint", "]"}], ";", "\[IndentingNewLine]", RowBox[{"l", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"selectedTrajectories", "=", RowBox[{"Join", "[", RowBox[{"selectedTrajectories", ",", "nearTrajectories"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"unstableRestPoints", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "selectedTrajectories", "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "selectedTrajectories"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922553630393763`*^9, 3.4922554001026707`*^9}, { 3.492255458957299*^9, 3.492255477523997*^9}, {3.4922555114327555`*^9, 3.49225551802223*^9}, {3.4922561115501184`*^9, 3.492256111835529*^9}, { 3.4922561861323624`*^9, 3.4922562351778865`*^9}, {3.4922567776078625`*^9, 3.49225680997941*^9}, {3.492256856621478*^9, 3.4922568607524185`*^9}, { 3.4922569017463646`*^9, 3.492256903458827*^9}, {3.4922574344573655`*^9, 3.4922574774642067`*^9}, 3.492257511683411*^9, {3.4922575873021455`*^9, 3.4922575915081935`*^9}, {3.4922576345450773`*^9, 3.4922576361523886`*^9}, {3.4922577089921274`*^9, 3.4922577349043875`*^9}, {3.4922577813661957`*^9, 3.4922577970036817`*^9}, {3.4922578582317233`*^9, 3.492258104811287*^9}, { 3.4922582167822933`*^9, 3.492258222956171*^9}, {3.492258267615388*^9, 3.492258284514688*^9}, {3.4922583625368786`*^9, 3.4922585414687405`*^9}, { 3.4922585801763496`*^9, 3.492258597300974*^9}, {3.4922586346821055`*^9, 3.49225863778121*^9}, {3.4922587889633007`*^9, 3.492258822561286*^9}, { 3.4922591682062116`*^9, 3.4922591748357444`*^9}, {3.4922677733927565`*^9, 3.4922677810637875`*^9}, {3.4922678889689474`*^9, 3.4922679150564594`*^9}, {3.4922682722300496`*^9, 3.4922682916780148`*^9}, {3.4922683364023247`*^9, 3.4922683869850593`*^9}, {3.4922685407862144`*^9, 3.4922686104163375`*^9}, {3.4922688540550103`*^9, 3.4922688885446043`*^9}, {3.4922689982723846`*^9, 3.4922690011465178`*^9}, {3.4922690345645704`*^9, 3.4922690554145513`*^9}, {3.4922691619277096`*^9, 3.4922691646315975`*^9}, {3.4922691951755176`*^9, 3.492269199171263*^9}, { 3.4922693039819736`*^9, 3.4922693151480293`*^9}, {3.4922717879788537`*^9, 3.4922718068459835`*^9}, {3.492271905524228*^9, 3.492271974807595*^9}, { 3.4922720139350705`*^9, 3.4922720176504126`*^9}, {3.49227205649627*^9, 3.4922720587294817`*^9}, {3.492272094837323*^9, 3.492272233471791*^9}, { 3.492272263854729*^9, 3.492272265707393*^9}, {3.4922775630197573`*^9, 3.4922775648223495`*^9}, {3.4922777111828055`*^9, 3.492277851774967*^9}, { 3.4922779610821433`*^9, 3.492278001922234*^9}, {3.4922780475113907`*^9, 3.4922780478919373`*^9}, {3.4922780991957088`*^9, 3.492278102670706*^9}, { 3.4922793526180415`*^9, 3.4922793642247314`*^9}, {3.492279795174406*^9, 3.49227984953257*^9}, {3.492283168999849*^9, 3.492283198322012*^9}, { 3.492283622902529*^9, 3.4922836283503623`*^9}, {3.492283835113741*^9, 3.4922838602598996`*^9}, {3.492284158448674*^9, 3.49228419940757*^9}, { 3.4922842429001093`*^9, 3.4922842431604834`*^9}, {3.492284476365816*^9, 3.49228447721704*^9}, {3.4922845080413637`*^9, 3.4922845131186647`*^9}, { 3.4922845887073555`*^9, 3.4922846031080627`*^9}, {3.4922846502057858`*^9, 3.4922846653175154`*^9}, 3.492284708649824*^9, {3.4922847473755093`*^9, 3.492284761485799*^9}, {3.4922849605119843`*^9, 3.492285042740223*^9}, { 3.492285127041442*^9, 3.4922851542705956`*^9}, {3.4922852124742885`*^9, 3.492285292629546*^9}, {3.492285357252469*^9, 3.492285357973506*^9}, { 3.492285429416236*^9, 3.4922854401817155`*^9}, {3.4922854775654707`*^9, 3.492285526135311*^9}, {3.492285661610114*^9, 3.4922857370586033`*^9}, { 3.492285940961802*^9, 3.492285982651749*^9}, {3.492286301329986*^9, 3.4922863187650566`*^9}, {3.492287074361551*^9, 3.49228710483537*^9}, { 3.492287296470928*^9, 3.4922872977928295`*^9}, {3.492352304185495*^9, 3.4923523318152246`*^9}, {3.492352404930359*^9, 3.492352419501311*^9}, { 3.492685079324045*^9, 3.492685080215327*^9}, 3.49268529054777*^9, { 3.49268616214106*^9, 3.4926861762914066`*^9}, {3.49268631026405*^9, 3.4926863285002728`*^9}, {3.4926913636355095`*^9, 3.492691373760068*^9}, { 3.4926924398630486`*^9, 3.4926924530119553`*^9}, 3.492696005369834*^9, { 3.492696128681919*^9, 3.4926961292727685`*^9}, {3.492696830595831*^9, 3.492696831356925*^9}, {3.492809174748272*^9, 3.492809180356336*^9}, { 3.492810804982434*^9, 3.4928108080568542`*^9}, {3.4928109344886546`*^9, 3.4928109393856964`*^9}, {3.4928110493738513`*^9, 3.4928110704842067`*^9}, {3.4928176022715235`*^9, 3.492817603112733*^9}, 3.492828085485645*^9, {3.4931236337894535`*^9, 3.4931236631016026`*^9}, { 3.4931539420276847`*^9, 3.493153967574419*^9}, 3.4932635250828433`*^9, { 3.493264538630253*^9, 3.493264539411376*^9}, {3.4932646398858514`*^9, 3.493264641558256*^9}, {3.4932647958100595`*^9, 3.493264796320794*^9}, { 3.4932648318919425`*^9, 3.493264849627445*^9}, {3.4932648815533524`*^9, 3.4932649045464144`*^9}, {3.4932650956411953`*^9, 3.493265126665807*^9}, { 3.493265162377157*^9, 3.4932652208912964`*^9}, 3.4932658604208946`*^9, { 3.4932659268363953`*^9, 3.493265942448845*^9}, 3.4932663594284325`*^9, { 3.493266415929677*^9, 3.4932665022137475`*^9}, 3.4932665429623413`*^9, { 3.493266573556333*^9, 3.493266605652485*^9}, {3.493266646330978*^9, 3.4932666746617155`*^9}, {3.493266709241439*^9, 3.4932667410672016`*^9}, { 3.4932667902278914`*^9, 3.493266797328101*^9}, {3.493266871014056*^9, 3.4932668762115297`*^9}, 3.4932669902054453`*^9, {3.4932670757184067`*^9, 3.493267079854354*^9}, {3.4932671832830772`*^9, 3.493267212024405*^9}, { 3.493267273512821*^9, 3.4932672783698053`*^9}, {3.493267338526306*^9, 3.4932673479598703`*^9}, {3.49326741748985*^9, 3.4932674291365967`*^9}, { 3.493267619430226*^9, 3.493267672987237*^9}, {3.493268112609348*^9, 3.493268137579627*^9}, {3.4932682491808305`*^9, 3.493268262640184*^9}, { 3.4932682979509583`*^9, 3.4932683172987795`*^9}, {3.507925167530729*^9, 3.507925169783969*^9}, 3.507949929982408*^9, {3.5079820313449497`*^9, 3.5079820427463446`*^9}, {3.5079874000620203`*^9, 3.5079874168919363`*^9}, {3.5586452972922792`*^9, 3.5586453006194696`*^9}, 3.565000677177192*^9, {3.565001030382301*^9, 3.565001034954578*^9}, { 3.565001572780021*^9, 3.565001573404288*^9}, 3.565001619784617*^9, { 3.568554646209339*^9, 3.568554668606709*^9}, {3.568555013265389*^9, 3.568555071900089*^9}, {3.568555132042997*^9, 3.568555137355877*^9}, { 3.568968480178229*^9, 3.56896848452256*^9}, {3.568975658892644*^9, 3.568975693135242*^9}, {3.568975799141006*^9, 3.568975857651632*^9}, 3.568976082130552*^9, {3.568976252627871*^9, 3.568976257786873*^9}, { 3.568976324665781*^9, 3.568976331038631*^9}, 3.568977664573068*^9, { 3.569856325343784*^9, 3.569856327363824*^9}, {3.569857850044725*^9, 3.569857863034458*^9}, 3.569857919387701*^9, {3.569858013239434*^9, 3.5698580327435*^9}, {3.569858080992153*^9, 3.569858124486505*^9}, { 3.569858188722214*^9, 3.56985821219769*^9}, {3.580642616827011*^9, 3.580642656399676*^9}, {3.580642887606928*^9, 3.580642891350063*^9}}, CellTags->{"initcell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Lyapunov Exponents", "Subsection", CellChangeTimes->{{3.492892437555563*^9, 3.49289243918791*^9}, { 3.55768972455593*^9, 3.557689730858928*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["MLE calculation", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928843532674503`*^9, 3.492884357158045*^9}, {3.55768975126227*^9, 3.557689759666702*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"maximumLyapunovExponent", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"maximumLyapunovExponent", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"maximumLyapunovExponent", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", "t0_", ",", RowBox[{"nsteps_:", "10000"}], ",", RowBox[{"nskip_:", "10000"}], ",", RowBox[{"step_:", ".01"}], ",", RowBox[{"separation_:", ".00000001"}], ",", RowBox[{"convergence_:", ".001"}], ",", RowBox[{"accuracy_:", "14"}], ",", RowBox[{"maxsteps_:", "100000"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pop", ",", "main", ",", "neighbor", ",", "d", ",", "mains", ",", "ds"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pop", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"main", "=", RowBox[{"difEqAdvance", "[", RowBox[{"x", ",", "dyn", ",", "F", ",", "t0", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}], ",", "accuracy", ",", "maxsteps", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"neighbor", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sampleAround", "[", RowBox[{ RowBox[{"main", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "separation", ",", "1", ",", "\"\\""}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pop"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mains", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ds", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"main", "=", RowBox[{"difEqAdvance", "[", RowBox[{"main", ",", "dyn", ",", "F", ",", "step", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}], ",", "accuracy", ",", "maxsteps", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"neighbor", "=", RowBox[{"difEqAdvance", "[", RowBox[{"neighbor", ",", "dyn", ",", "F", ",", "step", ",", RowBox[{"AOCharacterization", "[", "dyn", "]"}], ",", "accuracy", ",", "maxsteps", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"stateNorm", "[", RowBox[{"main", "-", "neighbor"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"neighbor", "=", RowBox[{"main", "+", RowBox[{ RowBox[{"(", RowBox[{"neighbor", "-", "main"}], ")"}], "*", RowBox[{"(", RowBox[{"separation", "/", "d"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mains", "=", RowBox[{"Append", "[", RowBox[{"mains", ",", "main"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ds", "=", RowBox[{"Append", "[", RowBox[{"ds", ",", "d"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"nskip", "+", "nsteps"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"stateNorm", "[", RowBox[{ RowBox[{"mains", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"mains", "[", RowBox[{"[", RowBox[{"nskip", "+", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"nskip", "+", "2"}], ",", RowBox[{"nskip", "+", "nsteps"}]}], "}"}]}], "]"}], "]"}], "<", "convergence"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Log", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"ds", ",", "nskip"}], "]"}], "/", "separation"}], "]"}], "]"}], "/", "nsteps"}], "/", "step"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.557689825087273*^9, 3.557689829737721*^9}, { 3.55768986090595*^9, 3.557689865115477*^9}, {3.557689933965158*^9, 3.557690051153547*^9}, {3.557690123479296*^9, 3.55769016110612*^9}, 3.557690233504489*^9, {3.557690641320119*^9, 3.557690683533776*^9}, { 3.557690796073244*^9, 3.557691079482815*^9}, {3.557691147449412*^9, 3.557691241809426*^9}, {3.557691280187725*^9, 3.55769134833166*^9}, { 3.557691401406796*^9, 3.557691545567169*^9}, {3.557691576478633*^9, 3.557691578986042*^9}, {3.557691634200618*^9, 3.557691642372945*^9}, { 3.557691679612523*^9, 3.557691695471587*^9}, {3.557691746954067*^9, 3.557692146608407*^9}, {3.557692204077006*^9, 3.557692214218333*^9}, { 3.557692420634619*^9, 3.557692421222586*^9}, {3.557692601129979*^9, 3.557692650976607*^9}, {3.557692693828507*^9, 3.557692819707601*^9}, { 3.557692849848672*^9, 3.557692902527301*^9}, {3.557692995506108*^9, 3.557693041473971*^9}, {3.557693125132984*^9, 3.557693227326541*^9}, { 3.55769326232499*^9, 3.557693268761132*^9}, {3.557693310039918*^9, 3.557693474844129*^9}, {3.55769351122605*^9, 3.55769366017373*^9}, { 3.557693732774461*^9, 3.557693739519095*^9}, 3.557749030400953*^9, { 3.5577500259738965`*^9, 3.557750026782943*^9}, {3.557750135533163*^9, 3.557750152668143*^9}, {3.557750283829645*^9, 3.557750289571973*^9}, 3.5577504282719064`*^9, {3.557826314812965*^9, 3.557826324675333*^9}, { 3.557826367928104*^9, 3.557826382165067*^9}, {3.557826435229482*^9, 3.557826524507753*^9}, {3.557826757968539*^9, 3.557826759417222*^9}, { 3.557826878378699*^9, 3.55782688012285*^9}, {3.557826960822969*^9, 3.557826983292569*^9}, {3.557827711407617*^9, 3.557827711741642*^9}, { 3.557827911421068*^9, 3.557827986219405*^9}, {3.557828021302705*^9, 3.557828029874697*^9}, {3.557828074215173*^9, 3.557828117553013*^9}, { 3.557828156793438*^9, 3.557828253685234*^9}, {3.557828299968526*^9, 3.557828442986501*^9}, {3.557828624124326*^9, 3.557828679567801*^9}, { 3.557828781757589*^9, 3.557828790165992*^9}, {3.557828860882966*^9, 3.557828935879261*^9}, {3.557828979971878*^9, 3.557829105699283*^9}, { 3.557829230752865*^9, 3.557829240065008*^9}, {3.557829334882939*^9, 3.557829339503142*^9}, {3.557834803211088*^9, 3.557834810435942*^9}, 3.557835434930441*^9, {3.557835469048785*^9, 3.557835483003693*^9}, { 3.557835528319031*^9, 3.557835531074498*^9}, {3.557835707314835*^9, 3.557835707633035*^9}, {3.557851202418621*^9, 3.557851214368802*^9}, { 3.557851333826873*^9, 3.557851334176337*^9}, {3.557851483753976*^9, 3.5578514894693*^9}, 3.557851661489865*^9, {3.55785173984843*^9, 3.557851752062998*^9}, {3.557852005536017*^9, 3.557852045706207*^9}, { 3.557853856147705*^9, 3.557853856515282*^9}, {3.557922628553327*^9, 3.557922639680231*^9}, {3.557924436221045*^9, 3.557924436962159*^9}, { 3.557924546876014*^9, 3.557924547195138*^9}, {3.557924594627941*^9, 3.557924624894421*^9}, 3.5587382845142097`*^9, 3.558785448567621*^9, { 3.558786397908826*^9, 3.558786421185177*^9}, {3.558878229787504*^9, 3.558878232879249*^9}, {3.558880205369234*^9, 3.558880255458344*^9}, { 3.558880608116797*^9, 3.558880637733404*^9}, {3.558880875949797*^9, 3.558880881991209*^9}, {3.558961228353917*^9, 3.558961229146731*^9}, { 3.558961272775803*^9, 3.558961273071408*^9}, {3.559160891638111*^9, 3.559160929992508*^9}, {3.565001220738434*^9, 3.565001221978873*^9}, 3.565001600735219*^9, {3.565003250202582*^9, 3.565003262506163*^9}, 3.568977682751205*^9, 3.568977722183548*^9, {3.569866962101462*^9, 3.569867020461799*^9}, {3.569867157823272*^9, 3.569867191466507*^9}, { 3.569867256942808*^9, 3.569867257882563*^9}, {3.569867515313025*^9, 3.569867519776839*^9}, {3.569867554574451*^9, 3.569867588406015*^9}, 3.569867619381726*^9, {3.569867656808753*^9, 3.569867668857933*^9}, 3.569867774997511*^9, {3.58064376252586*^9, 3.58064378960286*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Replicator", " ", "9", " ", "9", " ", "9"}], ",", " ", RowBox[{"4", " ", "4", " ", "4"}], ",", " ", RowBox[{"1", " ", "1", " ", "1", "\[IndentingNewLine]", RowBox[{"maximumLyapunovExponent", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{".9", ",", ".05", ",", ".05"}], "}"}], "}"}], ",", "dyn", ",", "Fmp", ",", "20", ",", "1000", ",", "100", ",", ".01", ",", ".001"}], "]"}]}]}], "\[IndentingNewLine]", "*)"}]}]], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, { 3.489675763578027*^9, 3.489675873818288*^9}, {3.489785598683547*^9, 3.4897856440587935`*^9}, {3.49237910090625*^9, 3.49237910209375*^9}, { 3.49237913315625*^9, 3.492379151359375*^9}, {3.492379210390625*^9, 3.49237924003125*^9}, {3.492379317296875*^9, 3.492379332*^9}, { 3.49237936209375*^9, 3.492379451953125*^9}, {3.492379517359375*^9, 3.492379531265625*^9}, {3.492379716265625*^9, 3.4923797461875*^9}, { 3.492379883828125*^9, 3.492379889296875*^9}, {3.492379930140625*^9, 3.492379994125*^9}, {3.49238009878125*^9, 3.492380113140625*^9}, 3.4923807724375*^9, {3.49238080425*^9, 3.49238084190625*^9}, { 3.4923808950625*^9, 3.492380897484375*^9}, {3.49238101340625*^9, 3.492381108796875*^9}, {3.49238114659375*^9, 3.4923811901875*^9}, { 3.4923812591875*^9, 3.492381376359375*^9}, {3.492381613921875*^9, 3.492381632640625*^9}, {3.492381709359375*^9, 3.49238176990625*^9}, { 3.4923818083125*^9, 3.492381849796875*^9}, {3.492381892984375*^9, 3.492381937421875*^9}, {3.492382001421875*^9, 3.492382151046875*^9}, { 3.49238220828125*^9, 3.49238230375*^9}, {3.4923833268125*^9, 3.492383401375*^9}, 3.492383436609375*^9, {3.4923890745813046`*^9, 3.4923890750031796`*^9}, {3.4923892254875546`*^9, 3.4923892461750546`*^9}, {3.4923893093938046`*^9, 3.4923893293156796`*^9}, 3.4923893621750546`*^9, {3.4923894555969296`*^9, 3.4923895083781796`*^9}, { 3.4923895475656796`*^9, 3.4923895500969296`*^9}, {3.4923895919875546`*^9, 3.4923895927688046`*^9}, {3.4923897556594296`*^9, 3.4923897763156796`*^9}, {3.4923898126281796`*^9, 3.4923901057375546`*^9}, {3.4923901490656796`*^9, 3.4923902065813046`*^9}, {3.4923902863625546`*^9, 3.4923902913156796`*^9}, {3.4923909770813046`*^9, 3.4923909873781796`*^9}, {3.4923911478469296`*^9, 3.4923911614719296`*^9}, {3.4923915060656796`*^9, 3.4923915147063046`*^9}, {3.4923915529563046`*^9, 3.4923915551594296`*^9}, {3.4924594902949204`*^9, 3.4924595552783623`*^9}, {3.4924596130013638`*^9, 3.492459616987095*^9}, { 3.492459657605501*^9, 3.492459666187842*^9}, {3.492460328189754*^9, 3.4924603454045076`*^9}, {3.492460806046879*^9, 3.492460934882135*^9}, { 3.49246098093836*^9, 3.4924609982132006`*^9}, {3.49246221805725*^9, 3.492462219939957*^9}, {3.4924622671478386`*^9, 3.4924622722451687`*^9}, { 3.492462407599799*^9, 3.4924624299719687`*^9}, {3.4924624797435365`*^9, 3.492462483238562*^9}, {3.4924627260076466`*^9, 3.4924628079755106`*^9}, { 3.49246293133289*^9, 3.492463027280856*^9}, {3.492463241408757*^9, 3.492463245434546*^9}, {3.492463530814903*^9, 3.4924635316861553`*^9}, { 3.492465940559946*^9, 3.492466030939906*^9}, {3.492473116338208*^9, 3.4924731246802034`*^9}, {3.4924732190659237`*^9, 3.4924732649719334`*^9}, {3.4924732968778114`*^9, 3.4924732992311954`*^9}, {3.49247481459525*^9, 3.492474816558072*^9}, { 3.492476066385236*^9, 3.4924760684882593`*^9}, {3.4924772069252515`*^9, 3.4924773442126613`*^9}, {3.492477471896261*^9, 3.492477475871978*^9}, { 3.4925115413541183`*^9, 3.4925115439178047`*^9}, {3.492511606317531*^9, 3.492511615230347*^9}, {3.4925117778241453`*^9, 3.4925118154582605`*^9}, { 3.492511893730811*^9, 3.492511925726819*^9}, {3.492512300605869*^9, 3.4925123092583103`*^9}, 3.492512382273301*^9, {3.4925125022658415`*^9, 3.4925125591476336`*^9}, {3.492512683987144*^9, 3.4925126958942657`*^9}, { 3.4925127501522846`*^9, 3.4925127597260513`*^9}, 3.492512801185667*^9, { 3.4925130030359135`*^9, 3.4925130040373535`*^9}, {3.4925139399331055`*^9, 3.492513955235109*^9}, {3.4925140254761105`*^9, 3.4925141280135517`*^9}, { 3.492516660975773*^9, 3.49251669181011*^9}, {3.492516748381456*^9, 3.4925168477843904`*^9}, {3.492516886199629*^9, 3.492516958463539*^9}, { 3.492516989067546*^9, 3.492517010207944*^9}, {3.4925171923097935`*^9, 3.492517198698981*^9}, {3.4925172600471954`*^9, 3.492517295167696*^9}, 3.492517388031227*^9, {3.492517423902808*^9, 3.492517460555512*^9}, { 3.4925175472201295`*^9, 3.492517597933051*^9}, {3.492518873687496*^9, 3.492518874889224*^9}, {3.4925189176106544`*^9, 3.4925189605223584`*^9}, { 3.4925194897633696`*^9, 3.49251956653376*^9}, {3.4925197590606003`*^9, 3.4925197837460957`*^9}, {3.4925204148635983`*^9, 3.492520419460208*^9}, { 3.4925205526717567`*^9, 3.492520561294155*^9}, {3.492522162391488*^9, 3.4925221679194365`*^9}, {3.492531167107565*^9, 3.4925311961092677`*^9}, { 3.49253211714365*^9, 3.492532152013791*^9}, {3.4925321821471205`*^9, 3.492532291634556*^9}, {3.492532325713559*^9, 3.4925323356378293`*^9}, { 3.4925323669027863`*^9, 3.4925324973403463`*^9}, {3.4925327186385574`*^9, 3.4925327346615973`*^9}, {3.4925327793057923`*^9, 3.492532782981077*^9}, { 3.492532852571143*^9, 3.4925328533622804`*^9}, {3.4925329144501204`*^9, 3.4925330995462756`*^9}, {3.492533139663962*^9, 3.492533142518066*^9}, { 3.4925332367335415`*^9, 3.4925332671973457`*^9}, {3.492533312041829*^9, 3.4925333187715063`*^9}, {3.4925333492252965`*^9, 3.4925334183246565`*^9}, {3.4925334999219875`*^9, 3.492533605884354*^9}, { 3.492541976871378*^9, 3.492541982529514*^9}, {3.4925420513985424`*^9, 3.4925421408271346`*^9}, {3.4925421824870386`*^9, 3.492542284944365*^9}, { 3.4925423477947397`*^9, 3.492542358069514*^9}, {3.492542391227192*^9, 3.4925423944418144`*^9}, {3.4925424623895187`*^9, 3.4925424757587423`*^9}, {3.492542514975133*^9, 3.4925425158163424`*^9}, { 3.492542564296053*^9, 3.4925425971733284`*^9}, {3.492698138447184*^9, 3.4926981626219454`*^9}, {3.4927018364584103`*^9, 3.492701844830448*^9}, 3.4927025707010098`*^9, {3.492702605981741*^9, 3.49270260659262*^9}, { 3.4927026692126627`*^9, 3.492702669553152*^9}, {3.492725726818954*^9, 3.492725728952021*^9}, 3.492725824960074*^9, {3.4927264126150804`*^9, 3.492726419565074*^9}, {3.4931286675676713`*^9, 3.49312866849901*^9}, { 3.4933901932623835`*^9, 3.493390193773118*^9}, {3.4959902691492662`*^9, 3.4959903171167774`*^9}, 3.5072556786456265`*^9, 3.507926987388692*^9, { 3.5079815231041355`*^9, 3.507981523434611*^9}, {3.5087902584538436`*^9, 3.508790288687317*^9}, {3.5087954977427745`*^9, 3.5087956931437473`*^9}, { 3.508795835949091*^9, 3.5087958433196898`*^9}, {3.5106594118271484`*^9, 3.510659493304307*^9}, {3.5106598151470942`*^9, 3.510659879349413*^9}, { 3.510659949400141*^9, 3.5106599515432224`*^9}, {3.510660294356163*^9, 3.5106603386298256`*^9}, {3.510660376654502*^9, 3.5106604786211233`*^9}, { 3.510668164238372*^9, 3.5106681981170874`*^9}, {3.511009771198851*^9, 3.5110098252465677`*^9}, 3.51100995689587*^9, {3.511009990263851*^9, 3.5110100009792595`*^9}, {3.5110103054421234`*^9, 3.5110103180202093`*^9}, {3.511010447266056*^9, 3.511010452353371*^9}, { 3.51101049593604*^9, 3.5110105067415776`*^9}, {3.5110105773931694`*^9, 3.5110105777436733`*^9}, {3.511010661694389*^9, 3.511010758513608*^9}, { 3.557693097119469*^9, 3.557693100127906*^9}, {3.5576938982311*^9, 3.557694227993213*^9}, {3.557694265911925*^9, 3.557694510089692*^9}, { 3.557749334656355*^9, 3.5577494150589542`*^9}, {3.5577496994032173`*^9, 3.557749699723236*^9}, {3.557826402379401*^9, 3.557826425253561*^9}, { 3.557828470603082*^9, 3.557828484709958*^9}, {3.565003244731052*^9, 3.565003257268888*^9}, {3.569672034675556*^9, 3.569672042263763*^9}, 3.569672221053808*^9}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FixPolygons", "Subsection", CellChangeTimes->{{3.4818469396171713`*^9, 3.481846942020627*^9}, { 3.491933553724511*^9, 3.4919335567498555`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"fixPolygons", "::", "usage"}], " ", "=", "\n", "\"\ , ]:\n Joins all contiguous \ polygons into a single shape. \n This can dramatically improve the image \ quality and \n decrease the file size of a ContourPlot or RegionPlot.\n\n\ Possible options (with defaults) are:\n earlyCleanupThreshold \[Rule] 1\n\ \>\""}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"earlyCleanupThreshold", "::", "usage"}], " ", "=", " ", "\n", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Options", "[", "fixPolygons", "]"}], "=", RowBox[{"{", "\n", " ", RowBox[{"earlyCleanupThreshold", " ", "->", " ", "1"}], "\n", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}], "\n", RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ "fixPolygons", " ", "function", "\n", "Delve", " ", "into", " ", "GraphicsComplex", " ", "and", " ", "grab", " ", "polygons", " ", "to", " ", RowBox[{"combine", ":"}]}], "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fixPolygons", "[", RowBox[{"graf_", ",", RowBox[{"OptionsPattern", "[", "fixPolygons", "]"}]}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{ RowBox[{"graf", " ", "//.", " ", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "a__", "}"}], ",", "c___"}], "]"}], ",", "\n", " ", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "b__", "}"}], ",", "c___"}], "]"}], ",", "d___"}], "}"}], " ", "->", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "c"}], "]"}], ",", "d"}], "}"}]}]}], " ", "/.", " ", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "ab__", "}"}], ",", "c___"}], "]"}], ",", "d___"}], "}"}], " ", ":>", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"cleanup", "[", RowBox[{ RowBox[{"{", "ab", "}"}], ",", "\n", " ", RowBox[{"OptionValue", "[", "earlyCleanupThreshold", "]"}]}], "]"}], ",", "c"}], "]"}], ",", "d"}], "}"}]}]}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{"Cleanup", " ", "polygons"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "vert", ",", "uvert", ",", "cvert", ",", "nvert", ",", "i", ",", "plist"}], "}"}], ",", "\n", RowBox[{ RowBox[{ RowBox[{"cleanup", "[", RowBox[{"polylist_", ",", "ect_"}], "]"}], ":=", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"plist", " ", "=", " ", "polylist"}], ";", "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Makes", " ", "up", " ", "a", " ", "list", " ", "of", " ", "the", " ", "occurrences", " ", "of", " ", "vertices", " ", "in", " ", "polygon", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"vert", " ", "=", " ", RowBox[{"Sort", "[", RowBox[{"Flatten", "[", "plist", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{"uvert", " ", "=", " ", RowBox[{"Union", "[", "vert", "]"}]}], ";", " ", RowBox[{"nvert", "=", RowBox[{"Length", "@", "uvert"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Counts", " ", "the", " ", "occurrences", " ", "of", " ", "vertices", " ", "in", " ", "polygon", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"cvert", " ", "=", " ", RowBox[{"Length", " ", "/@", " ", RowBox[{"Split", "@", "vert"}]}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Preliminary", " ", "cleanup", " ", "based", " ", "on", " ", "earlyCleanupThreshold", " ", "option"}], " ", "*)"}], "\n", " ", RowBox[{"vert", " ", "=", " ", RowBox[{"DeleteCases", "[", "\n", " ", RowBox[{ RowBox[{"Transpose", "@", RowBox[{"{", RowBox[{"uvert", ",", "cvert"}], "}"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "a_"}], "}"}], "/;", RowBox[{"a", "<=", "ect"}]}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Cleans", " ", "up", " ", "the", " ", "vertex", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"Do", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "@", "vert"}], "==", "0"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"plist", ",", "vert"}], "}"}], " ", "=", " ", RowBox[{"refine", "[", RowBox[{ RowBox[{"{", RowBox[{"plist", ",", "vert"}], "}"}], ",", RowBox[{"vert", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", "ect"}], "]"}]}], ";"}], "\n", " ", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nvert"}], "}"}]}], "]"}], ";", "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Output", " ", "and", " ", "finish", " ", "up"}], ",", " ", RowBox[{ "with", " ", "a", " ", "final", " ", "cleanup", " ", "from", " ", "residual", " ", "creaks"}]}], " ", "*)"}], "\n", " ", RowBox[{"plist", " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"c_", ",", "a_", ",", "b___", ",", "a_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{"c___", ",", "a_", ",", "b_", ",", "a_", ",", "d___"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"c", ",", "a", ",", "d"}], "}"}]}]}], "}"}]}]}], "\n", ")"}]}], ";"}]}], "\n", "]"}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{"Clean", " ", "up", " ", "vertices", " ", "of", " ", "polygons"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ri", ",", "rj", ",", "lvp", ",", "nvl", ",", "ncl", ",", "ppoly", ",", "vpoly"}], "}"}], ",", "\n", RowBox[{ RowBox[{ RowBox[{"refine", "[", RowBox[{ RowBox[{"{", RowBox[{"cl_", ",", "vl_"}], "}"}], ",", "iv_", ",", "ect_"}], "]"}], ":=", RowBox[{"(", "\n", RowBox[{"(*", " ", RowBox[{ "Gets", " ", "the", " ", "polygons", " ", "having", " ", "the", " ", "shared", " ", "vertex"}], " ", "*)"}], "\n", " ", RowBox[{ RowBox[{"ppoly", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"cl", ",", RowBox[{"{", RowBox[{"___", ",", "iv", ",", "___"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"nvl", " ", "=", " ", "vl"}], ";", "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"cl", "[", RowBox[{"[", RowBox[{"Flatten", "[", "ppoly", "]"}], "]"}], "]"}]}], ";", "\n", " ", RowBox[{"lvp", " ", "=", " ", RowBox[{"Length", "@", "vpoly"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Puts", " ", "all", " ", "the", " ", "polygons", " ", "in", " ", "a", " ", "position", " ", "where", " ", "the", " ", "shared", " ", "vertex", " ", "is", " ", "at", " ", "position", " ", "1"}], " ", "*)"}], "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Table", "[", "\n", " ", RowBox[{ RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", "iv"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "1"}]}], "]"}], "\n", " ", ",", RowBox[{"{", RowBox[{"ri", ",", "1", ",", "lvp"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Finds", " ", "the", " ", "neighbours", " ", "of", " ", "the", " ", "polygon", " ", "to", " ", "be", " ", "deleted"}], " ", "*)"}], "\n", " ", RowBox[{"ri", " ", "=", " ", "1"}], ";", "\n", " ", RowBox[{"rj", " ", "=", " ", "2"}], ";", "\n", " ", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"ri", " ", "<=", " ", "lvp"}], " ", "&&", " ", RowBox[{"rj", " ", "<=", " ", "lvp"}]}], " ", ",", "\n", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], " ", "==", " ", RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"rj", ",", RowBox[{"-", "1"}]}], "]"}], "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], ",", "a_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}]}]}], ";", "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Prepend", "[", "\n", " ", RowBox[{ RowBox[{"Delete", "[", RowBox[{"vpoly", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "ri", "}"}], ",", RowBox[{"{", "rj", "}"}]}], "}"}]}], "]"}], ",", "\n", "\t\t", RowBox[{"Join", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "rj", "]"}], "]"}], ",", RowBox[{"Drop", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", "2"}], "]"}]}], "]"}]}], "]"}]}], ";", "\n", "\t ", RowBox[{"lvp", "--"}], ";", "\n", " ", RowBox[{"ri", " ", "=", " ", RowBox[{"rj", " ", "=", " ", "1"}]}]}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"rj", "++"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rj", "==", "ri"}], ",", " ", RowBox[{"rj", "++"}]}], "]"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rj", ">", "lvp"}], ",", " ", RowBox[{ RowBox[{"ri", "++"}], ";", " ", RowBox[{"rj", "=", "1"}]}]}], "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Cleans", " ", "up", " ", "polygons", " ", "with", " ", "\"\\""}], " ", "*)"}], "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Table", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"c_", ",", "a_", ",", "b___", ",", "a_"}], "}"}], " ", ":>", " ", "\n", " ", RowBox[{"(", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"(", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "e_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"e", "-", "1"}]}], "}"}]}]}], ")"}]}], ";", "\n", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ")"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{ "c___", ",", "a_", ",", "b_", ",", "a_", ",", "d___"}], "}"}], " ", ":>", " ", "\n", " ", RowBox[{"(", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"(", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "e_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"e", "-", "1"}]}], "}"}]}]}], ")"}]}], ";", "\n", " ", RowBox[{"{", RowBox[{"c", ",", "a", ",", "d"}], "}"}]}], ")"}]}]}], "}"}]}], "\n", " ", ",", RowBox[{"{", RowBox[{"ri", ",", "1", ",", "lvp"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"ncl", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Delete", "[", RowBox[{"cl", ",", "ppoly"}], "]"}], ",", "vpoly"}], "]"}]}], ";", "\n", " ", RowBox[{"nvl", " ", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{"nvl", ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"iv", ",", "_"}], "}"}], "|", RowBox[{"{", RowBox[{"_", ",", "a_"}], "}"}]}], "/;", RowBox[{"a", "<=", "ect"}]}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{"Output", " ", "and", " ", RowBox[{"finish", ":"}]}], " ", "*)"}], "\n", " ", RowBox[{"{", RowBox[{"ncl", ",", "nvl"}], "}"}]}], "\n", ")"}]}], ";"}]}], "\n", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"End", "[", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.491932849441802*^9, 3.491932860627887*^9}, { 3.491932897791325*^9, 3.4919330176036067`*^9}, {3.491933118518716*^9, 3.4919331766523075`*^9}, {3.4919332576187315`*^9, 3.491933290696295*^9}, 3.491933545793106*^9, {3.4919337991713257`*^9, 3.491933801694955*^9}, { 3.491933839899891*^9, 3.491933865837187*^9}, {3.565003313615303*^9, 3.565003321743915*^9}, 3.565003355562578*^9, {3.565003452054142*^9, 3.565003462316552*^9}}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Maintenance", "Section", CellOpen->True, CellChangeTimes->{{3.4818469396171713`*^9, 3.481846942020627*^9}, { 3.4932702180118704`*^9, 3.493270222878869*^9}, {3.493473759336*^9, 3.4934737604475985`*^9}}], Cell[CellGroupData[{ Cell["Reformat Open Group Cells", "Subsection", CellChangeTimes->{{3.513023706564459*^9, 3.5130237384302797`*^9}, { 3.5397230473806143`*^9, 3.5397230483717403`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Depth", "[", RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "CellTags"}], "]"}], "]"}], "==", "3"}], ",", "True", ",", RowBox[{"Not", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "CellTags"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], "==", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "True"}]}], "]"}], ";"}]}], "Input",\ CellChangeTimes->{{3.513023706564459*^9, 3.513023756886819*^9}, { 3.539716977726866*^9, 3.539716990717516*^9}, {3.5397171568946176`*^9, 3.539717170491344*^9}, 3.539717385038088*^9, {3.5397182910181327`*^9, 3.5397183022630606`*^9}, {3.539721373522561*^9, 3.5397213831852884`*^9}, { 3.5397218178584847`*^9, 3.539721823971261*^9}, {3.5397220287347627`*^9, 3.5397220334073563`*^9}, {3.53972222992181*^9, 3.539722235546524*^9}, { 3.5397222956181526`*^9, 3.5397223353141932`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Hide Cells", "Subsection", CellChangeTimes->{{3.513023706564459*^9, 3.5130237384302797`*^9}, { 3.5130237929887314`*^9, 3.5130237939901714`*^9}, {3.5397230569803333`*^9, 3.539723065123867*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "True"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "True"}]}], "]"}], ";"}]}], "Input",\ CellChangeTimes->{{3.513023706564459*^9, 3.513023756886819*^9}, { 3.539716977726866*^9, 3.539716990717516*^9}, {3.5397171568946176`*^9, 3.539717170491344*^9}, 3.539717385038088*^9, {3.5397182910181327`*^9, 3.5397183022630606`*^9}, {3.539721373522561*^9, 3.5397213831852884`*^9}, { 3.5397218178584847`*^9, 3.539721823971261*^9}, {3.5397220287347627`*^9, 3.5397220334073563`*^9}, {3.53972222992181*^9, 3.539722235546524*^9}, { 3.5397222956181526`*^9, 3.5397223353141932`*^9}, {3.539723094393084*^9, 3.5397232087576065`*^9}, {3.539723289930414*^9, 3.539723303096586*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Buttons", "Subsection", CellChangeTimes->{{3.513023706564459*^9, 3.5130237384302797`*^9}, { 3.5130237929887314`*^9, 3.5130237939901714`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Depth", "[", RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "CellTags"}], "]"}], "]"}], "==", "3"}], ",", "True", ",", RowBox[{"Not", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "CellTags"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], "==", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "GeneratedCell"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "False"}], ",", RowBox[{"Evaluatable", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "True"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "True"}]}], "]"}], ";"}]}], "Input",\ CellChangeTimes->{{3.513023706564459*^9, 3.513023756886819*^9}, { 3.539716977726866*^9, 3.539716990717516*^9}, {3.5397171568946176`*^9, 3.539717170491344*^9}, 3.539717385038088*^9, {3.5397182910181327`*^9, 3.5397183022630606`*^9}, {3.539720593161968*^9, 3.539720605342515*^9}, { 3.539721285438876*^9, 3.539721294079973*^9}, 3.5397213923364506`*^9, { 3.5397214252621317`*^9, 3.539721507299049*^9}, {3.539721596321353*^9, 3.539721601715538*^9}, {3.5397217929333196`*^9, 3.5397218085162983`*^9}, 3.539722014496955*^9, {3.5397224411261296`*^9, 3.5397224420842514`*^9}, { 3.539722497970848*^9, 3.5397224983088913`*^9}, {3.5397225610753613`*^9, 3.53972258933245*^9}, {3.5397226513003187`*^9, 3.539722654024164*^9}, { 3.539723234908927*^9, 3.5397232449742055`*^9}}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Credits", "Subtitle", CellChangeTimes->{{3.539972381870288*^9, 3.539972382124303*^9}}, CellTags->"opengroup"], Cell[TextData[{ "Dynamo\nVersion 1.3 (19 February 2014)\nby William H. Sandholm, Emin \ Dokumaci and Francisco Franchetti\n\nmail:\t\t\tDepartment of Economics\n\t\t\ \tUniversity of Wisconsin\n\t\t\t1180 Observatory Drive\n\t\t\tMadison WI \ 53706\n\ne-mail:\t\t\twhs@ssc.wisc.edu\n\t\t\tedokumaci@wisc.edu\n\t\t\t\ franchetti@wisc.edu\n\t\nwebsites:\t\t", ButtonBox["http://www.ssc.wisc.edu/~whs/", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~whs/"], None}], "\n\t\t\t", ButtonBox["http://www.ssc.wisc.edu/~edokumac/\n\t\t\t", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~edokumac/"], None}], ButtonBox["https://mywebspace.wisc.edu/franchetti/web/", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mywebspace.wisc.edu/franchetti/web/"], None}, ButtonNote->"https://mywebspace.wisc.edu/franchetti/web/"], ButtonBox["\n\t\t\t", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~edokumac/"], None}], "\nDynamo website:\t", ButtonBox["http://www.ssc.wisc.edu/~whs/dynamo", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~whs/dynamo"], None}], "\n \nFinancial support from the National Science Foundation under Grants \ SES-0092145, SES-0617753, SES-0851580, and SES-1155135 is gratefully \ acknowledged." }], "Text", Evaluatable->False, CellChangeTimes->{{3.480864918617506*^9, 3.480864924476881*^9}, { 3.5061798563362703`*^9, 3.5061799631184635`*^9}, {3.5061801200899715`*^9, 3.5061801342102757`*^9}, {3.506180450374898*^9, 3.506180454801263*^9}, { 3.5061804883094454`*^9, 3.5061805177017093`*^9}, {3.511176805912285*^9, 3.511176828069092*^9}, 3.511176945637301*^9, {3.511176977750432*^9, 3.51117699896663*^9}, 3.51117703026584*^9, {3.5237327702053223`*^9, 3.523732775200923*^9}, {3.5397143039733424`*^9, 3.5397143094280353`*^9}, { 3.541076684033853*^9, 3.541076686413662*^9}, {3.557584736852723*^9, 3.557584741238151*^9}, {3.557584818528257*^9, 3.557584823038488*^9}, 3.582291510808453*^9, {3.601823154689366*^9, 3.601823164577373*^9}}, FontFamily->"Palatino", CellTags->{"finalcell", "buttoncell", "opengroup"}] }, Open ]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", WindowToolbars->{}, PrintAction->"PrintToNotebook", InitializationCellEvaluation->True, InitializationCellWarning->False, CellGrouping->Manual, WindowSize->{796, 555}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, ShowCellLabel->True, FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \ 2014)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Title"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 12], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 8], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> {"PagewiseDisplay" -> True}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{27, Inherited}, {10, 30}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{27, 10}, {10, 30}}, LineSpacing -> {1, 0}, FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "SlideShow"]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{27, Inherited}, {20, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{27, 10}, {20, 2}}, LineSpacing -> {1, 0}, FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "SlideShow"]], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{27, Inherited}, {8, 2}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "SlideShow"]], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, CellMargins -> {{27, Inherited}, {8, 34}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "SlideShow"]], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{60, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Verdana", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "SlideShow"]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{60, Inherited}, {10, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, CellFrameMargins -> 20, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Verdana", FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "CompatibilityType" -> 0, "Masked" -> False, "Outline" -> False, "RotationAngle" -> 0, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "SlideShow"]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Palatino"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Text", "SlideShow"]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{60, 3}, {4, 4}}, DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Trebuchet MS", FontSize -> 12, FontSlant -> "Italic"], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 12], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ StyleData["SmallText", "SlideShow"]], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 7]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{66, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["Input", "SlideShow"]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellMargins -> {{66, 10}, {7, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["InputOnly", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["InputOnly", "SlideShow"]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{66, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], Cell[ StyleData["Output", "SlideShow"]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0.6, 0.100008, 0.100008]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Message", "SlideShow"]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Print", "SlideShow"]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}], Cell[ StyleData["Graphics", "Condensed"], ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 0.6], Cell[ StyleData["Graphics", "SlideShow"]], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["CellLabel", "SlideShow"]], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FrameLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["FrameLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["FrameLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["FrameLabel", "SlideShow"]], Cell[ StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["InlineFormula", "SlideShow"]], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "SlideShow"]], Cell[ StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "SlideShow"]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{60, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, { "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}], Cell[ StyleData["Outline1", "SlideShow"]], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{90, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", CounterAssignments -> {{"Outline3", 0}, {"Outline4", 0}}, FontSize -> 15, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}], Cell[ StyleData["Outline2", "SlideShow"]], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{120, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "SlideShow"]], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{150, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "SlideShow"]], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Presentation"], FontSize -> 16], Cell[ StyleData["Hyperlink", "Condensed"], FontSize -> 11], Cell[ StyleData["Hyperlink", "SlideShow"]], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Presentation"], FontSize -> 16], Cell[ StyleData["MainBookLink", "Condensed"], FontSize -> 11], Cell[ StyleData["MainBookLink", "SlideShow"]], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Presentation"], FontSize -> 16], Cell[ StyleData["AddOnsLink", "Condensed"], FontSize -> 11], Cell[ StyleData["AddOnsLink", "SlideShow"]], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLink", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLink", "SlideShow"]], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLinkText"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLinkText", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLinkText", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLinkText", "SlideShow"]], Cell[ StyleData["RefGuideLinkText", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Presentation"], FontSize -> 16], Cell[ StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], Cell[ StyleData["GettingStartedLink", "SlideShow"]], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DemosLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[ StyleData["DemosLink", "SlideShow"]], Cell[ StyleData["DemosLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TourLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[ StyleData["TourLink", "SlideShow"]], Cell[ StyleData["TourLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Presentation"], FontSize -> 16], Cell[ StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], Cell[ StyleData["OtherInformationLink", "SlideShow"]], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MasterIndexLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[ StyleData["MasterIndexLink", "SlideShow"]], Cell[ StyleData["MasterIndexLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "SlideShow"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, DrawHighlighted -> True, FontSlant -> "Italic", Background -> RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "Condensed"]], Cell[ StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]], Cell[ StyleData["Completions"], StyleMenuListing -> None, FontFamily -> "Courier"]}, Closed]], Cell[ CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{66, 12}, {2, 24}}, PageBreakBelow -> False, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> GrayLevel[0.700008], CellFrameLabelMargins -> 4, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontColor -> GrayLevel[0.2]], Cell[ StyleData["MathCaption", "Presentation"], FontSize -> 18], Cell[ StyleData["MathCaption", "SlideShow"]], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{39, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectName"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["ObjectName", "Presentation"], FontSize -> 18], Cell[ StyleData["ObjectName", "SlideShow"]], Cell[ StyleData["ObjectName", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Usage"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Usage", "Presentation"], FontSize -> 18], Cell[ StyleData["Usage", "SlideShow"]], Cell[ StyleData["Usage", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Notes"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Notes", "Presentation"], FontSize -> 18], Cell[ StyleData["Notes", "SlideShow"]], Cell[ StyleData["Notes", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InlineOutput", "Presentation"], FontSize -> 18], Cell[ StyleData["InlineOutput", "SlideShow"]], Cell[ StyleData["InlineOutput", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["Box", "Presentation"], FontSize -> 18], Cell[ StyleData["Box", "SlideShow"]], Cell[ StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DoubleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DoubleBox", "SlideShow"]], Cell[ StyleData["DoubleBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["1ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["1ColumnBox", "SlideShow"]], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnBox", "SlideShow"]], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenBox", "SlideShow"]], Cell[ StyleData["2ColumnEvenBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnSmallBox", "SlideShow"]], Cell[ StyleData["2ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnBox", "SlideShow"]], Cell[ StyleData["3ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, Center, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.24]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnSmallBox", "SlideShow"]], Cell[ StyleData["3ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.35], Scaled[0.13], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["4ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["4ColumnBox", "SlideShow"]], Cell[ StyleData["4ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["5ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.202]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["5ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["5ColumnBox", "SlideShow"]], Cell[ StyleData["5ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["6ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.12], Scaled[0.22], Scaled[0.12], Scaled[0.12], Scaled[0.22], { Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["6ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["6ColumnBox", "SlideShow"]], Cell[ StyleData["6ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FramedBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["FramedBox", "Presentation"], FontSize -> 18], Cell[ StyleData["FramedBox", "SlideShow"]], Cell[ StyleData["FramedBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.4], { Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox", "SlideShow"]], Cell[ StyleData["DefinitionBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox3Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.35], Scaled[0.2], { Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox3Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox3Col", "SlideShow"]], Cell[ StyleData["DefinitionBox3Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox4Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.15], Scaled[0.35], Scaled[0.15], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox4Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox4Col", "SlideShow"]], Cell[ StyleData["DefinitionBox4Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox5Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox5Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox5Col", "SlideShow"]], Cell[ StyleData["DefinitionBox5Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox6Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.24], Scaled[0.13], Scaled[0.13], Scaled[0.24], { Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox6Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox6Col", "SlideShow"]], Cell[ StyleData["DefinitionBox6Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopBox", "SlideShow"]], Cell[ StyleData["TopBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleBox", "SlideShow"]], Cell[ StyleData["MiddleBox", "Printout"], CellMargins -> {{2, 0}, {0, 2}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BottomBox"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["BottomBox", "Presentation"], FontSize -> 18], Cell[ StyleData["BottomBox", "SlideShow"]], Cell[ StyleData["BottomBox", "Printout"], CellMargins -> {{2, 0}, {0, -5}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {-2, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopSpanBox", "SlideShow"]], Cell[ StyleData["TopSpanBox", "Printout"], CellMargins -> {{2, 0}, {-2, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, 0}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleSpanBox", "SlideShow"]], Cell[ StyleData["MiddleSpanBox", "Printout"], CellMargins -> {{2, 0}, {-5, 0}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["Picture", "Presentation"], FontSize -> 18], Cell[ StyleData["Picture", "SlideShow"]], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.65]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OpenCloseItemizedPicture"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}], Cell[ StyleData["OpenCloseItemizedPicture", "Presentation"], FontSize -> 18], Cell[ StyleData["OpenCloseItemizedPicture", "SlideShow"]], Cell[ StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedPicture"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemizedPicture", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedPicture", "SlideShow"]], Cell[ StyleData["ItemizedPicture", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListGraphic"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ListGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["ListGraphic", "SlideShow"]], Cell[ StyleData["ListGraphic", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListNoteBox"], CellFrame -> 0.5, CellMargins -> {{88, 12}, {8, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { FrameMargins -> {{15.600000000000001`, 15.600000000000001`}, {11.700000000000001`, 11.700000000000001`}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["ListNoteBox", "Presentation"], FontSize -> 18], Cell[ StyleData["ListNoteBox", "SlideShow"]], Cell[ StyleData["ListNoteBox", "Printout"], CellMargins -> {{77, 4}, {6, 2}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureGroup"], CellMargins -> {{41, 4}, {0, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureGroup", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureGroup", "SlideShow"]], Cell[ StyleData["PictureGroup", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Sound"], ShowCellBracket -> True, CellMargins -> {{27, Inherited}, {0, 8}}, StyleMenuListing -> None], Cell[ StyleData["Sound", "Presentation"], FontSize -> 18], Cell[ StyleData["Sound", "SlideShow"]], Cell[ StyleData["Sound", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Tables", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.34], { Scaled[0.64]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnTable", "SlideShow"]], Cell[ StyleData["2ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.49]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenTable", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenTable", "SlideShow"]], Cell[ StyleData["2ColumnEvenTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.28], Scaled[0.28], { Scaled[0.43]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnTable", "SlideShow"]], Cell[ StyleData["3ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> False, CellFrame -> True, CellMargins -> {{0, 0}, {3, 3}}, CellElementSpacings -> {"CellMinHeight" -> 0.8125}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> False, CellFrameColor -> GrayLevel[1], CellFrameLabelMargins -> False, TextAlignment -> Center, CounterIncrements -> "SlideShowNavigationBar", StyleMenuListing -> None, FontSize -> 10, Magnification -> 1, Background -> GrayLevel[0.8], GridBoxOptions -> { BaselinePosition -> Center, GridBoxAlignment -> { "Columns" -> { Center, Center, Center, Center, Center, Center, Right, { Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> { "Columns" -> {3.5, 3.5, 3.5, 3.5, 13, 5, {4}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["SlideShowNavigationBar", "Presentation"]], Cell[ StyleData["SlideShowNavigationBar", "SlideShow"], Deletable -> False, ShowCellBracket -> False, CellMargins -> {{-1, -1}, {-1, -1}}, PageBreakAbove -> True, CellFrameMargins -> {{1, 1}, {0, 0}}], Cell[ StyleData["SlideShowNavigationBar", "Printout"], CellMargins -> {{18, 4}, {4, 4}}, LineSpacing -> {1, 3}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowSection"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{0, 0}, {10, 0}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameMargins -> {{12, 4}, {6, 12}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Plain", FontColor -> GrayLevel[1], Background -> RGBColor[0.408011, 0.440726, 0.8]], Cell[ StyleData["SlideShowSection", "Presentation"], CellFrameMargins -> {{20, 10}, {10, 18}}, FontSize -> 27], Cell[ StyleData["SlideShowSection", "SlideShow"], ShowCellBracket -> False, PageBreakAbove -> True], Cell[ StyleData["SlideShowSection", "Printout"], CellMargins -> {{18, 30}, {0, 30}}, CellFrameMargins -> 5, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideHyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontSize -> 26, FontColor -> GrayLevel[0.400015], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 0.5, ButtonMinHeight -> 0.85, ButtonNote -> None}], Cell[ StyleData["SlideHyperlink", "Presentation"], CellMargins -> {{14, 10}, {6, 12}}, FontSize -> 36], Cell[ StyleData["SlideHyperlink", "SlideShow"]], Cell[ StyleData["SlideHyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOCLink"], CellMargins -> {{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Helvetica", ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 1.5, ButtonNote -> ButtonData}], Cell[ StyleData["SlideTOCLink", "Presentation"], CellMargins -> {{35, 10}, {8, 8}}, FontSize -> 18], Cell[ StyleData["SlideTOCLink", "SlideShow"]], Cell[ StyleData["SlideTOCLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOC"], CellDingbat -> "\[Bullet]", CellMargins -> {{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, FontFamily -> "Helvetica"], Cell[ StyleData["SlideTOC", "Presentation"], CellMargins -> {{25, 10}, {10, 5}}, FontSize -> 18], Cell[ StyleData["SlideTOC", "SlideShow"], FontSize -> 14], Cell[ StyleData["SlideTOC", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]]}, Open]]}, WindowSize -> {796, 555}, WindowMargins -> {{0, Automatic}, {Automatic, 0}}, Visible -> False, FrontEndVersion -> "10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, 2014)", StyleDefinitions -> "Default.nb"], PrivateNotebookOptions -> {"ColorPalette" -> {RGBColor, -1}}, RenderingOptions -> {"ObjectDithering" -> True}, RenderingOptions -> {"RasterDithering" -> False} ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "opengroup"->{ Cell[579, 22, 513, 11, 139, "Title", CellTags->"opengroup"], Cell[4087, 114, 169, 3, 47, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[4281, 121, 225, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[36574, 820, 395, 6, 30, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[36994, 830, 347, 6, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[37981, 856, 197, 3, 23, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[164476, 3923, 398, 6, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[168738, 4025, 193, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[170330, 4058, 82, 1, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[332279, 7818, 211, 3, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[361582, 9536, 154, 2, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[1330049, 40524, 117, 2, 47, "Subtitle", CellTags->"opengroup"], Cell[1330169, 40528, 2192, 45, 368, "Text", Evaluatable->False, CellTags->{"finalcell", "buttoncell", "opengroup"}]}, "notopen"->{ Cell[1341, 45, 1675, 39, 19, "Input", CellOpen->False, CellTags->"notopen"], Cell[3019, 86, 1031, 23, 19, "Input", CellOpen->False, CellTags->"notopen"], Cell[5884, 162, 18456, 337, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[24343, 501, 3361, 90, 54, "Output", CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[38203, 863, 19911, 396, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[58117, 1261, 17918, 458, 111, "Print", CellOpen->True, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[76348, 1733, 25603, 568, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[101954, 2303, 46221, 1224, 449, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[154645, 3634, 907, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"corecell", "notopen", "singlepopulation"}], Cell[170437, 4063, 16144, 301, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[186584, 4366, 6327, 175, 102, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[193927, 4570, 15146, 282, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[209076, 4854, 4402, 119, 40, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[222227, 5147, 245, 6, 19, "Input", CellOpen->False, CellTags->{"corecell", "notopen"}], Cell[294838, 6947, 12377, 222, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[307218, 7171, 7382, 180, 133, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[428348, 12324, 19880, 356, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[448231, 12682, 4764, 108, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[648402, 26035, 17765, 325, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[666170, 26362, 3072, 74, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}]}, "corecell"->{ Cell[4087, 114, 169, 3, 47, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[4281, 121, 225, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[4531, 129, 180, 4, 38, "Subsection", CellTags->"corecell"], Cell[4714, 135, 1145, 23, 115, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[5884, 162, 18456, 337, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[24343, 501, 3361, 90, 54, "Output", CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[27716, 594, 3329, 50, 60, "Input", CellTags->{"corecell", "unique_payofffunction"}], Cell[31070, 648, 112, 2, 38, "SmallText", CellTags->"corecell"], Cell[31207, 654, 171, 2, 49, "Subsubsection", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[31381, 658, 1013, 26, 136, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[32431, 689, 79, 1, 49, "Subsubsection", CellTags->"corecell"], Cell[32513, 692, 1103, 29, 47, "Input", CellTags->"corecell"], Cell[33653, 726, 68, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[33724, 729, 634, 19, 27, "Input", CellTags->"corecell"], Cell[34395, 753, 90, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[34488, 756, 911, 25, 66, "Input", CellTags->"corecell"], Cell[35436, 786, 71, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[35510, 789, 1003, 24, 47, "Input", CellTags->"corecell"], Cell[36574, 820, 395, 6, 30, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[36994, 830, 347, 6, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[37344, 838, 612, 14, 45, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[37981, 856, 197, 3, 23, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[38203, 863, 19911, 396, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[58117, 1261, 17918, 458, 111, "Print", CellOpen->True, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[76081, 1725, 242, 4, 23, "SmallText", CellTags->{"corecell", "3Sexclusive"}], Cell[76348, 1733, 25603, 568, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[101954, 2303, 46221, 1224, 449, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[148199, 3531, 6443, 101, 55, "Input", CellTags->{"corecell", "unique_payoffmatrix"}], Cell[154645, 3634, 907, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"corecell", "notopen", "singlepopulation"}], Cell[155589, 3662, 351, 6, 36, "Subsubsection", CellTags->"corecell"], Cell[155965, 3672, 305, 5, 38, "SmallText", CellTags->{"corecell", "singlepopulation"}], Cell[156273, 3679, 3161, 83, 301, "Input", CellTags->{"corecell", "differentacrossnotebooks", "singlepopulation"}], Cell[159471, 3767, 233, 4, 38, "SmallText", CellTags->"corecell"], Cell[159707, 3773, 137, 4, 29, "Text", CellTags->"corecell"], Cell[159847, 3779, 1487, 49, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[161337, 3830, 102, 2, 29, "Text", CellTags->"corecell"], Cell[161442, 3834, 2973, 82, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[164476, 3923, 398, 6, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[164877, 3931, 217, 6, 28, "Text", CellTags->"corecell"], Cell[165097, 3939, 1165, 25, 74, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[166299, 3969, 395, 6, 38, "Subsection", CellTags->"corecell"], Cell[166697, 3977, 1405, 28, 193, "Text", CellTags->"corecell"], Cell[168105, 4007, 584, 12, 66, "Input", CellTags->"corecell"], Cell[168738, 4025, 193, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[168934, 4031, 1371, 23, 113, "Text", CellTags->"corecell"], Cell[170330, 4058, 82, 1, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[170437, 4063, 16144, 301, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[186584, 4366, 6327, 175, 102, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[192957, 4547, 179, 3, 38, "Subsection", CellTags->"corecell"], Cell[193139, 4552, 763, 14, 65, "Text", CellTags->"corecell"], Cell[193927, 4570, 15146, 282, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[209076, 4854, 4402, 119, 40, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[213502, 4977, 5333, 75, 22, "Input", CellTags->{"corecell", "unique_meandynamic"}], Cell[218860, 5056, 193, 3, 23, "SmallText", CellTags->"corecell"], Cell[219056, 5061, 391, 7, 27, "Input", CellTags->"corecell"], Cell[219484, 5073, 259, 4, 23, "SmallText", CellTags->"corecell"], Cell[219746, 5079, 444, 8, 27, "Input", CellTags->"corecell"], Cell[220227, 5092, 302, 4, 23, "SmallText", CellTags->"corecell"], Cell[220532, 5098, 562, 10, 27, "Input", CellTags->"corecell"], Cell[221131, 5113, 147, 3, 23, "SmallText", CellTags->"corecell"], Cell[221281, 5118, 632, 15, 84, "Text", CellTags->"corecell"], Cell[221916, 5135, 296, 9, 57, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[222227, 5147, 245, 6, 19, "Input", CellOpen->False, CellTags->{"corecell", "notopen"}], Cell[222475, 5155, 438, 11, 45, "Text", CellTags->"corecell"], Cell[222916, 5168, 402, 8, 26, "Input", CellTags->"corecell"], Cell[223343, 5180, 89, 1, 36, "Subsubsection", CellTags->"corecell"], Cell[223435, 5183, 1039, 17, 173, "Text", CellTags->"corecell"], Cell[224477, 5202, 1415, 43, 161, "Input", CellTags->"corecell"], Cell[225929, 5250, 71, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[226025, 5255, 128, 2, 23, "SmallText", CellTags->"corecell"], Cell[226156, 5259, 1005, 28, 66, "Input", CellTags->"corecell"], Cell[227164, 5289, 868, 20, 66, "Input", CellTags->"corecell"], Cell[228069, 5314, 76, 1, 23, "SmallText", CellTags->"corecell"], Cell[228148, 5317, 840, 23, 74, "Input", CellTags->"corecell"], Cell[228991, 5342, 3548, 86, 332, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[232542, 5430, 865, 19, 66, "Input", CellTags->"corecell"], Cell[233444, 5454, 59, 1, 23, "SmallText", CellTags->"corecell"], Cell[233506, 5457, 1949, 53, 135, "Input", CellTags->"corecell"], Cell[235458, 5512, 834, 21, 85, "Input", CellTags->"corecell"], Cell[236329, 5538, 135, 2, 23, "SmallText", CellTags->"corecell"], Cell[236467, 5542, 604, 13, 27, "Input", CellTags->"corecell"], Cell[237074, 5557, 868, 20, 66, "Input", CellTags->"corecell"], Cell[237979, 5582, 381, 6, 23, "SmallText", CellTags->"corecell"], Cell[238363, 5590, 5891, 133, 256, "Input", CellTags->"corecell"], Cell[244257, 5725, 1202, 28, 66, "Input", CellTags->"corecell"], Cell[245496, 5758, 339, 5, 23, "SmallText", CellTags->"corecell"], Cell[245838, 5765, 323, 7, 47, "Text", CellTags->"corecell"], Cell[246164, 5774, 2484, 41, 27, "Input", CellTags->"corecell"], Cell[248651, 5817, 1096, 25, 66, "Input", CellTags->"corecell"], Cell[249784, 5847, 180, 3, 23, "SmallText", CellTags->"corecell"], Cell[249967, 5852, 229, 6, 47, "Text", CellTags->"corecell"], Cell[250199, 5860, 8285, 152, 237, "Input", CellTags->"corecell"], Cell[258487, 6014, 1286, 27, 66, "Input", CellTags->"corecell"], Cell[259810, 6046, 57, 1, 23, "SmallText", CellTags->"corecell"], Cell[259870, 6049, 1618, 43, 135, "Input", CellTags->"corecell"], Cell[261491, 6094, 779, 20, 66, "Input", CellTags->"corecell"], Cell[262307, 6119, 55, 1, 23, "SmallText", CellTags->"corecell"], Cell[262365, 6122, 1389, 39, 152, "Input", CellTags->"corecell"], Cell[263757, 6163, 697, 17, 66, "Input", CellTags->"corecell"], Cell[264491, 6185, 125, 2, 23, "SmallText", CellTags->"corecell"], Cell[264619, 6189, 1468, 41, 104, "Input", CellTags->"corecell"], Cell[266090, 6232, 1171, 34, 85, "Input", CellTags->"corecell"], Cell[267264, 6268, 706, 18, 66, "Input", CellTags->"corecell"], Cell[268007, 6291, 65, 1, 23, "SmallText", CellTags->"corecell"], Cell[268075, 6294, 647, 14, 119, "Text", CellTags->"corecell"], Cell[268725, 6310, 992, 28, 66, "Input", CellTags->"corecell"], Cell[269720, 6340, 1429, 40, 152, "Input", CellTags->"corecell"], Cell[271152, 6382, 728, 18, 66, "Input", CellTags->"corecell"], Cell[271917, 6405, 71, 1, 23, "SmallText", CellTags->"corecell"], Cell[271991, 6408, 490, 8, 101, "Text", CellTags->"corecell"], Cell[272484, 6418, 272, 8, 27, "Input", CellTags->"corecell"], Cell[272759, 6428, 1131, 33, 85, "Input", CellTags->"corecell"], Cell[273893, 6463, 774, 18, 66, "Input", CellTags->"corecell"], Cell[274704, 6486, 130, 2, 23, "SmallText", CellTags->"corecell"], Cell[274837, 6490, 13770, 275, 1016, "Input", CellTags->"corecell"], Cell[288610, 6767, 894, 20, 66, "Input", CellTags->"corecell"], Cell[289541, 6792, 62, 1, 23, "SmallText", CellTags->"corecell"], Cell[289606, 6795, 1199, 34, 66, "Input", CellTags->"corecell"], Cell[290808, 6831, 809, 20, 66, "Input", CellTags->"corecell"], Cell[291654, 6856, 49, 1, 23, "SmallText", CellTags->"corecell"], Cell[291706, 6859, 230, 5, 65, "Text", CellTags->"corecell"], Cell[291939, 6866, 957, 27, 66, "Input", CellTags->"corecell"], Cell[292899, 6895, 719, 17, 66, "Input", CellTags->"corecell"], Cell[293679, 6919, 138, 3, 68, "Section", Evaluatable->False, CellTags->{"corecell", "2dexclusive"}], Cell[293820, 6924, 993, 19, 120, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[294838, 6947, 12377, 222, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[307218, 7171, 7382, 180, 133, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[314612, 7354, 707, 11, 27, "Input", CellTags->{"corecell", "unique_contourfunction", "2dexclusive"}], Cell[315344, 7369, 135, 2, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[315504, 7375, 80, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[315587, 7378, 335, 7, 65, "Text", Evaluatable->False, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[315925, 7387, 1385, 26, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317313, 7415, 659, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317975, 7431, 762, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[318774, 7450, 84, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[318861, 7453, 2015, 50, 142, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[320879, 7505, 628, 16, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[321510, 7523, 867, 19, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[322380, 7544, 1654, 38, 66, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[324037, 7584, 729, 15, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[324803, 7604, 151, 2, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[324957, 7608, 1072, 28, 74, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[326032, 7638, 1723, 43, 107, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[327758, 7683, 919, 24, 81, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[328680, 7709, 1664, 44, 186, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[330347, 7755, 863, 22, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[331247, 7782, 88, 1, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[331338, 7785, 119, 2, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[331460, 7789, 605, 15, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[332126, 7811, 128, 3, 38, "Section", Evaluatable->False, CellTags->"corecell"], Cell[332279, 7818, 211, 3, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[332493, 7823, 3252, 58, 487, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[335748, 7883, 23494, 1606, 73, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[359245, 9491, 2312, 41, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[361582, 9536, 154, 2, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[361761, 9542, 121, 3, 23, "SmallText", CellTags->"corecell"], Cell[361885, 9547, 2163, 41, 376, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[364051, 9590, 61288, 2654, 262, "Input", Evaluatable->False, CellTags->{"corecell", "3Sexclusive"}], Cell[425376, 12249, 118, 3, 23, "SmallText", CellTags->"corecell"], Cell[425497, 12254, 1816, 40, 353, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[427328, 12297, 995, 23, 139, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[428348, 12324, 19880, 356, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[448231, 12682, 4764, 108, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[453007, 12793, 4811, 115, 332, "Input", CellTags->{ "corecell", "differentacrossnotebooks", "unique_trajectoryspecs"}], Cell[457855, 12913, 72, 1, 36, "Subsubsection", CellTags->"corecell"], Cell[457930, 12916, 1006, 18, 157, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[458939, 12936, 2194, 46, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[461136, 12984, 175, 4, 27, "Input", CellTags->"corecell"], Cell[461348, 12993, 70, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[461421, 12996, 3142, 74, 437, "Text", CellTags->"corecell"], Cell[464566, 13072, 1030, 23, 85, "Input", CellTags->"corecell"], Cell[465633, 13100, 199, 3, 30, "Subsubsection", CellTags->"corecell"], Cell[465835, 13105, 2069, 32, 337, "Text", CellTags->"corecell"], Cell[467907, 13139, 312, 7, 47, "Input", CellTags->"corecell"], Cell[468256, 13151, 147, 2, 30, "Subsubsection", CellTags->"corecell"], Cell[468406, 13155, 2210, 46, 251, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[470619, 13203, 832, 18, 123, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[471488, 13226, 77, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[471568, 13229, 3992, 67, 717, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[475563, 13298, 1045, 18, 155, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[476611, 13318, 2488, 42, 85, "Input", CellTags->"corecell"], Cell[479124, 13364, 1424, 27, 176, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[480551, 13393, 1339, 21, 66, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[481951, 13421, 193, 3, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[482169, 13428, 85, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[482257, 13431, 547, 12, 85, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[482807, 13445, 1055, 17, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[483887, 13466, 108, 1, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[483998, 13469, 1778, 38, 268, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[485779, 13509, 159012, 12431, 87, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[644794, 25942, 995, 19, 175, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[645804, 25964, 1078, 28, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[646885, 25994, 1492, 37, 161, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[648402, 26035, 17765, 325, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[666170, 26362, 3072, 74, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[669254, 26439, 662, 16, 47, "Input", CellTags->{"corecell", "unique_vectorfieldspecs", "2dexclusive"}], Cell[669953, 26460, 97, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[670053, 26463, 1931, 54, 322, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[671987, 26519, 1421, 30, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[673445, 26554, 107, 1, 36, "Subsubsection", CellTags->{"corecell", "3Sexclusive"}], Cell[673555, 26557, 1680, 45, 217, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[675238, 26604, 1134, 24, 104, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[676445, 26636, 75, 2, 47, "Subtitle", CellTags->"corecell"], Cell[676523, 26640, 204, 5, 40, "Input", CellTags->"corecell"], Cell[676752, 26649, 235, 4, 87, "Section", CellTags->{"corecell", "singlepopulation"}], Cell[676990, 26655, 2140, 58, 142, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[679155, 26717, 183, 3, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[679341, 26722, 3551, 51, 27, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[682929, 26778, 214, 4, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[683146, 26784, 3736, 58, 66, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[686931, 26848, 161, 3, 57, "Section", CellTags->"corecell"], Cell[687117, 26855, 119, 2, 38, "Subsection", CellTags->"corecell"], Cell[687239, 26859, 4605, 84, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[691847, 26945, 8064, 164, 541, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[699948, 27114, 273, 4, 30, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[700224, 27120, 7822, 135, 389, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[708083, 27260, 186, 3, 30, "Subsection", CellTags->"corecell"], Cell[708272, 27265, 2234, 40, 85, "Input", CellTags->"corecell"], Cell[710543, 27310, 188, 3, 30, "Subsection", CellTags->"corecell"], Cell[710734, 27315, 2199, 41, 104, "Input", CellTags->"corecell"], Cell[712982, 27362, 149, 3, 57, "Section", CellTags->"corecell"], Cell[713134, 27367, 872, 23, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[714031, 27394, 166, 2, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[714200, 27398, 221, 5, 51, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[714424, 27405, 14310, 314, 1287, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[728771, 27724, 166, 3, 30, "Subsection", CellTags->"corecell"], Cell[728962, 27731, 464, 9, 29, "Text", CellTags->"corecell"], Cell[729429, 27742, 2098, 35, 49, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[731530, 27779, 2610, 43, 69, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[734177, 27827, 110, 1, 26, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[734290, 27830, 13982, 335, 969, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[748309, 28170, 685, 13, 62, "Text", CellTags->"corecell"], Cell[748997, 28185, 5343, 121, 449, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[754365, 28310, 66, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[754434, 28313, 5147, 115, 449, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[759630, 28434, 198, 3, 26, "Text", CellTags->"corecell"], Cell[759831, 28439, 8330, 205, 598, "Input", CellTags->{"differentacrossnotebooks", "corecell"}], Cell[768198, 28649, 318, 7, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[768519, 28658, 7635, 172, 689, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[776203, 28836, 98, 1, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[776304, 28839, 9963, 202, 649, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[786304, 29046, 172, 3, 30, "Subsection", CellTags->"corecell"], Cell[786479, 29051, 2465, 55, 169, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[788947, 29108, 2882, 61, 189, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[791866, 29174, 199, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[792068, 29179, 4068, 94, 349, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[796173, 29278, 159, 3, 30, "Subsection", CellTags->"corecell"], Cell[796335, 29283, 7631, 158, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[803969, 29443, 7205, 149, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[811199, 29596, 82, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[811284, 29599, 4914, 103, 289, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[816247, 29708, 316, 5, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[816566, 29715, 346, 11, 48, "Input", CellTags->{"corecell", "differentacrossnotebooks", "2dexclusive"}], Cell[816915, 29728, 7822, 163, 526, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824774, 29896, 125, 1, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824902, 29899, 9789, 211, 870, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[834728, 30115, 209, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[834940, 30120, 5370, 115, 429, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[840359, 30241, 72, 1, 57, "Section", CellTags->"corecell"], Cell[840552, 30249, 668, 12, 60, "Input", CellTags->"corecell"], Cell[841223, 30263, 14859, 257, 630, "Input", CellTags->"corecell"], Cell[856085, 30522, 19502, 391, 1276, "Input", CellTags->"corecell"], Cell[875590, 30915, 1691, 33, 117, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[877318, 30953, 61, 1, 42, "Text", CellTags->"corecell"], Cell[877382, 30956, 4245, 65, 47, "Input", CellTags->"corecell"], Cell[881630, 31023, 7112, 140, 446, "Input", CellTags->"corecell"], Cell[888745, 31165, 5805, 102, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[894553, 31269, 8559, 165, 579, "Input", CellTags->"corecell"], Cell[903149, 31439, 64, 1, 39, "Text", CellTags->"corecell"], Cell[903216, 31442, 2483, 63, 218, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[905736, 31510, 77, 1, 39, "Text", CellTags->"corecell"], Cell[905816, 31513, 13076, 278, 1263, "Input", CellTags->"corecell"], Cell[918929, 31796, 118, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[919050, 31799, 4150, 99, 549, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923237, 31903, 119, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923359, 31906, 2853, 53, 209, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[926249, 31964, 79, 1, 39, "Text", CellTags->"corecell"], Cell[926331, 31967, 2800, 51, 149, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[929168, 32023, 130, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[929301, 32026, 1493, 28, 89, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[930831, 32059, 97, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[930931, 32062, 4095, 100, 449, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[935063, 32167, 98, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[935164, 32170, 2391, 51, 129, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[937592, 32226, 154, 3, 39, "Text", CellTags->"corecell"], Cell[937749, 32231, 4602, 93, 289, "Input", CellTags->"corecell"], Cell[942543, 32333, 2511, 74, 269, "Input", CellTags->"corecell"]}, "differentacrossnotebooks"->{ Cell[4714, 135, 1145, 23, 115, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[5884, 162, 18456, 337, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[24343, 501, 3361, 90, 54, "Output", CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[31207, 654, 171, 2, 49, "Subsubsection", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[31381, 658, 1013, 26, 136, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[37344, 838, 612, 14, 45, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[38203, 863, 19911, 396, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[58117, 1261, 17918, 458, 111, "Print", CellOpen->True, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[156273, 3679, 3161, 83, 301, "Input", CellTags->{"corecell", "differentacrossnotebooks", "singlepopulation"}], Cell[159847, 3779, 1487, 49, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[161442, 3834, 2973, 82, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[165097, 3939, 1165, 25, 74, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[221916, 5135, 296, 9, 57, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[228991, 5342, 3548, 86, 332, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[315587, 7378, 335, 7, 65, "Text", Evaluatable->False, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[332493, 7823, 3252, 58, 487, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[359245, 9491, 2312, 41, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[361885, 9547, 2163, 41, 376, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[425497, 12254, 1816, 40, 353, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[427328, 12297, 995, 23, 139, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[428348, 12324, 19880, 356, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[448231, 12682, 4764, 108, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[453007, 12793, 4811, 115, 332, "Input", CellTags->{ "corecell", "differentacrossnotebooks", "unique_trajectoryspecs"}], Cell[457930, 12916, 1006, 18, 157, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[458939, 12936, 2194, 46, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[468406, 13155, 2210, 46, 251, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[470619, 13203, 832, 18, 123, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[471568, 13229, 3992, 67, 717, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[475563, 13298, 1045, 18, 155, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[479124, 13364, 1424, 27, 176, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[480551, 13393, 1339, 21, 66, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[687239, 26859, 4605, 84, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[691847, 26945, 8064, 164, 541, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[729429, 27742, 2098, 35, 49, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[731530, 27779, 2610, 43, 69, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[748997, 28185, 5343, 121, 449, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[759831, 28439, 8330, 205, 598, "Input", CellTags->{"differentacrossnotebooks", "corecell"}], Cell[786479, 29051, 2465, 55, 169, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[788947, 29108, 2882, 61, 189, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[796335, 29283, 7631, 158, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[803969, 29443, 7205, 149, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[816247, 29708, 316, 5, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[816566, 29715, 346, 11, 48, "Input", CellTags->{"corecell", "differentacrossnotebooks", "2dexclusive"}], Cell[816915, 29728, 7822, 163, 526, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824774, 29896, 125, 1, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824902, 29899, 9789, 211, 870, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[875590, 30915, 1691, 33, 117, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[888745, 31165, 5805, 102, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[903216, 31442, 2483, 63, 218, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[918929, 31796, 118, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[919050, 31799, 4150, 99, 549, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923237, 31903, 119, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923359, 31906, 2853, 53, 209, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[926331, 31967, 2800, 51, 149, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[929168, 32023, 130, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[929301, 32026, 1493, 28, 89, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[945917, 32440, 2000, 33, 98, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1039124, 34504, 311, 7, 47, "Text", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1039438, 34513, 2579, 68, 213, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1044043, 34631, 2004, 51, 85, "Input", CellTags->{"initcell", "differentacrossnotebooks"}]}, "buttoncell"->{ Cell[5884, 162, 18456, 337, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[24343, 501, 3361, 90, 54, "Output", CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[38203, 863, 19911, 396, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[58117, 1261, 17918, 458, 111, "Print", CellOpen->True, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[76348, 1733, 25603, 568, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[101954, 2303, 46221, 1224, 449, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[170437, 4063, 16144, 301, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[186584, 4366, 6327, 175, 102, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[193927, 4570, 15146, 282, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[209076, 4854, 4402, 119, 40, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[294838, 6947, 12377, 222, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[307218, 7171, 7382, 180, 133, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[428348, 12324, 19880, 356, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[448231, 12682, 4764, 108, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[648402, 26035, 17765, 325, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[666170, 26362, 3072, 74, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[1330169, 40528, 2192, 45, 368, "Text", Evaluatable->False, CellTags->{"finalcell", "buttoncell", "opengroup"}]}, "unique_payofffunction"->{ Cell[27716, 594, 3329, 50, 60, "Input", CellTags->{"corecell", "unique_payofffunction"}]}, "3Sexclusive"->{ Cell[76081, 1725, 242, 4, 23, "SmallText", CellTags->{"corecell", "3Sexclusive"}], Cell[76348, 1733, 25603, 568, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[101954, 2303, 46221, 1224, 449, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[364051, 9590, 61288, 2654, 262, "Input", Evaluatable->False, CellTags->{"corecell", "3Sexclusive"}], Cell[673445, 26554, 107, 1, 36, "Subsubsection", CellTags->{"corecell", "3Sexclusive"}], Cell[673555, 26557, 1680, 45, 217, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[675238, 26604, 1134, 24, 104, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[734177, 27827, 110, 1, 26, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[734290, 27830, 13982, 335, 969, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[754365, 28310, 66, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[754434, 28313, 5147, 115, 449, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[791866, 29174, 199, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[792068, 29179, 4068, 94, 349, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[811199, 29596, 82, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[811284, 29599, 4914, 103, 289, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[834728, 30115, 209, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[834940, 30120, 5370, 115, 429, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[930831, 32059, 97, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[930931, 32062, 4095, 100, 449, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[935063, 32167, 98, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[935164, 32170, 2391, 51, 129, "Input", CellTags->{"corecell", "3Sexclusive"}], Cell[1046084, 34687, 377, 10, 47, "Text", CellTags->{"initcell", "3Sexclusive"}], Cell[1046464, 34699, 12048, 306, 1211, "Input", CellTags->{"initcell", "3Sexclusive"}]}, "unique_payoffmatrix"->{ Cell[148199, 3531, 6443, 101, 55, "Input", CellTags->{"corecell", "unique_payoffmatrix"}]}, "singlepopulation"->{ Cell[154645, 3634, 907, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"corecell", "notopen", "singlepopulation"}], Cell[155965, 3672, 305, 5, 38, "SmallText", CellTags->{"corecell", "singlepopulation"}], Cell[156273, 3679, 3161, 83, 301, "Input", CellTags->{"corecell", "differentacrossnotebooks", "singlepopulation"}], Cell[676752, 26649, 235, 4, 87, "Section", CellTags->{"corecell", "singlepopulation"}], Cell[676990, 26655, 2140, 58, 142, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[679155, 26717, 183, 3, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[679341, 26722, 3551, 51, 27, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[682929, 26778, 214, 4, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[683146, 26784, 3736, 58, 66, "Input", CellTags->{"corecell", "singlepopulation"}]}, "unique_meandynamic"->{ Cell[213502, 4977, 5333, 75, 22, "Input", CellTags->{"corecell", "unique_meandynamic"}]}, "2dexclusive"->{ Cell[293679, 6919, 138, 3, 68, "Section", Evaluatable->False, CellTags->{"corecell", "2dexclusive"}], Cell[293820, 6924, 993, 19, 120, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[294838, 6947, 12377, 222, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[307218, 7171, 7382, 180, 133, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[314612, 7354, 707, 11, 27, "Input", CellTags->{"corecell", "unique_contourfunction", "2dexclusive"}], Cell[315344, 7369, 135, 2, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[315504, 7375, 80, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[315587, 7378, 335, 7, 65, "Text", Evaluatable->False, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[315925, 7387, 1385, 26, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317313, 7415, 659, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317975, 7431, 762, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[318774, 7450, 84, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[318861, 7453, 2015, 50, 142, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[320879, 7505, 628, 16, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[321510, 7523, 867, 19, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[322380, 7544, 1654, 38, 66, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[324037, 7584, 729, 15, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[324803, 7604, 151, 2, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[324957, 7608, 1072, 28, 74, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[326032, 7638, 1723, 43, 107, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[327758, 7683, 919, 24, 81, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[328680, 7709, 1664, 44, 186, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[330347, 7755, 863, 22, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[331247, 7782, 88, 1, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[331338, 7785, 119, 2, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[331460, 7789, 605, 15, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[335748, 7883, 23494, 1606, 73, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[481951, 13421, 193, 3, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[482169, 13428, 85, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[482257, 13431, 547, 12, 85, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[482807, 13445, 1055, 17, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[483887, 13466, 108, 1, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[483998, 13469, 1778, 38, 268, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[485779, 13509, 159012, 12431, 87, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[644794, 25942, 995, 19, 175, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[645804, 25964, 1078, 28, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[646885, 25994, 1492, 37, 161, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[648402, 26035, 17765, 325, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[666170, 26362, 3072, 74, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[669254, 26439, 662, 16, 47, "Input", CellTags->{"corecell", "unique_vectorfieldspecs", "2dexclusive"}], Cell[669953, 26460, 97, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[670053, 26463, 1931, 54, 322, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[671987, 26519, 1421, 30, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[699948, 27114, 273, 4, 30, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[700224, 27120, 7822, 135, 389, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[713134, 27367, 872, 23, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[714031, 27394, 166, 2, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[714200, 27398, 221, 5, 51, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[714424, 27405, 14310, 314, 1287, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[768198, 28649, 318, 7, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[768519, 28658, 7635, 172, 689, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[776203, 28836, 98, 1, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[776304, 28839, 9963, 202, 649, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[816247, 29708, 316, 5, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[816566, 29715, 346, 11, 48, "Input", CellTags->{"corecell", "differentacrossnotebooks", "2dexclusive"}], Cell[816915, 29728, 7822, 163, 526, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824774, 29896, 125, 1, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824902, 29899, 9789, 211, 870, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[918929, 31796, 118, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[919050, 31799, 4150, 99, 549, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923237, 31903, 119, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923359, 31906, 2853, 53, 209, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[929168, 32023, 130, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[929301, 32026, 1493, 28, 89, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[1058561, 35011, 360, 5, 43, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1058924, 35018, 1256, 36, 123, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1060183, 35056, 2987, 80, 275, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1063173, 35138, 5157, 109, 408, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1254457, 38947, 338, 5, 30, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1254798, 38954, 11026, 210, 712, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1265827, 39166, 19580, 379, 1529, "Input", CellTags->{"initcell", "2dexclusive"}]}, "unique_contourfunction"->{ Cell[314612, 7354, 707, 11, 27, "Input", CellTags->{"corecell", "unique_contourfunction", "2dexclusive"}]}, "unique_trajectoryspecs"->{ Cell[453007, 12793, 4811, 115, 332, "Input", CellTags->{ "corecell", "differentacrossnotebooks", "unique_trajectoryspecs"}]}, "unique_vectorfieldspecs"->{ Cell[669254, 26439, 662, 16, 47, "Input", CellTags->{"corecell", "unique_vectorfieldspecs", "2dexclusive"}]}, "initcell"->{ Cell[945289, 32421, 167, 3, 87, "Section", CellTags->"initcell"], Cell[945481, 32428, 85, 1, 52, "Subsection", CellTags->"initcell"], Cell[945591, 32433, 323, 5, 49, "Subsubsection", CellTags->"initcell"], Cell[945917, 32440, 2000, 33, 98, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[947920, 32475, 3170, 75, 117, "Input", CellTags->"initcell"], Cell[951127, 32555, 193, 3, 49, "Subsubsection", CellTags->"initcell"], Cell[951323, 32560, 2455, 63, 218, "Input", CellTags->"initcell"], Cell[953781, 32625, 2570, 66, 256, "Input", CellTags->"initcell"], Cell[956354, 32693, 5355, 117, 408, "Input", CellTags->"initcell"], Cell[961712, 32812, 3016, 78, 237, "Input", CellTags->"initcell"], Cell[964731, 32892, 962, 26, 47, "Input", CellTags->"initcell"], Cell[965696, 32920, 1802, 44, 199, "Input", CellTags->"initcell"], Cell[967501, 32966, 3302, 75, 389, "Input", CellTags->"initcell"], Cell[970806, 33043, 1914, 46, 180, "Input", CellTags->"initcell"], Cell[972723, 33091, 3327, 84, 370, "Input", CellTags->"initcell"], Cell[976053, 33177, 1112, 31, 85, "Input", CellTags->"initcell"], Cell[977168, 33210, 1154, 31, 85, "Input", CellTags->"initcell"], Cell[978325, 33243, 7480, 162, 788, "Input", CellTags->"initcell"], Cell[985808, 33407, 3377, 80, 199, "Input", CellTags->"initcell"], Cell[989222, 33492, 246, 4, 43, "Subsubsection", CellTags->"initcell"], Cell[989471, 33498, 2456, 64, 237, "Input", CellTags->"initcell"], Cell[991930, 33564, 2836, 65, 123, "Input", CellTags->"initcell"], Cell[994769, 33631, 2855, 58, 104, "Input", CellTags->"initcell"], Cell[997627, 33691, 4221, 88, 237, "Input", CellTags->"initcell"], Cell[1001851, 33781, 13402, 211, 313, "Input", CellTags->"initcell"], Cell[1015290, 33997, 253, 4, 43, "Subsubsection", CellTags->"initcell"], Cell[1015546, 34003, 2484, 56, 104, "Input", CellTags->"initcell"], Cell[1018033, 34061, 11218, 224, 788, "Input", CellTags->"initcell"], Cell[1029254, 34287, 9634, 205, 693, "Input", CellTags->"initcell"], Cell[1038925, 34497, 174, 3, 43, "Subsubsection", CellTags->"initcell"], Cell[1039124, 34504, 311, 7, 47, "Text", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1039438, 34513, 2579, 68, 213, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1042020, 34583, 2020, 46, 104, "Input", CellTags->"initcell"], Cell[1044043, 34631, 2004, 51, 85, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1046084, 34687, 377, 10, 47, "Text", CellTags->{"initcell", "3Sexclusive"}], Cell[1046464, 34699, 12048, 306, 1211, "Input", CellTags->{"initcell", "3Sexclusive"}], Cell[1058561, 35011, 360, 5, 43, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1058924, 35018, 1256, 36, 123, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1060183, 35056, 2987, 80, 275, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1063173, 35138, 5157, 109, 408, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1068379, 35253, 139, 2, 52, "Subsection", CellTags->"initcell"], Cell[1068543, 35259, 164, 2, 36, "Subsubsection", CellTags->"initcell"], Cell[1068710, 35263, 19364, 387, 902, "Input", CellTags->"initcell"], Cell[1088077, 35652, 18188, 374, 1320, "Input", CellTags->"initcell"], Cell[1106302, 36031, 206, 5, 36, "Subsubsection", CellTags->"initcell"], Cell[1106511, 36038, 32207, 623, 1833, "Input", CellTags->"initcell"], Cell[1138721, 36663, 25787, 462, 1263, "Input", CellTags->"initcell"], Cell[1164545, 37130, 76, 1, 36, "Subsubsection", CellTags->"initcell"], Cell[1164624, 37133, 3819, 72, 465, "Input", CellTags->"initcell"], Cell[1168492, 37211, 119, 2, 44, "Subsection", CellTags->"initcell"], Cell[1168636, 37217, 212, 3, 36, "Subsubsection", CellTags->"initcell"], Cell[1168851, 37222, 23065, 460, 1092, "Input", CellTags->"initcell"], Cell[1191953, 37687, 325, 5, 36, "Subsubsection", CellTags->"initcell"], Cell[1192281, 37694, 17675, 343, 1757, "Input", CellTags->"initcell"], Cell[1209993, 38042, 307, 5, 30, "Subsubsection", CellTags->"initcell"], Cell[1210303, 38049, 23351, 465, 1016, "Input", CellTags->"initcell"], Cell[1233657, 38516, 4521, 95, 465, "Input", CellTags->"initcell"], Cell[1238215, 38616, 288, 4, 36, "Subsubsection", CellTags->"initcell"], Cell[1238506, 38622, 15914, 320, 1757, "Input", CellTags->"initcell"], Cell[1254457, 38947, 338, 5, 30, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1254798, 38954, 11026, 210, 712, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1265827, 39166, 19580, 379, 1529, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1285456, 39551, 176, 3, 44, "Subsection", CellTags->"initcell"], Cell[1285657, 39558, 230, 4, 36, "Subsubsection", CellTags->"initcell"], Cell[1285890, 39564, 10022, 191, 1111, "Input", CellTags->"initcell"], Cell[1295915, 39757, 8368, 123, 104, "Input", CellTags->"initcell"], Cell[1304332, 39886, 175, 3, 44, "Subsection", CellTags->"initcell"], Cell[1304510, 39891, 16311, 399, 2061, "Input", CellTags->"initcell"]}, "finalcell"->{ Cell[1330169, 40528, 2192, 45, 368, "Text", Evaluatable->False, CellTags->{"finalcell", "buttoncell", "opengroup"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"opengroup", 1445947, 42922}, {"notopen", 1447137, 42952}, {"corecell", 1450074, 43034}, {"differentacrossnotebooks", 1475446, 43657}, {"buttoncell", 1482219, 43798}, {"unique_payofffunction", 1484878, 43870}, {"3Sexclusive", 1484992, 43873}, {"unique_payoffmatrix", 1487219, 43925}, {"singlepopulation", 1487339, 43928}, {"unique_meandynamic", 1488290, 43949}, {"2dexclusive", 1488403, 43952}, {"unique_contourfunction", 1495441, 44105}, {"unique_trajectoryspecs", 1495583, 44108}, {"unique_vectorfieldspecs", 1495748, 44112}, {"initcell", 1495878, 44115}, {"finalcell", 1501223, 44252} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 513, 11, 139, "Title", CellTags->"opengroup"], Cell[CellGroupData[{ Cell[1117, 37, 221, 6, 49, "Text", Evaluatable->False], Cell[1341, 45, 1675, 39, 19, "Input", CellOpen->False, CellTags->"notopen"], Cell[3019, 86, 1031, 23, 19, "Input", CellOpen->False, CellTags->"notopen"] }, Closed]], Cell[CellGroupData[{ Cell[4087, 114, 169, 3, 47, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[4281, 121, 225, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[4531, 129, 180, 4, 38, "Subsection", CellTags->"corecell"], Cell[4714, 135, 1145, 23, 115, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[5884, 162, 18456, 337, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[24343, 501, 3361, 90, 54, "Output", CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}] }, {2}]], Cell[27716, 594, 3329, 50, 60, "Input", CellTags->{"corecell", "unique_payofffunction"}], Cell[CellGroupData[{ Cell[31070, 648, 112, 2, 38, "SmallText", CellTags->"corecell"], Cell[CellGroupData[{ Cell[31207, 654, 171, 2, 49, "Subsubsection", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[31381, 658, 1013, 26, 136, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[32431, 689, 79, 1, 49, "Subsubsection", CellTags->"corecell"], Cell[32513, 692, 1103, 29, 47, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[33653, 726, 68, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[33724, 729, 634, 19, 27, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[34395, 753, 90, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[34488, 756, 911, 25, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[35436, 786, 71, 1, 43, "Subsubsection", CellTags->"corecell"], Cell[35510, 789, 1003, 24, 47, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[36574, 820, 395, 6, 30, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[36994, 830, 347, 6, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[37344, 838, 612, 14, 45, "Text", Evaluatable->False, CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[37981, 856, 197, 3, 23, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[38203, 863, 19911, 396, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "differentacrossnotebooks", "notopen"}], Cell[58117, 1261, 17918, 458, 111, "Print", CellOpen->True, CellTags->{"buttoncell", "corecell", "differentacrossnotebooks", "notopen"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[76081, 1725, 242, 4, 23, "SmallText", CellTags->{"corecell", "3Sexclusive"}], Cell[CellGroupData[{ Cell[76348, 1733, 25603, 568, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}], Cell[101954, 2303, 46221, 1224, 449, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "3Sexclusive", "notopen"}] }, {2}]] }, Closed]], Cell[148199, 3531, 6443, 101, 55, "Input", CellTags->{"corecell", "unique_payoffmatrix"}], Cell[154645, 3634, 907, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"corecell", "notopen", "singlepopulation"}] }, Open ]], Cell[CellGroupData[{ Cell[155589, 3662, 351, 6, 36, "Subsubsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[155965, 3672, 305, 5, 38, "SmallText", CellTags->{"corecell", "singlepopulation"}], Cell[156273, 3679, 3161, 83, 301, "Input", CellTags->{"corecell", "differentacrossnotebooks", "singlepopulation"}] }, Closed]], Cell[CellGroupData[{ Cell[159471, 3767, 233, 4, 38, "SmallText", CellTags->"corecell"], Cell[159707, 3773, 137, 4, 29, "Text", CellTags->"corecell"], Cell[159847, 3779, 1487, 49, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[161337, 3830, 102, 2, 29, "Text", CellTags->"corecell"], Cell[161442, 3834, 2973, 82, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[164476, 3923, 398, 6, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[164877, 3931, 217, 6, 28, "Text", CellTags->"corecell"], Cell[165097, 3939, 1165, 25, 74, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Open ]], Cell[CellGroupData[{ Cell[166299, 3969, 395, 6, 38, "Subsection", CellTags->"corecell"], Cell[166697, 3977, 1405, 28, 193, "Text", CellTags->"corecell"], Cell[168105, 4007, 584, 12, 66, "Input", CellTags->"corecell"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[168738, 4025, 193, 4, 68, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[168934, 4031, 1371, 23, 113, "Text", CellTags->"corecell"], Cell[CellGroupData[{ Cell[170330, 4058, 82, 1, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[170437, 4063, 16144, 301, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[186584, 4366, 6327, 175, 102, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[192957, 4547, 179, 3, 38, "Subsection", CellTags->"corecell"], Cell[193139, 4552, 763, 14, 65, "Text", CellTags->"corecell"], Cell[CellGroupData[{ Cell[193927, 4570, 15146, 282, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen"}], Cell[209076, 4854, 4402, 119, 40, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen"}] }, {2}]] }, Closed]], Cell[213502, 4977, 5333, 75, 22, "Input", CellTags->{"corecell", "unique_meandynamic"}], Cell[CellGroupData[{ Cell[218860, 5056, 193, 3, 23, "SmallText", CellTags->"corecell"], Cell[219056, 5061, 391, 7, 27, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[219484, 5073, 259, 4, 23, "SmallText", CellTags->"corecell"], Cell[219746, 5079, 444, 8, 27, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[220227, 5092, 302, 4, 23, "SmallText", CellTags->"corecell"], Cell[220532, 5098, 562, 10, 27, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[221131, 5113, 147, 3, 23, "SmallText", CellTags->"corecell"], Cell[221281, 5118, 632, 15, 84, "Text", CellTags->"corecell"], Cell[221916, 5135, 296, 9, 57, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[222227, 5147, 245, 6, 19, "Input", CellOpen->False, CellTags->{"corecell", "notopen"}], Cell[222475, 5155, 438, 11, 45, "Text", CellTags->"corecell"], Cell[222916, 5168, 402, 8, 26, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[223343, 5180, 89, 1, 36, "Subsubsection", CellTags->"corecell"], Cell[223435, 5183, 1039, 17, 173, "Text", CellTags->"corecell"], Cell[224477, 5202, 1415, 43, 161, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[225929, 5250, 71, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[226025, 5255, 128, 2, 23, "SmallText", CellTags->"corecell"], Cell[226156, 5259, 1005, 28, 66, "Input", CellTags->"corecell"], Cell[227164, 5289, 868, 20, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[228069, 5314, 76, 1, 23, "SmallText", CellTags->"corecell"], Cell[228148, 5317, 840, 23, 74, "Input", CellTags->"corecell"], Cell[228991, 5342, 3548, 86, 332, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[232542, 5430, 865, 19, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[233444, 5454, 59, 1, 23, "SmallText", CellTags->"corecell"], Cell[233506, 5457, 1949, 53, 135, "Input", CellTags->"corecell"], Cell[235458, 5512, 834, 21, 85, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[236329, 5538, 135, 2, 23, "SmallText", CellTags->"corecell"], Cell[236467, 5542, 604, 13, 27, "Input", CellTags->"corecell"], Cell[237074, 5557, 868, 20, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[237979, 5582, 381, 6, 23, "SmallText", CellTags->"corecell"], Cell[238363, 5590, 5891, 133, 256, "Input", CellTags->"corecell"], Cell[244257, 5725, 1202, 28, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[245496, 5758, 339, 5, 23, "SmallText", CellTags->"corecell"], Cell[245838, 5765, 323, 7, 47, "Text", CellTags->"corecell"], Cell[246164, 5774, 2484, 41, 27, "Input", CellTags->"corecell"], Cell[248651, 5817, 1096, 25, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[249784, 5847, 180, 3, 23, "SmallText", CellTags->"corecell"], Cell[249967, 5852, 229, 6, 47, "Text", CellTags->"corecell"], Cell[250199, 5860, 8285, 152, 237, "Input", CellTags->"corecell"], Cell[258487, 6014, 1286, 27, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[259810, 6046, 57, 1, 23, "SmallText", CellTags->"corecell"], Cell[259870, 6049, 1618, 43, 135, "Input", CellTags->"corecell"], Cell[261491, 6094, 779, 20, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[262307, 6119, 55, 1, 23, "SmallText", CellTags->"corecell"], Cell[262365, 6122, 1389, 39, 152, "Input", CellTags->"corecell"], Cell[263757, 6163, 697, 17, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[264491, 6185, 125, 2, 23, "SmallText", CellTags->"corecell"], Cell[264619, 6189, 1468, 41, 104, "Input", CellTags->"corecell"], Cell[266090, 6232, 1171, 34, 85, "Input", CellTags->"corecell"], Cell[267264, 6268, 706, 18, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[268007, 6291, 65, 1, 23, "SmallText", CellTags->"corecell"], Cell[268075, 6294, 647, 14, 119, "Text", CellTags->"corecell"], Cell[268725, 6310, 992, 28, 66, "Input", CellTags->"corecell"], Cell[269720, 6340, 1429, 40, 152, "Input", CellTags->"corecell"], Cell[271152, 6382, 728, 18, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[271917, 6405, 71, 1, 23, "SmallText", CellTags->"corecell"], Cell[271991, 6408, 490, 8, 101, "Text", CellTags->"corecell"], Cell[272484, 6418, 272, 8, 27, "Input", CellTags->"corecell"], Cell[272759, 6428, 1131, 33, 85, "Input", CellTags->"corecell"], Cell[273893, 6463, 774, 18, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[274704, 6486, 130, 2, 23, "SmallText", CellTags->"corecell"], Cell[274837, 6490, 13770, 275, 1016, "Input", CellTags->"corecell"], Cell[288610, 6767, 894, 20, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[289541, 6792, 62, 1, 23, "SmallText", CellTags->"corecell"], Cell[289606, 6795, 1199, 34, 66, "Input", CellTags->"corecell"], Cell[290808, 6831, 809, 20, 66, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[291654, 6856, 49, 1, 23, "SmallText", CellTags->"corecell"], Cell[291706, 6859, 230, 5, 65, "Text", CellTags->"corecell"], Cell[291939, 6866, 957, 27, 66, "Input", CellTags->"corecell"], Cell[292899, 6895, 719, 17, 66, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[293679, 6919, 138, 3, 68, "Section", Evaluatable->False, CellTags->{"corecell", "2dexclusive"}], Cell[293820, 6924, 993, 19, 120, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[294838, 6947, 12377, 222, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[307218, 7171, 7382, 180, 133, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}] }, {2}]], Cell[314612, 7354, 707, 11, 27, "Input", CellTags->{"corecell", "unique_contourfunction", "2dexclusive"}], Cell[CellGroupData[{ Cell[315344, 7369, 135, 2, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[315504, 7375, 80, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[315587, 7378, 335, 7, 65, "Text", Evaluatable->False, CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[315925, 7387, 1385, 26, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317313, 7415, 659, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[317975, 7431, 762, 14, 27, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[318774, 7450, 84, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[318861, 7453, 2015, 50, 142, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[320879, 7505, 628, 16, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[321510, 7523, 867, 19, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[322380, 7544, 1654, 38, 66, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[324037, 7584, 729, 15, 47, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[324803, 7604, 151, 2, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[324957, 7608, 1072, 28, 74, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[326032, 7638, 1723, 43, 107, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[327758, 7683, 919, 24, 81, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[328680, 7709, 1664, 44, 186, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[330347, 7755, 863, 22, 47, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[331247, 7782, 88, 1, 30, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[331338, 7785, 119, 2, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[331460, 7789, 605, 15, 27, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[332126, 7811, 128, 3, 38, "Section", Evaluatable->False, CellTags->"corecell"], Cell[CellGroupData[{ Cell[332279, 7818, 211, 3, 38, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[332493, 7823, 3252, 58, 487, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[335748, 7883, 23494, 1606, 73, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[359245, 9491, 2312, 41, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[361582, 9536, 154, 2, 36, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[361761, 9542, 121, 3, 23, "SmallText", CellTags->"corecell"], Cell[361885, 9547, 2163, 41, 376, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[364051, 9590, 61288, 2654, 262, "Input", Evaluatable->False, CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[425376, 12249, 118, 3, 23, "SmallText", CellTags->"corecell"], Cell[425497, 12254, 1816, 40, 353, "Text", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[427328, 12297, 995, 23, 139, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[428348, 12324, 19880, 356, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{ "buttoncell", "corecell", "notopen", "differentacrossnotebooks"}], Cell[448231, 12682, 4764, 108, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "differentacrossnotebooks"}] }, {2}]], Cell[453007, 12793, 4811, 115, 332, "Input", CellTags->{ "corecell", "differentacrossnotebooks", "unique_trajectoryspecs"}] }, Open ]], Cell[CellGroupData[{ Cell[457855, 12913, 72, 1, 36, "Subsubsection", CellTags->"corecell"], Cell[457930, 12916, 1006, 18, 157, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[458939, 12936, 2194, 46, 142, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[461136, 12984, 175, 4, 27, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[461348, 12993, 70, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[461421, 12996, 3142, 74, 437, "Text", CellTags->"corecell"], Cell[464566, 13072, 1030, 23, 85, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[465633, 13100, 199, 3, 30, "Subsubsection", CellTags->"corecell"], Cell[465835, 13105, 2069, 32, 337, "Text", CellTags->"corecell"], Cell[467907, 13139, 312, 7, 47, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[468256, 13151, 147, 2, 30, "Subsubsection", CellTags->"corecell"], Cell[468406, 13155, 2210, 46, 251, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[470619, 13203, 832, 18, 123, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[471488, 13226, 77, 1, 30, "Subsubsection", CellTags->"corecell"], Cell[471568, 13229, 3992, 67, 717, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[475563, 13298, 1045, 18, 155, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[476611, 13318, 2488, 42, 85, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[479124, 13364, 1424, 27, 176, "Text", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[480551, 13393, 1339, 21, 66, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[481951, 13421, 193, 3, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[482169, 13428, 85, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[482257, 13431, 547, 12, 85, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[482807, 13445, 1055, 17, 47, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[483887, 13466, 108, 1, 23, "SmallText", CellTags->{"corecell", "2dexclusive"}], Cell[483998, 13469, 1778, 38, 268, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[485779, 13509, 159012, 12431, 87, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[644794, 25942, 995, 19, 175, "Text", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[645804, 25964, 1078, 28, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[646885, 25994, 1492, 37, 161, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[648402, 26035, 17765, 325, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}], Cell[666170, 26362, 3072, 74, 41, "Output", Evaluatable->False, CellOpen->True, CellTags->{"buttoncell", "corecell", "notopen", "2dexclusive"}] }, {2}]], Cell[669254, 26439, 662, 16, 47, "Input", CellTags->{"corecell", "unique_vectorfieldspecs", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[669953, 26460, 97, 1, 36, "Subsubsection", CellTags->{"corecell", "2dexclusive"}], Cell[670053, 26463, 1931, 54, 322, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[671987, 26519, 1421, 30, 104, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[673445, 26554, 107, 1, 36, "Subsubsection", CellTags->{"corecell", "3Sexclusive"}], Cell[673555, 26557, 1680, 45, 217, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[675238, 26604, 1134, 24, 104, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[676445, 26636, 75, 2, 47, "Subtitle", CellTags->"corecell"], Cell[676523, 26640, 204, 5, 40, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[676752, 26649, 235, 4, 87, "Section", CellTags->{"corecell", "singlepopulation"}], Cell[676990, 26655, 2140, 58, 142, "Input", CellTags->{"corecell", "singlepopulation"}], Cell[CellGroupData[{ Cell[679155, 26717, 183, 3, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[679341, 26722, 3551, 51, 27, "Input", CellTags->{"corecell", "singlepopulation"}] }, Closed]], Cell[CellGroupData[{ Cell[682929, 26778, 214, 4, 38, "Subsection", CellTags->{"corecell", "singlepopulation"}], Cell[683146, 26784, 3736, 58, 66, "Input", CellTags->{"corecell", "singlepopulation"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[686931, 26848, 161, 3, 57, "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell[687117, 26855, 119, 2, 38, "Subsection", CellTags->"corecell"], Cell[687239, 26859, 4605, 84, 199, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[691847, 26945, 8064, 164, 541, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[699948, 27114, 273, 4, 30, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[700224, 27120, 7822, 135, 389, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[708083, 27260, 186, 3, 30, "Subsection", CellTags->"corecell"], Cell[708272, 27265, 2234, 40, 85, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[710543, 27310, 188, 3, 30, "Subsection", CellTags->"corecell"], Cell[710734, 27315, 2199, 41, 104, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[712982, 27362, 149, 3, 57, "Section", CellTags->"corecell"], Cell[713134, 27367, 872, 23, 104, "Input", CellTags->{"corecell", "2dexclusive"}], Cell[CellGroupData[{ Cell[714031, 27394, 166, 2, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[714200, 27398, 221, 5, 51, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[714424, 27405, 14310, 314, 1287, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[728771, 27724, 166, 3, 30, "Subsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[728962, 27731, 464, 9, 29, "Text", CellTags->"corecell"], Cell[729429, 27742, 2098, 35, 49, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[731530, 27779, 2610, 43, 69, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[734177, 27827, 110, 1, 26, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[734290, 27830, 13982, 335, 969, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[748309, 28170, 685, 13, 62, "Text", CellTags->"corecell"], Cell[748997, 28185, 5343, 121, 449, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[754365, 28310, 66, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[754434, 28313, 5147, 115, 449, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[759630, 28434, 198, 3, 26, "Text", CellTags->"corecell"], Cell[759831, 28439, 8330, 205, 598, "Input", CellTags->{"differentacrossnotebooks", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[768198, 28649, 318, 7, 29, "Text", CellTags->{"corecell", "2dexclusive"}], Cell[768519, 28658, 7635, 172, 689, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[776203, 28836, 98, 1, 38, "Subsection", CellTags->{"corecell", "2dexclusive"}], Cell[776304, 28839, 9963, 202, 649, "Input", CellTags->{"corecell", "2dexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[786304, 29046, 172, 3, 30, "Subsection", CellTags->"corecell"], Cell[786479, 29051, 2465, 55, 169, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[788947, 29108, 2882, 61, 189, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[791866, 29174, 199, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[792068, 29179, 4068, 94, 349, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[796173, 29278, 159, 3, 30, "Subsection", CellTags->"corecell"], Cell[796335, 29283, 7631, 158, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[803969, 29443, 7205, 149, 489, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[CellGroupData[{ Cell[811199, 29596, 82, 1, 31, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[811284, 29599, 4914, 103, 289, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[816247, 29708, 316, 5, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[816566, 29715, 346, 11, 48, "Input", CellTags->{"corecell", "differentacrossnotebooks", "2dexclusive"}], Cell[816915, 29728, 7822, 163, 526, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[824774, 29896, 125, 1, 30, "Subsection", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[824902, 29899, 9789, 211, 870, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[834728, 30115, 209, 3, 30, "Subsection", CellTags->{"corecell", "3Sexclusive"}], Cell[834940, 30120, 5370, 115, 429, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[840359, 30241, 72, 1, 57, "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell[840456, 30246, 93, 1, 29, "Text"], Cell[840552, 30249, 668, 12, 60, "Input", CellTags->"corecell"], Cell[841223, 30263, 14859, 257, 630, "Input", CellTags->"corecell"], Cell[856085, 30522, 19502, 391, 1276, "Input", CellTags->"corecell"], Cell[875590, 30915, 1691, 33, 117, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[877318, 30953, 61, 1, 42, "Text", CellTags->"corecell"], Cell[877382, 30956, 4245, 65, 47, "Input", CellTags->"corecell"], Cell[881630, 31023, 7112, 140, 446, "Input", CellTags->"corecell"], Cell[888745, 31165, 5805, 102, 180, "Input", CellTags->{"corecell", "differentacrossnotebooks"}], Cell[894553, 31269, 8559, 165, 579, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[903149, 31439, 64, 1, 39, "Text", CellTags->"corecell"], Cell[903216, 31442, 2483, 63, 218, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[905736, 31510, 77, 1, 39, "Text", CellTags->"corecell"], Cell[905816, 31513, 13076, 278, 1263, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[918929, 31796, 118, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[919050, 31799, 4150, 99, 549, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[923237, 31903, 119, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[923359, 31906, 2853, 53, 209, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[926249, 31964, 79, 1, 39, "Text", CellTags->"corecell"], Cell[926331, 31967, 2800, 51, 149, "Input", CellTags->{"corecell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[929168, 32023, 130, 1, 39, "Text", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}], Cell[929301, 32026, 1493, 28, 89, "Input", CellTags->{"corecell", "2dexclusive", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[930831, 32059, 97, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[930931, 32062, 4095, 100, 449, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[935063, 32167, 98, 1, 39, "Text", CellTags->{"corecell", "3Sexclusive"}], Cell[935164, 32170, 2391, 51, 129, "Input", CellTags->{"corecell", "3Sexclusive"}] }, Closed]], Cell[CellGroupData[{ Cell[937592, 32226, 154, 3, 39, "Text", CellTags->"corecell"], Cell[937749, 32231, 4602, 93, 289, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[942388, 32329, 152, 2, 26, "Text"], Cell[942543, 32333, 2511, 74, 269, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[945127, 32415, 137, 2, 47, "Subtitle"], Cell[CellGroupData[{ Cell[945289, 32421, 167, 3, 87, "Section", CellTags->"initcell"], Cell[CellGroupData[{ Cell[945481, 32428, 85, 1, 52, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[945591, 32433, 323, 5, 49, "Subsubsection", CellTags->"initcell"], Cell[945917, 32440, 2000, 33, 98, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[947920, 32475, 3170, 75, 117, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[951127, 32555, 193, 3, 49, "Subsubsection", CellTags->"initcell"], Cell[951323, 32560, 2455, 63, 218, "Input", CellTags->"initcell"], Cell[953781, 32625, 2570, 66, 256, "Input", CellTags->"initcell"], Cell[956354, 32693, 5355, 117, 408, "Input", CellTags->"initcell"], Cell[961712, 32812, 3016, 78, 237, "Input", CellTags->"initcell"], Cell[964731, 32892, 962, 26, 47, "Input", CellTags->"initcell"], Cell[965696, 32920, 1802, 44, 199, "Input", CellTags->"initcell"], Cell[967501, 32966, 3302, 75, 389, "Input", CellTags->"initcell"], Cell[970806, 33043, 1914, 46, 180, "Input", CellTags->"initcell"], Cell[972723, 33091, 3327, 84, 370, "Input", CellTags->"initcell"], Cell[976053, 33177, 1112, 31, 85, "Input", CellTags->"initcell"], Cell[977168, 33210, 1154, 31, 85, "Input", CellTags->"initcell"], Cell[978325, 33243, 7480, 162, 788, "Input", CellTags->"initcell"], Cell[985808, 33407, 3377, 80, 199, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[989222, 33492, 246, 4, 43, "Subsubsection", CellTags->"initcell"], Cell[989471, 33498, 2456, 64, 237, "Input", CellTags->"initcell"], Cell[991930, 33564, 2836, 65, 123, "Input", CellTags->"initcell"], Cell[994769, 33631, 2855, 58, 104, "Input", CellTags->"initcell"], Cell[997627, 33691, 4221, 88, 237, "Input", CellTags->"initcell"], Cell[1001851, 33781, 13402, 211, 313, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1015290, 33997, 253, 4, 43, "Subsubsection", CellTags->"initcell"], Cell[1015546, 34003, 2484, 56, 104, "Input", CellTags->"initcell"], Cell[1018033, 34061, 11218, 224, 788, "Input", CellTags->"initcell"], Cell[1029254, 34287, 9634, 205, 693, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1038925, 34497, 174, 3, 43, "Subsubsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1039124, 34504, 311, 7, 47, "Text", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1039438, 34513, 2579, 68, 213, "Input", CellTags->{"initcell", "differentacrossnotebooks"}], Cell[1042020, 34583, 2020, 46, 104, "Input", CellTags->"initcell"], Cell[1044043, 34631, 2004, 51, 85, "Input", CellTags->{"initcell", "differentacrossnotebooks"}] }, Closed]], Cell[CellGroupData[{ Cell[1046084, 34687, 377, 10, 47, "Text", CellTags->{"initcell", "3Sexclusive"}], Cell[1046464, 34699, 12048, 306, 1211, "Input", CellTags->{"initcell", "3Sexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1058561, 35011, 360, 5, 43, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1058924, 35018, 1256, 36, 123, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1060183, 35056, 2987, 80, 275, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1063173, 35138, 5157, 109, 408, "Input", CellTags->{"initcell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1068379, 35253, 139, 2, 52, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1068543, 35259, 164, 2, 36, "Subsubsection", CellTags->"initcell"], Cell[1068710, 35263, 19364, 387, 902, "Input", CellTags->"initcell"], Cell[1088077, 35652, 18188, 374, 1320, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1106302, 36031, 206, 5, 36, "Subsubsection", CellTags->"initcell"], Cell[1106511, 36038, 32207, 623, 1833, "Input", CellTags->"initcell"], Cell[1138721, 36663, 25787, 462, 1263, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1164545, 37130, 76, 1, 36, "Subsubsection", CellTags->"initcell"], Cell[1164624, 37133, 3819, 72, 465, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1168492, 37211, 119, 2, 44, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1168636, 37217, 212, 3, 36, "Subsubsection", CellTags->"initcell"], Cell[1168851, 37222, 23065, 460, 1092, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1191953, 37687, 325, 5, 36, "Subsubsection", CellTags->"initcell"], Cell[1192281, 37694, 17675, 343, 1757, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1209993, 38042, 307, 5, 30, "Subsubsection", CellTags->"initcell"], Cell[1210303, 38049, 23351, 465, 1016, "Input", CellTags->"initcell"], Cell[1233657, 38516, 4521, 95, 465, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1238215, 38616, 288, 4, 36, "Subsubsection", CellTags->"initcell"], Cell[1238506, 38622, 15914, 320, 1757, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1254457, 38947, 338, 5, 30, "Subsubsection", CellTags->{"initcell", "2dexclusive"}], Cell[1254798, 38954, 11026, 210, 712, "Input", CellTags->{"initcell", "2dexclusive"}], Cell[1265827, 39166, 19580, 379, 1529, "Input", CellTags->{"initcell", "2dexclusive"}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1285456, 39551, 176, 3, 44, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1285657, 39558, 230, 4, 36, "Subsubsection", CellTags->"initcell"], Cell[1285890, 39564, 10022, 191, 1111, "Input", CellTags->"initcell"], Cell[1295915, 39757, 8368, 123, 104, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1304332, 39886, 175, 3, 44, "Subsection", CellTags->"initcell"], Cell[1304510, 39891, 16311, 399, 2061, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1320870, 40296, 214, 4, 74, "Section", CellOpen->True], Cell[CellGroupData[{ Cell[1321109, 40304, 168, 2, 38, "Subsection"], Cell[1321280, 40308, 2549, 61, 294, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1323866, 40374, 204, 3, 30, "Subsection"], Cell[1324073, 40379, 1803, 40, 180, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1325913, 40424, 150, 2, 30, "Subsection"], Cell[1326066, 40428, 3922, 89, 465, "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1330049, 40524, 117, 2, 47, "Subtitle", CellTags->"opengroup"], Cell[1330169, 40528, 2192, 45, 368, "Text", Evaluatable->False, CellTags->{"finalcell", "buttoncell", "opengroup"}] }, Open ]] } ] *) (* End of internal cache information *)