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 »
WOLFRAM NOTEBOOK
More Enumerations
More Enumerations
NOTE: In earlier enumerations, the singleton i.c. will sometimes prevent things happening.
In[]:=
allshapes[5]
Out[]=
{{{4,1}},{{1,4}},{{3,2}},{{2,3}},{{1,1},{2,1}},{{1,1},{1,2}}}
In[]:=
RuleShapeListToCases[{{2,3}},1]
Out[]=
{{{1,1},{1,1}}{{1,1},{1,1},{1,1}}}
NOTE: we need a more complicated initial state:
In[]:=
HypergraphPlot[WolframModel[#,{{0,0},{0,0}},5,"FinalState"]]&/@%
Out[]=
ParallelEvaluate[
In[]:=
Length[RuleShapeListToCases[{{2,3}},2]]
Out[]=
100
In[]:=
list={};
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},5,"FinalState"],ImageSizeTiny],AppendTo[list,#]]&,RuleShapeListToCases[{{2,3}},2]]
Out[]=
In[]:=
Length[RuleShapeListToCases[{{2,3}},3]]
Out[]=
1250
In[]:=
list={};
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},5,"FinalState"],ImageSizeTiny],AppendTo[list,#]]&,RuleShapeListToCases[{{2,3}},3]]
Out[]=
In[]:=
list
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0},{0,0}},7,"FinalState"]]&/@%
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0},{0,0}},10,"FinalState"]]&/@list
Out[]=
In[]:=
ParallelMapMonitored[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},15,"FinalState"]]&,list]
Out[]=
In[]:=
HypergraphPlot[WolframModel[{{1,1},{1,2}}{{1,3},{2,1},{2,2}},{{0,0},{0,0}},25,"FinalState"]]
Out[]=
In[]:=
HypergraphPlot[WolframModel[{{1,1},{1,2}}{{1,3},{2,1},{2,2}},{{1,1},{1,2}},15,"FinalState"]]
Out[]=
In[]:=
HypergraphPlot[WolframModel[{{1,1},{1,2}}{{1,3},{2,1},{2,2}},{{1,1},{1,2}},100,"FinalState"]]
Out[]=
In[]:=
HypergraphPlot[WolframModel[{{1,1},{1,2}}{{1,3},{2,1},{2,2}},{{1,1},{1,2}},500,"FinalState"]]
Out[]=