Message Boards Message Boards

0
|
4617 Views
|
3 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Newbie to Mathematica ... Help to create a Deltoid Torus

Posted 11 years ago
I want to create a Deltoid Torus where I can vary the parameters...the code I have is:
Manipulate[
ParametricPlot3D[
  {Sin[u] (7 + Cos[u/3 - 2 v] + 2 Cos[u/3 + v]),
   Cos[u] (7 + Cos[u/3 - 2 v] + 2 Cos[u/3 + v]),
   Sin[u/3 - 2 v] + 2 Sin[u/3 + v]},
  {u, -Pi, Pi}, {v, -Pi, Pi}]
]

I need Manipulate I think.
Is ParametricPlot3D the right function?
I want to vary u and v with sliders.

Help!  Thanks!
3 Replies
Thank you very much Arnoud..
The parameters "u" and "v" are local to the parametric plot, so it does not make sense to try and vary those. But you can vary just about everything else in this plot, for example:
 Manipulate[
  ParametricPlot3D[{
    Sin[u] (rx + Cos[u/3 - 2 v] + 2 Cos[u/3 + v]),
    Cos[u] (ry + Cos[u/3 - 2 v] + 2 Cos[u/3 + v]),
    Sin[u/3 - 2 v] + 2 Sin[u/3 + v]},
   {u, umin, umax}, {v, vmin, vmax}],
  {{rx, 7}, 1, 10, 1},
  {{ry, 7}, 1, 10, 1},
  {{umin, -Pi}, -2 Pi, 2 Pi},
{{umax, Pi}, -2 Pi, 2 Pi},
{{vmin, -Pi}, -2 Pi, 2 Pi},
{{vmax, Pi}, -2 Pi, 2 Pi}
]
POSTED BY: Arnoud Buzing
Posted 11 years ago
If you use Google to search for
Mathematica Umbilic torus
then hopefully one of the results you should see is a couple of pages from "Mathematica by Example" and on page 84 that shows one method of plotting what you are looking for.

If you have access to a library with a copy of the book or you can find a new or used copy to buy that might be even better.
POSTED BY: Bill Simpson
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract