
> x:=rho*sin(t);
> y:=rho*cos(t);
> z:=sin(Pi*t)/2;
> rho:=sin(t)*(cos(Pi*t))^2;
x := rho sin(t)
y := rho cos(t)
z := 1/2 sin(t Pi)
2
rho := sin(t) cos(t Pi)
> with(plots):
> spacecurve([x,y,z],t=0..40*Pi,numpoints=1000,
> axes=normal,orientation=[45,75]);