Aire d'un polygone régulier

Triangle équilatéral

Carré

Pentagone

Hexagone

Heptagone

Octogone

Ennéagone

Décagone

Hendecagone

Dodécagone

Tridécagone

Tétradécagone

Pentadécagone

Hexadécagone

Heptadécagone

Octodécagone

Ennéadécagone

Icosagone

L_1: {A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
N = 8 (slider from 3 to 20, step 1)
texte2 = Text(Element[L_1, N - 2])
A = Intersect(xAxis, yAxis)
B = (-1.12, -3.84)
c = Circle(A, B)
liste1 = Sequence(Rotate[B, 2 * i * 3.141592653589793 / N], i, 1, N, 1)
liste2 = Sequence(Polygon[A, Rotate[B, 2 * (i - 1) * 3.141592653589793 / N], Rotate[B, 2 * i * 3.141592653589793 / N]], i, 1, N, 1)
liste3 = Sequence(Segment[Rotate[B, 2 * (i - 1) * 3.141592653589793 / N], Rotate[B, 2 * i * 3.141592653589793 / N]], i, 1, N, 1)
texte6 = Text("base d'un triangle = " + (Element[liste3, 1]))
hauteur = Segment(A, Midpoint[Segment[B, Rotate[B, 2 * 3.141592653589793 / N, A]]])
rayon = Segment(A, B)
texte4 = Text("Aire d'un triangle : base x hauteur : 2 = " + (Distance[A, Line[B, Rotate[B, 2 * 3.141592653589793 / N]]] * Element[liste3, 1] / 2))
texte3 = Text("Aire du polygone (" + N + " triangles) = " + (N * Distance[A, Line[B, Rotate[B, 2 * 3.141592653589793 / N]]] * Element[liste3, 1] / 2))