Wilson's Wavy Spiral:

This space curve was produced using the following Maple commands:

> x:=t/3*sin(t+1/5*(cos(t))^2);
> y:=t/3*cos(t+1/5*(sin(t))^2);
> z:=t^5*sin(5*t)*cos(5*t);

                                                2
                   x := 1/3 t sin(t + 1/5 cos(t) )


                                                2
                   y := 1/3 t cos(t + 1/5 sin(t) )


                            5
                      z := t  sin(5 t) cos(5 t)

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