Thursday, December 26, 2019

Graph Drawing


GPG[g_,col_]:=GraphPlot[GraphData[g],VertexSize->0,
PlotStyle->RGBColor[col],ImageSize->600];
Show[GPG["HundredTwentyCellGraph","slategray"],
         GPG["SixHundredCellGraph","steelblue"]]

Posted by at
Labels: ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)