
> x:=(1+cos(16*t))*cos(t);
> y:=(1+cos(16*t))*sin(t);
> z:=1+cos(16*t);
x := (1 + cos(16 t)) cos(t)
y := (1 + cos(16 t)) sin(t)
z := 1 + cos(16 t)
> with(plots):
> spacecurve([x,y,z],t=0..2*Pi,axes='BOXED',
> thickness=2,numpoints=1000);