Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- p[{x_, y_, z_}, t_] := (
- {{0.8, 0.2, 0}, {0, 0.3, 0.8}}.RotationMatrix[
- 2 Pi t, {0, 0, 1}].{x, y, z}
- );
- n = 7;
- Manipulate[Graphics[{
- PointSize[Medium], Opacity[0.5],
- Point[
- Flatten[
- Table[
- p[{x, y, z}, t],
- {x, -n, n},
- {y, -n, n},
- {z, -n, n}],
- 2]
- ]
- }
- , PlotRange -> 1.5 {{-n, n}, {-n, n}}],
- {t, 0, 1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement