(* 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[ 45256, 1085] NotebookOptionsPosition[ 41169, 958] NotebookOutlinePosition[ 42756, 1008] CellTagsIndexPosition[ 42436, 996] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Idealized Galton Board", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.4390379679233522`*^9, 3.439037971489599*^9}, { 3.43904338606021*^9, 3.4390433865693913`*^9}, {3.439048881903019*^9, 3.4390488863636208`*^9}}], Cell["", "InitializationSection"], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", ">", "k"}], ",", RowBox[{"j", "=", "k"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"\[Mu]", "=", RowBox[{"i", "/", "2"}]}], ";", RowBox[{"\[Sigma]", "=", RowBox[{ RowBox[{"Sqrt", "[", "i", "]"}], "/", "2"}]}], ";", RowBox[{"y", "=", RowBox[{"k", "*", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}]}]}], ";", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "/", "25"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"i", "+", ".5"}], ",", "1"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"First", "@", RowBox[{"Plot", "[", RowBox[{"y", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "i"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"i", "+", ".5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Max", "[", RowBox[{"BinCounts", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "/", "25"}], ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "k"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"ImagePadding", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "100", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "500", ",", "1000", ",", "5000"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "25", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "50", ",", "75"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "k", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Tiny"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", "Small"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"i", ",", "0.5"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "5000"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "25", ",", "75", ",", "25"}], "}"}]}], "]"}]}], ",", RowBox[{"j", "=", "0"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"{", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"i", ",", "0.5"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "5000"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "25", ",", "75", ",", "25"}], "}"}]}], "]"}]}], ";"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TrackedSymbols", "\[Rule]", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.438943104863743*^9, 3.4389431153465567`*^9}, { 3.438943153028679*^9, 3.4389431568207293`*^9}, 3.4389431965516663`*^9, 3.43894323924356*^9, {3.438943270537188*^9, 3.4389433320032387`*^9}, 3.4389433810057497`*^9, 3.4389434361829557`*^9, 3.438943599349032*^9, { 3.438943817220747*^9, 3.438943828187562*^9}, {3.438943898847166*^9, 3.438943899195907*^9}, {3.43894427261034*^9, 3.438944279097047*^9}, 3.4389447445705433`*^9, 3.438944775714779*^9, 3.438944875934081*^9, { 3.438944937367982*^9, 3.438944938301824*^9}, 3.4389450040110197`*^9, 3.438945191936002*^9, 3.43894522349718*^9, {3.438946068029367*^9, 3.438946106068191*^9}, {3.438946138335009*^9, 3.438946162687591*^9}, { 3.438946198912179*^9, 3.4389462094559402`*^9}, {3.438946392710802*^9, 3.438946426566305*^9}, {3.438946493930108*^9, 3.438946502201771*^9}, { 3.4389467708835583`*^9, 3.4389468135088797`*^9}, {3.438946879573513*^9, 3.4389468844610357`*^9}, 3.438946966689537*^9, 3.438948444704253*^9, { 3.438949667802259*^9, 3.438949673017002*^9}, {3.438949712522376*^9, 3.4389497125925493`*^9}, 3.438949790045869*^9, {3.438949827536873*^9, 3.438949828349058*^9}, {3.438949906217925*^9, 3.438949931367906*^9}, 3.438949979214262*^9, {3.438950166921288*^9, 3.438950177080884*^9}, { 3.4389503509711227`*^9, 3.438950393007992*^9}, {3.4389504271618557`*^9, 3.438950511819641*^9}, 3.438950906682352*^9, {3.4389509630196342`*^9, 3.4389509662025642`*^9}, {3.4389510880474577`*^9, 3.438951104872644*^9}, { 3.438951426074411*^9, 3.438951427523941*^9}, {3.43895145966955*^9, 3.4389514652816668`*^9}, {3.4389515510306463`*^9, 3.438951551716547*^9}, { 3.438951599560862*^9, 3.438951621576663*^9}, {3.4389516592266283`*^9, 3.438951676682357*^9}, {3.438951943972658*^9, 3.438951981828261*^9}, { 3.4389520793447533`*^9, 3.438952133361289*^9}, {3.438952286928005*^9, 3.4389523041047907`*^9}, {3.438953182939672*^9, 3.438953183001295*^9}, { 3.438953382349498*^9, 3.438953411570517*^9}, {3.438953459614133*^9, 3.438953500749023*^9}, {3.438953548310664*^9, 3.43895354835643*^9}, { 3.438953595472179*^9, 3.438953596342422*^9}, {3.438953711076099*^9, 3.438953722995303*^9}, {3.438953757870974*^9, 3.438953798703884*^9}, { 3.438953853827898*^9, 3.438953867488985*^9}, {3.4389539417314262`*^9, 3.4389539743708553`*^9}, {3.438957689328779*^9, 3.438957733468808*^9}, { 3.438957902441287*^9, 3.4389579039116697`*^9}, {3.438957953633718*^9, 3.438958000509891*^9}, {3.438958038341414*^9, 3.4389580991910763`*^9}, 3.438958184619672*^9, {3.438958215396901*^9, 3.438958222756586*^9}, { 3.438958278487214*^9, 3.438958414144586*^9}, {3.439011674627738*^9, 3.4390116789194736`*^9}, {3.439011729850561*^9, 3.439011745867153*^9}, { 3.439012109356448*^9, 3.439012132110569*^9}, {3.439012188640401*^9, 3.439012213921352*^9}, {3.439012273357538*^9, 3.4390123051656237`*^9}, { 3.439012362423279*^9, 3.439012362861467*^9}, 3.439012443106304*^9, 3.439012558958035*^9, 3.439012669250181*^9, {3.439012880777713*^9, 3.439012896402108*^9}, {3.439012932218195*^9, 3.439012942473427*^9}, { 3.4390129914120827`*^9, 3.439013036820401*^9}, {3.439013129000983*^9, 3.439013166920793*^9}, {3.439013245660212*^9, 3.439013274890997*^9}, { 3.439013475619568*^9, 3.439013489866922*^9}, {3.439013663321697*^9, 3.43901369786416*^9}, {3.439013797309823*^9, 3.439013849223431*^9}, { 3.439015024942168*^9, 3.439015025019956*^9}, 3.439015209307482*^9, { 3.439015475796156*^9, 3.439015480682952*^9}, {3.439016056783285*^9, 3.439016116817376*^9}, 3.4390162250605297`*^9, {3.439016371313678*^9, 3.4390163767854567`*^9}, {3.4390164611001453`*^9, 3.439016461307135*^9}, { 3.439016541535527*^9, 3.4390165487808733`*^9}, {3.43901666058751*^9, 3.439016698796336*^9}, {3.43901690262005*^9, 3.4390169182015533`*^9}, { 3.439017006255581*^9, 3.439017013677196*^9}, {3.439017187376911*^9, 3.4390172134754868`*^9}, {3.439017300254086*^9, 3.439017308765173*^9}, 3.439017340855475*^9, {3.439018460243595*^9, 3.439018498738955*^9}, 3.4390185644798*^9, {3.439018611816545*^9, 3.4390186121989393`*^9}, 3.439018648249868*^9, 3.43901868105054*^9, {3.439018756191721*^9, 3.439018790014161*^9}, {3.439018866001732*^9, 3.4390188938413258`*^9}, { 3.439019033094493*^9, 3.439019044856846*^9}, {3.4390193393499537`*^9, 3.439019351889083*^9}, {3.4390370303269253`*^9, 3.439037087929332*^9}, { 3.439037157464881*^9, 3.439037201747982*^9}, {3.4390372451723423`*^9, 3.439037248292326*^9}, {3.439038689236158*^9, 3.439038690479789*^9}, { 3.439039814319499*^9, 3.439039815753777*^9}, {3.4399137462504044`*^9, 3.4399137867334523`*^9}}, CellID->324889619], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 25, $CellContext`j$$ = 0, $CellContext`k$$ = 100, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 100, "number of balls"}, {100, 500, 1000, 5000}}, {{ Hold[$CellContext`i$$], 25, "number of slots"}, {25, 50, 75}}, {{ Hold[$CellContext`j$$], 0, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1}, { Hold[ Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {500., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`k$1226367$$ = 0, $CellContext`i$1226368$$ = 0, $CellContext`j$1226369$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 25, $CellContext`j$$ = 0, $CellContext`k$$ = 100}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1226367$$, 0], Hold[$CellContext`i$$, $CellContext`i$1226368$$, 0], Hold[$CellContext`j$$, $CellContext`j$1226369$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`j$$ > $CellContext`k$$, $CellContext`j$$ = \ $CellContext`k$$]; $CellContext`\[Mu] = $CellContext`i$$/ 2; $CellContext`\[Sigma] = Sqrt[$CellContext`i$$]/2; $CellContext`y = $CellContext`k$$ PDF[ NormalDistribution[$CellContext`\[Mu], $CellContext`\[Sigma]], \ $CellContext`x]; Histogram[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`j$$}], {0.5, $CellContext`i$$ + 0.5, 1}, AxesOrigin -> {0, 0}, Epilog -> First[ Plot[$CellContext`y, {$CellContext`x, 0, $CellContext`i$$}, PlotStyle -> Red]], PlotRange -> {{0, $CellContext`i$$ + 0.5}, {0, Max[ BinCounts[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`k$$}]]]}}, ImagePadding -> 20, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`k$$, 100, "number of balls"}, {100, 500, 1000, 5000}}, {{$CellContext`i$$, 25, "number of slots"}, {25, 50, 75}}, {{$CellContext`j$$, 0, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1, Appearance -> "Labeled", ImageSize -> Tiny}, Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]}, "Options" :> { TrackedSymbols -> {$CellContext`i$$, $CellContext`j$$, \ $CellContext`k$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{549., {225., 230.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}]; Null}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->23145036] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell["\<\ A Galton board is a vertically oriented board with evenly spaced pegs on \ which a classic statistical experiment can be performed by dropping balls \ from the top center of the board. The balls bounce to the left or the right \ as they hit pegs on their way down the board, coming to rest in slots at the \ bottom, possibly displaced from the center. On an idealized Galton board, \ each ball bounces left or right when it hits a peg with probability 1/2. The \ piles of balls that accumulate in the slots give rise to a binomial \ distribution. This Demonstration shows how the fallen balls accumulate and \ gives the number of balls in each slot. When the numbers of balls and slots \ are sufficiently large, you can see that the shape of the distribution of the \ fallen balls is close to a bell curve.\ \>", "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.439038290909807*^9, 3.439038319684969*^9}, { 3.439038374902861*^9, 3.439038453961248*^9}, {3.439038485179543*^9, 3.439038497210771*^9}, {3.439038538709943*^9, 3.439038613822624*^9}, { 3.4390386736500463`*^9, 3.4390386775205917`*^9}, {3.439038779085299*^9, 3.439038793876336*^9}, 3.4390389491632833`*^9, 3.439039009507815*^9, { 3.439040045586893*^9, 3.439040099871256*^9}, {3.439040134019318*^9, 3.439040137480847*^9}, {3.4390408951721277`*^9, 3.439040915265378*^9}, { 3.439040952098309*^9, 3.439041010309658*^9}, {3.439041060256671*^9, 3.4390411027191877`*^9}, {3.439041169139263*^9, 3.439041208034576*^9}, { 3.4390412534534893`*^9, 3.4390412628683767`*^9}, {3.439041297480434*^9, 3.4390414875476837`*^9}, {3.439041686309577*^9, 3.43904172318027*^9}, { 3.43904176489627*^9, 3.439041767485552*^9}, {3.439041802414228*^9, 3.439041861449399*^9}, {3.439041900214308*^9, 3.4390419034812517`*^9}, { 3.439041939730833*^9, 3.4390419757091427`*^9}, 3.4390421051786327`*^9, { 3.4398329149306097`*^9, 3.4398329979149847`*^9}, {3.4398536245636*^9, 3.4398536452226*^9}, 3.4398536850165997`*^9, {3.4398538527746*^9, 3.4398539236966*^9}, {3.4398553521026*^9, 3.4398553525696*^9}, { 3.4399104288366966`*^9, 3.439910429241737*^9}}, CellID->197502850] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 25, $CellContext`j$$ = 100, $CellContext`k$$ = 100, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 100, "number of balls"}, {100, 500, 1000, 5000}}, {{ Hold[$CellContext`i$$], 25, "number of slots"}, {25, 50, 75}}, {{ Hold[$CellContext`j$$], 100, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1}, { Hold[ Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {500., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`k$1226429$$ = 0, $CellContext`i$1226430$$ = 0, $CellContext`j$1226431$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 25, $CellContext`j$$ = 100, $CellContext`k$$ = 100}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1226429$$, 0], Hold[$CellContext`i$$, $CellContext`i$1226430$$, 0], Hold[$CellContext`j$$, $CellContext`j$1226431$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`j$$ > $CellContext`k$$, $CellContext`j$$ = \ $CellContext`k$$]; $CellContext`\[Mu] = $CellContext`i$$/ 2; $CellContext`\[Sigma] = Sqrt[$CellContext`i$$]/2; $CellContext`y = $CellContext`k$$ PDF[ NormalDistribution[$CellContext`\[Mu], $CellContext`\[Sigma]], \ $CellContext`x]; Histogram[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`j$$}], {0.5, $CellContext`i$$ + 0.5, 1}, AxesOrigin -> {0, 0}, Epilog -> First[ Plot[$CellContext`y, {$CellContext`x, 0, $CellContext`i$$}, PlotStyle -> Red]], PlotRange -> {{0, $CellContext`i$$ + 0.5}, {0, Max[ BinCounts[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`k$$}]]]}}, ImagePadding -> 20, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`k$$, 100, "number of balls"}, {100, 500, 1000, 5000}}, {{$CellContext`i$$, 25, "number of slots"}, {25, 50, 75}}, {{$CellContext`j$$, 100, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1, Appearance -> "Labeled", ImageSize -> Tiny}, Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]}, "Options" :> { TrackedSymbols -> {$CellContext`i$$, $CellContext`j$$, \ $CellContext`k$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{549., {225., 230.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}]; Null}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->296457973] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 25, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{ Hold[$CellContext`i$$], 25, "number of slots"}, {25, 50, 75}}, {{ Hold[$CellContext`j$$], 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1}, { Hold[ Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`k$1226491$$ = 0, $CellContext`i$1226492$$ = 0, $CellContext`j$1226493$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 25, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1226491$$, 0], Hold[$CellContext`i$$, $CellContext`i$1226492$$, 0], Hold[$CellContext`j$$, $CellContext`j$1226493$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`j$$ > $CellContext`k$$, $CellContext`j$$ = \ $CellContext`k$$]; $CellContext`\[Mu] = $CellContext`i$$/ 2; $CellContext`\[Sigma] = Sqrt[$CellContext`i$$]/2; $CellContext`y = $CellContext`k$$ PDF[ NormalDistribution[$CellContext`\[Mu], $CellContext`\[Sigma]], \ $CellContext`x]; Histogram[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`j$$}], {0.5, $CellContext`i$$ + 0.5, 1}, AxesOrigin -> {0, 0}, Epilog -> First[ Plot[$CellContext`y, {$CellContext`x, 0, $CellContext`i$$}, PlotStyle -> Red]], PlotRange -> {{0, $CellContext`i$$ + 0.5}, {0, Max[ BinCounts[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`k$$}]]]}}, ImagePadding -> 20, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`k$$, 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{$CellContext`i$$, 25, "number of slots"}, {25, 50, 75}}, {{$CellContext`j$$, 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1, Appearance -> "Labeled", ImageSize -> Tiny}, Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]}, "Options" :> { TrackedSymbols -> {$CellContext`i$$, $CellContext`j$$, \ $CellContext`k$$}}, "DefaultOptions" :> {ControllerLinking -> True}], SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}]; Null}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->308593421], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 50, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{ Hold[$CellContext`i$$], 50, "number of slots"}, {25, 50, 75}}, {{ Hold[$CellContext`j$$], 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1}, { Hold[ Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`k$1226553$$ = 0, $CellContext`i$1226554$$ = 0, $CellContext`j$1226555$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 50, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1226553$$, 0], Hold[$CellContext`i$$, $CellContext`i$1226554$$, 0], Hold[$CellContext`j$$, $CellContext`j$1226555$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`j$$ > $CellContext`k$$, $CellContext`j$$ = \ $CellContext`k$$]; $CellContext`\[Mu] = $CellContext`i$$/ 2; $CellContext`\[Sigma] = Sqrt[$CellContext`i$$]/2; $CellContext`y = $CellContext`k$$ PDF[ NormalDistribution[$CellContext`\[Mu], $CellContext`\[Sigma]], \ $CellContext`x]; Histogram[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`j$$}], {0.5, $CellContext`i$$ + 0.5, 1}, AxesOrigin -> {0, 0}, Epilog -> First[ Plot[$CellContext`y, {$CellContext`x, 0, $CellContext`i$$}, PlotStyle -> Red]], PlotRange -> {{0, $CellContext`i$$ + 0.5}, {0, Max[ BinCounts[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`k$$}]]]}}, ImagePadding -> 20, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`k$$, 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{$CellContext`i$$, 50, "number of slots"}, {25, 50, 75}}, {{$CellContext`j$$, 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1, Appearance -> "Labeled", ImageSize -> Tiny}, Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]}, "Options" :> { TrackedSymbols -> {$CellContext`i$$, $CellContext`j$$, \ $CellContext`k$$}}, "DefaultOptions" :> {ControllerLinking -> True}], SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}]; Null}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->15520726], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i$$ = 75, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{ Hold[$CellContext`i$$], 75, "number of slots"}, {25, 50, 75}}, {{ Hold[$CellContext`j$$], 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1}, { Hold[ Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`k$1226615$$ = 0, $CellContext`i$1226616$$ = 0, $CellContext`j$1226617$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`i$$ = 75, $CellContext`j$$ = 5000, $CellContext`k$$ = 5000}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1226615$$, 0], Hold[$CellContext`i$$, $CellContext`i$1226616$$, 0], Hold[$CellContext`j$$, $CellContext`j$1226617$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`j$$ > $CellContext`k$$, $CellContext`j$$ = \ $CellContext`k$$]; $CellContext`\[Mu] = $CellContext`i$$/ 2; $CellContext`\[Sigma] = Sqrt[$CellContext`i$$]/2; $CellContext`y = $CellContext`k$$ PDF[ NormalDistribution[$CellContext`\[Mu], $CellContext`\[Sigma]], \ $CellContext`x]; Histogram[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`j$$}], {0.5, $CellContext`i$$ + 0.5, 1}, AxesOrigin -> {0, 0}, Epilog -> First[ Plot[$CellContext`y, {$CellContext`x, 0, $CellContext`i$$}, PlotStyle -> Red]], PlotRange -> {{0, $CellContext`i$$ + 0.5}, {0, Max[ BinCounts[ Take[ Part[$CellContext`data, $CellContext`i$$/25, 1], { 1, $CellContext`k$$}]]]}}, ImagePadding -> 20, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`k$$, 5000, "number of balls"}, {100, 500, 1000, 5000}}, {{$CellContext`i$$, 75, "number of slots"}, {25, 50, 75}}, {{$CellContext`j$$, 5000, "fallen balls"}, 0, Dynamic[$CellContext`k$$], 1, Appearance -> "Labeled", ImageSize -> Tiny}, Button[ Style["new simulation", "Label", Small], {$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}], $CellContext`j$$ = 0}, ImageSize -> Small]}, "Options" :> { TrackedSymbols -> {$CellContext`i$$, $CellContext`j$$, \ $CellContext`k$$}}, "DefaultOptions" :> {ControllerLinking -> True}], SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`data = Table[ RandomInteger[ BinomialDistribution[$CellContext`i$$, 0.5], {1, 5000}], {$CellContext`i$$, 25, 75, 25}]; Null}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->316646510] }, Open ]], Cell["", "DetailsSection"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Resize Images"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"ResizeImages"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Rotate and Zoom in 3D"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"RotateAndZoomIn3D"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Drag Locators"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"DragLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Create and Delete Locators"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"CreateAndDeleteLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Slider Zoom"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"SliderZoom"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Gamepad Controls"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9}, FontFamily->"Verdana", CellTags->"GamepadControls"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Automatic Animation"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"AutomaticAnimation"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Bookmark Animation"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection"], Cell["Galton board", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.4390425319397373`*^9, 3.43904253720551*^9}}, CellID->1806868939], Cell["Binomial Distribution", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.439042579376811*^9, 3.439042582831149*^9}}, CellID->480005546], Cell["Normal Distribution", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.4390425851085577`*^9, 3.439042605934876*^9}}, CellID->1504633490], Cell["Random Walk", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.439042620599135*^9, 3.439042622253708*^9}}, CellID->1755123005] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["Galton Board", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/GaltonBoard.html"], None}]], "RelatedLinks", CellID->62929091], Cell[TextData[ButtonBox["Binomial Distribution", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/BinomialDistribution.html"], None}]], "RelatedLinks", CellID->583566384], Cell[TextData[ButtonBox["Normal Distribution", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/NormalDistribution.html"], None}]], "RelatedLinks", CellID->769903772], Cell[TextData[ButtonBox["Galton Board", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/GaltonBoard/"], None}]], "RelatedLinks", CellID->177652728], Cell[TextData[ButtonBox["Flexible Galton Board", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/FlexibleGaltonBoard/"], None}]], "RelatedLinks", CellChangeTimes->{3.35696210375764*^9, 3.4398333937743597`*^9}, CellID->483453444] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell[TextData[{ "Contributed by: ", ButtonBox["Bernard Vuilleumier", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Bernard+\ Vuilleumier"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Bernard+Vuilleumier"]\ }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.439042674228459*^9, 3.439042677769993*^9}}] }, Open ]] }, Open ]] }, WindowSize->{901, 831}, WindowMargins->{{40, Automatic}, {Automatic, 16}}, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[33294, 723, 312, 8, 22, "ControlSuggestions", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[33609, 733, 678, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"]}, "DragLocators"->{ Cell[34290, 751, 340, 11, 22, "ControlSuggestions", CellTags->"DragLocators"]}, "CreateAndDeleteLocators"->{ Cell[34633, 764, 637, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"]}, "SliderZoom"->{ Cell[35273, 781, 844, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"]}, "GamepadControls"->{ Cell[36120, 804, 369, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"]}, "AutomaticAnimation"->{ Cell[36492, 815, 1464, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[37959, 848, 908, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 41545, 969}, {"RotateAndZoomIn3D", 41653, 972}, {"DragLocators", 41762, 975}, {"CreateAndDeleteLocators", 41877, 978}, {"SliderZoom", 41990, 981}, {"GamepadControls", 42095, 984}, {"AutomaticAnimation", 42207, 987}, {"BookmarkAnimation", 42323, 990} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 238, 4, 74, "DemoTitle"], Cell[808, 28, 33, 0, 266, "InitializationSection"], Cell[CellGroupData[{ Cell[866, 32, 29, 0, 188, "ManipulateSection"], Cell[CellGroupData[{ Cell[920, 36, 9323, 194, 288, "Input", CellID->324889619], Cell[10246, 232, 4130, 86, 467, "Output", CellID->23145036] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[14422, 324, 36, 0, 166, "ManipulateCaptionSection"], Cell[14461, 326, 2183, 32, 112, "ManipulateCaption", CellID->197502850] }, Open ]], Cell[CellGroupData[{ Cell[16681, 363, 28, 0, 168, "ThumbnailSection"], Cell[16712, 365, 4139, 86, 467, "Output", CellID->296457973] }, Open ]], Cell[CellGroupData[{ Cell[20888, 456, 28, 0, 138, "SnapshotsSection"], Cell[20919, 458, 4088, 84, 37, "Output", CellID->308593421], Cell[25010, 544, 4087, 84, 37, "Output", CellID->15520726], Cell[29100, 630, 4088, 84, 37, "Output", CellID->316646510] }, Open ]], Cell[33203, 717, 26, 0, 332, "DetailsSection"], Cell[CellGroupData[{ Cell[33254, 721, 37, 0, 108, "ControlSuggestionsSection"], Cell[33294, 723, 312, 8, 22, "ControlSuggestions", CellTags->"ResizeImages"], Cell[33609, 733, 678, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"], Cell[34290, 751, 340, 11, 22, "ControlSuggestions", CellTags->"DragLocators"], Cell[34633, 764, 637, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"], Cell[35273, 781, 844, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"], Cell[36120, 804, 369, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"], Cell[36492, 815, 1464, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"], Cell[37959, 848, 908, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[38904, 874, 30, 0, 152, "SearchTermsSection"], Cell[38937, 876, 147, 3, 22, "SearchTerms", CellID->1806868939], Cell[39087, 881, 154, 3, 22, "SearchTerms", CellID->480005546], Cell[39244, 886, 155, 3, 22, "SearchTerms", CellID->1504633490], Cell[39402, 891, 145, 3, 22, "SearchTerms", CellID->1755123005] }, Open ]], Cell[CellGroupData[{ Cell[39584, 899, 31, 0, 138, "RelatedLinksSection"], Cell[39618, 901, 184, 5, 22, "RelatedLinks", CellID->62929091], Cell[39805, 908, 203, 5, 22, "RelatedLinks", CellID->583566384], Cell[40011, 915, 199, 5, 22, "RelatedLinks", CellID->769903772], Cell[40213, 922, 186, 5, 22, "RelatedLinks", CellID->177652728], Cell[40402, 929, 268, 6, 22, "RelatedLinks", CellID->483453444] }, Open ]], Cell[CellGroupData[{ Cell[40707, 940, 25, 0, 136, "AuthorSection"], Cell[40735, 942, 406, 12, 22, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)