Á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 = 16 (slider from 4 to 50, step 2)
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, r_1, s_1, t_1, a_2, b_2, c_2, d_2, e_2, f_2, g_2, h_2, i_2, j_2, k_2, l_2, m_2, n_2, p_2, q_2, r_2, s_2, t_2, a_3, b_3, c_3, d_3, e_3, f_3, g_3, h_3, i_3, j_3, k_3, l_3, m_3, n_3, p_3, q_3, r_3, s_3, t_3, a_4, b_4, c_4, d_4, e_4, f_4, g_4, h_4, i_4, j_4, k_4, l_4, m_4, n_4, p_4, q_4, r_4, s_4, t_4, a_5, b_5, c_5, d_5, e_5, f_5, g_5, h_5, i_5, j_5, 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, G_1, I_1, J_1, K_1, L_1, M_1, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, U_1, V_1, W_1, Z_1, A_2, B_2, C_2, D_2, E_2, F_2, G_2, H_2, I_2, J_2, K_2, L_2, M_2, N_2, O_2, P_2, Q_2, R_2, S_2, T_2, U_2, V_2, W_2, Z_2, A_3, B_3, C_3, D_3, E_3, F_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3, O_3, P_3, Q_3, R_3, S_3, T_3, U_3, V_3, W_3, Z_3, A_4, B_4, C_4, D_4, E_4 = 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 + ""
texto2: "Radio circunferencia circunscrita: " + q_1 + ""
texto7: "Perímetro Polígono = " + n + " * " + distanciaAB + " = " + o + ""
u: ((2 * pi) * q_1)
texto3: "Lonxitude Circunferencia =2· π ·" + q_1 + "=" + u + ""
v: (pi * q_1^(2))
texto8: "Área(polígono) =\frac{" + (LaTeX[o]) + "*" + (LaTeX[Apotema]) + "}{2} = " + (LaTeX[polígono1]) + ""
texto4: "Área(círculo) =  π ·" + (LaTeX[q_1]) + "^{2}=" + (LaTeX[v]) + ""