Tres

Dos

Una

Ninguna

Todos

No mostrar

Mostrar cubos con
   caras pintadas

Si

Si

No

No

Pintar de negro y cortar

n = 3 (slider from 2 to 6, step 1)
p3: 0
p2: ((-n)) / 2
p1: ((-n)) / 2
A: (p1, p2, p3)
B: (x(A) + n, y(A), z(A))
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, caraABCD, caraADHE, caraABFE, caraBCGF, caraCDHG, caraEFGH, aristaAD, aristaAB, aristaBC, aristaCD, aristaAE, aristaDH, aristaEH, aristaEF, aristaBF, aristaFG, aristaCG, aristaGH = Cube(A, B, C)
A1: A
A2: A1 + (1, 0, 0)
I = Point(Circle[A2, Distance[A, A2], Segment[A, A2]])
b, J, K, L, M, N, caraAA2IJ, caraAJNK, caraAA2LK, caraA2IML, caraIJNM, caraKLMN, aristaAJ, aristaAA2, aristaA2I, aristaIJ, aristaAK, aristaJN, aristaKN, aristaKL, aristaA2L, aristaLM, aristaIM, aristaMN = Cube(A, A2, I)
A3: A + (1, 0, n - 1)
A4: A + (2, 0, n - 1)
O = Point(Circle[A4, Distance[A3, A4], Segment[A3, A4]])
c, P, Q, R, S, T, caraA3A4OP, caraA3PTQ, caraA3A4RQ, caraA4OSR, caraOPTS, caraQRST, aristaA3P, aristaA3A4, aristaA4O, aristaOP, aristaA3Q, aristaPT, aristaQT, aristaQR, aristaA4R, aristaRS, aristaOS, aristaST = Cube(A3, A4, O)
A5: A + (n - 1, 1, 1)
A6: A + (n, 1, 1)
U = Point(Circle[A6, Distance[A5, A6], Segment[A5, A6]])
d, V, W, Z, A_1, B_1, caraA5A6UV, cara1, caraA5A6ZW, cara2, cara3, cara4, aristaA5V, aristaA5A6, aristaA6U, aristaUV, aristaA5W, arista2, arista3, aristaWZ, aristaA6Z, arista4, arista1, arista5 = Cube(A5, A6, U)
A7: A + (n - 2, n - 2, n - 2)
A8: A + (n - 1, n - 2, n - 2)
C_1 = Point(Circle[A8, Distance[A7, A8], Segment[A7, A8]])
e, D_1, E_1, F_1, G_1, H_1, cara5, cara7, cara6, cara8, cara9, cara10, arista6, aristaA7A8, arista8, arista10, arista7, arista12, arista14, arista13, arista9, arista15, arista11, arista16 = Cube(A7, A8, C_1)
lista1 = Sequence(Segment[A + (i, 0, 0), A + (i, n, 0)], i, 1, n - 1)
lista2 = Sequence(Segment[A + (i, 0, n), A + (i, n, n)], i, 1, n - 1)
lista3 = Sequence(Segment[A + (n, 0, i), A + (n, n, i)], i, 1, n - 1)
lista4 = Sequence(Segment[A + (0, 0, i), A + (0, n, i)], i, 1, n - 1)
lista5 = Sequence(Segment[A + (i, 0, 0), A + (i, 0, n)], i, 1, n - 1)
lista6 = Sequence(Segment[A + (i, n, 0), A + (i, n, n)], i, 1, n - 1)
lista11 = Sequence(Segment[A + (0, i, 0), A + (n, i, 0)], i, 1, n - 1)
lista22 = Sequence(Segment[A + (0, i, n), A + (n, i, n)], i, 1, n - 1)
lista33 = Sequence(Segment[A + (n, i, 0), A + (n, i, n)], i, 1, n - 1)
lista44 = Sequence(Segment[A + (0, i, 0), A + (0, i, n)], i, 1, n - 1)
lista55 = Sequence(Segment[A + (0, 0, i), A + (n, 0, i)], i, 1, n - 1)
lista66 = Sequence(Segment[A + (0, n, i), A + (n, n, i)], i, 1, n - 1)
a1: a
m = 3 (slider from 0 to 5, step 1)
texto6: "Tamaño del cubo  " + (LaTeX[n]) + "×" + (LaTeX[n]) + "×" + (LaTeX[n]) + ""
f = 0 (slider from 0 to 1, step 1)
g = false