(* 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[ 397406, 9478] NotebookOptionsPosition[ 268497, 6613] NotebookOutlinePosition[ 387023, 9118] CellTagsIndexPosition[ 386718, 9106] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \[LightBulb]\[LightBulb]\[LightBulb] DYNAMO 4 \[LightBulb]\[LightBulb]\ \[LightBulb] Diagrams for Evolutionary Game Dynamics\ \>", "Title", CellFrame->True, CellChangeTimes->{{3.4824992692303267`*^9, 3.48249927313317*^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[TextData[StyleBox["When you have finished specifying paramters, click on \ the rightmost vertical bar and press Enter (or Shift-Enter) to run the \ program.", FontSize->14]], "Text", Evaluatable->False, FontFamily->"Palatino"], 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.482499334201991*^9, 3.482499339016358*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Functional form", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, 3.482499343521182*^9}], Cell[TextData[{ "The population game F[x_] is initially specified as F[x_] = A.x, the game \ generated by matching in the normal form game A. Pressing the button marked ", StyleBox["Quadratic", FontWeight->"Bold"], " redefines F[x_] appropriately; pressing ", StyleBox["Normal Form/Linear", FontWeight->"Bold"], " restores F[x_] = A.x. 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.482248109572317*^9, 3.4822481228363895`*^9}, { 3.482248186017239*^9, 3.4822482191398673`*^9}, {3.482248586057469*^9, 3.482248595956703*^9}, {3.482499353299614*^9, 3.482499364273931*^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"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"textsl", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"valuesl", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"texts", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"values", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowv", "=", 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[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowv", "=", RowBox[{"Join", "[", RowBox[{"rowv", ",", RowBox[{"{", RowBox[{"valuesl", "[", 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[{"texts", "=", RowBox[{"Join", "[", RowBox[{"texts", ",", RowBox[{"{", "rowt", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"values", "=", RowBox[{"Join", "[", RowBox[{"values", ",", RowBox[{"{", "rowv", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowv", "=", 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[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", "text", "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"120", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"text", "->", RowBox[{ RowBox[{"texts", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"value", "->", RowBox[{ RowBox[{"values", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", " ", "[", " ", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818119966889615`*^9, 3.481812002957976*^9}, {3.481812105737727*^9, 3.481812272981318*^9}, { 3.4818124484235916`*^9, 3.481812457366451*^9}, {3.481812498485577*^9, 3.481812523040886*^9}, {3.4818125683860893`*^9, 3.4818125706493435`*^9}, { 3.481812612139003*^9, 3.481812639708646*^9}, {3.4818128485990157`*^9, 3.481812864662113*^9}, {3.4818129721767116`*^9, 3.4818130553963757`*^9}, { 3.4818132379588876`*^9, 3.4818133245333757`*^9}, {3.481813355407771*^9, 3.4818133663935676`*^9}, 3.4818134196132183`*^9, {3.4818134879827776`*^9, 3.481813489202236*^9}, {3.4818136452104654`*^9, 3.481813661273563*^9}, { 3.4818137634451456`*^9, 3.481813778596933*^9}, {3.4818140028480997`*^9, 3.481814031477353*^9}, {3.481814092975784*^9, 3.4818141259632177`*^9}, { 3.4818141856590557`*^9, 3.4818141929395247`*^9}, {3.4818142536968894`*^9, 3.481814383273211*^9}, {3.4818144211176286`*^9, 3.4818145387768145`*^9}, { 3.4818146624446397`*^9, 3.4818146646778507`*^9}, {3.48181469749504*^9, 3.4818147106439466`*^9}, {3.4818888661262703`*^9, 3.481888873416754*^9}, { 3.481893160246562*^9, 3.481893161117815*^9}, {3.4818932673806133`*^9, 3.481893309060546*^9}, {3.481893407021407*^9, 3.481893454229288*^9}, 3.4818939490808496`*^9, {3.482248247455583*^9, 3.482248282801408*^9}}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Normal Form/Linear\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F[x_]:=A.x;"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Quadratic\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payofffunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"F[x_]:=Table[x.Q[[i]].x,{i,Dimensions[x,1][[1]]}]+L.x+b;"}]\ , AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellChangeTimes->{3.481894600066922*^9, 3.4822482903272295`*^9, 3.482248862575082*^9}, CellTags->"buttoncell"] }, {2}]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{"A", ".", "x"}]}], ";"}]], "Input", CellChangeTimes->{{3.481406901042785*^9, 3.481406903496313*^9}, 3.48141121375416*^9, 3.481411283644657*^9, 3.4814113150498157`*^9, 3.4814114013038425`*^9, {3.4814114367147613`*^9, 3.4814114648952827`*^9}, { 3.4814115342850604`*^9, 3.4814115771667213`*^9}, {3.481411716106507*^9, 3.4814117225557804`*^9}, 3.481411785155795*^9, {3.4814118307914157`*^9, 3.48141185408491*^9}, 3.4814119277007647`*^9, {3.4814158208293552`*^9, 3.4814158268179665`*^9}, {3.48141641760748*^9, 3.4814164204215264`*^9}, { 3.481422160477479*^9, 3.4814221633616257`*^9}, {3.4814831639763174`*^9, 3.4814831655385637`*^9}, {3.4818146408836365`*^9, 3.4818146715877867`*^9}, 3.481818277853342*^9, 3.481888879785912*^9, 3.481894604823762*^9, { 3.4818954094607735`*^9, 3.4818954163506804`*^9}, {3.4822482968165607`*^9, 3.482248319604328*^9}, 3.482248865384121*^9, 3.482253311361298*^9}, CellTags->"payofffunction"] }, Open ]], 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.482499390531414*^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.481901716513555*^9, 3.481901723481155*^9}}], Cell[TextData[{ "The matrix ", StyleBox["A", FontWeight->"Bold"], " is the normal form game to be analyzed. Edit its entries directly, or \ choose a payoff matrix by pressing a button in the cell below." }], "Text", Evaluatable->False, CellChangeTimes->{{3.4814160902467585`*^9, 3.481416118357179*^9}, 3.4818153754699197`*^9, {3.4818154184817677`*^9, 3.481815456005725*^9}, { 3.481902404798212*^9, 3.481902468297512*^9}, {3.481902738800397*^9, 3.481902835061795*^9}, {3.481902894771461*^9, 3.48190289486475*^9}, { 3.4826607481485033`*^9, 3.482660754130146*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Some standard normal form games", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}}], 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[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}], ",", " ", "1", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", RowBox[{"-", "1"}], ",", ".1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{".1", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", ".1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", ".1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "12"}], ",", " ", "0", ",", "22"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"20", ",", "0", ",", "0", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "21"}], ",", RowBox[{"-", "4"}], ",", "0", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "2"}], ",", "2", ",", "0"}], "}"}]}], "}"}]}], "\n", " ", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", 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.482499882130601*^9, 3.482499918617347*^9}, {3.4824999498159657`*^9, 3.4825001861311827`*^9}, {3.482500694734828*^9, 3.4825007038551826`*^9}, 3.4825007832288857`*^9, {3.482501048378593*^9, 3.4825011054625*^9}, 3.4825011388107977`*^9}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1"}, {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Hypercycle\"\>"} }, 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[{"A=", ToBoxes[ MatrixForm[{{0, 0, 0, 1}, {1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "1", "1"}, {"1", "0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "1", "0", "0"}, { RowBox[{"-", "1"}], "1", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"RPS+Twin\"\>"} }, 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[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1, 1}, {1, 0, -1, -1}, {-1, 1, 0, 0}, {-1, 1, 0, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"-", "1"}], "0.1`"}, {"0.1`", "0", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0.1`", "0", "0"}, {"0", RowBox[{"-", "1"}], "0.1`", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Hofbauer-Swinkels\"\>"} }, 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[{"A=", ToBoxes[ MatrixForm[{{0, 0, -1, 0.1}, {0.1, 0, 0, -1}, {-1, 0.1, 0, 0}, { 0, -1, 0.1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "12"}], "0", "22"}, {"20", "0", "0", RowBox[{"-", "10"}]}, { RowBox[{"-", "21"}], RowBox[{"-", "4"}], "0", "35"}, {"10", RowBox[{"-", "2"}], "2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Arneodo-Coullet-Tresser\"\>"} }, 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[{"A=", ToBoxes[ MatrixForm[{{0, -12, 0, 22}, {20, 0, 0, -10}, {-21, -4, 0, 35}, { 10, -2, 2, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", CellChangeTimes->{ 3.4816718074963026`*^9, 3.4816718972253265`*^9, 3.4816719403373184`*^9, 3.4816719766895905`*^9, {3.481673310126979*^9, 3.481673319470414*^9}, 3.481673371455165*^9, 3.48167365444208*^9, 3.481674603036091*^9, 3.481734609608187*^9, 3.4817366589600782`*^9, 3.481737545845357*^9, 3.4818135873873196`*^9, 3.48250076032801*^9, 3.4825008193413887`*^9, 3.482501108703549*^9, 3.482501142013576*^9}, CellTags->"buttoncell"] }, {2}]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1"}, {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]], "Input", CellChangeTimes->{{3.4807914455931883`*^9, 3.4807914669051423`*^9}, { 3.480791789209391*^9, 3.4807917977404227`*^9}, 3.4807940301207724`*^9, 3.480859076992506*^9, 3.480864043008131*^9, {3.480865480008131*^9, 3.480865513508131*^9}, 3.480944241448495*^9, 3.4812465820055056`*^9, 3.4813021571797943`*^9, {3.4813023589584618`*^9, 3.481302362677164*^9}, { 3.4813026530171976`*^9, 3.481302666579524*^9}, {3.481302702610313*^9, 3.4813027138757935`*^9}, {3.4813027893592024`*^9, 3.4813028076714683`*^9}, {3.4813029176388106`*^9, 3.4813029292324123`*^9}, 3.4813030583401346`*^9, 3.4813061973624544`*^9, 3.4813062596272826`*^9, 3.4813064264376473`*^9, 3.4813065417486715`*^9, 3.481306624575736*^9, 3.481306679575032*^9, 3.481306727090049*^9, 3.4813070602576594`*^9, { 3.4813072989577293`*^9, 3.481307323738662*^9}, 3.4813095813972635`*^9, 3.4813101426869535`*^9, 3.4813101761865253`*^9, 3.4813102138891673`*^9, 3.4813103080598373`*^9, {3.4813104098866587`*^9, 3.481310424652095*^9}, 3.481311817743638*^9, {3.481311989928934*^9, 3.48131200235065*^9}, { 3.481312255316162*^9, 3.481312269315983*^9}, 3.4813123243152785`*^9, 3.481312355189883*^9, {3.4813125150628366`*^9, 3.4813125343907146`*^9}, { 3.481312567265294*^9, 3.4813125711402445`*^9}, 3.4813133889891505`*^9, 3.481313435316683*^9, 3.481314323086569*^9, 3.4813143631016817`*^9, 3.4813144088198466`*^9, {3.481314571833385*^9, 3.481314593676855*^9}, 3.481315789760878*^9, {3.4813158232458963`*^9, 3.481315856324656*^9}, 3.481315926279112*^9, 3.481316189044737*^9, {3.481316559946708*^9, 3.481316587571355*^9}, {3.4813166670234623`*^9, 3.48131666724221*^9}, { 3.4813166977261944`*^9, 3.4813166979449415`*^9}, 3.481316900504849*^9, 3.481316999191086*^9, 3.4813186422950535`*^9, 3.481319400613472*^9, { 3.4813195747049937`*^9, 3.4813195783455725`*^9}, 3.481329551359378*^9, 3.481334621489485*^9, 3.481336034025562*^9, 3.4813365135662985`*^9, 3.4814055733736906`*^9, {3.481405797455905*^9, 3.4814058068494124`*^9}, { 3.4814068175927896`*^9, 3.4814068317130938`*^9}, 3.4814158153815217`*^9, 3.4814195977302723`*^9, {3.481472827843325*^9, 3.481472855684579*^9}, { 3.481671080691208*^9, 3.481671084216277*^9}, {3.4816719070895104`*^9, 3.4816719104743776`*^9}, {3.4816735327771344`*^9, 3.481673534759986*^9}, 3.481736297109763*^9, 3.4817372901877394`*^9, {3.4818136137151775`*^9, 3.4818136167695694`*^9}, 3.4818157647296476`*^9, 3.4818182756401596`*^9, 3.4818967232661815`*^9, 3.4818967578459044`*^9, {3.481904529755383*^9, 3.481904535140049*^9}, 3.481906065945384*^9, 3.481967730030064*^9, 3.4825009355800953`*^9}, CellTags->"payoffmatrix"] }, Open ]], Cell[CellGroupData[{ Cell["Quadratic games", "Subsubsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, { 3.4822513590417576`*^9, 3.4822513600570135`*^9}, {3.482499395228696*^9, 3.4824994031239367`*^9}, 3.482500943705595*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"L", "=", "A"}], ";"}], "\n", RowBox[{ RowBox[{"b", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]}], "Input", CellChangeTimes->{{3.481816422695757*^9, 3.481816579310958*^9}, { 3.4818170340648623`*^9, 3.4818170366686063`*^9}, 3.4818170885031404`*^9, { 3.4818933148288403`*^9, 3.4818933381223345`*^9}, {3.4818942896605797`*^9, 3.48189429182369*^9}, {3.4818944159922357`*^9, 3.481894441739258*^9}, { 3.482248780767448*^9, 3.482248844504097*^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.4825011759655867`*^9}], Cell["\<\ Give the strategies one-character names to be printed on the phase diagram. \ If you use more than one character for each name or if you change the \ viewpoint from the default value, you may need to adjust the positions in \ which in the names are printed in the phase diagrams.\ \>", "Text", 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", "]"}], "=", "\"\\""}], " ", ";"}]}], "Input", CellChangeTimes->{{3.482500956033923*^9, 3.4825009655227823`*^9}}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Choice of dynamic", "Section", Evaluatable->False, 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.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}, FontFamily->"Palatino"], 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", ",", RowBox[{"Defer", "[", RowBox[{"ILogit", "[", "\[Eta]", "]"}], "]"}], ",", RowBox[{"Defer", "[", RowBox[{"SampleBR", "[", "k", "]"}], "]"}], ",", "Smith"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", 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", "}"}]}], "]"}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.481812891450633*^9, 3.481812899642412*^9}, 3.481812942794462*^9, 3.4818349201208076`*^9, {3.482098521470656*^9, 3.4820985290114994`*^9}, 3.482251728815709*^9}, CellTags->"buttoncell"], Cell[BoxData[ TagBox[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[ 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], StyleBox[ ButtonBox[ RowBox[{"SampleBR", "[", "k", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`SampleBR[$CellContext`k]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Smith", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Smith], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", Evaluatable->False, CellChangeTimes->{3.481895745734311*^9, 3.482251771076477*^9}, CellTags->"buttoncell"] }, {2}]], 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"}], "}"}]}], ";", "\[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[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "6", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.48173788035636*^9, 3.4817378961991405`*^9}, { 3.48181290093427*^9, 3.481812907393558*^9}, 3.4818129433953257`*^9, 3.481834931817627*^9, 3.482251758918996*^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[$CellContext`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]} }, 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.481737912823045*^9, 3.4817379552841005`*^9, 3.4818349325186353`*^9, 3.4822517759835334`*^9}, CellTags->"buttoncell"] }, {2}]] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"dyn", ":=", "Replicator"}], ";"}]], "Input", CellChangeTimes->{ 3.4749411003424635`*^9, 3.480886898417095*^9, 3.481486445666294*^9, 3.4814868964344673`*^9, {3.4814871548059874`*^9, 3.481487164139408*^9}, 3.482250323620962*^9, {3.482251793638921*^9, 3.482251794830634*^9}, 3.4822523477657156`*^9, 3.482502150089922*^9, 3.482600670755059*^9, 3.4826198580890045`*^9, {3.482659310316162*^9, 3.482659328195376*^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]", " ", "=", " ", ".2"}], ";"}]], "Input", CellChangeTimes->{{3.4826012917780457`*^9, 3.482601292699371*^9}, { 3.4826014857469597`*^9, 3.4826014860073338`*^9}, 3.4826588075718603`*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Sample size for the sample best response dynamic", "Text", CellChangeTimes->{{3.479723492252921*^9, 3.47972353833919*^9}, { 3.481894792974309*^9, 3.481894823938834*^9}, {3.481903813386582*^9, 3.481903815906405*^9}, 3.4825013576633253`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"k", " ", "=", " ", "2"}], ";"}]], "Input", CellChangeTimes->{{3.4797235751220813`*^9, 3.4797235774754653`*^9}, 3.4798097927141356`*^9, 3.480791134913642*^9, {3.4807930226309395`*^9, 3.480793033474412*^9}, 3.4808020723992596`*^9}] }, Closed]] }, 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", "[", "Fbar", "]"}], " ", ";", RowBox[{"Clear", "[", "Fhat", "]"}], " ", ";", RowBox[{"Clear", "[", "Fhatplus", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4749417283755302`*^9, 3.474941732922068*^9}}], Cell[CellGroupData[{ Cell["Population Average Payoff", "Text", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], " ", ";"}]], "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff", "Text", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"F", "[", "x", "]"}], " ", "-", " ", RowBox[{"Fbar", "[", RowBox[{"x", ",", "F"}], "]"}]}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.474941726643039*^9, 3.474941747913625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Positive part of the excess payoff", "Text", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "]"}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Definition of combination of two dynamics", "SmallText", CellChangeTimes->{{3.482252015658169*^9, 3.4822520183820853`*^9}, 3.4825016510956697`*^9, 3.48250200264224*^9, {3.482502075533862*^9, 3.482502082028994*^9}}], Cell["\<\ To define the combined dynamic, specify the two dynamics to be combined and \ the weights. The last line of code formally defines the combined dynamic \ according to your specificcations.\ \>", "Text", CellChangeTimes->{{3.4822522184197254`*^9, 3.482252238839087*^9}}, 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[{"weight", "[", "2", "]"}], "=", ".1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Combined", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}], "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"weight", "[", "1", "]"}]}], ")"}], " ", RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}]}]}], " ", ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.4822521927428036`*^9, 3.482252214003375*^9}, { 3.482252261451602*^9, 3.4822522620124083`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definitions of dynamics", FontSlant->"Italic"]], "SmallText", InitializationCell->True, CellChangeTimes->{3.480886960198345*^9, 3.482501654806408*^9}, 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", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "SampleBR", "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.479723347114222*^9, 3.4797233683046923`*^9}, 3.479723590133667*^9, 3.481246870642436*^9, 3.4812470100625267`*^9}, CellTags->"dynamicslibrary"], Cell[CellGroupData[{ Cell["Replicator dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.482501880963357*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "Replicator", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Replicator", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Logit dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.482501795373294*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "Logit", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Logit", "[", "\[Epsilon]_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Epsilon]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Epsilon]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Epsilon]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Epsilon]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[Epsilon]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Epsilon]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "\[Epsilon]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Epsilon]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Logit", "[", "\[Eta]_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "sum", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sum", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "/", "\[Eta]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "/", "\[Eta]"}], "]"}], "/", "sum"}], "-", RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{ 3.4825994217991486`*^9, {3.4825994892160892`*^9, 3.482599584042443*^9}, { 3.482599615888235*^9, 3.482599619423318*^9}, {3.48259967730655*^9, 3.482599776078577*^9}, {3.482599812330705*^9, 3.4825998684714317`*^9}, { 3.4825999006877565`*^9, 3.4826000127388783`*^9}, {3.482600058144168*^9, 3.4826000759697995`*^9}}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Imitative logit dynamic", "Text", InitializationCell->True, CellChangeTimes->{ 3.482501795373294*^9, {3.4825993856471643`*^9, 3.482599395331089*^9}, { 3.48265878526856*^9, 3.482658787498782*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "ILogit", "]"}], " ", ";"}]], "Input", CellChangeTimes->{3.482599413407081*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ILogit", "[", "\[Eta]_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], " ", "-", RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "\[Eta]"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "\[Eta]"]]}]], "-", RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4825994217991486`*^9, {3.4825994892160892`*^9, 3.482599584042443*^9}, { 3.482599615888235*^9, 3.482599619423318*^9}, {3.48259967730655*^9, 3.482599776078577*^9}, {3.482599812330705*^9, 3.4825998684714317`*^9}, { 3.4825999006877565`*^9, 3.482600006319648*^9}, {3.482658778533214*^9, 3.482658780876322*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ILogit", "[", "\[Eta]_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "sum", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sum", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "/", "\[Eta]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "/", "\[Eta]"}], "]"}], "/", "sum"}]}], "-", RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{ 3.4825994217991486`*^9, {3.4825994892160892`*^9, 3.482599584042443*^9}, { 3.482599615888235*^9, 3.482599619423318*^9}, {3.48259967730655*^9, 3.482599776078577*^9}, {3.482599812330705*^9, 3.4825998684714317`*^9}, { 3.4825999006877565`*^9, 3.4826000127388783`*^9}}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Sample best response dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.4796712797199183`*^9, 3.4796712899946923`*^9}, 3.479723591645841*^9, 3.4814870504859824`*^9, {3.482501782861857*^9, 3.482501785964651*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "SampleBR", "]"}], ";"}]], "Input", CellChangeTimes->{{3.480886995698345*^9, 3.48088700858897*^9}, 3.481487051467394*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"DiscSimplex", "[", RowBox[{"k_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"z", ",", "Znk", ",", "leftover", ",", "i", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Znk", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "^", RowBox[{"(", "n", ")"}]}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leftover", "=", RowBox[{"j", "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"IntegerPart", "[", RowBox[{"leftover", "/", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leftover", "=", RowBox[{"leftover", "-", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "i"}], ")"}]}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "==", " ", "k"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Znk", "=", RowBox[{"Join", "[", RowBox[{"Znk", ",", RowBox[{"{", "z", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "Znk"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ListPointPlot3D", "[", RowBox[{"DiscSimplex", "[", RowBox[{"50", ",", "3"}], "]"}], "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Position", "[", RowBox[{ RowBox[{"F", "[", "x", "]"}], ",", RowBox[{"Max", "[", RowBox[{"F", "[", "x", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ "This", " ", "line", " ", "will", " ", "give", " ", "a", " ", "list", " ", "if", " ", "there", " ", "is", " ", "more", " ", "than", " ", "one"}]}], ",", " ", RowBox[{"to", " ", "create", " ", "the", " ", "polytope"}]}], "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BR", "::", "multip"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BR", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"Ordering", "[", RowBox[{ RowBox[{"F", "[", "x", "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"F", "[", "x", "]"}], ",", RowBox[{"Max", "[", RowBox[{"F", "[", "x", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "1"}], ",", RowBox[{"Message", "[", RowBox[{"BR", "::", "multip"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "y"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Bk", "[", RowBox[{"x_", ",", "F_", ",", "k_", ",", "Znk_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"BR", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "k"}], " ", "*", RowBox[{"Znk", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", "F"}], "]"}], "*", RowBox[{"Apply", "[", RowBox[{"Multinomial", ",", RowBox[{"Znk", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "+", "littleo"}], ")"}], "^", RowBox[{ RowBox[{"Znk", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"littleo", "->", "0"}], ",", RowBox[{"Direction", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Znk", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SampleBR", "[", "k_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"Bk", "[", RowBox[{"x", ",", "F", ",", "k", ",", RowBox[{"DiscSimplex", "[", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"x", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "-", "x"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.4796712918773994`*^9, 3.479671318125142*^9}, { 3.479671575645438*^9, 3.479671610755924*^9}, {3.4796717982254925`*^9, 3.479671845663705*^9}, {3.4796718915096283`*^9, 3.47967190566999*^9}, { 3.479673481726248*^9, 3.4796735125505705`*^9}, {3.479673563904414*^9, 3.4796735815698156`*^9}, {3.4796737007812333`*^9, 3.4796737186369085`*^9}, 3.479673830758131*^9, {3.479673869423729*^9, 3.479673959453185*^9}, { 3.47967750162658*^9, 3.4796775430561533`*^9}, {3.479677582012169*^9, 3.4796776844494667`*^9}, {3.4796777620810957`*^9, 3.4796778255123053`*^9}, {3.4796778960937967`*^9, 3.4796779890775003`*^9}, {3.479678019481219*^9, 3.4796780233267484`*^9}, { 3.4796780925562954`*^9, 3.479678167994771*^9}, {3.4796782003913546`*^9, 3.4796782457866297`*^9}, {3.4796782888886075`*^9, 3.4796784321746426`*^9}, {3.47967847862143*^9, 3.479678548071294*^9}, { 3.479678600807124*^9, 3.4796786026097164`*^9}, {3.479679037625238*^9, 3.4796790595768027`*^9}, {3.4796792007297707`*^9, 3.479679226717139*^9}, { 3.4796793968417664`*^9, 3.479679399115035*^9}, {3.4796794542943788`*^9, 3.4796796902036*^9}, {3.4796797303813725`*^9, 3.479679803606665*^9}, { 3.4796798854944143`*^9, 3.479679900586115*^9}, {3.4796799399627357`*^9, 3.479679942095803*^9}, {3.4796799807714157`*^9, 3.4796800378534956`*^9}, { 3.479680100283265*^9, 3.479680102075843*^9}, {3.479680568776926*^9, 3.479680569427862*^9}, 3.4796806190692425`*^9, {3.4796806549408236`*^9, 3.4796807843469005`*^9}, {3.4796809199018188`*^9, 3.479680935624427*^9}, { 3.47968110439711*^9, 3.479681165615137*^9}, {3.479681529608534*^9, 3.479681562495824*^9}, {3.479681639446473*^9, 3.4796816498614492`*^9}, { 3.4796828007763834`*^9, 3.479682847423459*^9}, {3.4796828805010223`*^9, 3.4796829641813483`*^9}, {3.479683074650195*^9, 3.4796831357981215`*^9}, { 3.479683294075713*^9, 3.479683299673763*^9}, {3.479683524477014*^9, 3.4796836172704444`*^9}, {3.4796839560676107`*^9, 3.4796840364531994`*^9}, {3.4796841181306458`*^9, 3.4796841333625484`*^9}, 3.479684385495097*^9, {3.4796844847578297`*^9, 3.4796844914073915`*^9}, { 3.479684532806921*^9, 3.4796846136932297`*^9}, {3.479684665407592*^9, 3.4796846782260237`*^9}, {3.4796848593364477`*^9, 3.479684877202137*^9}, { 3.479721750728732*^9, 3.4797217523811083`*^9}, {3.479721931128134*^9, 3.4797219388692656`*^9}, {3.47972219290455*^9, 3.479722193225011*^9}, { 3.4797227264317245`*^9, 3.47972273843899*^9}, 3.4797235951408668`*^9, 3.480788703085273*^9, 3.4807887373656454`*^9, {3.4807892930232954`*^9, 3.480789323585013*^9}, {3.480789398692465*^9, 3.4807894589096737`*^9}, { 3.480793997996595*^9, 3.4807939997934237`*^9}, {3.4807941639454713`*^9, 3.480794224381424*^9}, {3.4807942634585485`*^9, 3.4807942916609516`*^9}, { 3.4807943356754503`*^9, 3.4807943396753473`*^9}, {3.4807960717091312`*^9, 3.480796142113579*^9}, 3.4807980573614225`*^9, {3.4807986281749344`*^9, 3.4807986306748705`*^9}, {3.480800452971968*^9, 3.4808005012051086`*^9}, { 3.4808006038743553`*^9, 3.4808006043274684`*^9}, {3.480801812171547*^9, 3.4808018626546297`*^9}, {3.4808020322596626`*^9, 3.4808020506810656`*^9}, {3.4808028155521097`*^9, 3.480802818223916*^9}, { 3.480804381355774*^9, 3.4808043902461715`*^9}, 3.480804502258929*^9, { 3.480805704259407*^9, 3.4808057093530264`*^9}, {3.4808060786404476`*^9, 3.4808061148426456`*^9}, 3.480845050414381*^9, {3.480845084336256*^9, 3.480845174523756*^9}, 3.480845387430006*^9, 3.480845458430006*^9, { 3.480845696430006*^9, 3.480845736367506*^9}, {3.480845814695631*^9, 3.480845927898756*^9}, {3.480846059695631*^9, 3.480846103336256*^9}, { 3.480846236008131*^9, 3.480846237851881*^9}, 3.481487055913787*^9, { 3.4822523952339716`*^9, 3.482252405548804*^9}}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "Automatic"}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4796716185671563`*^9, 3.4796716196186686`*^9}, { 3.479671748644198*^9, 3.479671749074817*^9}, {3.4796718023013535`*^9, 3.4796718083700795`*^9}, {3.479671882967345*^9, 3.4796718839287276`*^9}, { 3.4796841519693036`*^9, 3.479684154342716*^9}, 3.4797235969434586`*^9, 3.480861513305006*^9, 3.4814870578165236`*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Brown-von Neumann-Nash dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.48250190792511*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "BNN", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNN", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}]}], "}"}]}], " ", ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Smith dynamic", "Text", InitializationCell->True, CellChangeTimes->{{3.4822829955395164`*^9, 3.4822829963406687`*^9}, 3.482501896756036*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "Smith", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4814870178390384`*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "rho", "]"}], ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Smith", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ "x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}]}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4814870214642515`*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff dynamic", "Text"], Cell["\<\ Here you can specify the vector field sigmatilde that defines the excess \ payoff dynamic. This definition should be stated in terms of the excess \ payoff vector Fhat[x,F], which is defined as Fhat[x,F] = F[x] - Fbar[x,F]. \ When computing rest points, the program assumes that sigmatilde is Lipschitz \ continuous and satisfies acuteness, so that the rest points of the dynamic \ are the Nash equilibria of the underlying game.\ \>", "Text", FontFamily->"Palatino"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "]"}], ")"}], "^", "2"}]}], "}"}]}], ";"}]], "Input", InitializationCell->True], Cell[CellGroupData[{ Cell["The dynamic itself is defined in here.", "Text", FontFamily->"Palatino"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ExcessPayoff", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}]}]}], "}"}]}], " ", ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{3.481486980074736*^9}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Projection dynamic", "Text", InitializationCell->True, CellChangeTimes->{3.4825017929413*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"closetozero", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "}"}], ",", "F_"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"aa", ">", "closetozero"}], "&&", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", "closetozero"}]}], " ", ",", " ", RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], ",", " ", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", " ", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", " ", RowBox[{"bb", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", ">", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", " ", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", ">", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", " ", "closetozero"}], " ", "&&", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", ">", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", RowBox[{"bb", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", " ", "closetozero"}], " ", "&&", " ", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "<", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "&&", " ", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}]}], " ", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", "Greater"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"bb", ">", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}]}], " ", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", "Greater"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"aa", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", ">", "closetozero"}], " ", "&&", " ", RowBox[{"dd", "\[LessEqual]", " ", "closetozero"}]}], " ", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}], ",", "Greater"}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"aa", " ", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"bb", "\[LessEqual]", " ", "closetozero"}], " ", "&&", " ", RowBox[{"cc", " ", "\[LessEqual]", "closetozero"}], " ", "&&", " ", RowBox[{"dd", ">", " ", "closetozero"}]}], " ", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}], ",", "Greater"}], "]"}]}], "]"}]}], "]"}], " ", "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"InUse", "[", RowBox[{"{", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "}"}], "]"}], ":=", " ", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"aa", ">", "closetozero"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"bb", ">", "closetozero"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"cc", ">", "closetozero"}], ",", "1", ",", "0"}], "]"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{"dd", ">", "closetozero"}], ",", "1", ",", "0"}], "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "}"}], ",", "F_"}], "]"}], ":=", " ", RowBox[{"(", " ", RowBox[{ RowBox[{"s", "=", RowBox[{"InUse", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}]}], " ", ";", " ", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"s", "\[GreaterEqual]", "4"}], ",", RowBox[{ RowBox[{"s", "=", "4"}], ";", " ", RowBox[{"Break", "[", "]"}]}], ",", RowBox[{"s", "=", "s"}]}], "]"}], "]"}], ";", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "s"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "s"], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}]}], " ", "\[LessEqual]", RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", RowBox[{"s", "+", "1"}], "\[RightDoubleBracket]"}]}], " ", ",", RowBox[{"s", "=", RowBox[{"s", "+", "1"}]}]}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ";", RowBox[{"Return", "[", "s", "]"}]}], ")"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"projection", "[", RowBox[{ RowBox[{"{", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "}"}], ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"aa", ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[GreaterEqual]", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"bb", ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cc", ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dd", ">", "closetozero"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "\[GreaterEqual]", " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"sstar", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}]], RowBox[{ RowBox[{"\[Pi]one", "[", RowBox[{ RowBox[{"{", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "}"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], ")"}]}], ")"}]}], ",", "0"}], "]"}], "]"}]}], "}"}]}], " ", ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.4750047701316624`*^9, {3.48088828627647*^9, 3.480888297729595*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Pairwise comparison dynamic", "Text", CellChangeTimes->{{3.4825017895730457`*^9, 3.482501791333156*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "PairwiseComparison", "]"}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.4814869479885983`*^9}, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "rho1", "]"}], ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho1", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], ",", "0"}], "]"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PairwiseComparison", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"x", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ "x", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "}"}]}], "}"}], ".", RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}]}]}], " ", ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.481486949560859*^9}, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell["Other (for user-defined dynamics)", "Text", InitializationCell->True, CellChangeTimes->{{3.48250194695055*^9, 3.482501953573628*^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_", ",", "F_"}], "]"}], ":=", "Null"}], ";"}], " ", RowBox[{"(*", RowBox[{"Should", " ", "be", " ", "defined"}], "*)"}]}]], "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Specification of solution trajectories", "Section", 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["trajectoryspcs", FontWeight->"Bold"], " specfies the solution trajectories to be drawn. ex,: data= {{{0, 0, 0, 1}, \ 20, Hue[1]}, {{1, 0, 0, 0}, 20, Hue[.7]}, {{0, 1, 0, 0}, 20, Hue[.3]},{{0, 0, \ 1, 0}, 20, Hue[.15]}}. The first entry in the example {{0, 0, 0, 1}, 20, \ Hue[1]} is for the first solution trajectory. {0, 0, 0, 1} is an initial \ condition for the differential equation. 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. If only \ one solution trajectory is needed, do not foget the outermost brackets, i.e. \ { {{0, 0, 0, 1}, 20, Hue[1]} }. \n", StyleBox["custmdots", FontWeight->"Bold"], " specifies dots to be drawn at rest points, etc. ex.: customdots = {{.01, \ {1/3, 1/3, 1/6, 1/6}, GrayLevel[.2]}, {...........}}. creates a spehere with \ radius .01, centered at {1/3, 1/3, 1/6, 1/6} 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. \nUse ", StyleBox["vpoint", FontWeight->"Bold"], " to change the vantage point from which the diagram is viewed." }], "Text", CellChangeTimes->{ 3.4749400835057583`*^9, 3.4822505104746447`*^9, {3.482250608370412*^9, 3.482250617758912*^9}, {3.482250648988818*^9, 3.4822506499802437`*^9}, { 3.482250703298452*^9, 3.48225071191068*^9}}] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".02", ",", ".02", ",", ".46", ",", ".5"}], "}"}], ",", "400", ",", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"Thickness", "[", ".005", "]"}]}], "}"}]}], "}"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"customdots", "=", RowBox[{"{", RowBox[{"{", RowBox[{".01", ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "4"}]}], "}"}], ",", RowBox[{"GrayLevel", "[", ".2", "]"}]}], "}"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ppoints", "=", "5000"}], " ", ";"}]}], "Input", CellChangeTimes->{ 3.482250517444667*^9, 3.482250678341025*^9, {3.4825022877953787`*^9, 3.482502288946229*^9}, 3.4825888148173122`*^9, {3.48265902533853*^9, 3.482659046007448*^9}, 3.482659083518051*^9, 3.482659368032889*^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.4826588484586678`*^9, 3.482658850697156*^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 ", StyleBox["i", FontWeight->"Bold"], "th component determines whether the face opposite the ", StyleBox["i", FontWeight->"Bold"], "th strategy's vertex is shaded. The entries of the vector determine the \ degree of opacity of the shading, with 0 being completely clear and 1 \ completely opaque. We find that figures look best if either all faces are \ shaded, or all but the front face is shaded. To turn off the shading, set ", StyleBox["simplexcolor = Black ", FontWeight->"Bold"], "and ", StyleBox["simplexfaceshade", FontWeight->"Bold"], " = {0, 0, 0, 0}.\n", StyleBox["vpoint", FontWeight->"Bold"], " determines the point from which the figure is viewed in the initial \ rendering. " }], "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.482659718943458*^9, 3.482659719034974*^9}, { 3.482660197017272*^9, 3.482660202877756*^9}}, FontFamily->"Palatino"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"simplexcolor", "=", "Green"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simplexfaceshade", "=", RowBox[{"{", RowBox[{".4", ",", "0", ",", ".4", ",", ".4"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"vpoint", "=", RowBox[{"{", RowBox[{"1.0", ",", " ", ".800", ",", " ", "0"}], "}"}]}], " ", ";"}]}]}]], "Input", CellChangeTimes->{ 3.482250517444667*^9, 3.482250678341025*^9, 3.482502294802326*^9, { 3.4825325215876784`*^9, 3.482532525903885*^9}, {3.4826062254233475`*^9, 3.482606227526371*^9}, {3.48260626409896*^9, 3.482606279601251*^9}, { 3.48260851934184*^9, 3.4826085240385933`*^9}, {3.482619787677758*^9, 3.482619795258659*^9}, {3.4826198920678635`*^9, 3.482619894751723*^9}, { 3.482620984749062*^9, 3.4826209907677164`*^9}, {3.4826210963194923`*^9, 3.4826210986328187`*^9}, {3.4826212105637674`*^9, 3.4826212167126093`*^9}, {3.4826212699491596`*^9, 3.4826212892969804`*^9}, {3.482658854626974*^9, 3.482658860610776*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"degisken"] }, 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.4825978602337275`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"x3", "[", "t", "]"}], ",", RowBox[{"1", "-", RowBox[{"x1", "[", "t", "]"}], "-", RowBox[{"x2", "[", "t", "]"}], "-", RowBox[{"x3", "[", "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", "]"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x3", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", "F"}], "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x1", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x2", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{"x3", "[", "0", "]"}], "\[Equal]", RowBox[{ RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "\[LeftDoubleBracket]", RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"SolveDelayed", "\[Rule]", " ", "True"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.474941109595769*^9, 3.4749411127503047`*^9}, { 3.481486445706352*^9, 3.481486445726381*^9}, {3.4822503254836407`*^9, 3.48225032791714*^9}, {3.4822506815706687`*^9, 3.4822506886067967`*^9}}, ImageRegion->{{0, 1}, {0, 1}}] }, Closed]], Cell[CellGroupData[{ Cell["Plotting the solutions", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Drawing Triangle and Dots", "Subsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ The cell that belongs to this group is for drawing white area around the \ simplex and for putting dots on the simplex.\ \>", "Text", CellChangeTimes->{{3.480887499760845*^9, 3.480887502073345*^9}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplex", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".02", ",", ".01"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "6"], ",", FractionBox[ SqrtBox["6"], "3"]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "6"], ",", FractionBox[ SqrtBox["6"], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".02", ",", ".01"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".02", ",", ".01"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "6"], ",", FractionBox[ SqrtBox["6"], "3"]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", ".0015"}], ",", RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "6"], "-", ".0015"}], ",", RowBox[{ FractionBox[ SqrtBox["6"], "3"], "-", ".0015"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", ".0015"}], ",", RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "+", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "6"], "+", ".0015"}], ",", RowBox[{ FractionBox[ SqrtBox["6"], "3"], "+", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "+", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}], ",", RowBox[{"0", "-", ".0015"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"simplex", "=", RowBox[{"RegionPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x1", "+", "x2", "+", "x3"}], "<", "1"}], " ", "&&", " ", RowBox[{"x1", ">", "0"}], " ", "&&", " ", RowBox[{"x2", ">", "0"}], " ", "&&", " ", RowBox[{"x3", ">", "0"}]}], " ", ",", " ", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"simplex", "=", RowBox[{"RegionPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}], "<", "1"}], " ", "&&", " ", RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "0", ",", FractionBox[ SqrtBox["6"], "3"]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BuildSimplexPyramid", "[", RowBox[{"simplexcolor_", ",", "simplexfaceshade_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "vertices", ",", "polygons", ",", "polygonsopacity", ",", "edgecolor"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vertices", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "6"], ",", FractionBox[ SqrtBox["6"], "3"]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"polygons", "=", RowBox[{"Subsets", "[", RowBox[{"vertices", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polygonsopacity", "=", RowBox[{"{", "}"}]}], ";", "\[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", ",", "20"}], "]"}], ",", "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[{"BuildSimplexPyramid", "[", RowBox[{"simplexcolor", ",", "simplexfaceshade"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"dots", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Glow", "[", " ", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "]"}], ",", "Black", ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Sphere", "[", " ", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], " ", "]"}]}], "}"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47493976676692*^9, 3.474939769311922*^9}, { 3.4749401305424614`*^9, 3.474940142101364*^9}, {3.4749401805502467`*^9, 3.474940193505393*^9}, {3.4749402963331795`*^9, 3.4749403694637613`*^9}, { 3.4749404181018457`*^9, 3.4749404184701757`*^9}, {3.4749433379700136`*^9, 3.474943361894415*^9}, {3.4750051069736547`*^9, 3.475005108736189*^9}, { 3.482250519382454*^9, 3.482250523017681*^9}, 3.482250589022591*^9, 3.4822507510780687`*^9, {3.482250787522818*^9, 3.482250794589838*^9}, { 3.482589108269275*^9, 3.48258912937963*^9}, {3.4825892556211567`*^9, 3.4825894205282817`*^9}, 3.4825908447321157`*^9, {3.4825908986396303`*^9, 3.482590907472331*^9}, {3.482595257810646*^9, 3.482595288024091*^9}, { 3.4825961762774496`*^9, 3.482596192340547*^9}, {3.482596282510205*^9, 3.482596291633323*^9}, {3.4825966040125027`*^9, 3.482596635127243*^9}, { 3.4825966695767794`*^9, 3.482596702403982*^9}, {3.48259692491143*^9, 3.4825969377194495`*^9}, {3.4825969716259727`*^9, 3.4825969796775503`*^9}, {3.4825970592720013`*^9, 3.482597063067459*^9}, { 3.4825971111265645`*^9, 3.4825971308449183`*^9}, {3.4825972124021916`*^9, 3.482597276153862*^9}, {3.48259758629983*^9, 3.4825975871911116`*^9}, { 3.4825980723587484`*^9, 3.4825980930184555`*^9}, {3.48259813208463*^9, 3.4825981383536444`*^9}, {3.4826005739558687`*^9, 3.482600600453971*^9}, { 3.4826006583872747`*^9, 3.48260066147171*^9}, {3.482606196551832*^9, 3.482606197693474*^9}, {3.4826063775220547`*^9, 3.4826065272273197`*^9}, { 3.4826066309464607`*^9, 3.4826067046925025`*^9}, {3.482606736598381*^9, 3.4826068066591234`*^9}, {3.482606859424997*^9, 3.482606883319355*^9}, { 3.4826069585875854`*^9, 3.482607044170648*^9}, {3.4826070795114655`*^9, 3.482607102103952*^9}, {3.4826071849430685`*^9, 3.482607376568613*^9}, { 3.4826074091254272`*^9, 3.4826076106451983`*^9}, {3.4826076438930063`*^9, 3.4826076523251314`*^9}, {3.4826078041534495`*^9, 3.4826078071076975`*^9}, {3.4826079247368402`*^9, 3.4826079260587406`*^9}, {3.482608448920579*^9, 3.4826084504527826`*^9}, { 3.482608498581989*^9, 3.482608499262968*^9}, {3.482619800866723*^9, 3.482619836437872*^9}, {3.48262104769958*^9, 3.4826210515551243`*^9}, { 3.4826211231680984`*^9, 3.48262113115959*^9}, {3.482621161312948*^9, 3.4826211850570908`*^9}}, ImageRegion->{{0, 1}, {0, 1}}] }, Open ]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff.Eqn's 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[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", "t", "]"}], ",", RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"x3", "[", "t", "]"}]}], "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"G", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "}"}]}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", " ", RowBox[{"Boxed", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4749418923312874`*^9, 3.4749419479412503`*^9}, { 3.4822506905806437`*^9, 3.4822506953800664`*^9}, 3.482250763778325*^9, 3.48225079933007*^9, 3.482250925600129*^9, {3.4825173790637984`*^9, 3.4825174178996415`*^9}}, ImageRegion->{{0, 1}, {0, 1}}] }, 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.4822536326532936`*^9, 3.4822536331339846`*^9}, 3.482621003596163*^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.4822527273615475`*^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["Generating output related to game properties", "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[{"F", "[", "x", "]"}], " ", "\[Equal]", " ", RowBox[{"A", ".", "x"}]}], ",", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Normal form game: \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"strategy", "[", "1", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "2", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "3", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"strategy", "[", "4", "]"}], "}"}]}], "}"}], "]"}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "A", "]"}]}], "}"}], "]"}], "\[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", ",", "t"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Flatten", "[", RowBox[{"F", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], " ", ";"}]}], "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.4822484958677826`*^9, 3.4822485046103535`*^9}}], Cell["Generating output related to dynamic properties", "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", ",", "t"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"dyn", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", "F"}], "]"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], " ", "]"}], ";"}], " "}]}], "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.4814864457664385`*^9, 3.481486445776453*^9}, {3.482250329915013*^9, 3.482250331537346*^9}}], Cell["Generating phase diagram on simplex without contour plot", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"e", ",", "dots", ",", "simplex", ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"{", RowBox[{"0.5", ",", FractionBox[ SqrtBox["3"], "6"], ",", RowBox[{ FractionBox[ SqrtBox["6"], "3"], "+", ".02"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".03"}], ",", ".02", ",", ".02"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "4", "]"}], ",", RowBox[{"{", RowBox[{".52", ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "+", ".03"}], ",", ".015"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", "1.04"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "+", ".04"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", RowBox[{ FractionBox[ SqrtBox["6"], "3"], "+", ".04"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", " ", "vpoint"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"10", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", 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"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "6"], ",", RowBox[{ FractionBox[ SqrtBox["6"], "3"], "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "+", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "/", "2"}], ",", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "6", "]"}], "/", "3"}], "/", "2"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.474941289284148*^9, 3.474941336952692*^9}, { 3.4749423490680428`*^9, 3.4749423803930855`*^9}, {3.474942418307604*^9, 3.4749425039908104`*^9}, {3.4749429870153656`*^9, 3.4749429873858986`*^9}, {3.482596832931672*^9, 3.48259686943416*^9}, { 3.482596912405363*^9, 3.482596915382931*^9}, {3.482597985233468*^9, 3.482597988548235*^9}, {3.4825982415019646`*^9, 3.482598252477747*^9}, { 3.482598433658272*^9, 3.4825984593652363`*^9}, {3.4825984983212523`*^9, 3.48259851112967*^9}, {3.482598541533388*^9, 3.4825985865481167`*^9}, { 3.4825986933216496`*^9, 3.4825988581586733`*^9}, 3.482598890465128*^9, { 3.4825989863029356`*^9, 3.482599049804246*^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 oidVH7Rp//TSsXLLZFsQDQAeF6/8 "]], 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", InitializationCell->True, CellChangeTimes->{3.482659199313431*^9}], Cell[CellGroupData[{ Cell["Preliminary Definitions and Calculations", "Section", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "AA", "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{"AA", "=", TagBox[ RowBox[{ RowBox[{"(", GridBox[{ {"0", RowBox[{"-", FractionBox["1", "2"]}], FractionBox["1", "2"]}, { RowBox[{"-", FractionBox[ SqrtBox["3"], "3"]}], RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}], RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}, { FractionBox[ SqrtBox["6"], "3"], "0", "0"} }], ")"}], " "}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "SimplexToPlane", "]"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "PlaneToSimplex2", "]"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{"Clear", "[", "PlaneToSimplex", "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"AA", ".", RowBox[{"{", RowBox[{ RowBox[{"r", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{"r", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"r", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c_", "]"}], ":=", RowBox[{ RowBox[{"Inverse", "[", "AA", "]"}], ".", RowBox[{"(", RowBox[{"c", "-", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"], ",", "0"}], "}"}]}], ")"}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex", "[", "c_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{"1", "-", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}]}], "}"}]}], " ", ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.474941542908842*^9, 3.482250764651325*^9, 3.4822508011297054`*^9, { 3.4822508321971865`*^9, 3.4822509236880846`*^9}}] }, Closed]], 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}}] }, Closed]] }, Closed]], 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]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Credits", "Subtitle"], Cell[TextData[{ "Dynamo 4S\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.482492832321199*^9}, 3.482492864917959*^9, 3.482502393680276*^9}, FontFamily->"Palatino"] }, Closed]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", WindowToolbars->{}, PrintAction->"PrintToNotebook", InitializationCellEvaluation->True, InitializationCellWarning->False, CellGrouping->Manual, WindowSize->{1116, 563}, WindowMargins->{{135, Automatic}, {Automatic, 72}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, 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]], Cell[ CellGroupData[{ Cell[ StyleData["Inert"], StyleMenuListing -> None, Background -> RGBColor[0.870588, 0.905882, 0.972549]], Cell[ StyleData["Inert", "Printout"], StyleMenuListing -> None, Background -> GrayLevel[1]]}, 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, 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, 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", 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", 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, 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, 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, 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, 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, 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, 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[2857, 94, 18162, 347, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[21022, 443, 2276, 65, 42, "Output", Evaluatable->False, CellTags->"buttoncell"], Cell[25977, 574, 19317, 385, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[45297, 961, 10325, 274, 114, "Output", CellTags->"buttoncell"], Cell[66454, 1500, 15694, 296, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[82151, 1798, 4431, 124, 74, "Output", Evaluatable->False, CellTags->"buttoncell"], Cell[86796, 1933, 14768, 275, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[101567, 2210, 3067, 83, 70, "Output", CellTags->"buttoncell"]}, "payofffunction"->{ Cell[23310, 511, 1046, 17, 24, "Input", CellTags->"payofffunction"]}, "payoffmatrix"->{ Cell[55646, 1239, 3451, 59, 74, "Input", CellTags->"payoffmatrix"]}, "meandynamic"->{ Cell[104658, 2297, 490, 9, 21, "Input", CellTags->"meandynamic"]}, "dynamicslibrary"->{ Cell[111241, 2506, 207, 4, 24, "SmallText", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[111451, 2512, 922, 24, 19, "Input", CellOpen->False, CellTags->"dynamicslibrary"], Cell[112398, 2540, 133, 3, 27, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[112534, 2545, 147, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[112684, 2551, 1232, 32, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[113953, 2588, 128, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[114084, 2593, 142, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[114229, 2599, 2818, 77, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[117050, 2678, 1860, 52, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"dynamicslibrary"], Cell[118947, 2735, 238, 5, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[119319, 2747, 3860, 99, 73, "Input", CellTags->"dynamicslibrary"], Cell[123182, 2848, 2007, 57, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"dynamicslibrary"], Cell[125226, 2910, 271, 5, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[125677, 2923, 11069, 256, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[136749, 3181, 571, 12, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[137357, 3198, 144, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[137504, 3203, 140, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[137647, 3209, 2393, 68, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140077, 3282, 182, 4, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140262, 3288, 186, 5, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140451, 3295, 135, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140589, 3301, 4655, 125, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[145247, 3428, 1286, 37, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[151138, 3605, 131, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[196236, 4705, 199, 5, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[196438, 4712, 136, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[196577, 4718, 4656, 125, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[201236, 4845, 1299, 37, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[202572, 4887, 171, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[202746, 4892, 264, 6, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[203013, 4900, 285, 9, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"]}, "degisken"->{ Cell[206218, 4974, 1280, 36, 82, "Input", CellTags->"degisken"], Cell[209825, 5066, 1191, 26, 85, "Input", CellTags->"degisken"]}, "printingcell"->{ Cell[233352, 5682, 5366, 151, 325, "Input", CellTags->"printingcell"]}, "maintenance"->{ Cell[259898, 6417, 1202, 24, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[261125, 6445, 1203, 24, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[263545, 6499, 1223, 27, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"]} } *) (*CellTagsIndex CellTagsIndex->{ {"buttoncell", 381745, 8951}, {"payofffunction", 382564, 8978}, {"payoffmatrix", 382658, 8981}, {"meandynamic", 382750, 8984}, {"dynamicslibrary", 382844, 8987}, {"degisken", 386097, 9082}, {"printingcell", 386257, 9087}, {"maintenance", 386352, 9090} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 338, 10, 132, "Title"], Cell[CellGroupData[{ Cell[930, 36, 63, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[1018, 41, 234, 5, 30, "Text", Evaluatable->False], Cell[1255, 48, 155, 5, 70, "Input", CellOpen->False, InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1447, 58, 194, 3, 37, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[1666, 65, 158, 3, 37, "Subsection"], Cell[1827, 70, 1005, 20, 43, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2857, 94, 18162, 347, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[21022, 443, 2276, 65, 42, "Output", Evaluatable->False, CellTags->"buttoncell"] }, {2}]], Cell[23310, 511, 1046, 17, 24, "Input", CellTags->"payofffunction"] }, Open ]], Cell[CellGroupData[{ Cell[24393, 533, 366, 6, 37, "Subsection"], Cell[CellGroupData[{ Cell[24784, 543, 341, 5, 27, "Subsubsection"], Cell[25128, 550, 640, 14, 27, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[25793, 568, 159, 2, 26, "SmallText"], Cell[CellGroupData[{ Cell[25977, 574, 19317, 385, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[45297, 961, 10325, 274, 114, "Output", CellTags->"buttoncell"] }, {2}]] }, Open ]], Cell[55646, 1239, 3451, 59, 74, "Input", CellTags->"payoffmatrix"] }, Open ]], Cell[CellGroupData[{ Cell[59134, 1303, 414, 6, 27, "Subsubsection"], Cell[59551, 1311, 3919, 103, 443, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[63519, 1420, 362, 5, 37, "Subsection"], Cell[63884, 1427, 329, 6, 43, "Text"], Cell[64216, 1435, 589, 19, 70, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[64854, 1460, 89, 2, 67, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[64968, 1466, 552, 8, 37, "Subsection"], Cell[65523, 1476, 860, 18, 60, "Text"], Cell[66386, 1496, 43, 0, 26, "SmallText"], Cell[CellGroupData[{ Cell[66454, 1500, 15694, 296, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[82151, 1798, 4431, 124, 74, "Output", Evaluatable->False, CellTags->"buttoncell"] }, {2}]], Cell[CellGroupData[{ Cell[86616, 1927, 155, 2, 26, "SmallText"], Cell[CellGroupData[{ Cell[86796, 1933, 14768, 275, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"buttoncell"], Cell[101567, 2210, 3067, 83, 70, "Output", CellTags->"buttoncell"] }, {2}]] }, Closed]], Cell[104658, 2297, 490, 9, 21, "Input", CellTags->"meandynamic"], Cell[CellGroupData[{ Cell[105173, 2310, 126, 1, 26, "SmallText"], Cell[CellGroupData[{ Cell[105324, 2315, 62, 0, 27, "Text"], Cell[105389, 2317, 229, 4, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[105655, 2326, 253, 3, 24, "Text"], Cell[105911, 2331, 273, 5, 70, "Input"] }, Closed]] }, Closed]], Cell[106211, 2340, 157, 4, 19, "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[106405, 2349, 514, 7, 37, "Subsection"], Cell[CellGroupData[{ Cell[106944, 2360, 89, 1, 26, "SmallText"], Cell[107036, 2363, 283, 6, 70, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[107344, 2373, 68, 1, 70, "Text", InitializationCell->True], Cell[107415, 2376, 448, 13, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[107900, 2394, 56, 1, 70, "Text", InitializationCell->True], Cell[107959, 2397, 348, 10, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[108344, 2412, 77, 1, 70, "Text", InitializationCell->True], Cell[108424, 2415, 1069, 31, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[109542, 2452, 229, 3, 24, "SmallText"], Cell[109774, 2457, 305, 6, 70, "Text"], Cell[110082, 2465, 1122, 36, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[111241, 2506, 207, 4, 24, "SmallText", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[111451, 2512, 922, 24, 19, "Input", CellOpen->False, CellTags->"dynamicslibrary"], Cell[CellGroupData[{ Cell[112398, 2540, 133, 3, 27, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[112534, 2545, 147, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[112684, 2551, 1232, 32, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[113953, 2588, 128, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[114084, 2593, 142, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[114229, 2599, 2818, 77, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[117050, 2678, 1860, 52, 70, "Input", Evaluatable->False, CellOpen->False, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[118947, 2735, 238, 5, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[119188, 2742, 128, 3, 24, "Input"], Cell[119319, 2747, 3860, 99, 73, "Input", CellTags->"dynamicslibrary"], Cell[123182, 2848, 2007, 57, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[125226, 2910, 271, 5, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[125500, 2917, 174, 4, 70, "Input"], Cell[125677, 2923, 11069, 256, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[136749, 3181, 571, 12, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[137357, 3198, 144, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[137504, 3203, 140, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[137647, 3209, 2393, 68, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[140077, 3282, 182, 4, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140262, 3288, 186, 5, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140451, 3295, 135, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[140589, 3301, 4655, 125, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[145247, 3428, 1286, 37, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[146570, 3470, 37, 0, 24, "Text"], Cell[146610, 3472, 480, 8, 70, "Text"], Cell[147093, 3482, 1358, 41, 70, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[148476, 3527, 79, 1, 70, "Text"], Cell[148558, 3530, 2531, 69, 70, "Input", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[151138, 3605, 131, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[151272, 3610, 44813, 1087, 70, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[196122, 4702, 111, 1, 24, "Text"], Cell[196236, 4705, 199, 5, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[196438, 4712, 136, 4, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[196577, 4718, 4656, 125, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[201236, 4845, 1299, 37, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]], Cell[CellGroupData[{ Cell[202572, 4887, 171, 3, 24, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[202746, 4892, 264, 6, 70, "Text", InitializationCell->True, CellTags->"dynamicslibrary"], Cell[203013, 4900, 285, 9, 70, "Input", InitializationCell->True, CellTags->"dynamicslibrary"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[203371, 4917, 89, 1, 67, "Section"], Cell[CellGroupData[{ Cell[203485, 4922, 605, 8, 37, "Subsection"], Cell[CellGroupData[{ Cell[204115, 4934, 76, 0, 26, "SmallText"], Cell[204194, 4936, 2009, 35, 70, "Text"] }, Closed]], Cell[206218, 4974, 1280, 36, 82, "Input", CellTags->"degisken"] }, Open ]], Cell[CellGroupData[{ Cell[207535, 5015, 656, 9, 37, "Subsection"], Cell[208194, 5026, 1628, 38, 91, "Text"], Cell[209825, 5066, 1191, 26, 85, "Input", CellTags->"degisken"] }, Closed]] }, Open ]] }, Open ]], Cell[211055, 5097, 108, 2, 40, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[211188, 5103, 52, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[211265, 5108, 84, 1, 67, "Section"], Cell[211352, 5111, 155, 4, 70, "Input"], Cell[211510, 5117, 443, 13, 70, "Input"], Cell[211956, 5132, 2972, 71, 70, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[214965, 5208, 73, 1, 37, "Section"], Cell[CellGroupData[{ Cell[215063, 5213, 79, 1, 37, "Subsection"], Cell[215145, 5216, 242, 5, 27, "Text"], Cell[215390, 5223, 15637, 391, 582, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[231064, 5619, 115, 2, 37, "Subsection"], Cell[231182, 5623, 1733, 43, 70, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[232964, 5672, 49, 0, 37, "Section"], Cell[233016, 5674, 333, 6, 24, "Input"], Cell[233352, 5682, 5366, 151, 325, "Input", CellTags->"printingcell"], Cell[238721, 5835, 715, 17, 40, "Input"], Cell[239439, 5854, 60, 0, 27, "Text"], Cell[239502, 5856, 4054, 87, 145, "Input"], Cell[243559, 5945, 63, 0, 27, "Text"], Cell[243625, 5947, 2219, 58, 115, "Input"], Cell[245847, 6007, 72, 0, 27, "Text"], Cell[245922, 6009, 4850, 130, 247, "Input"], Cell[250775, 6141, 2855, 74, 160, "Input"], Cell[253633, 6217, 2764, 81, 175, "Input"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[256458, 6305, 128, 2, 46, "Subtitle", InitializationCell->True], Cell[CellGroupData[{ Cell[256611, 6311, 86, 1, 67, "Section", InitializationCell->True], Cell[256700, 6314, 3038, 93, 287, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[259775, 6412, 98, 1, 37, "Section"], Cell[CellGroupData[{ Cell[259898, 6417, 1202, 24, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[CellGroupData[{ Cell[261125, 6445, 1203, 24, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[262331, 6471, 1165, 22, 70, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[263545, 6499, 1223, 27, 70, "Input", Evaluatable->True, CellOpen->True, CellTags->"maintenance"], Cell[264771, 6528, 1112, 21, 70, "Input"], Cell[265886, 6551, 1113, 21, 70, "Input"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[267060, 6579, 27, 0, 46, "Subtitle"], Cell[267090, 6581, 1391, 29, 331, "Text"] }, Closed]] } ] *) (* End of internal cache information *)