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