WOLFRAM NOTEBOOK

In[]:=
wm13=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"];
In[]:=
Length[wm13]
Out[]=
3966
NeighborhoodGraph
In[]:=
wm10=UndirectedGraph[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]];
In[]:=
nwm10=NeighborhoodGraph[wm10,#,1]&/@VertexList[wm10]
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.