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

4 lines
215 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
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]