
> x:=rho*sin(t);
> y:=rho*cos(t);
> z:=2*t*rho+3*Pi;
> rho:=2+4*Pi*sin(t/3);
x := rho sin(t)
y := rho cos(t)
z := 2 t rho + 3 Pi
rho := 2 + 4 Pi sin(1/3 t)
> with(plots):
> spacecurve([x,y,z],t=0..30*Pi,numpoints=1000,
> axes='NORMAL',orientation=[-15,25],thickness=2);