{{1,3}}{{2,3},{1,2}}
{{1,3}}{{2,3},{1,2}}
{{1,3}}{{2,3},{1,2}}
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3}}{{2,3},{1,2}}],100],{{0,0,0}}];
In[]:=
Length[%]
In[]:=
12
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules[{{{1,2,3}}{{1,3,4},{2,3,5},{2,3}}},{{0,0,0}}]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3}}{{2,3},{1,2}}],500],{{0,0,0}}];
In[]:=
Length[%]
In[]:=
37
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules[{{{1,2,3}}{{3,4,1},{4,2,5},{4,3}}},{{0,0,0}}]
In[]:=
Out[]=
NOTE: Mysterious hanging when running this; had to restart
{{1,3},{1,2}}{{1,3},{2,2}}
{{1,3},{1,2}}{{1,3},{2,2}}
est[{{1,3},{1,2}}{{1,3},{2,2}}]
In[]:=
4213597
2
Out[]=
N[%]
In[]:=
2.1068×
6
10
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{1,3},{2,2}}],500],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
1
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{1,3},{2,2}}],1000],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
4
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{1,3},{2,2}}],10000],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
45
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules[{{{1,2,3},{2,4}}{{4,1,5},{2,3},{5,3}}}]
In[]:=
Out[]=
allrules=EnumerateWolframModelRules[{{1,3},{1,2}}{{1,3},{2,2}}];
In[]:=
$Aborted
Out[]=
{{1,3},{1,2}}{{2,3},{2,2}}
{{1,3},{1,2}}{{2,3},{2,2}}
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{2,3},{2,2}}],500],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
17
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{2,3},{2,2}}],4000],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
96
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{4,2}}{{4,2,2},{2,5,6},{5,1},{5,4}},{{1,2,3},{2,4}}{{5,6,4},{4,1,6},{2,1},{3,6}},{{1,2,3},{3,4}}{{2,5,3},{3,5,4},{1,2},{6,2}}}
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,2}}{{4,2,2},{2,5,6},{5,1},{5,4}},{{0,0,0},{0,0}},14},{{{1,2,3},{2,4}}{{5,6,4},{4,1,6},{2,1},{3,6}},{{0,0,0},{0,0}},40},{{{1,2,3},{3,4}}{{2,5,3},{3,5,4},{1,2},{6,2}},{{0,0,0},{0,0}},200}},0]
In[]:=
Out[]=
Reverse@{{{{1,2,3},{4,2}}{{4,2,2},{2,5,6},{5,1},{5,4}},{{0,0,0},{0,0}},14},{{{1,2,3},{2,4}}{{5,6,4},{4,1,6},{2,1},{3,6}},{{0,0,0},{0,0}},40},{{{1,2,3},{3,4}}{{2,5,3},{3,5,4},{1,2},{6,2}},{{0,0,0},{0,0}},200}}
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{2,3},{2,2}}],4000],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
82
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{4,3}}{{2,5,2},{6,1,4},{2,4},{3,5}},{{1,2,3},{4,1}}{{1,4,5},{6,5,3},{5,2},{6,1}},{{1,2,3},{1,4}}{{2,5,1},{1,5,4},{2,2},{1,3}}}
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,1}}{{1,4,5},{6,5,3},{5,2},{6,1}},{{0,0,0},{0,0}},13}},4]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2}}{{2,3},{2,2}}],4000],{{0,0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
67
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{4,3}}{{5,6,2},{7,6,4},{6,6},{6,3}},{{1,2,3},{1,4}}{{1,5,4},{5,1,2},{3,6},{5,6}},{{1,2,3},{3,4}}{{5,6,5},{2,1,5},{3,6},{5,4}},{{1,2,3},{3,4}}{{5,1,1},{5,4,2},{3,6},{5,6}}}
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{1,2,3},{1,4}}{{1,5,4},{5,1,2},{3,6},{5,6}},{{0,0,0},{0,0}},10,"FinalState"]]]
In[]:=
Out[]=
{{{{1,2,3},{2,4}}{{5,6,4},{4,1,6},{2,1},{3,6}},{{0,0,0},{0,0}},40}}
{{1,3},{2,2}}{{2,3},{2,2}}
{{1,3},{2,2}}{{2,3},{2,2}}
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{2,2}}{{2,3},{2,2}}],5000],{{0,0,0},{0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
16
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{2,2}}{{2,3},{2,2}}],5000],{{0,0,0},{0,0},{0,0}}];
In[]:=
Length[%]
In[]:=
14
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
{{1,3},{1,1},{1,1}}{{2,3},{2,2},{2,1}}
{{1,3},{1,1},{1,1}}{{2,3},{2,2},{2,1}}
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2},{1,1}}{{2,3},{2,2},{2,1}}],500],{{0,0,0},{0,0},{0}}];
In[]:=
Length[%]
In[]:=
3
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{1,4},{1}}{{5,1,5},{4,3,5},{5,5},{2,1},{2},{2}}}
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2},{1,1}}{{2,3},{2,2},{2,1}}],5000],{{0,0,0},{0,0},{0}}];
In[]:=
Length[%]
In[]:=
18
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{3,4},{3}}{{5,5,5},{5,6,4},{3,1},{1,5},{3},{4}},{{1,2,3},{4,1},{4}}{{2,4,5},{4,6,1},{2,4},{6,3},{4},{6}},{{1,2,3},{3,4},{2}}{{1,5,4},{3,2,6},{2,2},{6,5},{4},{5}}}
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{3,4},{3}}{{5,5,5},{5,6,4},{3,1},{1,5},{3},{4}},{{0,0,0},{0,0},{0}},13}},4]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{3,4}}{{5,5,5},{5,6,4},{3,1},{1,5}},{{0,0,0},{0,0}},8}},8]
In[]:=
Out[]=
ImageCollectionFromRules[Table[RandomWolframModel[{{1,3},{1,2},{1,1}}{{2,3},{2,2},{2,1}}],5000],{{0,0,0},{0,0},{0}}];
In[]:=
Length[%]
In[]:=
21
Out[]=
MakeFSP[%%]
In[]:=
Out[]=
PicturesFromRules@{{{1,2,3},{2,4},{4}}{{5,3,3},{4,2,5},{4,1},{4,5},{1},{4}},{{1,2,3},{2,4},{3}}{{5,1,2},{5,4,3},{5,4},{4,6},{2},{3}}}
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4},{4}}{{5,3,3},{4,2,5},{4,1},{4,5},{1},{4}},{{0,0,0},{0,0},{0}},12}},4]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4}}{{5,3,3},{4,2,5},{4,1},{4,5}},{{0,0,0},{0,0}},12}},4]
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{1,2,3},{2,4}}{{5,3,3},{4,2,5},{4,1},{4,5}},{{0,0,0},{0,0}},12,"FinalState"]]]
In[]:=
Out[]=