0
$\begingroup$

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$
3

0

Browse other questions tagged or ask your own question.