0

I came across a neat image for a graph, and I wanted to reproduce this as a .gif using Mathematica (I have the 9th home edition). The following block of code produces a simple "picture":

ContourPlot3D[{2-Sqrt[1 - x^2 - (y - Abs[x])^2] Cos[30 (2 - x^2 - (y - Abs[x])^2)]}, {x, -1, 1}, {y, -1, 1.5}, {z, 1,2}]

What I would like is something ideally like that provided in the link above, where the image is rotating without it being prompted to do so. Is there a way to do this?

Daniel W. Farlow
  • 163
  • 6
  • possible dup: http://mathematica.stackexchange.com/questions/28866/how-to-rotate-3d-graphics-in-listanimate-without-making-a-mess/28882#28882. – george2079 Mar 13 '15 at 14:47
  • 2
    I'd strongly encourage you to find a much simpler example to work with. This one is horrifically slow. – george2079 Mar 13 '15 at 14:48
  • 1
    Also related: http://mathematica.stackexchange.com/questions/39398/how-to-make-a-3d-plot-auto-rotate – Michael E2 Mar 13 '15 at 16:13

0 Answers0