Ring Torus

Author

Eric W. Weisstein
March 14, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Surfaces/RingTorus.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RingTorus.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Graphics

Array

TorusPlot[{1,2}]

Cross Section

TorusCrossSection[{1,2}]

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["torus.m",Show[torus[3,1],opts]]

WriteLiveForm["torusr1.m",Show[torus[1,2],opts]]

WriteLiveForm["torusr2.m",Show[HalfTorus[1,2],opts]]