WOLFRAM NOTEBOOK

Enumerations

In[]:=
allshapes[1]
Out[]=
{}
In[]:=
allshapes[2]
Out[]=
{{{1,1}}}
In[]:=
allshapes[3]
Out[]=
{{{2,1}},{{1,2}}}
In[]:=
allshapes[4]
Out[]=
{{{3,1}},{{1,3}},{{2,2}},{{1,1},{1,1}}}
In[]:=
EnumerateRules[2,1]
Out[]=
{{{1,1}}{{1,1}}}
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"]]&/@%
Out[]=
In[]:=
EnumerateRules[2,2]
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"]]&/@%
Out[]=
In[]:=
EnumerateRules[2,3]
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"],ImageSizeTiny]&/@%
Out[]=
In[]:=
EnumerateRules[2,4]
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"],ImageSizeTiny]&/@%
Out[]=
In[]:=
EnumerateRules[3,1]
Out[]=
{{{1,1},{1,1}}{{1,1}},{{1,1}}{{1,1},{1,1}}}
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"],ImageSizeTiny]&/@%
Out[]=
In[]:=
EnumerateRules[3,2]
Out[]=
In[]:=
HypergraphPlot[WolframModel[#,{{0,0}},5,"FinalState"],ImageSizeTiny]&/@%
Out[]=

Industrial Enumeration

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.