WOLFRAM NOTEBOOK

In[]:=
ruleset={{{{1,2,3},{4,5,6}}{{7,1,1},{7,5,8},{7,9,6},{2,8,3}},{{0,0,0},{0,0,0}},9},{{{1,2,1},{3,4,5}}{{3,6,3},{1,7,6},{8,9,7},{2,5,9}},{{0,0,0},{0,0,0}},54},{{{1,2,3},{4,5,6}}{{3,7,8},{7,4,5},{1,5,8},{1,2,9}},{{0,0,0},{0,0,0}},9},{{{1,2,3},{3,4,5}}{{5,6,1},{7,6,1},{2,8,5},{8,3,7}},{{0,0,0},{0,0,0}},9},{{{1,2,3},{4,3,5}}{{2,6,1},{6,4,3},{7,3,2},{4,8,5}},{{0,0,0},{0,0,0}},14},{{{1,2,3},{4,5,6}}{{7,3,7},{3,8,5},{8,7,6},{1,7,4}},{{0,0,0},{0,0,0}},8},{{{1,2,1},{3,4,5}}{{6,6,6},{1,6,6},{1,7,3},{5,6,4}},{{0,0,0},{0,0,0}},10},{{{1,2,3},{3,4,5}}{{4,6,7},{6,5,7},{8,5,7},{6,2,8}},{{0,0,0},{0,0,0}},12}};
In[]:=
GraphicsGrid[Partition[ParallelMapMonitored[Labeled[HypergraphPlot[WolframModel[#[[1]],#[[2]],#[[3]],"FinalState"]],RulePlot[WolframModel[#[[1]]],ImageSize80]]&,ruleset],UpTo[4]],ImageSizeFull]
Out[]=
In[]:=
WolframModel[{{1,2,3},{4,5,6}}{{7,1,1},{7,5,8},{7,9,6},{2,8,3}},{{0,0,0},{0,0,0}},9,"CausalGraph"]
Out[]=
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.