Área e perímetro de Polígonos

Na ventá da dereita podes cambiar o número de lados do polígono.
Tamén podes cambiar a lonxitude de cada lado, desprazando os puntos A ou B
Verás como se modifica o lado, a apotema, o perímetro e as áreas ao modificar o número de lados ou o tamaño destes

A = Point(a)
B = Point(a)
n = 25 (slider from 3 to 25, step 1)
polígono1, b, c, d, e, f, g, h, i, j, k, l, m, p, q, r, s, t, a_1, b_1, c_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1, n_1, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1 = Polygon(A, B, n)
distanciaAB = Distance(A, B)
TextoAB: Name[A] + (Name[B]) + " = " + distanciaAB
o: (n * b)
d_1 = Circle(A, C, B)
Centro = Center(d_1)
p_1 = OrthogonalLine(Centro, a)
H_1 = Intersect(p_1, a)
Apotema = Segment(Centro, H_1)
distanciaG1H1 = Distance(Centro, H_1)
q_1 = Segment(Centro, B)
texto1: "Lado :  " + distanciaAB + ""
texto6: "Apotema :  " + Apotema + ""
texto7: "Perímetro = " + n + " * " + distanciaAB + " = " + o + ""
texto8: "Área =\frac{" + (LaTeX[o]) + "*" + (LaTeX[Apotema]) + "}{2} = " + (LaTeX[polígono1]) + ""