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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 19:42:12
有哪位大神知道用mathematica画出雪花分形图和三角形分形图的语句有哪位大神知道用mathematica画出雪花分形图和三角形分形图的语句有哪位大神知道用mathematica画出雪花分形图和三

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

有哪位大神知道用mathematica画出雪花分形图和三角形分形图的语句
(*声明:非本人原创*)
雪花分形:
定义迭代递归函数:
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]
效果请看下图: