WOLFRAM NOTEBOOK

In[]:=
Out[]=
{{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{0,0},{0,0}},10}
In[]:=
EvolutionPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{0,0},{0,0}},10]
Out[]=
​
In[]:=
EvolutionPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,3}},10]
Out[]=
In[]:=
EvolutionPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,3},{2,3},{1,4},{4,3}},10]
Out[]=
​
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},#,10]#&,EnumerateHypergraphs[{{2,2}}]]]
Out[]=
{{{1,2},{2,1}}}
In[]:=
EvolutionPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,1}},13]
Out[]=
In[]:=
Graph3D
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture2[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},#,10]#&,EnumerateHypergraphs[{{3,2}}]]]
Out[]=

Another Rule

Sierpinski rule

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.