Re: ExampleData[{"Geometry3D", "Torus"}]
- To: mathgroup at smc.vnet.net
- Subject: [mg120402] Re: ExampleData[{"Geometry3D", "Torus"}]
- From: Oliver Ruebenkoenig <ruebenko at wolfram.com>
- Date: Thu, 21 Jul 2011 06:54:33 -0400 (EDT)
- References: <201107210945.FAA06442@smc.vnet.net>
On Thu, 21 Jul 2011, Joseph O'Rourke wrote: > Is it possible to control the radii of a torus in Mathematica 8 using the ExampleData[] function? I cannot see how to get anything but the default torus. Thanks! > > Hello Joseph, would this be of use Manipulate[ ParametricPlot3D[{ Cos[t] (r2 + r1 Cos[u]), Sin[t] (r2 + r1 Cos[u]), r1 Sin[u]}, {t, 0, 2 Pi}, {u, 0, 2 Pi}, Mesh -> None], {{r1, 1}, 0, 2}, {{r2, 3}, 0, 5}] Oliver
- References:
- ExampleData[{"Geometry3D", "Torus"}]
- From: "Joseph O'Rourke" <orourke@scinix.smith.edu>
- ExampleData[{"Geometry3D", "Torus"}]