> x:=(1+1/10*sin(12*t))*sin(t); > y:=(1+1/2*cos(12*t))*sin(t); > z:=1/4*sin(4*t); x := (1 + 1/10 sin(12 t)) sin(t) y := (1 + 1/2 cos(12 t)) sin(t) z := 1/4 sin(4 t) > with(plots): > spacecurve([x,y,z],t=0..4*Pi,numpoints=1000,axes='NORMAL', > thickness=2,orientation=[75,40]);