Spindle Torus

Author

Eric W. Weisstein
March 29, 2009

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

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

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

Graphic

Array

TorusPlot[{1,.6}]

Cross Section

TorusCrossSection[{1,.6}]

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["toruss1.m",Torus[{1,.6}]]

WriteLiveForm["toruss2.m",Torus[{1,.6}, 1/2]]