geo-002-poligonos-regulares
Author: Epsiclas - Alberto Rodríguez Santos

apotema

Radio y apotema

radio

radio = 3.6 (slider from 0 to 10, step 0.1)
n = 3 (slider from 3 to 30, step 1)
A = (-6.132284415146249, 2.935717853963937)
c = Circle(A, radio)
B = Point(c)
l: ((2 * radio) * sin(π / n))
d = Circle(B, l)
C = Intersect(c, d, 1)
e = Circle(C, l)
E = Intersect(c, e, 1)
f = Circle(E, l)
F = Intersect(c, f, 1)
g = Circle(F, l)
G = Intersect(c, g, 1)
h = Circle(G, l)
H = Intersect(c, h, 1)
k = Circle(H, l)
I = Intersect(c, k, 1)
p = Circle(I, l)
J = Intersect(c, p, 1)
q = Circle(J, l)
K = Intersect(c, q, 1)
r = Circle(K, l)
L = Intersect(c, r, 1)
s = Circle(L, l)
M = Intersect(c, s, 1)
a = Segment(B, C)
a_1 = OrthogonalLine(A, a)
V = Intersect(a_1, a)
b_1 = Segment(A, V)
v = false
i_1 = Segment(A, B)
t = Circle(M, l)
N = Intersect(c, t, 1)
c_1 = Circle(N, l)
O = Intersect(c, c_1, 1)
d_1 = Circle(O, l)
P = Intersect(c, d_1, 1)
e_1 = Circle(P, l)
Q = Intersect(c, e_1, 1)
f_1 = Circle(Q, l)
R = Intersect(c, f_1, 1)
g_1 = Circle(R, l)
S = Intersect(c, g_1, 1)
h_1 = Circle(S, l)
T = Intersect(c, h_1, 1)
k_1 = Circle(T, l)
U = Intersect(c, k_1, 1)
p_1 = Circle(U, l)
W = Intersect(c, p_1, 1)
q_1 = Circle(W, l)
Z = Intersect(c, q_1, 1)
r_1 = Circle(Z, l)
A_1 = Intersect(c, r_1, 1)
s_1 = Circle(A_1, l)
B_1 = Intersect(c, s_1, 1)
t_1 = Circle(B_1, l)
C_1 = Intersect(c, t_1, 1)
c_2 = Circle(C_1, l)
D = Intersect(c, c_2, 1)
d_2 = Circle(D, l)
D_1 = Intersect(c, d_2, 1)
e_3 = Circle(D_1, l)
E_1 = Intersect(c, e_3, 1)
f_3 = Circle(E_1, l)
F_1 = Intersect(c, f_3, 1)
g_3 = Circle(F_1, l)
G_1 = Intersect(c, g_3, 1)
h_3 = Circle(G_1, l)
H_1 = Intersect(c, h_3, 1)
k_3 = Circle(H_1, l)
I_1 = Intersect(c, k_3, 1)
polígono1, b, c_3, e_2, f_2, g_2, h_2, i, j, k_2, l_1, m, n_1, o, p_2, q_2, r_2, s_2, t_2, u, w, z, a_2, b_2, c_4, d_3, d_4, e_4, f_4, g_4, h_4, i_2 = Polygon(B, C, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, W, Z, A_1, B_1, C_1, D, D_1, E_1, F_1, G_1, H_1, I_1)
areac = Area(c)