(* 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[ 112900, 3147] NotebookOptionsPosition[ 105839, 2948] NotebookOutlinePosition[ 106205, 2964] CellTagsIndexPosition[ 106162, 2961] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"Coupon", " ", "Problem", " ", "With", " ", "Multiplicities"}], "Title"]], "Input", CellChangeTimes->{{3.464911350609375*^9, 3.464911359125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"timetoall", "[", RowBox[{"c_", ",", "multiplicities_", ",", "num_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"soln", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "1"}], ",", " ", RowBox[{"n", " ", "\[LessEqual]", " ", "num"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"c", "+", "1"}]}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{ RowBox[{"value", "[", "i", "]"}], " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"sum", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"sum", " ", "<", " ", RowBox[{"multiplicities", " ", "*", " ", "c"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"c", "-", "1"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", RowBox[{"j", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"value", "[", "z", "]"}], " ", "<", " ", "multiplicities"}], ",", " ", RowBox[{ RowBox[{"value", "[", "z", "]"}], " ", "=", " ", RowBox[{ RowBox[{"value", "[", "z", "]"}], "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"value", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"soln", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"soln", ",", "j"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Histogram", "[", RowBox[{"soln", ",", "Automatic", ",", " ", "\"\\""}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "c", ",", " ", "\"\<, multiplicities = \>\"", ",", " ", "multiplicities", ",", " ", "\"\<, and iterations = \>\"", ",", " ", "num", ",", " ", "\"\<.\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"1.0", " ", RowBox[{"Mean", "[", RowBox[{"1.0", " ", "soln"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"Sqrt", "[", RowBox[{"1.0", " ", RowBox[{"Variance", "[", "soln", "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"1.0", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"1.0", " ", "soln"}], "]"}], " ", "/", " ", RowBox[{"(", RowBox[{"c", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", "k"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ")"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1.0", " ", RowBox[{"Variance", "[", "soln", "]"}]}], "]"}], " ", "/", " ", RowBox[{ RowBox[{"(", RowBox[{"c", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", "k"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ")"}], "^", "2"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.46491138378125*^9, 3.46491168228125*^9}, { 3.464911781609375*^9, 3.464911782515625*^9}, {3.464911983203125*^9, 3.464911985921875*^9}, {3.464912303921875*^9, 3.464912309078125*^9}, { 3.464913948328125*^9, 3.464914120359375*^9}, {3.464914172*^9, 3.46491417784375*^9}, {3.464990736484375*^9, 3.46499078559375*^9}, { 3.464991380140625*^9, 3.46499142071875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timetoall", "[", RowBox[{"100", ",", "2", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.464911529875*^9, 3.464911534*^9}, {3.46491168475*^9, 3.464911692390625*^9}, {3.464911791546875*^9, 3.464911794828125*^9}, 3.464911945578125*^9, 3.46491216390625*^9, 3.46491414940625*^9, 3.46491421775*^9, 3.4649889660625*^9, {3.464990788296875*^9, 3.46499080009375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{400, 0}, {500, 0.02}]}, ImageSizeCache->{{20.75, 68.10714285714283}, {83.37916363676425, 95.49305234202268}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{500, 0}, {600, 0.14}]}, ImageSizeCache->{{67.60714285714283, 114.96428571428572`}, { 13.69583140521361, 95.49305234202268}}], StatusArea[#, 0.14]& , TagBoxNote->"0.14"], StyleBox["0.14`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{600, 0}, {700, 0.32}]}, ImageSizeCache->{{114.46428571428572`, 161.82142857142856`}, {-90.82916694211232, 95.49305234202268}}], StatusArea[#, 0.32]& , TagBoxNote->"0.32"], StyleBox["0.32`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.32, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{700, 0}, {800, 0.25}]}, ImageSizeCache->{{161.32142857142856`, 208.67857142857144`}, {-50.18055647370778, 95.49305234202268}}], StatusArea[#, 0.25]& , TagBoxNote->"0.25"], StyleBox["0.25`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{800, 0}, {900, 0.17}]}, ImageSizeCache->{{208.17857142857144`, 255.53571428571428`}, {-3.725001652674038, 95.49305234202268}}], StatusArea[#, 0.17]& , TagBoxNote->"0.17"], StyleBox["0.17`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{900, 0}, {1000, 0.06}]}, ImageSizeCache->{{255.03571428571428`, 302.3928571428571}, { 60.15138622624737, 95.49305234202268}}], StatusArea[#, 0.06]& , TagBoxNote->"0.06"], StyleBox["0.06`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1000, 0}, {1100, 0.04}]}, ImageSizeCache->{{301.8928571428571, 349.25}, {71.7652749315058, 95.49305234202268}}], StatusArea[#, 0.04]& , TagBoxNote->"0.04"], StyleBox["0.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.04, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{400, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{400, 1100}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{ 3.46491169375*^9, 3.464911733671875*^9, {3.4649117849375*^9, 3.464911824*^9}, 3.464911947578125*^9, 3.464911991703125*^9, 3.464912068125*^9, 3.464912154359375*^9, 3.464912310828125*^9, 3.464913955984375*^9, 3.46491400271875*^9, 3.464914071421875*^9, 3.46491410403125*^9, 3.46491415571875*^9, 3.46491418646875*^9, 3.464914227359375*^9, 3.464989052296875*^9, {3.464990797828125*^9, 3.464990807578125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "725.89`"}], SequenceForm["Mean value: ", 725.89], Editable->False]], "Print", CellChangeTimes->{ 3.46491169375*^9, 3.464911733671875*^9, {3.4649117849375*^9, 3.464911824*^9}, 3.464911947578125*^9, 3.464911991703125*^9, 3.464912068125*^9, 3.464912154359375*^9, 3.464912310828125*^9, 3.464913955984375*^9, 3.46491400271875*^9, 3.464914071421875*^9, 3.46491410403125*^9, 3.46491415571875*^9, 3.46491418646875*^9, 3.464914227359375*^9, 3.464989052296875*^9, {3.464990797828125*^9, 3.464990807578125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "133.79970670801754`"}], SequenceForm["Std Deviation: ", 133.79970670801754`], Editable->False]], "Print", CellChangeTimes->{ 3.46491169375*^9, 3.464911733671875*^9, {3.4649117849375*^9, 3.464911824*^9}, 3.464911947578125*^9, 3.464911991703125*^9, 3.464912068125*^9, 3.464912154359375*^9, 3.464912310828125*^9, 3.464913955984375*^9, 3.46491400271875*^9, 3.464914071421875*^9, 3.46491410403125*^9, 3.46491415571875*^9, 3.46491418646875*^9, 3.464914227359375*^9, 3.464989052296875*^9, {3.464990797828125*^9, 3.464990807578125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.3993390639713785`"}], SequenceForm["Normalized mean value: ", 1.3993390639713785`], Editable->False]], "Print", CellChangeTimes->{ 3.46491169375*^9, 3.464911733671875*^9, {3.4649117849375*^9, 3.464911824*^9}, 3.464911947578125*^9, 3.464911991703125*^9, 3.464912068125*^9, 3.464912154359375*^9, 3.464912310828125*^9, 3.464913955984375*^9, 3.46491400271875*^9, 3.464914071421875*^9, 3.46491410403125*^9, 3.46491415571875*^9, 3.46491418646875*^9, 3.464914227359375*^9, 3.464989052296875*^9, {3.464990797828125*^9, 3.464990807578125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.0004972324351959636`"}], SequenceForm["Normalized Std Deviation: ", 0.0004972324351959636], Editable->False]], "Print", CellChangeTimes->{ 3.46491169375*^9, 3.464911733671875*^9, {3.4649117849375*^9, 3.464911824*^9}, 3.464911947578125*^9, 3.464911991703125*^9, 3.464912068125*^9, 3.464912154359375*^9, 3.464912310828125*^9, 3.464913955984375*^9, 3.46491400271875*^9, 3.464914071421875*^9, 3.46491410403125*^9, 3.46491415571875*^9, 3.46491418646875*^9, 3.464914227359375*^9, 3.464989052296875*^9, {3.464990797828125*^9, 3.464990807578125*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Harmonic"}]], "Input", CellChangeTimes->{{3.464914123015625*^9, 3.464914125796875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Information", "::", "\<\"notfound\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Symbol \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\\"Harmonic\\\"\\), \\\"MT\\\ \"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" not found.\\\\\\\"\\\", \\\"MT\ \\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\ \", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \ \\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4649141268125*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.464988995328125*^9, 3.464989011296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"timetoallrange", "[", RowBox[{"cstart_", ",", "cend_", ",", "multiplicities_", ",", "num_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cdata", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"normalizedcdata", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"c", " ", "=", " ", "cstart"}], ",", " ", RowBox[{"c", " ", "\[LessEqual]", " ", "cend"}], ",", RowBox[{"c", " ", "=", " ", RowBox[{"c", " ", "+", " ", "2"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"soln", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "1"}], ",", " ", RowBox[{"n", " ", "\[LessEqual]", " ", "num"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"c", "+", "1"}]}], ",", " ", RowBox[{"i", "++"}], ",", " ", RowBox[{ RowBox[{"value", "[", "i", "]"}], " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"sum", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"sum", " ", "<", " ", RowBox[{"multiplicities", " ", "*", " ", "c"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"c", "-", "1"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", " ", "=", " ", RowBox[{"j", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"value", "[", "z", "]"}], " ", "<", " ", "multiplicities"}], ",", " ", RowBox[{ RowBox[{"value", "[", "z", "]"}], " ", "=", " ", RowBox[{ RowBox[{"value", "[", "z", "]"}], "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sum", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"value", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "while", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"soln", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"soln", ",", "j"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "n", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cdata", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"cdata", ",", " ", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1.0", " ", RowBox[{"Mean", "[", RowBox[{"1.0", " ", "soln"}], "]"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"normalizedcdata", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"normalizedcdata", ",", " ", RowBox[{"{", RowBox[{"c", ",", " ", RowBox[{"1.0", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"1.0", " ", "soln"}], "]"}], " ", "/", " ", RowBox[{"(", RowBox[{"c", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", "k"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ")"}]}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"Histogram", "[", RowBox[{ "soln", ",", "Automatic", ",", " ", "\"\\""}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"1.0", " ", RowBox[{"Mean", "[", RowBox[{"1.0", " ", "soln"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"1.0", " ", RowBox[{"Sqrt", "[", RowBox[{"1.0", " ", RowBox[{"Variance", "[", "soln", "]"}]}], "]"}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "c", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"ListPlot", "[", "cdata", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"ListPlot", "[", "normalizedcdata", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.464988779453125*^9, 3.46498895609375*^9}, { 3.464988990140625*^9, 3.464989033265625*^9}, {3.464989075890625*^9, 3.46498913140625*^9}, 3.4649891901875*^9, {3.46498963865625*^9, 3.464989640265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timetoallrange", "[", RowBox[{"20", ",", "200", ",", "2", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.46498910484375*^9, 3.464989112703125*^9}, 3.464989215578125*^9, {3.464989540796875*^9, 3.464989540953125*^9}, { 3.46498964496875*^9, 3.464989646140625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJw9k0tIVFEcxi9RUEK7ggLT2tUiCnoQmvFPzTHtMTO+5+U87jxCyUeWNQ5y MiesrNFeNtEmCtpZIJlgi4vVIihpEdiikAlaRG51M5vu7ftOBy6H3/3Od8// /M93d0V7vPF1hmH47ceZMQ5KVcnSs94qn4APy/Ne+01NiHxEPn+yx0CEXCG5 hdXdgTdR8lF5Z2Ou2iQfk2lXIb1lTbNIn7PBWJJ8XALOB96nyNWyx3nh7iLX iO2eduW7ybVS77woP08+IXNl2T+e9h5ynTjVl8z3kV3QJ/rJ9ain/wL5pNjq XNmq5gbsb10kN4L3XyKfQj1bB8mnMXdfJp9BfV1XyGflcd4em9NkN/TGIbBy Y86QDY94nYKfZqh7ZMUuL1s5TN2L81hk5cVcqqg3od5tZNUkB5yx4yr1Zvi/ k1Uz+r/zGvUW3E/tCPUW3P9Lrbei/hmyakVe/utt8i8+T0apt+E+9mapt2P9 B7Ii/9B6h6zZ8VnYfp16B/QXZMOH720Yo+7D+kNkwy9D9vUUNt6g7sfcQDYC 6O+U1gM4X/EW9SD6M0JWQei/blIP4fybxqmHxNku/VP7O7H/gNY78X8UblMP S8IZb8kSRp6W7nB9GPtN5sBWGPlcP0F/BPX/JksEeV4mqwjWl5KtCPb7pv1R 9HN4kn7yKFlF8X8v3qU/yrySjRjybJIlhvwUySqGvM1qP9evaL+JPI/fo99E XoP36TfRj0qyZUq5c6CPZCOOel+TJY5+f9X+OObFB/THUX8d2UjgPirIkkB9 8w/pT6B/y2SL7JuiP4l6E9QlCb2o/UmcL/uI/iTy+kr7UzhPhizkfVyvUsjT F+1P4X+cJRvncJ+DefkL3y+XzQ== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Print", CellChangeTimes->{3.464989590765625*^9, 3.464990494484375*^9}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJw9kw1MlHUcxwnHy8ZUXiOCTc5e0JmHjbjAzvhiR2KQvAgHBx7cK9y51DhE 8LC4eYGd5iCn0wYKCvOYu0W8CM1ynmya2STKGxrL1IiBBRd5g8MZWc3ny7M9 e/bd5//5ff/P8+wv0uzK1fv6+PgU/3f//3x6vYbtTZ/HfS/3pjzNEnz6qKDZ NcqcBHttSfyf9nkhr8eRsOH7306QSzEmm1jy3jHmN/HLSGSSj3ZOyEBTQ+1H Q6+Sp2K4NXFsqp18I+J7g6VBMvK3MHks2Ou5Ri7DRW32ib4DzGkY/M47ExrO /DbO7lt4du9x+psw5Z0LE+mY05HpmbJWb2TejDDX3HhIP/13sH9dsnjPZ+QZ mA892CT5hzwT95R1pvn7zO+iIfBBXEIC12/BXVnwx5FrmbNw+FyT2XOT67Mx +4yneWaJwC3Z+HlSLI3JI8+BRrm0O+p9IVtyMJOlie2/R56LT3Y7TPoPyXOh SgoIr7pBvhXm+LjRwBDyrZiOPeRMvEieh6oNdX+k+rE/DwNmUWSVm/vNxytT s1+uSqSfj8G9aZ3Gxf8hh9v/9YDVdnI57K6hhy2BnF+AKwsdA7Ya8gK4LzU/ tlrIC5FfkLPG3EheiPN1Ktv2aHIFxqNsI2nDswJXwNGdYmgfEbJPEST1XR2r 2+gXoaLaYUvIoF+MK+KTpp8OkRejvuS5Xd3p5NswHV1bGRJGvg3nAyuXyc/w /ZTY4c1six8kV8LdEOWrHGJ/CRTBERUvcJ6lBJZ9VyPdF8hLcfO46lGfk/sv xXjIGx8cNbJfhdblTwaMvwkcKnQdlI36c/8WFdau6BtTcL1ThV+dkvgROX01 Rn3PBjSKhf1CjZ3jDxyWC/TVuLzFfjVNLsx3qhGU3rrzxxnuT4OJ54Oa2zgf GkxbA2+38PxYNAjwr3xpT54w36mBMv1oy5nFfi2WuzKKlsbQ12Jz+GDSUDV9 LZ6IU2N7+P+cWuR3tM6Hfs1+HXpjrvtnr6Cvw6k7Nesv8fxZdCj0WzlbsIHv r8Oya1+dXrN43vXIjtjx4u+x9PXYnfWy720Pv7ced/9W9YjO0ddj0s/9cNUP 7C9DxWnFWLqZ378MnQuKUmsP+8twY//K4js2+mVoXJd8WDrA/nJERJu0XVb6 5TDp6jW3rrO/HKLLjV/0z9EvB2pO6m5Nst8AY07GqRNV9A1Q9z52TLnoG3Dk rzZri4i+Ae0HkiXub+gbIY1rrekUz6X8C9o3y8I= "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->Automatic, PlotRangeClipping->True]], "Print", CellChangeTimes->{3.464989590765625*^9, 3.464990494484375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"timetoall", "[", RowBox[{"300", ",", "2", ",", "100"}], "]"}], "\[IndentingNewLine]", RowBox[{"timetoall", "[", RowBox[{"400", ",", "2", ",", "100"}], "]"}], "\[IndentingNewLine]", RowBox[{"timetoall", "[", RowBox[{"500", ",", "2", ",", "100"}], "]"}], "\[IndentingNewLine]", RowBox[{"timetoall", "[", RowBox[{"1000", ",", "2", ",", "100"}], "]"}]}], "Input", CellChangeTimes->{{3.464990835421875*^9, 3.464990844890625*^9}, { 3.464991439515625*^9, 3.464991449890625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1800, 0}, {2000, 0.06}]}, ImageSizeCache->{{20.74999999999997, 48.83367346938772}, { 40.10536333422833, 94.18368479858947}}], StatusArea[#, 0.06]& , TagBoxNote->"0.06"], StyleBox["0.06`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2000, 0}, {2200, 0.12}]}, ImageSizeCache->{{48.33367346938772, 76.41734693877547}, {-13.47295813013281, 94.18368479858947}}], StatusArea[#, 0.12]& , TagBoxNote->"0.12"], StyleBox["0.12`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2200, 0}, {2400, 0.21}]}, ImageSizeCache->{{75.91734693877547, 104.00102040816321`}, {-93.84044032667452, 94.18368479858947}}], StatusArea[#, 0.21]& , TagBoxNote->"0.21"], StyleBox["0.21`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.21, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2400, 0}, {2600, 0.19}]}, ImageSizeCache->{{103.50102040816321`, 131.58469387755096`}, {-75.98099983855414, 94.18368479858947}}], StatusArea[#, 0.19]& , TagBoxNote->"0.19"], StyleBox["0.19`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.19, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2600, 0}, {2800, 0.2}]}, ImageSizeCache->{{131.08469387755096`, 159.1683673469387}, {-84.91072008261435, 94.18368479858947}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2800, 0}, {3000, 0.12}]}, ImageSizeCache->{{158.6683673469387, 186.75204081632646`}, {-13.47295813013281, 94.18368479858947}}], StatusArea[#, 0.12]& , TagBoxNote->"0.12"], StyleBox["0.12`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3000, 0}, {3200, 0.05}]}, ImageSizeCache->{{186.25204081632646`, 214.3357142857142}, { 49.035083578288514`, 94.18368479858947}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3200, 0}, {3400, 0.02}]}, ImageSizeCache->{{213.8357142857142, 241.91938775510195`}, { 75.82424431046908, 94.18368479858947}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3400, 0}, {3600, 0.02}]}, ImageSizeCache->{{241.41938775510195`, 269.50306122448967`}, { 75.82424431046908, 94.18368479858947}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ], {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000, 0}, {4200, 0.01}]}, ImageSizeCache->{{324.17040816326517`, 352.25408163265297`}, { 84.75396455452928, 94.18368479858947}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{1800, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{1800, 4200}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Analysis for: c = \"\>", "\[InvisibleSpace]", "300", "\[InvisibleSpace]", "\<\", multiplicities = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", and iterations = \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Analysis for: c = ", 300, ", multiplicities = ", 2, ", and iterations = ", 100, "."], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "2543.56`"}], SequenceForm["Mean value: ", 2543.56], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "393.64782804589754`"}], SequenceForm["Std Deviation: ", 393.64782804589754`], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.349512483059837`"}], SequenceForm["Normalized mean value: ", 1.349512483059837], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.0001108096794540841`"}], SequenceForm["Normalized Std Deviation: ", 0.0001108096794540841], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991537359375*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2500, 0}, {3000, 0.16}]}, ImageSizeCache->{{15.75, 71.75}, {15.50929744397034, 95.44292905066735}}], StatusArea[#, 0.16]& , TagBoxNote->"0.16"], StyleBox["0.16`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.16, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3000, 0}, {3500, 0.38}]}, ImageSizeCache->{{71.25, 127.25}, {-93.71194601523806, 95.44292905066735}}], StatusArea[#, 0.38]& , TagBoxNote->"0.38"], StyleBox["0.38`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.38, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3500, 0}, {4000, 0.28}]}, ImageSizeCache->{{126.75, 182.75}, {-44.065926261052425`, 95.44292905066735}}], StatusArea[#, 0.28]& , TagBoxNote->"0.28"], StyleBox["0.28`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.28, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000, 0}, {4500, 0.12}]}, ImageSizeCache->{{182.25, 238.25}, {35.367705345644595`, 95.44292905066735}}], StatusArea[#, 0.12]& , TagBoxNote->"0.12"], StyleBox["0.12`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4500, 0}, {5000, 0.04}]}, ImageSizeCache->{{237.75, 293.75}, {75.08452114899309, 95.44292905066735}}], StatusArea[#, 0.04]& , TagBoxNote->"0.04"], StyleBox["0.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.04, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5000, 0}, {5500, 0.02}]}, ImageSizeCache->{{293.25, 349.25}, {85.01372509983022, 95.44292905066735}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{2500, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{2500, 5500}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499166053125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Analysis for: c = \"\>", "\[InvisibleSpace]", "400", "\[InvisibleSpace]", "\<\", multiplicities = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", and iterations = \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Analysis for: c = ", 400, ", multiplicities = ", 2, ", and iterations = ", 100, "."], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991660546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "3526.7`"}], SequenceForm["Mean value: ", 3526.7], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991660546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "547.9342196750529`"}], SequenceForm["Std Deviation: ", 547.9342196750529], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991660546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.341985441920482`"}], SequenceForm["Normalized mean value: ", 1.341985441920482], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991660546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.0000793390502604772`"}], SequenceForm["Normalized Std Deviation: ", 0.0000793390502604772], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991660546875*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3000, 0}, {3500, 0.02}]}, ImageSizeCache->{{20.75, 68.10714285714283}, {81.40023261414743, 94.2883805664231}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3500, 0}, {4000, 0.21}]}, ImageSizeCache->{{67.60714285714283, 114.96428571428572`}, {-36.28717293247142, 94.2883805664231}}], StatusArea[#, 0.21]& , TagBoxNote->"0.21"], StyleBox["0.21`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.21, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4000, 0}, {4500, 0.3}]}, ImageSizeCache->{{114.46428571428572`, 161.82142857142856`}, {-92.03383871771193, 94.2883805664231}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4500, 0}, {5000, 0.23}]}, ImageSizeCache->{{161.32142857142856`, 208.67857142857144`}, {-48.67532088474711, 94.2883805664231}}], StatusArea[#, 0.23]& , TagBoxNote->"0.23"], StyleBox["0.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5000, 0}, {5500, 0.17}]}, ImageSizeCache->{{208.17857142857144`, 255.53571428571428`}, {-11.510877027920102`, 94.2883805664231}}], StatusArea[#, 0.17]& , TagBoxNote->"0.17"], StyleBox["0.17`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5500, 0}, {6000, 0.05}]}, ImageSizeCache->{{255.03571428571428`, 302.39285714285717`}, { 62.818010685733924`, 94.2883805664231}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000, 0}, {6500, 0.02}]}, ImageSizeCache->{{301.89285714285717`, 349.25000000000006`}, { 81.40023261414743, 94.2883805664231}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{3000, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{3000, 6500}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464991845828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Analysis for: c = \"\>", "\[InvisibleSpace]", "500", "\[InvisibleSpace]", "\<\", multiplicities = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", and iterations = \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Analysis for: c = ", 500, ", multiplicities = ", 2, ", and iterations = ", 100, "."], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499184584375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "4498.89`"}], SequenceForm["Mean value: ", 4498.89], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499184584375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "650.6470733357709`"}], SequenceForm["Std Deviation: ", 650.6470733357709], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499184584375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.324600895744548`"}], SequenceForm["Normalized mean value: ", 1.324600895744548], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499184584375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.00005640333976250907`"}], SequenceForm["Normalized Std Deviation: ", 0.00005640333976250907], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499184584375*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7000, 0}, {8000, 0.04}]}, ImageSizeCache->{{20.75, 62.62551020408159}, {71.62202301914657, 94.18368479858938}}], StatusArea[#, 0.04]& , TagBoxNote->"0.04"], StyleBox["0.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.04, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000, 0}, {9000, 0.2}]}, ImageSizeCache->{{62.12551020408159, 104.00102040816324`}, {-16.624624098624707`, 94.18368479858938}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9000, 0}, {10000, 0.34}]}, ImageSizeCache->{{103.50102040816324`, 145.3765306122449}, {-93.84044032667455, 94.18368479858938}}], StatusArea[#, 0.34]& , TagBoxNote->"0.34"], StyleBox["0.34`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.34, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10000, 0}, {11000, 0.23}]}, ImageSizeCache->{{144.8765306122449, 186.75204081632648`}, {-33.170870433206815`, 94.18368479858938}}], StatusArea[#, 0.23]& , TagBoxNote->"0.23"], StyleBox["0.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11000, 0}, {12000, 0.13}]}, ImageSizeCache->{{186.25204081632648`, 228.12755102040813`}, { 21.98328401540023, 94.18368479858938}}], StatusArea[#, 0.13]& , TagBoxNote->"0.13"], StyleBox["0.13`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12000, 0}, {13000, 0.04}]}, ImageSizeCache->{{227.62755102040813`, 269.5030612244897}, { 71.62202301914657, 94.18368479858938}}], StatusArea[#, 0.04]& , TagBoxNote->"0.04"], StyleBox["0.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.04, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14000, 0}, {15000, 0.02}]}, ImageSizeCache->{{310.37857142857143`, 352.254081632653}, { 82.65285390886797, 94.18368479858938}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{7000, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{7000, 15000}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.4649926055625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Analysis for: c = \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\", multiplicities = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", and iterations = \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Analysis for: c = ", 1000, ", multiplicities = ", 2, ", and iterations = ", 100, "."], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.4649926055625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "9904.86`"}], SequenceForm["Mean value: ", 9904.86], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.4649926055625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "1370.8946280484586`"}], SequenceForm["Std Deviation: ", 1370.8946280484586`], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464992605578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.323211349629351`"}], SequenceForm["Normalized mean value: ", 1.323211349629351], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.464992605578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.00002446616084057137`"}], SequenceForm["Normalized Std Deviation: ", 0.00002446616084057137], Editable->False]], "Print", CellChangeTimes->{3.464990922046875*^9, 3.4649914408125*^9, 3.46499260559375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timetoall", "[", RowBox[{"1000", ",", "2", ",", "1000"}], "]"}]], "Input", CellChangeTimes->{3.464992750484375*^9}], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6500, 0}, {7000, 0.001}]}, ImageSizeCache->{{20.74999999999997, 34.49016326530611}, { 92.59342825716348, 94.18368479858944}}], StatusArea[#, 0.001]& , TagBoxNote->"0.001"], StyleBox["0.001`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.001, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7000, 0}, {7500, 0.01}]}, ImageSizeCache->{{33.99016326530611, 47.73032653061222}, { 82.7811193843299, 94.18368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7500, 0}, {8000, 0.046}]}, ImageSizeCache->{{47.23032653061222, 60.970489795918354`}, { 43.53188389299557, 94.18368479858944}}], StatusArea[#, 0.046]& , TagBoxNote->"0.046"], StyleBox["0.046`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.046, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8000, 0}, {8500, 0.09}]}, ImageSizeCache->{{60.470489795918354`, 74.21065306122446}, {-4.4394039297463905`, 94.18368479858944}}], StatusArea[#, 0.09]& , TagBoxNote->"0.09"], StyleBox["0.09`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.09, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8500, 0}, {9000, 0.144}]}, ImageSizeCache->{{73.71065306122446, 87.45081632653057}, {-63.31325716674786, 94.18368479858944}}], StatusArea[#, 0.144]& , TagBoxNote->"0.144"], StyleBox["0.144`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.144, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9000, 0}, {9500, 0.172}]}, ImageSizeCache->{{86.95081632653057, 100.69097959183671`}, {-93.84044032667458, 94.18368479858944}}], StatusArea[#, 0.172]& , TagBoxNote->"0.172"], StyleBox["0.172`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.172, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9500, 0}, {10000, 0.148}]}, ImageSizeCache->{{100.19097959183671`, 113.93114285714279`}, {-67.6742833324517, 94.18368479858944}}], StatusArea[#, 0.148]& , TagBoxNote->"0.148"], StyleBox["0.148`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.148, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10000, 0}, {10500, 0.117}]}, ImageSizeCache->{{113.43114285714279`, 127.17130612244893`}, {-33.876330548247125`, 94.18368479858944}}], StatusArea[#, 0.117]& , TagBoxNote->"0.117"], StyleBox["0.117`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.117, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10500, 0}, {11000, 0.092}]}, ImageSizeCache->{{126.67130612244893`, 140.41146938775506`}, {-6.619917012598293, 94.18368479858944}}], StatusArea[#, 0.092]& , TagBoxNote->"0.092"], StyleBox["0.092`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.092, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11000, 0}, {11500, 0.066}]}, ImageSizeCache->{{139.91146938775506`, 153.65163265306114`}, { 21.726753064476497`, 94.18368479858944}}], StatusArea[#, 0.066]& , TagBoxNote->"0.066"], StyleBox["0.066`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.066, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11500, 0}, {12000, 0.036}]}, ImageSizeCache->{{153.15163265306114`, 166.89179591836728`}, { 54.434449307255115`, 94.18368479858944}}], StatusArea[#, 0.036]& , TagBoxNote->"0.036"], StyleBox["0.036`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.036, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12000, 0}, {12500, 0.031}]}, ImageSizeCache->{{166.39179591836728`, 180.13195918367342`}, { 59.88573201438488, 94.18368479858944}}], StatusArea[#, 0.031]& , TagBoxNote->"0.031"], StyleBox["0.031`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.031, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12500, 0}, {13000, 0.017}]}, ImageSizeCache->{{179.63195918367342`, 193.3721224489795}, { 75.14932359434823, 94.18368479858944}}], StatusArea[#, 0.017]& , TagBoxNote->"0.017"], StyleBox["0.017`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.017, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13000, 0}, {13500, 0.009}]}, ImageSizeCache->{{192.8721224489795, 206.61228571428563`}, { 83.87137592575586, 94.18368479858944}}], StatusArea[#, 0.009]& , TagBoxNote->"0.009"], StyleBox["0.009`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.009, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13500, 0}, {14000, 0.01}]}, ImageSizeCache->{{206.11228571428563`, 219.85244897959177`}, { 82.7811193843299, 94.18368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14000, 0}, {14500, 0.004}]}, ImageSizeCache->{{219.35244897959177`, 233.09261224489785`}, { 89.32265863288562, 94.18368479858944}}], StatusArea[#, 0.004]& , TagBoxNote->"0.004"], StyleBox["0.004`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.004, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14500, 0}, {15000, 0.005}]}, ImageSizeCache->{{232.59261224489785`, 246.332775510204}, { 88.23240209145968, 94.18368479858944}}], StatusArea[#, 0.005]& , TagBoxNote->"0.005"], StyleBox["0.005`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.005, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15000, 0}, {15500, 0.001}]}, ImageSizeCache->{{245.832775510204, 259.5729387755101}, { 92.59342825716348, 94.18368479858944}}], StatusArea[#, 0.001]& , TagBoxNote->"0.001"], StyleBox["0.001`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.001, { GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18500, 0}, {19000, 0.001}]}, ImageSizeCache->{{338.51391836734683`, 352.25408163265297`}, { 92.59342825716348, 94.18368479858944}}], StatusArea[#, 0.001]& , TagBoxNote->"0.001"], StyleBox["0.001`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.001, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{6500, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{6500, 19000}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Print", CellChangeTimes->{3.465000318421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Analysis for: c = \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\", multiplicities = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", and iterations = \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Analysis for: c = ", 1000, ", multiplicities = ", 2, ", and iterations = ", 1000, "."], Editable->False]], "Print", CellChangeTimes->{3.465000318421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean value: \"\>", "\[InvisibleSpace]", "9842.042`"}], SequenceForm["Mean value: ", 9842.042], Editable->False]], "Print", CellChangeTimes->{3.465000318421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Std Deviation: \"\>", "\[InvisibleSpace]", "1401.1147764736666`"}], SequenceForm["Std Deviation: ", 1401.1147764736666`], Editable->False]], "Print", CellChangeTimes->{3.465000318421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized mean value: \"\>", "\[InvisibleSpace]", "1.3148193591760766`"}], SequenceForm["Normalized mean value: ", 1.3148193591760766`], Editable->False]], "Print", CellChangeTimes->{3.465000318421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Normalized Std Deviation: \"\>", "\[InvisibleSpace]", "0.000025005495517992648`"}], SequenceForm["Normalized Std Deviation: ", 0.000025005495517992648`], Editable->False]], "Print", CellChangeTimes->{3.465000318421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timetoall", "[", RowBox[{"1000", ",", "1", ",", "10"}], "]"}]], "Input", CellChangeTimes->{ 3.465002143546875*^9, {3.465002997984375*^9, 3.46500299921875*^9}}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{ 3.465002160765625*^9, {3.465002995203125*^9, 3.465003014078125*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"couponalt", "[", "num_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"soln", " ", "=", " ", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"n", " ", "=", " ", "1"}], ",", " ", RowBox[{"n", " ", "\[LessEqual]", " ", "num"}], ",", " ", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"done1", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"done2", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"count", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"done1", " ", "\[LessEqual]", " ", "1"}], " ", "||", " ", RowBox[{"done2", " ", "\[LessEqual]", " ", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"count", " ", "=", " ", RowBox[{"count", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], " ", "<", " ", ".5"}], ",", " ", RowBox[{"done1", " ", "=", " ", RowBox[{"done1", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], " ", "<", " ", ".5"}], ",", " ", RowBox[{"done2", " ", "=", " ", RowBox[{"done2", "+", "1"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "while", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"soln", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"soln", ",", " ", "count"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", RowBox[{"num", "/", "10"}]}], "]"}], " ", "\[Equal]", " ", "0"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "num"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", "n"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"Mean", "[", "soln", "]"}], " ", "1.0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Variance", "[", "soln", "]"}], " ", "1.0"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "if", " ", "statement"}], " ", "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", " ", RowBox[{"(*", " ", RowBox[{"end", " ", "of", " ", "n", " ", "loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "num"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"Mean", "[", "soln", "]"}], " ", "1.0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Variance", "[", "soln", "]"}], " ", "1.0"}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.465073404640625*^9, 3.4650735760625*^9}, { 3.465073622515625*^9, 3.465073702203125*^9}, {3.465073734328125*^9, 3.46507376178125*^9}, {3.465075005328125*^9, 3.4650751058125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"couponalt", "[", "100000", "]"}]], "Input", CellChangeTimes->{{3.4650810608125*^9, 3.46508106490625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081066296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "10000"}], SequenceForm["At n = ", 10000], Editable->False]], "Print", CellChangeTimes->{3.465081066296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.023`"}], SequenceForm["Mean is ", 5.023], Editable->False]], "Print", CellChangeTimes->{3.465081066296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1220087870056554`"}], SequenceForm["StDev is ", 2.1220087870056554`], Editable->False]], "Print", CellChangeTimes->{3.4650810663125*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4650810663125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081067875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "20000"}], SequenceForm["At n = ", 20000], Editable->False]], "Print", CellChangeTimes->{3.465081067875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.0219`"}], SequenceForm["Mean is ", 5.0219], Editable->False]], "Print", CellChangeTimes->{3.465081067890625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1156427361937458`"}], SequenceForm["StDev is ", 2.1156427361937458`], Editable->False]], "Print", CellChangeTimes->{3.4650810679375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4650810679375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.46508107028125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "30000"}], SequenceForm["At n = ", 30000], Editable->False]], "Print", CellChangeTimes->{3.46508107028125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.026`"}], SequenceForm["Mean is ", 5.026], Editable->False]], "Print", CellChangeTimes->{3.465081070296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1305575113516584`"}], SequenceForm["StDev is ", 2.1305575113516584`], Editable->False]], "Print", CellChangeTimes->{3.465081070359375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.465081070359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.46508107346875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "40000"}], SequenceForm["At n = ", 40000], Editable->False]], "Print", CellChangeTimes->{3.46508107346875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.01945`"}], SequenceForm["Mean is ", 5.01945], Editable->False]], "Print", CellChangeTimes->{3.465081073484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.126636960583318`"}], SequenceForm["StDev is ", 2.126636960583318], Editable->False]], "Print", CellChangeTimes->{3.46508107359375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.46508107359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.46508107746875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "50000"}], SequenceForm["At n = ", 50000], Editable->False]], "Print", CellChangeTimes->{3.46508107746875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.01856`"}], SequenceForm["Mean is ", 5.01856], Editable->False]], "Print", CellChangeTimes->{3.465081077484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.123917547108394`"}], SequenceForm["StDev is ", 2.123917547108394], Editable->False]], "Print", CellChangeTimes->{3.465081077609375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.465081077609375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081082203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "60000"}], SequenceForm["At n = ", 60000], Editable->False]], "Print", CellChangeTimes->{3.465081082203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.021016666666666`"}], SequenceForm["Mean is ", 5.021016666666666], Editable->False]], "Print", CellChangeTimes->{3.46508108221875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.125860677729354`"}], SequenceForm["StDev is ", 2.125860677729354], Editable->False]], "Print", CellChangeTimes->{3.46508108240625*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.465081082421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081087828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "70000"}], SequenceForm["At n = ", 70000], Editable->False]], "Print", CellChangeTimes->{3.465081087828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.026442857142857`"}], SequenceForm["Mean is ", 5.026442857142857], Editable->False]], "Print", CellChangeTimes->{3.46508108784375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1269581842304617`"}], SequenceForm["StDev is ", 2.1269581842304617`], Editable->False]], "Print", CellChangeTimes->{3.46508108809375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.46508108809375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.4650810943125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "80000"}], SequenceForm["At n = ", 80000], Editable->False]], "Print", CellChangeTimes->{3.4650810943125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.02005`"}], SequenceForm["Mean is ", 5.02005], Editable->False]], "Print", CellChangeTimes->{3.46508109434375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1253363170756665`"}], SequenceForm["StDev is ", 2.1253363170756665`], Editable->False]], "Print", CellChangeTimes->{3.465081094546875*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.465081094546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.46508110153125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "90000"}], SequenceForm["At n = ", 90000], Editable->False]], "Print", CellChangeTimes->{3.46508110153125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.021055555555556`"}], SequenceForm["Mean is ", 5.021055555555556], Editable->False]], "Print", CellChangeTimes->{3.4650811015625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.127010483952173`"}], SequenceForm["StDev is ", 2.127010483952173], Editable->False]], "Print", CellChangeTimes->{3.4650811018125*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.4650811018125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081109515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm["At n = ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081109515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.02032`"}], SequenceForm["Mean is ", 5.02032], Editable->False]], "Print", CellChangeTimes->{3.465081109546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1235988779244406`"}], SequenceForm["StDev is ", 2.1235988779244406`], Editable->False]], "Print", CellChangeTimes->{3.465081109828125*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{3.465081109828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 100000], Editable->False]], "Print", CellChangeTimes->{3.465081109828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.02032`"}], SequenceForm["Mean is ", 5.02032], Editable->False]], "Print", CellChangeTimes->{3.465081109859375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1235988779244406`"}], SequenceForm["StDev is ", 2.1235988779244406`], Editable->False]], "Print", CellChangeTimes->{3.465081110125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"couponalt", "[", "1000000", "]"}]], "Input", CellChangeTimes->{{3.465073581015625*^9, 3.465073594609375*^9}, 3.46507363475*^9, {3.46507370634375*^9, 3.46507370653125*^9}, { 3.465073767*^9, 3.465073773*^9}, 3.465074996625*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075149953125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "100000"}], SequenceForm["At n = ", 100000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075149953125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.03807`"}], SequenceForm["Mean is ", 5.03807], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075149953125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.127718483953991`"}], SequenceForm["StDev is ", 2.127718483953991], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075150234375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075150234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075287015625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "200000"}], SequenceForm["At n = ", 200000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075287015625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.034065`"}], SequenceForm["Mean is ", 5.034065], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075287046875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.128198116226755`"}], SequenceForm["StDev is ", 2.128198116226755], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507528765625*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075287671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.4650755218125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "300000"}], SequenceForm["At n = ", 300000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.4650755218125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.03339`"}], SequenceForm["Mean is ", 5.03339], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075521859375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.132454829325113`"}], SequenceForm["StDev is ", 2.132454829325113], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507552275*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507552275*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075848234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "400000"}], SequenceForm["At n = ", 400000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075848234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.03266`"}], SequenceForm["Mean is ", 5.03266], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075848296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1300163536518135`"}], SequenceForm["StDev is ", 2.1300163536518135`], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075849234375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465075849234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507626903125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "500000"}], SequenceForm["At n = ", 500000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507626903125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.032488`"}], SequenceForm["Mean is ", 5.032488], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465076269125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1291711055232723`"}], SequenceForm["StDev is ", 2.1291711055232723`], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507627075*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507627075*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465076783234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "600000"}], SequenceForm["At n = ", 600000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465076783234375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.033831666666667`"}], SequenceForm["Mean is ", 5.033831666666667], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507678334375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1301669686551366`"}], SequenceForm["StDev is ", 2.1301669686551366`], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465076785484375*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465076785484375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507738875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "700000"}], SequenceForm["At n = ", 700000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507738875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.034234285714286`"}], SequenceForm["Mean is ", 5.034234285714286], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507738890625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.1320024641541813`"}], SequenceForm["StDev is ", 2.1320024641541813`], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465077391296875*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465077391296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078083890625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "800000"}], SequenceForm["At n = ", 800000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078083890625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.03523625`"}], SequenceForm["Mean is ", 5.03523625], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078084078125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.13340405126455`"}], SequenceForm["StDev is ", 2.13340405126455], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078087015625*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078087015625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507886690625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "900000"}], SequenceForm["At n = ", 900000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507886690625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.034595555555556`"}], SequenceForm["Mean is ", 5.034595555555556], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078867125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.133036797783386`"}], SequenceForm["StDev is ", 2.133036797783386], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078869296875*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465078869296875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465079740609375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"At n = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm["At n = ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465079740625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.035132`"}], SequenceForm["Mean is ", 5.035132], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465079740875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.133544069051843`"}], SequenceForm["StDev is ", 2.133544069051843], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.4650797448125*^9}], Cell[BoxData["\<\" \"\>"], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.4650797448125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Doing case of getting two of each, can draw either each time, \ iterations = \"\>", "\[InvisibleSpace]", "1000000"}], SequenceForm[ "Doing case of getting two of each, can draw either each time, iterations = \ ", 1000000], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.4650797448125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mean is \"\>", "\[InvisibleSpace]", "5.035132`"}], SequenceForm["Mean is ", 5.035132], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.46507974503125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"StDev is \"\>", "\[InvisibleSpace]", "2.133544069051843`"}], SequenceForm["StDev is ", 2.133544069051843], Editable->False]], "Print", CellChangeTimes->{{3.46507358465625*^9, 3.465073632546875*^9}, 3.4650736799375*^9, {3.46507376371875*^9, 3.46507376846875*^9}, 3.4650738179375*^9, 3.46507508615625*^9, 3.465079748984375*^9}] }, Open ]] }, Open ]] }, WindowSize->{1004, 828}, WindowMargins->{{18, Automatic}, {9, Automatic}}, ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 184, 4, 58, "Input"], Cell[732, 26, 5413, 125, 472, "Input"], Cell[CellGroupData[{ Cell[6170, 155, 407, 7, 31, "Input"], Cell[CellGroupData[{ Cell[6602, 166, 5430, 164, 233, "Print"], Cell[12035, 332, 621, 12, 23, "Print"], Cell[12659, 346, 656, 13, 23, "Print"], Cell[13318, 361, 672, 13, 23, "Print"], Cell[13993, 376, 683, 13, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14725, 395, 117, 2, 31, "Input"], Cell[14845, 399, 596, 11, 21, "Message"] }, Open ]], Cell[15456, 413, 92, 1, 31, "Input"], Cell[15551, 416, 6448, 141, 592, "Input"], Cell[CellGroupData[{ Cell[22024, 561, 301, 5, 31, "Input"], Cell[CellGroupData[{ Cell[22350, 570, 1173, 23, 229, "Print"], Cell[23526, 595, 1551, 29, 222, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25126, 630, 517, 10, 92, "Input"], Cell[CellGroupData[{ Cell[25668, 644, 7001, 218, 233, "Print"], Cell[32672, 864, 533, 11, 23, "Print"], Cell[33208, 877, 260, 6, 23, "Print"], Cell[33471, 885, 293, 7, 23, "Print"], Cell[33767, 894, 306, 7, 23, "Print"], Cell[34076, 903, 320, 7, 23, "Print"], Cell[34399, 912, 4327, 138, 234, "Print"], Cell[38729, 1052, 533, 11, 23, "Print"], Cell[39265, 1065, 258, 6, 23, "Print"], Cell[39526, 1073, 290, 7, 23, "Print"], Cell[39819, 1082, 306, 7, 23, "Print"], Cell[40128, 1091, 320, 7, 23, "Print"], Cell[40451, 1100, 5091, 158, 231, "Print"], Cell[45545, 1260, 532, 11, 23, "Print"], Cell[46080, 1273, 259, 6, 23, "Print"], Cell[46342, 1281, 289, 7, 23, "Print"], Cell[46634, 1290, 305, 7, 23, "Print"], Cell[46942, 1299, 321, 7, 23, "Print"], Cell[47266, 1308, 5100, 158, 233, "Print"], Cell[52369, 1468, 533, 11, 23, "Print"], Cell[52905, 1481, 258, 6, 23, "Print"], Cell[53166, 1489, 293, 7, 23, "Print"], Cell[53462, 1498, 306, 7, 23, "Print"], Cell[53771, 1507, 321, 7, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54141, 1520, 143, 3, 31, "Input"], Cell[CellGroupData[{ Cell[54309, 1527, 12763, 397, 233, "Print"], Cell[67075, 1926, 492, 10, 23, "Print"], Cell[67570, 1938, 217, 5, 23, "Print"], Cell[67790, 1945, 248, 6, 23, "Print"], Cell[68041, 1953, 264, 6, 23, "Print"], Cell[68308, 1961, 280, 6, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68637, 1973, 189, 4, 31, "Input"], Cell[68829, 1979, 126, 2, 30, "Output"] }, Open ]], Cell[68970, 1984, 4818, 106, 552, "Input"], Cell[CellGroupData[{ Cell[73813, 2094, 130, 2, 31, "Input"], Cell[CellGroupData[{ Cell[73968, 2100, 345, 8, 23, "Print"], Cell[74316, 2110, 200, 5, 23, "Print"], Cell[74519, 2117, 203, 5, 23, "Print"], Cell[74725, 2124, 230, 5, 23, "Print"], Cell[74958, 2131, 75, 1, 23, "Print"], Cell[75036, 2134, 342, 8, 23, "Print"], Cell[75381, 2144, 197, 5, 23, "Print"], Cell[75581, 2151, 205, 5, 23, "Print"], Cell[75789, 2158, 230, 5, 23, "Print"], Cell[76022, 2165, 75, 1, 23, "Print"], Cell[76100, 2168, 344, 8, 23, "Print"], Cell[76447, 2178, 199, 5, 23, "Print"], Cell[76649, 2185, 203, 5, 23, "Print"], Cell[76855, 2192, 232, 5, 23, "Print"], Cell[77090, 2199, 77, 1, 23, "Print"], Cell[77170, 2202, 344, 8, 23, "Print"], Cell[77517, 2212, 199, 5, 23, "Print"], Cell[77719, 2219, 207, 5, 23, "Print"], Cell[77929, 2226, 228, 5, 23, "Print"], Cell[78160, 2233, 76, 1, 23, "Print"], Cell[78239, 2236, 344, 8, 23, "Print"], Cell[78586, 2246, 199, 5, 23, "Print"], Cell[78788, 2253, 207, 5, 23, "Print"], Cell[78998, 2260, 229, 5, 23, "Print"], Cell[79230, 2267, 77, 1, 23, "Print"], Cell[79310, 2270, 345, 8, 23, "Print"], Cell[79658, 2280, 200, 5, 23, "Print"], Cell[79861, 2287, 226, 5, 23, "Print"], Cell[80090, 2294, 228, 5, 23, "Print"], Cell[80321, 2301, 77, 1, 23, "Print"], Cell[80401, 2304, 345, 8, 23, "Print"], Cell[80749, 2314, 200, 5, 23, "Print"], Cell[80952, 2321, 226, 5, 23, "Print"], Cell[81181, 2328, 231, 5, 23, "Print"], Cell[81415, 2335, 76, 1, 23, "Print"], Cell[81494, 2338, 343, 8, 23, "Print"], Cell[81840, 2348, 198, 5, 23, "Print"], Cell[82041, 2355, 206, 5, 23, "Print"], Cell[82250, 2362, 232, 5, 23, "Print"], Cell[82485, 2369, 77, 1, 23, "Print"], Cell[82565, 2372, 344, 8, 23, "Print"], Cell[82912, 2382, 199, 5, 23, "Print"], Cell[83114, 2389, 225, 5, 23, "Print"], Cell[83342, 2396, 227, 5, 23, "Print"], Cell[83572, 2403, 75, 1, 23, "Print"], Cell[83650, 2406, 345, 8, 23, "Print"], Cell[83998, 2416, 202, 5, 23, "Print"], Cell[84203, 2423, 207, 5, 23, "Print"], Cell[84413, 2430, 232, 5, 23, "Print"], Cell[84648, 2437, 77, 1, 23, "Print"], Cell[84728, 2440, 345, 8, 23, "Print"], Cell[85076, 2450, 207, 5, 23, "Print"], Cell[85286, 2457, 229, 5, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85564, 2468, 257, 4, 31, "Input"], Cell[CellGroupData[{ Cell[85846, 2476, 505, 10, 23, "Print"], Cell[86354, 2488, 360, 7, 23, "Print"], Cell[86717, 2497, 365, 7, 23, "Print"], Cell[87085, 2506, 387, 7, 23, "Print"], Cell[87475, 2515, 235, 3, 23, "Print"], Cell[87713, 2520, 505, 10, 23, "Print"], Cell[88221, 2532, 360, 7, 23, "Print"], Cell[88584, 2541, 367, 7, 23, "Print"], Cell[88954, 2550, 386, 7, 23, "Print"], Cell[89343, 2559, 235, 3, 23, "Print"], Cell[89581, 2564, 503, 10, 23, "Print"], Cell[90087, 2576, 358, 7, 23, "Print"], Cell[90448, 2585, 365, 7, 23, "Print"], Cell[90816, 2594, 383, 7, 23, "Print"], Cell[91202, 2603, 231, 3, 23, "Print"], Cell[91436, 2608, 505, 10, 23, "Print"], Cell[91944, 2620, 360, 7, 23, "Print"], Cell[92307, 2629, 365, 7, 23, "Print"], Cell[92675, 2638, 390, 7, 23, "Print"], Cell[93068, 2647, 235, 3, 23, "Print"], Cell[93306, 2652, 504, 10, 23, "Print"], Cell[93813, 2664, 359, 7, 23, "Print"], Cell[94175, 2673, 364, 7, 23, "Print"], Cell[94542, 2682, 386, 7, 23, "Print"], Cell[94931, 2691, 231, 3, 23, "Print"], Cell[95165, 2696, 505, 10, 23, "Print"], Cell[95673, 2708, 360, 7, 23, "Print"], Cell[96036, 2717, 384, 7, 23, "Print"], Cell[96423, 2726, 390, 7, 23, "Print"], Cell[96816, 2735, 235, 3, 23, "Print"], Cell[97054, 2740, 501, 10, 23, "Print"], Cell[97558, 2752, 356, 7, 23, "Print"], Cell[97917, 2761, 384, 7, 23, "Print"], Cell[98304, 2770, 390, 7, 23, "Print"], Cell[98697, 2779, 235, 3, 23, "Print"], Cell[98935, 2784, 505, 10, 23, "Print"], Cell[99443, 2796, 360, 7, 23, "Print"], Cell[99806, 2805, 371, 7, 23, "Print"], Cell[100180, 2814, 385, 7, 23, "Print"], Cell[100568, 2823, 235, 3, 23, "Print"], Cell[100806, 2828, 504, 10, 23, "Print"], Cell[101313, 2840, 359, 7, 23, "Print"], Cell[101675, 2849, 382, 7, 23, "Print"], Cell[102060, 2858, 387, 7, 23, "Print"], Cell[102450, 2867, 235, 3, 23, "Print"], Cell[102688, 2872, 505, 10, 23, "Print"], Cell[103196, 2884, 359, 7, 23, "Print"], Cell[103558, 2893, 364, 7, 23, "Print"], Cell[103925, 2902, 385, 7, 23, "Print"], Cell[104313, 2911, 233, 3, 23, "Print"], Cell[104549, 2916, 503, 10, 23, "Print"], Cell[105055, 2928, 366, 7, 23, "Print"], Cell[105424, 2937, 387, 7, 23, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)