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

'lato

'apotema

'costante

'area

UV apotema
OP lato
k = UV/OP

per n costante , lato e apotema variano, 
il loro rapporto rimane costante 
per n=4 (quadrato), se vario lato da 2 a 3
varia anche apotema, da 1 a 1.5
rimane costante apotema/lato = 0.5

n = 5 (slider from 4 to 6, 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)
TestoAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distanzaAB
distanzaNM = Distance(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
O = (8, 3)
P = (11, 3)
poli2, p, q, r, s, t, b_1, Q, R, T, W = Polygon(O, P, n)
U = Centroid(poli2)
V = Midpoint(O, P)
a_1 = Segment(V, U)
distanzaOP = Distance(O, P)
Midpoint(O, P)
TestoOP: "\overline{" + (Name[O]) + (Name[P]) + "} \, = \, " + distanzaOP
distanzaVU = Distance(V, U)
Midpoint(V, U)
TestoVU: "\overline{" + (Name[V]) + (Name[U]) + "} \, = \, " + distanzaVU
VU = Distance(V, U)
OP = Distance(O, P)
u: VU / OP
A2 = 4
B2 = 2
C2 = 1
D2: C2 / B2
A3 = 4
A4 = 5
A5 = 5
A6 = 6
A7 = 6
B3 = 3
C3 = 1.5
D3: C3 / B3
B4 = 2
B5 = 3
C4 = 1.38
C5 = 2.06
D4: C4 / B4
D5: C5 / B5
B6 = 2
B7 = 3
C6 = 1.73
C7 = 2.6
D6: C6 / B6
D7: C7 / B7