In[]:=
ResourceFunction["WolframModelPlot"]ResourceFunction["WolframModel"][{{1,2},{2,3}}{{4,2},{4,1},{2,1},{3,4}},​​{{1,2},{2,3},{3,4},{4,1}},8,"FinalState"],

Out[]=