MathPlotAI Logo MathPlotAI

Bridget Riley Inspired Optical Art

Bridget Riley Inspired Optical Art
Loading the math board and drawing, please wait…
2019-08-16 02:12
FunctionTrigonometryTransformation
This example demonstrates Bridget Riley's optical art style using geometric transformations and trigonometric functions. Key mathematical concepts include rotation, ellipse, sine function, and vectors. Using commands like Circle, Dilate, Radius, Distance, Max, Sequence, and Point, dynamic geometric figures are constructed. Suitable for high school mathematics education, particularly in coordinate geometry and trigonometry.

GeoGebra Commands & Parameters

  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