In[]:=
init=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},5,"FinalState"]
Out[]=
In[]:=
initp={{0,9},{4,10},{0,2},{0,12},{5,12},{2,12},{3,7},{3,13},{6,13},{7,13},{2,7},{2,14},{6,14},{7,14},{1,4},{1,15},{6,15},{4,15},{0,1},{0,16},{7,16},{1,16},{4,9},{4,17},{8,17},{9,17},{1,9},{1,18},{18,8},{9,18},{2,10},{2,19},{5,19},{10,19},{1,11},{1,20},{3,20},{11,20},{5,11},{5,21},{10,21},{11,21},{3,11},{3,22},{8,22},{11,22}}
Out[]=
In[]:=
HypergraphPlot[#,ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},init,5,"StatesList"]
Out[]=
In[]:=
HypergraphPlot[#,ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},initp,5,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},init,4,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},initp,4,"StatesList"]
Out[]=
In[]:=
MapThread[GraphDifference,{%57,%58}]
Out[]=
In[]:=
MapThread[HighlightGraph[#,Style[#,Thick,Red]&/@#2]&,{evol,EdgeList/@MapThread[GraphDifference,{evol,evolp}]}]
Out[]=
EdgeList/@%
In[]:=
Graph3D
Out[]=
In[]:=
ll1=Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},init,5,"StatesList"];
In[]:=
ll2=Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",ImageSizeTiny]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},initp,5,"StatesList"];
In[]:=
MapThread[GraphDifference,{ll1,ll2}]
Systematic:
Systematic: