Visualization Notes
Wednesday, December 25, 2019
FindSpanningTree Examples
G=GraphData["HoffmanSingletonGraph","Graph"];
HighlightGraph[G,FindSpanningTree[{G,1}],
GraphHighlightStyle->"DehighlightFade",
EdgeStyle->Flatten[Table[Table[k<->j->Hue[j/50],
{k,50}],{j,2,50}]],ImageSize->500]
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment