If you have functional forms for the surfaces you can make this happen in ~5s in Mathematica. You can use the same syntax in Wolfram|Alpha. For instance:
Animate[Plot3D[Sin[Pi*x/n]*Cos[Pi*y/n], {x, -2, 2}, {y, -2, 2}], {n, 1, 4}]
will give you a fun little animation of Sin and Cos functions.
Here's the same query in Alpha
You can then export this animation to the Wolfram Cloud like so:
CloudExport[
Animate[Plot3D[Sin[Pi*x/n]*Cos[Pi*y/n], {x, -2, 2}, {y, -2, 2}], {n,
1, 4}],"GIF","basic_af.gif",
Permissions -> "Public"
]
CloudObject["https://www.wolframcloud.com/objects/b3m2a1.testing/basic_af.gif"]
And if you go to that URL:
https://www.wolframcloud.com/objects/b3m2a1.testing/basic_af.gif
You'll see that GIF.
Finally, you can do this all for free from a free Wolfram Cloud account, which means you don't have to pay anyone anything to get it done.
