RosettaCodeData/Task/Visualize-a-tree/Mathematica/visualize-a-tree-1.math

4 lines
203 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
edges = {1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 2 \[DirectedEdge] 4, 2 \[DirectedEdge] 5,
3 \[DirectedEdge] 6, 4 \[DirectedEdge] 7};
t = TreeGraph[edges, GraphStyle -> "VintageDiagram"]