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

4 lines
203 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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"]