0
$\begingroup$

This question already has an answer here:

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?

$\endgroup$

marked as duplicate by Dr. belisarius, bbgodfrey, m_goldberg, Michael E2, Karsten 7. Mar 13 '15 at 19:06

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.