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

mirror of https://github.com/acmeism/RosettaCodeData.git
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]
	`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]`