(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 403918, 9750] NotebookOptionsPosition[ 274625, 6877] NotebookOutlinePosition[ 393089, 9375] CellTagsIndexPosition[ 392784, 9363] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \[LightBulb]\[LightBulb]\[LightBulb] DYNAMO 2x2x2 \[LightBulb]\[LightBulb]\ \[LightBulb] Diagrams for Evolutionary Game Dynamics\ \>", "Title", CellFrame->True, CellChangeTimes->{{3.4824987686991873`*^9, 3.482498772065876*^9}}, TextAlignment->Center, FontSize->32, FontColor->GrayLevel[1], Background->RGBColor[0, 0, 0.500008]], Cell[CellGroupData[{ Cell["User-defined Parameters", "Subtitle", CellDingbat->None], Cell[CellGroupData[{ Cell["\<\ When you have finished specifying paramaters, 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[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], ";"}]], "Input", CellOpen->False, InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Specification of the game", "Section"]], "Section", Evaluatable->False, CellChangeTimes->{{3.4824917459192*^9, 3.482491750406876*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Functional form", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, 3.481905459163365*^9}], Cell[TextData[{ "The population game F[x_] is initially specified as a normal form game. \ Pressing the button marked ", StyleBox["Linear", FontWeight->"Bold"], " redefines F[x_] appropriately; pressing ", StyleBox["Normal Form ", FontWeight->"Bold"], "restores the normal form definition. Payoff parameters are specified in \ the next subsection." }], "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.481901785485833*^9, 3.4819018080132732`*^9}, { 3.48190197910306*^9, 3.481902125263258*^9}, {3.481902169366184*^9, 3.481902197883987*^9}, {3.48190226752149*^9, 3.481902338954479*^9}, { 3.482490907134695*^9, 3.482490972013172*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", " ", "textsl", ",", " ", "valuesl", ",", " ", "names", " ", ",", " ", "texts", ",", " ", "values", ",", " ", "buttons", ",", " ", "row", ",", " ", "butrow", ",", " ", "rown", ",", " ", "rowt", ",", " ", "rowv", ",", " ", "name", ",", " ", "text", ",", " ", "value", ",", " ", "but", ",", " ", "button"}], "}"}], ",", "\n", " ", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], ";", "\n", " ", RowBox[{"textsl", " ", "=", " ", RowBox[{"{", "\n", " ", RowBox[{ "\"\\"", ",", "\n", " ", "\"\\""}], "\n", " ", "}"}]}], ";", "\n", " ", RowBox[{"valuesl", " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "1"}], "}"}]}], ";", "\n", " ", RowBox[{"names", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"texts", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"values", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"rown", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"rowt", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"rowv", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"row", " ", "=", " ", "1"}], ";", "\n", " ", RowBox[{"While", "[", RowBox[{ RowBox[{"row", " ", "<=", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"namesl", ",", " ", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"rown", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"rown", ",", " ", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"rowt", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"rowt", ",", " ", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"rowv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"rowv", ",", " ", RowBox[{"{", RowBox[{"valuesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", " ", RowBox[{"row", " ", "==", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"namesl", ",", " ", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\n", " ", RowBox[{ RowBox[{"names", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"names", ",", " ", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"texts", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"texts", ",", " ", RowBox[{"{", "rowt", "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"values", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"values", ",", " ", RowBox[{"{", "rowv", "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"rown", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"rowt", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"rowv", " ", "=", " ", RowBox[{"{", "}"}]}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"row", "++"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"buttons", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"row", " ", "=", " ", "1"}], ";", "\n", " ", RowBox[{"While", "[", RowBox[{ RowBox[{"row", " ", "<=", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", ",", " ", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"butrow", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\n", " ", RowBox[{"but", " ", "=", " ", "1"}], ";", "\n", " ", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", " ", "<=", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], ",", " ", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"button", " ", ":=", "\n", " ", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", " ", RowBox[{"Alignment", " ", "->", " ", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\n", " ", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\n", " ", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";", "\n", " ", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "All", ",", " ", "CellContents", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";", "\n", " ", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", RowBox[{"RowBox", "[", RowBox[{"{", "text", "}"}], "]"}], ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}]}], "\n", " ", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"120", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\n", " ", RowBox[{"button", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", " ", RowBox[{ "ControlsRendering", " ", "->", " ", "\"\\""}]}], "]"}], " ", "/.", " ", RowBox[{"text", " ", "->", " ", RowBox[{ RowBox[{"texts", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], " ", "/.", " ", RowBox[{"name", " ", "->", " ", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], " ", "/.", " ", RowBox[{"value", " ", "->", " ", RowBox[{ RowBox[{"values", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\n", " ", RowBox[{"butrow", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"butrow", ",", " ", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\n", " ", RowBox[{"but", "++"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"buttons", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"buttons", ",", " ", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"row", "++"}], ";"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"TableForm", " ", "[", " ", RowBox[{"buttons", ",", " ", RowBox[{"TableAlignments", " ", "->", " ", RowBox[{"{", RowBox[{"Left", ",", " ", "Top"}], "}"}]}], ",", " ", RowBox[{"TableSpacing", " ", "->", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1"}], "}"}]}]}], "]"}]}]}], "\n", " ", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\n", " ", "]"}]}], ";"}], "\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.4822350584911857`*^9, 3.4822350683253264`*^9}, 3.482235885069747*^9, {3.482236280027669*^9, 3.482236334385832*^9}, { 3.4822363787396097`*^9, 3.482236401442254*^9}, {3.482236463531534*^9, 3.4822364679078274`*^9}, {3.4822823886568623`*^9, 3.482282522369131*^9}, { 3.4822825776986914`*^9, 3.482282608282669*^9}, {3.482491011325*^9, 3.482491013102233*^9}}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Normal Form\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F1[x_,y_,z_] := {z.(A[1,1].y ),z.(A[1,2].y )};\n\ F2[x_,y_,z_] :={z.(A[2,1].x ),z.(A[2,2].x )} ;\nF3[x_,y_,z_]:= {x.(A[3,1].y \ ),x.(A[3,2].y )} ;"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Linear\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F1[x_,y_,z_]:=M[[1,1]].x+M[[1,2]].y+M[[1,3]].z;\n\ F2[x_,y_,z_]:=M[[2,1]].x+M[[2,2]].y+M[[2,3]].z;\n\ F3[x_,y_,z_]:=M[[3,1]].x+M[[3,2]].y+M[[3,3]].z;"}], 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", CellChangeTimes->{3.4822826092340364`*^9, 3.482491019449072*^9}, CellTags->"buttoncell"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], ".", "y"}], " ", ")"}]}], ",", RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], ".", "y"}], " ", ")"}]}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "1"}], "]"}], ".", "x"}], " ", ")"}]}], ",", RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "2"}], "]"}], ".", "x"}], " ", ")"}]}]}], "}"}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"x", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "1"}], "]"}], ".", "y"}], " ", ")"}]}], ",", RowBox[{"x", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "2"}], "]"}], ".", "y"}], " ", ")"}]}]}], "}"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.482281703601802*^9, 3.4822817064759345`*^9}, 3.482281762065869*^9, {3.482281874737883*^9, 3.4822818755690784`*^9}, { 3.4822821596175203`*^9, 3.4822821651755123`*^9}, {3.482282570858856*^9, 3.4822826228936787`*^9}, {3.482283131715328*^9, 3.482283132616624*^9}, 3.482322952655163*^9, {3.482489839073172*^9, 3.482489846629792*^9}, 3.482490043989108*^9, 3.4824907325876207`*^9, 3.4824914207981853`*^9, 3.482491715770423*^9, {3.4826022851464396`*^9, 3.4826022875899534`*^9}, { 3.4826023210280347`*^9, 3.4826023243728447`*^9}, {3.4826041908677998`*^9, 3.48260419236996*^9}, {3.4826053794468927`*^9, 3.4826053816801043`*^9}}, CellTags->"payofffunction"] }, Closed]], Cell[CellGroupData[{ Cell["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}, 3.482491739878974*^9}], Cell[CellGroupData[{ Cell["Normal form games", "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}, {3.482659549410665*^9, 3.482659557720231*^9}}], Cell[TextData[{ StyleBox["U", FontWeight->"Bold"], " is the normal form game to be analyzed. It is expressed as a pair of \ trimatrices. Player 1 chooses top or bottom, player 2 chooses left or right \ (within a matrix), and player 3 chooses the matrix (in or out). Edit the \ entries of ", StyleBox["U", FontWeight->"Bold"], " directly, or specify ", StyleBox["U", FontWeight->"Bold"], " by pressing a button in the cell below." }], "Text", Evaluatable->False, CellChangeTimes->{ 3.481573292434955*^9, 3.4826595795626698`*^9, {3.482660414382325*^9, 3.48266055829176*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino"], 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[{ "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"matsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "1"}], "}"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "1"}], "}"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], "}"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[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", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"names", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], ",", "1"}], "]"}], "[", 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[{"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", "[", "8", "]"}]}], "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.4820969728582077`*^9, 3.482096984803899*^9}, 3.4820971576124716`*^9, { 3.4826023591728845`*^9, 3.4826023909385614`*^9}, {3.482602457604422*^9, 3.4826025125734634`*^9}, {3.482602560922987*^9, 3.4826025684538155`*^9}, { 3.4826028294991803`*^9, 3.4826028500787725`*^9}, {3.482602954288619*^9, 3.482602958124134*^9}, {3.482603123662166*^9, 3.482603128949769*^9}, { 3.4826046760053935`*^9, 3.482604680251499*^9}, {3.482612437964945*^9, 3.48261246675309*^9}}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ { 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "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]", ")"}]} }, 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"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]", ")"}], 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]", ")"}]} }, 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]", ")"}]} }, 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$]]]}, {"\<\"Mismatching Pennies\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"U=", ToBoxes[ MatrixForm[{{{{{{0, 0, 0}}, {{1, 1, 0}}}, {{{1, 0, 1}}, {{0, 1, 1}}}}, {{{{0, 1, 1}}, {{1, 0, 1}}}, {{{1, 1, 0}}, {{0, 0, 0}}}}}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "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]", ")"}], 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]", ")"}]}, { 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]", ")"}], 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]", ")"}]} }, 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ { 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]", ")"}], 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]", ")"}]}, { 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "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]", ")"}]} }, 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]", ")"}]} }, 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$]]]}, {"\<\"Pure Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"U=", ToBoxes[ MatrixForm[{{{{{{1, 1, 1}}, {{0, 0, 0}}}, {{{0, 0, 0}}, {{0, 0, 0}}}}, {{{{0, 0, 0}}, {{0, 0, 0}}}, {{{0, 0, 0}}, {{1, 1, 1}}}}}}]], ";"}], 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", CellChangeTimes->{3.4826124712628393`*^9}, CellTags->"buttoncell"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"U", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ { 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "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]", ")"}]} }, 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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "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]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "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]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"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]", ")"}], 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]", ")"}]} }, 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]", ")"}]} }, 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.481575155063283*^9, 3.481820467992608*^9, 3.481820990273611*^9, { 3.4820970026672316`*^9, 3.4820970070099688`*^9}, {3.4820971592769914`*^9, 3.4820971677698846`*^9}, 3.48209764606188*^9, 3.482097687321208*^9, { 3.4822361018514643`*^9, 3.4822361220104513`*^9}, {3.482237129899725*^9, 3.4822371331544046`*^9}, {3.482246029076274*^9, 3.4822460352751875`*^9}, { 3.482602584807331*^9, 3.482602595923315*^9}, {3.4826031477067404`*^9, 3.482603150791176*^9}, {3.4826041633882866`*^9, 3.4826042002212496`*^9}, 3.4826046908767776`*^9, 3.482605047669821*^9, 3.4826050839920497`*^9, { 3.482605222451144*^9, 3.482605223472613*^9}, {3.4826125015503683`*^9, 3.482612502732939*^9}}, CellTags->"payoffmatrix"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}]} }], ")"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1"}], "]"}], "]"}]} }], ")"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "3"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "3"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "3"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}]}, { RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "3"}], "]"}], "]"}], RowBox[{"U", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "3"}], "]"}], "]"}]} }], ")"}]}], ";"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4826026379337225`*^9, 3.4826026689683485`*^9}, { 3.4826028786698847`*^9, 3.4826028936414127`*^9}, {3.4826032715347967`*^9, 3.482603271965416*^9}, 3.4826033136753917`*^9, {3.4826035012951756`*^9, 3.482603534903502*^9}, {3.4826035668594522`*^9, 3.482603599766771*^9}, { 3.4826036377313614`*^9, 3.482603643189209*^9}, {3.4826037020338235`*^9, 3.4826037028550043`*^9}, {3.4826038125427275`*^9, 3.4826039108140345`*^9}, {3.4826039619075036`*^9, 3.482603964871766*^9}, { 3.4826040812619143`*^9, 3.482604083831709*^9}, {3.4826050139413214`*^9, 3.482605017326189*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"M1", "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M2", "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}]} }], ")"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}]} }], ")"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "1"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}], RowBox[{"M1", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}]} }], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"3", ",", "2"}], "]"}], "=", RowBox[{"(", GridBox[{ { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}]}, { RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}], RowBox[{"M2", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "\[RightDoubleBracket]"}]} }], ")"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4826026379337225`*^9, 3.4826026689683485`*^9}, { 3.4826028786698847`*^9, 3.4826028936414127`*^9}, {3.4826032715347967`*^9, 3.482603271965416*^9}, 3.4826033136753917`*^9, {3.4826035012951756`*^9, 3.482603534903502*^9}, {3.4826035668594522`*^9, 3.482603599766771*^9}, { 3.4826036377313614`*^9, 3.482603643189209*^9}, {3.4826037020338235`*^9, 3.4826037028550043`*^9}, {3.482603901901219*^9, 3.482603907208851*^9}, { 3.482618673055009*^9, 3.4826186757588973`*^9}}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Linear games", "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}, {3.4822352575374002`*^9, 3.4822352601010866`*^9}, 3.4822371446909933`*^9, {3.482491325488415*^9, 3.482491328592152*^9}, { 3.4824916996122837`*^9, 3.482491706092607*^9}, 3.4826021595658636`*^9, { 3.4826022952209263`*^9, 3.482602308209603*^9}, {3.482659584026009*^9, 3.482659589000798*^9}}], Cell["\<\ Choose a General Linear game here by specifying the values of the matrices of \ payoffs. The rows change depending on which population's payoff is being \ specified. The columns change depending on which population's state is being \ interacted with the parameters to produce the payoff. By default, the \ matrices are set to produce the 12 Coordination Normal Form Game.\ \>", "Text", Evaluatable->False, CellChangeTimes->{ 3.481573292434955*^9, {3.4822365091971984`*^9, 3.4822365104289694`*^9}, { 3.4822371514907713`*^9, 3.4822373800394077`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino"], Cell[BoxData[ RowBox[{ RowBox[{"M", "=", RowBox[{ RowBox[{"(", GridBox[{ { 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]", ")"}], 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]", ")"}], 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]", ")"}]}, { 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]", ")"}], 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]", ")"}], 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]", ")"}]}, { 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]", ")"}], 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]", ")"}], 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]", ")"}]} }], ")"}], TagBox["", Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], ";"}]], "Input", CellChangeTimes->{ 3.481575155063283*^9, 3.481820467992608*^9, 3.481820990273611*^9, { 3.4820970026672316`*^9, 3.4820970070099688`*^9}, {3.4820971592769914`*^9, 3.4820971677698846`*^9}, 3.48209764606188*^9, 3.482097687321208*^9, { 3.482236514264485*^9, 3.4822365793280416`*^9}, {3.4822820006289053`*^9, 3.4822821255485315`*^9}}] }, 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.482506952637807*^9}], Cell[TextData[{ "Give the strategies one-character names to be printed on the phase diagram. \ ", StyleBox["strategy[1]", FontWeight->"Bold"], " and ", StyleBox["strategy[2]", FontWeight->"Bold"], " are population 1's strategies, ", StyleBox["strategy[3]", FontWeight->"Bold"], " and ", StyleBox["strategy[4]", FontWeight->"Bold"], " are population 2's strategies, and ", StyleBox["strategy[5]", FontWeight->"Bold"], " and ", StyleBox["strategy[6]", FontWeight->"Bold"], " are population 3's strategies." }], "Text", CellChangeTimes->{{3.482491623576417*^9, 3.482491683484853*^9}}, FontFamily->"Palatino"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"strategy", "[", "1", "]"}], "=", "\"\\""}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strategy", "[", "2", "]"}], "=", "\"\\""}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "3", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "4", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "5", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "6", "]"}], "=", "\"\\""}], " ", ";"}]}], "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Specification of the dynamic", "Section", Evaluatable->False, CellChangeTimes->{{3.482498562344205*^9, 3.482498566390586*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Choosing the evolutionary dynamic", "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.481901544248423*^9, 3.4819015490471973`*^9}, {3.4819031937608747`*^9, 3.481903194040564*^9}, { 3.481903249254183*^9, 3.481903251787709*^9}, {3.481903451311884*^9, 3.48190346767138*^9}}], Cell[TextData[{ "The variable ", StyleBox["dyn", FontWeight->"Bold"], " represents the evolutionary dynamic to be considered. Press a button in \ one of the cells below specifies the value of ", StyleBox["dyn", FontWeight->"Bold"], ". Parameters for the dynamics that require them are specified in \ \"Parameters for parameterized dynamics\". (To approximate the best response \ dynamic, choose Logit[\[Eta]] with \[Eta] = .001.) The definitions of the \ evolutionary dynamics can be found in the final subsection." }], "Text", CellChangeTimes->{ 3.4750043265220394`*^9, {3.481488193102187*^9, 3.4814881961665306`*^9}, 3.4814882467834015`*^9, {3.48148828900768*^9, 3.48148835124517*^9}, { 3.481669672967*^9, 3.481669673567864*^9}, 3.4824918539354343`*^9}, FontFamily->"Palatino"], Cell[CellGroupData[{ Cell["Some standard dynamics", "SmallText"], 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", ",", RowBox[{"Defer", "[", RowBox[{"Logit", "[", "\[Eta]", "]"}], "]"}], ",", "BNN", ",", "MSReplicator", ",", "\"\< \>\"", " ", ",", "Smith", ",", RowBox[{"Defer", "[", RowBox[{"ILogit", "[", "\[Eta]", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"names", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], ",", "1"}], "]"}], "[", 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", "}"}]}], "]"}]}]}], "]"}], ";", "\[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.482098335573349*^9, 3.4820984073565683`*^9}, 3.482098474973797*^9}, CellTags->"buttoncell"], Cell[BoxData[ InterpretationBox[GridBox[{ { StyleBox[ ButtonBox["Replicator", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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[ RowBox[{"Logit", "[", "\[Eta]", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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["BNN", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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["MSReplicator", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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["Smith", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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]}, { StyleBox[ ButtonBox[ RowBox[{"ILogit", "[", "\[Eta]", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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], "\<\"\"\>", "\<\"\"\>"} }, 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[$CellContext`Replicator, NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Replicator], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Defer[ $CellContext`Logit[$CellContext`\[Eta]]], NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`Logit[$CellContext`\[Eta]]]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[$CellContext`BNN, NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`BNN], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[$CellContext`MSReplicator, NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`MSReplicator], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], "", Style[ Button[$CellContext`Smith, NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Smith], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Defer[ $CellContext`ILogit[$CellContext`\[Eta]]], NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`ILogit[$CellContext`\[Eta]]]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}}, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]], "Output", CellChangeTimes->{3.4820984461323247`*^9, 3.482098478809312*^9}, CellTags->"buttoncell"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["More dynamics", "SmallText", CellChangeTimes->{{3.481894707891967*^9, 3.4818947086630754`*^9}, { 3.4818947430525255`*^9, 3.4818947437935905`*^9}}], 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[{"ExcessPayoff", ",", "PairwiseComparison", StyleBox[",", FontWeight->"Plain"], "Projection", 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", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"namesl", ",", "1"}], "]"}], "[", 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", "[", RowBox[{"names", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], ",", "1"}], "]"}], "[", 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", "}"}]}], "]"}]}]}], "]"}], ";", "\[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", "[", "5", "]"}]}], "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.482098335573349*^9, 3.4820984073565683`*^9}, 3.482098474973797*^9, {3.4820986565548973`*^9, 3.4820986625635376`*^9}, 3.482492642699937*^9}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox["ExcessPayoff", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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[], "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["Projection", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[Projection], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Combined", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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[], "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", CellChangeTimes->{3.482098663675136*^9, 3.4820988196894736`*^9, 3.482492712932523*^9}, CellTags->"buttoncell"] }, Open ]] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"dyn", ":=", "Replicator"}], ";"}]], "Input", CellChangeTimes->{ 3.475004305451742*^9, 3.48166956481148*^9, 3.481669882999011*^9, 3.482282785257146*^9, {3.4822830574285088`*^9, 3.4822830638577538`*^9}, { 3.4826041830165105`*^9, 3.4826041842482815`*^9}}, CellTags->"meandynamic"], Cell[CellGroupData[{ Cell["Parameters for parameterized dynamics", "SmallText", CellChangeTimes->{{3.481903127062379*^9, 3.4819031341334057`*^9}}], Cell[CellGroupData[{ Cell["Noise level for the logit and i-logit dynamics", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[Eta]", " ", "=", " ", ".01"}], " ", ";"}]], "Input"] }, Open ]] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"dyn", "=", "dyn"}], ";"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4818348627583246`*^9, 3.481834865722587*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Definitions of dynamics", "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.481901544248423*^9, 3.4819015490471973`*^9}, {3.4819031937608747`*^9, 3.481903194040564*^9}, { 3.481903256420993*^9, 3.481903261596171*^9}, 3.48190551650214*^9}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Payoff-related definitions", FontSlant->"Italic"]], "SmallText"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", " ", "[", "F", "]"}], ";", RowBox[{"Clear", "[", "Fbar", "]"}], " ", ";", " ", RowBox[{"Clear", "[", "Fhat", "]"}], " ", ";", " ", RowBox[{"Clear", "[", "Fhatplus", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.482281743829646*^9, 3.4822817547954144`*^9}}], Cell[CellGroupData[{ Cell["The population's payoff", "Subsubsection", InitializationCell->True, CellChangeTimes->{{3.48228178541945*^9, 3.482281786070386*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], " ", ";"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["The population's average payoff", "Subsubsection", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", "1", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", "2", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F2_"}], "]"}], ":=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", "3", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F3_"}], "]"}], ":=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff vector", "Subsubsection", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_"}], "]"}], ":=", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Fbar", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F2_"}], "]"}], ":=", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Fbar", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F3_"}], "]"}], ":=", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Fbar", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Vector of positive parts of excess payoffs", "Subsubsection", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "1", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "2", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F2_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "3", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F3_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Projected payoff vector", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PhiF", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ",", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}], " ", "}"}], ",", "1"}], "]"}]}], ";"}]], "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definition of combination of two dynamics", FontSlant->"Italic"]], "SmallText"], Cell["\<\ To define a combination of two dynamics, specify the two dynamics to be \ combined, the weights on the dynamics. The last line of code formally \ defines the combined dynamic according to your specificcations.\ \>", "Text", FontFamily->"Palatino"], 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[{ RowBox[{"weight", "[", "2", "]"}], "=", ".1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Combined", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}]}], "+", RowBox[{ RowBox[{"weight", "[", "2", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}]}]}]}], ";"}]}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definitions of dynamics", FontSlant->"Italic"]], "SmallText", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Replicator", "]"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "BNN", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Logit", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "rho", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Smith", "]"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "rho1", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "SelMut", "]"}], " ", ";"}]}], "Input", CellOpen->False, InitializationCell->True, CellChangeTimes->{3.4816696539997263`*^9}, CellTags->"dynamicslibrary"], Cell[CellGroupData[{ Cell["Replicator dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.48249248771917*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Replicator", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Replicator", "]"}], "=", "Automatic"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Maynard Smith replicator dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.482492490367025*^9, 3.482492550618297*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MSReplicator", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}]], RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}]], RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}]], RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}]], RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}]], RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Fbar", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}]], RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "MSReplicator", "]"}], "=", "Automatic"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Imitative logit Dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.4824925022315807`*^9, 3.482492503887474*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ILogit", "[", "\[Eta]_", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], " ", "-", RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], " ", "-", RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], "-", RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], " ", "-", RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], "-", RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "Automatic"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Logit dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.4824924940551033`*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Logit", "[", "\[Eta]_", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "Automatic"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Brown-von Neumann-Nash dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.482492515490016*^9, 3.482492517249572*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNN", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "BNN", "]"}], "=", "Nash"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Smith dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.4822828882452354`*^9, 3.482282889216632*^9}, 3.482492574244774*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho", "[", "1", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho", "[", "2", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho", "[", "3", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Smith", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "]"}], ".", " ", "y"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "]"}], ".", " ", "z"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "]"}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4816696561327934`*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Smith", "]"}], "=", "Nash"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4816696568738594`*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff dynamic", "Text", InitializationCell->True], Cell[TextData[{ "Here one specifies the vector field sigmatilde that defines an excess \ payoff dynamic. This definition should be stated in terms of the excess \ payoff vector Fhat[", StyleBox["i", FontSlant->"Italic"], "][x,y,z,F", StyleBox["i", FontSlant->"Italic"], "], which is defined as Fhat[", StyleBox["i", FontSlant->"Italic"], "][x,y,z,F", StyleBox["i", FontSlant->"Italic"], "] = F", StyleBox["i", FontSlant->"Italic"], "[x,y,z] - Fbar[", StyleBox["i", FontSlant->"Italic"], "][x,y,z,F", StyleBox["i", FontSlant->"Italic"], "], for each population ", StyleBox["i ", FontSlant->"Italic"], "= 1, 2,3. (", 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", InitializationCell->True, FontFamily->"Palatino"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"Fhat", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}]}], "}"}]}], ";"}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ExcessPayoff", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "3"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "3"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "5"}], "6"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "5"}], "6"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4816695922409215`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "ExcessPayoff", "]"}], "=", "Nash"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellChangeTimes->{3.481669592911886*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Pairwise comparison dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.482492525824898*^9, 3.482492527200903*^9}}], Cell["\<\ Here one specifies the vector field rho1 that defines an excess payoff \ dynamic. \ \>", "Text", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho1", "[", "1", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho1", "[", "2", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"rho1", "[", "3", "]"}], "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PairwiseComparison", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho1", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho1", "[", "1", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F1"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho1", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], "]"}], ".", " ", "y"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho1", "[", "2", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F2"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"rho1", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], "]"}], ".", " ", "z"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ "z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{ RowBox[{"rho1", "[", "3", "]"}], "[", RowBox[{"x", ",", "y", ",", "z", ",", "F3"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}], "]"}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4816696156245456`*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "PairwiseComparison", "]"}], "=", "Nash"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellChangeTimes->{3.481669619029442*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Projection dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.482492529825184*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"closetozero", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], " ", ";"}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"projection", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], " ", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], " ", ",", RowBox[{ RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F2", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], " ", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "z", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}], " ", ",", RowBox[{ RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "2"], RowBox[{ RowBox[{"F3", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], ",", "0"}], "]"}], "]"}]}], " ", "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4750045844646864`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "projection", "]"}], "=", "Nash"}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4750045939483232`*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Other (for user-defined dynamics)", "Text", InitializationCell->True, CellChangeTimes->{{3.482492538722826*^9, 3.482492542113843*^9}}, CellTags->"dynamicslibrary"], 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", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Other", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "F1_", ",", "F2_", ",", "F3_"}], "]"}], ":=", RowBox[{"{", "}"}]}], " ", ";"}], " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "defined", " ", "here"}], "*)"}], ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Other", "]"}], "=", "Automatic"}], " ", ";"}]], "Input", InitializationCell->True] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Specifications for the phase diagram", "Section", CellChangeTimes->{{3.482498628332078*^9, 3.482498638090693*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Specification of solution trajectories", "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.481901544248423*^9, 3.4819015490471973`*^9}, {3.4819031937608747`*^9, 3.481903194040564*^9}, { 3.481903249254183*^9, 3.481903251787709*^9}, {3.481903451311884*^9, 3.48190346767138*^9}, {3.4824986629335823`*^9, 3.482498671628276*^9}}], Cell[CellGroupData[{ Cell["Instructions for specification of solution trajectories", "SmallText"], Cell[TextData[{ StyleBox["trayectoryspecs", FontWeight->"Bold"], " specfies the solution trajectories to be drawn. ex,: ", "trajectoryspecs", "= {{{ .989, .99, .99}, 20, {Thickness[.004], Hue[1]}},\n {{ .9905, .99, \ .99}, 20, {Thickness[.004] ,Hue[.65]}}}. The first entry in the example, {{ \ .989, .99, .99}, 20, {Thickness[.004], Hue[1]}} is for the first solution \ trajectory. The entry { .989, .99, .99} describes the initial condition of \ the solution. Each initial condition is entered as a list {x2, y2, z2} \ containing the weight placed on each population's second strategy. The \ entry 20 determines the time span over which which the differential \ equational will be solved, [0, 20]. Hue[1] determines in which color the \ solution trajectory will be drawn, in this case red. Any color command can be \ used, i.e. GrayLevel, Hue, RGBColor. This structure must be followed in order \ for the program run correctly (however you can take out or add graphics \ primitives like Dashing[{...}], Thickness in the last entry of each sol \ trajectory. i.e Hue[1], or {Thickness[.004], Hue[1]}, {Dashing[{.01,.03}], \ Thickness[.004], Hue[1]}, etc). If only one solution trajectory is needed, do \ not forget the outermost brackets, i.e. { {{.011, .989, .01, .99, .01, .99}, \ 20, {Thickness[.004], Hue[1]}} }. \n", StyleBox["customdoots", FontWeight->"Bold"], " specifies dots to be drawn at rest points, etc. ex.: customdots={{.01, \ {.7, .2, .3}, GrayLevel[.2]}, {...........}}. creates a spehere with radius \ .0, centered at {.3, .8, .7} and with color GrayLevel[.2 ]. The color that \ you will see is influenced by a number of factors. (Simulated illumination \ determines the shading of polygons in three\[Hyphen]dimensional pictures. The \ shading of a particular polygon is computed as a sum of contributions from \ point light sources, plus a contribution from ambient light. ) \n", StyleBox["ppoints", FontWeight->"Bold"], " determines the number of line segments used when drawing the solution \ trajectories. Increase its value if the trajectories have kinks. " }], "Text", CellChangeTimes->{{3.4823223710237503`*^9, 3.482322418362815*^9}, 3.482322456753313*^9}] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", ".49", ",", ".5"}], "}"}], ",", "24", ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Hue", "[", "1", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", ".5", ",", ".51"}], "}"}], ",", "24", ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".005", "]"}], ",", RowBox[{"Hue", "[", ".7", "]"}]}], "}"}]}], "}"}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"customdots", "=", RowBox[{"{", RowBox[{"{", RowBox[{".01", ",", RowBox[{"{", RowBox[{".5", ",", ".5", ",", ".5"}], "}"}], ",", RowBox[{"GrayLevel", "[", ".2", "]"}]}], "}"}], " ", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ppoints", "=", "1000"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.482322431404449*^9, 3.4823224582432437`*^9}, { 3.482605116618965*^9, 3.4826051419553967`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"degisken"] }, Open ]], Cell[CellGroupData[{ Cell["Specification of shading and viewpoint", "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.481901544248423*^9, 3.4819015490471973`*^9}, {3.4819031937608747`*^9, 3.481903194040564*^9}, { 3.481903249254183*^9, 3.481903251787709*^9}, {3.481903451311884*^9, 3.48190346767138*^9}, {3.48249868068643*^9, 3.4824986841328993`*^9}, { 3.482659608754779*^9, 3.4826596106812*^9}}], Cell[TextData[{ "The first two variables below determine the shading of the faces of the \ pyramid. ", StyleBox["simplexcolor", FontWeight->"Bold"], " is self-explanatory. ", StyleBox["simplexfaceshade", FontWeight->"Bold"], " determines which faces of the pyramid are shaded. The ordering of the \ faces is {Top, Bottom, Left, Right, In, Out}. The entries of the vector \ determine the degree of opacity of the shading, with 0 being completely clear \ and 1 completely opaque. To turn off the shading, set ", StyleBox["simplexcolor = Black ", FontWeight->"Bold"], "and ", StyleBox["simplexfaceshade", FontWeight->"Bold"], " = {0, 0, 0, 0, 0, 0}.\n\n", StyleBox["frontedge", FontWeight->"Bold"], " determines which edge of the cube is placed in the foreground of the \ initial rendering. The allowable values are ", StyleBox["frontedge = LI", FontWeight->"Bold"], " and ", StyleBox["frontedge = RI", FontWeight->"Bold"], ". The corresponding ", StyleBox["Mathematica", FontSlant->"Italic"], " viewpoints are defined in the cell that follows." }], "Text", CellChangeTimes->{ 3.4749411284528837`*^9, 3.4814864458265247`*^9, 3.4814864896395245`*^9, { 3.481486954588088*^9, 3.481486977491021*^9}, {3.481487313043522*^9, 3.4814872888844967`*^9}, {3.4814873442449217`*^9, 3.4814873802366753`*^9}, 3.482252191030341*^9, 3.482501190039349*^9, {3.482618653714492*^9, 3.48261867118534*^9}, {3.482618748156391*^9, 3.482618979524507*^9}, { 3.482619378606696*^9, 3.482619492787237*^9}, {3.482658866922139*^9, 3.482658996429171*^9}, {3.4826597586630983`*^9, 3.48265987383815*^9}, { 3.482659910071352*^9, 3.4826599342163877`*^9}, {3.4826599861012897`*^9, 3.4826600305727377`*^9}, {3.482660145035508*^9, 3.482660157171895*^9}, { 3.482660363838229*^9, 3.482660367780019*^9}}, FontFamily->"Palatino"], Cell[BoxData[{ RowBox[{ RowBox[{"simplexcolor", "=", "Green"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"simplexfaceshade", "=", RowBox[{"{", RowBox[{".1", ",", ".6", ",", ".1", ",", ".6", ",", ".1", ",", ".6"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"frontedge", "=", "RI"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.482616149175849*^9, 3.482616155354734*^9}, { 3.4826187617825933`*^9, 3.4826187885911417`*^9}, {3.482618941180555*^9, 3.4826189599275117`*^9}, 3.482619058329006*^9, {3.48261914730695*^9, 3.482619147777627*^9}, 3.4826192945086155`*^9, {3.4826193862905917`*^9, 3.482619394792817*^9}, {3.482619665532121*^9, 3.4826196759070396`*^9}, 3.482619979423475*^9, {3.4826200121805773`*^9, 3.4826200199717803`*^9}, { 3.482620059568718*^9, 3.4826200608806047`*^9}, {3.4826201041928844`*^9, 3.4826201102716255`*^9}, {3.482620161044633*^9, 3.482620183346702*^9}, { 3.4826202137804637`*^9, 3.482620228972308*^9}, {3.4826202849528046`*^9, 3.4826202907711706`*^9}, {3.482620480774382*^9, 3.4826204978088765`*^9}, { 3.4826205412613583`*^9, 3.4826205850643435`*^9}, {3.482620650278116*^9, 3.4826207066091166`*^9}, {3.4826215366025887`*^9, 3.482621550242201*^9}, { 3.4826218867060127`*^9, 3.4826218930951996`*^9}, {3.4826219859587307`*^9, 3.482622016402507*^9}, {3.482622053295556*^9, 3.482622058062411*^9}, { 3.482622205504422*^9, 3.4826222524919868`*^9}, {3.482659883119637*^9, 3.482659896512513*^9}}], Cell[CellGroupData[{ Cell["Definitions of viewpoints", "SmallText", CellChangeTimes->{{3.4824985056450243`*^9, 3.4824985088834677`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"LIviewpoint", "=", RowBox[{"{", RowBox[{"1.558", ",", "2.877", ",", "0.862"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RIviewpoint", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1.558"}], ",", "2.877", ",", "0.862"}], "}"}]}], " ", ";"}]}], "Input"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", Evaluatable->False, CellChangeTimes->{3.481906257486692*^9}], Cell[CellGroupData[{ Cell["Program Core", "Subtitle", CellDingbat->None], Cell[CellGroupData[{ Cell["Solving the differential equation", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{ RowBox[{"time1", "=", RowBox[{"AbsoluteTime", "[", "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{3.4807855323695707`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", RowBox[{"1", "-", RowBox[{"x1", "[", "t", "]"}]}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "t", "]"}], ",", RowBox[{"1", "-", RowBox[{"y1", "[", "t", "]"}]}]}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"z1", "[", "t", "]"}], ",", RowBox[{"1", "-", RowBox[{"z1", "[", "t", "]"}]}]}], "}"}]}], " ", ";"}]}], "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{ RowBox[{"G", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}], ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["y1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}], ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["z1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}], ",", "F1", ",", "F2", ",", "F3"}], "]"}], "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}]}], " ", ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", RowBox[{"1", "-", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"1", "-", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{ RowBox[{"z1", "[", "0", "]"}], "\[Equal]", " ", RowBox[{"1", "-", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.47500431591679*^9, 3.47500431766931*^9}, { 3.481669564841523*^9, 3.4816695648515377`*^9}, {3.482282796763691*^9, 3.482282798165707*^9}, {3.4823224612662916`*^9, 3.482322465444576*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Plotting the solutions", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"vectorfielddiagram", "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"drawvectorfield1", "=", "0"}], " ", ";", " ", RowBox[{"drawvectorfield2", "=", "0"}]}]}], " ", "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"phasediagram", "\[Equal]", "0"}], ",", RowBox[{"includecontourplot", "=", "0"}]}], "]"}], " ", ";"}]}], "Input"], Cell[CellGroupData[{ Cell["Drawing Cube and Dots", "Subsection", CellChangeTimes->{{3.48261583654631*^9, 3.48261583720726*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["\<\ The cells belongs to this group is for drawing white area around the simplex.\ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"BuildSimplexCube", "[", RowBox[{"simplexcolor_", ",", "simplexfaceshade_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "vertices", ",", "polygons", ",", "polygonsopacity", ",", "edgecolor"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"polygons", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"simplexfaceshade", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"simplexfaceshade", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "==", "0"}], ",", RowBox[{"edgecolor", "=", "Black"}], ",", RowBox[{"edgecolor", "=", "simplexcolor"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Darker", "[", "simplexcolor", "]"}], "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"simplexfaceshade", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "40"}], "]"}], ",", "simplexcolor", ",", RowBox[{"Polygon", "[", RowBox[{"polygons", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"polygons", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simplex", "=", RowBox[{"BuildSimplexCube", "[", RowBox[{"simplexcolor", ",", "simplexfaceshade"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dots", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Glow", "[", " ", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "]"}], ",", "Black", ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Sphere", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"customdots", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", RowBox[{"1", "-", RowBox[{"customdots", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2", ",", "3"}], "\[RightDoubleBracket]"}]}], ",", RowBox[{"1", "-", RowBox[{"customdots", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], " ", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4750050498114595`*^9, 3.4750050504824247`*^9}, { 3.4750051120309267`*^9, 3.475005174730698*^9}, {3.47500524884272*^9, 3.475005259728373*^9}, {3.48232243230665*^9, 3.482322435776655*^9}, { 3.482615928248171*^9, 3.4826159589623356`*^9}, {3.4826160023547306`*^9, 3.4826160133104844`*^9}, {3.4826161783177533`*^9, 3.482616181322073*^9}, { 3.4826162416388044`*^9, 3.48261647145927*^9}, 3.4826165019330893`*^9, { 3.4826165402682123`*^9, 3.482616541189537*^9}, {3.4826166646170173`*^9, 3.482616710402854*^9}, {3.482618834977843*^9, 3.482618877398841*^9}, { 3.482619170310027*^9, 3.482619170740646*^9}, 3.4826196442014494`*^9, { 3.482620363155254*^9, 3.482620405766526*^9}, 3.4826205961102266`*^9, { 3.482621761866502*^9, 3.4826217870126605`*^9}, {3.482621831837115*^9, 3.4826218361833644`*^9}, {3.4826219273144045`*^9, 3.4826219605121403`*^9}, {3.4826220348490314`*^9, 3.4826220357202845`*^9}, {3.482622089737958*^9, 3.4826220943846397`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff Eqs if there is no contour plot", "Subsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{ RowBox[{"e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "t", "]"}], ",", RowBox[{"z1", "[", "t", "]"}], ",", RowBox[{"x1", "[", "t", "]"}]}], "}"}], "/.", "\[InvisibleSpace]", RowBox[{"G", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}]}], " ", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "}"}]}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}], ",", RowBox[{"Boxed", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.475005315728898*^9, 3.475005316109445*^9}, { 3.482322451738778*^9, 3.4823224548207197`*^9}, {3.4825157046160607`*^9, 3.482515706578883*^9}, {3.4825158982144413`*^9, 3.4825158991958528`*^9}, { 3.4825166611615057`*^9, 3.482516661371808*^9}, {3.482516830975686*^9, 3.4825168329485235`*^9}, {3.4825171437354126`*^9, 3.4825171924254255`*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Generating the output notebook", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"OutputToOneNotebook", "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.4819270007532053`*^9, 3.4819270530183587`*^9}, 3.481927590451149*^9, 3.4819278444263477`*^9, 3.4819282299507046`*^9, 3.4819286333107076`*^9, 3.4821029124245377`*^9, 3.4826125783486853`*^9, 3.482619002368539*^9, 3.4826191207587757`*^9, 3.482619723255123*^9, 3.4826201274563355`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Redirecting"}]}]}]}]}], " ", "output", " ", "to", " ", "a", " ", "new", " ", RowBox[{ RowBox[{ RowBox[{"notebook", "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tmpstring", "=", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], ",", "13"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"tmpstring", "==", "\"\\""}], "]"}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", " ", RowBox[{"WindowTitle", "->", "\"\\""}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NotebookCounter", " ", "=", "1"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Not", "[", RowBox[{"tmpstring", "==", "\"\\""}], "]"}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", RowBox[{"WindowTitle", "->", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", "\"\\"", "}"}], "]"}], "]"}]}]}], "]"}]}], ";", RowBox[{"NotebookCounter", "=", "1"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tmpstring", "==", "\"\\""}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookCounter", "=", RowBox[{"NotebookCounter", " ", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", RowBox[{"WindowTitle", "->", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "NotebookCounter"}], "}"}], "]"}], "]"}]}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$DisplayFunction", "=", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"GraphicsData", "[", RowBox[{"\"\\"", ",", RowBox[{"ExportString", "[", RowBox[{"#1", ",", "\"\\""}], "]"}]}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$Post", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "=!=", "Null"}], ",", RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#1", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", "\[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[{"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[{"--", "-"}]}]}], "*)"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.474940574857555*^9, 3.474940578264779*^9}, 3.4823232880975056`*^9}, CellTags->"printingcell"], Cell[BoxData[ RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{ "BoxData", "[", "\"\<\[LightBulb]\[LightBulb]\[LightBulb] DYNAMO \[LightBulb]\ \[LightBulb]\[LightBulb]\>\"", "]"}], ",", "\"\\"", ",", " ", RowBox[{"FontColor", "\[Rule]", " ", RowBox[{"Hue", "[", ".19", "]"}]}], ",", RowBox[{"Background", "\[Rule]", " ", RowBox[{"Hue", "[", ".72", "]"}]}], ",", RowBox[{"TextAlignment", "\[Rule]", " ", "Center"}], ",", RowBox[{"CellFrame", "\[Rule]", " ", "True"}]}], "]"}]}], "]"}], " ", ";"}]], "Input", CellChangeTimes->{{3.474940734709756*^9, 3.4749407368647294`*^9}}], Cell[CellGroupData[{ Cell["Text output - the game", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"F1", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", "\[Equal]", " ", RowBox[{"{", RowBox[{ RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], ".", "y"}], " ", ")"}]}], ",", RowBox[{"z", ".", RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], ".", "y"}], " ", ")"}]}]}], "}"}]}], ",", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Normal form game: \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "1", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "2", "]"}], "}"}]}], "}"}], "]"}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"strategy", "[", "5", "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\"\<\>\"", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"GridBox", "[", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"strategy", "[", "4", "]"}]}], "}"}], "}"}], ",", "M1"}], "]"}], "\[IndentingNewLine]", "]"}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}]}], "}"}], "]"}], " ", "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "1", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "2", "]"}], "}"}]}], "}"}], "]"}], " ", "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"strategy", "[", "6", "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\"\<\>\"", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"GridBox", "[", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"strategy", "[", "4", "]"}]}], "}"}], "}"}], ",", "M2"}], "]"}], "\[IndentingNewLine]", "]"}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", "]"}]}], "]"}], " ", ";"}], "\n", 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[{"{", RowBox[{"x1", ",", "x2"}], "}"}], ",", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"z1", ",", "z2"}], "}"}]}], "]"}], " ", "]"}], "]"}]}], "}"}], "]"}], "]"}], " ", ";"}]}], "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.4749409144721656`*^9, 3.474940973502055*^9}, {3.474942064548924*^9, 3.4749420662313433`*^9}, { 3.4750054114565477`*^9, 3.4750054117669935`*^9}, {3.475005445275176*^9, 3.4750054462565875`*^9}, {3.4750055470615377`*^9, 3.475005551517946*^9}, { 3.4750055841148176`*^9, 3.4750056959155793`*^9}, {3.4750062712490797`*^9, 3.4750062730817146`*^9}, {3.4750063067000556`*^9, 3.475006394536358*^9}, { 3.4750064772536287`*^9, 3.475006492802726*^9}, {3.4750065290988784`*^9, 3.475006566170947*^9}, {3.4750066844133162`*^9, 3.475006690552143*^9}, { 3.4750067340146394`*^9, 3.475006771668783*^9}, {3.475006913642932*^9, 3.475006924228153*^9}, {3.4750070287985177`*^9, 3.475007069336809*^9}, { 3.4750071257567873`*^9, 3.4750072092029943`*^9}, {3.475007246126087*^9, 3.4750073625835447`*^9}, {3.475007572265052*^9, 3.475007624179702*^9}, { 3.4750076555948744`*^9, 3.475007738804524*^9}, {3.482322915842229*^9, 3.482322930553382*^9}, 3.4823230275228176`*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the dynamic", "Text"], 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"}], " ", "}"}], "]"}], "]"}], " ", ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Law of motion: \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"Row", "[", RowBox[{"{", " ", 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[{"dyn", "[", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2"}], "}"}], ",", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"z1", ",", "z2"}], "}"}], ",", "F1", ",", "F2", ",", "F3"}], "]"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], " ", "]"}], ";"}], " "}]}], "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.4749410381029673`*^9, 3.4749410461645594`*^9}, 3.475005781228253*^9, { 3.475007798159873*^9, 3.475007798610521*^9}, {3.4816695648615522`*^9, 3.4816695648715663`*^9}, {3.4822827991471186`*^9, 3.4822827999082127`*^9}}] }, Closed]], Cell["Generating the phase diagram on simplex ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"e", ",", "dots", ",", "simplex", ",", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"frontedge", "===", " ", "LI"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".02"}], ",", "1.02", ",", ".98"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".03"}], ",", "1.02", ",", ".02"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "4", "]"}], ",", RowBox[{"{", RowBox[{".01", ",", "1.02", ",", RowBox[{"-", ".04"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.02", ",", RowBox[{"-", ".04"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "5", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", ".98", ",", "1.04"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "6", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", ".08", ",", "1.02"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"frontedge", "===", " ", "RI"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", "1.03", ",", ".98"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", "1.02", ",", ".02"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "4", "]"}], ",", RowBox[{"{", RowBox[{".01", ",", "1.02", ",", RowBox[{"-", ".04"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{".98", ",", "1.02", ",", RowBox[{"-", ".04"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "5", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", ".98", ",", "1.04"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "6", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.08", ",", "1.03"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ViewPoint", "\[Rule]", " ", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"frontedge", "===", " ", "LI"}], ",", " ", "LIviewpoint", ",", " ", RowBox[{"frontedge", "===", " ", "RI"}], ",", " ", "RIviewpoint"}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Lighting", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", "1"}], ",", RowBox[{"0", "-", "1"}], ",", RowBox[{"0", "-", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", "1"}], ",", RowBox[{"0", "-", "1"}], ",", RowBox[{"1", "+", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", "1"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"0", "-", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", "1"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"1", "+", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"0", "-", "1"}], ",", RowBox[{"1", "+", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"0", "-", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"0", "-", "1"}], ",", RowBox[{"0", "-", "1"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "1"}], ",", RowBox[{"1", "+", "1"}], ",", RowBox[{"1", "+", "1"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], "*)"}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}], " "}]], "Input", CellChangeTimes->{{3.4750057948878946`*^9, 3.47500579596945*^9}, { 3.475007981968445*^9, 3.475007993044371*^9}, {3.4750081044250374`*^9, 3.475008198765251*^9}, {3.4750082869119997`*^9, 3.4750083920131283`*^9}, { 3.4750084280249104`*^9, 3.475008433172312*^9}, 3.4750084979658885`*^9, 3.4750085579077406`*^9, {3.482616864554513*^9, 3.4826169279156218`*^9}, { 3.4826169636470013`*^9, 3.4826170447235837`*^9}, {3.482619210998534*^9, 3.482619229725462*^9}, {3.4826221125006895`*^9, 3.4826221407713404`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\\"", "}"}], "]"}], "]"}], ",", RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Quotient", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}], ">", "9"}], ",", RowBox[{"Quotient", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"Quotient", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<:\>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}], "]"}], ">", "9"}], ",", RowBox[{"Round", "[", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"Round", "[", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], " ", "-", " ", "time1"}], ",", "60"}], "]"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], " ", ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQHZTMa8v2+KXj44zDYDpP5ZrABCC9YuMfIRDtly8g DqK3zlKXBNFWPgdlQfTEw05yIDogp0wNREdpvFIH0W8CRCxB9DvD9dYg+sCx 474gOmPSXH8Q/UeoKwVEX5KfCKafO22vANFn3HdWgehbs8KbQPSMOafB9AXe hNlgOm/eMhD9RfrsRhDNOLtlG4hedijoLIj+dEv+HIjmPfftMoh+tU37EYgW mh3yDKwuJeYFiD63NfMniFYKu/UH7K4t9xknAumez9JMILqOJ4QTRK+KmSMC ooMvr/QXev/SsSVINQBEAwAS8a5u "]], 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", "=", RowBox[{ RowBox[{"CellPrint", "[", RowBox[{"Cell", "[", RowBox[{ RowBox[{"GraphicsData", "[", RowBox[{"\"\\"", ",", RowBox[{"ExportString", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], "]"}], ",", "\"\\""}], "]"}], "]"}], "&"}]}], ";"}], "\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}}] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Initialization Cells; Procedure Library", "Subtitle", CellChangeTimes->{{3.482660827718679*^9, 3.482660829108984*^9}}], Cell[CellGroupData[{ Cell["Maintenance", "Section", CellChangeTimes->{{3.4818469396171713`*^9, 3.481846942020627*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "All", ",", " ", "CellContents", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "True"}], ",", RowBox[{"Evaluatable", "->", "True"}]}], "]"}], ";"}]}], "Input", Evaluatable->True, CellOpen->True, CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.4818493853439536`*^9, 3.481849414545944*^9}, 3.4818959691255317`*^9}, CellTags->"maintenance"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "All", ",", " ", "CellContents", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "False"}], ",", RowBox[{"Evaluatable", "->", "False"}]}], "]"}], ";"}]}], "Input", Evaluatable->True, CellOpen->True, CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.4818494226475935`*^9, 3.48184942971776*^9}, 3.4818959755447617`*^9}, CellTags->"maintenance"], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "True"}], ",", RowBox[{"Evaluatable", "->", "True"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.4818493853439536`*^9, 3.481849414545944*^9}, {3.4818960755886183`*^9, 3.481896078693082*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellContents", ",", " ", RowBox[{"AutoScroll", " ", "->", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellTags", "\[Rule]", "\"\\""}]}], "]"}], ";"}]}], "Input", Evaluatable->True, CellOpen->True, CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.481849177434995*^9, 3.481849189842837*^9}, {3.4818493141315556`*^9, 3.4818493371746893`*^9}}, CellTags->"maintenance"], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "True"}], ",", RowBox[{"Evaluatable", "->", "True"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.4818493853439536`*^9, 3.481849414545944*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", RowBox[{"SelectedNotebook", "[", "]"}], "]"}], ",", RowBox[{"CellOpen", "\[Rule]", "False"}], ",", RowBox[{"Evaluatable", "->", "False"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.481847785483467*^9, 3.4818477881372833`*^9}, { 3.4818478639262624`*^9, 3.4818478712568035`*^9}, {3.481848153082048*^9, 3.4818481535927825`*^9}, {3.48184819919836*^9, 3.481848199729123*^9}, 3.481848285382286*^9, {3.4818483763130383`*^9, 3.4818484167612*^9}, 3.4818484551564093`*^9, 3.481848541961229*^9, {3.4818487279286366`*^9, 3.481848750410965*^9}, {3.481848821112629*^9, 3.481848822374443*^9}, { 3.4818490590948305`*^9, 3.481849064392448*^9}, 3.4818491129923315`*^9, { 3.4818494226475935`*^9, 3.48184942971776*^9}}] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Credits", "Subtitle"], Cell[TextData[{ "Dynamo 2x2x2\nVersion 0.2.5 (May 9, 2010)\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\ https://mywebspace.wisc.edu/franchetti/web", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~edokumac/"], None}], "\n\t\t\nDynamo website:\t\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, and SES-0851580 is gratefully acknowledged." }], "Text", CellChangeTimes->{{3.480864918617506*^9, 3.480864924476881*^9}, { 3.481905709554278*^9, 3.481905778468186*^9}, 3.4819058117058973`*^9, { 3.481905909877186*^9, 3.4819059561979647`*^9}, 3.4819059899391937`*^9, { 3.4824928304988747`*^9, 3.482492861644938*^9}}, FontFamily->"Palatino"] }, Closed]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", WindowToolbars->{}, PrintAction->"PrintToNotebook", InitializationCellEvaluation->True, InitializationCellWarning->False, CellGrouping->Manual, WindowSize->{878, 632}, WindowMargins->{{217, Automatic}, {Automatic, 239}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", 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]}, Closed]], 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}, {2, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, 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 -> "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]}, Closed]]}, 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, 10}, {6, 6}}, 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]}, Closed]]}, 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, AutoStyleOptions -> {"UnmatchedBracketStyle" -> 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}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], 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]]}, Visible -> False, FrontEndVersion -> "7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "buttoncell"->{ Cell[2847, 96, 18901, 350, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[21751, 448, 2466, 68, 42, "Output", CellTags->"buttoncell"], Cell[27845, 625, 20081, 407, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[47929, 1034, 18217, 413, 80, "Output", CellTags->"buttoncell"], Cell[95340, 2231, 15417, 289, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[110760, 2522, 7183, 187, 106, "Output", CellTags->"buttoncell"], Cell[118172, 2721, 15457, 291, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[133632, 3014, 3591, 97, 70, "Output", CellTags->"buttoncell"]}, "payofffunction"->{ Cell[24232, 519, 2164, 61, 55, "Input", CellTags->"payofffunction"]}, "payoffmatrix"->{ Cell[66183, 1452, 7728, 180, 44, "Input", CellTags->"payoffmatrix"]}, "meandynamic"->{ Cell[137250, 3115, 323, 7, 21, "Input", CellTags->"meandynamic"]}, "dynamicslibrary"->{ Cell[149080, 3490, 143, 3, 70, "SmallText", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[149226, 3495, 769, 22, 70, "Input", CellOpen->False, InitializationCell->True, CellTags->"dynamicslibrary"], Cell[150020, 3521, 132, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[150155, 3526, 2121, 52, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[152279, 3580, 235, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[152551, 3592, 169, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[152723, 3597, 3023, 76, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[155749, 3675, 237, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[156023, 3687, 164, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[156190, 3692, 5956, 154, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[162149, 3848, 260, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[162446, 3861, 130, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[162579, 3866, 4620, 124, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[167202, 3992, 259, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[167498, 4005, 169, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[167670, 4010, 4210, 112, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[171883, 4124, 222, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[172142, 4136, 180, 4, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[172325, 4142, 3669, 104, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[175997, 4248, 3002, 89, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[179002, 4339, 268, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[187432, 4591, 3672, 104, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[191107, 4697, 3021, 89, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[194131, 4788, 280, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[194448, 4801, 133, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208159, 5169, 273, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208469, 5182, 172, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208644, 5187, 264, 6, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208911, 5195, 393, 12, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"]}, "degisken"->{ Cell[212662, 5281, 1332, 38, 97, "Input", CellTags->"degisken"]}, "printingcell"->{ Cell[234624, 5859, 5366, 151, 370, "Input", CellTags->"printingcell"]}, "maintenance"->{ Cell[266071, 6682, 1202, 24, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[267298, 6710, 1203, 24, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[269718, 6764, 1223, 27, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"]} } *) (*CellTagsIndex CellTagsIndex->{ {"buttoncell", 388104, 9218}, {"payofffunction", 388880, 9243}, {"payoffmatrix", 388974, 9246}, {"meandynamic", 389067, 9249}, {"dynamicslibrary", 389161, 9252}, {"degisken", 392233, 9341}, {"printingcell", 392323, 9344}, {"maintenance", 392418, 9347} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 343, 10, 132, "Title"], Cell[CellGroupData[{ Cell[935, 36, 63, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[1023, 41, 221, 6, 49, "Text", Evaluatable->False], Cell[1247, 49, 155, 5, 70, "Input", CellOpen->False, InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1439, 59, 192, 3, 37, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[1656, 66, 158, 3, 37, "Subsection"], Cell[1817, 71, 1005, 21, 43, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2847, 96, 18901, 350, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[21751, 448, 2466, 68, 42, "Output", CellTags->"buttoncell"] }, Open ]], Cell[24232, 519, 2164, 61, 55, "Input", CellTags->"payofffunction"] }, Closed]], Cell[CellGroupData[{ Cell[26433, 585, 366, 6, 29, "Subsection"], Cell[CellGroupData[{ Cell[26824, 595, 341, 5, 27, "Subsubsection"], Cell[27168, 602, 652, 19, 59, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[27845, 625, 20081, 407, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[47929, 1034, 18217, 413, 80, "Output", CellTags->"buttoncell"] }, Open ]], Cell[CellGroupData[{ Cell[66183, 1452, 7728, 180, 44, "Input", CellTags->"payoffmatrix"], Cell[CellGroupData[{ Cell[73936, 1636, 5240, 155, 19, "Input", Evaluatable->False, CellOpen->False], Cell[79179, 1793, 5116, 133, 243, "Input"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[84356, 1933, 592, 9, 27, "Subsubsection"], Cell[84951, 1944, 622, 12, 70, "Text", Evaluatable->False], Cell[85576, 1958, 6265, 161, 70, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[91890, 2125, 360, 5, 37, "Subsection"], Cell[92253, 2132, 632, 23, 43, "Text"], Cell[92888, 2157, 761, 26, 100, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[93698, 2189, 166, 3, 67, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[93889, 2196, 552, 8, 37, "Subsection"], Cell[94444, 2206, 803, 17, 60, "Text"], Cell[CellGroupData[{ Cell[95272, 2227, 43, 0, 26, "SmallText"], Cell[CellGroupData[{ Cell[95340, 2231, 15417, 289, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[110760, 2522, 7183, 187, 106, "Output", CellTags->"buttoncell"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[117992, 2715, 155, 2, 26, "SmallText"], Cell[CellGroupData[{ Cell[118172, 2721, 15457, 291, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[133632, 3014, 3591, 97, 70, "Output", CellTags->"buttoncell"] }, Open ]] }, Closed]], Cell[137250, 3115, 323, 7, 21, "Input", CellTags->"meandynamic"], Cell[CellGroupData[{ Cell[137598, 3126, 126, 1, 26, "SmallText"], Cell[CellGroupData[{ Cell[137749, 3131, 62, 0, 70, "Text"], Cell[137814, 3133, 89, 2, 70, "Input"] }, Open ]] }, Closed]], Cell[137930, 3139, 157, 4, 19, "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[138124, 3148, 514, 7, 37, "Subsection"], Cell[CellGroupData[{ Cell[138663, 3159, 89, 1, 70, "SmallText"], Cell[138755, 3162, 341, 7, 70, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[139121, 3173, 140, 2, 70, "Subsubsection", InitializationCell->True], Cell[139264, 3177, 409, 13, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[139710, 3195, 83, 1, 70, "Subsubsection", InitializationCell->True], Cell[139796, 3198, 1724, 50, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[141557, 3253, 72, 1, 70, "Subsubsection", InitializationCell->True], Cell[141632, 3256, 1346, 39, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[143015, 3300, 94, 1, 70, "Subsubsection", InitializationCell->True], Cell[143112, 3303, 2496, 69, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[145645, 3377, 48, 0, 70, "Subsubsection"], Cell[145696, 3379, 1851, 56, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[147596, 3441, 104, 1, 70, "SmallText"], Cell[147703, 3444, 260, 5, 70, "Text"], Cell[147966, 3451, 1077, 34, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[149080, 3490, 143, 3, 70, "SmallText", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[149226, 3495, 769, 22, 70, "Input", CellOpen->False, InitializationCell->True, CellTags->"dynamicslibrary"], Cell[CellGroupData[{ Cell[150020, 3521, 132, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[150155, 3526, 2121, 52, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[152279, 3580, 235, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[152551, 3592, 169, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[152723, 3597, 3023, 76, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[155749, 3675, 237, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[156023, 3687, 164, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[156190, 3692, 5956, 154, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[162149, 3848, 260, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[162446, 3861, 130, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[162579, 3866, 4620, 124, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[167202, 3992, 259, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[167498, 4005, 169, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[167670, 4010, 4210, 112, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[171883, 4124, 222, 7, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[172142, 4136, 180, 4, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[172325, 4142, 3669, 104, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[175997, 4248, 3002, 89, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[179002, 4339, 268, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[179307, 4352, 64, 1, 70, "Text", InitializationCell->True], Cell[179374, 4355, 981, 35, 70, "Text", InitializationCell->True], Cell[180358, 4392, 2363, 68, 70, "Input", InitializationCell->True], Cell[182724, 4462, 4148, 105, 70, "Input", InitializationCell->True], Cell[186875, 4569, 244, 7, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[187156, 4581, 136, 2, 70, "Text", InitializationCell->True], Cell[187295, 4585, 134, 4, 70, "Text", InitializationCell->True], Cell[187432, 4591, 3672, 104, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[191107, 4697, 3021, 89, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[194131, 4788, 280, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[194448, 4801, 133, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[194584, 4806, 180, 6, 70, "Input", InitializationCell->True], Cell[194767, 4814, 13389, 353, 70, "Input", InitializationCell->True], Cell[208159, 5169, 273, 8, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[208469, 5182, 172, 3, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208644, 5187, 264, 6, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[208911, 5195, 393, 12, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[209307, 5209, 161, 5, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[209541, 5222, 153, 2, 67, "Section"], Cell[CellGroupData[{ Cell[209719, 5228, 605, 8, 37, "Subsection"], Cell[CellGroupData[{ Cell[210349, 5240, 76, 0, 26, "SmallText"], Cell[210428, 5242, 2219, 36, 256, "Text"] }, Closed]], Cell[212662, 5281, 1332, 38, 97, "Input", CellTags->"degisken"] }, Open ]], Cell[CellGroupData[{ Cell[214031, 5324, 652, 9, 37, "Subsection"], Cell[214686, 5335, 1857, 43, 123, "Text"], Cell[216546, 5380, 1564, 26, 85, "Input"], Cell[CellGroupData[{ Cell[218135, 5410, 116, 1, 26, "SmallText"], Cell[218254, 5413, 336, 11, 40, "Input"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[218641, 5430, 108, 2, 40, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[218774, 5436, 52, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[218851, 5441, 84, 1, 67, "Section"], Cell[218938, 5444, 155, 4, 70, "Input"], Cell[219096, 5450, 765, 27, 70, "Input"], Cell[219864, 5479, 3392, 82, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[223293, 5566, 73, 1, 37, "Section"], Cell[223369, 5569, 513, 14, 55, "Input"], Cell[CellGroupData[{ Cell[223907, 5587, 139, 2, 37, "Subsection"], Cell[CellGroupData[{ Cell[224071, 5593, 134, 3, 27, "Text"], Cell[224208, 5598, 7481, 181, 400, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[231738, 5785, 111, 1, 37, "Subsection"], Cell[231852, 5788, 2263, 54, 70, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[234164, 5848, 49, 0, 37, "Section"], Cell[234216, 5850, 405, 7, 24, "Input"], Cell[234624, 5859, 5366, 151, 370, "Input", CellTags->"printingcell"], Cell[239993, 6012, 715, 17, 40, "Input"], Cell[CellGroupData[{ Cell[240733, 6033, 38, 0, 27, "Text"], Cell[240774, 6035, 7996, 175, 509, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[248807, 6215, 41, 0, 24, "Text"], Cell[248851, 6217, 2456, 63, 70, "Input"] }, Closed]], Cell[251322, 6283, 56, 0, 24, "Text"], Cell[251381, 6285, 8731, 221, 565, "Input"], Cell[260115, 6508, 2855, 74, 160, "Input"], Cell[262973, 6584, 2764, 81, 175, "Input"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[265798, 6672, 125, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[265948, 6677, 98, 1, 67, "Section"], Cell[CellGroupData[{ Cell[266071, 6682, 1202, 24, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[CellGroupData[{ Cell[267298, 6710, 1203, 24, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[268504, 6736, 1165, 22, 40, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[269718, 6764, 1223, 27, 40, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[270944, 6793, 1112, 21, 40, "Input"], Cell[272059, 6816, 1113, 21, 40, "Input"] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[273233, 6844, 27, 0, 46, "Subtitle"], Cell[273263, 6846, 1346, 28, 70, "Text"] }, Closed]] } ] *) (* End of internal cache information *)