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

  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,
  {{r2, 3}, 0, 5}]


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