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