(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 104643, 2544] NotebookOptionsPosition[ 99634, 2461] NotebookOutlinePosition[ 100074, 2478] CellTagsIndexPosition[ 100031, 2475] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ StyleBox[ RowBox[{ AdjustmentBox["Backgammon", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], AdjustmentBox[" ", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], AdjustmentBox["-", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], AdjustmentBox[" ", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], RowBox[{ AdjustmentBox["Analyzing", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], AdjustmentBox[" ", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}], AdjustmentBox["Doubling", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}]}]}], "Subsection"], "\[IndentingNewLine]", StyleBox[ RowBox[{"Professor", " ", "Steven", " ", "J", " ", RowBox[{"Miller", ":", " ", RowBox[{ RowBox[{"sjm1", "@", "williams"}], ".", "edu", AdjustmentBox[" ", BoxBaselineShift->0.10183299777464096`, BoxMargins->{{0., 0.}, {-0.10183299777464096`, 0.10183299777464096`}}]}]}]}], "Subsubsection"]}], "Input", CellChangeTimes->{{3.887201372116268*^9, 3.887201404488389*^9}, 3.8872045412705283`*^9, {3.8872159211409073`*^9, 3.8872159531116886`*^9}},ExpressionUUID->"90d43be3-442a-42e6-9084-\ 34d119757775"], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"double", "[", RowBox[{ "numdo_", ",", " ", "pdouble_", ",", " ", "paccept_", ",", "pointswin_", ",", " ", "print_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "numdo", " ", "is", " ", "number", " ", "of", " ", "iterations"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ RowBox[{"pdouble", "/", "paccept"}], " ", "is", " ", "threshold", " ", "for", " ", "first", " ", "to", " ", "double", " ", "2", "nd", " ", "to", " ", "accept"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "pointswin", " ", "is", " ", "how", " ", "many", " ", "points", " ", "need", " ", "to", " ", RowBox[{"win", ".", " ", "our"}], " ", "model", " ", "will", " ", "be", " ", "to", " ", "toss", " ", "a", " ", "fair", " ", "coin", " ", "and", " ", "each", " ", "toss", " ", "each", " ", "person", " ", "equally", " ", "likely", " ", "to", " ", "get", " ", "a", " ", RowBox[{"point", ".", " ", "if"}], " ", "we", " ", "take", " ", "100", " ", "points", " ", "it", " ", "makes", " ", "it", " ", "very", " ", RowBox[{"easy", "."}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"results", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"netresults", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"onewin", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"twowin", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"doublesoffered", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"doublesaccepted", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "1"}], ",", " ", RowBox[{"n", " ", "<=", " ", "numdo"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"score", " ", "=", " ", RowBox[{"pointswin", "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ RowBox[{ "player", " ", "one", " ", "wins", " ", "if", " ", "reach", " ", "pointswin", " ", "points"}], ",", " ", RowBox[{ "player", " ", "two", " ", "if", " ", "reach", " ", "0"}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], " ", "\[IndentingNewLine]", RowBox[{"pwin", " ", "=", " ", RowBox[{"score", StyleBox[ RowBox[{" ", " "}]], "/", " ", "pointswin"}]}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ RowBox[{ "might", " ", "as", " ", "well", " ", "start", " ", "keeping", " ", "track", " ", "when", " ", "probability", " ", "of", " ", "one", " ", "player", " ", "of", " ", "winning", " ", "is", " ", "pdouble"}], ",", " ", RowBox[{"and", " ", "now", " ", "double"}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"valuegame", " ", "=", " ", "1"}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{"initially", " ", "worth", " ", "one", " ", "point"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"whocandouble", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "set", " ", "up", " ", "so", " ", "player", " ", "1", " ", "doubles", " ", "first", " ", "wlog"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"score", " ", "=", " ", RowBox[{"Floor", "[", RowBox[{"pdouble", " ", "*", " ", "pointswin"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameoffered", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameaccepted", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"score", " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"score", " ", "<", " ", "pointswin"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"pwin", " ", "=", " ", RowBox[{"score", " ", "/", " ", "pointswin"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "==", " ", "1"}], ",", " ", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "score", ",", " ", "\"\< and prob win = \>\"", ",", " ", RowBox[{"1.0", "pwin"}], ",", " ", "\"\< and value of game = \>\"", ",", " ", "valuegame"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "see", " ", "if", " ", "player", " ", "one", " ", "can", " ", "double"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pwin", StyleBox[ RowBox[{" ", " "}]], ">=", " ", "pdouble"}], " ", "&&", " ", RowBox[{"whocandouble", " ", "==", " ", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"pwin", " ", ">", " ", "paccept"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", "decline", " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"results", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"results", ",", " ", "valuegame"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"onewin", " ", "=", " ", RowBox[{"onewin", " ", "+", " ", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"netresults", " ", "=", " ", RowBox[{"netresults", " ", "+", " ", "valuegame"}]}], ";", "\[IndentingNewLine]", RowBox[{"score", " ", "=", " ", RowBox[{"pointswin", " ", "+", " ", "100"}]}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{"ends", " ", RowBox[{"game", "!"}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "==", " ", "1"}], ",", " ", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameoffered", "++"}], ";"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", "accept", " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"valuegame", " ", "=", " ", RowBox[{"valuegame", " ", "*", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"whocandouble", " ", "=", " ", "2"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "==", " ", "1"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameoffered", "++"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameaccepted", "++"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "end", " ", "of", " ", "player", " ", "one", " ", "doubling"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "see", " ", "if", " ", "player", " ", "two", " ", "can", " ", "double"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", " ", "-", " ", "pwin"}], " ", ">=", " ", "pdouble"}], StyleBox[ RowBox[{" ", " "}]], "&&", " ", RowBox[{"whocandouble", StyleBox[ RowBox[{" ", " "}]], "==", " ", "2"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", " ", "pwin"}], " ", ">", " ", "paccept"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", "decline", " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"results", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"results", ",", " ", RowBox[{"-", "valuegame"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"twowin", " ", "=", " ", RowBox[{"twowin", " ", "+", " ", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"netresults", " ", "=", " ", RowBox[{"netresults", " ", "-", " ", "valuegame"}]}], ";", "\[IndentingNewLine]", RowBox[{"score", " ", "=", RowBox[{"-", "100"}]}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{"ends", " ", RowBox[{"game", "!"}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "==", " ", "1"}], ",", " ", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameoffered", "++"}], ";"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", "accept", " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"valuegame", " ", "=", " ", RowBox[{"valuegame", " ", "*", " ", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"whocandouble", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"print", " ", "==", " ", "1"}], ",", " ", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameoffered", "++"}], ";", "\[IndentingNewLine]", RowBox[{"doublesingameaccepted", "++"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "end", " ", "of", " ", "player", " ", "two", " ", "doubling"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "check", " ", "to", " ", "see", " ", "if", " ", "game", " ", "should", " ", "end"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{"do", " ", "next", " ", "turn"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], " ", "<", " ", ".5"}], ",", " ", RowBox[{"score", " ", "=", " ", RowBox[{"score", " ", "+", "1"}]}], ",", " ", RowBox[{"score", " ", "=", " ", RowBox[{"score", " ", "-", " ", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"score", " ", "==", " ", "pointswin"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"onewin", " ", "=", " ", RowBox[{"onewin", " ", "+", " ", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"results", ",", " ", "valuegame"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"netresults", " ", "=", " ", RowBox[{"netresults", " ", "+", " ", "valuegame"}]}], ";", "\[IndentingNewLine]", RowBox[{"score", " ", "=", " ", RowBox[{"score", " ", "+", " ", "100"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"score", " ", "==", " ", "0"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"twowin", " ", "=", " ", RowBox[{"twowin", " ", "+", " ", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"results", ",", " ", RowBox[{"-", "valuegame"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"netresults", " ", "=", " ", RowBox[{"netresults", " ", "-", " ", "valuegame"}]}], ";", "\[IndentingNewLine]", RowBox[{"score", " ", "=", " ", RowBox[{"-", " ", "100"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{"end", " ", "of", " ", "while", " ", "loop"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "\[IndentingNewLine]", RowBox[{"doublesoffered", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"doublesoffered", ",", " ", "doublesingameoffered"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"doublesaccepted", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"doublesaccepted", ",", " ", "doublesingameaccepted"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "n", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"1.0", " ", "pdouble"}], ",", " ", "\"\< and prob accept is \>\"", ",", RowBox[{"1.0", " ", "paccept"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"100.0", " ", RowBox[{"onewin", " ", "/", " ", "numdo"}]}], ",", " ", "\"\<%.\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"100.0", RowBox[{"twowin", " ", "/", " ", "numdo"}]}], ",", " ", "\"\<%.\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"netresults", " ", "/", " ", "numdo"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"results", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "results", "]"}]}], "}"}]}], "]"}], "/", "numdo"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"Mean", "[", "doublesoffered", "]"}]}], ",", " ", "\"\< and stdev = \>\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"StandardDeviation", "[", "doublesoffered", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"Mean", "[", "doublesaccepted", "]"}]}], ",", " ", "\"\< and stdev = \>\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"StandardDeviation", "[", "doublesaccepted", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Histogram", "[", RowBox[{ "results", ",", " ", "Automatic", ",", " ", "\"\\""}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Histogram", "[", RowBox[{ "doublesoffered", ",", " ", "Automatic", ",", " ", "\"\\""}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "module"}], " ", "*)"}]}], FontSize->12]], "Input", CellChangeTimes->{{3.8872159793104553`*^9, 3.8872161229939375`*^9}, { 3.8872161571670895`*^9, 3.8872164575132446`*^9}, {3.887245760526701*^9, 3.887245795341014*^9}, {3.8872458584906273`*^9, 3.8872458790775547`*^9}, { 3.887245959977801*^9, 3.887246008582165*^9}, {3.8872460433206825`*^9, 3.887246144874179*^9}, {3.887246248007487*^9, 3.887246289125038*^9}, { 3.8872463217501073`*^9, 3.887246474574871*^9}, {3.8872465917110653`*^9, 3.887246687861635*^9}, {3.8872470918889875`*^9, 3.88724711636464*^9}, 3.8872471613767967`*^9, {3.8872478225679164`*^9, 3.8872478553861713`*^9}, { 3.887248020059169*^9, 3.8872480270073805`*^9}, {3.8872480648714457`*^9, 3.8872481219915285`*^9}, {3.8872483821066217`*^9, 3.887248465310732*^9}, { 3.8872485342228627`*^9, 3.8872485979532604`*^9}, {3.887248660096151*^9, 3.887248838506855*^9}, {3.8872488731777916`*^9, 3.8872488869509134`*^9}, { 3.887248932078167*^9, 3.887248974616107*^9}, {3.8872490442400007`*^9, 3.887249147296037*^9}, {3.887249185179496*^9, 3.8872494273586903`*^9}, { 3.8872495395691385`*^9, 3.8872495416753206`*^9}, {3.8872496475170307`*^9, 3.887249677333692*^9}, {3.8872497091613455`*^9, 3.8872497273831964`*^9}, { 3.887249805716445*^9, 3.8872498631039395`*^9}, {3.887249915484689*^9, 3.8872500321117697`*^9}, {3.8872500902051578`*^9, 3.887250100046256*^9}, { 3.887250138341437*^9, 3.8872501623834276`*^9}, {3.887250282352106*^9, 3.887250427822191*^9}, {3.8872505056237664`*^9, 3.8872505216425667`*^9}, 3.887250577711112*^9, 3.8872507934906235`*^9, {3.887251270449464*^9, 3.8872512725872283`*^9}, {3.8872513335827103`*^9, 3.8872513370937147`*^9}, {3.8872515470237775`*^9, 3.8872516262605915`*^9}, {3.8872517010909953`*^9, 3.887251807984315*^9}, { 3.887252086506143*^9, 3.8872521083292055`*^9}, {3.8872521829272623`*^9, 3.8872522096758595`*^9}, {3.887252275761632*^9, 3.8872522806668205`*^9}, { 3.8872523697629805`*^9, 3.887252396467945*^9}, {3.8872526348520045`*^9, 3.887252648228221*^9}, {3.8872529160759926`*^9, 3.8872530092043486`*^9}, { 3.8872531414460144`*^9, 3.8872531593274107`*^9}, {3.887253270041673*^9, 3.887253290066232*^9}, {3.887253553549428*^9, 3.887253563410403*^9}, { 3.8872815115041*^9, 3.8872815465609055`*^9}, {3.8872859922236633`*^9, 3.8872861954793806`*^9}, {3.8872862337647123`*^9, 3.887286253266783*^9}, { 3.8872862859907894`*^9, 3.8872863413775644`*^9}, {3.8872863790682125`*^9, 3.8872864303363853`*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"8d4562bb-b54d-4b03-85c2-a78f6d462048"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"double", "[", RowBox[{"10000", ",", " ", RowBox[{"70", "/", "100"}], ",", " ", RowBox[{"95", "/", "100"}], ",", "100", ",", " ", "0"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.887247313237119*^9, {3.8872498731510115`*^9, 3.8872499086974716`*^9}, { 3.8872502033966665`*^9, 3.8872502188614225`*^9}, {3.8872504533052254`*^9, 3.88725048386016*^9}, {3.887250800280534*^9, 3.887250810184101*^9}, 3.88725087779819*^9, {3.8872509445952716`*^9, 3.887250952692959*^9}, { 3.8872510186715107`*^9, 3.8872510346671915`*^9}, {3.8872514722011743`*^9, 3.8872514996127195`*^9}, 3.887251683350572*^9, {3.8872518131477447`*^9, 3.8872518141264176`*^9}, {3.8872519517037325`*^9, 3.8872519695107355`*^9}, {3.887252239829247*^9, 3.887252247590647*^9}, { 3.887252300523384*^9, 3.8872523371476126`*^9}, {3.887252421082716*^9, 3.887252474539276*^9}, {3.8872526692205167`*^9, 3.8872526752558804`*^9}, { 3.887252815082345*^9, 3.8872528458374796`*^9}, {3.8872529832145624`*^9, 3.887252984694393*^9}, {3.887253019368451*^9, 3.8872530894745936`*^9}, 3.8872533464820833`*^9, {3.8872534062069607`*^9, 3.8872534657411385`*^9}, { 3.8872535180235443`*^9, 3.887253522264925*^9}, 3.887253708171344*^9, { 3.887253857805622*^9, 3.8872538909546285`*^9}, 3.8872862010715*^9, 3.8872877434105325`*^9}, CellLabel-> "In[156]:=",ExpressionUUID->"7edd3fd7-96a8-4284-ab5c-6ac3c65b6c5c"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob double is \"\>", "\[InvisibleSpace]", "0.7`", "\[InvisibleSpace]", "\<\" and prob accept is \"\>", "\[InvisibleSpace]", "0.95`"}], SequenceForm["Prob double is ", 0.7, " and prob accept is ", 0.95], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109348893`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"432bf951-466e-4b15-9a57-0df7ec133046"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Player one's winning percentage = \"\>", "\[InvisibleSpace]", "70.93`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Player one's winning percentage = ", 70.93, "%."], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"257b9dfc-a008-40fa-9075-90f0b2b520f4"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Player two's winning percentage = \"\>", "\[InvisibleSpace]", "29.07`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Player two's winning percentage = ", 29.07, "%."], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"5e808966-85d9-4ef4-aeea-eab0df102dd6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"netresults / numgames = \"\>", "\[InvisibleSpace]", "0.1304`"}], SequenceForm["netresults / numgames = ", 0.1304], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"d0d962cb-6c6a-43ca-a4d1-c9a3b892bd87"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average Abs[game value] = \"\>", "\[InvisibleSpace]", "7.1576`"}], SequenceForm["Average Abs[game value] = ", 7.1576], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"9662b758-e28f-4a2f-9702-ad06f3cc6af3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Ave number of doubles offered = \"\>", "\[InvisibleSpace]", "1.7289`", "\[InvisibleSpace]", "\<\" and stdev = \"\>", "\[InvisibleSpace]", "1.1397959043049537`"}], SequenceForm[ "Ave number of doubles offered = ", 1.7289, " and stdev = ", 1.1397959043049537`], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"697bdd51-f127-4527-bb43-5b5bb272085a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Ave number of doubles accepted = \"\>", "\[InvisibleSpace]", "1.7289`", "\[InvisibleSpace]", "\<\" and stdev = \"\>", "\[InvisibleSpace]", "1.1397959043049537`"}], SequenceForm[ "Ave number of doubles accepted = ", 1.7289, " and stdev = ", 1.1397959043049537`], Editable->False]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109503994`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"72d4ff03-57eb-45cc-9199-77421df22511"], Cell[BoxData["\<\"Histogram of Results - how much the first to double wins.\"\ \>"], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878109661236`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"8d42b343-7471-4b96-abdd-429da8cbe977"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-4098.048, 0}, {-4091.904, 0.0002}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-21203.44330170189, -21170.8303246545}, { 94.51054145164542, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0002]& , TagBoxNote->"0.0002"], StyleBox["0.0002`", {}, StripOnInput -> False]], Annotation[#, Style[0.0002, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1026.048, 0}, {-1019.904, 0.0001}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-5146.9547780061275`, -5114.341800958736}, { 94.54433322582271, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0001]& , TagBoxNote->"0.0001"], StyleBox["0.0001`", {}, StripOnInput -> False]], Annotation[#, Style[0.0001, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-258.048, 0}, {-251.904, 0.002}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-1132.8326470821867`, -1100.2196700347952`}, { 93.90228951645442, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.002]& , TagBoxNote->"0.002"], StyleBox["0.002`", {}, StripOnInput -> False]], Annotation[#, Style[0.002, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-67.584, 0}, {-61.44, 0.0068}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-137.33035861304933`, -104.71738156565777`}, { 92.28028435594507, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0068]& , TagBoxNote->"0.0068"], StyleBox["0.0068`", {}, StripOnInput -> False]], Annotation[#, Style[0.0068, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-18.432, 0}, {-12.288, 0.0432}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.57345776608295`, 152.18643481347448`}, { 79.98007855541584, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0432]& , TagBoxNote->"0.0432"], StyleBox["0.0432`", {}, StripOnInput -> False]], Annotation[#, Style[0.0432, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-6.144, 0}, {0., 0.2384}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.799411860866, 216.41238890825753`}, { 14.01853536136899, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.2384]& , TagBoxNote->"0.2384"], StyleBox["0.2384`", {}, StripOnInput -> False]], Annotation[#, Style[0.2384, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {6.144, 0.5832}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.91238890825753`, 248.52536595564905`}, {-102.49550200188592`, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.5832]& , TagBoxNote->"0.5832"], StyleBox["0.5832`", {}, StripOnInput -> False]], Annotation[#, Style[0.5832, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.144, 0}, {12.288, 0.1029}, "RoundingRadius" -> 0]}, ImageSizeCache->{{248.02536595564905`, 280.6383430030406}, { 59.80638937158081, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.1029]& , TagBoxNote->"0.1029"], StyleBox["0.1029`", {}, StripOnInput -> False]], Annotation[#, Style[0.1029, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30.72, 0}, {36.864, 0.0185}, "RoundingRadius" -> 0]}, ImageSizeCache->{{376.4772741452152, 409.0902511926067}, { 88.32664677720354, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0185]& , TagBoxNote->"0.0185"], StyleBox["0.0185`", {}, StripOnInput -> False]], Annotation[#, Style[0.0185, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{122.88, 0}, {129.024, 0.0039}, "RoundingRadius" -> 0]}, ImageSizeCache->{{858.1719298560881, 890.7849069034796}, { 93.26024580708614, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0039]& , TagBoxNote->"0.0039"], StyleBox["0.0039`", {}, StripOnInput -> False]], Annotation[#, Style[0.0039, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{509.952, 0}, {516.096, 0.0007}, "RoundingRadius" -> 0]}, ImageSizeCache->{{2881.289483841754, 2913.902460889146}, { 94.34158258075904, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0007]& , TagBoxNote->"0.0007"], StyleBox["0.0007`", {}, StripOnInput -> False]], Annotation[#, Style[0.0007, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2045.952, 0}, {2052.096, 0.0001}, "RoundingRadius" -> 0]}, ImageSizeCache->{{10909.533745689638`, 10942.146722737027`}, { 94.54433322582271, 95.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0001]& , TagBoxNote->"0.0001"], StyleBox["0.0001`", {}, StripOnInput -> False]], Annotation[#, Style[0.0001, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-38.12352, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->NCache[{{ Rational[-4608, 125], 26.112000000000002`}, {All, All}}, {{-36.864, 26.112000000000002`}, {All, All}}], PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878110517745`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"eaf8d296-c710-4830-afd1-1705b9a57521"], Cell[BoxData["\<\"Histogram on number of doubles offered.\"\>"], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878110617857`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"2b637682-85aa-4ece-97e5-6be6429494fc"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.602], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.602], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 0.5832}, "RoundingRadius" -> 0]}, ImageSizeCache->{{23.234526623908376`, 51.16436118522197}, {-102.49550200188591`, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.5832]& , TagBoxNote->"0.5832"], StyleBox["0.5832`", {}, StripOnInput -> False]], Annotation[#, Style[0.5832, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 0.2384}, "RoundingRadius" -> 0]}, ImageSizeCache->{{50.66436118522197, 78.59419574653556}, { 14.018535361369004`, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.2384]& , TagBoxNote->"0.2384"], StyleBox["0.2384`", {}, StripOnInput -> False]], Annotation[#, Style[0.2384, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 0.1029}, "RoundingRadius" -> 0]}, ImageSizeCache->{{78.09419574653556, 106.02403030784916`}, { 59.80638937158083, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.1029]& , TagBoxNote->"0.1029"], StyleBox["0.1029`", {}, StripOnInput -> False]], Annotation[#, Style[0.1029, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 0.0432}, "RoundingRadius" -> 0]}, ImageSizeCache->{{105.52403030784916`, 133.45386486916277`}, { 79.98007855541586, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0432]& , TagBoxNote->"0.0432"], StyleBox["0.0432`", {}, StripOnInput -> False]], Annotation[#, Style[0.0432, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 0.0185}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.95386486916277`, 160.88369943047633`}, { 88.32664677720355, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0185]& , TagBoxNote->"0.0185"], StyleBox["0.0185`", {}, StripOnInput -> False]], Annotation[#, Style[0.0185, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 0.0068}, "RoundingRadius" -> 0]}, ImageSizeCache->{{160.38369943047633`, 188.31353399178994`}, { 92.28028435594508, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0068]& , TagBoxNote->"0.0068"], StyleBox["0.0068`", {}, StripOnInput -> False]], Annotation[#, Style[0.0068, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 0.0039}, "RoundingRadius" -> 0]}, ImageSizeCache->{{187.81353399178994`, 215.74336855310355`}, { 93.26024580708615, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0039]& , TagBoxNote->"0.0039"], StyleBox["0.0039`", {}, StripOnInput -> False]], Annotation[#, Style[0.0039, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 0.002}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.24336855310355`, 243.1732031144171}, { 93.90228951645443, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.002]& , TagBoxNote->"0.002"], StyleBox["0.002`", {}, StripOnInput -> False]], Annotation[#, Style[0.002, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 0.0007}, "RoundingRadius" -> 0]}, ImageSizeCache->{{242.6732031144171, 270.6030376757307}, { 94.34158258075905, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0007]& , TagBoxNote->"0.0007"], StyleBox["0.0007`", {}, StripOnInput -> False]], Annotation[#, Style[0.0007, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 0.0001}, "RoundingRadius" -> 0]}, ImageSizeCache->{{270.1030376757307, 298.03287223704433`}, { 94.54433322582273, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0001]& , TagBoxNote->"0.0001"], StyleBox["0.0001`", {}, StripOnInput -> False]], Annotation[#, Style[0.0001, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 0.0001}, "RoundingRadius" -> 0]}, ImageSizeCache->{{297.53287223704433`, 325.4627067983579}, { 94.54433322582273, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0001]& , TagBoxNote->"0.0001"], StyleBox["0.0001`", {}, StripOnInput -> False]], Annotation[#, Style[0.0001, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 0.0002}, "RoundingRadius" -> 0]}, ImageSizeCache->{{324.9627067983579, 352.8925413596715}, { 94.51054145164544, 95.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0002]& , TagBoxNote->"0.0002"], StyleBox["0.0002`", {}, StripOnInput -> False]], Annotation[#, Style[0.0002, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.76, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 13.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{ 3.887250049414084*^9, 3.887250102125907*^9, 3.8872501649997916`*^9, { 3.887250205147109*^9, 3.887250219403049*^9}, {3.8872502944397354`*^9, 3.8872503180079317`*^9}, 3.887250362373407*^9, {3.8872503961057777`*^9, 3.8872504305870476`*^9}, {3.8872504636731844`*^9, 3.8872504844169703`*^9}, {3.8872505238565674`*^9, 3.8872505427616405`*^9}, {3.8872507975845294`*^9, 3.8872508112024765`*^9}, 3.8872508792463665`*^9, {3.8872509538218737`*^9, 3.8872510354272857`*^9}, 3.8872511990245566`*^9, 3.887251338626384*^9, {3.8872514736178513`*^9, 3.8872515003659697`*^9}, 3.8872516282109833`*^9, 3.8872516845097213`*^9, 3.887251814542693*^9, 3.88725197281899*^9, 3.887252109918988*^9, { 3.8872521942112384`*^9, 3.887252248357804*^9}, {3.887252284253932*^9, 3.8872523384701047`*^9}, {3.8872524151711383`*^9, 3.887252475487178*^9}, { 3.8872526516380777`*^9, 3.887252697624304*^9}, {3.887252818327731*^9, 3.887252875651659*^9}, {3.887252975140736*^9, 3.8872530988021307`*^9}, { 3.887253293047542*^9, 3.8872533485175333`*^9}, {3.8872534107732773`*^9, 3.8872534777741156`*^9}, 3.8872535345989475`*^9, {3.887253579528686*^9, 3.8872536348902903`*^9}, 3.8872536999333696`*^9, 3.8872538336812124`*^9, 3.8872539975722265`*^9, 3.8872780773739405`*^9, 3.887286216230509*^9, 3.8872863304012413`*^9, 3.8872864439708366`*^9, 3.8872878111083317`*^9}, CellLabel-> "During evaluation of \ In[156]:=",ExpressionUUID->"1c60729e-2094-4e78-b2dc-f0b067765499"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"36.34375`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.8872539977684417`*^9, 3.8872780776272907`*^9, 3.8872862164008236`*^9, 3.8872863305111976`*^9, 3.8872864441807275`*^9, 3.8872878111083317`*^9}, CellLabel-> "Out[156]=",ExpressionUUID->"19f5e236-fa17-4188-a531-d14491032795"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"double", "[", RowBox[{"40000", ",", " ", RowBox[{"70", "/", "100"}], ",", " ", RowBox[{"95", "/", "100"}], ",", "100", ",", " ", "0"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.887288726286185*^9, 3.8872887284184523`*^9}, { 3.887289092428113*^9, 3.887289093406437*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"ab251c08-fe05-4ade-b8af-0f0649c25864"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob double is \"\>", "\[InvisibleSpace]", "0.7`", "\[InvisibleSpace]", "\<\" and prob accept is \"\>", "\[InvisibleSpace]", "0.95`"}], SequenceForm["Prob double is ", 0.7, " and prob accept is ", 0.95], Editable->False]], "Print", CellChangeTimes->{3.887289373929381*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"2095b61a-fc2d-4288-9621-356308ddac43"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Player one's winning percentage = \"\>", "\[InvisibleSpace]", "70.07`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Player one's winning percentage = ", 70.07, "%."], Editable->False]], "Print", CellChangeTimes->{3.887289373929381*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"8f948759-22d3-4007-9edf-bfa8c157162b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Player two's winning percentage = \"\>", "\[InvisibleSpace]", "29.93`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Player two's winning percentage = ", 29.93, "%."], Editable->False]], "Print", CellChangeTimes->{3.887289373944419*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"f81a4060-bb3e-4379-a1d9-8c0dde908f7f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"netresults / numgames = \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.06205`"}]}], SequenceForm["netresults / numgames = ", -0.06205], Editable->False]], "Print", CellChangeTimes->{3.887289373944419*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"71642566-3bc4-42fa-903b-989b1b1115b8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average Abs[game value] = \"\>", "\[InvisibleSpace]", "7.49655`"}], SequenceForm["Average Abs[game value] = ", 7.49655], Editable->False]], "Print", CellChangeTimes->{3.887289373944419*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"09dbeb42-22ab-4970-8bb4-d645cb2c5fc6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Ave number of doubles offered = \"\>", "\[InvisibleSpace]", "1.7594`", "\[InvisibleSpace]", "\<\" and stdev = \"\>", "\[InvisibleSpace]", "1.1595021565875927`"}], SequenceForm[ "Ave number of doubles offered = ", 1.7594, " and stdev = ", 1.1595021565875927`], Editable->False]], "Print", CellChangeTimes->{3.8872893739913435`*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"9273f198-8b25-4be5-8ea5-0e3985ecf22c"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Ave number of doubles accepted = \"\>", "\[InvisibleSpace]", "1.7594`", "\[InvisibleSpace]", "\<\" and stdev = \"\>", "\[InvisibleSpace]", "1.1595021565875927`"}], SequenceForm[ "Ave number of doubles accepted = ", 1.7594, " and stdev = ", 1.1595021565875927`], Editable->False]], "Print", CellChangeTimes->{3.887289374006964*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"ca286225-eb80-4d72-91bc-0251c61c2fc9"], Cell[BoxData["\<\"Histogram of Results - how much the first to double wins.\"\ \>"], "Print", CellChangeTimes->{3.887289374006964*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"a744e744-3b3c-40aa-893d-0a88418bf28b"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-4104.192, 0}, {-4091.904, 0.000175}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-10574.047899015295`, -10541.434921967904`}, { 95.52713947355534, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000175]& , TagBoxNote->"0.000175"], StyleBox["0.000175`", {}, StripOnInput -> False]], Annotation[#, Style[0.000175, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1032.192, 0}, {-1019.904, 0.000375}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-2545.803637167414, -2513.190660120022}, { 95.46887030047573, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000375]& , TagBoxNote->"0.000375"], StyleBox["0.000375`", {}, StripOnInput -> False]], Annotation[#, Style[0.000375, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-258.048, 0}, {-245.76, 0.001625}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-522.6860831817476, -490.0731061343561}, { 95.10468796872814, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.001625]& , TagBoxNote->"0.001625"], StyleBox["0.001625`", {}, StripOnInput -> False]], Annotation[#, Style[0.001625, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-73.728, 0}, {-61.44, 0.00875}, "RoundingRadius" -> 0]}, ImageSizeCache->{{-40.99142747087467, -8.378450423483173}, { 93.02884867776693, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.00875]& , TagBoxNote->"0.00875"], StyleBox["0.00875`", {}, StripOnInput -> False]], Annotation[#, Style[0.00875, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-24.576, 0}, {-12.288, 0.04575}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.46048071869141, 120.07345776608295`}, { 82.24905165803854, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.04575]& , TagBoxNote->"0.04575"], StyleBox["0.04575`", {}, StripOnInput -> False]], Annotation[#, Style[0.04575, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-12.288, 0}, {0., 0.242625}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.57345776608295`, 152.18643481347448`}, { 24.89033440779454, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.242625]& , TagBoxNote->"0.242625"], StyleBox["0.242625`", {}, StripOnInput -> False]], Annotation[#, Style[0.242625, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {12.288, 0.676425}, "RoundingRadius" -> 0]}, ImageSizeCache->{{151.68643481347448`, 184.299411860866}, {-101.49550200188597`, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.676425]& , TagBoxNote->"0.676425"], StyleBox["0.676425`", {}, StripOnInput -> False]], Annotation[#, Style[0.676425, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{24.576, 0}, {36.864, 0.020275}, "RoundingRadius" -> 0]}, ImageSizeCache->{{215.91238890825753`, 248.52536595564905`}, { 89.67108757905423, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.020275]& , TagBoxNote->"0.020275"], StyleBox["0.020275`", {}, StripOnInput -> False]], Annotation[#, Style[0.020275, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{122.88, 0}, {135.168, 0.003325}, "RoundingRadius" -> 0]}, ImageSizeCache->{{472.8162052873898, 505.42918233478133`}, { 94.60939999755144, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.003325]& , TagBoxNote->"0.003325"], StyleBox["0.003325`", {}, StripOnInput -> False]], Annotation[#, Style[0.003325, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{503.808, 0}, {516.096, 0.000575}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1468.3184937565272`, 1500.9314708039187`}, { 95.4106011273961, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000575]& , TagBoxNote->"0.000575"], StyleBox["0.000575`", {}, StripOnInput -> False]], Annotation[#, Style[0.000575, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2039.808, 0}, {2052.096, 0.000075}, "RoundingRadius" -> 0]}, ImageSizeCache->{{5482.440624680467, 5515.053601727859}, { 95.55627406009515, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000075]& , TagBoxNote->"0.000075"], StyleBox["0.000075`", {}, StripOnInput -> False]], Annotation[#, Style[0.000075, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8183.808, 0}, {8196.096, 0.000025}, "RoundingRadius" -> 0]}, ImageSizeCache->{{21538.92914837623, 21571.54212542362}, { 95.57084135336505, 96.078125}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000025]& , TagBoxNote->"0.000025"], StyleBox["0.000025`", {}, StripOnInput -> False]], Annotation[#, Style[0.000025, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-51.67104, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->NCache[{{ Rational[-6144, 125], 76.8}, {All, All}}, {{-49.152, 76.8}, {All, All}}], PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.8872893741475863`*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"f0fb3b28-b57b-4c6d-94e4-dc5a85c5de8d"], Cell[BoxData["\<\"Histogram on number of doubles offered.\"\>"], "Print", CellChangeTimes->{3.8872893741632214`*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"0f9180ba-a9c7-4487-be21-11556aee514c"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.595], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.595], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 0.570225}, "RoundingRadius" -> 0]}, ImageSizeCache->{{23.23452662390838, 49.05437391127478}, {-100.49550200188601`, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.570225]& , TagBoxNote->"0.570225"], StyleBox["0.570225`", {}, StripOnInput -> False]], Annotation[#, Style[0.570225, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 0.242625}, "RoundingRadius" -> 0]}, ImageSizeCache->{{48.55437391127478, 74.37422119864118}, { 12.725279629606547`, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.242625]& , TagBoxNote->"0.242625"], StyleBox["0.242625`", {}, StripOnInput -> False]], Annotation[#, Style[0.242625, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 0.1062}, "RoundingRadius" -> 0]}, ImageSizeCache->{{73.87422119864118, 99.69406848600758}, { 59.87468480077986, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.1062]& , TagBoxNote->"0.1062"], StyleBox["0.1062`", {}, StripOnInput -> False]], Annotation[#, Style[0.1062, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 0.04575}, "RoundingRadius" -> 0]}, ImageSizeCache->{{99.19406848600758, 125.01391577337398`}, { 80.76661474468624, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.04575]& , TagBoxNote->"0.04575"], StyleBox["0.04575`", {}, StripOnInput -> False]], Annotation[#, Style[0.04575, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 0.020275}, "RoundingRadius" -> 0]}, ImageSizeCache->{{124.51391577337398`, 150.33376306074038`}, { 89.57094750433907, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.020275]& , TagBoxNote->"0.020275"], StyleBox["0.020275`", {}, StripOnInput -> False]], Annotation[#, Style[0.020275, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 0.00875}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.83376306074038`, 175.65361034810678`}, { 93.554065661552, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.00875]& , TagBoxNote->"0.00875"], StyleBox["0.00875`", {}, StripOnInput -> False]], Annotation[#, Style[0.00875, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 0.003325}, "RoundingRadius" -> 0]}, ImageSizeCache->{{175.15361034810678`, 200.97345763547318`}, { 95.42898245138976, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.003325]& , TagBoxNote->"0.003325"], StyleBox["0.003325`", {}, StripOnInput -> False]], Annotation[#, Style[0.003325, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 0.001625}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.47345763547318`, 226.29330492283958`}, { 96.0165139800025, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.001625]& , TagBoxNote->"0.001625"], StyleBox["0.001625`", {}, StripOnInput -> False]], Annotation[#, Style[0.001625, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 0.000575}, "RoundingRadius" -> 0]}, ImageSizeCache->{{225.79330492283958`, 251.61315221020598`}, { 96.37940110061626, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000575]& , TagBoxNote->"0.000575"], StyleBox["0.000575`", {}, StripOnInput -> False]], Annotation[#, Style[0.000575, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 0.000375}, "RoundingRadius" -> 0]}, ImageSizeCache->{{251.11315221020598`, 276.9329994975723}, { 96.44852245692364, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000375]& , TagBoxNote->"0.000375"], StyleBox["0.000375`", {}, StripOnInput -> False]], Annotation[#, Style[0.000375, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 0.000075}, "RoundingRadius" -> 0]}, ImageSizeCache->{{276.4329994975723, 302.25284678493875`}, { 96.55220449138471, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000075]& , TagBoxNote->"0.000075"], StyleBox["0.000075`", {}, StripOnInput -> False]], Annotation[#, Style[0.000075, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 0.000175}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.75284678493875`, 327.5726940723052}, { 96.51764381323103, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000175]& , TagBoxNote->"0.000175"], StyleBox["0.000175`", {}, StripOnInput -> False]], Annotation[#, Style[0.000175, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0}, {14., 0.000025}, "RoundingRadius" -> 0]}, ImageSizeCache->{{327.0726940723052, 352.89254135967155`}, { 96.56948483046156, 97.07812499999999}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.000025]& , TagBoxNote->"0.000025"], StyleBox["0.000025`", {}, StripOnInput -> False]], Annotation[#, Style[0.000025, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.74, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 14.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.88728937422571*^9}, CellLabel-> "During evaluation of \ In[160]:=",ExpressionUUID->"1762a1b1-aaab-4341-b68c-6071f9294163"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"142.046875`", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.887278176634107*^9, 3.8872890792694817`*^9, 3.88728937422571*^9}, CellLabel-> "Out[160]=",ExpressionUUID->"0cff2ddd-e223-4a4b-a29b-aed119b700a5"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"checkprob", "[", RowBox[{"numdo_", ",", " ", "prob_", ",", " ", "pointswin_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"onewin", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"twowin", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "1"}], ",", " ", RowBox[{"n", " ", "<=", " ", "numdo"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"score", " ", "=", " ", RowBox[{"prob", " ", "*", " ", "pointswin"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"score", " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"score", " ", "<", " ", "pointswin"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"score", " ", "=", " ", RowBox[{"score", " ", "+", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], " ", "<", " ", ".5"}], ",", " ", "1", ",", " ", RowBox[{"-", "1"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "while", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"score", " ", "==", " ", "pointswin"}], ",", " ", RowBox[{"onewin", " ", "=", " ", RowBox[{"onewin", " ", "+", " ", "1"}]}], ",", " ", RowBox[{"twowin", " ", "=", " ", RowBox[{"twowin", " ", "+", " ", "1"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "for", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "prob"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"onewin", " ", "*", " ", RowBox[{"100.0", " ", "/", " ", "numdo"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"twowin", " ", "*", " ", RowBox[{"100.0", " ", "/", " ", "numdo"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8872473147423363`*^9, 3.8872474509758663`*^9}, { 3.887247486207654*^9, 3.8872476251810617`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"420b81ef-8352-4a23-9efb-d1a96ac30028"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"checkprob", "[", RowBox[{"10000", ",", ".5", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.8872476021396194`*^9, 3.8872476408082657`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"effe3fc3-9300-4179-ac8d-1b411659ea35"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob p = \"\>", "\[InvisibleSpace]", "0.5`"}], SequenceForm["Prob p = ", 0.5], Editable->False]], "Print", CellChangeTimes->{{3.887247627048839*^9, 3.887247634197139*^9}, 3.887247684389189*^9}, CellLabel-> "During evaluation of \ In[8]:=",ExpressionUUID->"3fbad086-df2d-4853-b45b-60ffd6f8e6d2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 1 wins is \"\>", "\[InvisibleSpace]", "49.9`"}], SequenceForm["Prob player 1 wins is ", 49.9], Editable->False]], "Print", CellChangeTimes->{{3.887247627048839*^9, 3.887247634197139*^9}, 3.8872476844312363`*^9}, CellLabel-> "During evaluation of \ In[8]:=",ExpressionUUID->"dd071792-ad80-43e3-9c91-ad3cfa210e9a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 2 wins is \"\>", "\[InvisibleSpace]", "50.1`"}], SequenceForm["Prob player 2 wins is ", 50.1], Editable->False]], "Print", CellChangeTimes->{{3.887247627048839*^9, 3.887247634197139*^9}, 3.887247684552581*^9}, CellLabel-> "During evaluation of \ In[8]:=",ExpressionUUID->"bff00feb-d375-4d50-9cb1-3d097eb37e44"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"checkprob", "[", RowBox[{"10000", ",", ".72", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.8872477006379294`*^9, 3.887247702470147*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"1028df18-b8c4-43a0-bcce-cbc47753291b"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob p = \"\>", "\[InvisibleSpace]", "0.72`"}], SequenceForm["Prob p = ", 0.72], Editable->False]], "Print", CellChangeTimes->{3.8872477300971904`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"0b2c0388-d6f1-4cfa-b16c-c63307141dd0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 1 wins is \"\>", "\[InvisibleSpace]", "71.73`"}], SequenceForm["Prob player 1 wins is ", 71.73], Editable->False]], "Print", CellChangeTimes->{3.8872477300971904`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"274583cf-6b54-44e3-8b3b-0e3a70901f91"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 2 wins is \"\>", "\[InvisibleSpace]", "28.27`"}], SequenceForm["Prob player 2 wins is ", 28.27], Editable->False]], "Print", CellChangeTimes->{3.8872477301128244`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"7268ee2a-7b34-437a-b075-8441de00d311"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"checkprob", "[", RowBox[{"10000", ",", ".87", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.887247746991356*^9, 3.8872477498827643`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"26a20b2e-88ee-42ad-8ddb-76513bb128a0"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob p = \"\>", "\[InvisibleSpace]", "0.87`"}], SequenceForm["Prob p = ", 0.87], Editable->False]], "Print", CellChangeTimes->{3.8872477660929155`*^9}, CellLabel-> "During evaluation of \ In[10]:=",ExpressionUUID->"a9417ac0-ae30-4130-95c2-ce7c98dfc8ee"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 1 wins is \"\>", "\[InvisibleSpace]", "87.5`"}], SequenceForm["Prob player 1 wins is ", 87.5], Editable->False]], "Print", CellChangeTimes->{3.8872477660929155`*^9}, CellLabel-> "During evaluation of \ In[10]:=",ExpressionUUID->"fc153ac1-cb57-4bd5-b4e4-4dfc60d0a7d0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 2 wins is \"\>", "\[InvisibleSpace]", "12.5`"}], SequenceForm["Prob player 2 wins is ", 12.5], Editable->False]], "Print", CellChangeTimes->{3.8872477660929155`*^9}, CellLabel-> "During evaluation of \ In[10]:=",ExpressionUUID->"5b6f4d69-6456-45f3-81d3-d1a8947f7817"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"checkprob", "[", RowBox[{"10000", ",", ".87", ",", "200"}], "]"}]], "Input", CellChangeTimes->{{3.8872486212446976`*^9, 3.887248621482336*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"b852ebd7-4aec-4b57-9e68-5e8bb4822423"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob p = \"\>", "\[InvisibleSpace]", "0.87`"}], SequenceForm["Prob p = ", 0.87], Editable->False]], "Print", CellChangeTimes->{3.8872486782350416`*^9}, CellLabel-> "During evaluation of \ In[11]:=",ExpressionUUID->"830fa93a-85a3-4e9b-8666-452390effce8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 1 wins is \"\>", "\[InvisibleSpace]", "87.26`"}], SequenceForm["Prob player 1 wins is ", 87.26], Editable->False]], "Print", CellChangeTimes->{3.8872486782506766`*^9}, CellLabel-> "During evaluation of \ In[11]:=",ExpressionUUID->"e998e3eb-07c0-4a0b-aa68-dac20b5d67a6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Prob player 2 wins is \"\>", "\[InvisibleSpace]", "12.74`"}], SequenceForm["Prob player 2 wins is ", 12.74], Editable->False]], "Print", CellChangeTimes->{3.8872486782506766`*^9}, CellLabel-> "During evaluation of \ In[11]:=",ExpressionUUID->"b016c6cc-2729-4400-a5e2-09cfdbec2822"] }, Open ]] }, Open ]] }, WindowSize->{1152., 579.6}, WindowMargins->{{ Automatic, -5.399999999999864}, {-5.399999999999977, Automatic}}, FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (January 30, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"399adaa9-2e30-4cc4-90cc-f6c4b99bd1ea" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1690, 38, 57, "Input",ExpressionUUID->"90d43be3-442a-42e6-9084-34d119757775"], Cell[2251, 60, 24654, 506, 1889, "Input",ExpressionUUID->"8d4562bb-b54d-4b03-85c2-a78f6d462048"], Cell[CellGroupData[{ Cell[26930, 570, 1468, 25, 28, "Input",ExpressionUUID->"7edd3fd7-96a8-4284-ab5c-6ac3c65b6c5c"], Cell[CellGroupData[{ Cell[28423, 599, 1808, 29, 22, "Print",ExpressionUUID->"432bf951-466e-4b15-9a57-0df7ec133046"], Cell[30234, 630, 1774, 28, 22, "Print",ExpressionUUID->"257b9dfc-a008-40fa-9075-90f0b2b520f4"], Cell[32011, 660, 1774, 28, 22, "Print",ExpressionUUID->"5e808966-85d9-4ef4-aeea-eab0df102dd6"], Cell[33788, 690, 1711, 27, 22, "Print",ExpressionUUID->"d0d962cb-6c6a-43ca-a4d1-c9a3b892bd87"], Cell[35502, 719, 1719, 28, 22, "Print",ExpressionUUID->"9662b758-e28f-4a2f-9702-ad06f3cc6af3"], Cell[37224, 749, 1870, 31, 22, "Print",ExpressionUUID->"697bdd51-f127-4527-bb43-5b5bb272085a"], Cell[39097, 782, 1872, 31, 22, "Print",ExpressionUUID->"72d4ff03-57eb-45cc-9199-77421df22511"], Cell[40972, 815, 1609, 24, 22, "Print",ExpressionUUID->"8d42b343-7471-4b96-abdd-429da8cbe977"], Cell[42584, 841, 11288, 315, 230, "Print",ExpressionUUID->"eaf8d296-c710-4830-afd1-1705b9a57521"], Cell[53875, 1158, 1589, 23, 22, "Print",ExpressionUUID->"2b637682-85aa-4ece-97e5-6be6429494fc"], Cell[55467, 1183, 10790, 298, 230, "Print",ExpressionUUID->"1c60729e-2094-4e78-b2dc-f0b067765499"] }, Open ]], Cell[66272, 1484, 337, 7, 32, "Output",ExpressionUUID->"19f5e236-fa17-4188-a531-d14491032795"] }, Open ]], Cell[CellGroupData[{ Cell[66646, 1496, 426, 10, 28, "Input",ExpressionUUID->"ab251c08-fe05-4ade-b8af-0f0649c25864"], Cell[CellGroupData[{ Cell[67097, 1510, 440, 10, 22, "Print",ExpressionUUID->"2095b61a-fc2d-4288-9621-356308ddac43"], Cell[67540, 1522, 406, 9, 22, "Print",ExpressionUUID->"8f948759-22d3-4007-9edf-bfa8c157162b"], Cell[67949, 1533, 406, 9, 22, "Print",ExpressionUUID->"f81a4060-bb3e-4379-a1d9-8c0dde908f7f"], Cell[68358, 1544, 365, 9, 22, "Print",ExpressionUUID->"71642566-3bc4-42fa-903b-989b1b1115b8"], Cell[68726, 1555, 353, 9, 22, "Print",ExpressionUUID->"09dbeb42-22ab-4970-8bb4-d645cb2c5fc6"], Cell[69082, 1566, 504, 12, 22, "Print",ExpressionUUID->"9273f198-8b25-4be5-8ea5-0e3985ecf22c"], Cell[69589, 1580, 504, 12, 22, "Print",ExpressionUUID->"ca286225-eb80-4d72-91bc-0251c61c2fc9"], Cell[70096, 1594, 241, 5, 22, "Print",ExpressionUUID->"a744e744-3b3c-40aa-893d-0a88418bf28b"], Cell[70340, 1601, 9958, 299, 231, "Print",ExpressionUUID->"f0fb3b28-b57b-4c6d-94e4-dc5a85c5de8d"], Cell[80301, 1902, 223, 4, 22, "Print",ExpressionUUID->"0f9180ba-a9c7-4487-be21-11556aee514c"], Cell[80527, 1908, 10346, 300, 235, "Print",ExpressionUUID->"1762a1b1-aaab-4341-b68c-6071f9294163"] }, Open ]], Cell[90888, 2211, 259, 6, 32, "Output",ExpressionUUID->"0cff2ddd-e223-4a4b-a29b-aed119b700a5"] }, Open ]], Cell[91162, 2220, 3075, 68, 314, "Input",ExpressionUUID->"420b81ef-8352-4a23-9efb-d1a96ac30028"], Cell[CellGroupData[{ Cell[94262, 2292, 250, 4, 28, "Input",ExpressionUUID->"effe3fc3-9300-4179-ac8d-1b411659ea35"], Cell[CellGroupData[{ Cell[94537, 2300, 355, 9, 22, "Print",ExpressionUUID->"3fbad086-df2d-4853-b45b-60ffd6f8e6d2"], Cell[94895, 2311, 385, 9, 22, "Print",ExpressionUUID->"dd071792-ad80-43e3-9c91-ad3cfa210e9a"], Cell[95283, 2322, 383, 9, 22, "Print",ExpressionUUID->"bff00feb-d375-4d50-9cb1-3d097eb37e44"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[95715, 2337, 249, 4, 28, "Input",ExpressionUUID->"1028df18-b8c4-43a0-bcce-cbc47753291b"], Cell[CellGroupData[{ Cell[95989, 2345, 309, 8, 22, "Print",ExpressionUUID->"0b2c0388-d6f1-4cfa-b16c-c63307141dd0"], Cell[96301, 2355, 337, 8, 22, "Print",ExpressionUUID->"274583cf-6b54-44e3-8b3b-0e3a70901f91"], Cell[96641, 2365, 337, 8, 22, "Print",ExpressionUUID->"7268ee2a-7b34-437a-b075-8441de00d311"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97027, 2379, 250, 4, 28, "Input",ExpressionUUID->"26a20b2e-88ee-42ad-8ddb-76513bb128a0"], Cell[CellGroupData[{ Cell[97302, 2387, 310, 8, 22, "Print",ExpressionUUID->"a9417ac0-ae30-4130-95c2-ce7c98dfc8ee"], Cell[97615, 2397, 336, 8, 22, "Print",ExpressionUUID->"fc153ac1-cb57-4bd5-b4e4-4dfc60d0a7d0"], Cell[97954, 2407, 336, 8, 22, "Print",ExpressionUUID->"5b6f4d69-6456-45f3-81d3-d1a8947f7817"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[98339, 2421, 250, 4, 28, "Input",ExpressionUUID->"b852ebd7-4aec-4b57-9e68-5e8bb4822423"], Cell[CellGroupData[{ Cell[98614, 2429, 310, 8, 22, "Print",ExpressionUUID->"830fa93a-85a3-4e9b-8666-452390effce8"], Cell[98927, 2439, 338, 8, 22, "Print",ExpressionUUID->"e998e3eb-07c0-4a0b-aa68-dac20b5d67a6"], Cell[99268, 2449, 338, 8, 22, "Print",ExpressionUUID->"b016c6cc-2729-4400-a5e2-09cfdbec2822"] }, Open ]] }, Open ]] } ] *)