让Jean-Baptiste镶嵌图案动起来

让Jean-Baptiste镶嵌图案动起来
几何画板及绘图内容加载中,请稍等……
2025-02-10 00:23
这个GeoGebra范例展示了如何使用几何变换和动画创建动态的镶嵌图案。核心数学概念包括几何变换、向量和动画。通过使用Translate、Mirror、Sequence等命令,可以构造出复杂的几何图案。适合高中数学教学和学习几何变换的学生。

GeoGebra 命令及参数

  1. Sequence(Rotate[Polygon[(a, b), ((2 * a), 0), ((3 * a), b), ((2 * a), (2 * b)), ((2 * a), 1), (a, (11 * b))], (s * pi / 3)], s, 0, 5) → lista1
  2. Translate(lista1, t) → tras1
  3. Sequence(Rotate[Polygon[((2 * a), (2 * b)), ((3 * a), b), ((6 * a), (4 * b)), ((5 * a), (5 * b)), ((3 * a), (3 * b)), ((3 * a), (13 * b)), ((2 * a), (14 * b)), ((-a), (11 * b)), (0, (10 * b)), ((2 * a), (12 * b))], ((s * 2) * pi / 3)], s, 0, 2) → lista2
  4. Translate(lista2, t) → tras2
  5. Circle((0, 0), 5) → c
  6. Mirror(tras1, c) → inv1
  7. Mirror(tras2, c) → inv2
  8. Corner(1, 1) → Export_1
  9. Corner(1, 3) → Export_2
  10. Translate(lista3, t) → tras3
  11. Mirror(tras3, c) → inv3
  12. Translate(lista4, t) → tras4
  13. Mirror(tras4, c) → inv4
  14. Sequence({random(), random(), random()}, k, 1, númeroListas) → listaAzar
  15. Sequence(If[oscuro, {1, 1, 1}, {0, 0, 0}], k, 1, númeroListas) → listaBorde