Plantilla para construir poliedros regulares

Selecciona n=3 para construir tetraedro, octaedro o icosaedro. n=4 para cubo y n = 5 para dodecaedro.
Basta escribir en barra de entrada nombrepoliedro[A,A',A''] siendo nombrepoliedro: tetraedro, cubo, octaedro, docecaedro, icosaedro.

una vez construido el poliedro regular conviene ocultar el deslizador n.

Borrar rastros

O = (0, 0, 0)
r = 1.25 (slider from 0 to 5, step 0.01)
V = 15 (slider from 1 to 20, step 1)
a: V / ((π * r^(2)))
c = Circle(O, r, xOyPlane)
b, d, e = Cylinder(c, a)
A: (r, 0)
B: (r, a)
lugar1 = Locus(B, r)