用Mathematica绘制随机的雪花图案

 时间:2024-10-26 12:45:27

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使用攻略
  • 热门搜索
    爱我中华手抄报资料 安全法制教育手抄报 五年级上数学手抄报 小学心理健康手抄报 养成教育手抄报内容 小学英语手抄报大全 6年级数学手抄报 我爱祖国手抄报资料 电子手抄报背景 交通安全的手抄报