一棵树的生成

一棵树的生成

  今天来看一个好玩的，一棵树的长大。

  1.长树枝

point = Table[{0.6^i, RandomChoice[{Pi/8, -Pi/8}]}, {i, 1, 20}];
Graphics[Line[AnglePath[point]]]

2.树枝慢慢变多

line = {};
For[j = 1, j <= 10, j++,
 point = Table[{0.6^i, RandomChoice[{Pi/8, -Pi/8}]}, {i, 1, 20}]; z
   line = AppendTo[line, Line[AnglePath[point]]];
 ]
Graphics[line]

也有一种简单的写法

pic = Graphics[
  Table[
   Line[AnglePath[
     Table[{0.6^i, RandomChoice[{-Pi/8, Pi/8}]}, {i, 1, 20}]]], 80]]

但是这棵树怎么是的呢

3.让树往上长

Rotate[pic, Pi/2]

4.我们来把树长大的过程画出来

donghua = Table[
   Line[AnglePath[Table[{0.6^i, RandomChoice[{-Pi/8, Pi/8}]}, {i, 1, 20}]]], 50];

Manipulate[Rotate[Graphics[donghua[[;; i]]], Pi/2], {{i, 1}, 1, 50, 1}]

5.导出成gif

donghua = Table[
   Line[AnglePath[Table[{0.6^i, RandomChoice[{-Pi/3, Pi/8}]}, {i, 1, 20}]]], 300];
image = Table[
   Rotate[Graphics[donghua[[;; i]], ImageSize -> {200, 200}], Pi/2], {i, 1, 300}];
Export["shu.gif", image]

*特别
要是换一个参数，还会产生不一样的效果

Graphics[
 Table[
  Line[AnglePath[
    Table[{0.6^i, RandomChoice[{-Pi/3, Pi/8}]}, {i, 1, 20}]]]
  , 80]
 ]

让她动起来


以上，所有
2016/12/3

转载于:https://www.cnblogs.com/wmn7q/p/7265537.html