(* ::Package:: *) gsraw=Import[NotebookDirectory[]<>"graphdata.m"]; ListPlot[gsraw[[2]],Joined->True,PlotRange->All,AxesLabel->{"Step","Triangles"}] gs=Map[Graph[#,GraphLayout->"CircularEmbedding"]&,gsraw[[1]]]; gs2=Map[Graph[#,GraphLayout->Automatic]&,gsraw[[1]]]; Grid[Partition[gs,10],Frame->All]