Bridget Riley风格的光学艺术

Bridget Riley风格的光学艺术
几何画板及绘图内容加载中,请稍等……
2019-08-16 02:12
本范例通过几何变换和三角函数展示了Bridget Riley风格的光学艺术效果。核心数学概念包括旋转、椭圆、正弦函数和向量。通过使用Circle, Dilate, Radius, Distance, Max, Sequence, Point等命令,可以构造出具有动态效果的几何图形。适合高中数学教学,特别是解析几何和三角函数的教学。

GeoGebra 命令及参数

  1. Circle(A, A1) → d
  2. Dilate(PolyLine[Corner[1], Corner[2], Corner[3], Corner[4], Corner[1]], 0.95, A) → h
  3. Radius(d) → ra
  4. Distance(B, A) → b
  5. Distance(C, A) → ca
  6. Distance(C, B) → cb
  7. Max(ca + ra, cb + rb) → c
  8. Circle(B, rb) → e
  9. Circle(C, rc) → f
  10. Sequence(Rotate[A1, (i * (180°) / n), A], i, 0, (2 * n) - 1) → l1
  11. Point(e) → B1
  12. Sequence(Rotate[B1, (i * (180°) / n), B], i, 0, (2 * n) - 1) → l3
  13. Point(f) → C1
  14. Sequence(Rotate[C1, (i * (180°) / n), C], i, 0, (2 * n) - 1) → l4
  15. Dilate(PolyLine[Corner[1], Corner[2], Corner[3], Corner[4], Corner[1]], 2, A) → g
  16. Point(h) → D
  17. Sequence(Intersect[Ray[Element[l4, i + 1], Rotate[D, (i * (180°) / n), A]], g], i, 0, (2 * n) - 1) → l5
  18. Sequence(Polygon[A, Element[l1, (2 * i) - 1], Element[l1, (2 * i)]], i, 1, n) → l2
  19. Sequence(Polygon[Element[l1, (2 * i) - 1], Element[l1, (2 * i)], Element[l3, (2 * i)], Element[l3, (2 * i) - 1]], i, 1, n) → l6
  20. Sequence(Polygon[Element[l4, (2 * i) - 1], Element[l4, (2 * i)], Element[l3, (2 * i)], Element[l3, (2 * i) - 1]], i, 1, n) → l7
  21. Sequence(Polygon[Element[l4, (2 * i) - 1], Element[l4, (2 * i)], Element[l5, (2 * i)], Element[l5, (2 * i) - 1]], i, 1, n) → l8