Question

有哪位大神知道用mathematica画出雪花分形图和三角形分形图的语句

Answer 1

(*声明：非本人原创*)

雪花分形：

定义迭代递归函数：

xuehua[x_List] := 

  Module[{a = {}, n = Length[x], i}, 

   For[i = 1, i < n, i++, 

    a = Join[

      a, {x[[i]], 

       x[[i]] 2/3 + 

        x[[i + 1]] 1/3, (x[[i]] 2/3 + 

          x[[i + 1]] 1/3) + {{Cos[-2 Pi/3], 

            Sin[-2 Pi/3]}, {-Sin[-2 Pi/3], Cos[-2 Pi/3]}}.(x[[i]] - 

            x[[i + 1]]) 1/3, x[[i + 1]] 2/3 + x[[i]] 1/3, 

       x[[i + 1]]}]]; a];

调用函数生成图形：

Show[Graphics[

  Line[Nest[xuehua, {{0, 0}, {1, 0}, {1/2, 3^(1/2)/2}, {0, 0}}, 4]]], 

 AspectRatio -> Automatic]

三角分形：

定义迭代函数：

pts = Nest[

   Join @@ Table[

      i + j, {i, {2 I, -1.7 - I, 1.7 - I}}, {j, #/2}] &, {0.}, 7];

调用函数生成图形：

Graphics[{Re@#, Im@#} & /@ pts // Point]

效果请看下图：