MathPlotAI Logo MathPlotAI

Alan Davis Polygons Math Art

Alan Davis Polygons Math Art
Loading the math board and drawing, please wait…
2019-08-19 02:55
PolygonFunctionCalculusGeometric Construction
This example demonstrates the creation of mathematical art involving polygons, differential calculus, and numerical computations. Core math concepts include polygon construction, differential calculus, number analysis, median value, parabolas, and right triangles. It is constructed using GeoGebra commands like Sequence, Rotate, and Polygon, manipulating objects such as points A/B, lines l1-l9, and parameters n/t/t1/t2. Suitable for high school students and above interested in the intersection of mathematics and art.

GeoGebra Commands & Parameters

  1. Sequence(Rotate[B, (i * (360°) / n), A], i, 1, n) → l1
  2. Rotate(B, ((t * 360°)) / n, A) → B'
  3. Polygon(l1) → t1
  4. Sequence(Rotate[B', (i * (360°) / n), A], i, 1, n) → l2
  5. Polygon(l2) → t2
  6. Sequence(Polygon[Element[l2, i], Element[l1, i], n], i, 1, n) → l3
  7. Sequence(Polygon[Element[l1, Mod[i, n] + 1], Element[l2, i], n], i, 1, n) → l4
  8. Sequence(pcent[Element[l2, i], Element[l1, i], n], i, 1, n) → l6
  9. Sequence(pcent[Element[l1, Mod[i, n] + 1], Element[l2, i], n], i, 1, n) → l7
  10. Sequence(Polygon[Rotate[Element[l1, Mod[i, n] + 1], (360°) / n, Element[l6, Mod[i, n] + 1]], Rotate[Element[l2, i], (360°) / n, Element[l7, i]], n], i, 1, n) → l8
  11. Sequence(Polygon[Rotate[Element[l2, i], (360°) / n, Element[l7, i]], Rotate[Element[l1, i], (360°) / n, Element[l6, i]], n], i, 1, n) → l9