L = 3 (slider from 1 to 5, step 0.1)
h = 4 (slider from 1 to 9, step 0.1)
O: (0, 0, 0)
n = 9 (slider from 3 to 9, step 1)
A: (L / ((2 * sin((180 * ° / n)))), 0, 0)
B = Rotate(A, (360 * ° / n), zAxis)
polígono1, f, g, i, j, k, l, m, p, q, C, G, I, K, M_1, S_1, A_2 = Polygon(A, B, n, zAxis)
a, D, E, F, H, J, M, N_1, T_1, B_2, caraABED, caraBCFE, caraACFD, cara1, cara2, cara3, cara7, cara9, cara11, caraDEF, aristaAD, aristaBE, aristaCF, arista1, arista3, arista5, arista22, arista29, arista36, aristaDE, aristaEF, aristaDF, arista2, arista4, arista6, arista23, arista30, arista37 = Prism(polígono1, h)
b = 0 (slider from 0 to 1, step 0.01)
c, N, P, Q, A_1, E_1, I_1, O_1, U_1, C_2, R, S, T, U, V, W, C_1, D_1, G_1, H_1, K_1, L_1, Q_1, R_1, W_1, Z_1, E_2, F_2, Z, B_1, F_1, J_1, P_1, V_1, D_2, caraNPQ, caraNPSR, caraPQUT, caraNQVW, cara4, cara5, cara6, cara8, cara10, cara12, caraRSZ, aristaNP, aristaPQ, aristaNQ, arista8, arista13, arista18, arista25, arista32, arista39, aristaNR, aristaRS, aristaPS, aristaPT, aristaTU, aristaQU, aristaQV, aristaVW, aristaNW, arista9, arista10, arista11, arista14, arista15, arista16, arista19, arista20, arista21, arista26, arista27, arista28, arista33, arista34, arista35, arista40, arista41, arista42, aristaSZ, aristaRZ, arista7, arista12, arista17, arista24, arista31, arista38 = Net(a, b)
aaa = Segment(A, B)
texto1: "Área base = " + polígono1 + " cm²"
texto2: "Área lateral = " + ((n * caraABED)) + " cm²"