RF=Function[{p},Rescale[p/16,{.5,1}]];
CF=Function[{p},ColorData["BrightBands"][p]];
CPG[n_]:=GraphPlot[PetersenGraph[n,7],
VertexStyle->CF[1-RF[n]],VertexShapeFunction->"ConcaveHexagon",
VertexSize->.3,EdgeStyle->CF[RF[n]],
EdgeShapeFunction->"CarvedArrow"];
Table[CPG[N],{N,{9,10,11,12}}]
Table[CPG[N],{N,{9,10,11,12}}]
No comments:
Post a Comment