arista = %v cm

l = 4 (slider from 0.1 to 6, step 0.01)
n1 = 4 (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(A, xOyPlane)
F: A + (0, 0, l)
h: abs(F - A)
a, G, H, I, J, K, L_1, R_1, Z_1, F_2, L_2, R_2, Z_2, F_3, L_3, R_3, Z_3, F_4, L_4, R_4, caraAA'GF, caraA'BHG, caraBCIH, caraCDJI, caraDEKJ, caraAEKF, cara5, cara7, cara9, cara11, cara13, cara15, cara17, cara19, cara21, cara23, cara25, cara27, cara29, cara31, caraFGHIJK, aristaAF, aristaA'G, aristaBH, aristaCI, aristaDJ, aristaEK, arista15, arista22, arista29, arista36, arista43, arista50, arista57, arista64, arista71, arista78, arista85, arista92, arista99, arista106, aristaFG, aristaGH, aristaHI, aristaIJ, aristaJK, aristaFK, arista16, arista23, arista30, arista37, arista44, arista51, arista58, arista65, arista72, arista79, arista86, arista93, arista100, arista107 = Prism(polígono1, F)
Desarrollo = 0 (slider from 0 to 1, step 0.01)
d, L, M, N, P, Q, R, M_1, S_1, A_2, G_2, M_2, S_2, A_3, G_3, M_3, S_3, A_4, G_4, M_4, S_4, S, T, U, V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, O_1, P_1, U_1, V_1, C_2, D_2, I_2, J_2, O_2, P_2, U_2, V_2, C_3, D_3, I_3, J_3, O_3, P_3, U_3, V_3, C_4, D_4, I_4, J_4, O_4, P_4, U_4, V_4, G_1, H_1, I_1, J_1, N_1, T_1, B_2, H_2, N_2, T_2, B_3, H_3, N_3, T_3, B_4, H_4, N_4, T_4, caraLMNPQR, caraLMTS, caraMNVU, caraNPZW, cara2, cara3, cara1, cara6, cara8, cara10, cara12, cara14, cara16, cara18, cara20, cara22, cara24, cara26, cara28, cara30, cara32, cara4, aristaLM, aristaMN, aristaNP, aristaPQ, aristaQR, aristaLR, arista18, arista25, arista32, arista39, arista46, arista53, arista60, arista67, arista74, arista81, arista88, arista95, arista102, arista109, aristaLS, aristaST, aristaMT, aristaMU, aristaUV, aristaNV, aristaNW, aristaWZ, aristaPZ, arista2, arista9, arista3, arista4, arista10, arista5, arista6, arista11, arista1, arista19, arista20, arista21, arista26, arista27, arista28, arista33, arista34, arista35, arista40, arista41, arista42, arista47, arista48, arista49, arista54, arista55, arista56, arista61, arista62, arista63, arista68, arista69, arista70, arista75, arista76, arista77, arista82, arista83, arista84, arista89, arista90, arista91, arista96, arista97, arista98, arista103, arista104, arista105, arista110, arista111, arista112, arista8, arista12, arista13, arista14, arista7, arista17, arista24, arista31, arista38, arista45, arista52, arista59, arista66, arista73, arista80, arista87, arista94, arista101, arista108 = Net(a, Desarrollo)
texto1: "Altura del prisma =  " + h + " cm"
texto4: "Área lateral = " + (((n * l) * h)) + " cm²"
texto2_1: "Perímetro de cada cara =" + ((n * l)) + " cm"
texto5_2: "Volumen = " + (l^(3)) + " cm³"
texto6_2: "Área de cada cara = " + (l^(2)) + " cm²"