> restart:

> with (plots):

Warning, the name changecoords has been redefined

> r:=3+cos(s/3):

> x:=r*cos(s):

> y:=r*sin(s):

> z:=sin(s/3):

> tubeplot([x,y,z],s=0..6*Pi,scaling=constrained,grid=[100,10],radius=0.3,title="87121 By J.S.C.");