lado de la base = %v cm

Ver solo desarrollo

l = 1 (slider from 0.1 to 4, step 0.01)
n1 = 20 (slider from 3 to 20, step 1)
n: round(n1)
r: l / ((2 * sin(π / n)))
texto3: "Nº de caras laterales = " + n
c = Circle((0, 0), r)
A = Point(c)
O: (0, 0)
α: (2 * π / n)
A' = Rotate(A, α, O)
polígono1, f, g, h1, i, j, k, l_2, m, p, q, s, t, b, e, f_1, g_1, i_1, j_1, k_1, l_1, B, C, D, E, K_1, Q_1, W_1, E_2, K_2, Q_2, W_2, E_3, K_3, Q_3, W_3, E_4, K_4, Q_4 = Polygon(A, A', n)
h_1 = OrthogonalLine(O, xOyPlane)
F = Point(h_1)
h: abs(F - O)
texto2: "Perímetro de la base = " + ((n * l)) + " cm"
aa, caraAA'F, caraA'BF, caraBCF, caraCDF, caraDEF, cara34, cara35, cara36, cara37, cara38, cara39, cara40, cara41, cara42, cara43, cara44, cara45, cara46, cara47, cara33, aristaAF, aristaA'F, aristaBF, aristaCF, aristaDF, aristaEF, arista113, arista114, arista115, arista116, arista117, arista118, arista119, arista120, arista121, arista122, arista123, arista124, arista125, arista126 = Pyramid(polígono1, F)
Desarrollo = 0 (slider from 0 to 1, step 0.01)
u, W_4, Z_4, A_5, B_5, C_5, D_5, E_5, F_5, G_5, H_5, I_5, J_5, K_5, L_5, M_5, N_5, O_5, P_5, Q_5, R_5, S_5, T_5, U_5, V_5, W_5, Z_5, A_6, B_6, C_6, D_6, E_6, F_6, G_6, H_6, I_6, J_6, K_6, L_6, M_6, N_6, cara68, cara48, cara50, cara51, cara52, cara53, cara54, cara55, cara56, cara57, cara58, cara59, cara60, cara61, cara62, cara63, cara64, cara65, cara66, cara67, cara49, arista127, arista131, arista134, arista137, arista140, arista143, arista146, arista149, arista152, arista155, arista158, arista161, arista164, arista167, arista170, arista173, arista176, arista179, arista182, arista128, arista129, arista132, arista133, arista135, arista136, arista138, arista139, arista141, arista142, arista144, arista145, arista147, arista148, arista150, arista151, arista153, arista154, arista156, arista157, arista159, arista160, arista162, arista163, arista165, arista166, arista168, arista169, arista171, arista172, arista174, arista175, arista177, arista178, arista180, arista181, arista183, arista184, arista185, arista186, arista130 = Net(aa, Desarrollo)
texto1: "Altura de la pirámide =  " + h + " cm"
texto6_2: "Área de la base = " + polígono1 + " cm²"
texto5_2: "Volumen = " + ((polígono1 * h / 3)) + " cm³"
a = false
tri: (l / 2 * sqrt(h^(2) + (l / ((2 * tan(π / n))))^(2)))
ti: (t * i)
tr: (t * r)
texto4_1: "Área lateral = " + ((n * tri)) + " cm²"