(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     51516,       1211]
NotebookOptionsPosition[     47716,       1092]
NotebookOutlinePosition[     49304,       1142]
CellTagsIndexPosition[     48976,       1130]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Self-Avoiding Random Walks in 3D", "DemoTitle",
 CellChangeTimes->{
  3.35696210375764*^9, {3.36482387928008*^9, 3.36482388557021*^9}},
 CellID->700863240],

Cell[CellGroupData[{

Cell["", "InitializationSection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SARW", "[", "maxLength_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Clear", "[", "notvisitedQ", "]"}], ";", 
    RowBox[{
     RowBox[{"notvisitedQ", "[", "_", "]"}], ":=", "True"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"First", "/@", 
     RowBox[{"NestWhileList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#", ",", 
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{
                RowBox[{"Outer", "[", 
                 RowBox[{"Plus", ",", 
                  RowBox[{"{", "#", "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], 
                ",", "1"}], "]"}], ",", "notvisitedQ"}], "]"}]}], "}"}], 
          "&"}], "[", 
         RowBox[{
          RowBox[{
           RowBox[{"notvisitedQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", "False"}], ";", 
          RowBox[{"RandomChoice", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "=!=", 
         RowBox[{"{", "}"}]}], "&"}], ",", "1", ",", 
       RowBox[{"maxLength", "-", "1"}]}], "]"}]}]}], ")"}]}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.374866661378092*^9, 3.3748666790964966`*^9}},
 CellID->320962237]
}, Closed]],

Cell[CellGroupData[{

Cell["", "ManipulateSection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SeedRandom", "[", "seed", "]"}], ";", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pts", "=", 
        RowBox[{"SARW", "[", "max", "]"}]}], "}"}], ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Gray", ",", 
          RowBox[{"Line", "@", "pts"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{".6", ",", ".74", ",", ".36"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"pts", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "]"}], ",", 
          RowBox[{"RGBColor", "[", 
           RowBox[{".9", ",", ".42", ",", ".17"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"pts", "[", 
             RowBox[{"[", 
              RowBox[{"-", "1"}], "]"}], "]"}], ",", "1"}], "]"}]}], "}"}], 
        ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "pts", "]"}], "<", "max"}], ",", 
             RowBox[{"\"\<STUCK in \>\"", "<>", 
              RowBox[{"ToString", "[", 
               RowBox[{
                RowBox[{"Length", "[", "pts", "]"}], "-", "1"}], "]"}], "<>", 
              
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Length", "[", "pts", "]"}], "\[Equal]", "1"}], ",", 
                "\"\< move!!\>\"", ",", "\"\< moves!!\>\""}], "]"}]}], ",", 
             RowBox[{"\"\<free after \>\"", "<>", 
              RowBox[{"ToString", "[", 
               RowBox[{"max", "-", "1"}], "]"}], "<>", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Length", "[", "pts", "]"}], "-", "1"}], "\[Equal]",
                  "1"}], ",", "\"\< move\>\"", ",", "\"\< moves\>\""}], 
               "]"}]}]}], "]"}], ",", "\"\<Label\>\"", ",", "12"}], "]"}]}], 
        ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"500", ",", "500"}], "}"}]}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"max", ",", "50", ",", "\"\<max steps\>\""}], "}"}], ",", "1", 
     ",", "10000", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"seed", ",", "1", ",", "\"\<new walk\>\""}], "}"}], ",", "1", 
     ",", "1000000000", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"max", ",", "50"}], "}"}], ",", "1", ",", "425", ",", "1", ",", 
     
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"3", ",", "30"}], "}"}], "}"}]}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.35757176568782*^9, 3.36482369255261*^9, {3.36482389571266*^9, 
   3.36482393612196*^9}, 3.36483150589589*^9, {3.36483153949421*^9, 
   3.36483155390493*^9}, {3.36483171849855*^9, 3.3648317210624*^9}, {
   3.36491145986774*^9, 3.36491145998816*^9}, {3.36596241723716*^9, 
   3.36596242907102*^9}, {3.36596249621638*^9, 3.36596251401226*^9}, {
   3.372623819164199*^9, 3.37262386610439*^9}, {3.3726239197174997`*^9, 
   3.3726239610636263`*^9}, {3.37486667294705*^9, 3.3748666749068737`*^9}, {
   3.379271412122954*^9, 3.379271438195276*^9}, {3.3792714784231515`*^9, 
   3.3792714788347673`*^9}, 3.3792728249074793`*^9, {3.38367362950603*^9, 
   3.38367362953728*^9}},
 CellID->1496021318],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 50, $CellContext`seed$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 50, "max steps"}, 1, 10000, 1}, {{
       Hold[$CellContext`seed$$], 1, "new walk"}, 1, 1000000000, 1}, {{
       Hold[$CellContext`max$$], 50}, 1, 425, 1}}, Typeset`size$$ = {
    500., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`max$122321$$ = 
    0, $CellContext`seed$122322$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 50, $CellContext`seed$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$122321$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$122322$$, 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" :> (SeedRandom[$CellContext`seed$$]; 
       With[{$CellContext`pts$ = $CellContext`SARW[$CellContext`max$$]}, 
         Graphics3D[{Thick, Gray, 
           Line[$CellContext`pts$], 
           RGBColor[0.6, 0.74, 0.36], 
           Sphere[
            Part[$CellContext`pts$, 1], 1], 
           RGBColor[0.9, 0.42, 0.17], 
           Sphere[
            Part[$CellContext`pts$, -1], 1]}, PlotLabel -> Style[
            If[Length[$CellContext`pts$] < $CellContext`max$$, 
             StringJoin["STUCK in ", 
              ToString[Length[$CellContext`pts$] - 1], 
              If[Length[$CellContext`pts$] == 1, " move!!", " moves!!"]], 
             StringJoin["free after ", 
              ToString[$CellContext`max$$ - 1], 
              If[Length[$CellContext`pts$] - 1 == 1, " move", " moves"]]], 
            "Label", 12], ImageSize -> {500, 500}, PlotRange -> All, Boxed -> 
          False]]), 
      "Specifications" :> {{{$CellContext`max$$, 50, "max steps"}, 1, 10000, 
         1}, {{$CellContext`seed$$, 1, "new walk"}, 1, 1000000000, 
         1}, {{$CellContext`max$$, 50}, 1, 425, 1, ControlType -> None}}, 
      "Options" :> {AutorunSequencing -> {{3, 30}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{546., {305., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`SARW[
         Pattern[$CellContext`maxLength, 
          Blank[]]] := (
        Clear[$CellContext`notvisitedQ]; $CellContext`notvisitedQ[
           Blank[]] := True; Map[First, 
          NestWhileList[({#, 
            Select[
             Flatten[
              Outer[
              Plus, {#}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0,
                1}, {0, 0, -1}}, 1], 
              1], $CellContext`notvisitedQ]}& )[$CellContext`notvisitedQ[
               Part[#, 1]] = False; RandomChoice[
              Part[#, 2]]]& , {{0, 0, 0}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {
            0, -1, 0}, {0, 0, 1}, {0, 0, -1}}}, Part[#, 2] =!= {}& , 
           1, $CellContext`maxLength - 1]]), $CellContext`notvisitedQ[{0, 0, 
         0}] = False, $CellContext`notvisitedQ[{0, 0, 1}] = 
       False, $CellContext`notvisitedQ[{0, 1, 0}] = 
       False, $CellContext`notvisitedQ[{0, 1, 1}] = 
       False, $CellContext`notvisitedQ[{1, 1, 0}] = 
       False, $CellContext`notvisitedQ[{2, 1, 0}] = 
       False, $CellContext`notvisitedQ[{3, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 3, 1}] = 
       False, $CellContext`notvisitedQ[{6, 14, -3}] = 
       False, $CellContext`notvisitedQ[{6, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 3, 1}] = 
       False, $CellContext`notvisitedQ[{7, 4, 1}] = 
       False, $CellContext`notvisitedQ[{7, 5, 1}] = 
       False, $CellContext`notvisitedQ[{7, 12, 0}] = 
       False, $CellContext`notvisitedQ[{7, 13, -1}] = 
       False, $CellContext`notvisitedQ[{7, 13, 0}] = 
       False, $CellContext`notvisitedQ[{7, 14, -4}] = 
       False, $CellContext`notvisitedQ[{7, 14, -3}] = 
       False, $CellContext`notvisitedQ[{7, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 14, -1}] = 
       False, $CellContext`notvisitedQ[{7, 15, -4}] = 
       False, $CellContext`notvisitedQ[{7, 15, -3}] = 
       False, $CellContext`notvisitedQ[{8, 5, 1}] = 
       False, $CellContext`notvisitedQ[{8, 10, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, 0}] = 
       False, $CellContext`notvisitedQ[{8, 12, 0}] = 
       False, $CellContext`notvisitedQ[{8, 13, -1}] = 
       False, $CellContext`notvisitedQ[{8, 14, -4}] = 
       False, $CellContext`notvisitedQ[{8, 14, -1}] = 
       False, $CellContext`notvisitedQ[{9, 5, 1}] = 
       False, $CellContext`notvisitedQ[{9, 6, 1}] = 
       False, $CellContext`notvisitedQ[{9, 8, -1}] = 
       False, $CellContext`notvisitedQ[{9, 9, -2}] = 
       False, $CellContext`notvisitedQ[{9, 9, -1}] = 
       False, $CellContext`notvisitedQ[{9, 10, -2}] = 
       False, $CellContext`notvisitedQ[{9, 10, -1}] = 
       False, $CellContext`notvisitedQ[{10, 6, 0}] = 
       False, $CellContext`notvisitedQ[{10, 6, 1}] = 
       False, $CellContext`notvisitedQ[{10, 7, 0}] = 
       False, $CellContext`notvisitedQ[{10, 8, -1}] = 
       False, $CellContext`notvisitedQ[{10, 8, 0}] = 
       False, $CellContext`notvisitedQ[{10, 9, -2}] = 
       False, $CellContext`notvisitedQ[{10, 10, -2}] = 
       False, $CellContext`notvisitedQ[
         Blank[]] := True}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->413169983]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ManipulateCaptionSection"],

