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) +
RotationMatrix[2 \[Pi]/3].(x[[i]] - x[[i + 1]]) 1/3,
x[[i + 1]] 2/3 + x[[i]] 1/3, x[[i + 1]]}]]; a]
Manipulate[
Show[Graphics[
Line[Nest[xuehua[#] &, {{0, 0}, {1, 0}, {1/2, 3^(1/2)/2}, {0, 0}},
k]]], AspectRatio -> Automatic], {k, 0, 4, 1},
SaveDefinitions -> True]
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024