Wednesday, December 25, 2019

Graph Styling 3


CET=Function[{g,s},
Flatten[Table[Table[i<->j->ColorData[s]
[i/Length[GraphData[g,"Vertices"]]],
{j,AdjacencyList[GraphData[g],i]}],
{i,GraphData[g,"Vertices"]}]]];
CGP= Function[{g,s},GraphPlot[GraphData[g],
ImageSize->400,VertexLabels->Placed[Automatic,{.5,.4}],
VertexSize->.6,EdgeStyle->CET[g,s],
EdgeShapeFunction->GraphElementData[{"CarvedArcArrow",
"ArrowSize"->.03,Opacity->.8}],
VertexStyle->{RGBColor["Silver"],Opacity[0.5]},
VertexShapeFunction->"ConcaveHexagon"]];
{CGP["GoldbergSnark5","DarkRainbow"],
CGP["WatkinsSnark","Rainbow"]}


No comments:

Post a Comment