MathGroup Archive 2011

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

Search the Archive

Re: ExampleData[{"Geometry3D", "Torus"}]


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"}]