Нью-Йорк идет!) Итак, давайте предположим, что у нас есть какая-то функция, такая как drawPoint (color, x, y), как бы мы визуализировали сосну?
Вы можете попробовать IFS .Смотри http://commons.wikimedia.org/wiki/File:Ifs_pine.png
Просто для удовольствия.Неверный ответ:
n = 5; p = {}; AppendTo[ p, {Brown, Cylinder[{{0, 0, 0}, {0, 0, 1}}, .5]}]; For[i = 1, i <= n, i++, AppendTo[p, {Green, Cone[{{0, 0, i}, {0, 0, i + 3/2}}, (7 - i)^2/6]}]; ]; Graphics3D[p, Boxed -> False]