(* 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[ 1410378, 44926] NotebookOptionsPosition[ 1230230, 40645] NotebookOutlinePosition[ 1380580, 43950] CellTagsIndexPosition[ 1379896, 43928] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Dynamo 3S (v. 1.1)\nDiagrams for Evolutionary Game \ Dynamics", FontFamily->"Palatino"]], "Title", CellChangeTimes->{{3.511176603344358*^9, 3.511176655163392*^9}, 3.511176733945574*^9, {3.523732762536275*^9, 3.523732762664701*^9}}, TextAlignment->Center, FontSize->32, FontColor->GrayLevel[1], Background->RGBColor[0.4088197146562905, 0.7171587701228351, 1.], CellTags->"opengroup"], Cell[CellGroupData[{ Cell["\<\ When you have finished specifying parameters, click on the rightmost vertical \ bar and press Enter (or Shift-Enter) to run the program.\ \>", "Text", Evaluatable->False, FontFamily->"Palatino", FontSize->14], Cell[BoxData[{ RowBox[{ RowBox[{"avoiderroronremove", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Remove", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{ 3.4883772540497675`*^9, {3.4883773166698103`*^9, 3.4883773200546775`*^9}, { 3.4883775117534704`*^9, 3.488377528692562*^9}, 3.4883776090481634`*^9, { 3.488377972862069*^9, 3.4883780643035555`*^9}, {3.488378297794034*^9, 3.488378299646698*^9}, 3.488378823900538*^9, 3.488385795853469*^9, { 3.4883859813501997`*^9, 3.4883860020099072`*^9}, {3.4883860528430014`*^9, 3.4883860905972896`*^9}, 3.488416188408044*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", " ", "\"\\"", ",", " ", "All", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{ 3.4883772540497675`*^9, {3.4883773166698103`*^9, 3.4883773200546775`*^9}, { 3.4883775117534704`*^9, 3.488377528692562*^9}, 3.4883776090481634`*^9, { 3.488377972862069*^9, 3.4883780643035555`*^9}, {3.488378297794034*^9, 3.488378299646698*^9}, 3.488378823900538*^9, 3.488385795853469*^9, { 3.4883859813501997`*^9, 3.4883860020099072`*^9}, {3.4883860528430014`*^9, 3.4883860905972896`*^9}, 3.488416188408044*^9}] }, Closed]], Cell[CellGroupData[{ Cell["User-defined Parameters", "Subtitle", CellDingbat->None, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Choice of game", "Section"]], "Section", Evaluatable->False, CellChangeTimes->{{3.4749174046079693`*^9, 3.4749174059098415`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["Functional form", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, 3.51006963366746*^9}, CellTags->"corecell"], Cell[TextData[{ "Select the Functional form of the game. To choose a nonlinear game, you \ must define ", StyleBox["F[x_]", FontWeight->"Bold"], " accordingly. In doing so, the components of x should be entered as \ x[[1]], x[[2]], and x[[3]]. To help with the structure of the definition \ general presets are built in the buttons below. By hitting the congestion or \ quadratic buttons the structure appears after \"F[x_]:=\" below. The default \ value of F[x_] is A.x, the payoff vector field for the normal form game with \ payoff matrix A." }], "Text", Evaluatable->False, CellChangeTimes->{{3.481416137684971*^9, 3.481416148370336*^9}, { 3.481416185764106*^9, 3.481416344882907*^9}, 3.481416391519968*^9, { 3.481815812928955*^9, 3.481815825497027*^9}, {3.481815888277301*^9, 3.4818160139780493`*^9}, {3.4818888098052845`*^9, 3.481888810716595*^9}, 3.481894204638324*^9, 3.488628426477378*^9, {3.5130191827495327`*^9, 3.513019183580728*^9}, 3.5212850123925147`*^9}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->"corecell"], 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[{"(*", " ", RowBox[{"alternative", " ", "formats", " ", "for", " ", "the", " ", RowBox[{"text", ":", "\[IndentingNewLine]", RowBox[{ "\"\<- {\!\(\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \ \(\(Dimensions[\[CapitalPhi][1]]\)[\([1]\)]\)]\)cost[\[CapitalPhi][1][[j]]][u[\ \[CapitalPhi][1][[j]],x]],\!\(\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \ \(\(Dimensions[\[CapitalPhi][2]]\)[\([1]\)]\)]\)cost[\[CapitalPhi][2][[j]]][u[\ \[CapitalPhi][2][[j]],x]],\!\(\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \ \(\(Dimensions[\[CapitalPhi][3]]\)[\([1]\)]\)]\)cost[\[CapitalPhi][3][[j]]][u[\ \[CapitalPhi][3][[j]],x]]}\>\"", "\[IndentingNewLine]", "\"\<-{Sum[cost[\[CapitalPhi][1][[j]]][u[\[CapitalPhi][1][[j]], \ x]], {j,Dimensions[\[CapitalPhi][1]][[1]]}], \ Sum[cost[\[CapitalPhi][2][[j]]][u[\[CapitalPhi][2][[j]], x]], {j,Dimensions[\ \[CapitalPhi][2]][[1]]}], \n \ Sum[cost[\[CapitalPhi][3][[j]]][u[\[CapitalPhi][3][[j]], x]], {j,Dimensions[\ \[CapitalPhi][3]][[1]]}]};\>\""}]}]}], "\[IndentingNewLine]", "*)"}], "\[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", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"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", "[", "namesl", "]"}], "[", 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", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", "text", "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"120", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{ 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.5079816438177133`*^9, 3.507981644418577*^9}, { 3.5079816830090675`*^9, 3.507981699893346*^9}, {3.5079830585369797`*^9, 3.5079830589876275`*^9}, {3.507983372878981*^9, 3.507983373329629*^9}, { 3.5079854894925766`*^9, 3.5079854921514*^9}, {3.507985524718229*^9, 3.507985682595245*^9}}, CellTags->{"buttoncell", "corecell"}], 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], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Congestion\"\>"} }, 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_]:=- {\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \ \(\(Dimensions[\[CapitalPhi][1]]\)\[LeftDoubleBracket]1\[RightDoubleBracket]\)\ ]\)cost[\[CapitalPhi][1]\[LeftDoubleBracket]i\[RightDoubleBracket]][u[\ \[CapitalPhi][1]\[LeftDoubleBracket]i\[RightDoubleBracket],x]],\!\(\*\ UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \(\(Dimensions[\[CapitalPhi][2]]\)\ \[LeftDoubleBracket]1\[RightDoubleBracket]\)]\)cost[\[CapitalPhi][2]\ \[LeftDoubleBracket]i\[RightDoubleBracket]][u[\[CapitalPhi][2]\ \[LeftDoubleBracket]i\[RightDoubleBracket],x]],\!\(\*UnderoverscriptBox[\(\ \[Sum]\), \(i = 1\), \(\(Dimensions[\[CapitalPhi][3]]\)\[LeftDoubleBracket]1\ \[RightDoubleBracket]\)]\)cost[\[CapitalPhi][3]\[LeftDoubleBracket]i\ \[RightDoubleBracket]][u[\[CapitalPhi][3]\[LeftDoubleBracket]i\ \[RightDoubleBracket],x]]};"}], 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.481894600066922*^9}, CellTags->"corecell"] }, Closed]], 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}}, CellTags->{"payofffunction", "corecell"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Payoff-related definitions", FontSlant->"Italic"]], "SmallText", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"Fbar", ",", "Fhat", ",", "Fhatplus", ",", "Phi", ",", "PhiF"}], "]"}], " ", ";"}]], "Input", CellChangeTimes->{{3.49238320503125*^9, 3.492383252640625*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["The population's average payoff", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fbar", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "dim"], RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4928186346660337`*^9, {3.5079830590026493`*^9, 3.5079830590176706`*^9}, { 3.5079833733596725`*^9, 3.507983373374694*^9}, {3.5079857066448264`*^9, 3.507985711947451*^9}, {3.5130192630850496`*^9, 3.5130192769249506`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff vector", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"F", "[", "x", "]"}], " ", "-", " ", RowBox[{"Fbar", "[", RowBox[{"x", ",", "F"}], "]"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.5130192670407376`*^9, 3.513019275382733*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Vector of positive parts of excess payoffs", "Subsubsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4928186554258847`*^9, 3.4928186955636*^9}, 3.5079830590326924`*^9, 3.5079833734047375`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Projected payoff vector", "Subsubsection", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Phi", "[", "dim_", "]"}], ":=", RowBox[{ RowBox[{"Identity", "[", "dim", "]"}], "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"1", "/", "dim"}], ",", RowBox[{"{", RowBox[{"dim", ",", "dim"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PhiF", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"Phi", "[", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ".", RowBox[{"F", "[", "x", "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.4923823666875*^9, 3.49238242565625*^9}, { 3.492382666359375*^9, 3.492382796125*^9}, {3.49238283375*^9, 3.492382916234375*^9}, {3.492382972734375*^9, 3.492383074765625*^9}, { 3.492383106296875*^9, 3.49238313746875*^9}, {3.5079817044599123`*^9, 3.5079817047603445`*^9}, {3.515956822883526*^9, 3.5159568282968354`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Specification of payoff parameters", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.481816053845376*^9, 3.4818160546865854`*^9}, {3.4818162696456814`*^9, 3.4818162731507215`*^9}, {3.481891966159549*^9, 3.4818919684127893`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["Specification of Normal Form Game", "Subsubsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.481816053845376*^9, 3.4818160546865854`*^9}, {3.4818162696456814`*^9, 3.4818162731507215`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[TextData[{ "Choose a normal form game here by selecting the payoff matrix below. To \ use one of the built-in payoff matrices, click the corresponding button and \ the expression below where \"", StyleBox["A", FontWeight->"Bold"], " = .\" appears will be updated." }], "Text", Evaluatable->False, CellChangeTimes->{{3.4814160902467585`*^9, 3.481416118357179*^9}, 3.4818153754699197`*^9, {3.4818154184817677`*^9, 3.481815456005725*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Some standard normal form games", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "mats", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowm", ",", "name", ",", "mat", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\<123 Coordination\>\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"matsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "1"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "2", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"-", "2"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", RowBox[{"-", "2"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "1", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "2", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "3"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "6", ",", " ", RowBox[{"-", "4"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "3", ",", " ", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "8"}], "}"}]}], "}"}]}], "\n", " ", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"Join", "[", RowBox[{"rowm", ",", RowBox[{"{", RowBox[{"matsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"Join", "[", RowBox[{"mats", ",", RowBox[{"{", "rowm", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "mat", "]"}], ",", "name"}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", RowBox[{"MatrixForm", "[", "mat", "]"}], "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"150", ",", "80"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"mat", "->", RowBox[{ RowBox[{"mats", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"FromCharacterCode", "[", "10", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "7", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, {3.481736647042942*^9, 3.481736703093539*^9}, 3.4817375426908207`*^9, {3.4818122976768284`*^9, 3.481812298417894*^9}, {3.481812350362587*^9, 3.481812357372667*^9}, { 3.4818128664446764`*^9, 3.481812875197262*^9}, {3.4818129301963468`*^9, 3.4818129355740795`*^9}, {3.4818143148348017`*^9, 3.4818143212440176`*^9}, {3.481814414818571*^9, 3.481814415068931*^9}, { 3.5079817312284036`*^9, 3.507981745108362*^9}, {3.511279652772031*^9, 3.511279681471314*^9}, {3.5112797625811377`*^9, 3.511279780249383*^9}, { 3.51163506115935*^9, 3.5116350617467566`*^9}, {3.51163545305356*^9, 3.5116354776057544`*^9}, {3.511635539303258*^9, 3.51163555734111*^9}, { 3.511635802744038*^9, 3.5116358073428373`*^9}}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "1"}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "2"}, {"2", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Good RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "2"}], "1"}, {"1", "0", RowBox[{"-", "2"}]}, { RowBox[{"-", "2"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Bad RPS\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "2", "0"}, {"0", "0", "3"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"123 Coordination\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "6", RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "0", "5"}, { RowBox[{"-", "1"}], "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Zeeman\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6", "0", "0"}, {"5", "7", "5"}, {"0", "5", "8"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"Young\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}], SequenceForm[ TableForm[{{ Style[ Button[ Column[{ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}], "RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {1, 0, -1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}], "Good RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 2}, {2, 0, -1}, {-1, 2, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}], "Bad RPS"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -2, 1}, {1, 0, -2}, {-2, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}], "Coordination"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}], "123 Coordination"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{1, 0, 0}, {0, 2, 0}, {0, 0, 3}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}], "Zeeman"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}], "Young"}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{6, 0, 0}, {5, 7, 5}, {0, 5, 8}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}}, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}], "\n"], Editable->False]], "Print", CellChangeTimes->{3.5116355588174267`*^9, 3.511635811520796*^9}, CellTags->{"buttoncell", "corecell", "opengroup"}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Zeeman's normal form games", FontSlant->"Italic"]], "SmallText", CellTags->"corecell"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "mats", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "rowm", ",", "name", ",", "mat", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Subscript", "[", RowBox[{"5", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"6", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"10", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"4", ",", "1"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"6", ",", "2"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "2"}], "]"}], ",", RowBox[{"Subscript", "[", RowBox[{"9", ",", "1"}], "]"}], ",", "2", ",", "3", ",", RowBox[{"Subscript", "[", RowBox[{"5", ",", "2"}], "]"}], ",", "8", ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"4", ",", "2"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"6", ",", "3"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"6", ",", "4"}], "]"}]}], ",", RowBox[{"Subscript", "[", RowBox[{"7", ",", "3"}], "]"}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"9", ",", "2"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Subscript", "[", RowBox[{"10", ",", "2"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"matsl", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "6", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]}], "\n", " ", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"Join", "[", RowBox[{"rowm", ",", RowBox[{"{", RowBox[{"matsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mats", "=", RowBox[{"Join", "[", RowBox[{"mats", ",", RowBox[{"{", "rowm", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowm", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", "mat", "]"}], ",", "name"}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", RowBox[{"MatrixForm", "[", "mat", "]"}], "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"105", ",", "80"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{ "ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], " ", "/.", RowBox[{"mat", "->", RowBox[{ RowBox[{"mats", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "4", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, { 3.4816734185428734`*^9, 3.4816734847480717`*^9}, {3.4816736147750416`*^9, 3.4816736357251663`*^9}, {3.481674519866499*^9, 3.4816745531944227`*^9}, { 3.481674620030528*^9, 3.4816746292437763`*^9}, {3.4817353631917872`*^9, 3.481735408496933*^9}, {3.4817362068299475`*^9, 3.481736221180582*^9}, { 3.481736253597195*^9, 3.481736256992077*^9}, {3.481736717574362*^9, 3.4817367183755136`*^9}, 3.4817375342787247`*^9, {3.4818128766693788`*^9, 3.481812887645161*^9}, {3.4818129361248713`*^9, 3.48181294124223*^9}, { 3.507981769368246*^9, 3.5079817847052994`*^9}}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ InterpretationBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0", "2"}, {"2", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"1"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "3", RowBox[{"-", "1"}]}, {"1", "0", "1"}, {"3", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["5", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, { RowBox[{"-", "1"}], "0", "3"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["6", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "6", RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "0", "5"}, { RowBox[{"-", "1"}], "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, {"1", "0", "1"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["10", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "3", RowBox[{"-", "1"}]}, {"3", "0", RowBox[{"-", "1"}]}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["4", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "3"}, { RowBox[{"-", "1"}], "0", "5"}, {"1", "3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["6", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "3"}, { RowBox[{"-", "1"}], "0", "3"}, {"1", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["9", "1"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"2"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "1"}, {"1", "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"3"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, {"1", "0", "1"}, {"1", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["5", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"8"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "1"}, { RowBox[{"-", "1"}], "0", "1"}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["4", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["6", "3"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{"-", "1"}]}, {"1", "0", RowBox[{"-", "3"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "3"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["6", "4"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], "0", "1"}, { RowBox[{"-", "1"}], "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { SubscriptBox["7", "3"]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", RowBox[{"-", "3"}]}, {"1", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["9", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "3"}], RowBox[{"-", "1"}]}, { RowBox[{"-", "3"}], "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { RowBox[{"-", SubscriptBox["10", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], "\<\"\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], TableForm[{{ Style[ Button[ Column[{ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}], 1}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 2, -1}, {-1, 0, 2}, {2, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}], Subscript[5, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {1, 0, 1}, {3, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}], Subscript[6, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}], Subscript[7, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 6, -4}, {-3, 0, 5}, {-1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}], Subscript[10, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}], Subscript[4, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 3, -1}, {3, 0, -1}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}], Subscript[6, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 3}, {-1, 0, 5}, {1, 3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}], Subscript[7, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}], Subscript[9, 1]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 3}, {-1, 0, 3}, {1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}], 2}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}], 3}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, 1}, {1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}], Subscript[5, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {1, 0, 1}, {1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}], 8}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}], -Subscript[4, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, 1}, {-1, 0, 1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}], - Subscript[6, 3]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}], - Subscript[6, 4]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -1, -1}, {1, 0, -3}, {-1, -3, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}, { Style[ Button[ Column[{ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}], Subscript[7, 3]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -1}, {-3, 0, 1}, {-1, 1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}], -Subscript[9, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, 1, -3}, {1, 0, -1}, {-3, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"], Style[ Button[ Column[{ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}], - Subscript[10, 2]}, Alignment -> {Center}], NotebookFind[ SelectedNotebook[], "payoffmatrix", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"A=", ToBoxes[ MatrixForm[{{0, -3, -1}, {-3, 0, -1}, {-1, -1, 0}}]], ";"}], AutoScroll -> False]; Null], ControlsRendering -> "Generic"]}}, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]], "Output", CellChangeTimes->{{3.48167343678911*^9, 3.4816734855392094`*^9}, { 3.481673630307376*^9, 3.481673636616448*^9}, {3.481674530672037*^9, 3.481674553795286*^9}, {3.4816746240362883`*^9, 3.4816746299648128`*^9}, 3.481735383921595*^9, {3.4817362130188465`*^9, 3.481736222071864*^9}, 3.4817362579835024`*^9, 3.481736293154075*^9, 3.4817367219005823`*^9, 3.4817375356306686`*^9, 3.481813607606393*^9}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "2", "0"}, {"0", "0", "3"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]], "Input", CellChangeTimes->{{3.4807914455931883`*^9, 3.4807914669051423`*^9}, { 3.480791789209391*^9, 3.4807917977404227`*^9}, 3.4807940301207724`*^9, 3.480859076992506*^9, 3.480864043008131*^9, {3.480865480008131*^9, 3.480865513508131*^9}, 3.480944241448495*^9, 3.4812465820055056`*^9, 3.4813021571797943`*^9, {3.4813023589584618`*^9, 3.481302362677164*^9}, { 3.4813026530171976`*^9, 3.481302666579524*^9}, {3.481302702610313*^9, 3.4813027138757935`*^9}, {3.4813027893592024`*^9, 3.4813028076714683`*^9}, {3.4813029176388106`*^9, 3.4813029292324123`*^9}, 3.4813030583401346`*^9, 3.4813061973624544`*^9, 3.4813062596272826`*^9, 3.4813064264376473`*^9, 3.4813065417486715`*^9, 3.481306624575736*^9, 3.481306679575032*^9, 3.481306727090049*^9, 3.4813070602576594`*^9, { 3.4813072989577293`*^9, 3.481307323738662*^9}, 3.4813095813972635`*^9, 3.4813101426869535`*^9, 3.4813101761865253`*^9, 3.4813102138891673`*^9, 3.4813103080598373`*^9, {3.4813104098866587`*^9, 3.481310424652095*^9}, 3.481311817743638*^9, {3.481311989928934*^9, 3.48131200235065*^9}, { 3.481312255316162*^9, 3.481312269315983*^9}, 3.4813123243152785`*^9, 3.481312355189883*^9, {3.4813125150628366`*^9, 3.4813125343907146`*^9}, { 3.481312567265294*^9, 3.4813125711402445`*^9}, 3.4813133889891505`*^9, 3.481313435316683*^9, 3.481314323086569*^9, 3.4813143631016817`*^9, 3.4813144088198466`*^9, {3.481314571833385*^9, 3.481314593676855*^9}, 3.481315789760878*^9, {3.4813158232458963`*^9, 3.481315856324656*^9}, 3.481315926279112*^9, 3.481316189044737*^9, {3.481316559946708*^9, 3.481316587571355*^9}, {3.4813166670234623`*^9, 3.48131666724221*^9}, { 3.4813166977261944`*^9, 3.4813166979449415`*^9}, 3.481316900504849*^9, 3.481316999191086*^9, 3.4813186422950535`*^9, 3.481319400613472*^9, { 3.4813195747049937`*^9, 3.4813195783455725`*^9}, 3.481329551359378*^9, 3.481334621489485*^9, 3.481336034025562*^9, 3.4813365135662985`*^9, 3.4814055733736906`*^9, {3.481405797455905*^9, 3.4814058068494124`*^9}, { 3.4814068175927896`*^9, 3.4814068317130938`*^9}, 3.4814158153815217`*^9, 3.4814195977302723`*^9, {3.481472827843325*^9, 3.481472855684579*^9}, { 3.481671080691208*^9, 3.481671084216277*^9}, {3.4816719070895104`*^9, 3.4816719104743776`*^9}, {3.4816735327771344`*^9, 3.481673534759986*^9}, 3.481736297109763*^9, 3.4817372901877394`*^9, {3.4818136137151775`*^9, 3.4818136167695694`*^9}, 3.4818157647296476`*^9, 3.4818182756401596`*^9, 3.4818967232661815`*^9, 3.4818967578459044`*^9, 3.4919286370626774`*^9, 3.4922604120748067`*^9, 3.4922813760617304`*^9, 3.492282420353348*^9, 3.492287500003594*^9, 3.4922920232027025`*^9, 3.4925108522131824`*^9, 3.4925114253773518`*^9, 3.4925191338515935`*^9, {3.492520443314509*^9, 3.4925204456178207`*^9}, 3.492600688454246*^9, 3.492636908581485*^9, 3.4928275145546865`*^9, 3.492828151510584*^9, 3.492828403753291*^9, 3.4928285694315248`*^9, 3.492892215656488*^9, 3.4932158663051214`*^9, { 3.493268713208069*^9, 3.4932687373628016`*^9}, 3.4932693842029123`*^9, 3.4932706727457457`*^9, 3.493413892173255*^9, 3.4934181901985793`*^9, 3.49341954831145*^9, 3.4934259528607397`*^9, 3.4934262524515295`*^9, 3.493474128937461*^9, {3.5074006517377553`*^9, 3.5074006578156977`*^9}, { 3.5074007492273192`*^9, 3.5074007633497143`*^9}, 3.508013272854101*^9, 3.5087864724279823`*^9, {3.5087962491583247`*^9, 3.5087962632986574`*^9}, { 3.508796964306484*^9, 3.5087969658487015`*^9}, 3.50919783937002*^9, 3.510066695551895*^9, {3.510066933151305*^9, 3.510066943869555*^9}, 3.510067020893757*^9, 3.5100696642033453`*^9, 3.5100697601558037`*^9, 3.510667786049495*^9, 3.510924572285383*^9, 3.510925057403319*^9, 3.511039225676178*^9, {3.5110956805166407`*^9, 3.511095685479405*^9}, 3.511175763490273*^9, 3.511279486461564*^9, 3.511280192199608*^9, 3.511280520312344*^9, 3.5130120070714145`*^9, {3.5130267978481426`*^9, 3.5130268172059774`*^9}, 3.5159558751713195`*^9, 3.5159559852876177`*^9, 3.5159570056509795`*^9, 3.515958865769372*^9, 3.515959366763027*^9, 3.515959551455591*^9, 3.5160382237423887`*^9, 3.516387128016509*^9, 3.519382385307869*^9, 3.519461216169551*^9}, CellTags->{"payoffmatrix", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "==", RowBox[{"A", ".", "x"}]}], ",", RowBox[{"A", "=", RowBox[{"A", "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "A", "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"dim", ",", "dim"}], "}"}]}], "]"}]}]}]}], "]"}], ";"}]], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{ 3.508788030659297*^9, {3.50878807825774*^9, 3.508788124153735*^9}, { 3.508788193523757*^9, 3.5087882581114244`*^9}, 3.5087883250576887`*^9, { 3.5087883998151846`*^9, 3.508788416258829*^9}, {3.5087887248525653`*^9, 3.508788800831818*^9}, {3.5087889592596264`*^9, 3.508788983664719*^9}}, CellTags->"corecell"] }, Open ]], Cell[CellGroupData[{ Cell["Specification of nonlinear game", "Subsubsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, 3.510068844399316*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definition of Quadratic Game", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}, { 3.4818163391456175`*^9, 3.4818163441127596`*^9}, {3.4818163908499646`*^9, 3.481816392382168*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",", "\[IndentingNewLine]", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"L", "=", "A"}], ";"}], "\n", RowBox[{ RowBox[{"b", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]}], "Input", CellChangeTimes->{{3.481816422695757*^9, 3.481816579310958*^9}, { 3.4818170340648623`*^9, 3.4818170366686063`*^9}, 3.4818170885031404`*^9, { 3.4818933148288403`*^9, 3.4818933381223345`*^9}, {3.4818942896605797`*^9, 3.48189429182369*^9}, {3.4818944159922357`*^9, 3.481894441739258*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definition of Congestion Game", FontSlant->"Italic"]], "SmallText", CellChangeTimes->{{3.481815336003169*^9, 3.48181536170012*^9}, { 3.4818163391456175`*^9, 3.4818163441127596`*^9}}, CellTags->"corecell"], Cell["\<\ Cost functions for facilities as functions of utilization levels.\ \>", "Text", FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "1", "]"}], "[", "u_", "]"}], " ", ":=", " ", RowBox[{"4", " ", "+", " ", RowBox[{"20", " ", "u"}]}]}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "2", "]"}], "[", "u_", "]"}], " ", ":=", " ", RowBox[{"2", " ", "+", " ", RowBox[{"30", " ", RowBox[{"u", "^", "2"}]}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "3", "]"}], "[", "u_", "]"}], " ", ":=", " ", RowBox[{"2", " ", "+", " ", RowBox[{"30", " ", RowBox[{"u", "^", "2"}]}]}]}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "4", "]"}], "[", "u_", "]"}], " ", ":=", " ", RowBox[{"4", " ", "+", " ", RowBox[{"20", " ", "u"}]}]}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "5", "]"}], "[", "u_", "]"}], " ", ":=", " ", RowBox[{"1", " ", "+", " ", RowBox[{"20", " ", "u"}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "6", "]"}], "[", "u_", "]"}], " ", ":=", " ", "0"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cost", "[", "7", "]"}], "[", "u_", "]"}], " ", ":=", " ", "0"}], " ", ";"}]}], "Input", CellTags->"corecell"], Cell["Which strategies use which facilities.", "Text", FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "\[CapitalPhi]", "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "=", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "=", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "\[Phi]_", "]"}], ":=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"\[CapitalPhi]", "[", "j", "]"}], ",", "\[Phi]"}], "]"}], ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], " ", ",", "Null"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"\[Phi]_", ",", "x_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"\[Rho]", "[", "\[Phi]", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{"\[Rho]", "[", "\[Phi]", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}]}]}], " ", ";"}]}], "Input",\ CellChangeTimes->{{3.4928187528159246`*^9, 3.4928187532565584`*^9}, { 3.507985720134223*^9, 3.507985733818901*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Names of strategies", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, { 3.4818185096266155`*^9, 3.48181851273108*^9}, 3.510069635539062*^9}, CellTags->{"corecell", "opengroup"}], Cell["\<\ Give the strategies one-character names to be printed on the phase diagram. \ Vertices are ordered counterclockwise.\ \>", "Text", FontFamily->"Palatino", CellTags->{"corecell", "opengroup"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"strategy", "[", "1", "]"}], "=", "\"\\""}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strategy", "[", "2", "]"}], "=", "\"\\""}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"strategy", "[", "3", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.474919131005475*^9, 3.474919134730832*^9}, 3.5194218593864717`*^9, {3.5194612363537054`*^9, 3.519461240877964*^9}}, CellTags->{"corecell", "opengroup"}] }, Open ]], Cell[CellGroupData[{ Cell["Computation of Nash equilibria", "Subsection", CellChangeTimes->{ 3.4816700476457615`*^9, {3.4818116260860605`*^9, 3.481811629100395*^9}, { 3.4818152985993853`*^9, 3.481815299991387*^9}, {3.4818160457537403`*^9, 3.48181605160215*^9}, {3.4818162757043934`*^9, 3.481816305417118*^9}, { 3.4818185317784686`*^9, 3.481818537646907*^9}, 3.510069637051261*^9}, CellTags->"corecell"], Cell[TextData[{ "If the game you consider has a nontrivial component of Nash equilibria, the \ program will find a random subset of this component. If you'd prefer not to \ compute the Nash equilibria, set ", StyleBox["findnashequilibria", FontWeight->"Bold"], " to 0. Similarly, you may skip finding the regular ESSs of the game by \ setting ", StyleBox["findESSs ", FontWeight->"Bold"], "to 0." }], "Text", CellChangeTimes->{ 3.4932159353741026`*^9, {3.510663392352625*^9, 3.5106634820697594`*^9}, 3.5106651666120124`*^9, {3.5109251561115*^9, 3.510925156502658*^9}, { 3.511176242525011*^9, 3.5111762733979197`*^9}, {3.521204612234915*^9, 3.521204612952956*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"findnashequilibria", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"findESSs", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.510663315294881*^9, 3.51066331622622*^9}, { 3.5106651715390973`*^9, 3.5106651749039354`*^9}, {3.5106655345711117`*^9, 3.510665534811457*^9}}, CellTags->"corecell"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Choice of dynamic", "Section", Evaluatable->False, CellChangeTimes->{3.4883859890412593`*^9, 3.488386264557432*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "opengroup"}], Cell["\<\ To specify a dynamic, press the button corresponding to the dynamic you \ desire. Definitions of the dynamics can be found in the closed group at the \ end of this section. Details: If you use Logit[eta], ILogit[eta], or TLogit[eta], be sure to \ enter a value for the noise parameter eta in the closed group below. The \ best response dynamic is actually the Logit[.001] dynamic, but with a \ different method of determining stability of rest points. When using the \ SampleBR dynamic, set an integer value of k > 1 in the closed group below. \ SampleBR is most noticeably different from a best response dynamic only for \ values of k below 5.\ \>", "Text", CellChangeTimes->{ 3.4747151313883057`*^9, 3.474715257539703*^9, 3.4812474147760963`*^9, 3.4812474492912793`*^9, {3.481416554834803*^9, 3.48141681718204*^9}, { 3.4814168565586605`*^9, 3.481416945035885*^9}, {3.4814169932752495`*^9, 3.481416994306733*^9}, {3.481487401447174*^9, 3.481487410144681*^9}, { 3.481488265581498*^9, 3.481488269712858*^9}, {3.5072092451307364`*^9, 3.5072092562867775`*^9}, {3.510068899782366*^9, 3.510068960429554*^9}, 3.510069035442367*^9, {3.5130192962928*^9, 3.5130192974144125`*^9}, 3.521285140607848*^9, {3.5237325976760817`*^9, 3.523732640195251*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell["Some standard dynamics", "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{"Replicator", ",", RowBox[{"Defer", "[", RowBox[{"Logit", "[", "eta", "]"}], "]"}], ",", "BR", ",", "MSReplicator", ",", RowBox[{"Defer", "[", RowBox[{"TLogit", "[", "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", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}], "]"}], "==", " ", "\"\< \>\""}], ",", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "\"\<\>\"", "}"}]}], "]"}]}], ",", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}]}], "]"}], ";", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "3", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.481812891450633*^9, 3.481812899642412*^9}, 3.481812942794462*^9, 3.4818349201208076`*^9, {3.482098521470656*^9, 3.4820985290114994`*^9}, {3.4888030563125*^9, 3.488803075015625*^9}, { 3.507209279970834*^9, 3.5072092822240734`*^9}, {3.5079818150489316`*^9, 3.5079818286434793`*^9}, {3.5212044815394397`*^9, 3.521204514042299*^9}}, CellTags->{"buttoncell", "corecell", "opengroup"}], 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["BR", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`BR], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["MSReplicator", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`MSReplicator], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ RowBox[{"TLogit", "[", "eta", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`TLogit[$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", CellChangeTimes->{3.5212045293461742`*^9}, CellTags->{"buttoncell", "corecell", "opengroup"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["More dynamics", "Subsection", CellChangeTimes->{{3.481894707891967*^9, 3.4818947086630754`*^9}, { 3.4818947430525255`*^9, 3.4818947437935905`*^9}}, CellTags->"corecell"], Cell["\<\ If you use SelMut[MM], enter the mutation matrix MM in its closed group. \ ExcessPayoff , PairwiseComparison, Combined, and Other must be specified in \ greater detail below.\ \>", "Text", CellChangeTimes->{ 3.4747151313883057`*^9, 3.474715257539703*^9, 3.4812474147760963`*^9, 3.4812474492912793`*^9, {3.481416554834803*^9, 3.48141681718204*^9}, { 3.4814168565586605`*^9, 3.481416945035885*^9}, {3.4814169932752495`*^9, 3.481416994306733*^9}, {3.481487401447174*^9, 3.481487410144681*^9}, { 3.481488265581498*^9, 3.481488269712858*^9}, {3.5072092451307364`*^9, 3.5072092562867775`*^9}, {3.510068899782366*^9, 3.510068960429554*^9}, { 3.510068997384774*^9, 3.510069019289111*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "matsl", ",", "names", " ", ",", "buttons", ",", "row", ",", "butrow", ",", "rown", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"namesl", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"Defer", "[", RowBox[{"SelMut", "[", "MM", "]"}], "]"}], ",", "ExcessPayoff", ",", "PairwiseComparison", StyleBox[",", FontWeight->"Plain"], "Projec", StyleBox[",", FontWeight->"Plain"], "Combined", StyleBox[",", FontWeight->"Plain"], "Other"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"IntegerQ", "[", RowBox[{"row", "/", "rowsize"}], "]"}], ",", RowBox[{"row", "==", RowBox[{ RowBox[{"Dimensions", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", "=", RowBox[{"Join", "[", RowBox[{"names", ",", RowBox[{"{", "rown", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rown", "=", RowBox[{"{", "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"row", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"100", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], ",", "button"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"butrow", "=", RowBox[{"Join", "[", RowBox[{"butrow", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", "butrow", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"row", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"buttons", ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Left", ",", "Top"}], "}"}]}], ",", RowBox[{"TableSpacing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Column", "[", "buttons", "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "6", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, 3.4816703314238143`*^9, {3.481670369408434*^9, 3.4816704575852256`*^9}, { 3.4816706146811185`*^9, 3.4816707845954432`*^9}, {3.4816708405859537`*^9, 3.481670920480837*^9}, {3.4816709715042048`*^9, 3.4816709719949102`*^9}, { 3.4816711094525647`*^9, 3.4816711098431263`*^9}, {3.4816711965377874`*^9, 3.481671238237749*^9}, {3.4816713148579235`*^9, 3.481671340214384*^9}, { 3.4816713745737906`*^9, 3.4816716260353746`*^9}, {3.481671755331293*^9, 3.481671785134147*^9}, {3.4816718832952957`*^9, 3.4816719397865267`*^9}, 3.4816719758984528`*^9, {3.481673176244466*^9, 3.4816732875745506`*^9}, 3.4816733183988733`*^9, {3.481673362101715*^9, 3.4816733707441425`*^9}, 3.481673653340496*^9, {3.4816745940231314`*^9, 3.4816746022149105`*^9}, { 3.4817346006152563`*^9, 3.481734607925768*^9}, 3.481735615579771*^9, { 3.481735646874771*^9, 3.4817356922600317`*^9}, 3.4817357345808864`*^9, 3.4817357949476895`*^9, {3.481735861463334*^9, 3.4817358750528755`*^9}, { 3.4817359228315773`*^9, 3.481735925495408*^9}, {3.4817374335538893`*^9, 3.4817374686543617`*^9}, {3.4817375128579235`*^9, 3.4817375183257856`*^9}, {3.48173788035636*^9, 3.4817378961991405`*^9}, { 3.48181290093427*^9, 3.481812907393558*^9}, 3.4818129433953257`*^9, 3.481834931817627*^9, {3.5079818552317114`*^9, 3.5079818681052227`*^9}, 3.5159566645764713`*^9}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ RowBox[{"SelMut", "[", "MM", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[ Defer[ $CellContext`SelMut[$CellContext`MM]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["ExcessPayoff", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "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["Projec", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Projec], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Combined", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Combined], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox["Other", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "meandynamic", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"dyn:=", ToBoxes[$CellContext`Other], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", CellChangeTimes->{3.5159566763131423`*^9}, CellTags->{"buttoncell", "corecell"}] }, Closed]] }, Closed]], Cell["dyn := Replicator;", "Input", CellChangeTimes->{ 3.4747151336315317`*^9, {3.479671025083769*^9, 3.479671037201193*^9}, 3.479723589112198*^9, {3.4797237898408318`*^9, 3.479723791903798*^9}, { 3.479809813293728*^9, 3.479809816578451*^9}, 3.480780465926387*^9, { 3.4807847095625095`*^9, 3.480784719531005*^9}, {3.4807850623347287`*^9, 3.480785065412775*^9}, 3.480786382988419*^9, {3.4807870413153152`*^9, 3.4807870445964813`*^9}, {3.480865675367506*^9, 3.480865713945631*^9}, { 3.480868633586256*^9, 3.480868633586256*^9}, {3.480921736302143*^9, 3.4809217417083583`*^9}, {3.4809443688539295`*^9, 3.4809443688539295`*^9}, {3.4809449674594736`*^9, 3.4809449674750986`*^9}, {3.4809480125337353`*^9, 3.4809480125337353`*^9}, {3.4809480994081793`*^9, 3.4809480994081793`*^9}, {3.480948153485958*^9, 3.480948153485958*^9}, { 3.480948201048154*^9, 3.480948224094881*^9}, {3.4809483356879168`*^9, 3.4809483356879168`*^9}, {3.481245776437692*^9, 3.481245778281419*^9}, 3.4813311917978306`*^9, {3.481331301245208*^9, 3.481331362282976*^9}, 3.48133141054237*^9, 3.481331704525096*^9, 3.48133226392948*^9, 3.481332322613864*^9, {3.4813326465897183`*^9, 3.481332654571195*^9}, { 3.481332864422947*^9, 3.481332870762062*^9}, 3.481334643671381*^9, 3.4813352364437456`*^9, 3.48133650683201*^9, 3.481339085923997*^9, 3.4813391332671413`*^9, 3.481339294202581*^9, 3.4813393294677544`*^9, 3.481339466606624*^9, {3.481408817438427*^9, 3.4814088203526173`*^9}, 3.4814158381142097`*^9, {3.4814174163435917`*^9, 3.481417434539757*^9}, 3.481417503889477*^9, 3.48141754447784*^9, 3.481417590974699*^9, 3.4814186554954047`*^9, 3.481735482813795*^9, 3.4817378513146*^9, { 3.4817379157172065`*^9, 3.481737963596053*^9}, 3.481834851442053*^9, { 3.4818349125399075`*^9, 3.4818349355529985`*^9}, 3.481834975600584*^9, 3.4818957324151587`*^9, 3.4885769010622663`*^9, 3.4888031126875*^9, 3.491929508635909*^9, 3.4922031282706842`*^9, 3.4922764082392645`*^9, 3.4922824415838757`*^9, 3.4922875023669925`*^9, 3.4925108639801025`*^9, 3.492636904285307*^9, 3.492826830290763*^9, 3.4928274169142866`*^9, 3.4928281630471725`*^9, 3.493217695332925*^9, 3.4932688627230606`*^9, 3.4932693681298*^9, 3.4932704825322323`*^9, 3.506172887669325*^9, 3.5061732496798706`*^9, 3.507209558260995*^9, 3.508020054195327*^9, 3.5080246645304146`*^9, 3.508778680954258*^9, 3.508780220277696*^9, 3.5087809839057393`*^9, 3.508784813507504*^9, 3.508786241130325*^9, 3.5087863364173408`*^9, 3.5087863839076953`*^9, {3.5087864746311502`*^9, 3.5087864967930174`*^9}, 3.50878903521885*^9, 3.508789074845831*^9, 3.508789880824772*^9, 3.5087899113286343`*^9, 3.50879043101197*^9, 3.508790484378708*^9, 3.508796159128869*^9, 3.508796224572973*^9, { 3.508796256138362*^9, 3.5087962611856194`*^9}, 3.508796367438403*^9, 3.508796398106969*^9, 3.5087964362548323`*^9, 3.5087966727223377`*^9, 3.508796740680056*^9, 3.5087967995004683`*^9, 3.5087968983216023`*^9, 3.50879695844806*^9, 3.5091978438765*^9, 3.510066461404035*^9, 3.510067022619776*^9, 3.510067795770535*^9, 3.510069666333312*^9, 3.5100697616202602`*^9, {3.5106906587922993`*^9, 3.510690660875294*^9}, 3.5109250599235897`*^9, 3.510925122094789*^9, 3.510942139098502*^9, 3.5110101245970125`*^9, 3.515954624118764*^9, 3.5159566822384815`*^9, { 3.515957598123867*^9, 3.5159576147448177`*^9}, 3.515959791607327*^9, 3.516038230691786*^9, 3.516039285052092*^9, 3.5160393255744095`*^9, 3.516046363827975*^9, 3.5160464231643686`*^9, 3.516214795529269*^9, 3.51621505953937*^9, {3.516218211903675*^9, 3.5162182338229284`*^9}, 3.516276157700075*^9, 3.516385999001933*^9, 3.5163871324767647`*^9, 3.5193824611572075`*^9, 3.519383154433861*^9, 3.51946122489705*^9, 3.5210513285766444`*^9, 3.5211505633741035`*^9, 3.5211512152843904`*^9, { 3.5212045522234826`*^9, 3.5212045793060317`*^9}}, CellTags->{"meandynamic", "corecell"}], Cell[CellGroupData[{ Cell["Noise level for logit dynamics", "SmallText", CellChangeTimes->{{3.4928274343894143`*^9, 3.4928274354409266`*^9}, { 3.510069060898769*^9, 3.510069069386961*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"eta", " ", "=", " ", ".00001"}], ";"}]], "Input", CellChangeTimes->{{3.480865595226881*^9, 3.480865595461256*^9}, 3.493217709107732*^9, 3.5072093234133005`*^9, 3.5087890592133527`*^9, { 3.5193824682636137`*^9, 3.519382495479171*^9}, {3.519382892480878*^9, 3.519382892970906*^9}, 3.519383145977377*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Sample size for the sample best response dynamic", "SmallText", CellChangeTimes->{{3.479723492252921*^9, 3.47972353833919*^9}, { 3.481894792974309*^9, 3.481894823938834*^9}, {3.5100690760763607`*^9, 3.5100690804039583`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"k", " ", "=", " ", "2"}], ";"}]], "Input", CellChangeTimes->{{3.4797235751220813`*^9, 3.4797235774754653`*^9}, 3.4798097927141356`*^9, 3.480791134913642*^9, {3.4807930226309395`*^9, 3.480793033474412*^9}, 3.4808020723992596`*^9, {3.480921321507923*^9, 3.4809213294609966`*^9}, {3.4809214148667*^9, 3.480921437897803*^9}, { 3.481247722678405*^9, 3.4812477230221505`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Matrix of mutation rates for the selection-mutation \ dynamic", FontSlant->"Italic"]], "SmallText", CellTags->"corecell"], Cell[TextData[{ StyleBox["Entry ij of the matrix ", FontFamily->"Palatino"], StyleBox["MM", FontFamily->"Palatino", FontWeight->"Bold"], StyleBox[" is the probability of a mutation from i to j \[NotEqual] i; entry \ ii is the probability of no mutation from i. The rows of MM must sum to one. \ Note that the selection-mutation dynamic is only well defined for \ nonnegative payoffs, and that it is not invariant to the addition of a \ constant to all matrix entries.", FontFamily->"Palatino"] }], "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"MM", "=", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}]}], " ", ";"}]], "Input", CellTags->"corecell"] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"dyn", "=", "dyn"}], ";"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4818348627583246`*^9, 3.481834865722587*^9}, 3.5087883666675205`*^9, 3.5087886890711145`*^9}, CellTags->"corecell"], Cell[TextData[{ "If the dynamic you consider has a nontrivial component of rest points, the \ program will compute and plot a random subset of this component. If you set ", StyleBox["findrestpoints", FontWeight->"Bold"], " equal to 0, the computation and plotting is skipped." }], "Text", FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"findrestpoints", "=", "1"}], ";"}]], "Input", CellChangeTimes->{ 3.4796710551269693`*^9, 3.4798098208245564`*^9, {3.480789604765314*^9, 3.4807896051559296`*^9}, 3.480859029773756*^9, {3.510658336300294*^9, 3.5106583475248475`*^9}, {3.5106633114493513`*^9, 3.510663311789841*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Definition of combination of two dynamics", "Subsubsection", CellTags->"corecell"], Cell["\<\ To define a combination of two dynamics, specify the two dynamics to be \ combined, the weights on the dynamics, and the characterization of the rest \ points of combined dynamic. \"Nash\" is the default setting for the set or \ rest points. This is correct, for example, with combinations of the \ replicator dynamic and an excess payoff dynamic like the BNN dynamic. If the \ rest points aren't identical to the Nash equilibria for the dynamics you have \ specified, you can replace \"Nash\" with \"Automatic\" if the combined \ dynamic is smooth. (If the combined dynamic isn't smooth, you're on your \ own!) The last line of code formally defines the combined dynamic according \ to your specifications.\ \>", "Text", CellChangeTimes->{ 3.493300988179451*^9, {3.50802480672488*^9, 3.5080248083171697`*^9}, { 3.5080248595107822`*^9, 3.5080248667011213`*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "=", "Replicator"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "=", "BNN"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], "=", ".9"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"weight", "[", "2", "]"}], "=", ".1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Combined", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Combined", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"weight", "[", "1", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "1", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}], "+", " ", RowBox[{ RowBox[{"weight", "[", "2", "]"}], " ", RowBox[{ RowBox[{"dyn", "[", "2", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}]}]}], " ", ";"}]}], "Input", CellChangeTimes->{3.508024885438064*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Definitions of dynamics", "Subsubsection", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Replicator", "]"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "MSReplicator", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Logit", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "ILogit", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "TLogit", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "BR", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "BNN", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Smith", "]"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "SelMut", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Projec", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "SampleBR", "]"}], ";"}]}], "Input", CellChangeTimes->{ 3.4816696539997263`*^9, {3.4922045790568123`*^9, 3.492204579938079*^9}, { 3.492204755210108*^9, 3.492204759456214*^9}, {3.4922048197729445`*^9, 3.492204861813396*^9}, {3.4922050958098664`*^9, 3.492205096641062*^9}, 3.515956687267769*^9, {3.52115188594275*^9, 3.521151903316744*^9}, { 3.5211519441680803`*^9, 3.5211519491593657`*^9}, 3.521151986748516*^9}, CellTags->{"dynamicslibrary", "corecell"}], Cell[CellGroupData[{ Cell["Replicator Dynamic", "SmallText", CellChangeTimes->{{3.480868612711256*^9, 3.480868614055006*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Replicator", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492818775148037*^9, 3.492818796899314*^9}, { 3.507983059047714*^9, 3.507983059047714*^9}, {3.50798337343478*^9, 3.507983373449802*^9}, 3.5160463593887205`*^9, 3.516046413715828*^9}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Replicator", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Replicator", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{ 3.4925217796360445`*^9, {3.4925218155376687`*^9, 3.4925218331630125`*^9}, { 3.4925482527715673`*^9, 3.492548274703103*^9}, 3.5080249342782927`*^9, { 3.508763925043623*^9, 3.508763927695613*^9}, 3.5087650526787987`*^9, 3.5195529876537256`*^9, {3.5211510056724014`*^9, 3.5211510069504747`*^9}, { 3.521151221197729*^9, 3.5211512223657956`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Maynard Smith Replicator Dynamic", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MSReplicator", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"Fbar", "[", RowBox[{"x", ",", "F"}], "]"}]], RowBox[{"Replicator", "[", RowBox[{"x", ",", "F"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4928188439469647`*^9, 3.492818851708125*^9}, { 3.508789189871229*^9, 3.508789270166689*^9}, {3.508789317394599*^9, 3.5087893363017864`*^9}, {3.508789745630372*^9, 3.508789851182148*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MSReplicator", "::", "negativepayoff"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"dyn", "===", "MSReplicator"}], ",", RowBox[{ RowBox[{"F", "[", "x", "]"}], "==", RowBox[{"A", ".", "x"}]}], ",", RowBox[{ RowBox[{"Min", "[", "A", "]"}], "<", "0"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A", "=", RowBox[{"A", "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "A", "]"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"dim", ",", "dim"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Message", "[", RowBox[{"MSReplicator", "::", "negativepayoff"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4928188439469647`*^9, 3.492818851708125*^9}, { 3.508789189871229*^9, 3.508789270166689*^9}, {3.508789317394599*^9, 3.5087893363017864`*^9}, {3.508789745630372*^9, 3.508789851182148*^9}, { 3.5087916072784257`*^9, 3.508791633956787*^9}, {3.5087916915095444`*^9, 3.508791694614008*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "MSReplicator", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "MSReplicator", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.492548298337087*^9, 3.4925483080210123`*^9}, 3.5080249354099197`*^9, {3.508763938935272*^9, 3.5087639430243006`*^9}, 3.508765054120872*^9, 3.5195536195748696`*^9, {3.519553859996621*^9, 3.5195538604276457`*^9}, 3.519672857431008*^9, {3.5196732940069785`*^9, 3.519673298540238*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Logit Dynamic", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Logit", "[", "eta_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "eta"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "dim"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "eta"]]}]], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928188661488895`*^9, 3.4928189083796144`*^9}, { 3.5072093330070963`*^9, 3.50720933886552*^9}, {3.5079830590927787`*^9, 3.5079830591078005`*^9}, {3.507983373479845*^9, 3.507983373494867*^9}, { 3.5079857432524652`*^9, 3.5079857619543576`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"Logit", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.4925483215905237`*^9, 3.4925483338181067`*^9}, 3.5080249362611437`*^9, {3.508763950343546*^9, 3.5087639518198957`*^9}, 3.508765055192413*^9, 3.519553620680933*^9}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["I-Logit Dynamic", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ILogit", "[", "eta_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "eta"]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "dim"], RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "eta"]]}]}]], " ", "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.492818938783333*^9, 3.49281897296248*^9}, { 3.507209340557954*^9, 3.507209341969984*^9}, {3.5079830591378436`*^9, 3.507983059182908*^9}, {3.50798337352491*^9, 3.507983373569975*^9}, { 3.5079857902400303`*^9, 3.507985797119923*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"ILogit", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.508024937112368*^9, {3.5087639631430187`*^9, 3.5087639760608015`*^9}, 3.50876505598355*^9, 3.5195536212949677`*^9, {3.5195544205786843`*^9, 3.519554421004709*^9}, 3.5196733097048764`*^9}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Tempered Logit dynamic", "SmallText", CellChangeTimes->{{3.4819039639063683`*^9, 3.4819039858113937`*^9}, { 3.485720504448155*^9, 3.4857205070967503`*^9}, 3.4922091843087626`*^9, { 3.4922092286224823`*^9, 3.4922092296239223`*^9}, 3.5100691061094837`*^9}, CellTags->{"dynamicslibrary", "corecell"}], Cell["\<\ The tempered logit dynamic is an approximation of the tempered best response \ dynamic of Zusai (2011).\ \>", "Text", CellChangeTimes->{{3.510069132792099*^9, 3.510069157735979*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"TLogit", "[", "eta_", "]"}], "[", RowBox[{"x_", ",", " ", "F_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "p", ",", "pops", ",", "dim", ",", "state", ",", "dynamic", ",", "payoff", ",", "max", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"state", "=", RowBox[{"{", "x", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dynamic", "=", RowBox[{"{", "F", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pops", "=", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"state", ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dim", "=", " ", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"state", ",", "2"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"generaldynamic", "[", "state", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Apply", "[", RowBox[{ RowBox[{"dynamic", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "state"}], "]"}], ",", RowBox[{"{", RowBox[{"p", ",", "pops"}], "}"}]}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"p", "=", "1"}], ",", RowBox[{"p", "<=", "pops"}], ",", RowBox[{"p", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"payoff", " ", "=", " ", RowBox[{"Apply", "[", RowBox[{ RowBox[{"dynamic", "[", RowBox[{"[", "p", "]"}], "]"}], ",", "state"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"Max", "[", "payoff", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"result", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"payoff", "[", RowBox[{"[", "k", "]"}], "]"}], "/", "eta"}], ")"}]}], "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"payoff", "[", RowBox[{"[", "j", "]"}], "]"}], "/", "eta"}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "1", ",", " ", "dim"}], "}"}]}], "]"}]}], ")"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "*", RowBox[{"(", RowBox[{"max", " ", "-", RowBox[{"payoff", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "1", ",", " ", "dim"}], "}"}]}], "]"}]}], " ", "-", " ", "\n", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"(", RowBox[{"max", " ", "-", RowBox[{"payoff", "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "dim"}], "}"}]}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812470171718106`*^9, {3.4857205184016542`*^9, 3.485720543854027*^9}, { 3.485720770487443*^9, 3.48572082648066*^9}, {3.485720921910668*^9, 3.4857209449494247`*^9}, {3.4857209843050547`*^9, 3.4857211713432503`*^9}, {3.4857212046884327`*^9, 3.485721238071824*^9}, 3.485721310913628*^9, 3.492166233758116*^9, {3.492166300083487*^9, 3.492166301084927*^9}, {3.4921663372268963`*^9, 3.4921663585375395`*^9}, { 3.492166441647045*^9, 3.492166479972154*^9}, {3.4921665325677834`*^9, 3.492166639321287*^9}, 3.492170682681574*^9, {3.4921707138463864`*^9, 3.492170764258876*^9}, {3.4921712629359384`*^9, 3.492171352674977*^9}, { 3.4921714425041447`*^9, 3.4921715491775336`*^9}, {3.492171581564103*^9, 3.492171623123863*^9}, {3.492171654989684*^9, 3.4921718491088133`*^9}, { 3.492172356848908*^9, 3.4921724562518425`*^9}, {3.492172495928895*^9, 3.4921727407108746`*^9}, {3.4921728905763702`*^9, 3.4921728913074217`*^9}, {3.4921729520748005`*^9, 3.4921729813569064`*^9}, {3.4921730440670795`*^9, 3.492173055082919*^9}, { 3.4921736505591717`*^9, 3.492173775909417*^9}, {3.492173826131633*^9, 3.492173833171756*^9}, {3.4921740210919724`*^9, 3.492174170136287*^9}, { 3.4921742674762554`*^9, 3.492174277110108*^9}, {3.4928203628610563`*^9, 3.4928203692101855`*^9}, {3.5072093461059313`*^9, 3.507209349410683*^9}, { 3.5079818723262925`*^9, 3.507981878995883*^9}, {3.5079858205385976`*^9, 3.5079858285451107`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"TLogit", "[", "_", "]"}], "]"}], " ", "=", " ", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"TLogit", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{ 3.4812470181717978`*^9, 3.485720559015809*^9, 3.485721283563513*^9, 3.485721317004876*^9, 3.488803149046875*^9, {3.4922043825342264`*^9, 3.4922043862095113`*^9}, {3.492548349240282*^9, 3.4925483583634005`*^9}, 3.508024938083765*^9, 3.5087639847936*^9, 3.5087650569950047`*^9, 3.519553621958006*^9, {3.519673337870487*^9, 3.519673339629588*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Best Response dynamic", "SmallText", CellChangeTimes->{{3.5211519626581383`*^9, 3.5211519690405035`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BR", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"Logit", "[", ".001", "]"}], "[", RowBox[{"x", ",", "F"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}, { 3.5211519917578025`*^9, 3.521152052683287*^9}, {3.521152129871702*^9, 3.521152142614431*^9}, {3.5237327417000504`*^9, 3.5237327417606707`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "BR", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "BR", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}, { 3.5211519917578025`*^9, 3.521152052683287*^9}, {3.521152129871702*^9, 3.521152142614431*^9}, {3.5211525562650905`*^9, 3.521152556888126*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["BNN dynamic", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BNN", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "dim"], RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928189977881775`*^9, 3.492819038676973*^9}, { 3.5079830592129517`*^9, 3.507983059227973*^9}, {3.507983373600018*^9, 3.50798337361504*^9}, {3.5079858866336374`*^9, 3.507985890328951*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "BNN", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "BNN", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.492548368067354*^9, 3.4925484047400875`*^9}, 3.508024887040368*^9, 3.50876399121976*^9, 3.5087650579363585`*^9, 3.5195536226010427`*^9, {3.519554059314021*^9, 3.5195540596810417`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Excess payoff dynamic", "SmallText", CellTags->"corecell"], Cell[TextData[{ "Here one specifies the vector field sig", "mat", "ilde that defines an excess payoff dynamic. This definition should be \ stated in terms of the excess payoff vector Fhat[x,F], which is defined as \ Fhat[x,F] = F[x] - Fbar[x,F]. (", StyleBox["Mathematica", FontSlant->"Italic"], " subtracts the scalar from the vector correctly.) When computing rest \ points, the program assumes that sigmatilde is acute, so that the rest points \ of the dynamic are the Nash equilibria of the underlying game." }], "Text", CellChangeTimes->{{3.48181294399619*^9, 3.481812948682929*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4928190920236816`*^9, 3.4928191108106956`*^9}, 3.5079830592580166`*^9, 3.5079833736450825`*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ExcessPayoff", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "dim"], RowBox[{ RowBox[{"sigmatilde", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812473983388066`*^9, {3.492819117730646*^9, 3.492819145350362*^9}, { 3.507983059273038*^9, 3.5079830592880597`*^9}, {3.507983373675126*^9, 3.5079833736901474`*^9}, {3.507985913206848*^9, 3.507985915835628*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "ExcessPayoff", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "ExcessPayoff", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4812473993544188`*^9, {3.492548442314116*^9, 3.4925484491339226`*^9}, 3.508024892348*^9, 3.5087640201957445`*^9, 3.5087650589678416`*^9, 3.5195536232820816`*^9, {3.519554087670643*^9, 3.519554088073666*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Smith Dynamic", "SmallText", CellChangeTimes->{{3.4822829143327475`*^9, 3.482282915153928*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "Fx", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"Fx", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.49281921822515*^9, 3.4928193439359136`*^9}, { 3.5079859279280157`*^9, 3.5079859425890975`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Smith", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"DiagonalMatrix", "[", "x", "]"}], ".", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}], ".", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "dim"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.4812470171718106`*^9, {3.492819412865029*^9, 3.492819419784979*^9}, { 3.4928194587209663`*^9, 3.4928195309848766`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Smith", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Smith", "]"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4812470181717978`*^9, {3.4925484536404023`*^9, 3.4925484716462936`*^9}, 3.5080248933394256`*^9, 3.508764027801937*^9, 3.508765059758979*^9, 3.519553623914118*^9, {3.5195541377775087`*^9, 3.519554138157531*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Pairwise Comparison Dynamic", "SmallText", CellTags->"corecell"], Cell["\<\ Here one specifies the vector field rho that defines an excess payoff \ dynamic. When computing rest points, the program assumes that rho is \ separable and sign-preserving, so that the rest points of the dynamic are the \ Nash equilibria of the underlying game. The leading example of the vector \ field is the one for the Smith dynamic defined above and it is the default.\ \>", "Text", CellChangeTimes->{{3.4928202376009407`*^9, 3.492820248967285*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"rho1", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"rho", "[", RowBox[{"x", ",", "F"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492820174540264*^9, 3.492820179877939*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PairwiseComparison", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}], ".", " ", "x"}], "-", RowBox[{ RowBox[{"DiagonalMatrix", "[", "x", "]"}], ".", RowBox[{"rho1", "[", RowBox[{"x", ",", "F"}], "]"}], ".", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "dim"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.481247465900442*^9, {3.492820208959757*^9, 3.4928202154691167`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "PairwiseComparison", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "PairwiseComparison", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{ 3.481247469072276*^9, {3.4925484780354805`*^9, 3.492548484915374*^9}, 3.508024897685675*^9, 3.5087640332621107`*^9, 3.5087650607904625`*^9, 3.5195536246061573`*^9, {3.5195541488211403`*^9, 3.5195541491711607`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Projection Dynamic", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{"closetozero", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], " ", ";"}]], "Input", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Projec", "[", RowBox[{ RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{"VectorQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "m", ",", "dim", ",", "nc", ",", "Fx", ",", "boundaries", ",", "reduced", ",", "reducedx", ",", "npos", ",", "flag", ",", "project", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"nc", "=", RowBox[{"2", "^", "dim"}]}], ";", "\[IndentingNewLine]", RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaries", "=", RowBox[{"NumberSystem", "[", RowBox[{"dim", ",", "2", ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Support", "[", RowBox[{"x", ",", "3"}], "]"}], "-", "boundaries"}], "]"}], "==", "1"}], ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"npos", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"reducedx", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reduced", "[", RowBox[{"[", "npos", "]"}], "]"}], "=", RowBox[{"Fx", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"npos", "--"}], ";", "\[IndentingNewLine]", RowBox[{"project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "npos", "]"}], "-", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"npos", ",", "npos"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"project", ".", RowBox[{"Take", "[", RowBox[{"reduced", ",", "npos"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"boundaries", ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"Fx", "[", RowBox[{"[", "k", "]"}], "]"}], "-", RowBox[{"reduced", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "0"}]}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"-", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"reduced", "[", RowBox[{"[", "m", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158610264992857`*^9, 3.5158611842993116`*^9}, { 3.5158628005917587`*^9, 3.5158630618697023`*^9}, {3.5158631055882034`*^9, 3.515863193911255*^9}, {3.51586322547406*^9, 3.515863342412749*^9}, 3.5158634026771955`*^9, {3.5158634466807127`*^9, 3.515863477944501*^9}, 3.5158635440622826`*^9, {3.515863586523711*^9, 3.5158636740217156`*^9}, { 3.5158637462118444`*^9, 3.5158638202180777`*^9}, {3.5158639196487646`*^9, 3.5158639402629433`*^9}, {3.5158639975272193`*^9, 3.515864274551064*^9}, { 3.5158647809020257`*^9, 3.5158648189702024`*^9}, {3.5158648573193965`*^9, 3.515864869824112*^9}, {3.5158649057141647`*^9, 3.5158649114164906`*^9}, { 3.515864958944209*^9, 3.5158649654255795`*^9}, {3.5158650186346235`*^9, 3.5158651631418886`*^9}, {3.5158662208313847`*^9, 3.5158662404495068`*^9}, {3.515866396670442*^9, 3.5158664147144747`*^9}, { 3.515866716775751*^9, 3.5158667470044804`*^9}, 3.515866834261471*^9, { 3.515866884230329*^9, 3.515866919060321*^9}, 3.5158669958897157`*^9, { 3.5158670831157045`*^9, 3.515867126987214*^9}, {3.515939811460528*^9, 3.515939845716487*^9}, {3.515939940738922*^9, 3.515939942289011*^9}, { 3.5159400153451896`*^9, 3.5159400290639744`*^9}, 3.5159400606837826`*^9, { 3.5159401883950872`*^9, 3.515940207594186*^9}, {3.5159407235136943`*^9, 3.515940750973265*^9}, {3.5159408755113883`*^9, 3.5159408984196987`*^9}, { 3.515940951486734*^9, 3.5159409687807226`*^9}, {3.515941056979768*^9, 3.515941125575691*^9}, {3.515941551347044*^9, 3.5159415627566967`*^9}, { 3.515942551758264*^9, 3.515942553183346*^9}, {3.515942769298707*^9, 3.5159427831104965`*^9}, 3.515942849675304*^9, {3.515942908068644*^9, 3.515942909479725*^9}, {3.515942983088935*^9, 3.515943036221974*^9}, { 3.5159431901947803`*^9, 3.5159432621618967`*^9}, {3.5159433949264903`*^9, 3.515943440513098*^9}, {3.515943510151081*^9, 3.5159435310722775`*^9}, { 3.5159517855074043`*^9, 3.515951785936429*^9}, {3.5159518234615755`*^9, 3.5159518237475915`*^9}, {3.5159520080041304`*^9, 3.515952037581822*^9}, { 3.5159520699776754`*^9, 3.515952096142172*^9}, {3.5159521936447487`*^9, 3.5159522360401735`*^9}, {3.515952266592921*^9, 3.5159522829178543`*^9}, 3.5159523791933613`*^9, {3.5159526272685504`*^9, 3.5159526277765794`*^9}, { 3.515953935612383*^9, 3.515953936742448*^9}, {3.5159573459824452`*^9, 3.515957347241517*^9}, {3.5159596512592993`*^9, 3.51595965231536*^9}, 3.5160382452476187`*^9, 3.516038412473183*^9, 3.516039628779752*^9, { 3.5160396629887085`*^9, 3.5160396699581075`*^9}, 3.5160401640093656`*^9, { 3.5160402785659175`*^9, 3.516040279315961*^9}, 3.5160460901553216`*^9, 3.5160961772861414`*^9, {3.5160962880094748`*^9, 3.51609628967957*^9}, { 3.516096414145689*^9, 3.516096425836358*^9}, {3.516096474003113*^9, 3.51609656084508*^9}, {3.516096678938834*^9, 3.5160966792978554`*^9}, 3.5162145979199667`*^9, 3.516215742206416*^9, 3.5162163349323187`*^9, { 3.516216393204651*^9, 3.516216393616675*^9}, 3.516216852943947*^9, 3.516216886289854*^9, 3.5162172238591623`*^9, {3.516217992187108*^9, 3.516217992412121*^9}, {3.5162182837447844`*^9, 3.516218284301816*^9}, 3.516218961110527*^9, {3.516219194089853*^9, 3.5162192115168495`*^9}, 3.516219423968001*^9, 3.5162744825432615`*^9, {3.5163860108686123`*^9, 3.516386011136627*^9}, {3.516386620043455*^9, 3.516386631638118*^9}, { 3.516386987323462*^9, 3.516386989969613*^9}, {3.516387055217345*^9, 3.5163870565674224`*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Projec", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Projec", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{ 3.4747152700777316`*^9, {3.492548495590724*^9, 3.492548502050012*^9}, 3.5080248995183105`*^9, {3.5087640437020054`*^9, 3.508764045061373*^9}, 3.5087650617218018`*^9, {3.515956700432522*^9, 3.515956701185565*^9}, 3.5195536260592403`*^9, {3.5195541654450912`*^9, 3.5195541660201244`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Selection-mutation", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SelMut", "[", "MM_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "MM", "]"}], " ", ".", RowBox[{"DiagonalMatrix", "[", "x", "]"}], ".", RowBox[{"F", "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"x", ".", RowBox[{"F", "[", "x", "]"}]}], ")"}], " ", "x"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.492820444288142*^9, 3.492820452860469*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"SelMut", "[", "___", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"SelMut", "[", "___", "]"}], "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.492548506226017*^9, 3.4925485139371047`*^9}, 3.4933016786373487`*^9, 3.508024939135277*^9, 3.5087640556061897`*^9, 3.508765063103789*^9, 3.51955362675028*^9, {3.519674127376644*^9, 3.5196741311048574`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["SampleBR Dynamic", "SmallText", CellChangeTimes->{{3.4796712797199183`*^9, 3.4796712899946923`*^9}, 3.479723591645841*^9, 3.4812468720330434`*^9}, CellTags->{"dynamicslibrary", "corecell"}], Cell["\<\ The sample best response dynamic is introduced in Oyama, Sandholm, and \ Tercieux (2011).\ \>", "Text", CellChangeTimes->{{3.5100691803786707`*^9, 3.510069202362444*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Bk", "[", RowBox[{"x_", ",", "F_", ",", "k_", ",", "Znk_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"BestResponse", "[", RowBox[{ RowBox[{"Znk", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "F"}], "]"}], "*", RowBox[{"Apply", "[", RowBox[{"Multinomial", ",", RowBox[{"k", " ", "*", RowBox[{"Znk", "[", RowBox[{"[", "l", "]"}], "]"}]}]}], "]"}], "*", RowBox[{"Product", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "littleo"}], ")"}], "^", RowBox[{"(", RowBox[{"k", " ", "*", RowBox[{ RowBox[{"Znk", "[", RowBox[{"[", "l", "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"littleo", "->", "0"}], ",", RowBox[{"Direction", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{ RowBox[{"Dimensions", "[", "Znk", "]"}], "[", 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", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Znk", "=", RowBox[{"DiscSimplex", "[", RowBox[{"k", ",", "dim"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SampleBR", "[", "k_", "]"}], "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"Bk", "[", RowBox[{"x", ",", "F", ",", "k", ",", "Znk"}], "]"}], "-", "x"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4796712918773994`*^9, 3.479671318125142*^9}, { 3.479671575645438*^9, 3.479671610755924*^9}, {3.4796717982254925`*^9, 3.479671845663705*^9}, {3.4796718915096283`*^9, 3.47967190566999*^9}, { 3.479673481726248*^9, 3.4796735125505705`*^9}, {3.479673563904414*^9, 3.4796735815698156`*^9}, {3.4796737007812333`*^9, 3.4796737186369085`*^9}, 3.479673830758131*^9, {3.479673869423729*^9, 3.479673959453185*^9}, { 3.47967750162658*^9, 3.4796775430561533`*^9}, {3.479677582012169*^9, 3.4796776844494667`*^9}, {3.4796777620810957`*^9, 3.4796778255123053`*^9}, {3.4796778960937967`*^9, 3.4796779890775003`*^9}, {3.479678019481219*^9, 3.4796780233267484`*^9}, { 3.4796780925562954`*^9, 3.479678167994771*^9}, {3.4796782003913546`*^9, 3.4796782457866297`*^9}, {3.4796782888886075`*^9, 3.4796784321746426`*^9}, {3.47967847862143*^9, 3.479678548071294*^9}, { 3.479678600807124*^9, 3.4796786026097164`*^9}, {3.479679037625238*^9, 3.4796790595768027`*^9}, {3.4796792007297707`*^9, 3.479679226717139*^9}, { 3.4796793968417664`*^9, 3.479679399115035*^9}, {3.4796794542943788`*^9, 3.4796796902036*^9}, {3.4796797303813725`*^9, 3.479679803606665*^9}, { 3.4796798854944143`*^9, 3.479679900586115*^9}, {3.4796799399627357`*^9, 3.479679942095803*^9}, {3.4796799807714157`*^9, 3.4796800378534956`*^9}, { 3.479680100283265*^9, 3.479680102075843*^9}, {3.479680568776926*^9, 3.479680569427862*^9}, 3.4796806190692425`*^9, {3.4796806549408236`*^9, 3.4796807843469005`*^9}, {3.4796809199018188`*^9, 3.479680935624427*^9}, { 3.47968110439711*^9, 3.479681165615137*^9}, {3.479681529608534*^9, 3.479681562495824*^9}, {3.479681639446473*^9, 3.4796816498614492`*^9}, { 3.4796828007763834`*^9, 3.479682847423459*^9}, {3.4796828805010223`*^9, 3.4796829641813483`*^9}, {3.479683074650195*^9, 3.4796831357981215`*^9}, { 3.479683294075713*^9, 3.479683299673763*^9}, {3.479683524477014*^9, 3.4796836172704444`*^9}, {3.4796839560676107`*^9, 3.4796840364531994`*^9}, {3.4796841181306458`*^9, 3.4796841333625484`*^9}, 3.479684385495097*^9, {3.4796844847578297`*^9, 3.4796844914073915`*^9}, { 3.479684532806921*^9, 3.4796846136932297`*^9}, {3.479684665407592*^9, 3.4796846782260237`*^9}, {3.4796848593364477`*^9, 3.479684877202137*^9}, { 3.479721750728732*^9, 3.4797217523811083`*^9}, {3.479721931128134*^9, 3.4797219388692656`*^9}, {3.47972219290455*^9, 3.479722193225011*^9}, { 3.4797227264317245`*^9, 3.47972273843899*^9}, 3.4797235951408668`*^9, 3.480788703085273*^9, 3.4807887373656454`*^9, {3.4807892930232954`*^9, 3.480789323585013*^9}, {3.480789398692465*^9, 3.4807894589096737`*^9}, { 3.480793997996595*^9, 3.4807939997934237`*^9}, {3.4807941639454713`*^9, 3.480794224381424*^9}, {3.4807942634585485`*^9, 3.4807942916609516`*^9}, { 3.4807943356754503`*^9, 3.4807943396753473`*^9}, {3.4807960717091312`*^9, 3.480796142113579*^9}, 3.4807980573614225`*^9, {3.4807986281749344`*^9, 3.4807986306748705`*^9}, {3.480800452971968*^9, 3.4808005012051086`*^9}, { 3.4808006038743553`*^9, 3.4808006043274684`*^9}, {3.480801812171547*^9, 3.4808018626546297`*^9}, {3.4808020322596626`*^9, 3.4808020506810656`*^9}, {3.4808028155521097`*^9, 3.480802818223916*^9}, { 3.480804381355774*^9, 3.4808043902461715`*^9}, 3.480804502258929*^9, { 3.480805704259407*^9, 3.4808057093530264`*^9}, {3.4808060786404476`*^9, 3.4808061148426456`*^9}, 3.480845050414381*^9, {3.480845084336256*^9, 3.480845174523756*^9}, 3.480845387430006*^9, 3.480845458430006*^9, { 3.480845696430006*^9, 3.480845736367506*^9}, {3.480845814695631*^9, 3.480845927898756*^9}, {3.480846059695631*^9, 3.480846103336256*^9}, { 3.480846236008131*^9, 3.480846237851881*^9}, 3.481246874939256*^9, { 3.4818176948149743`*^9, 3.481817718869563*^9}, {3.4927731399432592`*^9, 3.492773252274784*^9}, {3.492773316547203*^9, 3.492773334072403*^9}, { 3.4927733763431854`*^9, 3.4927734080988483`*^9}, {3.4928102095963106`*^9, 3.492810217277355*^9}, {3.4928133955474834`*^9, 3.4928134051112356`*^9}, { 3.4928136324080725`*^9, 3.492813633850146*^9}, {3.492814897977872*^9, 3.492814919508832*^9}, {3.5079818938372235`*^9, 3.5079819036763716`*^9}, 3.5079860229095926`*^9, {3.507986065120289*^9, 3.5079861198740206`*^9}, { 3.5211514179089804`*^9, 3.5211514664737577`*^9}, {3.5211516139981956`*^9, 3.5211516325592575`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", RowBox[{"SampleBR", "[", "_", "]"}], "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.4796716185671563`*^9, 3.4796716196186686`*^9}, { 3.479671748644198*^9, 3.479671749074817*^9}, {3.4796718023013535`*^9, 3.4796718083700795`*^9}, {3.479671882967345*^9, 3.4796718839287276`*^9}, { 3.4796841519693036`*^9, 3.479684154342716*^9}, 3.4797235969434586`*^9, 3.480861513305006*^9, 3.4812468777360954`*^9, {3.492523483741369*^9, 3.4925234845925927`*^9}, {3.49254852553378*^9, 3.4925485362592025`*^9}, 3.508024748621331*^9, 3.5087640585898657`*^9, 3.508765065337*^9, { 3.5087803881290545`*^9, 3.50878038937084*^9}, 3.51955362762533*^9, { 3.5196733466169877`*^9, 3.51967334840609*^9}, {3.521151236239589*^9, 3.5211512380616937`*^9}}, CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["Other", "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell["\<\ Define any other dynamic you want to use. When defining be sure you follow \ same style with previously defined dynamics. Otherwise, you may need to do \ major changes in the program.\ \>", "Text", CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Other", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5079830610005217`*^9, 3.5079830610455866`*^9}, { 3.5079833766944675`*^9, 3.507983376724511*^9}, {3.518945584429287*^9, 3.5189455883805127`*^9}}, CellTags->{"dynamicslibrary", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "Other", "]"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "Other", "]"}], "=", "\"\\""}], ";"}]}], "Input", CellChangeTimes->{{3.4925485608745975`*^9, 3.492548575836111*^9}, { 3.4933015281709886`*^9, 3.493301530884891*^9}, 3.5080247495827136`*^9, 3.508764061971781*^9, 3.508764093225586*^9, 3.5087650661982384`*^9, 3.5195536284003744`*^9}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Choice of contour function", "Section", Evaluatable->False, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[TextData[{ "Choose a contour function here. To use one of the built-in contour \ functions, press the button corresponding to the contour function you desire. \ If you choose StableGameLyapunov[dyn], the program will use the Lyapunov \ function that is appropriate for the dynamic you selected in the previous \ section. ", StyleBox["ContourFunction", FontWeight->"Bold"], " is used for phase diagrams drawn on the surface of the sphere (see the \ next section)." }], "Text", CellChangeTimes->{ 3.474715146409906*^9, {3.481416531351035*^9, 3.4814165322623453`*^9}, 3.4814188859167347`*^9, 3.4817354828638673`*^9, 3.481805550504736*^9, { 3.511176315523027*^9, 3.511176315524838*^9}, {3.513019637964099*^9, 3.5130196386751213`*^9}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "names", " ", ",", "buttons", ",", "col", ",", "colbut", ",", "name", ",", "but", ",", "button"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"names", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Speed", ",", "L1Speed", ",", "RSSpeed"}], "}"}], ",", RowBox[{"{", RowBox[{ "NormalFormPotential", ",", "CongestionPotential", ",", "NormalFormLogitPotential", ",", "CongestionLogitPotential"}], "}"}], ",", RowBox[{"{", RowBox[{"Defer", "[", RowBox[{"StableGameLyapunov", "[", "dyn", "]"}], "]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"col", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"col", "<=", RowBox[{ RowBox[{"Dimensions", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"colbut", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "col", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{"name", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "NotebookLocate", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"ToBoxes", "[", "name", "]"}], ",", "\"\<;\>\""}], "}"}], "]"}], ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"250", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"button", ",", RowBox[{"ControlsRendering", "\[Rule]", "\"\\""}]}], "]"}], "/.", RowBox[{"name", "->", RowBox[{ RowBox[{"names", "[", RowBox[{"[", "col", "]"}], "]"}], "[", RowBox[{"[", "but", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"colbut", "=", RowBox[{"Join", "[", RowBox[{"colbut", ",", RowBox[{"{", "button", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"buttons", "=", RowBox[{"Join", "[", RowBox[{"buttons", ",", RowBox[{"{", RowBox[{"Column", "[", "colbut", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"col", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"{", "buttons", "}"}], ",", RowBox[{"TableAlignments", "->", RowBox[{"{", RowBox[{"Center", ",", "Top"}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Row", "[", RowBox[{"buttons", ",", RowBox[{"Alignment", "->", RowBox[{"{", "Top", "}"}]}]}], "]"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"MatrixButtons", "[", "]"}]}], "Input", Evaluatable->False, CellOpen->False, CellChangeTimes->{{3.4813040162966223`*^9, 3.4813041889350376`*^9}, { 3.481304234246958*^9, 3.481304348854866*^9}, {3.4813044130259194`*^9, 3.4813044667127323`*^9}, {3.481304497212342*^9, 3.481304516258973*^9}, { 3.481304591711132*^9, 3.481304623616974*^9}, {3.481304658444653*^9, 3.481304715787669*^9}, {3.481304754318426*^9, 3.481304856879613*^9}, { 3.481304924394374*^9, 3.481304929097439*^9}, {3.4813049637844944`*^9, 3.481305049955267*^9}, {3.481305109251383*^9, 3.4813052103282137`*^9}, { 3.4813052726867905`*^9, 3.4813054179505563`*^9}, {3.4813054936370873`*^9, 3.481305606760639*^9}, {3.481305668931719*^9, 3.4813057399464345`*^9}, { 3.4813058200547843`*^9, 3.4813059389126377`*^9}, {3.481305992286955*^9, 3.4813059950056696`*^9}, {3.4813060594423447`*^9, 3.4813061026605415`*^9}, {3.4813061575348396`*^9, 3.4813061668159704`*^9}, 3.4813062421118817`*^9, 3.4813062726896152`*^9, {3.481306358922887*^9, 3.481306400750476*^9}, {3.481306526514491*^9, 3.4813065369518576`*^9}, { 3.4813065678420877`*^9, 3.481306572404529*^9}, 3.481306608185321*^9, { 3.4813066523878803`*^9, 3.481306668168928*^9}, {3.481306704777835*^9, 3.4813067154651976`*^9}, 3.481306939040461*^9, {3.4813069856961136`*^9, 3.4813069858836117`*^9}, 3.481307054163987*^9, {3.481307101772753*^9, 3.4813071138350983`*^9}, {3.481307407643838*^9, 3.4813077466394987`*^9}, { 3.4813077909826813`*^9, 3.48130781959169*^9}, {3.4813078599192986`*^9, 3.481307957918044*^9}, {3.481308040010743*^9, 3.481308046416911*^9}, 3.4813080794633636`*^9, 3.4813081524936786`*^9, {3.481308210524186*^9, 3.481308338163177*^9}, 3.4813083718189964`*^9, {3.4813085571447487`*^9, 3.481308586503748*^9}, {3.4813086184408393`*^9, 3.481308738251806*^9}, { 3.481308930858715*^9, 3.4813091517777624`*^9}, {3.4813091950740833`*^9, 3.481309202620862*^9}, {3.4813099727203794`*^9, 3.4813100351414557`*^9}, { 3.4813100751096935`*^9, 3.4813101295777464`*^9}, {3.481310159749235*^9, 3.4813101717647066`*^9}, {3.4813102025768123`*^9, 3.481310210326713*^9}, { 3.4813102772946057`*^9, 3.4813103037630167`*^9}, {3.4813103642778673`*^9, 3.4813104031523695`*^9}, {3.4813110125508194`*^9, 3.48131103905048*^9}, { 3.4813110842686515`*^9, 3.4813111395023193`*^9}, {3.4813117891346292`*^9, 3.481311813509317*^9}, {3.4813118455401573`*^9, 3.481311848555743*^9}, { 3.481311983491516*^9, 3.481311996303852*^9}, {3.481312245331915*^9, 3.481312262878565*^9}, {3.4813124766258287`*^9, 3.4813124780789356`*^9}, { 3.481312562234108*^9, 3.4813125631559715`*^9}, {3.481313376067441*^9, 3.4813133832704735`*^9}, {3.4813140008563185`*^9, 3.4813141425888796`*^9}, {3.481314173932228*^9, 3.4813141780571756`*^9}, { 3.481314220525382*^9, 3.4813142451031923`*^9}, {3.4813143191022453`*^9, 3.481314320055358*^9}, {3.481314353383056*^9, 3.481314360445466*^9}, { 3.4813144028980474`*^9, 3.481314405194893*^9}, {3.4813144915531626`*^9, 3.4813145915675077`*^9}, {3.4813146929724593`*^9, 3.481314706347288*^9}, { 3.4813148354706354`*^9, 3.4813148468611145`*^9}, {3.4813157963547544`*^9, 3.4813158533558493`*^9}, {3.481315901981783*^9, 3.481315960669737*^9}, { 3.481316084544737*^9, 3.481316093107237*^9}, {3.481316151857237*^9, 3.481316184232237*^9}, {3.481316289559544*^9, 3.481316322527872*^9}, { 3.4813163535431004`*^9, 3.481316372355359*^9}, {3.481316418932888*^9, 3.481316420276621*^9}, {3.4813164900569777`*^9, 3.481316570165327*^9}, { 3.48131666333601*^9, 3.481316718241557*^9}, 3.4813167995217667`*^9, { 3.4813168815207167`*^9, 3.4813168975517616`*^9}, {3.4813169714570656`*^9, 3.481316996425496*^9}, {3.4813170544403787`*^9, 3.481317077674456*^9}, { 3.481317108767808*^9, 3.4813171147208567`*^9}, {3.481317148236053*^9, 3.481317162079626*^9}, {3.4813172156883144`*^9, 3.4813172161570587`*^9}, { 3.4813172564065437`*^9, 3.4813172577815256`*^9}, {3.481317415967001*^9, 3.4813174182013474`*^9}, {3.481318095723925*^9, 3.481318181488452*^9}, 3.481318284596507*^9, {3.481318343611377*^9, 3.4813184077043066`*^9}, { 3.481318575702156*^9, 3.481318581561456*^9}, {3.4813186265921297`*^9, 3.4813186395294642`*^9}, {3.481319531174301*^9, 3.4813195706269207`*^9}, { 3.4813301870935183`*^9, 3.481330195575715*^9}, {3.481330234031011*^9, 3.481330240229925*^9}, {3.4813303413653507`*^9, 3.481330348635805*^9}, 3.481381740593504*^9, {3.48138186256188*^9, 3.4813818701868315`*^9}, 3.4814015869376*^9, {3.481405450326758*^9, 3.4814055598442364`*^9}, { 3.4814056617908287`*^9, 3.481405789714774*^9}, {3.4814058901191483`*^9, 3.4814059033681993`*^9}, {3.481405941803467*^9, 3.481405984975545*^9}, { 3.481406077548659*^9, 3.481406079601611*^9}, 3.481406131906822*^9, { 3.4814061894595785`*^9, 3.4814061927543163`*^9}, {3.481406239131003*^9, 3.481406257597556*^9}, {3.481406398980856*^9, 3.481406411659086*^9}, { 3.4814064803979273`*^9, 3.481406480728403*^9}, {3.481406518092129*^9, 3.4814066497113886`*^9}, {3.4814066834098444`*^9, 3.48140673647615*^9}, { 3.481408508784604*^9, 3.4814085588966618`*^9}, {3.481408601387761*^9, 3.481408603090209*^9}, {3.4814086420261965`*^9, 3.4814087494506655`*^9}, { 3.4814087986514125`*^9, 3.481408857345811*^9}, {3.4814089003977165`*^9, 3.4814089629676876`*^9}, 3.4814131600728283`*^9, 3.4814132208702507`*^9, { 3.4814132796547785`*^9, 3.481413291952462*^9}, {3.481413334613806*^9, 3.481413495364955*^9}, {3.4814135595772877`*^9, 3.4814136320014286`*^9}, { 3.4814137487793465`*^9, 3.481413779022835*^9}, {3.481414435946512*^9, 3.481414512348054*^9}, {3.4814148679674177`*^9, 3.48141493700995*^9}, { 3.481415020183816*^9, 3.4814150755877504`*^9}, {3.481415141352315*^9, 3.481415154190776*^9}, {3.4814151844943504`*^9, 3.4814152094502354`*^9}, { 3.481415278549595*^9, 3.4814152928501587`*^9}, {3.481415420553787*^9, 3.4814154999078927`*^9}, {3.481415562497893*^9, 3.481415584309256*^9}, { 3.481415703060011*^9, 3.481415703450573*^9}, 3.4814158990017614`*^9, { 3.4814171364611406`*^9, 3.4814171462952814`*^9}, {3.481424072987533*^9, 3.4814241197147236`*^9}, {3.4814832782005634`*^9, 3.4814832867829046`*^9}, {3.4816740331466303`*^9, 3.481674065713459*^9}, { 3.481674238521946*^9, 3.4816742890345793`*^9}, {3.481674331806082*^9, 3.481674340829056*^9}, {3.4816743915620065`*^9, 3.4816744212947598`*^9}, { 3.4816747202947006`*^9, 3.481674733964357*^9}, {3.4816747804011297`*^9, 3.481674900724146*^9}, 3.481735482883896*^9, {3.4817380541162148`*^9, 3.48173807889184*^9}, {3.48173811685643*^9, 3.4817381399496365`*^9}, { 3.48173818204016*^9, 3.4817381861360493`*^9}, 3.481805509315509*^9, { 3.4818056125139008`*^9, 3.4818056395427666`*^9}, {3.4818129093764095`*^9, 3.4818129153650208`*^9}, {3.507981923865402*^9, 3.5079819292431345`*^9}}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ ButtonBox["Speed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`Speed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["L1Speed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`L1Speed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["RSSpeed", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`RSSpeed], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ ButtonBox["NormalFormPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`NormalFormPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["CongestionPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`CongestionPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["NormalFormLogitPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`NormalFormLogitPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]}, { StyleBox[ ButtonBox["CongestionLogitPotential", Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[$CellContext`CongestionLogitPotential], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ ButtonBox[ RowBox[{"StableGameLyapunov", "[", "dyn", "]"}], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "contourfunction", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], RowBox[{"ContourFunction=", ToBoxes[ Defer[ $CellContext`StableGameLyapunov[$CellContext`dyn]]], ";"}], AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableAlignments -> {Center, Top}]]]], "Output", CellChangeTimes->{ 3.48142413463618*^9, 3.4814832925411844`*^9, {3.481674054998051*^9, 3.481674066785*^9}, {3.48167423987389*^9, 3.481674289715558*^9}, { 3.4816743936650305`*^9, 3.4816744225465603`*^9}, {3.481674800389872*^9, 3.4816748061281233`*^9}, {3.481674838624851*^9, 3.481674901515283*^9}, 3.4817381409510765`*^9, 3.4817381888799953`*^9, 3.4818056464527025`*^9}, CellTags->"corecell"] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"ContourFunction", "=", "Speed"}], ";"}]], "Input", CellChangeTimes->{{3.4814155235518913`*^9, 3.4814155237421646`*^9}, { 3.481415578280587*^9, 3.4814155786811633`*^9}, {3.481415708417715*^9, 3.481415721386363*^9}, 3.481415844563483*^9, {3.4817381544104304`*^9, 3.4817382113022366`*^9}, {3.481805514132435*^9, 3.481805530886526*^9}, { 3.481805655325461*^9, 3.481805657188139*^9}, 3.481849632859864*^9}, CellTags->{"contourfunction", "corecell"}], Cell[CellGroupData[{ Cell[TextData[StyleBox["Definitions of contour functions", FontSlant->"Italic"]], "SmallText", CellTags->{"contourfunctions", "corecell"}], Cell[CellGroupData[{ Cell["Speed functions", "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell["\<\ Speed is the standard (Euclidean) speed on the simplex. L1Speed is \ self-explanatory. RSSpeed is the speed of the replicator dynamic after \ solution trajectories have been moved to the sphere.\ \>", "Text", Evaluatable->False, FontFamily->"Palatino", CellTags->{"contourfunctions", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Speed", "[", "x_", "]"}], ":=", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"dyn", "===", " ", "Projec"}], ",", RowBox[{"Norm", "[", RowBox[{"PhiF", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}], ",", RowBox[{"Norm", "[", RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4747151530594673`*^9, 3.474715155923586*^9}, 3.474715275094946*^9, {3.4747153409997125`*^9, 3.4747153426320596`*^9}, { 3.4807883758124013`*^9, 3.480788398624317*^9}, {3.4809477948007536`*^9, 3.4809478121600175`*^9}, {3.4814188859267488`*^9, 3.4814188859467773`*^9}, {3.4817354828939104`*^9, 3.481735482903925*^9}, { 3.492820797185584*^9, 3.4928208951865025`*^9}, {3.4928209850056562`*^9, 3.492821069707451*^9}, {3.4928211021641216`*^9, 3.4928211027149134`*^9}, 3.492826146327272*^9, {3.4928263011398816`*^9, 3.492826304024029*^9}, { 3.492826609363085*^9, 3.4928266643821983`*^9}, {3.4928267125915203`*^9, 3.4928267262812047`*^9}, 3.5159567112361403`*^9}, CellTags->{"contourfunctions", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RSSpeed", "[", "x_", "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "Fh", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fh", "=", RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ RowBox[{"Fh", "[", RowBox[{"[", "j", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480947818878724*^9, 3.480947824597438*^9}, { 3.4928210758562927`*^9, 3.492821133368992*^9}, {3.492821287009917*^9, 3.4928212902045107`*^9}, {3.4928213894872723`*^9, 3.492821497222187*^9}, { 3.4928215378205647`*^9, 3.49282154632279*^9}, {3.4928215773273726`*^9, 3.492821604165965*^9}, {3.4928263078194866`*^9, 3.4928263108738785`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"L1Speed", "[", "x_", "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "Fh", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fh", "=", RowBox[{"Fhat", "[", RowBox[{"x", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], " ", RowBox[{ RowBox[{"Fh", "[", RowBox[{"[", "j", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480947818878724*^9, 3.480947824597438*^9}, { 3.4928210758562927`*^9, 3.492821133368992*^9}, {3.492821287009917*^9, 3.4928212902045107`*^9}, {3.4928213894872723`*^9, 3.492821497222187*^9}, { 3.4928215378205647`*^9, 3.49282154632279*^9}, {3.4928215773273726`*^9, 3.492821604165965*^9}, {3.4928263154604735`*^9, 3.4928263179340305`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"L1Speed", "[", "x_", "]"}], ":=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], ",", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474715343623485*^9, 3.4747153456363797`*^9}, { 3.480947828050541*^9, 3.4809478319880157`*^9}, {3.4814188859467773`*^9, 3.481418885956792*^9}, {3.4817354829539967`*^9, 3.481735482964011*^9}, { 3.492821702717675*^9, 3.492821750035715*^9}, {3.492826323612195*^9, 3.4928263366609583`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Potential functions", "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NormalFormPotential", "[", "x_", "]"}], ":=", RowBox[{".5", " ", RowBox[{"(", RowBox[{"x", ".", RowBox[{"(", RowBox[{"A", ".", "x"}], " ", ")"}]}], ")"}]}]}], " ", ";"}]], "Input",\ CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Trail", "[", RowBox[{"x_", ",", "eta_"}], "]"}], ":=", RowBox[{"eta", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "dim"], RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"Log", "[", RowBox[{"Max", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], "]"}], "]"}]}]}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.492821913320507*^9, 3.492821948170619*^9}, 3.492822504089992*^9, {3.5072093511932464`*^9, 3.5072093518541965`*^9}, { 3.50798306107563*^9, 3.5079830610906515`*^9}, {3.507983376754554*^9, 3.5079833767695756`*^9}, {3.507986176355237*^9, 3.507986181717948*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NormalFormLogitPotential", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{".5", " ", RowBox[{"(", RowBox[{"x", ".", RowBox[{"(", RowBox[{"A", ".", "x"}], " ", ")"}]}], ")"}]}], "-", RowBox[{"Trail", "[", RowBox[{"x", ",", "eta"}], "]"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.492821776313501*^9, {3.4928219657959633`*^9, 3.492821973557123*^9}, 3.5072093529457664`*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CongestionPotential", "[", "x_", "]"}], ":=", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"\[CapitalPhi]", "[", "j", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"u", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "j", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], ",", "x"}], "]"}]], RowBox[{ RowBox[{ RowBox[{"cost", "[", RowBox[{ RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "[", "z", "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}]}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4928220900546384`*^9, 3.4928220926383533`*^9}, { 3.5079830611056733`*^9, 3.507983061120695*^9}, {3.5079833767695756`*^9, 3.5079833767996187`*^9}, {3.5079862015164165`*^9, 3.5079862127225304`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CongestionLogitPotential", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"CongestionPotential", "[", "x", "]"}], "-", RowBox[{"Trail", "[", RowBox[{"x", ",", "eta"}], "]"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.492821829850483*^9, {3.492821871610531*^9, 3.492821900271744*^9}, { 3.4928219816587725`*^9, 3.492822047593582*^9}, {3.492822101491083*^9, 3.492822106508298*^9}, 3.5072093539872637`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Lyapunov functions", "Subsubsection", CellChangeTimes->{{3.4919262386780148`*^9, 3.491926239399051*^9}}, CellTags->{"contourfunctions", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Replicator", "]"}], "[", "x_", "]"}], ":=", RowBox[{"-", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "dim"], SuperscriptBox[ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"NEa", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}]]}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4928224614186335`*^9, 3.492822461749109*^9}, 3.507983061150738*^9, 3.50798337681464*^9, {3.5079862368021555`*^9, 3.507986241624089*^9}, 3.5106652236940928`*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", RowBox[{"Logit", "[", "eta", "]"}], "]"}], "[", "x_", "]"}], ":=", " ", RowBox[{ RowBox[{"eta", " ", RowBox[{"Log", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "dim"], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "eta"]]}], "]"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{"x", ".", RowBox[{"F", "[", "x", "]"}]}], "-", RowBox[{"Trail", "[", RowBox[{"x", ",", "eta"}], "]"}]}], ")"}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4928224760196285`*^9, {3.492822509928387*^9, 3.4928225205536656`*^9}, { 3.507209356440792*^9, 3.507209371983141*^9}, 3.507983061150738*^9, 3.5079833768446836`*^9, {3.5079862514482155`*^9, 3.5079862548130536`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "BNN", "]"}], "[", "x_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "dim"], SuperscriptBox[ RowBox[{ RowBox[{"Fhatplus", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "2"]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4928225343735375`*^9, 3.492822534724042*^9}, 3.5079830611807814`*^9, 3.507983376874727*^9, {3.50798626989474*^9, 3.5079862728990602`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Smith", "]"}], "[", "x_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "dim"], RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "dim"], SuperscriptBox[ RowBox[{"(", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"F", "[", "x", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", "0"}], "]"}], ")"}], "2"]}]}]}]}], " ", ";"}]], "Input", CellChangeTimes->{ 3.481247021952999*^9, {3.4928225575568733`*^9, 3.492822561853051*^9}, { 3.5079830611958027`*^9, 3.5079830612108245`*^9}, {3.50798337690477*^9, 3.5079833769348135`*^9}, {3.5079862808755293`*^9, 3.5079863041890526`*^9}, {3.507986373739061*^9, 3.507986379417226*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StableGameLyapunov", "[", "Projec", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"NEa", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.474715219835487*^9, {3.4928226601343727`*^9, 3.4928226749757137`*^9}, 3.5079830612258463`*^9, 3.507983376964856*^9, 3.510665224795676*^9, 3.5159567194426093`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Other contour functions", "Subsubsection", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell["Define your own contour function here.", "Text", FontFamily->"Palatino", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Other", "[", "x_", "]"}], ":=", "0"}], " ", ";"}]], "Input", CellChangeTimes->{{3.492826559751747*^9, 3.4928265625357504`*^9}}, CellTags->{"contourfunctions", "othercontour", "corecell"}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Specification of graphical output", "Section", Evaluatable->False, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["Specifications for phase diagram", "Subsection", CellChangeTimes->{{3.481670096105443*^9, 3.4816701004717216`*^9}, { 3.4818952324462385`*^9, 3.481895257672512*^9}}, CellTags->{"corecell", "opengroup"}], Cell[TextData[{ "These parameters are used for contour function output. If you do not \ include contour functions in your output, these parameters are not used.\n", StyleBox["drawphasediagram", FontWeight->"Bold"], " = 1 creates a phase diagram on the simplex. The solution trajectories to \ be included are specified below.\n", StyleBox["ppoints", FontWeight->"Bold"], " determines how many points will be used when drawing the solution \ trajectories. \n", StyleBox["pdcontourplot", FontWeight->"Bold"], " = 1 draws the phase diagram on top of a contour plot.\n", StyleBox["color", FontWeight->"Bold"], " = 1 generates color output; color = 0 generates black and white. The \ scales used are drawn below.\n", StyleBox["conbrightness", FontWeight->"Bold"], " specifies how light the black and white coloring should be. 1 is the \ default, 1.5 will give a balanced overall lighter image. The option is \ ineffective when color is selected.\n", StyleBox["plotprecision", FontWeight->"Bold"], " specifies the number of points sampled in each dimension when drawing the \ contour plots. Typically, this option is the main determinant of the \ program's running time. Settings between 50 and 200 are accurate enough for \ most purposes. For fast drafts a setting of 20 is adequate.\n", StyleBox["numberofcontours", FontWeight->"Bold"], " specifies the number of contour levels shown in the contour plots.\n", StyleBox["compressgraphic ", FontWeight->"Bold"], "= 1 uses an unofficial patch to generate a contour plot that is both of \ higher quality and smaller size (see \ http://library.wolfram.com/infocenter/MathSource/7029/ ). In particular, \ Mathematica\[CloseCurlyQuote]s routine for converting output into eps and pdf \ format works poorly unless this patch is used. Using this patch can \ substantially increase the program\[CloseCurlyQuote]s running time (say, by a \ factor of 5 or more), so it is typically used only to create figures for \ publication. If compressgraphic = 0, the original Mathematica code, which \ since version 6 has created lower-quality output, is used.\n" }], "Text", CellChangeTimes->{{3.480779243193115*^9, 3.4807792961292334`*^9}, 3.4807794713011184`*^9, {3.480779514703528*^9, 3.4807795412717314`*^9}, { 3.4807797587995887`*^9, 3.4807799035777693`*^9}, {3.4807799399500704`*^9, 3.4807799407712507`*^9}, {3.480780151674515*^9, 3.4807801526859694`*^9}, { 3.481756068394542*^9, 3.48175606959627*^9}, {3.4818061451898513`*^9, 3.481806188842621*^9}, {3.4818062519032974`*^9, 3.4818062577016354`*^9}, { 3.4919259064803376`*^9, 3.4919259068608847`*^9}, {3.4919260563057756`*^9, 3.4919260627650642`*^9}, {3.5100683019354763`*^9, 3.510068473377914*^9}, { 3.510068530424493*^9, 3.51006857697589*^9}, {3.510068612787033*^9, 3.510068703951317*^9}, {3.510068759140867*^9, 3.5100688299262753`*^9}, { 3.5100692555121937`*^9, 3.510069357549266*^9}, {3.511176334307261*^9, 3.511176581727478*^9}, 3.513021503086013*^9, {3.5194167157432723`*^9, 3.5194168216763315`*^9}, {3.5212851920957932`*^9, 3.5212852156631413`*^9}, 3.5212852464659033`*^9}, CellTags->"corecell"], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .10844 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.00258189 0.47619 [ [ 0 0 0 0 ] [ 1 .10844 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .10844 L 0 .10844 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00258189 0.477324 0.105858 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.942951 0.0337105 0.942951 [ [ 0 0 0 0 ] [ 1 .22772 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .22772 L 0 .22772 L closepath clip newpath 0 .1 1 r .02381 .03371 m .02381 .2223 L .03324 .2223 L .03324 .03371 L F 0 .145 1 r .03324 .03371 m .03324 .2223 L .04267 .2223 L .04267 .03371 L F 0 .19 1 r .04267 .03371 m .04267 .2223 L .0521 .2223 L .0521 .03371 L F 0 .235 1 r .0521 .03371 m .0521 .2223 L .06153 .2223 L .06153 .03371 L F 0 .28 1 r .06153 .03371 m .06153 .2223 L .07096 .2223 L .07096 .03371 L F 0 .325 1 r .07096 .03371 m .07096 .2223 L .08039 .2223 L .08039 .03371 L F 0 .37 1 r .08039 .03371 m .08039 .2223 L .08982 .2223 L .08982 .03371 L F 0 .415 1 r .08982 .03371 m .08982 .2223 L .09925 .2223 L .09925 .03371 L F 0 .46 1 r .09925 .03371 m .09925 .2223 L .10868 .2223 L .10868 .03371 L F 0 .505 1 r .10868 .03371 m .10868 .2223 L .1181 .2223 L .1181 .03371 L F 0 .55 1 r .1181 .03371 m .1181 .2223 L .12753 .2223 L .12753 .03371 L F 0 .595 1 r .12753 .03371 m .12753 .2223 L .13696 .2223 L .13696 .03371 L F 0 .64 1 r .13696 .03371 m .13696 .2223 L .14639 .2223 L .14639 .03371 L F 0 .685 1 r .14639 .03371 m .14639 .2223 L .15582 .2223 L .15582 .03371 L F 0 .73 1 r .15582 .03371 m .15582 .2223 L .16525 .2223 L .16525 .03371 L F 0 .775 1 r .16525 .03371 m .16525 .2223 L .17468 .2223 L .17468 .03371 L F 0 .82 1 r .17468 .03371 m .17468 .2223 L .18411 .2223 L .18411 .03371 L F 0 .865 1 r .18411 .03371 m .18411 .2223 L .19354 .2223 L .19354 .03371 L F 0 .91 1 r .19354 .03371 m .19354 .2223 L .20297 .2223 L .20297 .03371 L F 0 .955 1 r .20297 .03371 m .20297 .2223 L .2124 .2223 L .2124 .03371 L F 0 1 1 r .2124 .03371 m .2124 .2223 L .22183 .2223 L .22183 .03371 L F 0 1 .955 r .22183 .03371 m .22183 .2223 L .23126 .2223 L .23126 .03371 L F 0 1 .91 r .23126 .03371 m .23126 .2223 L .24069 .2223 L .24069 .03371 L F 0 1 .865 r .24069 .03371 m .24069 .2223 L .25012 .2223 L .25012 .03371 L F 0 1 .82 r .25012 .03371 m .25012 .2223 L .25955 .2223 L .25955 .03371 L F 0 1 .775 r .25955 .03371 m .25955 .2223 L .26898 .2223 L .26898 .03371 L F 0 1 .73 r .26898 .03371 m .26898 .2223 L .27841 .2223 L .27841 .03371 L F 0 1 .685 r .27841 .03371 m .27841 .2223 L .28784 .2223 L .28784 .03371 L F 0 1 .64 r .28784 .03371 m .28784 .2223 L .29727 .2223 L .29727 .03371 L F 0 1 .595 r .29727 .03371 m .29727 .2223 L .30669 .2223 L .30669 .03371 L F 0 1 .55 r .30669 .03371 m .30669 .2223 L .31612 .2223 L .31612 .03371 L F 0 1 .505 r .31612 .03371 m .31612 .2223 L .32555 .2223 L .32555 .03371 L F 0 1 .46 r .32555 .03371 m .32555 .2223 L .33498 .2223 L .33498 .03371 L F 0 1 .415 r .33498 .03371 m .33498 .2223 L .34441 .2223 L .34441 .03371 L F 0 1 .352 r .34441 .03371 m .34441 .2223 L .35384 .2223 L .35384 .03371 L F 0 1 .28 r .35384 .03371 m .35384 .2223 L .36327 .2223 L .36327 .03371 L F 0 1 .208 r .36327 .03371 m .36327 .2223 L .3727 .2223 L .3727 .03371 L F 0 1 .136 r .3727 .03371 m .3727 .2223 L .38213 .2223 L .38213 .03371 L F 0 1 .064 r .38213 .03371 m .38213 .2223 L .39156 .2223 L .39156 .03371 L F .008 1 0 r .39156 .03371 m .39156 .2223 L .40099 .2223 L .40099 .03371 L F .08 1 0 r .40099 .03371 m .40099 .2223 L .41042 .2223 L .41042 .03371 L F .152 1 0 r .41042 .03371 m .41042 .2223 L .41985 .2223 L .41985 .03371 L F .224 1 0 r .41985 .03371 m .41985 .2223 L .42928 .2223 L .42928 .03371 L F .296 1 0 r .42928 .03371 m .42928 .2223 L .43871 .2223 L .43871 .03371 L F .368 1 0 r .43871 .03371 m .43871 .2223 L .44814 .2223 L .44814 .03371 L F .44 1 0 r .44814 .03371 m .44814 .2223 L .45757 .2223 L .45757 .03371 L F .512 1 0 r .45757 .03371 m .45757 .2223 L .467 .2223 L .467 .03371 L F .584 1 0 r .467 .03371 m .467 .2223 L .47643 .2223 L .47643 .03371 L F .656 1 0 r .47643 .03371 m .47643 .2223 L .48586 .2223 L .48586 .03371 L F .728 1 0 r .48586 .03371 m .48586 .2223 L .49529 .2223 L .49529 .03371 L F .8 1 0 r .49529 .03371 m .49529 .2223 L .50471 .2223 L .50471 .03371 L F .824 1 0 r .50471 .03371 m .50471 .2223 L .51414 .2223 L .51414 .03371 L F .848 1 0 r .51414 .03371 m .51414 .2223 L .52357 .2223 L .52357 .03371 L F .872 1 0 r .52357 .03371 m .52357 .2223 L .533 .2223 L .533 .03371 L F .896 1 0 r .533 .03371 m .533 .2223 L .54243 .2223 L .54243 .03371 L F .92 1 0 r .54243 .03371 m .54243 .2223 L .55186 .2223 L .55186 .03371 L F .944 1 0 r .55186 .03371 m .55186 .2223 L .56129 .2223 L .56129 .03371 L F .968 1 0 r .56129 .03371 m .56129 .2223 L .57072 .2223 L .57072 .03371 L F .992 1 0 r .57072 .03371 m .57072 .2223 L .58015 .2223 L .58015 .03371 L F 1 .984 0 r .58015 .03371 m .58015 .2223 L .58958 .2223 L .58958 .03371 L F 1 .96 0 r .58958 .03371 m .58958 .2223 L .59901 .2223 L .59901 .03371 L F 1 .936 0 r .59901 .03371 m .59901 .2223 L .60844 .2223 L .60844 .03371 L F 1 .912 0 r .60844 .03371 m .60844 .2223 L .61787 .2223 L .61787 .03371 L F 1 .888 0 r .61787 .03371 m .61787 .2223 L .6273 .2223 L .6273 .03371 L F 1 .864 0 r .6273 .03371 m .6273 .2223 L .63673 .2223 L .63673 .03371 L F 1 .84 0 r .63673 .03371 m .63673 .2223 L .64616 .2223 L .64616 .03371 L F 1 .816 0 r .64616 .03371 m .64616 .2223 L .65559 .2223 L .65559 .03371 L F 1 .792 0 r .65559 .03371 m .65559 .2223 L .66502 .2223 L .66502 .03371 L F 1 .768 0 r .66502 .03371 m .66502 .2223 L .67445 .2223 L .67445 .03371 L F 1 .744 0 r .67445 .03371 m .67445 .2223 L .68388 .2223 L .68388 .03371 L F 1 .72 0 r .68388 .03371 m .68388 .2223 L .69331 .2223 L .69331 .03371 L F 1 .696 0 r .69331 .03371 m .69331 .2223 L .70273 .2223 L .70273 .03371 L F 1 .672 0 r .70273 .03371 m .70273 .2223 L .71216 .2223 L .71216 .03371 L F 1 .648 0 r .71216 .03371 m .71216 .2223 L .72159 .2223 L .72159 .03371 L F 1 .624 0 r .72159 .03371 m .72159 .2223 L .73102 .2223 L .73102 .03371 L F 1 .6 0 r .73102 .03371 m .73102 .2223 L .74045 .2223 L .74045 .03371 L F 1 .576 0 r .74045 .03371 m .74045 .2223 L .74988 .2223 L .74988 .03371 L F 1 .552 0 r .74988 .03371 m .74988 .2223 L .75931 .2223 L .75931 .03371 L F 1 .528 0 r .75931 .03371 m .75931 .2223 L .76874 .2223 L .76874 .03371 L F 1 .504 0 r .76874 .03371 m .76874 .2223 L .77817 .2223 L .77817 .03371 L F 1 .48 0 r .77817 .03371 m .77817 .2223 L .7876 .2223 L .7876 .03371 L F 1 .456 0 r .7876 .03371 m .7876 .2223 L .79703 .2223 L .79703 .03371 L F 1 .432 0 r .79703 .03371 m .79703 .2223 L .80646 .2223 L .80646 .03371 L F 1 .408 0 r .80646 .03371 m .80646 .2223 L .81589 .2223 L .81589 .03371 L F 1 .384 0 r .81589 .03371 m .81589 .2223 L .82532 .2223 L .82532 .03371 L F 1 .36 0 r .82532 .03371 m .82532 .2223 L .83475 .2223 L .83475 .03371 L F 1 .336 0 r .83475 .03371 m .83475 .2223 L .84418 .2223 L .84418 .03371 L F 1 .312 0 r .84418 .03371 m .84418 .2223 L .85361 .2223 L .85361 .03371 L F 1 .288 0 r .85361 .03371 m .85361 .2223 L .86304 .2223 L .86304 .03371 L F 1 .264 0 r .86304 .03371 m .86304 .2223 L .87247 .2223 L .87247 .03371 L F 1 .24 0 r .87247 .03371 m .87247 .2223 L .8819 .2223 L .8819 .03371 L F 1 .216 0 r .8819 .03371 m .8819 .2223 L .89132 .2223 L .89132 .03371 L F 1 .192 0 r .89132 .03371 m .89132 .2223 L .90075 .2223 L .90075 .03371 L F 1 .168 0 r .90075 .03371 m .90075 .2223 L .91018 .2223 L .91018 .03371 L F 1 .144 0 r .91018 .03371 m .91018 .2223 L .91961 .2223 L .91961 .03371 L F 1 .12 0 r .91961 .03371 m .91961 .2223 L .92904 .2223 L .92904 .03371 L F 1 .096 0 r .92904 .03371 m .92904 .2223 L .93847 .2223 L .93847 .03371 L F 1 .072 0 r .93847 .03371 m .93847 .2223 L .9479 .2223 L .9479 .03371 L F 1 .048 0 r .9479 .03371 m .9479 .2223 L .95733 .2223 L .95733 .03371 L F 1 .024 0 r .95733 .03371 m .95733 .2223 L .96676 .2223 L .96676 .03371 L F 1 0 0 r .96676 .03371 m .96676 .2223 L .97619 .2223 L .97619 .03371 L F 0 g .5 Mabswid [ ] 0 setdash .02381 .03371 m .02381 .04785 L s .1181 .03371 m .1181 .04785 L s .2124 .03371 m .2124 .04785 L s .30669 .03371 m .30669 .04785 L s .40099 .03371 m .40099 .04785 L s .49529 .03371 m .49529 .04785 L s .58958 .03371 m .58958 .04785 L s .68388 .03371 m .68388 .04785 L s .77817 .03371 m .77817 .04785 L s .87247 .03371 m .87247 .04785 L s .96676 .03371 m .96676 .04785 L s .49529 .03371 m .49529 .06671 L s .02381 .03371 m .02381 .06671 L s .96676 .03371 m .96676 .06671 L s gsave .02381 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .96676 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.00258189 0.97619 0.105858 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.942951 0.0337105 0.942951 [ [ 0 0 0 0 ] [ 1 .22772 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .22772 L 0 .22772 L closepath clip newpath .295 g .02381 .03371 m .02381 .2223 L .03324 .2223 L .03324 .03371 L F .301 g .03324 .03371 m .03324 .2223 L .04267 .2223 L .04267 .03371 L F .308 g .04267 .03371 m .04267 .2223 L .0521 .2223 L .0521 .03371 L F .314 g .0521 .03371 m .0521 .2223 L .06153 .2223 L .06153 .03371 L F .321 g .06153 .03371 m .06153 .2223 L .07096 .2223 L .07096 .03371 L F .328 g .07096 .03371 m .07096 .2223 L .08039 .2223 L .08039 .03371 L F .334 g .08039 .03371 m .08039 .2223 L .08982 .2223 L .08982 .03371 L F .341 g .08982 .03371 m .08982 .2223 L .09925 .2223 L .09925 .03371 L F .347 g .09925 .03371 m .09925 .2223 L .10868 .2223 L .10868 .03371 L F .354 g .10868 .03371 m .10868 .2223 L .1181 .2223 L .1181 .03371 L F .36 g .1181 .03371 m .1181 .2223 L .12753 .2223 L .12753 .03371 L F .367 g .12753 .03371 m .12753 .2223 L .13696 .2223 L .13696 .03371 L F .373 g .13696 .03371 m .13696 .2223 L .14639 .2223 L .14639 .03371 L F .38 g .14639 .03371 m .14639 .2223 L .15582 .2223 L .15582 .03371 L F .387 g .15582 .03371 m .15582 .2223 L .16525 .2223 L .16525 .03371 L F .393 g .16525 .03371 m .16525 .2223 L .17468 .2223 L .17468 .03371 L F .4 g .17468 .03371 m .17468 .2223 L .18411 .2223 L .18411 .03371 L F .406 g .18411 .03371 m .18411 .2223 L .19354 .2223 L .19354 .03371 L F .413 g .19354 .03371 m .19354 .2223 L .20297 .2223 L .20297 .03371 L F .419 g .20297 .03371 m .20297 .2223 L .2124 .2223 L .2124 .03371 L F .426 g .2124 .03371 m .2124 .2223 L .22183 .2223 L .22183 .03371 L F .432 g .22183 .03371 m .22183 .2223 L .23126 .2223 L .23126 .03371 L F .439 g .23126 .03371 m .23126 .2223 L .24069 .2223 L .24069 .03371 L F .446 g .24069 .03371 m .24069 .2223 L .25012 .2223 L .25012 .03371 L F .452 g .25012 .03371 m .25012 .2223 L .25955 .2223 L .25955 .03371 L F .459 g .25955 .03371 m .25955 .2223 L .26898 .2223 L .26898 .03371 L F .465 g .26898 .03371 m .26898 .2223 L .27841 .2223 L .27841 .03371 L F .472 g .27841 .03371 m .27841 .2223 L .28784 .2223 L .28784 .03371 L F .478 g .28784 .03371 m .28784 .2223 L .29727 .2223 L .29727 .03371 L F .485 g .29727 .03371 m .29727 .2223 L .30669 .2223 L .30669 .03371 L F .491 g .30669 .03371 m .30669 .2223 L .31612 .2223 L .31612 .03371 L F .498 g .31612 .03371 m .31612 .2223 L .32555 .2223 L .32555 .03371 L F .504 g .32555 .03371 m .32555 .2223 L .33498 .2223 L .33498 .03371 L F .511 g .33498 .03371 m .33498 .2223 L .34441 .2223 L .34441 .03371 L F .518 g .34441 .03371 m .34441 .2223 L .35384 .2223 L .35384 .03371 L F .524 g .35384 .03371 m .35384 .2223 L .36327 .2223 L .36327 .03371 L F .531 g .36327 .03371 m .36327 .2223 L .3727 .2223 L .3727 .03371 L F .537 g .3727 .03371 m .3727 .2223 L .38213 .2223 L .38213 .03371 L F .544 g .38213 .03371 m .38213 .2223 L .39156 .2223 L .39156 .03371 L F .55 g .39156 .03371 m .39156 .2223 L .40099 .2223 L .40099 .03371 L F .557 g .40099 .03371 m .40099 .2223 L .41042 .2223 L .41042 .03371 L F .563 g .41042 .03371 m .41042 .2223 L .41985 .2223 L .41985 .03371 L F .57 g .41985 .03371 m .41985 .2223 L .42928 .2223 L .42928 .03371 L F .577 g .42928 .03371 m .42928 .2223 L .43871 .2223 L .43871 .03371 L F .583 g .43871 .03371 m .43871 .2223 L .44814 .2223 L .44814 .03371 L F .59 g .44814 .03371 m .44814 .2223 L .45757 .2223 L .45757 .03371 L F .596 g .45757 .03371 m .45757 .2223 L .467 .2223 L .467 .03371 L F .603 g .467 .03371 m .467 .2223 L .47643 .2223 L .47643 .03371 L F .609 g .47643 .03371 m .47643 .2223 L .48586 .2223 L .48586 .03371 L F .616 g .48586 .03371 m .48586 .2223 L .49529 .2223 L .49529 .03371 L F .622 g .49529 .03371 m .49529 .2223 L .50471 .2223 L .50471 .03371 L F .629 g .50471 .03371 m .50471 .2223 L .51414 .2223 L .51414 .03371 L F .636 g .51414 .03371 m .51414 .2223 L .52357 .2223 L .52357 .03371 L F .642 g .52357 .03371 m .52357 .2223 L .533 .2223 L .533 .03371 L F .649 g .533 .03371 m .533 .2223 L .54243 .2223 L .54243 .03371 L F .655 g .54243 .03371 m .54243 .2223 L .55186 .2223 L .55186 .03371 L F .662 g .55186 .03371 m .55186 .2223 L .56129 .2223 L .56129 .03371 L F .668 g .56129 .03371 m .56129 .2223 L .57072 .2223 L .57072 .03371 L F .675 g .57072 .03371 m .57072 .2223 L .58015 .2223 L .58015 .03371 L F .681 g .58015 .03371 m .58015 .2223 L .58958 .2223 L .58958 .03371 L F .688 g .58958 .03371 m .58958 .2223 L .59901 .2223 L .59901 .03371 L F .694 g .59901 .03371 m .59901 .2223 L .60844 .2223 L .60844 .03371 L F .701 g .60844 .03371 m .60844 .2223 L .61787 .2223 L .61787 .03371 L F .708 g .61787 .03371 m .61787 .2223 L .6273 .2223 L .6273 .03371 L F .714 g .6273 .03371 m .6273 .2223 L .63673 .2223 L .63673 .03371 L F .721 g .63673 .03371 m .63673 .2223 L .64616 .2223 L .64616 .03371 L F .727 g .64616 .03371 m .64616 .2223 L .65559 .2223 L .65559 .03371 L F .734 g .65559 .03371 m .65559 .2223 L .66502 .2223 L .66502 .03371 L F .74 g .66502 .03371 m .66502 .2223 L .67445 .2223 L .67445 .03371 L F .747 g .67445 .03371 m .67445 .2223 L .68388 .2223 L .68388 .03371 L F .753 g .68388 .03371 m .68388 .2223 L .69331 .2223 L .69331 .03371 L F .76 g .69331 .03371 m .69331 .2223 L .70273 .2223 L .70273 .03371 L F .767 g .70273 .03371 m .70273 .2223 L .71216 .2223 L .71216 .03371 L F .773 g .71216 .03371 m .71216 .2223 L .72159 .2223 L .72159 .03371 L F .78 g .72159 .03371 m .72159 .2223 L .73102 .2223 L .73102 .03371 L F .786 g .73102 .03371 m .73102 .2223 L .74045 .2223 L .74045 .03371 L F .793 g .74045 .03371 m .74045 .2223 L .74988 .2223 L .74988 .03371 L F .799 g .74988 .03371 m .74988 .2223 L .75931 .2223 L .75931 .03371 L F .806 g .75931 .03371 m .75931 .2223 L .76874 .2223 L .76874 .03371 L F .812 g .76874 .03371 m .76874 .2223 L .77817 .2223 L .77817 .03371 L F .819 g .77817 .03371 m .77817 .2223 L .7876 .2223 L .7876 .03371 L F .826 g .7876 .03371 m .7876 .2223 L .79703 .2223 L .79703 .03371 L F .832 g .79703 .03371 m .79703 .2223 L .80646 .2223 L .80646 .03371 L F .839 g .80646 .03371 m .80646 .2223 L .81589 .2223 L .81589 .03371 L F .845 g .81589 .03371 m .81589 .2223 L .82532 .2223 L .82532 .03371 L F .852 g .82532 .03371 m .82532 .2223 L .83475 .2223 L .83475 .03371 L F .858 g .83475 .03371 m .83475 .2223 L .84418 .2223 L .84418 .03371 L F .865 g .84418 .03371 m .84418 .2223 L .85361 .2223 L .85361 .03371 L F .871 g .85361 .03371 m .85361 .2223 L .86304 .2223 L .86304 .03371 L F .878 g .86304 .03371 m .86304 .2223 L .87247 .2223 L .87247 .03371 L F .884 g .87247 .03371 m .87247 .2223 L .8819 .2223 L .8819 .03371 L F .891 g .8819 .03371 m .8819 .2223 L .89132 .2223 L .89132 .03371 L F .898 g .89132 .03371 m .89132 .2223 L .90075 .2223 L .90075 .03371 L F .904 g .90075 .03371 m .90075 .2223 L .91018 .2223 L .91018 .03371 L F .911 g .91018 .03371 m .91018 .2223 L .91961 .2223 L .91961 .03371 L F .917 g .91961 .03371 m .91961 .2223 L .92904 .2223 L .92904 .03371 L F .924 g .92904 .03371 m .92904 .2223 L .93847 .2223 L .93847 .03371 L F .93 g .93847 .03371 m .93847 .2223 L .9479 .2223 L .9479 .03371 L F .937 g .9479 .03371 m .9479 .2223 L .95733 .2223 L .95733 .03371 L F .943 g .95733 .03371 m .95733 .2223 L .96676 .2223 L .96676 .03371 L F .95 g .96676 .03371 m .96676 .2223 L .97619 .2223 L .97619 .03371 L F .2 0 1 r .5 Mabswid [ ] 0 setdash .02381 .03371 m .02381 .04785 L s .1181 .03371 m .1181 .04785 L s .2124 .03371 m .2124 .04785 L s .30669 .03371 m .30669 .04785 L s .40099 .03371 m .40099 .04785 L s .49529 .03371 m .49529 .04785 L s .58958 .03371 m .58958 .04785 L s .68388 .03371 m .68388 .04785 L s .77817 .03371 m .77817 .04785 L s .87247 .03371 m .87247 .04785 L s .96676 .03371 m .96676 .04785 L s .49529 .03371 m .49529 .06671 L s .02381 .03371 m .02381 .06671 L s .96676 .03371 m .96676 .06671 L s 0 g gsave .02381 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .96676 .00542 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{507.438, 55}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt2l9IXmUcB/DX36muughdtW6WRXXTTRExgroKkhBNFFNEN940/2xo4h8U UUQTRTRRRLSJiM6UoThNFFFsQ3RiiuYUM0UTczhNFHHRxRa/nu95z94WSfiy Msiv8Pu+j895fs85r+ecz5Uh7qzkT1PdWSnx7sCgDHd6ckp8ZuAHn2WYKcvP 5fK773K5zge6MFYzdML+eYBwfnHGZ/AhWHMboycxevGIuec8ywPsjyfUu6U9 65q3P61Hp13njr+Um//d5n/connv6KUj5s56ltu9zt199ohd/Y+YCzjmuuPO Pc5+x+0NdObeeuTvGHDEnP8x5x6n95/ez7nzntvneVZcL5jhq3aZu/0G4l01 f5EgjCIQFxCXENmIIm9npelqsMusv4pj1xFDiFuIOcQq4i6W3PN24vR6D2WO 6V3EKmIOcQsxZNbrdYyuIhq8nZWmilCYzkZcQsRgfRBGbyNeRjwj9gPs6Txj Jl7zlKXvqEs0GHEBkY74HFGH6EAMmS7PgzGtdpm52zjwA+JHxB3Ez4gDxK/Y +TeM9P7Ds+ovpvbtMtPbiJ8Qq4jvzXr9DqNvEWOIb7ydg6a+tstMd2HpVxg1 I75E1CK+QJQhih5er+aZysL1mjSRhkhGfIKIRXyM+AjxIXZ+33vW90ydt8sc exPxOuIVxDnEWaz3x+hpxFPes3peoT+9PsHBwSizLiQkRDQ0NFQ0LCxMNDw8 XDQiIkI0MjJSNCoqytLo6GjRmJgYcyXojY2N1bi4OJToxYsXRd1ut2h8fLxo QkKCpYmJiaJJSUmiKSkpopcvX3Y6U1NTNS0tDWVubXq6aEZGhqWZmZmi2dnm kcnJyRHNzc0VzcvLE83Pz3eut6CgQAsLC831mhQtKjIPWXFxsWhJSYloaWmp aFlZmWh5ebloRUWFpZWVlc5Zq6qqtLq6GiVaU1MjWltbax6oujrR+vp60YaG BkuvXLki2tjYKNrU1OR0Njc3a0tLC0q0tbVVtK2tTbS9vd3Sjo4O0WvXrol2 dnaKdnV1iXZ3dzudPT092tvbi7K0r69PtL+/X3RgYEB0cHDQPMRDQ6LDw8Oi IyMjojdu3HC+6c2bN1Hmm46OjoqOjY2Jjo+Pi05MTIhOTk6KTk1NiU5PT1s6 MzMjOjs765x1bm5O5+fnUaILCwuii4uLoktLS6LLy8uWrqysiK6umjd6bW1N dH193enc2NjQzc1NlHl77tyxdGtrS3R7e1t0Z2dHdHd3V3Rvb090f3/fvFYH B871Hh4eEjACRsAIGAEjYASMgBEwAkbACBgBI2AnD5jALvEFLnBix7HBQlSK L1AJjJKTAkpgk/gCk8Ak8QUkgUWWLwwJBJL/kh+BPOILOwJxxBduBNJYviAj 8EVOBheBK+ILKhYs8YkSgSLiCyECPYR0kA7SQTpIB+kgHaSDdJAO0kE6/u90 CNSQ00iGBSlOJRSCu2//T58FFU4lCgIP5DRiIHDgeRJAAkgACSABJIAEkAAS QAJIAAkgASSABJAAEkACSAAJIAEkgASQABJAAkgACSABJIAEkAASQAJIAAkg ASSABJAAEkACSAAJIAEkgASQABJAAkgACSABJIAEkAASQAJIAAkgASSABJAA EkACSAAJIAEkgASQABJAAkgACSABJIAEkAASQAJIAAkgASSABJAAEkACSAAJ IAEkgASQABJAAkgACSABJIAEkAASQAJIAAkgASSABJAAEkACSAAJIAEkgASQ ABJAAkgACSABJIAEkAASQAJIAAkgASSABPy7BCD1wV/HLr/fAfvUOTY=\ \>"], ImageRangeCache->{{{0, 506.438}, {54, 0}} -> {-0.0678623, -0.00542311, 0.00421716, 0.00421716}, {{16.0625, 241.875}, {52.6875, 1.25}} -> {-0.100692, -0.0419516, 0.00469642, 0.00469642}, {{264.5, 490.313}, {52.6875, 1.25}} -> {-1.26746, -0.0419516, 0.00469642, 0.00469642}}]], "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"drawphasediagram", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ppoints", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pdcontourplot", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"color", "=", "1"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conbrightness", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotprecision", "=", "10"}], ";"}], "\n", RowBox[{ RowBox[{"numberofcontours", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"compressgraphic", " ", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.481806280424309*^9, 3.481806282507304*^9}, { 3.4818063574951315`*^9, 3.4818063682706256`*^9}, {3.4818908249685974`*^9, 3.48189083860821*^9}, {3.4885768700276413`*^9, 3.4885768707486777`*^9}, 3.491925934530672*^9, 3.491926043767747*^9, {3.4922641205846014`*^9, 3.492264120851182*^9}, {3.492281395059047*^9, 3.492281410260906*^9}, 3.492286630783717*^9, 3.492297153935402*^9, {3.5061812789763684`*^9, 3.5061812792768*^9}, {3.510068289177514*^9, 3.510068292042533*^9}, 3.510068713377421*^9, 3.5130268339300256`*^9, {3.5130268810177345`*^9, 3.5130268830907154`*^9}, {3.5192924812876534`*^9, 3.519292481527667*^9}, { 3.5193816914781847`*^9, 3.5193816917632008`*^9}, {3.51941560584579*^9, 3.519415608347933*^9}, 3.5194157881532173`*^9, 3.519416385575388*^9, 3.5194164874482145`*^9, {3.5194167057657013`*^9, 3.519416711592035*^9}, { 3.51941680417033*^9, 3.5194168075645237`*^9}, 3.5194200153079967`*^9, { 3.5194613167703047`*^9, 3.519461327157899*^9}, 3.521051310767626*^9, 3.521051367066846*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Solution trajectories", "Subsubsection", CellChangeTimes->{{3.4818065979508896`*^9, 3.4818065990524735`*^9}}, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell["\<\ Instructions for \"automated\" specification of solution trajectories\ \>", "SmallText", CellTags->"corecell"], Cell[TextData[{ "This section specifies the solution trajectories to be included in the \ phase diagram using built-in specifications. These are of three types:\n(i) \ initial conditions drawn from a grid, with the grid including points on the \ boundary (i.e., the dots in the diagram below); \n(ii) initial conditions \ drawn from a grid, with the grid excluding points on the boundary (i.e., the \ \"x\"s in the diagram below);\n(iii) randomly chosen initial conditions. \n\ To use one of these options, press the appropriate palette button.\n", StyleBox["endtime", FontWeight->"Bold"], " determines the time interval [0, endtime] of each solution. \nFor the \ grid options, ", StyleBox["gridpoints1dtr", FontWeight->"Bold"], " specifies the number of initial conditions on each boundary of the grid. \ \nFor the random option, ", StyleBox["randompoints", FontWeight->"Bold"], " specifies the number of random initial conditions.\n", StyleBox["numberofarrows", FontWeight->"Bold"], " specifies how many arrows to draw on each solution. \n", StyleBox["arrowheadlength", FontWeight->"Bold"], " is self-explanatory; it can be set to zero if arrowheads are not desired. \ \nIf numberofarrows = 1 is specified, the arrow appears at the end of each \ solution trajectory. If numberofarrows = n, arrows are drawn at times \ {endtime/n, 2 endtime/n, ... , endtime}. For more on how arrows are drawn, \ see \"Adjusting positions of arrow heads and 'tails'\" below." }], "Text", CellChangeTimes->{ 3.481424833766508*^9, {3.4818092562232976`*^9, 3.4818092563935423`*^9}, 3.513021798180338*^9}, TextAlignment->Left, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .86788 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0303841 0.939232 0.0272383 0.939232 [ [ 0 0 0 0 ] [ 1 .86788 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .86788 L 0 .86788 L closepath clip newpath 0 g .03038 .02724 m .03038 .02724 .00657 0 365.73 arc F .12431 .02724 m .12431 .02724 .00657 0 365.73 arc F .21823 .02724 m .21823 .02724 .00657 0 365.73 arc F .31215 .02724 m .31215 .02724 .00657 0 365.73 arc F .40608 .02724 m .40608 .02724 .00657 0 365.73 arc F .5 .02724 m .5 .02724 .00657 0 365.73 arc F .59392 .02724 m .59392 .02724 .00657 0 365.73 arc F .68785 .02724 m .68785 .02724 .00657 0 365.73 arc F .78177 .02724 m .78177 .02724 .00657 0 365.73 arc F .87569 .02724 m .87569 .02724 .00657 0 365.73 arc F .96962 .02724 m .96962 .02724 .00657 0 365.73 arc F .07735 .10858 m .07735 .10858 .00657 0 365.73 arc F .17127 .10858 m .17127 .10858 .00657 0 365.73 arc F .26519 .10858 m .26519 .10858 .00657 0 365.73 arc F .35912 .10858 m .35912 .10858 .00657 0 365.73 arc F .45304 .10858 m .45304 .10858 .00657 0 365.73 arc F .54696 .10858 m .54696 .10858 .00657 0 365.73 arc F .64088 .10858 m .64088 .10858 .00657 0 365.73 arc F .73481 .10858 m .73481 .10858 .00657 0 365.73 arc F .82873 .10858 m .82873 .10858 .00657 0 365.73 arc F .92265 .10858 m .92265 .10858 .00657 0 365.73 arc F .12431 .18992 m .12431 .18992 .00657 0 365.73 arc F .21823 .18992 m .21823 .18992 .00657 0 365.73 arc F .31215 .18992 m .31215 .18992 .00657 0 365.73 arc F .40608 .18992 m .40608 .18992 .00657 0 365.73 arc F .5 .18992 m .5 .18992 .00657 0 365.73 arc F .59392 .18992 m .59392 .18992 .00657 0 365.73 arc F .68785 .18992 m .68785 .18992 .00657 0 365.73 arc F .78177 .18992 m .78177 .18992 .00657 0 365.73 arc F .87569 .18992 m .87569 .18992 .00657 0 365.73 arc F .17127 .27126 m .17127 .27126 .00657 0 365.73 arc F .26519 .27126 m .26519 .27126 .00657 0 365.73 arc F .35912 .27126 m .35912 .27126 .00657 0 365.73 arc F .45304 .27126 m .45304 .27126 .00657 0 365.73 arc F .54696 .27126 m .54696 .27126 .00657 0 365.73 arc F .64088 .27126 m .64088 .27126 .00657 0 365.73 arc F .73481 .27126 m .73481 .27126 .00657 0 365.73 arc F .82873 .27126 m .82873 .27126 .00657 0 365.73 arc F .21823 .3526 m .21823 .3526 .00657 0 365.73 arc F .31215 .3526 m .31215 .3526 .00657 0 365.73 arc F .40608 .3526 m .40608 .3526 .00657 0 365.73 arc F .5 .3526 m .5 .3526 .00657 0 365.73 arc F .59392 .3526 m .59392 .3526 .00657 0 365.73 arc F .68785 .3526 m .68785 .3526 .00657 0 365.73 arc F .78177 .3526 m .78177 .3526 .00657 0 365.73 arc F .26519 .43394 m .26519 .43394 .00657 0 365.73 arc F .35912 .43394 m .35912 .43394 .00657 0 365.73 arc F .45304 .43394 m .45304 .43394 .00657 0 365.73 arc F .54696 .43394 m .54696 .43394 .00657 0 365.73 arc F .64088 .43394 m .64088 .43394 .00657 0 365.73 arc F .73481 .43394 m .73481 .43394 .00657 0 365.73 arc F .31215 .51528 m .31215 .51528 .00657 0 365.73 arc F .40608 .51528 m .40608 .51528 .00657 0 365.73 arc F .5 .51528 m .5 .51528 .00657 0 365.73 arc F .59392 .51528 m .59392 .51528 .00657 0 365.73 arc F .68785 .51528 m .68785 .51528 .00657 0 365.73 arc F .35912 .59662 m .35912 .59662 .00657 0 365.73 arc F .45304 .59662 m .45304 .59662 .00657 0 365.73 arc F .54696 .59662 m .54696 .59662 .00657 0 365.73 arc F .64088 .59662 m .64088 .59662 .00657 0 365.73 arc F .40608 .67796 m .40608 .67796 .00657 0 365.73 arc F .5 .67796 m .5 .67796 .00657 0 365.73 arc F .59392 .67796 m .59392 .67796 .00657 0 365.73 arc F .45304 .7593 m .45304 .7593 .00657 0 365.73 arc F .54696 .7593 m .54696 .7593 .00657 0 365.73 arc F .5 .84064 m .5 .84064 .00657 0 365.73 arc F gsave .07735 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .92265 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .12431 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .87569 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .78641 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 Mabswid [ ] 0 setdash .03038 .02724 m .5 .84064 L .96962 .02724 L .03038 .02724 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{282.5, 245.125}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlnF1sFFUUx28/+BQQxLZAwVZBQEAQEBAQKggFlSIIiAgISy20fBXaAgIi HwKiYHwyxgdjjDHGJ2N8MMYYY4xPxidjjDHGJ2N8MMYYYnxad+demmHyO9M7 Z2a3qPvQnfn///fcc+7OnnPv3Nm25Hra2w7kejpac42runKH2jtauxubO7sK UFWFMRXjjDFXG03xOF84dH+CV33xjzvJ4HhQ8a2qaL+u92hM8aiy90jEIi08 rAy2nQ60oRSA4SHU15Xk3ca4MiR4C5C8e9mDaiBcm6FSm0oghujb3CS1iWBD ZXl1b+QFwo15cFYrETXZtcjQVPIWg+WBGiYNVAgz1y6WCFaXQpemra+OwrYX RuG71nfYxbNoV8WzaFdJdGna+uoGAjZMDjv40v0vvxYxAzUCqL8BG66S3wzU X4CNUMlHAnUVMGvWjALqT8BGquS3APUHYKNU8tFA/Q6YNWtuBeo3wEbr5b6V WjmlqIl2FYiq89eu/+rrG9bFYpEWEYy7ShSB7zjU2q5qYWx/Bcx5RrnvF8Cc dUqfPwNWp5KPBUqccNyY6TB5i0EQ9Bh5PAZEMGP6b26QZg7hQhznEWI+33/z gDTzhbFyiMEl8F++qmPGox6onwCz42bGA/UjYPUq+QSgfgBsvEp+G1DfAzZB JW8A6jvArFnTCNS3gDWo5LcD9Q1gjXp56sJPZXNitIM05Z5a3OETQZpbEC6C STB6XwOmk98J1FeATVLJJwOVvPDfmCsnqu92eMwUKewMa2/W9Z3CmSyH41vL +2vtT3XKhTMVKHGd/y+7KOljmSKH/aUsvwuoLwCbqpJPA+pzwKxZMx2ozwCb ppLPAOpTwKar5HcD9QlgM1TymUB9DJg1a2YB9RFgM0PySNHyKGnUIqiZs0JO Z7guD5tNNJmIL9n3WLOzYXw+BMzJ5wD1AWCzVfK5QL0P2BxZXo4CXOI666K7 V4quxLUyTU2dK7uedU3Nun461+cBVY76WeIyaT8RMx+o9wCbp5IvAOpdwOar 5PcB9Q5gC1TyhUC9DZg1axYB9RZgC1XyxUC9Cdgilfx+oN4AbHHIeuql5ZJQ 32IF9cC8jMUX8EhJdMaWwgi8DpiTNwH1GmBLVfIHgHoVsCZZnuGed4n3o10Q y6QglDUr63u/dpDNcg83i2flWBtSHVsmu5nhfm+Jb7q6IB4E6hXAlqvkK4B6 GTBr1qwE6jJgK1TyZqBeBGylSr4KqBcAa1bJVwN1ATBr1jwE1POArVbJgzfl ouvhUI++1SSC9WXCY43mTDwCMZ4GzMnXAHUKMGvWtAB1ErA1KvlaoMTdo/7a r2yRfS3Hc1BUY5xLj3q4VDwrx37gWtmlfn1+KMbXdUAdAczGZNYD1Q3YOpX8 MaAOA7ZeJd8AVCdg1qzZCNQBwDao5JuA2gfYRpX8caA6ANsUkos5lpL45mhD 31VOTMP4GsQNPVYvT9iGWyD8VsB08ieBygG2RZYP6PW4dBNLyqPOpa2SSxku H6h7OxRmm0f3eSEVp7mVtVXuvhyPcMS4tF2krse2qeRPAUXX/HaVfAdQmwGz Zs1OoCjj7VDJ6XtItWCnSr4LKCp7OZWcUg5NL3aF5B4T6LaoPD4LP43WxSzs 5G3gp/j1rUQHd4Oc1jhOvgcoWp/tVsnbgcpwC4Wm3Xvknn1zs28edl3RLCHN dgQluHa5q+Q5N1FqdT3vBYpuqVkPcaLVBNhelXw/UEsA26eS0xSU7oHvV8kP AkW7A9YszrZpZ+OgSn4IKNqi6lTJg4WFODPuCtkUZ8GHQyIxjTpLtEqiPXud vAcoet6gWyWn9WPyRElJyjpijkodeORDMntENuub+yh7O7PHgEq+TUrp7Kjc AT2q5eTPAEWP8x1TyY8DNREwa9acAIoeHT2uktNttwbATqjkzwJFzw+fVMnp hiQ9WW3NmueAop8XnArJI+nsdKjjyFzwdJ+tzkBfNYDp5GeBop81WbPmHFD0 k6yzslxMWJRAnB261U55iUyck01QDqJ840ycB0rMN5RWrA+4LUG/GD6vkl8E in5afUElpx0YGrKLKvkloOhDsmZxs6kKsEsq+Uuu+xBl+cLrsrckut1WpK6E qIC5EjJXnY9RBCYy+F8DpuIfVmOEAA==\ \>"], ImageRangeCache->{{{76.875, 301.875}, {255.938, 60.875}} -> {-0.397098, 0.259369, 0.00378972, 0.00378972}}]], "Input", Evaluatable->False, CellChangeTimes->{{3.4814248536891623`*^9, 3.4814248536891623`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Instructions for \"manual\" specification of solution trajectories\ \>", "SmallText", CellTags->"corecell"], Cell[TextData[{ "The user can also specify which solution trajectories to graph directly. \ To do this, ", "trajectoryspecs", " must be defined as a table of the following form: {{{initial condition 1}, \ T1, {color1, thickness1, dashing1},{Arrow positions 1}, {Head lengths 1}}, \ {{initial condition 2}, T2, {color2, thickness2, dashing2}, {Arrow positions \ 2}, {Head lengths 2}}, ... }\nEach initial condition is entered as a vector \ in the simplex (e.g.,{1/3, 1/3, 1/3}). Ti determines time interval [0, Ti] \ of the ith solution. Arrow positions i and Head lengths i should be vectors \ of the same length, where this length is the number of arrowheads to be drawn \ on the solution trajectory. Arrow positions are stated as points in the time \ interval [0, Ti]. For no arrows, set Arrow positions i and Head lengths i to \ {0}. \n\n{color", StyleBox["i, ", FontSlant->"Italic"], StyleBox["thickness", FontVariations->{"CompatibilityType"->0}], StyleBox["i,", FontSlant->"Italic"], StyleBox[" dashing", FontVariations->{"CompatibilityType"->0}], StyleBox["i", FontSlant->"Italic"], "} specifies the appearance of solutions trajectories. You can specify any \ collection of graphics primitives you like (even ones beyond the three \ mentioned here), and you can place them in any order. To use the default \ appearance, write {}. \ncolor", StyleBox["i", FontSlant->"Italic"], " can be Hue[?], GrayLevel[?] or any other color command.\nthickness", StyleBox["i", FontSlant->"Italic"], " can be Thickness[?] or AbsoluteThickness[?].\ndashing", StyleBox["i", FontSlant->"Italic"], " is specified as Dashing[{???}]. " }], "Text", CellChangeTimes->{ 3.4817566837694077`*^9, {3.521285283322011*^9, 3.521285334371931*^9}}, CellTags->"corecell"] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"endtime", "=", "1"}], ";"}], "\n", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gridpoints1dtr", "=", "6"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"randompoints", "=", "6"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numberofarrows", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"arrowheadlength", "=", ".025"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{ 3.481809280788621*^9, 3.5134232572399387`*^9, 3.513423396507904*^9, { 3.5136206174134245`*^9, 3.5136206290470905`*^9}, {3.515957283776887*^9, 3.5159572851439657`*^9}, 3.515958930041048*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"MatrixButtons", "[", "rowsize_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "namesl", ",", "textsl", ",", "discard", ",", "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[{"{", "\[IndentingNewLine]", RowBox[{ "\"\\"", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\"", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", "\"\\""}], "\[IndentingNewLine]", "}"}]}], ";", "\[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", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"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", "[", "namesl", "]"}], "[", 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", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "text", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{ 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.4818472323981695`*^9, 3.4818473124933405`*^9}, {3.481847364648336*^9, 3.4818474569710894`*^9}, { 3.507981953563105*^9, 3.507981966646919*^9}, {3.5079865809770546`*^9, 3.5079866832591286`*^9}, {3.507986721714425*^9, 3.5079867637448616`*^9}, { 3.5079868085843377`*^9, 3.507986986620341*^9}, {3.5079870295520735`*^9, 3.507987181899712*^9}, {3.507987333026555*^9, 3.5079873437946544`*^9}, { 3.5105193489668736`*^9, 3.510519350999797*^9}, {3.510519404586851*^9, 3.510519410515376*^9}, {3.5117094690182247`*^9, 3.511709486092777*^9}, { 3.5117095343822136`*^9, 3.511709551416708*^9}, {3.511709796353978*^9, 3.511709826327078*^9}, {3.511715675478099*^9, 3.5117156806054716`*^9}, { 3.519324618693808*^9, 3.5193246409330797`*^9}, {3.519324753375511*^9, 3.519324841867573*^9}}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary included)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs =Module[{ds,arrows,arrowheads}, \ \[IndentingNewLine]ds=DiscSimplex[gridpoints1dtr-1,dim];\[IndentingNewLine]\ arrows=Table[((numberofarrows - j + \ 1)*endtime)/numberofarrows,{j,numberofarrows}];\[IndentingNewLine]arrowheads=\ ConstantArray[arrowheadlength,numberofarrows];\[IndentingNewLine]Table[{ds[[j]\ ],endtime,{Black},arrows,arrowheads},{j,Dimensions[ds][[1]]}]\ \[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary excluded)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs =Module[{ds,arrows,arrowheads}, \ \[IndentingNewLine]ds=DiscSimplex[gridpoints1dtr,dim];\[IndentingNewLine]ds=\ ds+1/(dim*gridpoints1dtr);\[IndentingNewLine]ds=Table[Append[Drop[ds[[j]],-1],\ ds[[j,dim]]-1/gridpoints1dtr],{j,Dimensions[ds][[1]]}];ds=DeleteCases[Table[\ If[Min[ds[[j]]]<0,Infinity,ds[[j]]],{j,Dimensions[ds][[1]]}],Infinity];\ \[IndentingNewLine]arrows=Table[((numberofarrows - j + \ 1)*endtime)/numberofarrows,{j,numberofarrows}];\[IndentingNewLine]arrowheads=\ ConstantArray[arrowheadlength,numberofarrows];\[IndentingNewLine]Table[{ds[[j]\ ],endtime,{Black},arrows,arrowheads},{j,Dimensions[ds][[1]]}]\ \[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Random initial conditions\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "trajectoryspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "trajectoryspecs=Module[{ds,arrows,arrowheads}, \ \[IndentingNewLine]ds=SampleAround[ConstantArray[1/dim,dim],1,randompoints];\ \[IndentingNewLine]arrows=Table[((numberofarrows - j + \ 1)*endtime)/numberofarrows,{j,numberofarrows}];\[IndentingNewLine]arrowheads=\ ConstantArray[arrowheadlength,numberofarrows];\[IndentingNewLine]Table[{ds[[j]\ ],endtime,{Black},arrows,arrowheads},{j,Dimensions[ds][[1]]}]\ \[IndentingNewLine]];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", CellChangeTimes->{3.5193249288785496`*^9}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ RowBox[{ RowBox[{"trajectoryspecs", " ", "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ds", ",", "arrows", ",", "arrowheads"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ds", "=", RowBox[{"DiscSimplex", "[", RowBox[{ RowBox[{"gridpoints1dtr", "-", "1"}], ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ "numberofarrows", " ", "-", " ", "j", " ", "+", " ", "1"}], ")"}], "*", "endtime"}], ")"}], "/", "numberofarrows"}], ",", RowBox[{"{", RowBox[{"j", ",", "numberofarrows"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrowheads", "=", RowBox[{"ConstantArray", "[", RowBox[{"arrowheadlength", ",", "numberofarrows"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ds", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "endtime", ",", RowBox[{"{", "Black", "}"}], ",", "arrows", ",", "arrowheads"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "ds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4817567343220987`*^9, 3.481807372905219*^9, {3.5079235560433884`*^9, 3.507923564725873*^9}, {3.507925809258556*^9, 3.507925810690615*^9}, { 3.5079874903813033`*^9, 3.5079875239621964`*^9}, {3.510519362265997*^9, 3.5105193631672926`*^9}, 3.5117094969584007`*^9, {3.51170973474539*^9, 3.5117097378097963`*^9}, {3.51938224492784*^9, 3.5193822963247795`*^9}, { 3.519382334668973*^9, 3.5193823723791294`*^9}, {3.5193832967460003`*^9, 3.5193833046814547`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->{"degisken", "trajectoryspecs", "corecell"}] }, Open ]], Cell[CellGroupData[{ Cell["Tuning rest point search", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ StyleBox["RestSearchInit", FontWeight->"Bold"], " contains the initial conditions used in the FindRoot command when the \ program searches for rest points. If you suspect that the program has missed \ some rest points, add initial conditions in the regions where the missing \ rest points should be. Each initial condition is written as {x1, x2}; x3 is \ computed as 1 - x1 - x2.\n", StyleBox["RestTolerance", FontWeight->"Bold"], " is a parameter in a filtering procedure used to eliminate false rest \ points. If the speed of the dynamic at a prospective rest point is above \ (RestTolerance) * (the maximum speed of the dynamic), the prospective rest \ point is thrown out." }], "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"RestSearchInit", "=", RowBox[{"DiscSimplex", "[", RowBox[{"10", ",", "dim", ",", "True", ",", ".01"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RestSearchInit", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"dim", "-", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RestSearchInit", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".98", ",", ".01"}], "}"}], ",", RowBox[{"{", RowBox[{".54", ",", ".27"}], "}"}], ",", RowBox[{"{", RowBox[{".7", ",", ".3"}], "}"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",\ CellChangeTimes->{{3.480922639796361*^9, 3.480922673983642*^9}, { 3.480922804389057*^9, 3.4809229535131025`*^9}, {3.480922984231656*^9, 3.480923055090578*^9}, {3.4809230871372476`*^9, 3.4809232712766943`*^9}, { 3.4809234030414762`*^9, 3.4809235202126007`*^9}, {3.4809236287275314`*^9, 3.4809237248362913`*^9}, {3.4926953249263363`*^9, 3.4926953254771285`*^9}, {3.4928139689319696`*^9, 3.492814011423069*^9}, { 3.492814079571061*^9, 3.4928141143510723`*^9}, {3.492817964131853*^9, 3.4928179664251504`*^9}, {3.4928180248591747`*^9, 3.4928180553830657`*^9}, {3.492818088240312*^9, 3.492818089712429*^9}, { 3.492818168435627*^9, 3.4928181695972977`*^9}, {3.492818218307339*^9, 3.4928183427162304`*^9}, {3.492818377205824*^9, 3.492818451172182*^9}, 3.492827194714779*^9, {3.507981971333658*^9, 3.50798197163409*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"RestTolerance", "=", ".01"}], " ", ";"}]], "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Tuning stability tests", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ "The first four parameters determine how rest points are checked for \ stability. The parameter ", StyleBox["numtest", FontWeight->"Bold"], " specifies how many trajectories will be checked. These initial conditions \ are random points at distance ", StyleBox["eps", FontWeight->"Bold"], " from the rest point. Solutions from these points over the time interval \ [0, ", StyleBox["bigT", FontWeight->"Bold"], "] are computed. If any of these solutions winds up more than ", StyleBox["delta", FontWeight->"Bold"], " away from the rest point, the rest point is considered unstable; otherwise \ it is considered stable. Notice that ", StyleBox["eps ", FontWeight->"Bold"], "should be large relative to ", StyleBox["delta", FontWeight->"Bold"], " and at least four times as big for the algorithm to work properly.\n\n\ Extra notes: if ", StyleBox["delta", FontWeight->"Bold"], " is set too small, stable restpoints wont be detected unless ", StyleBox["bigT", FontWeight->"Bold"], " is large giving time for the trajectories to converge. However, for large \ values of ", StyleBox["bigT", FontWeight->"Bold"], " the algorithm will tend to interpret saddles as sources, although this is \ a distinction of secondary importance in general, so that in principle a safe \ way to run the algorithm is with relatively large values of ", StyleBox["eps", FontWeight->"Bold"], " compared with ", StyleBox["delta", FontWeight->"Bold"], " and a generous time span ", StyleBox["bigT", FontWeight->"Bold"], ". There is a way to differentiate sources from saddles and cycles. Notice \ that there will be an inevitable computational burden since this distinction \ will require large values for ", StyleBox["numtest", FontWeight->"Bold"], " so that even for a large ", StyleBox["bigT", FontWeight->"Bold"], " after enough sampling around the restpoint at least one of the sampled \ surrounding starting conditions will be close enough to the direction that \ converges to the restpoint and stay in it's proximity in spite of the large \ time span. To have the algorithm determine ", "whether", " a restpoint is a sink, a source, a cycle or a saddle the \ NumericStabilityTest[] routine is available. Evaluate \ NumericStabilityTest::notes to learn about its arguments, and \ ?NumericStabilityTest for its general definition and output values." }], "Text", CellChangeTimes->{{3.4928856154045706`*^9, 3.492885721637326*^9}, { 3.492885788121913*^9, 3.4928860704940248`*^9}, {3.4928861138864202`*^9, 3.4928864044942937`*^9}, {3.492886440556148*^9, 3.4928857544456997`*^9}, { 3.4928859920723906`*^9, 3.4928859973750153`*^9}, {3.492886520772624*^9, 3.492886568060621*^9}, {3.4928866139065437`*^9, 3.4928866272156816`*^9}, { 3.521285369708952*^9, 3.521285396506485*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Palatino", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"numtest", "=", "10"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eps", "=", ".01"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"delta", "=", ".0025"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bigT", "=", "10"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{ 3.4928838040627327`*^9, {3.4928839440340014`*^9, 3.492883949622037*^9}, { 3.492885561517084*^9, 3.4928855948950796`*^9}, {3.4928857740277257`*^9, 3.4928857914889655`*^9}, 3.4932705602640047`*^9, {3.4932902238639407`*^9, 3.4932902240942717`*^9}, 3.4932902739359407`*^9, {3.4932903619024305`*^9, 3.4932903646664047`*^9}, 3.493290559396413*^9, 3.4932906137645903`*^9, { 3.4932915007299843`*^9, 3.49329150113056*^9}, 3.5211498178374615`*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Adjusting positions of arrow heads and \"tails\"", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ "To draw an arrow, the program must know where to put the tail of the arrow \ and where to put the head. Even if one does not want the base of the arrow \ to appear in the picture, its position of the tail must be specified so that \ the arrow points in the right direction. \nThe parameter ", StyleBox["relarrowbase", FontWeight->"Bold"], " below determines the positions of arrows' tails relative to their heads \ when arrows are drawn on solution trajectories. In particular, if an arrow \ is supposed to appear at a solution trajectory's position at time t, the \ program draws the head at this point, placing the tail at the solution \ trajectory's position at time (t \[Dash] endtime/relarrowbase). \nA value of \ .008 for relarrowbase works well in most cases: the arrow base is not \ visible, and the arrow points in the right direction. If arrow bases are \ visible, a smaller value of relarrowbase should be specified. If arrows \ point in the wrong directions, a larger value of relarrowbase should be \ chosen.\nThe parameter ", StyleBox["arrowheadcenter", FontWeight->"Bold"], " specifies the location of the center of the arrowheads' bases as a \ fraction of the arrowheads' lengths." }], "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"relarrowbase", "=", ".005"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowheadcenter", "=", ".8"}], " ", ";"}]}], "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Adding extra graphic elements", "Subsubsection", CellTags->{"extragraphicselements", "corecell"}], Cell[TextData[{ "This section allows the user to add dots, lines, arrows, text, and color \ solution trajectories to a phase diagram/contour plot.\n\nEnter the data for \ dots as follows: ", StyleBox["customdots", FontWeight->"Bold"], " = {{center1, radius1, color1, open1}, {center2, radius2, color2, open2}, \ ...}. color1 should be a ", StyleBox["Mathematica", FontSlant->"Italic"], "-defined color function (Hue[.], GrayLevel[.], etc). Set open1 = 0 for \ solid dot and = 1 for a dot with a white center.\n \nEnter the data for lines \ as follows: ", StyleBox["customlines", FontWeight->"Bold"], " = {{startingpoint1, endpoint1, thickness1, dashing1, color1, \ arrowheadlength1}, {startingpoint2, endpoint2, thickness2, dashing2, color2, \ arrowheadlength2},...}. If you want an arrow at the end of the line enter \ the value for arrowheadlength specifying the size of arrow head; if you do \ not want an arrow simply set it to 0. Thickness and Dashing are usual ", StyleBox["Mathematica ", FontSlant->"Italic"], "commands. If you want to enter position using simplex coordinates, you can \ directly enter the value (e.g.,{0, 1, 0}). Otherwise, 2d coordinates can \ must be used with \"PlaneToSimplex\" command: for example, the bottom-left \ vertex is at PlaneToSimplex[{0, 0}] (={0,1,0}).\n\nEnter data for text as \ follows: ", StyleBox["customtext ", FontWeight->"Bold"], "= {{\"label1\", position1, \"fontfamily1\",\"fontslant1\", fontsize1}, \ {\"label2\", position2, \"fontfamily2\",\"fontslant2\", fontsize2}, ...}. \ Remember that you are restricted to positions in the surroundings of the \ simplex. If you want to enter position using simplex coordinates, use the \ \"SimplexToPlane\" command (e.g., SimplexToPlane[{0, 1, 0}]). \n\nEnter data \ for extra solution trajectories as follows: ", StyleBox["customtrajectoryspecs ", FontWeight->"Bold"], "= {{initial condition on simplex 1, endtime1 for NDSolve, beginningtime1 to \ be used in in the plot, {color1, thickness1}, {arrow position1}, {head \ lengths1}}, {initial condition on simplex 2, endtime2 for NDSolve, \ beginningtime2 to be used in in the plot, {color2, thickness2}, {arrow \ position2}, {head lengths2}},...}. \nThe program computes a solution to the \ dynamic from time 0 through endtime?, and then plots the solution trajectory \ from the ", "beginning ", "time? through endtime. color? should be a ", StyleBox["Mathematica", FontSlant->"Italic"], "-defined color function (Hue[.], GrayLevel[.], etc) (both color and \ thickness can be ignored, just write {} if you do not want to bother with \ these. arrowpositon? must be a number strictly greater than beginingtime? \ and less than endtime (it must be strictly bigger than begining time). Each \ trajectory can have multiple arrows, but even if there is only one arrow, be \ sure to put brackets around the arrow positions and head lengths.\n\nWrite \ customdots = {}, customlines = {}, customtext = {}, and \ customtrajectoryspecs = {} if you do not want to add anything. (This is the \ default setting.)" }], "Text", CellChangeTimes->{{3.481758323757595*^9, 3.4817583519681597`*^9}, { 3.4817584052647963`*^9, 3.481758449087811*^9}, {3.481758479571645*^9, 3.481758491468752*^9}, {3.4817585233145437`*^9, 3.4817585430629406`*^9}, 3.4818174985127053`*^9, 3.4818175879412975`*^9, {3.492692899083375*^9, 3.492692909157861*^9}, {3.5189480745547137`*^9, 3.518948079218981*^9}, { 3.5189481666509814`*^9, 3.518948212098581*^9}, {3.5212854599821157`*^9, 3.521285471367767*^9}}, CellTags->{"extragraphicselements", "corecell"}], Cell["\<\ Example: This example generates one line, one dot, and one piece of text, \ one special solution trajectory (customtrajectoryspecs). customdots={{{1/3, 1/3, 1/3}, .01, GrayLevel[0], 1}} ; [draws a black dot \ with white center at the center of the simplex] customlines={{{1/2, 0, 1/2},{1/2, 1/2, 0}, Thickness[.004], Dashing[{}], \ GrayLevel[0], 0}} ; [draws a horizontal line through at x1=1/2] customtext={{\"trial\", SimplexToPlane[{1/3, 1/3, 1/3}], \"Palatino-Roman\", \ \"Plain\", 12}} ; customtrajectoryspecs={{{.8, .1, .1}, 50, 45, {Hue[.83], Thickness[.005]}, \ {47}, {.03}}} ; \ \>", "Text", CellChangeTimes->{ 3.4817583537306943`*^9, {3.481758420306425*^9, 3.481758450039179*^9}, 3.481758492129702*^9, {3.481758544304726*^9, 3.4817585454163246`*^9}, 3.481817499754491*^9, {3.4926929131335783`*^9, 3.492692917149352*^9}}, CellTags->{"extragraphicselements", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{"customdots", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customlines", "=", RowBox[{"{", "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customtext", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"customtrajectoryspecs", "=", RowBox[{"{", "}"}]}], " ", ";"}]}], "Input", CellChangeTimes->{ 3.4817583548923645`*^9, {3.481758425403755*^9, 3.4817584509805326`*^9}, 3.481758493010969*^9, 3.481758546387721*^9, 3.4926929185313396`*^9, 3.513423299643364*^9, {3.5134233347303705`*^9, 3.5134233700823927`*^9}, 3.5134234334720182`*^9, 3.513423630441284*^9, 3.513424327461152*^9, { 3.513424415422183*^9, 3.513424423684655*^9}, {3.513424596629547*^9, 3.513424619392849*^9}, {3.5134246558659353`*^9, 3.5134246687016697`*^9}, { 3.513424715343337*^9, 3.513424719300564*^9}, {3.5134248058885164`*^9, 3.51342488043978*^9}, {3.5134249130356445`*^9, 3.513424925941383*^9}, { 3.5134249580552197`*^9, 3.5134249727300587`*^9}, {3.513425004708888*^9, 3.5134250100751953`*^9}, {3.513425053794696*^9, 3.5134250563828435`*^9}, { 3.5134251338502746`*^9, 3.51342515649257*^9}, {3.51342520528036*^9, 3.513425205509373*^9}, {3.5136180986033573`*^9, 3.5136181036106434`*^9}, 3.5159571167613344`*^9, {3.519140756403737*^9, 3.5191407620890617`*^9}, { 3.51938347122598*^9, 3.519383484087716*^9}, {3.5193838258042607`*^9, 3.5193838315495896`*^9}, {3.519383886493732*^9, 3.51938389170603*^9}, { 3.519383957707805*^9, 3.51938405657146*^9}, {3.5193840993609076`*^9, 3.519384176708331*^9}, {3.519384247568384*^9, 3.5193843204735546`*^9}, { 3.519384351236314*^9, 3.5193843856552825`*^9}, {3.519384441868498*^9, 3.5193845971203775`*^9}, {3.5193848036981936`*^9, 3.5193848389002066`*^9}, {3.519384894124365*^9, 3.5193849355487347`*^9}, { 3.5193850042026615`*^9, 3.519385012418131*^9}, {3.5193850430348825`*^9, 3.5193850759117627`*^9}, {3.5193851517110987`*^9, 3.519385454292405*^9}, { 3.5193858517061357`*^9, 3.519385886655135*^9}, {3.5193944736130953`*^9, 3.519394499972603*^9}, {3.51941538818434*^9, 3.519415499641715*^9}, { 3.519461260784103*^9, 3.519461271592721*^9}}, CellTags->{"extragraphicselements", "corecell"}], Cell[CellGroupData[{ Cell[TextData[{ "These are extra, less used parameters that are used for displaying ", "accessory", " elements in the contour function. If you do not include contour functions \ in your output, these parameters are not used.\n", StyleBox["colorbar", FontWeight->"Bold"], " = 1 to create a color scale (alternatively, a black and white scale) along \ with your contour plot.\n", StyleBox["showcontourformula", FontWeight->"Bold"], " = 1 displays the formula for the contour function in the output notebook.\n\ ", StyleBox["drawbasinboundaries", FontWeight->"Bold"], " =1 displays the approximate separatrices of the basins of attraction. \ (This code is work in progress!)" }], "Text", CellChangeTimes->{{3.480779243193115*^9, 3.4807792961292334`*^9}, 3.4807794713011184`*^9, {3.480779514703528*^9, 3.4807795412717314`*^9}, { 3.4807797587995887`*^9, 3.4807799035777693`*^9}, {3.4807799399500704`*^9, 3.4807799407712507`*^9}, {3.480780151674515*^9, 3.4807801526859694`*^9}, { 3.481756068394542*^9, 3.48175606959627*^9}, {3.481806079305114*^9, 3.481806116598739*^9}, {3.4818067166716013`*^9, 3.481806733405664*^9}, { 3.488629870402668*^9, 3.4886299270340996`*^9}, {3.491922128653241*^9, 3.491922130706193*^9}, {3.4934739429800673`*^9, 3.49347394635492*^9}, { 3.5100694090881863`*^9, 3.51006944594421*^9}, 3.5212855026315546`*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"colorbar", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"showcontourformula", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"drawbasinboundaries", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.480779208673478*^9, 3.4807792403690543`*^9}, { 3.480779912300312*^9, 3.480779956343643*^9}, {3.480780155029339*^9, 3.4807802069740314`*^9}, {3.4808105872656336`*^9, 3.480810604312072*^9}, { 3.481299367902998*^9, 3.481299371371703*^9}, {3.4813361046496577`*^9, 3.4813361051496515`*^9}, {3.4817562146147966`*^9, 3.48175621514556*^9}, { 3.4818061298678193`*^9, 3.481806133673291*^9}, {3.4886298483409443`*^9, 3.488629868459874*^9}, {3.4886362734449067`*^9, 3.4886362738554974`*^9}, { 3.4919221436147547`*^9, 3.4919221451069*^9}, {3.492036264958202*^9, 3.4920362687736883`*^9}, {3.493473954566728*^9, 3.4934739572305584`*^9}, 3.5061732398757734`*^9, 3.506181069995869*^9, 3.5072102857421293`*^9, 3.5072190262709846`*^9, 3.5072283404178286`*^9, 3.5072289220561843`*^9, 3.5079233029194136`*^9, 3.508763813146513*^9, {3.51929252038889*^9, 3.5192925276253033`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Specifications for other graphics", "Subsection", CellChangeTimes->{{3.4816700653812637`*^9, 3.4816700693269377`*^9}, 3.4818952670660195`*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Vector field diagram", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ StyleBox["drawvectorfield", FontWeight->"Bold"], " = 1 draws a vector field diagram on the simplex. The vector fields should \ take values in the tangent space of the simplex (i.e., values whose \ components sum to zero). \n", StyleBox["vfcontourplot", FontWeight->"Bold"], " = 1 draws the vector field on top of a contour plot." }], "Text", CellChangeTimes->{{3.4919249177486115`*^9, 3.491924943705936*^9}, 3.491925714784693*^9, {3.491926010069291*^9, 3.491926010610069*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"drawvectorfield", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vfcontourplot", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4749167511883984`*^9, 3.474916751699133*^9}, { 3.4919249232465167`*^9, 3.4919249460392914`*^9}, 3.491925720623088*^9, 3.491925989459656*^9, 3.492286619036826*^9, 3.493474032839278*^9, 3.5061810066047173`*^9, {3.519292618252487*^9, 3.519292618852522*^9}, { 3.519381721959928*^9, 3.5193817331955705`*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Instructions for specification of vector fields", "SmallText", CellTags->"corecell"], Cell[TextData[{ "Either one or two vector fields is drawn, according to whether ", StyleBox["drawvectorfield1", FontWeight->"Bold"], ", ", StyleBox["drawvectorfield2", FontWeight->"Bold"], ", or both are set to 1.\n", StyleBox["vectorfield?", FontWeight->"Bold"], " specifies the vector field to be drawn. (Here and below, \"?\" equals 1 \ or 2.) Common specifications for this are ", "dyn", " (the dynamic specified in the \"Choice of dynamic\" section) and PhiF (the \ projection of the payoff vector field onto the tangent space of the simplex - \ see \"Payoff-related definitions\" in the \"Choice of game\"section).\n", StyleBox["scale?", FontWeight->"Bold"], " rescales the vectors, as is often needed to prevent the vector field \ arrows from being too long. The program calibrates the output so that \ setting scale1 = scale2 makes the longest vector in each vector field have \ the same length.\n", StyleBox["vf?thickness", FontWeight->"Bold"], " is the thickness of the \"shafts\" of the arrows.\n", StyleBox["arrowheadlengtsvf?", FontWeight->"Bold"], " is self-explanatory; set it to zero if you do not want arrowheads.\n", StyleBox["colorvf?", FontWeight->"Bold"], " determines the color of the vector field. It should be set to Hue[t] or \ GrayLevel[t] using the charts below." }], "Text", CellChangeTimes->{3.474715351404674*^9, 3.4814188859868355`*^9, 3.481735483034112*^9}, CellTags->"corecell"], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .13736 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.00327054 0.47619 [ [ 0 0 0 0 ] [ 1 .13736 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .13736 L 0 .13736 L closepath clip newpath % Start of sub-graphic p 0.0238095 0.00327054 0.477324 0.134092 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.961538 0.0480769 0.961538 [ [ 0 0 0 0 ] [ 1 .28846 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .28846 L 0 .28846 L closepath clip newpath 1 0 0 r .01923 .04808 m .01923 .24038 L .02019 .24038 L .02019 .04808 L F 1 .006 0 r .02019 .04808 m .02019 .24038 L .02115 .24038 L .02115 .04808 L F 1 .012 0 r .02115 .04808 m .02115 .24038 L .02212 .24038 L .02212 .04808 L F 1 .018 0 r .02212 .04808 m .02212 .24038 L .02308 .24038 L .02308 .04808 L F 1 .024 0 r .02308 .04808 m .02308 .24038 L .02404 .24038 L .02404 .04808 L F 1 .03 0 r .02404 .04808 m .02404 .24038 L .025 .24038 L .025 .04808 L F 1 .036 0 r .025 .04808 m .025 .24038 L .02596 .24038 L .02596 .04808 L F 1 .042 0 r .02596 .04808 m .02596 .24038 L .02692 .24038 L .02692 .04808 L F 1 .048 0 r .02692 .04808 m .02692 .24038 L .02788 .24038 L .02788 .04808 L F 1 .054 0 r .02788 .04808 m .02788 .24038 L .02885 .24038 L .02885 .04808 L F 1 .06 0 r .02885 .04808 m .02885 .24038 L .02981 .24038 L .02981 .04808 L F 1 .066 0 r .02981 .04808 m .02981 .24038 L .03077 .24038 L .03077 .04808 L F 1 .072 0 r .03077 .04808 m .03077 .24038 L .03173 .24038 L .03173 .04808 L F 1 .078 0 r .03173 .04808 m .03173 .24038 L .03269 .24038 L .03269 .04808 L F 1 .084 0 r .03269 .04808 m .03269 .24038 L .03365 .24038 L .03365 .04808 L F 1 .09 0 r .03365 .04808 m .03365 .24038 L .03462 .24038 L .03462 .04808 L F 1 .096 0 r .03462 .04808 m .03462 .24038 L .03558 .24038 L .03558 .04808 L F 1 .102 0 r .03558 .04808 m .03558 .24038 L .03654 .24038 L .03654 .04808 L F 1 .108 0 r .03654 .04808 m .03654 .24038 L .0375 .24038 L .0375 .04808 L F 1 .114 0 r .0375 .04808 m .0375 .24038 L .03846 .24038 L .03846 .04808 L F 1 .12 0 r .03846 .04808 m .03846 .24038 L .03942 .24038 L .03942 .04808 L F 1 .126 0 r .03942 .04808 m .03942 .24038 L .04038 .24038 L .04038 .04808 L F 1 .132 0 r .04038 .04808 m .04038 .24038 L .04135 .24038 L .04135 .04808 L F 1 .138 0 r .04135 .04808 m .04135 .24038 L .04231 .24038 L .04231 .04808 L F 1 .144 0 r .04231 .04808 m .04231 .24038 L .04327 .24038 L .04327 .04808 L F 1 .15 0 r .04327 .04808 m .04327 .24038 L .04423 .24038 L .04423 .04808 L F 1 .156 0 r .04423 .04808 m .04423 .24038 L .04519 .24038 L .04519 .04808 L F 1 .162 0 r .04519 .04808 m .04519 .24038 L .04615 .24038 L .04615 .04808 L F 1 .168 0 r .04615 .04808 m .04615 .24038 L .04712 .24038 L .04712 .04808 L F 1 .174 0 r .04712 .04808 m .04712 .24038 L .04808 .24038 L .04808 .04808 L F 1 .18 0 r .04808 .04808 m .04808 .24038 L .04904 .24038 L .04904 .04808 L F 1 .186 0 r .04904 .04808 m .04904 .24038 L .05 .24038 L .05 .04808 L F 1 .192 0 r .05 .04808 m .05 .24038 L .05096 .24038 L .05096 .04808 L F 1 .198 0 r .05096 .04808 m .05096 .24038 L .05192 .24038 L .05192 .04808 L F 1 .204 0 r .05192 .04808 m .05192 .24038 L .05288 .24038 L .05288 .04808 L F 1 .21 0 r .05288 .04808 m .05288 .24038 L .05385 .24038 L .05385 .04808 L F 1 .216 0 r .05385 .04808 m .05385 .24038 L .05481 .24038 L .05481 .04808 L F 1 .222 0 r .05481 .04808 m .05481 .24038 L .05577 .24038 L .05577 .04808 L F 1 .228 0 r .05577 .04808 m .05577 .24038 L .05673 .24038 L .05673 .04808 L F 1 .234 0 r .05673 .04808 m .05673 .24038 L .05769 .24038 L .05769 .04808 L F 1 .24 0 r .05769 .04808 m .05769 .24038 L .05865 .24038 L .05865 .04808 L F 1 .246 0 r .05865 .04808 m .05865 .24038 L .05962 .24038 L .05962 .04808 L F 1 .252 0 r .05962 .04808 m .05962 .24038 L .06058 .24038 L .06058 .04808 L F 1 .258 0 r .06058 .04808 m .06058 .24038 L .06154 .24038 L .06154 .04808 L F 1 .264 0 r .06154 .04808 m .06154 .24038 L .0625 .24038 L .0625 .04808 L F 1 .27 0 r .0625 .04808 m .0625 .24038 L .06346 .24038 L .06346 .04808 L F 1 .276 0 r .06346 .04808 m .06346 .24038 L .06442 .24038 L .06442 .04808 L F 1 .282 0 r .06442 .04808 m .06442 .24038 L .06538 .24038 L .06538 .04808 L F 1 .288 0 r .06538 .04808 m .06538 .24038 L .06635 .24038 L .06635 .04808 L F 1 .294 0 r .06635 .04808 m .06635 .24038 L .06731 .24038 L .06731 .04808 L F 1 .3 0 r .06731 .04808 m .06731 .24038 L .06827 .24038 L .06827 .04808 L F 1 .306 0 r .06827 .04808 m .06827 .24038 L .06923 .24038 L .06923 .04808 L F 1 .312 0 r .06923 .04808 m .06923 .24038 L .07019 .24038 L .07019 .04808 L F 1 .318 0 r .07019 .04808 m .07019 .24038 L .07115 .24038 L .07115 .04808 L F 1 .324 0 r .07115 .04808 m .07115 .24038 L .07212 .24038 L .07212 .04808 L F 1 .33 0 r .07212 .04808 m .07212 .24038 L .07308 .24038 L .07308 .04808 L F 1 .336 0 r .07308 .04808 m .07308 .24038 L .07404 .24038 L .07404 .04808 L F 1 .342 0 r .07404 .04808 m .07404 .24038 L .075 .24038 L .075 .04808 L F 1 .348 0 r .075 .04808 m .075 .24038 L .07596 .24038 L .07596 .04808 L F 1 .354 0 r .07596 .04808 m .07596 .24038 L .07692 .24038 L .07692 .04808 L F 1 .36 0 r .07692 .04808 m .07692 .24038 L .07788 .24038 L .07788 .04808 L F 1 .366 0 r .07788 .04808 m .07788 .24038 L .07885 .24038 L .07885 .04808 L F 1 .372 0 r .07885 .04808 m .07885 .24038 L .07981 .24038 L .07981 .04808 L F 1 .378 0 r .07981 .04808 m .07981 .24038 L .08077 .24038 L .08077 .04808 L F 1 .384 0 r .08077 .04808 m .08077 .24038 L .08173 .24038 L .08173 .04808 L F 1 .39 0 r .08173 .04808 m .08173 .24038 L .08269 .24038 L .08269 .04808 L F 1 .396 0 r .08269 .04808 m .08269 .24038 L .08365 .24038 L .08365 .04808 L F 1 .402 0 r .08365 .04808 m .08365 .24038 L .08462 .24038 L .08462 .04808 L F 1 .408 0 r .08462 .04808 m .08462 .24038 L .08558 .24038 L .08558 .04808 L F 1 .414 0 r .08558 .04808 m .08558 .24038 L .08654 .24038 L .08654 .04808 L F 1 .42 0 r .08654 .04808 m .08654 .24038 L .0875 .24038 L .0875 .04808 L F 1 .426 0 r .0875 .04808 m .0875 .24038 L .08846 .24038 L .08846 .04808 L F 1 .432 0 r .08846 .04808 m .08846 .24038 L .08942 .24038 L .08942 .04808 L F 1 .438 0 r .08942 .04808 m .08942 .24038 L .09038 .24038 L .09038 .04808 L F 1 .444 0 r .09038 .04808 m .09038 .24038 L .09135 .24038 L .09135 .04808 L F 1 .45 0 r .09135 .04808 m .09135 .24038 L .09231 .24038 L .09231 .04808 L F 1 .456 0 r .09231 .04808 m .09231 .24038 L .09327 .24038 L .09327 .04808 L F 1 .462 0 r .09327 .04808 m .09327 .24038 L .09423 .24038 L .09423 .04808 L F 1 .468 0 r .09423 .04808 m .09423 .24038 L .09519 .24038 L .09519 .04808 L F 1 .474 0 r .09519 .04808 m .09519 .24038 L .09615 .24038 L .09615 .04808 L F 1 .48 0 r .09615 .04808 m .09615 .24038 L .09712 .24038 L .09712 .04808 L F 1 .486 0 r .09712 .04808 m .09712 .24038 L .09808 .24038 L .09808 .04808 L F 1 .492 0 r .09808 .04808 m .09808 .24038 L .09904 .24038 L .09904 .04808 L F 1 .498 0 r .09904 .04808 m .09904 .24038 L .1 .24038 L .1 .04808 L F 1 .504 0 r .1 .04808 m .1 .24038 L .10096 .24038 L .10096 .04808 L F 1 .51 0 r .10096 .04808 m .10096 .24038 L .10192 .24038 L .10192 .04808 L F 1 .516 0 r .10192 .04808 m .10192 .24038 L .10288 .24038 L .10288 .04808 L F 1 .522 0 r .10288 .04808 m .10288 .24038 L .10385 .24038 L .10385 .04808 L F 1 .528 0 r .10385 .04808 m .10385 .24038 L .10481 .24038 L .10481 .04808 L F 1 .534 0 r .10481 .04808 m .10481 .24038 L .10577 .24038 L .10577 .04808 L F 1 .54 0 r .10577 .04808 m .10577 .24038 L .10673 .24038 L .10673 .04808 L F 1 .546 0 r .10673 .04808 m .10673 .24038 L .10769 .24038 L .10769 .04808 L F 1 .552 0 r .10769 .04808 m .10769 .24038 L .10865 .24038 L .10865 .04808 L F 1 .558 0 r .10865 .04808 m .10865 .24038 L .10962 .24038 L .10962 .04808 L F 1 .564 0 r .10962 .04808 m .10962 .24038 L .11058 .24038 L .11058 .04808 L F 1 .57 0 r .11058 .04808 m .11058 .24038 L .11154 .24038 L .11154 .04808 L F 1 .576 0 r .11154 .04808 m .11154 .24038 L .1125 .24038 L .1125 .04808 L F 1 .582 0 r .1125 .04808 m .1125 .24038 L .11346 .24038 L .11346 .04808 L F 1 .588 0 r .11346 .04808 m .11346 .24038 L .11442 .24038 L .11442 .04808 L F 1 .594 0 r .11442 .04808 m .11442 .24038 L .11538 .24038 L .11538 .04808 L F 1 .6 0 r .11538 .04808 m .11538 .24038 L .11635 .24038 L .11635 .04808 L F 1 .606 0 r .11635 .04808 m .11635 .24038 L .11731 .24038 L .11731 .04808 L F 1 .612 0 r .11731 .04808 m .11731 .24038 L .11827 .24038 L .11827 .04808 L F 1 .618 0 r .11827 .04808 m .11827 .24038 L .11923 .24038 L .11923 .04808 L F 1 .624 0 r .11923 .04808 m .11923 .24038 L .12019 .24038 L .12019 .04808 L F 1 .63 0 r .12019 .04808 m .12019 .24038 L .12115 .24038 L .12115 .04808 L F 1 .636 0 r .12115 .04808 m .12115 .24038 L .12212 .24038 L .12212 .04808 L F 1 .642 0 r .12212 .04808 m .12212 .24038 L .12308 .24038 L .12308 .04808 L F 1 .648 0 r .12308 .04808 m .12308 .24038 L .12404 .24038 L .12404 .04808 L F 1 .654 0 r .12404 .04808 m .12404 .24038 L .125 .24038 L .125 .04808 L F 1 .66 0 r .125 .04808 m .125 .24038 L .12596 .24038 L .12596 .04808 L F 1 .666 0 r .12596 .04808 m .12596 .24038 L .12692 .24038 L .12692 .04808 L F 1 .672 0 r .12692 .04808 m .12692 .24038 L .12788 .24038 L .12788 .04808 L F 1 .678 0 r .12788 .04808 m .12788 .24038 L .12885 .24038 L .12885 .04808 L F 1 .684 0 r .12885 .04808 m .12885 .24038 L .12981 .24038 L .12981 .04808 L F 1 .69 0 r .12981 .04808 m .12981 .24038 L .13077 .24038 L .13077 .04808 L F 1 .696 0 r .13077 .04808 m .13077 .24038 L .13173 .24038 L .13173 .04808 L F 1 .702 0 r .13173 .04808 m .13173 .24038 L .13269 .24038 L .13269 .04808 L F 1 .708 0 r .13269 .04808 m .13269 .24038 L .13365 .24038 L .13365 .04808 L F 1 .714 0 r .13365 .04808 m .13365 .24038 L .13462 .24038 L .13462 .04808 L F 1 .72 0 r .13462 .04808 m .13462 .24038 L .13558 .24038 L .13558 .04808 L F 1 .726 0 r .13558 .04808 m .13558 .24038 L .13654 .24038 L .13654 .04808 L F 1 .732 0 r .13654 .04808 m .13654 .24038 L .1375 .24038 L .1375 .04808 L F 1 .738 0 r .1375 .04808 m .1375 .24038 L .13846 .24038 L .13846 .04808 L F 1 .744 0 r .13846 .04808 m .13846 .24038 L .13942 .24038 L .13942 .04808 L F 1 .75 0 r .13942 .04808 m .13942 .24038 L .14038 .24038 L .14038 .04808 L F 1 .756 0 r .14038 .04808 m .14038 .24038 L .14135 .24038 L .14135 .04808 L F 1 .762 0 r .14135 .04808 m .14135 .24038 L .14231 .24038 L .14231 .04808 L F 1 .768 0 r .14231 .04808 m .14231 .24038 L .14327 .24038 L .14327 .04808 L F 1 .774 0 r .14327 .04808 m .14327 .24038 L .14423 .24038 L .14423 .04808 L F 1 .78 0 r .14423 .04808 m .14423 .24038 L .14519 .24038 L .14519 .04808 L F 1 .786 0 r .14519 .04808 m .14519 .24038 L .14615 .24038 L .14615 .04808 L F 1 .792 0 r .14615 .04808 m .14615 .24038 L .14712 .24038 L .14712 .04808 L F 1 .798 0 r .14712 .04808 m .14712 .24038 L .14808 .24038 L .14808 .04808 L F 1 .804 0 r .14808 .04808 m .14808 .24038 L .14904 .24038 L .14904 .04808 L F 1 .81 0 r .14904 .04808 m .14904 .24038 L .15 .24038 L .15 .04808 L F 1 .816 0 r .15 .04808 m .15 .24038 L .15096 .24038 L .15096 .04808 L F 1 .822 0 r .15096 .04808 m .15096 .24038 L .15192 .24038 L .15192 .04808 L F 1 .828 0 r .15192 .04808 m .15192 .24038 L .15288 .24038 L .15288 .04808 L F 1 .834 0 r .15288 .04808 m .15288 .24038 L .15385 .24038 L .15385 .04808 L F 1 .84 0 r .15385 .04808 m .15385 .24038 L .15481 .24038 L .15481 .04808 L F 1 .846 0 r .15481 .04808 m .15481 .24038 L .15577 .24038 L .15577 .04808 L F 1 .852 0 r .15577 .04808 m .15577 .24038 L .15673 .24038 L .15673 .04808 L F 1 .858 0 r .15673 .04808 m .15673 .24038 L .15769 .24038 L .15769 .04808 L F 1 .864 0 r .15769 .04808 m .15769 .24038 L .15865 .24038 L .15865 .04808 L F 1 .87 0 r .15865 .04808 m .15865 .24038 L .15962 .24038 L .15962 .04808 L F 1 .876 0 r .15962 .04808 m .15962 .24038 L .16058 .24038 L .16058 .04808 L F 1 .882 0 r .16058 .04808 m .16058 .24038 L .16154 .24038 L .16154 .04808 L F 1 .888 0 r .16154 .04808 m .16154 .24038 L .1625 .24038 L .1625 .04808 L F 1 .894 0 r .1625 .04808 m .1625 .24038 L .16346 .24038 L .16346 .04808 L F 1 .9 0 r .16346 .04808 m .16346 .24038 L .16442 .24038 L .16442 .04808 L F 1 .906 0 r .16442 .04808 m .16442 .24038 L .16538 .24038 L .16538 .04808 L F 1 .912 0 r .16538 .04808 m .16538 .24038 L .16635 .24038 L .16635 .04808 L F 1 .918 0 r .16635 .04808 m .16635 .24038 L .16731 .24038 L .16731 .04808 L F 1 .924 0 r .16731 .04808 m .16731 .24038 L .16827 .24038 L .16827 .04808 L F 1 .93 0 r .16827 .04808 m .16827 .24038 L .16923 .24038 L .16923 .04808 L F 1 .936 0 r .16923 .04808 m .16923 .24038 L .17019 .24038 L .17019 .04808 L F 1 .942 0 r .17019 .04808 m .17019 .24038 L .17115 .24038 L .17115 .04808 L F 1 .948 0 r .17115 .04808 m .17115 .24038 L .17212 .24038 L .17212 .04808 L F 1 .954 0 r .17212 .04808 m .17212 .24038 L .17308 .24038 L .17308 .04808 L F 1 .96 0 r .17308 .04808 m .17308 .24038 L .17404 .24038 L .17404 .04808 L F 1 .966 0 r .17404 .04808 m .17404 .24038 L .175 .24038 L .175 .04808 L F 1 .972 0 r .175 .04808 m .175 .24038 L .17596 .24038 L .17596 .04808 L F 1 .978 0 r .17596 .04808 m .17596 .24038 L .17692 .24038 L .17692 .04808 L F 1 .984 0 r .17692 .04808 m .17692 .24038 L .17788 .24038 L .17788 .04808 L F 1 .99 0 r .17788 .04808 m .17788 .24038 L .17885 .24038 L .17885 .04808 L F 1 .996 0 r .17885 .04808 m .17885 .24038 L .17981 .24038 L .17981 .04808 L F .998 1 0 r .17981 .04808 m .17981 .24038 L .18077 .24038 L .18077 .04808 L F .992 1 0 r .18077 .04808 m .18077 .24038 L .18173 .24038 L .18173 .04808 L F .986 1 0 r .18173 .04808 m .18173 .24038 L .18269 .24038 L .18269 .04808 L F .98 1 0 r .18269 .04808 m .18269 .24038 L .18365 .24038 L .18365 .04808 L F .974 1 0 r .18365 .04808 m .18365 .24038 L .18462 .24038 L .18462 .04808 L F .968 1 0 r .18462 .04808 m .18462 .24038 L .18558 .24038 L .18558 .04808 L F .962 1 0 r .18558 .04808 m .18558 .24038 L .18654 .24038 L .18654 .04808 L F .956 1 0 r .18654 .04808 m .18654 .24038 L .1875 .24038 L .1875 .04808 L F .95 1 0 r .1875 .04808 m .1875 .24038 L .18846 .24038 L .18846 .04808 L F .944 1 0 r .18846 .04808 m .18846 .24038 L .18942 .24038 L .18942 .04808 L F .938 1 0 r .18942 .04808 m .18942 .24038 L .19038 .24038 L .19038 .04808 L F .932 1 0 r .19038 .04808 m .19038 .24038 L .19135 .24038 L .19135 .04808 L F .926 1 0 r .19135 .04808 m .19135 .24038 L .19231 .24038 L .19231 .04808 L F .92 1 0 r .19231 .04808 m .19231 .24038 L .19327 .24038 L .19327 .04808 L F .914 1 0 r .19327 .04808 m .19327 .24038 L .19423 .24038 L .19423 .04808 L F .908 1 0 r .19423 .04808 m .19423 .24038 L .19519 .24038 L .19519 .04808 L F .902 1 0 r .19519 .04808 m .19519 .24038 L .19615 .24038 L .19615 .04808 L F .896 1 0 r .19615 .04808 m .19615 .24038 L .19712 .24038 L .19712 .04808 L F .89 1 0 r .19712 .04808 m .19712 .24038 L .19808 .24038 L .19808 .04808 L F .884 1 0 r .19808 .04808 m .19808 .24038 L .19904 .24038 L .19904 .04808 L F .878 1 0 r .19904 .04808 m .19904 .24038 L .2 .24038 L .2 .04808 L F .872 1 0 r .2 .04808 m .2 .24038 L .20096 .24038 L .20096 .04808 L F .866 1 0 r .20096 .04808 m .20096 .24038 L .20192 .24038 L .20192 .04808 L F .86 1 0 r .20192 .04808 m .20192 .24038 L .20288 .24038 L .20288 .04808 L F .854 1 0 r .20288 .04808 m .20288 .24038 L .20385 .24038 L .20385 .04808 L F .848 1 0 r .20385 .04808 m .20385 .24038 L .20481 .24038 L .20481 .04808 L F .842 1 0 r .20481 .04808 m .20481 .24038 L .20577 .24038 L .20577 .04808 L F .836 1 0 r .20577 .04808 m .20577 .24038 L .20673 .24038 L .20673 .04808 L F .83 1 0 r .20673 .04808 m .20673 .24038 L .20769 .24038 L .20769 .04808 L F .824 1 0 r .20769 .04808 m .20769 .24038 L .20865 .24038 L .20865 .04808 L F .818 1 0 r .20865 .04808 m .20865 .24038 L .20962 .24038 L .20962 .04808 L F .812 1 0 r .20962 .04808 m .20962 .24038 L .21058 .24038 L .21058 .04808 L F .806 1 0 r .21058 .04808 m .21058 .24038 L .21154 .24038 L .21154 .04808 L F .8 1 0 r .21154 .04808 m .21154 .24038 L .2125 .24038 L .2125 .04808 L F .794 1 0 r .2125 .04808 m .2125 .24038 L .21346 .24038 L .21346 .04808 L F .788 1 0 r .21346 .04808 m .21346 .24038 L .21442 .24038 L .21442 .04808 L F .782 1 0 r .21442 .04808 m .21442 .24038 L .21538 .24038 L .21538 .04808 L F .776 1 0 r .21538 .04808 m .21538 .24038 L .21635 .24038 L .21635 .04808 L F .77 1 0 r .21635 .04808 m .21635 .24038 L .21731 .24038 L .21731 .04808 L F .764 1 0 r .21731 .04808 m .21731 .24038 L .21827 .24038 L .21827 .04808 L F .758 1 0 r .21827 .04808 m .21827 .24038 L .21923 .24038 L .21923 .04808 L F .752 1 0 r .21923 .04808 m .21923 .24038 L .22019 .24038 L .22019 .04808 L F .746 1 0 r .22019 .04808 m .22019 .24038 L .22115 .24038 L .22115 .04808 L F .74 1 0 r .22115 .04808 m .22115 .24038 L .22212 .24038 L .22212 .04808 L F .734 1 0 r .22212 .04808 m .22212 .24038 L .22308 .24038 L .22308 .04808 L F .728 1 0 r .22308 .04808 m .22308 .24038 L .22404 .24038 L .22404 .04808 L F .722 1 0 r .22404 .04808 m .22404 .24038 L .225 .24038 L .225 .04808 L F .716 1 0 r .225 .04808 m .225 .24038 L .22596 .24038 L .22596 .04808 L F .71 1 0 r .22596 .04808 m .22596 .24038 L .22692 .24038 L .22692 .04808 L F .704 1 0 r .22692 .04808 m .22692 .24038 L .22788 .24038 L .22788 .04808 L F .698 1 0 r .22788 .04808 m .22788 .24038 L .22885 .24038 L .22885 .04808 L F .692 1 0 r .22885 .04808 m .22885 .24038 L .22981 .24038 L .22981 .04808 L F .686 1 0 r .22981 .04808 m .22981 .24038 L .23077 .24038 L .23077 .04808 L F .68 1 0 r .23077 .04808 m .23077 .24038 L .23173 .24038 L .23173 .04808 L F .674 1 0 r .23173 .04808 m .23173 .24038 L .23269 .24038 L .23269 .04808 L F .668 1 0 r .23269 .04808 m .23269 .24038 L .23365 .24038 L .23365 .04808 L F .662 1 0 r .23365 .04808 m .23365 .24038 L .23462 .24038 L .23462 .04808 L F .656 1 0 r .23462 .04808 m .23462 .24038 L .23558 .24038 L .23558 .04808 L F .65 1 0 r .23558 .04808 m .23558 .24038 L .23654 .24038 L .23654 .04808 L F .644 1 0 r .23654 .04808 m .23654 .24038 L .2375 .24038 L .2375 .04808 L F .638 1 0 r .2375 .04808 m .2375 .24038 L .23846 .24038 L .23846 .04808 L F .632 1 0 r .23846 .04808 m .23846 .24038 L .23942 .24038 L .23942 .04808 L F .626 1 0 r .23942 .04808 m .23942 .24038 L .24038 .24038 L .24038 .04808 L F .62 1 0 r .24038 .04808 m .24038 .24038 L .24135 .24038 L .24135 .04808 L F .614 1 0 r .24135 .04808 m .24135 .24038 L .24231 .24038 L .24231 .04808 L F .608 1 0 r .24231 .04808 m .24231 .24038 L .24327 .24038 L .24327 .04808 L F .602 1 0 r .24327 .04808 m .24327 .24038 L .24423 .24038 L .24423 .04808 L F .596 1 0 r .24423 .04808 m .24423 .24038 L .24519 .24038 L .24519 .04808 L F .59 1 0 r .24519 .04808 m .24519 .24038 L .24615 .24038 L .24615 .04808 L F .584 1 0 r .24615 .04808 m .24615 .24038 L .24712 .24038 L .24712 .04808 L F .578 1 0 r .24712 .04808 m .24712 .24038 L .24808 .24038 L .24808 .04808 L F .572 1 0 r .24808 .04808 m .24808 .24038 L .24904 .24038 L .24904 .04808 L F .566 1 0 r .24904 .04808 m .24904 .24038 L .25 .24038 L .25 .04808 L F .56 1 0 r .25 .04808 m .25 .24038 L .25096 .24038 L .25096 .04808 L F .554 1 0 r .25096 .04808 m .25096 .24038 L .25192 .24038 L .25192 .04808 L F .548 1 0 r .25192 .04808 m .25192 .24038 L .25288 .24038 L .25288 .04808 L F .542 1 0 r .25288 .04808 m .25288 .24038 L .25385 .24038 L .25385 .04808 L F .536 1 0 r .25385 .04808 m .25385 .24038 L .25481 .24038 L .25481 .04808 L F .53 1 0 r .25481 .04808 m .25481 .24038 L .25577 .24038 L .25577 .04808 L F .524 1 0 r .25577 .04808 m .25577 .24038 L .25673 .24038 L .25673 .04808 L F .518 1 0 r .25673 .04808 m .25673 .24038 L .25769 .24038 L .25769 .04808 L F .512 1 0 r .25769 .04808 m .25769 .24038 L .25865 .24038 L .25865 .04808 L F .506 1 0 r .25865 .04808 m .25865 .24038 L .25962 .24038 L .25962 .04808 L F .5 1 0 r .25962 .04808 m .25962 .24038 L .26058 .24038 L .26058 .04808 L F .494 1 0 r .26058 .04808 m .26058 .24038 L .26154 .24038 L .26154 .04808 L F .488 1 0 r .26154 .04808 m .26154 .24038 L .2625 .24038 L .2625 .04808 L F .482 1 0 r .2625 .04808 m .2625 .24038 L .26346 .24038 L .26346 .04808 L F .476 1 0 r .26346 .04808 m .26346 .24038 L .26442 .24038 L .26442 .04808 L F .47 1 0 r .26442 .04808 m .26442 .24038 L .26538 .24038 L .26538 .04808 L F .464 1 0 r .26538 .04808 m .26538 .24038 L .26635 .24038 L .26635 .04808 L F .458 1 0 r .26635 .04808 m .26635 .24038 L .26731 .24038 L .26731 .04808 L F .452 1 0 r .26731 .04808 m .26731 .24038 L .26827 .24038 L .26827 .04808 L F .446 1 0 r .26827 .04808 m .26827 .24038 L .26923 .24038 L .26923 .04808 L F .44 1 0 r .26923 .04808 m .26923 .24038 L .27019 .24038 L .27019 .04808 L F .434 1 0 r .27019 .04808 m .27019 .24038 L .27115 .24038 L .27115 .04808 L F .428 1 0 r .27115 .04808 m .27115 .24038 L .27212 .24038 L .27212 .04808 L F .422 1 0 r .27212 .04808 m .27212 .24038 L .27308 .24038 L .27308 .04808 L F .416 1 0 r .27308 .04808 m .27308 .24038 L .27404 .24038 L .27404 .04808 L F .41 1 0 r .27404 .04808 m .27404 .24038 L .275 .24038 L .275 .04808 L F .404 1 0 r .275 .04808 m .275 .24038 L .27596 .24038 L .27596 .04808 L F .398 1 0 r .27596 .04808 m .27596 .24038 L .27692 .24038 L .27692 .04808 L F .392 1 0 r .27692 .04808 m .27692 .24038 L .27788 .24038 L .27788 .04808 L F .386 1 0 r .27788 .04808 m .27788 .24038 L .27885 .24038 L .27885 .04808 L F .38 1 0 r .27885 .04808 m .27885 .24038 L .27981 .24038 L .27981 .04808 L F .374 1 0 r .27981 .04808 m .27981 .24038 L .28077 .24038 L .28077 .04808 L F .368 1 0 r .28077 .04808 m .28077 .24038 L .28173 .24038 L .28173 .04808 L F .362 1 0 r .28173 .04808 m .28173 .24038 L .28269 .24038 L .28269 .04808 L F .356 1 0 r .28269 .04808 m .28269 .24038 L .28365 .24038 L .28365 .04808 L F .35 1 0 r .28365 .04808 m .28365 .24038 L .28462 .24038 L .28462 .04808 L F .344 1 0 r .28462 .04808 m .28462 .24038 L .28558 .24038 L .28558 .04808 L F .338 1 0 r .28558 .04808 m .28558 .24038 L .28654 .24038 L .28654 .04808 L F .332 1 0 r .28654 .04808 m .28654 .24038 L .2875 .24038 L .2875 .04808 L F .326 1 0 r .2875 .04808 m .2875 .24038 L .28846 .24038 L .28846 .04808 L F .32 1 0 r .28846 .04808 m .28846 .24038 L .28942 .24038 L .28942 .04808 L F .314 1 0 r .28942 .04808 m .28942 .24038 L .29038 .24038 L .29038 .04808 L F .308 1 0 r .29038 .04808 m .29038 .24038 L .29135 .24038 L .29135 .04808 L F .302 1 0 r .29135 .04808 m .29135 .24038 L .29231 .24038 L .29231 .04808 L F .296 1 0 r .29231 .04808 m .29231 .24038 L .29327 .24038 L .29327 .04808 L F .29 1 0 r .29327 .04808 m .29327 .24038 L .29423 .24038 L .29423 .04808 L F .284 1 0 r .29423 .04808 m .29423 .24038 L .29519 .24038 L .29519 .04808 L F .278 1 0 r .29519 .04808 m .29519 .24038 L .29615 .24038 L .29615 .04808 L F .272 1 0 r .29615 .04808 m .29615 .24038 L .29712 .24038 L .29712 .04808 L F .266 1 0 r .29712 .04808 m .29712 .24038 L .29808 .24038 L .29808 .04808 L F .26 1 0 r .29808 .04808 m .29808 .24038 L .29904 .24038 L .29904 .04808 L F .254 1 0 r .29904 .04808 m .29904 .24038 L .3 .24038 L .3 .04808 L F .248 1 0 r .3 .04808 m .3 .24038 L .30096 .24038 L .30096 .04808 L F .242 1 0 r .30096 .04808 m .30096 .24038 L .30192 .24038 L .30192 .04808 L F .236 1 0 r .30192 .04808 m .30192 .24038 L .30288 .24038 L .30288 .04808 L F .23 1 0 r .30288 .04808 m .30288 .24038 L .30385 .24038 L .30385 .04808 L F .224 1 0 r .30385 .04808 m .30385 .24038 L .30481 .24038 L .30481 .04808 L F .218 1 0 r .30481 .04808 m .30481 .24038 L .30577 .24038 L .30577 .04808 L F .212 1 0 r .30577 .04808 m .30577 .24038 L .30673 .24038 L .30673 .04808 L F .206 1 0 r .30673 .04808 m .30673 .24038 L .30769 .24038 L .30769 .04808 L F .2 1 0 r .30769 .04808 m .30769 .24038 L .30865 .24038 L .30865 .04808 L F .194 1 0 r .30865 .04808 m .30865 .24038 L .30962 .24038 L .30962 .04808 L F .188 1 0 r .30962 .04808 m .30962 .24038 L .31058 .24038 L .31058 .04808 L F .182 1 0 r .31058 .04808 m .31058 .24038 L .31154 .24038 L .31154 .04808 L F .176 1 0 r .31154 .04808 m .31154 .24038 L .3125 .24038 L .3125 .04808 L F .17 1 0 r .3125 .04808 m .3125 .24038 L .31346 .24038 L .31346 .04808 L F .164 1 0 r .31346 .04808 m .31346 .24038 L .31442 .24038 L .31442 .04808 L F .158 1 0 r .31442 .04808 m .31442 .24038 L .31538 .24038 L .31538 .04808 L F .152 1 0 r .31538 .04808 m .31538 .24038 L .31635 .24038 L .31635 .04808 L F .146 1 0 r .31635 .04808 m .31635 .24038 L .31731 .24038 L .31731 .04808 L F .14 1 0 r .31731 .04808 m .31731 .24038 L .31827 .24038 L .31827 .04808 L F .134 1 0 r .31827 .04808 m .31827 .24038 L .31923 .24038 L .31923 .04808 L F .128 1 0 r .31923 .04808 m .31923 .24038 L .32019 .24038 L .32019 .04808 L F .122 1 0 r .32019 .04808 m .32019 .24038 L .32115 .24038 L .32115 .04808 L F .116 1 0 r .32115 .04808 m .32115 .24038 L .32212 .24038 L .32212 .04808 L F .11 1 0 r .32212 .04808 m .32212 .24038 L .32308 .24038 L .32308 .04808 L F .104 1 0 r .32308 .04808 m .32308 .24038 L .32404 .24038 L .32404 .04808 L F .098 1 0 r .32404 .04808 m .32404 .24038 L .325 .24038 L .325 .04808 L F .092 1 0 r .325 .04808 m .325 .24038 L .32596 .24038 L .32596 .04808 L F .086 1 0 r .32596 .04808 m .32596 .24038 L .32692 .24038 L .32692 .04808 L F .08 1 0 r .32692 .04808 m .32692 .24038 L .32788 .24038 L .32788 .04808 L F .074 1 0 r .32788 .04808 m .32788 .24038 L .32885 .24038 L .32885 .04808 L F .068 1 0 r .32885 .04808 m .32885 .24038 L .32981 .24038 L .32981 .04808 L F .062 1 0 r .32981 .04808 m .32981 .24038 L .33077 .24038 L .33077 .04808 L F .056 1 0 r .33077 .04808 m .33077 .24038 L .33173 .24038 L .33173 .04808 L F .05 1 0 r .33173 .04808 m .33173 .24038 L .33269 .24038 L .33269 .04808 L F .044 1 0 r .33269 .04808 m .33269 .24038 L .33365 .24038 L .33365 .04808 L F .038 1 0 r .33365 .04808 m .33365 .24038 L .33462 .24038 L .33462 .04808 L F .032 1 0 r .33462 .04808 m .33462 .24038 L .33558 .24038 L .33558 .04808 L F .026 1 0 r .33558 .04808 m .33558 .24038 L .33654 .24038 L .33654 .04808 L F .02 1 0 r .33654 .04808 m .33654 .24038 L .3375 .24038 L .3375 .04808 L F .014 1 0 r .3375 .04808 m .3375 .24038 L .33846 .24038 L .33846 .04808 L F .008 1 0 r .33846 .04808 m .33846 .24038 L .33942 .24038 L .33942 .04808 L F .002 1 0 r .33942 .04808 m .33942 .24038 L .34038 .24038 L .34038 .04808 L F 0 1 .004 r .34038 .04808 m .34038 .24038 L .34135 .24038 L .34135 .04808 L F 0 1 .01 r .34135 .04808 m .34135 .24038 L .34231 .24038 L .34231 .04808 L F 0 1 .016 r .34231 .04808 m .34231 .24038 L .34327 .24038 L .34327 .04808 L F 0 1 .022 r .34327 .04808 m .34327 .24038 L .34423 .24038 L .34423 .04808 L F 0 1 .028 r .34423 .04808 m .34423 .24038 L .34519 .24038 L .34519 .04808 L F 0 1 .034 r .34519 .04808 m .34519 .24038 L .34615 .24038 L .34615 .04808 L F 0 1 .04 r .34615 .04808 m .34615 .24038 L .34712 .24038 L .34712 .04808 L F 0 1 .046 r .34712 .04808 m .34712 .24038 L .34808 .24038 L .34808 .04808 L F 0 1 .052 r .34808 .04808 m .34808 .24038 L .34904 .24038 L .34904 .04808 L F 0 1 .058 r .34904 .04808 m .34904 .24038 L .35 .24038 L .35 .04808 L F 0 1 .064 r .35 .04808 m .35 .24038 L .35096 .24038 L .35096 .04808 L F 0 1 .07 r .35096 .04808 m .35096 .24038 L .35192 .24038 L .35192 .04808 L F 0 1 .076 r .35192 .04808 m .35192 .24038 L .35288 .24038 L .35288 .04808 L F 0 1 .082 r .35288 .04808 m .35288 .24038 L .35385 .24038 L .35385 .04808 L F 0 1 .088 r .35385 .04808 m .35385 .24038 L .35481 .24038 L .35481 .04808 L F 0 1 .094 r .35481 .04808 m .35481 .24038 L .35577 .24038 L .35577 .04808 L F 0 1 .1 r .35577 .04808 m .35577 .24038 L .35673 .24038 L .35673 .04808 L F 0 1 .106 r .35673 .04808 m .35673 .24038 L .35769 .24038 L .35769 .04808 L F 0 1 .112 r .35769 .04808 m .35769 .24038 L .35865 .24038 L .35865 .04808 L F 0 1 .118 r .35865 .04808 m .35865 .24038 L .35962 .24038 L .35962 .04808 L F 0 1 .124 r .35962 .04808 m .35962 .24038 L .36058 .24038 L .36058 .04808 L F 0 1 .13 r .36058 .04808 m .36058 .24038 L .36154 .24038 L .36154 .04808 L F 0 1 .136 r .36154 .04808 m .36154 .24038 L .3625 .24038 L .3625 .04808 L F 0 1 .142 r .3625 .04808 m .3625 .24038 L .36346 .24038 L .36346 .04808 L F 0 1 .148 r .36346 .04808 m .36346 .24038 L .36442 .24038 L .36442 .04808 L F 0 1 .154 r .36442 .04808 m .36442 .24038 L .36538 .24038 L .36538 .04808 L F 0 1 .16 r .36538 .04808 m .36538 .24038 L .36635 .24038 L .36635 .04808 L F 0 1 .166 r .36635 .04808 m .36635 .24038 L .36731 .24038 L .36731 .04808 L F 0 1 .172 r .36731 .04808 m .36731 .24038 L .36827 .24038 L .36827 .04808 L F 0 1 .178 r .36827 .04808 m .36827 .24038 L .36923 .24038 L .36923 .04808 L F 0 1 .184 r .36923 .04808 m .36923 .24038 L .37019 .24038 L .37019 .04808 L F 0 1 .19 r .37019 .04808 m .37019 .24038 L .37115 .24038 L .37115 .04808 L F 0 1 .196 r .37115 .04808 m .37115 .24038 L .37212 .24038 L .37212 .04808 L F 0 1 .202 r .37212 .04808 m .37212 .24038 L .37308 .24038 L .37308 .04808 L F 0 1 .208 r .37308 .04808 m .37308 .24038 L .37404 .24038 L .37404 .04808 L F 0 1 .214 r .37404 .04808 m .37404 .24038 L .375 .24038 L .375 .04808 L F 0 1 .22 r .375 .04808 m .375 .24038 L .37596 .24038 L .37596 .04808 L F 0 1 .226 r .37596 .04808 m .37596 .24038 L .37692 .24038 L .37692 .04808 L F 0 1 .232 r .37692 .04808 m .37692 .24038 L .37788 .24038 L .37788 .04808 L F 0 1 .238 r .37788 .04808 m .37788 .24038 L .37885 .24038 L .37885 .04808 L F 0 1 .244 r .37885 .04808 m .37885 .24038 L .37981 .24038 L .37981 .04808 L F 0 1 .25 r .37981 .04808 m .37981 .24038 L .38077 .24038 L .38077 .04808 L F 0 1 .256 r .38077 .04808 m .38077 .24038 L .38173 .24038 L .38173 .04808 L F 0 1 .262 r .38173 .04808 m .38173 .24038 L .38269 .24038 L .38269 .04808 L F 0 1 .268 r .38269 .04808 m .38269 .24038 L .38365 .24038 L .38365 .04808 L F 0 1 .274 r .38365 .04808 m .38365 .24038 L .38462 .24038 L .38462 .04808 L F 0 1 .28 r .38462 .04808 m .38462 .24038 L .38558 .24038 L .38558 .04808 L F 0 1 .286 r .38558 .04808 m .38558 .24038 L .38654 .24038 L .38654 .04808 L F 0 1 .292 r .38654 .04808 m .38654 .24038 L .3875 .24038 L .3875 .04808 L F 0 1 .298 r .3875 .04808 m .3875 .24038 L .38846 .24038 L .38846 .04808 L F 0 1 .304 r .38846 .04808 m .38846 .24038 L .38942 .24038 L .38942 .04808 L F 0 1 .31 r .38942 .04808 m .38942 .24038 L .39038 .24038 L .39038 .04808 L F 0 1 .316 r .39038 .04808 m .39038 .24038 L .39135 .24038 L .39135 .04808 L F 0 1 .322 r .39135 .04808 m .39135 .24038 L .39231 .24038 L .39231 .04808 L F 0 1 .328 r .39231 .04808 m .39231 .24038 L .39327 .24038 L .39327 .04808 L F 0 1 .334 r .39327 .04808 m .39327 .24038 L .39423 .24038 L .39423 .04808 L F 0 1 .34 r .39423 .04808 m .39423 .24038 L .39519 .24038 L .39519 .04808 L F 0 1 .346 r .39519 .04808 m .39519 .24038 L .39615 .24038 L .39615 .04808 L F 0 1 .352 r .39615 .04808 m .39615 .24038 L .39712 .24038 L .39712 .04808 L F 0 1 .358 r .39712 .04808 m .39712 .24038 L .39808 .24038 L .39808 .04808 L F 0 1 .364 r .39808 .04808 m .39808 .24038 L .39904 .24038 L .39904 .04808 L F 0 1 .37 r .39904 .04808 m .39904 .24038 L .4 .24038 L .4 .04808 L F 0 1 .376 r .4 .04808 m .4 .24038 L .40096 .24038 L .40096 .04808 L F 0 1 .382 r .40096 .04808 m .40096 .24038 L .40192 .24038 L .40192 .04808 L F 0 1 .388 r .40192 .04808 m .40192 .24038 L .40288 .24038 L .40288 .04808 L F 0 1 .394 r .40288 .04808 m .40288 .24038 L .40385 .24038 L .40385 .04808 L F 0 1 .4 r .40385 .04808 m .40385 .24038 L .40481 .24038 L .40481 .04808 L F 0 1 .406 r .40481 .04808 m .40481 .24038 L .40577 .24038 L .40577 .04808 L F 0 1 .412 r .40577 .04808 m .40577 .24038 L .40673 .24038 L .40673 .04808 L F 0 1 .418 r .40673 .04808 m .40673 .24038 L .40769 .24038 L .40769 .04808 L F 0 1 .424 r .40769 .04808 m .40769 .24038 L .40865 .24038 L .40865 .04808 L F 0 1 .43 r .40865 .04808 m .40865 .24038 L .40962 .24038 L .40962 .04808 L F 0 1 .436 r .40962 .04808 m .40962 .24038 L .41058 .24038 L .41058 .04808 L F 0 1 .442 r .41058 .04808 m .41058 .24038 L .41154 .24038 L .41154 .04808 L F 0 1 .448 r .41154 .04808 m .41154 .24038 L .4125 .24038 L .4125 .04808 L F 0 1 .454 r .4125 .04808 m .4125 .24038 L .41346 .24038 L .41346 .04808 L F 0 1 .46 r .41346 .04808 m .41346 .24038 L .41442 .24038 L .41442 .04808 L F 0 1 .466 r .41442 .04808 m .41442 .24038 L .41538 .24038 L .41538 .04808 L F 0 1 .472 r .41538 .04808 m .41538 .24038 L .41635 .24038 L .41635 .04808 L F 0 1 .478 r .41635 .04808 m .41635 .24038 L .41731 .24038 L .41731 .04808 L F 0 1 .484 r .41731 .04808 m .41731 .24038 L .41827 .24038 L .41827 .04808 L F 0 1 .49 r .41827 .04808 m .41827 .24038 L .41923 .24038 L .41923 .04808 L F 0 1 .496 r .41923 .04808 m .41923 .24038 L .42019 .24038 L .42019 .04808 L F 0 1 .502 r .42019 .04808 m .42019 .24038 L .42115 .24038 L .42115 .04808 L F 0 1 .508 r .42115 .04808 m .42115 .24038 L .42212 .24038 L .42212 .04808 L F 0 1 .514 r .42212 .04808 m .42212 .24038 L .42308 .24038 L .42308 .04808 L F 0 1 .52 r .42308 .04808 m .42308 .24038 L .42404 .24038 L .42404 .04808 L F 0 1 .526 r .42404 .04808 m .42404 .24038 L .425 .24038 L .425 .04808 L F 0 1 .532 r .425 .04808 m .425 .24038 L .42596 .24038 L .42596 .04808 L F 0 1 .538 r .42596 .04808 m .42596 .24038 L .42692 .24038 L .42692 .04808 L F 0 1 .544 r .42692 .04808 m .42692 .24038 L .42788 .24038 L .42788 .04808 L F 0 1 .55 r .42788 .04808 m .42788 .24038 L .42885 .24038 L .42885 .04808 L F 0 1 .556 r .42885 .04808 m .42885 .24038 L .42981 .24038 L .42981 .04808 L F 0 1 .562 r .42981 .04808 m .42981 .24038 L .43077 .24038 L .43077 .04808 L F 0 1 .568 r .43077 .04808 m .43077 .24038 L .43173 .24038 L .43173 .04808 L F 0 1 .574 r .43173 .04808 m .43173 .24038 L .43269 .24038 L .43269 .04808 L F 0 1 .58 r .43269 .04808 m .43269 .24038 L .43365 .24038 L .43365 .04808 L F 0 1 .586 r .43365 .04808 m .43365 .24038 L .43462 .24038 L .43462 .04808 L F 0 1 .592 r .43462 .04808 m .43462 .24038 L .43558 .24038 L .43558 .04808 L F 0 1 .598 r .43558 .04808 m .43558 .24038 L .43654 .24038 L .43654 .04808 L F 0 1 .604 r .43654 .04808 m .43654 .24038 L .4375 .24038 L .4375 .04808 L F 0 1 .61 r .4375 .04808 m .4375 .24038 L .43846 .24038 L .43846 .04808 L F 0 1 .616 r .43846 .04808 m .43846 .24038 L .43942 .24038 L .43942 .04808 L F 0 1 .622 r .43942 .04808 m .43942 .24038 L .44038 .24038 L .44038 .04808 L F 0 1 .628 r .44038 .04808 m .44038 .24038 L .44135 .24038 L .44135 .04808 L F 0 1 .634 r .44135 .04808 m .44135 .24038 L .44231 .24038 L .44231 .04808 L F 0 1 .64 r .44231 .04808 m .44231 .24038 L .44327 .24038 L .44327 .04808 L F 0 1 .646 r .44327 .04808 m .44327 .24038 L .44423 .24038 L .44423 .04808 L F 0 1 .652 r .44423 .04808 m .44423 .24038 L .44519 .24038 L .44519 .04808 L F 0 1 .658 r .44519 .04808 m .44519 .24038 L .44615 .24038 L .44615 .04808 L F 0 1 .664 r .44615 .04808 m .44615 .24038 L .44712 .24038 L .44712 .04808 L F 0 1 .67 r .44712 .04808 m .44712 .24038 L .44808 .24038 L .44808 .04808 L F 0 1 .676 r .44808 .04808 m .44808 .24038 L .44904 .24038 L .44904 .04808 L F 0 1 .682 r .44904 .04808 m .44904 .24038 L .45 .24038 L .45 .04808 L F 0 1 .688 r .45 .04808 m .45 .24038 L .45096 .24038 L .45096 .04808 L F 0 1 .694 r .45096 .04808 m .45096 .24038 L .45192 .24038 L .45192 .04808 L F 0 1 .7 r .45192 .04808 m .45192 .24038 L .45288 .24038 L .45288 .04808 L F 0 1 .706 r .45288 .04808 m .45288 .24038 L .45385 .24038 L .45385 .04808 L F 0 1 .712 r .45385 .04808 m .45385 .24038 L .45481 .24038 L .45481 .04808 L F 0 1 .718 r .45481 .04808 m .45481 .24038 L .45577 .24038 L .45577 .04808 L F 0 1 .724 r .45577 .04808 m .45577 .24038 L .45673 .24038 L .45673 .04808 L F 0 1 .73 r .45673 .04808 m .45673 .24038 L .45769 .24038 L .45769 .04808 L F 0 1 .736 r .45769 .04808 m .45769 .24038 L .45865 .24038 L .45865 .04808 L F 0 1 .742 r .45865 .04808 m .45865 .24038 L .45962 .24038 L .45962 .04808 L F 0 1 .748 r .45962 .04808 m .45962 .24038 L .46058 .24038 L .46058 .04808 L F 0 1 .754 r .46058 .04808 m .46058 .24038 L .46154 .24038 L .46154 .04808 L F 0 1 .76 r .46154 .04808 m .46154 .24038 L .4625 .24038 L .4625 .04808 L F 0 1 .766 r .4625 .04808 m .4625 .24038 L .46346 .24038 L .46346 .04808 L F 0 1 .772 r .46346 .04808 m .46346 .24038 L .46442 .24038 L .46442 .04808 L F 0 1 .778 r .46442 .04808 m .46442 .24038 L .46538 .24038 L .46538 .04808 L F 0 1 .784 r .46538 .04808 m .46538 .24038 L .46635 .24038 L .46635 .04808 L F 0 1 .79 r .46635 .04808 m .46635 .24038 L .46731 .24038 L .46731 .04808 L F 0 1 .796 r .46731 .04808 m .46731 .24038 L .46827 .24038 L .46827 .04808 L F 0 1 .802 r .46827 .04808 m .46827 .24038 L .46923 .24038 L .46923 .04808 L F 0 1 .808 r .46923 .04808 m .46923 .24038 L .47019 .24038 L .47019 .04808 L F 0 1 .814 r .47019 .04808 m .47019 .24038 L .47115 .24038 L .47115 .04808 L F 0 1 .82 r .47115 .04808 m .47115 .24038 L .47212 .24038 L .47212 .04808 L F 0 1 .826 r .47212 .04808 m .47212 .24038 L .47308 .24038 L .47308 .04808 L F 0 1 .832 r .47308 .04808 m .47308 .24038 L .47404 .24038 L .47404 .04808 L F 0 1 .838 r .47404 .04808 m .47404 .24038 L .475 .24038 L .475 .04808 L F 0 1 .844 r .475 .04808 m .475 .24038 L .47596 .24038 L .47596 .04808 L F 0 1 .85 r .47596 .04808 m .47596 .24038 L .47692 .24038 L .47692 .04808 L F 0 1 .856 r .47692 .04808 m .47692 .24038 L .47788 .24038 L .47788 .04808 L F 0 1 .862 r .47788 .04808 m .47788 .24038 L .47885 .24038 L .47885 .04808 L F 0 1 .868 r .47885 .04808 m .47885 .24038 L .47981 .24038 L .47981 .04808 L F 0 1 .874 r .47981 .04808 m .47981 .24038 L .48077 .24038 L .48077 .04808 L F 0 1 .88 r .48077 .04808 m .48077 .24038 L .48173 .24038 L .48173 .04808 L F 0 1 .886 r .48173 .04808 m .48173 .24038 L .48269 .24038 L .48269 .04808 L F 0 1 .892 r .48269 .04808 m .48269 .24038 L .48365 .24038 L .48365 .04808 L F 0 1 .898 r .48365 .04808 m .48365 .24038 L .48462 .24038 L .48462 .04808 L F 0 1 .904 r .48462 .04808 m .48462 .24038 L .48558 .24038 L .48558 .04808 L F 0 1 .91 r .48558 .04808 m .48558 .24038 L .48654 .24038 L .48654 .04808 L F 0 1 .916 r .48654 .04808 m .48654 .24038 L .4875 .24038 L .4875 .04808 L F 0 1 .922 r .4875 .04808 m .4875 .24038 L .48846 .24038 L .48846 .04808 L F 0 1 .928 r .48846 .04808 m .48846 .24038 L .48942 .24038 L .48942 .04808 L F 0 1 .934 r .48942 .04808 m .48942 .24038 L .49038 .24038 L .49038 .04808 L F 0 1 .94 r .49038 .04808 m .49038 .24038 L .49135 .24038 L .49135 .04808 L F 0 1 .946 r .49135 .04808 m .49135 .24038 L .49231 .24038 L .49231 .04808 L F 0 1 .952 r .49231 .04808 m .49231 .24038 L .49327 .24038 L .49327 .04808 L F 0 1 .958 r .49327 .04808 m .49327 .24038 L .49423 .24038 L .49423 .04808 L F 0 1 .964 r .49423 .04808 m .49423 .24038 L .49519 .24038 L .49519 .04808 L F 0 1 .97 r .49519 .04808 m .49519 .24038 L .49615 .24038 L .49615 .04808 L F 0 1 .976 r .49615 .04808 m .49615 .24038 L .49712 .24038 L .49712 .04808 L F 0 1 .982 r .49712 .04808 m .49712 .24038 L .49808 .24038 L .49808 .04808 L F 0 1 .988 r .49808 .04808 m .49808 .24038 L .49904 .24038 L .49904 .04808 L F 0 1 .994 r .49904 .04808 m .49904 .24038 L .5 .24038 L .5 .04808 L F 0 1 1 r .5 .04808 m .5 .24038 L .50096 .24038 L .50096 .04808 L F 0 .994 1 r .50096 .04808 m .50096 .24038 L .50192 .24038 L .50192 .04808 L F 0 .988 1 r .50192 .04808 m .50192 .24038 L .50288 .24038 L .50288 .04808 L F 0 .982 1 r .50288 .04808 m .50288 .24038 L .50385 .24038 L .50385 .04808 L F 0 .976 1 r .50385 .04808 m .50385 .24038 L .50481 .24038 L .50481 .04808 L F 0 .97 1 r .50481 .04808 m .50481 .24038 L .50577 .24038 L .50577 .04808 L F 0 .964 1 r .50577 .04808 m .50577 .24038 L .50673 .24038 L .50673 .04808 L F 0 .958 1 r .50673 .04808 m .50673 .24038 L .50769 .24038 L .50769 .04808 L F 0 .952 1 r .50769 .04808 m .50769 .24038 L .50865 .24038 L .50865 .04808 L F 0 .946 1 r .50865 .04808 m .50865 .24038 L .50962 .24038 L .50962 .04808 L F 0 .94 1 r .50962 .04808 m .50962 .24038 L .51058 .24038 L .51058 .04808 L F 0 .934 1 r .51058 .04808 m .51058 .24038 L .51154 .24038 L .51154 .04808 L F 0 .928 1 r .51154 .04808 m .51154 .24038 L .5125 .24038 L .5125 .04808 L F 0 .922 1 r .5125 .04808 m .5125 .24038 L .51346 .24038 L .51346 .04808 L F 0 .916 1 r .51346 .04808 m .51346 .24038 L .51442 .24038 L .51442 .04808 L F 0 .91 1 r .51442 .04808 m .51442 .24038 L .51538 .24038 L .51538 .04808 L F 0 .904 1 r .51538 .04808 m .51538 .24038 L .51635 .24038 L .51635 .04808 L F 0 .898 1 r .51635 .04808 m .51635 .24038 L .51731 .24038 L .51731 .04808 L F 0 .892 1 r .51731 .04808 m .51731 .24038 L .51827 .24038 L .51827 .04808 L F 0 .886 1 r .51827 .04808 m .51827 .24038 L .51923 .24038 L .51923 .04808 L F 0 .88 1 r .51923 .04808 m .51923 .24038 L .52019 .24038 L .52019 .04808 L F 0 .874 1 r .52019 .04808 m .52019 .24038 L .52115 .24038 L .52115 .04808 L F 0 .868 1 r .52115 .04808 m .52115 .24038 L .52212 .24038 L .52212 .04808 L F 0 .862 1 r .52212 .04808 m .52212 .24038 L .52308 .24038 L .52308 .04808 L F 0 .856 1 r .52308 .04808 m .52308 .24038 L .52404 .24038 L .52404 .04808 L F 0 .85 1 r .52404 .04808 m .52404 .24038 L .525 .24038 L .525 .04808 L F 0 .844 1 r .525 .04808 m .525 .24038 L .52596 .24038 L .52596 .04808 L F 0 .838 1 r .52596 .04808 m .52596 .24038 L .52692 .24038 L .52692 .04808 L F 0 .832 1 r .52692 .04808 m .52692 .24038 L .52788 .24038 L .52788 .04808 L F 0 .826 1 r .52788 .04808 m .52788 .24038 L .52885 .24038 L .52885 .04808 L F 0 .82 1 r .52885 .04808 m .52885 .24038 L .52981 .24038 L .52981 .04808 L F 0 .814 1 r .52981 .04808 m .52981 .24038 L .53077 .24038 L .53077 .04808 L F 0 .808 1 r .53077 .04808 m .53077 .24038 L .53173 .24038 L .53173 .04808 L F 0 .802 1 r .53173 .04808 m .53173 .24038 L .53269 .24038 L .53269 .04808 L F 0 .796 1 r .53269 .04808 m .53269 .24038 L .53365 .24038 L .53365 .04808 L F 0 .79 1 r .53365 .04808 m .53365 .24038 L .53462 .24038 L .53462 .04808 L F 0 .784 1 r .53462 .04808 m .53462 .24038 L .53558 .24038 L .53558 .04808 L F 0 .778 1 r .53558 .04808 m .53558 .24038 L .53654 .24038 L .53654 .04808 L F 0 .772 1 r .53654 .04808 m .53654 .24038 L .5375 .24038 L .5375 .04808 L F 0 .766 1 r .5375 .04808 m .5375 .24038 L .53846 .24038 L .53846 .04808 L F 0 .76 1 r .53846 .04808 m .53846 .24038 L .53942 .24038 L .53942 .04808 L F 0 .754 1 r .53942 .04808 m .53942 .24038 L .54038 .24038 L .54038 .04808 L F 0 .748 1 r .54038 .04808 m .54038 .24038 L .54135 .24038 L .54135 .04808 L F 0 .742 1 r .54135 .04808 m .54135 .24038 L .54231 .24038 L .54231 .04808 L F 0 .736 1 r .54231 .04808 m .54231 .24038 L .54327 .24038 L .54327 .04808 L F 0 .73 1 r .54327 .04808 m .54327 .24038 L .54423 .24038 L .54423 .04808 L F 0 .724 1 r .54423 .04808 m .54423 .24038 L .54519 .24038 L .54519 .04808 L F 0 .718 1 r .54519 .04808 m .54519 .24038 L .54615 .24038 L .54615 .04808 L F 0 .712 1 r .54615 .04808 m .54615 .24038 L .54712 .24038 L .54712 .04808 L F 0 .706 1 r .54712 .04808 m .54712 .24038 L .54808 .24038 L .54808 .04808 L F 0 .7 1 r .54808 .04808 m .54808 .24038 L .54904 .24038 L .54904 .04808 L F 0 .694 1 r .54904 .04808 m .54904 .24038 L .55 .24038 L .55 .04808 L F 0 .688 1 r .55 .04808 m .55 .24038 L .55096 .24038 L .55096 .04808 L F 0 .682 1 r .55096 .04808 m .55096 .24038 L .55192 .24038 L .55192 .04808 L F 0 .676 1 r .55192 .04808 m .55192 .24038 L .55288 .24038 L .55288 .04808 L F 0 .67 1 r .55288 .04808 m .55288 .24038 L .55385 .24038 L .55385 .04808 L F 0 .664 1 r .55385 .04808 m .55385 .24038 L .55481 .24038 L .55481 .04808 L F 0 .658 1 r .55481 .04808 m .55481 .24038 L .55577 .24038 L .55577 .04808 L F 0 .652 1 r .55577 .04808 m .55577 .24038 L .55673 .24038 L .55673 .04808 L F 0 .646 1 r .55673 .04808 m .55673 .24038 L .55769 .24038 L .55769 .04808 L F 0 .64 1 r .55769 .04808 m .55769 .24038 L .55865 .24038 L .55865 .04808 L F 0 .634 1 r .55865 .04808 m .55865 .24038 L .55962 .24038 L .55962 .04808 L F 0 .628 1 r .55962 .04808 m .55962 .24038 L .56058 .24038 L .56058 .04808 L F 0 .622 1 r .56058 .04808 m .56058 .24038 L .56154 .24038 L .56154 .04808 L F 0 .616 1 r .56154 .04808 m .56154 .24038 L .5625 .24038 L .5625 .04808 L F 0 .61 1 r .5625 .04808 m .5625 .24038 L .56346 .24038 L .56346 .04808 L F 0 .604 1 r .56346 .04808 m .56346 .24038 L .56442 .24038 L .56442 .04808 L F 0 .598 1 r .56442 .04808 m .56442 .24038 L .56538 .24038 L .56538 .04808 L F 0 .592 1 r .56538 .04808 m .56538 .24038 L .56635 .24038 L .56635 .04808 L F 0 .586 1 r .56635 .04808 m .56635 .24038 L .56731 .24038 L .56731 .04808 L F 0 .58 1 r .56731 .04808 m .56731 .24038 L .56827 .24038 L .56827 .04808 L F 0 .574 1 r .56827 .04808 m .56827 .24038 L .56923 .24038 L .56923 .04808 L F 0 .568 1 r .56923 .04808 m .56923 .24038 L .57019 .24038 L .57019 .04808 L F 0 .562 1 r .57019 .04808 m .57019 .24038 L .57115 .24038 L .57115 .04808 L F 0 .556 1 r .57115 .04808 m .57115 .24038 L .57212 .24038 L .57212 .04808 L F 0 .55 1 r .57212 .04808 m .57212 .24038 L .57308 .24038 L .57308 .04808 L F 0 .544 1 r .57308 .04808 m .57308 .24038 L .57404 .24038 L .57404 .04808 L F 0 .538 1 r .57404 .04808 m .57404 .24038 L .575 .24038 L .575 .04808 L F 0 .532 1 r .575 .04808 m .575 .24038 L .57596 .24038 L .57596 .04808 L F 0 .526 1 r .57596 .04808 m .57596 .24038 L .57692 .24038 L .57692 .04808 L F 0 .52 1 r .57692 .04808 m .57692 .24038 L .57788 .24038 L .57788 .04808 L F 0 .514 1 r .57788 .04808 m .57788 .24038 L .57885 .24038 L .57885 .04808 L F 0 .508 1 r .57885 .04808 m .57885 .24038 L .57981 .24038 L .57981 .04808 L F 0 .502 1 r .57981 .04808 m .57981 .24038 L .58077 .24038 L .58077 .04808 L F 0 .496 1 r .58077 .04808 m .58077 .24038 L .58173 .24038 L .58173 .04808 L F 0 .49 1 r .58173 .04808 m .58173 .24038 L .58269 .24038 L .58269 .04808 L F 0 .484 1 r .58269 .04808 m .58269 .24038 L .58365 .24038 L .58365 .04808 L F 0 .478 1 r .58365 .04808 m .58365 .24038 L .58462 .24038 L .58462 .04808 L F 0 .472 1 r .58462 .04808 m .58462 .24038 L .58558 .24038 L .58558 .04808 L F 0 .466 1 r .58558 .04808 m .58558 .24038 L .58654 .24038 L .58654 .04808 L F 0 .46 1 r .58654 .04808 m .58654 .24038 L .5875 .24038 L .5875 .04808 L F 0 .454 1 r .5875 .04808 m .5875 .24038 L .58846 .24038 L .58846 .04808 L F 0 .448 1 r .58846 .04808 m .58846 .24038 L .58942 .24038 L .58942 .04808 L F 0 .442 1 r .58942 .04808 m .58942 .24038 L .59038 .24038 L .59038 .04808 L F 0 .436 1 r .59038 .04808 m .59038 .24038 L .59135 .24038 L .59135 .04808 L F 0 .43 1 r .59135 .04808 m .59135 .24038 L .59231 .24038 L .59231 .04808 L F 0 .424 1 r .59231 .04808 m .59231 .24038 L .59327 .24038 L .59327 .04808 L F 0 .418 1 r .59327 .04808 m .59327 .24038 L .59423 .24038 L .59423 .04808 L F 0 .412 1 r .59423 .04808 m .59423 .24038 L .59519 .24038 L .59519 .04808 L F 0 .406 1 r .59519 .04808 m .59519 .24038 L .59615 .24038 L .59615 .04808 L F 0 .4 1 r .59615 .04808 m .59615 .24038 L .59712 .24038 L .59712 .04808 L F 0 .394 1 r .59712 .04808 m .59712 .24038 L .59808 .24038 L .59808 .04808 L F 0 .388 1 r .59808 .04808 m .59808 .24038 L .59904 .24038 L .59904 .04808 L F 0 .382 1 r .59904 .04808 m .59904 .24038 L .6 .24038 L .6 .04808 L F 0 .376 1 r .6 .04808 m .6 .24038 L .60096 .24038 L .60096 .04808 L F 0 .37 1 r .60096 .04808 m .60096 .24038 L .60192 .24038 L .60192 .04808 L F 0 .364 1 r .60192 .04808 m .60192 .24038 L .60288 .24038 L .60288 .04808 L F 0 .358 1 r .60288 .04808 m .60288 .24038 L .60385 .24038 L .60385 .04808 L F 0 .352 1 r .60385 .04808 m .60385 .24038 L .60481 .24038 L .60481 .04808 L F 0 .346 1 r .60481 .04808 m .60481 .24038 L .60577 .24038 L .60577 .04808 L F 0 .34 1 r .60577 .04808 m .60577 .24038 L .60673 .24038 L .60673 .04808 L F 0 .334 1 r .60673 .04808 m .60673 .24038 L .60769 .24038 L .60769 .04808 L F 0 .328 1 r .60769 .04808 m .60769 .24038 L .60865 .24038 L .60865 .04808 L F 0 .322 1 r .60865 .04808 m .60865 .24038 L .60962 .24038 L .60962 .04808 L F 0 .316 1 r .60962 .04808 m .60962 .24038 L .61058 .24038 L .61058 .04808 L F 0 .31 1 r .61058 .04808 m .61058 .24038 L .61154 .24038 L .61154 .04808 L F 0 .304 1 r .61154 .04808 m .61154 .24038 L .6125 .24038 L .6125 .04808 L F 0 .298 1 r .6125 .04808 m .6125 .24038 L .61346 .24038 L .61346 .04808 L F 0 .292 1 r .61346 .04808 m .61346 .24038 L .61442 .24038 L .61442 .04808 L F 0 .286 1 r .61442 .04808 m .61442 .24038 L .61538 .24038 L .61538 .04808 L F 0 .28 1 r .61538 .04808 m .61538 .24038 L .61635 .24038 L .61635 .04808 L F 0 .274 1 r .61635 .04808 m .61635 .24038 L .61731 .24038 L .61731 .04808 L F 0 .268 1 r .61731 .04808 m .61731 .24038 L .61827 .24038 L .61827 .04808 L F 0 .262 1 r .61827 .04808 m .61827 .24038 L .61923 .24038 L .61923 .04808 L F 0 .256 1 r .61923 .04808 m .61923 .24038 L .62019 .24038 L .62019 .04808 L F 0 .25 1 r .62019 .04808 m .62019 .24038 L .62115 .24038 L .62115 .04808 L F 0 .244 1 r .62115 .04808 m .62115 .24038 L .62212 .24038 L .62212 .04808 L F 0 .238 1 r .62212 .04808 m .62212 .24038 L .62308 .24038 L .62308 .04808 L F 0 .232 1 r .62308 .04808 m .62308 .24038 L .62404 .24038 L .62404 .04808 L F 0 .226 1 r .62404 .04808 m .62404 .24038 L .625 .24038 L .625 .04808 L F 0 .22 1 r .625 .04808 m .625 .24038 L .62596 .24038 L .62596 .04808 L F 0 .214 1 r .62596 .04808 m .62596 .24038 L .62692 .24038 L .62692 .04808 L F 0 .208 1 r .62692 .04808 m .62692 .24038 L .62788 .24038 L .62788 .04808 L F 0 .202 1 r .62788 .04808 m .62788 .24038 L .62885 .24038 L .62885 .04808 L F 0 .196 1 r .62885 .04808 m .62885 .24038 L .62981 .24038 L .62981 .04808 L F 0 .19 1 r .62981 .04808 m .62981 .24038 L .63077 .24038 L .63077 .04808 L F 0 .184 1 r .63077 .04808 m .63077 .24038 L .63173 .24038 L .63173 .04808 L F 0 .178 1 r .63173 .04808 m .63173 .24038 L .63269 .24038 L .63269 .04808 L F 0 .172 1 r .63269 .04808 m .63269 .24038 L .63365 .24038 L .63365 .04808 L F 0 .166 1 r .63365 .04808 m .63365 .24038 L .63462 .24038 L .63462 .04808 L F 0 .16 1 r .63462 .04808 m .63462 .24038 L .63558 .24038 L .63558 .04808 L F 0 .154 1 r .63558 .04808 m .63558 .24038 L .63654 .24038 L .63654 .04808 L F 0 .148 1 r .63654 .04808 m .63654 .24038 L .6375 .24038 L .6375 .04808 L F 0 .142 1 r .6375 .04808 m .6375 .24038 L .63846 .24038 L .63846 .04808 L F 0 .136 1 r .63846 .04808 m .63846 .24038 L .63942 .24038 L .63942 .04808 L F 0 .13 1 r .63942 .04808 m .63942 .24038 L .64038 .24038 L .64038 .04808 L F 0 .124 1 r .64038 .04808 m .64038 .24038 L .64135 .24038 L .64135 .04808 L F 0 .118 1 r .64135 .04808 m .64135 .24038 L .64231 .24038 L .64231 .04808 L F 0 .112 1 r .64231 .04808 m .64231 .24038 L .64327 .24038 L .64327 .04808 L F 0 .106 1 r .64327 .04808 m .64327 .24038 L .64423 .24038 L .64423 .04808 L F 0 .1 1 r .64423 .04808 m .64423 .24038 L .64519 .24038 L .64519 .04808 L F 0 .094 1 r .64519 .04808 m .64519 .24038 L .64615 .24038 L .64615 .04808 L F 0 .088 1 r .64615 .04808 m .64615 .24038 L .64712 .24038 L .64712 .04808 L F 0 .082 1 r .64712 .04808 m .64712 .24038 L .64808 .24038 L .64808 .04808 L F 0 .076 1 r .64808 .04808 m .64808 .24038 L .64904 .24038 L .64904 .04808 L F 0 .07 1 r .64904 .04808 m .64904 .24038 L .65 .24038 L .65 .04808 L F 0 .064 1 r .65 .04808 m .65 .24038 L .65096 .24038 L .65096 .04808 L F 0 .058 1 r .65096 .04808 m .65096 .24038 L .65192 .24038 L .65192 .04808 L F 0 .052 1 r .65192 .04808 m .65192 .24038 L .65288 .24038 L .65288 .04808 L F 0 .046 1 r .65288 .04808 m .65288 .24038 L .65385 .24038 L .65385 .04808 L F 0 .04 1 r .65385 .04808 m .65385 .24038 L .65481 .24038 L .65481 .04808 L F 0 .034 1 r .65481 .04808 m .65481 .24038 L .65577 .24038 L .65577 .04808 L F 0 .028 1 r .65577 .04808 m .65577 .24038 L .65673 .24038 L .65673 .04808 L F 0 .022 1 r .65673 .04808 m .65673 .24038 L .65769 .24038 L .65769 .04808 L F 0 .016 1 r .65769 .04808 m .65769 .24038 L .65865 .24038 L .65865 .04808 L F 0 .01 1 r .65865 .04808 m .65865 .24038 L .65962 .24038 L .65962 .04808 L F 0 .004 1 r .65962 .04808 m .65962 .24038 L .66058 .24038 L .66058 .04808 L F .002 0 1 r .66058 .04808 m .66058 .24038 L .66154 .24038 L .66154 .04808 L F .008 0 1 r .66154 .04808 m .66154 .24038 L .6625 .24038 L .6625 .04808 L F .014 0 1 r .6625 .04808 m .6625 .24038 L .66346 .24038 L .66346 .04808 L F .02 0 1 r .66346 .04808 m .66346 .24038 L .66442 .24038 L .66442 .04808 L F .026 0 1 r .66442 .04808 m .66442 .24038 L .66538 .24038 L .66538 .04808 L F .032 0 1 r .66538 .04808 m .66538 .24038 L .66635 .24038 L .66635 .04808 L F .038 0 1 r .66635 .04808 m .66635 .24038 L .66731 .24038 L .66731 .04808 L F .044 0 1 r .66731 .04808 m .66731 .24038 L .66827 .24038 L .66827 .04808 L F .05 0 1 r .66827 .04808 m .66827 .24038 L .66923 .24038 L .66923 .04808 L F .056 0 1 r .66923 .04808 m .66923 .24038 L .67019 .24038 L .67019 .04808 L F .062 0 1 r .67019 .04808 m .67019 .24038 L .67115 .24038 L .67115 .04808 L F .068 0 1 r .67115 .04808 m .67115 .24038 L .67212 .24038 L .67212 .04808 L F .074 0 1 r .67212 .04808 m .67212 .24038 L .67308 .24038 L .67308 .04808 L F .08 0 1 r .67308 .04808 m .67308 .24038 L .67404 .24038 L .67404 .04808 L F .086 0 1 r .67404 .04808 m .67404 .24038 L .675 .24038 L .675 .04808 L F .092 0 1 r .675 .04808 m .675 .24038 L .67596 .24038 L .67596 .04808 L F .098 0 1 r .67596 .04808 m .67596 .24038 L .67692 .24038 L .67692 .04808 L F .104 0 1 r .67692 .04808 m .67692 .24038 L .67788 .24038 L .67788 .04808 L F .11 0 1 r .67788 .04808 m .67788 .24038 L .67885 .24038 L .67885 .04808 L F .116 0 1 r .67885 .04808 m .67885 .24038 L .67981 .24038 L .67981 .04808 L F .122 0 1 r .67981 .04808 m .67981 .24038 L .68077 .24038 L .68077 .04808 L F .128 0 1 r .68077 .04808 m .68077 .24038 L .68173 .24038 L .68173 .04808 L F .134 0 1 r .68173 .04808 m .68173 .24038 L .68269 .24038 L .68269 .04808 L F .14 0 1 r .68269 .04808 m .68269 .24038 L .68365 .24038 L .68365 .04808 L F .146 0 1 r .68365 .04808 m .68365 .24038 L .68462 .24038 L .68462 .04808 L F .152 0 1 r .68462 .04808 m .68462 .24038 L .68558 .24038 L .68558 .04808 L F .158 0 1 r .68558 .04808 m .68558 .24038 L .68654 .24038 L .68654 .04808 L F .164 0 1 r .68654 .04808 m .68654 .24038 L .6875 .24038 L .6875 .04808 L F .17 0 1 r .6875 .04808 m .6875 .24038 L .68846 .24038 L .68846 .04808 L F .176 0 1 r .68846 .04808 m .68846 .24038 L .68942 .24038 L .68942 .04808 L F .182 0 1 r .68942 .04808 m .68942 .24038 L .69038 .24038 L .69038 .04808 L F .188 0 1 r .69038 .04808 m .69038 .24038 L .69135 .24038 L .69135 .04808 L F .194 0 1 r .69135 .04808 m .69135 .24038 L .69231 .24038 L .69231 .04808 L F .2 0 1 r .69231 .04808 m .69231 .24038 L .69327 .24038 L .69327 .04808 L F .206 0 1 r .69327 .04808 m .69327 .24038 L .69423 .24038 L .69423 .04808 L F .212 0 1 r .69423 .04808 m .69423 .24038 L .69519 .24038 L .69519 .04808 L F .218 0 1 r .69519 .04808 m .69519 .24038 L .69615 .24038 L .69615 .04808 L F .224 0 1 r .69615 .04808 m .69615 .24038 L .69712 .24038 L .69712 .04808 L F .23 0 1 r .69712 .04808 m .69712 .24038 L .69808 .24038 L .69808 .04808 L F .236 0 1 r .69808 .04808 m .69808 .24038 L .69904 .24038 L .69904 .04808 L F .242 0 1 r .69904 .04808 m .69904 .24038 L .7 .24038 L .7 .04808 L F .248 0 1 r .7 .04808 m .7 .24038 L .70096 .24038 L .70096 .04808 L F .254 0 1 r .70096 .04808 m .70096 .24038 L .70192 .24038 L .70192 .04808 L F .26 0 1 r .70192 .04808 m .70192 .24038 L .70288 .24038 L .70288 .04808 L F .266 0 1 r .70288 .04808 m .70288 .24038 L .70385 .24038 L .70385 .04808 L F .272 0 1 r .70385 .04808 m .70385 .24038 L .70481 .24038 L .70481 .04808 L F .278 0 1 r .70481 .04808 m .70481 .24038 L .70577 .24038 L .70577 .04808 L F .284 0 1 r .70577 .04808 m .70577 .24038 L .70673 .24038 L .70673 .04808 L F .29 0 1 r .70673 .04808 m .70673 .24038 L .70769 .24038 L .70769 .04808 L F .296 0 1 r .70769 .04808 m .70769 .24038 L .70865 .24038 L .70865 .04808 L F .302 0 1 r .70865 .04808 m .70865 .24038 L .70962 .24038 L .70962 .04808 L F .308 0 1 r .70962 .04808 m .70962 .24038 L .71058 .24038 L .71058 .04808 L F .314 0 1 r .71058 .04808 m .71058 .24038 L .71154 .24038 L .71154 .04808 L F .32 0 1 r .71154 .04808 m .71154 .24038 L .7125 .24038 L .7125 .04808 L F .326 0 1 r .7125 .04808 m .7125 .24038 L .71346 .24038 L .71346 .04808 L F .332 0 1 r .71346 .04808 m .71346 .24038 L .71442 .24038 L .71442 .04808 L F .338 0 1 r .71442 .04808 m .71442 .24038 L .71538 .24038 L .71538 .04808 L F .344 0 1 r .71538 .04808 m .71538 .24038 L .71635 .24038 L .71635 .04808 L F .35 0 1 r .71635 .04808 m .71635 .24038 L .71731 .24038 L .71731 .04808 L F .356 0 1 r .71731 .04808 m .71731 .24038 L .71827 .24038 L .71827 .04808 L F .362 0 1 r .71827 .04808 m .71827 .24038 L .71923 .24038 L .71923 .04808 L F .368 0 1 r .71923 .04808 m .71923 .24038 L .72019 .24038 L .72019 .04808 L F .374 0 1 r .72019 .04808 m .72019 .24038 L .72115 .24038 L .72115 .04808 L F .38 0 1 r .72115 .04808 m .72115 .24038 L .72212 .24038 L .72212 .04808 L F .386 0 1 r .72212 .04808 m .72212 .24038 L .72308 .24038 L .72308 .04808 L F .392 0 1 r .72308 .04808 m .72308 .24038 L .72404 .24038 L .72404 .04808 L F .398 0 1 r .72404 .04808 m .72404 .24038 L .725 .24038 L .725 .04808 L F .404 0 1 r .725 .04808 m .725 .24038 L .72596 .24038 L .72596 .04808 L F .41 0 1 r .72596 .04808 m .72596 .24038 L .72692 .24038 L .72692 .04808 L F .416 0 1 r .72692 .04808 m .72692 .24038 L .72788 .24038 L .72788 .04808 L F .422 0 1 r .72788 .04808 m .72788 .24038 L .72885 .24038 L .72885 .04808 L F .428 0 1 r .72885 .04808 m .72885 .24038 L .72981 .24038 L .72981 .04808 L F .434 0 1 r .72981 .04808 m .72981 .24038 L .73077 .24038 L .73077 .04808 L F .44 0 1 r .73077 .04808 m .73077 .24038 L .73173 .24038 L .73173 .04808 L F .446 0 1 r .73173 .04808 m .73173 .24038 L .73269 .24038 L .73269 .04808 L F .452 0 1 r .73269 .04808 m .73269 .24038 L .73365 .24038 L .73365 .04808 L F .458 0 1 r .73365 .04808 m .73365 .24038 L .73462 .24038 L .73462 .04808 L F .464 0 1 r .73462 .04808 m .73462 .24038 L .73558 .24038 L .73558 .04808 L F .47 0 1 r .73558 .04808 m .73558 .24038 L .73654 .24038 L .73654 .04808 L F .476 0 1 r .73654 .04808 m .73654 .24038 L .7375 .24038 L .7375 .04808 L F .482 0 1 r .7375 .04808 m .7375 .24038 L .73846 .24038 L .73846 .04808 L F .488 0 1 r .73846 .04808 m .73846 .24038 L .73942 .24038 L .73942 .04808 L F .494 0 1 r .73942 .04808 m .73942 .24038 L .74038 .24038 L .74038 .04808 L F .5 0 1 r .74038 .04808 m .74038 .24038 L .74135 .24038 L .74135 .04808 L F .506 0 1 r .74135 .04808 m .74135 .24038 L .74231 .24038 L .74231 .04808 L F .512 0 1 r .74231 .04808 m .74231 .24038 L .74327 .24038 L .74327 .04808 L F .518 0 1 r .74327 .04808 m .74327 .24038 L .74423 .24038 L .74423 .04808 L F .524 0 1 r .74423 .04808 m .74423 .24038 L .74519 .24038 L .74519 .04808 L F .53 0 1 r .74519 .04808 m .74519 .24038 L .74615 .24038 L .74615 .04808 L F .536 0 1 r .74615 .04808 m .74615 .24038 L .74712 .24038 L .74712 .04808 L F .542 0 1 r .74712 .04808 m .74712 .24038 L .74808 .24038 L .74808 .04808 L F .548 0 1 r .74808 .04808 m .74808 .24038 L .74904 .24038 L .74904 .04808 L F .554 0 1 r .74904 .04808 m .74904 .24038 L .75 .24038 L .75 .04808 L F .56 0 1 r .75 .04808 m .75 .24038 L .75096 .24038 L .75096 .04808 L F .566 0 1 r .75096 .04808 m .75096 .24038 L .75192 .24038 L .75192 .04808 L F .572 0 1 r .75192 .04808 m .75192 .24038 L .75288 .24038 L .75288 .04808 L F .578 0 1 r .75288 .04808 m .75288 .24038 L .75385 .24038 L .75385 .04808 L F .584 0 1 r .75385 .04808 m .75385 .24038 L .75481 .24038 L .75481 .04808 L F .59 0 1 r .75481 .04808 m .75481 .24038 L .75577 .24038 L .75577 .04808 L F .596 0 1 r .75577 .04808 m .75577 .24038 L .75673 .24038 L .75673 .04808 L F .602 0 1 r .75673 .04808 m .75673 .24038 L .75769 .24038 L .75769 .04808 L F .608 0 1 r .75769 .04808 m .75769 .24038 L .75865 .24038 L .75865 .04808 L F .614 0 1 r .75865 .04808 m .75865 .24038 L .75962 .24038 L .75962 .04808 L F .62 0 1 r .75962 .04808 m .75962 .24038 L .76058 .24038 L .76058 .04808 L F .626 0 1 r .76058 .04808 m .76058 .24038 L .76154 .24038 L .76154 .04808 L F .632 0 1 r .76154 .04808 m .76154 .24038 L .7625 .24038 L .7625 .04808 L F .638 0 1 r .7625 .04808 m .7625 .24038 L .76346 .24038 L .76346 .04808 L F .644 0 1 r .76346 .04808 m .76346 .24038 L .76442 .24038 L .76442 .04808 L F .65 0 1 r .76442 .04808 m .76442 .24038 L .76538 .24038 L .76538 .04808 L F .656 0 1 r .76538 .04808 m .76538 .24038 L .76635 .24038 L .76635 .04808 L F .662 0 1 r .76635 .04808 m .76635 .24038 L .76731 .24038 L .76731 .04808 L F .668 0 1 r .76731 .04808 m .76731 .24038 L .76827 .24038 L .76827 .04808 L F .674 0 1 r .76827 .04808 m .76827 .24038 L .76923 .24038 L .76923 .04808 L F .68 0 1 r .76923 .04808 m .76923 .24038 L .77019 .24038 L .77019 .04808 L F .686 0 1 r .77019 .04808 m .77019 .24038 L .77115 .24038 L .77115 .04808 L F .692 0 1 r .77115 .04808 m .77115 .24038 L .77212 .24038 L .77212 .04808 L F .698 0 1 r .77212 .04808 m .77212 .24038 L .77308 .24038 L .77308 .04808 L F .704 0 1 r .77308 .04808 m .77308 .24038 L .77404 .24038 L .77404 .04808 L F .71 0 1 r .77404 .04808 m .77404 .24038 L .775 .24038 L .775 .04808 L F .716 0 1 r .775 .04808 m .775 .24038 L .77596 .24038 L .77596 .04808 L F .722 0 1 r .77596 .04808 m .77596 .24038 L .77692 .24038 L .77692 .04808 L F .728 0 1 r .77692 .04808 m .77692 .24038 L .77788 .24038 L .77788 .04808 L F .734 0 1 r .77788 .04808 m .77788 .24038 L .77885 .24038 L .77885 .04808 L F .74 0 1 r .77885 .04808 m .77885 .24038 L .77981 .24038 L .77981 .04808 L F .746 0 1 r .77981 .04808 m .77981 .24038 L .78077 .24038 L .78077 .04808 L F .752 0 1 r .78077 .04808 m .78077 .24038 L .78173 .24038 L .78173 .04808 L F .758 0 1 r .78173 .04808 m .78173 .24038 L .78269 .24038 L .78269 .04808 L F .764 0 1 r .78269 .04808 m .78269 .24038 L .78365 .24038 L .78365 .04808 L F .77 0 1 r .78365 .04808 m .78365 .24038 L .78462 .24038 L .78462 .04808 L F .776 0 1 r .78462 .04808 m .78462 .24038 L .78558 .24038 L .78558 .04808 L F .782 0 1 r .78558 .04808 m .78558 .24038 L .78654 .24038 L .78654 .04808 L F .788 0 1 r .78654 .04808 m .78654 .24038 L .7875 .24038 L .7875 .04808 L F .794 0 1 r .7875 .04808 m .7875 .24038 L .78846 .24038 L .78846 .04808 L F .8 0 1 r .78846 .04808 m .78846 .24038 L .78942 .24038 L .78942 .04808 L F .806 0 1 r .78942 .04808 m .78942 .24038 L .79038 .24038 L .79038 .04808 L F .812 0 1 r .79038 .04808 m .79038 .24038 L .79135 .24038 L .79135 .04808 L F .818 0 1 r .79135 .04808 m .79135 .24038 L .79231 .24038 L .79231 .04808 L F .824 0 1 r .79231 .04808 m .79231 .24038 L .79327 .24038 L .79327 .04808 L F .83 0 1 r .79327 .04808 m .79327 .24038 L .79423 .24038 L .79423 .04808 L F .836 0 1 r .79423 .04808 m .79423 .24038 L .79519 .24038 L .79519 .04808 L F .842 0 1 r .79519 .04808 m .79519 .24038 L .79615 .24038 L .79615 .04808 L F .848 0 1 r .79615 .04808 m .79615 .24038 L .79712 .24038 L .79712 .04808 L F .854 0 1 r .79712 .04808 m .79712 .24038 L .79808 .24038 L .79808 .04808 L F .86 0 1 r .79808 .04808 m .79808 .24038 L .79904 .24038 L .79904 .04808 L F .866 0 1 r .79904 .04808 m .79904 .24038 L .8 .24038 L .8 .04808 L F .872 0 1 r .8 .04808 m .8 .24038 L .80096 .24038 L .80096 .04808 L F .878 0 1 r .80096 .04808 m .80096 .24038 L .80192 .24038 L .80192 .04808 L F .884 0 1 r .80192 .04808 m .80192 .24038 L .80288 .24038 L .80288 .04808 L F .89 0 1 r .80288 .04808 m .80288 .24038 L .80385 .24038 L .80385 .04808 L F .896 0 1 r .80385 .04808 m .80385 .24038 L .80481 .24038 L .80481 .04808 L F .902 0 1 r .80481 .04808 m .80481 .24038 L .80577 .24038 L .80577 .04808 L F .908 0 1 r .80577 .04808 m .80577 .24038 L .80673 .24038 L .80673 .04808 L F .914 0 1 r .80673 .04808 m .80673 .24038 L .80769 .24038 L .80769 .04808 L F .92 0 1 r .80769 .04808 m .80769 .24038 L .80865 .24038 L .80865 .04808 L F .926 0 1 r .80865 .04808 m .80865 .24038 L .80962 .24038 L .80962 .04808 L F .932 0 1 r .80962 .04808 m .80962 .24038 L .81058 .24038 L .81058 .04808 L F .938 0 1 r .81058 .04808 m .81058 .24038 L .81154 .24038 L .81154 .04808 L F .944 0 1 r .81154 .04808 m .81154 .24038 L .8125 .24038 L .8125 .04808 L F .95 0 1 r .8125 .04808 m .8125 .24038 L .81346 .24038 L .81346 .04808 L F .956 0 1 r .81346 .04808 m .81346 .24038 L .81442 .24038 L .81442 .04808 L F .962 0 1 r .81442 .04808 m .81442 .24038 L .81538 .24038 L .81538 .04808 L F .968 0 1 r .81538 .04808 m .81538 .24038 L .81635 .24038 L .81635 .04808 L F .974 0 1 r .81635 .04808 m .81635 .24038 L .81731 .24038 L .81731 .04808 L F .98 0 1 r .81731 .04808 m .81731 .24038 L .81827 .24038 L .81827 .04808 L F .986 0 1 r .81827 .04808 m .81827 .24038 L .81923 .24038 L .81923 .04808 L F .992 0 1 r .81923 .04808 m .81923 .24038 L .82019 .24038 L .82019 .04808 L F .998 0 1 r .82019 .04808 m .82019 .24038 L .82115 .24038 L .82115 .04808 L F 1 0 .996 r .82115 .04808 m .82115 .24038 L .82212 .24038 L .82212 .04808 L F 1 0 .99 r .82212 .04808 m .82212 .24038 L .82308 .24038 L .82308 .04808 L F 1 0 .984 r .82308 .04808 m .82308 .24038 L .82404 .24038 L .82404 .04808 L F 1 0 .978 r .82404 .04808 m .82404 .24038 L .825 .24038 L .825 .04808 L F 1 0 .972 r .825 .04808 m .825 .24038 L .82596 .24038 L .82596 .04808 L F 1 0 .966 r .82596 .04808 m .82596 .24038 L .82692 .24038 L .82692 .04808 L F 1 0 .96 r .82692 .04808 m .82692 .24038 L .82788 .24038 L .82788 .04808 L F 1 0 .954 r .82788 .04808 m .82788 .24038 L .82885 .24038 L .82885 .04808 L F 1 0 .948 r .82885 .04808 m .82885 .24038 L .82981 .24038 L .82981 .04808 L F 1 0 .942 r .82981 .04808 m .82981 .24038 L .83077 .24038 L .83077 .04808 L F 1 0 .936 r .83077 .04808 m .83077 .24038 L .83173 .24038 L .83173 .04808 L F 1 0 .93 r .83173 .04808 m .83173 .24038 L .83269 .24038 L .83269 .04808 L F 1 0 .924 r .83269 .04808 m .83269 .24038 L .83365 .24038 L .83365 .04808 L F 1 0 .918 r .83365 .04808 m .83365 .24038 L .83462 .24038 L .83462 .04808 L F 1 0 .912 r .83462 .04808 m .83462 .24038 L .83558 .24038 L .83558 .04808 L F 1 0 .906 r .83558 .04808 m .83558 .24038 L .83654 .24038 L .83654 .04808 L F 1 0 .9 r .83654 .04808 m .83654 .24038 L .8375 .24038 L .8375 .04808 L F 1 0 .894 r .8375 .04808 m .8375 .24038 L .83846 .24038 L .83846 .04808 L F 1 0 .888 r .83846 .04808 m .83846 .24038 L .83942 .24038 L .83942 .04808 L F 1 0 .882 r .83942 .04808 m .83942 .24038 L .84038 .24038 L .84038 .04808 L F 1 0 .876 r .84038 .04808 m .84038 .24038 L .84135 .24038 L .84135 .04808 L F 1 0 .87 r .84135 .04808 m .84135 .24038 L .84231 .24038 L .84231 .04808 L F 1 0 .864 r .84231 .04808 m .84231 .24038 L .84327 .24038 L .84327 .04808 L F 1 0 .858 r .84327 .04808 m .84327 .24038 L .84423 .24038 L .84423 .04808 L F 1 0 .852 r .84423 .04808 m .84423 .24038 L .84519 .24038 L .84519 .04808 L F 1 0 .846 r .84519 .04808 m .84519 .24038 L .84615 .24038 L .84615 .04808 L F 1 0 .84 r .84615 .04808 m .84615 .24038 L .84712 .24038 L .84712 .04808 L F 1 0 .834 r .84712 .04808 m .84712 .24038 L .84808 .24038 L .84808 .04808 L F 1 0 .828 r .84808 .04808 m .84808 .24038 L .84904 .24038 L .84904 .04808 L F 1 0 .822 r .84904 .04808 m .84904 .24038 L .85 .24038 L .85 .04808 L F 1 0 .816 r .85 .04808 m .85 .24038 L .85096 .24038 L .85096 .04808 L F 1 0 .81 r .85096 .04808 m .85096 .24038 L .85192 .24038 L .85192 .04808 L F 1 0 .804 r .85192 .04808 m .85192 .24038 L .85288 .24038 L .85288 .04808 L F 1 0 .798 r .85288 .04808 m .85288 .24038 L .85385 .24038 L .85385 .04808 L F 1 0 .792 r .85385 .04808 m .85385 .24038 L .85481 .24038 L .85481 .04808 L F 1 0 .786 r .85481 .04808 m .85481 .24038 L .85577 .24038 L .85577 .04808 L F 1 0 .78 r .85577 .04808 m .85577 .24038 L .85673 .24038 L .85673 .04808 L F 1 0 .774 r .85673 .04808 m .85673 .24038 L .85769 .24038 L .85769 .04808 L F 1 0 .768 r .85769 .04808 m .85769 .24038 L .85865 .24038 L .85865 .04808 L F 1 0 .762 r .85865 .04808 m .85865 .24038 L .85962 .24038 L .85962 .04808 L F 1 0 .756 r .85962 .04808 m .85962 .24038 L .86058 .24038 L .86058 .04808 L F 1 0 .75 r .86058 .04808 m .86058 .24038 L .86154 .24038 L .86154 .04808 L F 1 0 .744 r .86154 .04808 m .86154 .24038 L .8625 .24038 L .8625 .04808 L F 1 0 .738 r .8625 .04808 m .8625 .24038 L .86346 .24038 L .86346 .04808 L F 1 0 .732 r .86346 .04808 m .86346 .24038 L .86442 .24038 L .86442 .04808 L F 1 0 .726 r .86442 .04808 m .86442 .24038 L .86538 .24038 L .86538 .04808 L F 1 0 .72 r .86538 .04808 m .86538 .24038 L .86635 .24038 L .86635 .04808 L F 1 0 .714 r .86635 .04808 m .86635 .24038 L .86731 .24038 L .86731 .04808 L F 1 0 .708 r .86731 .04808 m .86731 .24038 L .86827 .24038 L .86827 .04808 L F 1 0 .702 r .86827 .04808 m .86827 .24038 L .86923 .24038 L .86923 .04808 L F 1 0 .696 r .86923 .04808 m .86923 .24038 L .87019 .24038 L .87019 .04808 L F 1 0 .69 r .87019 .04808 m .87019 .24038 L .87115 .24038 L .87115 .04808 L F 1 0 .684 r .87115 .04808 m .87115 .24038 L .87212 .24038 L .87212 .04808 L F 1 0 .678 r .87212 .04808 m .87212 .24038 L .87308 .24038 L .87308 .04808 L F 1 0 .672 r .87308 .04808 m .87308 .24038 L .87404 .24038 L .87404 .04808 L F 1 0 .666 r .87404 .04808 m .87404 .24038 L .875 .24038 L .875 .04808 L F 1 0 .66 r .875 .04808 m .875 .24038 L .87596 .24038 L .87596 .04808 L F 1 0 .654 r .87596 .04808 m .87596 .24038 L .87692 .24038 L .87692 .04808 L F 1 0 .648 r .87692 .04808 m .87692 .24038 L .87788 .24038 L .87788 .04808 L F 1 0 .642 r .87788 .04808 m .87788 .24038 L .87885 .24038 L .87885 .04808 L F 1 0 .636 r .87885 .04808 m .87885 .24038 L .87981 .24038 L .87981 .04808 L F 1 0 .63 r .87981 .04808 m .87981 .24038 L .88077 .24038 L .88077 .04808 L F 1 0 .624 r .88077 .04808 m .88077 .24038 L .88173 .24038 L .88173 .04808 L F 1 0 .618 r .88173 .04808 m .88173 .24038 L .88269 .24038 L .88269 .04808 L F 1 0 .612 r .88269 .04808 m .88269 .24038 L .88365 .24038 L .88365 .04808 L F 1 0 .606 r .88365 .04808 m .88365 .24038 L .88462 .24038 L .88462 .04808 L F 1 0 .6 r .88462 .04808 m .88462 .24038 L .88558 .24038 L .88558 .04808 L F 1 0 .594 r .88558 .04808 m .88558 .24038 L .88654 .24038 L .88654 .04808 L F 1 0 .588 r .88654 .04808 m .88654 .24038 L .8875 .24038 L .8875 .04808 L F 1 0 .582 r .8875 .04808 m .8875 .24038 L .88846 .24038 L .88846 .04808 L F 1 0 .576 r .88846 .04808 m .88846 .24038 L .88942 .24038 L .88942 .04808 L F 1 0 .57 r .88942 .04808 m .88942 .24038 L .89038 .24038 L .89038 .04808 L F 1 0 .564 r .89038 .04808 m .89038 .24038 L .89135 .24038 L .89135 .04808 L F 1 0 .558 r .89135 .04808 m .89135 .24038 L .89231 .24038 L .89231 .04808 L F 1 0 .552 r .89231 .04808 m .89231 .24038 L .89327 .24038 L .89327 .04808 L F 1 0 .546 r .89327 .04808 m .89327 .24038 L .89423 .24038 L .89423 .04808 L F 1 0 .54 r .89423 .04808 m .89423 .24038 L .89519 .24038 L .89519 .04808 L F 1 0 .534 r .89519 .04808 m .89519 .24038 L .89615 .24038 L .89615 .04808 L F 1 0 .528 r .89615 .04808 m .89615 .24038 L .89712 .24038 L .89712 .04808 L F 1 0 .522 r .89712 .04808 m .89712 .24038 L .89808 .24038 L .89808 .04808 L F 1 0 .516 r .89808 .04808 m .89808 .24038 L .89904 .24038 L .89904 .04808 L F 1 0 .51 r .89904 .04808 m .89904 .24038 L .9 .24038 L .9 .04808 L F 1 0 .504 r .9 .04808 m .9 .24038 L .90096 .24038 L .90096 .04808 L F 1 0 .498 r .90096 .04808 m .90096 .24038 L .90192 .24038 L .90192 .04808 L F 1 0 .492 r .90192 .04808 m .90192 .24038 L .90288 .24038 L .90288 .04808 L F 1 0 .486 r .90288 .04808 m .90288 .24038 L .90385 .24038 L .90385 .04808 L F 1 0 .48 r .90385 .04808 m .90385 .24038 L .90481 .24038 L .90481 .04808 L F 1 0 .474 r .90481 .04808 m .90481 .24038 L .90577 .24038 L .90577 .04808 L F 1 0 .468 r .90577 .04808 m .90577 .24038 L .90673 .24038 L .90673 .04808 L F 1 0 .462 r .90673 .04808 m .90673 .24038 L .90769 .24038 L .90769 .04808 L F 1 0 .456 r .90769 .04808 m .90769 .24038 L .90865 .24038 L .90865 .04808 L F 1 0 .45 r .90865 .04808 m .90865 .24038 L .90962 .24038 L .90962 .04808 L F 1 0 .444 r .90962 .04808 m .90962 .24038 L .91058 .24038 L .91058 .04808 L F 1 0 .438 r .91058 .04808 m .91058 .24038 L .91154 .24038 L .91154 .04808 L F 1 0 .432 r .91154 .04808 m .91154 .24038 L .9125 .24038 L .9125 .04808 L F 1 0 .426 r .9125 .04808 m .9125 .24038 L .91346 .24038 L .91346 .04808 L F 1 0 .42 r .91346 .04808 m .91346 .24038 L .91442 .24038 L .91442 .04808 L F 1 0 .414 r .91442 .04808 m .91442 .24038 L .91538 .24038 L .91538 .04808 L F 1 0 .408 r .91538 .04808 m .91538 .24038 L .91635 .24038 L .91635 .04808 L F 1 0 .402 r .91635 .04808 m .91635 .24038 L .91731 .24038 L .91731 .04808 L F 1 0 .396 r .91731 .04808 m .91731 .24038 L .91827 .24038 L .91827 .04808 L F 1 0 .39 r .91827 .04808 m .91827 .24038 L .91923 .24038 L .91923 .04808 L F 1 0 .384 r .91923 .04808 m .91923 .24038 L .92019 .24038 L .92019 .04808 L F 1 0 .378 r .92019 .04808 m .92019 .24038 L .92115 .24038 L .92115 .04808 L F 1 0 .372 r .92115 .04808 m .92115 .24038 L .92212 .24038 L .92212 .04808 L F 1 0 .366 r .92212 .04808 m .92212 .24038 L .92308 .24038 L .92308 .04808 L F 1 0 .36 r .92308 .04808 m .92308 .24038 L .92404 .24038 L .92404 .04808 L F 1 0 .354 r .92404 .04808 m .92404 .24038 L .925 .24038 L .925 .04808 L F 1 0 .348 r .925 .04808 m .925 .24038 L .92596 .24038 L .92596 .04808 L F 1 0 .342 r .92596 .04808 m .92596 .24038 L .92692 .24038 L .92692 .04808 L F 1 0 .336 r .92692 .04808 m .92692 .24038 L .92788 .24038 L .92788 .04808 L F 1 0 .33 r .92788 .04808 m .92788 .24038 L .92885 .24038 L .92885 .04808 L F 1 0 .324 r .92885 .04808 m .92885 .24038 L .92981 .24038 L .92981 .04808 L F 1 0 .318 r .92981 .04808 m .92981 .24038 L .93077 .24038 L .93077 .04808 L F 1 0 .312 r .93077 .04808 m .93077 .24038 L .93173 .24038 L .93173 .04808 L F 1 0 .306 r .93173 .04808 m .93173 .24038 L .93269 .24038 L .93269 .04808 L F 1 0 .3 r .93269 .04808 m .93269 .24038 L .93365 .24038 L .93365 .04808 L F 1 0 .294 r .93365 .04808 m .93365 .24038 L .93462 .24038 L .93462 .04808 L F 1 0 .288 r .93462 .04808 m .93462 .24038 L .93558 .24038 L .93558 .04808 L F 1 0 .282 r .93558 .04808 m .93558 .24038 L .93654 .24038 L .93654 .04808 L F 1 0 .276 r .93654 .04808 m .93654 .24038 L .9375 .24038 L .9375 .04808 L F 1 0 .27 r .9375 .04808 m .9375 .24038 L .93846 .24038 L .93846 .04808 L F 1 0 .264 r .93846 .04808 m .93846 .24038 L .93942 .24038 L .93942 .04808 L F 1 0 .258 r .93942 .04808 m .93942 .24038 L .94038 .24038 L .94038 .04808 L F 1 0 .252 r .94038 .04808 m .94038 .24038 L .94135 .24038 L .94135 .04808 L F 1 0 .246 r .94135 .04808 m .94135 .24038 L .94231 .24038 L .94231 .04808 L F 1 0 .24 r .94231 .04808 m .94231 .24038 L .94327 .24038 L .94327 .04808 L F 1 0 .234 r .94327 .04808 m .94327 .24038 L .94423 .24038 L .94423 .04808 L F 1 0 .228 r .94423 .04808 m .94423 .24038 L .94519 .24038 L .94519 .04808 L F 1 0 .222 r .94519 .04808 m .94519 .24038 L .94615 .24038 L .94615 .04808 L F 1 0 .216 r .94615 .04808 m .94615 .24038 L .94712 .24038 L .94712 .04808 L F 1 0 .21 r .94712 .04808 m .94712 .24038 L .94808 .24038 L .94808 .04808 L F 1 0 .204 r .94808 .04808 m .94808 .24038 L .94904 .24038 L .94904 .04808 L F 1 0 .198 r .94904 .04808 m .94904 .24038 L .95 .24038 L .95 .04808 L F 1 0 .192 r .95 .04808 m .95 .24038 L .95096 .24038 L .95096 .04808 L F 1 0 .186 r .95096 .04808 m .95096 .24038 L .95192 .24038 L .95192 .04808 L F 1 0 .18 r .95192 .04808 m .95192 .24038 L .95288 .24038 L .95288 .04808 L F 1 0 .174 r .95288 .04808 m .95288 .24038 L .95385 .24038 L .95385 .04808 L F 1 0 .168 r .95385 .04808 m .95385 .24038 L .95481 .24038 L .95481 .04808 L F 1 0 .162 r .95481 .04808 m .95481 .24038 L .95577 .24038 L .95577 .04808 L F 1 0 .156 r .95577 .04808 m .95577 .24038 L .95673 .24038 L .95673 .04808 L F 1 0 .15 r .95673 .04808 m .95673 .24038 L .95769 .24038 L .95769 .04808 L F 1 0 .144 r .95769 .04808 m .95769 .24038 L .95865 .24038 L .95865 .04808 L F 1 0 .138 r .95865 .04808 m .95865 .24038 L .95962 .24038 L .95962 .04808 L F 1 0 .132 r .95962 .04808 m .95962 .24038 L .96058 .24038 L .96058 .04808 L F 1 0 .126 r .96058 .04808 m .96058 .24038 L .96154 .24038 L .96154 .04808 L F 1 0 .12 r .96154 .04808 m .96154 .24038 L .9625 .24038 L .9625 .04808 L F 1 0 .114 r .9625 .04808 m .9625 .24038 L .96346 .24038 L .96346 .04808 L F 1 0 .108 r .96346 .04808 m .96346 .24038 L .96442 .24038 L .96442 .04808 L F 1 0 .102 r .96442 .04808 m .96442 .24038 L .96538 .24038 L .96538 .04808 L F 1 0 .096 r .96538 .04808 m .96538 .24038 L .96635 .24038 L .96635 .04808 L F 1 0 .09 r .96635 .04808 m .96635 .24038 L .96731 .24038 L .96731 .04808 L F 1 0 .084 r .96731 .04808 m .96731 .24038 L .96827 .24038 L .96827 .04808 L F 1 0 .078 r .96827 .04808 m .96827 .24038 L .96923 .24038 L .96923 .04808 L F 1 0 .072 r .96923 .04808 m .96923 .24038 L .97019 .24038 L .97019 .04808 L F 1 0 .066 r .97019 .04808 m .97019 .24038 L .97115 .24038 L .97115 .04808 L F 1 0 .06 r .97115 .04808 m .97115 .24038 L .97212 .24038 L .97212 .04808 L F 1 0 .054 r .97212 .04808 m .97212 .24038 L .97308 .24038 L .97308 .04808 L F 1 0 .048 r .97308 .04808 m .97308 .24038 L .97404 .24038 L .97404 .04808 L F 1 0 .042 r .97404 .04808 m .97404 .24038 L .975 .24038 L .975 .04808 L F 1 0 .036 r .975 .04808 m .975 .24038 L .97596 .24038 L .97596 .04808 L F 1 0 .03 r .97596 .04808 m .97596 .24038 L .97692 .24038 L .97692 .04808 L F 1 0 .024 r .97692 .04808 m .97692 .24038 L .97788 .24038 L .97788 .04808 L F 1 0 .018 r .97788 .04808 m .97788 .24038 L .97885 .24038 L .97885 .04808 L F 1 0 .012 r .97885 .04808 m .97885 .24038 L .97981 .24038 L .97981 .04808 L F 1 0 .006 r .97981 .04808 m .97981 .24038 L .98077 .24038 L .98077 .04808 L F 1 0 0 r .98077 .04808 m .98077 .24038 L .98173 .24038 L .98173 .04808 L F 0 g .5 Mabswid [ ] 0 setdash .01923 .04808 m .01923 .0625 L s .11538 .04808 m .11538 .0625 L s .21154 .04808 m .21154 .0625 L s .30769 .04808 m .30769 .0625 L s .40385 .04808 m .40385 .0625 L s .5 .04808 m .5 .0625 L s .59615 .04808 m .59615 .0625 L s .69231 .04808 m .69231 .0625 L s .78846 .04808 m .78846 .0625 L s .88462 .04808 m .88462 .0625 L s .98077 .04808 m .98077 .0625 L s .5 .04808 m .5 .08173 L s .01923 .04808 m .01923 .08173 L s .98077 .04808 m .98077 .08173 L s gsave .01923 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .98077 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.00327054 0.97619 0.134092 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0192308 0.961538 0.0480769 0.961538 [ [ 0 0 0 0 ] [ 1 .28846 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .28846 L 0 .28846 L closepath clip newpath 0 g .01923 .04808 m .01923 .24038 L .02019 .24038 L .02019 .04808 L F .001 g .02019 .04808 m .02019 .24038 L .02115 .24038 L .02115 .04808 L F .002 g .02115 .04808 m .02115 .24038 L .02212 .24038 L .02212 .04808 L F .003 g .02212 .04808 m .02212 .24038 L .02308 .24038 L .02308 .04808 L F .004 g .02308 .04808 m .02308 .24038 L .02404 .24038 L .02404 .04808 L F .005 g .02404 .04808 m .02404 .24038 L .025 .24038 L .025 .04808 L F .006 g .025 .04808 m .025 .24038 L .02596 .24038 L .02596 .04808 L F .007 g .02596 .04808 m .02596 .24038 L .02692 .24038 L .02692 .04808 L F .008 g .02692 .04808 m .02692 .24038 L .02788 .24038 L .02788 .04808 L F .009 g .02788 .04808 m .02788 .24038 L .02885 .24038 L .02885 .04808 L F .01 g .02885 .04808 m .02885 .24038 L .02981 .24038 L .02981 .04808 L F .011 g .02981 .04808 m .02981 .24038 L .03077 .24038 L .03077 .04808 L F .012 g .03077 .04808 m .03077 .24038 L .03173 .24038 L .03173 .04808 L F .013 g .03173 .04808 m .03173 .24038 L .03269 .24038 L .03269 .04808 L F .014 g .03269 .04808 m .03269 .24038 L .03365 .24038 L .03365 .04808 L F .015 g .03365 .04808 m .03365 .24038 L .03462 .24038 L .03462 .04808 L F .016 g .03462 .04808 m .03462 .24038 L .03558 .24038 L .03558 .04808 L F .017 g .03558 .04808 m .03558 .24038 L .03654 .24038 L .03654 .04808 L F .018 g .03654 .04808 m .03654 .24038 L .0375 .24038 L .0375 .04808 L F .019 g .0375 .04808 m .0375 .24038 L .03846 .24038 L .03846 .04808 L F .02 g .03846 .04808 m .03846 .24038 L .03942 .24038 L .03942 .04808 L F .021 g .03942 .04808 m .03942 .24038 L .04038 .24038 L .04038 .04808 L F .022 g .04038 .04808 m .04038 .24038 L .04135 .24038 L .04135 .04808 L F .023 g .04135 .04808 m .04135 .24038 L .04231 .24038 L .04231 .04808 L F .024 g .04231 .04808 m .04231 .24038 L .04327 .24038 L .04327 .04808 L F .025 g .04327 .04808 m .04327 .24038 L .04423 .24038 L .04423 .04808 L F .026 g .04423 .04808 m .04423 .24038 L .04519 .24038 L .04519 .04808 L F .027 g .04519 .04808 m .04519 .24038 L .04615 .24038 L .04615 .04808 L F .028 g .04615 .04808 m .04615 .24038 L .04712 .24038 L .04712 .04808 L F .029 g .04712 .04808 m .04712 .24038 L .04808 .24038 L .04808 .04808 L F .03 g .04808 .04808 m .04808 .24038 L .04904 .24038 L .04904 .04808 L F .031 g .04904 .04808 m .04904 .24038 L .05 .24038 L .05 .04808 L F .032 g .05 .04808 m .05 .24038 L .05096 .24038 L .05096 .04808 L F .033 g .05096 .04808 m .05096 .24038 L .05192 .24038 L .05192 .04808 L F .034 g .05192 .04808 m .05192 .24038 L .05288 .24038 L .05288 .04808 L F .035 g .05288 .04808 m .05288 .24038 L .05385 .24038 L .05385 .04808 L F .036 g .05385 .04808 m .05385 .24038 L .05481 .24038 L .05481 .04808 L F .037 g .05481 .04808 m .05481 .24038 L .05577 .24038 L .05577 .04808 L F .038 g .05577 .04808 m .05577 .24038 L .05673 .24038 L .05673 .04808 L F .039 g .05673 .04808 m .05673 .24038 L .05769 .24038 L .05769 .04808 L F .04 g .05769 .04808 m .05769 .24038 L .05865 .24038 L .05865 .04808 L F .041 g .05865 .04808 m .05865 .24038 L .05962 .24038 L .05962 .04808 L F .042 g .05962 .04808 m .05962 .24038 L .06058 .24038 L .06058 .04808 L F .043 g .06058 .04808 m .06058 .24038 L .06154 .24038 L .06154 .04808 L F .044 g .06154 .04808 m .06154 .24038 L .0625 .24038 L .0625 .04808 L F .045 g .0625 .04808 m .0625 .24038 L .06346 .24038 L .06346 .04808 L F .046 g .06346 .04808 m .06346 .24038 L .06442 .24038 L .06442 .04808 L F .047 g .06442 .04808 m .06442 .24038 L .06538 .24038 L .06538 .04808 L F .048 g .06538 .04808 m .06538 .24038 L .06635 .24038 L .06635 .04808 L F .049 g .06635 .04808 m .06635 .24038 L .06731 .24038 L .06731 .04808 L F .05 g .06731 .04808 m .06731 .24038 L .06827 .24038 L .06827 .04808 L F .051 g .06827 .04808 m .06827 .24038 L .06923 .24038 L .06923 .04808 L F .052 g .06923 .04808 m .06923 .24038 L .07019 .24038 L .07019 .04808 L F .053 g .07019 .04808 m .07019 .24038 L .07115 .24038 L .07115 .04808 L F .054 g .07115 .04808 m .07115 .24038 L .07212 .24038 L .07212 .04808 L F .055 g .07212 .04808 m .07212 .24038 L .07308 .24038 L .07308 .04808 L F .056 g .07308 .04808 m .07308 .24038 L .07404 .24038 L .07404 .04808 L F .057 g .07404 .04808 m .07404 .24038 L .075 .24038 L .075 .04808 L F .058 g .075 .04808 m .075 .24038 L .07596 .24038 L .07596 .04808 L F .059 g .07596 .04808 m .07596 .24038 L .07692 .24038 L .07692 .04808 L F .06 g .07692 .04808 m .07692 .24038 L .07788 .24038 L .07788 .04808 L F .061 g .07788 .04808 m .07788 .24038 L .07885 .24038 L .07885 .04808 L F .062 g .07885 .04808 m .07885 .24038 L .07981 .24038 L .07981 .04808 L F .063 g .07981 .04808 m .07981 .24038 L .08077 .24038 L .08077 .04808 L F .064 g .08077 .04808 m .08077 .24038 L .08173 .24038 L .08173 .04808 L F .065 g .08173 .04808 m .08173 .24038 L .08269 .24038 L .08269 .04808 L F .066 g .08269 .04808 m .08269 .24038 L .08365 .24038 L .08365 .04808 L F .067 g .08365 .04808 m .08365 .24038 L .08462 .24038 L .08462 .04808 L F .068 g .08462 .04808 m .08462 .24038 L .08558 .24038 L .08558 .04808 L F .069 g .08558 .04808 m .08558 .24038 L .08654 .24038 L .08654 .04808 L F .07 g .08654 .04808 m .08654 .24038 L .0875 .24038 L .0875 .04808 L F .071 g .0875 .04808 m .0875 .24038 L .08846 .24038 L .08846 .04808 L F .072 g .08846 .04808 m .08846 .24038 L .08942 .24038 L .08942 .04808 L F .073 g .08942 .04808 m .08942 .24038 L .09038 .24038 L .09038 .04808 L F .074 g .09038 .04808 m .09038 .24038 L .09135 .24038 L .09135 .04808 L F .075 g .09135 .04808 m .09135 .24038 L .09231 .24038 L .09231 .04808 L F .076 g .09231 .04808 m .09231 .24038 L .09327 .24038 L .09327 .04808 L F .077 g .09327 .04808 m .09327 .24038 L .09423 .24038 L .09423 .04808 L F .078 g .09423 .04808 m .09423 .24038 L .09519 .24038 L .09519 .04808 L F .079 g .09519 .04808 m .09519 .24038 L .09615 .24038 L .09615 .04808 L F .08 g .09615 .04808 m .09615 .24038 L .09712 .24038 L .09712 .04808 L F .081 g .09712 .04808 m .09712 .24038 L .09808 .24038 L .09808 .04808 L F .082 g .09808 .04808 m .09808 .24038 L .09904 .24038 L .09904 .04808 L F .083 g .09904 .04808 m .09904 .24038 L .1 .24038 L .1 .04808 L F .084 g .1 .04808 m .1 .24038 L .10096 .24038 L .10096 .04808 L F .085 g .10096 .04808 m .10096 .24038 L .10192 .24038 L .10192 .04808 L F .086 g .10192 .04808 m .10192 .24038 L .10288 .24038 L .10288 .04808 L F .087 g .10288 .04808 m .10288 .24038 L .10385 .24038 L .10385 .04808 L F .088 g .10385 .04808 m .10385 .24038 L .10481 .24038 L .10481 .04808 L F .089 g .10481 .04808 m .10481 .24038 L .10577 .24038 L .10577 .04808 L F .09 g .10577 .04808 m .10577 .24038 L .10673 .24038 L .10673 .04808 L F .091 g .10673 .04808 m .10673 .24038 L .10769 .24038 L .10769 .04808 L F .092 g .10769 .04808 m .10769 .24038 L .10865 .24038 L .10865 .04808 L F .093 g .10865 .04808 m .10865 .24038 L .10962 .24038 L .10962 .04808 L F .094 g .10962 .04808 m .10962 .24038 L .11058 .24038 L .11058 .04808 L F .095 g .11058 .04808 m .11058 .24038 L .11154 .24038 L .11154 .04808 L F .096 g .11154 .04808 m .11154 .24038 L .1125 .24038 L .1125 .04808 L F .097 g .1125 .04808 m .1125 .24038 L .11346 .24038 L .11346 .04808 L F .098 g .11346 .04808 m .11346 .24038 L .11442 .24038 L .11442 .04808 L F .099 g .11442 .04808 m .11442 .24038 L .11538 .24038 L .11538 .04808 L F .1 g .11538 .04808 m .11538 .24038 L .11635 .24038 L .11635 .04808 L F .101 g .11635 .04808 m .11635 .24038 L .11731 .24038 L .11731 .04808 L F .102 g .11731 .04808 m .11731 .24038 L .11827 .24038 L .11827 .04808 L F .103 g .11827 .04808 m .11827 .24038 L .11923 .24038 L .11923 .04808 L F .104 g .11923 .04808 m .11923 .24038 L .12019 .24038 L .12019 .04808 L F .105 g .12019 .04808 m .12019 .24038 L .12115 .24038 L .12115 .04808 L F .106 g .12115 .04808 m .12115 .24038 L .12212 .24038 L .12212 .04808 L F .107 g .12212 .04808 m .12212 .24038 L .12308 .24038 L .12308 .04808 L F .108 g .12308 .04808 m .12308 .24038 L .12404 .24038 L .12404 .04808 L F .109 g .12404 .04808 m .12404 .24038 L .125 .24038 L .125 .04808 L F .11 g .125 .04808 m .125 .24038 L .12596 .24038 L .12596 .04808 L F .111 g .12596 .04808 m .12596 .24038 L .12692 .24038 L .12692 .04808 L F .112 g .12692 .04808 m .12692 .24038 L .12788 .24038 L .12788 .04808 L F .113 g .12788 .04808 m .12788 .24038 L .12885 .24038 L .12885 .04808 L F .114 g .12885 .04808 m .12885 .24038 L .12981 .24038 L .12981 .04808 L F .115 g .12981 .04808 m .12981 .24038 L .13077 .24038 L .13077 .04808 L F .116 g .13077 .04808 m .13077 .24038 L .13173 .24038 L .13173 .04808 L F .117 g .13173 .04808 m .13173 .24038 L .13269 .24038 L .13269 .04808 L F .118 g .13269 .04808 m .13269 .24038 L .13365 .24038 L .13365 .04808 L F .119 g .13365 .04808 m .13365 .24038 L .13462 .24038 L .13462 .04808 L F .12 g .13462 .04808 m .13462 .24038 L .13558 .24038 L .13558 .04808 L F .121 g .13558 .04808 m .13558 .24038 L .13654 .24038 L .13654 .04808 L F .122 g .13654 .04808 m .13654 .24038 L .1375 .24038 L .1375 .04808 L F .123 g .1375 .04808 m .1375 .24038 L .13846 .24038 L .13846 .04808 L F .124 g .13846 .04808 m .13846 .24038 L .13942 .24038 L .13942 .04808 L F .125 g .13942 .04808 m .13942 .24038 L .14038 .24038 L .14038 .04808 L F .126 g .14038 .04808 m .14038 .24038 L .14135 .24038 L .14135 .04808 L F .127 g .14135 .04808 m .14135 .24038 L .14231 .24038 L .14231 .04808 L F .128 g .14231 .04808 m .14231 .24038 L .14327 .24038 L .14327 .04808 L F .129 g .14327 .04808 m .14327 .24038 L .14423 .24038 L .14423 .04808 L F .13 g .14423 .04808 m .14423 .24038 L .14519 .24038 L .14519 .04808 L F .131 g .14519 .04808 m .14519 .24038 L .14615 .24038 L .14615 .04808 L F .132 g .14615 .04808 m .14615 .24038 L .14712 .24038 L .14712 .04808 L F .133 g .14712 .04808 m .14712 .24038 L .14808 .24038 L .14808 .04808 L F .134 g .14808 .04808 m .14808 .24038 L .14904 .24038 L .14904 .04808 L F .135 g .14904 .04808 m .14904 .24038 L .15 .24038 L .15 .04808 L F .136 g .15 .04808 m .15 .24038 L .15096 .24038 L .15096 .04808 L F .137 g .15096 .04808 m .15096 .24038 L .15192 .24038 L .15192 .04808 L F .138 g .15192 .04808 m .15192 .24038 L .15288 .24038 L .15288 .04808 L F .139 g .15288 .04808 m .15288 .24038 L .15385 .24038 L .15385 .04808 L F .14 g .15385 .04808 m .15385 .24038 L .15481 .24038 L .15481 .04808 L F .141 g .15481 .04808 m .15481 .24038 L .15577 .24038 L .15577 .04808 L F .142 g .15577 .04808 m .15577 .24038 L .15673 .24038 L .15673 .04808 L F .143 g .15673 .04808 m .15673 .24038 L .15769 .24038 L .15769 .04808 L F .144 g .15769 .04808 m .15769 .24038 L .15865 .24038 L .15865 .04808 L F .145 g .15865 .04808 m .15865 .24038 L .15962 .24038 L .15962 .04808 L F .146 g .15962 .04808 m .15962 .24038 L .16058 .24038 L .16058 .04808 L F .147 g .16058 .04808 m .16058 .24038 L .16154 .24038 L .16154 .04808 L F .148 g .16154 .04808 m .16154 .24038 L .1625 .24038 L .1625 .04808 L F .149 g .1625 .04808 m .1625 .24038 L .16346 .24038 L .16346 .04808 L F .15 g .16346 .04808 m .16346 .24038 L .16442 .24038 L .16442 .04808 L F .151 g .16442 .04808 m .16442 .24038 L .16538 .24038 L .16538 .04808 L F .152 g .16538 .04808 m .16538 .24038 L .16635 .24038 L .16635 .04808 L F .153 g .16635 .04808 m .16635 .24038 L .16731 .24038 L .16731 .04808 L F .154 g .16731 .04808 m .16731 .24038 L .16827 .24038 L .16827 .04808 L F .155 g .16827 .04808 m .16827 .24038 L .16923 .24038 L .16923 .04808 L F .156 g .16923 .04808 m .16923 .24038 L .17019 .24038 L .17019 .04808 L F .157 g .17019 .04808 m .17019 .24038 L .17115 .24038 L .17115 .04808 L F .158 g .17115 .04808 m .17115 .24038 L .17212 .24038 L .17212 .04808 L F .159 g .17212 .04808 m .17212 .24038 L .17308 .24038 L .17308 .04808 L F .16 g .17308 .04808 m .17308 .24038 L .17404 .24038 L .17404 .04808 L F .161 g .17404 .04808 m .17404 .24038 L .175 .24038 L .175 .04808 L F .162 g .175 .04808 m .175 .24038 L .17596 .24038 L .17596 .04808 L F .163 g .17596 .04808 m .17596 .24038 L .17692 .24038 L .17692 .04808 L F .164 g .17692 .04808 m .17692 .24038 L .17788 .24038 L .17788 .04808 L F .165 g .17788 .04808 m .17788 .24038 L .17885 .24038 L .17885 .04808 L F .166 g .17885 .04808 m .17885 .24038 L .17981 .24038 L .17981 .04808 L F .167 g .17981 .04808 m .17981 .24038 L .18077 .24038 L .18077 .04808 L F .168 g .18077 .04808 m .18077 .24038 L .18173 .24038 L .18173 .04808 L F .169 g .18173 .04808 m .18173 .24038 L .18269 .24038 L .18269 .04808 L F .17 g .18269 .04808 m .18269 .24038 L .18365 .24038 L .18365 .04808 L F .171 g .18365 .04808 m .18365 .24038 L .18462 .24038 L .18462 .04808 L F .172 g .18462 .04808 m .18462 .24038 L .18558 .24038 L .18558 .04808 L F .173 g .18558 .04808 m .18558 .24038 L .18654 .24038 L .18654 .04808 L F .174 g .18654 .04808 m .18654 .24038 L .1875 .24038 L .1875 .04808 L F .175 g .1875 .04808 m .1875 .24038 L .18846 .24038 L .18846 .04808 L F .176 g .18846 .04808 m .18846 .24038 L .18942 .24038 L .18942 .04808 L F .177 g .18942 .04808 m .18942 .24038 L .19038 .24038 L .19038 .04808 L F .178 g .19038 .04808 m .19038 .24038 L .19135 .24038 L .19135 .04808 L F .179 g .19135 .04808 m .19135 .24038 L .19231 .24038 L .19231 .04808 L F .18 g .19231 .04808 m .19231 .24038 L .19327 .24038 L .19327 .04808 L F .181 g .19327 .04808 m .19327 .24038 L .19423 .24038 L .19423 .04808 L F .182 g .19423 .04808 m .19423 .24038 L .19519 .24038 L .19519 .04808 L F .183 g .19519 .04808 m .19519 .24038 L .19615 .24038 L .19615 .04808 L F .184 g .19615 .04808 m .19615 .24038 L .19712 .24038 L .19712 .04808 L F .185 g .19712 .04808 m .19712 .24038 L .19808 .24038 L .19808 .04808 L F .186 g .19808 .04808 m .19808 .24038 L .19904 .24038 L .19904 .04808 L F .187 g .19904 .04808 m .19904 .24038 L .2 .24038 L .2 .04808 L F .188 g .2 .04808 m .2 .24038 L .20096 .24038 L .20096 .04808 L F .189 g .20096 .04808 m .20096 .24038 L .20192 .24038 L .20192 .04808 L F .19 g .20192 .04808 m .20192 .24038 L .20288 .24038 L .20288 .04808 L F .191 g .20288 .04808 m .20288 .24038 L .20385 .24038 L .20385 .04808 L F .192 g .20385 .04808 m .20385 .24038 L .20481 .24038 L .20481 .04808 L F .193 g .20481 .04808 m .20481 .24038 L .20577 .24038 L .20577 .04808 L F .194 g .20577 .04808 m .20577 .24038 L .20673 .24038 L .20673 .04808 L F .195 g .20673 .04808 m .20673 .24038 L .20769 .24038 L .20769 .04808 L F .196 g .20769 .04808 m .20769 .24038 L .20865 .24038 L .20865 .04808 L F .197 g .20865 .04808 m .20865 .24038 L .20962 .24038 L .20962 .04808 L F .198 g .20962 .04808 m .20962 .24038 L .21058 .24038 L .21058 .04808 L F .199 g .21058 .04808 m .21058 .24038 L .21154 .24038 L .21154 .04808 L F .2 g .21154 .04808 m .21154 .24038 L .2125 .24038 L .2125 .04808 L F .201 g .2125 .04808 m .2125 .24038 L .21346 .24038 L .21346 .04808 L F .202 g .21346 .04808 m .21346 .24038 L .21442 .24038 L .21442 .04808 L F .203 g .21442 .04808 m .21442 .24038 L .21538 .24038 L .21538 .04808 L F .204 g .21538 .04808 m .21538 .24038 L .21635 .24038 L .21635 .04808 L F .205 g .21635 .04808 m .21635 .24038 L .21731 .24038 L .21731 .04808 L F .206 g .21731 .04808 m .21731 .24038 L .21827 .24038 L .21827 .04808 L F .207 g .21827 .04808 m .21827 .24038 L .21923 .24038 L .21923 .04808 L F .208 g .21923 .04808 m .21923 .24038 L .22019 .24038 L .22019 .04808 L F .209 g .22019 .04808 m .22019 .24038 L .22115 .24038 L .22115 .04808 L F .21 g .22115 .04808 m .22115 .24038 L .22212 .24038 L .22212 .04808 L F .211 g .22212 .04808 m .22212 .24038 L .22308 .24038 L .22308 .04808 L F .212 g .22308 .04808 m .22308 .24038 L .22404 .24038 L .22404 .04808 L F .213 g .22404 .04808 m .22404 .24038 L .225 .24038 L .225 .04808 L F .214 g .225 .04808 m .225 .24038 L .22596 .24038 L .22596 .04808 L F .215 g .22596 .04808 m .22596 .24038 L .22692 .24038 L .22692 .04808 L F .216 g .22692 .04808 m .22692 .24038 L .22788 .24038 L .22788 .04808 L F .217 g .22788 .04808 m .22788 .24038 L .22885 .24038 L .22885 .04808 L F .218 g .22885 .04808 m .22885 .24038 L .22981 .24038 L .22981 .04808 L F .219 g .22981 .04808 m .22981 .24038 L .23077 .24038 L .23077 .04808 L F .22 g .23077 .04808 m .23077 .24038 L .23173 .24038 L .23173 .04808 L F .221 g .23173 .04808 m .23173 .24038 L .23269 .24038 L .23269 .04808 L F .222 g .23269 .04808 m .23269 .24038 L .23365 .24038 L .23365 .04808 L F .223 g .23365 .04808 m .23365 .24038 L .23462 .24038 L .23462 .04808 L F .224 g .23462 .04808 m .23462 .24038 L .23558 .24038 L .23558 .04808 L F .225 g .23558 .04808 m .23558 .24038 L .23654 .24038 L .23654 .04808 L F .226 g .23654 .04808 m .23654 .24038 L .2375 .24038 L .2375 .04808 L F .227 g .2375 .04808 m .2375 .24038 L .23846 .24038 L .23846 .04808 L F .228 g .23846 .04808 m .23846 .24038 L .23942 .24038 L .23942 .04808 L F .229 g .23942 .04808 m .23942 .24038 L .24038 .24038 L .24038 .04808 L F .23 g .24038 .04808 m .24038 .24038 L .24135 .24038 L .24135 .04808 L F .231 g .24135 .04808 m .24135 .24038 L .24231 .24038 L .24231 .04808 L F .232 g .24231 .04808 m .24231 .24038 L .24327 .24038 L .24327 .04808 L F .233 g .24327 .04808 m .24327 .24038 L .24423 .24038 L .24423 .04808 L F .234 g .24423 .04808 m .24423 .24038 L .24519 .24038 L .24519 .04808 L F .235 g .24519 .04808 m .24519 .24038 L .24615 .24038 L .24615 .04808 L F .236 g .24615 .04808 m .24615 .24038 L .24712 .24038 L .24712 .04808 L F .237 g .24712 .04808 m .24712 .24038 L .24808 .24038 L .24808 .04808 L F .238 g .24808 .04808 m .24808 .24038 L .24904 .24038 L .24904 .04808 L F .239 g .24904 .04808 m .24904 .24038 L .25 .24038 L .25 .04808 L F .24 g .25 .04808 m .25 .24038 L .25096 .24038 L .25096 .04808 L F .241 g .25096 .04808 m .25096 .24038 L .25192 .24038 L .25192 .04808 L F .242 g .25192 .04808 m .25192 .24038 L .25288 .24038 L .25288 .04808 L F .243 g .25288 .04808 m .25288 .24038 L .25385 .24038 L .25385 .04808 L F .244 g .25385 .04808 m .25385 .24038 L .25481 .24038 L .25481 .04808 L F .245 g .25481 .04808 m .25481 .24038 L .25577 .24038 L .25577 .04808 L F .246 g .25577 .04808 m .25577 .24038 L .25673 .24038 L .25673 .04808 L F .247 g .25673 .04808 m .25673 .24038 L .25769 .24038 L .25769 .04808 L F .248 g .25769 .04808 m .25769 .24038 L .25865 .24038 L .25865 .04808 L F .249 g .25865 .04808 m .25865 .24038 L .25962 .24038 L .25962 .04808 L F .25 g .25962 .04808 m .25962 .24038 L .26058 .24038 L .26058 .04808 L F .251 g .26058 .04808 m .26058 .24038 L .26154 .24038 L .26154 .04808 L F .252 g .26154 .04808 m .26154 .24038 L .2625 .24038 L .2625 .04808 L F .253 g .2625 .04808 m .2625 .24038 L .26346 .24038 L .26346 .04808 L F .254 g .26346 .04808 m .26346 .24038 L .26442 .24038 L .26442 .04808 L F .255 g .26442 .04808 m .26442 .24038 L .26538 .24038 L .26538 .04808 L F .256 g .26538 .04808 m .26538 .24038 L .26635 .24038 L .26635 .04808 L F .257 g .26635 .04808 m .26635 .24038 L .26731 .24038 L .26731 .04808 L F .258 g .26731 .04808 m .26731 .24038 L .26827 .24038 L .26827 .04808 L F .259 g .26827 .04808 m .26827 .24038 L .26923 .24038 L .26923 .04808 L F .26 g .26923 .04808 m .26923 .24038 L .27019 .24038 L .27019 .04808 L F .261 g .27019 .04808 m .27019 .24038 L .27115 .24038 L .27115 .04808 L F .262 g .27115 .04808 m .27115 .24038 L .27212 .24038 L .27212 .04808 L F .263 g .27212 .04808 m .27212 .24038 L .27308 .24038 L .27308 .04808 L F .264 g .27308 .04808 m .27308 .24038 L .27404 .24038 L .27404 .04808 L F .265 g .27404 .04808 m .27404 .24038 L .275 .24038 L .275 .04808 L F .266 g .275 .04808 m .275 .24038 L .27596 .24038 L .27596 .04808 L F .267 g .27596 .04808 m .27596 .24038 L .27692 .24038 L .27692 .04808 L F .268 g .27692 .04808 m .27692 .24038 L .27788 .24038 L .27788 .04808 L F .269 g .27788 .04808 m .27788 .24038 L .27885 .24038 L .27885 .04808 L F .27 g .27885 .04808 m .27885 .24038 L .27981 .24038 L .27981 .04808 L F .271 g .27981 .04808 m .27981 .24038 L .28077 .24038 L .28077 .04808 L F .272 g .28077 .04808 m .28077 .24038 L .28173 .24038 L .28173 .04808 L F .273 g .28173 .04808 m .28173 .24038 L .28269 .24038 L .28269 .04808 L F .274 g .28269 .04808 m .28269 .24038 L .28365 .24038 L .28365 .04808 L F .275 g .28365 .04808 m .28365 .24038 L .28462 .24038 L .28462 .04808 L F .276 g .28462 .04808 m .28462 .24038 L .28558 .24038 L .28558 .04808 L F .277 g .28558 .04808 m .28558 .24038 L .28654 .24038 L .28654 .04808 L F .278 g .28654 .04808 m .28654 .24038 L .2875 .24038 L .2875 .04808 L F .279 g .2875 .04808 m .2875 .24038 L .28846 .24038 L .28846 .04808 L F .28 g .28846 .04808 m .28846 .24038 L .28942 .24038 L .28942 .04808 L F .281 g .28942 .04808 m .28942 .24038 L .29038 .24038 L .29038 .04808 L F .282 g .29038 .04808 m .29038 .24038 L .29135 .24038 L .29135 .04808 L F .283 g .29135 .04808 m .29135 .24038 L .29231 .24038 L .29231 .04808 L F .284 g .29231 .04808 m .29231 .24038 L .29327 .24038 L .29327 .04808 L F .285 g .29327 .04808 m .29327 .24038 L .29423 .24038 L .29423 .04808 L F .286 g .29423 .04808 m .29423 .24038 L .29519 .24038 L .29519 .04808 L F .287 g .29519 .04808 m .29519 .24038 L .29615 .24038 L .29615 .04808 L F .288 g .29615 .04808 m .29615 .24038 L .29712 .24038 L .29712 .04808 L F .289 g .29712 .04808 m .29712 .24038 L .29808 .24038 L .29808 .04808 L F .29 g .29808 .04808 m .29808 .24038 L .29904 .24038 L .29904 .04808 L F .291 g .29904 .04808 m .29904 .24038 L .3 .24038 L .3 .04808 L F .292 g .3 .04808 m .3 .24038 L .30096 .24038 L .30096 .04808 L F .293 g .30096 .04808 m .30096 .24038 L .30192 .24038 L .30192 .04808 L F .294 g .30192 .04808 m .30192 .24038 L .30288 .24038 L .30288 .04808 L F .295 g .30288 .04808 m .30288 .24038 L .30385 .24038 L .30385 .04808 L F .296 g .30385 .04808 m .30385 .24038 L .30481 .24038 L .30481 .04808 L F .297 g .30481 .04808 m .30481 .24038 L .30577 .24038 L .30577 .04808 L F .298 g .30577 .04808 m .30577 .24038 L .30673 .24038 L .30673 .04808 L F .299 g .30673 .04808 m .30673 .24038 L .30769 .24038 L .30769 .04808 L F .3 g .30769 .04808 m .30769 .24038 L .30865 .24038 L .30865 .04808 L F .301 g .30865 .04808 m .30865 .24038 L .30962 .24038 L .30962 .04808 L F .302 g .30962 .04808 m .30962 .24038 L .31058 .24038 L .31058 .04808 L F .303 g .31058 .04808 m .31058 .24038 L .31154 .24038 L .31154 .04808 L F .304 g .31154 .04808 m .31154 .24038 L .3125 .24038 L .3125 .04808 L F .305 g .3125 .04808 m .3125 .24038 L .31346 .24038 L .31346 .04808 L F .306 g .31346 .04808 m .31346 .24038 L .31442 .24038 L .31442 .04808 L F .307 g .31442 .04808 m .31442 .24038 L .31538 .24038 L .31538 .04808 L F .308 g .31538 .04808 m .31538 .24038 L .31635 .24038 L .31635 .04808 L F .309 g .31635 .04808 m .31635 .24038 L .31731 .24038 L .31731 .04808 L F .31 g .31731 .04808 m .31731 .24038 L .31827 .24038 L .31827 .04808 L F .311 g .31827 .04808 m .31827 .24038 L .31923 .24038 L .31923 .04808 L F .312 g .31923 .04808 m .31923 .24038 L .32019 .24038 L .32019 .04808 L F .313 g .32019 .04808 m .32019 .24038 L .32115 .24038 L .32115 .04808 L F .314 g .32115 .04808 m .32115 .24038 L .32212 .24038 L .32212 .04808 L F .315 g .32212 .04808 m .32212 .24038 L .32308 .24038 L .32308 .04808 L F .316 g .32308 .04808 m .32308 .24038 L .32404 .24038 L .32404 .04808 L F .317 g .32404 .04808 m .32404 .24038 L .325 .24038 L .325 .04808 L F .318 g .325 .04808 m .325 .24038 L .32596 .24038 L .32596 .04808 L F .319 g .32596 .04808 m .32596 .24038 L .32692 .24038 L .32692 .04808 L F .32 g .32692 .04808 m .32692 .24038 L .32788 .24038 L .32788 .04808 L F .321 g .32788 .04808 m .32788 .24038 L .32885 .24038 L .32885 .04808 L F .322 g .32885 .04808 m .32885 .24038 L .32981 .24038 L .32981 .04808 L F .323 g .32981 .04808 m .32981 .24038 L .33077 .24038 L .33077 .04808 L F .324 g .33077 .04808 m .33077 .24038 L .33173 .24038 L .33173 .04808 L F .325 g .33173 .04808 m .33173 .24038 L .33269 .24038 L .33269 .04808 L F .326 g .33269 .04808 m .33269 .24038 L .33365 .24038 L .33365 .04808 L F .327 g .33365 .04808 m .33365 .24038 L .33462 .24038 L .33462 .04808 L F .328 g .33462 .04808 m .33462 .24038 L .33558 .24038 L .33558 .04808 L F .329 g .33558 .04808 m .33558 .24038 L .33654 .24038 L .33654 .04808 L F .33 g .33654 .04808 m .33654 .24038 L .3375 .24038 L .3375 .04808 L F .331 g .3375 .04808 m .3375 .24038 L .33846 .24038 L .33846 .04808 L F .332 g .33846 .04808 m .33846 .24038 L .33942 .24038 L .33942 .04808 L F .333 g .33942 .04808 m .33942 .24038 L .34038 .24038 L .34038 .04808 L F .334 g .34038 .04808 m .34038 .24038 L .34135 .24038 L .34135 .04808 L F .335 g .34135 .04808 m .34135 .24038 L .34231 .24038 L .34231 .04808 L F .336 g .34231 .04808 m .34231 .24038 L .34327 .24038 L .34327 .04808 L F .337 g .34327 .04808 m .34327 .24038 L .34423 .24038 L .34423 .04808 L F .338 g .34423 .04808 m .34423 .24038 L .34519 .24038 L .34519 .04808 L F .339 g .34519 .04808 m .34519 .24038 L .34615 .24038 L .34615 .04808 L F .34 g .34615 .04808 m .34615 .24038 L .34712 .24038 L .34712 .04808 L F .341 g .34712 .04808 m .34712 .24038 L .34808 .24038 L .34808 .04808 L F .342 g .34808 .04808 m .34808 .24038 L .34904 .24038 L .34904 .04808 L F .343 g .34904 .04808 m .34904 .24038 L .35 .24038 L .35 .04808 L F .344 g .35 .04808 m .35 .24038 L .35096 .24038 L .35096 .04808 L F .345 g .35096 .04808 m .35096 .24038 L .35192 .24038 L .35192 .04808 L F .346 g .35192 .04808 m .35192 .24038 L .35288 .24038 L .35288 .04808 L F .347 g .35288 .04808 m .35288 .24038 L .35385 .24038 L .35385 .04808 L F .348 g .35385 .04808 m .35385 .24038 L .35481 .24038 L .35481 .04808 L F .349 g .35481 .04808 m .35481 .24038 L .35577 .24038 L .35577 .04808 L F .35 g .35577 .04808 m .35577 .24038 L .35673 .24038 L .35673 .04808 L F .351 g .35673 .04808 m .35673 .24038 L .35769 .24038 L .35769 .04808 L F .352 g .35769 .04808 m .35769 .24038 L .35865 .24038 L .35865 .04808 L F .353 g .35865 .04808 m .35865 .24038 L .35962 .24038 L .35962 .04808 L F .354 g .35962 .04808 m .35962 .24038 L .36058 .24038 L .36058 .04808 L F .355 g .36058 .04808 m .36058 .24038 L .36154 .24038 L .36154 .04808 L F .356 g .36154 .04808 m .36154 .24038 L .3625 .24038 L .3625 .04808 L F .357 g .3625 .04808 m .3625 .24038 L .36346 .24038 L .36346 .04808 L F .358 g .36346 .04808 m .36346 .24038 L .36442 .24038 L .36442 .04808 L F .359 g .36442 .04808 m .36442 .24038 L .36538 .24038 L .36538 .04808 L F .36 g .36538 .04808 m .36538 .24038 L .36635 .24038 L .36635 .04808 L F .361 g .36635 .04808 m .36635 .24038 L .36731 .24038 L .36731 .04808 L F .362 g .36731 .04808 m .36731 .24038 L .36827 .24038 L .36827 .04808 L F .363 g .36827 .04808 m .36827 .24038 L .36923 .24038 L .36923 .04808 L F .364 g .36923 .04808 m .36923 .24038 L .37019 .24038 L .37019 .04808 L F .365 g .37019 .04808 m .37019 .24038 L .37115 .24038 L .37115 .04808 L F .366 g .37115 .04808 m .37115 .24038 L .37212 .24038 L .37212 .04808 L F .367 g .37212 .04808 m .37212 .24038 L .37308 .24038 L .37308 .04808 L F .368 g .37308 .04808 m .37308 .24038 L .37404 .24038 L .37404 .04808 L F .369 g .37404 .04808 m .37404 .24038 L .375 .24038 L .375 .04808 L F .37 g .375 .04808 m .375 .24038 L .37596 .24038 L .37596 .04808 L F .371 g .37596 .04808 m .37596 .24038 L .37692 .24038 L .37692 .04808 L F .372 g .37692 .04808 m .37692 .24038 L .37788 .24038 L .37788 .04808 L F .373 g .37788 .04808 m .37788 .24038 L .37885 .24038 L .37885 .04808 L F .374 g .37885 .04808 m .37885 .24038 L .37981 .24038 L .37981 .04808 L F .375 g .37981 .04808 m .37981 .24038 L .38077 .24038 L .38077 .04808 L F .376 g .38077 .04808 m .38077 .24038 L .38173 .24038 L .38173 .04808 L F .377 g .38173 .04808 m .38173 .24038 L .38269 .24038 L .38269 .04808 L F .378 g .38269 .04808 m .38269 .24038 L .38365 .24038 L .38365 .04808 L F .379 g .38365 .04808 m .38365 .24038 L .38462 .24038 L .38462 .04808 L F .38 g .38462 .04808 m .38462 .24038 L .38558 .24038 L .38558 .04808 L F .381 g .38558 .04808 m .38558 .24038 L .38654 .24038 L .38654 .04808 L F .382 g .38654 .04808 m .38654 .24038 L .3875 .24038 L .3875 .04808 L F .383 g .3875 .04808 m .3875 .24038 L .38846 .24038 L .38846 .04808 L F .384 g .38846 .04808 m .38846 .24038 L .38942 .24038 L .38942 .04808 L F .385 g .38942 .04808 m .38942 .24038 L .39038 .24038 L .39038 .04808 L F .386 g .39038 .04808 m .39038 .24038 L .39135 .24038 L .39135 .04808 L F .387 g .39135 .04808 m .39135 .24038 L .39231 .24038 L .39231 .04808 L F .388 g .39231 .04808 m .39231 .24038 L .39327 .24038 L .39327 .04808 L F .389 g .39327 .04808 m .39327 .24038 L .39423 .24038 L .39423 .04808 L F .39 g .39423 .04808 m .39423 .24038 L .39519 .24038 L .39519 .04808 L F .391 g .39519 .04808 m .39519 .24038 L .39615 .24038 L .39615 .04808 L F .392 g .39615 .04808 m .39615 .24038 L .39712 .24038 L .39712 .04808 L F .393 g .39712 .04808 m .39712 .24038 L .39808 .24038 L .39808 .04808 L F .394 g .39808 .04808 m .39808 .24038 L .39904 .24038 L .39904 .04808 L F .395 g .39904 .04808 m .39904 .24038 L .4 .24038 L .4 .04808 L F .396 g .4 .04808 m .4 .24038 L .40096 .24038 L .40096 .04808 L F .397 g .40096 .04808 m .40096 .24038 L .40192 .24038 L .40192 .04808 L F .398 g .40192 .04808 m .40192 .24038 L .40288 .24038 L .40288 .04808 L F .399 g .40288 .04808 m .40288 .24038 L .40385 .24038 L .40385 .04808 L F .4 g .40385 .04808 m .40385 .24038 L .40481 .24038 L .40481 .04808 L F .401 g .40481 .04808 m .40481 .24038 L .40577 .24038 L .40577 .04808 L F .402 g .40577 .04808 m .40577 .24038 L .40673 .24038 L .40673 .04808 L F .403 g .40673 .04808 m .40673 .24038 L .40769 .24038 L .40769 .04808 L F .404 g .40769 .04808 m .40769 .24038 L .40865 .24038 L .40865 .04808 L F .405 g .40865 .04808 m .40865 .24038 L .40962 .24038 L .40962 .04808 L F .406 g .40962 .04808 m .40962 .24038 L .41058 .24038 L .41058 .04808 L F .407 g .41058 .04808 m .41058 .24038 L .41154 .24038 L .41154 .04808 L F .408 g .41154 .04808 m .41154 .24038 L .4125 .24038 L .4125 .04808 L F .409 g .4125 .04808 m .4125 .24038 L .41346 .24038 L .41346 .04808 L F .41 g .41346 .04808 m .41346 .24038 L .41442 .24038 L .41442 .04808 L F .411 g .41442 .04808 m .41442 .24038 L .41538 .24038 L .41538 .04808 L F .412 g .41538 .04808 m .41538 .24038 L .41635 .24038 L .41635 .04808 L F .413 g .41635 .04808 m .41635 .24038 L .41731 .24038 L .41731 .04808 L F .414 g .41731 .04808 m .41731 .24038 L .41827 .24038 L .41827 .04808 L F .415 g .41827 .04808 m .41827 .24038 L .41923 .24038 L .41923 .04808 L F .416 g .41923 .04808 m .41923 .24038 L .42019 .24038 L .42019 .04808 L F .417 g .42019 .04808 m .42019 .24038 L .42115 .24038 L .42115 .04808 L F .418 g .42115 .04808 m .42115 .24038 L .42212 .24038 L .42212 .04808 L F .419 g .42212 .04808 m .42212 .24038 L .42308 .24038 L .42308 .04808 L F .42 g .42308 .04808 m .42308 .24038 L .42404 .24038 L .42404 .04808 L F .421 g .42404 .04808 m .42404 .24038 L .425 .24038 L .425 .04808 L F .422 g .425 .04808 m .425 .24038 L .42596 .24038 L .42596 .04808 L F .423 g .42596 .04808 m .42596 .24038 L .42692 .24038 L .42692 .04808 L F .424 g .42692 .04808 m .42692 .24038 L .42788 .24038 L .42788 .04808 L F .425 g .42788 .04808 m .42788 .24038 L .42885 .24038 L .42885 .04808 L F .426 g .42885 .04808 m .42885 .24038 L .42981 .24038 L .42981 .04808 L F .427 g .42981 .04808 m .42981 .24038 L .43077 .24038 L .43077 .04808 L F .428 g .43077 .04808 m .43077 .24038 L .43173 .24038 L .43173 .04808 L F .429 g .43173 .04808 m .43173 .24038 L .43269 .24038 L .43269 .04808 L F .43 g .43269 .04808 m .43269 .24038 L .43365 .24038 L .43365 .04808 L F .431 g .43365 .04808 m .43365 .24038 L .43462 .24038 L .43462 .04808 L F .432 g .43462 .04808 m .43462 .24038 L .43558 .24038 L .43558 .04808 L F .433 g .43558 .04808 m .43558 .24038 L .43654 .24038 L .43654 .04808 L F .434 g .43654 .04808 m .43654 .24038 L .4375 .24038 L .4375 .04808 L F .435 g .4375 .04808 m .4375 .24038 L .43846 .24038 L .43846 .04808 L F .436 g .43846 .04808 m .43846 .24038 L .43942 .24038 L .43942 .04808 L F .437 g .43942 .04808 m .43942 .24038 L .44038 .24038 L .44038 .04808 L F .438 g .44038 .04808 m .44038 .24038 L .44135 .24038 L .44135 .04808 L F .439 g .44135 .04808 m .44135 .24038 L .44231 .24038 L .44231 .04808 L F .44 g .44231 .04808 m .44231 .24038 L .44327 .24038 L .44327 .04808 L F .441 g .44327 .04808 m .44327 .24038 L .44423 .24038 L .44423 .04808 L F .442 g .44423 .04808 m .44423 .24038 L .44519 .24038 L .44519 .04808 L F .443 g .44519 .04808 m .44519 .24038 L .44615 .24038 L .44615 .04808 L F .444 g .44615 .04808 m .44615 .24038 L .44712 .24038 L .44712 .04808 L F .445 g .44712 .04808 m .44712 .24038 L .44808 .24038 L .44808 .04808 L F .446 g .44808 .04808 m .44808 .24038 L .44904 .24038 L .44904 .04808 L F .447 g .44904 .04808 m .44904 .24038 L .45 .24038 L .45 .04808 L F .448 g .45 .04808 m .45 .24038 L .45096 .24038 L .45096 .04808 L F .449 g .45096 .04808 m .45096 .24038 L .45192 .24038 L .45192 .04808 L F .45 g .45192 .04808 m .45192 .24038 L .45288 .24038 L .45288 .04808 L F .451 g .45288 .04808 m .45288 .24038 L .45385 .24038 L .45385 .04808 L F .452 g .45385 .04808 m .45385 .24038 L .45481 .24038 L .45481 .04808 L F .453 g .45481 .04808 m .45481 .24038 L .45577 .24038 L .45577 .04808 L F .454 g .45577 .04808 m .45577 .24038 L .45673 .24038 L .45673 .04808 L F .455 g .45673 .04808 m .45673 .24038 L .45769 .24038 L .45769 .04808 L F .456 g .45769 .04808 m .45769 .24038 L .45865 .24038 L .45865 .04808 L F .457 g .45865 .04808 m .45865 .24038 L .45962 .24038 L .45962 .04808 L F .458 g .45962 .04808 m .45962 .24038 L .46058 .24038 L .46058 .04808 L F .459 g .46058 .04808 m .46058 .24038 L .46154 .24038 L .46154 .04808 L F .46 g .46154 .04808 m .46154 .24038 L .4625 .24038 L .4625 .04808 L F .461 g .4625 .04808 m .4625 .24038 L .46346 .24038 L .46346 .04808 L F .462 g .46346 .04808 m .46346 .24038 L .46442 .24038 L .46442 .04808 L F .463 g .46442 .04808 m .46442 .24038 L .46538 .24038 L .46538 .04808 L F .464 g .46538 .04808 m .46538 .24038 L .46635 .24038 L .46635 .04808 L F .465 g .46635 .04808 m .46635 .24038 L .46731 .24038 L .46731 .04808 L F .466 g .46731 .04808 m .46731 .24038 L .46827 .24038 L .46827 .04808 L F .467 g .46827 .04808 m .46827 .24038 L .46923 .24038 L .46923 .04808 L F .468 g .46923 .04808 m .46923 .24038 L .47019 .24038 L .47019 .04808 L F .469 g .47019 .04808 m .47019 .24038 L .47115 .24038 L .47115 .04808 L F .47 g .47115 .04808 m .47115 .24038 L .47212 .24038 L .47212 .04808 L F .471 g .47212 .04808 m .47212 .24038 L .47308 .24038 L .47308 .04808 L F .472 g .47308 .04808 m .47308 .24038 L .47404 .24038 L .47404 .04808 L F .473 g .47404 .04808 m .47404 .24038 L .475 .24038 L .475 .04808 L F .474 g .475 .04808 m .475 .24038 L .47596 .24038 L .47596 .04808 L F .475 g .47596 .04808 m .47596 .24038 L .47692 .24038 L .47692 .04808 L F .476 g .47692 .04808 m .47692 .24038 L .47788 .24038 L .47788 .04808 L F .477 g .47788 .04808 m .47788 .24038 L .47885 .24038 L .47885 .04808 L F .478 g .47885 .04808 m .47885 .24038 L .47981 .24038 L .47981 .04808 L F .479 g .47981 .04808 m .47981 .24038 L .48077 .24038 L .48077 .04808 L F .48 g .48077 .04808 m .48077 .24038 L .48173 .24038 L .48173 .04808 L F .481 g .48173 .04808 m .48173 .24038 L .48269 .24038 L .48269 .04808 L F .482 g .48269 .04808 m .48269 .24038 L .48365 .24038 L .48365 .04808 L F .483 g .48365 .04808 m .48365 .24038 L .48462 .24038 L .48462 .04808 L F .484 g .48462 .04808 m .48462 .24038 L .48558 .24038 L .48558 .04808 L F .485 g .48558 .04808 m .48558 .24038 L .48654 .24038 L .48654 .04808 L F .486 g .48654 .04808 m .48654 .24038 L .4875 .24038 L .4875 .04808 L F .487 g .4875 .04808 m .4875 .24038 L .48846 .24038 L .48846 .04808 L F .488 g .48846 .04808 m .48846 .24038 L .48942 .24038 L .48942 .04808 L F .489 g .48942 .04808 m .48942 .24038 L .49038 .24038 L .49038 .04808 L F .49 g .49038 .04808 m .49038 .24038 L .49135 .24038 L .49135 .04808 L F .491 g .49135 .04808 m .49135 .24038 L .49231 .24038 L .49231 .04808 L F .492 g .49231 .04808 m .49231 .24038 L .49327 .24038 L .49327 .04808 L F .493 g .49327 .04808 m .49327 .24038 L .49423 .24038 L .49423 .04808 L F .494 g .49423 .04808 m .49423 .24038 L .49519 .24038 L .49519 .04808 L F .495 g .49519 .04808 m .49519 .24038 L .49615 .24038 L .49615 .04808 L F .496 g .49615 .04808 m .49615 .24038 L .49712 .24038 L .49712 .04808 L F .497 g .49712 .04808 m .49712 .24038 L .49808 .24038 L .49808 .04808 L F .498 g .49808 .04808 m .49808 .24038 L .49904 .24038 L .49904 .04808 L F .499 g .49904 .04808 m .49904 .24038 L .5 .24038 L .5 .04808 L F .5 g .5 .04808 m .5 .24038 L .50096 .24038 L .50096 .04808 L F .501 g .50096 .04808 m .50096 .24038 L .50192 .24038 L .50192 .04808 L F .502 g .50192 .04808 m .50192 .24038 L .50288 .24038 L .50288 .04808 L F .503 g .50288 .04808 m .50288 .24038 L .50385 .24038 L .50385 .04808 L F .504 g .50385 .04808 m .50385 .24038 L .50481 .24038 L .50481 .04808 L F .505 g .50481 .04808 m .50481 .24038 L .50577 .24038 L .50577 .04808 L F .506 g .50577 .04808 m .50577 .24038 L .50673 .24038 L .50673 .04808 L F .507 g .50673 .04808 m .50673 .24038 L .50769 .24038 L .50769 .04808 L F .508 g .50769 .04808 m .50769 .24038 L .50865 .24038 L .50865 .04808 L F .509 g .50865 .04808 m .50865 .24038 L .50962 .24038 L .50962 .04808 L F .51 g .50962 .04808 m .50962 .24038 L .51058 .24038 L .51058 .04808 L F .511 g .51058 .04808 m .51058 .24038 L .51154 .24038 L .51154 .04808 L F .512 g .51154 .04808 m .51154 .24038 L .5125 .24038 L .5125 .04808 L F .513 g .5125 .04808 m .5125 .24038 L .51346 .24038 L .51346 .04808 L F .514 g .51346 .04808 m .51346 .24038 L .51442 .24038 L .51442 .04808 L F .515 g .51442 .04808 m .51442 .24038 L .51538 .24038 L .51538 .04808 L F .516 g .51538 .04808 m .51538 .24038 L .51635 .24038 L .51635 .04808 L F .517 g .51635 .04808 m .51635 .24038 L .51731 .24038 L .51731 .04808 L F .518 g .51731 .04808 m .51731 .24038 L .51827 .24038 L .51827 .04808 L F .519 g .51827 .04808 m .51827 .24038 L .51923 .24038 L .51923 .04808 L F .52 g .51923 .04808 m .51923 .24038 L .52019 .24038 L .52019 .04808 L F .521 g .52019 .04808 m .52019 .24038 L .52115 .24038 L .52115 .04808 L F .522 g .52115 .04808 m .52115 .24038 L .52212 .24038 L .52212 .04808 L F .523 g .52212 .04808 m .52212 .24038 L .52308 .24038 L .52308 .04808 L F .524 g .52308 .04808 m .52308 .24038 L .52404 .24038 L .52404 .04808 L F .525 g .52404 .04808 m .52404 .24038 L .525 .24038 L .525 .04808 L F .526 g .525 .04808 m .525 .24038 L .52596 .24038 L .52596 .04808 L F .527 g .52596 .04808 m .52596 .24038 L .52692 .24038 L .52692 .04808 L F .528 g .52692 .04808 m .52692 .24038 L .52788 .24038 L .52788 .04808 L F .529 g .52788 .04808 m .52788 .24038 L .52885 .24038 L .52885 .04808 L F .53 g .52885 .04808 m .52885 .24038 L .52981 .24038 L .52981 .04808 L F .531 g .52981 .04808 m .52981 .24038 L .53077 .24038 L .53077 .04808 L F .532 g .53077 .04808 m .53077 .24038 L .53173 .24038 L .53173 .04808 L F .533 g .53173 .04808 m .53173 .24038 L .53269 .24038 L .53269 .04808 L F .534 g .53269 .04808 m .53269 .24038 L .53365 .24038 L .53365 .04808 L F .535 g .53365 .04808 m .53365 .24038 L .53462 .24038 L .53462 .04808 L F .536 g .53462 .04808 m .53462 .24038 L .53558 .24038 L .53558 .04808 L F .537 g .53558 .04808 m .53558 .24038 L .53654 .24038 L .53654 .04808 L F .538 g .53654 .04808 m .53654 .24038 L .5375 .24038 L .5375 .04808 L F .539 g .5375 .04808 m .5375 .24038 L .53846 .24038 L .53846 .04808 L F .54 g .53846 .04808 m .53846 .24038 L .53942 .24038 L .53942 .04808 L F .541 g .53942 .04808 m .53942 .24038 L .54038 .24038 L .54038 .04808 L F .542 g .54038 .04808 m .54038 .24038 L .54135 .24038 L .54135 .04808 L F .543 g .54135 .04808 m .54135 .24038 L .54231 .24038 L .54231 .04808 L F .544 g .54231 .04808 m .54231 .24038 L .54327 .24038 L .54327 .04808 L F .545 g .54327 .04808 m .54327 .24038 L .54423 .24038 L .54423 .04808 L F .546 g .54423 .04808 m .54423 .24038 L .54519 .24038 L .54519 .04808 L F .547 g .54519 .04808 m .54519 .24038 L .54615 .24038 L .54615 .04808 L F .548 g .54615 .04808 m .54615 .24038 L .54712 .24038 L .54712 .04808 L F .549 g .54712 .04808 m .54712 .24038 L .54808 .24038 L .54808 .04808 L F .55 g .54808 .04808 m .54808 .24038 L .54904 .24038 L .54904 .04808 L F .551 g .54904 .04808 m .54904 .24038 L .55 .24038 L .55 .04808 L F .552 g .55 .04808 m .55 .24038 L .55096 .24038 L .55096 .04808 L F .553 g .55096 .04808 m .55096 .24038 L .55192 .24038 L .55192 .04808 L F .554 g .55192 .04808 m .55192 .24038 L .55288 .24038 L .55288 .04808 L F .555 g .55288 .04808 m .55288 .24038 L .55385 .24038 L .55385 .04808 L F .556 g .55385 .04808 m .55385 .24038 L .55481 .24038 L .55481 .04808 L F .557 g .55481 .04808 m .55481 .24038 L .55577 .24038 L .55577 .04808 L F .558 g .55577 .04808 m .55577 .24038 L .55673 .24038 L .55673 .04808 L F .559 g .55673 .04808 m .55673 .24038 L .55769 .24038 L .55769 .04808 L F .56 g .55769 .04808 m .55769 .24038 L .55865 .24038 L .55865 .04808 L F .561 g .55865 .04808 m .55865 .24038 L .55962 .24038 L .55962 .04808 L F .562 g .55962 .04808 m .55962 .24038 L .56058 .24038 L .56058 .04808 L F .563 g .56058 .04808 m .56058 .24038 L .56154 .24038 L .56154 .04808 L F .564 g .56154 .04808 m .56154 .24038 L .5625 .24038 L .5625 .04808 L F .565 g .5625 .04808 m .5625 .24038 L .56346 .24038 L .56346 .04808 L F .566 g .56346 .04808 m .56346 .24038 L .56442 .24038 L .56442 .04808 L F .567 g .56442 .04808 m .56442 .24038 L .56538 .24038 L .56538 .04808 L F .568 g .56538 .04808 m .56538 .24038 L .56635 .24038 L .56635 .04808 L F .569 g .56635 .04808 m .56635 .24038 L .56731 .24038 L .56731 .04808 L F .57 g .56731 .04808 m .56731 .24038 L .56827 .24038 L .56827 .04808 L F .571 g .56827 .04808 m .56827 .24038 L .56923 .24038 L .56923 .04808 L F .572 g .56923 .04808 m .56923 .24038 L .57019 .24038 L .57019 .04808 L F .573 g .57019 .04808 m .57019 .24038 L .57115 .24038 L .57115 .04808 L F .574 g .57115 .04808 m .57115 .24038 L .57212 .24038 L .57212 .04808 L F .575 g .57212 .04808 m .57212 .24038 L .57308 .24038 L .57308 .04808 L F .576 g .57308 .04808 m .57308 .24038 L .57404 .24038 L .57404 .04808 L F .577 g .57404 .04808 m .57404 .24038 L .575 .24038 L .575 .04808 L F .578 g .575 .04808 m .575 .24038 L .57596 .24038 L .57596 .04808 L F .579 g .57596 .04808 m .57596 .24038 L .57692 .24038 L .57692 .04808 L F .58 g .57692 .04808 m .57692 .24038 L .57788 .24038 L .57788 .04808 L F .581 g .57788 .04808 m .57788 .24038 L .57885 .24038 L .57885 .04808 L F .582 g .57885 .04808 m .57885 .24038 L .57981 .24038 L .57981 .04808 L F .583 g .57981 .04808 m .57981 .24038 L .58077 .24038 L .58077 .04808 L F .584 g .58077 .04808 m .58077 .24038 L .58173 .24038 L .58173 .04808 L F .585 g .58173 .04808 m .58173 .24038 L .58269 .24038 L .58269 .04808 L F .586 g .58269 .04808 m .58269 .24038 L .58365 .24038 L .58365 .04808 L F .587 g .58365 .04808 m .58365 .24038 L .58462 .24038 L .58462 .04808 L F .588 g .58462 .04808 m .58462 .24038 L .58558 .24038 L .58558 .04808 L F .589 g .58558 .04808 m .58558 .24038 L .58654 .24038 L .58654 .04808 L F .59 g .58654 .04808 m .58654 .24038 L .5875 .24038 L .5875 .04808 L F .591 g .5875 .04808 m .5875 .24038 L .58846 .24038 L .58846 .04808 L F .592 g .58846 .04808 m .58846 .24038 L .58942 .24038 L .58942 .04808 L F .593 g .58942 .04808 m .58942 .24038 L .59038 .24038 L .59038 .04808 L F .594 g .59038 .04808 m .59038 .24038 L .59135 .24038 L .59135 .04808 L F .595 g .59135 .04808 m .59135 .24038 L .59231 .24038 L .59231 .04808 L F .596 g .59231 .04808 m .59231 .24038 L .59327 .24038 L .59327 .04808 L F .597 g .59327 .04808 m .59327 .24038 L .59423 .24038 L .59423 .04808 L F .598 g .59423 .04808 m .59423 .24038 L .59519 .24038 L .59519 .04808 L F .599 g .59519 .04808 m .59519 .24038 L .59615 .24038 L .59615 .04808 L F .6 g .59615 .04808 m .59615 .24038 L .59712 .24038 L .59712 .04808 L F .601 g .59712 .04808 m .59712 .24038 L .59808 .24038 L .59808 .04808 L F .602 g .59808 .04808 m .59808 .24038 L .59904 .24038 L .59904 .04808 L F .603 g .59904 .04808 m .59904 .24038 L .6 .24038 L .6 .04808 L F .604 g .6 .04808 m .6 .24038 L .60096 .24038 L .60096 .04808 L F .605 g .60096 .04808 m .60096 .24038 L .60192 .24038 L .60192 .04808 L F .606 g .60192 .04808 m .60192 .24038 L .60288 .24038 L .60288 .04808 L F .607 g .60288 .04808 m .60288 .24038 L .60385 .24038 L .60385 .04808 L F .608 g .60385 .04808 m .60385 .24038 L .60481 .24038 L .60481 .04808 L F .609 g .60481 .04808 m .60481 .24038 L .60577 .24038 L .60577 .04808 L F .61 g .60577 .04808 m .60577 .24038 L .60673 .24038 L .60673 .04808 L F .611 g .60673 .04808 m .60673 .24038 L .60769 .24038 L .60769 .04808 L F .612 g .60769 .04808 m .60769 .24038 L .60865 .24038 L .60865 .04808 L F .613 g .60865 .04808 m .60865 .24038 L .60962 .24038 L .60962 .04808 L F .614 g .60962 .04808 m .60962 .24038 L .61058 .24038 L .61058 .04808 L F .615 g .61058 .04808 m .61058 .24038 L .61154 .24038 L .61154 .04808 L F .616 g .61154 .04808 m .61154 .24038 L .6125 .24038 L .6125 .04808 L F .617 g .6125 .04808 m .6125 .24038 L .61346 .24038 L .61346 .04808 L F .618 g .61346 .04808 m .61346 .24038 L .61442 .24038 L .61442 .04808 L F .619 g .61442 .04808 m .61442 .24038 L .61538 .24038 L .61538 .04808 L F .62 g .61538 .04808 m .61538 .24038 L .61635 .24038 L .61635 .04808 L F .621 g .61635 .04808 m .61635 .24038 L .61731 .24038 L .61731 .04808 L F .622 g .61731 .04808 m .61731 .24038 L .61827 .24038 L .61827 .04808 L F .623 g .61827 .04808 m .61827 .24038 L .61923 .24038 L .61923 .04808 L F .624 g .61923 .04808 m .61923 .24038 L .62019 .24038 L .62019 .04808 L F .625 g .62019 .04808 m .62019 .24038 L .62115 .24038 L .62115 .04808 L F .626 g .62115 .04808 m .62115 .24038 L .62212 .24038 L .62212 .04808 L F .627 g .62212 .04808 m .62212 .24038 L .62308 .24038 L .62308 .04808 L F .628 g .62308 .04808 m .62308 .24038 L .62404 .24038 L .62404 .04808 L F .629 g .62404 .04808 m .62404 .24038 L .625 .24038 L .625 .04808 L F .63 g .625 .04808 m .625 .24038 L .62596 .24038 L .62596 .04808 L F .631 g .62596 .04808 m .62596 .24038 L .62692 .24038 L .62692 .04808 L F .632 g .62692 .04808 m .62692 .24038 L .62788 .24038 L .62788 .04808 L F .633 g .62788 .04808 m .62788 .24038 L .62885 .24038 L .62885 .04808 L F .634 g .62885 .04808 m .62885 .24038 L .62981 .24038 L .62981 .04808 L F .635 g .62981 .04808 m .62981 .24038 L .63077 .24038 L .63077 .04808 L F .636 g .63077 .04808 m .63077 .24038 L .63173 .24038 L .63173 .04808 L F .637 g .63173 .04808 m .63173 .24038 L .63269 .24038 L .63269 .04808 L F .638 g .63269 .04808 m .63269 .24038 L .63365 .24038 L .63365 .04808 L F .639 g .63365 .04808 m .63365 .24038 L .63462 .24038 L .63462 .04808 L F .64 g .63462 .04808 m .63462 .24038 L .63558 .24038 L .63558 .04808 L F .641 g .63558 .04808 m .63558 .24038 L .63654 .24038 L .63654 .04808 L F .642 g .63654 .04808 m .63654 .24038 L .6375 .24038 L .6375 .04808 L F .643 g .6375 .04808 m .6375 .24038 L .63846 .24038 L .63846 .04808 L F .644 g .63846 .04808 m .63846 .24038 L .63942 .24038 L .63942 .04808 L F .645 g .63942 .04808 m .63942 .24038 L .64038 .24038 L .64038 .04808 L F .646 g .64038 .04808 m .64038 .24038 L .64135 .24038 L .64135 .04808 L F .647 g .64135 .04808 m .64135 .24038 L .64231 .24038 L .64231 .04808 L F .648 g .64231 .04808 m .64231 .24038 L .64327 .24038 L .64327 .04808 L F .649 g .64327 .04808 m .64327 .24038 L .64423 .24038 L .64423 .04808 L F .65 g .64423 .04808 m .64423 .24038 L .64519 .24038 L .64519 .04808 L F .651 g .64519 .04808 m .64519 .24038 L .64615 .24038 L .64615 .04808 L F .652 g .64615 .04808 m .64615 .24038 L .64712 .24038 L .64712 .04808 L F .653 g .64712 .04808 m .64712 .24038 L .64808 .24038 L .64808 .04808 L F .654 g .64808 .04808 m .64808 .24038 L .64904 .24038 L .64904 .04808 L F .655 g .64904 .04808 m .64904 .24038 L .65 .24038 L .65 .04808 L F .656 g .65 .04808 m .65 .24038 L .65096 .24038 L .65096 .04808 L F .657 g .65096 .04808 m .65096 .24038 L .65192 .24038 L .65192 .04808 L F .658 g .65192 .04808 m .65192 .24038 L .65288 .24038 L .65288 .04808 L F .659 g .65288 .04808 m .65288 .24038 L .65385 .24038 L .65385 .04808 L F .66 g .65385 .04808 m .65385 .24038 L .65481 .24038 L .65481 .04808 L F .661 g .65481 .04808 m .65481 .24038 L .65577 .24038 L .65577 .04808 L F .662 g .65577 .04808 m .65577 .24038 L .65673 .24038 L .65673 .04808 L F .663 g .65673 .04808 m .65673 .24038 L .65769 .24038 L .65769 .04808 L F .664 g .65769 .04808 m .65769 .24038 L .65865 .24038 L .65865 .04808 L F .665 g .65865 .04808 m .65865 .24038 L .65962 .24038 L .65962 .04808 L F .666 g .65962 .04808 m .65962 .24038 L .66058 .24038 L .66058 .04808 L F .667 g .66058 .04808 m .66058 .24038 L .66154 .24038 L .66154 .04808 L F .668 g .66154 .04808 m .66154 .24038 L .6625 .24038 L .6625 .04808 L F .669 g .6625 .04808 m .6625 .24038 L .66346 .24038 L .66346 .04808 L F .67 g .66346 .04808 m .66346 .24038 L .66442 .24038 L .66442 .04808 L F .671 g .66442 .04808 m .66442 .24038 L .66538 .24038 L .66538 .04808 L F .672 g .66538 .04808 m .66538 .24038 L .66635 .24038 L .66635 .04808 L F .673 g .66635 .04808 m .66635 .24038 L .66731 .24038 L .66731 .04808 L F .674 g .66731 .04808 m .66731 .24038 L .66827 .24038 L .66827 .04808 L F .675 g .66827 .04808 m .66827 .24038 L .66923 .24038 L .66923 .04808 L F .676 g .66923 .04808 m .66923 .24038 L .67019 .24038 L .67019 .04808 L F .677 g .67019 .04808 m .67019 .24038 L .67115 .24038 L .67115 .04808 L F .678 g .67115 .04808 m .67115 .24038 L .67212 .24038 L .67212 .04808 L F .679 g .67212 .04808 m .67212 .24038 L .67308 .24038 L .67308 .04808 L F .68 g .67308 .04808 m .67308 .24038 L .67404 .24038 L .67404 .04808 L F .681 g .67404 .04808 m .67404 .24038 L .675 .24038 L .675 .04808 L F .682 g .675 .04808 m .675 .24038 L .67596 .24038 L .67596 .04808 L F .683 g .67596 .04808 m .67596 .24038 L .67692 .24038 L .67692 .04808 L F .684 g .67692 .04808 m .67692 .24038 L .67788 .24038 L .67788 .04808 L F .685 g .67788 .04808 m .67788 .24038 L .67885 .24038 L .67885 .04808 L F .686 g .67885 .04808 m .67885 .24038 L .67981 .24038 L .67981 .04808 L F .687 g .67981 .04808 m .67981 .24038 L .68077 .24038 L .68077 .04808 L F .688 g .68077 .04808 m .68077 .24038 L .68173 .24038 L .68173 .04808 L F .689 g .68173 .04808 m .68173 .24038 L .68269 .24038 L .68269 .04808 L F .69 g .68269 .04808 m .68269 .24038 L .68365 .24038 L .68365 .04808 L F .691 g .68365 .04808 m .68365 .24038 L .68462 .24038 L .68462 .04808 L F .692 g .68462 .04808 m .68462 .24038 L .68558 .24038 L .68558 .04808 L F .693 g .68558 .04808 m .68558 .24038 L .68654 .24038 L .68654 .04808 L F .694 g .68654 .04808 m .68654 .24038 L .6875 .24038 L .6875 .04808 L F .695 g .6875 .04808 m .6875 .24038 L .68846 .24038 L .68846 .04808 L F .696 g .68846 .04808 m .68846 .24038 L .68942 .24038 L .68942 .04808 L F .697 g .68942 .04808 m .68942 .24038 L .69038 .24038 L .69038 .04808 L F .698 g .69038 .04808 m .69038 .24038 L .69135 .24038 L .69135 .04808 L F .699 g .69135 .04808 m .69135 .24038 L .69231 .24038 L .69231 .04808 L F .7 g .69231 .04808 m .69231 .24038 L .69327 .24038 L .69327 .04808 L F .701 g .69327 .04808 m .69327 .24038 L .69423 .24038 L .69423 .04808 L F .702 g .69423 .04808 m .69423 .24038 L .69519 .24038 L .69519 .04808 L F .703 g .69519 .04808 m .69519 .24038 L .69615 .24038 L .69615 .04808 L F .704 g .69615 .04808 m .69615 .24038 L .69712 .24038 L .69712 .04808 L F .705 g .69712 .04808 m .69712 .24038 L .69808 .24038 L .69808 .04808 L F .706 g .69808 .04808 m .69808 .24038 L .69904 .24038 L .69904 .04808 L F .707 g .69904 .04808 m .69904 .24038 L .7 .24038 L .7 .04808 L F .708 g .7 .04808 m .7 .24038 L .70096 .24038 L .70096 .04808 L F .709 g .70096 .04808 m .70096 .24038 L .70192 .24038 L .70192 .04808 L F .71 g .70192 .04808 m .70192 .24038 L .70288 .24038 L .70288 .04808 L F .711 g .70288 .04808 m .70288 .24038 L .70385 .24038 L .70385 .04808 L F .712 g .70385 .04808 m .70385 .24038 L .70481 .24038 L .70481 .04808 L F .713 g .70481 .04808 m .70481 .24038 L .70577 .24038 L .70577 .04808 L F .714 g .70577 .04808 m .70577 .24038 L .70673 .24038 L .70673 .04808 L F .715 g .70673 .04808 m .70673 .24038 L .70769 .24038 L .70769 .04808 L F .716 g .70769 .04808 m .70769 .24038 L .70865 .24038 L .70865 .04808 L F .717 g .70865 .04808 m .70865 .24038 L .70962 .24038 L .70962 .04808 L F .718 g .70962 .04808 m .70962 .24038 L .71058 .24038 L .71058 .04808 L F .719 g .71058 .04808 m .71058 .24038 L .71154 .24038 L .71154 .04808 L F .72 g .71154 .04808 m .71154 .24038 L .7125 .24038 L .7125 .04808 L F .721 g .7125 .04808 m .7125 .24038 L .71346 .24038 L .71346 .04808 L F .722 g .71346 .04808 m .71346 .24038 L .71442 .24038 L .71442 .04808 L F .723 g .71442 .04808 m .71442 .24038 L .71538 .24038 L .71538 .04808 L F .724 g .71538 .04808 m .71538 .24038 L .71635 .24038 L .71635 .04808 L F .725 g .71635 .04808 m .71635 .24038 L .71731 .24038 L .71731 .04808 L F .726 g .71731 .04808 m .71731 .24038 L .71827 .24038 L .71827 .04808 L F .727 g .71827 .04808 m .71827 .24038 L .71923 .24038 L .71923 .04808 L F .728 g .71923 .04808 m .71923 .24038 L .72019 .24038 L .72019 .04808 L F .729 g .72019 .04808 m .72019 .24038 L .72115 .24038 L .72115 .04808 L F .73 g .72115 .04808 m .72115 .24038 L .72212 .24038 L .72212 .04808 L F .731 g .72212 .04808 m .72212 .24038 L .72308 .24038 L .72308 .04808 L F .732 g .72308 .04808 m .72308 .24038 L .72404 .24038 L .72404 .04808 L F .733 g .72404 .04808 m .72404 .24038 L .725 .24038 L .725 .04808 L F .734 g .725 .04808 m .725 .24038 L .72596 .24038 L .72596 .04808 L F .735 g .72596 .04808 m .72596 .24038 L .72692 .24038 L .72692 .04808 L F .736 g .72692 .04808 m .72692 .24038 L .72788 .24038 L .72788 .04808 L F .737 g .72788 .04808 m .72788 .24038 L .72885 .24038 L .72885 .04808 L F .738 g .72885 .04808 m .72885 .24038 L .72981 .24038 L .72981 .04808 L F .739 g .72981 .04808 m .72981 .24038 L .73077 .24038 L .73077 .04808 L F .74 g .73077 .04808 m .73077 .24038 L .73173 .24038 L .73173 .04808 L F .741 g .73173 .04808 m .73173 .24038 L .73269 .24038 L .73269 .04808 L F .742 g .73269 .04808 m .73269 .24038 L .73365 .24038 L .73365 .04808 L F .743 g .73365 .04808 m .73365 .24038 L .73462 .24038 L .73462 .04808 L F .744 g .73462 .04808 m .73462 .24038 L .73558 .24038 L .73558 .04808 L F .745 g .73558 .04808 m .73558 .24038 L .73654 .24038 L .73654 .04808 L F .746 g .73654 .04808 m .73654 .24038 L .7375 .24038 L .7375 .04808 L F .747 g .7375 .04808 m .7375 .24038 L .73846 .24038 L .73846 .04808 L F .748 g .73846 .04808 m .73846 .24038 L .73942 .24038 L .73942 .04808 L F .749 g .73942 .04808 m .73942 .24038 L .74038 .24038 L .74038 .04808 L F .75 g .74038 .04808 m .74038 .24038 L .74135 .24038 L .74135 .04808 L F .751 g .74135 .04808 m .74135 .24038 L .74231 .24038 L .74231 .04808 L F .752 g .74231 .04808 m .74231 .24038 L .74327 .24038 L .74327 .04808 L F .753 g .74327 .04808 m .74327 .24038 L .74423 .24038 L .74423 .04808 L F .754 g .74423 .04808 m .74423 .24038 L .74519 .24038 L .74519 .04808 L F .755 g .74519 .04808 m .74519 .24038 L .74615 .24038 L .74615 .04808 L F .756 g .74615 .04808 m .74615 .24038 L .74712 .24038 L .74712 .04808 L F .757 g .74712 .04808 m .74712 .24038 L .74808 .24038 L .74808 .04808 L F .758 g .74808 .04808 m .74808 .24038 L .74904 .24038 L .74904 .04808 L F .759 g .74904 .04808 m .74904 .24038 L .75 .24038 L .75 .04808 L F .76 g .75 .04808 m .75 .24038 L .75096 .24038 L .75096 .04808 L F .761 g .75096 .04808 m .75096 .24038 L .75192 .24038 L .75192 .04808 L F .762 g .75192 .04808 m .75192 .24038 L .75288 .24038 L .75288 .04808 L F .763 g .75288 .04808 m .75288 .24038 L .75385 .24038 L .75385 .04808 L F .764 g .75385 .04808 m .75385 .24038 L .75481 .24038 L .75481 .04808 L F .765 g .75481 .04808 m .75481 .24038 L .75577 .24038 L .75577 .04808 L F .766 g .75577 .04808 m .75577 .24038 L .75673 .24038 L .75673 .04808 L F .767 g .75673 .04808 m .75673 .24038 L .75769 .24038 L .75769 .04808 L F .768 g .75769 .04808 m .75769 .24038 L .75865 .24038 L .75865 .04808 L F .769 g .75865 .04808 m .75865 .24038 L .75962 .24038 L .75962 .04808 L F .77 g .75962 .04808 m .75962 .24038 L .76058 .24038 L .76058 .04808 L F .771 g .76058 .04808 m .76058 .24038 L .76154 .24038 L .76154 .04808 L F .772 g .76154 .04808 m .76154 .24038 L .7625 .24038 L .7625 .04808 L F .773 g .7625 .04808 m .7625 .24038 L .76346 .24038 L .76346 .04808 L F .774 g .76346 .04808 m .76346 .24038 L .76442 .24038 L .76442 .04808 L F .775 g .76442 .04808 m .76442 .24038 L .76538 .24038 L .76538 .04808 L F .776 g .76538 .04808 m .76538 .24038 L .76635 .24038 L .76635 .04808 L F .777 g .76635 .04808 m .76635 .24038 L .76731 .24038 L .76731 .04808 L F .778 g .76731 .04808 m .76731 .24038 L .76827 .24038 L .76827 .04808 L F .779 g .76827 .04808 m .76827 .24038 L .76923 .24038 L .76923 .04808 L F .78 g .76923 .04808 m .76923 .24038 L .77019 .24038 L .77019 .04808 L F .781 g .77019 .04808 m .77019 .24038 L .77115 .24038 L .77115 .04808 L F .782 g .77115 .04808 m .77115 .24038 L .77212 .24038 L .77212 .04808 L F .783 g .77212 .04808 m .77212 .24038 L .77308 .24038 L .77308 .04808 L F .784 g .77308 .04808 m .77308 .24038 L .77404 .24038 L .77404 .04808 L F .785 g .77404 .04808 m .77404 .24038 L .775 .24038 L .775 .04808 L F .786 g .775 .04808 m .775 .24038 L .77596 .24038 L .77596 .04808 L F .787 g .77596 .04808 m .77596 .24038 L .77692 .24038 L .77692 .04808 L F .788 g .77692 .04808 m .77692 .24038 L .77788 .24038 L .77788 .04808 L F .789 g .77788 .04808 m .77788 .24038 L .77885 .24038 L .77885 .04808 L F .79 g .77885 .04808 m .77885 .24038 L .77981 .24038 L .77981 .04808 L F .791 g .77981 .04808 m .77981 .24038 L .78077 .24038 L .78077 .04808 L F .792 g .78077 .04808 m .78077 .24038 L .78173 .24038 L .78173 .04808 L F .793 g .78173 .04808 m .78173 .24038 L .78269 .24038 L .78269 .04808 L F .794 g .78269 .04808 m .78269 .24038 L .78365 .24038 L .78365 .04808 L F .795 g .78365 .04808 m .78365 .24038 L .78462 .24038 L .78462 .04808 L F .796 g .78462 .04808 m .78462 .24038 L .78558 .24038 L .78558 .04808 L F .797 g .78558 .04808 m .78558 .24038 L .78654 .24038 L .78654 .04808 L F .798 g .78654 .04808 m .78654 .24038 L .7875 .24038 L .7875 .04808 L F .799 g .7875 .04808 m .7875 .24038 L .78846 .24038 L .78846 .04808 L F .8 g .78846 .04808 m .78846 .24038 L .78942 .24038 L .78942 .04808 L F .801 g .78942 .04808 m .78942 .24038 L .79038 .24038 L .79038 .04808 L F .802 g .79038 .04808 m .79038 .24038 L .79135 .24038 L .79135 .04808 L F .803 g .79135 .04808 m .79135 .24038 L .79231 .24038 L .79231 .04808 L F .804 g .79231 .04808 m .79231 .24038 L .79327 .24038 L .79327 .04808 L F .805 g .79327 .04808 m .79327 .24038 L .79423 .24038 L .79423 .04808 L F .806 g .79423 .04808 m .79423 .24038 L .79519 .24038 L .79519 .04808 L F .807 g .79519 .04808 m .79519 .24038 L .79615 .24038 L .79615 .04808 L F .808 g .79615 .04808 m .79615 .24038 L .79712 .24038 L .79712 .04808 L F .809 g .79712 .04808 m .79712 .24038 L .79808 .24038 L .79808 .04808 L F .81 g .79808 .04808 m .79808 .24038 L .79904 .24038 L .79904 .04808 L F .811 g .79904 .04808 m .79904 .24038 L .8 .24038 L .8 .04808 L F .812 g .8 .04808 m .8 .24038 L .80096 .24038 L .80096 .04808 L F .813 g .80096 .04808 m .80096 .24038 L .80192 .24038 L .80192 .04808 L F .814 g .80192 .04808 m .80192 .24038 L .80288 .24038 L .80288 .04808 L F .815 g .80288 .04808 m .80288 .24038 L .80385 .24038 L .80385 .04808 L F .816 g .80385 .04808 m .80385 .24038 L .80481 .24038 L .80481 .04808 L F .817 g .80481 .04808 m .80481 .24038 L .80577 .24038 L .80577 .04808 L F .818 g .80577 .04808 m .80577 .24038 L .80673 .24038 L .80673 .04808 L F .819 g .80673 .04808 m .80673 .24038 L .80769 .24038 L .80769 .04808 L F .82 g .80769 .04808 m .80769 .24038 L .80865 .24038 L .80865 .04808 L F .821 g .80865 .04808 m .80865 .24038 L .80962 .24038 L .80962 .04808 L F .822 g .80962 .04808 m .80962 .24038 L .81058 .24038 L .81058 .04808 L F .823 g .81058 .04808 m .81058 .24038 L .81154 .24038 L .81154 .04808 L F .824 g .81154 .04808 m .81154 .24038 L .8125 .24038 L .8125 .04808 L F .825 g .8125 .04808 m .8125 .24038 L .81346 .24038 L .81346 .04808 L F .826 g .81346 .04808 m .81346 .24038 L .81442 .24038 L .81442 .04808 L F .827 g .81442 .04808 m .81442 .24038 L .81538 .24038 L .81538 .04808 L F .828 g .81538 .04808 m .81538 .24038 L .81635 .24038 L .81635 .04808 L F .829 g .81635 .04808 m .81635 .24038 L .81731 .24038 L .81731 .04808 L F .83 g .81731 .04808 m .81731 .24038 L .81827 .24038 L .81827 .04808 L F .831 g .81827 .04808 m .81827 .24038 L .81923 .24038 L .81923 .04808 L F .832 g .81923 .04808 m .81923 .24038 L .82019 .24038 L .82019 .04808 L F .833 g .82019 .04808 m .82019 .24038 L .82115 .24038 L .82115 .04808 L F .834 g .82115 .04808 m .82115 .24038 L .82212 .24038 L .82212 .04808 L F .835 g .82212 .04808 m .82212 .24038 L .82308 .24038 L .82308 .04808 L F .836 g .82308 .04808 m .82308 .24038 L .82404 .24038 L .82404 .04808 L F .837 g .82404 .04808 m .82404 .24038 L .825 .24038 L .825 .04808 L F .838 g .825 .04808 m .825 .24038 L .82596 .24038 L .82596 .04808 L F .839 g .82596 .04808 m .82596 .24038 L .82692 .24038 L .82692 .04808 L F .84 g .82692 .04808 m .82692 .24038 L .82788 .24038 L .82788 .04808 L F .841 g .82788 .04808 m .82788 .24038 L .82885 .24038 L .82885 .04808 L F .842 g .82885 .04808 m .82885 .24038 L .82981 .24038 L .82981 .04808 L F .843 g .82981 .04808 m .82981 .24038 L .83077 .24038 L .83077 .04808 L F .844 g .83077 .04808 m .83077 .24038 L .83173 .24038 L .83173 .04808 L F .845 g .83173 .04808 m .83173 .24038 L .83269 .24038 L .83269 .04808 L F .846 g .83269 .04808 m .83269 .24038 L .83365 .24038 L .83365 .04808 L F .847 g .83365 .04808 m .83365 .24038 L .83462 .24038 L .83462 .04808 L F .848 g .83462 .04808 m .83462 .24038 L .83558 .24038 L .83558 .04808 L F .849 g .83558 .04808 m .83558 .24038 L .83654 .24038 L .83654 .04808 L F .85 g .83654 .04808 m .83654 .24038 L .8375 .24038 L .8375 .04808 L F .851 g .8375 .04808 m .8375 .24038 L .83846 .24038 L .83846 .04808 L F .852 g .83846 .04808 m .83846 .24038 L .83942 .24038 L .83942 .04808 L F .853 g .83942 .04808 m .83942 .24038 L .84038 .24038 L .84038 .04808 L F .854 g .84038 .04808 m .84038 .24038 L .84135 .24038 L .84135 .04808 L F .855 g .84135 .04808 m .84135 .24038 L .84231 .24038 L .84231 .04808 L F .856 g .84231 .04808 m .84231 .24038 L .84327 .24038 L .84327 .04808 L F .857 g .84327 .04808 m .84327 .24038 L .84423 .24038 L .84423 .04808 L F .858 g .84423 .04808 m .84423 .24038 L .84519 .24038 L .84519 .04808 L F .859 g .84519 .04808 m .84519 .24038 L .84615 .24038 L .84615 .04808 L F .86 g .84615 .04808 m .84615 .24038 L .84712 .24038 L .84712 .04808 L F .861 g .84712 .04808 m .84712 .24038 L .84808 .24038 L .84808 .04808 L F .862 g .84808 .04808 m .84808 .24038 L .84904 .24038 L .84904 .04808 L F .863 g .84904 .04808 m .84904 .24038 L .85 .24038 L .85 .04808 L F .864 g .85 .04808 m .85 .24038 L .85096 .24038 L .85096 .04808 L F .865 g .85096 .04808 m .85096 .24038 L .85192 .24038 L .85192 .04808 L F .866 g .85192 .04808 m .85192 .24038 L .85288 .24038 L .85288 .04808 L F .867 g .85288 .04808 m .85288 .24038 L .85385 .24038 L .85385 .04808 L F .868 g .85385 .04808 m .85385 .24038 L .85481 .24038 L .85481 .04808 L F .869 g .85481 .04808 m .85481 .24038 L .85577 .24038 L .85577 .04808 L F .87 g .85577 .04808 m .85577 .24038 L .85673 .24038 L .85673 .04808 L F .871 g .85673 .04808 m .85673 .24038 L .85769 .24038 L .85769 .04808 L F .872 g .85769 .04808 m .85769 .24038 L .85865 .24038 L .85865 .04808 L F .873 g .85865 .04808 m .85865 .24038 L .85962 .24038 L .85962 .04808 L F .874 g .85962 .04808 m .85962 .24038 L .86058 .24038 L .86058 .04808 L F .875 g .86058 .04808 m .86058 .24038 L .86154 .24038 L .86154 .04808 L F .876 g .86154 .04808 m .86154 .24038 L .8625 .24038 L .8625 .04808 L F .877 g .8625 .04808 m .8625 .24038 L .86346 .24038 L .86346 .04808 L F .878 g .86346 .04808 m .86346 .24038 L .86442 .24038 L .86442 .04808 L F .879 g .86442 .04808 m .86442 .24038 L .86538 .24038 L .86538 .04808 L F .88 g .86538 .04808 m .86538 .24038 L .86635 .24038 L .86635 .04808 L F .881 g .86635 .04808 m .86635 .24038 L .86731 .24038 L .86731 .04808 L F .882 g .86731 .04808 m .86731 .24038 L .86827 .24038 L .86827 .04808 L F .883 g .86827 .04808 m .86827 .24038 L .86923 .24038 L .86923 .04808 L F .884 g .86923 .04808 m .86923 .24038 L .87019 .24038 L .87019 .04808 L F .885 g .87019 .04808 m .87019 .24038 L .87115 .24038 L .87115 .04808 L F .886 g .87115 .04808 m .87115 .24038 L .87212 .24038 L .87212 .04808 L F .887 g .87212 .04808 m .87212 .24038 L .87308 .24038 L .87308 .04808 L F .888 g .87308 .04808 m .87308 .24038 L .87404 .24038 L .87404 .04808 L F .889 g .87404 .04808 m .87404 .24038 L .875 .24038 L .875 .04808 L F .89 g .875 .04808 m .875 .24038 L .87596 .24038 L .87596 .04808 L F .891 g .87596 .04808 m .87596 .24038 L .87692 .24038 L .87692 .04808 L F .892 g .87692 .04808 m .87692 .24038 L .87788 .24038 L .87788 .04808 L F .893 g .87788 .04808 m .87788 .24038 L .87885 .24038 L .87885 .04808 L F .894 g .87885 .04808 m .87885 .24038 L .87981 .24038 L .87981 .04808 L F .895 g .87981 .04808 m .87981 .24038 L .88077 .24038 L .88077 .04808 L F .896 g .88077 .04808 m .88077 .24038 L .88173 .24038 L .88173 .04808 L F .897 g .88173 .04808 m .88173 .24038 L .88269 .24038 L .88269 .04808 L F .898 g .88269 .04808 m .88269 .24038 L .88365 .24038 L .88365 .04808 L F .899 g .88365 .04808 m .88365 .24038 L .88462 .24038 L .88462 .04808 L F .9 g .88462 .04808 m .88462 .24038 L .88558 .24038 L .88558 .04808 L F .901 g .88558 .04808 m .88558 .24038 L .88654 .24038 L .88654 .04808 L F .902 g .88654 .04808 m .88654 .24038 L .8875 .24038 L .8875 .04808 L F .903 g .8875 .04808 m .8875 .24038 L .88846 .24038 L .88846 .04808 L F .904 g .88846 .04808 m .88846 .24038 L .88942 .24038 L .88942 .04808 L F .905 g .88942 .04808 m .88942 .24038 L .89038 .24038 L .89038 .04808 L F .906 g .89038 .04808 m .89038 .24038 L .89135 .24038 L .89135 .04808 L F .907 g .89135 .04808 m .89135 .24038 L .89231 .24038 L .89231 .04808 L F .908 g .89231 .04808 m .89231 .24038 L .89327 .24038 L .89327 .04808 L F .909 g .89327 .04808 m .89327 .24038 L .89423 .24038 L .89423 .04808 L F .91 g .89423 .04808 m .89423 .24038 L .89519 .24038 L .89519 .04808 L F .911 g .89519 .04808 m .89519 .24038 L .89615 .24038 L .89615 .04808 L F .912 g .89615 .04808 m .89615 .24038 L .89712 .24038 L .89712 .04808 L F .913 g .89712 .04808 m .89712 .24038 L .89808 .24038 L .89808 .04808 L F .914 g .89808 .04808 m .89808 .24038 L .89904 .24038 L .89904 .04808 L F .915 g .89904 .04808 m .89904 .24038 L .9 .24038 L .9 .04808 L F .916 g .9 .04808 m .9 .24038 L .90096 .24038 L .90096 .04808 L F .917 g .90096 .04808 m .90096 .24038 L .90192 .24038 L .90192 .04808 L F .918 g .90192 .04808 m .90192 .24038 L .90288 .24038 L .90288 .04808 L F .919 g .90288 .04808 m .90288 .24038 L .90385 .24038 L .90385 .04808 L F .92 g .90385 .04808 m .90385 .24038 L .90481 .24038 L .90481 .04808 L F .921 g .90481 .04808 m .90481 .24038 L .90577 .24038 L .90577 .04808 L F .922 g .90577 .04808 m .90577 .24038 L .90673 .24038 L .90673 .04808 L F .923 g .90673 .04808 m .90673 .24038 L .90769 .24038 L .90769 .04808 L F .924 g .90769 .04808 m .90769 .24038 L .90865 .24038 L .90865 .04808 L F .925 g .90865 .04808 m .90865 .24038 L .90962 .24038 L .90962 .04808 L F .926 g .90962 .04808 m .90962 .24038 L .91058 .24038 L .91058 .04808 L F .927 g .91058 .04808 m .91058 .24038 L .91154 .24038 L .91154 .04808 L F .928 g .91154 .04808 m .91154 .24038 L .9125 .24038 L .9125 .04808 L F .929 g .9125 .04808 m .9125 .24038 L .91346 .24038 L .91346 .04808 L F .93 g .91346 .04808 m .91346 .24038 L .91442 .24038 L .91442 .04808 L F .931 g .91442 .04808 m .91442 .24038 L .91538 .24038 L .91538 .04808 L F .932 g .91538 .04808 m .91538 .24038 L .91635 .24038 L .91635 .04808 L F .933 g .91635 .04808 m .91635 .24038 L .91731 .24038 L .91731 .04808 L F .934 g .91731 .04808 m .91731 .24038 L .91827 .24038 L .91827 .04808 L F .935 g .91827 .04808 m .91827 .24038 L .91923 .24038 L .91923 .04808 L F .936 g .91923 .04808 m .91923 .24038 L .92019 .24038 L .92019 .04808 L F .937 g .92019 .04808 m .92019 .24038 L .92115 .24038 L .92115 .04808 L F .938 g .92115 .04808 m .92115 .24038 L .92212 .24038 L .92212 .04808 L F .939 g .92212 .04808 m .92212 .24038 L .92308 .24038 L .92308 .04808 L F .94 g .92308 .04808 m .92308 .24038 L .92404 .24038 L .92404 .04808 L F .941 g .92404 .04808 m .92404 .24038 L .925 .24038 L .925 .04808 L F .942 g .925 .04808 m .925 .24038 L .92596 .24038 L .92596 .04808 L F .943 g .92596 .04808 m .92596 .24038 L .92692 .24038 L .92692 .04808 L F .944 g .92692 .04808 m .92692 .24038 L .92788 .24038 L .92788 .04808 L F .945 g .92788 .04808 m .92788 .24038 L .92885 .24038 L .92885 .04808 L F .946 g .92885 .04808 m .92885 .24038 L .92981 .24038 L .92981 .04808 L F .947 g .92981 .04808 m .92981 .24038 L .93077 .24038 L .93077 .04808 L F .948 g .93077 .04808 m .93077 .24038 L .93173 .24038 L .93173 .04808 L F .949 g .93173 .04808 m .93173 .24038 L .93269 .24038 L .93269 .04808 L F .95 g .93269 .04808 m .93269 .24038 L .93365 .24038 L .93365 .04808 L F .951 g .93365 .04808 m .93365 .24038 L .93462 .24038 L .93462 .04808 L F .952 g .93462 .04808 m .93462 .24038 L .93558 .24038 L .93558 .04808 L F .953 g .93558 .04808 m .93558 .24038 L .93654 .24038 L .93654 .04808 L F .954 g .93654 .04808 m .93654 .24038 L .9375 .24038 L .9375 .04808 L F .955 g .9375 .04808 m .9375 .24038 L .93846 .24038 L .93846 .04808 L F .956 g .93846 .04808 m .93846 .24038 L .93942 .24038 L .93942 .04808 L F .957 g .93942 .04808 m .93942 .24038 L .94038 .24038 L .94038 .04808 L F .958 g .94038 .04808 m .94038 .24038 L .94135 .24038 L .94135 .04808 L F .959 g .94135 .04808 m .94135 .24038 L .94231 .24038 L .94231 .04808 L F .96 g .94231 .04808 m .94231 .24038 L .94327 .24038 L .94327 .04808 L F .961 g .94327 .04808 m .94327 .24038 L .94423 .24038 L .94423 .04808 L F .962 g .94423 .04808 m .94423 .24038 L .94519 .24038 L .94519 .04808 L F .963 g .94519 .04808 m .94519 .24038 L .94615 .24038 L .94615 .04808 L F .964 g .94615 .04808 m .94615 .24038 L .94712 .24038 L .94712 .04808 L F .965 g .94712 .04808 m .94712 .24038 L .94808 .24038 L .94808 .04808 L F .966 g .94808 .04808 m .94808 .24038 L .94904 .24038 L .94904 .04808 L F .967 g .94904 .04808 m .94904 .24038 L .95 .24038 L .95 .04808 L F .968 g .95 .04808 m .95 .24038 L .95096 .24038 L .95096 .04808 L F .969 g .95096 .04808 m .95096 .24038 L .95192 .24038 L .95192 .04808 L F .97 g .95192 .04808 m .95192 .24038 L .95288 .24038 L .95288 .04808 L F .971 g .95288 .04808 m .95288 .24038 L .95385 .24038 L .95385 .04808 L F .972 g .95385 .04808 m .95385 .24038 L .95481 .24038 L .95481 .04808 L F .973 g .95481 .04808 m .95481 .24038 L .95577 .24038 L .95577 .04808 L F .974 g .95577 .04808 m .95577 .24038 L .95673 .24038 L .95673 .04808 L F .975 g .95673 .04808 m .95673 .24038 L .95769 .24038 L .95769 .04808 L F .976 g .95769 .04808 m .95769 .24038 L .95865 .24038 L .95865 .04808 L F .977 g .95865 .04808 m .95865 .24038 L .95962 .24038 L .95962 .04808 L F .978 g .95962 .04808 m .95962 .24038 L .96058 .24038 L .96058 .04808 L F .979 g .96058 .04808 m .96058 .24038 L .96154 .24038 L .96154 .04808 L F .98 g .96154 .04808 m .96154 .24038 L .9625 .24038 L .9625 .04808 L F .981 g .9625 .04808 m .9625 .24038 L .96346 .24038 L .96346 .04808 L F .982 g .96346 .04808 m .96346 .24038 L .96442 .24038 L .96442 .04808 L F .983 g .96442 .04808 m .96442 .24038 L .96538 .24038 L .96538 .04808 L F .984 g .96538 .04808 m .96538 .24038 L .96635 .24038 L .96635 .04808 L F .985 g .96635 .04808 m .96635 .24038 L .96731 .24038 L .96731 .04808 L F .986 g .96731 .04808 m .96731 .24038 L .96827 .24038 L .96827 .04808 L F .987 g .96827 .04808 m .96827 .24038 L .96923 .24038 L .96923 .04808 L F .988 g .96923 .04808 m .96923 .24038 L .97019 .24038 L .97019 .04808 L F .989 g .97019 .04808 m .97019 .24038 L .97115 .24038 L .97115 .04808 L F .99 g .97115 .04808 m .97115 .24038 L .97212 .24038 L .97212 .04808 L F .991 g .97212 .04808 m .97212 .24038 L .97308 .24038 L .97308 .04808 L F .992 g .97308 .04808 m .97308 .24038 L .97404 .24038 L .97404 .04808 L F .993 g .97404 .04808 m .97404 .24038 L .975 .24038 L .975 .04808 L F .994 g .975 .04808 m .975 .24038 L .97596 .24038 L .97596 .04808 L F .995 g .97596 .04808 m .97596 .24038 L .97692 .24038 L .97692 .04808 L F .996 g .97692 .04808 m .97692 .24038 L .97788 .24038 L .97788 .04808 L F .997 g .97788 .04808 m .97788 .24038 L .97885 .24038 L .97885 .04808 L F .998 g .97885 .04808 m .97885 .24038 L .97981 .24038 L .97981 .04808 L F .999 g .97981 .04808 m .97981 .24038 L .98077 .24038 L .98077 .04808 L F 1 g .98077 .04808 m .98077 .24038 L .98173 .24038 L .98173 .04808 L F .2 0 1 r .5 Mabswid [ ] 0 setdash .01923 .04808 m .01923 .0625 L s .11538 .04808 m .11538 .0625 L s .21154 .04808 m .21154 .0625 L s .30769 .04808 m .30769 .0625 L s .40385 .04808 m .40385 .0625 L s .5 .04808 m .5 .0625 L s .59615 .04808 m .59615 .0625 L s .69231 .04808 m .69231 .0625 L s .78846 .04808 m .78846 .0625 L s .88462 .04808 m .88462 .0625 L s .98077 .04808 m .98077 .0625 L s .5 .04808 m .5 .08173 L s .01923 .04808 m .01923 .08173 L s .98077 .04808 m .98077 .08173 L s 0 g gsave .01923 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (0) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .98077 .01923 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{503, 68.875}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzt23VUVOsexvHB9ioWioGBrcduTEywuxssMAG7uzuOnWB3Lbu7W7G7sFuw nvPsmb28coZ7r3/oWoe7Hl3febfb4TfC7P1+5h+reHXxadXBq4tvCy9XzwAv Px/fFp1dPToF8FRUB4vF4aPFYinrajGOwUPzwfor1Hgw//A/jp2MJYrxtReM o+jGkUsE55xsT09kXaLh+0tZz1ouWteoP562pPj5p2r4fxv+77fo4vejVBGc S2J7uvVr/9M7bblie4VoLC5LxFKwtCwzy8UKseKsHKvMarKGrDnzYX6sG+vL hrLRbLLFNncBW8rWsk1sFzvATrDz7Cq7w0LYS/aRfbPgEyx4y56yB+wGC2an YZu7j+s2tp6tZAvZHDaNjWfD2UDWk3Vm7VlL1pTVZVVZeVaKFTZnZuOakaVi ziw+i2X8nfU3L3o4ssTMhaVjf7DczI2VYB6sCqvFGrEW1rkW+LMerB8bxsax KWw2C2TL2Dq2me1mh9lJdoFdZ3fZE/aGhdpmhvGte8OesPvsOuPNaTnFDrPd bCtbx1awIDabTWXj2DA2gPVg/qwdbHMbca3DqjBP5s7cWF72B0vHUrLEzJHF tF1VsVg85sxSsvQsm8U2szDXUsyTVWV1WWPWkrVnAawn68+Gs/HsTzaHLWQr 2Hq2je1hR8y5l7jeYPfYU/aWhRlXuOUb+8hesxB2h11j59lJdojtYlvYWraU BdquV8tkNpYNZX1Zd+bHfJk3a8hqs8qsHCvBCrFcLCtLa7uljbvLEpfFsG7D qa332mXk40s4ODggSpQoiBo1KqJFi4YYMWIgZsyYiBUrFmLHjo04ceIgbty4 cHR0RLx48RA/fnwkSJAACRMmhJOTExInTowkSZLA2dkZyZIlQ/Lkya1zXVxc kDJlSqRKlQpp0qSBq6sr0qZNi3Tp0iF9+vTImDEjMmXKhMyZMyNLlizImjUr smXLhuzZsyNHjhzImTMncuXKhdy5cyNv3rzWmfnz50eBAgVQsGBBuLm5oXDh wihSpAiKFi2KYsWKoXjx4nB3d0fJkiVRqlQplC5dGmXKlEG5cuXg4eEBT09P lC9fHhUqVEClSpVQuXJl69yqVauiWrVqqF69OmrWrIlatWqhdu3aqFOnDurV q4f69eujQYMGaNiwIRo1aoTGjRujadOmaNasGZo3bw4vLy94e3ujZcuWaNWq lXVmmzZt4OPjA19fX7Rr1w7t27dHhw4d0LFjR3Tq1An+/v4ICAhA586d0aVL F3Tt2hXdu3dHjx490LNnT/Tq1Qu9e/dGnz590K9fP/Tv3986d+DAgRg0aBCG DBmCoUOHYtiwYRg+fDhGjBiBkSNHYvTo0RgzZgzGjh2LcePGYfz48Zg4cSIm TZqEyZMnY8qUKZg6dSqmTZuG6dOnW2fOnDkTs2bNwpw5czB37lzMmzcP8+fP x4IFCxAUFISFCxdi0aJFWLx4MZYsWYKlS5di+fLlWLFiBVauXIlVq1Zh9erV WLt2LdatW4f169db527cuBGbNm3C5s2bsWXLFmzduhXbtm3D9u3bsXPnTuza tQu7d+/Gnj17sHfvXuzfvx8HDhzAwYMHcejQIRw+fBhHjhzBsWPHcPz4cevM kydP4tSpUzhz5gzOnj2Lc+fO4fz587hw4QIuXbqE4OBgXL58GVeuXMHVq1dx /fp13LhxAzdv3sStW7dw+/Zt3L17F/fu3cP9+/fx4MED69xHjx4hJCQET548 wdOnT/Hs2TM8f/4cL1++xKtXr/D69Wu8efMGb9++xbt37/Dhwwd8/PgRoaGh CAsLw6dPn/Dlyxd8/foV3759M2YmiUC2GMyRORm3iLk1ZWV5mBsrwTzMram2 uTV5M1/mz7r/sDWNZVNM2QLZcnNr2sJ2s0PGj4tdZNd+2Jpes1Dr1oQw9pqF sHvm/n6JnTIV2sN1i+nBChbEZrE/2VjTj/6mJwGsLfNmjVlt0x9P5s4KmTOz ck3PUpp+xWMxrKo5sJjmGWfzGRlYdpbXtNHdnFiN1WFNbJZaZTP+Bb3YADbC tHeqaXGQ+R1sYFvZXnbE/E6N7/gmu8+ewWZ9mG0mP51YXrHH7O7fNu6DbCfb bG7cy6wbNywz2RQ2xty4+5kbdydz4zbmGht3LXPj9jA37oIsN8tibtwu5sYd h0Xnpyi+ZbFZfJaUpWIZWQ5ToCJcS7PyrDqrz5qyVqwD68x6GzsIG8kmsGls LlvMVhp3LNvO9rGj5txgrrfYA/acvWOfrJfPV/aevWSP2G12lZ1jJ9gBtoNt YmvYErbAlG0iG82GsD6sG+vIfFhz1oDVZJVYGVacFWA5WWbmypIxfra1/Avm R9YIZTNUix49+k/JZqiWKFGicLIlTZo0QtlSp05tJ1uGDBl+WrY8efKEk81Q rVChQnayGaqVKFEinGyGamXLlrWTrWLFinayGarVqFEjnGx169aNULYmTZrY ydaiRYsIZWvbtq2dbH5+fnaydevWzU42Q7W+ffuGk81QbfDgwXayGaqNGjUq nGyGahMmTPgp2WbPnm0nW2BgYISyLVu2zE62NWvW/JRshmo7duwIJ5uh2r59 ++xkM1Q7evRoONkM1U6fPm0n28WLF+1ku3btmp1sd+7ciVC2x48f28n24sWL CGV7//59ONkM1T5//izZJJtkk2ySTbJJNskm2SSbZJNskk2y/U02zP49sh3C r5ctD36TbGgXeWTzwi+XzbiCf4dsp9mvlg2WGZFWthQpUvx62fLl+y2yValS 5ZfL1rp160gj24wZM36LbBs2bPjlsp04ceK3yPbw4UPJJtkkm2STbJJNskk2 ySbZJJtkk2ySTbJJNskm2SSbZJNskk2ySTbJJtkk2z9SNki2yCWb8R+RJVuk kQ3fZQu2fiqRbJFHtgEDBki2yCGbxVmsiTWxJtbEmlgTa2JNrIk1sSbWxJpY E2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJ NbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSa WBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2s iTWxJtbEmlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbE mlgTa2JNrIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JN rIk1sSbWxJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbW xJpYE2tiTayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpYE2ti TayJNbEm1sSaWBNrYk2siTWxJtbEmlgTa2JNrIk1sSbWxJpY+39hzXhE6D/n 2OLwF/ISqLI=\ \>"], ImageRangeCache->{{{37.875, 439.25}, {456.688, 402.625}} -> {0, 2, 0, 0}, {{ 51.125, 229.625}, {455.375, 403.875}} -> {0, 2, 0, 0}, {{247.438, 425.938}, {455.375, 403.875}} -> {-1, 2, 0, 0}}]], "Text", CellTags->"corecell"], Cell[TextData[{ "The base points for the vectors in the diagram can be chosen from a grid \n\ (i) with the grid including points on the boundary (i.e., the dots in the \ diagram below);\n(ii) with the grid excluding points on the boundary \ (i.e.,the \"x\"s in the diagram below).\nOption (i) is the default setting.\n\ To switch options press the appropriate palette button.\n", StyleBox["gridpoints1dvf", FontWeight->"Bold"], " specifies the number of initial conditions on each boundary of the grid.\n", StyleBox["drawrestpoints", FontWeight->"Bold"], " = 1 causes the rest points of the dynamic to be drawn on the diagram.\n", StyleBox["arrowsfromrestpoints ", FontWeight->"Bold"], "= 1 causes vector field arrows to be drawn from the rest points (in \ addition to all other arrows)." }], "Text", CellChangeTimes->{{3.4816315814317226`*^9, 3.4816315826534796`*^9}}, CellTags->"corecell"], Cell[BoxData[Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .86788 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0303841 0.939232 0.0272383 0.939232 [ [ 0 0 0 0 ] [ 1 .86788 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .86788 L 0 .86788 L closepath clip newpath 0 g .03038 .02724 m .03038 .02724 .00657 0 365.73 arc F .12431 .02724 m .12431 .02724 .00657 0 365.73 arc F .21823 .02724 m .21823 .02724 .00657 0 365.73 arc F .31215 .02724 m .31215 .02724 .00657 0 365.73 arc F .40608 .02724 m .40608 .02724 .00657 0 365.73 arc F .5 .02724 m .5 .02724 .00657 0 365.73 arc F .59392 .02724 m .59392 .02724 .00657 0 365.73 arc F .68785 .02724 m .68785 .02724 .00657 0 365.73 arc F .78177 .02724 m .78177 .02724 .00657 0 365.73 arc F .87569 .02724 m .87569 .02724 .00657 0 365.73 arc F .96962 .02724 m .96962 .02724 .00657 0 365.73 arc F .07735 .10858 m .07735 .10858 .00657 0 365.73 arc F .17127 .10858 m .17127 .10858 .00657 0 365.73 arc F .26519 .10858 m .26519 .10858 .00657 0 365.73 arc F .35912 .10858 m .35912 .10858 .00657 0 365.73 arc F .45304 .10858 m .45304 .10858 .00657 0 365.73 arc F .54696 .10858 m .54696 .10858 .00657 0 365.73 arc F .64088 .10858 m .64088 .10858 .00657 0 365.73 arc F .73481 .10858 m .73481 .10858 .00657 0 365.73 arc F .82873 .10858 m .82873 .10858 .00657 0 365.73 arc F .92265 .10858 m .92265 .10858 .00657 0 365.73 arc F .12431 .18992 m .12431 .18992 .00657 0 365.73 arc F .21823 .18992 m .21823 .18992 .00657 0 365.73 arc F .31215 .18992 m .31215 .18992 .00657 0 365.73 arc F .40608 .18992 m .40608 .18992 .00657 0 365.73 arc F .5 .18992 m .5 .18992 .00657 0 365.73 arc F .59392 .18992 m .59392 .18992 .00657 0 365.73 arc F .68785 .18992 m .68785 .18992 .00657 0 365.73 arc F .78177 .18992 m .78177 .18992 .00657 0 365.73 arc F .87569 .18992 m .87569 .18992 .00657 0 365.73 arc F .17127 .27126 m .17127 .27126 .00657 0 365.73 arc F .26519 .27126 m .26519 .27126 .00657 0 365.73 arc F .35912 .27126 m .35912 .27126 .00657 0 365.73 arc F .45304 .27126 m .45304 .27126 .00657 0 365.73 arc F .54696 .27126 m .54696 .27126 .00657 0 365.73 arc F .64088 .27126 m .64088 .27126 .00657 0 365.73 arc F .73481 .27126 m .73481 .27126 .00657 0 365.73 arc F .82873 .27126 m .82873 .27126 .00657 0 365.73 arc F .21823 .3526 m .21823 .3526 .00657 0 365.73 arc F .31215 .3526 m .31215 .3526 .00657 0 365.73 arc F .40608 .3526 m .40608 .3526 .00657 0 365.73 arc F .5 .3526 m .5 .3526 .00657 0 365.73 arc F .59392 .3526 m .59392 .3526 .00657 0 365.73 arc F .68785 .3526 m .68785 .3526 .00657 0 365.73 arc F .78177 .3526 m .78177 .3526 .00657 0 365.73 arc F .26519 .43394 m .26519 .43394 .00657 0 365.73 arc F .35912 .43394 m .35912 .43394 .00657 0 365.73 arc F .45304 .43394 m .45304 .43394 .00657 0 365.73 arc F .54696 .43394 m .54696 .43394 .00657 0 365.73 arc F .64088 .43394 m .64088 .43394 .00657 0 365.73 arc F .73481 .43394 m .73481 .43394 .00657 0 365.73 arc F .31215 .51528 m .31215 .51528 .00657 0 365.73 arc F .40608 .51528 m .40608 .51528 .00657 0 365.73 arc F .5 .51528 m .5 .51528 .00657 0 365.73 arc F .59392 .51528 m .59392 .51528 .00657 0 365.73 arc F .68785 .51528 m .68785 .51528 .00657 0 365.73 arc F .35912 .59662 m .35912 .59662 .00657 0 365.73 arc F .45304 .59662 m .45304 .59662 .00657 0 365.73 arc F .54696 .59662 m .54696 .59662 .00657 0 365.73 arc F .64088 .59662 m .64088 .59662 .00657 0 365.73 arc F .40608 .67796 m .40608 .67796 .00657 0 365.73 arc F .5 .67796 m .5 .67796 .00657 0 365.73 arc F .59392 .67796 m .59392 .67796 .00657 0 365.73 arc F .45304 .7593 m .45304 .7593 .00657 0 365.73 arc F .54696 .7593 m .54696 .7593 .00657 0 365.73 arc F .5 .84064 m .5 .84064 .00657 0 365.73 arc F gsave .07735 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .92265 .05435 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .12431 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .87569 .13569 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .17127 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .82873 .21703 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .21823 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .78177 .29837 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .26519 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .73481 .37971 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .31215 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .68785 .46105 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .35912 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .64088 .54239 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .40608 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .59392 .62373 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .45304 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .54696 .70507 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .5 .78641 -66 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 20.5625 translate 1 -1 scale 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .5 Mabswid [ ] 0 setdash .03038 .02724 m .5 .84064 L .96962 .02724 L .03038 .02724 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{282.5, 245.125}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlnF1sFUUUx6e0fAoIYj+gYKsgICAICAgIFYSCShEERASESy20fJV+AAJi BQFRND4Z44MxxhjjkzE+GGOMMcYn45MxxhjjkzE+GGMMMT7V7p3xut38znb2 7N5b1Bu2d/P//+fMOXP3njOzs5emXHdry5Fcd1tzrn5dZ+5Ya1tzV31je2cf VF5mTNkkY8zVehOc9/aduj+9ff96a4M/AZLN+fDgrTwwX104qwnOhhTORCzS wsPKCNvpsOAtH9OYEOrrSvJuY1wZmX/LI/mz/BH8rQDCtRkltRkCxEh9m+uk NhFslCyvKETeR7gxz7+qJKIyuxYZmkreYoQ8UKOlgQphwasGsOoUujRtfXUU tr0w+r5rA4cdHNGugiPaVRJdmra+umGAjZbDHvK//VrEDNRYoP4EbIxKfj1Q fwA2ViUfB9RVwKxZMx6o3wEbp5LfANRvgI1XyScA9Stg1qy5EahfAJugl/tW auWUojLaVV5UUbj+K/o3rI7FIi0iGHeVKALfcaiyXVXB2P4MmPOMct9PgDnr lD5/BKxaJZ8IlDjhuDbTYfIWwyHoGnk8hkaw4DVYc4M0cwgX4iSPEP+5Qko/ D0gzX5goh1j+X7+qY8ajFqgfALPjZiYD9T1gtSr5FKC+A2yySn4TUN8CNkUl rwPqG8CsWVMP1NeA1ankNwP1FWD1ennqwk9lc2q0gzTlnlrc4hNBmlsQLoJp MHpfAqaT3wrUF4BNU8mnA5W88F+bKyeq73Z4zAwp7Axrb9b1ncKZLofjW8sH a+1PdcqFMxMocZ3/L7so6WOZIYf9uSy/DajPAJupks8C6lPArFkzG6hPAJul ks8B6mPAZqvktwP1EWBzVPK5QH0ImDVr5gH1AWBzQ/JI0fIoadQiXzPnhZzO cF0eNptoMhFfsu+wZufD+LwPmJMvAOo9wOar5AuBehewBbK8FAW4yHXWRXen FF2Ra2WamrpQdj3rmpp1/XSuLwKqFPWzyGXSfiJmMVDvALZIJV8C1NuALVbJ 7wLqLcCWqORLgXoTMGvWLAPqDcCWquTLgXodsGUq+d1AvQbY8pD11EvLFaG+ xQrqgXkZiy/gkZLojK2EEXgVMCdvAOoVwFaq5PcA9TJgDbI8wz3vIu9HuyBW SUEoa1bW937tIJvVHm4GRynWhlTHVsluZrjfW+Sbri6Ie4F6CbDVKvkaoF4E zJo1a4G6AtgalbwRqOcAW6uSrwPqWcAaVfL1QF0EzJo19wH1DGDrVfL8m3LR dX+oR99qEsEGMuGxRnMmHoAYewBz8g1AnQXMmjVNQJ0BbINKvhEocfdosPYr m2RfS/EcFNUY59KDHi4FRyn2AzfKLg3q80Mxvm4C6jhgNiazGaguwDap5A8B 1QHYZpV8C1DtgFmzZitQRwDbopJvA+oQYFtV8oeBagNsW0gu5lhK4tujDX1X OTEN42sQN/RYvTxiG+6A8JsB08kfBSoH2A5ZPrTgcfEmlpRHnUs7JZcyXD5Q 93YozC6P7oMjzbKA0uBOuftSPMIR49JukeqP7VLJHxOvhP7YbpV8D1DbAbNm zV6gKOPtUcnpe0i1YK9Kvg8oKns5lZxSDk0v9oXkHhPolqg8Pgs/jtbFLOzk LZ5f1er+roYd3A9yWuM4+QGgaH22XyVvBSrDLRSadh+Qe/bNzb552HVFs4Q0 2xGU4FrlrpLn3ESp1fV8ECi6pWY9xIlWA2AHVfLDQK0A7JBKTlNQugd+WCU/ ChTtDlizONumnY2jKvkxoGiLql0l7yhcZ5T8OkM2xVlwR0gkplFniVZJtGev k3cDRc8bdKnktH5MnigpSVlHzAmpA498SGaPy2Z9cx9lb2f2JFDJt0kpnZ2Q O6BHtZz8CaDocb6TKvkpoKYCZs2a00DRo6OnVHK67VYH2GmV/Emg6PnhMyo5 3ZCkJ6utWfMUUPTzgrMheSSd9YQ6jswFewZs9TT0VQmYTn4OKPpZkzVrzgNF P8k6J8vFhEUJxNmhW+2Ul8jEedkE5SDKN87EBaDEfENpxfqA2xL0i+ELKvkl oOin1RdVctqBoSG7pJJf9vyQrFncbCoH7LJK/rzrPkz9/Qlf8ZZEt9uC1wsh qjwE5M1VxCny5jP4vwZM2V8uf/3P\ \>"], ImageRangeCache->{{{76.875, 301.875}, {255.938, 60.875}} -> {-0.397098, 0.259369, 0.00378972, 0.00378972}}]], "Input", Evaluatable->False, CellTags->"corecell"] }, Closed]], Cell[BoxData[{ RowBox[{ RowBox[{"drawvectorfield1", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorfield1", "=", "PhiF"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vf1thickness", "=", ".001"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale1", "=", ".1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowheadlengthvf1", "=", ".01"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colorvf1", "=", " ", RowBox[{"Hue", "[", ".64", "]"}]}], " ", ";"}]}], "Input", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"drawvectorfield2", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorfield2", "=", "dyn"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vf2thickness", "=", ".001"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale2", "=", ".1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowheadlengthvf2", "=", ".01"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"colorvf2", "=", " ", RowBox[{"Hue", "[", ".84", "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gridpoints1dvf", "=", " ", "25"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"drawrestpoints", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"arrowsfromrestpoints", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{ 3.4747153535477557`*^9, {3.474916776965464*^9, 3.474916781471944*^9}, 3.4814188859868355`*^9, 3.4817354830741696`*^9, {3.5192926379096117`*^9, 3.5192926397747183`*^9}}, CellTags->"corecell"], 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[{"(*", " ", RowBox[{ RowBox[{ "alternative", " ", "formats", " ", "for", " ", "the", " ", "text"}], ";", "\[IndentingNewLine]", RowBox[{"vectorfieldspecs", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["i", RowBox[{"gridpoints1dvf", "-", "1"}]], ",", RowBox[{"1", "-", FractionBox[ RowBox[{" ", "i"}], RowBox[{"gridpoints1dvf", "-", "1"}]], "-", FractionBox["j", RowBox[{"gridpoints1dvf", "-", "1"}]]}], ",", FractionBox["j", RowBox[{"gridpoints1dvf", "-", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"gridpoints1dvf", "-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"gridpoints1dvf", "-", "1", "-", "i"}], ",", "1"}], "}"}]}], "]"}], " ", ",", "1"}], "]"}]}], ";", RowBox[{"vectorfieldspecs", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "+", RowBox[{"3", " ", "i"}]}], RowBox[{"3", " ", "gridpoints1dvf"}]], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", "-", RowBox[{"3", " ", "gridpoints1dvf"}], "+", RowBox[{"3", " ", "i"}], "+", RowBox[{"3", " ", "j"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"3", " ", "gridpoints1dvf"}], ")"}]}], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"3", " ", "j"}]}], RowBox[{"3", " ", "gridpoints1dvf"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "gridpoints1dvf", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"gridpoints1dvf", "-", "1", "-", "i"}], ",", "1"}], "}"}]}], "]"}], " ", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[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", "[", "namesl", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rown", "=", RowBox[{"Join", "[", RowBox[{"rown", ",", RowBox[{"{", RowBox[{"namesl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rowt", "=", RowBox[{"Join", "[", RowBox[{"rowt", ",", RowBox[{"{", RowBox[{"textsl", "[", RowBox[{"[", "row", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"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", "[", "namesl", "]"}], "[", 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", "[", "names", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"butrow", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"but", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", " ", RowBox[{ RowBox[{"but", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"names", "[", RowBox[{"[", "row", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"button", ":=", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "name", "}"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", "Center", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", "Next", ",", "CellTags", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "All", ",", "CellContents", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "text", ",", RowBox[{"AutoScroll", "->", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "30"}], "}"}]}]}], "*)"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"button", "=", RowBox[{ RowBox[{ RowBox[{ 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.4818472323981695`*^9, 3.4818473124933405`*^9}, {3.481847364648336*^9, 3.4818474569710894`*^9}, { 3.4818475630135713`*^9, 3.48184763238332*^9}, {3.481847664829976*^9, 3.4818476670431585`*^9}, {3.5079820053726034`*^9, 3.507982018155985*^9}}, CellTags->{"buttoncell", "corecell"}], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary included)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "vectorfieldspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "vectorfieldspecs=Flatten[Table[{i/(gridpoints1dvf-1), 1 - \ i/(gridpoints1dvf-1) - j/(gridpoints1dvf-1), j/(gridpoints1dvf-1)}, {i, 0, \ gridpoints1dvf-1, 1}, {j, 0, gridpoints1dvf-1 - i, 1}], 1];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False], StyleBox[ ButtonBox[ TagBox[GridBox[{ {"\<\"Grid initial conditions (boundary excluded)\"\>"} }, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], Appearance->Automatic, ButtonFunction:>(NotebookFind[ SelectedNotebook[], "vectorfieldspecs", Next, CellTags, AutoScroll -> False]; SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> False]; NotebookWrite[ SelectedNotebook[], "vectorfieldspecs=Flatten[Table[{(1 + 3*i)/(3*gridpoints1dvf), -((2 \ - 3*gridpoints1dvf + 3*i + 3*j)/(3*gridpoints1dvf)), (1 + \ 3*j)/(3*gridpoints1dvf)},{i, 0, gridpoints1dvf, 1},{j, 0, gridpoints1dvf - 1 \ - i, 1}], 1];", AutoScroll -> False]; Null), Evaluator->Automatic, Method->"Preemptive"], ControlsRendering->"Generic", StripOnInput->False]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}, TableSpacing -> {1, 1}]]]], "Output", CellChangeTimes->{ 3.481424180412002*^9, 3.4814835754680133`*^9, 3.481739126868757*^9, 3.4817570300873885`*^9, {3.4818476430085983`*^9, 3.4818476704981265`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"vectorfieldspecs", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", RowBox[{"(", RowBox[{"gridpoints1dvf", "-", "1"}], ")"}]}], ",", " ", RowBox[{"1", " ", "-", " ", RowBox[{"i", "/", RowBox[{"(", RowBox[{"gridpoints1dvf", "-", "1"}], ")"}]}], " ", "-", " ", RowBox[{"j", "/", RowBox[{"(", RowBox[{"gridpoints1dvf", "-", "1"}], ")"}]}]}], ",", " ", RowBox[{"j", "/", RowBox[{"(", RowBox[{"gridpoints1dvf", "-", "1"}], ")"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", RowBox[{"gridpoints1dvf", "-", "1"}], ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "0", ",", " ", RowBox[{"gridpoints1dvf", "-", "1", " ", "-", " ", "i"}], ",", " ", "1"}], "}"}]}], "]"}], ",", " ", "1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.481423836988183*^9, 3.4817568770973997`*^9}, CellTags->{"vectorfieldspecs", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell["3D graph of the contour function", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ StyleBox["draw3dcontourfunction", FontWeight->"Bold"], " = 1 creates a 3d plot of the contour function. \n", StyleBox["shiftpercentage", FontWeight->"Bold"], " specifies the distance above the simplex that the lowest point on the \ contour function will appear, as a percentage of the distance from the \ minimum value of the function to the maximum value of the function.\n", StyleBox["grayline", FontWeight->"Bold"], " = 1 draws a gray line on the edges of the 3d plot.\n", StyleBox["heightratio", FontWeight->"Bold"], " specifies the ratios of the three coordinates in the graphical output. \ The default setting is {1, 1, 1.25}.\n \n", StyleBox["vpoint", FontWeight->"Bold"], " determines the value for the ", StyleBox["Mathematica", FontSlant->"Italic"], " command ViewPoint and hence the point from which the 3d plot is observed. \ In ", StyleBox["Mathematica", FontSlant->"Italic"], ", ViewPoint ", StyleBox["->", "MR"], " {", StyleBox["x", "TI"], StyleBox[",", "MR"], " ", StyleBox["y", "TI"], StyleBox[",", "MR"], " ", StyleBox["z", "TI"], Cell[BoxData[ FormBox["}", TraditionalForm]], "InlineFormula"], " gives the position of the view point relative to the center of the three\ \[Hyphen]dimensional box that contains the object being plotted. The view \ point is given in a special scaled coordinate system in which the longest \ side of the bounding box has length 1. (When heightratio is at its default \ setting of {1, 1, 1.25}, the longest side corresponds to the z coordinate. \ The center of the bounding box is taken to have coordinates ", StyleBox["{0,", "MR"], " ", StyleBox["0,", "MR"], " ", StyleBox["0}", "MR"], ". Choosing ", StyleBox["ViewPoint", "MR"], " further away from the object reduces the distortion associated with \ perspective." }], "Text", CellChangeTimes->{3.4919256454449873`*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"draw3dcontourfunction", "=", "0"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"grayline", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shiftpercentage", "=", ".2"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"heightratio", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vpoint", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "2.730"}], ",", " ", RowBox[{"-", "1.673"}], ",", " ", "1.096"}], "}"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4749168505012035`*^9, 3.474916850841693*^9}, { 3.4919256015618863`*^9, 3.491925612687885*^9}, 3.492286683769908*^9, 3.4934740580555377`*^9, 3.5061810245905795`*^9, {3.519292657967759*^9, 3.5192926586737995`*^9}, {3.5193818491112003`*^9, 3.5193818494062176`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Phase diagram on the surface of the sphere", "Subsubsection", CellTags->"corecell"], Cell[TextData[{ StyleBox["drawsphere", FontWeight->"Bold"], " = 1 generates a contour plot on the sphere, which is obtained by mapping \ vectors {x[[1]], x[[2]], x", "[[", "3]]} in the simplex to vectors {", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}]], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]], TraditionalForm]]], "} on the sphere. \n", StyleBox["viewray", FontWeight->"Bold"], " defines the ray from the origin from which the sphere is viewed; it should \ be set to some nonnegative vector.\n", StyleBox["viewraydot", FontWeight->"Bold"], " = 1 draws a dot at the point where the view ray hits the surface of the \ sphere.\nOther parameters (e.g., solution trajectories) are borrowed from the \ previous subsection.\n", StyleBox["raydotstyle", FontWeight->"Bold"], "=.6 tells what color to paint the origin dot (0,0,0) when color=1; when \ color=0 it chooses the greyscale level; this option requires viewraydot=1;" }], "Text", CellChangeTimes->{{3.4817560925893326`*^9, 3.4817560934906282`*^9}, { 3.481756173265339*^9, 3.4817561770808253`*^9}, {3.481756248423411*^9, 3.4817562843350496`*^9}, 3.4817571024113855`*^9, 3.4919255319417777`*^9, { 3.5079830613910837`*^9, 3.5079830615863647`*^9}, {3.507983377054986*^9, 3.5079833772652884`*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"drawsphere", "=", "0"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"viewray", "=", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}]}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"viewraydot", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"raydotstyle", "=", ".6"}], ";"}], "\[IndentingNewLine]"}], "Input",\ CellChangeTimes->{{3.4749181303364124`*^9, 3.4749181311662426`*^9}, { 3.4817562245991535`*^9, 3.4817562414033165`*^9}, 3.4919255230489902`*^9, 3.492286581432754*^9, 3.49347406786965*^9, 3.5061810302687445`*^9, { 3.519292670032449*^9, 3.5192926742906923`*^9}, 3.5193818594107895`*^9}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Program Core", "Subtitle", CellDingbat->None, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"time1", "=", RowBox[{"AbsoluteTime", "[", "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.4807853654988422`*^9, 3.4807853679362803`*^9}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Solving the differential equation", "Section", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Rest points and stability test", "Subsection", CellChangeTimes->{3.4928106456433153`*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"TolLevelF", "[", RowBox[{"dim_", ",", "step_", ",", "accuracy_", ",", "RestTolerance_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "grid", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"grid", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"DiscSimplex", "[", RowBox[{ RowBox[{"1", "/", "step"}], ",", "dim"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RestTolerance", " ", RowBox[{"Max", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Speed", "[", RowBox[{"grid", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "grid", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"TolLevel", "=", RowBox[{"TolLevelF", "[", RowBox[{"dim", ",", ".05", ",", "5", ",", "RestTolerance"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.519306097477455*^9}, { 3.519306141114951*^9, 3.51930623743346*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", " ", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPs", "=", RowBox[{"RestPoints", "[", RowBox[{"dyn", ",", "F", ",", "RestSearchInit", ",", "TolLevel"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CRPs", "=", RowBox[{"StabilitySets", "[", RowBox[{"RPs", ",", "dyn", ",", "F", ",", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\"\\"", ",", "True", ",", "\"\\""}], "]"}], ",", "numtest", ",", "bigT", ",", " ", "delta", ",", " ", "eps"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SRPs", "=", RowBox[{"CRPs", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"USRPs", "=", RowBox[{"CRPs", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SRPvs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"SmoothStabilityValues", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"USRPvs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"SmoothStabilityValues", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NEa", "=", RowBox[{"NashEquilibria", "[", "F", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"findnashequilibria", "==", "1"}], ",", RowBox[{"findESSs", "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"QEa", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"QuasiStrictEqQ", "[", RowBox[{ RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], " ", ",", RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ESSs", "=", RowBox[{ RowBox[{"StabilitySets", "[", RowBox[{ "QEa", ",", "dyn", ",", "F", ",", "\"\\"", ",", "numtest", ",", "bigT", ",", "delta", ",", "eps"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ESSs", "=", RowBox[{ RowBox[{"RegularESSs", "[", RowBox[{"NEa", ",", "F"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4927010600449357`*^9, 3.492701078551547*^9}, 3.492701233859937*^9, {3.4927012644275613`*^9, 3.492701296150041*^9}, 3.4927013313306284`*^9, 3.4928090904971247`*^9, {3.492809143693618*^9, 3.492809156592165*^9}, {3.492809230798869*^9, 3.4928092536717587`*^9}, 3.492809999834688*^9, 3.4928100734906*^9, {3.492810651862258*^9, 3.492810670669301*^9}, {3.4928113837045956`*^9, 3.4928114078292847`*^9}, 3.4928114625780096`*^9, {3.492811550884989*^9, 3.492811556943701*^9}, { 3.492811592064202*^9, 3.492811639812861*^9}, {3.492811691326935*^9, 3.4928116965043793`*^9}, {3.492856670525757*^9, 3.4928567167522273`*^9}, { 3.4934024916000357`*^9, 3.493402492341101*^9}, 3.507926856530527*^9, 3.5079270459929605`*^9, {3.508019647540586*^9, 3.5080196505248775`*^9}, { 3.5087652862346354`*^9, 3.5087652862346354`*^9}, {3.508765335916074*^9, 3.508765368372744*^9}, {3.5087793198629637`*^9, 3.5087793209945908`*^9}, { 3.510657238427292*^9, 3.5106572387265186`*^9}, {3.510658409012612*^9, 3.5106584218408628`*^9}, 3.5106585333179235`*^9, {3.5106585742811174`*^9, 3.5106586224327903`*^9}, {3.510658653727054*^9, 3.51065869218235*^9}, { 3.5106587302871423`*^9, 3.5106588153594704`*^9}, {3.5106589242660704`*^9, 3.5106589443749857`*^9}, {3.5106608409321003`*^9, 3.5106608457890844`*^9}, {3.510662483899393*^9, 3.5106624958766155`*^9}, { 3.5106635320916877`*^9, 3.51066355299174*^9}, {3.510663623372944*^9, 3.510663630873729*^9}, {3.5106637916949787`*^9, 3.5106637949696875`*^9}, { 3.5106640457402782`*^9, 3.510664046641574*^9}, {3.5106641223604527`*^9, 3.5106641485280795`*^9}, {3.5106647253274765`*^9, 3.5106647368941083`*^9}, 3.5106651822845483`*^9, {3.5106652270088587`*^9, 3.5106652305539565`*^9}, { 3.5106656770710845`*^9, 3.5106656792141657`*^9}, 3.5106657221559134`*^9, { 3.5106669238037977`*^9, 3.51066694513447*^9}, {3.5106670284943357`*^9, 3.5106670562242093`*^9}, {3.5106671075800076`*^9, 3.510667110956402*^9}, { 3.5106676443857927`*^9, 3.5106676499437847`*^9}, {3.5106737901178446`*^9, 3.5106738008833246`*^9}, {3.5106744003603983`*^9, 3.5106744021529756`*^9}, {3.5106873990148335`*^9, 3.5106875687088413`*^9}, {3.510687715069298*^9, 3.5106878389674544`*^9}, { 3.5106879036003923`*^9, 3.5106879072756767`*^9}, {3.510687943537819*^9, 3.5106879510185757`*^9}, {3.510688749772195*^9, 3.5106887880672607`*^9}, { 3.5110111085669603`*^9, 3.5110111215185595`*^9}, {3.5110114759002275`*^9, 3.5110115017774367`*^9}, {3.519304678995322*^9, 3.5193046796273584`*^9}, { 3.519305336871951*^9, 3.519305337921011*^9}, {3.519305684794851*^9, 3.519305820680623*^9}, {3.519305875960785*^9, 3.5193060505597715`*^9}, { 3.519420109304373*^9, 3.51942011345161*^9}, {3.5194204471216946`*^9, 3.519420450790905*^9}, {3.5194205027298756`*^9, 3.519420505626041*^9}, { 3.519553630121473*^9, 3.5195536323536005`*^9}, {3.5195566617508717`*^9, 3.5195567128527946`*^9}, {3.5196739226629353`*^9, 3.5196739279172363`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Trajectories for Basins of Attraction", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.4841838748558636`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BasinsTrajectories", "[", RowBox[{ "unstablerestpoints_", ",", "n_", ",", "eps_", ",", "delta_", ",", "accuracy_", ",", "T_", ",", "dyn_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "l", ",", "restpointSample", ",", "restpointTrajectories", ",", "restpointDEsols", ",", "restpointValidTrajectories", ",", "validTrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"validTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstablerestpoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointSample", "=", RowBox[{"SampleAround", "[", RowBox[{ RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "eps", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointDEsols", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DEsol", "[", RowBox[{ RowBox[{"restpointSample", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0", ",", "T", ",", "\"\\"", ",", "accuracy"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointTrajectories", "=", RowBox[{ RowBox[{"Xt", "[", "0", "]"}], " ", "/.", " ", "restpointDEsols"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "restpointTrajectories", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"restpointValidTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstablerestpoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"k", "==", "j"}], " ", ",", RowBox[{ RowBox[{"++", "k"}], ";", RowBox[{"Continue", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"l", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"l", "<=", "n"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"j", ",", RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}], "-", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointValidTrajectories", "=", RowBox[{"Join", "[", RowBox[{"restpointValidTrajectories", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"restpointSample", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "0", ",", RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Norm", "[", RowBox[{ RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}], "-", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "j", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "k", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"l", ",", "1"}], "]"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"++", "l"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"++", "k"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"validTrajectories", "=", RowBox[{"Join", "[", RowBox[{"validTrajectories", ",", "restpointValidTrajectories"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "validTrajectories"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.484183903537105*^9}, {3.484184050157935*^9, 3.4841840598418603`*^9}, { 3.484184202196556*^9, 3.484184276543462*^9}, {3.484185048142967*^9, 3.48418507989863*^9}, {3.4841851179934072`*^9, 3.484185147005124*^9}, { 3.4841851803330474`*^9, 3.4841854739051833`*^9}, {3.4841855082345467`*^9, 3.4841855210730076`*^9}, {3.484185553689908*^9, 3.4841855662579803`*^9}, { 3.4841856072068615`*^9, 3.484185612424364*^9}, {3.4841857524657335`*^9, 3.4841857611782618`*^9}, {3.484185878627145*^9, 3.4841860989940166`*^9}, { 3.4841861604624043`*^9, 3.48418623155463*^9}, {3.484186515222524*^9, 3.484186527760553*^9}, {3.4841870198381257`*^9, 3.4841870347796106`*^9}, { 3.484187090619905*^9, 3.484187096688631*^9}, {3.4841875039342217`*^9, 3.484187561276676*^9}, {3.4841876012942185`*^9, 3.4841876089151773`*^9}, { 3.4841876678399067`*^9, 3.4841876939975195`*^9}, {3.484187989031758*^9, 3.4841879894223194`*^9}, {3.4841881134500995`*^9, 3.484188124192093*^9}, { 3.484188180718254*^9, 3.484188280804389*^9}, {3.4841883492534833`*^9, 3.4841883562785454`*^9}, {3.484188418724679*^9, 3.484188458444105*^9}, { 3.4841885037078524`*^9, 3.4841885041585*^9}, {3.4841885355986986`*^9, 3.48418856540139*^9}, {3.4841886318122325`*^9, 3.484188700713552*^9}, { 3.484188791021244*^9, 3.484188798979134*^9}, {3.4841888309515514`*^9, 3.4841888892328873`*^9}, {3.484188961362021*^9, 3.4841890001691256`*^9}, { 3.484189040715145*^9, 3.484189042272549*^9}, {3.4841891620000944`*^9, 3.4841891680396037`*^9}, {3.48418921743801*^9, 3.4841892289717913`*^9}, { 3.484189397814725*^9, 3.4841893985758195`*^9}, {3.4841894572301607`*^9, 3.484189469567901*^9}, {3.484193276181543*^9, 3.4841932937768435`*^9}, 3.4841936330647154`*^9, {3.4841940542603655`*^9, 3.484194054600855*^9}, { 3.4922765228741016`*^9, 3.492276525537932*^9}, {3.4922779009556856`*^9, 3.4922779262620745`*^9}, {3.4922799142055645`*^9, 3.492279932281557*^9}, { 3.4923527693243313`*^9, 3.4923527725689974`*^9}, {3.4923528306124597`*^9, 3.492352838553879*^9}, {3.49235287909217*^9, 3.492352910717645*^9}, { 3.4923582246292667`*^9, 3.49235822887035*^9}, {3.4926844654513397`*^9, 3.492684521962599*^9}, {3.492685077020733*^9, 3.4926850781223173`*^9}, { 3.492685142985586*^9, 3.4926852013394947`*^9}, 3.4926855591439924`*^9, 3.4926855929726353`*^9, {3.4926860432701316`*^9, 3.492686054746634*^9}, { 3.492686140950589*^9, 3.492686143464204*^9}, {3.4926913201029124`*^9, 3.4926913260915236`*^9}, {3.492692358105487*^9, 3.492692407336277*^9}, { 3.4926961218208246`*^9, 3.4926961227730904`*^9}, {3.4926968034438505`*^9, 3.4926968065964575`*^9}, {3.4928091608382707`*^9, 3.4928091734263716`*^9}, {3.492810799324298*^9, 3.492810804411613*^9}, { 3.4928109236931314`*^9, 3.492810931243989*^9}, {3.4928110307670965`*^9, 3.4928110425840883`*^9}, {3.492817595501789*^9, 3.4928175964331284`*^9}, { 3.49329613121336*^9, 3.4932961485783296`*^9}, {3.4932961902382336`*^9, 3.4932962754107056`*^9}, {3.49329661716212*^9, 3.493296648517206*^9}, { 3.4932966881542015`*^9, 3.4932966990498686`*^9}, 3.493296890705456*^9, { 3.493296962739035*^9, 3.4932969834087567`*^9}, {3.5074683538533583`*^9, 3.5074683559663963`*^9}, {3.5079500767284184`*^9, 3.5079500904731827`*^9}, 3.507950165716377*^9, 3.507950214221123*^9, {3.5079820225873575`*^9, 3.507982026988686*^9}, {3.507987376281049*^9, 3.507987393146594*^9}, { 3.508020170592698*^9, 3.508020176220791*^9}, {3.50802048083881*^9, 3.508020482711503*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BasinsBoundaryTrajectories", "[", RowBox[{ "unstablerestpoints_", ",", "n_", ",", "eps_", ",", "delta_", ",", "accuracy_", ",", "T_", ",", "dyn_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "t0", ",", "j", ",", "k", ",", "l", ",", "restpointSample", ",", "restpointTrajectories", ",", "restpointValidTrajectories", ",", "validTrajectories", ",", "restpointDEsols", ",", "point", ",", "possibleboundaries", ",", "boundaryvector1", ",", "boundaryvector2", ",", "doublebreak", ",", "nextpoint", ",", "repeated", ",", "ntrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"validTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "unstablerestpoints", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "when", " ", "the", " ", "restpoint", " ", "is", " ", "in", " ", "the", " ", "boundary"}], ",", " ", RowBox[{ RowBox[{"there", "'"}], "s", " ", "a", " ", "trajectory", " ", "that", " ", "starts", " ", "on", " ", "the", " ", "edge", " ", "of", " ", "the", " ", "simplex", " ", "and", " ", "lands", " ", "on", " ", "it"}], ",", " ", RowBox[{"find", " ", "it"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointSample", "=", RowBox[{"SampleAround", "[", RowBox[{ RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "eps", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointDEsols", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DEsol", "[", RowBox[{ RowBox[{"restpointSample", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0", ",", "T", ",", "\"\\"", ",", "accuracy"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointTrajectories", "=", RowBox[{ RowBox[{"Xt", "[", "0", "]"}], " ", "/.", " ", "restpointDEsols"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "restpointTrajectories", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"restpointValidTrajectories", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "I", " ", "was", " ", "planning", " ", "to", " ", "use", " ", "this", " ", "to", " ", "chck", " ", "for", " ", "connections", " ", "to", " ", "every", " ", "possible", " ", "boundary", " ", "but", " ", "then", " ", "dropped", " ", "the", " ", "idea"}], ";", " ", RowBox[{ "the", " ", "code", " ", "could", " ", "be", " ", "useful", " ", "in", " ", "the", " ", "future", " ", "though"}], ";", " ", "\[IndentingNewLine]", RowBox[{"possibleboundaries", " ", "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"boundaryvector1", "=", RowBox[{"CheckBoundary", "[", RowBox[{ RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "delta"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "boundaryvector1", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"l", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"ntrajectories", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"l", "<=", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", "=", "T"}], ";", "\[IndentingNewLine]", RowBox[{"repeated", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"t0", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", "=", RowBox[{ RowBox[{"Xt", "[", "t0", "]"}], " ", "/.", " ", RowBox[{"restpointDEsols", "[", RowBox[{"[", "l", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"point", "=", RowBox[{"point", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "point", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"boundaryvector2", "=", RowBox[{"CheckBoundary", "[", RowBox[{"point", ",", "delta"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"boundaryvector1", ",", "boundaryvector2"}], "}"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<=", RowBox[{ RowBox[{ "Dimensions", "[", "restpointValidTrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"restpointValidTrajectories", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", "point"}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"repeated", " ", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "k"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Goto", "[", "nextpoint", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Total", "[", "boundaryvector2", "]"}], ">", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"Max", "[", RowBox[{"boundaryvector2", "-", "boundaryvector1"}], "]"}], "==", "1"}], " ", "&&", " ", RowBox[{"repeated", "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointValidTrajectories", "=", RowBox[{"Join", "[", RowBox[{"restpointValidTrajectories", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"restpointSample", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "t0", ",", "point"}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "restpointValidTrajectories", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "t0"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ntrajectories", "++"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"t0", "=", " ", RowBox[{"t0", "-", "delta"}]}], " ", ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "i"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "the", " ", "following", " ", "is", " ", "usuful", " ", "only", " ", "in", " ", "planar", " ", "system", " ", "where", " ", "we", " ", "know", " ", "there", " ", "can", " ", "be", " ", "at", " ", "most", " ", "2", " ", "trajectories", " ", "converging", " ", "to", " ", "a", " ", "saddle"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ntrajectories", ">=", "2"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Label", "[", "nextpoint", "]"}], ";", "\[IndentingNewLine]", RowBox[{"l", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"validTrajectories", "=", RowBox[{"Join", "[", RowBox[{"validTrajectories", ",", "restpointValidTrajectories"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"unstablerestpoints", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "validTrajectories", "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "validTrajectories"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922553630393763`*^9, 3.4922554001026707`*^9}, { 3.492255458957299*^9, 3.492255477523997*^9}, {3.4922555114327555`*^9, 3.49225551802223*^9}, {3.4922561115501184`*^9, 3.492256111835529*^9}, { 3.4922561861323624`*^9, 3.4922562351778865`*^9}, {3.4922567776078625`*^9, 3.49225680997941*^9}, {3.492256856621478*^9, 3.4922568607524185`*^9}, { 3.4922569017463646`*^9, 3.492256903458827*^9}, {3.4922574344573655`*^9, 3.4922574774642067`*^9}, 3.492257511683411*^9, {3.4922575873021455`*^9, 3.4922575915081935`*^9}, {3.4922576345450773`*^9, 3.4922576361523886`*^9}, {3.4922577089921274`*^9, 3.4922577349043875`*^9}, {3.4922577813661957`*^9, 3.4922577970036817`*^9}, {3.4922578582317233`*^9, 3.492258104811287*^9}, { 3.4922582167822933`*^9, 3.492258222956171*^9}, {3.492258267615388*^9, 3.492258284514688*^9}, {3.4922583625368786`*^9, 3.4922585414687405`*^9}, { 3.4922585801763496`*^9, 3.492258597300974*^9}, {3.4922586346821055`*^9, 3.49225863778121*^9}, {3.4922587889633007`*^9, 3.492258822561286*^9}, { 3.4922591682062116`*^9, 3.4922591748357444`*^9}, {3.4922677733927565`*^9, 3.4922677810637875`*^9}, {3.4922678889689474`*^9, 3.4922679150564594`*^9}, {3.4922682722300496`*^9, 3.4922682916780148`*^9}, {3.4922683364023247`*^9, 3.4922683869850593`*^9}, {3.4922685407862144`*^9, 3.4922686104163375`*^9}, {3.4922688540550103`*^9, 3.4922688885446043`*^9}, {3.4922689982723846`*^9, 3.4922690011465178`*^9}, {3.4922690345645704`*^9, 3.4922690554145513`*^9}, {3.4922691619277096`*^9, 3.4922691646315975`*^9}, {3.4922691951755176`*^9, 3.492269199171263*^9}, { 3.4922693039819736`*^9, 3.4922693151480293`*^9}, {3.4922717879788537`*^9, 3.4922718068459835`*^9}, {3.492271905524228*^9, 3.492271974807595*^9}, { 3.4922720139350705`*^9, 3.4922720176504126`*^9}, {3.49227205649627*^9, 3.4922720587294817`*^9}, {3.492272094837323*^9, 3.492272233471791*^9}, { 3.492272263854729*^9, 3.492272265707393*^9}, {3.4922775630197573`*^9, 3.4922775648223495`*^9}, {3.4922777111828055`*^9, 3.492277851774967*^9}, { 3.4922779610821433`*^9, 3.492278001922234*^9}, {3.4922780475113907`*^9, 3.4922780478919373`*^9}, {3.4922780991957088`*^9, 3.492278102670706*^9}, { 3.4922793526180415`*^9, 3.4922793642247314`*^9}, {3.492279795174406*^9, 3.49227984953257*^9}, {3.492283168999849*^9, 3.492283198322012*^9}, { 3.492283622902529*^9, 3.4922836283503623`*^9}, {3.492283835113741*^9, 3.4922838602598996`*^9}, {3.492284158448674*^9, 3.49228419940757*^9}, { 3.4922842429001093`*^9, 3.4922842431604834`*^9}, {3.492284476365816*^9, 3.49228447721704*^9}, {3.4922845080413637`*^9, 3.4922845131186647`*^9}, { 3.4922845887073555`*^9, 3.4922846031080627`*^9}, {3.4922846502057858`*^9, 3.4922846653175154`*^9}, 3.492284708649824*^9, {3.4922847473755093`*^9, 3.492284761485799*^9}, {3.4922849605119843`*^9, 3.492285042740223*^9}, { 3.492285127041442*^9, 3.4922851542705956`*^9}, {3.4922852124742885`*^9, 3.492285292629546*^9}, {3.492285357252469*^9, 3.492285357973506*^9}, { 3.492285429416236*^9, 3.4922854401817155`*^9}, {3.4922854775654707`*^9, 3.492285526135311*^9}, {3.492285661610114*^9, 3.4922857370586033`*^9}, { 3.492285940961802*^9, 3.492285982651749*^9}, {3.492286301329986*^9, 3.4922863187650566`*^9}, {3.492287074361551*^9, 3.49228710483537*^9}, { 3.492287296470928*^9, 3.4922872977928295`*^9}, {3.492352304185495*^9, 3.4923523318152246`*^9}, {3.492352404930359*^9, 3.492352419501311*^9}, { 3.492685079324045*^9, 3.492685080215327*^9}, 3.49268529054777*^9, { 3.49268616214106*^9, 3.4926861762914066`*^9}, {3.49268631026405*^9, 3.4926863285002728`*^9}, {3.4926913636355095`*^9, 3.492691373760068*^9}, { 3.4926924398630486`*^9, 3.4926924530119553`*^9}, 3.492696005369834*^9, { 3.492696128681919*^9, 3.4926961292727685`*^9}, {3.492696830595831*^9, 3.492696831356925*^9}, {3.492809174748272*^9, 3.492809180356336*^9}, { 3.492810804982434*^9, 3.4928108080568542`*^9}, {3.4928109344886546`*^9, 3.4928109393856964`*^9}, {3.4928110493738513`*^9, 3.4928110704842067`*^9}, {3.4928176022715235`*^9, 3.492817603112733*^9}, 3.492828085485645*^9, {3.4931236337894535`*^9, 3.4931236631016026`*^9}, { 3.4931539420276847`*^9, 3.493153967574419*^9}, 3.4932635250828433`*^9, { 3.493264538630253*^9, 3.493264539411376*^9}, {3.4932646398858514`*^9, 3.493264641558256*^9}, {3.4932647958100595`*^9, 3.493264796320794*^9}, { 3.4932648318919425`*^9, 3.493264849627445*^9}, {3.4932648815533524`*^9, 3.4932649045464144`*^9}, {3.4932650956411953`*^9, 3.493265126665807*^9}, { 3.493265162377157*^9, 3.4932652208912964`*^9}, 3.4932658604208946`*^9, { 3.4932659268363953`*^9, 3.493265942448845*^9}, 3.4932663594284325`*^9, { 3.493266415929677*^9, 3.4932665022137475`*^9}, 3.4932665429623413`*^9, { 3.493266573556333*^9, 3.493266605652485*^9}, {3.493266646330978*^9, 3.4932666746617155`*^9}, {3.493266709241439*^9, 3.4932667410672016`*^9}, { 3.4932667902278914`*^9, 3.493266797328101*^9}, {3.493266871014056*^9, 3.4932668762115297`*^9}, 3.4932669902054453`*^9, {3.4932670757184067`*^9, 3.493267079854354*^9}, {3.4932671832830772`*^9, 3.493267212024405*^9}, { 3.493267273512821*^9, 3.4932672783698053`*^9}, {3.493267338526306*^9, 3.4932673479598703`*^9}, {3.49326741748985*^9, 3.4932674291365967`*^9}, { 3.493267619430226*^9, 3.493267672987237*^9}, {3.493268112609348*^9, 3.493268137579627*^9}, {3.4932682491808305`*^9, 3.493268262640184*^9}, { 3.4932682979509583`*^9, 3.4932683172987795`*^9}, {3.507925167530729*^9, 3.507925169783969*^9}, 3.507949929982408*^9, {3.5079820313449497`*^9, 3.5079820427463446`*^9}, {3.5079874000620203`*^9, 3.5079874168919363`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"findrestpoints", "\[Equal]", " ", "1"}], " ", "&&", " ", RowBox[{"drawbasinboundaries", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dta", "=", ".01"}], ";", "\[IndentingNewLine]", RowBox[{"timetopass", "=", "20"}], ";", "\[IndentingNewLine]", RowBox[{"basintrajectories", "=", RowBox[{"BasinsTrajectories", "[", RowBox[{ "USRPs", ",", "100", ",", ".01", ",", "dta", ",", "10", ",", "timetopass", ",", "dyn", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"basintrajectoryspecs", " ", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"basintrajectories", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "timetopass", ",", " ", "0", ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}], ",", " ", RowBox[{"{", "}"}], ",", " ", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "basintrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"timetopass", "=", "20"}], ";", "\[IndentingNewLine]", RowBox[{"basinboundarytrajectories", "=", RowBox[{"BasinsBoundaryTrajectories", "[", RowBox[{ "USRPs", ",", "100", ",", ".01", ",", "dta", ",", "10", ",", "timetopass", ",", "dyn", ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"basinboundarytrajectoryspecs", " ", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"basinboundarytrajectories", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "timetopass", ",", RowBox[{"basinboundarytrajectories", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}], ",", " ", RowBox[{"{", "}"}], ",", " ", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "basinboundarytrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"customtrajectoryspecs", "=", RowBox[{"Join", "[", RowBox[{"customtrajectoryspecs", ",", "\[IndentingNewLine]", RowBox[{"EliminateDuplicates", "[", RowBox[{".1", ",", RowBox[{"Join", "[", RowBox[{ "basintrajectoryspecs", ",", "basinboundarytrajectoryspecs"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{ "basintrajectories", ",", "basinboundarytrajectories"}], "]"}], "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Join", "[", RowBox[{ "basintrajectories", ",", "basinboundarytrajectories"}], "]"}], "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "basintrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", "basinboundarytrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"dta", ",", "timetopass"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.484183903537105*^9}, {3.484184050157935*^9, 3.4841840598418603`*^9}, { 3.484188063842988*^9, 3.4841880655730925`*^9}, {3.4841883718089237`*^9, 3.4841883723198614`*^9}, 3.4841886208953023`*^9, {3.484188755724307*^9, 3.4841887560968895`*^9}, {3.4841889290521083`*^9, 3.484188929467381*^9}, { 3.4841893813310227`*^9, 3.484189387850397*^9}, {3.4841895035968323`*^9, 3.4841895465686226`*^9}, {3.4841895972615156`*^9, 3.4841896055233955`*^9}, {3.4841897262369733`*^9, 3.4841898264510736`*^9}, {3.4841898576859875`*^9, 3.4841899381516914`*^9}, {3.4841900286818676`*^9, 3.484190095628132*^9}, { 3.4841901433868055`*^9, 3.484190153601493*^9}, 3.4841901917162995`*^9, { 3.4841902865827107`*^9, 3.4841903117288694`*^9}, {3.484190422157658*^9, 3.4841904740122213`*^9}, {3.48419054554508*^9, 3.4841905478884497`*^9}, { 3.484190773653084*^9, 3.484190794272733*^9}, {3.4841908273803396`*^9, 3.4841908474491973`*^9}, 3.4841908931749477`*^9, {3.4841909446990356`*^9, 3.484190950948021*^9}, {3.484191025174754*^9, 3.484191061827458*^9}, 3.484191111328637*^9, {3.484191530200946*^9, 3.484191533726015*^9}, { 3.484191615954253*^9, 3.484191631777005*^9}, {3.4841932571942406`*^9, 3.4841932629324913`*^9}, {3.484193367813303*^9, 3.4841933903156595`*^9}, { 3.4841939840994787`*^9, 3.4841939922311716`*^9}, {3.4841941378405476`*^9, 3.4841941561468706`*^9}, {3.4841944591525717`*^9, 3.484194459953724*^9}, { 3.4841955427306805`*^9, 3.4841955469767857`*^9}, {3.484195624468213*^9, 3.4841956288445063`*^9}, 3.4841957078881655`*^9, {3.4841969477009287`*^9, 3.4841969480013604`*^9}, {3.484197029638749*^9, 3.4841970320722485`*^9}, { 3.4841970672027636`*^9, 3.484197082584882*^9}, {3.4843110887979755`*^9, 3.484311111510635*^9}, {3.4843122365083017`*^9, 3.4843122367286186`*^9}, { 3.4843132110696526`*^9, 3.484313212501712*^9}, {3.4844204918135357`*^9, 3.4844204926847887`*^9}, {3.484422780634699*^9, 3.48442278471056*^9}, { 3.484671172645377*^9, 3.484671181538164*^9}, {3.484676867654534*^9, 3.484676872671748*^9}, {3.4846771238329*^9, 3.4846771413280573`*^9}, { 3.4846776271666584`*^9, 3.4846776299106045`*^9}, 3.4846778929989066`*^9, { 3.488629953261813*^9, 3.488629980921586*^9}, 3.491922381856966*^9, { 3.4922645142519865`*^9, 3.492264515528823*^9}, {3.4922648346777363`*^9, 3.492264848737954*^9}, {3.492264976782072*^9, 3.492264980357213*^9}, 3.4922678126191616`*^9, {3.492276615166812*^9, 3.4922766222670217`*^9}, { 3.4922799026990194`*^9, 3.4922799039408045`*^9}, {3.4922818450260677`*^9, 3.4922818453265*^9}, {3.4922829235669336`*^9, 3.492282924608431*^9}, { 3.4922864980228167`*^9, 3.492286518942898*^9}, {3.492291166080221*^9, 3.492291184306429*^9}, {3.4922913350231495`*^9, 3.492291340701314*^9}, 3.4923505269976273`*^9, 3.492351488281898*^9, {3.492351694664397*^9, 3.4923516974884577`*^9}, 3.4923520724422646`*^9, {3.4923582429705505`*^9, 3.4923582618730807`*^9}, {3.4923685544842443`*^9, 3.4923685580994425`*^9}, {3.4926007500928783`*^9, 3.4926007545893435`*^9}, 3.492601022244212*^9, {3.4926929308690805`*^9, 3.4926929316702323`*^9}, 3.4928091839214625`*^9, 3.492810808627675*^9, 3.492810940357093*^9, { 3.4928268813441744`*^9, 3.4928268865516624`*^9}, 3.4932620055979314`*^9, 3.493262052575482*^9, 3.4932629382590322`*^9, 3.4932685857147427`*^9, { 3.5079248017997656`*^9, 3.5079248315124903`*^9}, {3.5079820473729973`*^9, 3.5079820476283646`*^9}, {3.508020652886202*^9, 3.5080206532967925`*^9}, 3.50802173780624*^9, {3.5080693481691127`*^9, 3.5080693567915115`*^9}, 3.508069751348857*^9, {3.5080699091958294`*^9, 3.5080699312775817`*^9}, { 3.508779032339525*^9, 3.5087790760323524`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Regular Trajectories", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841773919238653`*^9, 3.484177394978257*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"trajsol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DEsol", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "\"\\"", ",", "10", ",", RowBox[{"dyn", "===", "Projec"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4747149974256773`*^9, 3.4747150022626324`*^9}, { 3.4747152395638547`*^9, 3.474715251210602*^9}, {3.4814188859968495`*^9, 3.4814188860268927`*^9}, {3.481735483124242*^9, 3.4817354831542845`*^9}, { 3.481756513534622*^9, 3.481756522547582*^9}, {3.484193468958743*^9, 3.4841934921120358`*^9}, {3.4841942078912754`*^9, 3.4841942304737473`*^9}, 3.492686689629551*^9, {3.4926869916037683`*^9, 3.492687022017501*^9}, { 3.492687315409378*^9, 3.492687334637026*^9}, {3.4926873813542023`*^9, 3.492687416664976*^9}, {3.4926884415337334`*^9, 3.4926885089406595`*^9}, { 3.4926885633789377`*^9, 3.4926886219832067`*^9}, {3.492688658986415*^9, 3.4926887209455075`*^9}, {3.492692464588602*^9, 3.4926924679834833`*^9}, { 3.5079240895355797`*^9, 3.507924098398324*^9}, {3.5079814105345907`*^9, 3.5079814140296164`*^9}, 3.5080189455211315`*^9, {3.5080190451844406`*^9, 3.5080191028974276`*^9}, 3.508019510112975*^9, 3.5159567659692707`*^9, { 3.5160386219971676`*^9, 3.5160386400442*^9}, {3.516039030338523*^9, 3.5160390324096413`*^9}, {3.516039313782735*^9, 3.5160393162508764`*^9}, { 3.5160405835083594`*^9, 3.5160405954870443`*^9}, 3.516044451296584*^9, { 3.5192892633075953`*^9, 3.519289264569668*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Special Trajectories", "Subsection", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841773919238653`*^9, 3.4841774030498633`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"ctrajsol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DEsol", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "\"\\"", ",", "10", ",", RowBox[{"dyn", "===", "Projec"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474715003814864*^9, 3.474715004666088*^9}, { 3.4814188860268927`*^9, 3.481418886036907*^9}, {3.4817354831943426`*^9, 3.481735483204357*^9}, {3.4817565232586045`*^9, 3.481756549155843*^9}, { 3.481758547649536*^9, 3.4817585513448496`*^9}, {3.4841941945921526`*^9, 3.4841941973260837`*^9}, {3.484195489754504*^9, 3.484195498196644*^9}, { 3.492688897559466*^9, 3.492688948352503*^9}, {3.492688978485832*^9, 3.4926889801982946`*^9}, {3.4926911314216022`*^9, 3.4926911349466705`*^9}, 3.4926911784291954`*^9, {3.4926912279003315`*^9, 3.4926912287715845`*^9}, 3.4926924734112883`*^9, {3.492692865965754*^9, 3.4926928686796565`*^9}, { 3.507924101632975*^9, 3.5079241051380153`*^9}, {3.5079516157839394`*^9, 3.507951618413091*^9}, 3.507983061601386*^9, 3.5079833772803097`*^9, { 3.508018949036186*^9, 3.508018990866335*^9}, {3.5080191276530247`*^9, 3.508019146990831*^9}, {3.508019183002613*^9, 3.5080191839339523`*^9}, { 3.5080195150100164`*^9, 3.50801953322621*^9}, 3.515956767033331*^9, 3.5192893631393056`*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Plotting the solutions", "Section", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{"drawvectorfield1", "=", "0"}], " ", ";", " ", RowBox[{"drawvectorfield2", "=", "0"}]}]}], " ", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawphasediagram", "\[Equal]", "0"}], ",", RowBox[{"pdcontourplot", "=", "0"}]}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{3.491925712531453*^9, 3.4919259369040847`*^9, 3.491926048524587*^9, 3.521637590531484*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Drawing Frames and Dots", "Subsection", CellChangeTimes->{{3.519140370261651*^9, 3.519140374359885*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["\<\ The cells that belong to this group are for drawing the simplex frame.\ \>", "Text", CellChangeTimes->{{3.4809472476323805`*^9, 3.480947255241707*^9}, { 3.519138688100436*^9, 3.5191386884474564`*^9}, {3.519140337098754*^9, 3.519140339236876*^9}, {3.5191650703269057`*^9, 3.5191650710579476`*^9}, 3.5192031647003098`*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"simplex", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".004", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "]"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "]"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", "\n", RowBox[{ RowBox[{"leftri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", RowBox[{"-", ".04"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", ".95"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", ".95"}], "}"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", RowBox[{"-", ".04"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rightri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", ".95"}], "}"}], ",", RowBox[{"{", RowBox[{"1.095", ",", ".95"}], "}"}], ",", RowBox[{"{", RowBox[{"1.095", ",", RowBox[{"-", ".04"}]}], "}"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "]"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{".5", ",", ".95"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"downtri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", RowBox[{"-", ".04"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.08", ",", RowBox[{"-", ".04"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.08", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", RowBox[{"-", ".04"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.481817151673976*^9, 3.4818171688987436`*^9}, { 3.4818172393700767`*^9, 3.481817260610619*^9}, {3.481817309681179*^9, 3.481817338222219*^9}, 3.4818173774185805`*^9, {3.4818175139949675`*^9, 3.4818175185214767`*^9}, {3.4844092206768103`*^9, 3.4844092654912505`*^9}, {3.4844097378704987`*^9, 3.484409745882018*^9}, { 3.484410830473482*^9, 3.4844108358644037`*^9}, {3.4844109004672985`*^9, 3.484410902960884*^9}, {3.4844109402745385`*^9, 3.484410941456238*^9}, 3.4844112644807243`*^9, {3.4846667950016527`*^9, 3.4846667966440144`*^9}, { 3.484670088095872*^9, 3.4846701164065804`*^9}, {3.5191394894242697`*^9, 3.519139505745203*^9}, {3.5193084584334936`*^9, 3.5193084598815765`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["These cells draw a white area around the eighth-sphere", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"di", "=", ".001"}], " ", ";", "\[IndentingNewLine]", RowBox[{"curvedtri", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0", ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "=", RowBox[{"Min", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0", ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "=", RowBox[{"Max", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0", ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "=", RowBox[{"Min", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0", ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "=", RowBox[{"Max", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0", ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", RowBox[{"10", " ", "di"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"leftrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", "0"}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "+", RowBox[{"towmax", "[", "2", "]"}]}], ")"}], "/", "2"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rightrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["i"], ",", "0", ",", SqrtBox[ RowBox[{"1", "-", "i"}]]}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".05"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".05"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "+", RowBox[{"towmax", "[", "2", "]"}]}], ")"}], "/", "2"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".05"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"downtrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SqrtBox[ RowBox[{"1", "-", "i"}]], ",", SqrtBox["i"]}], "}"}], ",", "viewray"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", "di"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".05"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", RowBox[{"fromwmin", "[", "1", "]"}]}], ")"}], "/", "2"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]}], " ", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"curvedtri", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leftrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rightrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"downtrisrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], " ", ";"}]], "Input", CellChangeTimes->{ 3.4919255236298256`*^9, 3.5191395127316027`*^9, {3.5192902629447713`*^9, 3.519290290735361*^9}, {3.519290321700132*^9, 3.5192903940572705`*^9}, { 3.5192905659030995`*^9, 3.5192905757376623`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ This part draws the dots for the rest points. RestPoints[] and \ StabilitySets[] should have been called in order to determine the restpoints \ and their stability. You may need to modify this part if the stability test \ does not work for your choice of dynamic.\ \>", "Text", CellChangeTimes->{ 3.474715011716226*^9, 3.481418886086979*^9, 3.481735483284472*^9, 3.492477466508514*^9, {3.4924811111091924`*^9, 3.492481127542823*^9}, { 3.4928318187188387`*^9, 3.4928318675190096`*^9}, 3.4934025014542055`*^9, 3.5087652862746925`*^9}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", " ", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"wdots", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "0.006"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"dots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], " ", ";", " ", RowBox[{"wdots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wdots", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4818175194828587`*^9, 3.481817520414198*^9}, { 3.492701111454836*^9, 3.492701112159847*^9}, {3.492809186354962*^9, 3.492809189789901*^9}, {3.4928108100597343`*^9, 3.492810811071189*^9}, 3.4928109428106213`*^9, 3.4928277714240465`*^9, {3.5079818638263927`*^9, 3.5079818836048326`*^9}, {3.5079840630714293`*^9, 3.507984071643756*^9}, { 3.519138190793992*^9, 3.51913819198006*^9}, {3.5191382248269386`*^9, 3.5191382263540263`*^9}, {3.519289972392153*^9, 3.519290003620939*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["for sphere", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"findrestpoints", "\[Equal]", "1"}]}], " ", ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"dotssrt", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ SqrtBox[ RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}]], ",", "viewray"}], "]"}], ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"wdotssrt", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ SqrtBox[ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}]], ",", "viewray"}], "]"}], ",", "0.006"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"viewraydot", "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"dotatorig", "=", RowBox[{"Graphics", "[", RowBox[{"If", "[", RowBox[{ RowBox[{"viewraydot", "==", "1"}], ",", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"color", "\[Equal]", "1"}], ",", RowBox[{"Hue", "[", "raydotstyle", "]"}], ",", RowBox[{"GrayLevel", "[", "raydotstyle", "]"}]}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], ",", "0.01"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dotatorig", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dotssrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wdotssrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dotatorig", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4807791279373856`*^9, 3.480779128898768*^9}, { 3.4807799877387867`*^9, 3.480780078218891*^9}, {3.4817561942354927`*^9, 3.481756197249827*^9}, 3.4817562781561646`*^9, 3.4919255241806173`*^9, { 3.4927011130080633`*^9, 3.4927011137240906`*^9}, {3.4928091916025076`*^9, 3.4928091927541637`*^9}, {3.492810812102672*^9, 3.4928108126935215`*^9}, { 3.5079829936136246`*^9, 3.5079830120901923`*^9}, 3.5079830616164074`*^9, { 3.5079833635956326`*^9, 3.507983363941129*^9}, {3.5079840766709843`*^9, 3.5079840831402864`*^9}, 3.519138193004119*^9, 3.519138227557095*^9, 3.5191398666828475`*^9, {3.5192904223418884`*^9, 3.5192904895647335`*^9}, { 3.519290777948228*^9, 3.519290794800192*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["These cells draw custom text, lines and dots", "Text", CellChangeTimes->{{3.492481094024626*^9, 3.492481094795735*^9}, { 3.5191401927915*^9, 3.5191402258053885`*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"cdots", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customdots", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cwdots", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customdots", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{".6", " ", RowBox[{"customdots", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customdots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"clines", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customlines", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], ",", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "5"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "6"}], "]"}], "]"}], ",", " ", RowBox[{"4", "/", "5"}]}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"SimplexToPlane", "[", RowBox[{"customlines", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customlines", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ctext", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"customtext", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"FontFamily", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"FontSlant", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"FontSize", "\[Rule]", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{"customtext", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtext", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "Null"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.519141058093992*^9, 3.5191411798919587`*^9}, { 3.5191412153019843`*^9, 3.519141251912078*^9}, 3.519141350094694*^9, 3.5191414066769304`*^9, 3.5191415320040984`*^9, {3.5191415728694363`*^9, 3.519141573552475*^9}, 3.5191416040312185`*^9, {3.519202966577977*^9, 3.5192030171888723`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ These cells draw the triangle, lines, and dots for the 3D plot of the contour \ function\ \>", "Text", CellChangeTimes->{{3.492481094024626*^9, 3.492481094795735*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"graphf", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"SimplexToPlane", "[", "x", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"ContourFunction", "[", "x", "]"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"graphmin", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"SimplexToPlane", "[", "x", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"simplex3d", "=", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeveralLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{".01", ",", ".01"}], "}"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"graphmin", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"graphf", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SeveralPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".02", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"graphmin", "[", RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", ".5", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"graphmin", "[", RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeveralLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SeveralPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"simplex3d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SeveralLines", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SeveralPoints", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4818054954655933`*^9, {3.4818175212253647`*^9, 3.4818175236788926`*^9}, 3.4919256290013423`*^9, {3.4928090954642677`*^9, 3.4928091136203747`*^9}, { 3.4928091944065394`*^9, 3.4928091955882387`*^9}, {3.4928101725630593`*^9, 3.49281017388496*^9}, {3.49281081339453*^9, 3.4928108141155663`*^9}, { 3.492810863266242*^9, 3.4928108650588193`*^9}, {3.507983013832698*^9, 3.5079830176331625`*^9}, {3.5079833642265396`*^9, 3.5079833647673173`*^9}, {3.5079840971804757`*^9, 3.5079841148058195`*^9}, {3.50799828547429*^9, 3.5079982856745777`*^9}, { 3.5192910124786425`*^9, 3.5192913105456905`*^9}, {3.519308548033619*^9, 3.5193085555440483`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Drawing vector fields on the simplex", "Subsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"customvectorfield", "[", RowBox[{ "points_", ",", "vectors_", ",", "color_", ",", "magninorm_", ",", "magnihead_", ",", "gridpoints_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"rescaler", ",", "maxnorm"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"maxnorm", "=", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectors", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rescaler", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"gridpoints", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rescaler", "=", RowBox[{"magninorm", " ", RowBox[{"rescaler", "/", "maxnorm"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ">", RowBox[{".01", "*", "maxnorm"}]}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color", ",", RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"magnihead", " ", "/", RowBox[{"(", RowBox[{"2", "gridpoints"}], ")"}]}], ",", ".99"}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "+", RowBox[{ RowBox[{"vectors", "[", RowBox[{"[", "j", "]"}], "]"}], "rescaler"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"color", ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Scaled", "[", "0.005", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectors", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.474409954579438*^9, 3.474409965885696*^9}, 3.474410059590437*^9, {3.474411264432915*^9, 3.4744112661553917`*^9}, { 3.4744116091886497`*^9, 3.474411659190549*^9}, {3.4744123256688976`*^9, 3.474412328432872*^9}, {3.474412365966843*^9, 3.474412367268715*^9}, { 3.474413032935898*^9, 3.4744130631293135`*^9}, {3.4744134674306707`*^9, 3.4744134677010593`*^9}, {3.4744135541954317`*^9, 3.4744136513551407`*^9}, {3.474413735275813*^9, 3.47441374325729*^9}, { 3.4744138135583773`*^9, 3.474414013936507*^9}, 3.474414044710758*^9, { 3.4748346690119486`*^9, 3.474834677499152*^9}, 3.4748349834947605`*^9, { 3.4748350407883787`*^9, 3.474835104676106*^9}, {3.474835159185567*^9, 3.4748351841832514`*^9}, {3.474835221063692*^9, 3.47483524289749*^9}, { 3.474835285613969*^9, 3.474835288696415*^9}, {3.4750384882350035`*^9, 3.475038572616338*^9}, {3.4750386241604548`*^9, 3.4750386281962576`*^9}, { 3.475038751563651*^9, 3.4750389399044724`*^9}, {3.475038973953432*^9, 3.475039023755043*^9}, {3.475039098853029*^9, 3.47503931464332*^9}, { 3.475039346378954*^9, 3.4750394584501038`*^9}, {3.475039492028387*^9, 3.4750395222017746`*^9}, {3.480862284648756*^9, 3.480862369289381*^9}, { 3.480862497430006*^9, 3.480862561070631*^9}, {3.480862643789381*^9, 3.480862683930006*^9}, {3.480862834836256*^9, 3.480862839711256*^9}, { 3.480863114320631*^9, 3.480863184914381*^9}, {3.480863286039381*^9, 3.480863322883131*^9}, {3.480863369711256*^9, 3.480863437101881*^9}, { 3.480863471805006*^9, 3.480863601336256*^9}, {3.480863663055006*^9, 3.480863665680006*^9}, {3.480863701680006*^9, 3.480863714180006*^9}, 3.480863759383131*^9, {3.507983551195388*^9, 3.507983565796383*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"drawvectorfield1", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"drawvectorfield2", "\[Equal]", "1"}]}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield1", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"vectorf1", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"arrowsfromrestpoints", "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorf1", "=", RowBox[{ "customvectorfield", " ", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield1", "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield1", "[", RowBox[{ RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "colorvf1", ",", "1.5", ",", ".8", ",", "gridpoints1dvf"}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorf1", "=", RowBox[{"customvectorfield", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield1", "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "colorvf1", ",", "1.5", ",", ".8", ",", "gridpoints1dvf"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield2", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"vectorf2", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"arrowsfromrestpoints", "\[Equal]", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorf2", "=", RowBox[{ "customvectorfield", " ", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Join", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield2", "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield2", "[", RowBox[{ RowBox[{"RPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "colorvf2", ",", "1.5", ",", ".8", ",", "gridpoints1dvf"}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vectorf2", "=", RowBox[{"customvectorfield", " ", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"vectorfield2", "[", RowBox[{ RowBox[{"vectorfieldspecs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "vectorfieldspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "colorvf2", ",", "1.5", ",", ".8", ",", "gridpoints1dvf"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], " ", "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.474409954579438*^9, 3.474409965885696*^9}, 3.474410059590437*^9, {3.474411264432915*^9, 3.4744112661553917`*^9}, { 3.4744116091886497`*^9, 3.474411659190549*^9}, {3.4744123256688976`*^9, 3.474412328432872*^9}, {3.474412365966843*^9, 3.474412367268715*^9}, { 3.474413032935898*^9, 3.4744130631293135`*^9}, {3.4744134674306707`*^9, 3.4744134677010593`*^9}, {3.4744135541954317`*^9, 3.4744136513551407`*^9}, {3.474413735275813*^9, 3.47441374325729*^9}, { 3.4744138135583773`*^9, 3.474414013936507*^9}, 3.474414044710758*^9, { 3.4748346690119486`*^9, 3.474834677499152*^9}, 3.4748349834947605`*^9, { 3.4748350407883787`*^9, 3.474835104676106*^9}, {3.474835159185567*^9, 3.4748351841832514`*^9}, {3.474835221063692*^9, 3.47483524289749*^9}, { 3.474835285613969*^9, 3.474835288696415*^9}, {3.4750384882350035`*^9, 3.475038572616338*^9}, {3.4750386241604548`*^9, 3.4750386281962576`*^9}, { 3.475038751563651*^9, 3.4750389399044724`*^9}, {3.475038973953432*^9, 3.475039023755043*^9}, {3.475039098853029*^9, 3.47503931464332*^9}, { 3.475039346378954*^9, 3.4750394584501038`*^9}, {3.475039492028387*^9, 3.4750395462663774`*^9}, {3.4750664634347763`*^9, 3.4750664976539807`*^9}, 3.475066615333195*^9, 3.475066735526024*^9, {3.475066775433408*^9, 3.4750667967240224`*^9}, {3.4750668370520115`*^9, 3.4750668459648275`*^9}, {3.475066932038595*^9, 3.4750669522576685`*^9}, { 3.4750669843938785`*^9, 3.475066996100712*^9}, 3.4750672694738035`*^9, { 3.475149702602003*^9, 3.4751497551876173`*^9}, {3.4751498244872656`*^9, 3.4751498561628127`*^9}, {3.4817568779786673`*^9, 3.4817568872820444`*^9}, {3.481817504681576*^9, 3.4818175112510223`*^9}, 3.491925713332605*^9, {3.49270110286651*^9, 3.4927011106947455`*^9}, { 3.5079839355080023`*^9, 3.5079840086631937`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff Eqs", "Subsection", CellChangeTimes->{{3.506174473166073*^9, 3.506174473506562*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"trajline", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{ RowBox[{"Xt1", "[", "t", "]"}], ",", RowBox[{"Xt2", "[", "t", "]"}]}], "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajsol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", ".95"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4817565864194255`*^9, 3.4817565892234573`*^9}, 3.4818175122524624`*^9, {3.4926957945966234`*^9, 3.492695798235078*^9}, { 3.5079504320793877`*^9, 3.507950444847748*^9}, {3.5079818369277143`*^9, 3.5079818385800905`*^9}, {3.50798401391074*^9, 3.5079840215717554`*^9}, { 3.5192891819659433`*^9, 3.519289185550148*^9}, 3.519289318720765*^9, { 3.5192914337617383`*^9, 3.5192914464604645`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ctrajline", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", RowBox[{ RowBox[{"Xt1", "[", "t", "]"}], ",", RowBox[{"Xt2", "[", "t", "]"}]}], "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"ctrajsol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", " ", "ppoints"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", ".95"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "4"}], "]"}], "]"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.481758552085915*^9, 3.4817585549199905`*^9}, 3.48181751295347*^9, {3.492692873977274*^9, 3.4926928785037827`*^9}, { 3.4926958490750933`*^9, 3.492695852600162*^9}, {3.507950315842247*^9, 3.5079503387351656`*^9}, {3.5079503826583242`*^9, 3.507950410343133*^9}, { 3.507981847312647*^9, 3.5079818570166006`*^9}, {3.5079840315360837`*^9, 3.5079840425719523`*^9}, 3.5192892258414526`*^9, 3.519289349633533*^9, { 3.5192893925809894`*^9, 3.5192893946791096`*^9}, {3.5192914107414217`*^9, 3.5192914169257755`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Solutions to Diff Eqs on sphere", "Subsection", CellChangeTimes->{{3.5061745136442776`*^9, 3.5061745138846235`*^9}, 3.5061746097124166`*^9}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", RowBox[{"eonsphere", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"Xt1", "[", "t", "]"}]], ",", SqrtBox[ RowBox[{"Xt2", "[", "t", "]"}]], ",", SqrtBox[ RowBox[{"1", "-", RowBox[{"Xt1", "[", "t", "]"}], "-", RowBox[{"Xt2", "[", "t", "]"}]}]]}], "}"}], ",", "viewray"}], "]"}], "]"}], "/.", RowBox[{"trajsol", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", " ", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "False"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".05"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".05"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".05"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"eonsphere", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4807783562526894`*^9, 3.480778376221403*^9}, { 3.481756599368045*^9, 3.481756601410982*^9}, 3.491925524741424*^9, { 3.492695861172488*^9, 3.49269587257889*^9}, 3.5079830189851065`*^9, 3.5079833647973604`*^9, {3.507984135896146*^9, 3.507984142956298*^9}, 3.519289323450035*^9, {3.519291370897143*^9, 3.519291393077411*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Arrows", "Subsection", CellChangeTimes->{{3.5191404527803707`*^9, 3.519140454050443*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"invertarrows", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"invertarrows", "==", "1"}], ",", RowBox[{"auxrelarrowbase", "=", RowBox[{ RowBox[{"-", "1"}], "*", "relarrowbase"}]}], ",", RowBox[{"auxrelarrowbase", "=", "relarrowbase"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"trajar", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "0"}], ",", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"Hue", "[", "__", "]"}]}], "]"}], " ", "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"GrayLevel", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"RGBColor", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"CMYKColor", "[", "__", "]"}]}], "]"}]}], ")"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", "0", "]"}]}], " ", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], ",", "arrowheadcenter"}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt1", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"auxrelarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Xt2", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"auxrelarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt1", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Xt2", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4747544483459153`*^9, 3.4747545032604313`*^9}, { 3.474754537139147*^9, 3.474754595633257*^9}, {3.474915436257621*^9, 3.4749154421260595`*^9}, {3.4817566037142944`*^9, 3.481756632025003*^9}, { 3.4818175248105197`*^9, 3.4818175258520174`*^9}, {3.484421050737229*^9, 3.4844210556142416`*^9}, {3.484421129850989*^9, 3.484421193302227*^9}, { 3.484421250204048*^9, 3.484421268510371*^9}, {3.4844213848476562`*^9, 3.4844213992583776`*^9}, {3.484421503658498*^9, 3.484421505571248*^9}, { 3.4844215708350925`*^9, 3.4844215898824816`*^9}, {3.4844216922296495`*^9, 3.484421693291176*^9}, {3.4844224694572477`*^9, 3.4844224858107634`*^9}, 3.4844225185878944`*^9, {3.48442255763404*^9, 3.4844226360568066`*^9}, { 3.484422676234579*^9, 3.4844226782274446`*^9}, {3.484676740882244*^9, 3.484676742454505*^9}, 3.4846776463041773`*^9, {3.4886362110952525`*^9, 3.4886362112755117`*^9}, {3.492695915540666*^9, 3.49269591655212*^9}, { 3.4926959512620306`*^9, 3.4926959532248535`*^9}, {3.4926962062835045`*^9, 3.4926962348746166`*^9}, {3.5079830205022883`*^9, 3.5079830366354866`*^9}, {3.5079833650527277`*^9, 3.5079833670055356`*^9}, {3.5079841503369107`*^9, 3.5079841654987125`*^9}, {3.5079841965533667`*^9, 3.507984254837175*^9}, { 3.5192033940264263`*^9, 3.519203447679495*^9}, {3.5192045617522163`*^9, 3.519204562272246*^9}, {3.5192047352131376`*^9, 3.5192048773002644`*^9}, { 3.5192049999292784`*^9, 3.519205040082575*^9}, {3.51928931006427*^9, 3.5192893114753504`*^9}, {3.51929168450508*^9, 3.5192916941646323`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{"invertarrows", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"invertarrows", "==", "1"}], ",", RowBox[{"auxrelarrowbase", "=", RowBox[{ RowBox[{"-", "1"}], "*", "relarrowbase"}]}], ",", RowBox[{"auxrelarrowbase", "=", "relarrowbase"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ctrajar", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "0"}], ",", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"Hue", "[", "__", "]"}]}], "]"}], " ", "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"GrayLevel", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"RGBColor", "[", "__", "]"}]}], "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"#1", ",", RowBox[{"CMYKColor", "[", "__", "]"}]}], "]"}]}], ")"}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"GrayLevel", "[", "0", "]"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", "0", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "6"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], ",", "arrowheadcenter"}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt1", "[", RowBox[{ RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"auxrelarrowbase", " ", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Xt2", "[", RowBox[{ RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"auxrelarrowbase", " ", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"ctrajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SimplexToPlane", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt1", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Xt2", "[", RowBox[{ RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"ctrajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"customtrajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "6"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "customtrajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.4747546288810654`*^9, 3.4747546425607357`*^9}, { 3.4747547001635647`*^9, 3.474754732680321*^9}, {3.474915464998949*^9, 3.4749154724897203`*^9}, {3.481756641438539*^9, 3.4817566484085617`*^9}, { 3.481758555570926*^9, 3.4817585603878527`*^9}, {3.4818175266832123`*^9, 3.481817527404249*^9}, {3.4841958368035364`*^9, 3.4841958441841493`*^9}, { 3.4841961363442545`*^9, 3.4841961709039493`*^9}, {3.484196668088866*^9, 3.484196668809903*^9}, 3.4841967373684855`*^9, {3.484422538075917*^9, 3.4844225490617137`*^9}, {3.4844226453701982`*^9, 3.4844226559754477`*^9}, {3.484422687500779*^9, 3.4844226922375903`*^9}, { 3.4926928793449926`*^9, 3.4926928893393636`*^9}, {3.4926959178940496`*^9, 3.49269592014729*^9}, {3.4926959545267253`*^9, 3.49269595578854*^9}, { 3.5079830373565235`*^9, 3.507983054481148*^9}, {3.507983367260903*^9, 3.507983369964791*^9}, {3.507984280123535*^9, 3.50798431124829*^9}, { 3.5079843423430023`*^9, 3.5079843529983234`*^9}, 3.519204394046624*^9, { 3.5192045649664*^9, 3.5192045655524335`*^9}, {3.519205078418768*^9, 3.5192051534800615`*^9}, {3.519289343868203*^9, 3.519289344636247*^9}, 3.5192917160558844`*^9}, CellTags->"corecell"], Cell[CellGroupData[{ Cell["Arrows for the sphere plot", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", RowBox[{"trajarsrt", "=", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], ",", "arrowheadcenter"}], "}"}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"Xt1", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"relarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ",", RowBox[{"\[Sqrt]", RowBox[{"Xt2", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"relarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ",", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Xt1", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"relarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}], "-", RowBox[{"Xt2", "[", RowBox[{ RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"relarrowbase", " ", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], ")"}]}]}], "}"}], ",", "viewray"}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox[ RowBox[{"Xt1", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]], ",", SqrtBox[ RowBox[{"Xt2", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]], ",", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Xt1", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "-", RowBox[{"Xt2", "[", RowBox[{ RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "4"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ")"}]}]}], "}"}], ",", "viewray"}], "]"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"trajsol", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"trajectoryspecs", "[", RowBox[{"[", RowBox[{"k", ",", "5"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "trajectoryspecs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"trajarsrt", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.4747547746206284`*^9, 3.4747547942087946`*^9}, { 3.4749154855184546`*^9, 3.474915506919227*^9}, {3.481756657271305*^9, 3.481756679302985*^9}, 3.4919255292579184`*^9, {3.4926959221201267`*^9, 3.4926959600446596`*^9}, {3.5079830545262127`*^9, 3.5079830574103594`*^9}, {3.507983370220158*^9, 3.507983371842491*^9}, { 3.5079851006584606`*^9, 3.507985158146124*^9}, 3.5079874332177925`*^9, { 3.519204630491148*^9, 3.519204631036179*^9}, {3.5192893140864997`*^9, 3.519289315821599*^9}, {3.519291803790903*^9, 3.519291824175069*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Calculating color scale/gray scale\ \>", "Subsection", CellChangeTimes->{{3.5191405866880293`*^9, 3.5191405893441815`*^9}}, CellTags->"corecell"], Cell["\<\ The approximate minimum and maximum values of the contour function are \ computed here. These values are then used to assign colors/gray levels \ optimally.\ \>", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", RowBox[{"vfcontourplot", "\[Equal]", "1"}], "||", RowBox[{"draw3dcontourfunction", " ", "\[Equal]", " ", "1"}]}], " ", ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"ContourFunction", " ", "===", " ", "Speed"}], ",", RowBox[{"MinAttained", "=", "0"}], ",", RowBox[{ RowBox[{"nrmlzdmin", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{ RowBox[{"ContourFunction", "[", RowBox[{"Chop", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", RowBox[{"1", "-", "i", "-", "j"}]}], "}"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", ".025"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"1", "-", "i"}], ",", ".025"}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"MinAttained", "=", RowBox[{"Min", "[", "nrmlzdmin", "]"}]}]}]}], "]"}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"vfcontourplot", "\[Equal]", "1"}], "||", RowBox[{"draw3dcontourfunction", " ", "\[Equal]", " ", "1"}]}], ",", RowBox[{ RowBox[{"nrmlzd", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{ RowBox[{"ContourFunction", "[", RowBox[{"Chop", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", RowBox[{"1", "-", "i", "-", "j"}]}], "}"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", ".025"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"1", "-", "i"}], ",", ".025"}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"MaxAttained", "=", RowBox[{"Max", "[", "nrmlzd", "]"}]}]}]}], " ", "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"distancefrommin", "=", RowBox[{"shiftpercentage", " ", RowBox[{"(", RowBox[{"MaxAttained", "-", "MinAttained"}], ")"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"btwf", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{"Min", "[", RowBox[{ FractionBox[ RowBox[{"\[CapitalPsi]", "-", "MinAttained"}], RowBox[{"MaxAttained", "-", "MinAttained"}]], ",", "1"}], "]"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", RowBox[{"vfcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", " ", "\[Equal]", " ", "1"}]}], ")"}], " ", "&&", " ", RowBox[{"color", "\[Equal]", "0"}]}], ",", RowBox[{ RowBox[{"ConColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"GrayLevel", "[", RowBox[{ FractionBox[".95", "1.45"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"btwf", "[", RowBox[{"conbrightness", " ", "\[CapitalPsi]"}], "]"}], "+", ".45"}], ")"}]}], " ", "]"}]}]}], "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", RowBox[{"vfcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", " ", "\[Equal]", " ", "1"}]}], ")"}], "&&", " ", RowBox[{"color", "==", "1"}]}], ",", RowBox[{ RowBox[{"ConColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"Hue", "[", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["2", "5"], RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ FractionBox["1", "2"], "<", RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["2", "3"]}], ",", " ", RowBox[{ RowBox[{ FractionBox["6", "5"], RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["2", "5"]}], ",", RowBox[{ FractionBox["2", "3"], "<", RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["3", "4"], RowBox[{"btwf", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["1", "10"]}]}], "]"}], "]"}]}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"vfcontourplot", "\[Equal]", "1"}]}], ")"}], "&&", " ", RowBox[{"colorbar", "\[Equal]", "1"}]}], ",", RowBox[{"simplexcolorbar", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"color", "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", "#1"}], " ", "\[LessEqual]", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["2", "5"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "<", RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}], "\[LessEqual]", FractionBox["2", "3"]}], ",", " ", RowBox[{ RowBox[{ FractionBox["6", "5"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], "-", FractionBox["2", "5"]}], ",", RowBox[{ FractionBox["2", "3"], "<", RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["3", "4"], RowBox[{"(", RowBox[{"1", "-", "#1"}], ")"}]}], "-", FractionBox["1", "10"]}]}], "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{".95", ",", FractionBox[ RowBox[{"#1", "+", "1.5"}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", FractionBox[ RowBox[{"#1", " ", "+", "1.51"}], "3"]}], "}"}]}], "]"}]}], "}"}], "&"}], ")"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "1", ",", ".01"}], "]"}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", " ", RowBox[{"MinAttained", ",", " ", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", ".5"}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", RowBox[{"MaxAttained", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", ".83"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{ FractionBox[".95", "1.45"], RowBox[{"(", RowBox[{ RowBox[{"(", "#1", ")"}], "+", ".45"}], ")"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{".95", ",", FractionBox[ RowBox[{"#1", "+", "1.5"}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", FractionBox[ RowBox[{"#1", " ", "+", "1.51"}], "3"]}], "}"}]}], "]"}]}], "}"}], "&"}], ")"}], "/@", RowBox[{"Range", "[", RowBox[{"0", ",", "1", ",", ".01"}], "]"}]}], "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", RowBox[{"MinAttained", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", ".5"}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"PaddedForm", "[", " ", RowBox[{"MaxAttained", ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1.02", ",", ".83"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}]}], "]"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"simplexcolorbar", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], ",", RowBox[{"simplexcolorbarph", "=", "simplexcolorbar"}], ",", RowBox[{"simplexcolorbarph", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"vfcontourplot", "\[Equal]", "1"}], ",", RowBox[{"simplexcolorbarvf", "=", "simplexcolorbar"}], ",", RowBox[{"simplexcolorbarvf", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.481805496907667*^9, 3.481805499351181*^9}, { 3.488628723945115*^9, 3.4886287252870445`*^9}, {3.491924960480056*^9, 3.491925054234869*^9}, {3.49192563063369*^9, 3.4919256365522003`*^9}, { 3.4919259409999743`*^9, 3.4919259548298607`*^9}, {3.4919259920634003`*^9, 3.491926003199413*^9}, {3.5192925669755545`*^9, 3.5192925693636913`*^9}, { 3.5194169795543613`*^9, 3.519416980738429*^9}}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"ContourFunction", " ", "===", " ", "ContourFunction"}]}], ",", RowBox[{"SphereMinAttained", "=", "MinAttained"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"ContourFunction", " ", "===", " ", "RSSpeed"}], ",", RowBox[{"SphereMinAttained", "=", "0"}], ",", RowBox[{ RowBox[{"spherenrmlzdmin", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{ RowBox[{"ContourFunction", "[", RowBox[{"Chop", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", RowBox[{"1", "-", "i", "-", "j"}]}], "}"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", ".025"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"1", "-", "i"}], ",", ".025"}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"SphereMinAttained", "=", RowBox[{"Min", "[", "spherenrmlzdmin", "]"}]}]}]}], "]"}]}], "]"}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"ContourFunction", " ", "===", " ", "ContourFunction"}]}], ",", " ", RowBox[{"SphereMaxAttained", "=", "MaxAttained"}], ",", RowBox[{ RowBox[{"spherenrmlzd", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Chop", "[", RowBox[{ RowBox[{"ContourFunction", "[", RowBox[{"Chop", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", RowBox[{"1", "-", "i", "-", "j"}]}], "}"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", SuperscriptBox["10", RowBox[{"-", "5"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1", ",", ".025"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"1", "-", "i"}], ",", ".025"}], "}"}]}], "]"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"SphereMaxAttained", "=", RowBox[{"Max", "[", "spherenrmlzd", "]"}]}]}]}], "]"}]}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"spherebtwf", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{"Min", "[", RowBox[{ FractionBox[ RowBox[{"\[CapitalPsi]", "-", "SphereMinAttained"}], RowBox[{"SphereMaxAttained", "-", "SphereMinAttained"}]], ",", "1"}], "]"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", "&&", " ", RowBox[{"color", "\[Equal]", "0"}]}], ",", RowBox[{ RowBox[{"SphereConColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"GrayLevel", "[", RowBox[{ FractionBox[".95", "1.45"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}], "+", ".45"}], ")"}]}], " ", "]"}]}]}], "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], "&&", " ", RowBox[{"color", "==", "1"}]}], ",", RowBox[{ RowBox[{"SphereConColFun", "[", "\[CapitalPsi]_", "]"}], "=", RowBox[{"Hue", "[", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["2", "5"], RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ FractionBox["1", "2"], "<", RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}], "\[LessEqual]", FractionBox["2", "3"]}], ",", " ", RowBox[{ RowBox[{ FractionBox["6", "5"], RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["2", "5"]}], ",", RowBox[{ FractionBox["2", "3"], "<", RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["3", "4"], RowBox[{"spherebtwf", "[", "\[CapitalPsi]", "]"}]}], "-", FractionBox["1", "10"]}]}], "]"}], "]"}]}]}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.481805500853341*^9, 3.4818055352327757`*^9}, { 3.4919255253322735`*^9, 3.491925527124851*^9}, {3.4919259573434753`*^9, 3.4919259589057217`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Contour Plot", "Subsection", CellChangeTimes->{{3.5061744874265785`*^9, 3.5061745241994553`*^9}, { 3.5061745821227446`*^9, 3.5061745870999017`*^9}, {3.5061811317046022`*^9, 3.506181164601906*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"customcontours", "[", RowBox[{ "numberofcontours_", ",", "extremesgridsize_", ",", "function_", ",", "range_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"values", ",", "extremes"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"values", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"function", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"i", "/", "extremesgridsize"}], "*", RowBox[{"(", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"range", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"j", "/", "extremesgridsize"}], "*", RowBox[{"(", RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"range", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "extremesgridsize"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "extremesgridsize"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"extremes", "=", RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "values", "]"}], ",", RowBox[{"Max", "[", "values", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"extremes", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"extremes", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"extremes", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"extremes", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"numberofcontours", " ", "-", "1"}], ")"}]}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4920420303598175`*^9, 3.4920420986680403`*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "@", RowBox[{"NotebookDirectory", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"compressgraphic", "==", "1"}], ",", RowBox[{"Needs", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"drawphasediagram", "==", "1"}], ",", RowBox[{"pdcontourplot", "\[Equal]", "1"}]}], "]"}], ",", RowBox[{"And", "[", RowBox[{ RowBox[{"drawvectorfield", "==", "1"}], ",", RowBox[{"vfcontourplot", "\[Equal]", "1"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"{", RowBox[{"y1_", ",", "y2_"}], "}"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"ContourFunction", "[", RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"con", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"y1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y2", ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "g"}], "}"}], ",", RowBox[{ RowBox[{"y2", "<", RowBox[{ RowBox[{ SqrtBox["3"], "y1"}], "+", ".001"}]}], " ", "&&", " ", RowBox[{"y2", "<", RowBox[{ SqrtBox["3"], "-", RowBox[{ SqrtBox["3"], "y1"}], "+", ".001"}]}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", "plotprecision"}], ",", RowBox[{"Contours", "\[Rule]", RowBox[{"customcontours", "[", RowBox[{"numberofcontours", ",", "50", ",", "g", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ContourStyle", "\[Rule]", "None"}], ",", RowBox[{"Exclusions", "\[Rule]", "None"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"ConColFun", "[", "#1", "]"}], "&"}], ")"}]}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"compressgraphic", "==", "1"}], ",", RowBox[{"con", "=", RowBox[{"FixPolygons", "[", "con", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"con", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\n", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], ",", RowBox[{"conph", "=", "con"}], ",", RowBox[{"conph", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"vfcontourplot", "\[Equal]", "1"}], ",", RowBox[{"convf", "=", "con"}], ",", RowBox[{"convf", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4809466663861003`*^9, 3.48094669543279*^9}, 3.481805502986408*^9, 3.481817589914134*^9, {3.483928909734166*^9, 3.4839289464269276`*^9}, {3.4839290227066126`*^9, 3.483929030407686*^9}, { 3.4844007021427264`*^9, 3.4844007073001423`*^9}, {3.4844007875655584`*^9, 3.4844009196705837`*^9}, {3.4844010704974623`*^9, 3.484401121871334*^9}, { 3.4844016863015375`*^9, 3.4844017155535994`*^9}, 3.484403244479725*^9, { 3.484403672282983*^9, 3.4844037072671633`*^9}, {3.48440392555104*^9, 3.484403988882106*^9}, {3.4844069519128704`*^9, 3.484406952353504*^9}, { 3.484407000783142*^9, 3.4844070024855905`*^9}, {3.4844108478916984`*^9, 3.484410884654561*^9}, {3.4844109209066887`*^9, 3.484410927265833*^9}, { 3.4844114299586697`*^9, 3.4844114406039767`*^9}, {3.4844116935577064`*^9, 3.484411697713682*^9}, {3.48441175083006*^9, 3.4844117800120215`*^9}, { 3.48441197665478*^9, 3.4844119768951254`*^9}, {3.484421177028827*^9, 3.4844211803235645`*^9}, {3.4846706502742443`*^9, 3.4846706515160303`*^9}, 3.484674724602977*^9, {3.4846747572399063`*^9, 3.484674775005452*^9}, { 3.4846750623486314`*^9, 3.484675072353017*^9}, {3.4846763490488157`*^9, 3.4846763530846186`*^9}, {3.484676390828892*^9, 3.4846764079435015`*^9}, { 3.4919226530940423`*^9, 3.491922682291828*^9}, {3.4919250631176414`*^9, 3.4919250699975348`*^9}, {3.491925960708314*^9, 3.4919259627612658`*^9}, { 3.4919260040606513`*^9, 3.4919260051522207`*^9}, 3.491931484426795*^9, 3.491931811216696*^9, {3.4919335995215807`*^9, 3.4919336044340334`*^9}, { 3.492040526036707*^9, 3.49204052699809*^9}, {3.492040791238048*^9, 3.4920408104757104`*^9}, {3.4920409239889345`*^9, 3.492040934313781*^9}, { 3.492041132729088*^9, 3.492041149703496*^9}, {3.4920413016419725`*^9, 3.492041326347498*^9}, {3.492041688658475*^9, 3.492041707635763*^9}, 3.4920417511082735`*^9, {3.492042736208557*^9, 3.4920427443502645`*^9}, 3.4920436765267363`*^9, {3.506174784944388*^9, 3.506174807556903*^9}, { 3.507228256296869*^9, 3.507228257698885*^9}, {3.5192918784221716`*^9, 3.519291893561037*^9}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing 3D Plot of contour function", "Subsection", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "==", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"frestricted3d", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", "1"}]}], ",", RowBox[{"ContourFunction", "[", "x", "]"}], ",", RowBox[{"-", " ", "Infty"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{"g3d", "[", RowBox[{"{", RowBox[{"y1_", ",", "y2_"}], "}"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"frestricted3d", "[", RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], "]"}], "]"}], " ", "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"confunplt", "=", " ", RowBox[{"Plot3D", "[", " ", RowBox[{ RowBox[{"g3d", "[", RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], "]"}], " ", ",", " ", RowBox[{"{", RowBox[{"y1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y2", ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", " ", "\[Rule]", " ", "plotprecision"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"MinAttained", "-", "distancefrommin"}], ",", RowBox[{"MaxAttained", "+", ".05"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", " ", "False"}], " ", ",", " ", RowBox[{"ColorFunction", "\[Rule]", " ", RowBox[{"(", RowBox[{ RowBox[{"ConColFun", "[", "#3", "]"}], "&"}], ")"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Mesh", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"BoxRatios", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"edgeline1", "=", " ", RowBox[{"ParametricPlot3D", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["y1", "2"], ",", FractionBox[ RowBox[{ SqrtBox["3"], "y1"}], "2"], ",", RowBox[{"ContourFunction", "[", RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{ FractionBox["y1", "2"], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "y1"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}]}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"y1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", " ", "\[Rule]", "200"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"MinAttained", "-", "distancefrommin"}], ",", RowBox[{"MaxAttained", "+", ".05"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"BoxRatios", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}]}], "]"}]}], " ", ";", RowBox[{"edgeline2", "=", " ", RowBox[{"ParametricPlot3D", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["y1", "2"]}], ",", FractionBox[ RowBox[{ SqrtBox["3"], "y1"}], "2"], ",", RowBox[{"ContourFunction", "[", RowBox[{"PlaneToSimplex", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["y1", "2"]}], ",", RowBox[{ FractionBox[ SqrtBox["3"], "2"], "y1"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}]}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"y1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", " ", "\[Rule]", " ", "200"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"MinAttained", "-", "distancefrommin"}], ",", RowBox[{"MaxAttained", "+", ".05"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"BoxRatios", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.25"}], "}"}]}]}], "]"}]}], " ", ";", " ", RowBox[{"edgeline3", "=", " ", RowBox[{"ParametricPlot3D", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "y1"}], ",", "0", ",", RowBox[{"g3d", "[", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "y1"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"GrayLevel", "[", ".3", "]"}]}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"y1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", " ", "\[Rule]", " ", "200"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"MinAttained", "-", "distancefrommin"}], ",", RowBox[{"MaxAttained", "+", ".05"}]}], "}"}]}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", "vpoint"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"BoxRatios", " ", "\[Rule]", " ", "heightratio"}]}], "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"confunplt", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"edgeline1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"edgeline2", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"edgeline3", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.474737157697256*^9, 3.474737158688682*^9}, { 3.474914898344139*^9, 3.4749148987747583`*^9}, {3.474918575556779*^9, 3.474918600132117*^9}, {3.4809470073526683`*^9, 3.4809470402899575`*^9}, 3.481298819769389*^9, {3.4818055039878483`*^9, 3.4818055057503824`*^9}, { 3.4818175907353153`*^9, 3.481817592397705*^9}, 3.491925637824029*^9, { 3.5192919133021665`*^9, 3.5192919700154104`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Drawing Contour Plot for sphere", "Subsection", CellChangeTimes->{{3.5061745908753304`*^9, 3.50617461500002*^9}, { 3.506181173294405*^9, 3.506181175607732*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"spherefrestricted", "[", RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[Element]", "Reals"}], "&&", RowBox[{"y", "\[Element]", "Reals"}], "&&", RowBox[{"z", "\[Element]", "Reals"}], "&&", RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", RowBox[{"z", "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"x", "+", "y", "+", "z"}], "\[Equal]", "1"}]}], ",", RowBox[{"ContourFunction", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", "0"}], "]"}]}], ";", RowBox[{ RowBox[{"sphereg", "[", RowBox[{"{", RowBox[{"w1_", ",", "w2_"}], "}"}], "]"}], "=", RowBox[{"Evaluate", "[", RowBox[{"spherefrestricted", "[", RowBox[{"inverseSR", "[", RowBox[{ RowBox[{"oldSRT", "[", RowBox[{ RowBox[{"{", RowBox[{"w1", ",", "w2"}], "}"}], ",", "viewray"}], "]"}], ",", "viewray"}], "]"}], "]"}], "]"}]}], ";", RowBox[{"consphere", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"sphereg", "[", RowBox[{"{", RowBox[{"w1", ",", "w2"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"w1", ",", RowBox[{"fromwmin", "[", "1", "]"}], ",", RowBox[{"towmax", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"w2", ",", RowBox[{"fromwmin", "[", "2", "]"}], ",", RowBox[{"towmax", "[", "2", "]"}]}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", RowBox[{"PlotPoints", "\[Rule]", "plotprecision"}], ",", RowBox[{"Contours", "\[Rule]", RowBox[{"customcontours", "[", RowBox[{"numberofcontours", ",", "50", ",", "sphereg", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], ",", RowBox[{"towmax", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], ",", RowBox[{"towmax", "[", "2", "]"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ContourStyle", "\[Rule]", "None"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"SphereConColFun", "[", "#1", "]"}], "&"}], ")"}]}]}], "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"consphere", "=", RowBox[{"Graphics", "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.480946839556867*^9, 3.4809468496661777`*^9}, 3.4818055365747056`*^9, 3.4919255283866653`*^9, {3.492040847128414*^9, 3.4920408746079283`*^9}, {3.4920411712044125`*^9, 3.492041260132285*^9}, { 3.4920427533632245`*^9, 3.4920427788999443`*^9}, {3.492042810074772*^9, 3.4920428428619175`*^9}, {3.492043118197831*^9, 3.492043118458205*^9}, 3.4920436777885504`*^9, 3.519139556832125*^9, {3.5192919825181255`*^9, 3.5192920221933947`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Generating the output notebook", "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell["Redirection", "Text", CellChangeTimes->{{3.519293386924453*^9, 3.519293396552004*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"OutputToOneNotebook", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OutputClearNotebook", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.4819270007532053`*^9, 3.4819270530183587`*^9}, 3.481927590451149*^9, 3.4819278444263477`*^9, 3.4819282299507046`*^9, 3.4819286333107076`*^9, 3.488578830716974*^9, {3.488578960313324*^9, 3.4885789607239146`*^9}, {3.4885790378247805`*^9, 3.4885790387160616`*^9}, 3.4885794410846395`*^9, 3.513619302965243*^9, {3.513619365443816*^9, 3.513619379921644*^9}, {3.5159601858828783`*^9, 3.515960208399166*^9}}, CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Redirecting"}]}]}]}]}], " ", "output", " ", "to", " ", "a", " ", "new", " ", RowBox[{ RowBox[{ RowBox[{"notebook", "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringLength", "[", RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], "]"}], ">=", "13"}], ",", RowBox[{"tmpstring", "=", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], ",", "13"}], "]"}]}], ",", RowBox[{"tmpstring", "=", "\"\\""}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", " ", RowBox[{"WindowTitle", "->", "\"\\""}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}], " ", "]"}], " ", "&&", " ", RowBox[{"OutputToOneNotebook", "==", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SetSelectedNotebook", "[", "$nb", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"OutputClearNotebook", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookDelete", "[", "$nb", "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"NotebookPut", "[", RowBox[{ RowBox[{"Notebook", "[", RowBox[{"{", "}"}], "]"}], ",", "$nb"}], "]"}], "*)"}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"OutputToOneNotebook", "==", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetNotebookCounter", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "$nb", ",", "NotebookCounter", ",", "notebook", ",", "namelength", ",", "tmpstring", ",", "tmpcounter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookCounter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"notebook", "=", "1"}], ",", RowBox[{"notebook", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Notebooks", "[", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"notebook", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"$nb", "=", RowBox[{ RowBox[{"Notebooks", "[", "]"}], "[", RowBox[{"[", "notebook", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"namelength", "=", RowBox[{"StringLength", "[", RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"namelength", ">", "14"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tmpstring", "=", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], ",", "14"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tmpcounter", "=", RowBox[{"ToExpression", "[", RowBox[{"StringTake", "[", RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"$nb", ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"15", ",", "namelength"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tmpcounter", " ", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"IntegerQ", "[", "tmpcounter", "]"}], ",", "tmpcounter", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"tmpstring", ",", "tmpcounter"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"tmpstring", "==", "\"\\""}], " ", "&&", " ", RowBox[{"Not", "[", RowBox[{"tmpcounter", " ", "<=", "0"}], " ", "]"}], " ", "&&", " ", RowBox[{"tmpcounter", ">", "NotebookCounter"}]}], ",", RowBox[{"NotebookCounter", "=", "tmpcounter"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookCounter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NotebookCounter", "==", "2"}], " ", "&&", " ", RowBox[{ RowBox[{"Notebooks", "[", "\"\\"", "]"}], "==", RowBox[{"{", "}"}]}]}], ",", RowBox[{"NotebookCounter", "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Notebooks", "[", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "NotebookCounter"}], "}"}], "]"}], "]"}], "]"}], "==", RowBox[{"{", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookCounter", "=", RowBox[{"NotebookCounter", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "NotebookCounter"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"$nb", "=", RowBox[{"CreateWindow", "[", RowBox[{ RowBox[{"WindowSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"650", ",", "550"}], "}"}]}], ",", RowBox[{"WindowTitle", "->", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"SetNotebookCounter", "[", "]"}]}], "}"}], "]"}], "]"}]}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$DisplayFunction", "=", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"$DisplayFunction", "=", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", " ", RowBox[{"Cell", "[", RowBox[{ RowBox[{"GraphicsData", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ExportString", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}], "]"}], ",", "\"\\""}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$Post", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "=!=", " ", "Null"}], ",", RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "]"}]}], "]"}], "&"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Unprotect", "[", "Print", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], "]"}], "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x__", "]"}], " ", ":=", RowBox[{"Map", "[", RowBox[{"Print", ",", RowBox[{"{", "x", "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Protect", "[", "Print", "]"}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Redirecting"}]}]}]}]}]}]}]}], " ", "code", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ends", "--"}], "--"}], "--"}], "--"}], "--"}]}], "-", RowBox[{"--", RowBox[{"--", "-"}]}]}], "*)"}]}]}]], "Input", CellChangeTimes->{ 3.4744628258336067`*^9, 3.474464139362368*^9, {3.4744670890838594`*^9, 3.474467110013955*^9}, {3.4744688011456833`*^9, 3.474468802697915*^9}, { 3.4749407895967093`*^9, 3.4749407915894203`*^9}, {3.481850396037259*^9, 3.4818504258401136`*^9}, {3.481850492976651*^9, 3.481850504062592*^9}, { 3.4818505494778957`*^9, 3.481850629563053*^9}, {3.481850876468085*^9, 3.48185090267577*^9}, {3.481852369224563*^9, 3.481852415130573*^9}, { 3.4818524479077044`*^9, 3.4818524680266333`*^9}, {3.4818525094061346`*^9, 3.4818525146336513`*^9}, {3.4818525834225645`*^9, 3.481852588289563*^9}, { 3.4818905060400004`*^9, 3.481890511207431*^9}, {3.4818907547476244`*^9, 3.481890769178375*^9}, {3.481890965610831*^9, 3.481890977007218*^9}, { 3.481891014891693*^9, 3.48189106793797*^9}, {3.48189119086473*^9, 3.4818912201468353`*^9}, {3.48189171696122*^9, 3.4818917858803205`*^9}, { 3.4819128855365205`*^9, 3.4819130159840946`*^9}, {3.481913126803445*^9, 3.4819131405031443`*^9}, {3.4819133713350644`*^9, 3.481913385875973*^9}, { 3.4819134240708947`*^9, 3.481913424731845*^9}, {3.4819271026797686`*^9, 3.48192712819646*^9}, {3.481927226898386*^9, 3.4819272350200644`*^9}, 3.481927268638405*^9, {3.481927312601621*^9, 3.4819273452786083`*^9}, { 3.481927414508156*^9, 3.4819274840281205`*^9}, {3.481927515132847*^9, 3.481927592544159*^9}, 3.481927701831306*^9, 3.481927802245695*^9, { 3.481927877503911*^9, 3.481927887378109*^9}, {3.481928180058964*^9, 3.481928198886036*^9}, 3.482102927436123*^9, 3.488577291533737*^9, { 3.488578471770835*^9, 3.4885784907481227`*^9}, {3.4885785249773417`*^9, 3.488578668283406*^9}, {3.4885787265071273`*^9, 3.488578791640785*^9}, 3.4885788684111757`*^9, {3.4885790329477673`*^9, 3.488579034670244*^9}, { 3.488579181170902*^9, 3.4885792208980265`*^9}, {3.4887166422958193`*^9, 3.488716710493883*^9}, {3.48871675002072*^9, 3.4887169524217587`*^9}, { 3.4887170168243647`*^9, 3.4887170803156605`*^9}, {3.4887176029471684`*^9, 3.488717793921776*^9}, {3.4887179412636433`*^9, 3.488717952599944*^9}, 3.4919096715747457`*^9, 3.491911804702297*^9, {3.492206707387201*^9, 3.4922067082484393`*^9}, 3.4922070187749543`*^9, {3.493292099055402*^9, 3.4932921103516445`*^9}, {3.4932921819846478`*^9, 3.493292182936016*^9}, { 3.493292331229251*^9, 3.493292334013254*^9}, {3.4932924788515215`*^9, 3.4932925167560253`*^9}, {3.4932925506247263`*^9, 3.493292589400483*^9}, { 3.493292633533944*^9, 3.493292656396819*^9}, {3.493292695603195*^9, 3.4932927427610044`*^9}, {3.4932927988616734`*^9, 3.493292908559411*^9}, { 3.493292985119499*^9, 3.493293027850944*^9}, {3.4932931051320686`*^9, 3.493293263029114*^9}, {3.4932933341714115`*^9, 3.493293501411891*^9}, { 3.4932936199423294`*^9, 3.4932936281541376`*^9}, {3.493293681020155*^9, 3.4932937166213474`*^9}, {3.5134506501871157`*^9, 3.51345066547599*^9}, { 3.513619443890303*^9, 3.513619462332358*^9}, {3.513619503475711*^9, 3.5136195095140567`*^9}, {3.513619585230387*^9, 3.5136195903876824`*^9}, 3.5136198710437346`*^9, {3.5136200334760256`*^9, 3.51362004911592*^9}, { 3.5136201303015633`*^9, 3.5136201526408415`*^9}, 3.5136202407418804`*^9, { 3.5136207304318895`*^9, 3.5136207741163874`*^9}, {3.513620827627448*^9, 3.5136208493186893`*^9}, {3.5159594791684566`*^9, 3.5159594943583255`*^9}}, CellTags->{"printingcell", "corecell"}], Cell[BoxData[{ RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{"$nb", ",", "After", ",", "Notebook"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"$nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", "\"\\"", "]"}], ",", "\"\\"", ",", " ", RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontColor", "\[Rule]", " ", RowBox[{"GrayLevel", "[", ".7", "]"}]}], ",", RowBox[{"Background", "\[Rule]", " ", RowBox[{"Hue", "[", RowBox[{ RowBox[{"RandomReal", "[", "]"}], ",", ".4"}], "]"}]}], ",", RowBox[{"TextAlignment", "\[Rule]", " ", "Center"}], ",", RowBox[{"CellFrame", "\[Rule]", " ", "False"}]}], "]"}]}], "]"}], " ", ";"}]}], "Input", CellChangeTimes->{{3.474918875798506*^9, 3.4749188776311407`*^9}, { 3.511177082574048*^9, 3.511177108876659*^9}, {3.511177337997253*^9, 3.5111773433881273`*^9}, {3.5111774000655003`*^9, 3.51117741257031*^9}, { 3.511177574540593*^9, 3.5111775811971292`*^9}, {3.5111776635531683`*^9, 3.511177700489028*^9}, 3.511177873820657*^9, {3.511177928407447*^9, 3.511177938870274*^9}, {3.5111779904665613`*^9, 3.511177994801902*^9}, { 3.511178028660982*^9, 3.5111780346115437`*^9}, {3.511178241249456*^9, 3.511178251540807*^9}, {3.5111783198532963`*^9, 3.511178361902246*^9}, { 3.511178405786429*^9, 3.51117840921915*^9}, {3.5111785934373198`*^9, 3.511178648471777*^9}, {3.511278428985016*^9, 3.5112784313406396`*^9}, { 3.515960147849703*^9, 3.5159601673408175`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the game", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"maxdenominator", "=", "20"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FormatNumber", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"aux1", ",", "aux2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux1", "=", RowBox[{"N", "[", RowBox[{"x", ",", "precision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"aux2", "=", RowBox[{"Rationalize", "[", RowBox[{"aux1", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "precision"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{"Denominator", "[", "aux2", "]"}], "]"}], ">", "maxdenominator"}], ",", "aux1", ",", "aux2"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], RowBox[{ RowBox[{ RowBox[{"FormatNumberSingle", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"aux1", ",", "aux2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux1", "=", RowBox[{"N", "[", RowBox[{"x", ",", "precision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"aux2", "=", RowBox[{"Rationalize", "[", RowBox[{"aux1", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "precision"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Denominator", "[", "aux2", "]"}], ">", "maxdenominator"}], ",", "aux1", ",", "aux2"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FormatNumber", "[", RowBox[{"x_", ",", RowBox[{"maxdenominator_:", "20"}], ",", RowBox[{"precision_:", "5"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "arg", ",", "d", ",", "aux"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "arg_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Depth", "[", "arg", "]"}], "\[Equal]", "1"}], ",", RowBox[{"FormatNumberSingle", "[", RowBox[{"arg", ",", "maxdenominator", ",", "precision"}], "]"}], ",", "arg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Depth", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"aux", "=", RowBox[{"Apart", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"d", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aux", "=", RowBox[{"Map", "[", RowBox[{"f", ",", "aux", ",", RowBox[{"{", "d", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "aux"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"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", "]"}], "}"}]}], "}"}], "]"}], "]"}], " ", ",", "\[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"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Flatten", "[", RowBox[{"F", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"findnashequilibria", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Nash equilibrium:\>\"", "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Nash equilibria:\>\"", "}"}], "]"}], "]"}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"NEa", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NEa", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"findESSs", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< No regular ESSs found\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Regular ESS:\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Regular ESSs:\>\"", "}"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"ESSs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "ESSs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.4744652297202253`*^9, 3.4744652305013485`*^9}, 3.4744652739137726`*^9, {3.47446538996064*^9, 3.4744654114415283`*^9}, { 3.4744657681945133`*^9, 3.4744658496516433`*^9}, {3.474465912091427*^9, 3.4744659346037984`*^9}, {3.4744761436922846`*^9, 3.4744762944891195`*^9}, {3.474476361195038*^9, 3.474476407892185*^9}, { 3.474476518981924*^9, 3.474476528335374*^9}, {3.4744770460698395`*^9, 3.474477081831262*^9}, {3.474477217456281*^9, 3.4744772567227435`*^9}, { 3.474477311120964*^9, 3.4744773117518716`*^9}, 3.4744792889549503`*^9, { 3.474479577770246*^9, 3.474479630065443*^9}, {3.474479705734249*^9, 3.4744797091491594`*^9}, {3.474479746492857*^9, 3.474479838815611*^9}, { 3.4744799072840633`*^9, 3.474479933932382*^9}, {3.474479972587966*^9, 3.474480022910326*^9}, {3.474480076717697*^9, 3.474480078730592*^9}, { 3.4744801120985727`*^9, 3.4744802178806796`*^9}, {3.4744802661000156`*^9, 3.4744805247218957`*^9}, {3.4744805637780557`*^9, 3.474480644454062*^9}, { 3.4744806825187964`*^9, 3.474480733251747*^9}, {3.474480765978806*^9, 3.4744807751119385`*^9}, {3.4747484930067997`*^9, 3.4747484955204144`*^9}, {3.474748696409278*^9, 3.474748729687129*^9}, { 3.47474879334867*^9, 3.474748838373412*^9}, {3.4747488966872635`*^9, 3.4747489445060234`*^9}, {3.4747490727103724`*^9, 3.474749112627771*^9}, { 3.474749204740222*^9, 3.4747492219850187`*^9}, {3.4747493148385353`*^9, 3.474749315299198*^9}, {3.474918934412789*^9, 3.4749190461634784`*^9}, 3.4749191678083954`*^9, 3.4749217394963007`*^9, {3.4750252650253696`*^9, 3.4750252801471133`*^9}, {3.4818889226375294`*^9, 3.481888959170061*^9}, { 3.493148569432272*^9, 3.493148587287947*^9}, {3.493148638781992*^9, 3.4931486737723055`*^9}, {3.493182858068296*^9, 3.4931828662700896`*^9}, { 3.4931829768691235`*^9, 3.493182995195475*^9}, {3.493183791029829*^9, 3.4931838062917747`*^9}, {3.507464028658447*^9, 3.507464045883215*^9}, { 3.5074646586393824`*^9, 3.5074646690143013`*^9}, {3.5074647984655104`*^9, 3.507464824973627*^9}, {3.507464855815859*^9, 3.5074648669446816`*^9}, { 3.5074649468839936`*^9, 3.507464974954357*^9}, {3.507465012708645*^9, 3.507465021491274*^9}, {3.5074650544586782`*^9, 3.507465056661846*^9}, { 3.507465211794917*^9, 3.5074652407064896`*^9}, {3.507465753243617*^9, 3.5074657612351084`*^9}, {3.507981944622572*^9, 3.5079819517628393`*^9}, { 3.507985201453397*^9, 3.507985203661572*^9}, {3.5106650256092606`*^9, 3.510665131561612*^9}, 3.510665189635118*^9, {3.510665232116203*^9, 3.5106652480090556`*^9}, 3.510665359859889*^9, 3.5106655198499436`*^9, { 3.5106658176231885`*^9, 3.5106658409166827`*^9}, {3.5106658857010794`*^9, 3.510665966006553*^9}, {3.510666155218627*^9, 3.510666171582156*^9}, { 3.510924417999257*^9, 3.510924424245224*^9}, {3.510924938723393*^9, 3.510924960495397*^9}, {3.5109250222983513`*^9, 3.510925033297825*^9}, { 3.510941857623761*^9, 3.510941868739745*^9}, {3.5109435349816513`*^9, 3.5109435685399055`*^9}, {3.5110117542104177`*^9, 3.5110117551517715`*^9}, {3.511017927055215*^9, 3.5110179417758036`*^9}, { 3.5110179981949124`*^9, 3.5110182563981867`*^9}, {3.511018315981435*^9, 3.5110183219396935`*^9}, {3.5110403884457855`*^9, 3.511040393162568*^9}, { 3.5110418077417*^9, 3.5110418282912493`*^9}, {3.511045501275484*^9, 3.5110455078649597`*^9}, 3.5110931744738865`*^9, {3.511093288718162*^9, 3.5110933851368055`*^9}, {3.5110936952927876`*^9, 3.5110937174546547`*^9}, {3.51109577703052*^9, 3.5110957771866693`*^9}, { 3.511175839410593*^9, 3.51117593834101*^9}, {3.5111759712151737`*^9, 3.511175973263085*^9}, 3.511176027967751*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the dynamic", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Name of dynamic: \>\"", "}"}], "]"}], "]"}], ",", " ", "dyn"}], " ", "}"}], "]"}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Law of motion: \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"Row", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \!\(\*SubscriptBox[\(V\), \(F\)]\)\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", " ", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"dyn", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "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.481418886107008*^9, 3.481418886107008*^9}, {3.4817354833245296`*^9, 3.481735483334544*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - stability of rest points", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"findrestpoints", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Stable rest point:\>\"", "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Stable rest points:\>\"", "}"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< None\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< (state x, relevant eigenvalues of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x], relevant eigenvectors of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x])\>\"", "}"}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{"SRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"SRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"TableAlignments", "\[Rule]", "Top"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"SRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "SRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Unstable rest point:\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Unstable rest points:\>\"", "}"}], "]"}], "]"}], "]"}]}], "]"}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< None\>\"", "}"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SCharacterization", "[", "dyn", "]"}], "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< (state x, relevant eigenvalues of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x], relevant eigenvectors of \ \!\(\*SubscriptBox[\(DV\), \(F\)]\)[x])\>\"", "}"}], "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"USRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"USRPvs", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"TableAlignments", "\[Rule]", "Top"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"FormatNumber", "[", RowBox[{ RowBox[{"USRPs", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "maxdenominator"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "USRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.4744811007802267`*^9, 3.4744811710512714`*^9}, { 3.474481208264782*^9, 3.474481211339203*^9}, 3.4744812504854927`*^9, { 3.47448132363067*^9, 3.474481814296212*^9}, {3.474481853382416*^9, 3.4744820200721035`*^9}, {3.4744820531997385`*^9, 3.474482227570472*^9}, { 3.474921890112877*^9, 3.4749218918653965`*^9}, {3.474921990917827*^9, 3.4749220127191763`*^9}, {3.47492206314168*^9, 3.474922086004555*^9}, { 3.492809114832117*^9, 3.492809118447315*^9}, {3.4928091971104274`*^9, 3.492809203229226*^9}, {3.4928108148866754`*^9, 3.4928108168394833`*^9}, { 3.492810871307805*^9, 3.492810875664069*^9}, {3.493183022074125*^9, 3.493183032218712*^9}, {3.493183178278736*^9, 3.4931831881028624`*^9}, { 3.4931837700797043`*^9, 3.4931837769796257`*^9}, {3.49318381955084*^9, 3.4931838306868525`*^9}, {3.507464682403554*^9, 3.5074646904050593`*^9}, { 3.5074657919192305`*^9, 3.507465802955099*^9}, {3.507981961486821*^9, 3.5079819688273764`*^9}, {3.5079852099105577`*^9, 3.507985220440699*^9}, 3.510688007830267*^9, {3.5106880446932735`*^9, 3.510688058372944*^9}, { 3.510688088666504*^9, 3.510688129815674*^9}, {3.510688210191248*^9, 3.5106882184931855`*^9}, {3.510688249337538*^9, 3.5106883060090275`*^9}, { 3.5106883367832785`*^9, 3.510688381838064*^9}, 3.51068845033069*^9, { 3.510688528273696*^9, 3.5106885356743374`*^9}, {3.510688703675912*^9, 3.510688704767482*^9}, {3.5106889361201506`*^9, 3.510688942108762*^9}, { 3.51068897601752*^9, 3.510688983518306*^9}, {3.510689201256372*^9, 3.5106892442653036`*^9}, {3.5106892918367133`*^9, 3.510689388966379*^9}, { 3.5106894640643644`*^9, 3.510689464444912*^9}, {3.510689535457022*^9, 3.510689578128381*^9}, {3.510690851194027*^9, 3.510691043831025*^9}, { 3.510691436746009*^9, 3.5106914404313087`*^9}, {3.5106915304307213`*^9, 3.5106915959449263`*^9}, {3.510691765318473*^9, 3.510691770475889*^9}, { 3.510691807969803*^9, 3.510691815841121*^9}, {3.51069191133844*^9, 3.510691936664857*^9}, {3.510691967389036*^9, 3.5106920297787485`*^9}, { 3.5106920681439147`*^9, 3.5106921117766557`*^9}, {3.510924448223147*^9, 3.510924454461604*^9}, {3.510924522227621*^9, 3.510924559324623*^9}, { 3.510924775050046*^9, 3.510924811101347*^9}, {3.510924882857869*^9, 3.5109249066561823`*^9}, {3.510925002422447*^9, 3.510925016911188*^9}, { 3.510941874818486*^9, 3.510941900805854*^9}, {3.5109435996446323`*^9, 3.5109436775666785`*^9}, {3.51101101993952*^9, 3.5110110352915955`*^9}, { 3.5110117564135857`*^9, 3.511011759528064*^9}, {3.5110182949421287`*^9, 3.511018302368745*^9}, {3.511018337551158*^9, 3.5110184035658875`*^9}, { 3.511041696041083*^9, 3.51104177578575*^9}, {3.5110419690336266`*^9, 3.511041981100979*^9}, {3.511093390915114*^9, 3.511093411194274*^9}, { 3.519553642086157*^9, 3.519553643085214*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the contour function", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}]}], ",", RowBox[{"Print", "[", RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\""}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pdcontourplot", "\[Equal]", "1"}], "||", " ", RowBox[{"draw3dcontourfunction", "\[Equal]", "1"}]}], ",", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Name of Contour Function: \>\"", "}"}], "]"}], "]"}], ",", " ", "\[IndentingNewLine]", "ContourFunction"}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"showcontourformula", "\[Equal]", "1"}], ",", RowBox[{"Print", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Definition of Contour Function: \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \[Psi]\>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", " ", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ContourFunction", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Minimum Value = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", "MinAttained", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Maximum Value = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", "MaxAttained", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{{3.474466109635482*^9, 3.474466160278302*^9}, { 3.47448228501307*^9, 3.4744824248541517`*^9}, {3.474482460485387*^9, 3.4744827969042015`*^9}, {3.4744828588432655`*^9, 3.4744828619277*^9}, { 3.4747498361881995`*^9, 3.474749850919382*^9}, {3.475074155605898*^9, 3.475074158039397*^9}, {3.481805506721779*^9, 3.481805507412773*^9}, { 3.491925638865526*^9, 3.491925640027197*^9}, {3.4919259664165215`*^9, 3.491925967898653*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Generating the vector field diagram", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawvectorfield", "\[Equal]", "1"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "convf", ",", "simplexcolorbarvf", ",", " ", "simplex", ",", "vectorf1", ",", "vectorf2", ",", "dots", ",", "wdots"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", ".95"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"{", RowBox[{"0.5", ",", ".9"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".03"}], ",", RowBox[{"-", ".02"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{"1.03", ",", RowBox[{"-", ".02"}]}], "}"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], " ", "]"}], " "}]], "Input", CellChangeTimes->{ 3.4744168929863777`*^9, {3.474466213675083*^9, 3.4744662162888412`*^9}, { 3.474466418739952*^9, 3.4744664201720114`*^9}, {3.4744664709450192`*^9, 3.474466519645046*^9}, {3.474749981206726*^9, 3.4747500452688427`*^9}, { 3.4747500861376095`*^9, 3.474750119455518*^9}, 3.474933826338138*^9, { 3.4751538585312967`*^9, 3.475153861285257*^9}, 3.475153941150097*^9, 3.4919257139735265`*^9, 3.51913819862344*^9, 3.5191382287201614`*^9, 3.5191393556216164`*^9, {3.519139423819517*^9, 3.519139436016215*^9}, { 3.5192900286483707`*^9, 3.5192900333536396`*^9}, {3.5192909286778493`*^9, 3.5192909642678847`*^9}, {3.519308561091366*^9, 3.5193085620724216`*^9}, 3.5194888106638656`*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Generating the phase diagram on simplex ", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawphasediagram", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "conph", ",", "simplexcolorbarph", ",", "simplex", ",", "trajline", ",", "ctrajline", ",", "clines", ",", "trajar", ",", "ctrajar", ",", "dots", ",", "wdots", ",", "cdots", ",", "cwdots", ",", "ctext"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".08"}], ",", "1.08"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", ".95"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"{", RowBox[{"0.5", ",", ".9"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".03"}], ",", RowBox[{"-", ".02"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"{", RowBox[{"1.03", ",", RowBox[{"-", ".02"}]}], "}"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], " ", "]"}], " "}]], "Input", CellChangeTimes->{ 3.4747501886470375`*^9, {3.4749337998901076`*^9, 3.4749338018028584`*^9}, 3.4919260498364735`*^9, {3.5134241012662144`*^9, 3.5134241023872786`*^9}, { 3.514555814318804*^9, 3.5145558163929224`*^9}, {3.514637511573911*^9, 3.5146375161671743`*^9}, 3.5191380693220444`*^9, 3.5191381009678545`*^9, { 3.5191381997345037`*^9, 3.519138229445203*^9}, {3.5191393329623203`*^9, 3.5191393458400574`*^9}, {3.519139451113078*^9, 3.5191394521371365`*^9}, 3.5191413486686125`*^9, {3.519141389995976*^9, 3.519141412003235*^9}, 3.519141538421466*^9, {3.519141580372865*^9, 3.519141581036903*^9}, 3.519141618069021*^9, 3.5192044234093037`*^9, {3.519204533461598*^9, 3.5192045360467463`*^9}, {3.5192892043142214`*^9, 3.5192892270995245`*^9}, {3.519289621996111*^9, 3.519289654576975*^9}, { 3.519290919388318*^9, 3.5192909235775576`*^9}, {3.5193085665286765`*^9, 3.5193085673677244`*^9}, 3.51948880636762*^9}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Generating the 3D plot of the contour function", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"draw3dcontourfunction", "\[Equal]", " ", "1"}], ",", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "confunplt", ",", "simplex3d", ",", "SeveralLines", ",", "SeveralPoints", ",", "edgeline1", ",", "edgeline2", ",", "edgeline3"}], "}"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", RowBox[{"{", RowBox[{".5", ",", ".9", ",", " ", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".05"}], ",", RowBox[{"-", ".02"}], ",", " ", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1.05", ",", RowBox[{"-", ".02"}], ",", " ", RowBox[{"MinAttained", "-", "distancefrommin"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.474466597827467*^9, 3.474466607261032*^9}, { 3.4747505114601674`*^9, 3.474750610128528*^9}, {3.4749337801817684`*^9, 3.4749337828656273`*^9}, 3.4919256421101923`*^9, {3.5192920967806606`*^9, 3.519292158679201*^9}, {3.5193085719999895`*^9, 3.5193085728540382`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Text output - the sphere contour function", "Text", CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", ",", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"GridBox", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}]}], "]"}], " ", ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "\[Equal]", "1"}], " ", ",", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< Name of Sphere Contour Function = \>\"", "}"}], "]"}], "]"}], ",", " ", "ContourFunction"}], "}"}], "]"}], " ", "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"showcontourformula", "\[Equal]", "1"}], ",", RowBox[{"Print", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{ "{", "\"\< Definition of Sphere Contour Function = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< \[CapitalPsi]\>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< = \>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ContourFunction", "[", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Minimum Value = \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"N", "[", "SphereMinAttained", "]"}]}], " ", "}"}], "]"}], "]"}], " ", ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Maximum Value = \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"N", "[", "SphereMaxAttained", "]"}]}], " ", "}"}], "]"}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\< Tangent point = \>\"", "}"}], "]"}], "]"}], ",", " ", RowBox[{"N", "[", RowBox[{"viewray", "/", RowBox[{"(", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"viewray", "[", RowBox[{"[", "1", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "2"]}]], ")"}]}], "]"}]}], " ", "}"}], "]"}], "]"}]}]}], " ", "]"}], " ", ";"}], " "}]}], "Input", CellChangeTimes->{{3.474753802720477*^9, 3.4747541844380045`*^9}, { 3.4818055374860163`*^9, 3.481805539609069*^9}, {3.49192553039956*^9, 3.4919255308602223`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Generating the phase diagram on the sphere", "Text", CellTags->"corecell"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"drawsphere", "==", "1"}], ",", " ", RowBox[{"Show", "[", RowBox[{ "consphere", ",", " ", "eonsphere", ",", "rightrisrt", ",", "leftrisrt", ",", "downtrisrt", ",", "curvedtri", ",", "dotatorig", ",", "dotssrt", ",", "wdotssrt", ",", "trajarsrt", ",", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "1", "]"}], ",", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", ".04"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "2", "]"}], ",", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "+", RowBox[{"{", RowBox[{ RowBox[{"-", ".04"}], ",", RowBox[{"-", ".04"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"strategy", "[", "3", "]"}], ",", RowBox[{ RowBox[{"SRT", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "viewray"}], "]"}], "+", RowBox[{"{", RowBox[{".04", ",", RowBox[{"-", ".04"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", " ", "\[Rule]", " ", "$DisplayFunction"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "1", "]"}], "-", ".1"}], ",", RowBox[{ RowBox[{"towmax", "[", "1", "]"}], "+", ".1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fromwmin", "[", "2", "]"}], "-", ".1"}], ",", RowBox[{ RowBox[{"towmax", "[", "2", "]"}], "+", ".1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"10", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]}], "]"}], " ", ";"}]], "Input", CellChangeTimes->{ 3.474750732766054*^9, {3.480814660583229*^9, 3.480814662801922*^9}, { 3.4808152149127874`*^9, 3.4808152272249727`*^9}, 3.4919255313909855`*^9, { 3.5191382023956556`*^9, 3.5191382210227213`*^9}, 3.519139514241689*^9, 3.519139558749235*^9, 3.519139865621787*^9, {3.5192046443189387`*^9, 3.5192046448489695`*^9}, {3.5192906648507595`*^9, 3.51929068497291*^9}, { 3.519292328313904*^9, 3.519292367549148*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["Printing time elapsed", "Text", CellChangeTimes->{{3.474917604905984*^9, 3.4749176096928673`*^9}, 3.511176162238818*^9}, CellTags->"corecell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PrintTimeElapsed", "[", "t_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "dif", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dif", "=", RowBox[{"DateList", "[", RowBox[{ RowBox[{"AbsoluteTime", "[", "]"}], "-", "t"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}], "<", "10"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"dif", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<:\>\"", "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}], "<", "10"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", "\"\<0\>\"", "}"}], "]"}], "]"}], ",", RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Floor", "[", RowBox[{"dif", "[", RowBox[{"[", "6", "]"}], "]"}], "]"}]}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"PrintTimeElapsed", "[", "time1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Row", "[", RowBox[{"{", "}"}], "]"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.474469352418374*^9, 3.4744693581065536`*^9}, { 3.474751622691947*^9, 3.4747516398966866`*^9}, {3.474751672513587*^9, 3.474751689237635*^9}, {3.474751726040555*^9, 3.474751730086373*^9}, { 3.4747517957007217`*^9, 3.4747518073174257`*^9}, {3.474751944634878*^9, 3.474751965474845*^9}, {3.4747521102430115`*^9, 3.474752124924122*^9}, { 3.4747522923148174`*^9, 3.4747522925351343`*^9}, {3.474752453726917*^9, 3.4747524697900143`*^9}, {3.474752530737653*^9, 3.4747525343628654`*^9}, { 3.474752731001686*^9, 3.474752820951027*^9}, {3.4747529104096622`*^9, 3.4747529481439214`*^9}, {3.474753130586261*^9, 3.4747531369954767`*^9}, { 3.4747531837126527`*^9, 3.4747532973660784`*^9}, {3.4747533306439295`*^9, 3.474753346887286*^9}, {3.474753483303443*^9, 3.4747535108230143`*^9}, { 3.4747535509907722`*^9, 3.47475355287348*^9}, {3.474753610626525*^9, 3.4747537008863115`*^9}, {3.4807853786547556`*^9, 3.480785419372463*^9}, { 3.4886284886367583`*^9, 3.48862851256116*^9}, {3.4919143059727964`*^9, 3.4919143820521927`*^9}, {3.4919144726524696`*^9, 3.491914503276505*^9}, { 3.49191453465162*^9, 3.491914548821996*^9}, {3.4919145834818344`*^9, 3.4919146767859993`*^9}, 3.4919147454092917`*^9, {3.491914784260234*^9, 3.4919147878253603`*^9}, {3.4919148313479433`*^9, 3.4919148832826214`*^9}, {3.4919149360885525`*^9, 3.491914936929762*^9}, { 3.4919348385569973`*^9, 3.4919348466686616`*^9}, {3.4919348888993864`*^9, 3.491935091931332*^9}, {3.4919351355640726`*^9, 3.4919351499347367`*^9}, { 3.491935190082466*^9, 3.4919352218982153`*^9}, {3.491935258500847*^9, 3.491935266432252*^9}, {3.491935307821767*^9, 3.491935386404764*^9}, { 3.492280514018053*^9, 3.4922805233314447`*^9}, 3.492280682579484*^9, { 3.492280726412513*^9, 3.492280754042242*^9}, {3.49228080875091*^9, 3.4922808378727846`*^9}, {3.492280965661604*^9, 3.492280967754614*^9}, { 3.4932326695185633`*^9, 3.4932326724327536`*^9}}, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell["End redirection", "Text", CellChangeTimes->{{3.519293386924453*^9, 3.5192934223244777`*^9}, { 3.5192935062902803`*^9, 3.5192935066613016`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "Returning"}]}]}]}]}], " ", "to", " ", "original", " ", "output", " ", RowBox[{ RowBox[{ RowBox[{"production", "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$DisplayFunction", "=", "Identity"}], ";"}], "\n", RowBox[{ RowBox[{"$Post", "=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "=!=", "Null"}], ",", RowBox[{"CellPrint", "[", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"#1", ",", "StandardForm"}], "]"}], "]"}], ",", "\"\\""}], "]"}], "]"}]}], "]"}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{"Unprotect", "[", "Print", "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x_", "]"}], ":=", RowBox[{"CellPrint", "[", RowBox[{"Cell", "[", RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"x", ",", "StandardForm"}], "]"}], "]"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", "x__", "]"}], ":=", RowBox[{"Print", "/@", RowBox[{"{", "x", "}"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"Protect", "[", "Print", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", "code"}]}]}]}]}]}]}]}], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ends", "--"}], "--"}], "--"}], "--"}], "--"}]}], "-", RowBox[{"--", RowBox[{"--", "-"}]}]}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.474463029536517*^9, 3.4744630427254815`*^9}, { 3.474464168474229*^9, 3.4744641696559277`*^9}, {3.474464379727997*^9, 3.474464386367544*^9}, {3.474467076205341*^9, 3.4744670820537505`*^9}, { 3.474468634325808*^9, 3.4744686348465567`*^9}, {3.474469449648184*^9, 3.47446945054948*^9}, {3.474469481123443*^9, 3.4744694823251715`*^9}, { 3.5134516087329407`*^9, 3.5134516103430333`*^9}}, CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Initialization Cells; Procedures; Maintenance", "Subtitle", CellChangeTimes->{{3.510069615192811*^9, 3.5100696169137373`*^9}}], Cell[CellGroupData[{ Cell["Initialization Cells", "Section", CellChangeTimes->{{3.492208005463666*^9, 3.492208032121999*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Preliminary definitions and calculations", "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell["Coordinate transformation (for plotting the phase diagram)", \ "Subsubsection", CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "R", "]"}], " ", ";"}]], "Input", CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{"x_", ",", "viewray_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"R1", ",", "R2", ",", "wstar"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"R1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"viewray", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"viewray", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"wstar", "=", RowBox[{"R1", " ", ".", " ", "viewray"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"R2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}], "==", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wstar", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"], ",", FractionBox["\[Pi]", "2"]}], "]"}], ",", RowBox[{"ArcTan", "[", RowBox[{"-", FractionBox[ RowBox[{"wstar", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"wstar", "[", RowBox[{"[", "3", "]"}], "]"}]]}], "]"}]}], "]"}], "]"}]}], "}"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"R", "=", RowBox[{"R2", " ", ".", " ", "R1"}]}], " ", ";", " ", RowBox[{"R", " ", ".", " ", RowBox[{"(", RowBox[{"x", "-", "viewray"}], ")"}]}]}]}], " ", "]"}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.5079830576657267`*^9, 3.5079830582365475`*^9}, { 3.507983371872534*^9, 3.5079833725785494`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SRT", "[", RowBox[{"x_", ",", "viewray_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{"x", ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{"x", ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"oldSRT", "[", RowBox[{"w_", ",", "viewray_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], " ", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "+", RowBox[{ RowBox[{"ShiftandRotate", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "viewray"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"inverseSR", "[", RowBox[{"w_", ",", "viewray_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", "R", "]"}], " ", ".", " ", "w"}], " ", "+", " ", "viewray"}], ")"}], "^", "2"}]}], " ", ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{3.474917873061573*^9}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["\<\ SimplexToPlane maps points in the simplex to their 2D represetations for \ graphing. PlaneToSimplex does the reverse.\ \>", "Text", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "TA", "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{"TA", "=", TagBox[ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"-", "1"}]}, { FractionBox[ SqrtBox["3"], "2"], "0"} }], "\[NoBreak]", ")"}], " "}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "new", "]"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "old2", "]"}], " ", ";"}], " "}], "\n", RowBox[{ RowBox[{"Clear", "[", "old", "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"SimplexToPlane", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"TA", ".", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c_", "]"}], ":=", RowBox[{ RowBox[{"Inverse", "[", "TA", "]"}], ".", RowBox[{"(", RowBox[{"c", "-", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ")"}]}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex", "[", "c_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"1", "-", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"PlaneToSimplex2", "[", "c", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], " ", ";"}]}], "Input", CellChangeTimes->{ 3.4749178565978994`*^9, {3.4818174361229935`*^9, 3.4818174636325502`*^9}, { 3.4818175843961997`*^9, 3.48181760508595*^9}, {3.507983058266591*^9, 3.5079830583266773`*^9}, {3.5079833726085925`*^9, 3.5079833726686788`*^9}}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Notebook specific definitions", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.4928128620603666`*^9, 3.4928128997044964`*^9}, {3.493151231640339*^9, 3.4931512369479713`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"dim", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"Xt", ",", "Xt1", ",", "Xt2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Xt", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Xt1", "[", "t", "]"}], ",", RowBox[{"Xt2", "[", "t", "]"}], ",", RowBox[{"1", "-", RowBox[{"Xt1", "[", "t", "]"}], "-", RowBox[{"Xt2", "[", "t", "]"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"scalardyn", "[", RowBox[{ RowBox[{"j_", "?", "NumericQ"}], ",", RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{"VectorQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], ",", "F_"}], "]"}], ":=", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DEsol", "[", RowBox[{"point_", ",", "t0_", ",", "T_", ",", RowBox[{"condition_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"altopt_:", "False"}], ",", RowBox[{"maxsteps_:", "10000"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"cond", ",", "method", ",", "ms", ",", "solvedelayed"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"condition", "==", "\"\\""}], " ", ",", RowBox[{ RowBox[{"cond", "=", "t0"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"condition", "==", "\"\\""}], " ", ",", RowBox[{ RowBox[{"cond", "=", "T"}], ";"}], ",", "\[IndentingNewLine]", "True", ",", RowBox[{ RowBox[{"cond", "=", "condition"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"altopt", ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"ms", "=", RowBox[{ RowBox[{"10", "/", "maxsteps"}], "*", RowBox[{"(", RowBox[{"T", "-", "t0"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"solvedelayed", "=", "False"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"ms", "=", "Automatic"}], ";", "\[IndentingNewLine]", RowBox[{"solvedelayed", "=", "False"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"altopt", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["Xt1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"scalardyn", "[", RowBox[{"1", ",", RowBox[{"Xt", "[", "t", "]"}], ",", "F"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["Xt1", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"Xt", "[", "t", "]"}], ",", "F"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"altopt", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["Xt2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"scalardyn", "[", RowBox[{"2", ",", RowBox[{"Xt", "[", "t", "]"}], ",", "F"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["Xt2", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"Xt", "[", "t", "]"}], ",", "F"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt1", "[", "cond", "]"}], "\[Equal]", RowBox[{"point", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Xt2", "[", "cond", "]"}], "\[Equal]", RowBox[{"point", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Xt1", ",", "Xt2"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "t0", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AccuracyGoal", "\[Rule]", "accuracy"}], ",", RowBox[{"PrecisionGoal", "->", "Infinity"}], ",", "\[IndentingNewLine]", RowBox[{"Method", "->", "method"}], ",", "\[IndentingNewLine]", RowBox[{"MaxSteps", "->", "maxsteps"}], ",", "\[IndentingNewLine]", RowBox[{"MaxStepSize", "\[Rule]", "ms"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MaxStepFraction", "->", "ms"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"SolveDelayed", "->", "solvedelayed"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.492685876870861*^9, 3.4926859140242853`*^9}, { 3.4926859750720673`*^9, 3.4926859760634933`*^9}, 3.4926954200431075`*^9, { 3.4926956840727634`*^9, 3.4926957523168793`*^9}, {3.492695931032943*^9, 3.4926959334363985`*^9}, {3.4926959739346323`*^9, 3.4926960022052836`*^9}, {3.492818553689595*^9, 3.492818572216235*^9}, 3.493129143512046*^9, {3.507930806471298*^9, 3.5079308195901623`*^9}, { 3.507930909479417*^9, 3.507930944329529*^9}, {3.507931084591215*^9, 3.5079311356245975`*^9}, 3.5079312172019*^9, {3.5079312571893992`*^9, 3.507931263949119*^9}, 3.5079315007195787`*^9, 3.507931605870778*^9, { 3.5079474930948815`*^9, 3.507947511381176*^9}, {3.507951869241627*^9, 3.5079518744991875`*^9}, {3.507981391707519*^9, 3.5079813945215654`*^9}, { 3.5079830583416986`*^9, 3.5079830583416986`*^9}, {3.507983372698722*^9, 3.5079833727137437`*^9}, {3.5080185564216337`*^9, 3.508018564212837*^9}, { 3.5080185977009907`*^9, 3.5080186050816035`*^9}, {3.5080187812148705`*^9, 3.5080189213363557`*^9}, {3.508021289782013*^9, 3.5080213236106567`*^9}, 3.508021400801652*^9, {3.508021495818279*^9, 3.5080215019170485`*^9}, { 3.5160388141421576`*^9, 3.516038819696475*^9}, {3.516038859102729*^9, 3.516038859440748*^9}, 3.516039055351954*^9, 3.5160391207526946`*^9, 3.5160392407855597`*^9, 3.5160393857108493`*^9, {3.5160466441200066`*^9, 3.516046647283188*^9}, {3.5160477754117126`*^9, 3.5160478161390424`*^9}, { 3.516047878392603*^9, 3.5160478843099413`*^9}, {3.5162146630956945`*^9, 3.516214773653018*^9}, {3.516214850752428*^9, 3.516214893887895*^9}, { 3.516215007372386*^9, 3.516215019699091*^9}, {3.5162164391022763`*^9, 3.5162164837668314`*^9}, 3.516216776228559*^9, 3.516216930379376*^9, { 3.5162170706253977`*^9, 3.5162170714334435`*^9}, {3.5162177849492545`*^9, 3.516217852017091*^9}, {3.516217924719249*^9, 3.5162179438743443`*^9}, { 3.5162180843183775`*^9, 3.5162181927785807`*^9}, {3.5162189157239313`*^9, 3.5162189191591277`*^9}, {3.516219222997506*^9, 3.516219226946732*^9}, { 3.5162192687931256`*^9, 3.5162192778466434`*^9}, {3.516274225802577*^9, 3.5162742315189037`*^9}, {3.516275100527608*^9, 3.516275106072925*^9}, { 3.516275218491355*^9, 3.516275244329833*^9}, 3.516275442277155*^9, 3.5162756364542613`*^9, {3.5162761511166983`*^9, 3.5162761519057436`*^9}, { 3.516276214629331*^9, 3.516276215523382*^9}, {3.51627624573411*^9, 3.5162762999032087`*^9}, {3.516386025383442*^9, 3.516386027141543*^9}, { 3.516386064604686*^9, 3.5163860651337156`*^9}, {3.516386109721266*^9, 3.5163862498682823`*^9}, {3.5163863031643305`*^9, 3.516386316727106*^9}, 3.5163863839769526`*^9, {3.5163864969164124`*^9, 3.516386586768552*^9}, { 3.5164184284257903`*^9, 3.516418431607972*^9}, {3.521153098505105*^9, 3.5211531184532456`*^9}, 3.5211531943995895`*^9, {3.5211532825356307`*^9, 3.5211533236019793`*^9}, {3.5211533601620708`*^9, 3.521153405857684*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["General Purpose Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"EmptyVector", "[", RowBox[{"name_", ",", "dim_", ",", RowBox[{"var_:", "\"\<\>\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"x", "=", RowBox[{"Join", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"ToExpression", "[", RowBox[{"ToString", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"name", ",", "j", ",", "var"}], "}"}], "]"}], "]"}], "]"}], "}"}]}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"Join", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"ToExpression", "[", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"ToString", "[", "name", "]"}], ",", RowBox[{"ToString", "[", "j", "]"}], ",", RowBox[{"ToString", "[", "var", "]"}]}], "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "x"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"EmptyVector", "[", RowBox[{"y", ",", "3", ",", "\"\<_\>\""}], "]"}], "]"}], ";"}], " ", "*)"}]}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwdyFsoQ3EAx/GNXBrn5FZ7MByXUtJIzYM0ThGxhDQe3JKJMIyZlZAYSiZO uUZRjBR5cXlQbi/oyKW5lBcPlq3TUJJc/7/z8O1T38iqpkKdh0QiCSPB9sTx uWYvJ7tnkyzCXb/nMxgvTebhm9FwB5N6DrxbiMZ6qwz6jmlpWDJHyeH9xFco rNFpFmA8I1uFrKNVaiDyBcUUpKuFvg7i3+dKP5zMrHNAqijtGWpN1wIcKVt1 Q6XLwpqJvfRxFhzkNHlw3j4qyrnN3TPeTjb8/WkA/qo27vkoJ2vudD/ABPtH 6Tlx2/RdAX+W9hphOU/pYWf5i/6C+BjBNcHsnaE2OOsKNsIv+UkXtK/1dcPo NpvuklibbKmBBuEs5IpIuxvkcN8aoIBBihjRoYzDWOiROxwH/RWbajjvGZgO dyvzRyCjnB6FhVvCjaivzy1sOWc018RmJkXUMbVuha+nqZz4f9XL8EiVI/oP y+Tf8A== "], CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"VectorReplace", "[", RowBox[{"orig_", ",", "replace_", ",", "positions_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "counter", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "orig", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Join", "[", RowBox[{"result", ",", RowBox[{"{", RowBox[{"replace", "[", RowBox[{"[", "counter", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "++"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"result", "=", RowBox[{"Join", "[", RowBox[{"result", ",", RowBox[{"{", RowBox[{"orig", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"VectorReplace", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], ";"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4931238869534855`*^9, 3.4931240282065973`*^9}, { 3.493124108742402*^9, 3.4931241467470503`*^9}, {3.493124353764727*^9, 3.49312453865058*^9}, {3.4931252506844344`*^9, 3.4931252972513943`*^9}, { 3.507981247520029*^9, 3.5079812477303314`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"EliminateDuplicates", "[", RowBox[{"delta_", ",", "reallist_", ",", RowBox[{"complist_:", RowBox[{"{", "}"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k", ",", "reducedreallist", ",", "reducedcomplist"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"complist", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"reducedcomplist", "=", "reallist"}], ",", RowBox[{"reducedcomplist", "=", "complist"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"reducedreallist", "=", "reallist"}], ";", "\[IndentingNewLine]", RowBox[{"j", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "reducedcomplist", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", "reducedcomplist", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"j", "==", "k"}], "]"}], " ", "&&", " ", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"reducedcomplist", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{"reducedcomplist", "[", RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "<", "delta"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"reducedcomplist", "=", RowBox[{"Drop", "[", RowBox[{"reducedcomplist", ",", RowBox[{"{", "k", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"reducedreallist", "=", RowBox[{"Drop", "[", RowBox[{"reducedreallist", ",", RowBox[{"{", "k", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"j", ",", "k"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Continue", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "reducedreallist"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"EliminateDuplicates", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1", ",", ".9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1", ",", ".95"}], "}"}]}], "}"}]}], "]"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.492287687663436*^9, 3.492287805562967*^9}, 3.492287860141447*^9, {3.4922878908856544`*^9, 3.4922879942542915`*^9}, { 3.492288025929839*^9, 3.492288032068666*^9}, {3.492288076903135*^9, 3.4922880788359137`*^9}, {3.4922881186331396`*^9, 3.492288169736623*^9}, { 3.492288293985284*^9, 3.4922884291596546`*^9}, {3.492288474825319*^9, 3.492288499851304*^9}, {3.492288685498252*^9, 3.4922887101136465`*^9}, { 3.4922887960071554`*^9, 3.4922888052204037`*^9}, {3.4922888856560645`*^9, 3.492288998538381*^9}, {3.492289120974436*^9, 3.492289136877303*^9}, { 3.492289195201168*^9, 3.4922891984858913`*^9}, {3.4922897179228053`*^9, 3.4922898327479153`*^9}, {3.4922899331923475`*^9, 3.4922899497060933`*^9}, {3.4922900755570583`*^9, 3.4922901174172497`*^9}, {3.4922901552616673`*^9, 3.4922901802275667`*^9}, {3.4922902757148705`*^9, 3.4922902914975653`*^9}, {3.492290340037362*^9, 3.49229034064824*^9}, { 3.492290386594308*^9, 3.4922903898890452`*^9}, {3.4922904673304005`*^9, 3.492290468642287*^9}, {3.492290509360837*^9, 3.4922905221592407`*^9}, { 3.4922908409226675`*^9, 3.492290846290386*^9}, {3.492290893928887*^9, 3.4922909445116215`*^9}, {3.4922910000214405`*^9, 3.492291015243328*^9}, { 3.492291070112226*^9, 3.492291131170023*^9}, {3.5079812523669987`*^9, 3.5079812569936404`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SubMatrix", "[", RowBox[{"matrix_", ",", "positions_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k", ",", "dim", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "positions", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", "matrix"}], ";", "\[IndentingNewLine]", RowBox[{"j", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", RowBox[{"result", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", RowBox[{"result", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"SubMatrix", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "8"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "]"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4933905614818573`*^9, 3.49339088156211*^9}, { 3.4933909239630795`*^9, 3.4933909734943023`*^9}, {3.493391012520419*^9, 3.4933910351429486`*^9}, 3.49339109605398*^9, {3.493391133369259*^9, 3.4933912900345325`*^9}, {3.493391339195222*^9, 3.493391354907816*^9}, { 3.493391388996833*^9, 3.4933914629341493`*^9}, {3.507981263845468*^9, 3.507981264054768*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SimplexQ", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Max", "[", "x", "]"}], ">", "1"}], "||", RowBox[{ RowBox[{"Min", "[", "x", "]"}], "<", "0"}], "||", RowBox[{ RowBox[{"Total", "[", "x", "]"}], "!=", "1"}]}], ",", "False", ",", "True"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.5074086040718455`*^9, 3.5074086127543306`*^9}, { 3.5074086477746873`*^9, 3.507408724615178*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CheckBoundary", "[", RowBox[{"x_", ",", "delta_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "boundaryvector"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"Join", "[", RowBox[{"boundaryvector", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaryvector", "=", RowBox[{"Join", "[", RowBox[{"boundaryvector", ",", RowBox[{"{", "0", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "boundaryvector"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4922176943407907`*^9, 3.49221785299893*^9}, { 3.492217905023738*^9, 3.4922179096103334`*^9}, {3.49225814633099*^9, 3.4922581642818017`*^9}, {3.507981270416357*^9, 3.5079812706829376`*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SampleAround", "[", RowBox[{"x_", ",", "eps_", ",", RowBox[{"n_:", "1"}], ",", RowBox[{"variant_:", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"validpoints", ",", "j", ",", "point"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"validpoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"j", "<=", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", " ", RowBox[{"RandomReal", "[", RowBox[{"1", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"point", "=", RowBox[{"point", "-", RowBox[{"Mean", "[", "point", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{"0", ",", "eps"}], "}"}], "]"}], "*", RowBox[{"point", "/", RowBox[{"Norm", "[", "point", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"point", " ", "=", RowBox[{"eps", "*", RowBox[{"point", "/", RowBox[{"Norm", "[", "point", "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"point", " ", "=", RowBox[{"x", "+", "point"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Min", "[", "point", "]"}], "<", "0"}], " ", "||", " ", RowBox[{ RowBox[{"Max", "[", "point", "]"}], ">", "1"}]}], ",", RowBox[{"Continue", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"validpoints", " ", "=", RowBox[{"Join", "[", RowBox[{"validpoints", ",", RowBox[{"{", "point", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"++", "j"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "validpoints"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4841517214515386`*^9, 3.4841517247262473`*^9}, { 3.4841774393019915`*^9, 3.4841774451604156`*^9}, {3.484183866113292*^9, 3.4841838889761677`*^9}, {3.48418403555694*^9, 3.4841840433982153`*^9}, 3.4922779201532907`*^9, {3.4928173034217987`*^9, 3.4928173171915984`*^9}, { 3.5079322795294523`*^9, 3.5079323808150935`*^9}, {3.5079812758327904`*^9, 3.507981276075136*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NumberSystem", "[", RowBox[{"npositions_", ",", "npossibilities_", ",", "j_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"leftover", ",", "x"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"leftover", "=", RowBox[{"j", "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "npositions"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"IntegerPart", "[", RowBox[{"leftover", "/", RowBox[{"npossibilities", "^", RowBox[{"(", RowBox[{"npositions", "-", "k"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"leftover", "=", RowBox[{"leftover", "-", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"npossibilities", "^", RowBox[{"(", RowBox[{"npositions", "-", "k"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "npositions"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "x"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158613135357037`*^9, 3.515861612057778*^9}, { 3.5158616486758723`*^9, 3.515861677798538*^9}, {3.5158617503256865`*^9, 3.5158617612923136`*^9}, {3.515861916961218*^9, 3.5158619185713096`*^9}, { 3.5158624090003605`*^9, 3.5158624101194243`*^9}, {3.515862672394426*^9, 3.5158626821859856`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"DiscSimplex", "[", RowBox[{"n_", ",", "dim_", ",", RowBox[{"perturbed_:", "False"}], ",", RowBox[{"eps_:", "Infinity"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "epsilon", ",", "x", ",", "grid", ",", "leftover", ",", "nc"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"perturbed", "==", "True"}], " ", "&&", " ", RowBox[{"eps", ">", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "dim"}], ")"}]}]}]}], ",", RowBox[{"epsilon", "=", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", "dim"}], ")"}]}]}], ",", RowBox[{"epsilon", "=", "eps"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"grid", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"nc", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "^", "dim"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "+=", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"NumberSystem", "[", RowBox[{"dim", ",", RowBox[{"n", "+", "1"}], ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", "x", "]"}], "==", " ", "n"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"x", "/", "n"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"perturbed", "==", "True"}], ",", RowBox[{"x", "=", RowBox[{ RowBox[{"SampleAround", "[", RowBox[{"x", ",", "epsilon"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"grid", "=", RowBox[{"Append", "[", RowBox[{"grid", ",", "x"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "grid"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPointPlot3D", "[", RowBox[{"DiscSimplex", "[", RowBox[{"50", ",", "3"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Dimensions", "[", RowBox[{"DiscSimplex", "[", RowBox[{"50", ",", "3"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.5158620478207026`*^9, 3.515862213644187*^9}, { 3.51586233363605*^9, 3.515862333932067*^9}, {3.5158624540689383`*^9, 3.5158624745091076`*^9}, {3.515862517539569*^9, 3.5158625222378373`*^9}, { 3.5158625895476875`*^9, 3.515862592885878*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Support", "[", RowBox[{"x_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "TolLevel", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"TolLevel", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ">", "TolLevel"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158431432344217`*^9, 3.5158431650806713`*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SimplexSupport", "[", RowBox[{"x_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "TolLevel", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"TolLevel", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ">", "TolLevel"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158431432344217`*^9, 3.5158431650806713`*^9}, { 3.5163869212186813`*^9, 3.5163869344314365`*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SimplexClosestPoint", "[", "x_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "m", ",", "dim", ",", "nc", ",", "boundaries", ",", "reduced", ",", "npos", ",", "flag", ",", "project", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"nc", "=", RowBox[{"2", "^", "dim"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "<=", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"boundaries", "=", RowBox[{"NumberSystem", "[", RowBox[{"dim", ",", "2", ",", "j"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reduced", "[", RowBox[{"[", "npos", "]"}], "]"}], "=", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"npos", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"npos", "--"}], ";", "\[IndentingNewLine]", RowBox[{"project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "npos", "]"}], "-", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"npos", ",", "npos"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"reduced", "=", RowBox[{ RowBox[{"project", ".", RowBox[{"Take", "[", RowBox[{"reduced", ",", "npos"}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "npos"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "npos"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "reduced", "]"}], "<", "0"}], ",", " ", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{ RowBox[{"Position", "[", RowBox[{"boundaries", ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "k", "]"}], "]"}], "-", RowBox[{"reduced", "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", "0"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"Continue", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaries", "[", RowBox[{"[", "k", "]"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"result", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"reduced", "[", RowBox[{"[", "m", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5158610264992857`*^9, 3.5158611842993116`*^9}, { 3.5158628005917587`*^9, 3.5158630618697023`*^9}, {3.5158631055882034`*^9, 3.515863193911255*^9}, {3.51586322547406*^9, 3.515863342412749*^9}, 3.5158634026771955`*^9, {3.5158634466807127`*^9, 3.515863477944501*^9}, 3.5158635440622826`*^9, {3.515863586523711*^9, 3.5158636740217156`*^9}, { 3.5158637462118444`*^9, 3.5158638202180777`*^9}, {3.5158639196487646`*^9, 3.5158639402629433`*^9}, {3.5158639975272193`*^9, 3.515864274551064*^9}, { 3.5158647809020257`*^9, 3.5158648189702024`*^9}, {3.5158648573193965`*^9, 3.515864869824112*^9}, {3.5158649057141647`*^9, 3.5158649114164906`*^9}, { 3.515864958944209*^9, 3.5158649654255795`*^9}, {3.5158650186346235`*^9, 3.5158651631418886`*^9}, {3.5158662208313847`*^9, 3.5158662404495068`*^9}, {3.515866396670442*^9, 3.5158664147144747`*^9}, { 3.515866716775751*^9, 3.5158667470044804`*^9}, 3.515866834261471*^9, { 3.515866884230329*^9, 3.515866919060321*^9}, 3.5158669958897157`*^9, { 3.5158670831157045`*^9, 3.515867126987214*^9}, {3.515940216575699*^9, 3.5159402360598135`*^9}, {3.5159406099401984`*^9, 3.515940641584008*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["General Game Theory Routines", "Subsubsection", CellChangeTimes->{{3.4927035476118064`*^9, 3.4927035620826144`*^9}, { 3.492812547197616*^9, 3.4928125521647587`*^9}, {3.492812641853725*^9, 3.492812647141328*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"BestResponse", "::", "multip"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BestResponse", "[", RowBox[{"x_", ",", "F_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Fx", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"Ordering", "[", RowBox[{"Fx", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}], "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Position", "[", RowBox[{"Fx", ",", RowBox[{"Max", "[", "Fx", "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ">", "1"}], ",", RowBox[{"Message", "[", RowBox[{"BestResponse", "::", "multip"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "y"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.507981293117962*^9, 3.5079812934258614`*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BestResponseSet", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Fx", ",", "max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"F", "[", "x", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"max", "=", RowBox[{"Max", "[", "Fx", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fx", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "max"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.50798130105005*^9, 3.507981301372611*^9}, { 3.508769607818768*^9, 3.508769638583005*^9}, {3.5087697145822864`*^9, 3.5087697191388383`*^9}, {3.508783530267227*^9, 3.5087835556136737`*^9}, { 3.5087838134744596`*^9, 3.508783813664733*^9}, {3.5087841208414993`*^9, 3.508784126599779*^9}, {3.508784194968088*^9, 3.5087841954788227`*^9}, { 3.515843252859692*^9, 3.515843253757743*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"QuasiStrictEqQ", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ">", "0"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "==", RowBox[{"BestResponseSet", "[", RowBox[{"x", ",", "F", ",", "accuracy"}], "]"}]}], ",", "True", ",", "False"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.5079813067780743`*^9, 3.507981307078506*^9}, { 3.5087679470707293`*^9, 3.508767953039312*^9}, {3.508767996481779*^9, 3.5087680048237743`*^9}, {3.5087680460330305`*^9, 3.5087680873524446`*^9}, 3.5087695150353518`*^9, 3.508769840553424*^9, {3.5087700564939313`*^9, 3.50877007103484*^9}, {3.5087702664858847`*^9, 3.508770287616269*^9}, { 3.5087703782766323`*^9, 3.5087703902838974`*^9}, {3.5087704217491426`*^9, 3.50877044757628*^9}, {3.5087704895466304`*^9, 3.5087705280620127`*^9}, { 3.5087707114857635`*^9, 3.508770761177216*^9}, {3.5087707918613377`*^9, 3.5087708187199583`*^9}, 3.5087709119840655`*^9, {3.508771159790394*^9, 3.5087711640965853`*^9}, {3.5087835827226543`*^9, 3.5087836053251553`*^9}, {3.508783660234111*^9, 3.5087836792814994`*^9}, { 3.5087838015873666`*^9, 3.5087838018777843`*^9}, 3.515843256474899*^9}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NashEqQ", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "BRS", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"BRS", "=", RowBox[{"BestResponseSet", "[", RowBox[{"x", ",", "F", ",", "accuracy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BRS", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", "1", ",", "0"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "==", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "True", ",", "False"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.492771607389555*^9, 3.492771615170744*^9}, { 3.4927716584830236`*^9, 3.4927716977194433`*^9}, {3.4927717440460577`*^9, 3.492771748722782*^9}, {3.4927720951409073`*^9, 3.4927722986335154`*^9}, { 3.492772637460725*^9, 3.492772685680061*^9}, {3.492772787927085*^9, 3.4927728425055647`*^9}, {3.492772877345662*^9, 3.4927728982056575`*^9}, { 3.4927729334263024`*^9, 3.492773060969701*^9}, {3.492773106665408*^9, 3.4927731145867987`*^9}, {3.492773264272035*^9, 3.4927732651232595`*^9}, { 3.492773529042757*^9, 3.492773589129157*^9}, {3.492773651989546*^9, 3.492773657367278*^9}, {3.492810187294242*^9, 3.492810189146906*^9}, 3.492812651587722*^9, {3.5079813067780743`*^9, 3.507981307078506*^9}, { 3.5087679470707293`*^9, 3.508767953039312*^9}, {3.508767996481779*^9, 3.5087680048237743`*^9}, {3.5087680460330305`*^9, 3.5087680873524446`*^9}, 3.5087695150353518`*^9, 3.508769840553424*^9, {3.5087700564939313`*^9, 3.50877007103484*^9}, {3.5087702664858847`*^9, 3.508770287616269*^9}, { 3.5087703782766323`*^9, 3.5087703902838974`*^9}, {3.5087704217491426`*^9, 3.50877044757628*^9}, {3.5087704895466304`*^9, 3.5087705280620127`*^9}, { 3.5087707114857635`*^9, 3.508770761177216*^9}, {3.5087707918613377`*^9, 3.5087708187199583`*^9}, {3.5087709119840655`*^9, 3.5087709456725073`*^9}, {3.5087711546930637`*^9, 3.5087711571866493`*^9}, {3.5087835930975733`*^9, 3.5087836084596624`*^9}, {3.5087836483570323`*^9, 3.5087836499192786`*^9}, {3.508783684819463*^9, 3.508783687433221*^9}, { 3.5087838182513285`*^9, 3.5087838184416018`*^9}, 3.5158432580919914`*^9}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Rest Points and Equilibria", "Subsection", CellChangeTimes->{{3.4928924875774913`*^9, 3.492892494457384*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Calculation of rest points (continuous dynamics)", "Subsubsection", CellChangeTimes->{{3.5087643373582993`*^9, 3.508764340347404*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"subFindRoot", "::", "inconsistency"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"subFindRoot", "[", RowBox[{"dyn_", ",", "F_", ",", "x0_", ",", "indicator_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "counter", ",", "dim", ",", "subdim", ",", "x", ",", "equations", ",", "restrictions", ",", "root"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "indicator", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdim", "=", RowBox[{"Total", "[", "indicator", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"subdim", ">", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"indicator", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], ",", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"-", "1"}], "]"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"subdim", "-", "1"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"x", ",", "x0", ",", "indicator"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"VectorReplace", "[", RowBox[{"x0", ",", "x", ",", "indicator"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equations", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"restrictions", " ", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"indicator", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "1"}], " ", "&&", " ", RowBox[{"counter", "<", "subdim"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equations", "=", RowBox[{"Join", "[", RowBox[{"equations", ",", RowBox[{"{", RowBox[{ RowBox[{"dyn", "[", RowBox[{"x", ",", "F"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restrictions", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"restrictions", ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"x0", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"counter", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"FindRoot", "::", "jsing"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"root", "=", RowBox[{"FindRoot", "[", RowBox[{"equations", ",", "restrictions", ",", " ", RowBox[{"MaxIterations", " ", "\[Rule]", "1000"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "Infinity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"On", "[", RowBox[{"FindRoot", "::", "jsing"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"root", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"root", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "root", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"root", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"root", ",", RowBox[{"{", RowBox[{"1", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{"root", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"subdim", "-", "1"}]}], "}"}]}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"root", " ", "=", RowBox[{"VectorReplace", "[", RowBox[{"x0", ",", " ", "root", ",", "indicator"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "root", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Message", "[", RowBox[{"subFindRoot", "::", "inconsistency"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dyn", "[", RowBox[{"x0", ",", "F"}], "]"}], "==", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}]}], ",", RowBox[{"root", "=", RowBox[{"{", "x0", "}"}]}], ",", RowBox[{"root", "=", RowBox[{"{", "}"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "roots", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", "root"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.4931211737020216`*^9, 3.4931211961843495`*^9}, { 3.4931212325065784`*^9, 3.4931213398809752`*^9}, {3.4931214668235097`*^9, 3.4931216154572344`*^9}, {3.4931216480040345`*^9, 3.493121684726839*^9}, { 3.493121780444474*^9, 3.4931217953659306`*^9}, {3.4931218419429045`*^9, 3.4931219170709333`*^9}, {3.4931219521113195`*^9, 3.4931219729512854`*^9}, {3.4931220088028374`*^9, 3.4931220697304473`*^9}, {3.493122120353239*^9, 3.493122227246945*^9}, { 3.49312245055805*^9, 3.4931224522705126`*^9}, {3.493122530703294*^9, 3.4931225361611414`*^9}, 3.4931233439927464`*^9, {3.4931250944898376`*^9, 3.4931250984555397`*^9}, {3.4931252129902325`*^9, 3.49312523915786*^9}, { 3.4931253353662004`*^9, 3.4931253487454395`*^9}, {3.4931253898946085`*^9, 3.49312550094429*^9}, {3.493125619274441*^9, 3.493125742551705*^9}, { 3.4931266257616987`*^9, 3.4931266759338427`*^9}, {3.493126709291809*^9, 3.4931267159413705`*^9}, {3.4931268375963016`*^9, 3.4931268837727003`*^9}, {3.4931269427374873`*^9, 3.493126943188135*^9}, { 3.4931270150614843`*^9, 3.493127056170596*^9}, {3.4931271070036907`*^9, 3.49312711260174*^9}, 3.4931272073980503`*^9, {3.493127443427444*^9, 3.4931274492257814`*^9}, {3.493127486609537*^9, 3.493127524904602*^9}, { 3.4931278064194007`*^9, 3.4931278423410535`*^9}, {3.4931278757891493`*^9, 3.493127877421497*^9}, {3.493128628421382*^9, 3.49312863028406*^9}, { 3.493151259350184*^9, 3.4931512631957135`*^9}, {3.4931514316779795`*^9, 3.493151450214634*^9}, {3.4931515690655327`*^9, 3.4931515776078157`*^9}, { 3.4931516078412895`*^9, 3.4931516312549567`*^9}, {3.493151934010298*^9, 3.4931519500533667`*^9}, {3.493152025321597*^9, 3.4931521147201457`*^9}, { 3.4931521456646414`*^9, 3.493152175086949*^9}, {3.493152362155941*^9, 3.493152599997941*^9}, {3.493153034402584*^9, 3.4931530346128864`*^9}, { 3.4931530900826483`*^9, 3.4931531105220385`*^9}, {3.49315315839087*^9, 3.493153286284773*^9}, {3.493153808776078*^9, 3.4931538393900995`*^9}, { 3.4931540951879187`*^9, 3.493154132361371*^9}, {3.493154174161477*^9, 3.4931541745219955`*^9}, {3.493170838199506*^9, 3.4931708438676558`*^9}, { 3.4931709866930285`*^9, 3.4931709900879107`*^9}, {3.4931710685907917`*^9, 3.4931710750901375`*^9}, {3.4931711910568895`*^9, 3.493171203064155*^9}, { 3.4931713722374144`*^9, 3.493171376363347*^9}, {3.493171953963896*^9, 3.493172095757786*^9}, {3.4931721311586895`*^9, 3.4931721631046257`*^9}, { 3.4931722868125086`*^9, 3.4931722874233875`*^9}, {3.493172785639787*^9, 3.4931727880432434`*^9}, {3.493172850252696*^9, 3.4931729367170258`*^9}, { 3.493173140049403*^9, 3.4931731407904687`*^9}, {3.4931732157582674`*^9, 3.493173225792696*^9}, {3.4931734368662047`*^9, 3.4931735038625407`*^9}, { 3.4931735716500144`*^9, 3.493173622583253*^9}, {3.493174017831592*^9, 3.4931740235297856`*^9}, {3.493174786486864*^9, 3.493174790452566*^9}, { 3.4931759822763247`*^9, 3.493175990267816*^9}, {3.493176157418166*^9, 3.4931761651492834`*^9}, {3.4931767599445567`*^9, 3.493176774445408*^9}, { 3.493176908838656*^9, 3.49317693037963*^9}, {3.4931810270554285`*^9, 3.4931810315418797`*^9}, {3.493181088443701*^9, 3.4931810927398787`*^9}, { 3.4931811231836543`*^9, 3.4931811327474065`*^9}, {3.4931813270167522`*^9, 3.4931813325447006`*^9}, {3.4931814008829665`*^9, 3.4931814042177615`*^9}, {3.4931815107108912`*^9, 3.4931815163189554`*^9}, {3.493181567001834*^9, 3.493181580931864*^9}, { 3.4931825000234528`*^9, 3.4931825203426704`*^9}, {3.507909967075178*^9, 3.507910036094423*^9}, {3.507910093486949*^9, 3.5079101075872245`*^9}, { 3.5079104476852417`*^9, 3.5079104493045645`*^9}, {3.507910545211068*^9, 3.507910546623099*^9}, {3.5079105997494907`*^9, 3.5079106477184668`*^9}, { 3.5079108516116505`*^9, 3.5079108610452156`*^9}, {3.507910918437742*^9, 3.507910929343424*^9}, {3.507911387166809*^9, 3.5079113908420935`*^9}, { 3.5079155033657656`*^9, 3.5079155217622185`*^9}, {3.507915878394679*^9, 3.5079158840628295`*^9}, {3.507916261820897*^9, 3.5079162667780247`*^9}, { 3.507916326744252*^9, 3.50791632703467*^9}, {3.5079164190770197`*^9, 3.5079164767098923`*^9}, {3.507916636750018*^9, 3.5079166372907963`*^9}, { 3.5079167643735323`*^9, 3.507916801256567*^9}, {3.5079169157111444`*^9, 3.5079169204179125`*^9}, 3.507922197205697*^9, 3.507932674998108*^9, { 3.507932765348025*^9, 3.507932776714369*^9}, 3.5079329312165318`*^9, { 3.507932963402814*^9, 3.507932971824924*^9}, {3.5079334095643625`*^9, 3.507933430103897*^9}, {3.507933512812826*^9, 3.507933576524439*^9}, { 3.5079819737444468`*^9, 3.50798197862146*^9}, {3.5087954135817566`*^9, 3.5087954149236865`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "RestPointsContinuous", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPointsContinuous", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPointsContinuous", "::", "notes"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPointsContinuous", "::", "inconsistency"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPointsContinuous", "[", RowBox[{ "dyn_", ",", "F_", ",", "RestSearchInit_", ",", "TolLevel_", ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"indic_:", RowBox[{"{", "}"}]}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "n", ",", "indicator", ",", "grid", ",", "roots"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"indic", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"indicator", "=", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "dim"}], "]"}]}], ",", RowBox[{"indicator", "=", "indic"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "RestSearchInit", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Finds", " ", "restpoints", " ", "by", " ", "grid", " ", "search", " ", "on", " ", "the", " ", "subsimplex", " ", "determined", " ", "by", " ", "indicator"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"subFindRoot", "[", RowBox[{"dyn", ",", "F", ",", RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "indicator"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Eliminate", " ", "restpoints", " ", "due", " ", "to", " ", "singularities", " ", "in", " ", "Jacobian"}], "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], "==", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{"F", "[", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "]"}], ">", "delta"}]}], "]"}], ",", "\"\\"", ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Round", " ", "to", " ", "Accuracy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"Round", "[", RowBox[{"roots", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Eliminates", " ", "double", " ", "countings"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"EliminateDuplicates", "[", RowBox[{"delta", ",", "roots"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "roots", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"clever", " ", "code", " ", "by", " ", "emin"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "similar", " ", "to", " ", "Eliminate", " ", "duplicates", "\[IndentingNewLine]", RowBox[{"reduce", "[", "points_", "]"}]}], ":=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"(", RowBox[{"x1", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}], ">", "delta"}], " ", "||", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x2", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"(", RowBox[{"x2", " ", "/.", " ", RowBox[{"points", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], " ", ")"}]}], "]"}], ">", "delta"}]}], ")"}], ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "0"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", "2", ",", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"FixedPointList", "[", RowBox[{"reduce", ",", "roots"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{"roots", ",", RowBox[{"{", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Check", " ", "points", " ", "are", " ", "in", " ", "the", " ", "simplex"}], ",", " ", RowBox[{"eliminate", " ", "them", " ", "if", " ", "not"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"roots", " ", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "<", "0"}], " ", "||", " ", RowBox[{ RowBox[{"Max", "[", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ">", "1"}]}], " ", ",", "\"\\"", ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Check", " ", "points", " ", "to", " ", "have", " ", "\"\\""}], ",", " ", RowBox[{"eliminate", " ", "them", " ", "if", " ", RowBox[{"not", ".", " ", "This"}], " ", "makes", " ", "no", " ", "sense"}], ",", " ", RowBox[{ "since", " ", "the", " ", "points", " ", "are", " ", "roots", " ", "of", " ", "the", " ", "equation"}], ",", " ", RowBox[{ RowBox[{ "a", " ", "double", " ", "check", " ", "after", " ", "the", " ", "roundoff", " ", "I", " ", "guess"}], ";"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"roots", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{"Abs", "[", RowBox[{"dyn", "[", RowBox[{ RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "]"}], "]"}], " ", ">", " ", "TolLevel"}], ",", " ", "\"\\"", ",", RowBox[{"roots", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", RowBox[{ RowBox[{"Dimensions", "[", "roots", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"Message", "[", RowBox[{"RestPointsContinuous", "::", "inconsistency"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "roots"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.474715065062935*^9, 3.4747150795036993`*^9}, 3.480859462164381*^9, {3.481418886127037*^9, 3.4814188861570797`*^9}, { 3.481735483384616*^9, 3.481735483434688*^9}, {3.492703877055523*^9, 3.492703941718504*^9}, {3.492703977249595*^9, 3.492703984780424*^9}, { 3.4927040568240175`*^9, 3.4927040577854*^9}, {3.492704115598768*^9, 3.4927041470788655`*^9}, {3.4927042624996033`*^9, 3.492704324727126*^9}, { 3.492704409358765*^9, 3.492704409979658*^9}, {3.492705753193187*^9, 3.4927057599929647`*^9}, {3.4927086390929427`*^9, 3.4927087171952486`*^9}, {3.4927087608680468`*^9, 3.4927087753288403`*^9}, {3.492708832240676*^9, 3.492708832701338*^9}, { 3.492708880369882*^9, 3.4927090735877156`*^9}, {3.4927095666967716`*^9, 3.4927095973909073`*^9}, {3.4927096505673714`*^9, 3.492709668933781*^9}, { 3.4927097180644274`*^9, 3.4927097338371077`*^9}, 3.492709847490533*^9, 3.4927248080778694`*^9, {3.492725616410194*^9, 3.492725625052621*^9}, 3.4927257902501636`*^9, {3.49272643323473*^9, 3.492726606203447*^9}, { 3.492726654022207*^9, 3.4927266859881716`*^9}, {3.4927267340873346`*^9, 3.4927267395551972`*^9}, {3.4927268632029943`*^9, 3.4927268641143045`*^9}, {3.492726938491253*^9, 3.4927270960778513`*^9}, { 3.492727126441512*^9, 3.4927271723775654`*^9}, {3.4927272819751587`*^9, 3.492727341580868*^9}, {3.492727401429018*^9, 3.4927274786920013`*^9}, { 3.49272754323481*^9, 3.492727693530925*^9}, {3.4927327629103346`*^9, 3.492732793324067*^9}, {3.4927329891857023`*^9, 3.492733040148984*^9}, { 3.4927331176003537`*^9, 3.492733146151408*^9}, {3.4927367570536304`*^9, 3.492736900549968*^9}, {3.492737054120792*^9, 3.492737064225322*^9}, { 3.492737096301445*^9, 3.492737096952381*^9}, {3.4927371377710752`*^9, 3.4927372018432064`*^9}, {3.4927372334586673`*^9, 3.492737269480464*^9}, { 3.4927373470119486`*^9, 3.492737423171461*^9}, {3.492737492150648*^9, 3.492737504017712*^9}, {3.492737548792094*^9, 3.492737560528971*^9}, { 3.4927375940071106`*^9, 3.492737672329733*^9}, {3.4927378284442143`*^9, 3.4927378421138706`*^9}, {3.4927378981244097`*^9, 3.4927379293192654`*^9}, {3.4927379691765776`*^9, 3.4927379946331825`*^9}, {3.49273805109437*^9, 3.4927381665503874`*^9}, 3.492738321473155*^9, 3.492738382931528*^9, 3.492738471589011*^9, { 3.4927394277189264`*^9, 3.4927394293512735`*^9}, {3.4927398402421055`*^9, 3.4927399018106365`*^9}, {3.49281195769996*^9, 3.492812029252848*^9}, { 3.492812119923226*^9, 3.492812131870405*^9}, {3.492812213037117*^9, 3.4928122315938005`*^9}, 3.492812353178631*^9, {3.4928258263071055`*^9, 3.49282582656748*^9}, {3.492829253595304*^9, 3.4928292603750525`*^9}, { 3.4931226514369*^9, 3.49312271552906*^9}, {3.493122785810119*^9, 3.493122929216327*^9}, {3.493122982993655*^9, 3.4931229841853685`*^9}, { 3.4931234732786503`*^9, 3.4931235176925144`*^9}, {3.4931236963794537`*^9, 3.4931237410436773`*^9}, {3.4931237935391626`*^9, 3.493123816632369*^9}, { 3.493125814435068*^9, 3.4931258539819336`*^9}, {3.493125952072982*^9, 3.493126043344223*^9}, {3.4931275723027573`*^9, 3.4931276521475687`*^9}, { 3.493127702990678*^9, 3.4931277451513014`*^9}, {3.4931286125485573`*^9, 3.493128614651582*^9}, {3.4931504399819903`*^9, 3.4931504529506383`*^9}, { 3.49315057751976*^9, 3.493150587043454*^9}, {3.4931508569816065`*^9, 3.4931508606669054`*^9}, {3.4931508938345985`*^9, 3.493150898791726*^9}, { 3.4931510665729837`*^9, 3.493151074504389*^9}, {3.4931511205906577`*^9, 3.493151123004128*^9}, 3.4931523089995055`*^9, {3.4931526779300013`*^9, 3.4931526890159426`*^9}, {3.4931527273510656`*^9, 3.4931527524671807`*^9}, 3.4931706934012957`*^9, {3.4931710956897583`*^9, 3.493171100186224*^9}, 3.4931712110256033`*^9, {3.493171786473056*^9, 3.493171814533405*^9}, 3.493171857955843*^9, {3.493174312725629*^9, 3.493174313947386*^9}, { 3.493174389896595*^9, 3.4931744010225935`*^9}, 3.4931744826900253`*^9, { 3.4931754733745604`*^9, 3.4931754812258496`*^9}, 3.493175590072363*^9, { 3.493176231825158*^9, 3.493176394649288*^9}, {3.4931764698974895`*^9, 3.4931764781593695`*^9}, {3.493180792668397*^9, 3.4931807976455536`*^9}, { 3.493180892702238*^9, 3.493180930746944*^9}, {3.493180975981989*^9, 3.4931809764426513`*^9}, {3.493181849267712*^9, 3.493181861305021*^9}, { 3.4931818942523966`*^9, 3.493181930184064*^9}, 3.493182000535224*^9, { 3.4931820483940415`*^9, 3.4931820643670096`*^9}, {3.5079813135227723`*^9, 3.5079813209885073`*^9}, {3.507981430510993*^9, 3.5079814365046115`*^9}, { 3.5079830583717422`*^9, 3.5079830584919147`*^9}, {3.5079833727287655`*^9, 3.507983372848938*^9}, {3.5087643758842363`*^9, 3.50876437751058*^9}, { 3.508764435602042*^9, 3.508764438402277*^9}, {3.5106571201574283`*^9, 3.510657127811706*^9}, {3.5193812107786903`*^9, 3.519381215865981*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Calculation of restricted equilibria, Nash equilibria and Quasistrict \ equilibria\ \>", "Subsubsection", CellChangeTimes->{{3.493403088368146*^9, 3.4934030988231792`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "RestrictedEquilibria", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestrictedEquilibria", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestrictedEquilibria", "::", "notes"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestrictedEquilibria", "[", RowBox[{"F_", ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"gridsize_:", "10"}], " ", ",", RowBox[{"eps_:", ".01"}]}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "i", ",", "j", ",", "k", ",", "subdim", ",", "grid", ",", " ", "RNE", ",", "supports", ",", "supportRPs"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "F", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"supports", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "dim"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"RNE", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"subdim", "=", RowBox[{"Total", "[", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"subdim", ">", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"grid", "=", RowBox[{"DiscSimplex", "[", RowBox[{"gridsize", ",", "subdim", ",", "True", ",", "eps"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}], ",", RowBox[{"grid", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"grid", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"VectorReplace", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "dim"}], "]"}], ",", RowBox[{"grid", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "grid", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "grid", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Find", " ", "the", " ", "restpoints", " ", "for", " ", "the", " ", "Replicator", " ", "dynamic", " ", "without", " ", "tolerance", " ", "check", " ", "and", " ", "for", " ", "the", " ", "specific", " ", "subsimplex"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"supportRPs", "=", RowBox[{"RestPointsContinuous", "[", RowBox[{ "Replicator", ",", "F", ",", "grid", ",", "Infinity", ",", "delta", ",", "accuracy", ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "supportRPs", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"supportRPs", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dim", "-", "subdim"}], "==", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"supportRPs", "[", RowBox[{"[", RowBox[{"k", ",", "j"}], "]"}], "]"}], "==", "0"}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"supportRPs", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\\""}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "supportRPs", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "supportRPs", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"supportRPs", "=", RowBox[{"{", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"RNE", "=", RowBox[{"Join", "[", RowBox[{"RNE", ",", RowBox[{"{", "supportRPs", "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "RNE"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.493230194664242*^9, 3.49323030911831*^9}, { 3.4932303440334597`*^9, 3.493230365833398*^9}, {3.4932303983651247`*^9, 3.493230413539231*^9}, {3.4932306882766237`*^9, 3.493230702704651*^9}, { 3.4932309812745066`*^9, 3.4932309816750827`*^9}, {3.493231182824321*^9, 3.493231183194854*^9}, {3.4932312258061256`*^9, 3.493230531689516*^9}, 3.493230848389909*^9, {3.4932309215901656`*^9, 3.4932309620433345`*^9}, { 3.4932313466714025`*^9, 3.4932313977748857`*^9}, {3.4932317884716797`*^9, 3.4932318082851706`*^9}, {3.4932321658292933`*^9, 3.493232177275753*^9}, { 3.507981441792215*^9, 3.5079814567236853`*^9}, {3.507985275660101*^9, 3.507985278243816*^9}, 3.5087644400814915`*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "NashEquilibria", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEquilibria", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEquilibria", "::", "notes"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEquilibria", "[", RowBox[{"F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"variant_:", "\"\\""}], ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"gridsize_:", "10"}], " ", ",", RowBox[{"n_:", "100"}], ",", RowBox[{"eps_:", ".01"}]}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "l", ",", "grid", ",", " ", "NE", ",", "ex", ",", "fex", ",", "ceq", ",", "rdim", ",", "RNE", ",", "supports", ",", "resteqSample", ",", "pure", ",", "Fx", ",", "flag", ",", "check"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"supports", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "dim"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rdim", "=", RowBox[{"Total", "[", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rdim", ">", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ex", "=", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "rdim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fex", "=", RowBox[{"F", "[", RowBox[{"VectorReplace", "[", RowBox[{ RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "ex", ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fex", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"supports", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "==", "1"}], ",", RowBox[{"fex", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"ceq", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"fex", ",", RowBox[{"-", "1"}]}], "]"}], "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"fex", "[", RowBox[{"[", "rdim", "]"}], "]"}], ",", RowBox[{"rdim", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Total", "[", "ex", "]"}], "-", "1"}], "}"}]}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"ex", ",", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"1", "/", "rdim"}], ",", "rdim"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ceq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ceq", "[", RowBox[{"[", RowBox[{"1", ",", "k", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "rdim"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"ceq", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"fex", ",", RowBox[{"-", "1"}]}], "]"}], "-", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"fex", "[", RowBox[{"[", "rdim", "]"}], "]"}], ",", RowBox[{"rdim", "-", "1"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Total", "[", "ex", "]"}], "-", "1"}], "}"}]}], "]"}], "==", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "rdim"}], "]"}]}], "]"}], ",", "ex"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ceq", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ceq", "[", RowBox[{"[", RowBox[{"1", ",", "k", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "rdim"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"check", "=", RowBox[{"SimplexQ", "[", "ceq", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"check", ",", RowBox[{"ceq", "=", RowBox[{"VectorReplace", "[", RowBox[{ RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "ceq", ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"check", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"ceq", "=", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"j", "==", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", ",", RowBox[{"check", "==", "True"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"check", "=", "False"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"check", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", "ceq", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"flag", "=", RowBox[{"VariationalIneqCheck", "[", RowBox[{"ceq", ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fx", ",", "variant"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"NE", "=", RowBox[{"Append", "[", RowBox[{"NE", ",", "ceq"}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RNE", "=", RowBox[{"RestrictedEquilibria", "[", RowBox[{"F", ",", "delta", ",", "accuracy", ",", "gridsize"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Following", " ", "lines", " ", "eliminate", " ", "the", " ", "rest", " ", "points", " ", "that", " ", "are", " ", "not", " ", RowBox[{"NE", "."}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "<", RowBox[{ RowBox[{"Dimensions", "[", "supports", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<=", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"RNE", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "=", RowBox[{"F", "[", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "this", " ", "method", " ", "will", " ", "check", " ", "against", " ", "the", " ", "pure", " ", "strategies", " ", "that", " ", "are", " ", "left", " ", "out", " ", "of", " ", "the", " ", "support"}], ",", " ", RowBox[{ RowBox[{"it", "'"}], "s", " ", "more", " ", "efficient"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"VariationalIneqCheck", "[", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", RowBox[{"supports", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Fx", ",", "variant"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "this", " ", "method", " ", "will", " ", "check", " ", "against", " ", "a", " ", "sample", " ", "of", " ", "points", " ", "around", " ", "the", " ", "subsimplex", " ", "restpoint"}], ",", " ", RowBox[{ RowBox[{"it", "'"}], "s", " ", "less", " ", "efficient"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"resteqSample", "=", RowBox[{"SampleAround", "[", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", "eps", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"l", "=", "1"}], ",", RowBox[{"l", "<=", " ", "n"}], ",", RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "-", RowBox[{"resteqSample", "[", RowBox[{"[", "l", "]"}], "]"}]}], ")"}], ".", "Fx"}], ">", "0"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}], "-", RowBox[{"resteqSample", "[", RowBox[{"[", "l", "]"}], "]"}]}], ")"}], ".", "Fx"}], ">=", "0"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", "flag", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"flag", ",", RowBox[{"NE", "=", RowBox[{"Append", "[", RowBox[{"NE", ",", RowBox[{"RNE", "[", RowBox[{"[", RowBox[{"j", ",", "k"}], "]"}], "]"}]}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NE", "=", RowBox[{"Join", "[", RowBox[{"NE", ",", RowBox[{"RNE", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"EliminateDuplicates", "[", RowBox[{"delta", ",", "NE"}], "]"}]}], ";", "\[IndentingNewLine]", "NE"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.4932304372995567`*^9, 3.493230446362991*^9}, { 3.4932305116095705`*^9, 3.4932305121461644`*^9}, {3.4932305741978664`*^9, 3.4932306014590936`*^9}, {3.4932307456320677`*^9, 3.493230773878895*^9}, { 3.4932308296086855`*^9, 3.493230885292202*^9}, {3.4932309584957905`*^9, 3.4932311120825996`*^9}, {3.493231155655254*^9, 3.493231177366473*^9}, { 3.4932313170072665`*^9, 3.4932313337112856`*^9}, {3.4932313767131195`*^9, 3.4932304833349857`*^9}, {3.493231867004605*^9, 3.4932318932022753`*^9}, { 3.4932322080850544`*^9, 3.493232228183955*^9}, {3.493232260660654*^9, 3.4932322707852125`*^9}, {3.4932695180153246`*^9, 3.4932695197378016`*^9}, {3.4932696938081026`*^9, 3.4932697581105647`*^9}, {3.493269851174384*^9, 3.493269852356083*^9}, { 3.4932702736118193`*^9, 3.49327031849636*^9}, {3.4933779894139757`*^9, 3.4933779990177855`*^9}, {3.4933781126912403`*^9, 3.4933783242854977`*^9}, {3.4933784533210416`*^9, 3.49337856959824*^9}, { 3.4933786279120913`*^9, 3.493378646759192*^9}, {3.4933786965007167`*^9, 3.493378874456605*^9}, {3.4934031443286133`*^9, 3.493403186919856*^9}, { 3.493403217784237*^9, 3.4934032211691046`*^9}, {3.507402745162653*^9, 3.5074028861954484`*^9}, {3.507403078497032*^9, 3.5074030958019156`*^9}, { 3.5074034271130886`*^9, 3.5074034272933474`*^9}, {3.5074038088871202`*^9, 3.507403893628973*^9}, {3.507404918137347*^9, 3.507404945646904*^9}, { 3.5074052694725423`*^9, 3.507405271235077*^9}, {3.5074053554122186`*^9, 3.507405356356061*^9}, {3.5074054221171026`*^9, 3.5074055518536544`*^9}, { 3.5074056108384705`*^9, 3.5074056251089907`*^9}, {3.50740658809383*^9, 3.5074065896160192`*^9}, {3.5074067052923536`*^9, 3.507406741425291*^9}, { 3.5074067717898226`*^9, 3.507406772221687*^9}, {3.5074068130824156`*^9, 3.507406897814254*^9}, {3.507407086004859*^9, 3.507407086765953*^9}, { 3.507407124059579*^9, 3.5074071262427177`*^9}, {3.507407358852262*^9, 3.50740737056911*^9}, {3.507407409905673*^9, 3.5074074568631945`*^9}, { 3.507407571798464*^9, 3.5074076550381565`*^9}, {3.507407705864667*^9, 3.507407706034202*^9}, {3.5074077532844954`*^9, 3.507407761576419*^9}, { 3.5074080777750683`*^9, 3.507408202304132*^9}, {3.507408900382826*^9, 3.507408948301892*^9}, {3.507408989090543*^9, 3.507409019364074*^9}, { 3.507409077217263*^9, 3.5074090988383527`*^9}, {3.507409164592903*^9, 3.5074091925030355`*^9}, {3.5074092466772604`*^9, 3.507409294614933*^9}, 3.5074093327497683`*^9, {3.507409415789173*^9, 3.507409551824783*^9}, 3.5074095885676165`*^9, {3.5074096370373125`*^9, 3.5074096425252037`*^9}, { 3.507409699229843*^9, 3.50740970357926*^9}, {3.507409811182789*^9, 3.5074098754151506`*^9}, {3.5074099165442915`*^9, 3.5074099402183332`*^9}, {3.5074100172591124`*^9, 3.507410090181966*^9}, { 3.507410135379363*^9, 3.5074101366101756`*^9}, {3.507410199155735*^9, 3.5074102406153507`*^9}, {3.507410307341298*^9, 3.5074104113459167`*^9}, { 3.5074104942715235`*^9, 3.507410494735777*^9}, {3.507410673978632*^9, 3.5074107008072095`*^9}, {3.5074107351065297`*^9, 3.507410761704776*^9}, { 3.507410800760936*^9, 3.507410828600968*^9}, {3.5074108722537374`*^9, 3.5074109060923953`*^9}, {3.5074109378676157`*^9, 3.507410966274177*^9}, { 3.507411014473307*^9, 3.5074110213632145`*^9}, {3.5074111192840176`*^9, 3.5074111715291424`*^9}, 3.5074133137945113`*^9, {3.507429697020052*^9, 3.507429697580858*^9}, {3.5074297563653865`*^9, 3.507429758258108*^9}, { 3.5074297983457513`*^9, 3.5074298011798267`*^9}, {3.5074302419737926`*^9, 3.507430317051749*^9}, {3.5074304835912213`*^9, 3.5074305171795187`*^9}, { 3.5074305749225492`*^9, 3.507430616902914*^9}, {3.507430714152753*^9, 3.5074307330799685`*^9}, {3.5074308407848406`*^9, 3.507430845671868*^9}, { 3.5074309085622997`*^9, 3.5074309864469614`*^9}, {3.5074310257058115`*^9, 3.507431100753725*^9}, {3.5074312094629297`*^9, 3.5074312147805758`*^9}, { 3.507431267666622*^9, 3.507431283038726*^9}, {3.507431334582843*^9, 3.507431366969413*^9}, {3.50743145062971*^9, 3.507431453644045*^9}, { 3.507431526639006*^9, 3.507431533038208*^9}, 3.5074315770114384`*^9, { 3.5074317413877997`*^9, 3.507431752013078*^9}, {3.507431799901939*^9, 3.5074318517064304`*^9}, {3.507431885174555*^9, 3.507431888769725*^9}, { 3.507432021355441*^9, 3.5074320249906683`*^9}, {3.507432062104035*^9, 3.5074321689576826`*^9}, {3.5074322979832125`*^9, 3.5074323036713915`*^9}, {3.5074323375132103`*^9, 3.5074323409217577`*^9}, {3.5074324216360846`*^9, 3.507432436477425*^9}, { 3.507432483284731*^9, 3.507432485507928*^9}, {3.507432546425523*^9, 3.507432549029267*^9}, {3.507432612851038*^9, 3.507432634982862*^9}, { 3.5074326983539853`*^9, 3.507432707567233*^9}, {3.5074327552958636`*^9, 3.507432783596558*^9}, {3.507433759623076*^9, 3.5074338199197783`*^9}, { 3.507433862240633*^9, 3.507433883771593*^9}, {3.5074339344644856`*^9, 3.5074339465919237`*^9}, {3.5074339992276106`*^9, 3.507434036771596*^9}, { 3.507434072231654*^9, 3.5074340727125945`*^9}, {3.507434190978402*^9, 3.507434197718094*^9}, {3.507434253338071*^9, 3.50743425786458*^9}, { 3.507434534136908*^9, 3.507434645737382*^9}, {3.5074347427068167`*^9, 3.5074349673498373`*^9}, {3.5074350329141145`*^9, 3.5074351091437273`*^9}, {3.5074351391668987`*^9, 3.507435139927993*^9}, { 3.5074351839813385`*^9, 3.50743519147211*^9}, 3.5074352393008842`*^9, { 3.507435376419031*^9, 3.5074353767134867`*^9}, 3.507435505518754*^9, { 3.5074355408796005`*^9, 3.507435634384053*^9}, {3.50743570470517*^9, 3.5074357228612776`*^9}, {3.5074721547880163`*^9, 3.5074721555991826`*^9}, {3.5079092010115876`*^9, 3.5079092063492627`*^9}, {3.5079093533023605`*^9, 3.5079093535627356`*^9}, {3.507981461921159*^9, 3.5079814846939044`*^9}, { 3.5079853078814325`*^9, 3.5079853472680683`*^9}, {3.5130124616650877`*^9, 3.5130124664419565`*^9}, {3.5130129969447823`*^9, 3.513013032646118*^9}, { 3.513013247104494*^9, 3.513013249417821*^9}, {3.513013398752554*^9, 3.5130134215152845`*^9}, {3.513013484485832*^9, 3.5130134890523987`*^9}, { 3.5130184917959905`*^9, 3.5130184935785537`*^9}, 3.5130185260452385`*^9, { 3.519418828964142*^9, 3.519418856352708*^9}}, CellTags->"initcell"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"VariationalIneqCheck", "[", RowBox[{"ceq_", ",", "support_", ",", "Fx_", ",", RowBox[{"variant_:", "\"\\""}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "flag"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", "True"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"support", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"variant", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ceq", "-", RowBox[{"UnitVector", "[", RowBox[{"dim", ",", "j"}], "]"}]}], ")"}], ".", "Fx"}], ">", "0"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ceq", "-", RowBox[{"UnitVector", "[", RowBox[{"dim", ",", "j"}], "]"}]}], ")"}], ".", "Fx"}], ">=", "0"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", "flag", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "flag"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.493118619884822*^9, 3.4931187334845266`*^9}, 3.493118768437043*^9, { 3.493118806389835*^9, 3.4931188168979745`*^9}, {3.493118914786354*^9, 3.493118932785063*^9}, {3.493118963268123*^9, 3.4931190782962537`*^9}, { 3.493119135718641*^9, 3.493119230732557*^9}, {3.493119393705306*^9, 3.493119407476181*^9}, {3.493119458089608*^9, 3.4931194726242003`*^9}, { 3.4931195670718007`*^9, 3.4931195763050776`*^9}, {3.4931197496042695`*^9, 3.493119835107217*^9}, {3.4931198689659033`*^9, 3.493119924936385*^9}, { 3.493119980546348*^9, 3.4931200701351705`*^9}, {3.4931202061607656`*^9, 3.493120616881353*^9}, {3.493120701452961*^9, 3.4931207637124853`*^9}, { 3.4931282185219755`*^9, 3.493128397228943*^9}, {3.4931284369160104`*^9, 3.493128503772145*^9}, {3.49312859072718*^9, 3.493128596886036*^9}, { 3.4931290508788457`*^9, 3.4931290743125415`*^9}, 3.493129434640668*^9, { 3.493129477872833*^9, 3.493129498562583*^9}, {3.493129564747753*^9, 3.4931295767750473`*^9}, {3.493129828607164*^9, 3.4931300776552773`*^9}, { 3.4931301655416517`*^9, 3.493130375173087*^9}, {3.4931305681706038`*^9, 3.4931308477325945`*^9}, {3.493148731735653*^9, 3.493148732086157*^9}, { 3.4931488597597427`*^9, 3.4931488678513775`*^9}, {3.493149443539176*^9, 3.4931494727812243`*^9}, {3.493149512818795*^9, 3.493149540829072*^9}, { 3.4931496837746177`*^9, 3.493149709141093*^9}, {3.49314977386416*^9, 3.4931499187324705`*^9}, {3.4931499502477875`*^9, 3.4931499934198656`*^9}, {3.4931500737353535`*^9, 3.493150080635275*^9}, { 3.4931534301115856`*^9, 3.4931534434908237`*^9}, {3.4931757142108655`*^9, 3.4931757245757694`*^9}, {3.493177091831787*^9, 3.493177118460077*^9}, { 3.4931774631457105`*^9, 3.493177474371853*^9}, {3.4931784287642016`*^9, 3.4931785281521826`*^9}, {3.4931785963502464`*^9, 3.493178609358952*^9}, { 3.4931787224115133`*^9, 3.4931787226718884`*^9}, {3.493178759995557*^9, 3.493178835594262*^9}, {3.4931788852156143`*^9, 3.493178933475008*^9}, { 3.493178964860138*^9, 3.4931789666827583`*^9}, {3.4931790169049745`*^9, 3.493179023484435*^9}, {3.4931790644733744`*^9, 3.493179065785261*^9}, { 3.493179268286443*^9, 3.4931792911092606`*^9}, {3.493179333149712*^9, 3.493179343925206*^9}, {3.4931794598418865`*^9, 3.493179465570123*^9}, { 3.4931795568513794`*^9, 3.4931795835697985`*^9}, {3.493210770288602*^9, 3.4932107765826526`*^9}, {3.493210808037883*^9, 3.493210963932048*^9}, { 3.493210999187743*^9, 3.4932110399864087`*^9}, {3.4932116965955663`*^9, 3.4932117923132014`*^9}, {3.4932119627332535`*^9, 3.4932119926562805`*^9}, {3.4932122278644934`*^9, 3.4932122502616987`*^9}, {3.4932123411874437`*^9, 3.4932123940784974`*^9}, {3.4932124784247813`*^9, 3.4932125080173335`*^9}, {3.493212607445304*^9, 3.493212777399686*^9}, { 3.4932128346169605`*^9, 3.4932128771130667`*^9}, {3.4932129254225326`*^9, 3.4932129311307406`*^9}, {3.493212964959384*^9, 3.4932130115413656`*^9}, { 3.4932130509280005`*^9, 3.493213060451695*^9}, {3.493213093784625*^9, 3.493213141252881*^9}, {3.4932304372995567`*^9, 3.493230446362991*^9}, { 3.4932305116095705`*^9, 3.4932305121461644`*^9}, {3.4932305741978664`*^9, 3.4932306014590936`*^9}, {3.4932307456320677`*^9, 3.493230773878895*^9}, { 3.4932308296086855`*^9, 3.493230885292202*^9}, {3.4932309584957905`*^9, 3.4932311120825996`*^9}, {3.493231155655254*^9, 3.493231177366473*^9}, { 3.4932313170072665`*^9, 3.4932313337112856`*^9}, {3.4932313767131195`*^9, 3.4932304833349857`*^9}, {3.493231867004605*^9, 3.4932318932022753`*^9}, { 3.4932322080850544`*^9, 3.493232228183955*^9}, {3.493232260660654*^9, 3.4932322707852125`*^9}, {3.4932695180153246`*^9, 3.4932695197378016`*^9}, {3.4932696938081026`*^9, 3.4932697581105647`*^9}, {3.493269851174384*^9, 3.493269852356083*^9}, { 3.4932702736118193`*^9, 3.49327031849636*^9}, {3.4933779894139757`*^9, 3.4933779990177855`*^9}, {3.4933781126912403`*^9, 3.4933783242854977`*^9}, {3.4933784533210416`*^9, 3.49337856959824*^9}, { 3.4933786279120913`*^9, 3.493378646759192*^9}, {3.4933786965007167`*^9, 3.493378874456605*^9}, {3.4934031443286133`*^9, 3.493403186919856*^9}, { 3.493403217784237*^9, 3.4934032211691046`*^9}, {3.507402745162653*^9, 3.5074028861954484`*^9}, {3.507403078497032*^9, 3.5074030958019156`*^9}, { 3.5074034271130886`*^9, 3.5074034272933474`*^9}, {3.5074038088871202`*^9, 3.507403893628973*^9}, {3.507404918137347*^9, 3.507404945646904*^9}, { 3.5074052694725423`*^9, 3.507405271235077*^9}, {3.5074053554122186`*^9, 3.507405356356061*^9}, {3.5074054221171026`*^9, 3.5074055518536544`*^9}, { 3.5074056108384705`*^9, 3.5074056251089907`*^9}, {3.50740658809383*^9, 3.5074065896160192`*^9}, {3.5074067052923536`*^9, 3.507406741425291*^9}, { 3.5074067717898226`*^9, 3.507406772221687*^9}, {3.5074068130824156`*^9, 3.507406897814254*^9}, {3.507407086004859*^9, 3.507407086765953*^9}, { 3.507407124059579*^9, 3.5074071262427177`*^9}, {3.507407358852262*^9, 3.50740737056911*^9}, {3.507407409905673*^9, 3.5074074568631945`*^9}, { 3.507407571798464*^9, 3.5074076550381565`*^9}, {3.507407705864667*^9, 3.507407706034202*^9}, {3.5074077532844954`*^9, 3.507407761576419*^9}, { 3.5074080777750683`*^9, 3.507408202304132*^9}, {3.507408900382826*^9, 3.507408948301892*^9}, {3.507408989090543*^9, 3.507409019364074*^9}, { 3.507409077217263*^9, 3.5074090988383527`*^9}, {3.507409164592903*^9, 3.5074091925030355`*^9}, {3.5074092466772604`*^9, 3.507409294614933*^9}, 3.5074093327497683`*^9, {3.507409415789173*^9, 3.507409551824783*^9}, 3.5074095885676165`*^9, {3.5074096370373125`*^9, 3.5074096425252037`*^9}, { 3.507409699229843*^9, 3.50740970357926*^9}, {3.507409811182789*^9, 3.5074098754151506`*^9}, {3.5074099165442915`*^9, 3.5074099402183332`*^9}, {3.5074100172591124`*^9, 3.507410090181966*^9}, { 3.507410135379363*^9, 3.5074101366101756`*^9}, {3.507410199155735*^9, 3.5074102406153507`*^9}, {3.507410307341298*^9, 3.5074104113459167`*^9}, { 3.5074104942715235`*^9, 3.507410494735777*^9}, {3.507410673978632*^9, 3.5074107008072095`*^9}, {3.5074107351065297`*^9, 3.507410761704776*^9}, { 3.507410800760936*^9, 3.507410828600968*^9}, {3.5074108722537374`*^9, 3.5074109060923953`*^9}, {3.5074109378676157`*^9, 3.507410966274177*^9}, { 3.507411014473307*^9, 3.5074110213632145`*^9}, {3.5074111192840176`*^9, 3.5074111715291424`*^9}, 3.5074133137945113`*^9, {3.507429697020052*^9, 3.507429697580858*^9}, {3.5074297563653865`*^9, 3.507429758258108*^9}, { 3.5074297983457513`*^9, 3.5074298011798267`*^9}, {3.5074302419737926`*^9, 3.507430317051749*^9}, {3.5074304835912213`*^9, 3.5074305171795187`*^9}, { 3.5074305749225492`*^9, 3.507430616902914*^9}, {3.507430714152753*^9, 3.5074307330799685`*^9}, {3.5074308407848406`*^9, 3.507430845671868*^9}, { 3.5074309085622997`*^9, 3.5074309864469614`*^9}, {3.5074310257058115`*^9, 3.507431100753725*^9}, {3.5074312094629297`*^9, 3.5074312147805758`*^9}, { 3.507431267666622*^9, 3.507431283038726*^9}, {3.507431334582843*^9, 3.507431366969413*^9}, {3.50743145062971*^9, 3.507431453644045*^9}, { 3.507431526639006*^9, 3.507431533038208*^9}, 3.5074315770114384`*^9, { 3.5074317413877997`*^9, 3.507431752013078*^9}, {3.507431799901939*^9, 3.5074318517064304`*^9}, {3.507431885174555*^9, 3.507431888769725*^9}, { 3.507432021355441*^9, 3.5074320249906683`*^9}, {3.507432062104035*^9, 3.5074321689576826`*^9}, {3.5074322979832125`*^9, 3.5074323036713915`*^9}, {3.5074323375132103`*^9, 3.5074323409217577`*^9}, {3.5074324216360846`*^9, 3.507432436477425*^9}, { 3.507432483284731*^9, 3.507432485507928*^9}, {3.507432546425523*^9, 3.507432549029267*^9}, {3.507432612851038*^9, 3.507432634982862*^9}, { 3.5074326983539853`*^9, 3.507432707567233*^9}, {3.5074327552958636`*^9, 3.507432783596558*^9}, {3.507433759623076*^9, 3.5074338199197783`*^9}, { 3.507433862240633*^9, 3.507433883771593*^9}, {3.5074339344644856`*^9, 3.5074339465919237`*^9}, {3.5074339992276106`*^9, 3.507434036771596*^9}, { 3.507434072231654*^9, 3.5074340727125945`*^9}, {3.507434190978402*^9, 3.507434197718094*^9}, {3.507434253338071*^9, 3.50743425786458*^9}, { 3.507434534136908*^9, 3.507434645737382*^9}, {3.5074347427068167`*^9, 3.5074349673498373`*^9}, {3.5074350329141145`*^9, 3.5074351091437273`*^9}, {3.5074351391668987`*^9, 3.507435139927993*^9}, { 3.5074351839813385`*^9, 3.50743519147211*^9}, 3.5074352393008842`*^9, { 3.507435376419031*^9, 3.5074353767134867`*^9}, 3.507435505518754*^9, { 3.5074355408796005`*^9, 3.507435634384053*^9}, {3.50743570470517*^9, 3.5074357228612776`*^9}, {3.5074721547880163`*^9, 3.5074721555991826`*^9}, {3.5079092010115876`*^9, 3.5079092063492627`*^9}, {3.5079093533023605`*^9, 3.5079093535627356`*^9}, {3.507981461921159*^9, 3.5079814846939044`*^9}, { 3.5079853078814325`*^9, 3.5079853472680683`*^9}, {3.5130124616650877`*^9, 3.5130124664419565`*^9}, {3.5130129969447823`*^9, 3.513013032646118*^9}, { 3.513013247104494*^9, 3.513013249417821*^9}, {3.513013398752554*^9, 3.5130134215152845`*^9}, {3.513013484485832*^9, 3.5130134890523987`*^9}, { 3.5130184917959905`*^9, 3.5130184935785537`*^9}, {3.5130185260452385`*^9, 3.513018537281395*^9}, {3.5130185854506593`*^9, 3.5130186205210876`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "NashEq", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEq", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEq", "::", "notes"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NashEq", "[", RowBox[{"F_", ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}], ",", RowBox[{"gridsize_:", "10"}]}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k", ",", "grid", ",", "pure", ",", " ", "NE"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "F", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"grid", "=", RowBox[{"DiscSimplex", "[", RowBox[{"gridsize", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Find", " ", "the", " ", "restpoints", " ", "for", " ", "the", " ", "Replicator", " ", "dynamic", " ", "without", " ", "tolerance", " ", "check"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"RestPointsContinuous", "[", RowBox[{ "Replicator", ",", "F", ",", "grid", ",", "Infinity", ",", "delta", ",", "accuracy"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Following", " ", "lines", " ", "eliminate", " ", "the", " ", "rest", " ", "points", " ", "that", " ", "are", " ", "not", " ", "NE", " ", "by", " ", "comparison", " ", "with", " ", "the", " ", "boundaries"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pure", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ".", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}]}], "+", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], " ", "\[GreaterEqual]", " ", RowBox[{ RowBox[{"F", "[", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ".", RowBox[{"pure", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], ")"}], ",", " ", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "pure", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NE", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"After", " ", "this"}], ",", " ", RowBox[{ RowBox[{ "each", " ", "equilibrium", " ", "candidate", " ", "is", " ", "repeated", " ", "3", " ", "times", " ", "if", " ", "it", " ", "dominated", " ", "the", " ", "pure", " ", "strategies"}], ";", " ", RowBox[{"if", " ", "not"}]}], ",", " ", RowBox[{ "one", " ", "of", " ", "the", " ", "3", " ", "entries", " ", "for", " ", "that", " ", "equilibrium", " ", "has", " ", "a", " ", "frase", " ", "and", " ", RowBox[{"MatrixQ", "[", "]"}], " ", "will", " ", "notice", " ", "that", " ", "as", " ", "follows"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"NE", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MatrixQ", "[", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], ",", RowBox[{"NE", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NE", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "once", " ", "we", " ", "eliminated", " ", "the", " ", "equilibria", " ", "wich", " ", "failed", " ", "the", " ", "test", " ", "against", " ", "some", " ", "pure", " ", "strategy", " ", "we", " ", "want", " ", "to", " ", "keep", " ", "one", " ", "of", " ", "the", " ", "3", " ", "copies", " ", "only", " ", "for", " ", "the", " ", "remaining", " ", "equilibria"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"NE", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"NE", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "NE", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "NE"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.480859755914381*^9, 3.480859803086256*^9}, { 3.4927384949225636`*^9, 3.4927384965649247`*^9}, {3.492738611690467*^9, 3.492738618640461*^9}, {3.4927389969340396`*^9, 3.492739202284768*^9}, { 3.492739241991864*^9, 3.4927392776030703`*^9}, {3.4927393098294096`*^9, 3.492739365639661*^9}, {3.49273965990279*^9, 3.4927398218055954`*^9}, { 3.4927401200143986`*^9, 3.4927401332634497`*^9}, {3.4927402656037455`*^9, 3.4927402715623136`*^9}, {3.4927403242380576`*^9, 3.4927403915748835`*^9}, {3.492740424862749*^9, 3.4927404981681566`*^9}, { 3.4927410839003983`*^9, 3.4927411585076785`*^9}, {3.49274119194576*^9, 3.4927412457331023`*^9}, {3.4927414952418785`*^9, 3.49274154670588*^9}, { 3.4927415926018753`*^9, 3.492741811536688*^9}, {3.4927737123463345`*^9, 3.49277372551527*^9}, {3.492773790318453*^9, 3.4927739962445602`*^9}, { 3.492774040337963*^9, 3.492774047878806*^9}, {3.492774122205683*^9, 3.4927741233172817`*^9}, {3.4928030379840384`*^9, 3.492803080354965*^9}, { 3.4928031328905077`*^9, 3.4928031330707664`*^9}, {3.492803206506362*^9, 3.492803211894109*^9}, {3.492809882485949*^9, 3.4928099376552787`*^9}, { 3.492811854701856*^9, 3.4928118613414035`*^9}, {3.4928231607942867`*^9, 3.492823209934947*^9}, {3.4928254702951856`*^9, 3.492825474701522*^9}, { 3.4928255099121523`*^9, 3.492825554316002*^9}, 3.4928255864321823`*^9, { 3.5079814890201254`*^9, 3.507981508247773*^9}, 3.5087644456120377`*^9}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Specification of rest points", "Subsubsection", CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "RestPoints", "]"}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"RestPoints", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPoints", "::", "notes"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RestPoints", "[", RowBox[{ "dyn_", ",", "F_", ",", "RestSearchInit_", ",", "TolLevel_", ",", RowBox[{"delta_:", ".01"}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", " ", "\"\\""}], ",", RowBox[{"RestPointsContinuous", "[", RowBox[{"dyn", ",", "F", ",", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", "-", RowBox[{"Total", "[", RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RestSearchInit", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "TolLevel", ",", "delta", ",", "accuracy"}], "]"}], ",", " ", RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", " ", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"NashEquilibria", "[", RowBox[{ "F", ",", "\"\\"", ",", "\"\\"", ",", "delta", ",", "accuracy"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"RPCharacterization", "[", "dyn", "]"}], "===", "\"\\""}], ",", " ", RowBox[{"RestPointsContinuous", "[", RowBox[{"Replicator", ",", "F", ",", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", "-", RowBox[{"Total", "[", RowBox[{"RestSearchInit", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "RestSearchInit", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "TolLevel", ",", "delta", ",", "accuracy"}], "]"}]}], "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.47471508216753*^9, 3.4747150946254435`*^9}, { 3.481418886167094*^9, 3.481418886177109*^9}, {3.4817354834747458`*^9, 3.4817354834847603`*^9}, 3.492809407533*^9, {3.49280945318865*^9, 3.4928094540999603`*^9}, {3.4928095514198995`*^9, 3.4928095898751955`*^9}, {3.4928096452848706`*^9, 3.492809851180935*^9}, { 3.4931484968378863`*^9, 3.4931484979594994`*^9}, {3.4931822307562656`*^9, 3.49318232499177*^9}, 3.493182375504403*^9, 3.507405221213149*^9, { 3.5079815138658514`*^9, 3.507981518777915*^9}, 3.5080247838620048`*^9, 3.5080249731141357`*^9, {3.5087644486154013`*^9, 3.5087644547633104`*^9}, { 3.510668458171026*^9, 3.5106684638992634`*^9}, {3.510668527390559*^9, 3.510668545536652*^9}, {3.519418459792026*^9, 3.5194185131320767`*^9}, { 3.519418640620369*^9, 3.519418652019021*^9}, {3.5194190106905355`*^9, 3.5194190138197145`*^9}}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Stability", "Subsection", CellChangeTimes->{{3.492892437555563*^9, 3.49289243918791*^9}}, CellTags->"initcell"], Cell[CellGroupData[{ Cell["Stability Test Subroutine for Smooth Dynamics", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928843532674503`*^9, 3.492884357158045*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "SmoothStabilityTest", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityValues", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "dim", ",", "s", ",", "xv", ",", "DV", ",", "Project", ",", "evs", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xv", "=", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "DVF", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ToExpression", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", RowBox[{"ToString", "[", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "dim", ",", "\"\<_\>\""}], "]"}], "]"}], ",", "\"\<]:=Evaluate[D[dyn[\>\"", ",", RowBox[{"ToString", "[", "xv", "]"}], ",", "\"\<,F],{\>\"", ",", RowBox[{"ToString", "[", "xv", "]"}], ",", "\"\<}]];\>\""}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"MatrixForm", "[", RowBox[{"DVF", "[", "x", "]"}], "]"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DV", "=", RowBox[{"DVF", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "DVF", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DV", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", RowBox[{"{", "s", "}"}], ",", RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"dim", "-", "j"}], ")"}]}]}], "]"}]}], "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DV", "=", RowBox[{"Join", "[", RowBox[{"DV", ",", RowBox[{"{", RowBox[{"ND", "[", RowBox[{ RowBox[{"dyn", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", RowBox[{"{", "s", "}"}], ",", RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"dim", "-", "j"}], ")"}]}]}], "]"}]}], "]"}], ",", "F"}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"DV", " ", "=", " ", RowBox[{"Transpose", "[", "DV", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"MatrixForm", "[", "DV", "]"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "dim", "]"}], "-", RowBox[{ RowBox[{"1", "/", "dim"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"dim", ",", "dim"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"MatrixForm", "[", "Project", "]"}], ",", RowBox[{"MatrixForm", "[", "DV", "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"DV", ".", "Project"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Project", ".", "DV", ".", "Project"}], "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"evs", "=", RowBox[{"Eigensystem", "[", RowBox[{"DV", ".", "Project"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"DV", ".", "Project"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"DiagonalMatrix", "[", "x", "]"}], "-", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", "x", "}"}], "]"}], ".", RowBox[{"{", "x", "}"}]}]}], ")"}], ".", "A", ".", "Project"}], "]"}], ",", "evs"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"evs", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"evs", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "==", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"evs", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "==", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"evs", "[", RowBox[{"[", RowBox[{"2", ",", "j", ",", "1"}], "]"}], "]"}], ",", "dim"}], "]"}]}]}], ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"evs", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"evs", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"evs", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", "evs"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityTest", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"values", ",", "evs", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"values", "=", RowBox[{"SmoothStabilityValues", "[", RowBox[{"x", ",", "dyn", ",", "F", ",", "method", ",", "accuracy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"evs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"values", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "values", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Max", "[", "evs", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "<=", "0"}], ",", RowBox[{ RowBox[{"result", "=", "1"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Min", "[", "evs", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], ">=", "0"}], ",", " ", RowBox[{ RowBox[{"result", "=", RowBox[{"-", "1"}]}], ";"}], ",", "\[IndentingNewLine]", "True", ",", " ", RowBox[{ RowBox[{"result", "=", " ", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Replicator", ",", " ", RowBox[{"1", "-", "2", "-", RowBox[{"3", " ", "coord", "\[IndentingNewLine]", RowBox[{"SmoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}], ",", "dyn", ",", "F", ",", "\"\\"", ",", "10"}], "]"}], "\[IndentingNewLine]", RowBox[{"SmoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.6", ",", "0.4"}], "}"}], ",", "dyn", ",", "F", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"SmoothStabilityTest", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "dyn", ",", "F"}], "]"}]}]}]}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, { 3.489675763578027*^9, 3.489675873818288*^9}, {3.489785598683547*^9, 3.4897856440587935`*^9}, {3.49237910090625*^9, 3.49237910209375*^9}, { 3.49237913315625*^9, 3.492379151359375*^9}, {3.492379210390625*^9, 3.49237924003125*^9}, {3.492379317296875*^9, 3.492379332*^9}, { 3.49237936209375*^9, 3.492379451953125*^9}, {3.492379517359375*^9, 3.492379531265625*^9}, {3.492379716265625*^9, 3.4923797461875*^9}, { 3.492379883828125*^9, 3.492379889296875*^9}, {3.492379930140625*^9, 3.492379994125*^9}, {3.49238009878125*^9, 3.492380113140625*^9}, 3.4923807724375*^9, {3.49238080425*^9, 3.49238084190625*^9}, { 3.4923808950625*^9, 3.492380897484375*^9}, {3.49238101340625*^9, 3.492381108796875*^9}, {3.49238114659375*^9, 3.4923811901875*^9}, { 3.4923812591875*^9, 3.492381376359375*^9}, {3.492381613921875*^9, 3.492381632640625*^9}, {3.492381709359375*^9, 3.49238176990625*^9}, { 3.4923818083125*^9, 3.492381849796875*^9}, {3.492381892984375*^9, 3.492381937421875*^9}, {3.492382001421875*^9, 3.492382151046875*^9}, { 3.49238220828125*^9, 3.49238230375*^9}, {3.4923833268125*^9, 3.492383401375*^9}, 3.492383436609375*^9, {3.4923890745813046`*^9, 3.4923890750031796`*^9}, {3.4923892254875546`*^9, 3.4923892461750546`*^9}, {3.4923893093938046`*^9, 3.4923893293156796`*^9}, 3.4923893621750546`*^9, {3.4923894555969296`*^9, 3.4923895083781796`*^9}, { 3.4923895475656796`*^9, 3.4923895500969296`*^9}, {3.4923895919875546`*^9, 3.4923895927688046`*^9}, {3.4923897556594296`*^9, 3.4923897763156796`*^9}, {3.4923898126281796`*^9, 3.4923901057375546`*^9}, {3.4923901490656796`*^9, 3.4923902065813046`*^9}, {3.4923902863625546`*^9, 3.4923902913156796`*^9}, {3.4923909770813046`*^9, 3.4923909873781796`*^9}, {3.4923911478469296`*^9, 3.4923911614719296`*^9}, {3.4923915060656796`*^9, 3.4923915147063046`*^9}, {3.4923915529563046`*^9, 3.4923915551594296`*^9}, {3.4924594902949204`*^9, 3.4924595552783623`*^9}, {3.4924596130013638`*^9, 3.492459616987095*^9}, { 3.492459657605501*^9, 3.492459666187842*^9}, {3.492460328189754*^9, 3.4924603454045076`*^9}, {3.492460806046879*^9, 3.492460934882135*^9}, { 3.49246098093836*^9, 3.4924609982132006`*^9}, {3.49246221805725*^9, 3.492462219939957*^9}, {3.4924622671478386`*^9, 3.4924622722451687`*^9}, { 3.492462407599799*^9, 3.4924624299719687`*^9}, {3.4924624797435365`*^9, 3.492462483238562*^9}, {3.4924627260076466`*^9, 3.4924628079755106`*^9}, { 3.49246293133289*^9, 3.492463027280856*^9}, {3.492463241408757*^9, 3.492463245434546*^9}, {3.492463530814903*^9, 3.4924635316861553`*^9}, { 3.492465940559946*^9, 3.492466030939906*^9}, {3.492473116338208*^9, 3.4924731246802034`*^9}, {3.4924732190659237`*^9, 3.4924732649719334`*^9}, {3.4924732968778114`*^9, 3.4924732992311954`*^9}, {3.49247481459525*^9, 3.492474816558072*^9}, { 3.492476066385236*^9, 3.4924760684882593`*^9}, {3.4924772069252515`*^9, 3.4924773442126613`*^9}, {3.492477471896261*^9, 3.492477475871978*^9}, { 3.4925115413541183`*^9, 3.4925115439178047`*^9}, {3.492511606317531*^9, 3.492511615230347*^9}, {3.4925117778241453`*^9, 3.4925118154582605`*^9}, { 3.492511893730811*^9, 3.492511925726819*^9}, {3.492512300605869*^9, 3.4925123092583103`*^9}, 3.492512382273301*^9, {3.4925125022658415`*^9, 3.4925125591476336`*^9}, {3.492512683987144*^9, 3.4925126958942657`*^9}, { 3.4925127501522846`*^9, 3.4925127597260513`*^9}, 3.492512801185667*^9, { 3.4925130030359135`*^9, 3.4925130040373535`*^9}, {3.4925139399331055`*^9, 3.492513955235109*^9}, {3.4925140254761105`*^9, 3.4925141280135517`*^9}, { 3.492516660975773*^9, 3.49251669181011*^9}, {3.492516748381456*^9, 3.4925168477843904`*^9}, {3.492516886199629*^9, 3.492516958463539*^9}, { 3.492516989067546*^9, 3.492517010207944*^9}, {3.4925171923097935`*^9, 3.492517198698981*^9}, {3.4925172600471954`*^9, 3.492517295167696*^9}, 3.492517388031227*^9, {3.492517423902808*^9, 3.492517460555512*^9}, { 3.4925175472201295`*^9, 3.492517597933051*^9}, {3.492518873687496*^9, 3.492518874889224*^9}, {3.4925189176106544`*^9, 3.4925189605223584`*^9}, { 3.4925194897633696`*^9, 3.49251956653376*^9}, {3.4925197590606003`*^9, 3.4925197837460957`*^9}, {3.4925204148635983`*^9, 3.492520419460208*^9}, { 3.4925205526717567`*^9, 3.492520561294155*^9}, {3.492522162391488*^9, 3.4925221679194365`*^9}, {3.492531167107565*^9, 3.4925311961092677`*^9}, { 3.49253211714365*^9, 3.492532152013791*^9}, {3.4925321821471205`*^9, 3.492532291634556*^9}, {3.492532325713559*^9, 3.4925323356378293`*^9}, { 3.4925323669027863`*^9, 3.4925324973403463`*^9}, {3.4925327186385574`*^9, 3.4925327346615973`*^9}, {3.4925327793057923`*^9, 3.492532782981077*^9}, { 3.492532852571143*^9, 3.4925328533622804`*^9}, {3.4925329144501204`*^9, 3.4925330995462756`*^9}, {3.492533139663962*^9, 3.492533142518066*^9}, { 3.4925332367335415`*^9, 3.4925332671973457`*^9}, {3.492533312041829*^9, 3.4925333187715063`*^9}, {3.4925333492252965`*^9, 3.4925334183246565`*^9}, {3.4925334999219875`*^9, 3.492533605884354*^9}, { 3.492541976871378*^9, 3.492541982529514*^9}, {3.4925420513985424`*^9, 3.4925421408271346`*^9}, {3.4925421824870386`*^9, 3.492542284944365*^9}, { 3.4925423477947397`*^9, 3.492542358069514*^9}, {3.492542391227192*^9, 3.4925423944418144`*^9}, {3.4925424623895187`*^9, 3.4925424757587423`*^9}, {3.492542514975133*^9, 3.4925425158163424`*^9}, { 3.492542564296053*^9, 3.4925425971733284`*^9}, {3.492698138447184*^9, 3.4926981626219454`*^9}, {3.4927018364584103`*^9, 3.492701844830448*^9}, 3.4927025707010098`*^9, {3.492702605981741*^9, 3.49270260659262*^9}, { 3.4927026692126627`*^9, 3.492702669553152*^9}, {3.492725726818954*^9, 3.492725728952021*^9}, 3.492725824960074*^9, {3.4927264126150804`*^9, 3.492726419565074*^9}, {3.4931286675676713`*^9, 3.49312866849901*^9}, { 3.4933901932623835`*^9, 3.493390193773118*^9}, {3.4959902691492662`*^9, 3.4959903171167774`*^9}, 3.5072556786456265`*^9, 3.507926987388692*^9, { 3.5079815231041355`*^9, 3.507981523434611*^9}, {3.5087902584538436`*^9, 3.508790288687317*^9}, {3.5087954977427745`*^9, 3.5087956931437473`*^9}, { 3.508795835949091*^9, 3.5087958433196898`*^9}, {3.5106594118271484`*^9, 3.510659493304307*^9}, {3.5106598151470942`*^9, 3.510659879349413*^9}, { 3.510659949400141*^9, 3.5106599515432224`*^9}, {3.510660294356163*^9, 3.5106603386298256`*^9}, {3.510660376654502*^9, 3.5106604786211233`*^9}, { 3.510668164238372*^9, 3.5106681981170874`*^9}, {3.511009771198851*^9, 3.5110098252465677`*^9}, 3.51100995689587*^9, {3.511009990263851*^9, 3.5110100009792595`*^9}, {3.5110103054421234`*^9, 3.5110103180202093`*^9}, {3.511010447266056*^9, 3.511010452353371*^9}, { 3.51101049593604*^9, 3.5110105067415776`*^9}, {3.5110105773931694`*^9, 3.5110105777436733`*^9}, {3.511010661694389*^9, 3.511010758513608*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Numeric Stability Test Subroutine for non Smooth Dynamics", \ "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928840924023447`*^9, 3.492884104690014*^9}, {3.4928842615305395`*^9, 3.4928842813139863`*^9}, {3.492884326949607*^9, 3.492884339717967*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "NumericStabilityTest", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "[", RowBox[{"x_", ",", "dyn_", ",", "F_", ",", " ", RowBox[{"n_:", "10"}], ",", RowBox[{"T_:", "2"}], ",", " ", RowBox[{"delta_:", ".01"}], ",", " ", RowBox[{"eps_:", ".05"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "dim", ",", "restpointSample", ",", "restpointTrajectories", ",", "restpointDEsols", ",", "classifiedTrajectories"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointSample", "=", RowBox[{"SampleAround", "[", RowBox[{"x", ",", "eps", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointSample", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "<", RowBox[{"eps", "/", "3"}]}], ",", "\"\\"", ",", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "the", " ", "following", " ", "code", " ", "eliminated", " ", "too", " ", "many", " ", "initial", " ", "conditions", " ", "that", " ", "are", " ", "close", " ", "to", " ", "each", " ", "other"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"restpointSample", " ", "=", RowBox[{"EliminateDuplicates", "[", RowBox[{ RowBox[{"eps", "/", "3"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", "restpointSample"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointSample", " ", "=", RowBox[{"Drop", "[", RowBox[{"restpointSample", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"restpointDEsols", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DEsol", "[", RowBox[{ RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "0", ",", "T"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "restpointSample", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", "restpointDEsols", "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"restpointTrajectories", "=", RowBox[{ RowBox[{"Xt", "[", "T", "]"}], " ", "/.", " ", "restpointDEsols"}]}], ";", "\[IndentingNewLine]", RowBox[{"restpointTrajectories", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"restpointTrajectories", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "restpointTrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"x", ",", "restpointTrajectories"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"-", " ", "Checking"}], " ", "Stability", " ", "using", " ", "delta", " ", "neighborhood"}], " ", "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{"classifiedTrajectories", " ", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"x", ",", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", "1", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ">", RowBox[{"eps", "+", "delta"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", "x", ",", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ">", RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "+", "delta"}]}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"-", "1"}], ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", "0"}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "-", RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "]"}], "<", "delta"}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", RowBox[{"-", "1"}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ "notice", " ", "that", " ", "the", " ", "time", " ", "elapsed", " ", "has", " ", "to", " ", "be", " ", "large", " ", "if", " ", "we", " ", "want", " ", "to", " ", "capture", " ", "a", " ", "cycle", " ", "that", " ", "is", " ", "spiriling", " ", "outwards"}], ",", " ", RowBox[{ "so", " ", "that", " ", "the", " ", "traj", " ", "is", " ", "suf", " ", "further", " ", "away", " ", "from", " ", "the", " ", "restpoint", " ", "than", " ", "the", " ", "initial", " ", RowBox[{"trajectory", ".", " ", "However"}]}], ",", " ", RowBox[{ RowBox[{ "the", " ", "values", " ", "returned", " ", "will", " ", "be", " ", "either", " ", "0", " ", "or"}], " ", "-", RowBox[{"1", " ", "but", " ", "the", " ", "point", " ", RowBox[{"won", "'"}], "t", " ", "be", " ", "confused", " ", "with", " ", "a", " ", "stable", " ", RowBox[{"restpoint", "."}]}]}]}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "restpointTrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"x", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"classifiedTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointTrajectories", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"Norm", "[", RowBox[{"x", "-", RowBox[{"restpointSample", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "restpointTrajectories", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", "1"}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], ">=", "0"}], ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", "1", ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "<=", "0"}], ",", RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", "1"}], ",", "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", "0"}], " ", ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "0"}]}], "]"}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", "classifiedTrajectories", "]"}], "==", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"Max", "[", "classifiedTrajectories", "]"}], "==", "1"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", "2"}], ",", "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", RowBox[{"-", "3"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, 3.4887257424375*^9, {3.492477459528477*^9, 3.492477461831789*^9}, { 3.492682907761492*^9, 3.4926830408528676`*^9}, {3.4926830726185446`*^9, 3.4926831446220803`*^9}, {3.492683322097277*^9, 3.492683370476844*^9}, { 3.492683465323226*^9, 3.4926835676804085`*^9}, {3.492683604493343*^9, 3.49268362499282*^9}, {3.4926837660256147`*^9, 3.4926840173169537`*^9}, { 3.492684146923319*^9, 3.4926841868407173`*^9}, 3.492684396361994*^9, { 3.4926845611589603`*^9, 3.492684589299424*^9}, {3.4926964124312925`*^9, 3.4926964418059053`*^9}, {3.492696480813327*^9, 3.4926965404234333`*^9}, { 3.492696673725789*^9, 3.4926966905800242`*^9}, {3.492696734312909*^9, 3.492696762448355*^9}, {3.4926968924247365`*^9, 3.4926969666311903`*^9}, 3.492697064677194*^9, {3.4926973210858917`*^9, 3.492697331871401*^9}, { 3.4926973943011703`*^9, 3.492697432836581*^9}, {3.492697486283434*^9, 3.492697493213399*^9}, {3.492697609240237*^9, 3.4926978239390945`*^9}, { 3.492697877165631*^9, 3.492698118077894*^9}, {3.4926981528078337`*^9, 3.492698157504587*^9}, {3.492698244154251*^9, 3.492698244654971*^9}, { 3.4926984974184275`*^9, 3.49269850154436*^9}, {3.4926985324588127`*^9, 3.492698622918888*^9}, {3.4926986837763968`*^9, 3.492698712788499*^9}, { 3.4926989262100673`*^9, 3.4926990415759554`*^9}, {3.492699108912781*^9, 3.4926991187669506`*^9}, {3.492699192012272*^9, 3.49269920347876*^9}, { 3.492699283719208*^9, 3.4926992858823185`*^9}, {3.4926993165864687`*^9, 3.4926993225149937`*^9}, {3.492699613543472*^9, 3.4926999789713826`*^9}, { 3.4927025086017156`*^9, 3.492702509713314*^9}, {3.492702637587188*^9, 3.492702639980629*^9}, {3.4927026763028584`*^9, 3.492702676503146*^9}, { 3.4928175821325645`*^9, 3.492817583835013*^9}, {3.4928177008632913`*^9, 3.4928177068519025`*^9}, {3.492856947654248*^9, 3.4928569504783087`*^9}, { 3.4928571530896497`*^9, 3.4928571759725533`*^9}, {3.492857288564453*^9, 3.492857336273054*^9}, {3.4928576688012066`*^9, 3.4928576793263407`*^9}, { 3.4928636806948195`*^9, 3.4928636859724083`*^9}, {3.492863790312442*^9, 3.49286381536847*^9}, {3.492877865837265*^9, 3.492877938597926*^9}, { 3.4928779731364784`*^9, 3.4928779771074095`*^9}, {3.4928826507493496`*^9, 3.492882651545494*^9}, {3.492882710970944*^9, 3.492882816422576*^9}, { 3.4928830617703686`*^9, 3.4928831038608923`*^9}, {3.492883164848588*^9, 3.492883169790694*^9}, 3.4928833139980545`*^9, {3.492883567127036*^9, 3.4928835759447155`*^9}, {3.4928844189118423`*^9, 3.49288443071882*^9}, { 3.492884802278096*^9, 3.4928848092030535`*^9}, {3.492884892032156*^9, 3.492884903673896*^9}, {3.4928850421880693`*^9, 3.4928850603642054`*^9}, { 3.4928852178333693`*^9, 3.4928854336632395`*^9}, {3.4928860358603544`*^9, 3.492886040952677*^9}, {3.492886656913385*^9, 3.4928866858149433`*^9}, 3.492886723218727*^9, {3.492886789283724*^9, 3.4928868331017313`*^9}, { 3.4928931807842736`*^9, 3.492893188625549*^9}, {3.4931301016597943`*^9, 3.493130103222041*^9}, {3.4932899980091777`*^9, 3.493290016175299*^9}, { 3.4932900895908656`*^9, 3.4932901310304527`*^9}, {3.493290447655738*^9, 3.4932904678247395`*^9}, {3.4932905433934016`*^9, 3.4932905480100403`*^9}, {3.4932906470624704`*^9, 3.493290653021038*^9}, { 3.4932908192600784`*^9, 3.4932908248180704`*^9}, {3.493290865586693*^9, 3.4932908664879885`*^9}, {3.493291323555219*^9, 3.4932914046117725`*^9}, 3.493291439341712*^9, {3.4932916075636034`*^9, 3.4932916107982545`*^9}, { 3.5079265451628017`*^9, 3.5079265453530755`*^9}, {3.5079267040112147`*^9, 3.507926730599447*^9}, {3.5079275829610505`*^9, 3.507927743682156*^9}, { 3.5079278172579527`*^9, 3.5079278245083785`*^9}, 3.507927870083913*^9, { 3.5079279731320887`*^9, 3.5079279825556393`*^9}, {3.507928245884287*^9, 3.5079282563593493`*^9}, 3.5079283385875883`*^9, {3.50792866276373*^9, 3.5079286672702103`*^9}, {3.5079286996267366`*^9, 3.5079287095810504`*^9}, {3.507928799380175*^9, 3.507928835021425*^9}, { 3.507928878764324*^9, 3.507928901046364*^9}, {3.5079294464406023`*^9, 3.5079294499856997`*^9}, {3.5079296248471384`*^9, 3.507929629163345*^9}, { 3.5079298106142583`*^9, 3.5079298468263288`*^9}, {3.5079299137725925`*^9, 3.5079299232762585`*^9}, {3.50793017577934*^9, 3.5079301998539577`*^9}, { 3.5079303217392197`*^9, 3.507930326576175*^9}, {3.5079304222539034`*^9, 3.5079304252769513`*^9}, {3.5079304874125147`*^9, 3.5079305177561464`*^9}, {3.5079815280011773`*^9, 3.5079815518554783`*^9}, {3.508019874587063*^9, 3.508019879353917*^9}, { 3.508765099115571*^9, 3.508765122999915*^9}, {3.5211469204557405`*^9, 3.5211469403688793`*^9}, {3.521147176533387*^9, 3.521147186874979*^9}, 3.521147233427642*^9, {3.5211482924422135`*^9, 3.5211483020037603`*^9}, { 3.521148347172344*^9, 3.521148373636858*^9}, 3.5211484790418863`*^9, { 3.5211490263371897`*^9, 3.5211490301774096`*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Regular ESS", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928843532674503`*^9, 3.492884357158045*^9}, {3.4933791612990637`*^9, 3.493379172795595*^9}, {3.493414446350122*^9, 3.4934144598595476`*^9}, 3.5106571861789775`*^9}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "RegularESSTest", "]"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RegularESSTest", "::", "usage"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RegularESSTest", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RegularESSTest", "[", RowBox[{"x_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "k", ",", "dim", ",", "subdim", ",", "s", ",", "xv", ",", "DFx", ",", "Project", ",", "matrix", ",", "support", ",", "es", ",", "result"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dim", "=", RowBox[{ RowBox[{"Dimensions", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"reducedx", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"boundaryvector", "[", RowBox[{"[", "j", "]"}], "]"}], "==", "0"}], ",", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdim", "=", RowBox[{ RowBox[{"Dimensions", "[", "reducedx", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"xv", "=", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "dim"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "DF", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ToExpression", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", RowBox[{"ToString", "[", RowBox[{"EmptyVector", "[", RowBox[{"\"\\"", ",", "dim", ",", "\"\<_\>\""}], "]"}], "]"}], ",", "\"\<]:=Evaluate[D[F[\>\"", ",", RowBox[{"ToString", "[", "xv", "]"}], ",", "\"\<],{\>\"", ",", RowBox[{"ToString", "[", "xv", "]"}], ",", "\"\<}]];\>\""}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"MatrixForm", "[", RowBox[{"DF", "[", "x", "]"}], "]"}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DFx", "=", RowBox[{"DF", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "DF", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"DFx", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", "dim"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", RowBox[{"{", "s", "}"}], ",", RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"dim", "-", "j"}], ")"}]}]}], "]"}]}], "]"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DFx", "=", RowBox[{"Join", "[", RowBox[{"DFx", ",", RowBox[{"{", RowBox[{"ND", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", RowBox[{"{", "s", "}"}], ",", RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"dim", "-", "j"}], ")"}]}]}], "]"}]}], "]"}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DFx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ND", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", RowBox[{"{", "s", "}"}], ",", RowBox[{"Take", "[", RowBox[{"x", ",", RowBox[{"-", RowBox[{"(", RowBox[{"dim", "-", "j"}], ")"}]}]}], "]"}]}], "]"}], "]"}], ",", "s", ",", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "dim"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DFx", " ", "=", " ", RowBox[{"Transpose", "[", "DFx", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"matrix", "=", RowBox[{"DFx", "+", RowBox[{"Transpose", "[", "DFx", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"support", "=", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "dim"}], "]"}], "-", RowBox[{"CheckBoundary", "[", RowBox[{"x", ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"matrix", "=", RowBox[{"SubMatrix", "[", RowBox[{"matrix", ",", "support"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"subdim", "=", RowBox[{ RowBox[{"Dimensions", "[", "matrix", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Project", "=", RowBox[{ RowBox[{"IdentityMatrix", "[", "subdim", "]"}], "-", RowBox[{ RowBox[{"1", "/", "subdim"}], "*", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"subdim", ",", "subdim"}], "}"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"matrix", "=", RowBox[{"Project", ".", "matrix", ".", "Project"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Eigensystem", "[", "matrix", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "==", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}], "==", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j", ",", "1"}], "]"}], "]"}], ",", "subdim"}], "]"}]}]}], ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"es", "[", RowBox[{"[", RowBox[{"1", ",", "j"}], "]"}], "]"}], ",", RowBox[{"es", "[", RowBox[{"[", RowBox[{"2", ",", "j"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"es", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"es", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "es", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"Max", "[", "es", "]"}], ",", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "accuracy"}], ")"}]}]}], "]"}], "<", "0"}], ",", RowBox[{"result", "=", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"Max", "[", "es", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"Min", "[", "es", "]"}], "==", "0"}]}], "]"}], ",", RowBox[{"result", "=", RowBox[{"-", "1"}]}], ",", RowBox[{"result", "=", " ", "0"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"Replicator", ",", " ", RowBox[{"1", "-", "2", "-", RowBox[{"3", " ", "coord", "\[IndentingNewLine]", RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}], ",", "Replicator", ",", "F", ",", "\"\\"", ",", "10"}], "]"}], "\[IndentingNewLine]", RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.6", ",", "0.4"}], "}"}], ",", "Replicator", ",", "F", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "Replicator", ",", "F"}], "]"}]}]}]}], "\[IndentingNewLine]", "*)"}]}]}], "Input", CellChangeTimes->{{3.474715115255108*^9, 3.474715123096383*^9}, { 3.474750910023591*^9, 3.4747509146895523`*^9}, {3.481418886197138*^9, 3.481418886257224*^9}, {3.4817354835448465`*^9, 3.481735483624962*^9}, { 3.48181749117215*^9, 3.4818174942265425`*^9}, 3.4818175865292673`*^9, { 3.489675763578027*^9, 3.489675873818288*^9}, {3.489785598683547*^9, 3.4897856440587935`*^9}, {3.49237910090625*^9, 3.49237910209375*^9}, { 3.49237913315625*^9, 3.492379151359375*^9}, {3.492379210390625*^9, 3.49237924003125*^9}, {3.492379317296875*^9, 3.492379332*^9}, { 3.49237936209375*^9, 3.492379451953125*^9}, {3.492379517359375*^9, 3.492379531265625*^9}, {3.492379716265625*^9, 3.4923797461875*^9}, { 3.492379883828125*^9, 3.492379889296875*^9}, {3.492379930140625*^9, 3.492379994125*^9}, {3.49238009878125*^9, 3.492380113140625*^9}, 3.4923807724375*^9, {3.49238080425*^9, 3.49238084190625*^9}, { 3.4923808950625*^9, 3.492380897484375*^9}, {3.49238101340625*^9, 3.492381108796875*^9}, {3.49238114659375*^9, 3.4923811901875*^9}, { 3.4923812591875*^9, 3.492381376359375*^9}, {3.492381613921875*^9, 3.492381632640625*^9}, {3.492381709359375*^9, 3.49238176990625*^9}, { 3.4923818083125*^9, 3.492381849796875*^9}, {3.492381892984375*^9, 3.492381937421875*^9}, {3.492382001421875*^9, 3.492382151046875*^9}, { 3.49238220828125*^9, 3.49238230375*^9}, {3.4923833268125*^9, 3.492383401375*^9}, 3.492383436609375*^9, {3.4923890745813046`*^9, 3.4923890750031796`*^9}, {3.4923892254875546`*^9, 3.4923892461750546`*^9}, {3.4923893093938046`*^9, 3.4923893293156796`*^9}, 3.4923893621750546`*^9, {3.4923894555969296`*^9, 3.4923895083781796`*^9}, { 3.4923895475656796`*^9, 3.4923895500969296`*^9}, {3.4923895919875546`*^9, 3.4923895927688046`*^9}, {3.4923897556594296`*^9, 3.4923897763156796`*^9}, {3.4923898126281796`*^9, 3.4923901057375546`*^9}, {3.4923901490656796`*^9, 3.4923902065813046`*^9}, {3.4923902863625546`*^9, 3.4923902913156796`*^9}, {3.4923909770813046`*^9, 3.4923909873781796`*^9}, {3.4923911478469296`*^9, 3.4923911614719296`*^9}, {3.4923915060656796`*^9, 3.4923915147063046`*^9}, {3.4923915529563046`*^9, 3.4923915551594296`*^9}, {3.4924594902949204`*^9, 3.4924595552783623`*^9}, {3.4924596130013638`*^9, 3.492459616987095*^9}, { 3.492459657605501*^9, 3.492459666187842*^9}, {3.492460328189754*^9, 3.4924603454045076`*^9}, {3.492460806046879*^9, 3.492460934882135*^9}, { 3.49246098093836*^9, 3.4924609982132006`*^9}, {3.49246221805725*^9, 3.492462219939957*^9}, {3.4924622671478386`*^9, 3.4924622722451687`*^9}, { 3.492462407599799*^9, 3.4924624299719687`*^9}, {3.4924624797435365`*^9, 3.492462483238562*^9}, {3.4924627260076466`*^9, 3.4924628079755106`*^9}, { 3.49246293133289*^9, 3.492463027280856*^9}, {3.492463241408757*^9, 3.492463245434546*^9}, {3.492463530814903*^9, 3.4924635316861553`*^9}, { 3.492465940559946*^9, 3.492466030939906*^9}, {3.492473116338208*^9, 3.4924731246802034`*^9}, {3.4924732190659237`*^9, 3.4924732649719334`*^9}, {3.4924732968778114`*^9, 3.4924732992311954`*^9}, {3.49247481459525*^9, 3.492474816558072*^9}, { 3.492476066385236*^9, 3.4924760684882593`*^9}, {3.4924772069252515`*^9, 3.4924773442126613`*^9}, {3.492477471896261*^9, 3.492477475871978*^9}, { 3.4925115413541183`*^9, 3.4925115439178047`*^9}, {3.492511606317531*^9, 3.492511615230347*^9}, {3.4925117778241453`*^9, 3.4925118154582605`*^9}, { 3.492511893730811*^9, 3.492511925726819*^9}, {3.492512300605869*^9, 3.4925123092583103`*^9}, 3.492512382273301*^9, {3.4925125022658415`*^9, 3.4925125591476336`*^9}, {3.492512683987144*^9, 3.4925126958942657`*^9}, { 3.4925127501522846`*^9, 3.4925127597260513`*^9}, 3.492512801185667*^9, { 3.4925130030359135`*^9, 3.4925130040373535`*^9}, {3.4925139399331055`*^9, 3.492513955235109*^9}, {3.4925140254761105`*^9, 3.4925141280135517`*^9}, { 3.492516660975773*^9, 3.49251669181011*^9}, {3.492516748381456*^9, 3.4925168477843904`*^9}, {3.492516886199629*^9, 3.492516958463539*^9}, { 3.492516989067546*^9, 3.492517010207944*^9}, {3.4925171923097935`*^9, 3.492517198698981*^9}, {3.4925172600471954`*^9, 3.492517295167696*^9}, 3.492517388031227*^9, {3.492517423902808*^9, 3.492517460555512*^9}, { 3.4925175472201295`*^9, 3.492517597933051*^9}, {3.492518873687496*^9, 3.492518874889224*^9}, {3.4925189176106544`*^9, 3.4925189605223584`*^9}, { 3.4925194897633696`*^9, 3.49251956653376*^9}, {3.4925197590606003`*^9, 3.4925197837460957`*^9}, {3.4925204148635983`*^9, 3.492520419460208*^9}, { 3.4925205526717567`*^9, 3.492520561294155*^9}, {3.492522162391488*^9, 3.4925221679194365`*^9}, {3.492531167107565*^9, 3.4925311961092677`*^9}, { 3.49253211714365*^9, 3.492532152013791*^9}, {3.4925321821471205`*^9, 3.492532291634556*^9}, {3.492532325713559*^9, 3.4925323356378293`*^9}, { 3.4925323669027863`*^9, 3.4925324973403463`*^9}, {3.4925327186385574`*^9, 3.4925327346615973`*^9}, {3.4925327793057923`*^9, 3.492532782981077*^9}, { 3.492532852571143*^9, 3.4925328533622804`*^9}, {3.4925329144501204`*^9, 3.4925330995462756`*^9}, {3.492533139663962*^9, 3.492533142518066*^9}, { 3.4925332367335415`*^9, 3.4925332671973457`*^9}, {3.492533312041829*^9, 3.4925333187715063`*^9}, {3.4925333492252965`*^9, 3.4925334183246565`*^9}, {3.4925334999219875`*^9, 3.492533605884354*^9}, { 3.492541976871378*^9, 3.492541982529514*^9}, {3.4925420513985424`*^9, 3.4925421408271346`*^9}, {3.4925421824870386`*^9, 3.492542284944365*^9}, { 3.4925423477947397`*^9, 3.492542358069514*^9}, {3.492542391227192*^9, 3.4925423944418144`*^9}, {3.4925424623895187`*^9, 3.4925424757587423`*^9}, {3.492542514975133*^9, 3.4925425158163424`*^9}, { 3.492542564296053*^9, 3.4925425971733284`*^9}, {3.492698138447184*^9, 3.4926981626219454`*^9}, {3.4927018364584103`*^9, 3.492701844830448*^9}, 3.4927025707010098`*^9, {3.492702605981741*^9, 3.49270260659262*^9}, { 3.4927026692126627`*^9, 3.492702669553152*^9}, {3.492725726818954*^9, 3.492725728952021*^9}, 3.492725824960074*^9, {3.4927264126150804`*^9, 3.492726419565074*^9}, {3.4931286675676713`*^9, 3.49312866849901*^9}, { 3.493379202558392*^9, 3.4933793049456177`*^9}, {3.49337968228821*^9, 3.493379699693237*^9}, {3.4933808044918594`*^9, 3.4933808064747105`*^9}, { 3.4933808668114705`*^9, 3.493380886099205*^9}, 3.4933811162000737`*^9, { 3.493381158200467*^9, 3.4933812481898656`*^9}, {3.4933814214289713`*^9, 3.4933815599080944`*^9}, 3.4933888787371216`*^9, {3.493388928248315*^9, 3.493389010987288*^9}, 3.493389045216507*^9, {3.493389110600525*^9, 3.493389148114467*^9}, {3.4933892362712307`*^9, 3.4933893037082*^9}, { 3.493389357355341*^9, 3.4933893884400387`*^9}, 3.493389617339179*^9, { 3.4933897523833632`*^9, 3.4933897589928675`*^9}, 3.493389830796115*^9, { 3.49338989566638*^9, 3.4933899159443817`*^9}, {3.493389998081728*^9, 3.4933900800195484`*^9}, {3.493390224407168*^9, 3.4933902609096556`*^9}, { 3.4933903002462187`*^9, 3.493390501595745*^9}, {3.4933914914998307`*^9, 3.493391506142449*^9}, {3.4933915777941594`*^9, 3.493391593907329*^9}, { 3.4933916617258153`*^9, 3.4933916921478024`*^9}, {3.4933917408236523`*^9, 3.4933917770156937`*^9}, {3.4933918240833735`*^9, 3.49339189624714*^9}, { 3.4933920176316824`*^9, 3.493392075224497*^9}, {3.4934026889037447`*^9, 3.493402694171319*^9}, {3.4934043842415204`*^9, 3.4934044108597956`*^9}, { 3.4934044521691957`*^9, 3.493404519295719*^9}, {3.4934045944137335`*^9, 3.493404603596938*^9}, {3.4934157408265553`*^9, 3.4934158043679237`*^9}, { 3.493417776123168*^9, 3.4934178496589074`*^9}, {3.4934202118255363`*^9, 3.493420257060581*^9}, {3.4934203244975505`*^9, 3.493420332148552*^9}, { 3.493420394658437*^9, 3.493420395129114*^9}, {3.4934222485141506`*^9, 3.493422264447061*^9}, {3.4934223093215876`*^9, 3.4934223384634914`*^9}, { 3.493422399210842*^9, 3.4934225211762195`*^9}, {3.493422689187808*^9, 3.4934227712357874`*^9}, {3.493423147887386*^9, 3.4934232863765235`*^9}, { 3.4934243872394867`*^9, 3.493424398165197*^9}, {3.5079815580143337`*^9, 3.507981589785018*^9}, {3.508782334457738*^9, 3.5087823466252337`*^9}, { 3.508782700143568*^9, 3.5087827118203583`*^9}, {3.5087909837718678`*^9, 3.508791007325736*^9}, {3.508791067151762*^9, 3.5087910740016117`*^9}, { 3.508791235423725*^9, 3.508791263914693*^9}, {3.508792044286813*^9, 3.5087921068868275`*^9}, 3.508792174323797*^9, {3.5087951388467073`*^9, 3.5087951577338657`*^9}, {3.508795883507477*^9, 3.5087959260186048`*^9}, { 3.5091973653984823`*^9, 3.50919746633362*^9}, {3.5106571945382643`*^9, 3.5106572028650045`*^9}, {3.519419993921773*^9, 3.5194199943687987`*^9}, { 3.519671549984226*^9, 3.519671562278929*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"RegularESSs", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RegularESSs", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RegularESSs", "[", RowBox[{"points_", ",", "F_", ",", RowBox[{"method_:", "\"\\""}], ",", RowBox[{"accuracy_:", "8"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "j", ",", "stableqstrictequilibria", ",", "unstableqstrictequilibria"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"stableqstrictequilibria", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"unstableqstrictequilibria", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"QuasiStrictEqQ", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F", ",", "method", ",", "accuracy"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stableqstrictequilibria", "=", RowBox[{"Append", "[", RowBox[{"stableqstrictequilibria", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstableqstrictequilibria", "=", RowBox[{"Append", "[", RowBox[{"unstableqstrictequilibria", ",", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"stableqstrictequilibria", ",", "unstableqstrictequilibria"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4934023382595425`*^9, 3.4934023397216454`*^9}, { 3.4934027092429905`*^9, 3.4934028096673937`*^9}, {3.4934028463501415`*^9, 3.4934028999472103`*^9}, {3.4934030152329826`*^9, 3.493403043854138*^9}, { 3.4934035796445665`*^9, 3.4934035883370657`*^9}, {3.4934036631446342`*^9, 3.4934036819216337`*^9}, {3.4934037368706465`*^9, 3.493403856492655*^9}, { 3.493403919803692*^9, 3.4934040549380054`*^9}, {3.4934040986809044`*^9, 3.4934041010643315`*^9}, {3.4934043046370544`*^9, 3.4934043161736436`*^9}, {3.507981594561887*^9, 3.507981594847297*^9}, { 3.510657203633524*^9, 3.5106572061615486`*^9}, {3.510666318112857*^9, 3.510666319454787*^9}, 3.5106664544689274`*^9, {3.510666521715624*^9, 3.5106665420849133`*^9}, {3.5106665869093676`*^9, 3.5106666926313887`*^9}, {3.5106667884892254`*^9, 3.510666804452179*^9}, { 3.5106668412951565`*^9, 3.510666878548724*^9}, {3.5106669919117327`*^9, 3.510666995657118*^9}, {3.5106726073219995`*^9, 3.5106726216926637`*^9}, { 3.510672813788884*^9, 3.510672814700195*^9}, {3.5106738885644712`*^9, 3.5106738955745516`*^9}, {3.5106739339297037`*^9, 3.51067394684828*^9}, { 3.510674205960865*^9, 3.510674283001644*^9}}, CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell["Stability Sets Routine", "Subsubsection", CellChangeTimes->{{3.492884015927379*^9, 3.4928840408181705`*^9}, { 3.4928841378877497`*^9, 3.4928841991608562`*^9}, {3.492884378623911*^9, 3.492884381042389*^9}, {3.4934025879886355`*^9, 3.493402592214712*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"StabilitySets", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StabilitySets", "::", "notes"}], "=", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StabilitySets", "[", RowBox[{"points_", ",", "dyn_", ",", "F_", ",", " ", RowBox[{"method_:", "\"\\""}], ",", " ", RowBox[{"n_:", "5"}], ",", RowBox[{"T_:", "1"}], ",", " ", RowBox[{"delta_:", ".001"}], ",", " ", RowBox[{"eps_:", ".01"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "stablepoints", ",", "unstablepoints", ",", "flag"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"stablepoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F"}], "]"}], "==", "1"}], ","}], " "}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"SmoothStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "Replicator", ",", "F"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ","}], " "}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"method", "==", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<=", RowBox[{ RowBox[{"Dimensions", "[", "points", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"QuasiStrictEqQ", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "=", RowBox[{"RegularESSTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "F"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"flag", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "the", " ", "proofs", " ", "in", " ", "chapter", " ", "8", " ", "go", " ", "in", " ", "one", " ", "direction", " ", "only"}], ";", " ", RowBox[{ RowBox[{"if", " ", RowBox[{"it", "'"}], "s", " ", "not", " ", "an", " ", "ESS", " ", "we", " ", RowBox[{"don", "'"}], "t", " ", "know", " ", "if", " ", RowBox[{"it", "'"}], "s", " ", "unstable", "\[IndentingNewLine]", "flag"}], "==", "0"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ","}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{"Or", "[", RowBox[{ RowBox[{"flag", "==", "0"}], ",", RowBox[{"flag", "==", RowBox[{"-", "1"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumericStabilityTest", "[", RowBox[{ RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "dyn", ",", "F", ",", "n", ",", "T", ",", "delta", ",", "eps"}], "]"}], "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"stablepoints", "=", RowBox[{"Join", "[", RowBox[{"stablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"unstablepoints", "=", RowBox[{"Join", "[", RowBox[{"unstablepoints", ",", RowBox[{"{", RowBox[{"points", "[", RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"stablepoints", ",", "unstablepoints"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4927014886037645`*^9, 3.4927015660595956`*^9}, { 3.492701596373184*^9, 3.4927016910393076`*^9}, {3.4927017510255637`*^9, 3.492701802529623*^9}, {3.4927019066493397`*^9, 3.4927019097738323`*^9}, 3.492702004740388*^9, {3.492702051217218*^9, 3.492702155071621*^9}, { 3.4927021862464485`*^9, 3.4927024897446003`*^9}, {3.492702653990775*^9, 3.4927026814202166`*^9}, {3.4927027199055557`*^9, 3.4927028513145123`*^9}, {3.4927028962290964`*^9, 3.492702962334151*^9}, { 3.4928108178909955`*^9, 3.492810822707922*^9}, {3.492810907419731*^9, 3.492810912977723*^9}, {3.4928177103469276`*^9, 3.492817712129491*^9}, { 3.49283163300179*^9, 3.492831678537267*^9}, {3.4928569541535935`*^9, 3.492856956707266*^9}, {3.493401751716135*^9, 3.4934018535725975`*^9}, 3.4934022637824497`*^9, {3.4934022987026625`*^9, 3.4934023125926356`*^9}, { 3.4934024462348037`*^9, 3.4934024626984773`*^9}, {3.4934033676998053`*^9, 3.4934034307504673`*^9}, {3.493403485409063*^9, 3.4934035066496053`*^9}, { 3.4934036151456146`*^9, 3.4934036387295265`*^9}, {3.495989676751183*^9, 3.4959895112568703`*^9}, {3.4959903253786573`*^9, 3.495990428166459*^9}, { 3.495990619000865*^9, 3.4959906655678253`*^9}, {3.5079272779825125`*^9, 3.507927298151514*^9}, {3.5079815991885395`*^9, 3.507981615501997*^9}, { 3.508764909442835*^9, 3.5087649138792143`*^9}, 3.508765050425558*^9, { 3.5087652861445055`*^9, 3.5087652861945777`*^9}, {3.508767802342621*^9, 3.508767838154115*^9}, {3.5087710560812674`*^9, 3.508771062610656*^9}, { 3.508771135765848*^9, 3.508771146230896*^9}, {3.508771228018501*^9, 3.508771286182136*^9}, {3.5087713201710095`*^9, 3.5087713316575265`*^9}, { 3.508771570170491*^9, 3.508771580265006*^9}, {3.508779364537202*^9, 3.508779368593034*^9}, {3.5087794324949203`*^9, 3.5087794404363394`*^9}, { 3.508781684262803*^9, 3.508781692544712*^9}, {3.5087822409933424`*^9, 3.5087822416042213`*^9}, {3.508782271697493*^9, 3.5087822809407845`*^9}, { 3.508782768341632*^9, 3.508782768732194*^9}, 3.5087842802807617`*^9, { 3.5087903104686375`*^9, 3.5087903446978564`*^9}, {3.509197501934812*^9, 3.5091975396290135`*^9}, {3.509197572015583*^9, 3.509197692428729*^9}, { 3.509197742360527*^9, 3.5091978036786985`*^9}, {3.5106572191822433`*^9, 3.5106572444920964`*^9}, {3.510942415361717*^9, 3.5109424213302994`*^9}, { 3.5109427296736755`*^9, 3.51094273494125*^9}, {3.5196718445260725`*^9, 3.519671912969988*^9}, {3.521051877011013*^9, 3.521051911009958*^9}, { 3.521052016100969*^9, 3.521052031556853*^9}, {3.5210520798266134`*^9, 3.5210520801796336`*^9}}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FixPolygons", "Subsection", CellChangeTimes->{{3.4818469396171713`*^9, 3.481846942020627*^9}, { 3.491933553724511*^9, 3.4919335567498555`*^9}}, CellTags->"initcell"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FixPolygons", "::", "usage"}], " ", "=", "\n", "\"\ , ]:\n Joins all contiguous \ polygons into a single shape. \n This can dramatically improve the image \ quality and \n decrease the file size of a ContourPlot or RegionPlot.\n\n\ Possible options (with defaults) are:\n EarlyCleanupThreshold \[Rule] 1\n\ \>\""}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"EarlyCleanupThreshold", "::", "usage"}], " ", "=", " ", "\n", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Options", "[", "FixPolygons", "]"}], "=", RowBox[{"{", "\n", " ", RowBox[{"EarlyCleanupThreshold", " ", "->", " ", "1"}], "\n", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}], "\n", RowBox[{"(*", " ", "\[IndentingNewLine]", RowBox[{ "FixPolygons", " ", "function", "\n", "Delve", " ", "into", " ", "GraphicsComplex", " ", "and", " ", "grab", " ", "polygons", " ", "to", " ", RowBox[{"combine", ":"}]}], "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FixPolygons", "[", RowBox[{"graf_", ",", RowBox[{"OptionsPattern", "[", "FixPolygons", "]"}]}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{ RowBox[{"graf", " ", "//.", " ", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "a__", "}"}], ",", "c___"}], "]"}], ",", "\n", " ", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "b__", "}"}], ",", "c___"}], "]"}], ",", "d___"}], "}"}], " ", "->", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "c"}], "]"}], ",", "d"}], "}"}]}]}], " ", "/.", " ", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", "ab__", "}"}], ",", "c___"}], "]"}], ",", "d___"}], "}"}], " ", ":>", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{ RowBox[{"cleanup", "[", RowBox[{ RowBox[{"{", "ab", "}"}], ",", "\n", " ", RowBox[{"OptionValue", "[", "EarlyCleanupThreshold", "]"}]}], "]"}], ",", "c"}], "]"}], ",", "d"}], "}"}]}]}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{"Cleanup", " ", "polygons"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "vert", ",", "uvert", ",", "cvert", ",", "nvert", ",", "i", ",", "plist"}], "}"}], ",", "\n", RowBox[{ RowBox[{ RowBox[{"cleanup", "[", RowBox[{"polylist_", ",", "ect_"}], "]"}], ":=", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{"plist", " ", "=", " ", "polylist"}], ";", "\n", "\n", RowBox[{"(*", " ", RowBox[{ "Makes", " ", "up", " ", "a", " ", "list", " ", "of", " ", "the", " ", "occurrences", " ", "of", " ", "vertices", " ", "in", " ", "polygon", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"vert", " ", "=", " ", RowBox[{"Sort", "[", RowBox[{"Flatten", "[", "plist", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{"uvert", " ", "=", " ", RowBox[{"Union", "[", "vert", "]"}]}], ";", " ", RowBox[{"nvert", "=", RowBox[{"Length", "@", "uvert"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Counts", " ", "the", " ", "occurrences", " ", "of", " ", "vertices", " ", "in", " ", "polygon", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"cvert", " ", "=", " ", RowBox[{"Length", " ", "/@", " ", RowBox[{"Split", "@", "vert"}]}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Preliminary", " ", "cleanup", " ", "based", " ", "on", " ", "EarlyCleanupThreshold", " ", "option"}], " ", "*)"}], "\n", " ", RowBox[{"vert", " ", "=", " ", RowBox[{"DeleteCases", "[", "\n", " ", RowBox[{ RowBox[{"Transpose", "@", RowBox[{"{", RowBox[{"uvert", ",", "cvert"}], "}"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "a_"}], "}"}], "/;", RowBox[{"a", "<=", "ect"}]}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Cleans", " ", "up", " ", "the", " ", "vertex", " ", "list"}], " ", "*)"}], "\n", " ", RowBox[{"Do", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "@", "vert"}], "==", "0"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", " ", RowBox[{ RowBox[{"{", RowBox[{"plist", ",", "vert"}], "}"}], " ", "=", " ", RowBox[{"refine", "[", RowBox[{ RowBox[{"{", RowBox[{"plist", ",", "vert"}], "}"}], ",", RowBox[{"vert", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", "ect"}], "]"}]}], ";"}], "\n", " ", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nvert"}], "}"}]}], "]"}], ";", "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Output", " ", "and", " ", "finish", " ", "up"}], ",", " ", RowBox[{ "with", " ", "a", " ", "final", " ", "cleanup", " ", "from", " ", "residual", " ", "creaks"}]}], " ", "*)"}], "\n", " ", RowBox[{"plist", " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"c_", ",", "a_", ",", "b___", ",", "a_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{"c___", ",", "a_", ",", "b_", ",", "a_", ",", "d___"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"c", ",", "a", ",", "d"}], "}"}]}]}], "}"}]}]}], "\n", ")"}]}], ";"}]}], "\n", "]"}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{"Clean", " ", "up", " ", "vertices", " ", "of", " ", "polygons"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ri", ",", "rj", ",", "lvp", ",", "nvl", ",", "ncl", ",", "ppoly", ",", "vpoly"}], "}"}], ",", "\n", RowBox[{ RowBox[{ RowBox[{"refine", "[", RowBox[{ RowBox[{"{", RowBox[{"cl_", ",", "vl_"}], "}"}], ",", "iv_", ",", "ect_"}], "]"}], ":=", RowBox[{"(", "\n", RowBox[{"(*", " ", RowBox[{ "Gets", " ", "the", " ", "polygons", " ", "having", " ", "the", " ", "shared", " ", "vertex"}], " ", "*)"}], "\n", " ", RowBox[{ RowBox[{"ppoly", " ", "=", " ", RowBox[{"Position", "[", RowBox[{"cl", ",", RowBox[{"{", RowBox[{"___", ",", "iv", ",", "___"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"nvl", " ", "=", " ", "vl"}], ";", "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"cl", "[", RowBox[{"[", RowBox[{"Flatten", "[", "ppoly", "]"}], "]"}], "]"}]}], ";", "\n", " ", RowBox[{"lvp", " ", "=", " ", RowBox[{"Length", "@", "vpoly"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Puts", " ", "all", " ", "the", " ", "polygons", " ", "in", " ", "a", " ", "position", " ", "where", " ", "the", " ", "shared", " ", "vertex", " ", "is", " ", "at", " ", "position", " ", "1"}], " ", "*)"}], "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Table", "[", "\n", " ", RowBox[{ RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", "iv"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "1"}]}], "]"}], "\n", " ", ",", RowBox[{"{", RowBox[{"ri", ",", "1", ",", "lvp"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Finds", " ", "the", " ", "neighbours", " ", "of", " ", "the", " ", "polygon", " ", "to", " ", "be", " ", "deleted"}], " ", "*)"}], "\n", " ", RowBox[{"ri", " ", "=", " ", "1"}], ";", "\n", " ", RowBox[{"rj", " ", "=", " ", "2"}], ";", "\n", " ", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"ri", " ", "<=", " ", "lvp"}], " ", "&&", " ", RowBox[{"rj", " ", "<=", " ", "lvp"}]}], " ", ",", "\n", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], " ", "==", " ", RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"rj", ",", RowBox[{"-", "1"}]}], "]"}], "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], ",", "a_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", RowBox[{"ri", ",", "2"}], "]"}], "]"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}]}]}], ";", "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Prepend", "[", "\n", " ", RowBox[{ RowBox[{"Delete", "[", RowBox[{"vpoly", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "ri", "}"}], ",", RowBox[{"{", "rj", "}"}]}], "}"}]}], "]"}], ",", "\n", "\t\t", RowBox[{"Join", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "rj", "]"}], "]"}], ",", RowBox[{"Drop", "[", RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], ",", "2"}], "]"}]}], "]"}]}], "]"}]}], ";", "\n", "\t ", RowBox[{"lvp", "--"}], ";", "\n", " ", RowBox[{"ri", " ", "=", " ", RowBox[{"rj", " ", "=", " ", "1"}]}]}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{"rj", "++"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rj", "==", "ri"}], ",", " ", RowBox[{"rj", "++"}]}], "]"}], ";", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"rj", ">", "lvp"}], ",", " ", RowBox[{ RowBox[{"ri", "++"}], ";", " ", RowBox[{"rj", "=", "1"}]}]}], "]"}], ";"}]}], "\n", " ", "]"}], ";", "\n", RowBox[{"(*", " ", RowBox[{ "Cleans", " ", "up", " ", "polygons", " ", "with", " ", "\"\\""}], " ", "*)"}], "\n", " ", RowBox[{"vpoly", " ", "=", " ", RowBox[{"Table", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"vpoly", "[", RowBox[{"[", "ri", "]"}], "]"}], " ", "//.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"c_", ",", "a_", ",", "b___", ",", "a_"}], "}"}], " ", ":>", " ", "\n", " ", RowBox[{"(", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"(", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "e_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"e", "-", "1"}]}], "}"}]}]}], ")"}]}], ";", "\n", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ")"}]}], ",", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{ "c___", ",", "a_", ",", "b_", ",", "a_", ",", "d___"}], "}"}], " ", ":>", " ", "\n", " ", RowBox[{"(", RowBox[{ RowBox[{"nvl", " ", "=", " ", RowBox[{"(", RowBox[{"nvl", " ", "/.", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "e_"}], "}"}], " ", ":>", " ", RowBox[{"{", RowBox[{"a", ",", RowBox[{"e", "-", "1"}]}], "}"}]}]}], ")"}]}], ";", "\n", " ", RowBox[{"{", RowBox[{"c", ",", "a", ",", "d"}], "}"}]}], ")"}]}]}], "}"}]}], "\n", " ", ",", RowBox[{"{", RowBox[{"ri", ",", "1", ",", "lvp"}], "}"}]}], "]"}]}], ";", "\n", " ", RowBox[{"ncl", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Delete", "[", RowBox[{"cl", ",", "ppoly"}], "]"}], ",", "vpoly"}], "]"}]}], ";", "\n", " ", RowBox[{"nvl", " ", "=", " ", RowBox[{"DeleteCases", "[", RowBox[{"nvl", ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"iv", ",", "_"}], "}"}], "|", RowBox[{"{", RowBox[{"_", ",", "a_"}], "}"}]}], "/;", RowBox[{"a", "<=", "ect"}]}]}], "]"}]}], ";", "\n", RowBox[{"(*", " ", RowBox[{"Output", " ", "and", " ", RowBox[{"finish", ":"}]}], " ", "*)"}], "\n", " ", RowBox[{"{", RowBox[{"ncl", ",", "nvl"}], "}"}]}], "\n", ")"}]}], ";"}]}], "\n", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"End", "[", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.491932849441802*^9, 3.491932860627887*^9}, { 3.491932897791325*^9, 3.4919330176036067`*^9}, {3.491933118518716*^9, 3.4919331766523075`*^9}, {3.4919332576187315`*^9, 3.491933290696295*^9}, 3.491933545793106*^9, {3.4919337991713257`*^9, 3.491933801694955*^9}, { 3.491933839899891*^9, 3.491933865837187*^9}}, CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Maintenance", "Section", CellOpen->True, CellChangeTimes->{{3.4818469396171713`*^9, 3.481846942020627*^9}, { 3.4932702180118704`*^9, 3.493270222878869*^9}, {3.493473759336*^9, 3.4934737604475985`*^9}}, CellTags->"maintenance"], Cell[CellGroupData[{ Cell["Reformat Open Cells", "Subsection", CellChangeTimes->{{3.513023706564459*^9, 3.5130237384302797`*^9}}, CellTags->{"lastopengroup", "opengroup"}], Cell[BoxData[{ RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"Options", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "]"}], ",", "CellTags"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], "==", "\"\<{lastopengroup, opengroup}\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\\"", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookFind", "[", RowBox[{ RowBox[{"SelectedNotebook", "[", "]"}], ",", "\"\\"", ",", " ", "Next", ",", " ", "CellTags", ",", " ", RowBox[{"AutoScroll", " ", "->", " ", "False"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "Input", CellChangeTimes->{{3.513023706564459*^9, 3.513023756886819*^9}}, CellTags->{"lastopengroup", "opengroup"}] }, Closed]], Cell[CellGroupData[{ Cell["Buttons", "Subsection", CellChangeTimes->{{3.513023706564459*^9, 3.5130237384302797`*^9}, { 3.5130237929887314`*^9, 3.5130237939901714`*^9}}, CellTags->{"lastopengroup", "opengroup"}], 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->False, 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}], 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->False, 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}], 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", Evaluatable->False, 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.4818960755886183`*^9, 3.481896078693082*^9}}, CellTags->"maintenance"] }, 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->False, 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}}], 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", Evaluatable->False, 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}}, 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]", "False"}], ",", RowBox[{"Evaluatable", "->", "False"}]}], "]"}], ";"}]}], "Input", Evaluatable->False, 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}}, CellTags->"maintenance"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Credits", "Subtitle"], Cell[TextData[{ "Dynamo\nVersion 1.1 (August 30, 2011)\nby William H. Sandholm, Emin \ Dokumaci and Francisco Franchetti\n\nmail:\t\t\tDepartment of Economics\n\t\t\ \tUniversity of Wisconsin\n\t\t\t1180 Observatory Drive\n\t\t\tMadison WI \ 53706\n\ne-mail:\t\t\twhs@ssc.wisc.edu\n\t\t\tedokumaci@wisc.edu\n\t\t\t\ franchetti@wisc.edu\n\t\nwebsites:\t\t", ButtonBox["http://www.ssc.wisc.edu/~whs/", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~whs/"], None}], "\n\t\t\t", ButtonBox["http://www.ssc.wisc.edu/~edokumac/\n\t\t\t", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~edokumac/"], None}], ButtonBox["https://mywebspace.wisc.edu/franchetti/web/", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mywebspace.wisc.edu/franchetti/web/"], None}, ButtonNote->"https://mywebspace.wisc.edu/franchetti/web/"], ButtonBox["\n\t\t\t", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~edokumac/"], None}], "\nDynamo website:\t", ButtonBox["http://www.ssc.wisc.edu/~whs/dynamo", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.ssc.wisc.edu/~whs/dynamo"], None}], "\n \nFinancial support from the National Science Foundation under Grants \ SES-0092145, SES-0617753, and SES-0851580 is gratefully acknowledged." }], "Text", CellChangeTimes->{{3.480864918617506*^9, 3.480864924476881*^9}, { 3.5061798563362703`*^9, 3.5061799631184635`*^9}, {3.5061801200899715`*^9, 3.5061801342102757`*^9}, {3.506180450374898*^9, 3.506180454801263*^9}, { 3.5061804883094454`*^9, 3.5061805177017093`*^9}, {3.511176805912285*^9, 3.511176828069092*^9}, 3.511176945637301*^9, {3.511176977750432*^9, 3.51117699896663*^9}, 3.51117703026584*^9, {3.5237327702053223`*^9, 3.523732775200923*^9}}, FontFamily->"Palatino"] }, Closed]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", WindowToolbars->{}, PrintAction->"PrintToNotebook", InitializationCellEvaluation->True, InitializationCellWarning->False, CellGrouping->Manual, WindowSize->{952, 1060}, WindowMargins->{{49, Automatic}, {Automatic, 47}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowSelection->True, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \ 2010)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Title"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 12], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 8], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> {"PagewiseDisplay" -> True}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{27, Inherited}, {10, 30}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{27, 10}, {10, 30}}, LineSpacing -> {1, 0}, FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "SlideShow"]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{27, Inherited}, {20, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{27, 10}, {20, 2}}, LineSpacing -> {1, 0}, FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "SlideShow"]], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{27, Inherited}, {8, 2}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "SlideShow"]], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, CellMargins -> {{27, Inherited}, {8, 34}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "SlideShow"]], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{60, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Verdana", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "SlideShow"]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{60, Inherited}, {10, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, CellFrameMargins -> 20, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Verdana", FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "CompatibilityType" -> 0, "Masked" -> False, "Outline" -> False, "RotationAngle" -> 0, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "SlideShow"]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Palatino"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Text", "SlideShow"]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{60, 3}, {4, 4}}, DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Trebuchet MS", FontSize -> 12, FontSlant -> "Italic"], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 12], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ StyleData["SmallText", "SlideShow"]], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 7]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{66, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["Input", "SlideShow"]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellMargins -> {{66, 10}, {7, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["InputOnly", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["InputOnly", "SlideShow"]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{66, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], Cell[ StyleData["Output", "SlideShow"]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0.6, 0.100008, 0.100008]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Message", "SlideShow"]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Print", "SlideShow"]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}], Cell[ StyleData["Graphics", "Condensed"], ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 0.6], Cell[ StyleData["Graphics", "SlideShow"]], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["CellLabel", "SlideShow"]], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FrameLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["FrameLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["FrameLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["FrameLabel", "SlideShow"]], Cell[ StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["InlineFormula", "SlideShow"]], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "SlideShow"]], Cell[ StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "SlideShow"]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{60, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, { "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}], Cell[ StyleData["Outline1", "SlideShow"]], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{90, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", CounterAssignments -> {{"Outline3", 0}, {"Outline4", 0}}, FontSize -> 15, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}], Cell[ StyleData["Outline2", "SlideShow"]], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{120, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "SlideShow"]], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{150, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "SlideShow"]], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Presentation"], FontSize -> 16], Cell[ StyleData["Hyperlink", "Condensed"], FontSize -> 11], Cell[ StyleData["Hyperlink", "SlideShow"]], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Presentation"], FontSize -> 16], Cell[ StyleData["MainBookLink", "Condensed"], FontSize -> 11], Cell[ StyleData["MainBookLink", "SlideShow"]], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Presentation"], FontSize -> 16], Cell[ StyleData["AddOnsLink", "Condensed"], FontSize -> 11], Cell[ StyleData["AddOnsLink", "SlideShow"]], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLink", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLink", "SlideShow"]], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLinkText"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLinkText", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLinkText", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLinkText", "SlideShow"]], Cell[ StyleData["RefGuideLinkText", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Presentation"], FontSize -> 16], Cell[ StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], Cell[ StyleData["GettingStartedLink", "SlideShow"]], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DemosLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[ StyleData["DemosLink", "SlideShow"]], Cell[ StyleData["DemosLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TourLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[ StyleData["TourLink", "SlideShow"]], Cell[ StyleData["TourLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Presentation"], FontSize -> 16], Cell[ StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], Cell[ StyleData["OtherInformationLink", "SlideShow"]], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MasterIndexLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[ StyleData["MasterIndexLink", "SlideShow"]], Cell[ StyleData["MasterIndexLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "SlideShow"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, DrawHighlighted -> True, FontSlant -> "Italic", Background -> RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "Condensed"]], Cell[ StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]], Cell[ StyleData["Completions"], StyleMenuListing -> None, FontFamily -> "Courier"]}, Closed]], Cell[ CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{66, 12}, {2, 24}}, PageBreakBelow -> False, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> GrayLevel[0.700008], CellFrameLabelMargins -> 4, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontColor -> GrayLevel[0.2]], Cell[ StyleData["MathCaption", "Presentation"], FontSize -> 18], Cell[ StyleData["MathCaption", "SlideShow"]], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{39, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectName"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["ObjectName", "Presentation"], FontSize -> 18], Cell[ StyleData["ObjectName", "SlideShow"]], Cell[ StyleData["ObjectName", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Usage"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Usage", "Presentation"], FontSize -> 18], Cell[ StyleData["Usage", "SlideShow"]], Cell[ StyleData["Usage", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Notes"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Notes", "Presentation"], FontSize -> 18], Cell[ StyleData["Notes", "SlideShow"]], Cell[ StyleData["Notes", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InlineOutput", "Presentation"], FontSize -> 18], Cell[ StyleData["InlineOutput", "SlideShow"]], Cell[ StyleData["InlineOutput", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["Box", "Presentation"], FontSize -> 18], Cell[ StyleData["Box", "SlideShow"]], Cell[ StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DoubleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DoubleBox", "SlideShow"]], Cell[ StyleData["DoubleBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["1ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["1ColumnBox", "SlideShow"]], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnBox", "SlideShow"]], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenBox", "SlideShow"]], Cell[ StyleData["2ColumnEvenBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnSmallBox", "SlideShow"]], Cell[ StyleData["2ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnBox", "SlideShow"]], Cell[ StyleData["3ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, Center, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.24]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnSmallBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnSmallBox", "SlideShow"]], Cell[ StyleData["3ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.35], Scaled[0.13], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["4ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["4ColumnBox", "SlideShow"]], Cell[ StyleData["4ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["5ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.202]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["5ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["5ColumnBox", "SlideShow"]], Cell[ StyleData["5ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["6ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> { BoxFrame -> 0.5, FrameMargins -> {{True, True}, {True, True}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.12], Scaled[0.22], Scaled[0.12], Scaled[0.12], Scaled[0.22], { Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["6ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["6ColumnBox", "SlideShow"]], Cell[ StyleData["6ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FramedBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["FramedBox", "Presentation"], FontSize -> 18], Cell[ StyleData["FramedBox", "SlideShow"]], Cell[ StyleData["FramedBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.4], { Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox", "SlideShow"]], Cell[ StyleData["DefinitionBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox3Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.35], Scaled[0.2], { Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox3Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox3Col", "SlideShow"]], Cell[ StyleData["DefinitionBox3Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox4Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.15], Scaled[0.35], Scaled[0.15], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox4Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox4Col", "SlideShow"]], Cell[ StyleData["DefinitionBox4Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox5Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox5Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox5Col", "SlideShow"]], Cell[ StyleData["DefinitionBox5Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox6Col"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.24], Scaled[0.13], Scaled[0.13], Scaled[0.24], { Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox6Col", "Presentation"], FontSize -> 18], Cell[ StyleData["DefinitionBox6Col", "SlideShow"]], Cell[ StyleData["DefinitionBox6Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopBox", "SlideShow"]], Cell[ StyleData["TopBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleBox", "SlideShow"]], Cell[ StyleData["MiddleBox", "Printout"], CellMargins -> {{2, 0}, {0, 2}}, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BottomBox"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, CellMargins -> {{27, 12}, {0, -7}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["BottomBox", "Presentation"], FontSize -> 18], Cell[ StyleData["BottomBox", "SlideShow"]], Cell[ StyleData["BottomBox", "Printout"], CellMargins -> {{2, 0}, {0, -5}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TopSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 12}, {-2, 8}}, CellHorizontalScrolling -> True, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["TopSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["TopSpanBox", "SlideShow"]], Cell[ StyleData["TopSpanBox", "Printout"], CellMargins -> {{2, 0}, {-2, 8}}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleSpanBox"], CellFrame -> {{0.5, 0.5}, {0, 0}}, CellMargins -> {{27, 12}, {0, 0}}, CellHorizontalScrolling -> True, PageBreakAbove -> False, PageBreakBelow -> False, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpanBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleSpanBox", "SlideShow"]], Cell[ StyleData["MiddleSpanBox", "Printout"], CellMargins -> {{2, 0}, {-5, 0}}, FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["Picture", "Presentation"], FontSize -> 18], Cell[ StyleData["Picture", "SlideShow"]], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.65]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OpenCloseItemizedPicture"], CellMargins -> {{88, 4}, {4, 4}}, 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 -> "8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, 2010)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "opengroup"->{ Cell[567, 22, 417, 9, 137, "Title", CellTags->"opengroup"], Cell[3804, 107, 101, 2, 46, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[3930, 113, 225, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[33663, 765, 395, 6, 29, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[34083, 775, 347, 6, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[34990, 800, 197, 3, 22, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[54816, 1200, 17801, 457, 113, "Print", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[157529, 3805, 398, 6, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[157930, 3813, 204, 5, 27, "Text", CellTags->{"corecell", "opengroup"}], Cell[158137, 3820, 573, 16, 55, "Input", CellTags->{"corecell", "opengroup"}], Cell[160290, 3883, 193, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[161843, 3915, 82, 1, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[161950, 3920, 15886, 297, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[177839, 4219, 6246, 174, 106, "Output", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[298011, 7125, 143, 3, 37, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[298179, 7132, 211, 3, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[326768, 8843, 154, 2, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[1219091, 40377, 152, 2, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}], Cell[1219246, 40381, 1609, 42, 115, "Input", CellTags->{"lastopengroup", "opengroup"}], Cell[1220892, 40428, 193, 3, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}]}, "corecell"->{ Cell[3804, 107, 101, 2, 46, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[3930, 113, 225, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[4180, 121, 180, 4, 37, "Subsection", CellTags->"corecell"], Cell[4363, 127, 1078, 21, 75, "Text", Evaluatable->False, CellTags->"corecell"], Cell[5466, 152, 19926, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[25395, 526, 3775, 96, 42, "Output", CellTags->"corecell"], Cell[29185, 625, 964, 16, 24, "Input", CellTags->{"payofffunction", "corecell"}], Cell[30174, 645, 112, 2, 22, "SmallText", CellTags->"corecell"], Cell[30289, 649, 245, 6, 28, "Input", CellTags->"corecell"], Cell[30559, 659, 79, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[30641, 662, 666, 18, 54, "Input", CellTags->"corecell"], Cell[31344, 685, 68, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[31415, 688, 346, 10, 28, "Input", CellTags->"corecell"], Cell[31798, 703, 90, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[31891, 706, 584, 17, 28, "Input", CellTags->"corecell"], Cell[32512, 728, 71, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[32586, 731, 1016, 27, 49, "Input", CellTags->"corecell"], Cell[33663, 765, 395, 6, 29, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[34083, 775, 347, 6, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[34433, 783, 532, 13, 43, "Text", Evaluatable->False, CellTags->"corecell"], Cell[34990, 800, 197, 3, 22, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[35212, 807, 19601, 391, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[54816, 1200, 17801, 457, 113, "Print", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[72666, 1663, 112, 2, 22, "SmallText", CellTags->"corecell"], Cell[72803, 1669, 25430, 565, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[98236, 2236, 45799, 1221, 409, "Output", CellTags->"corecell"], Cell[144062, 3461, 4995, 79, 55, "Input", CellTags->{"payoffmatrix", "corecell"}], Cell[149060, 3542, 815, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"corecell"], Cell[149912, 3570, 351, 6, 35, "Subsubsection", CellTags->"corecell"], Cell[150288, 3580, 283, 5, 30, "SmallText", CellTags->"corecell"], Cell[150574, 3587, 3085, 82, 282, "Input", CellTags->"corecell"], Cell[153696, 3674, 233, 4, 28, "SmallText", CellTags->"corecell"], Cell[153932, 3680, 137, 4, 31, "Text", CellTags->"corecell"], Cell[154072, 3686, 1404, 47, 149, "Input", CellTags->"corecell"], Cell[155479, 3735, 102, 2, 31, "Text", CellTags->"corecell"], Cell[155584, 3739, 1884, 59, 198, "Input", CellTags->"corecell"], Cell[157529, 3805, 398, 6, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[157930, 3813, 204, 5, 27, "Text", CellTags->{"corecell", "opengroup"}], Cell[158137, 3820, 573, 16, 55, "Input", CellTags->{"corecell", "opengroup"}], Cell[158747, 3841, 395, 6, 37, "Subsection", CellTags->"corecell"], Cell[159145, 3849, 735, 18, 43, "Text", CellTags->"corecell"], Cell[159883, 3869, 358, 8, 40, "Input", CellTags->"corecell"], Cell[160290, 3883, 193, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[160486, 3889, 1332, 22, 93, "Text", CellTags->"corecell"], Cell[161843, 3915, 82, 1, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[161950, 3920, 15886, 297, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[177839, 4219, 6246, 174, 106, "Output", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[184131, 4399, 179, 3, 37, "Subsection", CellTags->"corecell"], Cell[184313, 4404, 763, 14, 31, "Text", CellTags->"corecell"], Cell[185101, 4422, 14862, 277, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[199966, 4701, 4235, 115, 39, "Output", CellTags->{"buttoncell", "corecell"}], Cell[204228, 4820, 4015, 57, 21, "Input", CellTags->{"meandynamic", "corecell"}], Cell[208268, 4881, 193, 3, 22, "SmallText", CellTags->"corecell"], Cell[208464, 4886, 371, 7, 28, "Input", CellTags->"corecell"], Cell[208872, 4898, 259, 4, 22, "SmallText", CellTags->"corecell"], Cell[209134, 4904, 444, 8, 28, "Input", CellTags->"corecell"], Cell[209615, 4917, 147, 3, 22, "SmallText", CellTags->"corecell"], Cell[209765, 4922, 541, 13, 71, "Text", CellTags->"corecell"], Cell[210309, 4937, 202, 8, 54, "Input", CellTags->"corecell"], Cell[210526, 4948, 232, 6, 19, "Input", CellOpen->False, CellTags->"corecell"], Cell[210761, 4956, 342, 8, 43, "Text", CellTags->"corecell"], Cell[211106, 4966, 348, 7, 24, "Input", CellTags->"corecell"], Cell[211479, 4977, 89, 1, 35, "Subsubsection", CellTags->"corecell"], Cell[211571, 4980, 931, 16, 111, "Text", CellTags->"corecell"], Cell[212505, 4998, 1169, 39, 149, "Input", CellTags->"corecell"], Cell[213711, 5042, 92, 1, 29, "Subsubsection", CellTags->{"dynamicslibrary", "corecell"}], Cell[213806, 5045, 1413, 33, 175, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[215244, 5082, 149, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[215396, 5086, 713, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[216112, 5107, 709, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[216858, 5127, 97, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[216958, 5130, 561, 14, 46, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[217522, 5146, 1423, 36, 109, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[218948, 5184, 658, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[219643, 5203, 78, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[219724, 5206, 1153, 31, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[220880, 5239, 574, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[221491, 5258, 80, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[221574, 5261, 1345, 37, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[222922, 5300, 627, 15, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[223586, 5320, 311, 4, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[223900, 5326, 241, 6, 31, "Text", CellTags->"corecell"], Cell[224144, 5334, 5736, 128, 309, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[229883, 5464, 777, 17, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[230697, 5486, 156, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[230856, 5490, 625, 13, 24, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[231484, 5505, 669, 14, 40, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[232190, 5524, 76, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[232269, 5527, 978, 27, 52, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[233250, 5556, 523, 12, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[233810, 5573, 65, 1, 22, "SmallText", CellTags->"corecell"], Cell[233878, 5576, 647, 14, 71, "Text", CellTags->"corecell"], Cell[234528, 5592, 650, 19, 28, "Input", CellTags->"corecell"], Cell[235181, 5613, 998, 28, 52, "Input", CellTags->"corecell"], Cell[236182, 5643, 571, 13, 69, "Input", CellTags->"corecell"], Cell[236790, 5661, 146, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[236939, 5665, 1027, 29, 89, "Input", CellTags->"corecell"], Cell[237969, 5696, 685, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[238657, 5717, 578, 13, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[239272, 5735, 71, 1, 22, "SmallText", CellTags->"corecell"], Cell[239346, 5738, 490, 8, 51, "Text", CellTags->"corecell"], Cell[239839, 5748, 293, 8, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240135, 5758, 646, 18, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240784, 5778, 585, 13, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[241406, 5796, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[241492, 5799, 176, 6, 28, "Input", CellTags->"corecell"], Cell[241671, 5807, 10670, 216, 869, "Input", CellTags->"corecell"], Cell[252344, 6025, 635, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[253016, 6044, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[253102, 6047, 574, 17, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[253679, 6066, 628, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[254344, 6086, 201, 3, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[254548, 6091, 229, 6, 31, "Text", CellTags->"corecell"], Cell[254780, 6099, 6886, 134, 149, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[261669, 6235, 1077, 21, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[262783, 6261, 70, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[262856, 6264, 251, 5, 31, "Text", CellTags->{"dynamicslibrary", "corecell"}], Cell[263110, 6271, 669, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[263782, 6292, 548, 13, 49, "Input", CellTags->"corecell"], Cell[264391, 6312, 121, 3, 67, "Section", Evaluatable->False, CellTags->"corecell"], Cell[264515, 6317, 805, 17, 71, "Text", CellTags->"corecell"], Cell[265345, 6338, 12214, 220, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[277562, 6560, 7108, 176, 129, "Output", CellTags->"corecell"], Cell[284685, 6739, 495, 8, 28, "Input", CellTags->{"contourfunction", "corecell"}], Cell[285205, 6751, 140, 2, 30, "SmallText", CellTags->{"contourfunctions", "corecell"}], Cell[285370, 6757, 85, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[285458, 6760, 312, 7, 31, "Text", Evaluatable->False, CellTags->{"contourfunctions", "corecell"}], Cell[285773, 6769, 1165, 23, 28, "Input", CellTags->{"contourfunctions", "corecell"}], Cell[286941, 6794, 1141, 28, 89, "Input", CellTags->"corecell"], Cell[288085, 6824, 1140, 28, 89, "Input", CellTags->"corecell"], Cell[289228, 6854, 562, 13, 28, "Input", CellTags->"corecell"], Cell[289827, 6872, 89, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[289919, 6875, 282, 10, 28, "Input", CellTags->"corecell"], Cell[290204, 6887, 897, 25, 54, "Input", CellTags->"corecell"], Cell[291104, 6914, 497, 15, 28, "Input", CellTags->"corecell"], Cell[291604, 6931, 1262, 33, 53, "Input", CellTags->"corecell"], Cell[292869, 6966, 500, 12, 28, "Input", CellTags->"corecell"], Cell[293406, 6983, 156, 2, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[293565, 6987, 675, 19, 54, "Input", CellTags->"corecell"], Cell[294243, 7008, 991, 27, 54, "Input", CellTags->"corecell"], Cell[295237, 7037, 583, 16, 54, "Input", CellTags->"corecell"], Cell[295823, 7055, 1111, 31, 54, "Input", CellTags->"corecell"], Cell[296937, 7088, 485, 13, 28, "Input", CellTags->"corecell"], Cell[297459, 7106, 109, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297571, 7109, 140, 2, 31, "Text", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297714, 7113, 236, 5, 28, "Input", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[298011, 7125, 143, 3, 37, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[298179, 7132, 211, 3, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[298393, 7137, 3172, 58, 272, "Text", CellTags->"corecell"], Cell[301568, 7197, 23414, 1606, 73, "Text", CellTags->"corecell"], Cell[324985, 8805, 1758, 34, 145, "Input", CellTags->"corecell"], Cell[326768, 8843, 154, 2, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[326947, 8849, 121, 3, 22, "SmallText", CellTags->"corecell"], Cell[327071, 8854, 1725, 36, 203, "Text", CellTags->"corecell"], Cell[328799, 8892, 61278, 2655, 262, "Input", Evaluatable->False, CellTags->"corecell"], Cell[390114, 11552, 118, 3, 22, "SmallText", CellTags->"corecell"], Cell[390235, 11557, 1786, 40, 251, "Text", CellTags->"corecell"], Cell[392036, 11600, 762, 21, 112, "Input", CellTags->"corecell"], Cell[392801, 11623, 20050, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[412854, 11997, 4433, 103, 42, "Output", CellTags->{"buttoncell", "corecell"}], Cell[417290, 12102, 2175, 54, 100, "Input", CellTags->{"degisken", "trajectoryspecs", "corecell"}], Cell[419502, 12161, 72, 1, 35, "Subsubsection", CellTags->"corecell"], Cell[419577, 12164, 739, 15, 91, "Text", CellTags->"corecell"], Cell[420319, 12181, 1856, 43, 49, "Input", CellTags->"corecell"], Cell[422178, 12226, 109, 3, 28, "Input", CellTags->"corecell"], Cell[422324, 12234, 70, 1, 29, "Subsubsection", CellTags->"corecell"], Cell[422397, 12237, 2915, 71, 271, "Text", CellTags->"corecell"], Cell[425315, 12310, 896, 20, 89, "Input", CellTags->"corecell"], Cell[426248, 12335, 96, 1, 29, "Subsubsection", CellTags->"corecell"], Cell[426347, 12338, 1266, 22, 151, "Text", CellTags->"corecell"], Cell[427616, 12362, 199, 5, 49, "Input", CellTags->"corecell"], Cell[427852, 12372, 104, 1, 29, "Subsubsection", CellTags->{"extragraphicselements", "corecell"}], Cell[427959, 12375, 3624, 65, 531, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[431586, 12442, 908, 16, 111, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[432497, 12460, 2307, 39, 89, "Input", CellTags->{"extragraphicselements", "corecell"}], Cell[434829, 12503, 1394, 27, 111, "Text", CellTags->"corecell"], Cell[436226, 12532, 1194, 20, 69, "Input", CellTags->"corecell"], Cell[437481, 12559, 176, 3, 37, "Subsection", CellTags->"corecell"], Cell[437682, 12566, 68, 1, 34, "Subsubsection", CellTags->"corecell"], Cell[437753, 12569, 530, 12, 71, "Text", CellTags->"corecell"], Cell[438286, 12583, 526, 10, 49, "Input", CellTags->"corecell"], Cell[438837, 12597, 91, 1, 30, "SmallText", CellTags->"corecell"], Cell[438931, 12600, 1451, 35, 171, "Text", CellTags->"corecell"], Cell[440385, 12637, 159002, 12432, 87, "Text", CellTags->"corecell"], Cell[599390, 25071, 906, 18, 171, "Text", CellTags->"corecell"], Cell[600299, 25091, 61204, 2654, 263, "Input", Evaluatable->False, CellTags->"corecell"], Cell[661518, 27748, 578, 15, 126, "Input", CellTags->"corecell"], Cell[662099, 27765, 1117, 29, 229, "Input", CellTags->"corecell"], Cell[663219, 27796, 20690, 404, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[683912, 28202, 2722, 69, 36, "Output", CellTags->"corecell"], Cell[686637, 28273, 1215, 31, 69, "Input", CellTags->{"vectorfieldspecs", "corecell"}], Cell[687889, 28309, 80, 1, 28, "Subsubsection", CellTags->"corecell"], Cell[687972, 28312, 1914, 54, 231, "Text", CellTags->"corecell"], Cell[689889, 28368, 975, 26, 129, "Input", CellTags->"corecell"], Cell[690901, 28399, 90, 1, 28, "Subsubsection", CellTags->"corecell"], Cell[690994, 28402, 1563, 44, 155, "Text", CellTags->"corecell"], Cell[692560, 28448, 767, 20, 109, "Input", CellTags->"corecell"], Cell[693400, 28476, 75, 2, 46, "Subtitle", CellTags->"corecell"], Cell[693478, 28480, 204, 5, 28, "Input", CellTags->"corecell"], Cell[693707, 28489, 107, 2, 71, "Section", CellTags->"corecell"], Cell[693839, 28495, 119, 2, 37, "Subsection", CellTags->"corecell"], Cell[693961, 28499, 4149, 77, 109, "Input", CellTags->"corecell"], Cell[698113, 28578, 7348, 154, 369, "Input", CellTags->"corecell"], Cell[705498, 28737, 256, 4, 29, "Subsection", CellTags->"corecell"], Cell[705757, 28743, 10320, 196, 749, "Input", CellTags->"corecell"], Cell[716080, 28941, 17152, 325, 1229, "Input", CellTags->"corecell"], Cell[733235, 29268, 8378, 159, 469, "Input", CellTags->"corecell"], Cell[741650, 29432, 186, 3, 29, "Subsection", CellTags->"corecell"], Cell[741839, 29437, 1964, 37, 49, "Input", CellTags->"corecell"], Cell[743840, 29479, 188, 3, 29, "Subsection", CellTags->"corecell"], Cell[744031, 29484, 1938, 39, 49, "Input", CellTags->"corecell"], Cell[746018, 29529, 96, 2, 71, "Section", CellTags->"corecell"], Cell[746117, 29533, 603, 16, 49, "Input", CellTags->"corecell"], Cell[746745, 29553, 166, 3, 37, "Subsection", CellTags->"corecell"], Cell[746936, 29560, 397, 8, 31, "Text", CellTags->"corecell"], Cell[747336, 29570, 4392, 113, 129, "Input", CellTags->"corecell"], Cell[751753, 29687, 93, 1, 31, "Text", CellTags->"corecell"], Cell[751849, 29690, 16929, 463, 888, "Input", CellTags->"corecell"], Cell[768827, 30159, 614, 12, 48, "Text", CellTags->"corecell"], Cell[769444, 30173, 2517, 65, 149, "Input", CellTags->"corecell"], Cell[771986, 30242, 49, 1, 31, "Text", CellTags->"corecell"], Cell[772038, 30245, 4066, 101, 298, "Input", CellTags->"corecell"], Cell[776153, 30352, 198, 3, 28, "Text", CellTags->"corecell"], Cell[783181, 30537, 201, 5, 28, "Text", CellTags->"corecell"], Cell[783385, 30544, 6312, 149, 409, "Input", CellTags->"corecell"], Cell[789746, 30699, 81, 1, 37, "Subsection", CellTags->"corecell"], Cell[789830, 30702, 5090, 108, 329, "Input", CellTags->"corecell"], Cell[794923, 30812, 12626, 271, 889, "Input", CellTags->"corecell"], Cell[807586, 31088, 172, 3, 29, "Subsection", CellTags->"corecell"], Cell[807761, 31093, 2587, 63, 89, "Input", CellTags->"corecell"], Cell[810351, 31158, 3017, 70, 129, "Input", CellTags->"corecell"], Cell[813405, 31233, 182, 3, 29, "Subsection", CellTags->"corecell"], Cell[813590, 31238, 2830, 72, 184, "Input", CellTags->"corecell"], Cell[816457, 31315, 159, 3, 29, "Subsection", CellTags->"corecell"], Cell[816619, 31320, 8529, 183, 509, "Input", CellTags->"corecell"], Cell[825151, 31505, 7999, 173, 429, "Input", CellTags->"corecell"], Cell[833175, 31682, 65, 1, 31, "Text", CellTags->"corecell"], Cell[833243, 31685, 6917, 157, 403, "Input", CellTags->"corecell"], Cell[840209, 31848, 157, 4, 29, "Subsection", CellTags->"corecell"], Cell[840369, 31854, 204, 5, 51, "Text", CellTags->"corecell"], Cell[840576, 31861, 12375, 318, 898, "Input", CellTags->"corecell"], Cell[852954, 32181, 5753, 149, 460, "Input", CellTags->"corecell"], Cell[858744, 32335, 271, 5, 29, "Subsection", CellTags->"corecell"], Cell[859018, 32342, 2944, 79, 169, "Input", CellTags->"corecell"], Cell[861965, 32423, 6668, 147, 442, "Input", CellTags->"corecell"], Cell[868670, 32575, 80, 1, 29, "Subsection", CellTags->"corecell"], Cell[868753, 32578, 8635, 202, 684, "Input", CellTags->"corecell"], Cell[877425, 32785, 192, 3, 29, "Subsection", CellTags->"corecell"], Cell[877620, 32790, 3754, 89, 249, "Input", CellTags->"corecell"], Cell[881423, 32885, 72, 1, 71, "Section", CellTags->"corecell"], Cell[881616, 32893, 640, 11, 49, "Input", CellTags->"corecell"], Cell[882259, 32906, 14825, 333, 1029, "Input", CellTags->{"printingcell", "corecell"}], Cell[897087, 33241, 1661, 33, 69, "Input", CellTags->"corecell"], Cell[898785, 33279, 61, 1, 28, "Text", CellTags->"corecell"], Cell[898849, 33282, 14114, 321, 1009, "Input", CellTags->"corecell"], Cell[913000, 33608, 64, 1, 28, "Text", CellTags->"corecell"], Cell[913067, 33611, 2171, 59, 129, "Input", CellTags->"corecell"], Cell[915275, 33675, 77, 1, 28, "Text", CellTags->"corecell"], Cell[915355, 33678, 13037, 275, 829, "Input", CellTags->"corecell"], Cell[928429, 33958, 73, 1, 31, "Text", CellTags->"corecell"], Cell[928505, 33961, 3959, 97, 549, "Input", CellTags->"corecell"], Cell[932501, 34063, 74, 1, 28, "Text", CellTags->"corecell"], Cell[932578, 34066, 2666, 65, 89, "Input", CellTags->"corecell"], Cell[935281, 34136, 79, 1, 28, "Text", CellTags->"corecell"], Cell[935363, 34139, 2957, 68, 89, "Input", CellTags->"corecell"], Cell[938357, 34212, 85, 1, 28, "Text", CellTags->"corecell"], Cell[938445, 34215, 2564, 59, 129, "Input", CellTags->"corecell"], Cell[941046, 34279, 80, 1, 28, "Text", CellTags->"corecell"], Cell[941129, 34282, 4322, 110, 311, "Input", CellTags->"corecell"], Cell[945488, 34397, 81, 1, 28, "Text", CellTags->"corecell"], Cell[945572, 34400, 3285, 85, 129, "Input", CellTags->"corecell"], Cell[948894, 34490, 154, 3, 28, "Text", CellTags->"corecell"], Cell[949051, 34495, 4602, 93, 249, "Input", CellTags->"corecell"], Cell[953845, 34597, 2511, 74, 229, "Input", CellTags->"corecell"]}, "buttoncell"->{ Cell[5466, 152, 19926, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[35212, 807, 19601, 391, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[54816, 1200, 17801, 457, 113, "Print", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[72803, 1669, 25430, 565, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[161950, 3920, 15886, 297, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[177839, 4219, 6246, 174, 106, "Output", CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[185101, 4422, 14862, 277, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[199966, 4701, 4235, 115, 39, "Output", CellTags->{"buttoncell", "corecell"}], Cell[265345, 6338, 12214, 220, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[392801, 11623, 20050, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[412854, 11997, 4433, 103, 42, "Output", CellTags->{"buttoncell", "corecell"}], Cell[663219, 27796, 20690, 404, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}]}, "payofffunction"->{ Cell[29185, 625, 964, 16, 24, "Input", CellTags->{"payofffunction", "corecell"}]}, "payoffmatrix"->{ Cell[144062, 3461, 4995, 79, 55, "Input", CellTags->{"payoffmatrix", "corecell"}]}, "meandynamic"->{ Cell[204228, 4820, 4015, 57, 21, "Input", CellTags->{"meandynamic", "corecell"}]}, "dynamicslibrary"->{ Cell[213711, 5042, 92, 1, 29, "Subsubsection", CellTags->{"dynamicslibrary", "corecell"}], Cell[213806, 5045, 1413, 33, 175, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[215244, 5082, 149, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[215396, 5086, 713, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[216112, 5107, 709, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[216858, 5127, 97, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[216958, 5130, 561, 14, 46, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[217522, 5146, 1423, 36, 109, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[218948, 5184, 658, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[219643, 5203, 78, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[219724, 5206, 1153, 31, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[220880, 5239, 574, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[221491, 5258, 80, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[221574, 5261, 1345, 37, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[222922, 5300, 627, 15, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[223586, 5320, 311, 4, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[224144, 5334, 5736, 128, 309, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[229883, 5464, 777, 17, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[230697, 5486, 156, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[230856, 5490, 625, 13, 24, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[231484, 5505, 669, 14, 40, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[232190, 5524, 76, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[232269, 5527, 978, 27, 52, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[233250, 5556, 523, 12, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[236790, 5661, 146, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[237969, 5696, 685, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[238657, 5717, 578, 13, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[239839, 5748, 293, 8, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240135, 5758, 646, 18, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240784, 5778, 585, 13, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[241406, 5796, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[252344, 6025, 635, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[253016, 6044, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[253102, 6047, 574, 17, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[253679, 6066, 628, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[254344, 6086, 201, 3, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[254780, 6099, 6886, 134, 149, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[261669, 6235, 1077, 21, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[262783, 6261, 70, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[262856, 6264, 251, 5, 31, "Text", CellTags->{"dynamicslibrary", "corecell"}], Cell[263110, 6271, 669, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}]}, "contourfunction"->{ Cell[284685, 6739, 495, 8, 28, "Input", CellTags->{"contourfunction", "corecell"}]}, "contourfunctions"->{ Cell[285205, 6751, 140, 2, 30, "SmallText", CellTags->{"contourfunctions", "corecell"}], Cell[285370, 6757, 85, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[285458, 6760, 312, 7, 31, "Text", Evaluatable->False, CellTags->{"contourfunctions", "corecell"}], Cell[285773, 6769, 1165, 23, 28, "Input", CellTags->{"contourfunctions", "corecell"}], Cell[289827, 6872, 89, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[293406, 6983, 156, 2, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[297459, 7106, 109, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297571, 7109, 140, 2, 31, "Text", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297714, 7113, 236, 5, 28, "Input", CellTags->{"contourfunctions", "othercontour", "corecell"}]}, "othercontour"->{ Cell[297459, 7106, 109, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297571, 7109, 140, 2, 31, "Text", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297714, 7113, 236, 5, 28, "Input", CellTags->{"contourfunctions", "othercontour", "corecell"}]}, "degisken"->{ Cell[417290, 12102, 2175, 54, 100, "Input", CellTags->{"degisken", "trajectoryspecs", "corecell"}]}, "trajectoryspecs"->{ Cell[417290, 12102, 2175, 54, 100, "Input", CellTags->{"degisken", "trajectoryspecs", "corecell"}]}, "extragraphicselements"->{ Cell[427852, 12372, 104, 1, 29, "Subsubsection", CellTags->{"extragraphicselements", "corecell"}], Cell[427959, 12375, 3624, 65, 531, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[431586, 12442, 908, 16, 111, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[432497, 12460, 2307, 39, 89, "Input", CellTags->{"extragraphicselements", "corecell"}]}, "vectorfieldspecs"->{ Cell[686637, 28273, 1215, 31, 69, "Input", CellTags->{"vectorfieldspecs", "corecell"}]}, "printingcell"->{ Cell[882259, 32906, 14825, 333, 1029, "Input", CellTags->{"printingcell", "corecell"}]}, "initcell"->{ Cell[956587, 34684, 128, 2, 67, "Section", CellTags->"initcell"], Cell[956740, 34690, 85, 1, 37, "Subsection", CellTags->"initcell"], Cell[956850, 34695, 108, 2, 26, "Subsubsection", CellTags->"initcell"], Cell[956961, 34699, 104, 3, 28, "Input", CellTags->"initcell"], Cell[957068, 34704, 8594, 220, 466, "Input", CellTags->"initcell"], Cell[965665, 34926, 2387, 74, 129, "Input", CellTags->"initcell"], Cell[968077, 35004, 234, 6, 51, "Text", CellTags->"initcell"], Cell[968314, 35012, 2243, 71, 212, "Input", CellTags->"initcell"], Cell[970606, 35089, 299, 4, 20, "Subsubsection", CellTags->"initcell"], Cell[970908, 35095, 920, 23, 69, "Input", CellTags->"initcell"], Cell[971831, 35120, 8978, 184, 889, "Input", CellTags->"initcell"], Cell[980846, 35309, 193, 3, 20, "Subsubsection", CellTags->"initcell"], Cell[981042, 35314, 2439, 63, 189, "Input", CellTags->"initcell"], Cell[983484, 35379, 2521, 65, 269, "Input", CellTags->"initcell"], Cell[986008, 35446, 5198, 115, 409, "Input", CellTags->"initcell"], Cell[991209, 35563, 2971, 78, 209, "Input", CellTags->"initcell"], Cell[994183, 35643, 702, 18, 28, "Input", CellTags->"initcell"], Cell[994888, 35663, 1796, 45, 209, "Input", CellTags->"initcell"], Cell[996687, 35710, 3155, 75, 369, "Input", CellTags->"initcell"], Cell[999845, 35787, 1838, 45, 189, "Input", CellTags->"initcell"], Cell[1001686, 35834, 3230, 83, 369, "Input", CellTags->"initcell"], Cell[1004919, 35919, 1040, 30, 89, "Input", CellTags->"initcell"], Cell[1005962, 35951, 1059, 30, 89, "Input", CellTags->"initcell"], Cell[1007024, 35983, 7433, 161, 789, "Input", CellTags->"initcell"], Cell[1014494, 36149, 246, 4, 20, "Subsubsection", CellTags->"initcell"], Cell[1014743, 36155, 1625, 45, 169, "Input", CellTags->"initcell"], Cell[1016371, 36202, 2269, 50, 109, "Input", CellTags->"initcell"], Cell[1018643, 36254, 2381, 46, 28, "Input", CellTags->"initcell"], Cell[1021027, 36302, 3115, 64, 89, "Input", CellTags->"initcell"], Cell[1024191, 36372, 139, 2, 29, "Subsection", CellTags->"initcell"], Cell[1024355, 36378, 164, 2, 26, "Subsubsection", CellTags->"initcell"], Cell[1024522, 36382, 12416, 249, 709, "Input", CellTags->"initcell"], Cell[1036941, 36633, 16102, 338, 769, "Input", CellTags->"initcell"], Cell[1053080, 36976, 206, 5, 20, "Subsubsection", CellTags->"initcell"], Cell[1053289, 36983, 12651, 243, 649, "Input", CellTags->"initcell"], Cell[1065943, 37228, 28759, 540, 1549, "Input", CellTags->"initcell"], Cell[1094705, 37770, 13051, 203, 289, "Input", CellTags->"initcell"], Cell[1107759, 37975, 8475, 185, 549, "Input", CellTags->"initcell"], Cell[1116271, 38165, 76, 1, 20, "Subsubsection", CellTags->"initcell"], Cell[1116350, 38168, 4110, 91, 269, "Input", CellTags->"initcell"], Cell[1120509, 38265, 119, 2, 29, "Subsection", CellTags->"initcell"], Cell[1120653, 38271, 212, 3, 34, "Subsubsection", CellTags->"initcell"], Cell[1120868, 38276, 19047, 391, 1109, "Input", CellTags->"initcell"], Cell[1139952, 38672, 325, 5, 28, "Subsubsection", CellTags->"initcell"], Cell[1140280, 38679, 19022, 383, 1569, "Input", CellTags->"initcell"], Cell[1159339, 39067, 307, 5, 28, "Subsubsection", CellTags->"initcell"], Cell[1159649, 39074, 21867, 447, 1029, "Input", CellTags->"initcell"], Cell[1181519, 39523, 4490, 93, 369, "Input", CellTags->"initcell"], Cell[1186046, 39621, 288, 4, 28, "Subsubsection", CellTags->"initcell"], Cell[1186337, 39627, 16024, 327, 1449, "Input", CellTags->"initcell"], Cell[1202410, 39960, 175, 3, 37, "Subsection", CellTags->"initcell"], Cell[1202588, 39965, 16189, 397, 2049, "Input", CellTags->"initcell"]}, "maintenance"->{ Cell[1218826, 40368, 240, 5, 37, "Section", CellOpen->True, CellTags->"maintenance"], Cell[1223459, 40485, 1229, 25, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"], Cell[1225921, 40543, 1176, 24, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"], Cell[1227100, 40569, 1177, 24, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"]}, "lastopengroup"->{ Cell[1219091, 40377, 152, 2, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}], Cell[1219246, 40381, 1609, 42, 115, "Input", CellTags->{"lastopengroup", "opengroup"}], Cell[1220892, 40428, 193, 3, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"opengroup", 1343702, 42990}, {"corecell", 1345597, 43036}, {"buttoncell", 1367417, 43613}, {"payofffunction", 1368876, 43654}, {"payoffmatrix", 1368983, 43657}, {"meandynamic", 1369090, 43660}, {"dynamicslibrary", 1369200, 43663}, {"contourfunction", 1372958, 43746}, {"contourfunctions", 1373071, 43749}, {"othercontour", 1374006, 43769}, {"degisken", 1374347, 43776}, {"trajectoryspecs", 1374475, 43779}, {"extragraphicselements", 1374609, 43782}, {"vectorfieldspecs", 1375030, 43791}, {"printingcell", 1375143, 43794}, {"initcell", 1375252, 43797}, {"maintenance", 1379123, 43902}, {"lastopengroup", 1379589, 43918} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 417, 9, 137, "Title", CellTags->"opengroup"], Cell[CellGroupData[{ Cell[1009, 35, 221, 6, 30, "Text", Evaluatable->False], Cell[1233, 43, 1522, 35, 19, "Input", CellOpen->False], Cell[2758, 80, 1009, 22, 19, "Input", CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[3804, 107, 101, 2, 46, "Subtitle", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[3930, 113, 225, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[4180, 121, 180, 4, 37, "Subsection", CellTags->"corecell"], Cell[4363, 127, 1078, 21, 75, "Text", Evaluatable->False, CellTags->"corecell"], Cell[CellGroupData[{ Cell[5466, 152, 19926, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[25395, 526, 3775, 96, 42, "Output", CellTags->"corecell"] }, Closed]], Cell[29185, 625, 964, 16, 24, "Input", CellTags->{"payofffunction", "corecell"}], Cell[CellGroupData[{ Cell[30174, 645, 112, 2, 22, "SmallText", CellTags->"corecell"], Cell[30289, 649, 245, 6, 28, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[30559, 659, 79, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[30641, 662, 666, 18, 54, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[31344, 685, 68, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[31415, 688, 346, 10, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[31798, 703, 90, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[31891, 706, 584, 17, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[32512, 728, 71, 1, 26, "Subsubsection", CellTags->"corecell"], Cell[32586, 731, 1016, 27, 49, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[33663, 765, 395, 6, 29, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[34083, 775, 347, 6, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[34433, 783, 532, 13, 43, "Text", Evaluatable->False, CellTags->"corecell"], Cell[CellGroupData[{ Cell[34990, 800, 197, 3, 22, "SmallText", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[35212, 807, 19601, 391, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[54816, 1200, 17801, 457, 113, "Print", CellTags->{"buttoncell", "corecell", "opengroup"}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72666, 1663, 112, 2, 22, "SmallText", CellTags->"corecell"], Cell[CellGroupData[{ Cell[72803, 1669, 25430, 565, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[98236, 2236, 45799, 1221, 409, "Output", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[144062, 3461, 4995, 79, 55, "Input", CellTags->{"payoffmatrix", "corecell"}], Cell[149060, 3542, 815, 23, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->"corecell"] }, Open ]], Cell[CellGroupData[{ Cell[149912, 3570, 351, 6, 35, "Subsubsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[150288, 3580, 283, 5, 30, "SmallText", CellTags->"corecell"], Cell[150574, 3587, 3085, 82, 282, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[153696, 3674, 233, 4, 28, "SmallText", CellTags->"corecell"], Cell[153932, 3680, 137, 4, 31, "Text", CellTags->"corecell"], Cell[154072, 3686, 1404, 47, 149, "Input", CellTags->"corecell"], Cell[155479, 3735, 102, 2, 31, "Text", CellTags->"corecell"], Cell[155584, 3739, 1884, 59, 198, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[157529, 3805, 398, 6, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[157930, 3813, 204, 5, 27, "Text", CellTags->{"corecell", "opengroup"}], Cell[158137, 3820, 573, 16, 55, "Input", CellTags->{"corecell", "opengroup"}] }, Open ]], Cell[CellGroupData[{ Cell[158747, 3841, 395, 6, 37, "Subsection", CellTags->"corecell"], Cell[159145, 3849, 735, 18, 43, "Text", CellTags->"corecell"], Cell[159883, 3869, 358, 8, 40, "Input", CellTags->"corecell"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[160290, 3883, 193, 4, 67, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[160486, 3889, 1332, 22, 93, "Text", CellTags->"corecell"], Cell[CellGroupData[{ Cell[161843, 3915, 82, 1, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[161950, 3920, 15886, 297, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell", "opengroup"}], Cell[177839, 4219, 6246, 174, 106, "Output", CellTags->{"buttoncell", "corecell", "opengroup"}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[184131, 4399, 179, 3, 37, "Subsection", CellTags->"corecell"], Cell[184313, 4404, 763, 14, 31, "Text", CellTags->"corecell"], Cell[CellGroupData[{ Cell[185101, 4422, 14862, 277, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[199966, 4701, 4235, 115, 39, "Output", CellTags->{"buttoncell", "corecell"}] }, Closed]] }, Closed]], Cell[204228, 4820, 4015, 57, 21, "Input", CellTags->{"meandynamic", "corecell"}], Cell[CellGroupData[{ Cell[208268, 4881, 193, 3, 22, "SmallText", CellTags->"corecell"], Cell[208464, 4886, 371, 7, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[208872, 4898, 259, 4, 22, "SmallText", CellTags->"corecell"], Cell[209134, 4904, 444, 8, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[209615, 4917, 147, 3, 22, "SmallText", CellTags->"corecell"], Cell[209765, 4922, 541, 13, 71, "Text", CellTags->"corecell"], Cell[210309, 4937, 202, 8, 54, "Input", CellTags->"corecell"] }, Closed]], Cell[210526, 4948, 232, 6, 19, "Input", CellOpen->False, CellTags->"corecell"], Cell[210761, 4956, 342, 8, 43, "Text", CellTags->"corecell"], Cell[211106, 4966, 348, 7, 24, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[211479, 4977, 89, 1, 35, "Subsubsection", CellTags->"corecell"], Cell[211571, 4980, 931, 16, 111, "Text", CellTags->"corecell"], Cell[212505, 4998, 1169, 39, 149, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[213711, 5042, 92, 1, 29, "Subsubsection", CellTags->{"dynamicslibrary", "corecell"}], Cell[213806, 5045, 1413, 33, 175, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[CellGroupData[{ Cell[215244, 5082, 149, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[215396, 5086, 713, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[216112, 5107, 709, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[216858, 5127, 97, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[216958, 5130, 561, 14, 46, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[217522, 5146, 1423, 36, 109, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[218948, 5184, 658, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[219643, 5203, 78, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[219724, 5206, 1153, 31, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[220880, 5239, 574, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[221491, 5258, 80, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[221574, 5261, 1345, 37, 66, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[222922, 5300, 627, 15, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[223586, 5320, 311, 4, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[223900, 5326, 241, 6, 31, "Text", CellTags->"corecell"], Cell[224144, 5334, 5736, 128, 309, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[229883, 5464, 777, 17, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[230697, 5486, 156, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[230856, 5490, 625, 13, 24, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[231484, 5505, 669, 14, 40, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[232190, 5524, 76, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[232269, 5527, 978, 27, 52, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[233250, 5556, 523, 12, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[233810, 5573, 65, 1, 22, "SmallText", CellTags->"corecell"], Cell[233878, 5576, 647, 14, 71, "Text", CellTags->"corecell"], Cell[234528, 5592, 650, 19, 28, "Input", CellTags->"corecell"], Cell[235181, 5613, 998, 28, 52, "Input", CellTags->"corecell"], Cell[236182, 5643, 571, 13, 69, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[236790, 5661, 146, 2, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[236939, 5665, 1027, 29, 89, "Input", CellTags->"corecell"], Cell[237969, 5696, 685, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[238657, 5717, 578, 13, 69, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[239272, 5735, 71, 1, 22, "SmallText", CellTags->"corecell"], Cell[239346, 5738, 490, 8, 51, "Text", CellTags->"corecell"], Cell[239839, 5748, 293, 8, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240135, 5758, 646, 18, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[240784, 5778, 585, 13, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[241406, 5796, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[241492, 5799, 176, 6, 28, "Input", CellTags->"corecell"], Cell[241671, 5807, 10670, 216, 869, "Input", CellTags->"corecell"], Cell[252344, 6025, 635, 14, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[253016, 6044, 83, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[253102, 6047, 574, 17, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[253679, 6066, 628, 15, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[254344, 6086, 201, 3, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[254548, 6091, 229, 6, 31, "Text", CellTags->"corecell"], Cell[254780, 6099, 6886, 134, 149, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[261669, 6235, 1077, 21, 49, "Input", CellTags->{"dynamicslibrary", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[262783, 6261, 70, 1, 22, "SmallText", CellTags->{"dynamicslibrary", "corecell"}], Cell[262856, 6264, 251, 5, 31, "Text", CellTags->{"dynamicslibrary", "corecell"}], Cell[263110, 6271, 669, 19, 28, "Input", CellTags->{"dynamicslibrary", "corecell"}], Cell[263782, 6292, 548, 13, 49, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[264391, 6312, 121, 3, 67, "Section", Evaluatable->False, CellTags->"corecell"], Cell[264515, 6317, 805, 17, 71, "Text", CellTags->"corecell"], Cell[CellGroupData[{ Cell[265345, 6338, 12214, 220, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[277562, 6560, 7108, 176, 129, "Output", CellTags->"corecell"] }, Closed]], Cell[284685, 6739, 495, 8, 28, "Input", CellTags->{"contourfunction", "corecell"}], Cell[CellGroupData[{ Cell[285205, 6751, 140, 2, 30, "SmallText", CellTags->{"contourfunctions", "corecell"}], Cell[CellGroupData[{ Cell[285370, 6757, 85, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[285458, 6760, 312, 7, 31, "Text", Evaluatable->False, CellTags->{"contourfunctions", "corecell"}], Cell[285773, 6769, 1165, 23, 28, "Input", CellTags->{"contourfunctions", "corecell"}], Cell[286941, 6794, 1141, 28, 89, "Input", CellTags->"corecell"], Cell[288085, 6824, 1140, 28, 89, "Input", CellTags->"corecell"], Cell[289228, 6854, 562, 13, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[289827, 6872, 89, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[289919, 6875, 282, 10, 28, "Input", CellTags->"corecell"], Cell[290204, 6887, 897, 25, 54, "Input", CellTags->"corecell"], Cell[291104, 6914, 497, 15, 28, "Input", CellTags->"corecell"], Cell[291604, 6931, 1262, 33, 53, "Input", CellTags->"corecell"], Cell[292869, 6966, 500, 12, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[293406, 6983, 156, 2, 26, "Subsubsection", CellTags->{"contourfunctions", "corecell"}], Cell[293565, 6987, 675, 19, 54, "Input", CellTags->"corecell"], Cell[294243, 7008, 991, 27, 54, "Input", CellTags->"corecell"], Cell[295237, 7037, 583, 16, 54, "Input", CellTags->"corecell"], Cell[295823, 7055, 1111, 31, 54, "Input", CellTags->"corecell"], Cell[296937, 7088, 485, 13, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[297459, 7106, 109, 1, 26, "Subsubsection", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297571, 7109, 140, 2, 31, "Text", CellTags->{"contourfunctions", "othercontour", "corecell"}], Cell[297714, 7113, 236, 5, 28, "Input", CellTags->{"contourfunctions", "othercontour", "corecell"}] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[298011, 7125, 143, 3, 37, "Section", Evaluatable->False, CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[298179, 7132, 211, 3, 37, "Subsection", CellTags->{"corecell", "opengroup"}], Cell[298393, 7137, 3172, 58, 272, "Text", CellTags->"corecell"], Cell[301568, 7197, 23414, 1606, 73, "Text", CellTags->"corecell"], Cell[324985, 8805, 1758, 34, 145, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[326768, 8843, 154, 2, 35, "Subsubsection", CellTags->{"corecell", "opengroup"}], Cell[CellGroupData[{ Cell[326947, 8849, 121, 3, 22, "SmallText", CellTags->"corecell"], Cell[327071, 8854, 1725, 36, 203, "Text", CellTags->"corecell"], Cell[328799, 8892, 61278, 2655, 262, "Input", Evaluatable->False, CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[390114, 11552, 118, 3, 22, "SmallText", CellTags->"corecell"], Cell[390235, 11557, 1786, 40, 251, "Text", CellTags->"corecell"] }, Closed]], Cell[392036, 11600, 762, 21, 112, "Input", CellTags->"corecell"], Cell[392801, 11623, 20050, 372, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[412854, 11997, 4433, 103, 42, "Output", CellTags->{"buttoncell", "corecell"}], Cell[417290, 12102, 2175, 54, 100, "Input", CellTags->{"degisken", "trajectoryspecs", "corecell"}] }, Open ]], Cell[CellGroupData[{ Cell[419502, 12161, 72, 1, 35, "Subsubsection", CellTags->"corecell"], Cell[419577, 12164, 739, 15, 91, "Text", CellTags->"corecell"], Cell[420319, 12181, 1856, 43, 49, "Input", CellTags->"corecell"], Cell[422178, 12226, 109, 3, 28, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[422324, 12234, 70, 1, 29, "Subsubsection", CellTags->"corecell"], Cell[422397, 12237, 2915, 71, 271, "Text", CellTags->"corecell"], Cell[425315, 12310, 896, 20, 89, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[426248, 12335, 96, 1, 29, "Subsubsection", CellTags->"corecell"], Cell[426347, 12338, 1266, 22, 151, "Text", CellTags->"corecell"], Cell[427616, 12362, 199, 5, 49, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[427852, 12372, 104, 1, 29, "Subsubsection", CellTags->{"extragraphicselements", "corecell"}], Cell[427959, 12375, 3624, 65, 531, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[431586, 12442, 908, 16, 111, "Text", CellTags->{"extragraphicselements", "corecell"}], Cell[432497, 12460, 2307, 39, 89, "Input", CellTags->{"extragraphicselements", "corecell"}], Cell[CellGroupData[{ Cell[434829, 12503, 1394, 27, 111, "Text", CellTags->"corecell"], Cell[436226, 12532, 1194, 20, 69, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[437481, 12559, 176, 3, 37, "Subsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[437682, 12566, 68, 1, 34, "Subsubsection", CellTags->"corecell"], Cell[437753, 12569, 530, 12, 71, "Text", CellTags->"corecell"], Cell[438286, 12583, 526, 10, 49, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[438837, 12597, 91, 1, 30, "SmallText", CellTags->"corecell"], Cell[438931, 12600, 1451, 35, 171, "Text", CellTags->"corecell"], Cell[440385, 12637, 159002, 12432, 87, "Text", CellTags->"corecell"], Cell[599390, 25071, 906, 18, 171, "Text", CellTags->"corecell"], Cell[600299, 25091, 61204, 2654, 263, "Input", Evaluatable->False, CellTags->"corecell"] }, Closed]], Cell[661518, 27748, 578, 15, 126, "Input", CellTags->"corecell"], Cell[662099, 27765, 1117, 29, 229, "Input", CellTags->"corecell"], Cell[663219, 27796, 20690, 404, 19, "Input", Evaluatable->False, CellOpen->False, CellTags->{"buttoncell", "corecell"}], Cell[683912, 28202, 2722, 69, 36, "Output", CellTags->"corecell"], Cell[686637, 28273, 1215, 31, 69, "Input", CellTags->{"vectorfieldspecs", "corecell"}] }, Closed]], Cell[CellGroupData[{ Cell[687889, 28309, 80, 1, 28, "Subsubsection", CellTags->"corecell"], Cell[687972, 28312, 1914, 54, 231, "Text", CellTags->"corecell"], Cell[689889, 28368, 975, 26, 129, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[690901, 28399, 90, 1, 28, "Subsubsection", CellTags->"corecell"], Cell[690994, 28402, 1563, 44, 155, "Text", CellTags->"corecell"], Cell[692560, 28448, 767, 20, 109, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[693400, 28476, 75, 2, 46, "Subtitle", CellTags->"corecell"], Cell[693478, 28480, 204, 5, 28, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[693707, 28489, 107, 2, 71, "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell[693839, 28495, 119, 2, 37, "Subsection", CellTags->"corecell"], Cell[693961, 28499, 4149, 77, 109, "Input", CellTags->"corecell"], Cell[698113, 28578, 7348, 154, 369, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[705498, 28737, 256, 4, 29, "Subsection", CellTags->"corecell"], Cell[705757, 28743, 10320, 196, 749, "Input", CellTags->"corecell"], Cell[716080, 28941, 17152, 325, 1229, "Input", CellTags->"corecell"], Cell[733235, 29268, 8378, 159, 469, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[741650, 29432, 186, 3, 29, "Subsection", CellTags->"corecell"], Cell[741839, 29437, 1964, 37, 49, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[743840, 29479, 188, 3, 29, "Subsection", CellTags->"corecell"], Cell[744031, 29484, 1938, 39, 49, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[746018, 29529, 96, 2, 71, "Section", CellTags->"corecell"], Cell[746117, 29533, 603, 16, 49, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[746745, 29553, 166, 3, 37, "Subsection", CellTags->"corecell"], Cell[CellGroupData[{ Cell[746936, 29560, 397, 8, 31, "Text", CellTags->"corecell"], Cell[747336, 29570, 4392, 113, 129, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[751753, 29687, 93, 1, 31, "Text", CellTags->"corecell"], Cell[751849, 29690, 16929, 463, 888, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[768827, 30159, 614, 12, 48, "Text", CellTags->"corecell"], Cell[769444, 30173, 2517, 65, 149, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[771986, 30242, 49, 1, 31, "Text", CellTags->"corecell"], Cell[772038, 30245, 4066, 101, 298, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[776153, 30352, 198, 3, 28, "Text", CellTags->"corecell"], Cell[776354, 30357, 6790, 175, 449, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[783181, 30537, 201, 5, 28, "Text", CellTags->"corecell"], Cell[783385, 30544, 6312, 149, 409, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[789746, 30699, 81, 1, 37, "Subsection", CellTags->"corecell"], Cell[789830, 30702, 5090, 108, 329, "Input", CellTags->"corecell"], Cell[794923, 30812, 12626, 271, 889, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[807586, 31088, 172, 3, 29, "Subsection", CellTags->"corecell"], Cell[807761, 31093, 2587, 63, 89, "Input", CellTags->"corecell"], Cell[810351, 31158, 3017, 70, 129, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[813405, 31233, 182, 3, 29, "Subsection", CellTags->"corecell"], Cell[813590, 31238, 2830, 72, 184, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[816457, 31315, 159, 3, 29, "Subsection", CellTags->"corecell"], Cell[816619, 31320, 8529, 183, 509, "Input", CellTags->"corecell"], Cell[825151, 31505, 7999, 173, 429, "Input", CellTags->"corecell"], Cell[CellGroupData[{ Cell[833175, 31682, 65, 1, 31, "Text", CellTags->"corecell"], Cell[833243, 31685, 6917, 157, 403, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[840209, 31848, 157, 4, 29, "Subsection", CellTags->"corecell"], Cell[840369, 31854, 204, 5, 51, "Text", CellTags->"corecell"], Cell[840576, 31861, 12375, 318, 898, "Input", CellTags->"corecell"], Cell[852954, 32181, 5753, 149, 460, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[858744, 32335, 271, 5, 29, "Subsection", CellTags->"corecell"], Cell[859018, 32342, 2944, 79, 169, "Input", CellTags->"corecell"], Cell[861965, 32423, 6668, 147, 442, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[868670, 32575, 80, 1, 29, "Subsection", CellTags->"corecell"], Cell[868753, 32578, 8635, 202, 684, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[877425, 32785, 192, 3, 29, "Subsection", CellTags->"corecell"], Cell[877620, 32790, 3754, 89, 249, "Input", CellTags->"corecell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[881423, 32885, 72, 1, 71, "Section", CellTags->"corecell"], Cell[CellGroupData[{ Cell[881520, 32890, 93, 1, 31, "Text"], Cell[881616, 32893, 640, 11, 49, "Input", CellTags->"corecell"], Cell[882259, 32906, 14825, 333, 1029, "Input", CellTags->{"printingcell", "corecell"}], Cell[897087, 33241, 1661, 33, 69, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[898785, 33279, 61, 1, 28, "Text", CellTags->"corecell"], Cell[898849, 33282, 14114, 321, 1009, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[913000, 33608, 64, 1, 28, "Text", CellTags->"corecell"], Cell[913067, 33611, 2171, 59, 129, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[915275, 33675, 77, 1, 28, "Text", CellTags->"corecell"], Cell[915355, 33678, 13037, 275, 829, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[928429, 33958, 73, 1, 31, "Text", CellTags->"corecell"], Cell[928505, 33961, 3959, 97, 549, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[932501, 34063, 74, 1, 28, "Text", CellTags->"corecell"], Cell[932578, 34066, 2666, 65, 89, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[935281, 34136, 79, 1, 28, "Text", CellTags->"corecell"], Cell[935363, 34139, 2957, 68, 89, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[938357, 34212, 85, 1, 28, "Text", CellTags->"corecell"], Cell[938445, 34215, 2564, 59, 129, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[941046, 34279, 80, 1, 28, "Text", CellTags->"corecell"], Cell[941129, 34282, 4322, 110, 311, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[945488, 34397, 81, 1, 28, "Text", CellTags->"corecell"], Cell[945572, 34400, 3285, 85, 129, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[948894, 34490, 154, 3, 28, "Text", CellTags->"corecell"], Cell[949051, 34495, 4602, 93, 249, "Input", CellTags->"corecell"] }, Closed]], Cell[CellGroupData[{ Cell[953690, 34593, 152, 2, 28, "Text"], Cell[953845, 34597, 2511, 74, 229, "Input", CellTags->"corecell"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[956429, 34679, 133, 1, 46, "Subtitle"], Cell[CellGroupData[{ Cell[956587, 34684, 128, 2, 67, "Section", CellTags->"initcell"], Cell[CellGroupData[{ Cell[956740, 34690, 85, 1, 37, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[956850, 34695, 108, 2, 26, "Subsubsection", CellTags->"initcell"], Cell[956961, 34699, 104, 3, 28, "Input", CellTags->"initcell"], Cell[957068, 34704, 8594, 220, 466, "Input", CellTags->"initcell"], Cell[965665, 34926, 2387, 74, 129, "Input", CellTags->"initcell"], Cell[CellGroupData[{ Cell[968077, 35004, 234, 6, 51, "Text", CellTags->"initcell"], Cell[968314, 35012, 2243, 71, 212, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[970606, 35089, 299, 4, 20, "Subsubsection", CellTags->"initcell"], Cell[970908, 35095, 920, 23, 69, "Input", CellTags->"initcell"], Cell[971831, 35120, 8978, 184, 889, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[980846, 35309, 193, 3, 20, "Subsubsection", CellTags->"initcell"], Cell[981042, 35314, 2439, 63, 189, "Input", CellTags->"initcell"], Cell[983484, 35379, 2521, 65, 269, "Input", CellTags->"initcell"], Cell[986008, 35446, 5198, 115, 409, "Input", CellTags->"initcell"], Cell[991209, 35563, 2971, 78, 209, "Input", CellTags->"initcell"], Cell[994183, 35643, 702, 18, 28, "Input", CellTags->"initcell"], Cell[994888, 35663, 1796, 45, 209, "Input", CellTags->"initcell"], Cell[996687, 35710, 3155, 75, 369, "Input", CellTags->"initcell"], Cell[999845, 35787, 1838, 45, 189, "Input", CellTags->"initcell"], Cell[1001686, 35834, 3230, 83, 369, "Input", CellTags->"initcell"], Cell[1004919, 35919, 1040, 30, 89, "Input", CellTags->"initcell"], Cell[1005962, 35951, 1059, 30, 89, "Input", CellTags->"initcell"], Cell[1007024, 35983, 7433, 161, 789, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1014494, 36149, 246, 4, 20, "Subsubsection", CellTags->"initcell"], Cell[1014743, 36155, 1625, 45, 169, "Input", CellTags->"initcell"], Cell[1016371, 36202, 2269, 50, 109, "Input", CellTags->"initcell"], Cell[1018643, 36254, 2381, 46, 28, "Input", CellTags->"initcell"], Cell[1021027, 36302, 3115, 64, 89, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1024191, 36372, 139, 2, 29, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1024355, 36378, 164, 2, 26, "Subsubsection", CellTags->"initcell"], Cell[1024522, 36382, 12416, 249, 709, "Input", CellTags->"initcell"], Cell[1036941, 36633, 16102, 338, 769, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1053080, 36976, 206, 5, 20, "Subsubsection", CellTags->"initcell"], Cell[1053289, 36983, 12651, 243, 649, "Input", CellTags->"initcell"], Cell[1065943, 37228, 28759, 540, 1549, "Input", CellTags->"initcell"], Cell[1094705, 37770, 13051, 203, 289, "Input", CellTags->"initcell"], Cell[1107759, 37975, 8475, 185, 549, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1116271, 38165, 76, 1, 20, "Subsubsection", CellTags->"initcell"], Cell[1116350, 38168, 4110, 91, 269, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1120509, 38265, 119, 2, 29, "Subsection", CellTags->"initcell"], Cell[CellGroupData[{ Cell[1120653, 38271, 212, 3, 34, "Subsubsection", CellTags->"initcell"], Cell[1120868, 38276, 19047, 391, 1109, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1139952, 38672, 325, 5, 28, "Subsubsection", CellTags->"initcell"], Cell[1140280, 38679, 19022, 383, 1569, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1159339, 39067, 307, 5, 28, "Subsubsection", CellTags->"initcell"], Cell[1159649, 39074, 21867, 447, 1029, "Input", CellTags->"initcell"], Cell[1181519, 39523, 4490, 93, 369, "Input", CellTags->"initcell"] }, Closed]], Cell[CellGroupData[{ Cell[1186046, 39621, 288, 4, 28, "Subsubsection", CellTags->"initcell"], Cell[1186337, 39627, 16024, 327, 1449, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1202410, 39960, 175, 3, 37, "Subsection", CellTags->"initcell"], Cell[1202588, 39965, 16189, 397, 2049, "Input", CellTags->"initcell"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1218826, 40368, 240, 5, 37, "Section", CellOpen->True, CellTags->"maintenance"], Cell[CellGroupData[{ Cell[1219091, 40377, 152, 2, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}], Cell[1219246, 40381, 1609, 42, 115, "Input", CellTags->{"lastopengroup", "opengroup"}] }, Closed]], Cell[CellGroupData[{ Cell[1220892, 40428, 193, 3, 37, "Subsection", CellTags->{"lastopengroup", "opengroup"}], Cell[CellGroupData[{ Cell[1221110, 40435, 1160, 22, 49, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[1222295, 40461, 1161, 22, 49, "Input", Evaluatable->False], Cell[1223459, 40485, 1229, 25, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1224737, 40516, 1181, 25, 49, "Input", Evaluatable->False], Cell[1225921, 40543, 1176, 24, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"], Cell[1227100, 40569, 1177, 24, 49, "Input", Evaluatable->False, CellOpen->True, CellTags->"maintenance"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1228350, 40601, 27, 0, 46, "Subtitle"], Cell[1228380, 40603, 1834, 39, 335, "Text"] }, Closed]] } ] *) (* End of internal cache information *)