50 steps wm8525wm8525 signature 23→33 rule {{{1, 1, 2}, {3, 4, 5}} -> {{6, 6, 7}, {7, 2, 1}, {4, 5, 1}}} {{{1, 1, 2}, {3, 4, 5}} -> {{6, 6, 7}, {7, 2, 1}, {4, 5, 1}}}
make editable copy download notebook Basic EvolutionBasic evolution:[◼]WolframModel[{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}}},{{1,1,1},{1,1,1}},6,"StatesPlotsList"],,,,,,Event-by-event evolution:[◼]WolframModel[{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}}},{{1,1,1},{1,1,1}},<|"MaxEvents"6|>,"EventsStatesPlotsList"],,,,,,Vertex and edge counts:{vertexCountList,edgeCountList}=[◼]WolframModel[{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}}},{{1,1,1},{1,1,1}},51,{"VertexCountList","EdgeCountList"}];ListLogPlot{vertexCountList,edgeCountList},verticesedgesSymbolic expression for vertex count:FindSequenceFunction[vertexCountList,t]DifferenceRootFunction{y.,n.},-13(-20+n.)(-9+n.)(-5+n.)-9375419075239573200768+9877714264143695865808n.-35569379732513395936102n.+5763837555358048829253n.-343924741719237586424n.+6369502340778641275n.-14(-29+n.)(-21+n.)(-17+n.)(-10+n.)(-7+n.)2193639284471220096-1625672111159441216n.+2086699704281528882n.+125208672097359053n.y.[n.]-(-28+n.)(-19+n.)(-16+n.)(-8+n.)450752022579939301890-418610006081815929939n.+1135471898756766744492n.-114678972648649916653n.+4616580931415614574n.y.[1+n.]+14(-29+n.)(-21+n.)(-17+n.)(-10+n.)(-7+n.)2193639284471220096-1625672111159441216n.+2086699704281528882n.+125208672097359053n.y.[2+n.]+(-28+n.)(-19+n.)(-16+n.)(-8+n.)450752022579939301890-418610006081815929939n.+1135471898756766744492n.-114678972648649916653n.+4616580931415614574n.y.[3+n.]0,y.[1]1,y.[2]3,y.[3]5,y.[4]9,y.[5]12,y.[6]17,y.[7]22,y.[8]27,y.[9]33,y.[10]40,y.[11]48,y.[12]55,y.[13]61,y.[14]68,y.[15]74,y.[16]81,y.[17]87,y.[18]94,y.[19]101,y.[20]107,y.[21]114,y.[22]121,y.[23]128,y.[24]134,y.[25]141,y.[26]147,y.[27]154,y.[28]160,y.[29]167,y.[30]173,y.[31]179[t]Symbolic expression for edge count:FindSequenceFunction[edgeCountList,t]DifferenceRootFunction{y.,n.},40588-1063n.-189652n.+54343n.-3444n.+40628-35393n.+89382n.-6733n.y.[n.]+-51712+44136n.-107332n.+7593n.y.[1+n.]0,y.[1]2[t]Result after 51 generations:WolframModel[]["FinalStatePlot"]Causal GraphCausal graph:WolframModel[]"CausalGraph",Rule[]Layered rendering:WolframModel[]["LayeredCausalGraph"]Causal graph distance matrix:MatrixPlotTransposeGraphDistanceMatrixWolframModel[]["CausalGraph"],Final State PropertiesHypergraph adjacency matrix:MatrixPlotAdjacencyMatrix@CatenateMapUndirectedEdge@@@Subsets[#,{2}]&,WolframModel[]["FinalState"],Vertex degree distribution:HistogramValuesCountsCatenateUnion/@WolframModel[]["FinalState"],Neighborhood volumes (ignoring directedness of connections):volumes=[◼]RaggedMeanAroundValues[◼]HypergraphNeighborhoodVolumesWolframModel[]["FinalState"],All,Automatic;ListLogLogPlotvolumes,Effective dimension versus radius:ListLinePlot[◼]LogDifferences[volumes],Successive neighborhood balls around a random vertex: [◼]HypergraphNeighborhoodsWolframModel[]["FinalState"],4,,,Distance matrix:distanceMatrix=GraphDistanceMatrixUndirectedGraph[◼]HypergraphToGraphWolframModel[]["FinalState"];MatrixPlotExp[-(distanceMatrix/.0None)],Distribution of distances in the graph:HistogramFlatten[distanceMatrix],Spreading of EffectsCausal graph adjacency matrix:MatrixPlotAdjacencyMatrixWolframModel[]["CausalGraph"],Neighborhood volumes in causal graph:ListLogLogPlotValues[◼]GraphNeighborhoodVolumesWolframModel[]["CausalGraph"],{1},Graph Features of Statesgraph=[◼]HypergraphToGraphWolframModel[]["FinalState"];HistogramClosenessCentrality[graph],Cycle properties:EdgeCycleMatrix[UndirectedGraph[graph]]//MatrixPlotHistogram[Length/@FindFundamentalCycles[UndirectedGraph[graph]]]510152025020406080100120FindSpanningTree[UndirectedGraph[graph]]