Tenemos una pila de tablas que giran a diferentes velocidades sobre su centro.
v[x_, y_, z_] =
Flatten[Table[{(-1)^i*x, (-1)^j*y, (-1)^k*z}, {i, 0, 1}, {j, 0,
1}, {k, 0, 1}], 2];
f = {{1, 2, 4, 3}, {1, 2, 6, 5}, {5, 6, 8, 7}, {3, 4, 8, 7}, {1, 3, 7, 5}, {2, 4, 8, 6}};
G[x_, y_, z_, s_, H_, t_] :=
Table[Translate[
Rotate[GraphicsComplex[v[x, y, z], Polygon[f]],
h (Cos[t] + 1) Pi/4, {0, 0, 1}], {0, 0, s*h}], {h, 1, H}]
Manipulate[
Graphics3D[G[2, 2, .1, .25, 30, t], Lighting -> "Neutral",
ViewPoint -> Front, ViewAngle -> 35 Degree, Boxed -> False,
ImageSize -> 500], {t, 0, Pi}]
El código no es mio, pero no recuerdo su origen.
Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas
Buenas tardes, Germán: Posiblemente olvidaste citar que el código de Mathematica relativo al ejemplo de la Pila de Tablas ha sido publicado ya como "Harmonic Twist" en el blog tumblr, y se puede encontrar en el link https://www.tumblr.com/dashboard?utm_medium=email&utm_source=html&utm_campaign=trending_tags_2_inactive30&utm_term=header_tumblr_logo. Ojalá puedas hacer esa aclaración en el futuro próximo.
ResponderBorrarY, por cierto, encuentro muy interesante tu blog.
-Tomás Garza, México. tgarza10@msn.com
Gracias por leerme. Tomás tienes razón, he sido un gran recopilador de código de Mathematica y sinceramente ya de la mayoría no tengo referencia. En el Blog he pretendido divulgar, dar a conocer las posibilidades de Mathematica desde un punto de vista motivacional, créame que a mis alumnos continuamente les realizo esta aclaración, pero espero no dar la impresión de original. Algunas de las entradas han sido tomadas de la misma ayuda del programa, de los videos de capacitación de Wolfram.com.
BorrarLo que sí he intentado ser muy cuidadoso es en dar los créditos a mis alumnos y compañeros al publicar código desarrollado por ellos. Si tienes código y deseas compartírmelo estaría muy honrado en publicarlo.
Agradezco mucho tu comentario.