Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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


  • Prev by Date: Re: Computable Document Format Replaces Player Notebooks
  • Next by Date: Re: unable to save notebook
  • Previous by thread: ExampleData[{"Geometry3D", "Torus"}]
  • Next by thread: Re: ExampleData[{"Geometry3D", "Torus"}]