Question: How to the create 3D animation of rotating 2D function plot

Hi all,


I'm trying to create the 3D animation which can show the idea of rotating 2D function plot, such as:



display(seq(surfdata([seq([seq([x, cos(2*p*Pi*(1/25))*x^(1/2), -sin(2*p*Pi*(1/25))*x^(1/2)], x = 0 .. 4, .1)], p = 0 .. t)]), t = 1 .. 25), insequence = true);

But it's too inconvenient because of too many seq functions in this commond, is there any easier way to plot this animatiton?

Thank you.

Please Wait...