Cell["\<\
Trace a path by moving at random from one lattice point to another while \
avoiding previously visited points.\
\>", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, 3.36482384176003*^9, 3.3649083354971*^9, {
   3.3748669086258373`*^9, 3.3748669087458267`*^9}},
 CellID->1044312921]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ThumbnailSection"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 3255, $CellContext`seed$$ = 
    552910053, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 3255, "max steps"}, 1, 10000, 1}, {{
       Hold[$CellContext`seed$$], 552910053, "new walk"}, 1, 1000000000, 
      1}, {{
       Hold[$CellContext`max$$], 3255}, 1, 425, 1}}, Typeset`size$$ = {
    500., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`max$122377$$ = 
    0, $CellContext`seed$122378$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 3255, $CellContext`seed$$ = 
        552910053}, "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$122377$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$122378$$, 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" :> (SeedRandom[$CellContext`seed$$]; 
       With[{$CellContext`pts$ = $CellContext`SARW[$CellContext`max$$]}, 
         Graphics3D[{Thick, Gray, 
           Line[$CellContext`pts$], 
           RGBColor[0.6, 0.74, 0.36], 
           Sphere[
            Part[$CellContext`pts$, 1], 1], 
           RGBColor[0.9, 0.42, 0.17], 
           Sphere[
            Part[$CellContext`pts$, -1], 1]}, PlotLabel -> Style[
            If[Length[$CellContext`pts$] < $CellContext`max$$, 
             StringJoin["STUCK in ", 
              ToString[Length[$CellContext`pts$] - 1], 
              If[Length[$CellContext`pts$] == 1, " move!!", " moves!!"]], 
             StringJoin["free after ", 
              ToString[$CellContext`max$$ - 1], 
              If[Length[$CellContext`pts$] - 1 == 1, " move", " moves"]]], 
            "Label", 12], ImageSize -> {500, 500}, PlotRange -> All, Boxed -> 
          False]]), 
      "Specifications" :> {{{$CellContext`max$$, 3255, "max steps"}, 1, 10000,
          1}, {{$CellContext`seed$$, 552910053, "new walk"}, 1, 1000000000, 
         1}, {{$CellContext`max$$, 3255}, 1, 425, 1, ControlType -> None}}, 
      "Options" :> {AutorunSequencing -> {{3, 30}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{546., {305., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`SARW[
         Pattern[$CellContext`maxLength, 
          Blank[]]] := (
        Clear[$CellContext`notvisitedQ]; $CellContext`notvisitedQ[
           Blank[]] := True; Map[First, 
          NestWhileList[({#, 
            Select[
             Flatten[
              Outer[
              Plus, {#}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0,
                1}, {0, 0, -1}}, 1], 
              1], $CellContext`notvisitedQ]}& )[$CellContext`notvisitedQ[
               Part[#, 1]] = False; RandomChoice[
              Part[#, 2]]]& , {{0, 0, 0}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {
            0, -1, 0}, {0, 0, 1}, {0, 0, -1}}}, Part[#, 2] =!= {}& , 
           1, $CellContext`maxLength - 1]]), $CellContext`notvisitedQ[{0, 0, 
         0}] = False, $CellContext`notvisitedQ[{0, 0, 1}] = 
       False, $CellContext`notvisitedQ[{0, 1, 0}] = 
       False, $CellContext`notvisitedQ[{0, 1, 1}] = 
       False, $CellContext`notvisitedQ[{1, 1, 0}] = 
       False, $CellContext`notvisitedQ[{2, 1, 0}] = 
       False, $CellContext`notvisitedQ[{3, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 3, 1}] = 
       False, $CellContext`notvisitedQ[{6, 14, -3}] = 
       False, $CellContext`notvisitedQ[{6, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 3, 1}] = 
       False, $CellContext`notvisitedQ[{7, 4, 1}] = 
       False, $CellContext`notvisitedQ[{7, 5, 1}] = 
       False, $CellContext`notvisitedQ[{7, 12, 0}] = 
       False, $CellContext`notvisitedQ[{7, 13, -1}] = 
       False, $CellContext`notvisitedQ[{7, 13, 0}] = 
       False, $CellContext`notvisitedQ[{7, 14, -4}] = 
       False, $CellContext`notvisitedQ[{7, 14, -3}] = 
       False, $CellContext`notvisitedQ[{7, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 14, -1}] = 
       False, $CellContext`notvisitedQ[{7, 15, -4}] = 
       False, $CellContext`notvisitedQ[{7, 15, -3}] = 
       False, $CellContext`notvisitedQ[{8, 5, 1}] = 
       False, $CellContext`notvisitedQ[{8, 10, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, 0}] = 
       False, $CellContext`notvisitedQ[{8, 12, 0}] = 
       False, $CellContext`notvisitedQ[{8, 13, -1}] = 
       False, $CellContext`notvisitedQ[{8, 14, -4}] = 
       False, $CellContext`notvisitedQ[{8, 14, -1}] = 
       False, $CellContext`notvisitedQ[{9, 5, 1}] = 
       False, $CellContext`notvisitedQ[{9, 6, 1}] = 
       False, $CellContext`notvisitedQ[{9, 8, -1}] = 
       False, $CellContext`notvisitedQ[{9, 9, -2}] = 
       False, $CellContext`notvisitedQ[{9, 9, -1}] = 
       False, $CellContext`notvisitedQ[{9, 10, -2}] = 
       False, $CellContext`notvisitedQ[{9, 10, -1}] = 
       False, $CellContext`notvisitedQ[{10, 6, 0}] = 
       False, $CellContext`notvisitedQ[{10, 6, 1}] = 
       False, $CellContext`notvisitedQ[{10, 7, 0}] = 
       False, $CellContext`notvisitedQ[{10, 8, -1}] = 
       False, $CellContext`notvisitedQ[{10, 8, 0}] = 
       False, $CellContext`notvisitedQ[{10, 9, -2}] = 
       False, $CellContext`notvisitedQ[{10, 10, -2}] = 
       False, $CellContext`notvisitedQ[
         Blank[]] := True}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->74141872]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SnapshotsSection"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 8545, $CellContext`seed$$ = 
    933862434, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 8545, "max steps"}, 1, 10000, 1}, {{
       Hold[$CellContext`seed$$], 933862434, "new walk"}, 1, 1000000000, 
      1}, {{
       Hold[$CellContext`max$$], 8545}, 1, 425, 1}}, Typeset`size$$ = {
    500., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`max$122433$$ = 
    0, $CellContext`seed$122434$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 8545, $CellContext`seed$$ = 
        933862434}, "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$122433$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$122434$$, 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" :> (SeedRandom[$CellContext`seed$$]; 
       With[{$CellContext`pts$ = $CellContext`SARW[$CellContext`max$$]}, 
         Graphics3D[{Thick, Gray, 
           Line[$CellContext`pts$], 
           RGBColor[0.6, 0.74, 0.36], 
           Sphere[
            Part[$CellContext`pts$, 1], 1], 
           RGBColor[0.9, 0.42, 0.17], 
           Sphere[
            Part[$CellContext`pts$, -1], 1]}, PlotLabel -> Style[
            If[Length[$CellContext`pts$] < $CellContext`max$$, 
             StringJoin["STUCK in ", 
              ToString[Length[$CellContext`pts$] - 1], 
              If[Length[$CellContext`pts$] == 1, " move!!", " moves!!"]], 
             StringJoin["free after ", 
              ToString[$CellContext`max$$ - 1], 
              If[Length[$CellContext`pts$] - 1 == 1, " move", " moves"]]], 
            "Label", 12], ImageSize -> {500, 500}, PlotRange -> All, Boxed -> 
          False]]), 
      "Specifications" :> {{{$CellContext`max$$, 8545, "max steps"}, 1, 10000,
          1}, {{$CellContext`seed$$, 933862434, "new walk"}, 1, 1000000000, 
         1}, {{$CellContext`max$$, 8545}, 1, 425, 1, ControlType -> None}}, 
      "Options" :> {AutorunSequencing -> {{3, 30}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{546., {305., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`SARW[
         Pattern[$CellContext`maxLength, 
          Blank[]]] := (
        Clear[$CellContext`notvisitedQ]; $CellContext`notvisitedQ[
           Blank[]] := True; Map[First, 
          NestWhileList[({#, 
            Select[
             Flatten[
              Outer[
              Plus, {#}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0,
                1}, {0, 0, -1}}, 1], 
              1], $CellContext`notvisitedQ]}& )[$CellContext`notvisitedQ[
               Part[#, 1]] = False; RandomChoice[
              Part[#, 2]]]& , {{0, 0, 0}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {
            0, -1, 0}, {0, 0, 1}, {0, 0, -1}}}, Part[#, 2] =!= {}& , 
           1, $CellContext`maxLength - 1]]), $CellContext`notvisitedQ[{0, 0, 
         0}] = False, $CellContext`notvisitedQ[{0, 0, 1}] = 
       False, $CellContext`notvisitedQ[{0, 1, 0}] = 
       False, $CellContext`notvisitedQ[{0, 1, 1}] = 
       False, $CellContext`notvisitedQ[{1, 1, 0}] = 
       False, $CellContext`notvisitedQ[{2, 1, 0}] = 
       False, $CellContext`notvisitedQ[{3, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 3, 1}] = 
       False, $CellContext`notvisitedQ[{6, 14, -3}] = 
       False, $CellContext`notvisitedQ[{6, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 3, 1}] = 
       False, $CellContext`notvisitedQ[{7, 4, 1}] = 
       False, $CellContext`notvisitedQ[{7, 5, 1}] = 
       False, $CellContext`notvisitedQ[{7, 12, 0}] = 
       False, $CellContext`notvisitedQ[{7, 13, -1}] = 
       False, $CellContext`notvisitedQ[{7, 13, 0}] = 
       False, $CellContext`notvisitedQ[{7, 14, -4}] = 
       False, $CellContext`notvisitedQ[{7, 14, -3}] = 
       False, $CellContext`notvisitedQ[{7, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 14, -1}] = 
       False, $CellContext`notvisitedQ[{7, 15, -4}] = 
       False, $CellContext`notvisitedQ[{7, 15, -3}] = 
       False, $CellContext`notvisitedQ[{8, 5, 1}] = 
       False, $CellContext`notvisitedQ[{8, 10, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, 0}] = 
       False, $CellContext`notvisitedQ[{8, 12, 0}] = 
       False, $CellContext`notvisitedQ[{8, 13, -1}] = 
       False, $CellContext`notvisitedQ[{8, 14, -4}] = 
       False, $CellContext`notvisitedQ[{8, 14, -1}] = 
       False, $CellContext`notvisitedQ[{9, 5, 1}] = 
       False, $CellContext`notvisitedQ[{9, 6, 1}] = 
       False, $CellContext`notvisitedQ[{9, 8, -1}] = 
       False, $CellContext`notvisitedQ[{9, 9, -2}] = 
       False, $CellContext`notvisitedQ[{9, 9, -1}] = 
       False, $CellContext`notvisitedQ[{9, 10, -2}] = 
       False, $CellContext`notvisitedQ[{9, 10, -1}] = 
       False, $CellContext`notvisitedQ[{10, 6, 0}] = 
       False, $CellContext`notvisitedQ[{10, 6, 1}] = 
       False, $CellContext`notvisitedQ[{10, 7, 0}] = 
       False, $CellContext`notvisitedQ[{10, 8, -1}] = 
       False, $CellContext`notvisitedQ[{10, 8, 0}] = 
       False, $CellContext`notvisitedQ[{10, 9, -2}] = 
       False, $CellContext`notvisitedQ[{10, 10, -2}] = 
       False, $CellContext`notvisitedQ[
         Blank[]] := True}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->76429721],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 9709, $CellContext`seed$$ = 
    314814816, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 9709, "max steps"}, 1, 10000, 1}, {{
       Hold[$CellContext`seed$$], 314814816, "new walk"}, 1, 1000000000, 
      1}, {{
       Hold[$CellContext`max$$], 9709}, 1, 425, 1}}, Typeset`size$$ = {
    500., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`max$122489$$ = 
    0, $CellContext`seed$122490$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 9709, $CellContext`seed$$ = 
        314814816}, "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$122489$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$122490$$, 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" :> (SeedRandom[$CellContext`seed$$]; 
       With[{$CellContext`pts$ = $CellContext`SARW[$CellContext`max$$]}, 
         Graphics3D[{Thick, Gray, 
           Line[$CellContext`pts$], 
           RGBColor[0.6, 0.74, 0.36], 
           Sphere[
            Part[$CellContext`pts$, 1], 1], 
           RGBColor[0.9, 0.42, 0.17], 
           Sphere[
            Part[$CellContext`pts$, -1], 1]}, PlotLabel -> Style[
            If[Length[$CellContext`pts$] < $CellContext`max$$, 
             StringJoin["STUCK in ", 
              ToString[Length[$CellContext`pts$] - 1], 
              If[Length[$CellContext`pts$] == 1, " move!!", " moves!!"]], 
             StringJoin["free after ", 
              ToString[$CellContext`max$$ - 1], 
              If[Length[$CellContext`pts$] - 1 == 1, " move", " moves"]]], 
            "Label", 12], ImageSize -> {500, 500}, PlotRange -> All, Boxed -> 
          False]]), 
      "Specifications" :> {{{$CellContext`max$$, 9709, "max steps"}, 1, 10000,
          1}, {{$CellContext`seed$$, 314814816, "new walk"}, 1, 1000000000, 
         1}, {{$CellContext`max$$, 9709}, 1, 425, 1, ControlType -> None}}, 
      "Options" :> {AutorunSequencing -> {{3, 30}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{546., {305., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`SARW[
         Pattern[$CellContext`maxLength, 
          Blank[]]] := (
        Clear[$CellContext`notvisitedQ]; $CellContext`notvisitedQ[
           Blank[]] := True; Map[First, 
          NestWhileList[({#, 
            Select[
             Flatten[
              Outer[
              Plus, {#}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0,
                1}, {0, 0, -1}}, 1], 
              1], $CellContext`notvisitedQ]}& )[$CellContext`notvisitedQ[
               Part[#, 1]] = False; RandomChoice[
              Part[#, 2]]]& , {{0, 0, 0}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {
            0, -1, 0}, {0, 0, 1}, {0, 0, -1}}}, Part[#, 2] =!= {}& , 
           1, $CellContext`maxLength - 1]]), $CellContext`notvisitedQ[{0, 0, 
         0}] = False, $CellContext`notvisitedQ[{0, 0, 1}] = 
       False, $CellContext`notvisitedQ[{0, 1, 0}] = 
       False, $CellContext`notvisitedQ[{0, 1, 1}] = 
       False, $CellContext`notvisitedQ[{1, 1, 0}] = 
       False, $CellContext`notvisitedQ[{2, 1, 0}] = 
       False, $CellContext`notvisitedQ[{3, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 3, 1}] = 
       False, $CellContext`notvisitedQ[{6, 14, -3}] = 
       False, $CellContext`notvisitedQ[{6, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 3, 1}] = 
       False, $CellContext`notvisitedQ[{7, 4, 1}] = 
       False, $CellContext`notvisitedQ[{7, 5, 1}] = 
       False, $CellContext`notvisitedQ[{7, 12, 0}] = 
       False, $CellContext`notvisitedQ[{7, 13, -1}] = 
       False, $CellContext`notvisitedQ[{7, 13, 0}] = 
       False, $CellContext`notvisitedQ[{7, 14, -4}] = 
       False, $CellContext`notvisitedQ[{7, 14, -3}] = 
       False, $CellContext`notvisitedQ[{7, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 14, -1}] = 
       False, $CellContext`notvisitedQ[{7, 15, -4}] = 
       False, $CellContext`notvisitedQ[{7, 15, -3}] = 
       False, $CellContext`notvisitedQ[{8, 5, 1}] = 
       False, $CellContext`notvisitedQ[{8, 10, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, 0}] = 
       False, $CellContext`notvisitedQ[{8, 12, 0}] = 
       False, $CellContext`notvisitedQ[{8, 13, -1}] = 
       False, $CellContext`notvisitedQ[{8, 14, -4}] = 
       False, $CellContext`notvisitedQ[{8, 14, -1}] = 
       False, $CellContext`notvisitedQ[{9, 5, 1}] = 
       False, $CellContext`notvisitedQ[{9, 6, 1}] = 
       False, $CellContext`notvisitedQ[{9, 8, -1}] = 
       False, $CellContext`notvisitedQ[{9, 9, -2}] = 
       False, $CellContext`notvisitedQ[{9, 9, -1}] = 
       False, $CellContext`notvisitedQ[{9, 10, -2}] = 
       False, $CellContext`notvisitedQ[{9, 10, -1}] = 
       False, $CellContext`notvisitedQ[{10, 6, 0}] = 
       False, $CellContext`notvisitedQ[{10, 6, 1}] = 
       False, $CellContext`notvisitedQ[{10, 7, 0}] = 
       False, $CellContext`notvisitedQ[{10, 8, -1}] = 
       False, $CellContext`notvisitedQ[{10, 8, 0}] = 
       False, $CellContext`notvisitedQ[{10, 9, -2}] = 
       False, $CellContext`notvisitedQ[{10, 10, -2}] = 
       False, $CellContext`notvisitedQ[
         Blank[]] := True}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->33766724],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`max$$ = 9550, $CellContext`seed$$ = 
    327513228, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`max$$], 9550, "max steps"}, 1, 10000, 1}, {{
       Hold[$CellContext`seed$$], 327513228, "new walk"}, 1, 1000000000, 
      1}, {{
       Hold[$CellContext`max$$], 9550}, 1, 425, 1}}, Typeset`size$$ = {
    500., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`max$122545$$ = 
    0, $CellContext`seed$122546$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`max$$ = 9550, $CellContext`seed$$ = 
        327513228}, "ControllerVariables" :> {
        Hold[$CellContext`max$$, $CellContext`max$122545$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$122546$$, 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" :> (SeedRandom[$CellContext`seed$$]; 
       With[{$CellContext`pts$ = $CellContext`SARW[$CellContext`max$$]}, 
         Graphics3D[{Thick, Gray, 
           Line[$CellContext`pts$], 
           RGBColor[0.6, 0.74, 0.36], 
           Sphere[
            Part[$CellContext`pts$, 1], 1], 
           RGBColor[0.9, 0.42, 0.17], 
           Sphere[
            Part[$CellContext`pts$, -1], 1]}, PlotLabel -> Style[
            If[Length[$CellContext`pts$] < $CellContext`max$$, 
             StringJoin["STUCK in ", 
              ToString[Length[$CellContext`pts$] - 1], 
              If[Length[$CellContext`pts$] == 1, " move!!", " moves!!"]], 
             StringJoin["free after ", 
              ToString[$CellContext`max$$ - 1], 
              If[Length[$CellContext`pts$] - 1 == 1, " move", " moves"]]], 
            "Label", 12], ImageSize -> {500, 500}, PlotRange -> All, Boxed -> 
          False]]), 
      "Specifications" :> {{{$CellContext`max$$, 9550, "max steps"}, 1, 10000,
          1}, {{$CellContext`seed$$, 327513228, "new walk"}, 1, 1000000000, 
         1}, {{$CellContext`max$$, 9550}, 1, 425, 1, ControlType -> None}}, 
      "Options" :> {AutorunSequencing -> {{3, 30}}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{546., {305., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`SARW[
         Pattern[$CellContext`maxLength, 
          Blank[]]] := (
        Clear[$CellContext`notvisitedQ]; $CellContext`notvisitedQ[
           Blank[]] := True; Map[First, 
          NestWhileList[({#, 
            Select[
             Flatten[
              Outer[
              Plus, {#}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0,
                1}, {0, 0, -1}}, 1], 
              1], $CellContext`notvisitedQ]}& )[$CellContext`notvisitedQ[
               Part[#, 1]] = False; RandomChoice[
              Part[#, 2]]]& , {{0, 0, 0}, {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {
            0, -1, 0}, {0, 0, 1}, {0, 0, -1}}}, Part[#, 2] =!= {}& , 
           1, $CellContext`maxLength - 1]]), $CellContext`notvisitedQ[{0, 0, 
         0}] = False, $CellContext`notvisitedQ[{0, 0, 1}] = 
       False, $CellContext`notvisitedQ[{0, 1, 0}] = 
       False, $CellContext`notvisitedQ[{0, 1, 1}] = 
       False, $CellContext`notvisitedQ[{1, 1, 0}] = 
       False, $CellContext`notvisitedQ[{2, 1, 0}] = 
       False, $CellContext`notvisitedQ[{3, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 1, 0}] = 
       False, $CellContext`notvisitedQ[{4, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 0}] = 
       False, $CellContext`notvisitedQ[{5, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 2, 1}] = 
       False, $CellContext`notvisitedQ[{6, 3, 1}] = 
       False, $CellContext`notvisitedQ[{6, 14, -3}] = 
       False, $CellContext`notvisitedQ[{6, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 3, 1}] = 
       False, $CellContext`notvisitedQ[{7, 4, 1}] = 
       False, $CellContext`notvisitedQ[{7, 5, 1}] = 
       False, $CellContext`notvisitedQ[{7, 12, 0}] = 
       False, $CellContext`notvisitedQ[{7, 13, -1}] = 
       False, $CellContext`notvisitedQ[{7, 13, 0}] = 
       False, $CellContext`notvisitedQ[{7, 14, -4}] = 
       False, $CellContext`notvisitedQ[{7, 14, -3}] = 
       False, $CellContext`notvisitedQ[{7, 14, -2}] = 
       False, $CellContext`notvisitedQ[{7, 14, -1}] = 
       False, $CellContext`notvisitedQ[{7, 15, -4}] = 
       False, $CellContext`notvisitedQ[{7, 15, -3}] = 
       False, $CellContext`notvisitedQ[{8, 5, 1}] = 
       False, $CellContext`notvisitedQ[{8, 10, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, -1}] = 
       False, $CellContext`notvisitedQ[{8, 11, 0}] = 
       False, $CellContext`notvisitedQ[{8, 12, 0}] = 
       False, $CellContext`notvisitedQ[{8, 13, -1}] = 
       False, $CellContext`notvisitedQ[{8, 14, -4}] = 
       False, $CellContext`notvisitedQ[{8, 14, -1}] = 
       False, $CellContext`notvisitedQ[{9, 5, 1}] = 
       False, $CellContext`notvisitedQ[{9, 6, 1}] = 
       False, $CellContext`notvisitedQ[{9, 8, -1}] = 
       False, $CellContext`notvisitedQ[{9, 9, -2}] = 
       False, $CellContext`notvisitedQ[{9, 9, -1}] = 
       False, $CellContext`notvisitedQ[{9, 10, -2}] = 
       False, $CellContext`notvisitedQ[{9, 10, -1}] = 
       False, $CellContext`notvisitedQ[{10, 6, 0}] = 
       False, $CellContext`notvisitedQ[{10, 6, 1}] = 
       False, $CellContext`notvisitedQ[{10, 7, 0}] = 
       False, $CellContext`notvisitedQ[{10, 8, -1}] = 
       False, $CellContext`notvisitedQ[{10, 8, 0}] = 
       False, $CellContext`notvisitedQ[{10, 9, -2}] = 
       False, $CellContext`notvisitedQ[{10, 10, -2}] = 
       False, $CellContext`notvisitedQ[
         Blank[]] := True}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->795052337]
}, 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.\"",
  ActionDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"ResizeImages"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[True], 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.\""}],
  ActionDelay->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.\""}],
  ActionDelay->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.\""}],
  ActionDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"CreateAndDeleteLocators"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[True], 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.\""}],
  ActionDelay->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.\"",
  ActionDelay->0.35]], "ControlSuggestions",
 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], 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], BoxBaselineShift -> 
     0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}],
  ActionDelay->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], BoxBaselineShift -> 
     0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}],
  ActionDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"BookmarkAnimation"]
}, Open  ]],

Cell["", "SearchTermsSection"],

Cell[CellGroupData[{

Cell["", "RelatedLinksSection"],

Cell[TextData[ButtonBox["Self-Avoiding Walk",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://mathworld.wolfram.com/Self-AvoidingWalk.html"], 
   None}]], "RelatedLinks",
 CellChangeTimes->{
  3.35696210375764*^9, {3.418765459859375*^9, 3.4187654740625*^9}},
 CellID->71723053],

Cell[TextData[ButtonBox["Self-Avoiding Walk Connective Constant",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://mathworld.wolfram.com/Self-AvoidingWalkConnectiveConstant.\
html"], None}]], "RelatedLinks",
 CellChangeTimes->{
  3.35696210375764*^9, {3.418765411390625*^9, 3.418765425140625*^9}},
 CellID->400763299]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "AuthorSection"],

Cell[TextData[{
 "Contributed by: ",
 ButtonBox["Rob Morris",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Rob+Morris"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Rob+Morris"]
}], "Author",
 CellChangeTimes->{
  3.35696210375764*^9, {3.36482371911761*^9, 3.36482372597956*^9}, 
   3.36941270077599*^9},
 CellID->264909647],

Cell[TextData[{
 "Based on a program by: ",
 ButtonBox["Todd Rowland",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=Todd+Rowland"], 
    None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=Todd+Rowland"]
}], "Author",
 CellChangeTimes->{
  3.35696210375764*^9, {3.36483179076835*^9, 3.36483179945468*^9}, 
   3.36941270388857*^9, {3.3748669215446744`*^9, 3.3748669252643394`*^9}},
 CellID->70721018]
}, Open  ]]
}, Open  ]]
},
WindowSize->{703, 573},
WindowMargins->{{48, 41}, {Automatic, 13}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (January 24, 2008)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ResizeImages"->{
  Cell[40579, 883, 310, 8, 22, "ControlSuggestions",
   CellTags->"ResizeImages"]},
 "RotateAndZoomIn3D"->{
  Cell[40892, 893, 676, 16, 22, "ControlSuggestions",
   CellTags->"RotateAndZoomIn3D"]},
 "DragLocators"->{
  Cell[41571, 911, 339, 11, 22, "ControlSuggestions",
   CellTags->"DragLocators"]},
 "CreateAndDeleteLocators"->{
  Cell[41913, 924, 636, 15, 22, "ControlSuggestions",
   CellTags->"CreateAndDeleteLocators"]},
 "SliderZoom"->{
  Cell[42552, 941, 842, 21, 22, "ControlSuggestions",
   CellTags->"SliderZoom"]},
 "GamepadControls"->{
  Cell[43397, 964, 303, 8, 22, "ControlSuggestions",
   CellTags->"GamepadControls"]},
 "AutomaticAnimation"->{
  Cell[43703, 974, 1411, 31, 22, "ControlSuggestions",
   CellTags->"AutomaticAnimation"]},
 "BookmarkAnimation"->{
  Cell[45117, 1007, 881, 21, 22, "ControlSuggestions",
   CellTags->"BookmarkAnimation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ResizeImages", 48084, 1103},
 {"RotateAndZoomIn3D", 48192, 1106},
 {"DragLocators", 48301, 1109},
 {"CreateAndDeleteLocators", 48416, 1112},
 {"SliderZoom", 48529, 1115},
 {"GamepadControls", 48634, 1118},
 {"AutomaticAnimation", 48746, 1121},
 {"BookmarkAnimation", 48862, 1124}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 161, 3, 74, "DemoTitle",
 CellID->700863240],
Cell[CellGroupData[{
Cell[776, 30, 33, 0, 156, "InitializationSection"],
Cell[812, 32, 3046, 80, 70, "Input",
 CellID->320962237]
}, Closed]],
Cell[CellGroupData[{
Cell[3895, 117, 29, 0, 188, "ManipulateSection"],
Cell[CellGroupData[{
Cell[3949, 121, 3878, 94, 70, "Input",
 CellID->1496021318],
Cell[7830, 217, 6380, 124, 627, "Output",
 CellID->413169983]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14256, 347, 36, 0, 136, "ManipulateCaptionSection"],
Cell[14295, 349, 307, 7, 37, "ManipulateCaption",
 CellID->1044312921]
}, Open  ]],
Cell[CellGroupData[{
Cell[14639, 361, 28, 0, 168, "ThumbnailSection"],
Cell[14670, 363, 6432, 125, 627, "Output",
 CellID->74141872]
}, Open  ]],
Cell[CellGroupData[{
Cell[21139, 493, 28, 0, 138, "SnapshotsSection"],
Cell[21170, 495, 6432, 125, 627, "Output",
 CellID->76429721],
Cell[27605, 622, 6432, 125, 627, "Output",
 CellID->33766724],
Cell[34040, 749, 6433, 125, 627, "Output",
 CellID->795052337]
}, Open  ]],
Cell[40488, 877, 26, 0, 232, "DetailsSection"],
Cell[CellGroupData[{
Cell[40539, 881, 37, 0, 108, "ControlSuggestionsSection"],
Cell[40579, 883, 310, 8, 22, "ControlSuggestions",
 CellTags->"ResizeImages"],
Cell[40892, 893, 676, 16, 22, "ControlSuggestions",
 CellTags->"RotateAndZoomIn3D"],
Cell[41571, 911, 339, 11, 22, "ControlSuggestions",
 CellTags->"DragLocators"],
Cell[41913, 924, 636, 15, 22, "ControlSuggestions",
 CellTags->"CreateAndDeleteLocators"],
Cell[42552, 941, 842, 21, 22, "ControlSuggestions",
 CellTags->"SliderZoom"],
Cell[43397, 964, 303, 8, 22, "ControlSuggestions",
 CellTags->"GamepadControls"],
Cell[43703, 974, 1411, 31, 22, "ControlSuggestions",
 CellTags->"AutomaticAnimation"],
Cell[45117, 1007, 881, 21, 22, "ControlSuggestions",
 CellTags->"BookmarkAnimation"]
}, Open  ]],
Cell[46013, 1031, 30, 0, 152, "SearchTermsSection"],
Cell[CellGroupData[{
Cell[46068, 1035, 31, 0, 126, "RelatedLinksSection"],
Cell[46102, 1037, 284, 7, 22, "RelatedLinks",
 CellID->71723053],
Cell[46389, 1046, 323, 7, 22, "RelatedLinks",
 CellID->400763299]
}, Open  ]],
Cell[CellGroupData[{
Cell[46749, 1058, 25, 0, 136, "AuthorSection"],
Cell[46777, 1060, 423, 13, 22, "Author",
 CellID->264909647],
Cell[47203, 1075, 485, 13, 22, "Author",
 CellID->70721018]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)