In[]:=
GraphEmbedding[HypergraphToGraph@WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},50,"FinalState"],"SpringElectricalEmbedding",1]
Out[]=
In[]:=
Graphics[Point[Catenate[MapIndexed[Function[g,{g,-First[#2]}]/@Flatten[GraphEmbedding[Graph[Rule@@@#],"SpringElectricalEmbedding",1]]&,WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},10,"StatesList"]]]]]
Out[]=
In[]:=
Graphics[Point[Catenate[MapIndexed[Function[g,{g,-First[#2]}]/@Flatten[GraphEmbedding[HypergraphToGraph[#],"SpringElectricalEmbedding",1]]&,WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},50,"StatesList"]]]],AspectRatio2]
Out[]=