用Mathematica绘制随机的雪花图案

 时间:2026-02-13 20:24:53

1、给出平面上五个随机的点:

a = RandomReal[{-1, 1}, {5, 2}]

这五个点可以连成一个五边形。

用Mathematica绘制随机的雪花图案

2、再加上一个点,得到六个点,也就是一个六边形。

b = Join[{{0, 0.1}}, a]

用Mathematica绘制随机的雪花图案

3、从六边形的顶点{0,0.1}出发,累加六边形的顶点坐标:

c = Accumulate[b]

用Mathematica绘制随机的雪花图案

4、旋转c对应的六边形:

d = c.(RotationMatrix[{c[[-1]], {0, 1}}])\[Transpose]

用Mathematica绘制随机的雪花图案

5、翻转d:

e = Reverse[d.{{-1, 0}, {0, 1}}]

这类似于关于y轴的对称变换。

用Mathematica绘制随机的雪花图案

6、去掉e的第一个顶点,得到五边形:

f = Rest[e]

用Mathematica绘制随机的雪花图案

7、合并d和f的顶点,得到一个11边形:

g = Join[d, f]

用Mathematica绘制随机的雪花图案

8、旋转11边形g,旋转角度分别是0*π/3,1*π/3,2*π/3,3*π/3,4*π/3,5*π/3;

把这些顶点合并起来,得到一个复杂的66边形;

这就是我们得到的雪花图案。

h = (g.RotationMatrix[#*60 \[Degree]] & /@ Range[6]) // Flatten[#, 1] &;

用Mathematica绘制随机的雪花图案

9、这样,可以整合一个雪花函数。

用Mathematica绘制随机的雪花图案

10、下面是10个随机雪花的动态图。

Graphics[{White, 雪花}, Background -> Black]

用Mathematica绘制随机的雪花图案

11、下面是100个雪花。

用Mathematica绘制随机的雪花图案

  • matlab 怎么在figure内画m行n列表格
  • Mathematica应用——有趣的绝对值方程
  • mathematics怎么对函数求导
  • 如何用matlab求符号函数数组或函数矩阵的导数?
  • Matlab绘制子图subplot使用攻略
  • 热门搜索
    timex手表怎么样 宠物龟怎么养 怎么学英语最有效 如何发微信红包 如何消除痛风石 卡刷包怎么用 晚上哭的早晨如何消肿 生活家电 嘀嘀打车怎么付款 初三生活