8-02 Construct two torus

> restart;

> with(plots):

Warning, the name changecoords has been redefined

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

> b:=tubeplot([cos(t)+0.5,-0.5,sin(t)-0.7],t=0..2*Pi,scaling=constrained,radius=0.3,grid=[30,50]):

> display(a,b);

>