[Date Index] [Thread Index] [Author Index]

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>