
> x:=sin(3*t)*cos(t);
> y:=sin(3*t)*sin(t);
> z:=t;
x := sin(3 t) cos(t)
y := sin(3 t) sin(t)
z := t
> with(plots):
> spacecurve([x,y,z],t=0..10,numpoints=1000,
> axes='NORMAL',orientation=[70,70],thickness=2);