(* 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[ 44798, 1103] NotebookOptionsPosition[ 40930, 984] NotebookOutlinePosition[ 42529, 1034] CellTagsIndexPosition[ 42203, 1022] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Random Walks on Various Topologies", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.489851408817273*^9, 3.489851414815901*^9}, { 3.4948752952617188`*^9, 3.494875295395011*^9}}], Cell["", "InitializationSection"], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"tt", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomWalkFn", "[", RowBox[{"200", ",", RowBox[{"lattice", "[", "latttype", "]"}]}], "]"}], ",", RowBox[{"{", "40", "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Dynamic", "[", RowBox[{"RandomWalkHexGraphics", "[", RowBox[{"particles", ",", "steps", ",", "tt"}], "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{"tt", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomWalkFn", "[", RowBox[{"200", ",", RowBox[{"lattice", "[", "latttype", "]"}]}], "]"}], ",", RowBox[{"{", "40", "}"}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}]}], "]"}], "}"}]}], "}"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"latttype", ",", "6", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "\[Rule]", "\"\<2\[Pi]/3\>\""}], ",", RowBox[{"4", "\[Rule]", "\"\<\[Pi]/2\>\""}], ",", RowBox[{"5", "\[Rule]", "\"\<2\[Pi]/5\>\""}], ",", RowBox[{"6", "\[Rule]", "\"\<\[Pi]/3\>\""}], ",", RowBox[{"7", "\[Rule]", "\"\<2\[Pi]/7\>\""}], ",", RowBox[{"8", "\[Rule]", "\"\<\[Pi]/4\>\""}], ",", RowBox[{"9", "\[Rule]", "\"\<2\[Pi]/9\>\""}], ",", RowBox[{"10", "\[Rule]", "\"\<\[Pi]/5\>\""}], ",", RowBox[{"11", "\[Rule]", "\"\<2\[Pi]/11\>\""}], ",", RowBox[{"12", "\[Rule]", "\"\<\[Pi]/6\>\""}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"particles", ",", "20"}], "}"}], ",", "1", ",", "40", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"steps", ",", "75"}], "}"}], ",", "1", ",", "200", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", RowBox[{"latttype", ",", "particles", ",", "steps"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"SeedRandom", "[", "1123", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"lattice", "[", "n_", "]"}], ":=", RowBox[{"N", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "i"}], ")"}], "/", "n"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "i"}], ")"}], "/", "n"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RandomWalkFn", "[", RowBox[{"n_", ",", "tmp_List", ",", RowBox[{"startpos_:", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ":=", RowBox[{"FoldList", "[", RowBox[{"Plus", ",", "startpos", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"tmp", "[", RowBox[{"[", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Length", "[", "tmp", "]"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "n", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RandomWalkHexGraphics", "[", RowBox[{"particles_", ",", "steps_", ",", "tt_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "data", "}"}], ",", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"tt", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "particles"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "steps"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "0.8", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.3", "]"}], ",", RowBox[{"Line", "@", "data"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "data", "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", "data", "]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", "data", "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", "data", "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ")"}]}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, 3.4898514536911497`*^9, {3.4947800600009117`*^9, 3.4947802491448245`*^9}, {3.494780281987108*^9, 3.4947803032132306`*^9}, { 3.494780337992708*^9, 3.4947803933172398`*^9}, {3.494780424691377*^9, 3.494780459609869*^9}, {3.4947805059895062`*^9, 3.4947805063365407`*^9}, { 3.4947805520781145`*^9, 3.494780557585665*^9}, {3.4947806952604313`*^9, 3.4947806972236276`*^9}, {3.494780742558161*^9, 3.494780818535737*^9}, { 3.494780901510033*^9, 3.4947809109919815`*^9}, {3.494780988674749*^9, 3.494780995515433*^9}, {3.494873924697722*^9, 3.4948739485981116`*^9}, { 3.494875355315777*^9, 3.4948754899226847`*^9}, {3.494875643120771*^9, 3.49487564402761*^9}, {3.495799059354232*^9, 3.495799094553438*^9}, { 3.5000375547065763`*^9, 3.5000375679699025`*^9}, {3.5000376602931337`*^9, 3.500037665590664*^9}, {3.500037706218726*^9, 3.5000377244535494`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`latttype$$ = 6, $CellContext`particles$$ = 20, $CellContext`steps$$ = 75, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`latttype$$], 6, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{ Hold[$CellContext`particles$$], 20}, 1, 40, 1}, {{ Hold[$CellContext`steps$$], 75}, 1, 200, 1}}, Typeset`size$$ = { 400., {212.5, 217.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`latttype$12439$$ = False, $CellContext`particles$12440$$ = 0, $CellContext`steps$12441$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`latttype$$ = 6, $CellContext`particles$$ = 20, $CellContext`steps$$ = 75}, "ControllerVariables" :> { Hold[$CellContext`latttype$$, $CellContext`latttype$12439$$, False], Hold[$CellContext`particles$$, $CellContext`particles$12440$$, 0], Hold[$CellContext`steps$$, $CellContext`steps$12441$$, 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" :> DynamicModule[{$CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}]}, Grid[{{ Dynamic[ $CellContext`RandomWalkHexGraphics[$CellContext`particles$$, \ $CellContext`steps$$, $CellContext`tt]]}, { Button["generate new walk", $CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}], ImageSize -> 150]}}]], "Specifications" :> {{{$CellContext`latttype$$, 6, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{$CellContext`particles$$, 20}, 1, 40, 1, Appearance -> "Labeled"}, {{$CellContext`steps$$, 75}, 1, 200, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols :> {$CellContext`latttype$$, $CellContext`particles$$, \ $CellContext`steps$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{449., {288., 293.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>((SeedRandom[1123]; $CellContext`lattice[ Pattern[$CellContext`n, Blank[]]] := N[ Table[{ Cos[(2 Pi $CellContext`i)/$CellContext`n], Sin[(2 Pi $CellContext`i)/$CellContext`n]}, {$CellContext`i, 0, $CellContext`n - 1}]]; $CellContext`RandomWalkFn[ Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`tmp, Blank[List]], Optional[ Pattern[$CellContext`startpos, Blank[]], {0, 0}]] := FoldList[Plus, $CellContext`startpos, Table[ Part[$CellContext`tmp, RandomInteger[{1, Length[$CellContext`tmp]}]], {$CellContext`n}]]; \ $CellContext`RandomWalkHexGraphics[ Pattern[$CellContext`particles, Blank[]], Pattern[$CellContext`steps, Blank[]], Pattern[$CellContext`tt, Blank[]]] := Module[{$CellContext`data}, $CellContext`data = Table[ Part[ Part[$CellContext`tt, $CellContext`j], $CellContext`i], \ {$CellContext`j, 1, $CellContext`particles}, {$CellContext`i, 1, $CellContext`steps}]; Graphics[{ AbsolutePointSize[0.8], AbsoluteThickness[0.3], Line[$CellContext`data]}, PlotRange -> {{ Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}, { Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}}, AspectRatio -> Automatic, ImageSize -> 400]]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.35696210375764*^9, 3.500037754311535*^9}, CellID->325283636] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell[TextData[{ "This Demonstration displays random walks on network topologies with \ connection angles leading out from the nodes ranging between ", Cell[BoxData[ FormBox[ RowBox[{"\[Pi]", "/", "3"}], TraditionalForm]], "InlineMath"], " to ", Cell[BoxData[ FormBox[ RowBox[{"\[Pi]", "/", "6"}], TraditionalForm]], "InlineMath"], "." }], "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.489851558828575*^9, 3.489851582385089*^9}, { 3.4947808566495476`*^9, 3.4947808661534977`*^9}, {3.494875547871572*^9, 3.4948756721663437`*^9}, {3.495818936038825*^9, 3.4958189361794496`*^9}, { 3.499164347279929*^9, 3.499164357394732*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`latttype$$ = 6, $CellContext`particles$$ = 20, $CellContext`steps$$ = 75, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`latttype$$], 6, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{ Hold[$CellContext`particles$$], 20}, 1, 40, 1}, {{ Hold[$CellContext`steps$$], 75}, 1, 200, 1}}, Typeset`size$$ = { 400., {212.5, 217.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`latttype$12071$$ = False, $CellContext`particles$12072$$ = 0, $CellContext`steps$12073$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`latttype$$ = 6, $CellContext`particles$$ = 20, $CellContext`steps$$ = 75}, "ControllerVariables" :> { Hold[$CellContext`latttype$$, $CellContext`latttype$12071$$, False], Hold[$CellContext`particles$$, $CellContext`particles$12072$$, 0], Hold[$CellContext`steps$$, $CellContext`steps$12073$$, 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" :> DynamicModule[{$CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}]}, Grid[{{ Dynamic[ $CellContext`RandomWalkHexGraphics[$CellContext`particles$$, \ $CellContext`steps$$, $CellContext`tt]]}, { Button["generate new walk", $CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}], ImageSize -> 150]}}]], "Specifications" :> {{{$CellContext`latttype$$, 6, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{$CellContext`particles$$, 20}, 1, 40, 1, Appearance -> "Labeled"}, {{$CellContext`steps$$, 75}, 1, 200, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols :> {$CellContext`latttype$$, $CellContext`particles$$, \ $CellContext`steps$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{449., {288., 293.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>((SeedRandom[1123]; $CellContext`lattice[ Pattern[$CellContext`n, Blank[]]] := N[ Table[{ Cos[(2 Pi $CellContext`i)/$CellContext`n], Sin[(2 Pi $CellContext`i)/$CellContext`n]}, {$CellContext`i, 0, $CellContext`n - 1}]]; $CellContext`RandomWalkFn[ Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`tmp, Blank[List]], Optional[ Pattern[$CellContext`startpos, Blank[]], {0, 0}]] := FoldList[Plus, $CellContext`startpos, Table[ Part[$CellContext`tmp, RandomInteger[{1, Length[$CellContext`tmp]}]], {$CellContext`n}]]; \ $CellContext`RandomWalkHexGraphics[ Pattern[$CellContext`particles, Blank[]], Pattern[$CellContext`steps, Blank[]], Pattern[$CellContext`tt, Blank[]]] := Module[{$CellContext`data}, $CellContext`data = Table[ Part[ Part[$CellContext`tt, $CellContext`j], $CellContext`i], \ {$CellContext`j, 1, $CellContext`particles}, {$CellContext`i, 1, $CellContext`steps}]; Graphics[{ AbsolutePointSize[0.8], AbsoluteThickness[0.3], Line[$CellContext`data]}, PlotRange -> {{ Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}, { Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}}, AspectRatio -> Automatic, ImageSize -> 400]]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->610913515] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`latttype$$ = 3, $CellContext`particles$$ = 15, $CellContext`steps$$ = 13, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`latttype$$], 3, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{ Hold[$CellContext`particles$$], 15}, 1, 40, 1}, {{ Hold[$CellContext`steps$$], 13}, 1, 200, 1}}, Typeset`size$$ = { 400., {212.5, 217.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`latttype$12133$$ = False, $CellContext`particles$12134$$ = 0, $CellContext`steps$12135$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`latttype$$ = 3, $CellContext`particles$$ = 15, $CellContext`steps$$ = 13}, "ControllerVariables" :> { Hold[$CellContext`latttype$$, $CellContext`latttype$12133$$, False], Hold[$CellContext`particles$$, $CellContext`particles$12134$$, 0], Hold[$CellContext`steps$$, $CellContext`steps$12135$$, 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" :> DynamicModule[{$CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}]}, Grid[{{ Dynamic[ $CellContext`RandomWalkHexGraphics[$CellContext`particles$$, \ $CellContext`steps$$, $CellContext`tt]]}, { Button["generate new walk", $CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}], ImageSize -> 150]}}]], "Specifications" :> {{{$CellContext`latttype$$, 3, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{$CellContext`particles$$, 15}, 1, 40, 1, Appearance -> "Labeled"}, {{$CellContext`steps$$, 13}, 1, 200, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols :> {$CellContext`latttype$$, $CellContext`particles$$, \ $CellContext`steps$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{449., {288., 293.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>((SeedRandom[1123]; $CellContext`lattice[ Pattern[$CellContext`n, Blank[]]] := N[ Table[{ Cos[(2 Pi $CellContext`i)/$CellContext`n], Sin[(2 Pi $CellContext`i)/$CellContext`n]}, {$CellContext`i, 0, $CellContext`n - 1}]]; $CellContext`RandomWalkFn[ Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`tmp, Blank[List]], Optional[ Pattern[$CellContext`startpos, Blank[]], {0, 0}]] := FoldList[Plus, $CellContext`startpos, Table[ Part[$CellContext`tmp, RandomInteger[{1, Length[$CellContext`tmp]}]], {$CellContext`n}]]; \ $CellContext`RandomWalkHexGraphics[ Pattern[$CellContext`particles, Blank[]], Pattern[$CellContext`steps, Blank[]], Pattern[$CellContext`tt, Blank[]]] := Module[{$CellContext`data}, $CellContext`data = Table[ Part[ Part[$CellContext`tt, $CellContext`j], $CellContext`i], \ {$CellContext`j, 1, $CellContext`particles}, {$CellContext`i, 1, $CellContext`steps}]; Graphics[{ AbsolutePointSize[0.8], AbsoluteThickness[0.3], Line[$CellContext`data]}, PlotRange -> {{ Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}, { Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}}, AspectRatio -> Automatic, ImageSize -> 400]]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->3840915], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`latttype$$ = 4, $CellContext`particles$$ = 31, $CellContext`steps$$ = 62, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`latttype$$], 4, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{ Hold[$CellContext`particles$$], 31}, 1, 40, 1}, {{ Hold[$CellContext`steps$$], 62}, 1, 200, 1}}, Typeset`size$$ = { 400., {212.5, 217.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`latttype$12195$$ = False, $CellContext`particles$12196$$ = 0, $CellContext`steps$12197$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`latttype$$ = 4, $CellContext`particles$$ = 31, $CellContext`steps$$ = 62}, "ControllerVariables" :> { Hold[$CellContext`latttype$$, $CellContext`latttype$12195$$, False], Hold[$CellContext`particles$$, $CellContext`particles$12196$$, 0], Hold[$CellContext`steps$$, $CellContext`steps$12197$$, 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" :> DynamicModule[{$CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}]}, Grid[{{ Dynamic[ $CellContext`RandomWalkHexGraphics[$CellContext`particles$$, \ $CellContext`steps$$, $CellContext`tt]]}, { Button["generate new walk", $CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}], ImageSize -> 150]}}]], "Specifications" :> {{{$CellContext`latttype$$, 4, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{$CellContext`particles$$, 31}, 1, 40, 1, Appearance -> "Labeled"}, {{$CellContext`steps$$, 62}, 1, 200, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols :> {$CellContext`latttype$$, $CellContext`particles$$, \ $CellContext`steps$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{449., {288., 293.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>((SeedRandom[1123]; $CellContext`lattice[ Pattern[$CellContext`n, Blank[]]] := N[ Table[{ Cos[(2 Pi $CellContext`i)/$CellContext`n], Sin[(2 Pi $CellContext`i)/$CellContext`n]}, {$CellContext`i, 0, $CellContext`n - 1}]]; $CellContext`RandomWalkFn[ Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`tmp, Blank[List]], Optional[ Pattern[$CellContext`startpos, Blank[]], {0, 0}]] := FoldList[Plus, $CellContext`startpos, Table[ Part[$CellContext`tmp, RandomInteger[{1, Length[$CellContext`tmp]}]], {$CellContext`n}]]; \ $CellContext`RandomWalkHexGraphics[ Pattern[$CellContext`particles, Blank[]], Pattern[$CellContext`steps, Blank[]], Pattern[$CellContext`tt, Blank[]]] := Module[{$CellContext`data}, $CellContext`data = Table[ Part[ Part[$CellContext`tt, $CellContext`j], $CellContext`i], \ {$CellContext`j, 1, $CellContext`particles}, {$CellContext`i, 1, $CellContext`steps}]; Graphics[{ AbsolutePointSize[0.8], AbsoluteThickness[0.3], Line[$CellContext`data]}, PlotRange -> {{ Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}, { Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}}, AspectRatio -> Automatic, ImageSize -> 400]]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->62872887], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`latttype$$ = 9, $CellContext`particles$$ = 27, $CellContext`steps$$ = 172, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`latttype$$], 9, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{ Hold[$CellContext`particles$$], 27}, 1, 40, 1}, {{ Hold[$CellContext`steps$$], 172}, 1, 200, 1}}, Typeset`size$$ = { 400., {212.5, 217.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`latttype$12257$$ = False, $CellContext`particles$12258$$ = 0, $CellContext`steps$12259$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`latttype$$ = 9, $CellContext`particles$$ = 27, $CellContext`steps$$ = 172}, "ControllerVariables" :> { Hold[$CellContext`latttype$$, $CellContext`latttype$12257$$, False], Hold[$CellContext`particles$$, $CellContext`particles$12258$$, 0], Hold[$CellContext`steps$$, $CellContext`steps$12259$$, 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" :> DynamicModule[{$CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}]}, Grid[{{ Dynamic[ $CellContext`RandomWalkHexGraphics[$CellContext`particles$$, \ $CellContext`steps$$, $CellContext`tt]]}, { Button["generate new walk", $CellContext`tt = Table[ $CellContext`RandomWalkFn[200, $CellContext`lattice[$CellContext`latttype$$]], {40}], ImageSize -> 150]}}]], "Specifications" :> {{{$CellContext`latttype$$, 9, "connection angle"}, { 3 -> "2\[Pi]/3", 4 -> "\[Pi]/2", 5 -> "2\[Pi]/5", 6 -> "\[Pi]/3", 7 -> "2\[Pi]/7", 8 -> "\[Pi]/4", 9 -> "2\[Pi]/9", 10 -> "\[Pi]/5", 11 -> "2\[Pi]/11", 12 -> "\[Pi]/6"}}, {{$CellContext`particles$$, 27}, 1, 40, 1, Appearance -> "Labeled"}, {{$CellContext`steps$$, 172}, 1, 200, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols :> {$CellContext`latttype$$, $CellContext`particles$$, \ $CellContext`steps$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{449., {288., 293.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>((SeedRandom[1123]; $CellContext`lattice[ Pattern[$CellContext`n, Blank[]]] := N[ Table[{ Cos[(2 Pi $CellContext`i)/$CellContext`n], Sin[(2 Pi $CellContext`i)/$CellContext`n]}, {$CellContext`i, 0, $CellContext`n - 1}]]; $CellContext`RandomWalkFn[ Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`tmp, Blank[List]], Optional[ Pattern[$CellContext`startpos, Blank[]], {0, 0}]] := FoldList[Plus, $CellContext`startpos, Table[ Part[$CellContext`tmp, RandomInteger[{1, Length[$CellContext`tmp]}]], {$CellContext`n}]]; \ $CellContext`RandomWalkHexGraphics[ Pattern[$CellContext`particles, Blank[]], Pattern[$CellContext`steps, Blank[]], Pattern[$CellContext`tt, Blank[]]] := Module[{$CellContext`data}, $CellContext`data = Table[ Part[ Part[$CellContext`tt, $CellContext`j], $CellContext`i], \ {$CellContext`j, 1, $CellContext`particles}, {$CellContext`i, 1, $CellContext`steps}]; Graphics[{ AbsolutePointSize[0.8], AbsoluteThickness[0.3], Line[$CellContext`data]}, PlotRange -> {{ Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}, { Min[$CellContext`data] - 1, Max[$CellContext`data] + 1}}, AspectRatio -> Automatic, ImageSize -> 400]]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->640313045] }, Open ]], Cell["", "DetailsSection"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], 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", CellChangeTimes->{3.35696210375764*^9, 3.4947808817460575`*^9}, 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["a new kind of science", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.494163973983829*^9, 3.494163975875411*^9}}, CellID->1775593080], Cell["lattices", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.494163971297391*^9, 3.494163972187379*^9}}, CellID->1867382734], Cell["random walks", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.494163967290668*^9, 3.4941639693475647`*^9}}, CellID->1873904627] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["The Phenomenon of Continuity", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolframscience.com/nksonline/page-330"], None}, ButtonNote-> "http://www.wolframscience.com/nksonline/page-330"]], "RelatedLinks", CellChangeTimes->{ 3.35696210375764*^9, {3.494164073618938*^9, 3.4941640826649933`*^9}}, CellID->960136848], Cell[TextData[ButtonBox["2-Dimensional Random Walk", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/RandomWalk2-Dimensional.html\n"], None}, ButtonNote-> "http://mathworld.wolfram.com/RandomWalk2-Dimensional.html\n"]], \ "RelatedLinks", CellChangeTimes->{ 3.35696210375764*^9, {3.4991643993779697`*^9, 3.499164421813107*^9}}, CellID->204014040], Cell[TextData[ButtonBox["Random Walks", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolframscience.com/nksonline/page-977"], None}, ButtonNote-> "http://www.wolframscience.com/nksonline/page-977"]], "RelatedLinks", CellChangeTimes->{ 3.35696210375764*^9, {3.499164452080872*^9, 3.499164486822732*^9}}, CellID->1480069668] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell[TextData[{ "Contributed by: ", ButtonBox["Abigail Nussey", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Abigail+Nussey"]\ , None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Abigail+Nussey"] }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.494163981710935*^9, 3.4941639829711657`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{700, Automatic}, WindowMargins->{{107, Automatic}, {Automatic, 8}}, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "AutomaticAnimation"->{ Cell[36389, 852, 1464, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[37856, 885, 908, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"]}, "CreateAndDeleteLocators"->{ Cell[34530, 801, 637, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"]}, "DragLocators"->{ Cell[34187, 788, 340, 11, 22, "ControlSuggestions", CellTags->"DragLocators"]}, "GamepadControls"->{ Cell[36017, 841, 369, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"]}, "ResizeImages"->{ Cell[33127, 759, 376, 9, 22, "ControlSuggestions", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[33506, 770, 678, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"]}, "SliderZoom"->{ Cell[35170, 818, 844, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"]} } *) (*CellTagsIndex CellTagsIndex->{ {"AutomaticAnimation", 41318, 995}, {"BookmarkAnimation", 41434, 998}, {"CreateAndDeleteLocators", 41554, 1001}, {"DragLocators", 41669, 1004}, {"GamepadControls", 41776, 1007}, {"ResizeImages", 41882, 1010}, {"RotateAndZoomIn3D", 41990, 1013}, {"SliderZoom", 42097, 1016} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 197, 3, 74, "DemoTitle"], Cell[767, 27, 33, 0, 266, "InitializationSection"], Cell[CellGroupData[{ Cell[825, 31, 29, 0, 188, "ManipulateSection"], Cell[CellGroupData[{ Cell[879, 35, 7060, 170, 448, "Input"], Cell[7942, 207, 4887, 101, 593, "Output", CellID->325283636] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[12875, 314, 36, 0, 166, "ManipulateCaptionSection"], Cell[12914, 316, 668, 16, 38, "ManipulateCaption"] }, Open ]], Cell[CellGroupData[{ Cell[13619, 337, 28, 0, 168, "ThumbnailSection"], Cell[13650, 339, 4824, 100, 593, "Output", CellID->610913515] }, Open ]], Cell[CellGroupData[{ Cell[18511, 444, 28, 0, 138, "SnapshotsSection"], Cell[18542, 446, 4822, 100, 593, "Output", CellID->3840915], Cell[23367, 548, 4823, 100, 593, "Output", CellID->62872887], Cell[28193, 650, 4828, 100, 593, "Output", CellID->640313045] }, Open ]], Cell[33036, 753, 26, 0, 332, "DetailsSection"], Cell[CellGroupData[{ Cell[33087, 757, 37, 0, 108, "ControlSuggestionsSection"], Cell[33127, 759, 376, 9, 22, "ControlSuggestions", CellTags->"ResizeImages"], Cell[33506, 770, 678, 16, 22, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"], Cell[34187, 788, 340, 11, 22, "ControlSuggestions", CellTags->"DragLocators"], Cell[34530, 801, 637, 15, 22, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"], Cell[35170, 818, 844, 21, 22, "ControlSuggestions", CellTags->"SliderZoom"], Cell[36017, 841, 369, 9, 22, "ControlSuggestions", CellTags->"GamepadControls"], Cell[36389, 852, 1464, 31, 22, "ControlSuggestions", CellTags->"AutomaticAnimation"], Cell[37856, 885, 908, 21, 22, "ControlSuggestions", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[38801, 911, 30, 0, 152, "SearchTermsSection"], Cell[38834, 913, 155, 3, 22, "SearchTerms", CellID->1775593080], Cell[38992, 918, 142, 3, 22, "SearchTerms", CellID->1867382734], Cell[39137, 923, 148, 3, 22, "SearchTerms", CellID->1873904627] }, Open ]], Cell[CellGroupData[{ Cell[39322, 931, 31, 0, 138, "RelatedLinksSection"], Cell[39356, 933, 360, 8, 22, "RelatedLinks", CellID->960136848], Cell[39719, 943, 381, 9, 22, "RelatedLinks", CellID->204014040], Cell[40103, 954, 343, 8, 22, "RelatedLinks", CellID->1480069668] }, Open ]], Cell[CellGroupData[{ Cell[40483, 967, 25, 0, 136, "AuthorSection"], Cell[40511, 969, 391, 11, 22, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)