Manipulate[Graph[Range[1,48],
Flatten[Table[Flatten[Table[Style[1 <->j,Hue[j/48]],
{j,Range[2,48]}]],{i,8}]],
VertexShapeFunction->"ConcaveHexagon",
VertexStyle->White,GraphLayout ->EL, ImageSize->500],
{EL,{"BalloonEmbedding","TutteEmbedding","SpiralEmbedding",
"StarEmbedding","RandomEmbedding",Automatic}}]
Flatten[Table[Flatten[Table[Style[1 <->j,Hue[j/48]],
{j,Range[2,48]}]],{i,8}]],
VertexShapeFunction->"ConcaveHexagon",
VertexStyle->White,GraphLayout ->EL, ImageSize->500],
{EL,{"BalloonEmbedding","TutteEmbedding","SpiralEmbedding",
"StarEmbedding","RandomEmbedding",Automatic}}]
No comments:
Post a Comment