8-01 Construct the torus using the command "tubeplot":

> restart;

> with(plots):

Warning, the name changecoords has been redefined

> tubeplot([cos(t),sin(t),0],t=0..2*Pi,scaling=constrained,radius=0.3,grid=[30,50]);

>