Date: 29 Marzo 2014

Radio

Apotema

Área_{polígono}=\dfrac{p·a}{2}\\ \ \ \ p → 2\pi r\\ \ \ \ a→ r\Área_{círculo}=\dfrac{2\pi r r}{2}

A=\pi r^2

n = 3 (slider from 3 to 50, step 1)
A = (2.4079659932468265, 2.1962272647277215)
u = (0, -3)
B: A + u
B' = Rotate(B, 360 * ° / n, A)
polígono1, a, 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, 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, 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, H_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 = Polygon(B, B', n)
p_1 = Circle(A, B)
m_1 = OrthogonalLine(A, a)
G_1 = Intersect(m_1, a)
n_1 = Segment(A, B)
q_1 = Segment(A, G_1)
o = false
v = false
apotema = Distance(A, G_1)
radio = Distance(A, B)
apol: Distance[B, B'] * n * apotema / 2
w = Area(p_1)
Puntop1 = PointIn(p_1)
Puntopolígono1 = PointIn(polígono1)
texto1: "Apotema=" + (LaTeX[apotema]) + ""
texto2: "Radio=" + (LaTeX[radio]) + ""
lcirc: 2 * π * radio
perim: n * Distance[B, B']
texto4: "Perímetro=" + (LaTeX[perim]) + ""
texto3: "Longitud=" + (LaTeX[lcirc]) + ""