In[]:=
fs=Graph[Rule@@@WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},10,"FinalState"]];
In[]:=
GraphPlot[fs,PlotTheme->"Web"]
In[]:=
GraphPlot3D[fs,PlotTheme->"Web"]
Out[]=
In[]:=
GraphPlot3D[fs]
Out[]=
OSZAR »