Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "matrix", "}"}], ",", 
     RowBox[{
      RowBox[{"SeedRandom", "[", "seed", "]"}], ";", 
      "
", 
      RowBox[{"matrix", "=", 
       RowBox[{"RandomInteger", "[", 
        RowBox[{
         RowBox[{"{", "1", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"cells", ",", "cells"}], "}"}]}], "]"}]}], ";", 
      "
", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"#", ",", 
          RowBox[{"ImageSize", "->", 
           RowBox[{"{", 
            RowBox[{"375", ",", "375"}], "}"}]}]}], "]"}], "&"}], "@@",
        "
", 
       RowBox[{"CellularAutomaton", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"224", ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", " ", 
         "matrix", ",", 
         RowBox[{"{", 
          RowBox[{"{", "step", "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{"step", ",", "0", ",", "1000", ",", "1", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "->", "Left"}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"seed", ",", "1", ",", "\"\<initial condition\>\""}], 
      "}"}], ",", "1", ",", "2000", ",", "1", ",", 
     RowBox[{"ControlPlacement", "->", "Left"}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cells", ",", "20", ",", "\"\<number of vertices\>\""}],
       "}"}], ",", "10", ",", "50", ",", "1", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ControlPlacement", "->", "Left"}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "ArrayPlot", ",", "\"\<type of plot\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "ArrayPlot", ",", "GraphPlot", ",", "GraphPlot3D", ",", 
       "LayeredGraphPlot", ",", "TreePlot"}], "}"}]}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, 3.401402431889074*^9, {3.4014912056400824`*^9, 
   3.4014912310880823`*^9}, {3.4015380748047113`*^9, 
   3.4015382309453363`*^9}, {3.401630976545312*^9, 
   3.401630992264062*^9}, {3.4017235002197065`*^9, 
   3.4017235324228315`*^9}, {3.4017469740480375`*^9, 
   3.4017469746490374`*^9}, 3.401789802687786*^9, 
   3.7607369427704144`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`cells$$ = 20, $CellContext`f$$ = 
    ArrayPlot, $CellContext`seed$$ = 1, $CellContext`step$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{
      Hold[$CellContext`step$$], 0, 1000, 1}, {{
       Hold[$CellContext`seed$$], 1, "initial condition"}, 1, 2000, 
      1}, {{
       Hold[$CellContext`cells$$], 20, "number of vertices"}, 10, 50, 
      1}, {{
       Hold[$CellContext`f$$], ArrayPlot, "type of plot"}, {
      ArrayPlot, GraphPlot, GraphPlot3D, LayeredGraphPlot, 
       TreePlot}}}, Typeset`size$$ = {375., {185., 190.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     True, $CellContext`step$230122$$ = 
    0, $CellContext`seed$230123$$ = 0, $CellContext`cells$230124$$ = 
    0, $CellContext`f$230125$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`cells$$ = 20, $CellContext`f$$ = 
        ArrayPlot, $CellContext`seed$$ = 1, $CellContext`step$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`step$$, $CellContext`step$230122$$, 0], 
        Hold[$CellContext`seed$$, $CellContext`seed$230123$$, 0], 
        Hold[$CellContext`cells$$, $CellContext`cells$230124$$, 0], 
        Hold[$CellContext`f$$, $CellContext`f$230125$$, 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" :> 
      Module[{$CellContext`matrix$}, 
        SeedRandom[$CellContext`seed$$]; $CellContext`matrix$ = 
         RandomInteger[{
           1}, {$CellContext`cells$$, $CellContext`cells$$}]; 
        Apply[$CellContext`f$$[#, ImageSize -> {375, 375}]& , 
          
          CellularAutomaton[{
           224, {2, {{2, 2, 2}, {2, 1, 2}, {2, 2, 2}}}, {1, 
            1}}, $CellContext`matrix$, {{$CellContext`step$$}}]]], 
      "Specifications" :> {{$CellContext`step$$, 0, 1000, 1, 
         Appearance -> "Labeled", ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`seed$$, 1, "initial condition"}, 1, 
         2000, 1, ControlPlacement -> Left, ImageSize -> 
         Tiny}, {{$CellContext`cells$$, 20, "number of vertices"}, 10,
          50, 1, Appearance -> "Labeled", ControlPlacement -> Left, 
         ImageSize -> 
         Tiny}, {{$CellContext`f$$, ArrayPlot, "type of plot"}, {
         ArrayPlot, GraphPlot, GraphPlot3D, LayeredGraphPlot, 
          TreePlot}}}, "Options" :> {AutorunSequencing -> {3, 4}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{628., {229., 235.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760736942770775*^9},
 CellID->71354107]
}, {2}]]