> 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);