Area = \frac{n×L×Ap}{2}

Mostrar Características de Polígono

Número de Lados

Medida de uno de sus Lados

n = 6 (slider from 3 to 20, step 1)
a = 3 (slider from 1 to 30, step 0.1)
A = Intersect(xAxis, yAxis)
B: (a, 0)
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, d_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1, C, D, E, F, G, H, I, J, K, L, M, N, O_1, P, Q, R, S, T, U, V, W, Z_1, A_1, B_1, C_1, D_1, E_1, F_1 = Polygon(A, B, n)
distanciaAB = Distance(A, B)
distanciaBC = Distance(B, C)
distanciaCD = Distance(C, D)
distanciaDE = Distance(D, E)
distanciaEF = Distance(E, F)
distanciaAF = Distance(A, F)
p_1 = Circle(A, B, C)
O = Center(p_1)
polígono2, a_2, b_2, g_2 = Polygon(B, O, A)
n_1 = OrthogonalLine(O, b)
H_1 = Intersect(b, g_2)
Z = Intersect(n_1, b)
o = Distance(A, B)
TextoAB: Name[A] + (Name[B]) + " = " + o
q_1 = Segment(O, Z)
α = Angle(B, Z, O)
distanciaG1I1 = Distance(O, Z)
TextoG1I1: Name[O] + (Name[Z]) + " = " + distanciaG1I1
texto2: "Número de lados: " + n + ""
texto1: "Apotema: " + distanciaG1I1 + ""
texto3: "Medida de su lado: " + a + ""
texto5: "Area = \frac{" + (LaTeX[n]) + "×" + LaTeX[a] + "×" + LaTeX[q_1] + "}{2}"
area1: ((n * a) * q_1)
area2: area1 / 2
texto6: "Area =\frac{" + (LaTeX[area1]) + "}{2} = " + LaTeX[area2] + ""
u = true