RosettaCodeData/Task/Visualize-a-tree/Mathematica/visualize-a-tree-3.math
2023-07-01 13:44:08 -04:00

3 lines
215 B
Text

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]