Entrada destacada

Juego del Caos cambiando el dado al orden del Genoma

martes, 17 de julio de 2018

Pila de Tablas


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}]




Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas


2 comentarios:

  1. 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.
    Y, por cierto, encuentro muy interesante tu blog.

    -Tomás Garza, México. tgarza10@msn.com

    ResponderEliminar
    Respuestas
    1. 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.

      Lo 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.

      Eliminar