Visualize a tree: Difference between revisions

Line 380:

== Tree graph ==

=== Tree graph ===

Make a tree graph. In Mathematica, '''\[DirectedEdge]''' will appear as an arrow.

<lang Mathematica>edges = {1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 2 \[DirectedEdge] 4, 2 \[DirectedEdge] 5,

edges = {1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 2 \[DirectedEdge] 4, 2 \[DirectedEdge] 5,

3 \[DirectedEdge] 6, 4 \[DirectedEdge] 7};

t = TreeGraph[edges, GraphStyle -> "VintageDiagram"]

t = TreeGraph[edges, GraphStyle -> "VintageDiagram"]</lang>

</lang>

[[File:Tree.jpg]]

Line 395:

Line 391:

Show the syntactical structure of the above code. '''Defer''' is added to impede '''TreeGraph''' from becoming a graphical object.

<lang Mathematica>TreeForm[Defer@

TreeForm[Defer@

TreeGraph[{1 \[DirectedEdge] 2, 1 \[DirectedEdge] 3, 2 \[DirectedEdge] 4, 2 \[DirectedEdge] 5,

3 \[DirectedEdge] 6, 4 \[DirectedEdge] 7}, VertexLabels -> "Name"]]

3 \[DirectedEdge] 6, 4 \[DirectedEdge] 7}, VertexLabels -> "Name"]]</lang>

</lang>

[[File:syntax.jpg]]

Line 408:

Line 402:

Here's another way to display a tree. The triangles open/close when clicked on.

<lang Mathematica>OpenerView[{1, Column@{OpenerView[{2, Column@{OpenerView[{4, 7}, True], 5}}, True],

OpenerView[{1, Column@{OpenerView[{2, Column@{OpenerView[{4, 7}, True], 5}}, True],

OpenerView[{3, OpenerView[{TraditionalForm[Cos[x]], Plot[Cos[x], {x, 0, 10}, ImageSize -> 150]},

True]}, True]}}, True]

True]}, True]}}, True]</lang>

</lang>

[[File:opener.jpg]]