WOLFRAM NOTEBOOK

Different Initial States

In[]:=
g10=HypergraphToGraph@WolframModel[newrules[[-2]],Join[Table[0,3,2],Table[0,2,3]],10,"FinalState"];
In[]:=
LayeredGraphPlot[g10,AspectRatio1]
In[]:=
ListSurfacePlot3D[GraphEmbedding[g10,"SpringElectricalEmbedding",3],PerformanceGoal"Quality"]
Out[]=
In[]:=
ListSurfacePlot3D[GraphEmbedding[HypergraphToGraph@WolframModel[newrules[[-2]],Join[Table[0,3,2],Table[0,2,3]],11,"FinalState"],"SpringElectricalEmbedding",3],PerformanceGoal"Quality"]
Out[]=
In[]:=
n10=HypergraphToGraph@WolframModel[newrules[[2]],Join[Table[0,3,2],Table[0,2,3]],10,"FinalState"];
In[]:=
ListSurfacePlot3D[GraphEmbedding[n10,"SpringElectricalEmbedding",3],PerformanceGoal"Quality"]
Out[]=
In[]:=
GraphPlot3D[HypergraphToGraph@WolframModel[newrules[[-1]],Join[Table[0,3,2],Table[0,2,3]],11,"FinalState"]]
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.