crea slider n (da 3 a 12 passo 1)
per numero lati di poligono regolare
disegnare due punti AB per lato
icona poligoni regolari
selezionare lato A,B numero lati n
animare n

MN apotema
AB lato
k = MN/AB......(o)
S = n*AB^2*k/2

n = 5 (slider from 3 to 12, step 1)
A = (2.16, 3.2)
B = (4.16, 3.2)
poli1, a, b, c, d, e, f, g, h, i, j, k, l, C, D, E, F, G, H, I, J, K, L = Polygon(A, B, n)
M = Centroid(poli1)
N = Midpoint(A, B)
m = Segment(N, M)
distanzaAB = Distance(A, B)
Midpoint(A, B)
TestoAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distanzaAB
distanzaNM = Distance(N, M)
Midpoint(N, M)
TestoNM: "\overline{" + (Name[N]) + (Name[M]) + "} \, = \, " + distanzaNM
MN = Distance(M, N)
AB = Distance(A, B)
o: MN / AB
S: n * AB^(2) * o / 2
Testopoli1: "Area di  = " + poli1 + ""