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

baricentro(poli1)...M
disegna raggio AM
apotema MN
calcolo rapporto k = apotema/lato
dipende da numero lati
apotema = k * lato

n..........k
3......0.29
4......0.5
5......0.688
6......0,866
7......1.03
8......1.20
9......1.37
10....1.53
11....1.83
12....1.86

n = 12 (slider from 3 to 12, step 1)
A = (7.083963068181818, 2.9175224820143906)
B = (9.083963068181818, 2.9175224820143906)
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)
m = Segment(A, M)
N = Midpoint(A, B)
p = Segment(M, N)
distanzaAM = Distance(A, M)
Midpoint(A, M)
TestoAM: "\overline{" + (Name[A]) + (Name[M]) + "} \, = \, " + distanzaAM
distanzaNM = Distance(N, M)
Midpoint(N, M)
TestoNM: "\overline{" + (Name[N]) + (Name[M]) + "} \, = \, " + distanzaNM
distanzaAB = Distance(A, B)
Midpoint(A, B)
TestoAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distanzaAB
NM = Distance(N, M)
AM = Distance(A, M)
MN = Distance(M, N)
AB = Distance(A, B)
o: MN / AB