Wrap the graph of y = cos 2x around a cylinder.

> restart;

> x:=cos(t):

> y:=sin(t):

> z1:=-1:

> z2:=cos(3*t):

> z:=(1-s)*z1+s*z2:

> with(plottools):

> plot3d([x,y,z],s=0..1,t=0..2*Pi,scaling=constrained,grid=[10,100]);

>