In[]:=
Graph[Rule@@@#,GraphLayout{"SpringElectricalEmbedding","RepulsiveForcePower"-.5,"MaxIteration"800}]&@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},12,"FinalState"]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout{"SpringElectricalEmbedding","RepulsiveForcePower"-.5,"SpringConstant"4,"MaxIteration"800}]&@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},12,"FinalState"]
Out[]=
