Advertisement
Matthen

Cube

May 21st, 2016
335
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. p[{x_, y_, z_}, t_] := (
  2. {{0.8, 0.2, 0}, {0, 0.3, 0.8}}.RotationMatrix[
  3. 2 Pi t, {0, 0, 1}].{x, y, z}
  4. );
  5. n = 7;
  6. Manipulate[Graphics[{
  7. PointSize[Medium], Opacity[0.5],
  8. Point[
  9. Flatten[
  10. Table[
  11. p[{x, y, z}, t],
  12. {x, -n, n},
  13. {y, -n, n},
  14. {z, -n, n}],
  15. 2]
  16. ]
  17. }
  18. , PlotRange -> 1.5 {{-n, n}, {-n, n}}],
  19. {t, 0, 1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement