有哪位大神知道用mathematica画出雪花分形图和三角形分形图的语句
来源:学生作业帮助网 编辑:六六作业网 时间:2024/09/04 08:23:30
有哪位大神知道用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]
效果请看下图: