
> x:=cos(12*t)*cos(t);
> y:=cos(12*t)*sin(t);
> z:=t;
x := cos(12 t) cos(t)
y := cos(12 t) sin(t)
z := t
> with(plots):
> spacecurve([x,y,z],t=0..4*Pi,numpoints=4000,
> axes='NORMAL',thickness=2);