11562
EXPLORE
LATEST
ABOUT
AUTHORING AREA
PARTICIPATE
Your browser does not support JavaScript or it may be disabled!
Polygonal Tori
This Demonstration shows a torus with a polygonal cross section.
To get a better view of its inside, open up the meridional and longitudinal gaps.
The Serret–Frenet formulas (using
Mathematica
's built-in
FrenetSerretSystem
) are used to generate the parametric equation of the torus surface.
Contributed by:
Erik Mahieu
THINGS TO TRY
Slider Zoom
Gamepad Controls
Automatic Animation
SNAPSHOTS
DETAILS
The parametric equation of a circular torus with a polygonal cross section is obtained as follows.
The parametric of the ring circle with radius
is:
.
The polar equation of a regular
-gon with circumradius
is:
.
Using the
Mathematica
function
FrenetSerretSystem
, we define the normal and binormal vectors
and
:
,
.
This gives the parametric equation of the elliptical torus:
,
with
vertices and
the circumradius of the cross-sectional polygon.
Expanded, with
, this becomes:
,
,
.
RELATED LINKS
Torus
(
Wolfram
MathWorld
)
Frenet Formulas
(
Wolfram
MathWorld
)
PERMANENT CITATION
Erik Mahieu
"
Polygonal Tori
"
http://demonstrations.wolfram.com/PolygonalTori/
Wolfram Demonstrations Project
Published: July 30, 2015
Share:
Embed Interactive Demonstration
New!
Just copy and paste this snippet of JavaScript code into your website or blog to put the live Demonstration on your site.
More details »
Download Demonstration as CDF »
Download Author Code »
(preview »)
Files require
Wolfram
CDF Player
or
Mathematica
.
Related Demonstrations
More by Author
Elliptical Torus
Erik Mahieu
Regular Spherical Polygons
Izidor Hafner
Intersection of Circular and Polygonal Cylinders
Erik Mahieu
Interlocking Tori
Michael Schreiber
Map Coloring on a Torus
Erik Mahieu
Chart for a Torus
Aaron T. Becker and Haoran Zhao
Motion Traced on the Torus and Klein Bottle
Kevin Sonnanburg
Recursive Exercises VI: Tori
Jaime Rangel-Mondragon
Thickening a Polygon Mesh for Rapid Prototyping (3D Printing)
Stewart Dickson
Branched Pipe Connection
Erik Mahieu
Related Topics
3D Graphics
Polygons
Solid Geometry
Surfaces
Topology
Browse all topics
Note: To run this Demonstration you need Mathematica 7+ or the free Mathematica Player 7EX
Download or upgrade to
Mathematica Player 7EX
I already have
Mathematica Player
or
Mathematica 7+