WOLFRAM NOTEBOOK

In[]:=
ResourceFunction["WolframModelPlot"]/@ResourceFunction["WolframModel"][{{1,2},{2,3,4,5}}->{{1,2,3,4},{4,5}},Join[#/.Max[#]->1&@Catenate[#+{{1,2},{2,3,4,5}}&/@Range[0,30,4]],{{1,35},{35,36,37,38},{38,2}}],30,"StatesList"]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
ResourceFunction["WolframModelPlot"]/@ResourceFunction["WolframModel"][{{1,2},{2,3,4,5}}->{{1,2,3,4},{4,5}},Join[#/.Max[#]->1&@Catenate[#+{{1,2},{2,3,4,5}}&/@Range[0,30,4]]],30,"StatesList"]
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.