Toro

> restart:with(plots):with(plottools):

Warning, the name changecoords has been redefined

O comando torus constroi um toro em 3D. Deve-se fornecer o centro a medida do meridiano e a distância do meridiano ao centro.

> c := torus([1,1,1], 1, 3):
display(c, scaling=constrained, axes=boxed,lightmodel=light2);

>

>

> s:=seq(torus([1,1,t],1/3,5/t),t=2..6):
plots[display](s,axes=boxed,scaling=constrained,style=patchnogrid,lightmodel=light2);

> c := torus([0,0,0], 1, 5):
d:=torus([4,0,0],1,5):
e:=rotate(d,Pi/2,0,0):
display({c,e},scaling=constrained,style=patchnogrid,lightmodel=light2);

>